diff --git a/.github/workflows/CI.yml b/.github/workflows/CI.yml
index f2d5f1c84d..2395483b55 100644
--- a/.github/workflows/CI.yml
+++ b/.github/workflows/CI.yml
@@ -4,11 +4,13 @@ on:
   push:
     branches:
       - main
+    tags:
+      - 'v*'
   pull_request:
     branches:
       - main
 env:
-  MACOSX_DEPLOYMENT_TARGET: 12.0
+  MACOSX_DEPLOYMENT_TARGET: 15.0
 
 jobs:
   Build:
@@ -17,13 +19,19 @@ jobs:
     strategy:
       fail-fast: false
       matrix:
-        os: ["ubuntu-latest", "macos-latest", "windows-2019"]
+        os: ["ubuntu-latest", "macos-latest", "windows-2025"]
         python-version: ["3.10"]
     steps:
       - uses: actions/checkout@v3
         with:
+          submodules: true
           fetch-depth: 0
 
+      - name: Git Submodule Update
+        shell: bash -e -l {0}
+        run: |
+          git submodule update --init --recursive
+
       - name: Cache conda
         uses: actions/cache@v3
         env:
@@ -33,32 +41,33 @@ jobs:
           key:
             ${{ runner.os }}-conda-${{ env.CACHE_NUMBER }}-${{ hashFiles('ci/environment.yml') }}
 
-      - uses: conda-incubator/setup-miniconda@v2
+      - uses: mamba-org/setup-micromamba@v1.9.0
         with:
-          auto-update-conda: true
           environment-file: ci/environment.yml
-          python-version: ${{ matrix.python-version }}
-          use-only-tar-bz2: true
+          create-args: >-
+            python=${{ matrix.python-version }}
+            cmake=3.30.0
+            nodejs=18.20.5
 
       - name: Install Windows Conda Packages
         if: contains(matrix.os, 'windows')
-        shell: bash -l {0}
-        run: conda install m2-bison=3.0.4
+        shell: bash -e -l {0}
+        run: micromamba install --freeze-installed m2-bison=3.0.4 m2-filesystem
 
       - name: Install Linux / macOS Conda Packages
         if: contains(matrix.os, 'ubuntu') || contains(matrix.os, 'macos')
-        shell: bash -l {0}
-        run: conda install bison=3.4
+        shell: bash -e -l {0}
+        run: micromamba install --freeze-installed bison=3.4
 
       - name: Conda info
-        shell: bash -l {0}
+        shell: bash -e -l {0}
         run: |
-            conda info
-            conda list
+            micromamba info
+            micromamba list
 
       - name: Setup Platform (Linux)
         if: contains(matrix.os, 'ubuntu')
-        shell: bash -l {0}
+        shell: bash -e -l {0}
         run: |
             echo "LFORTRAN_CMAKE_GENERATOR=Unix Makefiles" >> $GITHUB_ENV
             echo "WIN=0" >> $GITHUB_ENV
@@ -67,7 +76,7 @@ jobs:
 
       - name: Setup Platform (macOS)
         if: contains(matrix.os, 'macos')
-        shell: bash -l {0}
+        shell: bash -e -l {0}
         run: |
             echo "LFORTRAN_CMAKE_GENERATOR=Unix Makefiles" >> $GITHUB_ENV
             echo "WIN=0" >> $GITHUB_ENV
@@ -75,7 +84,7 @@ jobs:
             echo "ENABLE_RUNTIME_STACKTRACE=yes" >> $GITHUB_ENV
 
       - name: Build (Linux / macOS)
-        shell: bash -l {0}
+        shell: bash -e -l {0}
         if: contains(matrix.os, 'ubuntu') || contains(matrix.os, 'macos')
         run: |
             xonsh ci/build.xsh
@@ -84,18 +93,21 @@ jobs:
         if: contains(matrix.os, 'windows')
         shell: cmd
         run: |
-            set CONDA_INSTALL_LOCN=C:\\Miniconda
-            call %CONDA_INSTALL_LOCN%\Scripts\activate.bat
-            call conda activate test
+            set MAMBA_INSTALL_LOCN=C:\\Users\runneradmin\micromamba
+            call %MAMBA_INSTALL_LOCN%\Scripts\activate.bat
+            call micromamba activate lp
             set LFORTRAN_CMAKE_GENERATOR=Ninja
             set WIN=1
             set MACOS=0
             set ENABLE_RUNTIME_STACKTRACE=no
-            call "C:/Program Files (x86)/Microsoft Visual Studio/2019/Enterprise/VC/Auxiliary/Build/vcvars64.bat"
+            call "C:\Program Files\Microsoft Visual Studio\2022\Enterprise\VC\Auxiliary\Build\vcvars64.bat"
+            set CC=cl.exe
+            set CXX=cl.exe
+            set "PATH=%PATH:C:\mingw64\bin;=%"  # Remove mingw from path
             xonsh ci\build.xsh
 
       - name: Test (Linux / macOS)
-        shell: bash -l {0}
+        shell: bash -e -l {0}
         if: contains(matrix.os, 'ubuntu') || contains(matrix.os, 'macos')
         run: |
             xonsh ci/test.xsh
@@ -104,27 +116,36 @@ jobs:
         if: contains(matrix.os, 'windows')
         shell: cmd
         run: |
-            set CONDA_INSTALL_LOCN=C:\\Miniconda
-            call %CONDA_INSTALL_LOCN%\Scripts\activate.bat
-            call conda activate test
+            set MAMBA_INSTALL_LOCN=C:\\Users\runneradmin\micromamba
+            call %MAMBA_INSTALL_LOCN%\Scripts\activate.bat
+            call micromamba activate lp
             set LFORTRAN_CMAKE_GENERATOR=Ninja
             set WIN=1
             set MACOS=0
-            call "C:/Program Files (x86)/Microsoft Visual Studio/2019/Enterprise/VC/Auxiliary/Build/vcvars64.bat"
+            call "C:\Program Files\Microsoft Visual Studio\2022\Enterprise\VC\Auxiliary\Build\vcvars64.bat"
+            set CC=cl.exe
+            set CXX=cl.exe
+            set "PATH=%PATH:C:\mingw64\bin;=%"  # Remove mingw from path
             xonsh ci\test.xsh
 
   build_to_wasm:
     name: Build LPython to WASM
-    runs-on: "ubuntu-latest"
+    runs-on: ubuntu-latest
     steps:
-      - uses: actions/checkout@v2
+      - uses: actions/checkout@v3
         with:
+          submodules: true
           fetch-depth: 0
 
-      - uses: mamba-org/provision-with-micromamba@main
+      - name: Git Submodule Update
+        shell: bash -e -l {0}
+        run: |
+          git submodule update --init --recursive
+
+      - uses: mamba-org/setup-micromamba@v1
         with:
           environment-file: ci/environment.yml
-          extra-specs: |
+          create-args: >-
             python=3.10
             bison=3.4
 
@@ -133,6 +154,13 @@ jobs:
           variant: sccache
           key: ${{ github.job }}-${{ matrix.os }}
 
+      - name : Remove existing node
+        shell: bash -l {0}
+        run : |
+            which node
+            node -v
+            sudo rm -rf /usr/local/bin/node /usr/local/bin/npm
+
       - name: Install Emscripten from Git
         shell: bash -l {0}
         run: |
@@ -142,13 +170,12 @@ jobs:
             git clone https://github.com/emscripten-core/emsdk.git
             cd emsdk
 
-            # Download and install the latest SDK tools.
-            ./emsdk install latest
+            ./emsdk install 3.1.35
+            ./emsdk activate 3.1.35
+            ./emsdk install node-18.20.3-64bit
+            ./emsdk activate node-18.20.3-64bit
 
-            # Make the "latest" SDK "active" for the current user. (writes .emscripten file)
-            ./emsdk activate latest
-
-      - name: Show Emscripten Info
+      - name: Show Emscripten and Node Info
         shell: bash -l {0}
         run: |
             set -ex
@@ -156,13 +183,14 @@ jobs:
             source $HOME/ext/emsdk/emsdk_env.sh
             emcc -v
             em++ -v
+            which node
+            node -v
 
       - name: Build to WASM
         shell: bash -l {0}
         run: |
             set -ex
             source $HOME/ext/emsdk/emsdk_env.sh # Activate Emscripten
-            ./build0.sh
             ./build_to_wasm.sh
 
       - name: Test built lpython.wasm
@@ -170,4 +198,493 @@ jobs:
         run: |
             set -ex
             source $HOME/ext/emsdk/emsdk_env.sh # Activate Emscripten
+            which node
+            node -v
             node src/lpython/tests/test_lpython.js
+
+  test_pip_pkgs:
+    name: Test PIP Installable Packages
+    runs-on: ubuntu-latest
+    steps:
+      - uses: actions/checkout@v3
+        with:
+          submodules: true
+          fetch-depth: 0
+
+      - name: Git Submodule Update
+        shell: bash -e -l {0}
+        run: |
+          git submodule update --init --recursive
+
+      - uses: mamba-org/setup-micromamba@v1
+        with:
+          environment-file: ci/environment.yml
+          create-args: >-
+            python=3.10
+            bison=3.4
+
+      - uses: hendrikmuhs/ccache-action@main
+        with:
+          variant: sccache
+          key: ${{ github.job }}-${{ matrix.os }}
+
+      - name: Build Linux
+        shell: bash -e -l {0}
+        run: |
+            ./build0.sh
+            cmake . -GNinja \
+              -DCMAKE_BUILD_TYPE=Debug \
+              -DWITH_LLVM=yes \
+              -DLFORTRAN_BUILD_ALL=yes \
+              -DWITH_STACKTRACE=no \
+              -DWITH_RUNTIME_STACKTRACE=yes \
+              -DCMAKE_PREFIX_PATH="$CONDA_PREFIX" \
+              -DCMAKE_INSTALL_PREFIX=`pwd`/inst \
+              -DCMAKE_C_COMPILER_LAUNCHER=sccache \
+              -DCMAKE_CXX_COMPILER_LAUNCHER=sccache
+
+            cmake --build . -j16 --target install
+
+      - name: PIP show version
+        shell: bash -e -l {0}
+        run: |
+            python -m pip -V
+
+      - name: PIP install required packages
+        shell: bash -e -l {0}
+        run: |
+            # Package lpynn has lpython_emulation as dependency
+            # Hence, it should by default install lpython_emulation
+            python -m pip install lpython_emulation==0.0.1.9 lpynn==0.0.1.4 numpy==1.24.3
+
+      - name: PIP show installed packages
+        shell: bash -e -l {0}
+        run: |
+            python -m pip list
+
+      - name: Test PIP Packages with Python
+        shell: bash -e -l {0}
+        run: |
+            python integration_tests/test_pip_import_01.py
+
+      # - name: Test PIP Packages with LPython
+      #   shell: bash -e -l {0}
+      #   run: |
+      #       pip_pkg_path=$(python -c "import site; print(site.getsitepackages()[0])")
+      #       echo $pip_pkg_path
+      #       ./src/bin/lpython integration_tests/test_pip_import_01.py -I $pip_pkg_path
+
+  debug:
+    name: Check Debug build
+    runs-on: ubuntu-latest
+    steps:
+      - uses: actions/checkout@v3
+        with:
+          submodules: true
+          fetch-depth: 0
+
+      - name: Git Submodule Update
+        shell: bash -e -l {0}
+        run: |
+          git submodule update --init --recursive
+
+      - uses: mamba-org/setup-micromamba@v1
+        with:
+          environment-file: ci/environment.yml
+          create-args: >-
+            python=3.10
+            bison=3.4
+
+      - uses: hendrikmuhs/ccache-action@main
+        with:
+          variant: sccache
+          key: ${{ github.job }}-${{ matrix.os }}
+
+      - name: Build Linux
+        shell: bash -e -l {0}
+        run: |
+            ./build0.sh
+            export CXXFLAGS="-Werror"
+            cmake . -GNinja \
+              -DCMAKE_BUILD_TYPE=Debug \
+              -DWITH_LLVM=yes \
+              -DLFORTRAN_BUILD_ALL=yes \
+              -DWITH_STACKTRACE=no \
+              -DWITH_RUNTIME_STACKTRACE=yes \
+              -DCMAKE_PREFIX_PATH="$CONDA_PREFIX" \
+              -DCMAKE_INSTALL_PREFIX=`pwd`/inst \
+              -DCMAKE_C_COMPILER_LAUNCHER=sccache \
+              -DCMAKE_CXX_COMPILER_LAUNCHER=sccache
+
+            cmake --build . -j16 --target install
+
+      - name: Test Linux
+        shell: bash -e -l {0}
+        run: |
+            ctest
+            ./run_tests.py -s
+            cd integration_tests
+            ./run_tests.py -b llvm c
+            ./run_tests.py -b llvm c -f
+
+  release:
+    name: Check Release build
+    runs-on: ubuntu-latest
+    steps:
+      - uses: actions/checkout@v3
+        with:
+          submodules: true
+          fetch-depth: 0
+
+      - name: Git Submodule Update
+        shell: bash -e -l {0}
+        run: |
+          git submodule update --init --recursive
+
+      - uses: mamba-org/setup-micromamba@v1
+        with:
+          environment-file: ci/environment.yml
+          create-args: >-
+            python=3.10
+            bison=3.4
+
+      - uses: hendrikmuhs/ccache-action@main
+        with:
+          variant: sccache
+          key: ${{ github.job }}-${{ matrix.os }}
+
+      - name: Build Linux
+        shell: bash -e -l {0}
+        run: |
+            ./build0.sh
+            export CXXFLAGS="-Werror"
+            cmake . -GNinja \
+              -DCMAKE_BUILD_TYPE=Release \
+              -DCMAKE_CXX_FLAGS_RELEASE="-Wall -Wextra -O3 -funroll-loops -DNDEBUG" \
+              -DWITH_LLVM=yes \
+              -DLFORTRAN_BUILD_ALL=yes \
+              -DWITH_STACKTRACE=no \
+              -DWITH_RUNTIME_STACKTRACE=yes \
+              -DCMAKE_PREFIX_PATH="$CONDA_PREFIX" \
+              -DCMAKE_INSTALL_PREFIX=`pwd`/inst \
+              -DCMAKE_C_COMPILER_LAUNCHER=sccache \
+              -DCMAKE_CXX_COMPILER_LAUNCHER=sccache
+
+            cmake --build . -j16 --target install
+
+      - name: Test Linux
+        shell: bash -e -l {0}
+        run: |
+            ctest --rerun-failed --output-on-failure
+            ./run_tests.py -s
+            cd integration_tests
+            ./run_tests.py -b llvm c
+            ./run_tests.py -b llvm c -f
+
+  cpython_interop:
+    name: Test CPython Interop (@pythoncall)
+    runs-on: ubuntu-latest
+    steps:
+      - uses: actions/checkout@v3
+        with:
+          submodules: true
+          fetch-depth: 0
+
+      - name: Git Submodule Update
+        shell: bash -e -l {0}
+        run: |
+          git submodule update --init --recursive
+
+      - uses: mamba-org/setup-micromamba@v1
+        with:
+          environment-file: ci/environment.yml
+          create-args: >-
+            python=3.10
+            bison=3.4
+
+      - uses: hendrikmuhs/ccache-action@main
+        with:
+          variant: sccache
+          key: ${{ github.job }}-${{ matrix.os }}
+
+      - name: Build Linux
+        shell: bash -e -l {0}
+        run: |
+            ./build0.sh
+            cmake . -GNinja \
+              -DCMAKE_BUILD_TYPE=Debug \
+              -DWITH_LLVM=yes \
+              -DLFORTRAN_BUILD_ALL=yes \
+              -DWITH_STACKTRACE=no \
+              -DWITH_RUNTIME_STACKTRACE=yes \
+              -DCMAKE_PREFIX_PATH="$CONDA_PREFIX" \
+              -DCMAKE_INSTALL_PREFIX=`pwd`/inst \
+              -DCMAKE_C_COMPILER_LAUNCHER=sccache \
+              -DCMAKE_CXX_COMPILER_LAUNCHER=sccache
+
+            cmake --build . -j16 --target install
+
+      - name: Test Linux
+        shell: bash -e -l {0}
+        run: |
+            cd integration_tests
+            ./run_tests.py -b cpython c_py llvm_py
+            ./run_tests.py -b cpython c_py llvm_py -f
+
+  sympy:
+    name: Run SymPy tests
+    runs-on: ubuntu-latest
+    steps:
+      - uses: actions/checkout@v3
+        with:
+          submodules: true
+          fetch-depth: 0
+
+      - name: Git Submodule Update
+        shell: bash -e -l {0}
+        run: |
+          git submodule update --init --recursive
+
+      - uses: mamba-org/setup-micromamba@v1
+        with:
+          environment-file: ci/environment.yml
+          create-args: >-
+            python=3.10
+            bison=3.4
+            symengine=0.12.0
+            sympy=1.11.1
+
+      - uses: hendrikmuhs/ccache-action@main
+        with:
+          key: ${{ github.job }}-${{ matrix.os }}
+
+      - name: Build
+        shell: bash -e -l {0}
+        run: |
+            ./build0.sh
+            cmake . -G"Unix Makefiles" \
+              -DCMAKE_BUILD_TYPE=Debug \
+              -DWITH_LLVM=yes \
+              -DLPYTHON_BUILD_ALL=yes \
+              -DWITH_STACKTRACE=no \
+              -DWITH_RUNTIME_STACKTRACE=no \
+              -DCMAKE_PREFIX_PATH="$CONDA_PREFIX" \
+              -DCMAKE_INSTALL_PREFIX=`pwd`/inst \
+              -DCMAKE_C_COMPILER_LAUNCHER=ccache \
+              -DCMAKE_CXX_COMPILER_LAUNCHER=ccache
+
+            cmake --build . -j16 --target install
+
+      - name: Test
+        shell: bash -e -l {0}
+        run: |
+            cd integration_tests
+            ./run_tests.py -b c_sym cpython_sym llvm_sym llvm_jit
+            ./run_tests.py -b c_sym cpython_sym llvm_sym llvm_jit -f
+
+  integration_tests_cpython:
+    name: Run Integration tests with Python ${{ matrix.python-version }}
+    runs-on: ubuntu-latest
+    strategy:
+      fail-fast: false
+      matrix:
+        python-version: ["3.9", "3.10", "3.11", "3.12"]
+    steps:
+      - uses: actions/checkout@v3
+        with:
+          submodules: true
+          fetch-depth: 0
+
+      - name: Git Submodule Update
+        shell: bash -e -l {0}
+        run: |
+          git submodule update --init --recursive
+
+      - uses: mamba-org/setup-micromamba@v1
+        with:
+          environment-name: lp
+          condarc: |
+            channels:
+              - conda-forge
+          create-args: >-
+            llvmdev=11.1.0
+            bison=3.4
+            re2c=2.2
+            zlib=1.3.1
+            cmake=3.30.0
+            make=4.3
+            python=${{ matrix.python-version }}
+            numpy=1.26.4
+
+      - uses: hendrikmuhs/ccache-action@main
+        with:
+          key: ${{ github.job }}-${{ matrix.python-version }}
+
+      - name: Show Python Info
+        shell: bash -e -l {0}
+        run: |
+          which python
+          python -m pip -V
+          python -m pip list
+          python --version
+
+      - name: Build
+        shell: bash -e -l {0}
+        run: |
+            ./build0.sh
+            cmake . -G"Unix Makefiles" \
+              -DCMAKE_BUILD_TYPE=Debug \
+              -DWITH_LLVM=yes \
+              -DLPYTHON_BUILD_ALL=yes \
+              -DWITH_STACKTRACE=no \
+              -DWITH_RUNTIME_STACKTRACE=no \
+              -DCMAKE_PREFIX_PATH="$CONDA_PREFIX" \
+              -DCMAKE_INSTALL_PREFIX=`pwd`/inst \
+              -DCMAKE_C_COMPILER_LAUNCHER=ccache \
+              -DCMAKE_CXX_COMPILER_LAUNCHER=ccache
+
+            cmake --build . -j16 --target install
+
+      - name: Test
+        shell: bash -e -l {0}
+        run: |
+            cd integration_tests
+            ./run_tests.py -b cpython c_py
+
+  test_llvm:
+    name: Test LLVM ${{ matrix.llvm-version }}
+    runs-on: ubuntu-latest
+    strategy:
+      fail-fast: false
+      matrix:
+        llvm-version: ["10", "15", "16"]
+    steps:
+      - uses: actions/checkout@v4
+        with:
+          submodules: true
+          fetch-depth: 0
+
+      - name: Git Submodule Update
+        shell: bash -e -l {0}
+        run: |
+          git submodule update --init --recursive
+
+      - uses: mamba-org/setup-micromamba@v1.8.0
+        with:
+          environment-file: ci/environment_linux_llvm.yml
+          create-args: >-
+            llvmdev=${{ matrix.llvm-version }}
+
+      - uses: hendrikmuhs/ccache-action@main
+        with:
+          variant: sccache
+          key: ${{ github.job }}-${{ matrix.llvm-version }}
+
+      - name: Build Linux
+        shell: bash -e -l {0}
+        run: |
+            ./build0.sh
+            export CXXFLAGS="-Werror"
+            cmake . -G"Unix Makefiles" \
+              -DCMAKE_BUILD_TYPE=Debug \
+              -DWITH_LLVM=yes \
+              -DLFORTRAN_BUILD_ALL=yes \
+              -DWITH_STACKTRACE=no \
+              -DWITH_RUNTIME_STACKTRACE=yes \
+              -DCMAKE_PREFIX_PATH="$CONDA_PREFIX" \
+              -DCMAKE_INSTALL_PREFIX=`pwd`/inst \
+              -DCMAKE_C_COMPILER_LAUNCHER=sccache \
+              -DCMAKE_CXX_COMPILER_LAUNCHER=sccache
+
+            cmake --build . -j16 --target install
+
+      - name: Test Linux LLVM ${{ matrix.llvm-version }}
+        shell: bash -e -l {0}
+        run: |
+            ctest --output-on-failure
+            cd integration_tests
+            ./run_tests.py -b llvm llvm_jit
+            ./run_tests.py -b llvm llvm_jit -f
+
+  build_jupyter_kernel:
+    name: Build Jupyter Kernel
+    runs-on: ubuntu-latest
+    steps:
+      - uses: actions/checkout@v3
+        with:
+          submodules: true
+          fetch-depth: 0
+
+      - name: Git Submodule Update
+        shell: bash -e -l {0}
+        run: |
+          git submodule update --init --recursive
+
+      - uses: mamba-org/setup-micromamba@v1
+        with:
+          environment-file: ci/environment.yml
+          create-args: >-
+            jupyter=1.0.0
+            python=3.10
+            bison=3.4
+
+      - uses: hendrikmuhs/ccache-action@main
+        with:
+          variant: sccache
+          key: ${{ github.job }}-${{ matrix.os }}
+
+      - name: Build LPython with Kernel
+        shell: bash -e -l {0}
+        run: |
+            ./build0.sh
+            export CXXFLAGS="-Werror"
+            cmake . -GNinja \
+              -DCMAKE_BUILD_TYPE=Debug \
+              -DWITH_LLVM=yes \
+              -DWITH_XEUS=yes \
+              -DCMAKE_PREFIX_PATH="$CONDA_PREFIX" \
+              -DCMAKE_INSTALL_PREFIX="$CONDA_PREFIX"
+
+            ninja install
+            ctest --output-on-failure
+            jupyter kernelspec list --json
+
+      - name: Test Kernel
+        shell: bash -e -l {0}
+        run: |
+            ctest --output-on-failure
+
+  upload_tarball:
+    name: Upload Tarball
+    runs-on: ubuntu-latest
+    steps:
+      - uses: actions/checkout@v4
+        with:
+          submodules: true
+          fetch-depth: 0
+
+      - name: Git Submodule Update
+        shell: bash -e -l {0}
+        run: |
+          git submodule update --init --recursive
+
+      - uses: mamba-org/setup-micromamba@v1
+        with:
+          environment-file: ci/environment.yml
+          create-args: >-
+            python=3.10
+
+      - name: Create Source Tarball
+        shell: bash -e -l {0}
+        run: |
+          ./build0.sh
+          lpython_version=$(<lp_version)
+          ci/create_source_tarball.sh $lpython_version
+
+      - name: Upload Tarball to Release
+        if: ${{ startsWith(github.ref, 'refs/tags/v') }}
+        shell: bash -e -l {0}
+        run: |
+          ci/upload_tarball_to_release.sh
+        env:
+          GITHUB_TOKEN: ${{ secrets.GITHUB_TOKEN }}
diff --git a/.gitignore b/.gitignore
index 468bb9c6ed..9f539f2c04 100644
--- a/.gitignore
+++ b/.gitignore
@@ -50,15 +50,13 @@ _CPack_Packages
 *.dSYM
 
 ## Generated files
-version
+lp_version
 lpython/ast/ast.py
 lpython/asr/asr.py
 src/lpython/ast.h
 src/lpython/asr.h
-src/libasr/asr.h
-src/libasr/wasm_visitor.h
-src/libasr/config.h
 share/jupyter/kernels/fortran/kernel.json
+share/jupyter/kernels/lpython/kernel.json
 src/runtime/*.o.empty.c
 python_ast.py
 python_ast.h
@@ -72,6 +70,10 @@ integration_tests/b5/*
 integration_tests/b6/*
 integration_tests/_lpython-tmp-test-*
 inst/bin/*
+*.clj
+pass_fortran_*.f90
+pass_json_*.json
+pass_tree_*.txt
 *.tmp
 *.tlog
 *.filters
@@ -87,6 +89,12 @@ inst/bin/*
 *_lines.txt
 *_ldd.txt
 *_lines.dat.txt
+*__tmp__generated__.c
+visualize*.html
+lpython_decorator*/
+a.c
+a.h
+a.py
 
 ### https://raw.github.com/github/gitignore/218a941be92679ce67d0484547e3e142b2f5f6f0/Global/macOS.gitignore
 
@@ -168,6 +176,7 @@ output
 *.smod
 *.js
 *.wasm
+*.data
 /.ccls-cache/
 .cache/
 ext/
@@ -175,6 +184,7 @@ extsrc/
 tmp/
 tmpdebug/
 gentests/
+inst/
 
 ## Ninja
 build.ninja
@@ -220,3 +230,6 @@ integration_tests/array_02_decl
 integration_tests/array_02_decl.c
 integration_tests/expr_12
 integration_tests/expr_12.c
+
+# Interactive Shell
+input
diff --git a/.gitmodules b/.gitmodules
new file mode 100644
index 0000000000..a41a215c6e
--- /dev/null
+++ b/.gitmodules
@@ -0,0 +1,3 @@
+[submodule "libasr"]
+	path = libasr
+	url = https://github.com/lfortran/lfortran.git
diff --git a/CMakeLists.txt b/CMakeLists.txt
index fb1d163642..bf45744b4e 100644
--- a/CMakeLists.txt
+++ b/CMakeLists.txt
@@ -7,7 +7,7 @@ if (LPYTHON_BUILD_ALL)
   execute_process(COMMAND "build0.sh")
 endif()
 
-file(STRINGS "version" LFORTRAN_VERSION)
+file(STRINGS "lp_version" LFORTRAN_VERSION)
 
 project(lpython LANGUAGES C CXX)
 
@@ -42,7 +42,9 @@ include(GNUInstallDirs)
 #
 # cpack
 #
-include(InstallRequiredSystemLibraries)
+if(NOT WIN32)
+    include(InstallRequiredSystemLibraries)
+endif()
 set(CPACK_GENERATOR "TBZ2")
 set(CPACK_STRIP_FILES YES)
 set(CPACK_PACKAGE_FILE_NAME lpython-${LFORTRAN_VERSION}-${CMAKE_SYSTEM_NAME})
@@ -89,6 +91,9 @@ set(WITH_WHEREAMI yes
 set(WITH_ZLIB yes
     CACHE BOOL "Compile with ZLIB Library")
 
+set(WITH_LCOMPILERS_FAST_ALLOC yes
+    CACHE BOOL "Compile with fast allocator")
+
 # Build to wasm
 set(LPYTHON_BUILD_TO_WASM no
     CACHE BOOL "Compile LPython To WASM")
@@ -97,6 +102,7 @@ if (LPYTHON_BUILD_TO_WASM)
     set(HAVE_BUILD_TO_WASM yes)
     SET(WITH_WHEREAMI no)
     SET(WITH_ZLIB no)
+    SET(WITH_LCOMPILERS_FAST_ALLOC no)
     add_definitions("-DHAVE_BUILD_TO_WASM=1")
 endif()
 
@@ -112,6 +118,25 @@ if (WITH_ZLIB)
     find_package(StaticZLIB REQUIRED)
 endif()
 
+if (WITH_LCOMPILERS_FAST_ALLOC)
+    add_definitions("-DLCOMPILERS_FAST_ALLOC=1")
+endif()
+
+# copy runtime files
+configure_file("${CMAKE_CURRENT_SOURCE_DIR}/src/runtime/lpython/lpython.py" "${CMAKE_CURRENT_BINARY_DIR}/src/runtime/lpython/lpython.py")
+configure_file("${CMAKE_CURRENT_SOURCE_DIR}/src/runtime/cmath.py" "${CMAKE_CURRENT_BINARY_DIR}/src/runtime/cmath.py")
+configure_file("${CMAKE_CURRENT_SOURCE_DIR}/src/runtime/lpython_builtin.py" "${CMAKE_CURRENT_BINARY_DIR}/src/runtime/lpython_builtin.py")
+configure_file("${CMAKE_CURRENT_SOURCE_DIR}/src/runtime/lpython_intrinsic_numpy.py" "${CMAKE_CURRENT_BINARY_DIR}/src/runtime/lpython_intrinsic_numpy.py")
+configure_file("${CMAKE_CURRENT_SOURCE_DIR}/src/runtime/lpython_parser.py" "${CMAKE_CURRENT_BINARY_DIR}/src/runtime/lpython_parser.py")
+configure_file("${CMAKE_CURRENT_SOURCE_DIR}/src/runtime/math.py" "${CMAKE_CURRENT_BINARY_DIR}/src/runtime/math.py")
+configure_file("${CMAKE_CURRENT_SOURCE_DIR}/src/runtime/os.py" "${CMAKE_CURRENT_BINARY_DIR}/src/runtime/os.py")
+configure_file("${CMAKE_CURRENT_SOURCE_DIR}/src/runtime/platform.py" "${CMAKE_CURRENT_BINARY_DIR}/src/runtime/platform.py")
+configure_file("${CMAKE_CURRENT_SOURCE_DIR}/src/runtime/random.py" "${CMAKE_CURRENT_BINARY_DIR}/src/runtime/random.py")
+configure_file("${CMAKE_CURRENT_SOURCE_DIR}/src/runtime/statistics.py" "${CMAKE_CURRENT_BINARY_DIR}/src/runtime/statistics.py")
+configure_file("${CMAKE_CURRENT_SOURCE_DIR}/src/runtime/string.py" "${CMAKE_CURRENT_BINARY_DIR}/src/runtime/string.py")
+configure_file("${CMAKE_CURRENT_SOURCE_DIR}/src/runtime/sys.py" "${CMAKE_CURRENT_BINARY_DIR}/src/runtime/sys.py")
+configure_file("${CMAKE_CURRENT_SOURCE_DIR}/src/runtime/time.py" "${CMAKE_CURRENT_BINARY_DIR}/src/runtime/time.py")
+
 # LLVM
 set(WITH_LLVM no CACHE BOOL "Build with LLVM support")
 set(WITH_TARGET_AARCH64 no CACHE BOOL "Enable target AARCH64")
@@ -149,7 +174,17 @@ if (WITH_LLVM)
         add_definitions("-DHAVE_TARGET_X86=1")
     endif()
 
-    llvm_map_components_to_libnames(llvm_libs ${LPYTHON_LLVM_COMPONENTS})
+    if (TARGET LLVMCore)
+        # If `LLVMCore` target is present, then LLVM is distributed as separate
+        # libraries and llvm_map_components_to_libnames() should work:
+        llvm_map_components_to_libnames(llvm_libs ${LPYTHON_LLVM_COMPONENTS})
+    else()
+        # Workaround for https://github.com/llvm/llvm-project/issues/34593
+        # If LLVM is distributed as a single library (the LLVMCore target is
+        # missing), we set `llvm_libs` to "LLVM" which links against the single
+        # `libLLVM.so` shared library.
+        set(llvm_libs "LLVM")
+    endif()
     unset(LPYTHON_LLVM_COMPONENTS)
 
     add_library(p::llvm INTERFACE IMPORTED)
@@ -176,13 +211,14 @@ endif()
 # XEUS (Fortran kernel)
 set(WITH_XEUS no CACHE BOOL "Build with XEUS support")
 if (WITH_XEUS)
-    find_package(xeus 0.24.1 REQUIRED)
+    find_package(xeus 5.1.0 REQUIRED)
+    find_package(xeus-zmq 3.0.0 REQUIRED)
     set(HAVE_LFORTRAN_XEUS yes)
 
     # Generate kernel.json with correct paths
     configure_file (
-        "${CMAKE_CURRENT_SOURCE_DIR}/share/jupyter/kernels/fortran/kernel.json.in"
-        "${CMAKE_CURRENT_BINARY_DIR}/share/jupyter/kernels/fortran/kernel.json"
+        "${CMAKE_CURRENT_SOURCE_DIR}/share/jupyter/kernels/lpython/kernel.json.in"
+        "${CMAKE_CURRENT_BINARY_DIR}/share/jupyter/kernels/lpython/kernel.json"
     )
 
     # Configuration and data directories for Jupyter and LFortran
diff --git a/README.md b/README.md
index a097915330..fa48413a03 100644
--- a/README.md
+++ b/README.md
@@ -1,168 +1,162 @@
 # LPython
 
-LPython is a Python compiler. It is in heavy development, currently in
-pre-alpha stage. Some of the goals of LPython:
-
-* The best possible performance for numerical, array-oriented code
-* Run on all platforms
-* Compile a subset of Python yet be fully compatible with Python
-* Explore designs so that LPython eventually can compile all Python code
-* Fast compilation
-* Excellent user-friendly diagnostic messages: error, warnings, hints, notes,
-  etc.
-* Ahead-of-Time compilation to binaries, plus interactive usage (Jupyter
-  notebook)
-* Transforming Python code to C++, Fortran and other languages
-
-And more.
+LPython is an ahead-of-time compiler for Python written in C++. It is currently in alpha
+stage and under heavy development. LPython works on Windows, macOS and Linux. 
 
-# Installation
-
-LPython works on Windows, macOS and Linux.
-
-## Install Conda
-
-Please follow the instructions here to install Conda on your platform:
-
-https://github.com/conda-forge/miniforge/#download
-
-### Linux
-
-```bash
-sudo apt install binutils-dev
-```
-
-### Windows
-Install Visual Studio (MSVC), for example the version 2022, you can download the
-Community version for free from: https://visualstudio.microsoft.com/downloads/.
-
-Launch the Miniforge prompt from the Desktop.
-
-In the shell, initialize the MSVC compiler using:
-
-```bash
-call "C:\Program Files\Microsoft Visual Studio\2022\Community\Common7\Tools\VsDevCmd" -arch=x64
-```
-
-You can optionally test MSVC via:
-
-```bash
-cl /?
-link /?
-```
-
-Both commands must print several pages of help text.
-
-## Build LPython
-
-Clone LPython
-
-```bash
-git clone https://github.com/lcompilers/lpython.git
-cd lpython
-```
-
-### Linux and MacOS
+Some of the goals of LPython include:
 
-- Create a Conda environment using the pre-existing file:
+- Providing the best possible performance for numerical and array-oriented code.
+- Ahead-of-Time, fast compilation to binaries, plus interactive usage (Jupyter notebook).
+- Cross-platform support.
+- Being able to compile a subset of Python yet be fully compatible with it.
+- Transforming Python code to other programming languages like C++ and Fortran.
+- Exploring design patterns so that LPython can eventually compile all Python code.
+- Providing excellent user-friendly diagnostic messages: error, warnings, hints, notes, etc.
 
-```bash
-conda env create -f environment_unix.yml
-conda activate lp
-```
+among many more.
 
-- Generate prerequisite files; build in Debug Mode:
+# Sponsors
 
-```bash
-./build0.sh
-./build1.sh
-```
+LPython has been sponsored by [GSI Technology](https://www.gsitechnology.com/).
+Our summer students were sponsored by Google Summer of Code via Python Software
+Foundation. The intermediate representation and backends are shared with
+LFortran, see that project for a list of sponsors.
 
-### Windows
-
-- Create a Conda environment using the pre-existing file:
-
-```bash
-conda env create -f environment_win.yml
-conda activate lp
-```
-
-- Generate prerequisite files; build in Release Mode:
-
-```bash
-call build0.bat
-call build1.bat
-```
-
-- Tests and examples
-
-```bash
-ctest
-inst\bin\lpython examples\expr2.py
-inst\bin\lpython examples\expr2.py -o a.out
-a.out
-```
-
-## Tests (Linux or MacOs):
-
-Run tests:
-
-```bash
-ctest
-./run_tests.py
-```
-
-Run integration tests:
-
-```bash
-cd integration_tests
-./run_tests.py
-```
-
-### Speed up Integration Test on Macs
+# Installation
 
-Integration tests run slowly because Apple checks the hash of each
-executable online before running. You can turn off that feature
-in the Privacy tab of the Security and Privacy item of System
-Preferences, Developer Tools, Terminal.app, "allow the apps below
-to run software locally that does not meet the system's security
-policy."
+Follow the steps below to install and run LPython on Linux, Windows or macOS.
+
+## Prerequisites
+- ### Install Conda
+  Follow the instructions provided [here](https://github.com/conda-forge/miniforge/#download) to install Conda on your platform (Linux, macOS and Windows) using a conda-forge distribution called Miniforge.
+  
+  For Windows, these are additional requirements:
+  - Miniforge Prompt
+  - Visual Studio (with "Desktop Development with C++" workload)
+
+- ### Set up your system
+    - Linux
+        - Run the following command to install some global build dependencies:
+
+            ```bash
+            sudo apt-get install build-essential binutils-dev clang zlib1g-dev
+            ```
+    - Windows
+        - Download and install [Microsoft Visual Studio Community](https://visualstudio.microsoft.com/downloads/) for free.
+
+        - Run the Visual Studio Installer. Download and install the "Desktop Development with C++" workload which will install the Visual C++ Compiler (MSVC).
+
+        - Launch the Miniforge prompt from the Desktop. It is recommended to use MiniForge instead of Powershell as the main terminal to build and write code for LPython. In the MiniForge Prompt, initialize the MSVC compiler using the below command:
+
+            ```bash
+            call "C:\Program Files\Microsoft Visual Studio\2022\Community\Common7\Tools\VsDevCmd" -arch=x64
+            ```
+
+            You can optionally test MSVC via:
+
+            ```bash
+            cl /?
+            link /?
+            ```
+
+            Both commands must print several pages of help text.
+
+    - Windows with WSL
+        - Install Miniforge Prompt and add it to path:
+            ```bash
+            wget  https://github.com/conda-forge/miniforge/releases/latest/download/Miniforge3-Linux-x86_64.sh -O miniconda.sh
+            bash miniconda.sh -b -p $HOME/conda_root
+            export PATH="$HOME/conda_root/bin:$PATH"
+            conda init bash # (shell name)
+            ```
+        - Open a new terminal window and run the following commands to install dependencies:
+            ```bash
+            conda create -n lp -c conda-forge llvmdev=11.0.1 bison=3.4 re2c python cmake make toml clangdev git
+            ```
+        
+        - Optionally, you can change the directory to a Windows location using `cd /mnt/[drive letter]/[windows location]`. For e.g. - `cd mnt/c/Users/name/source/repos/`.
+
+    
+- ### Clone the LPython repository
+    Make sure you have `git` installed. Type the following command to clone the repository:
+
+    ```bash
+    git clone https://github.com/lcompilers/lpython.git
+    cd lpython
+    git submodule update --init
+    ```
+    
+    You may also use GitHub Desktop to do the same.
+
+## Building LPython
+- ### Linux and macOS
+    - Create a Conda environment:
+
+        ```bash
+        conda env create -f environment_unix.yml
+        conda activate lp
+        ```
+
+    - Generate the prerequisite files and build in Debug Mode:
+
+        ```bash
+        # if you are developing on top of a forked repository; please run following command first
+        # ./generate_default_tag.sh
+
+
+        ./build0.sh
+        ./build1.sh
+        ```
+
+- ### Windows
+    - Create a Conda environment using the pre-existing file:
+
+        ```bash
+        conda env create -f environment_win.yml
+        conda activate lp
+        ```
+
+    - Generate the prerequisite files and build in Release Mode:
+
+        ```bash
+        call build0.bat
+        call build1.bat
+        ```
+- ### Windows with WSL
+
+    - Activate the Conda environment:
+        ```bash
+        conda activate lp
+        ```
+
+    - Run the following commands to build the project:
+        ```bash
+        ./build0.sh
+        cmake -DCMAKE_BUILD_TYPE=Debug -DWITH_LLVM=yes -DCMAKE_INSTALL_PREFIX=`pwd`/inst .\
+        make -j8
+        ```
+Check the [installation-docs](./doc/src/installation.md) for more.
 
-## Examples (Linux or MacOs)
+## Contributing
 
-You can run the following examples by hand in a terminal:
+We welcome contributions from anyone, even if you are new to compilers or open source in general.
+It might sound daunting at first to contribute to a compiler, but do not worry, it is not that complicated.
+We will help you with any technical issues you face and provide support so your contribution gets merged.
 
-```bash
-./src/bin/lpython examples/expr2.py
-./src/bin/lpython examples/expr2.py -o expr
-./expr
-./src/bin/lpython --show-ast examples/expr2.py
-./src/bin/lpython --show-asr examples/expr2.py
-./src/bin/lpython --show-cpp examples/expr2.py
-./src/bin/lpython --show-llvm examples/expr2.py
-./src/bin/lpython --show-c examples/expr2.py
-```
+To contribute, submit a Pull Request (PR) against our repository at: https://github.com/lcompilers/lpython
 
-## Contributing
+Do not forget to clean your history, see [example](./doc/src/rebasing.md).
 
-We welcome contributions from anyone, even if you are new to compilers or to
-open source. It might sound daunting to contribute to a compiler at first, but
-please do, it is not complicated. We will help you with technical issues and
-help improve your contribution so that it can be merged.
+See the [CONTRIBUTING](CONTRIBUTING.md) document for more information.
 
-To contribute, submit a Pull Request (PR) against our repository at:
+## Found a bug?
+Please report any bugs you find at our issue tracker [here](https://github.com/lcompilers/lpython/issues). Or, even better, fork the repository on GitHub and create a Pull Request (PR). 
 
-https://github.com/lcompilers/lpython
+We welcome all changes, big or small. We will help you make a PR if you are new to git.
 
-and don't forget to clean your history, see [example](./doc/src/rebasing.md).
+If you have any questions or need help, please ask us at [Zulip](https://lfortran.zulipchat.com/) or on our [mailinglist](https://groups.io/g/lfortran).
 
-Please report any bugs you may find at our issue tracker:
-https://github.com/lcompilers/lpython/issues. Or, even better, fork the
-repository on GitHub and create a PR. We welcome all changes, big or small, and
-we will help you make a PR if you are new to git.
 
-If you have any questions or need help, please ask us at Zulip ([![project
-chat](https://img.shields.io/badge/zulip-join_chat-brightgreen.svg)](https://lfortran.zulipchat.com/))
-or our [mailinglist](https://groups.io/g/lfortran).
+# Star History
 
-See the [CONTRIBUTING](CONTRIBUTING.md) document for more information.
+[![Star History Chart](https://api.star-history.com/svg?repos=lcompilers/lpython&type=Date)](https://star-history.com/#lcompilers/lpython&Date)
diff --git a/appveyor.yml b/appveyor.yml
deleted file mode 100644
index a12bb34a57..0000000000
--- a/appveyor.yml
+++ /dev/null
@@ -1,24 +0,0 @@
-image: Visual Studio 2017
-# List of preinstalled software in the image:
-# https://www.appveyor.com/docs/windows-images-software/
-
-build_script:
-- set CONDA_INSTALL_LOCN=C:\\Miniconda37-x64
-- call %CONDA_INSTALL_LOCN%\Scripts\activate.bat
-- call conda config --set always_yes yes --set changeps1 no
-- call conda info -a
-- call conda update -q conda
-- call conda install -c conda-forge python=3.7 re2c m2-bison xonsh llvmdev=11.1.0 jupyter xeus=1.0.1 xtl nlohmann_json cppzmq jupyter_kernel_test pytest
-- set CONDA_PREFIX=C:\\Miniconda37-x64
-- set WIN=1
-- set MACOS=0
-#- set LFORTRAN_CMAKE_GENERATOR=Visual Studio 15 2017 Win64
-- set LFORTRAN_CMAKE_GENERATOR=Ninja
-- call "C:\Program Files (x86)\Microsoft Visual Studio\2017\Community\Common7\Tools\VsDevCmd" -arch=x64
-- xonsh ci\build.xsh
-
-# Uncomment the following two lines to be able to login to the build worker. You
-# can use the `remmina` program in Ubuntu, use the login information that the
-# line below prints into the log.
-#on_finish:
-#- ps: $blockRdp = $true; iex ((new-object net.webclient).DownloadString('https://raw.githubusercontent.com/appveyor/ci/master/scripts/enable-rdp.ps1'))
diff --git a/build.sh b/build.sh
new file mode 100755
index 0000000000..0bae93e4a9
--- /dev/null
+++ b/build.sh
@@ -0,0 +1,4 @@
+#!/usr/bin/env bash
+
+./build0.sh
+./build1.sh
diff --git a/build0.sh b/build0.sh
index d1f1c279e8..be9237dad2 100755
--- a/build0.sh
+++ b/build0.sh
@@ -1,7 +1,6 @@
 #!/usr/bin/env bash
 
-set -e
-set -x
+set -ex
 
 # Generate the `version` file
 ci/version.sh
@@ -9,15 +8,22 @@ ci/version.sh
 # Generate a Python AST from Python.asdl (Python)
 python grammar/asdl_py.py
 # Generate a Python AST from Python.asdl (C++)
-python src/libasr/asdl_cpp.py grammar/Python.asdl src/lpython/python_ast.h
+python libasr/src/libasr/asdl_cpp.py grammar/Python.asdl src/lpython/python_ast.h
 # Generate a Fortran ASR from ASR.asdl (C++)
-python src/libasr/asdl_cpp.py src/libasr/ASR.asdl src/libasr/asr.h
-# Generate a wasm_visitor.h from src/libasr/wasm_instructions.txt (C++)
-python src/libasr/wasm_instructions_visitor.py
+python libasr/src/libasr/asdl_cpp.py libasr/src/libasr/ASR.asdl libasr/src/libasr/asr.h
+# Generate a wasm_visitor.h from libasr/src/libasr/wasm_instructions.txt (C++)
+python libasr/src/libasr/wasm_instructions_visitor.py
+# Generate the intrinsic_function_registry_util.h (C++)
+python libasr/src/libasr/intrinsic_func_registry_util_gen.py
 
 # Generate the tokenizer and parser
 (cd src/lpython/parser && re2c -W -b tokenizer.re -o tokenizer.cpp)
 (cd src/lpython/parser && bison -Wall -d -r all parser.yy)
 
+python -c "file = 'src/lpython/parser/parser.tab.cc'
+with open(file, 'r') as f: text = f.read()
+with open(file, 'w') as f:
+    f.write('[[maybe_unused]] int yynerrs'.join(text.split('int yynerrs')))"
+
 grep -n "'" src/lpython/parser/parser.yy && echo "Single quote not allowed" && exit 1
 echo "OK"
diff --git a/build0_win.xsh b/build0_win.xsh
index 8530d835ba..c2a86883d9 100644
--- a/build0_win.xsh
+++ b/build0_win.xsh
@@ -7,11 +7,13 @@ echo @(version) > version
 # Generate a Python AST from Python.asdl (Python)
 python grammar/asdl_py.py
 # Generate a Python AST from Python.asdl (C++)
-python src/libasr/asdl_cpp.py grammar/Python.asdl src/lpython/python_ast.h
+python libasr/src/libasr/asdl_cpp.py grammar/Python.asdl src/lpython/python_ast.h
 # Generate a Fortran ASR from ASR.asdl (C++)
-python src/libasr/asdl_cpp.py src/libasr/ASR.asdl src/libasr/asr.h
-# Generate a wasm_visitor.h from src/libasr/wasm_instructions.txt (C++)
-python src/libasr/wasm_instructions_visitor.py
+python libasr/src/libasr/asdl_cpp.py libasr/src/libasr/ASR.asdl libasr/src/libasr/asr.h
+# Generate a wasm_visitor.h from libasr/src/libasr/wasm_instructions.txt (C++)
+python libasr/src/libasr/wasm_instructions_visitor.py
+# Generate the intrinsic_function_registry_util.h (C++)
+python libasr/src/libasr/intrinsic_func_registry_util_gen.py
 
 # Generate the tokenizer and parser
 pushd src/lpython/parser && re2c -W -b tokenizer.re -o tokenizer.cpp && popd
diff --git a/build_to_wasm.sh b/build_to_wasm.sh
index 6eb3b49cf1..2d11afb250 100755
--- a/build_to_wasm.sh
+++ b/build_to_wasm.sh
@@ -3,9 +3,15 @@
 set -e
 set -x
 
+mkdir -p src/bin/asset_dir
+cp src/runtime/*.py src/bin/asset_dir
+cp -r src/runtime/lpython src/bin/asset_dir
+
+./build0.sh
 emcmake cmake \
-    -DCMAKE_BUILD_TYPE=Debug \
+    -DCMAKE_BUILD_TYPE=Release \
     -DCMAKE_CXX_FLAGS_DEBUG="-Wall -Wextra -fexceptions" \
+    -DCMAKE_CXX_FLAGS_RELEASE="-Wall -Wextra -fexceptions" \
     -DWITH_LLVM=no \
     -DLPYTHON_BUILD_ALL=yes \
     -DLPYTHON_BUILD_TO_WASM=yes \
diff --git a/ci/azure_install_macos.sh b/ci/azure_install_macos.sh
deleted file mode 100755
index 5012f14ae7..0000000000
--- a/ci/azure_install_macos.sh
+++ /dev/null
@@ -1,14 +0,0 @@
-#!/usr/bin/env bash
-
-set -ex
-
-conda config --set always_yes yes --set changeps1 no
-conda info -a
-conda update -q conda
-conda install -c conda-forge python=3.8 re2c bison=3.4 m4 xonsh llvmdev=11.0.1 toml cmake=3.17.0 jupyter pytest xeus=1.0.1 xtl nlohmann_json cppzmq jupyter_kernel_test
-export MACOSX_DEPLOYMENT_TARGET="10.12"
-export CONDA_PREFIX=/usr/local/miniconda
-export LFORTRAN_CMAKE_GENERATOR="Unix Makefiles"
-export WIN=0
-export MACOS=1
-xonsh ci/build.xsh
diff --git a/ci/build.xsh b/ci/build.xsh
index fb2d9233c2..bdab77d1b9 100755
--- a/ci/build.xsh
+++ b/ci/build.xsh
@@ -27,19 +27,21 @@ llvm-config --components
 bash ci/version.sh
 
 # Generate a Fortran ASR from ASR.asdl (C++)
-python src/libasr/asdl_cpp.py src/libasr/ASR.asdl src/libasr/asr.h
+python libasr/src/libasr/asdl_cpp.py libasr/src/libasr/ASR.asdl libasr/src/libasr/asr.h
 # Generate a Python AST from Python.asdl (C++)
-python src/libasr/asdl_cpp.py grammar/Python.asdl src/lpython/python_ast.h
+python libasr/src/libasr/asdl_cpp.py grammar/Python.asdl src/lpython/python_ast.h
 # Generate a Python AST from Python.asdl (Python)
 python grammar/asdl_py.py
-# Generate a wasm_visitor.h from src/libasr/wasm_instructions.txt (C++)
-python src/libasr/wasm_instructions_visitor.py
+# Generate a wasm_visitor.h from libasr/src/libasr/wasm_instructions.txt (C++)
+python libasr/src/libasr/wasm_instructions_visitor.py
+# Generate the intrinsic_function_registry_util.h (C++)
+python libasr/src/libasr/intrinsic_func_registry_util_gen.py
 
 # Generate the tokenizer and parser
 pushd src/lpython/parser && re2c -W -b tokenizer.re -o tokenizer.cpp && popd
 pushd src/lpython/parser && bison -Wall -d -r all parser.yy && popd
 
-$lpython_version=$(cat version).strip()
+$lpython_version=$(cat lp_version).strip()
 $dest="lpython-" + $lpython_version
 bash ci/create_source_tarball0.sh
 tar xzf dist/lpython-$lpython_version.tar.gz
diff --git a/ci/create_source_tarball.sh b/ci/create_source_tarball.sh
index f1bfb4b4b7..aaf9b8e5ee 100755
--- a/ci/create_source_tarball.sh
+++ b/ci/create_source_tarball.sh
@@ -2,6 +2,6 @@
 
 set -ex
 
-lfortran_version=$1
-export dest=lfortran-$lfortran_version
+lpython_version=$1
+export dest=lpython-$lpython_version
 bash -x -o errexit ci/create_source_tarball0.sh
diff --git a/ci/create_source_tarball0.sh b/ci/create_source_tarball0.sh
index bffa0f3584..ff8d6ab7db 100755
--- a/ci/create_source_tarball0.sh
+++ b/ci/create_source_tarball0.sh
@@ -9,9 +9,10 @@ cmake -E copy_directory src $dest/src
 cmake -E copy_directory share $dest/share
 cmake -E copy_directory cmake $dest/cmake
 cmake -E copy_directory examples $dest/examples
+cmake -E copy_directory libasr/src/libasr $dest/libasr/src/libasr
 
 # Copy Files:
-cmake -E copy CMakeLists.txt README.md LICENSE version $dest
+cmake -E copy CMakeLists.txt README.md LICENSE lp_version $dest
 
 # Create the tarball
 cmake -E make_directory dist
diff --git a/ci/environment.yml b/ci/environment.yml
index b9b7fd715f..db5ded2261 100644
--- a/ci/environment.yml
+++ b/ci/environment.yml
@@ -4,19 +4,19 @@ channels:
   - defaults
 dependencies:
   - llvmdev=11.1.0
-  - toml
-  - pytest
-  - jupyter
-  - xeus=1.0.1
-  - xtl
-  - nlohmann_json
-  - cppzmq
-  - jupyter_kernel_test
-  - xonsh
-  - re2c
-  - numpy
-  - zlib
-  - ninja
-  - rapidjson
+  - toml=0.10.2
+  - pytest=7.2.0
+  - jupyter=1.0.0
+  - xeus=5.1.0
+  - xeus-zmq=3.0.0
+  - nlohmann_json=3.11.3
+  - jupyter_kernel_test=0.4.4
+  - xonsh=0.13.3
+  - re2c=2.2
+  - numpy=1.26.4
+  - zlib=1.3.1
+  - zstd=1.5.6
+  - ninja=1.11.0
+  - rapidjson=1.1.0
 #  - bison=3.4  [not win]
 #  - m2-bison=3.4  [win]
diff --git a/ci/environment_linux_llvm.yml b/ci/environment_linux_llvm.yml
new file mode 100644
index 0000000000..ffe4ddd2a9
--- /dev/null
+++ b/ci/environment_linux_llvm.yml
@@ -0,0 +1,20 @@
+name: lp
+channels:
+  - conda-forge
+  - defaults
+dependencies:
+  - git
+  - pip
+  - make
+  - re2c
+  - toml
+  - zlib
+  - cmake
+  - numpy
+  - flake8
+  - setuptools
+  - bison=3.4
+  - python=3.10.2
+  - zstd-static=1.5
+  - symengine=0.12.0
+  - sympy=1.11.1
diff --git a/ci/test.xsh b/ci/test.xsh
index 50622fd55f..23285e1ed9 100644
--- a/ci/test.xsh
+++ b/ci/test.xsh
@@ -13,14 +13,21 @@ src/bin/lpython -o expr2 expr2.o
 # Test the new Python frontend, manually for now:
 src/bin/lpython --show-ast tests/doconcurrentloop_01.py
 src/bin/lpython --show-asr tests/doconcurrentloop_01.py
-src/bin/lpython --show-cpp tests/doconcurrentloop_01.py
+# src/bin/lpython --show-cpp tests/doconcurrentloop_01.py
 
 if $WIN == "1":
     python run_tests.py --skip-run-with-dbg --no-color
 else:
     python run_tests.py
+    src/bin/lpython examples/expr2.py
+    src/bin/lpython --backend=c examples/expr2.py
     cd integration_tests
-    python run_tests.py -j16 -b llvm cpython c wasm
 
     if $(uname).strip() == "Linux":
+        python run_tests.py -j16 -b llvm cpython c wasm
+        python run_tests.py -j16 -b llvm cpython c wasm -f
         python run_tests.py -j16 -b x86 wasm_x86 wasm_x64
+        python run_tests.py -j16 -b x86 wasm_x86 wasm_x64 -f
+    else:
+        python run_tests.py -j1 -b llvm cpython c wasm
+        python run_tests.py -j1 -b llvm cpython c wasm -f
diff --git a/ci/upload_tarball_to_release.sh b/ci/upload_tarball_to_release.sh
new file mode 100755
index 0000000000..cc8f1e1c32
--- /dev/null
+++ b/ci/upload_tarball_to_release.sh
@@ -0,0 +1,23 @@
+#!/usr/bin/env bash
+
+set -ex
+
+lpython_version=$(<version)
+
+cd ./dist
+
+
+RELEASE_ID=$(\
+curl -s 'https://api.github.com/repos/lcompilers/lpython/releases/latest' | \
+python -c "import sys, json; print(json.load(sys.stdin)['id'], end='')")
+
+echo "RELEASE_ID=$RELEASE_ID"
+
+curl --fail -L \
+-X POST \
+-H "Accept: application/vnd.github+json" \
+-H "Authorization: Bearer $GITHUB_TOKEN" \
+-H "X-GitHub-Api-Version: 2022-11-28" \
+-H "Content-Type: application/octet-stream" \
+"https://uploads.github.com/repos/lcompilers/lpython/releases/$RELEASE_ID/assets?name=lpython-${lpython_version}.tar.gz" \
+--data-binary "@lpython-${lpython_version}.tar.gz"
\ No newline at end of file
diff --git a/ci/version.sh b/ci/version.sh
index 9b823595bc..df725a1ffb 100755
--- a/ci/version.sh
+++ b/ci/version.sh
@@ -15,4 +15,4 @@ set -ex
 
 version=$(git describe --tags --dirty)
 version="${version:1}"
-echo $version > version
+echo $version > lp_version
diff --git a/cmake/UserOverride.cmake b/cmake/UserOverride.cmake
index 3139f24c87..5c50301187 100644
--- a/cmake/UserOverride.cmake
+++ b/cmake/UserOverride.cmake
@@ -9,7 +9,12 @@
 if (CMAKE_CXX_COMPILER_ID STREQUAL "GNU")
     # g++
     set(common "-Wall -Wextra")
-    set(CMAKE_CXX_FLAGS_RELEASE_INIT "${common} -O3 -march=native -funroll-loops -DNDEBUG")
+    if (CMAKE_SYSTEM_PROCESSOR MATCHES "ppc|powerpc")
+        set(native "-mtune=native")
+    else ()
+        set(native "-march=native")
+    endif ()
+    set(CMAKE_CXX_FLAGS_RELEASE_INIT "${common} -O3 ${native} -funroll-loops -DNDEBUG")
     set(CMAKE_CXX_FLAGS_DEBUG_INIT   "${common} -g -ggdb")
 elseif (CMAKE_CXX_COMPILER_ID STREQUAL "Intel")
     # icpc
diff --git a/doc/src/asr/asr_nodes/expression_nodes/IntrinsicFunction.md b/doc/src/asr/asr_nodes/expression_nodes/IntrinsicFunction.md
new file mode 100644
index 0000000000..f5c53c6c7b
--- /dev/null
+++ b/doc/src/asr/asr_nodes/expression_nodes/IntrinsicFunction.md
@@ -0,0 +1,107 @@
+# IntrinsicFunction
+
+An intrinsic function. An **expr** node.
+
+## Declaration
+
+### Syntax
+
+```
+IntrinsicFunction(expr* args, int intrinsic_id, int overload_id,
+    ttype type, expr? value)
+```
+
+### Arguments
+
+* `args` represents all arguments passed to the function
+* `intrinsic_id` is the unique ID of the generic intrinsic function
+* `overload_id` is the ID of the signature within the given generic function
+* `type` represents the type of the output
+* `value` is an optional compile time value
+
+### Return values
+
+The return value is the expression that the `IntrinsicFunction` represents.
+
+## Description
+
+**IntrinsicFunction** represents an intrinsic function (such as `Abs`,
+`Modulo`, `Sin`, `Cos`, `LegendreP`, `FlipSign`, ...) that either the backend
+or the middle-end (optimizer) needs to have some special logic for. Typically a
+math function, but does not have to be.
+
+IntrinsicFunction is both side-effect-free (no writes to global variables) and
+deterministic (no reads from global variables). They are also elemental: can be
+vectorized over any argument(s). They can be used inside parallel code and
+cached.
+
+The `intrinsic_id` determines the generic function uniquely (`Sin` and `Abs`
+have different number, but `IntegerAbs` and `RealAbs` share the number) and
+`overload_id` uniquely determines the signature starting from 0 for each
+generic function (e.g., `IntegerAbs`, `RealAbs` and `ComplexAbs` can have
+`overload_id` equal to 0, 1 and 2, and `RealSin`, `ComplexSin` can be 0, 1).
+
+Backend use cases: Some architectures have special hardware instructions for
+operations like Sqrt or Sin and if they are faster than a software
+implementation, the backend will use it. This includes the `FlipSign` function
+which is our own "special function" that the optimizer emits for certain
+conditional floating point operations, and the backend emits an efficient bit
+manipulation implementation for architectures that support it.
+
+Middle-end use cases: the middle-end can use the high level semantics to
+simplify, such as `sin(e)**2 + cos(e)**2 -> 1`, or it could approximate
+expressions like `if (abs(sin(x) - 0.5) < 0.3)` with a lower accuracy version
+of `sin`.
+
+We provide ASR -> ASR lowering transformations that substitute the given
+intrinsic function with an ASR implementation using more primitive ASR nodes,
+typically implemented in the surface language (say a `sin` implementation using
+argument reduction and a polynomial fit, or a `sqrt` implementation using a
+general power formula `x**(0.5)`, or `LegendreP(2,x)` implementation using a
+formula `(3*x**2-1)/2`).
+
+This design also makes it possible to allow selecting using command line
+options how certain intrinsic functions should be implemented, for example if
+trigonometric functions should be implemented using our own fast
+implementation, `libm` accurate implementation, we could also call into other
+libraries. These choices should happen at the ASR level, and then the result
+further optimized (such as inlined) as needed.
+
+## Types
+
+The argument types in `args` have the types of the corresponding signature as
+determined by `intrinsic_id`. For example `IntegerAbs` accepts an integer, but
+`RealAbs` accepts a real.
+
+## Examples
+
+The following example code creates `IntrinsicFunction` ASR node:
+
+```fortran
+sin(0.5)
+```
+
+ASR:
+
+```
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+        })
+    [(IntrinsicFunction
+        [(RealConstant
+            0.500000
+            (Real 4 [])
+        )]
+        0
+        0
+        (Real 4 [])
+        (RealConstant 0.479426 (Real 4 []))
+    )]
+)
+```
+
+## See Also
+
+[FunctionCall]()
\ No newline at end of file
diff --git a/doc/src/built-in functions.md b/doc/src/built-in functions.md
new file mode 100644
index 0000000000..b9804b5c28
--- /dev/null
+++ b/doc/src/built-in functions.md	
@@ -0,0 +1,147 @@
+# Built-in Functions
+
+LPython has a variety of functions and types built into it that are always available.
+
+### abs(x)
+
+- **Parameter**
+    - x : integer (i8, i16, i32, i64), floating point number (f32, f64), complex number (c32, c64) or bool
+- **Returns** : integer (i8, i16, i32, i64), floating point number (f32, f64)
+
+Returns the absolute value of a number. If the argument is a complex number, its magnitude is returned.
+
+
+### bin(n)
+
+- **Parameters**
+    - n : integer (i32)
+- **Returns** : str
+
+Returns the binary representation of n as a '0b' prefixed string.
+
+
+### complex(x=0, y=0)
+
+- **Parameters**
+    - x : integer (i32, i64) or floating point number (f32, f64)
+    - y : integer (i32, i64) or floating point number (f32, f64)
+- **Returns** : complex number (c32, c64)
+
+Returns a complex number with the provided real and imaginary parts. Both x and y should be of the same type. However, using both the 32-bit and 64-bit versions of the same type together is allowed. In that case, the returned complex number is of 64-bit type.
+
+Example:
+
+```python
+real: i32 = 10
+imag: i64 = 22
+c: c64 = complex(real, imag)
+```
+
+### divmod(x, y)
+
+- **Parameters**
+    - x : integer (i32)
+    - y : integer (i32)
+- **Returns** : tuple[i32, i32]
+
+Returns the tuple (x // y, x % y).
+
+
+### exp(x)
+
+- ****Parameter****
+    - x : floating point number (f32, f64)
+- **Returns** : floating point number (f32, f64) between [0.0, inf]
+
+Returns the base-e exponential of x (e<sup>x</sup>), where e is the Euler's number (2.71828). For a very large output, the function returns **inf** indicating overflow.
+
+
+### hex(n)
+
+- **Parameters**
+    - n : integer (i32)
+- **Returns** : str
+
+Returns the hexadecimal representation of n as a '0x' prefixed string.
+
+
+### len(s)
+
+- **Parameters**
+    - s : sequence (such as string, tuple, list or range) or collection (such as a dictionary or set)
+- **Returns** : integer (i32)
+
+Returns the number of items present in an object.
+
+
+### max(x, y)
+
+- **Parameters**
+    - x : integer (i32) or floating point number (f64)
+    - y : integer (i32) or floating point number (f64)
+- **Returns** : integer (i32) or floating point number (f64)
+
+Returns the greater value between x and y. Both x and y should be of the same type.
+
+
+### min(x, y)
+
+- **Parameters**
+    - x : integer (i32) or floating point number (f64)
+    - y : integer (i32) or floating point number (f64)
+- **Returns** : integer (i32) or floating point number (f64)
+
+Returns the smaller value between x and y. Both x and y should be of the same type.
+
+
+### mod(x, y)
+
+- **Parameters**
+    - x : integer (i32, i64) or floating point number (f32, f64)
+    - y : integer (i32, i64) or floating point number (f32, f64)
+- **Returns** : integer (i32, i64) or floating point number (f32, f64)
+
+Returns the remainder of x / y, or x when x is smaller than y. Both x and y should be of the same type.
+
+
+### pow(x, y)
+
+- **Parameters**
+    - x : integer (i32, i64), floating point number (f32, f64), complex number (c32) or bool
+    - y: integer (i32, i64), floating point number (f32, f64) or bool
+- **Returns** : integer (i32), floating point number (f32, f64) or a complex number
+
+Returns x<sup>y</sup>. When x is of type bool, y must also be of the same type. If x is 32-bit complex number (c32), y can only be a 32-bit integer (i32).
+
+**Note** : `x ** y` is the recommended method for doing the above calculation.
+
+
+### round(x)
+
+- **Parameters**
+    - x : integer (i8, i16, i32, i64), floating point number (f32, f64) or bool
+- **Returns** : integer (i8, i16, i32, i64)
+
+Returns the integer nearest to x.
+
+
+### sum(arr)
+
+- **Parameters**
+    - arr : list of integers (list[i32], list[i64]) or floating point numbers (list[i32], list[f64])
+- **Returns** : integer (i32, i64) or floating point number (f32, f64)
+
+Returns the sum of all elements present in the list.
+
+
+### oct(n)
+
+- **Parameters**
+    - n : integer (i32)
+- **Returns** : str
+
+Returns the octal representation of n as a '0o' prefixed string.
+
+
+
+
diff --git a/doc/src/design.md b/doc/src/design.md
index d7510e6c29..d477039a0b 100644
--- a/doc/src/design.md
+++ b/doc/src/design.md
@@ -91,7 +91,7 @@ ASR is the simplest way to generate Fortran code, as one does not
 have to worry about the detailed syntax (as in AST) about how and where
 things are declared. One specifies the symbol table for a module, then for
 each symbol (functions, global variables, types, ...) one specifies the local
-variables and if this is an interface then one needs to specify where one can
+variables and if this is an interface then one must specify where one can
 find an implementation, otherwise a body is supplied with statements, those
 nodes are almost the same as in AST, except that each variable is just a
 reference to a symbol in the symbol table (so by construction one cannot have
diff --git a/doc/src/developers_example.ipynb b/doc/src/developers_example.ipynb
new file mode 100644
index 0000000000..c63754c8f0
--- /dev/null
+++ b/doc/src/developers_example.ipynb
@@ -0,0 +1,67 @@
+{
+ "cells": [
+  {
+   "cell_type": "code",
+   "execution_count": null,
+   "id": "c86338ac-53ca-4115-8c5a-8bf8a5c7113e",
+   "metadata": {},
+   "outputs": [],
+   "source": [
+    "%%showast\n",
+    "def add(x: i32, y: i32) -> i32:\n",
+    "    return x + y"
+   ]
+  },
+  {
+   "cell_type": "code",
+   "execution_count": null,
+   "id": "23834b08-2f3f-45e7-a1ce-21a9fd4e5117",
+   "metadata": {},
+   "outputs": [],
+   "source": [
+    "%%showasr\n",
+    "def add(x: i32, y: i32) -> i32:\n",
+    "    return x + y"
+   ]
+  },
+  {
+   "cell_type": "code",
+   "execution_count": null,
+   "id": "ec7426b4-e2e5-416c-bcae-9bb9c8926c9b",
+   "metadata": {},
+   "outputs": [],
+   "source": [
+    "%%showllvm\n",
+    "def sub(x: i32, y: i32) -> i32:\n",
+    "    return add(x, -y)"
+   ]
+  },
+  {
+   "cell_type": "code",
+   "execution_count": null,
+   "id": "716c56ef-8210-4daf-aa23-96b385801014",
+   "metadata": {},
+   "outputs": [],
+   "source": [
+    "%%showasm\n",
+    "def mul(x: i32, y: i32) -> i32:\n",
+    "    return x * y"
+   ]
+  }
+ ],
+ "metadata": {
+  "kernelspec": {
+   "display_name": "LPython",
+   "language": "python",
+   "name": "lpython"
+  },
+  "language_info": {
+   "file_extension": ".f90",
+   "mimetype": "text/x-python",
+   "name": "python",
+   "version": "2018"
+  }
+ },
+ "nbformat": 4,
+ "nbformat_minor": 5
+}
diff --git a/doc/src/installation.md b/doc/src/installation.md
index af9e91fe83..a6bdd9250e 100644
--- a/doc/src/installation.md
+++ b/doc/src/installation.md
@@ -1,146 +1,210 @@
 # Installation
 
-All the instructions below work on Linux, macOS and Windows.
+Follow the steps below to install and run LPython on Linux, Windows or macOS.
+
+## Prerequisites
+- ### Install Conda
+  Follow the instructions provided [here](https://github.com/conda-forge/miniforge/#download) to install Conda on your platform (Linux, macOS and Windows) using a conda-forge distribution called Miniforge.
+  
+  For Windows, these are additional requirements:
+  - Miniforge Prompt
+  - Visual Studio (with "Desktop Development with C++" workload)
+
+- ### Set up your system
+    - Linux
+        - Run the following command to install some global build dependencies:
+
+            ```bash
+            sudo apt-get install build-essential binutils-dev clang zlib1g-dev
+            ```
+    - Windows
+        - Download and install [Microsoft Visual Studio Community](https://visualstudio.microsoft.com/downloads/) for free.
+
+        - Run the Visual Studio Installer. Download and install the "Desktop Development with C++" workload which will install the Visual C++ Compiler (MSVC).
+
+        - Launch the Miniforge prompt from the Desktop. It is recommended to use MiniForge instead of Powershell as the main terminal to build and write code for LPython. In the MiniForge Prompt, initialize the MSVC compiler using the below command:
+
+            ```bash
+            call "C:\Program Files\Microsoft Visual Studio\2022\Community\Common7\Tools\VsDevCmd" -arch=x64
+            ```
+
+            You can optionally test MSVC via:
+
+            ```bash
+            cl /?
+            link /?
+            ```
+
+            Both commands must print several pages of help text.
+
+    - Windows with WSL
+        - Install Miniforge Prompt and add it to path:
+            ```bash
+            wget  https://github.com/conda-forge/miniforge/releases/latest/download/Miniforge3-Linux-x86_64.sh -O miniconda.sh
+            bash miniconda.sh -b -p $HOME/conda_root
+            export PATH="$HOME/conda_root/bin:$PATH"
+            conda init bash # (shell name)
+            ```
+        - Open a new terminal window and run the following commands to install dependencies:
+            ```bash
+            conda create -n lp -c conda-forge llvmdev=11.0.1 bison=3.4 re2c python cmake make toml clangdev git
+            ```
+        
+        - Optionally, you can change the directory to a Windows location using `cd /mnt/[drive letter]/[windows location]`. For e.g. - `cd mnt/c/Users/name/source/repos/`.
+
+    
+- ### Clone the LPython repository
+    Make sure you have `git` installed. Type the following command to clone the repository:
+
+    ```bash
+    git clone https://github.com/lcompilers/lpython.git
+    cd lpython
+    git submodule update --init
+    ```
+    
+    You may also use GitHub Desktop to do the same.
+
+## Building LPython
+- ### Linux and macOS
+    - Create a Conda environment:
+
+        ```bash
+        conda env create -f environment_unix.yml
+        conda activate lp
+        ```
 
-## Binaries
+    - Generate the prerequisite files and build in Debug Mode:
 
-The recommended way to install LFortran is using Conda.
-Install Conda for example by installing the
-[Miniconda](https://conda.io/en/latest/miniconda.html) installation by following instructions there for your platform.
-Then create a new environment (you can choose any name, here we chose `lf`) and
-activate it:
-```bash
-conda create -n lp
-conda activate lp
-```
-Then install LFortran by:
-```bash
-conda install lfortran -c conda-forge
-```
-Now the `lf` environment has the `lfortran` compiler available, you can start the
-interactive prompt by executing `lfortran`, or see the command line options using
-`lfortran -h`.
+        ```bash
+        # if you are developing on top of a forked repository; please run following command first
+        # ./generate_default_tag.sh
 
-The Jupyter kernel is automatically installed by the above command, so after installing Jupyter itself:
-```bash
-conda install jupyter -c conda-forge
-```
-You can create a Fortran based Jupyter notebook by executing:
-```bash
-jupyter notebook
-```
-and selecting `New->Fortran`.
 
+        ./build0.sh
+        ./build1.sh
+        ```
+
+- ### Windows
+    - Create a Conda environment using the pre-existing file:
 
-## Build From a Source Tarball
+        ```bash
+        conda env create -f environment_win.yml
+        conda activate lp
+        ```
 
-This method is the recommended method if you just want to install LFortran, either yourself or in a package manager (Spack, Conda, Debian, etc.). The source tarball has all the generated files included and has minimal dependencies.
+    - Generate the prerequisite files and build in Release Mode:
 
-First we have to install dependencies, for example using Conda:
-```bash
-conda create -n lf python cmake llvmdev
-conda activate lf
-```
-Then download a tarball from 
-[https://lfortran.org/download/](https://lfortran.org/download/),
-e.g.:
-```bash
-wget https://lfortran.github.io/tarballs/dev/lfortran-0.9.0.tar.gz
-tar xzf lfortran-0.9.0.tar.gz
-cd lfortran-0.9.0
-```
-And build:
-```
-cmake -DWITH_LLVM=yes -DCMAKE_INSTALL_PREFIX=`pwd`/inst .
-make -j8
-make install
-```
-This will install the `lfortran` into the `inst/bin`.
+        ```bash
+        call build0.bat
+        call build1.bat
+        ```
+- ### Windows with WSL
 
-## Build From Git
+    - Activate the Conda environment:
+        ```bash
+        conda activate lp
+        ```
 
-We assume you have C++ compilers installed, as well as `git` and `wget`.
-In Ubuntu, you can also install `binutils-dev` for stacktraces.
+    - Run the following commands to build the project:
+        ```bash
+        ./build0.sh
+        cmake -DCMAKE_BUILD_TYPE=Debug -DWITH_LLVM=yes -DCMAKE_INSTALL_PREFIX=`pwd`/inst .\
+        make -j8
+        ```
 
-If you do not have Conda installed, you can do so on Linux (and similarly on
-other platforms):
-```bash
-wget --no-check-certificate https://repo.continuum.io/miniconda/Miniconda3-latest-Linux-x86_64.sh -O miniconda.sh
-bash miniconda.sh -b -p $HOME/conda_root
-export PATH="$HOME/conda_root/bin:$PATH"
-```
-Then prepare the environment:
-```bash
-conda create -n lp -c conda-forge llvmdev=11.0.1 bison=3.4 re2c python cmake make toml numpy
-conda activate lp
-```
-Clone the LFortran git repository:
-```
-git clone https://gitlab.com/lfortran/lfortran.git
-cd lfortran
-```
-Generate files that are needed for the build (this step depends on `re2c`, `bison` and `python`):
-```bash
-./build0.sh
-```
-Now the process is the same as installing from the source tarball. For example to build in Debug mode:
-```
-cmake -DCMAKE_BUILD_TYPE=Debug -DWITH_LLVM=yes -DCMAKE_INSTALL_PREFIX=`pwd`/inst .
-make -j8
-```
+## Tests
 
-Run tests:
-```bash
-ctest
-./run_tests.py
-```
-Run an interactive prompt:
-```bash
-./src/bin/lfortran
-```
+- ### Linux and macOS
 
-## Build on Windows with Visual Studio
+    - Run tests:
 
-Install Conda for example by installing the Miniconda installation by following instructions there for your platform. If not already done, activate the Conda-Installation (cf. Conda installation instructions).
+        ```bash
+        ctest
+        ./run_tests.py
+        ```
 
-First, clone the repo to a local folder.
+    - Update test references:
+        ```
+        ./run_tests.py -u
+        ```
 
-Launch a Conda command interpreter and run the following commands:
-```bash
-conda update -q conda
-conda install -c conda-forge python=3.7 re2c m2-bison xonsh llvmdev=11.1.0 jupyter xeus=1.0.1 xtl nlohmann_json cppzmq jupyter_kernel_test pytest
-```
-Next, `cd` to the root of the repository and run
-```bash
-.\build0.bat
-```
+    - Run integration tests:
+
+        ```bash
+        cd integration_tests
+        ./run_tests.py
+        ```
+    - In case you have recently updated macOS, you may get a warning like below in some test cases:
+        ```bash
+        ld: warning: object file (test_list_index2.out.tmp.o) was built for newer macOS version (14.0) than being linked (13.3)
+        ```
+        This leads to mismatch of hashes with expected output in some test cases, this can be resolved by updating command line tools:
+
+        ```bash
+        git clean -dfx
+        sudo rm -rf /Library/Developer/CommandLineTools # make sure you know what you're doing here
+        sudo xcode-select --install
+        ./build.sh
+        ./run_tests.py
+        ```
+
+    - Speed up Integration Tests on macOS
+
+        Integration tests run slowly because Apple checks the hash of each
+        executable online before running.
+
+        You can turn off that feature in the Privacy tab of the Security and Privacy item of System Preferences > Developer Tools > Terminal.app > "allow the apps below to run software locally that does not meet the system's security
+        policy."
+
+
+- ### Windows
+
+    - Run integration tests
+
+        ```bash
+        python run_tests.py --skip-run-with-dbg
+        ```
 
-Now, you can launch Visual Studio and open the LFortran folder.
-Before the first build you have to set up the `ZLib`-pathes: Go to the CMake-Settings (Project -> CMake Settings for lfortran) and check `Show advanced variables`. Scroll to the `ZLIB_...` variables and set:
-- `ZLIB_INCLUDE_DIR` = \<Conda-Installation-Path\>\Library\include
-- `ZLIB_LIBRARY_[DEBUG|RELEASE]` = \<Conda-Installation-Path\>\Library\lib\zlib.lib
+    - Update reference tests
 
-Then you can generate the CMake-Cache and build the project.
+        ```bash
+        python run_tests.py -u --skip-run-with-dbg
+        ```
+
+## Examples (Linux and macOS)
+
+You can run the following examples manually in a terminal:
+
+```bash
+./src/bin/lpython examples/expr2.py
+./src/bin/lpython examples/expr2.py -o expr
+./expr
+./src/bin/lpython --show-ast examples/expr2.py
+./src/bin/lpython --show-asr examples/expr2.py
+./src/bin/lpython --show-cpp examples/expr2.py
+./src/bin/lpython --show-llvm examples/expr2.py
+./src/bin/lpython --show-c examples/expr2.py
+```
 
 ## Enabling the Jupyter Kernel
 
 To install the Jupyter kernel, install the following Conda packages also:
 ```
-conda install xeus xtl nlohmann_json cppzmq
+conda install xeus=5.1.0 xeus-zmq=3.0.0 nlohmann_json
 ```
 and enable the kernel by `-DWITH_XEUS=yes` and install into `$CONDA_PREFIX`. For
 example:
 ```
-cmake \
+cmake . -GNinja \
     -DCMAKE_BUILD_TYPE=Debug \
     -DWITH_LLVM=yes \
     -DWITH_XEUS=yes \
     -DCMAKE_PREFIX_PATH="$CONDA_PREFIX" \
-    -DCMAKE_INSTALL_PREFIX="$CONDA_PREFIX" \
+    -DCMAKE_INSTALL_PREFIX="$CONDA_PREFIX"
     .
-cmake --build . -j4 --target install
+ninja install
 ```
-To use it, install Jupyter (`conda install jupyter`) and test that the LFortran
+To use it, install Jupyter (`conda install jupyter`) and test that the LPython
 kernel was found:
 ```
 jupyter kernelspec list --json
@@ -149,111 +213,14 @@ Then launch a Jupyter notebook as follows:
 ```
 jupyter notebook
 ```
-Click `New->Fortran`. To launch a terminal jupyter LFortran console:
-```
-jupyter console --kernel=fortran
-```
-
-
-## Build From Git with Nix
-
-One of the ways to ensure exact environment and dependencies is with `nix`. This will ensure that system dependencies do not interfere with the development environment. If you want, you can report bugs in a `nix-shell` environment to make it easier for others to reproduce.
-
-### With Root
-
-We start by getting `nix`. The following multi-user installation will work on any machine with a Linux distribution, MacOS or Windows (via WSL):
-```bash
-sh <(curl -L https://nixos.org/nix/install) --daemon
-```
-### Without Root
-
-If you would like to not provide `nix` with root access to your machine, on Linux distributions we can use [nix-portable](https://github.com/DavHau/nix-portable).
-```bash
-wget https://github.com/DavHau/nix-portable/releases/download/v003/nix-portable
-```
-Now just prepend all `nix-shell` commands with `NP_RUNTIME=bwrap ./nix-portable `. So:
-```bash
-# Do not
-nix-shell --run "bash"
-# Do
-NP_RUNTIME=bwrap ./nix-portable nix-shell --run "bash"
-```
-
-### Development
-
-Now we can enter the development environment:
-```bash
-nix-shell --run "bash" --cores 4 -j4 --pure ci/shell.nix
-```
-The `--pure` flag ensures no system dependencies are used in the environment.
-
-The build steps are the same as with the `ci`:
-```bash
-./build0.sh
-./build1.sh
+Click `New->LPython`. To launch a terminal jupyter LPython console:
 ```
-
-To change the compilation environment from `gcc` (default) to `clang` we can use `--argstr`:
-```bash
-nix-shell --run "bash" --cores 4 -j4 --pure ci/shell.nix --argstr clangOnly "yes"
+jupyter console --kernel=lpython
 ```
 
-## Note About Dependencies
-
-End users (and distributions) are encouraged to use the tarball
-from [https://lfortran.org/download/](https://lfortran.org/download/),
-which only depends on LLVM, CMake and a C++ compiler.
-
-The tarball is generated automatically by our CI (continuous integration) and
-contains some autogenerated files: the parser, the AST and ASR nodes, which is generated by an ASDL
-translator (requires Python).
-
-The instructions from git are to be used when developing LFortran itself.
-
-## Note for users who do not use Conda
-
-Following are the dependencies necessary for installing this
-repository in development mode,
+## Found a bug?
+Please report any bugs you find at our issue tracker [here](https://github.com/lcompilers/lpython/issues). Or, even better, fork the repository on GitHub and create a Pull Request (PR). 
 
-- [Bison - 3.5.1](https://ftp.gnu.org/gnu/bison/bison-3.5.1.tar.xz)
-- [LLVM - 11.0.1](https://github.com/llvm/llvm-project/releases/download/llvmorg-11.0.1/llvm-11.0.1.src.tar.xz)
-- [re2c - 2.0.3](https://re2c.org/install/install.html)
-- [binutils - 2.31.90](ftp://sourceware.org/pub/binutils/snapshots/binutils-2.31.90.tar.xz) - Make sure that you should enable the required options related to this dependency to build the dynamic libraries (the ones ending with `.so`).
+We welcome all changes, big or small. We will help you make a PR if you are new to git.
 
-## Stacktraces
-
-LFortran can print stacktraces when there is an unhandled exception, as well as
-on any compiler error with the `--show-stacktrace` option. This is very helpful
-for developing the compiler itself to see where in LFortran the problem is. The
-stacktrace support is turned off by default, to enable it,
-compile LFortran with the `-DWITH_STACKTRACE=yes` cmake option after installing
-the prerequisites on each platform per the instructions below.
-
-### Ubuntu
-
-In Ubuntu, `apt install binutils-dev`.
-
-### macOS
-
-If you use the default Clang compiler on macOS, then the stacktraces should
-just work on both Intel and M1 based macOS (the CMake build system
-automatically invokes the `dsymtuil` tool and our Python scripts to store the
-debug information, see `src/bin/CMakeLists.txt` for more details). If it does
-not work, please report a bug.
-
-If you do not like the default way, an alternative is to use bintutils. For
-that, first install
-[Spack](https://spack.io/), then:
-```
-spack install binutils
-spack find -p binutils
-```
-The last command will show a full path to the installed `binutils` package. Add
-this path to your shell config file, e.g.:
-```
-export CMAKE_PREFIX_PATH_LFORTRAN=/Users/ondrej/repos/spack/opt/spack/darwin-catalina-broadwell/apple-clang-11.0.0/binutils-2.36.1-wy6osfm6bp2323g3jpv2sjuttthwx3gd
-```
-and compile LFortran with the
-`-DCMAKE_PREFIX_PATH="$CMAKE_PREFIX_PATH_LFORTRAN;$CONDA_PREFIX"` cmake option.
-The `$CONDA_PREFIX` is there if you install some other dependencies (such as
-`llvm`) using Conda, otherwise you can remove it.
+If you have any questions or need help, please ask us at [Zulip](https://lfortran.zulipchat.com/) or on our [mailinglist](https://groups.io/g/lfortran).
diff --git a/doc/src/rebasing.md b/doc/src/rebasing.md
index 1c5581b6e3..26cefa3355 100644
--- a/doc/src/rebasing.md
+++ b/doc/src/rebasing.md
@@ -1,5 +1,5 @@
 
-You should clean your branch's commits, and we have two approach for this.
+You should clean your branch's commits, and we have two approaches for this.
 
 # Rebasing
 ```bash
@@ -56,9 +56,9 @@ Date:   Sat Jul 30 15:46:28 2022 +0530
     Implementing tuples in LLVM backend
 
 ```
-here, we want make our commits as a bunch of batches.
+here, we want to make our commits as a bunch of batches.
 
-we will rebasing with main with interactive option `git rebase main -i`.
+we will rebase with main with the interactive option `git rebase main -i`.
 
 but first create a backup branch before doing this interactive rebase.
 
@@ -111,8 +111,8 @@ s 122a02bf3 refactor
 s 663edf45b refactor
 ...
 ```
-and it will open windows for every change you made to rename commit's message.
-- first window to rename commit `Added add3.py` because we squashed the commit after it, and by default the message would be the original message of `Added add3.py` and messages of squashed commits, here i will not change anything i will leave message like that. 
+and it will open windows for every change you made to rename the commit's message.
+- first window to rename commit `Added add3.py` because we squashed the commit after it, and by default the message would be the original message of `Added add3.py` and messages of squashed commits, here I will not change anything I will leave message like that. 
 ```bash
 # This is a combination of 2 commits.
 # This is the 1st commit message:
@@ -143,7 +143,7 @@ Refactor
 # Untracked files:
 ...
 ```
-- second window: rename(rewword) `Added add4.py`, you can edit the message as you want, i will rename it: `Added add4.py and edit it ` . 
+- second window: rename(reword) `Added add4.py`, you can edit the message as you want, I will rename it: `Added add4.py and edit it ` . 
 ```
 Added add4.py
 
@@ -187,7 +187,7 @@ Added add4.py and edit it
 # with '#' will be ignored, and an empty message aborts the commit.
 ...
 ```
-- third window will be the same as dirst one because of squashing two commits to commit:`Added add4.py`, i will leave it with out changing message.
+- third window will be the same as the first one because of squashing two commits to commit:`Added add4.py`, I will leave it without changing the message.
 
 Log now:
 ```bash
@@ -223,7 +223,7 @@ Date:   Sat Jul 30 23:36:27 2022 +0200
     Added add.py
 
 ``` 
-and if you  want to push to remote branch you must push with `--force` option.
+and if you  want to push to the remote branch you must push with `--force` option.
 
 
 This [video](https://drive.google.com/file/d/1506h86_RLgwtjLi_uKWbdVNDsSVusIbr/view?usp=sharing) by *Naman Gera* he was rebasing a branch.
@@ -232,7 +232,7 @@ This [video](https://drive.google.com/file/d/1506h86_RLgwtjLi_uKWbdVNDsSVusIbr/v
 # Merging
 by *Gagandeep Singh* from [#783 comment](https://github.com/lcompilers/lpython/pull/783#issuecomment-1188875210)
 
-Assuming initial state is your current branch (say `xyz_branch`),
+Assuming the initial state is your current branch (say `xyz_branch`),
 
 1. git checkout main or git checkout master (whichever is being used in a certain project as the lead branch).
 2. git pull origin main (origin is the project remote say for lpython it will be pointing to (https://github.com/lcompilers/lpython).
@@ -243,4 +243,4 @@ Assuming initial state is your current branch (say `xyz_branch`),
 7. Repeat step 6 until you are satisfied with the group of changes you want to commit.
 8. `git commit -m "nice_commit_message"` or `git commit (and then write detailed commit message in the command line editor)`.
 9. Repeat 7 and 8 until all the changes are committed.
-10. `git push -f your_remote xyz_branch`.
\ No newline at end of file
+10. `git push -f your_remote xyz_branch`.
diff --git a/environment_unix.yml b/environment_unix.yml
index 0942bbcbaf..af7dffcff0 100644
--- a/environment_unix.yml
+++ b/environment_unix.yml
@@ -2,16 +2,17 @@ name: lp
 channels:
   - conda-forge
 dependencies:
-  - bison=3.4
-  - cmake
-  - flake8
-  - llvmdev=11.0.1
-  - make
-  - numpy
+  - git
   - pip
-  - python=3.10.2
+  - make
   - re2c
-  - setuptools
   - toml
   - zlib
-  - git
+  - cmake
+  - numpy
+  - flake8
+  - setuptools
+  - bison=3.4
+  - python=3.10.2
+  - llvmdev=11.0.1
+  - zstd-static=1.5.5
diff --git a/environment_win.yml b/environment_win.yml
index af80e30c7c..60774b822c 100644
--- a/environment_win.yml
+++ b/environment_win.yml
@@ -2,18 +2,19 @@ name: lp
 channels:
   - conda-forge
 dependencies:
-  - python=3.10.2
-  - numpy
-  - flake8
+  - git
   - pip
+  - make
+  - re2c
   - toml
+  - zlib
+  - cmake
+  - ninja
+  - numpy
+  - xonsh
+  - flake8
   - setuptools
-  - llvmdev=11.1.0
+  - python=3.10.2
   - m2-bison=3.0.4
-  - re2c
-  - xonsh
-  - ninja
-  - cmake
-  - make
-  - zlib
-  - git
+  - llvmdev=11.1.0
+  - zstd-static=1.5.5
diff --git a/examples/example_notebook.ipynb b/examples/example_notebook.ipynb
new file mode 100644
index 0000000000..17ce1ba2db
--- /dev/null
+++ b/examples/example_notebook.ipynb
@@ -0,0 +1,134 @@
+{
+ "cells": [
+  {
+   "cell_type": "code",
+   "execution_count": 1,
+   "id": "e87300c2-64ed-4636-8448-591f36faba29",
+   "metadata": {},
+   "outputs": [
+    {
+     "name": "stdout",
+     "output_type": "stream",
+     "text": [
+      "Hello, LPython\n"
+     ]
+    }
+   ],
+   "source": [
+    "print(\"Hello, LPython\")"
+   ]
+  },
+  {
+   "cell_type": "code",
+   "execution_count": 2,
+   "id": "dfcac851-7b49-4065-8c64-4a31658249f7",
+   "metadata": {},
+   "outputs": [],
+   "source": [
+    "def add(x: i32, y: i32) -> i32:\n",
+    "    return x + y"
+   ]
+  },
+  {
+   "cell_type": "code",
+   "execution_count": 3,
+   "id": "09213386-84d5-4e7c-83ba-c3b027f765dd",
+   "metadata": {},
+   "outputs": [],
+   "source": [
+    "def sub(x: i32, y: i32) -> i32:\n",
+    "    return x - y"
+   ]
+  },
+  {
+   "cell_type": "code",
+   "execution_count": 4,
+   "id": "a4b49fd3-bf17-4287-9d5e-60f14ebc9a0f",
+   "metadata": {},
+   "outputs": [
+    {
+     "data": {
+      "text/plain": [
+       "5"
+      ]
+     },
+     "execution_count": 4,
+     "metadata": {},
+     "output_type": "execute_result"
+    }
+   ],
+   "source": [
+    "add(2, 3)"
+   ]
+  },
+  {
+   "cell_type": "code",
+   "execution_count": 5,
+   "id": "d6f4961f-7f0c-45a6-9bf8-e549e97098b0",
+   "metadata": {},
+   "outputs": [
+    {
+     "data": {
+      "text/plain": [
+       "-1"
+      ]
+     },
+     "execution_count": 5,
+     "metadata": {},
+     "output_type": "execute_result"
+    }
+   ],
+   "source": [
+    "sub(2, 3)"
+   ]
+  },
+  {
+   "cell_type": "code",
+   "execution_count": 6,
+   "id": "398fd4be-d7cc-4912-8aa1-880aa58b37ab",
+   "metadata": {},
+   "outputs": [],
+   "source": [
+    "@dataclass\n",
+    "class MyClass:\n",
+    "    x: i32\n",
+    "    y: f64\n",
+    "    z: str"
+   ]
+  },
+  {
+   "cell_type": "code",
+   "execution_count": 7,
+   "id": "628f0b7d-09a6-49de-a0e6-2f6c664f2ba2",
+   "metadata": {},
+   "outputs": [
+    {
+     "name": "stdout",
+     "output_type": "stream",
+     "text": [
+      "12 2.45000000000000000e+01 LPython\n"
+     ]
+    }
+   ],
+   "source": [
+    "x: MyClass = MyClass(12, 24.5, \"LPython\")\n",
+    "print(x)"
+   ]
+  }
+ ],
+ "metadata": {
+  "kernelspec": {
+   "display_name": "LPython",
+   "language": "python",
+   "name": "lpython"
+  },
+  "language_info": {
+   "file_extension": ".f90",
+   "mimetype": "text/x-python",
+   "name": "python",
+   "version": "2018"
+  }
+ },
+ "nbformat": 4,
+ "nbformat_minor": 5
+}
diff --git a/examples/expr2.py b/examples/expr2.py
index 2e66f1e584..484873ac2d 100644
--- a/examples/expr2.py
+++ b/examples/expr2.py
@@ -1,10 +1,9 @@
+from lpython import i32
+
 def main0():
     x: i32
     x = (2+3)*5
     print(x)
 
-main0()
-
-# Not implemented yet in LPython:
-#if __name__ == "__main__":
-#    main()
+if __name__ == "__main__":
+   main0()
diff --git a/generate_default_tag.sh b/generate_default_tag.sh
new file mode 100755
index 0000000000..b38b4d7239
--- /dev/null
+++ b/generate_default_tag.sh
@@ -0,0 +1,8 @@
+#!/usr/bin/env bash
+
+# Run this script when your local repo 
+# #doesn't automatically fetch tags from upstream
+# It allows local development with a mocked tag
+echo "Generating default tag..."
+set -ex
+git tag "v0.0.0=0"
diff --git a/grammar/Python.asdl b/grammar/Python.asdl
index a5ca1c672e..ade97a49a0 100644
--- a/grammar/Python.asdl
+++ b/grammar/Python.asdl
@@ -73,6 +73,7 @@ module LPython
          -- need sequences for compare to distinguish between
          -- x < 4 < 3 and (x < 4) < 3
          | Compare(expr left, cmpop ops, expr* comparators)
+         | Membership(expr left, membershipop op, expr right)
          | Call(expr func, expr* args, keyword* keywords)
          | FormattedValue(expr value, int conversion, expr? format_spec)
          | JoinedStr(expr* values)
@@ -110,7 +111,9 @@ module LPython
 
     unaryop = Invert | Not | UAdd | USub
 
-    cmpop = Eq | NotEq | Lt | LtE | Gt | GtE | Is | IsNot | In | NotIn
+    cmpop = Eq | NotEq | Lt | LtE | Gt | GtE | Is | IsNot 
+
+    membershipop = In | NotIn
 
     comprehension = (expr target, expr iter, expr* ifs, int is_async)
 
diff --git a/grammar/asdl_py.py b/grammar/asdl_py.py
index 1e3844131e..bb897b300d 100644
--- a/grammar/asdl_py.py
+++ b/grammar/asdl_py.py
@@ -5,7 +5,7 @@
 import sys
 import os
 
-sys.path.append("src/libasr")
+sys.path.append("libasr/src/libasr")
 import asdl
 
 products = []
diff --git a/integration_tests/CMakeLists.txt b/integration_tests/CMakeLists.txt
index 737e3a52f3..e81feb9db2 100644
--- a/integration_tests/CMakeLists.txt
+++ b/integration_tests/CMakeLists.txt
@@ -1,4 +1,4 @@
-cmake_minimum_required(VERSION 3.5 FATAL_ERROR)
+cmake_minimum_required(VERSION 3.15 FATAL_ERROR)
 
 project(lpython_tests C)
 
@@ -13,11 +13,23 @@ if (NOT (CMAKE_BUILD_TYPE STREQUAL "Debug" OR
 endif ()
 
 set(KIND no CACHE STRING "Type of Test")
+set(FAST no CACHE BOOL "Run supported tests with --fast")
+
+find_program(LPYTHON NAMES lpython)
+
+execute_process(COMMAND ${LPYTHON} --get-rtl-header-dir
+    OUTPUT_VARIABLE LPYTHON_RTL_HEADER_DIR
+    OUTPUT_STRIP_TRAILING_WHITESPACE
+    )
+execute_process(COMMAND ${LPYTHON} --get-rtl-dir
+    OUTPUT_VARIABLE LPYTHON_RTL_DIR
+    OUTPUT_STRIP_TRAILING_WHITESPACE
+    )
 
 find_path(LPYTHON_RTLIB_DIR lfortran_intrinsics.h
-    ${CMAKE_SOURCE_DIR}/../src/libasr/runtime)
+    HINTS ${LPYTHON_RTL_HEADER_DIR})
 find_library(LPYTHON_RTLIB_LIBRARY lpython_runtime_static
-    ${CMAKE_SOURCE_DIR}/../src/runtime/)
+    HINTS ${LPYTHON_RTL_DIR})
 add_library(lpython_rtlib INTERFACE IMPORTED)
 set_property(TARGET lpython_rtlib PROPERTY INTERFACE_INCLUDE_DIRECTORIES
     ${LPYTHON_RTLIB_DIR})
@@ -25,6 +37,24 @@ set_property(TARGET lpython_rtlib PROPERTY INTERFACE_LINK_LIBRARIES
     ${LPYTHON_RTLIB_LIBRARY})
 target_link_libraries(lpython_rtlib INTERFACE m)
 
+if (PYTHON_LIBS_REQ)
+    find_package(Python COMPONENTS Interpreter Development)
+    execute_process(
+        COMMAND "${Python_EXECUTABLE}"
+        -c "import numpy; print(numpy.get_include())"
+        OUTPUT_VARIABLE NUMPY_INCLUDE_DIR
+        OUTPUT_STRIP_TRAILING_WHITESPACE
+    )
+    message("\n")
+    message("System has the Python development artifacts: ${Python_Development_FOUND}")
+    message("The Python include directories: ${Python_INCLUDE_DIRS}")
+    message("The Python libraries: ${Python_LIBRARIES}")
+    message("The Python library directories: ${Python_LIBRARY_DIRS}")
+    message("The Python runtime library directories: ${Python_RUNTIME_LIBRARY_DIRS}")
+    message("Python version: ${Python_VERSION}")
+    message("Numpy Include Directory: ${NUMPY_INCLUDE_DIR}")
+endif()
+
 enable_testing()
 
 message("\n")
@@ -39,160 +69,342 @@ else ()
 endif ()
 message("Installation prefix: ${CMAKE_INSTALL_PREFIX}")
 message("KIND: ${KIND}")
+message("FAST: ${FAST}")
+message("PYTHON_LIBS_REQ: ${PYTHON_LIBS_REQ}")
+message("LPYTHON: ${LPYTHON}")
 message("LPYTHON_RTLIB_DIR: ${LPYTHON_RTLIB_DIR}")
 message("LPYTHON_RTLIB_LIBRARY: ${LPYTHON_RTLIB_LIBRARY}")
 
 
+macro(RUN_UTIL RUN_FAIL RUN_NAME RUN_FILE_NAME RUN_LABELS RUN_EXTRAFILES RUN_NOMOD RUN_EXTRA_ARGS RUN_COPY_TO_BIN)
+    set(fail ${${RUN_FAIL}})
+    set(name ${${RUN_NAME}})
+    set(file_name ${${RUN_FILE_NAME}})
+    set(labels ${${RUN_LABELS}})
+    set(extra_files ${${RUN_EXTRAFILES}})
+    set(no_mod ${${RUN_NOMOD}})
+    set(extra_args ${${RUN_EXTRA_ARGS}})
+    set(copy_to_bin ${${RUN_COPY_TO_BIN}})
 
-macro(RUN)
-    set(options FAIL)
-    set(oneValueArgs NAME IMPORT_PATH)
-    set(multiValueArgs LABELS EXTRAFILES)
-    cmake_parse_arguments(RUN "${options}" "${oneValueArgs}"
-                          "${multiValueArgs}" ${ARGN} )
-    set(name ${RUN_NAME})
-    set(import_path ${RUN_IMPORT_PATH})
     if (NOT name)
         message(FATAL_ERROR "Must specify the NAME argument")
     endif()
 
-    if (${KIND} IN_LIST RUN_LABELS)
+    if (${KIND} IN_LIST labels)
         if (KIND STREQUAL "llvm")
-            if (import_path)
-                add_custom_command(
-                    OUTPUT ${name}.o
-                    COMMAND lpython -c -I ${CMAKE_CURRENT_SOURCE_DIR}/${import_path} ${CMAKE_CURRENT_SOURCE_DIR}/${name}.py -o ${name}.o
-                    DEPENDS ${CMAKE_CURRENT_SOURCE_DIR}/${name}.py
-                    VERBATIM)
-            else ()
-                add_custom_command(
-                    OUTPUT ${name}.o
-                    COMMAND lpython -c ${CMAKE_CURRENT_SOURCE_DIR}/${name}.py -o ${name}.o
-                    DEPENDS ${CMAKE_CURRENT_SOURCE_DIR}/${name}.py
-                    VERBATIM)
-            endif()
-            add_executable(${name} ${name}.o ${RUN_EXTRAFILES})
+            add_custom_command(
+                OUTPUT ${name}.o
+                COMMAND ${LPYTHON} -c ${extra_args} ${CMAKE_CURRENT_SOURCE_DIR}/${file_name}.py -o ${name}.o
+                DEPENDS ${CMAKE_CURRENT_SOURCE_DIR}/${file_name}.py
+                VERBATIM)
+            add_executable(${name} ${name}.o ${extra_files})
             set_target_properties(${name} PROPERTIES LINKER_LANGUAGE C)
             target_link_libraries(${name} lpython_rtlib)
             add_test(${name} ${CMAKE_CURRENT_BINARY_DIR}/${name})
-            if (RUN_LABELS)
-                set_tests_properties(${name} PROPERTIES LABELS "${RUN_LABELS}")
+            if (labels)
+                set_tests_properties(${name} PROPERTIES LABELS "${labels}")
             endif()
-            if (${RUN_FAIL})
+            if (${fail})
                 set_tests_properties(${name} PROPERTIES WILL_FAIL TRUE)
             endif()
-        elseif(KIND STREQUAL "c")
-            if (import_path)
-                add_custom_command(
-                    OUTPUT ${name}.c
-                    COMMAND lpython -I ${CMAKE_CURRENT_SOURCE_DIR}/${import_path} --show-c ${CMAKE_CURRENT_SOURCE_DIR}/${name}.py > ${name}.c
-                    DEPENDS ${CMAKE_CURRENT_SOURCE_DIR}/${name}.py
-                    VERBATIM)
-            else ()
-                add_custom_command(
-                    OUTPUT ${name}.c
-                    COMMAND lpython --show-c ${CMAKE_CURRENT_SOURCE_DIR}/${name}.py > ${name}.c
-                    DEPENDS ${CMAKE_CURRENT_SOURCE_DIR}/${name}.py
-                    VERBATIM)
+        elseif (KIND STREQUAL "llvm_jit")
+            add_test(
+                NAME ${name}
+                COMMAND ${LPYTHON} --jit ${extra_args} ${CMAKE_CURRENT_SOURCE_DIR}/${file_name}.py)
+            if (labels)
+                set_tests_properties(${name} PROPERTIES LABELS "${labels}")
             endif()
-
-            add_executable(${name} ${name}.c ${RUN_EXTRAFILES})
+            if (${fail})
+                set_tests_properties(${name} PROPERTIES WILL_FAIL TRUE)
+            endif()
+        elseif (KIND STREQUAL "llvm_py")
+            add_custom_command(
+                OUTPUT ${name}.o
+                COMMAND ${LPYTHON} -c ${extra_args} ${CMAKE_CURRENT_SOURCE_DIR}/${file_name}.py -o ${name}.o
+                DEPENDS ${CMAKE_CURRENT_SOURCE_DIR}/${file_name}.py
+                VERBATIM)
+            add_executable(${name} ${name}.o ${extra_files})
+            target_include_directories(${name} PRIVATE ${CMAKE_SOURCE_DIR} ${NUMPY_INCLUDE_DIR})
+            set_target_properties(${name} PROPERTIES LINKER_LANGUAGE C)
+            target_link_libraries(${name} lpython_rtlib Python::Python)
+            add_test(${name} ${CMAKE_CURRENT_BINARY_DIR}/${name})
+            if (labels)
+                set_tests_properties(${name} PROPERTIES LABELS "${labels}")
+            endif()
+            if (${fail})
+                set_tests_properties(${name} PROPERTIES WILL_FAIL TRUE)
+            endif()
+        elseif(KIND STREQUAL "llvm_sym")
+            add_custom_command(
+                OUTPUT ${name}.o
+                COMMAND ${LPYTHON} -c ${extra_args} ${CMAKE_CURRENT_SOURCE_DIR}/${file_name}.py -o ${name}.o
+                DEPENDS ${CMAKE_CURRENT_SOURCE_DIR}/${file_name}.py
+                VERBATIM)
+            add_executable(${name} ${name}.o ${extra_files})
+            set_target_properties(${name} PROPERTIES LINKER_LANGUAGE C)
+            if (APPLE)
+                set(SYMENGINE_LIB "${Python_LIBRARY_DIRS}/libsymengine.dylib")
+            else()
+                set(SYMENGINE_LIB "${Python_LIBRARY_DIRS}/libsymengine.so")
+            endif()
+            target_link_libraries(${name} lpython_rtlib ${SYMENGINE_LIB})
+            add_test(${name} ${CMAKE_CURRENT_BINARY_DIR}/${name})
+            if (labels)
+                set_tests_properties(${name} PROPERTIES LABELS "${labels}")
+            endif()
+            if (${fail})
+                set_tests_properties(${name} PROPERTIES WILL_FAIL TRUE)
+            endif()
+        elseif(KIND STREQUAL "c")
+            add_custom_command(
+                OUTPUT ${name}.c
+                COMMAND ${LPYTHON} ${extra_args} --show-c ${CMAKE_CURRENT_SOURCE_DIR}/${file_name}.py > ${name}.c
+                DEPENDS ${CMAKE_CURRENT_SOURCE_DIR}/${file_name}.py
+                VERBATIM)
+            add_executable(${name} ${name}.c ${extra_files})
+            target_include_directories(${name} PRIVATE ${CMAKE_SOURCE_DIR})
             set_target_properties(${name} PROPERTIES LINKER_LANGUAGE C)
             target_link_libraries(${name} lpython_rtlib)
             add_test(${name} ${CMAKE_CURRENT_BINARY_DIR}/${name})
-            if (RUN_LABELS)
-                set_tests_properties(${name} PROPERTIES LABELS "${RUN_LABELS}")
+            if (labels)
+                set_tests_properties(${name} PROPERTIES LABELS "${labels}")
             endif()
-            if (${RUN_FAIL})
+            if (${fail})
                 set_tests_properties(${name} PROPERTIES WILL_FAIL TRUE)
             endif()
-        elseif(KIND STREQUAL "cpython")
+        elseif(KIND STREQUAL "c_py")
+            add_custom_command(
+                OUTPUT ${name}.c
+                COMMAND ${LPYTHON} ${extra_args} --show-c ${CMAKE_CURRENT_SOURCE_DIR}/${file_name}.py > ${name}.c
+                DEPENDS ${CMAKE_CURRENT_SOURCE_DIR}/${file_name}.py
+                VERBATIM)
+            add_executable(${name} ${name}.c ${extra_files})
+            target_include_directories(${name} PRIVATE ${CMAKE_SOURCE_DIR} ${NUMPY_INCLUDE_DIR})
+            set_target_properties(${name} PROPERTIES LINKER_LANGUAGE C)
+            target_link_libraries(${name} lpython_rtlib Python::Python)
+            add_test(${name} ${CMAKE_CURRENT_BINARY_DIR}/${name})
+            if (labels)
+                set_tests_properties(${name} PROPERTIES LABELS "${labels}")
+            endif()
+            if (${fail})
+                set_tests_properties(${name} PROPERTIES WILL_FAIL TRUE)
+            endif()
+        elseif(KIND STREQUAL "c_sym")
+            add_custom_command(
+                OUTPUT ${name}.c
+                COMMAND ${LPYTHON} ${extra_args} --show-c
+                    ${CMAKE_CURRENT_SOURCE_DIR}/${file_name}.py > ${name}.c
+                DEPENDS ${CMAKE_CURRENT_SOURCE_DIR}/${file_name}.py
+                VERBATIM)
+            add_executable(${name} ${name}.c ${extra_files})
+            target_include_directories(${name} PRIVATE ${CMAKE_SOURCE_DIR}
+                "${Python_INCLUDE_DIRS}/..")
+            set_target_properties(${name} PROPERTIES LINKER_LANGUAGE C)
+            if (APPLE)
+                set(SYMENGINE_LIB "${Python_LIBRARY_DIRS}/libsymengine.dylib")
+            else()
+                set(SYMENGINE_LIB "${Python_LIBRARY_DIRS}/libsymengine.so")
+            endif()
+            target_link_libraries(${name} lpython_rtlib ${SYMENGINE_LIB})
+            add_test(${name} ${CMAKE_CURRENT_BINARY_DIR}/${name})
+            if (labels)
+                set_tests_properties(${name} PROPERTIES LABELS "${labels}")
+            endif()
+            if (${fail})
+                set_tests_properties(${name} PROPERTIES WILL_FAIL TRUE)
+            endif()
+        elseif((KIND STREQUAL "cpython") OR (KIND STREQUAL "cpython_sym"))
             # CPython test
-            if (RUN_EXTRAFILES)
+            if (extra_files)
                 set(PY_MOD "${name}_mod")
-                add_library(${PY_MOD} SHARED ${RUN_EXTRAFILES})
+                add_library(${PY_MOD} SHARED ${extra_files})
                 set_target_properties(${PY_MOD} PROPERTIES LINKER_LANGUAGE C)
             else()
                 set(PY_MOD "")
             endif()
 
-            add_test(${name} python ${CMAKE_CURRENT_SOURCE_DIR}/${name}.py)
-            set_tests_properties(${name} PROPERTIES
-                ENVIRONMENT "PYTHONPATH=${CMAKE_SOURCE_DIR}/../src/runtime/ltypes:${CMAKE_SOURCE_DIR}/..;LPYTHON_PY_MOD_NAME=${PY_MOD};LPYTHON_PY_MOD_PATH=${CMAKE_CURRENT_BINARY_DIR}")
-            if (RUN_LABELS)
-                set_tests_properties(${name} PROPERTIES LABELS "${RUN_LABELS}")
+            add_test(${name} python ${CMAKE_CURRENT_SOURCE_DIR}/${file_name}.py)
+            if (no_mod)
+                set_tests_properties(${name} PROPERTIES
+                    ENVIRONMENT "PYTHONPATH=${CMAKE_SOURCE_DIR}/../src/runtime/lpython:${CMAKE_SOURCE_DIR}/..")
+            else()
+                set_tests_properties(${name} PROPERTIES
+                    ENVIRONMENT "PYTHONPATH=${CMAKE_SOURCE_DIR}/../src/runtime/lpython:${CMAKE_SOURCE_DIR}/..;LPYTHON_PY_MOD_NAME=${PY_MOD};LPYTHON_PY_MOD_PATH=${CMAKE_CURRENT_BINARY_DIR}")
             endif()
-            if (${RUN_FAIL})
+            if (labels)
+                set_tests_properties(${name} PROPERTIES LABELS "${labels}")
+            endif()
+            if (${fail})
                 set_tests_properties(${name} PROPERTIES WILL_FAIL TRUE)
             endif()
         elseif(KIND STREQUAL "x86")
             # x86 test
             add_custom_command(
                 OUTPUT ${name}.x86
-                COMMAND lpython --backend x86 ${CMAKE_CURRENT_SOURCE_DIR}/${name}.py -o ${name}.x86
-                DEPENDS ${CMAKE_CURRENT_SOURCE_DIR}/${name}.py
+                COMMAND ${LPYTHON} ${extra_args} --backend x86 ${CMAKE_CURRENT_SOURCE_DIR}/${file_name}.py -o ${name}.x86
+                DEPENDS ${CMAKE_CURRENT_SOURCE_DIR}/${file_name}.py
                 VERBATIM
             )
             add_custom_target(${name} ALL
             DEPENDS ${CMAKE_CURRENT_BINARY_DIR}/${name}.x86)
             add_test(${name} ${CMAKE_CURRENT_BINARY_DIR}/${name}.x86)
-            if (RUN_LABELS)
-                set_tests_properties(${name} PROPERTIES LABELS "${RUN_LABELS}")
+            if (labels)
+                set_tests_properties(${name} PROPERTIES LABELS "${labels}")
             endif()
-            if (${RUN_FAIL})
+            if (${fail})
                 set_tests_properties(${name} PROPERTIES WILL_FAIL TRUE)
             endif()
         elseif(KIND STREQUAL "wasm_x86")
             # wasm_to_x86 test
             add_custom_command(
                 OUTPUT ${name}.x86
-                COMMAND lpython --backend wasm_x86 ${CMAKE_CURRENT_SOURCE_DIR}/${name}.py -o ${name}.x86
-                DEPENDS ${CMAKE_CURRENT_SOURCE_DIR}/${name}.py
+                COMMAND ${LPYTHON} ${extra_args} --backend wasm_x86 ${CMAKE_CURRENT_SOURCE_DIR}/${file_name}.py -o ${name}.x86
+                DEPENDS ${CMAKE_CURRENT_SOURCE_DIR}/${file_name}.py
                 VERBATIM
             )
             add_custom_target(${name} ALL
             DEPENDS ${CMAKE_CURRENT_BINARY_DIR}/${name}.x86)
             add_test(${name} ${CMAKE_CURRENT_BINARY_DIR}/${name}.x86)
-            if (RUN_LABELS)
-                set_tests_properties(${name} PROPERTIES LABELS "${RUN_LABELS}")
+            if (labels)
+                set_tests_properties(${name} PROPERTIES LABELS "${labels}")
             endif()
-            if (${RUN_FAIL})
+            if (${fail})
                 set_tests_properties(${name} PROPERTIES WILL_FAIL TRUE)
             endif()
         elseif(KIND STREQUAL "wasm_x64")
             # wasm_to_x64 test
             add_custom_command(
                 OUTPUT ${name}.x64
-                COMMAND lpython --backend wasm_x64 ${CMAKE_CURRENT_SOURCE_DIR}/${name}.py -o ${name}.x64
-                DEPENDS ${CMAKE_CURRENT_SOURCE_DIR}/${name}.py
+                COMMAND ${LPYTHON} ${extra_args} --backend wasm_x64 ${CMAKE_CURRENT_SOURCE_DIR}/${file_name}.py -o ${name}.x64
+                DEPENDS ${CMAKE_CURRENT_SOURCE_DIR}/${file_name}.py
                 VERBATIM
             )
             add_custom_target(${name} ALL
             DEPENDS ${CMAKE_CURRENT_BINARY_DIR}/${name}.x64)
             add_test(${name} ${CMAKE_CURRENT_BINARY_DIR}/${name}.x64)
-            if (RUN_LABELS)
-                set_tests_properties(${name} PROPERTIES LABELS "${RUN_LABELS}")
+            if (labels)
+                set_tests_properties(${name} PROPERTIES LABELS "${labels}")
             endif()
-            if (${RUN_FAIL})
+            if (${fail})
                 set_tests_properties(${name} PROPERTIES WILL_FAIL TRUE)
             endif()
         elseif(KIND STREQUAL "wasm")
             # wasm test
-            execute_process(COMMAND lpython --backend wasm ${CMAKE_CURRENT_SOURCE_DIR}/${name}.py -o ${name})
+            execute_process(COMMAND ${LPYTHON} ${extra_args} --backend wasm ${CMAKE_CURRENT_SOURCE_DIR}/${file_name}.py -o ${name})
 
             find_program(WASM_EXEC_RUNTIME node)
             execute_process(COMMAND "${WASM_EXEC_RUNTIME}" --version
                             OUTPUT_VARIABLE WASM_EXEC_VERSION
                             OUTPUT_STRIP_TRAILING_WHITESPACE)
-            string(COMPARE GREATER_EQUAL "${WASM_EXEC_VERSION}"
-                                    "v16.0.0" IS_NODE_ABOVE_16)
 
-            if (NOT IS_NODE_ABOVE_16)
+            string(REGEX REPLACE "v([0-9]+)\\.([0-9]+)\\.([0-9]+)" "\\1" NODE_MAJOR_VERSION "${WASM_EXEC_VERSION}")
+
+            if (NODE_MAJOR_VERSION LESS 16)
                 message(STATUS "${WASM_EXEC_RUNTIME} version: ${WASM_EXEC_VERSION}")
                 set(WASM_EXEC_FLAGS "--experimental-wasm-bigint")
             endif()
             set(WASM_EXEC_FLAGS ${WASM_EXEC_FLAGS} "--experimental-wasi-unstable-preview1")
             add_test(${name} ${WASM_EXEC_RUNTIME} ${WASM_EXEC_FLAGS} ${CMAKE_CURRENT_BINARY_DIR}/${name}.js)
+            if (labels)
+                set_tests_properties(${name} PROPERTIES LABELS "${labels}")
+            endif()
+            if (${fail})
+                set_tests_properties(${name} PROPERTIES WILL_FAIL TRUE)
+            endif()
+        endif()
+
+        if (copy_to_bin)
+            file(COPY ${CMAKE_CURRENT_SOURCE_DIR}/${copy_to_bin} DESTINATION ${CMAKE_CURRENT_BINARY_DIR})
+        endif()
+
+    endif()
+endmacro(RUN_UTIL)
+
+macro(RUN)
+    set(options FAIL NOFAST NOMOD)
+    set(oneValueArgs NAME IMPORT_PATH COPY_TO_BIN REQ_PY_VER)
+    set(multiValueArgs LABELS EXTRAFILES EXTRA_ARGS)
+    cmake_parse_arguments(RUN "${options}" "${oneValueArgs}"
+                        "${multiValueArgs}" ${ARGN} )
+
+    set(RUN_FILE_NAME ${RUN_NAME})
+
+    if (RUN_IMPORT_PATH)
+        # Only one import path supported for now
+        # Later add support for multiple import paths by looping over and appending to extra args
+        set(RUN_EXTRA_ARGS ${RUN_EXTRA_ARGS} -I${CMAKE_CURRENT_SOURCE_DIR}/${RUN_IMPORT_PATH})
+    endif()
+
+    if (RUN_REQ_PY_VER)
+        string(REGEX REPLACE "([0-9]+)\\.([0-9]+)\\.([0-9]+)" "\\1" PY_MAJOR_VERSION "${Python_VERSION}")
+        string(REGEX REPLACE "([0-9]+)\\.([0-9]+)\\.([0-9]+)" "\\2" PY_MINOR_VERSION "${Python_VERSION}")
+        string(REGEX REPLACE "([0-9]+)\\.([0-9]+)" "\\1" REQ_PY_MAJOR_VERSION "${RUN_REQ_PY_VER}")
+        string(REGEX REPLACE "([0-9]+)\\.([0-9]+)" "\\2" REQ_PY_MINOR_VERSION "${RUN_REQ_PY_VER}")
+
+        if (PY_MINOR_VERSION LESS REQ_PY_MINOR_VERSION)
+            # remove backends from the test that depend on CPython
+            list(REMOVE_ITEM RUN_LABELS cpython cpython_sym c_py c_sym llvm_sym llvm_py)
+        endif()
+    endif()
+
+    if (NOT FAST)
+        RUN_UTIL(RUN_FAIL RUN_NAME RUN_FILE_NAME RUN_LABELS RUN_EXTRAFILES RUN_NOMOD RUN_EXTRA_ARGS RUN_COPY_TO_BIN)
+    endif()
+
+    if ((FAST) AND (NOT RUN_NOFAST))
+        set(RUN_EXTRA_ARGS ${RUN_EXTRA_ARGS} --fast)
+        set(RUN_NAME "${RUN_NAME}_FAST")
+        list(REMOVE_ITEM RUN_LABELS cpython cpython_sym) # remove cpython, cpython_sym, from --fast test
+        RUN_UTIL(RUN_FAIL RUN_NAME RUN_FILE_NAME RUN_LABELS RUN_EXTRAFILES RUN_NOMOD RUN_EXTRA_ARGS RUN_COPY_TO_BIN)
+    endif()
+endmacro(RUN)
+
+# only compiles till object file
+# to make sure that the generated code is syntactically correct
+# but we cannot generate an executable due to --disable-main option enabled.
+macro(COMPILE)
+    set(options FAIL)
+    set(oneValueArgs NAME IMPORT_PATH)
+    set(multiValueArgs LABELS EXTRAFILES)
+    cmake_parse_arguments(COMPILE "${options}" "${oneValueArgs}"
+                          "${multiValueArgs}" ${ARGN} )
+    set(name ${COMPILE_NAME})
+    if (NOT name)
+        message(FATAL_ERROR "Must specify the NAME argument")
+    endif()
+
+    set(extra_args "")
+    if (COMPILE_IMPORT_PATH)
+        # Only one import path supported for now
+        # Later add support for multiple import paths by looping over and appending to extra args
+        set(extra_args ${extra_args} -I${CMAKE_CURRENT_SOURCE_DIR}/${COMPILE_IMPORT_PATH})
+    endif()
+
+    if (${KIND} IN_LIST COMPILE_LABELS)
+        if (KIND STREQUAL "llvm")
+            add_custom_command(
+                OUTPUT ${name}.o
+                COMMAND ${LPYTHON} ${extra_args} --disable-main -c ${CMAKE_CURRENT_SOURCE_DIR}/${name}.py -o ${name}.o
+                DEPENDS ${CMAKE_CURRENT_SOURCE_DIR}/${name}.py
+                VERBATIM)
+            add_library(${name} OBJECT ${name}.o)
+            set_target_properties(${name} PROPERTIES LINKER_LANGUAGE C)
+        elseif(KIND STREQUAL "c")
+            add_custom_command(
+                OUTPUT ${name}.c
+                COMMAND ${LPYTHON} ${extra_args} --disable-main --show-c ${CMAKE_CURRENT_SOURCE_DIR}/${name}.py > ${name}.c
+                DEPENDS ${CMAKE_CURRENT_SOURCE_DIR}/${name}.py
+                VERBATIM)
+            add_library(${name} OBJECT ${name}.c)
+            set_target_properties(${name} PROPERTIES LINKER_LANGUAGE C)
+            target_link_libraries(${name} lpython_rtlib)
+        elseif(KIND STREQUAL "cpython")
+            # CPython test
+            set(PY_MOD "")
+
+            add_test(${name} python ${CMAKE_CURRENT_SOURCE_DIR}/${name}.py)
+            set_tests_properties(${name} PROPERTIES
+                ENVIRONMENT "PYTHONPATH=${CMAKE_SOURCE_DIR}/../src/runtime/lpython:${CMAKE_SOURCE_DIR}/..;LPYTHON_PY_MOD_NAME=${PY_MOD};LPYTHON_PY_MOD_PATH=${CMAKE_CURRENT_BINARY_DIR}")
             if (RUN_LABELS)
                 set_tests_properties(${name} PROPERTIES LABELS "${RUN_LABELS}")
             endif()
@@ -201,228 +413,454 @@ macro(RUN)
             endif()
         endif()
     endif()
-endmacro(RUN)
+endmacro(COMPILE)
 
 
 # Test zero and non-zero exit code and assert statements
-RUN(NAME array_01_decl            LABELS cpython llvm c)
-RUN(NAME array_02_decl            LABELS cpython llvm c)
-RUN(NAME array_03_decl            LABELS cpython llvm c)
-RUN(NAME variable_decl_01         LABELS cpython llvm c)
-RUN(NAME variable_decl_02         LABELS cpython llvm c)
-RUN(NAME array_expr_01            LABELS cpython llvm)
-RUN(NAME array_expr_02            LABELS cpython llvm)
-RUN(NAME array_01            LABELS cpython llvm wasm)
-RUN(NAME array_02            LABELS cpython wasm)
-RUN(NAME bindc_01            LABELS cpython llvm c)
-RUN(NAME bindc_02            LABELS cpython llvm c)
-RUN(NAME bindc_04            LABELS llvm c)
-RUN(NAME bindc_07            LABELS cpython llvm c)
-RUN(NAME exit_01             LABELS cpython llvm c wasm wasm_x86 wasm_x64)
-RUN(NAME exit_02     FAIL    LABELS cpython llvm c wasm wasm_x86 wasm_x64)
-RUN(NAME exit_01b            LABELS cpython llvm c wasm wasm_x86 wasm_x64)
-RUN(NAME exit_02b    FAIL    LABELS cpython llvm c wasm wasm_x86 wasm_x64)
-RUN(NAME exit_02c    FAIL    LABELS cpython llvm c)
+RUN(NAME array_01_decl            LABELS cpython llvm llvm_jit c)
+RUN(NAME array_02_decl            LABELS cpython llvm llvm_jit c)
+RUN(NAME array_03_decl            LABELS cpython llvm llvm_jit) # renable c
+RUN(NAME variable_decl_01         LABELS cpython llvm llvm_jit c)
+RUN(NAME variable_decl_02         LABELS cpython llvm llvm_jit c)
+RUN(NAME variable_decl_03         LABELS cpython llvm llvm_jit c)
+RUN(NAME array_expr_01            LABELS cpython llvm llvm_jit c)
+RUN(NAME array_expr_02            LABELS cpython llvm llvm_jit c NOFAST) # post sync
+RUN(NAME array_expr_03            LABELS cpython llvm llvm_jit c)
+RUN(NAME array_expr_04            LABELS cpython llvm llvm_jit c)
+RUN(NAME array_expr_05            LABELS cpython llvm llvm_jit c)
+RUN(NAME array_expr_06            LABELS cpython llvm llvm_jit c)
+RUN(NAME array_expr_07            LABELS cpython llvm llvm_jit c)
+RUN(NAME array_expr_08            LABELS cpython llvm llvm_jit c)
+RUN(NAME array_expr_09            LABELS cpython llvm llvm_jit c)
+RUN(NAME array_expr_10            LABELS cpython llvm llvm_jit c) # post sync
+RUN(NAME array_size_01            LABELS cpython llvm llvm_jit c)
+RUN(NAME array_size_02            LABELS cpython llvm llvm_jit c)
+RUN(NAME array_01            LABELS cpython llvm llvm_jit wasm c)
+RUN(NAME array_02            LABELS cpython wasm c)
+RUN(NAME array_03            LABELS cpython llvm llvm_jit c)
+RUN(NAME array_04            LABELS cpython llvm llvm_jit c)
+RUN(NAME array_05            LABELS cpython llvm llvm_jit c)
+RUN(NAME array_06            LABELS cpython llvm llvm_jit)
+# RUN(NAME bindc_01            LABELS cpython llvm llvm_jit c)
+# RUN(NAME bindc_02            LABELS cpython llvm llvm_jit c)
+# RUN(NAME bindc_04            LABELS llvm llvm_jit c NOFAST)
+# RUN(NAME bindc_07            LABELS cpython llvm llvm_jit c NOFAST)
+# RUN(NAME bindc_08            LABELS cpython llvm llvm_jit c)
+# RUN(NAME bindc_09            LABELS cpython llvm llvm_jit c NOFAST)
+# RUN(NAME bindc_09b           LABELS cpython llvm llvm_jit c NOFAST)
+# RUN(NAME bindc_10            LABELS cpython llvm llvm_jit c NOFAST)
+# RUN(NAME bindc_11            LABELS cpython) # This is CPython test only
+RUN(NAME exit_01             LABELS cpython llvm llvm_jit NOFAST) # renable c
+RUN(NAME exit_02     FAIL    LABELS cpython llvm llvm_jit NOFAST) # renable c
+RUN(NAME exit_03             LABELS cpython llvm llvm_jit c wasm wasm_x86 wasm_x64)
+RUN(NAME exit_04     FAIL    LABELS cpython llvm llvm_jit c wasm wasm_x86 wasm_x64)
+RUN(NAME exit_01b            LABELS cpython llvm llvm_jit c wasm wasm_x86 wasm_x64)
+RUN(NAME exit_02b    FAIL    LABELS cpython llvm llvm_jit c wasm wasm_x86 wasm_x64)
+RUN(NAME exit_02c    FAIL    LABELS cpython llvm llvm_jit c)
 
 # Test all four backends
-RUN(NAME print_01            LABELS cpython llvm c wasm) # wasm not yet supports sep and end keywords
+RUN(NAME print_01            LABELS cpython llvm llvm_jit) # renable c, wasm not yet supports sep and end keywords, wasm does not handle DescriptorString
 RUN(NAME print_03            LABELS x86 c wasm wasm_x86 wasm_x64) # simple test case specifically for x86, wasm_x86 and wasm_x64
-RUN(NAME print_04            LABELS cpython llvm c)
-RUN(NAME print_05            LABELS cpython llvm wasm wasm_x64)
-RUN(NAME print_float         LABELS cpython llvm wasm wasm_x64)
-RUN(NAME print_list_tuple    LABELS cpython c) # TODO: llvm doesn't completely support printing list
+RUN(NAME print_04            LABELS cpython llvm llvm_jit c)
+RUN(NAME print_06            LABELS cpython llvm llvm_jit) # renable c
+RUN(NAME print_05            LABELS cpython llvm llvm_jit c wasm wasm_x64)
+RUN(NAME print_float         LABELS cpython llvm llvm_jit c wasm wasm_x64)
+# RUN(NAME print_list_tuple_01    LABELS cpython llvm llvm_jit NOFAST) # renable c # post sync
+# RUN(NAME print_list_tuple_02    LABELS cpython llvm llvm_jit c NOFAST)
+# RUN(NAME print_list_tuple_03    LABELS cpython llvm llvm_jit c NOFAST)
+RUN(NAME test_list_item_mixed_print    LABELS cpython llvm llvm_jit NOFAST) # renable c # post sync
+# RUN(NAME test_intrinsic_function_mixed_print    LABELS cpython llvm llvm_jit NOFAST) # post sync
 
 # CPython and LLVM
-RUN(NAME const_01            LABELS cpython llvm c)
-RUN(NAME const_02            LABELS cpython llvm c)
+RUN(NAME const_01            LABELS cpython llvm llvm_jit c wasm)
+RUN(NAME const_02            LABELS cpython llvm llvm_jit c wasm)
 RUN(NAME const_03            LABELS cpython llvm c
         EXTRAFILES const_03b.c)
-RUN(NAME const_04            LABELS cpython llvm c)
-RUN(NAME expr_01             LABELS cpython llvm c wasm wasm_x64)
-RUN(NAME expr_02             LABELS cpython llvm c wasm wasm_x64)
-RUN(NAME expr_03             LABELS cpython llvm c wasm wasm_x64)
-RUN(NAME expr_04             LABELS cpython llvm c wasm)
-RUN(NAME expr_05             LABELS cpython llvm c)
-RUN(NAME expr_06             LABELS cpython llvm c)
-RUN(NAME expr_07             LABELS cpython llvm c)
-RUN(NAME expr_08             LABELS llvm c)
-RUN(NAME expr_09             LABELS cpython llvm c)
-RUN(NAME expr_10             LABELS cpython llvm c)
-RUN(NAME expr_11             LABELS cpython llvm c wasm)
-RUN(NAME expr_12             LABELS llvm c)
-RUN(NAME expr_13             LABELS llvm c
-        EXTRAFILES expr_13b.c)
-RUN(NAME expr_14             LABELS cpython llvm c)
-RUN(NAME loop_01             LABELS cpython llvm c)
-RUN(NAME loop_02             LABELS cpython llvm c wasm wasm_x86 wasm_x64)
-RUN(NAME loop_03             LABELS cpython llvm c wasm wasm_x64)
-RUN(NAME loop_04             LABELS cpython llvm)
-RUN(NAME if_01               LABELS cpython llvm c wasm wasm_x86 wasm_x64)
-RUN(NAME if_02               LABELS cpython llvm c wasm wasm_x86 wasm_x64)
-RUN(NAME print_02            LABELS cpython llvm c)
-RUN(NAME test_types_01       LABELS cpython llvm c)
-RUN(NAME test_str_01         LABELS cpython llvm c)
-RUN(NAME test_str_02         LABELS cpython llvm c)
-RUN(NAME test_str_03         LABELS cpython llvm c)
-RUN(NAME test_list_01        LABELS cpython llvm c)
-RUN(NAME test_list_02        LABELS cpython llvm c)
-RUN(NAME test_list_03        LABELS cpython llvm c)
-RUN(NAME test_list_04        LABELS cpython llvm c)
-RUN(NAME test_list_05        LABELS cpython llvm c)
-RUN(NAME test_list_06        LABELS cpython llvm c)
-RUN(NAME test_list_07        LABELS cpython llvm c)
-RUN(NAME test_list_08        LABELS cpython llvm c)
-RUN(NAME test_list_09        LABELS cpython llvm c)
-RUN(NAME test_list_10        LABELS cpython llvm c)
-RUN(NAME test_list_section   LABELS cpython llvm c)
-RUN(NAME test_tuple_01       LABELS cpython llvm c)
-RUN(NAME test_tuple_02       LABELS cpython llvm c)
-RUN(NAME test_dict_01        LABELS cpython llvm)
-RUN(NAME test_dict_02        LABELS cpython llvm)
-RUN(NAME test_dict_03        LABELS cpython llvm)
-RUN(NAME test_dict_04        LABELS cpython llvm)
-RUN(NAME test_dict_05        LABELS cpython llvm)
-RUN(NAME test_for_loop       LABELS cpython llvm c)
-RUN(NAME modules_01          LABELS cpython llvm c wasm wasm_x86 wasm_x64)
-RUN(NAME modules_02          LABELS cpython llvm c wasm wasm_x86 wasm_x64)
-RUN(NAME test_import_01      LABELS cpython llvm c)
-RUN(NAME test_import_02      LABELS cpython llvm c)
-RUN(NAME test_import_03      LABELS cpython llvm c)
-RUN(NAME test_import_04      IMPORT_PATH ..
-        LABELS cpython llvm c)
-RUN(NAME test_math           LABELS cpython llvm)
-RUN(NAME test_numpy_01       LABELS cpython llvm c)
-RUN(NAME test_numpy_02       LABELS cpython llvm c)
-RUN(NAME test_numpy_03       LABELS cpython llvm c)
-RUN(NAME test_numpy_04       LABELS cpython llvm c)
-RUN(NAME elemental_01        LABELS cpython llvm)
-RUN(NAME elemental_02        LABELS cpython llvm)
-RUN(NAME elemental_03        LABELS cpython llvm)
-RUN(NAME elemental_04        LABELS cpython llvm)
-RUN(NAME elemental_05        LABELS cpython llvm)
-RUN(NAME elemental_06        LABELS cpython llvm)
-RUN(NAME elemental_07        LABELS cpython llvm)
-RUN(NAME elemental_08        LABELS cpython llvm)
-RUN(NAME elemental_09        LABELS cpython llvm)
-RUN(NAME elemental_10        LABELS cpython llvm)
-RUN(NAME elemental_11        LABELS cpython llvm)
-RUN(NAME elemental_12        LABELS cpython llvm c)
-RUN(NAME test_random         LABELS cpython llvm)
-RUN(NAME test_os             LABELS cpython llvm c)
-RUN(NAME test_builtin        LABELS cpython llvm c)
-RUN(NAME test_builtin_abs    LABELS cpython llvm c)
-RUN(NAME test_builtin_bool   LABELS cpython llvm c)
-RUN(NAME test_builtin_pow    LABELS cpython llvm c)
-RUN(NAME test_builtin_int    LABELS cpython llvm c)
-RUN(NAME test_builtin_len    LABELS cpython llvm c)
-RUN(NAME test_builtin_str    LABELS cpython llvm c)
-RUN(NAME test_builtin_oct    LABELS cpython llvm c)
-RUN(NAME test_builtin_hex    LABELS cpython llvm c)
-RUN(NAME test_builtin_bin    LABELS cpython llvm c)
-RUN(NAME test_builtin_float  LABELS cpython llvm c)
-RUN(NAME test_builtin_str_02 LABELS cpython llvm c)
-RUN(NAME test_builtin_round  LABELS cpython llvm c)
-RUN(NAME test_builtin_divmod LABELS cpython llvm c)
-RUN(NAME test_math1          LABELS cpython llvm c)
-RUN(NAME test_math_02        LABELS cpython llvm)
-RUN(NAME test_pass_compare   LABELS cpython llvm c)
-RUN(NAME test_c_interop_01   LABELS cpython llvm c)
-RUN(NAME test_c_interop_02   LABELS cpython llvm c
-        EXTRAFILES test_c_interop_02b.c)
-RUN(NAME test_c_interop_03   LABELS cpython llvm c
-        EXTRAFILES test_c_interop_03b.c)
-RUN(NAME test_c_interop_04   LABELS cpython llvm c
-        EXTRAFILES test_c_interop_04b.c)
-RUN(NAME test_c_interop_05   LABELS llvm c
-        EXTRAFILES test_c_interop_05b.c)
-RUN(NAME bindc_03   LABELS llvm c
-        EXTRAFILES bindc_03b.c)
-RUN(NAME bindc_05   LABELS llvm c
-        EXTRAFILES bindc_05b.c)
-RUN(NAME bindc_06   LABELS llvm c
-        EXTRAFILES bindc_06b.c)
-RUN(NAME test_generics_01    LABELS cpython llvm c)
-RUN(NAME test_cmath          LABELS cpython llvm c)
-RUN(NAME test_complex        LABELS cpython llvm c)
-RUN(NAME test_max_min        LABELS cpython llvm c)
-RUN(NAME test_global         LABELS cpython llvm c)
-RUN(NAME test_global_decl    LABELS cpython llvm c)
-RUN(NAME test_integer_bitnot LABELS cpython llvm c wasm)
-RUN(NAME test_ifexp          LABELS cpython llvm c)
-RUN(NAME test_unary_minus    LABELS cpython llvm c)
-RUN(NAME test_unary_plus     LABELS cpython llvm c)
-RUN(NAME test_bool_binop     LABELS cpython llvm c)
-RUN(NAME test_issue_518      LABELS cpython llvm c)
-RUN(NAME structs_01          LABELS cpython llvm c)
-RUN(NAME structs_02          LABELS cpython llvm c)
-RUN(NAME structs_03          LABELS llvm c)
-RUN(NAME structs_04          LABELS cpython llvm c)
-RUN(NAME structs_05          LABELS llvm c)
-RUN(NAME structs_06          LABELS cpython llvm c)
-RUN(NAME structs_07          LABELS llvm c
-        EXTRAFILES structs_07b.c)
-RUN(NAME structs_08          LABELS cpython llvm c)
-RUN(NAME structs_09          LABELS cpython llvm c)
-RUN(NAME structs_10          LABELS cpython llvm c)
-RUN(NAME structs_11          LABELS cpython llvm c)
-RUN(NAME structs_12          LABELS cpython llvm c)
-RUN(NAME structs_13          LABELS llvm c
-    EXTRAFILES structs_13b.c)
-RUN(NAME structs_14          LABELS cpython llvm c)
-RUN(NAME structs_15          LABELS cpython llvm c)
-RUN(NAME structs_16          LABELS cpython llvm c)
-RUN(NAME structs_17          LABELS cpython llvm c)
-RUN(NAME structs_18          LABELS cpython llvm c
-    EXTRAFILES structs_18b.c)
-RUN(NAME structs_19          LABELS cpython llvm c
-    EXTRAFILES structs_19b.c)
-RUN(NAME structs_20          LABELS cpython llvm c
-    EXTRAFILES structs_20b.c)
-RUN(NAME structs_21          LABELS cpython llvm c)
-RUN(NAME sizeof_01           LABELS llvm c
-        EXTRAFILES sizeof_01b.c)
-RUN(NAME enum_01             LABELS cpython llvm c)
-RUN(NAME enum_02             LABELS cpython llvm)
-RUN(NAME enum_03             LABELS cpython llvm c)
-RUN(NAME enum_04             LABELS cpython llvm c)
-RUN(NAME enum_05             LABELS llvm c
-        EXTRAFILES enum_05b.c)
-RUN(NAME enum_06             LABELS cpython llvm c)
-RUN(NAME union_01            LABELS cpython llvm c)
-RUN(NAME union_02            LABELS llvm c)
-RUN(NAME union_03            LABELS cpython llvm c)
-RUN(NAME test_str_to_int     LABELS cpython llvm c)
-RUN(NAME test_platform       LABELS cpython llvm c)
-RUN(NAME test_vars_01        LABELS cpython llvm)
-RUN(NAME test_version        LABELS cpython llvm)
-RUN(NAME logical_binop1      LABELS cpython llvm)
-RUN(NAME vec_01              LABELS cpython llvm c)
-RUN(NAME test_str_comparison LABELS cpython llvm c)
-RUN(NAME test_bit_length     LABELS cpython llvm c)
-RUN(NAME str_to_list_cast    LABELS cpython llvm c)
-
-RUN(NAME generics_01         LABELS cpython llvm c)
-RUN(NAME generics_02         LABELS cpython llvm c)
-RUN(NAME generics_array_01   LABELS cpython llvm)
-RUN(NAME generics_array_02   LABELS cpython llvm)
-RUN(NAME generics_array_03   LABELS cpython llvm)
-RUN(NAME generics_list_01    LABELS cpython llvm)
-RUN(NAME test_statistics     LABELS cpython llvm)
-RUN(NAME test_str_attributes LABELS cpython llvm c)
-RUN(NAME kwargs_01           LABELS cpython llvm c)
-RUN(NAME test_01_goto        LABELS cpython llvm c)
-
-RUN(NAME func_inline_01 LABELS llvm c wasm)
-RUN(NAME func_inline_02 LABELS cpython llvm c)
-RUN(NAME func_static_01 LABELS cpython llvm c wasm)
-RUN(NAME func_static_02 LABELS cpython llvm c wasm)
-RUN(NAME func_dep_03    LABELS cpython llvm c)
-RUN(NAME func_dep_04    LABELS cpython llvm c)
-
-RUN(NAME float_01 LABELS cpython llvm wasm wasm_x64)
-RUN(NAME recursive_01 LABELS cpython llvm wasm wasm_x64 wasm_x86)
-RUN(NAME comp_01 LABELS cpython llvm wasm wasm_x64)
-RUN(NAME bit_operations_i32 LABELS cpython llvm wasm wasm_x64)
-RUN(NAME bit_operations_i64 LABELS cpython llvm wasm)
-
-RUN(NAME test_argv_01    LABELS llvm) # TODO: Test using CPython
+# RUN(NAME const_04            LABELS cpython llvm llvm_jit c)
+RUN(NAME expr_01             LABELS cpython llvm llvm_jit c wasm) # renable wasm_x64
+RUN(NAME expr_02             LABELS cpython llvm llvm_jit c wasm) # renable wasm_x64
+RUN(NAME expr_03             LABELS cpython llvm llvm_jit c wasm) # renable wasm_x64
+RUN(NAME expr_04             LABELS cpython llvm llvm_jit c wasm NOFAST)
+RUN(NAME expr_05             LABELS cpython llvm llvm_jit c NOFAST)
+RUN(NAME expr_06             LABELS cpython llvm llvm_jit c NOFAST)
+# RUN(NAME expr_07             LABELS cpython llvm llvm_jit c) # string refactor
+# RUN(NAME expr_08             LABELS llvm llvm_jit c NOFAST)
+RUN(NAME expr_09             LABELS cpython llvm llvm_jit c)
+RUN(NAME expr_10             LABELS cpython llvm llvm_jit c)
+RUN(NAME expr_11             LABELS cpython llvm llvm_jit c wasm)
+# RUN(NAME expr_12             LABELS llvm llvm_jit c)
+# RUN(NAME expr_13             LABELS llvm c
+#         EXTRAFILES expr_13b.c NOFAST)
+RUN(NAME expr_14             LABELS cpython llvm llvm_jit c)
+RUN(NAME expr_15             LABELS cpython llvm llvm_jit c)
+# RUN(NAME expr_16             LABELS cpython llvm llvm_jit c)
+RUN(NAME expr_17             LABELS cpython llvm llvm_jit c)
+RUN(NAME expr_18    FAIL     LABELS cpython llvm llvm_jit c)
+RUN(NAME expr_19             LABELS cpython llvm llvm_jit c)
+RUN(NAME expr_20             LABELS cpython llvm llvm_jit c)
+# RUN(NAME expr_21             LABELS cpython llvm llvm_jit c) # post sync
+RUN(NAME expr_22             LABELS cpython llvm llvm_jit c)
+RUN(NAME expr_23             LABELS cpython llvm llvm_jit c)
+# RUN(NAME expr_24             LABELS cpython wasm) # mandelbrot
+
+RUN(NAME expr_01u            LABELS cpython llvm llvm_jit c NOFAST)
+RUN(NAME expr_02u            LABELS cpython llvm llvm_jit c NOFAST)
+# RUN(NAME expr_03u            LABELS cpython llvm llvm_jit c NOFAST)
+# RUN(NAME expr_04u            LABELS cpython llvm llvm_jit c)
+
+RUN(NAME list_01             LABELS cpython llvm llvm_jit)
+
+RUN(NAME loop_01             LABELS cpython llvm llvm_jit) # renable c
+RUN(NAME loop_02             LABELS cpython llvm llvm_jit c wasm wasm_x86 wasm_x64)
+RUN(NAME loop_03             LABELS cpython llvm llvm_jit c wasm wasm_x64)
+RUN(NAME loop_04             LABELS cpython llvm llvm_jit c)
+RUN(NAME loop_05             LABELS cpython llvm llvm_jit c)
+RUN(NAME loop_06             LABELS cpython llvm llvm_jit NOFAST) # renable c
+RUN(NAME loop_07             LABELS cpython llvm llvm_jit c)
+RUN(NAME loop_08             LABELS cpython llvm llvm_jit c)
+RUN(NAME loop_09             LABELS cpython llvm llvm_jit)
+RUN(NAME loop_10             LABELS cpython llvm llvm_jit)
+# RUN(NAME loop_11             LABELS cpython llvm llvm_jit)
+RUN(NAME if_01               LABELS cpython llvm llvm_jit c wasm wasm_x86 wasm_x64)
+RUN(NAME if_02               LABELS cpython llvm llvm_jit c wasm wasm_x86 wasm_x64)
+RUN(NAME if_03    FAIL       LABELS cpython llvm llvm_jit NOFAST) # renable c
+# RUN(NAME print_02            LABELS cpython llvm llvm_jit) # renable c # post sync
+RUN(NAME test_types_01       LABELS cpython llvm llvm_jit c)
+RUN(NAME test_types_02       LABELS cpython llvm llvm_jit c wasm)
+# RUN(NAME test_str_01         LABELS cpython llvm llvm_jit c)
+RUN(NAME test_str_02         LABELS cpython llvm llvm_jit) # renable c
+# RUN(NAME test_str_03         LABELS cpython llvm llvm_jit) # renable c # str negative indexing
+RUN(NAME test_str_04         LABELS cpython llvm llvm_jit) # renable c, wasm
+RUN(NAME test_str_05         LABELS cpython llvm llvm_jit) # renable c
+# RUN(NAME test_str_06         LABELS cpython llvm llvm_jit c)
+RUN(NAME test_string_01      LABELS cpython llvm llvm_jit) # renable c
+RUN(NAME test_list_01        LABELS cpython llvm llvm_jit c)
+RUN(NAME test_list_02        LABELS cpython llvm llvm_jit) # renable c
+RUN(NAME test_list_03        LABELS cpython llvm llvm_jit NOFAST) # renable c
+RUN(NAME test_list_04        LABELS cpython llvm llvm_jit NOFAST) # renable c
+# RUN(NAME test_list_05        LABELS cpython llvm llvm_jit c NOFAST)
+RUN(NAME test_list_06        LABELS cpython llvm llvm_jit c)
+RUN(NAME test_list_07        LABELS cpython llvm llvm_jit c NOFAST)
+RUN(NAME test_list_08        LABELS cpython llvm llvm_jit c NOFAST)
+RUN(NAME test_list_09        LABELS cpython llvm llvm_jit NOFAST) # renable c
+# RUN(NAME test_list_10        LABELS cpython llvm llvm_jit c NOFAST)
+# RUN(NAME test_list_11        LABELS cpython llvm llvm_jit c)
+# RUN(NAME test_list_section   LABELS cpython llvm llvm_jit c NOFAST)
+# RUN(NAME test_list_section2  LABELS cpython llvm llvm_jit c NOFAST)
+# RUN(NAME test_list_count     LABELS cpython llvm llvm_jit) # post sync
+# RUN(NAME test_list_index     LABELS cpython llvm llvm_jit) # post sync
+# RUN(NAME test_list_index2    LABELS cpython llvm llvm_jit) # post sync
+# RUN(NAME test_list_repeat    LABELS cpython llvm llvm_jit c NOFAST)
+# RUN(NAME test_list_repeat2   LABELS cpython llvm llvm_jit c NOFAST)
+# RUN(NAME test_list_reverse   LABELS cpython llvm llvm_jit) # post sync
+# RUN(NAME test_list_pop       LABELS cpython llvm llvm_jit NOFAST) # TODO: Remove NOFAST from here.
+RUN(NAME test_list_pop2       LABELS cpython llvm llvm_jit NOFAST) # TODO: Remove NOFAST from here.
+RUN(NAME test_list_pop3      LABELS cpython llvm llvm_jit)
+# RUN(NAME test_list_compare   LABELS cpython llvm llvm_jit) # post sync
+RUN(NAME test_list_compare2   LABELS cpython llvm llvm_jit)
+RUN(NAME test_list_concat    LABELS cpython llvm llvm_jit c NOFAST)
+# RUN(NAME test_list_reserve   LABELS cpython llvm llvm_jit) # post sync
+# RUN(NAME test_const_list     LABELS cpython llvm llvm_jit) # post sync
+# RUN(NAME test_const_access     LABELS cpython llvm llvm_jit) # post sync
+# RUN(NAME test_tuple_01       LABELS cpython llvm llvm_jit) # renable c # post sync
+# RUN(NAME test_tuple_02       LABELS cpython llvm llvm_jit c NOFAST)
+# RUN(NAME test_tuple_03       LABELS cpython llvm llvm_jit) # renable c # post sync
+# RUN(NAME test_tuple_04       LABELS cpython llvm llvm_jit) # renable c # post sync
+# RUN(NAME test_tuple_concat   LABELS cpython llvm llvm_jit) # post sync
+# RUN(NAME test_tuple_nested   LABELS cpython llvm llvm_jit) # post sync
+# RUN(NAME test_const_dict     LABELS cpython llvm llvm_jit) # post sync
+# RUN(NAME test_params         LABELS cpython llvm llvm_jit NOFAST)
+RUN(NAME test_dict_01        LABELS cpython llvm llvm_jit c) # post sync
+RUN(NAME test_dict_02        LABELS cpython llvm llvm_jit c NOFAST)
+# RUN(NAME test_dict_03        LABELS cpython llvm llvm_jit NOFAST) 
+RUN(NAME test_dict_04        LABELS cpython llvm llvm_jit NOFAST)
+RUN(NAME test_dict_05        LABELS cpython llvm llvm_jit c)
+RUN(NAME test_dict_06        LABELS cpython llvm llvm_jit c)
+# RUN(NAME test_dict_07        LABELS cpython llvm llvm_jit c)
+RUN(NAME test_dict_08        LABELS cpython llvm llvm_jit c)
+RUN(NAME test_dict_09        LABELS cpython llvm llvm_jit c)
+# RUN(NAME test_dict_10        LABELS cpython llvm llvm_jit) # renable c # post sync
+# RUN(NAME test_dict_11        LABELS cpython llvm llvm_jit c) # post sync
+RUN(NAME test_dict_12        LABELS cpython llvm) # renable c, jit
+RUN(NAME test_dict_13        LABELS cpython llvm) # renable c, jit
+# RUN(NAME test_dict_bool      LABELS cpython llvm llvm_jit) # post sync
+# RUN(NAME test_dict_increment LABELS cpython llvm llvm_jit) # post sync
+# RUN(NAME test_dict_keys_values LABELS cpython llvm llvm_jit)
+# RUN(NAME test_dict_nested1   LABELS cpython llvm llvm_jit)
+# RUN(NAME test_dict_clear     LABELS cpython llvm)
+# RUN(NAME test_set_len        LABELS cpython llvm llvm_jit) # post sync
+# RUN(NAME test_set_add        LABELS cpython llvm llvm_jit) # post sync
+# RUN(NAME test_set_remove     LABELS cpython llvm llvm_jit)
+# RUN(NAME test_set_discard     LABELS cpython llvm llvm_jit)
+# RUN(NAME test_set_from_list     LABELS cpython llvm llvm_jit)
+# RUN(NAME test_set_clear     LABELS cpython llvm)
+# RUN(NAME test_set_pop     LABELS cpython llvm)
+# RUN(NAME test_global_set     LABELS cpython llvm llvm_jit) # post sync
+RUN(NAME test_for_loop       LABELS cpython llvm llvm_jit c)
+RUN(NAME modules_01          LABELS cpython llvm llvm_jit c wasm wasm_x86 wasm_x64)
+RUN(NAME modules_02          LABELS cpython llvm llvm_jit c wasm wasm_x86 wasm_x64)
+RUN(NAME test_import_01      LABELS cpython llvm llvm_jit) # renable c
+RUN(NAME test_import_02      LABELS cpython llvm llvm_jit c)
+RUN(NAME test_import_03      LABELS cpython llvm llvm_jit) # renable c
+RUN(NAME test_import_04      LABELS cpython llvm llvm_jit c)
+RUN(NAME test_import_05      LABELS cpython llvm llvm_jit c wasm wasm_x86 wasm_x64)
+RUN(NAME test_import_06      LABELS cpython llvm llvm_jit) 
+RUN(NAME test_import_07      LABELS cpython llvm llvm_jit c)
+RUN(NAME test_import_08      LABELS cpython llvm)
+RUN(NAME test_math           LABELS cpython llvm llvm_jit NOFAST)
+# RUN(NAME test_membership_01  LABELS cpython llvm)
+RUN(NAME test_numpy_01       LABELS cpython llvm llvm_jit c)
+RUN(NAME test_numpy_02       LABELS cpython llvm llvm_jit c)
+RUN(NAME test_numpy_03       LABELS cpython llvm llvm_jit c)
+RUN(NAME test_numpy_04       LABELS cpython llvm llvm_jit c)
+RUN(NAME elemental_01        LABELS cpython llvm llvm_jit NOFAST) # renable c
+RUN(NAME elemental_02        LABELS cpython llvm llvm_jit c NOFAST)
+RUN(NAME elemental_03        LABELS cpython llvm llvm_jit NOFAST) # renable c
+RUN(NAME elemental_04        LABELS cpython llvm llvm_jit c NOFAST)
+RUN(NAME elemental_05        LABELS cpython llvm llvm_jit NOFAST) # renable c
+RUN(NAME elemental_06        LABELS cpython llvm llvm_jit NOFAST) # renable c
+RUN(NAME elemental_07        LABELS cpython llvm llvm_jit NOFAST) # renable c
+RUN(NAME elemental_08        LABELS cpython llvm llvm_jit c NOFAST)
+RUN(NAME elemental_09        LABELS cpython llvm llvm_jit NOFAST) # renable c
+RUN(NAME elemental_10        LABELS cpython llvm llvm_jit NOFAST) # renable c
+RUN(NAME elemental_11        LABELS cpython llvm llvm_jit NOFAST) # renable c
+RUN(NAME elemental_12        LABELS cpython llvm llvm_jit c NOFAST)
+RUN(NAME elemental_13        LABELS cpython llvm llvm_jit c NOFAST)
+RUN(NAME test_random         LABELS cpython llvm llvm_jit NOFAST)
+RUN(NAME test_random_02         LABELS cpython llvm llvm_jit NOFAST)
+# RUN(NAME test_os             LABELS cpython llvm llvm_jit NOFAST) # renable c # post sync
+# RUN(NAME test_builtin        LABELS cpython llvm llvm_jit) # renable c # post sync
+RUN(NAME test_builtin_abs    LABELS cpython llvm llvm_jit c)
+# RUN(NAME test_builtin_bool   LABELS cpython llvm llvm_jit c)
+RUN(NAME test_builtin_pow    LABELS cpython llvm llvm_jit c EXTRA_ARGS --no-warnings)
+# RUN(NAME test_builtin_int    LABELS cpython llvm llvm_jit c)
+# RUN(NAME test_builtin_len    LABELS cpython llvm llvm_jit c)
+# RUN(NAME test_builtin_str    LABELS cpython llvm llvm_jit c)
+# RUN(NAME test_builtin_oct    LABELS cpython llvm llvm_jit c)
+# RUN(NAME test_builtin_hex    LABELS cpython llvm llvm_jit c)
+# RUN(NAME test_builtin_bin    LABELS cpython llvm llvm_jit c)
+RUN(NAME test_builtin_float  LABELS cpython llvm llvm_jit c)
+# RUN(NAME test_builtin_str_02 LABELS cpython llvm llvm_jit c NOFAST)
+RUN(NAME test_builtin_round  LABELS cpython llvm llvm_jit c)
+RUN(NAME test_builtin_divmod LABELS cpython llvm llvm_jit c)
+RUN(NAME test_builtin_sum    LABELS cpython llvm llvm_jit c)
+RUN(NAME test_math1          LABELS cpython llvm llvm_jit c)
+RUN(NAME test_math_02        LABELS cpython llvm llvm_jit NOFAST)
+RUN(NAME test_math_03        LABELS llvm llvm_jit)               #1595: TODO: Test using CPython (3.11 recommended)
+# RUN(NAME test_pass_compare   LABELS cpython llvm llvm_jit) # renable c # post sync
+RUN(NAME test_c_interop_01   LABELS cpython llvm llvm_jit c)
+# RUN(NAME test_c_interop_02   LABELS cpython llvm c
+#         EXTRAFILES test_c_interop_02b.c)
+# RUN(NAME test_c_interop_03   LABELS cpython llvm c
+        # EXTRAFILES test_c_interop_03b.c)
+# RUN(NAME test_c_interop_04   LABELS cpython llvm llvm_jit c
+#         EXTRAFILES test_c_interop_04b.c)
+# RUN(NAME test_c_interop_05   LABELS llvm c
+#         EXTRAFILES test_c_interop_05b.c)
+# RUN(NAME bindc_03   LABELS llvm c
+#         EXTRAFILES bindc_03b.c)
+# RUN(NAME bindc_05   LABELS llvm c
+#         EXTRAFILES bindc_05b.c)
+# RUN(NAME bindc_06   LABELS llvm
+#         EXTRAFILES bindc_06b.c) # renable c
+# RUN(NAME bindpy_01           LABELS cpython llvm_py c_py EXTRA_ARGS --enable-cpython NOFAST COPY_TO_BIN bindpy_01_module.py)
+# RUN(NAME bindpy_02           LABELS cpython c_py EXTRA_ARGS --link-numpy COPY_TO_BIN bindpy_02_module.py)
+# RUN(NAME bindpy_03           LABELS cpython c_py EXTRA_ARGS --link-numpy NOFAST COPY_TO_BIN bindpy_03_module.py)
+# RUN(NAME bindpy_04           LABELS cpython c_py EXTRA_ARGS --link-numpy NOFAST COPY_TO_BIN bindpy_04_module.py)
+# RUN(NAME bindpy_05           LABELS llvm_py c_py EXTRA_ARGS --enable-cpython COPY_TO_BIN bindpy_05_module.py REQ_PY_VER 3.10)
+# RUN(NAME bindpy_06           LABELS cpython llvm_py EXTRA_ARGS --enable-cpython NOFAST COPY_TO_BIN bindpy_06_module.py REQ_PY_VER 3.10)
+# RUN(NAME test_generics_01    LABELS cpython llvm llvm_jit NOFAST) # renable c # post sync
+RUN(NAME test_cmath          LABELS cpython llvm llvm_jit c NOFAST)
+RUN(NAME test_complex_01        LABELS cpython llvm llvm_jit c wasm wasm_x64)
+RUN(NAME test_complex_02        LABELS cpython llvm llvm_jit c)
+RUN(NAME test_ConstantEllipsis  LABLES cpython llvm llvm_jit c)
+RUN(NAME test_max_min        LABELS cpython llvm llvm_jit c)
+RUN(NAME test_global         LABELS cpython llvm llvm_jit) # renable c
+RUN(NAME test_global_decl    LABELS cpython llvm llvm_jit) # renable c
+RUN(NAME test_ifexp_01          LABELS cpython llvm llvm_jit c)
+RUN(NAME test_ifexp_02          LABELS cpython llvm llvm_jit c)
+RUN(NAME test_ifexp_03          LABELS cpython llvm llvm_jit c)
+RUN(NAME test_unary_op_01    LABELS cpython llvm llvm_jit c) # unary minus
+RUN(NAME test_unary_op_02    LABELS cpython llvm llvm_jit c) # unary plus
+RUN(NAME test_unary_op_03    LABELS cpython llvm llvm_jit c wasm) # unary bitinvert
+RUN(NAME test_unary_op_04    LABELS cpython llvm llvm_jit c) # unary bitinvert
+RUN(NAME test_unary_op_05    LABELS cpython llvm llvm_jit c) # unsigned unary minus, plus
+RUN(NAME test_unary_op_06    LABELS cpython llvm llvm_jit c) # unsigned unary bitnot
+RUN(NAME test_unsigned_01    LABELS cpython llvm llvm_jit c) # unsigned bitshift left, right
+RUN(NAME test_unsigned_02    LABELS cpython llvm llvm_jit c)
+RUN(NAME test_unsigned_03    LABELS cpython llvm llvm_jit c)
+RUN(NAME test_bool_binop     LABELS cpython llvm llvm_jit c)
+RUN(NAME test_issue_518      LABELS cpython llvm llvm_jit c NOFAST)
+RUN(NAME structs_01          LABELS cpython llvm llvm_jit c)
+# RUN(NAME structs_02          LABELS cpython llvm llvm_jit c)
+# RUN(NAME structs_02b         LABELS cpython llvm llvm_jit c NOFAST)
+# RUN(NAME structs_03          LABELS llvm llvm_jit c)
+# RUN(NAME structs_04          LABELS cpython llvm llvm_jit c)
+# RUN(NAME structs_05          LABELS cpython llvm llvm_jit c)
+# RUN(NAME structs_06          LABELS cpython llvm llvm_jit c)
+# RUN(NAME structs_07          LABELS llvm c
+#         EXTRAFILES structs_07b.c)
+# RUN(NAME structs_08          LABELS cpython llvm llvm_jit c)
+# RUN(NAME structs_09          LABELS cpython llvm llvm_jit c)
+# RUN(NAME structs_10          LABELS cpython llvm llvm_jit c NOFAST)
+# RUN(NAME structs_11          LABELS cpython llvm llvm_jit c)
+RUN(NAME structs_12          LABELS cpython llvm llvm_jit c)
+# RUN(NAME structs_13          LABELS llvm c
+#     EXTRAFILES structs_13b.c)
+RUN(NAME structs_14          LABELS cpython llvm llvm_jit c)
+# RUN(NAME structs_15          LABELS cpython llvm llvm_jit c)
+# RUN(NAME structs_16          LABELS cpython llvm llvm_jit c)
+# RUN(NAME structs_17          LABELS cpython llvm llvm_jit c)
+# RUN(NAME structs_18          LABELS cpython llvm c
+#     EXTRAFILES structs_18b.c)
+# RUN(NAME structs_19          LABELS cpython llvm c
+#     EXTRAFILES structs_19b.c)
+# RUN(NAME structs_20          LABELS cpython llvm c
+#     EXTRAFILES structs_20b.c)
+# RUN(NAME structs_21          LABELS cpython llvm llvm_jit c)
+# RUN(NAME structs_22          LABELS cpython llvm llvm_jit c NOFAST)
+RUN(NAME structs_23          LABELS cpython llvm llvm_jit c NOFAST)
+# RUN(NAME structs_24          LABELS cpython llvm llvm_jit c)
+# RUN(NAME structs_25          LABELS cpython llvm llvm_jit c) # post sync
+RUN(NAME structs_26          LABELS cpython llvm llvm_jit) # renable c
+RUN(NAME structs_27          LABELS cpython llvm llvm_jit) # renable c
+RUN(NAME structs_28          LABELS cpython llvm llvm_jit) # renable c
+# RUN(NAME structs_29          LABELS cpython llvm llvm_jit)
+RUN(NAME structs_30          LABELS cpython llvm llvm_jit) # renable c
+# RUN(NAME structs_31          LABELS cpython llvm llvm_jit c)
+# RUN(NAME structs_32          LABELS cpython llvm llvm_jit c)
+# RUN(NAME structs_33          LABELS cpython llvm llvm_jit c)
+# RUN(NAME structs_34          LABELS cpython llvm llvm_jit c)
+RUN(NAME structs_35          LABELS cpython llvm llvm_jit)
+
+# RUN(NAME symbolics_01        LABELS cpython_sym c_sym llvm_sym llvm_jit NOFAST EXTRA_ARGS --enable-symengine)
+# RUN(NAME symbolics_02        LABELS cpython_sym c_sym llvm_sym llvm_jit NOFAST EXTRA_ARGS --enable-symengine)
+# RUN(NAME symbolics_03        LABELS cpython_sym c_sym llvm_sym llvm_jit NOFAST EXTRA_ARGS --enable-symengine)
+# RUN(NAME symbolics_04        LABELS cpython_sym c_sym llvm_sym llvm_jit NOFAST EXTRA_ARGS --enable-symengine)
+# RUN(NAME symbolics_05        LABELS cpython_sym c_sym llvm_sym llvm_jit NOFAST EXTRA_ARGS --enable-symengine)
+# RUN(NAME symbolics_06        LABELS cpython_sym c_sym llvm_sym llvm_jit NOFAST EXTRA_ARGS --enable-symengine)
+# RUN(NAME symbolics_07        LABELS cpython_sym c_sym llvm_sym llvm_jit NOFAST EXTRA_ARGS --enable-symengine)
+# RUN(NAME symbolics_08        LABELS cpython_sym llvm_sym llvm_jit EXTRA_ARGS --enable-symengine) # renable c_sym
+# RUN(NAME symbolics_09        LABELS cpython_sym c_sym llvm_sym llvm_jit NOFAST EXTRA_ARGS --enable-symengine)
+# RUN(NAME symbolics_10        LABELS cpython_sym c_sym llvm_sym NOFAST EXTRA_ARGS --enable-symengine)
+# RUN(NAME symbolics_11        LABELS cpython_sym c_sym llvm_sym llvm_jit NOFAST EXTRA_ARGS --enable-symengine)
+# RUN(NAME symbolics_12        LABELS cpython_sym c_sym llvm_sym llvm_jit NOFAST EXTRA_ARGS --enable-symengine)
+# RUN(NAME symbolics_13        LABELS cpython_sym c_sym llvm_sym llvm_jit NOFAST EXTRA_ARGS --enable-symengine)
+# RUN(NAME symbolics_14        LABELS cpython_sym c_sym llvm_sym llvm_jit NOFAST EXTRA_ARGS --enable-symengine)
+# RUN(NAME test_gruntz         LABELS cpython_sym c_sym llvm_sym NOFAST EXTRA_ARGS --enable-symengine)
+# RUN(NAME symbolics_15        LABELS c_sym llvm_sym llvm_jit NOFAST EXTRA_ARGS --enable-symengine)
+# RUN(NAME symbolics_16        LABELS cpython_sym c_sym llvm_sym llvm_jit NOFAST EXTRA_ARGS --enable-symengine)
+# RUN(NAME symbolics_17        LABELS cpython_sym c_sym llvm_sym llvm_jit NOFAST EXTRA_ARGS --enable-symengine)
+# RUN(NAME symbolics_18        LABELS cpython_sym c_sym llvm_sym llvm_jit NOFAST EXTRA_ARGS --enable-symengine)
+# RUN(NAME gruntz_demo3        LABELS cpython_sym c_sym llvm_sym llvm_jit NOFAST EXTRA_ARGS --enable-symengine)
+
+# RUN(NAME sizeof_01           LABELS llvm c
+#         EXTRAFILES sizeof_01b.c)
+# RUN(NAME sizeof_02           LABELS cpython llvm llvm_jit c)
+# RUN(NAME enum_01             LABELS cpython llvm llvm_jit c NOFAST)
+# RUN(NAME enum_02             LABELS cpython llvm llvm_jit NOFAST)
+RUN(NAME enum_03             LABELS cpython llvm llvm_jit c NOFAST)
+# RUN(NAME enum_04             LABELS cpython llvm llvm_jit c NOFAST)
+# RUN(NAME enum_05             LABELS llvm c
+#         EXTRAFILES enum_05b.c NOFAST)
+# RUN(NAME enum_06             LABELS cpython llvm llvm_jit c)
+RUN(NAME enum_07             IMPORT_PATH ..
+                             LABELS cpython llvm llvm_jit c NOFAST)
+RUN(NAME union_01            LABELS cpython llvm llvm_jit c)
+# RUN(NAME union_02            LABELS cpython llvm llvm_jit c NOFAST)
+RUN(NAME union_03            LABELS cpython llvm llvm_jit c)
+RUN(NAME union_04            IMPORT_PATH ..
+                             LABELS cpython llvm llvm_jit c)
+# RUN(NAME test_str_to_int     LABELS cpython llvm llvm_jit c)
+# RUN(NAME test_platform       LABELS cpython llvm llvm_jit) # renable c
+RUN(NAME test_vars_01        LABELS cpython llvm llvm_jit)
+# RUN(NAME test_version        LABELS cpython llvm llvm_jit) # post sync
+RUN(NAME logical_binop1      LABELS cpython llvm llvm_jit)
+# RUN(NAME test_logical_compare           LABELS cpython llvm llvm_jit) # TODO: Add C backend after fixing issue #2708
+# RUN(NAME test_logical_assignment        LABELS cpython llvm llvm_jit) # TODO: Add C backend after fixing issue #2708
+RUN(NAME vec_01              LABELS cpython llvm llvm_jit c NOFAST)
+# RUN(NAME test_str_comparison LABELS cpython llvm llvm_jit c wasm)
+RUN(NAME test_bit_length     LABELS cpython) # renable c, FIXME: This test fails on llvm & llvm_jit
+# RUN(NAME str_to_list_cast    LABELS cpython llvm llvm_jit c)
+# RUN(NAME cast_01             LABELS cpython llvm llvm_jit c)
+# RUN(NAME cast_02             LABELS cpython llvm llvm_jit c)
+# RUN(NAME test_sys_01         LABELS cpython llvm llvm_jit c NOFAST)
+# RUN(NAME intent_01           LABELS cpython llvm llvm_jit)
+
+
+# RUN(NAME test_package_01     LABELS cpython llvm llvm_jit NOFAST)
+# RUN(NAME test_pkg_lpdraw     LABELS cpython llvm llvm_jit wasm)
+# RUN(NAME test_pkg_lnn_01        LABELS cpython llvm llvm_jit NOFAST)
+# RUN(NAME test_pkg_lnn_02        LABELS cpython llvm llvm_jit NOFAST)
+# RUN(NAME test_pkg_lpconvexhull  LABELS cpython llvm llvm_jit c NOFAST)
+
+# RUN(NAME generics_01         LABELS cpython llvm llvm_jit) # renable c # post sync
+# RUN(NAME generics_02         LABELS cpython llvm llvm_jit c)
+# RUN(NAME generics_array_01   LABELS cpython llvm llvm_jit c)
+# RUN(NAME generics_array_02   LABELS cpython llvm llvm_jit c)
+# RUN(NAME generics_array_03   LABELS cpython llvm llvm_jit c)
+# RUN(NAME generics_list_01    LABELS cpython llvm llvm_jit) # renable c # post sync
+RUN(NAME test_statistics_01  LABELS cpython llvm llvm_jit NOFAST)
+RUN(NAME test_statistics_02  LABELS cpython llvm llvm_jit NOFAST REQ_PY_VER 3.10)
+# RUN(NAME test_attributes     LABELS cpython llvm llvm_jit)
+# RUN(NAME test_str_attributes LABELS cpython llvm llvm_jit c)
+RUN(NAME kwargs_01           LABELS cpython llvm llvm_jit NOFAST) # renable c # post sync
+RUN(NAME def_func_01         LABELS cpython llvm llvm_jit) # renable c # post sync
+
+RUN(NAME func_inline_01 LABELS llvm llvm_jit c wasm)
+RUN(NAME func_inline_02 LABELS cpython llvm llvm_jit c)
+RUN(NAME func_static_01 LABELS cpython llvm llvm_jit c wasm)
+RUN(NAME func_static_02 LABELS cpython llvm llvm_jit c wasm)
+RUN(NAME func_dep_03    LABELS cpython llvm llvm_jit c)
+RUN(NAME func_dep_04    LABELS cpython llvm llvm_jit c)
+RUN(NAME func_internal_def_01 LABELS cpython llvm llvm_jit NOFAST)
+RUN(NAME func_01        LABELS cpython llvm llvm_jit)
+RUN(NAME func_02        LABELS c_sym llvm_sym llvm_jit NOFAST EXTRA_ARGS --enable-symengine)
+
+RUN(NAME float_01 LABELS cpython llvm llvm_jit c wasm wasm_x64)
+RUN(NAME recursive_01 LABELS cpython llvm llvm_jit c wasm wasm_x64 wasm_x86)
+RUN(NAME comp_01 LABELS cpython llvm llvm_jit c wasm wasm_x64)
+RUN(NAME bit_operations_i32 LABELS cpython llvm llvm_jit c wasm wasm_x64)
+RUN(NAME bit_operations_i64 LABELS cpython llvm llvm_jit c wasm)
+
+# RUN(NAME test_argv_01      LABELS cpython llvm NOFAST)
+RUN(NAME global_syms_01    LABELS cpython llvm llvm_jit c)
+RUN(NAME global_syms_02    LABELS cpython llvm llvm_jit c)
+# RUN(NAME global_syms_03_b  LABELS cpython llvm llvm_jit c)
+# RUN(NAME global_syms_03_c  LABELS cpython llvm llvm_jit c)
+# RUN(NAME global_syms_04    LABELS cpython llvm llvm_jit c wasm wasm_x64)
+RUN(NAME global_syms_05    LABELS cpython llvm llvm_jit c)
+RUN(NAME global_syms_06    LABELS cpython llvm llvm_jit c)
+
+RUN(NAME callback_01       LABELS cpython llvm llvm_jit c)
+RUN(NAME callback_02       LABELS cpython llvm llvm_jit c)
+RUN(NAME callback_03       LABELS cpython llvm llvm_jit c)
+
+RUN(NAME lambda_01         LABELS cpython llvm llvm_jit)
+
+RUN(NAME c_mangling        LABELS cpython llvm llvm_jit) # renable c
+# RUN(NAME class_01          LABELS cpython llvm llvm_jit)
+# RUN(NAME class_02          LABELS cpython llvm llvm_jit)
+# RUN(NAME class_03          LABELS cpython llvm llvm_jit)
+# RUN(NAME class_04          LABELS cpython llvm llvm_jit)
+# RUN(NAME class_05          LABELS cpython llvm llvm_jit)
+# RUN(NAME class_06          LABELS cpython llvm llvm_jit)
+
+
+# callback_04 is to test emulation. So just run with cpython
+RUN(NAME callback_04       IMPORT_PATH .. LABELS cpython)
+
+# Intrinsic Functions
+RUN(NAME intrinsics_01     LABELS cpython llvm llvm_jit NOFAST) # any
+RUN(NAME intrinsics_02     LABELS cpython llvm llvm_jit c) # floordiv
+# RUN(NAME test_builtin_type LABELS cpython llvm llvm_jit c) # type
+# RUN(NAME test_builtin_type_set LABELS cpython llvm llvm_jit) # type (specifically for `set`)
+
+# lpython decorator
+# RUN(NAME lpython_decorator_01    LABELS cpython)
+# RUN(NAME lpython_decorator_02    LABELS cpython)
+
+COMPILE(NAME import_order_01     LABELS cpython llvm llvm_jit c) # any
+
+# LPython emulation mode
+RUN(NAME lpython_emulation_01    LABELS cpython NOMOD)
diff --git a/integration_tests/array_01.py b/integration_tests/array_01.py
index 779b3934e1..c492d6b31c 100644
--- a/integration_tests/array_01.py
+++ b/integration_tests/array_01.py
@@ -1,9 +1,9 @@
-from ltypes import i32
-from numpy import empty
+from lpython import i32
+from numpy import empty, int32
 
 def main0():
     Nx: i32 = 600; Ny: i32 = 450
-    arr: i32[450, 600] = empty([Ny, Nx])
+    arr: i32[450, 600] = empty([450, 600], dtype=int32)
     i: i32
     j: i32
     for i in range(Ny):
diff --git a/integration_tests/array_01_decl.py b/integration_tests/array_01_decl.py
index 52812a030a..153f7c9557 100644
--- a/integration_tests/array_01_decl.py
+++ b/integration_tests/array_01_decl.py
@@ -1,4 +1,4 @@
-from ltypes import i16, i32, i64, f32, f64, c32, c64
+from lpython import i16, i32, i64, f32, f64, c32, c64
 from numpy import empty, int16, int32, int64, float32, float64, complex64, complex128
 from enum import Enum
 
diff --git a/integration_tests/array_02.py b/integration_tests/array_02.py
index 6e3c7bca7d..6c9c2ea5c2 100644
--- a/integration_tests/array_02.py
+++ b/integration_tests/array_02.py
@@ -1,9 +1,9 @@
-from ltypes import i32
-from numpy import empty
+from lpython import i32
+from numpy import empty, int32
 
 def main0():
     Nx: i32 = 60; Ny: i32 = 45; Nz: i32 = 20
-    arr: i32[45, 60, 20] = empty([Ny, Nx, Nz])
+    arr: i32[45, 60, 20] = empty([45, 60, 20], dtype=int32)
     i: i32
     j: i32
     k: i32
diff --git a/integration_tests/array_02_decl.py b/integration_tests/array_02_decl.py
index 5969ba8a85..1f5c07d76c 100644
--- a/integration_tests/array_02_decl.py
+++ b/integration_tests/array_02_decl.py
@@ -1,5 +1,5 @@
-from ltypes import i32, i64, f32, f64, c32, c64
-from numpy import empty
+from lpython import i32, i64, f32, f64, c32, c64
+from numpy import empty, int32, int64, float32, float64, complex64, complex128
 
 def accept_multidim_i32_array(xi32: i32[:, :]) -> i32:
     return xi32[0, 0]
@@ -14,12 +14,12 @@ def accept_multidim_f64_array(xf64: f64[:, :]) -> f64:
     return xf64[0, 1]
 
 def declare_arrays():
-    ai32: i32[3, 3] = empty([3, 3])
-    ai64: i64[10, 10, 10] = empty([10, 10, 10])
-    af32: f32[3] = empty(3)
-    af64: f64[10, 4] = empty([10, 4])
-    ac32: c32[3, 5, 99] = empty([3, 5, 99])
-    ac64: c64[10, 13, 11, 16] = empty([10, 13, 11, 16])
+    ai32: i32[3, 3] = empty([3, 3], dtype=int32)
+    ai64: i64[10, 10, 10] = empty([10, 10, 10], dtype=int64)
+    af32: f32[3] = empty(3, dtype=float32)
+    af64: f64[10, 4] = empty([10, 4], dtype=float64)
+    ac32: c32[3, 5, 99] = empty([3, 5, 99], dtype=complex64)
+    ac64: c64[10, 13, 11, 16] = empty([10, 13, 11, 16], dtype=complex128)
     print(accept_multidim_i32_array(ai32))
     print(accept_multidim_i64_array(ai64))
     print(accept_multidim_f32_array(af32))
diff --git a/integration_tests/array_03.py b/integration_tests/array_03.py
new file mode 100644
index 0000000000..975fe4aea6
--- /dev/null
+++ b/integration_tests/array_03.py
@@ -0,0 +1,20 @@
+from lpython import Allocatable, f64, i32
+from numpy import empty, float64, int32
+
+def f():
+    n: i32 = 5
+    a: Allocatable[f64[:]] = empty((n,), dtype=float64)
+    i: i32
+    for i in range(n):
+        a[i] = f64(i+1)
+    for i in range(n):
+        assert abs(a[i] - f64(i + 1)) < 1e-12
+    b: Allocatable[i32[:]]
+    n = 10
+    b = empty((n,), dtype=int32)
+    for i in range(n):
+        b[i] = i+1
+    for i in range(n):
+        assert b[i] == i+1
+
+f()
diff --git a/integration_tests/array_03_decl.py b/integration_tests/array_03_decl.py
index 7b38806fc4..9fb02782ca 100644
--- a/integration_tests/array_03_decl.py
+++ b/integration_tests/array_03_decl.py
@@ -1,4 +1,4 @@
-from ltypes import i32, f64, dataclass
+from lpython import i32, f64, dataclass
 from numpy import empty
 
 @dataclass
@@ -12,8 +12,8 @@ class Truck:
     wheels: i32
 
 def declare_struct_array():
-    cars: Car[1] = empty(10, dtype=Car)
-    trucks: Truck[2] = empty(20, dtype=Truck)
+    cars: Car[1] = empty(1, dtype=Car)
+    trucks: Truck[2] = empty(2, dtype=Truck)
     cars[0] = Car(100000, 800.0)
     trucks[0] = Truck(1000000, 8)
     trucks[1] = Truck(5000000, 12)
diff --git a/integration_tests/array_04.py b/integration_tests/array_04.py
new file mode 100644
index 0000000000..c7cd24ae4a
--- /dev/null
+++ b/integration_tests/array_04.py
@@ -0,0 +1,19 @@
+from lpython import i32, Const
+from numpy import empty, int32
+
+def main0():
+    n: Const[i32] = 1
+    x: i32[n, n] = empty([n, n], dtype=int32)
+    y: i32[n, n] = empty([n, n], dtype=int32)
+
+    x[0, 0] = -10
+    y[0, 0] = -10
+
+    print(x[0, 0], y[0, 0])
+    assert x == y
+
+    y[0, 0] = 10
+    print(x[0, 0], y[0, 0])
+    assert x != y
+
+main0()
diff --git a/integration_tests/array_05.py b/integration_tests/array_05.py
new file mode 100644
index 0000000000..4c18576cac
--- /dev/null
+++ b/integration_tests/array_05.py
@@ -0,0 +1,39 @@
+from lpython import i32, f64, Array
+from numpy import empty, int32, float64
+
+
+def test_1():
+    y: Array[f64, 3] = empty([3], dtype=float64)
+    y[0] = 3.14
+    y[1] = -4.14
+    y[2] = 100.100
+
+    print(y)
+    assert abs(y[0] - (3.14)) <= 1e-6
+    assert abs(y[1] - (-4.14)) <= 1e-6
+    assert abs(y[2] - (100.100)) <= 1e-6
+
+def test_2():
+    x: Array[i32, 2, 3] = empty([2, 3], dtype=int32)
+
+    x[0, 0] = 5
+    x[0, 1] = -10
+    x[0, 2] = 15
+    x[1, 0] = 4
+    x[1, 1] = -14
+    x[1, 2] = 100
+
+    print(x)
+    assert x[0, 0] == 5
+    assert x[0, 1] == -10
+    assert x[0, 2] == 15
+    assert x[1, 0] == 4
+    assert x[1, 1] == -14
+    assert x[1, 2] == 100
+
+
+def main0():
+    test_1()
+    test_2()
+
+main0()
diff --git a/integration_tests/array_06.py b/integration_tests/array_06.py
new file mode 100644
index 0000000000..b44d4ed347
--- /dev/null
+++ b/integration_tests/array_06.py
@@ -0,0 +1,19 @@
+from numpy import empty, int16
+from lpython import i16, i32, Const
+
+def spot_print_lpython_array(a: i16[:,:]) -> None:
+    print(a)
+
+def main() -> i32:
+    n  : Const[i32] = 15
+    m  : Const[i32] = 3
+    Anm: i16[n, m] = empty((n,m), dtype=int16)
+    i: i32; j: i32
+    for i in range(n):
+        for j in range(m):
+            Anm[i,j] = i16(5)
+    spot_print_lpython_array(Anm)
+    return 0
+
+if __name__ == "__main__":
+    main()
diff --git a/integration_tests/array_expr_01.py b/integration_tests/array_expr_01.py
index 8890fd621f..0136710c93 100644
--- a/integration_tests/array_expr_01.py
+++ b/integration_tests/array_expr_01.py
@@ -1,22 +1,18 @@
-from ltypes import i32, f32, f64
+from lpython import Const, i32, f32, f64
 from numpy import empty, reshape, int32, float64
 
 def array_expr_01():
-    dim1: i32
-    dim2: i32
-    dim3: i32
-    dim1d: i32
+    dim1: Const[i32] = 10
+    dim2: Const[i32] = 10
+    dim3: Const[i32] = 5
+    dim1d: Const[i32] = dim1 * dim2 * dim3
+
     i: i32
     shape1d: i32[1] = empty(1, dtype=int32)
     shape3d: i32[3] = empty(3, dtype=int32)
     eps: f64
     eps = 1e-12
 
-    dim1 = 10
-    dim2 = 10
-    dim3 = 5
-    dim1d = dim1 * dim2 * dim3
-
     e: f64[10, 10, 5] = empty((dim1, dim2, dim3), dtype=float64)
     f: f64[10, 10, 5] = empty((dim1, dim2, dim3), dtype=float64)
     g: f64[500] = empty(dim1d, dtype=float64)
diff --git a/integration_tests/array_expr_02.py b/integration_tests/array_expr_02.py
index 332a223653..28fbe6b38a 100644
--- a/integration_tests/array_expr_02.py
+++ b/integration_tests/array_expr_02.py
@@ -1,7 +1,6 @@
-from ltypes import i32, f32, TypeVar
+from lpython import i32, f32, TypeVar
 from numpy import empty, sqrt, float32
 
-n: i32
 n = TypeVar("n")
 
 def modify(array_a: f32[:], n: i32) -> f32[n]:
diff --git a/integration_tests/array_expr_03.py b/integration_tests/array_expr_03.py
new file mode 100644
index 0000000000..f0af73a57b
--- /dev/null
+++ b/integration_tests/array_expr_03.py
@@ -0,0 +1,24 @@
+from lpython import i8, i32, dataclass, field
+from numpy import empty, int8, array
+
+
+@dataclass
+class LPBHV_small:
+    dim: i32 = 4
+    a: i8[4] = field(default_factory=lambda: empty(4, dtype=int8))
+
+
+def g():
+    l2: LPBHV_small = LPBHV_small(4, array([127, -127, 3, 111], dtype=int8))
+
+    print(l2.dim)
+    assert l2.dim == 4
+
+    print(l2.a[0], l2.a[1], l2.a[2], l2.a[3])
+    assert l2.a[0] == i8(127)
+    assert l2.a[1] == i8(-127)
+    assert l2.a[2] == i8(3)
+    assert l2.a[3] == i8(111)
+
+
+g()
diff --git a/integration_tests/array_expr_04.py b/integration_tests/array_expr_04.py
new file mode 100644
index 0000000000..c14e4cc988
--- /dev/null
+++ b/integration_tests/array_expr_04.py
@@ -0,0 +1,35 @@
+from lpython import i8, i16, i32, i64
+from numpy import int8, int16, int32, int64, array
+
+def g():
+    a8: i8[4] = array([127, -127, 3, 111], dtype=int8)
+    a16: i16[4] = array([127, -127, 3, 111], dtype=int16)
+    a32: i32[4] = array([127, -127, 3, 111], dtype=int32)
+    a64: i64[4] = array([127, -127, 3, 111], dtype=int64)
+
+    print(a8)
+    print(a16)
+    print(a32)
+    print(a64)
+
+    assert (a8[0] == i8(127))
+    assert (a8[1] == i8(-127))
+    assert (a8[2] == i8(3))
+    assert (a8[3] == i8(111))
+
+    assert (a16[0] == i16(127))
+    assert (a16[1] == i16(-127))
+    assert (a16[2] == i16(3))
+    assert (a16[3] == i16(111))
+
+    assert (a32[0] == i32(127))
+    assert (a32[1] == i32(-127))
+    assert (a32[2] == i32(3))
+    assert (a32[3] == i32(111))
+
+    assert (a64[0] == i64(127))
+    assert (a64[1] == i64(-127))
+    assert (a64[2] == i64(3))
+    assert (a64[3] == i64(111))
+
+g()
diff --git a/integration_tests/array_expr_05.py b/integration_tests/array_expr_05.py
new file mode 100644
index 0000000000..7a7beeb1ae
--- /dev/null
+++ b/integration_tests/array_expr_05.py
@@ -0,0 +1,31 @@
+from lpython import u8, u16, u32, u64, i8
+from numpy import uint8, uint16, uint32, uint64, array
+
+def g():
+    a8: u8[3] = array([127, 3, 111], dtype=uint8)
+    a16: u16[3] = array([127, 3, 111], dtype=uint16)
+    a32: u32[3] = array([127, 3, 111], dtype=uint32)
+    a64: u64[3] = array([127, 3, 111], dtype=uint64)
+
+    assert (a8[0] == u8(127))
+    assert (a8[1] == u8(3))
+    assert (a8[2] == u8(111))
+
+    assert (a16[0] == u16(127))
+    assert (a16[1] == u16(3))
+    assert (a16[2] == u16(111))
+
+    assert (a32[0] == u32(127))
+    assert (a32[1] == u32(3))
+    assert (a32[2] == u32(111))
+
+    assert (a64[0] == u64(127))
+    assert (a64[1] == u64(3))
+    assert (a64[2] == u64(111))
+
+    print(a8)
+    print(a16)
+    print(a32)
+    print(a64)
+
+g()
diff --git a/integration_tests/array_expr_06.py b/integration_tests/array_expr_06.py
new file mode 100644
index 0000000000..b6dc397d87
--- /dev/null
+++ b/integration_tests/array_expr_06.py
@@ -0,0 +1,21 @@
+from lpython import f32, f64
+from numpy import float32, float64, array
+
+def g():
+    a32: f32[4] = array([127, -127, 3, 111], dtype=float32)
+    a64: f64[4] = array([127, -127, 3, 111], dtype=float64)
+
+    print(a32)
+    print(a64)
+
+    assert (abs(a32[0] - f32(127)) <= f32(1e-5))
+    assert (abs(a32[1] - f32(-127)) <= f32(1e-5))
+    assert (abs(a32[2] - f32(3)) <= f32(1e-5))
+    assert (abs(a32[3] - f32(111)) <= f32(1e-5))
+
+    assert (abs(a64[0] - f64(127)) <= 1e-5)
+    assert (abs(a64[1] - f64(-127)) <= 1e-5)
+    assert (abs(a64[2] - f64(3)) <= 1e-5)
+    assert (abs(a64[3] - f64(111)) <= 1e-5)
+
+g()
diff --git a/integration_tests/array_expr_07.py b/integration_tests/array_expr_07.py
new file mode 100644
index 0000000000..598a7fcb64
--- /dev/null
+++ b/integration_tests/array_expr_07.py
@@ -0,0 +1,21 @@
+from lpython import c32, c64, f32
+from numpy import complex64, complex128, array
+
+def g():
+    a32: c32[4] = array([127, -127, 3, 111], dtype=complex64)
+    a64: c64[4] = array([127, -127, 3, 111], dtype=complex128)
+
+    print(a32)
+    print(a64)
+
+    assert (abs(a32[0] - c32(127)) <= f32(1e-5))
+    assert (abs(a32[1] - c32(-127)) <= f32(1e-5))
+    assert (abs(a32[2] - c32(3)) <= f32(1e-5))
+    assert (abs(a32[3] - c32(111)) <= f32(1e-5))
+
+    assert (abs(a64[0] - c64(127)) <= 1e-5)
+    assert (abs(a64[1] - c64(-127)) <= 1e-5)
+    assert (abs(a64[2] - c64(3)) <= 1e-5)
+    assert (abs(a64[3] - c64(111)) <= 1e-5)
+
+g()
diff --git a/integration_tests/array_expr_08.py b/integration_tests/array_expr_08.py
new file mode 100644
index 0000000000..ba0cf0dcb7
--- /dev/null
+++ b/integration_tests/array_expr_08.py
@@ -0,0 +1,14 @@
+from lpython import i1
+from numpy import bool_, array
+
+def g():
+    a1: i1[4] = array([0, -127, 0, 111], dtype=bool_)
+
+    print(a1)
+
+    assert not a1[0]
+    assert a1[1]
+    assert not a1[2]
+    assert a1[3]
+
+g()
diff --git a/integration_tests/array_expr_09.py b/integration_tests/array_expr_09.py
new file mode 100644
index 0000000000..3590f65ca3
--- /dev/null
+++ b/integration_tests/array_expr_09.py
@@ -0,0 +1,23 @@
+from lpython import (i32, Const)
+from numpy import empty, int32
+
+dim: Const[i32] = 2
+dim2: Const[i32] = 3
+
+def g():
+    a: i32[dim, dim2] = empty((dim, dim2), dtype=int32)
+    i1: i32 = 0
+    i2: i32 = 0
+    for i1 in range(dim):
+        for i2 in range(dim2):
+            a[i1, i2] = i32(i1 * dim2 + i2)
+    # a: [[0, 1, 2], [3, 4, 5]]
+    print(a)
+    assert a[-1, -1] == 5
+    assert a[-1, -2] == 4
+    assert a[-1, -3] == 3
+    assert a[-2, -1] == 2
+    assert a[-2, -2] == 1
+    assert a[-2, -3] == 0
+
+g()
\ No newline at end of file
diff --git a/integration_tests/array_expr_10.py b/integration_tests/array_expr_10.py
new file mode 100644
index 0000000000..3681702818
--- /dev/null
+++ b/integration_tests/array_expr_10.py
@@ -0,0 +1,17 @@
+from lpython import i32
+from numpy import empty, int32, array
+
+def foo(x: i32[:]):
+    print(x[3], x[4], x[-1], x[-2])
+    assert x[-1] == 5
+    assert x[-2] == 4
+    assert x[-3] == 3
+    assert x[-4] == 2
+    assert x[-5] == 1
+
+def main():
+    x: i32[5] = empty(5, dtype=int32)
+    x = array([1, 2, 3, 4, 5])
+    foo(x)
+
+main()
\ No newline at end of file
diff --git a/integration_tests/array_size_01.py b/integration_tests/array_size_01.py
new file mode 100644
index 0000000000..17135ee098
--- /dev/null
+++ b/integration_tests/array_size_01.py
@@ -0,0 +1,23 @@
+from lpython import i32, f64, c32, c64
+from numpy import empty, int32, float64, complex64, complex128
+
+def main0():
+    x: i32[4, 5, 2] = empty([4, 5, 2], dtype=int32)
+    y: f64[24, 100, 2, 5] = empty([24, 100, 2, 5], dtype=float64)
+    print(x.size)
+    print(y.size)
+
+    assert x.size == 40
+    assert y.size == 24000
+
+def main1():
+    a: c32[12] = empty([12], dtype=complex64)
+    b: c64[15, 15, 10] = empty([15, 15, 10], dtype=complex128)
+    print(a.size)
+    print(b.size)
+
+    assert a.size == 12
+    assert b.size == 2250
+
+main0()
+main1()
diff --git a/integration_tests/array_size_02.py b/integration_tests/array_size_02.py
new file mode 100644
index 0000000000..1d238926fd
--- /dev/null
+++ b/integration_tests/array_size_02.py
@@ -0,0 +1,90 @@
+from lpython import i32, f64, c32, c64, u32, u64
+from numpy import empty, size, int32, uint32, uint64, float64, complex64, complex128
+
+def main0():
+    x: i32[4, 5, 2] = empty([4, 5, 2], dtype=int32)
+    y: f64[24, 100, 2, 5] = empty([24, 100, 2, 5], dtype=float64)
+    z: i32
+    w: i32
+    z = 2
+    w = 3
+    print(size(x))
+    print(size(x, 0))
+    print(size(x, 1))
+    print(size(x, 2))
+    print(size(y))
+    print(size(y, 0))
+    print(size(y, 1))
+    print(size(y, z))
+    print(size(y, w))
+
+    assert size(x) == 40
+    assert size(x, 0) == 4
+    assert size(x, 1) == 5
+    assert size(x, 2) == 2
+    assert size(y) == 24000
+    assert size(y, 0) == 24
+    assert size(y, 1) == 100
+    assert size(y, z) == 2
+    assert size(y, w) == 5
+
+def main1():
+    a: c32[12] = empty([12], dtype=complex64)
+    b: c64[15, 15, 10] = empty([15, 15, 10], dtype=complex128)
+    c: i32
+    d: i32
+    c = 1
+    d = 2
+    print(size(a))
+    print(size(a, 0))
+    print(size(b))
+    print(size(b, 0))
+    print(size(b, c))
+    print(size(b, d))
+
+    assert size(a) == 12
+    assert size(a, 0) == 12
+    assert size(b) == 2250
+    assert size(b, 0) == 15
+    assert size(b, c) == 15
+    assert size(b, d) == 10
+
+def main2():
+    a: i32[2, 3] = empty([2, 3], dtype=int32)
+    print(size(a))
+    print(size(a, 0))
+    print(size(a, 1))
+
+    assert size(a) == 2*3
+    assert size(a, 0) == 2
+    assert size(a, 1) == 3
+
+def main3():
+    a: u32[2, 3, 4] = empty([2, 3, 4], dtype=uint32)
+    b: u64[10, 5] = empty([10, 5], dtype=uint64)
+    c: i32
+    d: i32
+    c = 1
+    d = 2
+    print(size(a))
+    print(size(a, 0))
+    print(size(a, c))
+    print(size(a, d))
+
+    print(size(b))
+    print(size(b, 0))
+    print(size(b, c))
+
+    assert size(a) == 2*3*4
+    assert size(a, 0) == 2
+    assert size(a, c) == 3
+    assert size(a, d) == 4
+
+    assert size(b) == 50
+    assert size(b, 0) == 10
+    assert size(b, c) == 5
+
+main0()
+main1()
+main2()
+main3()
diff --git a/integration_tests/bindc_01.py b/integration_tests/bindc_01.py
index 5c758339e5..6b83811264 100644
--- a/integration_tests/bindc_01.py
+++ b/integration_tests/bindc_01.py
@@ -1,5 +1,14 @@
-from ltypes import c_p_pointer, CPtr, i16, Pointer, empty_c_void_p
+from lpython import c_p_pointer, CPtr, i16, Pointer, empty_c_void_p
 
 queries: CPtr = empty_c_void_p()
 x: Pointer[i16] = c_p_pointer(queries, i16)
 print(queries, x)
+
+
+def test_issue_1781():
+    p: CPtr = empty_c_void_p()
+    assert p == empty_c_void_p()
+    assert not (p != empty_c_void_p())
+
+
+test_issue_1781()
diff --git a/integration_tests/bindc_02.py b/integration_tests/bindc_02.py
index 0ad7845489..58f0ad1290 100644
--- a/integration_tests/bindc_02.py
+++ b/integration_tests/bindc_02.py
@@ -1,8 +1,8 @@
-from ltypes import c_p_pointer, CPtr, pointer, i16, Pointer, empty_c_void_p
-from numpy import empty, int16
+from lpython import c_p_pointer, CPtr, pointer, i16, Pointer, empty_c_void_p
+from numpy import empty, int16, array
 
 queries: CPtr = empty_c_void_p()
-x: Pointer[i16[:]] = c_p_pointer(queries, i16[:])
+x: Pointer[i16[:]] = c_p_pointer(queries, i16[:], array([1]))
 print(queries, x)
 
 def f():
@@ -17,8 +17,8 @@ def f():
     assert yptr1[0] == i16(1)
     assert yptr1[1] == i16(2)
 
-    yptr1 = c_p_pointer(yq, i16[:])
+    yptr1 = c_p_pointer(yq, i16[:], array([2]))
 
-    print(yq, yptr1)
+    # print(yq, yptr1)
 
 f()
diff --git a/integration_tests/bindc_03.py b/integration_tests/bindc_03.py
index 1138522b09..59b1f0efbc 100644
--- a/integration_tests/bindc_03.py
+++ b/integration_tests/bindc_03.py
@@ -1,17 +1,21 @@
-from ltypes import c_p_pointer, CPtr, pointer, i32, Pointer, ccall, p_c_pointer, dataclass
+from lpython import (c_p_pointer, CPtr, pointer, i32,
+                    Pointer, ccall, p_c_pointer, dataclass,
+                    ccallable, empty_c_void_p, cptr_to_u64,
+                    u64_to_cptr, u64)
+from numpy import array
 
 @dataclass
 class ArrayWrapped:
     array: CPtr
 
-@ccall
+@ccall(header="bindc_03b.h")
 def g(a: CPtr, value: i32, offset_value: bool) -> None:
     pass
 
 def gpy(a: CPtr, value: i32, offset_value: bool) -> None:
     g(a, value, offset_value)
 
-@ccall
+@ccall(header="bindc_03b.h")
 def get_array(size: i32) -> CPtr:
     pass
 
@@ -19,7 +23,7 @@ def get_array(size: i32) -> CPtr:
 def f(q_void: CPtr) -> None:
     i: i32
     el: i32
-    q: Pointer[i32[:]] = c_p_pointer(q_void, i32[:])
+    q: Pointer[i32[:]] = c_p_pointer(q_void, i32[:], array([10]))
     for i in range(10):
         q2: CPtr
         p_c_pointer(pointer(q[i]), q2)
@@ -32,23 +36,38 @@ def f(q_void: CPtr) -> None:
 def h(q_void: CPtr) -> None:
     i: i32
     el: i32
-    q: Pointer[i32[:]] = c_p_pointer(q_void, i32[:])
+    q: Pointer[i32[:]] = c_p_pointer(q_void, i32[:], array([10]))
     for i in range(10):
         # TODO: Use q[i] directly in the assert.
         el = q[i]
         print(el)
         assert el == i * i + i%2
 
+
+@ccallable(header="_test_bindc_03_my_header.h")
+def test_emit_header_ccallable() -> i32:
+    i: i32 = 5
+    assert i == 5
+    i = i*5
+    return i + 10
+
 def run():
     a: CPtr
     array_wrapped: ArrayWrapped = ArrayWrapped(a)
-    array_wrapped1: ArrayWrapped
+    array_wrapped1: ArrayWrapped = ArrayWrapped()
     size: i32
     size = 10
     a = get_array(size)
+    assert a != empty_c_void_p()
     array_wrapped.array = a
     f(array_wrapped.array)
+    q: u64 = cptr_to_u64(a)
+    x: CPtr
+    x = u64_to_cptr(q)
+    array_wrapped.array = x
+    f(array_wrapped.array)
     array_wrapped1 = array_wrapped
     h(array_wrapped1.array)
+    assert test_emit_header_ccallable() == 35
 
 run()
diff --git a/integration_tests/bindc_04.py b/integration_tests/bindc_04.py
index 1956c68c8c..0589fcee66 100644
--- a/integration_tests/bindc_04.py
+++ b/integration_tests/bindc_04.py
@@ -1,4 +1,4 @@
-from ltypes import pointer, i16, Pointer
+from lpython import pointer, i16, Pointer
 
 # Testing Global Pointers
 x: Pointer[i16[:]]
diff --git a/integration_tests/bindc_05.py b/integration_tests/bindc_05.py
index ee936ab364..b01ceee8ba 100644
--- a/integration_tests/bindc_05.py
+++ b/integration_tests/bindc_05.py
@@ -1,14 +1,14 @@
-from ltypes import CPtr, empty_c_void_p, i32, f32, dataclass, Pointer, ccall, p_c_pointer, pointer
+from lpython import CPtr, empty_c_void_p, i32, f32, dataclass, Pointer, ccall, p_c_pointer, pointer
 
 @dataclass
 class Void:
     data: CPtr
 
-@ccall
+@ccall(header="bindc_05b.h")
 def trunc_custom(value: Pointer[CPtr]) -> CPtr:
     pass
 
-@ccall
+@ccall(header="bindc_05b.h")
 def print_value(value: CPtr):
     pass
 
diff --git a/integration_tests/bindc_05b.h b/integration_tests/bindc_05b.h
index b4533c4320..95d372053c 100644
--- a/integration_tests/bindc_05b.h
+++ b/integration_tests/bindc_05b.h
@@ -1,2 +1,7 @@
+#ifndef BINDC_05BH
+#define BINDC_05BH
+
 void* trunc_custom(void** value);
 void print_value(float* value);
+
+#endif // BINDC_05BH
diff --git a/integration_tests/bindc_06.py b/integration_tests/bindc_06.py
index a80e1b5c4a..d01ca9b800 100644
--- a/integration_tests/bindc_06.py
+++ b/integration_tests/bindc_06.py
@@ -1,4 +1,4 @@
-from ltypes import i32, f64, ccall, dataclass
+from lpython import i32, f64, ccall, dataclass
 from numpy import empty, int32, float64
 
 @dataclass
@@ -6,7 +6,7 @@ class CompareOperator:
     op_code: i32
     op_name: str
 
-@ccall
+@ccall(header="bindc_06b.h")
 def compare_array_element(value1: i32, value2: f64, op: i32) -> i32:
     pass
 
diff --git a/integration_tests/bindc_06b.h b/integration_tests/bindc_06b.h
index 0e5fac7de4..680d387c7f 100644
--- a/integration_tests/bindc_06b.h
+++ b/integration_tests/bindc_06b.h
@@ -1,3 +1,8 @@
+#ifndef BINDC_06BH
+#define BINDC_06BH
+
 #include <inttypes.h>
 
 int32_t compare_array_element(int32_t value1, double value2, int32_t code);
+
+#endif // BINDC_06BH
diff --git a/integration_tests/bindc_07.py b/integration_tests/bindc_07.py
index 038a2d659b..f03af3331b 100644
--- a/integration_tests/bindc_07.py
+++ b/integration_tests/bindc_07.py
@@ -1,24 +1,37 @@
-from ltypes import CPtr, i64, sizeof, i32, i16, i8, ccall, c_p_pointer, empty_c_void_p, Pointer, pointer
-from numpy import empty, int64
+from lpython import (CPtr, sizeof, ccall, c_p_pointer, empty_c_void_p,
+        i64, i32, i16, i8,
+        u64, u32, u16, u8,
+        Pointer, pointer, u16)
+from numpy import array
 
 @ccall
 def _lfortran_malloc(size: i32) -> CPtr:
     pass
 
-def allocate_memory(size: i32) -> tuple[CPtr, CPtr, CPtr, CPtr]:
+def allocate_memory(size: i32) -> tuple[CPtr, CPtr, CPtr, CPtr, \
+        CPtr, CPtr, CPtr, CPtr]:
     array1: CPtr = _lfortran_malloc(size * i32(sizeof(i8)))
     array2: CPtr = _lfortran_malloc(size * i32(sizeof(i16)))
     array3: CPtr = _lfortran_malloc(size * i32(sizeof(i32)))
     array4: CPtr = _lfortran_malloc(size * i32(sizeof(i64)))
-    return array1, array2, array3, array4
+    array5: CPtr = _lfortran_malloc(size * i32(sizeof(u8)))
+    array6: CPtr = _lfortran_malloc(size * i32(sizeof(u16)))
+    array7: CPtr = _lfortran_malloc(size * i32(sizeof(u32)))
+    array8: CPtr = _lfortran_malloc(size * i32(sizeof(u64)))
+    return array1, array2, array3, array4, array5, array6, array7, array8
 
-def sum_arrays(array1: CPtr, array2: CPtr, array3: CPtr, array4: CPtr, size: i32):
-    iarray1: Pointer[i8[size]] = c_p_pointer(array1, i8[size])
-    iarray2: Pointer[i16[size]] = c_p_pointer(array2, i16[size])
-    iarray3: Pointer[i32[size]] = c_p_pointer(array3, i32[size])
-    iarray4: Pointer[i64[size]] = c_p_pointer(array4, i64[size])
+def sum_arrays(array1: CPtr, array2: CPtr, array3: CPtr, array4: CPtr, \
+        array5: CPtr, array6: CPtr, array7: CPtr, array8: CPtr, size: i32):
+    iarray1: Pointer[i8[:]] = c_p_pointer(array1, i8[:], array([size]))
+    iarray2: Pointer[i16[:]] = c_p_pointer(array2, i16[:], array([size]))
+    iarray3: Pointer[i32[:]] = c_p_pointer(array3, i32[:], array([size]))
+    iarray4: Pointer[i64[:]] = c_p_pointer(array4, i64[:], array([size]))
+    iarray5: Pointer[u8[:]] = c_p_pointer(array5, u8[:], array([size]))
+    iarray6: Pointer[u16[:]] = c_p_pointer(array6, u16[:], array([size]))
+    iarray7: Pointer[u32[:]] = c_p_pointer(array7, u32[:], array([size]))
+    iarray8: Pointer[u64[:]] = c_p_pointer(array8, u64[:], array([size]))
     sum_array_cptr: CPtr = _lfortran_malloc(size * i32(sizeof(i64)))
-    sum_array: Pointer[i64[size]] = c_p_pointer(sum_array_cptr, i64[size])
+    sum_array: Pointer[i64[:]] = c_p_pointer(sum_array_cptr, i64[:], array([size]))
     i: i32
 
     for i in range(size):
@@ -26,20 +39,30 @@ def sum_arrays(array1: CPtr, array2: CPtr, array3: CPtr, array4: CPtr, size: i32
         iarray2[i] = i16(2 * i)
         iarray3[i] = i32(3 * i)
         iarray4[i] = i64(4 * i)
+        iarray5[i] = u8(i)
+        iarray6[i] = u16(6 * i)
+        iarray7[i] = u32(7 * i)
+        iarray8[i] = u64(8 * i)
 
     for i in range(size):
-        sum_array[i] = i64(iarray1[i]) + i64(iarray2[i]) + i64(iarray3[i]) + iarray4[i]
+        sum_array[i] = i64(iarray1[i]) + i64(iarray2[i]) + i64(iarray3[i]) \
+                + iarray4[i] + i64(iarray5[i]) + i64(iarray6[i]) \
+                + i64(iarray7[i]) + i64(iarray8[i])
 
     for i in range(size):
         print(i, sum_array[i])
-        assert sum_array[i] == i64(10 * i)
+        assert sum_array[i] == i64(32 * i)
 
 def test_tuple_return():
     a: CPtr = empty_c_void_p()
     b: CPtr = empty_c_void_p()
     c: CPtr = empty_c_void_p()
     d: CPtr = empty_c_void_p()
-    a, b, c, d = allocate_memory(50)
-    sum_arrays(a, b, c, d, 50)
+    e: CPtr = empty_c_void_p()
+    f: CPtr = empty_c_void_p()
+    g: CPtr = empty_c_void_p()
+    h: CPtr = empty_c_void_p()
+    a, b, c, d, e, f, g, h = allocate_memory(50)
+    sum_arrays(a, b, c, d, e, f, g, h, 50)
 
 test_tuple_return()
diff --git a/integration_tests/bindc_08.py b/integration_tests/bindc_08.py
new file mode 100644
index 0000000000..e23e979b80
--- /dev/null
+++ b/integration_tests/bindc_08.py
@@ -0,0 +1,26 @@
+# file: main.py
+from lpython import CPtr, i32, dataclass, c_p_pointer, Pointer, empty_c_void_p, p_c_pointer, Array
+
+from numpy import empty, array
+
+@dataclass
+class Foo:
+     x: i32
+     y: i32
+
+def init(foos_ptr: CPtr) -> None:
+    foos: Pointer[Array[Foo, :]] = c_p_pointer(foos_ptr, Array[Foo, :], array([1]))
+    foos[0] = Foo(3, 2)
+
+def main() -> None:
+    foos: Array[Foo, 1] = empty(1, dtype=Foo)
+    foos_ptr: CPtr = empty_c_void_p()
+    foos[0] = Foo(0, 1)
+    p_c_pointer(foos, foos_ptr)
+    init(foos_ptr)
+    print("foos[0].x = ", foos[0].x)
+    print("foos[0].y = ", foos[0].y)
+    assert foos[0].x == 3
+    assert foos[0].y == 2
+
+main()
diff --git a/integration_tests/bindc_09.py b/integration_tests/bindc_09.py
new file mode 100644
index 0000000000..956b56b658
--- /dev/null
+++ b/integration_tests/bindc_09.py
@@ -0,0 +1,42 @@
+from enum import Enum
+
+from lpython import (CPtr, c_p_pointer, p_c_pointer, dataclass, empty_c_void_p,
+        pointer, Pointer, i32, ccallable, InOut)
+
+class Value(Enum):
+    TEN: i32 = 10
+    TWO: i32 = 2
+    ONE: i32 = 1
+    FIVE: i32 = 5
+
+@dataclass
+class Foo:
+    value: Value
+
+@ccallable
+@dataclass
+class FooC:
+    value: Value
+
+def bar(foo: InOut[Foo]) -> None:
+    foo.value = Value.FIVE
+
+def barc(foo_ptr: CPtr) -> None:
+    foo: Pointer[FooC] = c_p_pointer(foo_ptr, FooC)
+    foo.value = Value.ONE
+
+def main() -> None:
+    foo: Foo = Foo(Value.TEN)
+    fooc: FooC = FooC(Value.TWO)
+    foo_ptr: CPtr = empty_c_void_p()
+
+    bar(foo)
+    print(foo.value, foo.value.name)
+    assert foo.value == Value.FIVE
+
+    p_c_pointer(pointer(fooc), foo_ptr)
+    barc(foo_ptr)
+    print(fooc.value)
+    assert fooc.value == Value.ONE.value
+
+main()
diff --git a/integration_tests/bindc_09b.py b/integration_tests/bindc_09b.py
new file mode 100644
index 0000000000..58be1e768b
--- /dev/null
+++ b/integration_tests/bindc_09b.py
@@ -0,0 +1,44 @@
+from enum import Enum
+
+from lpython import CPtr, c_p_pointer, p_c_pointer, dataclass, empty_c_void_p, pointer, Pointer, i32, ccallable
+
+class Value(Enum):
+    TEN: i32 = 10
+    TWO: i32 = 2
+    ONE: i32 = 1
+    FIVE: i32 = 5
+
+@ccallable
+@dataclass
+class Foo:
+    value: Value
+
+@ccallable
+@dataclass
+class FooC:
+    value: Value
+
+def bar(foo_ptr: CPtr) -> None:
+    foo: Pointer[Foo] = c_p_pointer(foo_ptr, Foo)
+    foo.value = Value.FIVE
+
+def barc(foo_ptr: CPtr) -> None:
+    foo: Pointer[FooC] = c_p_pointer(foo_ptr, FooC)
+    foo.value = Value.ONE
+
+def main() -> None:
+    foo: Foo = Foo(Value.TEN)
+    fooc: FooC = FooC(Value.TWO)
+    foo_ptr: CPtr = empty_c_void_p()
+
+    p_c_pointer(pointer(foo), foo_ptr)
+    bar(foo_ptr)
+    print(foo.value)
+    assert foo.value == Value.FIVE.value
+
+    p_c_pointer(pointer(fooc), foo_ptr)
+    barc(foo_ptr)
+    print(fooc.value)
+    assert fooc.value == Value.ONE.value
+
+main()
diff --git a/integration_tests/bindc_10.py b/integration_tests/bindc_10.py
new file mode 100644
index 0000000000..934eacfd43
--- /dev/null
+++ b/integration_tests/bindc_10.py
@@ -0,0 +1,32 @@
+from lpython import (i64, i16, CPtr, c_p_pointer, Pointer, sizeof, packed,
+        dataclass, ccallable, ccall, i32)
+
+@ccall
+def _lfortran_malloc(size: i32) -> CPtr:
+    pass
+
+
+def alloc(buf_size:i64) -> CPtr:
+    return _lfortran_malloc(i32(buf_size))
+
+
+@ccallable
+@packed
+@dataclass
+class S:
+    a: i16
+    b: i64
+
+
+def main():
+    p1: CPtr = alloc(sizeof(S))
+    print(p1)
+    p2: Pointer[S] = c_p_pointer(p1, S)
+    p2.a = i16(5)
+    p2.b = i64(4)
+    print(p2.a, p2.b)
+    assert p2.a == i16(5)
+    assert p2.b == i64(4)
+
+
+main()
diff --git a/integration_tests/bindc_11.py b/integration_tests/bindc_11.py
new file mode 100644
index 0000000000..c2e81c9a0a
--- /dev/null
+++ b/integration_tests/bindc_11.py
@@ -0,0 +1,34 @@
+import numpy, ctypes
+from lpython import (i64, i16, CPtr, c_p_pointer, Pointer, sizeof, packed,
+        dataclass, ccallable, ccall, i32)
+
+global_arrays = []
+
+
+def alloc(buf_size:i64) -> CPtr:
+    xs = numpy.empty(buf_size, dtype=numpy.uint8)
+    global_arrays.append(xs)
+    p = ctypes.c_void_p(xs.ctypes.data)
+    return ctypes.cast(p.value, ctypes.c_void_p)
+
+
+@ccallable
+@packed
+@dataclass
+class S:
+    a: i16
+    b: i64
+
+
+def main():
+    p1: CPtr = alloc(sizeof(S))
+    print(p1)
+    p2: Pointer[S] = c_p_pointer(p1, S)
+    p2.a = i16(5)
+    p2.b = i64(4)
+    print(p2.a, p2.b)
+    assert p2.a == i16(5)
+    assert p2.b == i64(4)
+
+
+main()
diff --git a/integration_tests/bindpy_01.py b/integration_tests/bindpy_01.py
new file mode 100644
index 0000000000..1af92c6157
--- /dev/null
+++ b/integration_tests/bindpy_01.py
@@ -0,0 +1,99 @@
+from lpython import i32, i64, u32, u64, f32, f64, pythoncall
+
+@pythoncall(module = "bindpy_01_module")
+def add_ints(a: i32, b: i32, c: i32, d: i32) -> i64:
+    pass
+
+@pythoncall(module = "bindpy_01_module")
+def multiply_ints(a: i32, b: i32, c: i32, d: i32) -> i64:
+    pass
+
+@pythoncall(module = "bindpy_01_module")
+def add_unsigned_ints(a: u32, b: u32, c: u32, d: u32) -> u64:
+    pass
+
+@pythoncall(module = "bindpy_01_module")
+def multiply_unsigned_ints(a: u32, b: u32, c: u32, d: u32) -> u64:
+    pass
+
+@pythoncall(module = "bindpy_01_module")
+def add_floats(a: f32, b: f64) -> f64:
+    pass
+
+@pythoncall(module = "bindpy_01_module")
+def multiply_floats(a: f32, b: f64) -> f64:
+    pass
+
+@pythoncall(module = "bindpy_01_module")
+def get_hello_world(a: str, b: str) -> str:
+    pass
+
+@pythoncall(module = "bindpy_01_module")
+def str_n_times(a: str, n: i32) -> str:
+    pass
+
+@pythoncall(module = "bindpy_01_module")
+def get_cpython_version() -> str:
+    pass
+
+# Integers:
+def test_ints():
+    i: i32
+    j: i32
+    k: i32
+    l: i32
+    i = -5
+    j = 24
+    k = 20
+    l = 92
+
+    assert add_ints(i, j, k, l) == i64(131)
+    assert multiply_ints(i, j, k, l) == i64(-220800)
+
+# Unsigned Integers:
+def test_unsigned_ints():
+    i: u32
+    j: u32
+    k: u32
+    l: u32
+    i = u32(5)
+    j = u32(24)
+    k = u32(20)
+    l = u32(92)
+
+    assert add_unsigned_ints(i, j, k, l) == u64(141)
+    assert multiply_unsigned_ints(i, j, k, l) == u64(220800)
+
+# Floats
+def test_floats():
+    a: f32
+    b: f64
+    a = f32(3.14)
+    b = -100.00
+
+    assert abs(add_floats(a, b) - (-96.86)) <= 1e-4
+    assert abs(multiply_floats(a, b) - (-314.0)) <= 1e-4
+
+# Strings
+def test_strings():
+    a: str
+    b: str
+    c: str
+    i: i32
+    a = "hello"
+    b = "world"
+    i = 3
+
+    assert get_hello_world(a, b) == "hello world!"
+    assert str_n_times(a, i) == "hellohellohello"
+    assert get_hello_world(str_n_times(a, i), b) == "hellohellohello world!"
+
+def main0():
+    print("CPython version: ", get_cpython_version())
+
+    test_ints()
+    test_floats()
+    test_strings()
+
+
+main0()
diff --git a/integration_tests/bindpy_01_module.py b/integration_tests/bindpy_01_module.py
new file mode 100644
index 0000000000..ccaa7cfa65
--- /dev/null
+++ b/integration_tests/bindpy_01_module.py
@@ -0,0 +1,31 @@
+def get_cpython_version():
+    import platform
+    return platform.python_version()
+
+def add_ints(a, b, c, d):
+    e = a + b + c + d
+    return e
+
+def multiply_ints(a, b, c, d):
+    e = a * b * c * d
+    return e
+
+def add_unsigned_ints(a, b, c, d):
+    e = a + b + c + d
+    return e
+
+def multiply_unsigned_ints(a, b, c, d):
+    e = a * b * c * d
+    return e
+
+def add_floats(a, b):
+    return a + b
+
+def multiply_floats(a, b):
+    return a * b
+
+def get_hello_world(a, b):
+    return f"{a} {b}!"
+
+def str_n_times(a, n):
+    return a * n
diff --git a/integration_tests/bindpy_02.py b/integration_tests/bindpy_02.py
new file mode 100644
index 0000000000..9328029200
--- /dev/null
+++ b/integration_tests/bindpy_02.py
@@ -0,0 +1,80 @@
+from lpython import i32, f64, pythoncall, Const
+from numpy import empty, int32, float64
+
+@pythoncall(module = "bindpy_02_module")
+def get_cpython_version() -> str:
+    pass
+
+@pythoncall(module = "bindpy_02_module")
+def get_int_array_sum(a: i32[:]) -> i32:
+    pass
+
+@pythoncall(module = "bindpy_02_module")
+def get_int_array_product(a: i32[:]) -> i32:
+    pass
+
+@pythoncall(module = "bindpy_02_module")
+def get_float_array_sum(a: f64[:]) -> f64:
+    pass
+
+@pythoncall(module = "bindpy_02_module")
+def get_float_array_product(a: f64[:]) -> f64:
+    pass
+
+@pythoncall(module = "bindpy_02_module")
+def show_array_dot_product(a: i32[:], b: f64[:]):
+    pass
+
+# Integers:
+def test_array_ints():
+    n: Const[i32] = 5
+    a: i32[n] = empty([n], dtype=int32)
+
+    i: i32
+    for i in range(n):
+        a[i] = i + 10
+
+    assert get_int_array_sum(a) == i32(60)
+    assert get_int_array_product(a) == i32(240240)
+
+# Floats
+def test_array_floats():
+    n: Const[i32] = 3
+    m: Const[i32] = 5
+    b: f64[n, m] = empty([n, m], dtype=float64)
+
+    i: i32
+    j: i32
+
+    for i in range(n):
+        for j in range(m):
+            b[i, j] = f64((i + 1) * (j + 1))
+
+    assert abs(get_float_array_sum(b) - (90.000000)) <= 1e-4
+    assert abs(get_float_array_product(b) - (13436928000.000000)) <= 1e-4
+
+def test_array_broadcast():
+    n: Const[i32] = 3
+    m: Const[i32] = 5
+    a: i32[n] = empty([n], dtype=int32)
+    b: f64[n, m] = empty([n, m], dtype=float64)
+
+    i: i32
+    j: i32
+    for i in range(n):
+        a[i] = i + 10
+
+    for i in range(n):
+        for j in range(m):
+            b[i, j] = f64((i + 1) * (j + 1))
+
+    show_array_dot_product(a, b)
+
+def main0():
+    print("CPython version: ", get_cpython_version())
+
+    test_array_ints()
+    test_array_floats()
+    test_array_broadcast()
+
+main0()
diff --git a/integration_tests/bindpy_02_module.py b/integration_tests/bindpy_02_module.py
new file mode 100644
index 0000000000..5e76238a8e
--- /dev/null
+++ b/integration_tests/bindpy_02_module.py
@@ -0,0 +1,21 @@
+import numpy as np
+
+def get_cpython_version():
+    import platform
+    return platform.python_version()
+
+def get_int_array_sum(a):
+    return np.sum(a)
+
+def get_int_array_product(a):
+    return np.prod(a)
+
+def get_float_array_sum(a):
+    return np.sum(a)
+
+def get_float_array_product(a):
+    return np.prod(a)
+
+def show_array_dot_product(a, b):
+    print(a, b)
+    print(a @ b)
diff --git a/integration_tests/bindpy_03.py b/integration_tests/bindpy_03.py
new file mode 100644
index 0000000000..30583afcc4
--- /dev/null
+++ b/integration_tests/bindpy_03.py
@@ -0,0 +1,136 @@
+from lpython import i32, i64, f64, pythoncall, Const, TypeVar
+from numpy import empty, int32, int64, float64
+
+n = TypeVar("n")
+m = TypeVar("m")
+p = TypeVar("p")
+q = TypeVar("q")
+r = TypeVar("r")
+
+@pythoncall(module = "bindpy_03_module")
+def get_cpython_version() -> str:
+    pass
+
+@pythoncall(module = "bindpy_03_module")
+def get_int_array_sum(n: i32, a: i32[:], b: i32[:]) -> i32[n]:
+    pass
+
+@pythoncall(module = "bindpy_03_module")
+def get_int_array_product(n: i32, a: i32[:], b: i32[:]) -> i32[n]:
+    pass
+
+@pythoncall(module = "bindpy_03_module")
+def get_float_array_sum(n: i32, m: i32, a: f64[:], b: f64[:]) -> f64[n, m]:
+    pass
+
+@pythoncall(module = "bindpy_03_module")
+def get_float_array_product(n: i32, m: i32, a: f64[:], b: f64[:]) -> f64[n, m]:
+    pass
+
+@pythoncall(module = "bindpy_03_module")
+def get_array_dot_product(m: i32, a: i64[:], b: f64[:]) -> f64[m]:
+    pass
+
+@pythoncall(module = "bindpy_03_module")
+def get_multidim_array_i64(p: i32, q: i32, r: i32) -> i64[p, q, r]:
+    pass
+
+# Integers:
+def test_array_ints():
+    n: Const[i32] = 5
+    a: i32[n] = empty([n], dtype=int32)
+    b: i32[n] = empty([n], dtype=int32)
+
+    i: i32
+    for i in range(n):
+        a[i] = i + 10
+    for i in range(n):
+        b[i] = i + 20
+
+    c: i32[n] = get_int_array_sum(n, a, b)
+    print(c)
+    for i in range(n):
+        assert c[i] == (i + i + 30)
+
+
+    c = get_int_array_product(n, a, b)
+    print(c)
+    for i in range(n):
+        assert c[i] == ((i + 10) * (i + 20))
+
+# Floats
+def test_array_floats():
+    n: Const[i32] = 3
+    m: Const[i32] = 5
+    a: f64[n, m] = empty([n, m], dtype=float64)
+    b: f64[n, m] = empty([n, m], dtype=float64)
+
+    i: i32
+    j: i32
+
+    for i in range(n):
+        for j in range(m):
+            a[i, j] = f64((i + 10) * (j + 10))
+
+    for i in range(n):
+        for j in range(m):
+            b[i, j] = f64((i + 20) * (j + 20))
+
+    c: f64[n, m] = get_float_array_sum(n, m, a, b)
+    print(c)
+    for i in range(n):
+        for j in range(m):
+            assert abs(c[i, j] - (f64((i + 10) * (j + 10)) + f64((i + 20) * (j + 20)))) <= 1e-4
+
+    c = get_float_array_product(n, m, a, b)
+    print(c)
+    for i in range(n):
+        for j in range(m):
+            assert abs(c[i, j] - (f64((i + 10) * (j + 10)) * f64((i + 20) * (j + 20)))) <= 1e-4
+
+def test_array_broadcast():
+    n: Const[i32] = 3
+    m: Const[i32] = 5
+    a: i64[n] = empty([n], dtype=int64)
+    b: f64[n, m] = empty([n, m], dtype=float64)
+
+    i: i32
+    j: i32
+    for i in range(n):
+        a[i] = i64(i + 10)
+
+    for i in range(n):
+        for j in range(m):
+            b[i, j] = f64((i + 1) * (j + 1))
+
+    c: f64[m] = get_array_dot_product(m, a, b)
+    print(c)
+    assert abs(c[0] - (68.0)) <= 1e-4
+    assert abs(c[1] - (136.0)) <= 1e-4
+    assert abs(c[2] - (204.0)) <= 1e-4
+    assert abs(c[3] - (272.0)) <= 1e-4
+    assert abs(c[4] - (340.0)) <= 1e-4
+
+def test_multidim_array_return_i64():
+    p: Const[i32] = 3
+    q: Const[i32] = 4
+    r: Const[i32] = 5
+    a: i64[p, q, r] = empty([p, q, r], dtype=int64)
+    a = get_multidim_array_i64(p, q, r)
+    print(a)
+
+    i: i32; j: i32; k: i32
+    for i in range(p):
+        for j in range(q):
+            for k in range(r):
+                assert a[i, j, k] == i64(i * 2 + j * 3 + k * 4)
+
+def main0():
+    print("CPython version: ", get_cpython_version())
+
+    test_array_ints()
+    test_array_floats()
+    test_array_broadcast()
+    test_multidim_array_return_i64()
+
+main0()
diff --git a/integration_tests/bindpy_03_module.py b/integration_tests/bindpy_03_module.py
new file mode 100644
index 0000000000..0c702067c4
--- /dev/null
+++ b/integration_tests/bindpy_03_module.py
@@ -0,0 +1,31 @@
+import numpy as np
+
+def get_cpython_version():
+    import platform
+    return platform.python_version()
+
+def get_int_array_sum(n, a, b):
+    return np.add(a, b)
+
+def get_int_array_product(n, a, b):
+    return np.multiply(a, b)
+
+def get_float_array_sum(n, m, a, b):
+    return np.add(a, b)
+
+def get_float_array_product(n, m, a, b):
+    return np.multiply(a, b)
+
+def get_array_dot_product(m, a, b):
+    print(a, b)
+    c = a @ b
+    print(c)
+    return c
+
+def get_multidim_array_i64(p, q, r):
+    a = np.empty([p, q, r], dtype = np.int64)
+    for i in range(p):
+        for j in range(q):
+            for k in range(r):
+                a[i, j, k] = i * 2 + j * 3 + k * 4
+    return a
diff --git a/integration_tests/bindpy_04.py b/integration_tests/bindpy_04.py
new file mode 100644
index 0000000000..0c38baa6f2
--- /dev/null
+++ b/integration_tests/bindpy_04.py
@@ -0,0 +1,150 @@
+from lpython import i1, i32, u32, f64, c64, pythoncall, Const, TypeVar
+from numpy import empty, uint32, complex128
+
+n = TypeVar("n")
+m = TypeVar("m")
+
+# Defining the pythoncall decorator functions
+@pythoncall(module = "bindpy_04_module")
+def get_uint_array_sum(n: i32, a: u32[:], b: u32[:]) -> u32[n]:
+    pass
+
+@pythoncall(module = "bindpy_04_module")
+def get_bool_array_or(n: i32, a: i1[:], b: i1[:]) -> i1[n]:
+    pass
+
+@pythoncall(module = "bindpy_04_module")
+def get_complex_array_product(n: i32, a: c64[:], b: c64[:]) -> c64[n]:
+    pass
+
+@pythoncall(module = "bindpy_04_module")
+def get_2D_uint_array_sum(n: i32, m: i32, a: u32[:,:], b: u32[:,:]) -> u32[n,m]:
+    pass
+
+@pythoncall(module = "bindpy_04_module")
+def get_2D_bool_array_and(n: i32, m: i32, a: i1[:,:], b: i1[:,:]) -> i1[n,m]:
+    pass
+
+@pythoncall(module = "bindpy_04_module")
+def get_2D_complex_array_sum(n: i32, m: i32, a: c64[:,:], b: c64[:,:]) -> c64[n,m]:
+    pass
+
+# Unsigned Integers
+def test_array_uints():
+    n: Const[i32] = 5
+    a: u32[n] = empty([n], dtype=uint32)
+    b: u32[n] = empty([n], dtype=uint32)
+
+    i: i32
+    for i in range(n):
+        a[i] = u32(i + 10)
+        b[i] = u32(i + 20)
+
+    c: u32[n] = get_uint_array_sum(n, a, b)
+    print(c)
+    for i in range(n):
+        assert c[i] == u32(i * 2 + 30)
+
+def test_2D_array_uints():
+    n: Const[i32] = 3
+    m: Const[i32] = 4
+    a: u32[n, m] = empty([n, m], dtype=uint32)
+    b: u32[n, m] = empty([n, m], dtype=uint32)
+
+    i: i32
+    j: i32
+    for i in range(n):
+        for j in range(m):
+            a[i, j] = u32(i * 10 + j)
+            b[i, j] = u32(i * 20 + j)
+
+    c: u32[n, m] = get_2D_uint_array_sum(n, m, a, b)
+    print(c)
+    for i in range(n):
+        for j in range(m):
+            assert c[i, j] == u32(i * 30 + 2*j)
+
+# Boolean
+def test_array_bools():
+    n: Const[i32] = 5
+    a: i1[n] = empty([n], dtype=bool)
+    b: i1[n] = empty([n], dtype=bool)
+
+    i: i32
+    for i in range(n):
+        a[i] = bool(i % 2 == 0)
+        b[i] = bool(i % 3 == 0)
+
+    c: i1[n] = get_bool_array_or(n, a, b)
+    print(c)
+    for i in range(n):
+        assert c[i] == bool((i % 2 == 0) or (i % 3 == 0))
+
+def test_2D_array_bools():
+    n: Const[i32] = 3
+    m: Const[i32] = 4
+    a: i1[n, m] = empty([n, m], dtype=bool)
+    b: i1[n, m] = empty([n, m], dtype=bool)
+
+    i: i32
+    j: i32
+    for i in range(n):
+        for j in range(m):
+            a[i, j] = bool(i % 2 == 0)
+            b[i, j] = bool(j % 2 == 0)
+
+    c: i1[n, m] = get_2D_bool_array_and(n, m, a, b)
+    print(c)
+    for i in range(n):
+        for j in range(m):
+            assert c[i, j] == bool((i % 2 == 0) and (j % 2 == 0))
+
+# Complex
+def test_array_complexes():
+    n: Const[i32] = 5
+    a: c64[n] = empty([n], dtype=complex128)
+    b: c64[n] = empty([n], dtype=complex128)
+
+    i: i32
+    for i in range(n):
+        a[i] = c64(complex(i, i + 10))
+        b[i] = c64(complex(i + 1, i + 11))
+
+    c: c64[n] = get_complex_array_product(n, a, b)
+    print(c)
+    for i in range(n):
+        p: f64 = f64(i)
+        q: f64 = f64(i + 10)
+        r: f64 = f64(i + 1)
+        s: f64 = f64(i + 11)
+        assert abs(c[i] - c64(complex((p*r - q*s), (p*s + q*r)))) <= 1e-5
+
+def test_2D_array_complexes():
+    n: Const[i32] = 3
+    m: Const[i32] = 4
+    a: c64[n, m] = empty([n, m], dtype=complex128)
+    b: c64[n, m] = empty([n, m], dtype=complex128)
+
+    i: i32
+    j: i32
+    for i in range(n):
+        for j in range(m):
+            a[i, j] = c64(complex(i, 10*j))
+            b[i, j] = c64(complex(i + 1, 10 * (j + 1)))
+
+    c: c64[n, m] = get_2D_complex_array_sum(n, m, a, b)
+    print(c)
+    for i in range(n):
+        for j in range(m):
+            assert abs(c[i, j] - c64(complex(2*i + 1, 20*j + 10))) <= 1e-5
+
+def main0():
+    test_array_uints()
+    test_array_bools()
+    test_array_complexes()
+
+    test_2D_array_uints()
+    test_2D_array_bools()
+    test_2D_array_complexes()
+
+main0()
diff --git a/integration_tests/bindpy_04_module.py b/integration_tests/bindpy_04_module.py
new file mode 100644
index 0000000000..f856a84074
--- /dev/null
+++ b/integration_tests/bindpy_04_module.py
@@ -0,0 +1,21 @@
+import numpy as np
+
+def get_uint_array_sum(n, a, b):
+    return np.add(a, b)
+
+def get_bool_array_or(n, a, b):
+    return np.logical_or(a, b)
+
+def get_complex_array_product(n, a, b):
+    print(a, b)
+    print(np.multiply(a, b))
+    return np.multiply(a, b)
+
+def get_2D_uint_array_sum(n, m, a, b):
+    return np.add(a, b)
+
+def get_2D_bool_array_and(n, m, a, b):
+    return np.logical_and(a, b)
+
+def get_2D_complex_array_sum(n, m, a, b):
+    return np.add(a, b)
diff --git a/integration_tests/bindpy_05.py b/integration_tests/bindpy_05.py
new file mode 100644
index 0000000000..8cb4422cd0
--- /dev/null
+++ b/integration_tests/bindpy_05.py
@@ -0,0 +1,79 @@
+from lpython import ccall, Pointer, i32, i64, empty_c_void_p, CPtr, pointer
+
+@ccall(header="Python.h")
+def Py_Initialize():
+    pass
+
+@ccall(header="Python.h")
+def Py_DecodeLocale(s: str, p: CPtr) -> CPtr:
+    pass
+
+@ccall(header="Python.h")
+def PySys_SetArgv(n: i32, args: Pointer[CPtr]):
+    pass
+
+@ccall(header="Python.h")
+def Py_FinalizeEx() -> i32:
+    pass
+
+@ccall(header="Python.h")
+def PyUnicode_FromString(s: str) -> CPtr:
+    pass
+
+@ccall(header="Python.h")
+def PyImport_Import(name: CPtr) -> CPtr:
+    pass
+
+@ccall(header="Python.h")
+def _Py_DecRef(name: CPtr):
+    pass
+
+@ccall(header="Python.h")
+def PyObject_GetAttrString(m: CPtr, s: str) -> CPtr:
+    pass
+
+@ccall(header="Python.h")
+def PyTuple_New(n: i32) -> CPtr:
+    pass
+
+@ccall(header="Python.h")
+def PyObject_CallObject(a: CPtr, b: CPtr) -> CPtr:
+    pass
+
+@ccall(header="Python.h")
+def PyLong_AsLongLong(a: CPtr) -> i64:
+    pass
+
+def my_f():
+    pName: CPtr; pModule: CPtr; pFunc: CPtr; pArgs: CPtr; pValue: CPtr
+
+    pName = PyUnicode_FromString("bindpy_05_module")
+    assert bool(pName), "Failed to convert to unicode string bindpy_05_module\n"
+
+    pModule = PyImport_Import(pName)
+    _Py_DecRef(pName)
+    assert bool(pModule), "Failed to load python module bindpy_05_module\n"
+
+    pFunc = PyObject_GetAttrString(pModule, "my_f")
+    assert bool(pFunc), "Cannot find function my_f\n"
+
+    pArgs = PyTuple_New(0)
+    pValue = PyObject_CallObject(pFunc, pArgs)
+    _Py_DecRef(pArgs)
+    assert bool(pValue), "Call to my_f failed\n"
+
+    ans: i64 = PyLong_AsLongLong(pValue)
+    print("Ans is", ans)
+    assert ans == i64(5)
+
+
+def main0():
+    Py_Initialize()
+    argv1: CPtr = Py_DecodeLocale("", empty_c_void_p())
+    PySys_SetArgv(1, pointer(argv1, i64))
+
+    my_f()
+
+    assert(Py_FinalizeEx() >= 0), "BindPython: Unknown Error in FinalizeEx()\n"
+
+main0()
diff --git a/integration_tests/bindpy_05_module.py b/integration_tests/bindpy_05_module.py
new file mode 100644
index 0000000000..ce873c0044
--- /dev/null
+++ b/integration_tests/bindpy_05_module.py
@@ -0,0 +1,3 @@
+def my_f():
+    print("hello from python")
+    return 5
diff --git a/integration_tests/bindpy_06.py b/integration_tests/bindpy_06.py
new file mode 100644
index 0000000000..9b077d2e46
--- /dev/null
+++ b/integration_tests/bindpy_06.py
@@ -0,0 +1,72 @@
+from lpython import i32, f64, pythoncall, Const
+from numpy import empty, int32, float64
+
+
+@pythoncall(module = "bindpy_06_module")
+def get_cpython_version() -> str:
+    pass
+
+
+@pythoncall(module = "bindpy_06_module")
+def get_modified_dict(d: dict[str, i32]) -> dict[str, i32]:
+    pass
+
+
+@pythoncall(module = "bindpy_06_module")
+def get_modified_list(d: list[str]) -> list[str]:
+    pass
+
+@pythoncall(module = "bindpy_06_module")
+def get_modified_tuple(t: tuple[i32, i32]) -> tuple[i32, i32, i32]:
+    pass
+
+
+@pythoncall(module = "bindpy_06_module")
+def get_modified_set(s: set[i32]) -> set[i32]:
+    pass
+
+
+def test_list():
+    l: list[str] = ["LPython"]
+    lr: list[str] = get_modified_list(l)
+    assert len(lr) == 2
+    assert lr[0] == "LPython"
+    assert lr[1] == "LFortran"
+
+
+def test_tuple():
+    t: tuple[i32, i32] = (2, 4)
+    tr: tuple[i32, i32, i32] = get_modified_tuple(t)
+    assert tr[0] == t[0]
+    assert tr[1] == t[1]
+    assert tr[2] == t[0] + t[1]
+
+
+def test_set():
+    s: set[i32] = {1, 2, 3}
+    sr: set[i32] = get_modified_set(s)
+    assert len(sr) == 4
+    assert 1 in sr
+    assert 2 in sr
+    assert 3 in sr
+    assert 100 in sr
+
+
+def test_dict():
+    d: dict[str, i32] = {
+        "LPython": 50
+    }
+    dr: dict[str, i32] = get_modified_dict(d)
+    assert len(dr) == 2
+    assert dr["LPython"] == 50
+    assert dr["LFortran"] == 100
+
+
+def main0():
+    test_list()
+    test_tuple()
+    test_set()
+    test_dict()
+
+
+main0()
diff --git a/integration_tests/bindpy_06_module.py b/integration_tests/bindpy_06_module.py
new file mode 100644
index 0000000000..a22386e1b7
--- /dev/null
+++ b/integration_tests/bindpy_06_module.py
@@ -0,0 +1,24 @@
+import platform
+
+
+def get_cpython_version():    
+    return platform.python_version()
+
+
+def get_modified_dict(d):
+    d["LFortran"] = 100
+    return d
+
+
+def get_modified_list(l):
+    l.append("LFortran")
+    return l
+
+
+def get_modified_tuple(t):
+    return (t[0], t[1], t[0] + t[1])
+
+
+def get_modified_set(s):
+    s.add(100)
+    return s
diff --git a/integration_tests/bit_operations_i32.py b/integration_tests/bit_operations_i32.py
index 67934c8ce3..7d01f1d279 100644
--- a/integration_tests/bit_operations_i32.py
+++ b/integration_tests/bit_operations_i32.py
@@ -1,4 +1,4 @@
-from ltypes import i32
+from lpython import i32
 
 def test_bitnot():
     x: i32 = 5
diff --git a/integration_tests/bit_operations_i64.py b/integration_tests/bit_operations_i64.py
index c1ac77c413..efc61f6d33 100644
--- a/integration_tests/bit_operations_i64.py
+++ b/integration_tests/bit_operations_i64.py
@@ -1,4 +1,4 @@
-from ltypes import i64
+from lpython import i64
 
 def test_bitnot():
     x: i64 = i64(123)
diff --git a/integration_tests/c_mangling.py b/integration_tests/c_mangling.py
new file mode 100644
index 0000000000..5acc099f41
--- /dev/null
+++ b/integration_tests/c_mangling.py
@@ -0,0 +1,23 @@
+def f():
+    int : str
+    int = "abc"
+    print(int)
+
+    char : str
+    char = "char_variable"
+    print(char)
+
+    void : str
+    void = "void_variable"
+    print(void)
+
+    auto : str
+    auto = "auto_variable"
+    print(auto)
+
+
+    case : str
+    case = "case_variable"
+    print(case)
+
+f()
diff --git a/integration_tests/callback_01.py b/integration_tests/callback_01.py
new file mode 100644
index 0000000000..e297c98630
--- /dev/null
+++ b/integration_tests/callback_01.py
@@ -0,0 +1,26 @@
+from lpython import i32, Callable
+
+
+def f(x: i32) -> i32:
+    return x + 1
+
+def f2(x: i32) -> i32:
+    return x + 10
+
+def f3(x: i32) -> i32:
+    return f(x) + f2(x)
+
+
+def g(func: Callable[[i32], i32], arg: i32) -> i32:
+    ret: i32
+    ret = func(arg)
+    return ret
+
+
+def check():
+    assert g(f, 10) == 11
+    assert g(f2, 20) == 30
+    assert g(f3, 5) == 21
+
+
+check()
diff --git a/integration_tests/callback_02.py b/integration_tests/callback_02.py
new file mode 100644
index 0000000000..330f75cbbf
--- /dev/null
+++ b/integration_tests/callback_02.py
@@ -0,0 +1,18 @@
+from lpython import ccallback, i32, Callable
+
+# test issue 2169
+
+def foo(x : i32) -> i32:
+    return x**2
+
+def bar(func : Callable[[i32], i32], arg : i32) -> i32:
+    return func(arg)
+
+@ccallback
+def entry_point() -> None:
+    z: i32 = 5
+    x: i32 = bar(foo, z)
+    assert z**2 == x
+
+
+entry_point()
diff --git a/integration_tests/callback_03.py b/integration_tests/callback_03.py
new file mode 100644
index 0000000000..0f1f62e722
--- /dev/null
+++ b/integration_tests/callback_03.py
@@ -0,0 +1,13 @@
+from lpython import i32, Callable
+
+def foo(x : i32) -> None:
+    print(x)
+    assert x == 3
+
+def bar(func : Callable[[i32], None], arg : i32) -> i32:
+    func(arg)
+
+def main0():
+    bar(foo, 3)
+
+main0()
diff --git a/integration_tests/callback_04.py b/integration_tests/callback_04.py
new file mode 100644
index 0000000000..8268574f28
--- /dev/null
+++ b/integration_tests/callback_04.py
@@ -0,0 +1,18 @@
+import lpython
+from lpython import i32
+from types import FunctionType
+import callback_04_module
+
+lpython.CTypes.emulations = {k: v for k, v in callback_04_module.__dict__.items()
+        if isinstance(v, FunctionType)}
+
+
+def foo(x : i32) -> i32:
+    assert x == 3
+    print(x)
+    return x
+
+def entry_point() -> None:
+    callback_04_module.bar(foo, 3)
+
+entry_point()
diff --git a/integration_tests/callback_04_module.py b/integration_tests/callback_04_module.py
new file mode 100644
index 0000000000..13cfef375e
--- /dev/null
+++ b/integration_tests/callback_04_module.py
@@ -0,0 +1,4 @@
+from lpython import i32, Callable
+
+def bar(func : Callable[[i32], i32], arg : i32) -> i32:
+    return func(arg)
diff --git a/integration_tests/cast_01.py b/integration_tests/cast_01.py
new file mode 100644
index 0000000000..ee2b5b01df
--- /dev/null
+++ b/integration_tests/cast_01.py
@@ -0,0 +1,18 @@
+from lpython import i32, u8, u32, dataclass, field
+from numpy import empty, uint8
+
+@dataclass
+class LPBHV_small:
+    dim : i32 = 4
+    a : u8[4] = field(default_factory=lambda: empty(4, dtype=uint8))
+
+def main0():
+    lphv_small : LPBHV_small = LPBHV_small()
+    i: i32
+    for i in range(4):
+        lphv_small.a[i] = u8(10 + i)
+        elt: u32 = u32(lphv_small.a[i])
+        print(elt)
+        assert elt == u32(10 + i)
+
+main0()
diff --git a/integration_tests/cast_02.py b/integration_tests/cast_02.py
new file mode 100644
index 0000000000..f984e5730c
--- /dev/null
+++ b/integration_tests/cast_02.py
@@ -0,0 +1,41 @@
+from lpython import u8, u16, u32, u64
+
+def test_01():
+    x : u32 = u32(10)
+    print(x)
+    assert x == u32(10)
+
+    y: u16 = u16(x)
+    print(y)
+    assert y == u16(10)
+
+    z: u64 = u64(y)
+    print(z)
+    assert z == u64(10)
+
+    w: u8 = u8(z)
+    print(w)
+    assert w == u8(10)
+
+def test_02():
+    x : u64 = u64(11)
+    print(x)
+    assert x == u64(11)
+
+    y: u8 = u8(x)
+    print(y)
+    assert y == u8(11)
+
+    z: u16 = u16(y)
+    print(z)
+    assert z == u16(11)
+
+    w: u32 = u32(z)
+    print(w)
+    assert w == u32(11)
+
+def main0():
+    test_01()
+    test_02()
+
+main0()
diff --git a/integration_tests/class_01.py b/integration_tests/class_01.py
new file mode 100644
index 0000000000..103cb612c3
--- /dev/null
+++ b/integration_tests/class_01.py
@@ -0,0 +1,28 @@
+from lpython import i32,f64
+from math import sqrt
+
+class coord:
+    def __init__(self: "coord"):
+        self.x: i32 = 3
+        self.y: i32 = 4
+
+def main():
+    p1: coord = coord()
+    sq_dist : i32 = p1.x*p1.x + p1.y*p1.y
+    dist : f64 = sqrt(f64(sq_dist))
+    print("Squared Distance from origin = ", sq_dist)
+    assert sq_dist == 25
+    print("Distance from origin = ", dist)
+    assert dist == f64(5)
+    print("p1.x = 6")
+    print("p1.y = 8")
+    p1.x = i32(6)
+    p1.y = 8
+    sq_dist = p1.x*p1.x + p1.y*p1.y
+    dist = sqrt(f64(sq_dist))
+    print("Squared Distance from origin = ", sq_dist)
+    assert sq_dist == 100
+    print("Distance from origin = ", dist)
+    assert dist == f64(10)
+
+main()
diff --git a/integration_tests/class_02.py b/integration_tests/class_02.py
new file mode 100644
index 0000000000..94d92a9ec6
--- /dev/null
+++ b/integration_tests/class_02.py
@@ -0,0 +1,43 @@
+from lpython import i32
+class Character:
+    def __init__(self:"Character", name:str, health:i32, attack_power:i32):
+        self.name :str = name
+        self.health :i32 = health
+        self.attack_power : i32 = attack_power
+        self.is_immortal : bool = False
+    
+    def attack(self:"Character", other:"Character")->str:
+        other.health -= self.attack_power
+        return self.name+" attacks "+ other.name+" for "+str(self.attack_power)+" damage."
+
+    def is_alive(self:"Character")->bool:
+        if self.is_immortal:
+            return True
+        else:
+            return self.health > 0
+
+def main():
+    hero : Character = Character("Hero", 10, 20)
+    monster : Character = Character("Monster", 50, 15)
+    print(hero.attack(monster))
+    print(monster.health)  
+    assert monster.health == 30
+    print(monster.is_alive())  
+    assert monster.is_alive() == True
+    print("Hero gains temporary immortality")
+    hero.is_immortal = True
+    print(monster.attack(hero))
+    print(hero.health)
+    assert hero. health == -5
+    print(hero.is_alive())
+    assert hero.is_alive() == True
+    print("Hero's immortality runs out")
+    hero.is_immortal = False
+    print(hero.is_alive())
+    assert hero.is_alive() == False
+    print("Restarting")
+    hero = Character("Hero", 10, 20)
+    print(hero.is_alive())
+    assert hero.is_alive() == True
+
+main()
diff --git a/integration_tests/class_03.py b/integration_tests/class_03.py
new file mode 100644
index 0000000000..8e4d9eded6
--- /dev/null
+++ b/integration_tests/class_03.py
@@ -0,0 +1,24 @@
+from lpython import f64
+from math import pi
+
+class Circle:
+    def __init__(self:"Circle", radius:f64):
+        self.radius :f64 = radius
+    
+    def circle_area(self:"Circle")->f64:
+        return pi * self.radius ** 2.0
+    
+    def circle_print(self:"Circle"):
+        area : f64 = self.circle_area()
+        print("Circle: r = ",str(self.radius)," area = ",str(area))
+
+def main():
+    c : Circle = Circle(1.0)
+    c.circle_print()  
+    assert abs(c.circle_area() - 3.141593) <= 1e-6
+    c.radius = 1.5   
+    c.circle_print()
+    assert abs(c.circle_area() - 7.068583) < 1e-6
+
+if __name__ == "__main__":
+    main()
diff --git a/integration_tests/class_04.py b/integration_tests/class_04.py
new file mode 100644
index 0000000000..7798526331
--- /dev/null
+++ b/integration_tests/class_04.py
@@ -0,0 +1,46 @@
+from lpython import i32
+class Person:
+    def __init__(self:"Person", first:str, last:str, birthyear:i32, sgender:str):
+        self.first:str = first
+        self.last:str = last
+        self.birthyear:i32 = birthyear
+        self.sgender:str = sgender
+    
+    def describe(self:"Person"):
+        print("first: " + self.first)
+        print("last: " + self.last)
+        print("birthyear: " + str(self.birthyear))
+        print("sgender: " + self.sgender)
+
+class Employee:
+    def __init__(self:"Employee", person:Person, hire_date:i32, department:str):
+        self.person:Person = person
+        self.hire_date:i32 = hire_date
+        self.department:str = department
+    
+    def describe(self:"Employee"):
+        self.person.describe()
+        print("hire_date: " + str(self.hire_date))
+        print("department: " + self.department)
+
+def main():
+    jack:Person = Person("Jack", "Smith", 1984, "M")
+    jill_p:Person = Person("Jill", "Smith", 1984, "F")
+    jill:Employee = Employee(jill_p, 2003, "sales")
+
+    jack.describe()
+    assert jack.first == "Jack"
+    assert jack.last == "Smith"
+    assert jack.birthyear == 1984
+    assert jack.sgender == "M"
+
+    jill.describe()
+    assert jill.person.first == "Jill"
+    assert jill.person.last == "Smith"
+    assert jill.person.birthyear == 1984
+    assert jill.person.sgender == "F"
+    assert jill.department == "sales"
+    assert jill.hire_date == 2003
+
+if __name__ == '__main__':
+    main()
diff --git a/integration_tests/class_05.py b/integration_tests/class_05.py
new file mode 100644
index 0000000000..75af54cd8f
--- /dev/null
+++ b/integration_tests/class_05.py
@@ -0,0 +1,37 @@
+from lpython import i32
+
+class Animal:
+    def __init__(self:"Animal"):
+        self.species: str = "Generic Animal"
+        self.age: i32 = 0
+        self.is_domestic: bool = True
+
+class Dog(Animal):
+    def __init__(self:"Dog", name:str, age:i32):
+        super().__init__()
+        self.species: str = "Dog"
+        self.name: str = name
+        self.age: i32 = age
+
+class Cat(Animal):
+    def __init__(self:"Cat", name: str, age: i32):
+        super().__init__()
+        self.species: str = "Cat"
+        self.name:str = name
+        self.age: i32 = age
+
+def main():
+    dog: Dog = Dog("Buddy", 5)
+    cat: Cat = Cat("Whiskers", 3)
+    op1: str = str(dog.name+" is a "+str(dog.age)+"-year-old "+dog.species+".")
+    print(op1)
+    assert op1 == "Buddy is a 5-year-old Dog."
+    print(dog.is_domestic)
+    assert dog.is_domestic == True
+    op2: str = str(cat.name+ " is a "+ str(cat.age)+ "-year-old "+ cat.species+ ".")
+    print(op2)
+    assert op2 == "Whiskers is a 3-year-old Cat."
+    print(cat.is_domestic)
+    assert cat.is_domestic == True
+
+main()
diff --git a/integration_tests/class_06.py b/integration_tests/class_06.py
new file mode 100644
index 0000000000..868985efdf
--- /dev/null
+++ b/integration_tests/class_06.py
@@ -0,0 +1,36 @@
+from lpython import i32
+
+class Base():
+    def __init__(self:"Base"):
+        self.x : i32 = 10
+
+    def get_x(self:"Base")->i32:
+        print(self.x)
+        return self.x
+    
+#Testing polymorphic fn calls    
+def get_x_static(d: Base)->i32:
+    print(d.x)
+    return d.x
+
+class Derived(Base):
+    def __init__(self: "Derived"):
+        super().__init__()
+        self.y : i32 = 20 
+
+    def get_y(self:"Derived")->i32:
+        print(self.y)
+        return self.y       
+
+
+def main():
+    d : Derived = Derived()
+    x : i32 = get_x_static(d)
+    assert x == 10
+    # Testing parent method call using der obj
+    x = d.get_x()
+    assert x == 10
+    y: i32 = d.get_y()
+    assert y == 20
+
+main()
diff --git a/integration_tests/comp_01.py b/integration_tests/comp_01.py
index b04eb9a1d0..41ac380a5a 100644
--- a/integration_tests/comp_01.py
+++ b/integration_tests/comp_01.py
@@ -1,4 +1,4 @@
-from ltypes import i32, f64
+from lpython import i32, f64
 
 def compI32(x: i32, y: i32):
     print(x)
diff --git a/integration_tests/const_01.py b/integration_tests/const_01.py
index 2db1a91b0f..377f3ab676 100644
--- a/integration_tests/const_01.py
+++ b/integration_tests/const_01.py
@@ -1,4 +1,4 @@
-from ltypes import Const, i32, i64, f32, f64
+from lpython import Const, i32, i64, f32, f64
 
 def test_const_variables():
     xci: Const[i32] = i32(0.0)
@@ -13,6 +13,11 @@ def test_const_variables():
     ycf: Const[f64] = 3.0
     yf: f64 = 3.0
 
+    print(xci, xi)
+    print(yci, yi)
+    print(xcf, xf)
+    print(ycf, yf)
+
     assert xci == xi
     assert yci == yi
     assert xcf == xf
diff --git a/integration_tests/const_02.py b/integration_tests/const_02.py
index c84fea5a9d..b8c69b743c 100644
--- a/integration_tests/const_02.py
+++ b/integration_tests/const_02.py
@@ -1,4 +1,4 @@
-from ltypes import i32, f64, Const
+from lpython import i32, f64, Const
 
 def f(x: Const[i32]) -> i32:
     return x + 1
diff --git a/integration_tests/const_03.py b/integration_tests/const_03.py
index 40ebf818d5..13d448c0a3 100644
--- a/integration_tests/const_03.py
+++ b/integration_tests/const_03.py
@@ -1,4 +1,4 @@
-from ltypes import i64, f64, i32, Const, ccall
+from lpython import i64, f64, i32, Const, ccall
 
 CONST_1: Const[f64] = 32.0
 CONST_2: Const[f64] = CONST_1 * 2.0
diff --git a/integration_tests/const_04.py b/integration_tests/const_04.py
index 6acd01dbd0..e65b5292fd 100644
--- a/integration_tests/const_04.py
+++ b/integration_tests/const_04.py
@@ -1,4 +1,4 @@
-from ltypes import i32, i16, Const
+from lpython import i32, i16, Const
 from numpy import empty, int16
 
 def sum_const_array(array: Const[i16[:]], size: i32) -> i16:
diff --git a/integration_tests/def_func_01.py b/integration_tests/def_func_01.py
new file mode 100644
index 0000000000..2564cff13e
--- /dev/null
+++ b/integration_tests/def_func_01.py
@@ -0,0 +1,76 @@
+from lpython import i32,i64
+
+def factorial_1(x: i32, y:i32 =1) ->i32 :
+    if x <= 1:
+         return y
+    return x * factorial_1(x-1)
+
+def factorial_2(x: i32, y:i32=3 ,z:i32 =2) ->i32:
+    if x ==4:
+        return x * y * z
+    return x * factorial_2(x-1)
+
+def default_func(x : str ="Hello", y : str = " ", z : str = "World") ->str:
+    return x + y + z
+
+
+def even_positions(iterator : i32, to_add : str = "?")-> str:
+    if (iterator == 10): return ""
+    if iterator%2 == 0 :
+        return to_add + even_positions(iterator+1,"X")
+    return to_add +even_positions(iterator+1)
+
+
+
+def test_factorial_1():
+    test_00 : i32  = factorial_1(1)
+    print("test_00 is =>", test_00)
+    assert test_00 == 1
+
+    test_01 : i32  = factorial_1(5,0)
+    print("test_01 is =>", test_01)
+    assert test_01 == 120
+
+    test_02 : i32  = factorial_1(1,5555)
+    print("test_02 is =>", test_02)
+    assert test_02 == 5555
+
+def test_factorial_2():
+    test_03 : i32 =factorial_2(5,99999,99999)
+    print("test_03 is =>", test_03)
+    assert test_03 == 120
+
+    test_04 : i32  = factorial_2(4,-1,100)
+    print("test_04 is =>", test_04)
+    assert test_04 == -400
+
+def test_default_func():
+    test_05 :str = default_func()
+    print("test_05 is =>", test_05)
+    assert test_05 == "Hello World"
+
+    test_06 :str = default_func(y = "|||",x="Hi")
+    print("test_06 is =>", test_06)
+    assert test_06 == "Hi|||World"
+
+    test_07 :str = default_func(y = "++",z = "LPython")
+    print("test_07 is =>", test_07)
+    assert test_07 == "Hello++LPython"
+
+    test_8 :str = default_func("Welcome",z = "LPython")
+    print("test_8 is =>", test_8)
+    assert test_8 == "Welcome LPython"
+
+def test_even_positions():
+    test_09 : str = even_positions(0)
+    print("test_09 is =>", test_09)
+    assert test_09 == "?X?X?X?X?X"
+
+    test_10 : str = even_positions(0,"W")
+    print("test_10 is =>", test_10)
+    assert test_10 == "WX?X?X?X?X"
+
+test_factorial_1()
+test_factorial_2()
+test_default_func()
+test_even_positions() 
diff --git a/integration_tests/elemental_01.py b/integration_tests/elemental_01.py
index 22b44b90ed..0a2787c7ed 100644
--- a/integration_tests/elemental_01.py
+++ b/integration_tests/elemental_01.py
@@ -1,5 +1,5 @@
-from ltypes import i32, f64, f32
-from numpy import empty, sin, cos, reshape
+from lpython import i32, f64, f32
+from numpy import empty, sin, cos, reshape, int32, float32, float64
 
 def verify1d(array: f32[:], result: f32[:], size: i32):
     i: i32
@@ -35,7 +35,7 @@ def verify2d(array: f64[:, :], result: f64[:, :], size1: i32, size2: i32):
 def verify1d_sum(array_a: f64[:], array_b: f64[:], result: f64[:], size: i32):
     i: i32
     eps: f64
-    eps = 1e-12
+    eps = 1e-9
 
     for i in range(size):
         assert abs(array_a[i]**2.0 + 5.0*array_b[i]**3.0 - result[i]) <= eps
@@ -44,7 +44,7 @@ def verify1d_sum(array_a: f64[:], array_b: f64[:], result: f64[:], size: i32):
 def verify1d_mul(array_a: f64[:], array_b: f64[:], result: f64[:], size: i32):
     i: i32
     eps: f64
-    eps = 1e-12
+    eps = 1e-5
 
     for i in range(size):
         assert abs(array_a[i]**2.0 * 5.0*array_b[i]**3.0 - result[i]) <= eps
@@ -55,9 +55,9 @@ def elemental_sum():
     j: i32
     k: i32
 
-    array_a: f64[100] = empty(100)
-    array_b: f64[100] = empty(100)
-    array_c: f64[100] = empty(100)
+    array_a: f64[100] = empty(100, dtype=float64)
+    array_b: f64[100] = empty(100, dtype=float64)
+    array_c: f64[100] = empty(100, dtype=float64)
 
     for i in range(100):
         array_a[i] = float(i)
@@ -74,9 +74,9 @@ def elemental_mul():
     j: i32
     k: i32
 
-    array_a: f64[100] = empty(100)
-    array_b: f64[100] = empty(100)
-    array_c: f64[100] = empty(100)
+    array_a: f64[100] = empty(100, dtype=float64)
+    array_b: f64[100] = empty(100, dtype=float64)
+    array_c: f64[100] = empty(100, dtype=float64)
 
     for i in range(100):
         array_a[i] = float(i)
@@ -93,8 +93,8 @@ def elemental_sin():
     j: i32
     k: i32
 
-    array1d: f32[256] = empty(256)
-    sin1d: f32[256] = empty(256)
+    array1d: f32[256] = empty(256, dtype=float32)
+    sin1d: f32[256] = empty(256, dtype=float32)
 
     for i in range(256):
         array1d[i] = f32(i)
@@ -103,24 +103,24 @@ def elemental_sin():
 
     verify1d(array1d, sin1d, 256)
 
-    arraynd: f64[256, 64, 16] = empty((256, 64, 16))
-    sinnd: f64[256, 64, 16] = empty((256, 64, 16))
+    arraynd: f64[200, 64, 16] = empty((200, 64, 16), dtype=float64)
+    sinnd: f64[200, 64, 16] = empty((200, 64, 16), dtype=float64)
 
-    for i in range(256):
+    for i in range(200):
         for j in range(64):
             for k in range(16):
                 arraynd[i, j, k] = float(i + j + k)
 
     sinnd = sin(arraynd)**2.0
 
-    verifynd(arraynd, sinnd, 256, 64, 16)
+    verifynd(arraynd, sinnd, 200, 64, 16)
 
 def elemental_cos():
     i: i32
     j: i32
 
-    array2d: f64[256, 64] = empty((256, 64))
-    cos2d: f64[256, 64] = empty((256, 64))
+    array2d: f64[256, 64] = empty((256, 64), dtype=float64)
+    cos2d: f64[256, 64] = empty((256, 64), dtype=float64)
 
     for i in range(256):
         for j in range(64):
@@ -138,9 +138,9 @@ def elemental_trig_identity():
     eps: f32
     eps = f32(1e-6)
 
-    arraynd: f32[64, 32, 8, 4] = empty((64, 32, 8, 4))
-    observed: f32[64, 32, 8, 4] = empty((64, 32, 8, 4))
-    observed1d: f32[65536] = empty(65536)
+    arraynd: f32[64, 32, 8, 4] = empty((64, 32, 8, 4), dtype=float32)
+    observed: f32[64, 32, 8, 4] = empty((64, 32, 8, 4), dtype=float32)
+    observed1d: f32[65536] = empty(65536, dtype=float32)
 
     for i in range(64):
         for j in range(32):
@@ -150,7 +150,7 @@ def elemental_trig_identity():
 
     observed = sin(arraynd)**f32(2) + cos(arraynd)**f32(2)
 
-    newshape: i32[1] = empty(1, dtype=int)
+    newshape: i32[1] = empty(1, dtype=int32)
     newshape[0] = 65536
     observed1d = reshape(observed, newshape)
 
@@ -162,4 +162,4 @@ def elemental_trig_identity():
 elemental_cos()
 elemental_trig_identity()
 elemental_sum()
-elemental_mul()
+elemental_mul()
\ No newline at end of file
diff --git a/integration_tests/elemental_02.py b/integration_tests/elemental_02.py
index 0d574b76f4..e0df66ea50 100644
--- a/integration_tests/elemental_02.py
+++ b/integration_tests/elemental_02.py
@@ -1,12 +1,12 @@
-from ltypes import i32, f64, f32
-from numpy import empty, tan, sin, cos, reshape
+from lpython import i32, f64, f32
+from numpy import empty, tan, sin, cos, reshape, int32, float32, float64
 
 def elemental_tan64():
-    theta: f64[16, 8, 4, 2, 1] = empty((16, 8, 4, 2, 1))
-    theta1d: f64[1024] = empty(1024)
-    tantheta: f64[16, 8, 4, 2, 1] = empty((16, 8, 4, 2, 1))
-    observed: f64[16, 8, 4, 2, 1] = empty((16, 8, 4, 2, 1))
-    shapend: i32[5] = empty(5, dtype=int)
+    theta: f64[16, 8, 4, 2, 1] = empty((16, 8, 4, 2, 1), dtype=float64)
+    theta1d: f64[1024] = empty(1024, dtype=float64)
+    tantheta: f64[16, 8, 4, 2, 1] = empty((16, 8, 4, 2, 1), dtype=float64)
+    observed: f64[16, 8, 4, 2, 1] = empty((16, 8, 4, 2, 1), dtype=float64)
+    shapend: i32[5] = empty(5, dtype=int32)
     i: i32
     j: i32
     k: i32
@@ -31,15 +31,15 @@ def elemental_tan64():
                     assert abs(tantheta[i, j, k, l, 0] - observed[i, j, k, l, 0]) <= eps
 
 def elemental_tan32():
-    theta: f32[5, 5] = empty((5, 5))
-    theta1d: f32[25] = empty(25)
-    tantheta: f32[5, 5] = empty((5, 5))
-    observed: f32[5, 5] = empty((5, 5))
-    shapend: i32[2] = empty(2, dtype=int)
+    theta: f32[5, 5] = empty((5, 5), dtype=float32)
+    theta1d: f32[25] = empty(25, dtype=float32)
+    tantheta: f32[5, 5] = empty((5, 5), dtype=float32)
+    observed: f32[5, 5] = empty((5, 5), dtype=float32)
+    shapend: i32[2] = empty(2, dtype=int32)
     i: i32
     j: i32
     eps: f32
-    eps = f32(1e-6)
+    eps = f32(1e-4)
 
     for i in range(25):
         theta1d[i] = f32(i + 1)
diff --git a/integration_tests/elemental_03.py b/integration_tests/elemental_03.py
index 31ae3b6efb..2638505344 100644
--- a/integration_tests/elemental_03.py
+++ b/integration_tests/elemental_03.py
@@ -1,10 +1,10 @@
-from ltypes import i32, f32, f64
-from numpy import empty, sqrt, reshape
+from lpython import i32, f32, f64
+from numpy import empty, sqrt, reshape, int32, float32, float64
 
 def elemental_sqrt64():
-    array: f64[16, 16, 16] = empty((16, 16, 16))
-    observed: f64[4096] = empty(4096)
-    shape: i32[1] = empty(1, dtype=int)
+    array: f64[16, 16, 16] = empty((16, 16, 16), dtype=float64)
+    observed: f64[4096] = empty(4096, dtype=float64)
+    shape: i32[1] = empty(1, dtype=int32)
     eps: f64
     eps = 1e-12
     i: i32
@@ -20,17 +20,17 @@ def elemental_sqrt64():
     shape[0] = 4096
     observed = reshape(sqrt(array), shape)
     for l in range(4096):
-        i = i32(int(l/256))
+        i = i32(l/256)
         j = (l - i*256)//16
         k = (l - i*256 - j*16)
         assert abs(observed[l]**2.0 - f64(i + j + k)) <= eps
 
 def elemental_sqrt32():
-    array: f32[16, 16] = empty((16, 16))
-    observed: f32[256] = empty(256)
-    shape: i32[1] = empty(1, dtype=int)
+    array: f32[16, 16] = empty((16, 16), dtype=float32)
+    observed: f32[256] = empty(256, dtype=float32)
+    shape: i32[1] = empty(1, dtype=int32)
     eps: f32
-    eps = f32(2e-6)
+    eps = f32(5e-6)
     i: i32
     j: i32
     l: i32
@@ -42,15 +42,15 @@ def elemental_sqrt32():
     shape[0] = 256
     observed = reshape(sqrt(array), shape)
     for l in range(256):
-        i = i32(int(l/16))
+        i = i32(l/16)
         j = (l - i*16)
         assert abs(observed[l]**f32(2.0) - f32(i + j)) <= eps
 
 
 def elemental_norm():
-    array_a: f64[100] = empty(100)
-    array_b: f64[100] = empty(100)
-    array_c: f64[100] = empty(100)
+    array_a: f64[100] = empty(100, dtype=float64)
+    array_b: f64[100] = empty(100, dtype=float64)
+    array_c: f64[100] = empty(100, dtype=float64)
 
     i: i32
     j: i32
diff --git a/integration_tests/elemental_04.py b/integration_tests/elemental_04.py
index 56c7dcd0ff..d51e5d7a4f 100644
--- a/integration_tests/elemental_04.py
+++ b/integration_tests/elemental_04.py
@@ -1,10 +1,10 @@
-from ltypes import i32, f32, f64
-from numpy import empty, log, log10, log2, reshape
+from lpython import i32, f32, f64
+from numpy import empty, log, log10, log2, reshape, int32, float32, float64
 from math import exp
 
 def elemental_log():
-    array: f64[100] = empty(100)
-    observed: f64[100] = empty(100)
+    array: f64[100] = empty(100, dtype=float64)
+    observed: f64[100] = empty(100, dtype=float64)
     i: i32
     eps: f64
     eps = 1e-12
@@ -23,18 +23,18 @@ def verify(observed: f32[:], base: i32, eps: f32):
     j: i32
 
     for k in range(100):
-        i = i32(int(k/10))
+        i = i32(k/10)
         j = (k - i*10)
         assert abs(f32(base)**(observed[k]) - f32(i + j + 1)) <= eps
 
 def elemental_log2_log10():
-    array: f32[10, 10] = empty((10, 10))
-    observed: f32[100] = empty(100)
-    shape: i32[1] = empty(1, dtype=int)
+    array: f32[10, 10] = empty((10, 10), dtype=float32)
+    observed: f32[100] = empty(100, dtype=float32)
+    shape: i32[1] = empty(1, dtype=int32)
     i: i32
     j: i32
     eps: f32
-    eps = f32(2e-6)
+    eps = f32(5e-6)
 
     for i in range(10):
         for j in range(10):
diff --git a/integration_tests/elemental_05.py b/integration_tests/elemental_05.py
index 49b80b72ef..4e91b8eaa2 100644
--- a/integration_tests/elemental_05.py
+++ b/integration_tests/elemental_05.py
@@ -1,5 +1,5 @@
-from ltypes import i32, f64, f32
-from numpy import empty, sinh, cosh, reshape, int32, float64, sin
+from lpython import i32, f64, f32
+from numpy import empty, sinh, cosh, reshape, int32, float32, float64, sin
 
 def verify1d(array: f32[:], result: f32[:], size: i32):
     i: i32
@@ -18,14 +18,14 @@ def verifynd(array: f64[:, :, :, :], result: f64[:, :, :, :], size1: i32, size2:
     result1d: f64[12800] = reshape(result, shape)
 
     for i in range(size):
-        assert abs((sinh(array1d[i]) + 2.0)/2 - result1d[i]) <= eps
+        assert abs((sinh(array1d[i]) + 2.0)/2.0 - result1d[i]) <= eps
 
 
 def elemental_sinh():
     i: i32; j: i32; k: i32; l: i32; size: i32;
 
-    array1d: f32[10] = empty(10)
-    sinh1d: f32[10] = empty(10)
+    array1d: f32[10] = empty(10, dtype=float32)
+    sinh1d: f32[10] = empty(10, dtype=float32)
 
     for i in range(10):
         array1d[i] = f32(f64(i)/10.0)
@@ -33,15 +33,15 @@ def elemental_sinh():
     sinh1d = sinh(sinh(array1d))
     verify1d(array1d, sinh1d, 10)
 
-    arraynd: f64[40, 10, 16, 2] = empty((40, 10, 16, 2))
-    sinhnd: f64[40, 10, 16, 2] = empty((40, 10, 16, 2))
+    arraynd: f64[40, 10, 16, 2] = empty((40, 10, 16, 2), dtype=float64)
+    sinhnd: f64[40, 10, 16, 2] = empty((40, 10, 16, 2), dtype=float64)
     size = 40 * 10 * 16 * 2
 
     for i in range(40):
         for j in range(10):
             for k in range(16):
                 for l in range(2):
-                    arraynd[i, j, k, l] = float(i + 2*j + 3*k + 4*k)/size
+                    arraynd[i, j, k, l] = float(i + 2*j + 3*k + 4*k)/float(size)
 
     sinhnd = (sinh(arraynd) + 2.0)/2.0
 
@@ -58,12 +58,12 @@ def verify2d(array: f64[:, :], result: f64[:, :], size1: i32, size2: i32):
 def elemental_cosh():
     i: i32; j: i32
 
-    array2d: f64[20, 10] = empty((20, 10))
-    cosh2d: f64[20, 10] = empty((20, 10))
+    array2d: f64[20, 10] = empty((20, 10), dtype=float64)
+    cosh2d: f64[20, 10] = empty((20, 10), dtype=float64)
 
     for i in range(20):
         for j in range(10):
-                array2d[i, j] = (i + 2*j)/200.0
+                array2d[i, j] = float(i + 2*j)/200.0
 
     cosh2d = cosh(5.0 + (array2d))**2.0
     verify2d(array2d, cosh2d, 20, 10)
@@ -72,12 +72,12 @@ def elemental_cosh_():
     i: i32
     j: i32
 
-    array2d: f64[20, 10] = empty((20, 10))
-    cosh2d: f64[20, 10] = empty((20, 10))
+    array2d: f64[20, 10] = empty((20, 10), dtype=float64)
+    cosh2d: f64[20, 10] = empty((20, 10), dtype=float64)
 
     for i in range(20):
         for j in range(10):
-                array2d[i, j] = (i + 2*j)/200.0
+                array2d[i, j] = float(i + 2*j)/200.0
 
     cosh2d = cosh(5.0 + (array2d))**2.0
     verify2d(array2d, cosh2d, 20, 10)
@@ -111,7 +111,7 @@ def elemental_trig_identity():
                   cosh(arraynd/4.0) * cosh(arraynd/2.0) -
                   sinh(arraynd/4.0) * sinh(arraynd/2.0))
 
-    newshape: i32[1] = empty(1, dtype=int)
+    newshape: i32[1] = empty(1, dtype=int32)
     newshape[0] = 400
 
     observed1d_1 = reshape(identity1, newshape)
diff --git a/integration_tests/elemental_06.py b/integration_tests/elemental_06.py
index 4acc162e47..13782bdb14 100644
--- a/integration_tests/elemental_06.py
+++ b/integration_tests/elemental_06.py
@@ -1,5 +1,5 @@
-from ltypes import i32, f32, f64
-from numpy import empty, arcsin, arccos, sin, cos, sqrt, arctan, tan, degrees, radians
+from lpython import i32, f32, f64
+from numpy import empty, arcsin, arccos, sin, cos, sqrt, arctan, tan, degrees, radians, hypot, float32, float64
 from math import pi
 
 def verify1d_same(array: f32[:], result: f32[:], size: i32):
@@ -57,18 +57,27 @@ def verify_arctan_2d(array: f64[:, :], result: f64[:, :], size1:i32, size2:i32):
         for j in range(size2):
             assert abs(arctan(array[i, j])**2.0 - result[i, j]) <= eps
 
+def verify_hypot_2d(array1: f64[:, :], array2: f64[:, :], result: f64[:, :], size1:i32, size2:i32):
+    i: i32
+    j: i32
+    eps: f64
+    eps = 1e-12
+    for i in range(size1):
+        for j in range(size2):
+            assert abs(hypot(array1[i, j], array2[i, j]) - result[i, j]) <= eps
+
 def elemental_arcsin():
     i: i32
     j: i32
-    array1d: f32[201] = empty(201)
-    arcsin1d: f32[201] = empty(201)
+    array1d: f32[201] = empty(201, dtype=float32)
+    arcsin1d: f32[201] = empty(201, dtype=float32)
     for i in range(201):
         array1d[i] =  f32((i - 100)/100)
     arcsin1d = arcsin(array1d) ** f32(2.0)
     verify_arcsin_1d(array1d, arcsin1d, 201)
 
-    array2d: f64[64, 64] = empty((64, 64))
-    arcsin2d: f64[64, 64] = empty((64, 64))
+    array2d: f64[64, 64] = empty((64, 64), dtype=float64)
+    arcsin2d: f64[64, 64] = empty((64, 64), dtype=float64)
     for i in range(64):
         for j in range(64): # 2048 = 64 * 32
             array2d[i,j]= float((i * 64 + j - 2048 )/2048)
@@ -79,15 +88,15 @@ def elemental_arcsin():
 def elemental_arccos():
     i: i32
     j: i32
-    array1d: f32[201] = empty(201)
-    arccos1d: f32[201] = empty(201)
+    array1d: f32[201] = empty(201, dtype=float32)
+    arccos1d: f32[201] = empty(201, dtype=float32)
     for i in range(201):
         array1d[i] =  f32((i - 100)/100)
     arccos1d = arccos(array1d) ** f32(2.0)
     verify_arccos_1d(array1d, arccos1d, 201)
 
-    array2d: f64[64, 64] = empty((64, 64))
-    arccos2d: f64[64, 64] = empty((64, 64))
+    array2d: f64[64, 64] = empty((64, 64), dtype=float64)
+    arccos2d: f64[64, 64] = empty((64, 64), dtype=float64)
     for i in range(64):
         for j in range(64): # 2048 = 64 * 32
             array2d[i,j]= float((i * 64 + j - 2048 )/2048)
@@ -100,9 +109,9 @@ def elemental_arctan():
     j: i32
     eps: f32
     eps = f32(1e-6)
-    array1d: f32[201] = empty(201)
-    array1d_rec: f32[201] = empty(201)
-    arctan1d: f32[201] = empty(201)
+    array1d: f32[201] = empty(201, dtype=float32)
+    array1d_rec: f32[201] = empty(201, dtype=float32)
+    arctan1d: f32[201] = empty(201, dtype=float32)
     for i in range(201):
         array1d[i] =  f32(i - 100)
     arctan1d = arctan(array1d) ** f32(2.0)
@@ -110,13 +119,13 @@ def elemental_arctan():
 
     for i in range(201):
         array1d[i] =  f32(i + 1)
-        array1d_rec[i] = f32(1.0/(i+1))
+        array1d_rec[i] = f32(1.0/f64(i+1))
     arctan1d = arctan(array1d) + arctan(array1d_rec)
     for i in range(201):
         assert abs(arctan1d[i] - f32(f64(pi) / 2.0)) <= eps
 
-    array2d: f64[64, 64] = empty((64, 64))
-    arctan2d: f64[64, 64] = empty((64, 64))
+    array2d: f64[64, 64] = empty((64, 64), dtype=float64)
+    arctan2d: f64[64, 64] = empty((64, 64), dtype=float64)
     for i in range(64):
         for j in range(64):
             array2d[i,j]= float(64*i + j - 2048)
@@ -128,8 +137,8 @@ def elemental_trig_identity():
     i: i32
     eps: f32
     eps = f32(1e-6)
-    array1d: f32[201] = empty(201)
-    observed1d: f32[201] = empty(201)
+    array1d: f32[201] = empty(201, dtype=float32)
+    observed1d: f32[201] = empty(201, dtype=float32)
     for i in range(201):
         array1d[i] =  f32((i - 100)/100)
 
@@ -139,8 +148,8 @@ def elemental_trig_identity():
 
 def elemental_reverse():
     i: i32
-    array1d: f32[201] = empty(201)
-    observed1d: f32[201] = empty(201)
+    array1d: f32[201] = empty(201, dtype=float32)
+    observed1d: f32[201] = empty(201, dtype=float32)
     for i in range(201):
         array1d[i] =  f32((i - 100)/100)
     observed1d = sin(arcsin(array1d))
@@ -157,9 +166,9 @@ def elemental_reverse():
 
 def elemental_trig_identity_extra():
     i: i32
-    array1d: f32[201] = empty(201)
-    array_x: f32[201] = empty(201)
-    array_y: f32[201] = empty(201)
+    array1d: f32[201] = empty(201, dtype=float32)
+    array_x: f32[201] = empty(201, dtype=float32)
+    array_y: f32[201] = empty(201, dtype=float32)
     for i in range(201):
         array1d[i] =  f32((i - 100)/100)
     array_x = sin(arccos(array1d))
@@ -177,8 +186,8 @@ def elemental_degrees():
     eps_64: f64
     eps_32 = f32(1e-6)
     eps_64 = 1e-12
-    array1d: f32[200] = empty(200)
-    degrees1d: f32[200] = empty(200)
+    array1d: f32[200] = empty(200, dtype=float32)
+    degrees1d: f32[200] = empty(200, dtype=float32)
     for i in range(200):
         array1d[i] =  f32(i)
     degrees1d = sin(degrees(array1d))
@@ -186,8 +195,8 @@ def elemental_degrees():
     for i in range(200):
         assert abs(degrees1d[i] - sin(degrees(array1d[i]))) <= eps_32
 
-    array2d: f64[64, 64] = empty((64, 64))
-    degrees2d: f64[64, 64] = empty((64, 64))
+    array2d: f64[64, 64] = empty((64, 64), dtype=float64)
+    degrees2d: f64[64, 64] = empty((64, 64), dtype=float64)
     for i in range(64):
         for j in range(64):
             array2d[i,j]= float(i*64+j)
@@ -203,8 +212,8 @@ def elemental_radians():
     eps_64: f64
     eps_32 = f32(1e-6)
     eps_64 = 1e-12
-    array1d: f32[200] = empty(200)
-    radians1d: f32[200] = empty(200)
+    array1d: f32[200] = empty(200, dtype=float32)
+    radians1d: f32[200] = empty(200, dtype=float32)
     for i in range(200):
         array1d[i] =  f32(i)
     radians1d = cos(radians(array1d))
@@ -212,8 +221,8 @@ def elemental_radians():
     for i in range(200):
         assert abs(radians1d[i] - cos(radians(array1d[i]))) <= eps_32
 
-    array2d: f64[64, 64] = empty((64, 64))
-    radians2d: f64[64, 64] = empty((64, 64))
+    array2d: f64[64, 64] = empty((64, 64), dtype=float64)
+    radians2d: f64[64, 64] = empty((64, 64), dtype=float64)
     for i in range(64):
         for j in range(64):
             array2d[i,j]= float(i*64+j)
@@ -222,6 +231,35 @@ def elemental_radians():
         for j in range(64):
             assert abs(radians2d[i, j] - cos(radians(array2d[i, j]))) <= eps_64
 
+def elemental_hypot():
+    i: i32
+    j: i32
+    eps_32: f32
+    eps_32 = f32(1e-6)
+
+    hypot1d: f32[200] = empty(200, dtype=float32)
+    array1d1: f32[200] = empty(200, dtype=float32)
+    array1d2: f32[200] = empty(200, dtype=float32)
+    for i in range(200):
+        array1d1[i] =  f32(i)
+        array1d2[i] =  f32(i+10)
+
+    hypot1d = hypot(array1d1, array1d2)
+
+    for i in range(200):
+        assert abs(hypot1d[i] - hypot(array1d1[i], array1d2[i])) <= eps_32
+
+    array2d1: f64[64, 64] = empty((64, 64), dtype=float64)
+    array2d2: f64[64, 64] = empty((64, 64), dtype=float64)
+    hypot2d: f64[64, 64] = empty((64, 64), dtype=float64)
+    for i in range(64):
+        for j in range(64):
+            array2d1[i,j]= float(i * j)
+            array2d2[i,j]= float(64*i + j - 2048)
+
+    hypot2d = hypot(array2d1, array2d2)
+    verify_hypot_2d(array2d1, array2d2, hypot2d, 64, 64)
+
 
 elemental_arcsin()
 elemental_arccos()
@@ -231,3 +269,4 @@ def elemental_radians():
 elemental_trig_identity()
 elemental_reverse()
 elemental_trig_identity_extra()
+elemental_hypot()
diff --git a/integration_tests/elemental_07.py b/integration_tests/elemental_07.py
index 44dd996d00..b458eab989 100644
--- a/integration_tests/elemental_07.py
+++ b/integration_tests/elemental_07.py
@@ -1,5 +1,5 @@
-from ltypes import i32, f64, f32
-from numpy import empty, tanh, reshape, int32, float64, sin, log10
+from lpython import i32, f64, f32
+from numpy import empty, tanh, reshape, int32, float32, float64, sin
 
 def verify1d(array: f32[:], result: f32[:], size: i32):
     i: i32
@@ -24,8 +24,8 @@ def verifynd(array: f64[:, :, :, :], result: f64[:, :, :, :], size1: i32, size2:
 def elemental_tanh():
     i: i32; j: i32; k: i32; l: i32; size: i32;
 
-    array1d: f32[80] = empty(80)
-    tanh1d: f32[80] = empty(80)
+    array1d: f32[80] = empty(80, dtype=float32)
+    tanh1d: f32[80] = empty(80, dtype=float32)
 
     for i in range(80):
         array1d[i] = f32(f64(i) / 10.0)
@@ -33,15 +33,15 @@ def elemental_tanh():
     tanh1d = tanh(sin(array1d))
     verify1d(array1d, tanh1d, 10)
 
-    arraynd: f64[16, 8, 4, 2] = empty((16, 8, 4, 2))
-    tanhnd: f64[16, 8, 4, 2] = empty((16, 8, 4, 2))
+    arraynd: f64[16, 8, 4, 2] = empty((16, 8, 4, 2), dtype=float64)
+    tanhnd: f64[16, 8, 4, 2] = empty((16, 8, 4, 2), dtype=float64)
     size = 16 * 8 * 4 * 2
 
     for i in range(16):
         for j in range(8):
             for k in range(4):
                 for l in range(2):
-                    arraynd[i, j, k, l] = float(i + 2*j + 3*k + 4*k)/size
+                    arraynd[i, j, k, l] = float(i + 2*j + 3*k + 4*k)/float(size)
 
     tanhnd = (tanh(sin(arraynd)) + 2.0)/2.0
 
diff --git a/integration_tests/elemental_08.py b/integration_tests/elemental_08.py
index 76d74430c4..1903e93cd1 100644
--- a/integration_tests/elemental_08.py
+++ b/integration_tests/elemental_08.py
@@ -1,5 +1,5 @@
-from ltypes import i32, f64, f32
-from numpy import empty, reshape, int32, exp
+from lpython import i32, f64, f32
+from numpy import empty, reshape, int32, float32, float64, exp
 
 def verify1d(array: f32[:], result: f32[:], size: i32):
     i: i32
@@ -18,13 +18,13 @@ def verifynd(array: f64[:, :, :, :], result: f64[:, :, :, :], size1: i32, size2:
     result1d: f64[1024] = reshape(result, shape)
 
     for i in range(size):
-        assert abs(( exp(array1d[i]) + exp(array1d[i] / 3) ) / 2 - result1d[i]) <= eps
+        assert abs(( exp(array1d[i]) + exp(array1d[i] / 3.0) ) / float(2) - result1d[i]) <= eps
 
 def elemental_exp():
     i: i32; j: i32; k: i32; l: i32; size: i32;
 
-    array1d: f32[80] = empty(80)
-    exp1d: f32[80] = empty(80)
+    array1d: f32[80] = empty(80, dtype=float32)
+    exp1d: f32[80] = empty(80, dtype=float32)
 
     for i in range(80):
         array1d[i] = f32(f64(i) / 50.0)
@@ -32,15 +32,15 @@ def elemental_exp():
     exp1d = exp(array1d)
     verify1d(array1d, exp1d, 80)
 
-    arraynd: f64[16, 8, 4, 2] = empty((16, 8, 4, 2))
-    expnd: f64[16, 8, 4, 2] = empty((16, 8, 4, 2))
+    arraynd: f64[16, 8, 4, 2] = empty((16, 8, 4, 2), dtype=float64)
+    expnd: f64[16, 8, 4, 2] = empty((16, 8, 4, 2), dtype=float64)
     size = 32
 
     for i in range(16):
         for j in range(8):
             for k in range(4):
                 for l in range(2):
-                    arraynd[i, j, k, l] = float( f64(i) / 8.0 + f64(j) / 4.0 + f64(k) / 2.0 + f64(l) ) / size
+                    arraynd[i, j, k, l] = float( f64(i) / 8.0 + f64(j) / 4.0 + f64(k) / 2.0 + f64(l) ) / float(size)
 
     expnd = (exp(arraynd) + exp(arraynd / 3.0)) / 2.0
 
diff --git a/integration_tests/elemental_09.py b/integration_tests/elemental_09.py
index fb840234cb..c879d0e926 100644
--- a/integration_tests/elemental_09.py
+++ b/integration_tests/elemental_09.py
@@ -1,5 +1,5 @@
-from ltypes import i32, f64, f32
-from numpy import empty, arcsinh, arccosh, reshape, float64, sinh, sqrt, sin,  cosh
+from lpython import i32, f64, f32
+from numpy import empty, arcsinh, arccosh, reshape, int32, float32, float64, sinh, sqrt, sin
 
 def verify1d_arcsinh(array: f32[:], result: f32[:], size: i32):
     i: i32
@@ -27,8 +27,8 @@ def elemental_arcsinh():
     j: i32
     k: i32
 
-    array1d: f32[256] = empty(256)
-    arcsinh1d: f32[256] = empty(256)
+    array1d: f32[256] = empty(256, dtype=float32)
+    arcsinh1d: f32[256] = empty(256, dtype=float32)
 
     for i in range(256):
         array1d[i] = f32(i)
@@ -36,16 +36,16 @@ def elemental_arcsinh():
     arcsinh1d = arcsinh(arcsinh(array1d))
     verify1d_arcsinh(array1d, arcsinh1d, 256)
 
-    arraynd: f64[256, 64, 16] = empty((256, 64, 16))
-    arcsinhnd: f64[256, 64, 16] = empty((256, 64, 16))
+    arraynd: f64[256, 64, 4] = empty((256, 64, 4), dtype=float64)
+    arcsinhnd: f64[256, 64, 4] = empty((256, 64, 4), dtype=float64)
 
     for i in range(256):
         for j in range(64):
-            for k in range(16):
+            for k in range(4):
                 arraynd[i, j, k] = float(i + j + k)
 
     arcsinhnd = (1.0 + arcsinh(arraynd))
-    verifynd_arcsinh(arraynd, arcsinhnd, 256, 64, 16)
+    verifynd_arcsinh(arraynd, arcsinhnd, 256, 64, 4)
 
 def verify2d_arccosh(array: f64[:, :], result: f64[:, :], size1: i32, size2: i32):
     i: i32
@@ -77,8 +77,8 @@ def elemental_arccosh():
     k: i32
     l: i32
 
-    array2d: f64[256, 64] = empty((256, 64))
-    arccosh2d: f64[256, 64] = empty((256, 64))
+    array2d: f64[256, 64] = empty((256, 64), dtype=float64)
+    arccosh2d: f64[256, 64] = empty((256, 64), dtype=float64)
 
     for i in range(256):
         for j in range(64):
@@ -87,8 +87,8 @@ def elemental_arccosh():
     arccosh2d = arccosh(array2d)**2.0
     verify2d_arccosh(array2d, arccosh2d, 256, 64)
 
-    arraynd: f64[32, 16, 4, 2] = empty((32, 16, 4, 2))
-    arccosh_nd: f64[32, 16, 4, 2] = empty((32, 16, 4, 2))
+    arraynd: f64[32, 16, 4, 2] = empty((32, 16, 4, 2), dtype=float64)
+    arccosh_nd: f64[32, 16, 4, 2] = empty((32, 16, 4, 2), dtype=float64)
 
     for i in range(32):
         for j in range(16):
@@ -126,7 +126,7 @@ def elemental_trig_identity():
     identity3 =  2.0 * arcsinh(arraynd) - arccosh((arraynd**2.0) * 2.0 + 1.0)
 
 
-    newshape: i32[1] = empty(1, dtype=int)
+    newshape: i32[1] = empty(1, dtype=int32)
     newshape[0] = 400
 
     observed1d_1 = reshape(identity1, newshape)
diff --git a/integration_tests/elemental_10.py b/integration_tests/elemental_10.py
index ad742e2a13..3583d13806 100644
--- a/integration_tests/elemental_10.py
+++ b/integration_tests/elemental_10.py
@@ -1,4 +1,4 @@
-from ltypes import i32, i64, f64
+from lpython import i32, i64, f64
 from numpy import mod, int64, empty
 
 def test_numpy_mod():
diff --git a/integration_tests/elemental_11.py b/integration_tests/elemental_11.py
index 409150b2ac..ca6b111902 100644
--- a/integration_tests/elemental_11.py
+++ b/integration_tests/elemental_11.py
@@ -1,5 +1,5 @@
-from ltypes import i32, f64, f32
-from numpy import empty, arctanh, reshape, float64, sinh, sqrt, sin,  cosh
+from lpython import i32, f64, f32
+from numpy import empty, arctanh, reshape, int32, float32, float64, sinh, sqrt, sin,  cosh
 
 def verify1d_arctanh(array: f32[:], result: f32[:], size: i32):
     i: i32
@@ -27,8 +27,8 @@ def elemental_arctanh():
     j: i32
     k: i32
 
-    array1d: f32[999] = empty(999)
-    arctanh1d: f32[999] = empty(999)
+    array1d: f32[999] = empty(999, dtype=float32)
+    arctanh1d: f32[999] = empty(999, dtype=float32)
 
     for i in range(999):
         array1d[i] = f32(f64((-1)**i) * (float(i)/1000.0))
@@ -36,8 +36,8 @@ def elemental_arctanh():
     arctanh1d = arctanh(array1d)
     verify1d_arctanh(array1d, arctanh1d, 999)
 
-    arraynd: f64[100, 50, 10] = empty((100, 50, 10))
-    arctanhnd: f64[100, 50, 10] = empty((100, 50, 10))
+    arraynd: f64[100, 50, 10] = empty((100, 50, 10), dtype=float64)
+    arctanhnd: f64[100, 50, 10] = empty((100, 50, 10), dtype=float64)
 
     for i in range(100):
         for j in range(50):
@@ -70,7 +70,7 @@ def elemental_trig_identity():
     identity1 = 2.0 * arctanh(arraynd) - arctanh((2.0 * arraynd) / ( 1.0 + arraynd**2.0))
     identity2 =  cosh(arctanh(arraynd)) - (sqrt(1.0 - (arraynd**2.0)))**(-1.0)
 
-    newshape: i32[1] = empty(1, dtype=int)
+    newshape: i32[1] = empty(1, dtype=int32)
     newshape[0] = 400
 
     observed1d_1 = reshape(identity1, newshape)
diff --git a/integration_tests/elemental_12.py b/integration_tests/elemental_12.py
index 5bfbd1b3d7..d81baf7293 100644
--- a/integration_tests/elemental_12.py
+++ b/integration_tests/elemental_12.py
@@ -1,5 +1,5 @@
-from ltypes import i32, f32, f64
-from numpy import empty, floor, ceil, sqrt, reshape
+from lpython import i32, f32, f64
+from numpy import empty, floor, ceil, sqrt, reshape, int32, float32, float64
 
 def elemental_floor64():
     i: i32
@@ -9,9 +9,9 @@ def elemental_floor64():
     eps: f32
     eps = f32(1e-6)
 
-    arraynd: f64[32, 16, 8, 4] = empty((32, 16, 8, 4))
+    arraynd: f64[32, 16, 8, 4] = empty((32, 16, 8, 4), dtype=float64)
 
-    newshape: i32[1] = empty(1, dtype=int)
+    newshape: i32[1] = empty(1, dtype=int32)
     newshape[0] = 16384
 
     for i in range(32):
@@ -20,13 +20,13 @@ def elemental_floor64():
                 for l in range(4):
                     arraynd[i, j, k, l] = f64((-1)**l) * sqrt(float(i + j + k + l))
 
-    observed: f64[32, 16, 8, 4] = empty((32, 16, 8, 4))
+    observed: f64[32, 16, 8, 4] = empty((32, 16, 8, 4), dtype=float64)
     observed = floor(arraynd)
 
-    observed1d: f64[16384] = empty(16384)
+    observed1d: f64[16384] = empty(16384, dtype=float64)
     observed1d = reshape(observed, newshape)
 
-    array: f64[16384] = empty(16384)
+    array: f64[16384] = empty(16384, dtype=float64)
     array = reshape(arraynd, newshape)
 
     for i in range(16384):
@@ -41,7 +41,7 @@ def elemental_floor32():
     eps: f32
     eps = f32(1e-6)
 
-    arraynd: f32[32, 16, 8, 4] = empty((32, 16, 8, 4))
+    arraynd: f32[32, 16, 8, 4] = empty((32, 16, 8, 4), dtype=float32)
 
     for i in range(32):
         for j in range(16):
@@ -49,7 +49,7 @@ def elemental_floor32():
                 for l in range(4):
                     arraynd[i, j, k, l] = f32(f64((-1)**l) * sqrt(float(i + j + k + l)))
 
-    observed: f32[32, 16, 8, 4] = empty((32, 16, 8, 4))
+    observed: f32[32, 16, 8, 4] = empty((32, 16, 8, 4), dtype=float32)
     observed = floor(arraynd)
 
     for i in range(32):
@@ -67,9 +67,9 @@ def elemental_ceil64():
     eps: f32
     eps = f32(1e-6)
 
-    arraynd: f64[32, 16, 8, 4] = empty((32, 16, 8, 4))
+    arraynd: f64[32, 16, 8, 4] = empty((32, 16, 8, 4), dtype=float64)
 
-    newshape: i32[1] = empty(1, dtype=int)
+    newshape: i32[1] = empty(1, dtype=int32)
     newshape[0] = 16384
 
     for i in range(32):
@@ -78,13 +78,13 @@ def elemental_ceil64():
                 for l in range(4):
                     arraynd[i, j, k, l] = f64((-1)**l) * sqrt(float(i + j + k + l))
 
-    observed: f64[32, 16, 8, 4] = empty((32, 16, 8, 4))
+    observed: f64[32, 16, 8, 4] = empty((32, 16, 8, 4), dtype=float64)
     observed = ceil(arraynd)
 
-    observed1d: f64[16384] = empty(16384)
+    observed1d: f64[16384] = empty(16384, dtype=float64)
     observed1d = reshape(observed, newshape)
 
-    array: f64[16384] = empty(16384)
+    array: f64[16384] = empty(16384, dtype=float64)
     array = reshape(arraynd, newshape)
 
     for i in range(16384):
@@ -99,7 +99,7 @@ def elemental_ceil32():
     eps: f32
     eps = f32(1e-6)
 
-    arraynd: f32[32, 16, 8, 4] = empty((32, 16, 8, 4))
+    arraynd: f32[32, 16, 8, 4] = empty((32, 16, 8, 4), dtype=float32)
 
     for i in range(32):
         for j in range(16):
@@ -107,7 +107,7 @@ def elemental_ceil32():
                 for l in range(4):
                     arraynd[i, j, k, l] = f32(f64((-1)**l) * sqrt(float(i + j + k + l)))
 
-    observed: f32[32, 16, 8, 4] = empty((32, 16, 8, 4))
+    observed: f32[32, 16, 8, 4] = empty((32, 16, 8, 4), dtype=float32)
     observed = ceil(arraynd)
 
     for i in range(32):
diff --git a/integration_tests/elemental_13.py b/integration_tests/elemental_13.py
new file mode 100644
index 0000000000..d0e03ea985
--- /dev/null
+++ b/integration_tests/elemental_13.py
@@ -0,0 +1,124 @@
+from lpython import f32, f64
+from numpy import trunc, fix, empty, sqrt, reshape, int32, float32, float64
+
+
+def elemental_trunc64():
+    i: i32
+    j: i32
+    k: i32
+    l: i32
+    eps: f32
+    eps = f32(1e-6)
+
+    arraynd: f64[32, 16, 8, 4] = empty((32, 16, 8, 4), dtype=float64)
+
+    newshape: i32[1] = empty(1, dtype = int32)
+    newshape[0] = 16384
+
+    for i in range(32):
+        for j in range(16):
+            for k in range(8):
+                for l in range(4):
+                    arraynd[i, j, k, l] = f64((-1)**l) * sqrt(float(i + j + j + l))
+
+    observed: f64[32, 16, 8, 4] = empty((32, 16, 8, 4), dtype=float64)
+    observed = trunc(arraynd)
+
+    observed1d: f64[16384] = empty(16384, dtype=float64)
+    observed1d = reshape(observed, newshape)
+
+    array: f64[16384] = empty(16384, dtype=float64)
+    array = reshape(arraynd, newshape)
+
+    for i in range(16384):
+        assert f32(abs(trunc(array[i]) - observed1d[i])) <= eps
+
+
+def elemental_trunc32():
+    i: i32
+    j: i32
+    k: i32
+    l: i32
+    eps: f32
+    eps = f32(1e-6)
+
+    arraynd: f32[32, 16, 8, 4] = empty((32, 16, 8, 4), dtype=float32)
+
+    for i in range(32):
+        for j in range(16):
+            for k in range(8):
+                for l in range(4):
+                    arraynd[i, j, k, l] = f32(f64((-1)**l) * sqrt(float(i + j + j + l)))
+
+    observed: f32[32, 16, 8, 4] = empty((32, 16, 8, 4), dtype=float32)
+    observed = trunc(arraynd)
+
+    for i in range(32):
+        for j in range(16):
+            for k in range(8):
+                for l in range(4):
+                    assert abs(trunc(arraynd[i, j, k, l]) - observed[i, j, k, l]) <= eps
+
+
+def elemental_fix64():
+    i: i32
+    j: i32
+    k: i32
+    l: i32
+    eps: f32
+    eps = f32(1e-6)
+
+    arraynd: f64[32, 16, 8, 4] = empty((32, 16, 8, 4), dtype=float64)
+
+    newshape: i32[1] = empty(1, dtype = int32)
+    newshape[0] = 16384
+
+    for i in range(32):
+        for j in range(16):
+            for k in range(8):
+                for l in range(4):
+                    arraynd[i, j, k, l] = f64((-1)**l) * sqrt(float(i + j + j + l))
+
+    observed: f64[32, 16, 8, 4] = empty((32, 16, 8, 4), dtype=float64)
+    observed = fix(arraynd)
+
+    observed1d: f64[16384] = empty(16384, dtype=float64)
+    observed1d = reshape(observed, newshape)
+
+    array: f64[16384] = empty(16384, dtype=float64)
+    array = reshape(arraynd, newshape)
+
+    for i in range(16384):
+        assert f32(abs(fix(array[i]) - observed1d[i])) <= eps
+
+
+def elemental_fix32():
+    i: i32
+    j: i32
+    k: i32
+    l: i32
+    eps: f32
+    eps = f32(1e-6)
+
+    arraynd: f32[32, 16, 8, 4] = empty((32, 16, 8, 4), dtype=float32)
+
+    for i in range(32):
+        for j in range(16):
+            for k in range(8):
+                for l in range(4):
+                    arraynd[i, j, k, l] = f32(f64((-1)**l) * sqrt(float(i + j + j + l)))
+
+    observed: f32[32, 16, 8, 4] = empty((32, 16, 8, 4), dtype=float32)
+    observed = fix(arraynd)
+
+    for i in range(32):
+        for j in range(16):
+            for k in range(8):
+                for l in range(4):
+                    assert abs(fix(arraynd[i, j, k, l]) - observed[i, j, k, l]) <= eps
+
+
+elemental_trunc64()
+elemental_trunc32()
+elemental_fix64()
+elemental_fix32()
diff --git a/integration_tests/enum_01.py b/integration_tests/enum_01.py
index 1e2288e8c4..3c043c767e 100644
--- a/integration_tests/enum_01.py
+++ b/integration_tests/enum_01.py
@@ -1,4 +1,4 @@
-from ltypes import i32
+from lpython import i32
 from enum import Enum
 
 class Color(Enum):
diff --git a/integration_tests/enum_02.py b/integration_tests/enum_02.py
index 5dec80442f..c36210d2dd 100644
--- a/integration_tests/enum_02.py
+++ b/integration_tests/enum_02.py
@@ -1,5 +1,5 @@
 from enum import Enum
-from ltypes import i32, f64
+from lpython import i32, f64
 
 class MolecularMass(Enum):
     water: i32 = 18
diff --git a/integration_tests/enum_03.py b/integration_tests/enum_03.py
index 2b82c1f32a..b087ee7426 100644
--- a/integration_tests/enum_03.py
+++ b/integration_tests/enum_03.py
@@ -1,5 +1,5 @@
 from enum import Enum
-from ltypes import i32
+from lpython import i32
 
 class NegativeNumbers(Enum):
     a: i32 = -1
diff --git a/integration_tests/enum_04.py b/integration_tests/enum_04.py
index 1356fe3600..4b01f3fb79 100644
--- a/integration_tests/enum_04.py
+++ b/integration_tests/enum_04.py
@@ -1,4 +1,4 @@
-from ltypes import i32
+from lpython import i32
 from enum import Enum, auto
 
 class Color(Enum):
diff --git a/integration_tests/enum_05.py b/integration_tests/enum_05.py
index 1510aa2236..a3a424e7c9 100644
--- a/integration_tests/enum_05.py
+++ b/integration_tests/enum_05.py
@@ -1,4 +1,4 @@
-from ltypes import i32, ccall
+from lpython import i32, ccall
 from enum import Enum
 
 @ccall
diff --git a/integration_tests/enum_06.py b/integration_tests/enum_06.py
index 70111ab890..e50a0ca0a7 100644
--- a/integration_tests/enum_06.py
+++ b/integration_tests/enum_06.py
@@ -1,4 +1,4 @@
-from ltypes import i32, dataclass, f64
+from lpython import i32, dataclass, f64
 from numpy import empty
 from enum import Enum
 
diff --git a/integration_tests/enum_07.py b/integration_tests/enum_07.py
new file mode 100644
index 0000000000..204443130a
--- /dev/null
+++ b/integration_tests/enum_07.py
@@ -0,0 +1,7 @@
+from enum_07_module import Constants
+
+def check():
+    assert Constants.NUM_ELEMS.value == 4
+    assert Constants.NUM_CHECK.value == 51
+
+check()
diff --git a/integration_tests/enum_07_module.py b/integration_tests/enum_07_module.py
new file mode 100644
index 0000000000..a42956ec59
--- /dev/null
+++ b/integration_tests/enum_07_module.py
@@ -0,0 +1,6 @@
+from enum import Enum
+from lpython import i32
+
+class Constants(Enum):
+    NUM_ELEMS: i32 = 4
+    NUM_CHECK: i32 = 51
diff --git a/integration_tests/exit_03.py b/integration_tests/exit_03.py
new file mode 100644
index 0000000000..e7c5304c6b
--- /dev/null
+++ b/integration_tests/exit_03.py
@@ -0,0 +1,6 @@
+def main0():
+    print("Before")
+    quit(0)
+    print("After")
+
+main0()
diff --git a/integration_tests/exit_04.py b/integration_tests/exit_04.py
new file mode 100644
index 0000000000..cd27645e18
--- /dev/null
+++ b/integration_tests/exit_04.py
@@ -0,0 +1,6 @@
+def main0():
+    print("Before")
+    quit(1)
+    print("After")
+
+main0()
diff --git a/integration_tests/expr_01.py b/integration_tests/expr_01.py
index 4baa148c68..3bd2e6b139 100644
--- a/integration_tests/expr_01.py
+++ b/integration_tests/expr_01.py
@@ -1,4 +1,4 @@
-from ltypes import inline, i32
+from lpython import inline, i32
 
 @inline
 def add(x: i32, y: i32) -> i32:
diff --git a/integration_tests/expr_01u.py b/integration_tests/expr_01u.py
new file mode 100644
index 0000000000..1ae3bb52fc
--- /dev/null
+++ b/integration_tests/expr_01u.py
@@ -0,0 +1,41 @@
+from lpython import inline, u32, u64, i64, i32, u16
+
+@inline
+def uadd(x: u32, y: u32) -> u32:
+    return x + y
+
+@inline
+def uand_op(x: u32, y: u32) -> u32:
+    return x & y
+
+def main1():
+    x: u32
+    y: u32
+    z: u32
+    x = (u32(2)+u32(3))*u32(5)
+    y = uadd(x, u32(2))*u32(2)
+    assert x == u32(25)
+    assert y == u32(54)
+
+    z = uand_op(x, y)
+    assert z == u32(16)
+
+    # test issue 1867
+    cycles_count: u64
+    end_cycle: i64 = i64(100)
+    start_cycle: i64 = i64(4)
+    num_iters: i64 = i64(4)
+    cycles_count = u64((end_cycle - start_cycle) / num_iters)
+    assert cycles_count == u64(24)
+
+    # test issue 1949
+    x1: i32 = 20
+    y1: i32 = 10
+    assert u16(x1) > u16(y1)
+
+
+main1()
+
+# Not implemented yet in LPython:
+#if __name__ == "__main__":
+#    main()
diff --git a/integration_tests/expr_02.py b/integration_tests/expr_02.py
index af8540d83d..3b3679ba55 100644
--- a/integration_tests/expr_02.py
+++ b/integration_tests/expr_02.py
@@ -7,7 +7,6 @@ def main0():
     b = a or True
     a = a or b
 
-main0()
-# Not implemented yet in LPython:
-#if __name__ == "__main__":
-#    main()
+
+if __name__ == "__main__":
+    main0()
diff --git a/integration_tests/expr_02u.py b/integration_tests/expr_02u.py
new file mode 100644
index 0000000000..962c449082
--- /dev/null
+++ b/integration_tests/expr_02u.py
@@ -0,0 +1,78 @@
+from lpython import u8, u16, u32, u64
+
+def add_u8(x: u8, y: u8) -> u8:
+    return x + y
+
+def add_u16(x: u16, y: u16) -> u16:
+    return x + y
+
+def add_u32(x: u32, y: u32) -> u32:
+    return x + y
+
+def add_u64(x: u64, y: u64) -> u64:
+    return x + y
+
+def and_u8(x: u8, y: u8) -> u8:
+    return x & y
+
+def and_u16(x: u16, y: u16) -> u16:
+    return x & y
+
+def and_u32(x: u32, y: u32) -> u32:
+    return x & y
+
+def and_u64(x: u64, y: u64) -> u64:
+    return x & y
+
+def main_u8():
+    x: u8
+    y: u8
+    z: u8
+    x = (u8(2)+u8(3))*u8(5)
+    y = add_u8(x, u8(2))*u8(2)
+    z = and_u8(x, y)
+    assert x == u8(25)
+    assert y == u8(54)
+    assert z == u8(16)
+
+def main_u16():
+    x: u16
+    y: u16
+    z: u16
+    x = (u16(2)+u16(3))*u16(5)
+    y = add_u16(x, u16(2))*u16(2)
+    z = and_u16(x, y)
+    assert x == u16(25)
+    assert y == u16(54)
+    assert z == u16(16)
+
+def main_u32():
+    x: u32
+    y: u32
+    z: u32
+    x = (u32(2)+u32(3))*u32(5)
+    y = add_u32(x, u32(2))*u32(2)
+    z = and_u32(x, y)
+    assert x == u32(25)
+    assert y == u32(54)
+    assert z == u32(16)
+
+def main_u64():
+    x: u64
+    y: u64
+    z: u64
+    x = (u64(2)+u64(3))*u64(5)
+    y = add_u64(x, u64(2))*u64(2)
+    z = and_u64(x, y)
+    assert x == u64(25)
+    assert y == u64(54)
+    assert z == u64(16)
+
+main_u8()
+main_u16()
+main_u32()
+main_u64()
+
+# Not implemented yet in LPython:
+#if __name__ == "__main__":
+#    main()
diff --git a/integration_tests/expr_03.py b/integration_tests/expr_03.py
index 8b673cd4ff..d22e93e9f2 100644
--- a/integration_tests/expr_03.py
+++ b/integration_tests/expr_03.py
@@ -1,3 +1,5 @@
+from lpython import i32
+
 def main0():
     x: i32
     x = 5
diff --git a/integration_tests/expr_03u.py b/integration_tests/expr_03u.py
new file mode 100644
index 0000000000..7ab7b16de3
--- /dev/null
+++ b/integration_tests/expr_03u.py
@@ -0,0 +1,159 @@
+from lpython import u8, u16, u32, u64, i8, i32, TypeVar
+from numpy import (empty, uint8, uint16, uint32, uint64, int8, int16, int32,
+        int64, size)
+
+n = TypeVar("n")
+def add_i8(n: i32, x: i8[n], y: i8[n]) -> i8[n]:
+    return x + y
+
+def add_i8_loop(n: i32, x: i8[n], y: i8[n]) -> i8[n]:
+    z: i8[n] = empty(n, dtype=int8)
+    i: i32
+    for i in range(n):
+        z[i] = x[i] + y[i]
+    return z
+
+def add_u8(n: i32, x: u8[n], y: u8[n]) -> u8[n]:
+    return x + y
+
+def add_u8_loop(n: i32, x: u8[n], y: u8[n]) -> u8[n]:
+    z: u8[n] = empty(n, dtype=uint8)
+    i: i32
+    for i in range(n):
+        z[i] = x[i] + y[i]
+    return z
+
+def add_u16(n: i32, x: u16[n], y: u16[n]) -> u16[n]:
+    return x + y
+
+def add_u16_loop(n: i32, x: u16[n], y: u16[n]) -> u16[n]:
+    z: u16[n] = empty(n, dtype=uint16)
+    i: i32
+    for i in range(n):
+        z[i] = x[i] + y[i]
+    return z
+
+def add_u32(n: i32, x: u32[n], y: u32[n]) -> u32[n]:
+    return x + y
+
+def add_u32_loop(n: i32, x: u32[n], y: u32[n]) -> u32[n]:
+    z: u32[n] = empty(n, dtype=uint32)
+    i: i32
+    for i in range(n):
+        z[i] = x[i] + y[i]
+    return z
+
+def add_u64(n: i32, x: u64[n], y: u64[n]) -> u64[n]:
+    return x + y
+
+def add_u64_loop(n: i32, x: u64[n], y: u64[n]) -> u64[n]:
+    z: u64[n] = empty(n, dtype=uint64)
+    i: i32
+    for i in range(n):
+        z[i] = x[i] + y[i]
+    return z
+
+def main_i8():
+    x: i8[3] = empty(3, dtype=int8)
+    y: i8[3] = empty(3, dtype=int8)
+    z: i8[3] = empty(3, dtype=int8)
+    x[0] = i8(1)
+    x[1] = i8(2)
+    x[2] = i8(3)
+    y[0] = i8(2)
+    y[1] = i8(3)
+    y[2] = i8(4)
+    z = add_i8(size(x), x, y)
+    assert z[0] == i8(3)
+    assert z[1] == i8(5)
+    assert z[2] == i8(7)
+    z = add_i8_loop(size(x), x, y)
+    assert z[0] == i8(3)
+    assert z[1] == i8(5)
+    assert z[2] == i8(7)
+
+def main_u8():
+    x: u8[3] = empty(3, dtype=uint8)
+    y: u8[3] = empty(3, dtype=uint8)
+    z: u8[3] = empty(3, dtype=uint8)
+    x[0] = u8(1)
+    x[1] = u8(2)
+    x[2] = u8(3)
+    y[0] = u8(2)
+    y[1] = u8(3)
+    y[2] = u8(4)
+    z = add_u8(size(x), x, y)
+    assert z[0] == u8(3)
+    assert z[1] == u8(5)
+    assert z[2] == u8(7)
+    z = add_u8_loop(size(x), x, y)
+    assert z[0] == u8(3)
+    assert z[1] == u8(5)
+    assert z[2] == u8(7)
+
+def main_u16():
+    x: u16[3] = empty(3, dtype=uint16)
+    y: u16[3] = empty(3, dtype=uint16)
+    z: u16[3] = empty(3, dtype=uint16)
+    x[0] = u16(1)
+    x[1] = u16(2)
+    x[2] = u16(3)
+    y[0] = u16(2)
+    y[1] = u16(3)
+    y[2] = u16(4)
+    z = add_u16(size(x), x, y)
+    assert z[0] == u16(3)
+    assert z[1] == u16(5)
+    assert z[2] == u16(7)
+    z = add_u16_loop(size(x), x, y)
+    assert z[0] == u16(3)
+    assert z[1] == u16(5)
+    assert z[2] == u16(7)
+
+def main_u32():
+    x: u32[3] = empty(3, dtype=uint32)
+    y: u32[3] = empty(3, dtype=uint32)
+    z: u32[3] = empty(3, dtype=uint32)
+    x[0] = u32(1)
+    x[1] = u32(2)
+    x[2] = u32(3)
+    y[0] = u32(2)
+    y[1] = u32(3)
+    y[2] = u32(4)
+    z = add_u32(size(x), x, y)
+    assert z[0] == u32(3)
+    assert z[1] == u32(5)
+    assert z[2] == u32(7)
+    z = add_u32_loop(size(x), x, y)
+    assert z[0] == u32(3)
+    assert z[1] == u32(5)
+    assert z[2] == u32(7)
+
+def main_u64():
+    x: u64[3] = empty(3, dtype=uint64)
+    y: u64[3] = empty(3, dtype=uint64)
+    z: u64[3] = empty(3, dtype=uint64)
+    x[0] = u64(1)
+    x[1] = u64(2)
+    x[2] = u64(3)
+    y[0] = u64(2)
+    y[1] = u64(3)
+    y[2] = u64(4)
+    z = add_u64(size(x), x, y)
+    assert z[0] == u64(3)
+    assert z[1] == u64(5)
+    assert z[2] == u64(7)
+    z = add_u64_loop(size(x), x, y)
+    assert z[0] == u64(3)
+    assert z[1] == u64(5)
+    assert z[2] == u64(7)
+
+main_i8()
+main_u8()
+main_u16()
+main_u32()
+main_u64()
+
+# Not implemented yet in LPython:
+#if __name__ == "__main__":
+#    main()
diff --git a/integration_tests/expr_04.py b/integration_tests/expr_04.py
index 75a16e37f0..ad46256039 100644
--- a/integration_tests/expr_04.py
+++ b/integration_tests/expr_04.py
@@ -1,4 +1,4 @@
-from ltypes import i32, f32, f64, i64
+from lpython import i32, f32, f64, i64
 def main0():
     i: i32
     sum: i32
diff --git a/integration_tests/expr_04u.py b/integration_tests/expr_04u.py
new file mode 100644
index 0000000000..5c4a22bb8d
--- /dev/null
+++ b/integration_tests/expr_04u.py
@@ -0,0 +1,12 @@
+from lpython import u8, u16, u32, u64
+
+FLAG1 : u8 = u8(1) << u8(4)
+FLAG2 : u16 = u16(1) << u16(4)
+FLAG3: u32 = u32(1) << u32(4)
+FLAG4: u64 = u64(1) << u64(4)
+
+print(FLAG1, FLAG2, FLAG3, FLAG4)
+assert FLAG1 == u8(16)
+assert FLAG2 == u16(16)
+assert FLAG3 == u32(16)
+assert FLAG4 == u64(16)
diff --git a/integration_tests/expr_05.py b/integration_tests/expr_05.py
index 4bb65cf174..08748469b7 100644
--- a/integration_tests/expr_05.py
+++ b/integration_tests/expr_05.py
@@ -1,4 +1,4 @@
-from ltypes import i32, i64
+from lpython import i32, i64, f64, u16
 
 def test_multiply(a: i32, b: i32) -> i32:
     return a*b
@@ -11,6 +11,8 @@ def main0():
     b: i32
     a = 10
     b = -5
+    eps: f64
+    eps = 1e-12
     assert test_multiply(a, b) == -50
     i: i64
     i = i64(1)
@@ -69,6 +71,19 @@ def main0():
     assert a == 0
     b **= 4
     assert b == 256
+    # Test Issue 1562
+    assert ((-8)%3) == 1
+    assert ((8)%-3) == -1
+    assert (-8%-3) == -2
+    assert abs((11.0%-3.0) - (-1.0)) < eps
+    assert abs((-11.0%3.0) - (1.0)) < eps
 
+    # Test issue 1869 and 1870
+    a1: u16 = u16(10)
+    b1: u16 = u16(3)
+    c1: u16 = a1 % b1
+    assert c1 == u16(1)
+    c1 = a1 // b1
+    assert c1 == u16(3)
 
 main0()
diff --git a/integration_tests/expr_06.py b/integration_tests/expr_06.py
index 3df110803c..566530ddb1 100644
--- a/integration_tests/expr_06.py
+++ b/integration_tests/expr_06.py
@@ -1,11 +1,11 @@
-from ltypes import i32, f32, f64
-from numpy import empty, cos, sin
+from lpython import i32, f32, f64
+from numpy import empty, cos, sin, int32
 
 def main0():
     x: i32 = 25
     y: i32 = (2 + 3) * 5
     z: f32 = (f32(2.0) + f32(3)) * f32(5.0)
-    xa: i32[3] = empty(3)
+    xa: i32[3] = empty(3, dtype=int32)
     assert x == 25
     assert y == 25
     assert z == f32(25.0)
diff --git a/integration_tests/expr_07.py b/integration_tests/expr_07.py
index 5e78dbf46d..788fc41b58 100644
--- a/integration_tests/expr_07.py
+++ b/integration_tests/expr_07.py
@@ -1,4 +1,4 @@
-from ltypes import i32
+from lpython import i32
 
 def g(x: i32):
     print(x)
diff --git a/integration_tests/expr_08.py b/integration_tests/expr_08.py
index 1956c68c8c..0589fcee66 100644
--- a/integration_tests/expr_08.py
+++ b/integration_tests/expr_08.py
@@ -1,4 +1,4 @@
-from ltypes import pointer, i16, Pointer
+from lpython import pointer, i16, Pointer
 
 # Testing Global Pointers
 x: Pointer[i16[:]]
diff --git a/integration_tests/expr_09.py b/integration_tests/expr_09.py
index 4fb021173f..a64e5eb35f 100644
--- a/integration_tests/expr_09.py
+++ b/integration_tests/expr_09.py
@@ -1,4 +1,4 @@
-from ltypes import i32, f64, f32
+from lpython import i32, f64, f32
 
 def main0():
     i1: i32 = 10
diff --git a/integration_tests/expr_10.py b/integration_tests/expr_10.py
index 24da1000ee..28a715f3e0 100644
--- a/integration_tests/expr_10.py
+++ b/integration_tests/expr_10.py
@@ -1,4 +1,4 @@
-from ltypes import i32
+from lpython import i32
 
 def g() -> i32:
     return 5
diff --git a/integration_tests/expr_11.py b/integration_tests/expr_11.py
index b72fd1b982..1e27e821b5 100644
--- a/integration_tests/expr_11.py
+++ b/integration_tests/expr_11.py
@@ -1,4 +1,4 @@
-from ltypes import i32
+from lpython import i32
 
 def f():
     i: i32
diff --git a/integration_tests/expr_12.py b/integration_tests/expr_12.py
index 4933a04481..2707f0122f 100644
--- a/integration_tests/expr_12.py
+++ b/integration_tests/expr_12.py
@@ -1,4 +1,4 @@
-from ltypes import pointer, i16, Pointer
+from lpython import pointer, i16, Pointer
 
 def g(x: Pointer[i16[:]], y: i16[:]):
     y[0] = i16(1)
diff --git a/integration_tests/expr_13.py b/integration_tests/expr_13.py
index 93ed7ba446..e9c386f12c 100644
--- a/integration_tests/expr_13.py
+++ b/integration_tests/expr_13.py
@@ -1,4 +1,4 @@
-from ltypes import CPtr, empty_c_void_p, i32, Pointer, ccall, Const
+from lpython import CPtr, empty_c_void_p, i32, Pointer, ccall, Const
 
 @ccall
 def deref_array(x: Pointer[CPtr], idx: i32) -> CPtr:
diff --git a/integration_tests/expr_14.py b/integration_tests/expr_14.py
index 7cbd452bcd..5b22fee92c 100644
--- a/integration_tests/expr_14.py
+++ b/integration_tests/expr_14.py
@@ -1,4 +1,4 @@
-from ltypes import i32, i64, f32, f64, c32, c64
+from lpython import i32, i64, f32, f64, c32, c64
 
 def test_divide():
     a1: i32; a2: i32; a3: f64;
diff --git a/integration_tests/expr_15.py b/integration_tests/expr_15.py
new file mode 100644
index 0000000000..2cf6dfa608
--- /dev/null
+++ b/integration_tests/expr_15.py
@@ -0,0 +1,33 @@
+from lpython import i8, i16
+
+def test_issue_1586():
+    x4: i16
+    y4: i16
+    y4 = i16(10)
+    x4 = i16(12345)
+    assert x4//y4 == i16(1234)
+
+    a4: i8
+    b4: i8
+    a4 = i8(10)
+    b4 = i8(123)
+    assert b4//a4 == i8(12)
+
+def test_issue_1619():
+    a: i16
+    b: i16
+    a = i16(10)
+    b = i16(12345)
+    assert b%a == i16(5)
+
+    c: i8
+    d: i8
+    c = i8(10)
+    d = i8(123)
+    assert d%c == i8(3)
+
+def check():
+    test_issue_1586()
+    test_issue_1619()
+
+check()
diff --git a/integration_tests/expr_16.py b/integration_tests/expr_16.py
new file mode 100644
index 0000000000..9a831d3765
--- /dev/null
+++ b/integration_tests/expr_16.py
@@ -0,0 +1,22 @@
+from lpython import f64, Pointer, c_p_pointer, ccall, i32, CPtr, sizeof
+from numpy import array
+
+@ccall
+def _lfortran_malloc(size: i32) -> CPtr:
+    pass
+
+def foo(xs_ptr: CPtr, length: i32) -> None:
+    xs: Pointer[f64[:]] = c_p_pointer(xs_ptr, f64[:], array([length]))
+    xs[0] = 3.0
+    xs[1] = 4.0
+
+def main() -> None:
+    length: i32 = 32
+    xs_ptr: CPtr = _lfortran_malloc(length * i32(sizeof(f64)))
+    foo(xs_ptr, length)
+    t: Pointer[f64[:]] = c_p_pointer(xs_ptr, f64[:], array([32]))
+    print(t[0], t[1])
+    assert t[0] == 3.0
+    assert t[1] == 4.0
+
+main()
diff --git a/integration_tests/expr_17.py b/integration_tests/expr_17.py
new file mode 100644
index 0000000000..eea47d9459
--- /dev/null
+++ b/integration_tests/expr_17.py
@@ -0,0 +1,16 @@
+from lpython import i32, f64
+
+def main0():
+    a: i32 = 4
+    b: i32 = 3
+    c: i32 = 12
+    assert a * b == c, a * b
+
+    d: f64 = 0.4
+    e: f64 = 2.5
+    f: f64 = 1.0
+    assert abs((d * e) - f) <= 1e-6, abs((d * e) - f)
+
+    assert a == b + 1, "Failed: a == b + 1"
+
+main0()
diff --git a/integration_tests/expr_18.py b/integration_tests/expr_18.py
new file mode 100644
index 0000000000..edfb17c327
--- /dev/null
+++ b/integration_tests/expr_18.py
@@ -0,0 +1,9 @@
+from lpython import i32, f64
+
+def main0():
+    a: i32 = 4
+    b: i32 = 3
+    c: i32 = 12
+    assert a * b != c, "Error: 3 * 4 equals 12"
+
+main0()
diff --git a/integration_tests/expr_19.py b/integration_tests/expr_19.py
new file mode 100644
index 0000000000..6fe7a95998
--- /dev/null
+++ b/integration_tests/expr_19.py
@@ -0,0 +1,7 @@
+from lpython import (f64,)
+
+result : f64 = f64(14)
+divisor : f64 = f64(4)
+result /= divisor
+
+assert abs(result - f64(3.5)) < 1e-12
diff --git a/integration_tests/expr_20.py b/integration_tests/expr_20.py
new file mode 100644
index 0000000000..f12636e845
--- /dev/null
+++ b/integration_tests/expr_20.py
@@ -0,0 +1,16 @@
+from lpython import i16, i32
+
+def f():
+    i: i32 = 5
+    print(i16(i % 1023))
+
+def u16(x: i16) -> i32:
+    if x >= i16(0):
+        return i32(x)
+    else:
+        return i32(x) + 65536
+
+f()
+print(u16(i16(10)), u16(i16(-10)))
+assert(u16(i16(10)) == 10)
+assert(u16(i16(-10)) == 65526)
diff --git a/integration_tests/expr_21.py b/integration_tests/expr_21.py
new file mode 100644
index 0000000000..e07693c580
--- /dev/null
+++ b/integration_tests/expr_21.py
@@ -0,0 +1,21 @@
+from lpython import i8, i16, i32, i64
+
+def main0():
+    x: i8
+    y: i16
+    z: i32
+    w: i64
+
+    x = i8(97)
+    y = i16(47)
+    z = 56
+    w = i64(67)
+
+    print(chr(x), chr(y), chr(z), chr(w))
+
+    assert chr(x) == 'a'
+    assert chr(y) == '/'
+    assert chr(z) == '8'
+    assert chr(w) == 'C'
+
+main0()
diff --git a/integration_tests/expr_22.py b/integration_tests/expr_22.py
new file mode 100644
index 0000000000..5b61bebc35
--- /dev/null
+++ b/integration_tests/expr_22.py
@@ -0,0 +1,10 @@
+from lpython import f64
+
+# test issue 1671
+def test_fast_fma() -> f64:
+    a : f64 = 5.00
+    a = a + a * 10.00
+    assert abs(a - 55.00) < 1e-12
+    return a
+
+print(test_fast_fma())
diff --git a/integration_tests/expr_23.py b/integration_tests/expr_23.py
new file mode 100644
index 0000000000..5aa5244d8a
--- /dev/null
+++ b/integration_tests/expr_23.py
@@ -0,0 +1,23 @@
+from lpython import f32, i32
+
+def flip_sign_check():
+    x: f32
+    eps: f32 = f32(1e-5)
+
+    number: i32 = 123
+    x = f32(5.5)
+
+    if (number%2 == 1):
+        x = -x
+
+    assert abs(x - f32(-5.5)) < eps
+
+    number = 124
+    x = f32(5.5)
+
+    if (number%2 == 1):
+        x = -x
+
+    assert abs(x - f32(5.5)) < eps
+
+flip_sign_check()
diff --git a/integration_tests/expr_24.py b/integration_tests/expr_24.py
new file mode 100644
index 0000000000..a616e2cc33
--- /dev/null
+++ b/integration_tests/expr_24.py
@@ -0,0 +1,77 @@
+from lpython import i32, f64, TypeVar, Const
+from numpy import empty, int32
+
+h = TypeVar("h")
+w = TypeVar("w")
+
+def show_img(w: i32, h: i32, A: i32[h, w]):
+    print(w, h)
+    print(A[0, 0])
+    print(A[h - 1, w - 1])
+
+    assert w == 600
+    assert h == 450
+    assert A[0, 0] == 254
+    assert A[h - 1, w - 1] == 254
+
+def show_img_color(w: i32, h: i32, A: i32[h, w, 4]):
+    print(w, h)
+    print(A[0, 0, 0])
+    print(A[h - 1, w - 1, 3])
+
+    assert w == 600
+    assert h == 450
+    assert A[0, 0, 0] == 214
+    assert A[h - 1, w - 1, 3] == 255
+
+def main0():
+    Nx: Const[i32] = 600; Ny: Const[i32] = 450; Nz: Const[i32] = 4; n_max: i32 = 255
+
+    xcenter: f64 = f64(-0.5); ycenter: f64 = f64(0.0)
+    width: f64 = f64(4); height: f64 = f64(3)
+    dx_di: f64 = width/f64(Nx); dy_dj: f64 = -height/f64(Ny)
+    x_offset: f64 = xcenter - f64(Nx+1)*dx_di/f64(2.0)
+    y_offset: f64 = ycenter - f64(Ny+1)*dy_dj/f64(2.0)
+
+    i: i32; j: i32; n: i32; idx: i32
+    x: f64; y: f64; x_0: f64; y_0: f64; x_sqr: f64; y_sqr: f64
+
+    image: i32[450, 600] = empty([Ny, Nx], dtype=int32)
+    image_color: i32[450, 600, 4] = empty([Ny, Nx, Nz], dtype=int32)
+    palette: i32[4, 3] = empty([4, 3], dtype=int32)
+
+    for j in range(Ny):
+        y_0 = y_offset + dy_dj * f64(j + 1)
+        for i in range(Nx):
+            x_0 = x_offset + dx_di * f64(i + 1)
+            x = 0.0; y = 0.0; n = 0
+            while(True):
+                x_sqr = x ** 2.0
+                y_sqr = y ** 2.0
+                if (x_sqr + y_sqr > f64(4) or n == n_max):
+                    image[j,i] = 255 - n
+                    break
+                y = y_0 + f64(2.0) * x * y
+                x = x_0 + x_sqr - y_sqr
+                n = n + 1
+
+    palette[0,0] =   0; palette[0,1] = 135; palette[0,2] =  68
+    palette[1,0] =   0; palette[1,1] =  87; palette[1,2] = 231
+    palette[2,0] = 214; palette[2,1] =  45; palette[2,2] =  32
+    palette[3,0] = 255; palette[3,1] = 167; palette[3,2] =   0
+
+    for j in range(Ny):
+        for i in range(Nx):
+            idx = image[j,i] - i32(image[j,i]/4)*4
+            image_color[j,i,0] = palette[idx,0] # Red
+            image_color[j,i,1] = palette[idx,1] # Green
+            image_color[j,i,2] = palette[idx,2] # Blue
+            image_color[j,i,3] = 255            # Alpha
+
+    print("The Mandelbrot image in color:")
+    show_img_color(Nx, Ny, image_color)
+    print("The Mandelbrot image in grayscale:")
+    show_img(Nx, Ny, image)
+    print("Done.")
+
+main0()
diff --git a/integration_tests/float_01.py b/integration_tests/float_01.py
index fe5152d670..2826e44ea1 100644
--- a/integration_tests/float_01.py
+++ b/integration_tests/float_01.py
@@ -1,4 +1,4 @@
-from ltypes import f64
+from lpython import f64
 
 def sqr(x: f64) -> f64:
     return x * x
diff --git a/integration_tests/func_01.py b/integration_tests/func_01.py
new file mode 100644
index 0000000000..0230bfcac2
--- /dev/null
+++ b/integration_tests/func_01.py
@@ -0,0 +1,14 @@
+from lpython import i32, InOut
+
+def reserve(a: InOut[list[i32]], b: i32):
+    a.append(b)
+    print("user defined reserve() called")
+
+def main0():
+    x: list[i32] = []
+    reserve(x, 5)
+
+    assert len(x) == 1
+    assert x[0] == 5
+
+main0()
diff --git a/integration_tests/func_02.py b/integration_tests/func_02.py
new file mode 100644
index 0000000000..ea4fdf5b2b
--- /dev/null
+++ b/integration_tests/func_02.py
@@ -0,0 +1,13 @@
+from lpython import S, Out
+from sympy import pi
+
+def func(r: Out[S]) -> None:
+    r = pi
+
+def test_func():
+    z: S
+    func(z)
+    print(z)
+    assert z == pi
+
+test_func()
diff --git a/integration_tests/func_dep_03.py b/integration_tests/func_dep_03.py
index d65a81c487..1e39f62c6a 100644
--- a/integration_tests/func_dep_03.py
+++ b/integration_tests/func_dep_03.py
@@ -1,4 +1,4 @@
-from ltypes import i32, i64
+from lpython import i32, i64
 
 def casti32(x: i64) -> i32:
     y: i32
diff --git a/integration_tests/func_dep_04.py b/integration_tests/func_dep_04.py
index 5319ef08d2..cb464eb716 100644
--- a/integration_tests/func_dep_04.py
+++ b/integration_tests/func_dep_04.py
@@ -1,5 +1,5 @@
 from func_dep_04_module import manhattan_distance
-from ltypes import i32
+from lpython import i32
 
 def test_manhattan_distance():
     a: i32; b: i32; c: i32; d: i32;
diff --git a/integration_tests/func_dep_04_module.py b/integration_tests/func_dep_04_module.py
index ec826ab60e..570d432088 100644
--- a/integration_tests/func_dep_04_module.py
+++ b/integration_tests/func_dep_04_module.py
@@ -1,4 +1,4 @@
-from ltypes import i32
+from lpython import i32
 
 def manhattan_distance(x1: i32, y1: i32, x2: i32, y2: i32) -> i32:
     return abs(x1 - x2) + abs(y1 - y2)
diff --git a/integration_tests/func_inline_01.py b/integration_tests/func_inline_01.py
index 856a04ab4a..26173b52bd 100644
--- a/integration_tests/func_inline_01.py
+++ b/integration_tests/func_inline_01.py
@@ -1,4 +1,4 @@
-from ltypes import i64
+from lpython import i64
 
 def fib(n: i64) -> i64:
     if n < i64(2):
diff --git a/integration_tests/func_inline_02.py b/integration_tests/func_inline_02.py
index f093a42c7b..89331d37a7 100644
--- a/integration_tests/func_inline_02.py
+++ b/integration_tests/func_inline_02.py
@@ -1,4 +1,4 @@
-from ltypes import i32, Const, inline
+from lpython import i32, Const, inline
 
 @inline
 def f(x: i32) -> i32:
diff --git a/integration_tests/func_internal_def_01.py b/integration_tests/func_internal_def_01.py
new file mode 100644
index 0000000000..1c0c1d11e5
--- /dev/null
+++ b/integration_tests/func_internal_def_01.py
@@ -0,0 +1,11 @@
+def main():
+    x: i32
+    x = (2+3)*5
+    print(x)
+
+    def bar():
+        assert x == 25
+        
+    bar()
+
+main()
diff --git a/integration_tests/func_static_01.py b/integration_tests/func_static_01.py
index 0b0fbda394..c87377f36e 100644
--- a/integration_tests/func_static_01.py
+++ b/integration_tests/func_static_01.py
@@ -1,4 +1,4 @@
-from ltypes import i64, static
+from lpython import i64, static
 
 @static
 def fib(n: i64) -> i64:
diff --git a/integration_tests/func_static_02.py b/integration_tests/func_static_02.py
index 74f802a126..85f8b0151d 100644
--- a/integration_tests/func_static_02.py
+++ b/integration_tests/func_static_02.py
@@ -1,4 +1,4 @@
-from ltypes import i64, static, inline
+from lpython import i64, static, inline
 
 @static
 @inline
diff --git a/integration_tests/generics_01.py b/integration_tests/generics_01.py
index fd1603cf6a..c3f1357ade 100644
--- a/integration_tests/generics_01.py
+++ b/integration_tests/generics_01.py
@@ -1,4 +1,4 @@
-from ltypes import TypeVar, restriction, i32
+from lpython import TypeVar, restriction, i32
 
 T = TypeVar('T')
 
diff --git a/integration_tests/generics_02.py b/integration_tests/generics_02.py
index 5e36813211..2507636102 100644
--- a/integration_tests/generics_02.py
+++ b/integration_tests/generics_02.py
@@ -1,8 +1,8 @@
-from ltypes import TypeVar
+from lpython import TypeVar, InOut, i32
 
 T = TypeVar('T')
 
-def swap(x: T, y: T):
+def swap(x: InOut[T], y: InOut[T]):
     temp: T
     temp = x
     x = y
@@ -10,4 +10,20 @@ def swap(x: T, y: T):
     print(x)
     print(y)
 
-swap(1,2)
\ No newline at end of file
+def main0():
+    a: i32 = 5
+    b: i32 = 10
+
+    # Invalid test case for CPython:
+    # CPython passes values by copy of object reference
+    # and hence does not support swapping variables
+    # passed by arguments.
+    # Therefore do not add asserts to this file
+
+    print(a, b)
+
+    swap(a, b)
+
+    print(a, b)
+
+main0()
diff --git a/integration_tests/generics_array_01.py b/integration_tests/generics_array_01.py
index 4c733b7c4a..3ae77260ee 100644
--- a/integration_tests/generics_array_01.py
+++ b/integration_tests/generics_array_01.py
@@ -1,5 +1,5 @@
-from ltypes import TypeVar, i32
-from numpy import empty
+from lpython import TypeVar, i32
+from numpy import empty, int32
 
 T = TypeVar('T')
 
@@ -9,9 +9,9 @@ def f(lst: T[:], i: T) -> T:
 
 def use_array():
     array: i32[1]
-    array = empty(1)
+    array = empty(1, dtype=int32)
     x: i32
     x = 69
     print(f(array, x))
 
-use_array()
\ No newline at end of file
+use_array()
diff --git a/integration_tests/generics_array_02.py b/integration_tests/generics_array_02.py
index 94b23085ca..2315582ca0 100644
--- a/integration_tests/generics_array_02.py
+++ b/integration_tests/generics_array_02.py
@@ -1,7 +1,6 @@
-from ltypes import TypeVar, restriction, i32, f32
-from numpy import empty
+from lpython import TypeVar, restriction, i32, f32
+from numpy import empty, int32, float32
 
-n: i32
 n = TypeVar("n")
 T = TypeVar('T')
 
@@ -17,21 +16,21 @@ def add_float(x: f32, y: f32) -> f32:
 
 def g(n: i32, a: T[n], b: T[n], **kwargs):
   r: T[n]
-  r = empty(n)
+  r = empty(n, dtype=object)
   i: i32
   for i in range(n):
     r[i] = add(a[i], b[i])
   print(r[0])
 
 def main():
-    a_int: i32[1] = empty(1)
+    a_int: i32[1] = empty(1, dtype=int32)
     a_int[0] = 400
-    b_int: i32[1] = empty(1)
+    b_int: i32[1] = empty(1, dtype=int32)
     b_int[0] = 20
     g(1, a_int, b_int, add=add_integer)
-    a_float: f32[1] = empty(1)
+    a_float: f32[1] = empty(1, dtype=float32)
     a_float[0] = f32(400.0)
-    b_float: f32[1] = empty(1)
+    b_float: f32[1] = empty(1, dtype=float32)
     b_float[0] = f32(20.0)
     g(1, a_float, b_float, add=add_float)
 
diff --git a/integration_tests/generics_array_03.py b/integration_tests/generics_array_03.py
index 8de3fe5908..ebc5875220 100644
--- a/integration_tests/generics_array_03.py
+++ b/integration_tests/generics_array_03.py
@@ -1,9 +1,7 @@
-from ltypes import TypeVar, restriction, i32, f32
-from numpy import empty
+from lpython import TypeVar, restriction, i32, f32
+from numpy import empty, int32, float32
 
-n: i32
 n = TypeVar("n")
-m: i32
 m = TypeVar("m")
 T = TypeVar('T')
 
@@ -19,7 +17,7 @@ def add_float(x: f32, y: f32) -> f32:
 
 def g(n: i32, m: i32, a: T[n,m], b: T[n,m], **kwargs) -> T[n,m]:
     r: T[n,m]
-    r = empty([n,m])
+    r = empty([n,m], dtype=object)
     i: i32
     j: i32
     for i in range(n):
@@ -28,14 +26,14 @@ def g(n: i32, m: i32, a: T[n,m], b: T[n,m], **kwargs) -> T[n,m]:
     print(r[0,0])
 
 def main():
-    a_int: i32[1,1] = empty([1,1])
+    a_int: i32[1,1] = empty([1,1], dtype=int32)
     a_int[0,0] = 400
-    b_int: i32[1,1] = empty([1,1])
+    b_int: i32[1,1] = empty([1,1], dtype=int32)
     b_int[0,0] = 20
     g(1, 1, a_int, b_int, add=add_integer)
-    a_float: f32[1,1] = empty([1,1])
+    a_float: f32[1,1] = empty([1,1], dtype=float32)
     a_float[0,0] = f32(400)
-    b_float: f32[1,1] = empty([1,1])
+    b_float: f32[1,1] = empty([1,1], dtype=float32)
     b_float[0,0] = f32(20)
     g(1, 1, a_float, b_float, add=add_float)
 
diff --git a/integration_tests/generics_list_01.py b/integration_tests/generics_list_01.py
index ec76496b70..2d228532ce 100644
--- a/integration_tests/generics_list_01.py
+++ b/integration_tests/generics_list_01.py
@@ -1,4 +1,4 @@
-from ltypes import TypeVar, f64, i32, restriction
+from lpython import TypeVar, f64, i32, restriction
 
 T = TypeVar('T')
 
@@ -30,7 +30,7 @@ def add_float(x: f64, y: f64) -> f64:
     return x + y
 
 def div_float(x: f64, k: i32) -> f64:
-    return x / k
+    return x / f64(k)
 
 def empty_string(x: str) -> str:
     return ""
diff --git a/integration_tests/global_syms_01.py b/integration_tests/global_syms_01.py
new file mode 100644
index 0000000000..fbf9cbb97a
--- /dev/null
+++ b/integration_tests/global_syms_01.py
@@ -0,0 +1,12 @@
+from lpython import i32
+
+x: list[i32]
+x = [1, 2]
+i: i32
+i = x[0]
+
+def test_global_symbols():
+    assert i == 1
+    assert x[1] == 2
+
+test_global_symbols()
diff --git a/integration_tests/global_syms_02.py b/integration_tests/global_syms_02.py
new file mode 100644
index 0000000000..840732e4cc
--- /dev/null
+++ b/integration_tests/global_syms_02.py
@@ -0,0 +1,23 @@
+from lpython import i32
+
+x: list[i32]
+x = [0, 1]
+x.append(3)
+
+def test_global_symbols():
+    assert len(x) == 3
+    x.insert(2, 2)
+
+test_global_symbols()
+
+i: i32
+for i in range(len(x)):
+    assert i == x[i]
+
+tmp: list[i32]
+tmp = x
+
+tmp.remove(0)
+assert len(tmp) == 3
+tmp.clear()
+assert len(tmp) == 0
diff --git a/integration_tests/global_syms_03_a.py b/integration_tests/global_syms_03_a.py
new file mode 100644
index 0000000000..ad8f62f759
--- /dev/null
+++ b/integration_tests/global_syms_03_a.py
@@ -0,0 +1,13 @@
+from lpython import i32, f64
+
+print("Imported from global_syms_03_a")
+
+l_1: list[str] = ['Monday', 'Tuesday', 'Wednesday']
+l_1.append('Thursday')
+
+def populate_lists() -> list[i32]:
+    return [10, -20]
+l_2: list[i32] = populate_lists()
+
+l_3: list[f64]
+l_3 = [1.0, 2.0, 3.0]
diff --git a/integration_tests/global_syms_03_b.py b/integration_tests/global_syms_03_b.py
new file mode 100644
index 0000000000..0d77cfc79e
--- /dev/null
+++ b/integration_tests/global_syms_03_b.py
@@ -0,0 +1,5 @@
+from global_syms_03_a import l_1, l_2
+
+assert len(l_1) == 4
+assert l_1[1] == "Tuesday"
+assert l_2[1] == -20
diff --git a/integration_tests/global_syms_03_c.py b/integration_tests/global_syms_03_c.py
new file mode 100644
index 0000000000..cf6f05375b
--- /dev/null
+++ b/integration_tests/global_syms_03_c.py
@@ -0,0 +1,5 @@
+import global_syms_03_a
+
+assert len(global_syms_03_a.l_1) == 4
+assert global_syms_03_a.l_1[3] == "Thursday"
+assert global_syms_03_a.l_3 == [1.0, 2.0, 3.0]
diff --git a/integration_tests/global_syms_04.py b/integration_tests/global_syms_04.py
new file mode 100644
index 0000000000..7b035167e2
--- /dev/null
+++ b/integration_tests/global_syms_04.py
@@ -0,0 +1,37 @@
+from lpython import i32, i64, f64
+
+a: str = "hi"
+b: i32 = -24
+c: i64 = i64(151)
+d: f64 = -68.512
+
+def print_global_symbols():
+    print(a)
+    print(b)
+    print(c)
+    print(d)
+
+def test_global_symbols():
+    assert b == -24
+    assert c == i64(151)
+    assert abs(d - (-68.512)) <= 1e-12
+
+def update_global_symbols():
+    global b, c, d
+    x: f64 = f64(c) * d
+    b = i32(x)
+    y: f64 = f64(b) / 12.0
+    c = i64(y)
+    z: i64 = i64(b) * c
+    d = f64(z)
+
+def test_global_symbols_post_update():
+    assert b == -10345
+    assert c == i64(-862)
+    assert abs(d - 8917390.0) <= 1e-12
+
+print_global_symbols()
+test_global_symbols()
+update_global_symbols()
+print_global_symbols()
+test_global_symbols_post_update()
diff --git a/integration_tests/global_syms_05.py b/integration_tests/global_syms_05.py
new file mode 100644
index 0000000000..62b97c2593
--- /dev/null
+++ b/integration_tests/global_syms_05.py
@@ -0,0 +1,21 @@
+from lpython import i32
+
+# GLOBAL Dictionary
+x: dict[i32, i32]
+x = {0 : 0,  1: 1000, 2: 2000, 3 : 3000}
+
+x[4] = 4000
+assert len(x) == 5
+x[5] = 5000
+assert x[2] == 2000
+i: i32
+for i in range(len(x)):
+    assert x[i] == i * 1000
+
+# Copy of Dictionary
+tmp: dict[i32, i32]
+tmp = x
+tmp[6] = 6000
+assert len(tmp) == 7
+assert tmp[6] == 6000
+assert tmp[1] == 1000
diff --git a/integration_tests/global_syms_06.py b/integration_tests/global_syms_06.py
new file mode 100644
index 0000000000..0b396d1408
--- /dev/null
+++ b/integration_tests/global_syms_06.py
@@ -0,0 +1,9 @@
+from lpython import i32
+
+def test() -> i32:
+    temp: i32 = 0
+    return temp
+
+x: i32 = test()
+i: i32 = 10
+j: i32 = i
diff --git a/integration_tests/gruntz_demo.py b/integration_tests/gruntz_demo.py
new file mode 100644
index 0000000000..6beb38f330
--- /dev/null
+++ b/integration_tests/gruntz_demo.py
@@ -0,0 +1,399 @@
+"""
+Limits
+======
+
+Implemented according to the PhD thesis
+https://www.cybertester.com/data/gruntz.pdf, which contains very thorough
+descriptions of the algorithm including many examples.  We summarize here
+the gist of it.
+
+All functions are sorted according to how rapidly varying they are at
+infinity using the following rules. Any two functions f and g can be
+compared using the properties of L:
+
+L=lim  log|f(x)| / log|g(x)|           (for x -> oo)
+
+We define >, < ~ according to::
+
+    1. f > g .... L=+-oo
+
+        we say that:
+        - f is greater than any power of g
+        - f is more rapidly varying than g
+        - f goes to infinity/zero faster than g
+
+    2. f < g .... L=0
+
+        we say that:
+        - f is lower than any power of g
+
+    3. f ~ g .... L!=0, +-oo
+
+        we say that:
+        - both f and g are bounded from above and below by suitable integral
+          powers of the other
+
+Examples
+========
+::
+    2 < x < exp(x) < exp(x**2) < exp(exp(x))
+    2 ~ 3 ~ -5
+    x ~ x**2 ~ x**3 ~ 1/x ~ x**m ~ -x
+    exp(x) ~ exp(-x) ~ exp(2x) ~ exp(x)**2 ~ exp(x+exp(-x))
+    f ~ 1/f
+
+So we can divide all the functions into comparability classes (x and x^2
+belong to one class, exp(x) and exp(-x) belong to some other class). In
+principle, we could compare any two functions, but in our algorithm, we
+do not compare anything below the class 2~3~-5 (for example log(x) is
+below this), so we set 2~3~-5 as the lowest comparability class.
+
+Given the function f, we find the list of most rapidly varying (mrv set)
+subexpressions of it. This list belongs to the same comparability class.
+Let's say it is {exp(x), exp(2x)}. Using the rule f ~ 1/f we find an
+element "w" (either from the list or a new one) from the same
+comparability class which goes to zero at infinity. In our example we
+set w=exp(-x) (but we could also set w=exp(-2x) or w=exp(-3x) ...). We
+rewrite the mrv set using w, in our case {1/w, 1/w^2}, and substitute it
+into f. Then we expand f into a series in w::
+
+    f = c0*w^e0 + c1*w^e1 + ... + O(w^en),       where e0<e1<...<en, c0!=0
+
+but for x->oo, lim f = lim c0*w^e0, because all the other terms go to zero,
+because w goes to zero faster than the ci and ei. So::
+
+    for e0>0, lim f = 0
+    for e0<0, lim f = +-oo   (the sign depends on the sign of c0)
+    for e0=0, lim f = lim c0
+
+We need to recursively compute limits at several places of the algorithm, but
+as is shown in the PhD thesis, it always finishes.
+
+Important functions from the implementation:
+
+compare(a, b, x) compares "a" and "b" by computing the limit L.
+mrv(e, x) returns list of most rapidly varying (mrv) subexpressions of "e"
+rewrite(e, Omega, x, wsym) rewrites "e" in terms of w
+leadterm(f, x) returns the lowest power term in the series of f
+mrv_leadterm(e, x) returns the lead term (c0, e0) for e
+limitinf(e, x) computes lim e  (for x->oo)
+limit(e, z, z0) computes any limit by converting it to the case x->oo
+
+All the functions are really simple and straightforward except
+rewrite(), which is the most difficult/complex part of the algorithm.
+When the algorithm fails, the bugs are usually in the series expansion
+(i.e. in SymPy) or in rewrite.
+
+This code is almost exact rewrite of the Maple code inside the Gruntz
+thesis.
+
+Debugging
+---------
+
+Because the gruntz algorithm is highly recursive, it's difficult to
+figure out what went wrong inside a debugger. Instead, turn on nice
+debug prints by defining the environment variable SYMPY_DEBUG. For
+example:
+
+[user@localhost]: SYMPY_DEBUG=True ./bin/isympy
+
+In [1]: limit(sin(x)/x, x, 0)
+limitinf(_x*sin(1/_x), _x) = 1
++-mrv_leadterm(_x*sin(1/_x), _x) = (1, 0)
+| +-mrv(_x*sin(1/_x), _x) = set([_x])
+| | +-mrv(_x, _x) = set([_x])
+| | +-mrv(sin(1/_x), _x) = set([_x])
+| |   +-mrv(1/_x, _x) = set([_x])
+| |     +-mrv(_x, _x) = set([_x])
+| +-mrv_leadterm(exp(_x)*sin(exp(-_x)), _x, set([exp(_x)])) = (1, 0)
+|   +-rewrite(exp(_x)*sin(exp(-_x)), set([exp(_x)]), _x, _w) = (1/_w*sin(_w), -_x)
+|     +-sign(_x, _x) = 1
+|     +-mrv_leadterm(1, _x) = (1, 0)
++-sign(0, _x) = 0
++-limitinf(1, _x) = 1
+
+And check manually which line is wrong. Then go to the source code and
+debug this function to figure out the exact problem.
+
+"""
+from functools import reduce
+
+from sympy.core import Basic, S, Mul, PoleError, expand_mul, evaluate
+from sympy.core.cache import cacheit
+from sympy.core.numbers import I, oo
+from sympy.core.symbol import Dummy, Wild, Symbol
+from sympy.core.traversal import bottom_up
+from sympy.core.sorting import ordered
+
+from sympy.functions import log, exp, sign, sin
+from sympy.series.order import Order
+from sympy.utilities.exceptions import SymPyDeprecationWarning
+from sympy.utilities.misc import debug_decorator as debug
+from sympy.utilities.timeutils import timethis
+
+def mrv(e, x):
+    """
+    Calculate the MRV set of the expression.
+
+    Examples
+    ========
+
+    >>> mrv(log(x - log(x))/log(x), x)
+    {x}
+
+    """
+
+    if not e.has(x):
+        return set()
+    if e == x:
+        return {x}
+    if e.is_Mul or e.is_Add:
+        a, b = e.as_two_terms()
+        return mrv_max(mrv(a, x), mrv(b, x), x)
+    if e.func == exp:
+        if e.exp == x:
+            return {e}
+        if any(a.is_infinite for a in Mul.make_args(limitinf(e.exp, x))):
+            return mrv_max({e}, mrv(e.exp, x), x)
+        return mrv(e.exp, x)
+    if e.is_Pow:
+        return mrv(e.base, x)
+    if isinstance(e, log):
+        return mrv(e.args[0], x)
+    if e.is_Function:
+        return reduce(lambda a, b: mrv_max(a, b, x), (mrv(a, x) for a in e.args))
+    raise NotImplementedError(f"Can't calculate the MRV of {e}.")
+
+def mrv_max(f, g, x):
+    """Compute the maximum of two MRV sets.
+
+    Examples
+    ========
+
+    >>> mrv_max({log(x)}, {x**5}, x)
+    {x**5}
+
+    """
+
+    if not f:
+        return g
+    if not g:
+        return f
+    if f & g:
+        return f | g
+
+    a, b = map(next, map(iter, (f, g)))
+
+    # The log(exp(...)) must always be simplified here.
+    la = a.exp if a.is_Exp else log(a)
+    lb = b.exp if b.is_Exp else log(b)
+
+    c = limitinf(la/lb, x)
+    if c.is_zero:
+        return g
+    if c.is_infinite:
+        return f
+    return f | g
+
+def rewrite(e, x, w):
+    r"""
+    Rewrites the expression in terms of the MRV subexpression.
+
+    Parameters
+    ==========
+
+    e : Expr
+        an expression
+    x : Symbol
+        variable of the `e`
+    w : Symbol
+        The symbol which is going to be used for substitution in place
+        of the MRV in `x` subexpression.
+
+    Returns
+    =======
+
+    tuple
+        A pair: rewritten (in `w`) expression and `\log(w)`.
+
+    Examples
+    ========
+
+    >>> rewrite(exp(x)*log(x), x, y)
+    (log(x)/y, -x)
+
+    """
+
+    Omega = mrv(e, x)
+    if not Omega:
+        return e, None  # e really does not depend on x
+
+    if x in Omega:
+        # Moving up in the asymptotical scale:
+        with evaluate(False):
+            e = e.xreplace({x: exp(x)})
+            Omega = {s.xreplace({x: exp(x)}) for s in Omega}
+
+    Omega = list(ordered(Omega, keys=lambda a: -len(mrv(a, x))))
+
+    for g in Omega:
+        sig = signinf(g.exp, x)
+        if sig not in (1, -1):
+            raise NotImplementedError(f'Result depends on the sign of {sig}.')
+
+    if sig == 1:
+        w = 1/w  # if g goes to oo, substitute 1/w
+
+    # Rewrite and substitute subexpressions in the Omega.
+    for a in Omega:
+        c = limitinf(a.exp/g.exp, x)
+        b = exp(a.exp - c*g.exp)*w**c  # exponential must never be expanded here
+        with evaluate(False):
+            e = e.xreplace({a: b})
+
+    return e, -sig*g.exp
+
+@cacheit
+def mrv_leadterm(e, x):
+    """
+    Compute the leading term of the series.
+
+    Returns
+    =======
+
+    tuple
+        The leading term `c_0 w^{e_0}` of the series of `e` in terms
+        of the most rapidly varying subexpression `w` in form of
+        the pair ``(c0, e0)`` of Expr.
+
+    Examples
+    ========
+
+    >>> leadterm(1/exp(-x + exp(-x)) - exp(x), x)
+    (-1, 0)
+
+    """
+
+    if not e.has(x):
+        return e, Integer(0)
+
+    # Rewrite to exp-log functions per Sec. 3.3 of thesis.
+    e = e.replace(lambda f: f.is_Pow and f.exp.has(x),
+                  lambda f: exp(log(f.base)*f.exp))
+    e = e.replace(lambda f: f.is_Mul and sum(a.func == exp for a in f.args) > 1,
+                  lambda f: Mul(exp(Add(*(a.exp for a in f.args if a.func == exp))),
+                                *(a for a in f.args if not a.func == exp)))
+
+    # The positive dummy, w, is used here so log(w*2) etc. will expand.
+    # TODO: For limits of complex functions, the algorithm would have to
+    # be improved, or just find limits of Re and Im components separately.
+    w = Dummy('w', real=True, positive=True)
+    e, logw = rewrite(e, x, w)
+
+    c0, e0 = e.leadterm(w, logx=logw)
+    if c0.has(w):
+        raise NotImplementedError(f'Cannot compute leadterm({e}, {x}). '
+                                  'The coefficient should have been free of '
+                                  f'{w}, but got {c0}.')
+    return c0.subs(log(w), logw), e0
+
+@cacheit
+def signinf(e, x):
+    r"""
+    Determine sign of the expression at the infinity.
+
+    Returns
+    =======
+
+    {1, 0, -1}
+        One or minus one, if `e > 0` or `e < 0` for `x` sufficiently
+        large and zero if `e` is *constantly* zero for `x\to\infty`.
+
+    """
+
+    if not e.has(x):
+        return sign(e).simplify()
+    if e == x or (e.is_Pow and signinf(e.base, x) == 1):
+        return S(1)
+    if e.is_Mul:
+        a, b = e.as_two_terms()
+        return signinf(a, x)*signinf(b, x)
+
+    c0, _ = leadterm(e, x)
+    return signinf(c0, x)
+
+@cacheit
+def limitinf(e, x):
+    """
+    Compute the limit of the expression at the infinity.
+
+    Examples
+    ========
+
+    >>> limitinf(exp(x)*(exp(1/x - exp(-x)) - exp(1/x)), x)
+    -1
+
+    """
+    # Rewrite e in terms of tractable functions only:
+    e = e.rewrite('tractable', deep=True, limitvar=x)
+
+    if not e.has(x):
+        return e.rewrite('intractable', deep=True)
+
+    c0, e0 = mrv_leadterm(e, x)
+    sig = signinf(e0, x)
+    if sig == 1:
+        return S(0)
+    if sig == -1:
+        return signinf(c0, x)*oo
+    if sig == 0:
+        return limitinf(c0, x)
+    raise NotImplementedError(f'Result depends on the sign of {sig}.')
+
+
+def gruntz(e, z, z0, dir="+"):
+    """
+    Compute the limit of e(z) at the point z0 using the Gruntz algorithm.
+
+    Explanation
+    ===========
+
+    ``z0`` can be any expression, including oo and -oo.
+
+    For ``dir="+"`` (default) it calculates the limit from the right
+    (z->z0+) and for ``dir="-"`` the limit from the left (z->z0-). For infinite z0
+    (oo or -oo), the dir argument does not matter.
+
+    This algorithm is fully described in the module docstring in the gruntz.py
+    file. It relies heavily on the series expansion. Most frequently, gruntz()
+    is only used if the faster limit() function (which uses heuristics) fails.
+    """
+    if not z.is_symbol:
+        raise NotImplementedError("Second argument must be a Symbol")
+
+    # convert all limits to the limit z->oo; sign of z is handled in limitinf
+    r = None
+    if z0 in (oo, I*oo):
+        e0 = e
+    elif z0 in (-oo, -I*oo):
+        e0 = e.subs(z, -z)
+    else:
+        if str(dir) == "-":
+            e0 = e.subs(z, z0 - 1/z)
+        elif str(dir) == "+":
+            e0 = e.subs(z, z0 + 1/z)
+        else:
+            raise NotImplementedError("dir must be '+' or '-'")
+
+    r = limitinf(e0, z)
+
+    # This is a bit of a heuristic for nice results... we always rewrite
+    # tractable functions in terms of familiar intractable ones.
+    # It might be nicer to rewrite the exactly to what they were initially,
+    # but that would take some work to implement.
+    return r.rewrite('intractable', deep=True)
+
+# tests
+x = Symbol('x')
+ans = gruntz(sin(x)/x, x, 0)
+print(ans)
\ No newline at end of file
diff --git a/integration_tests/gruntz_demo2.py b/integration_tests/gruntz_demo2.py
new file mode 100644
index 0000000000..a9faead47d
--- /dev/null
+++ b/integration_tests/gruntz_demo2.py
@@ -0,0 +1,347 @@
+"""
+Limits
+======
+
+Implemented according to the PhD thesis
+https://www.cybertester.com/data/gruntz.pdf, which contains very thorough
+descriptions of the algorithm including many examples.  We summarize here
+the gist of it.
+
+All functions are sorted according to how rapidly varying they are at
+infinity using the following rules. Any two functions f and g can be
+compared using the properties of L:
+
+L=lim  log|f(x)| / log|g(x)|           (for x -> oo)
+
+We define >, < ~ according to::
+
+    1. f > g .... L=+-oo
+
+        we say that:
+        - f is greater than any power of g
+        - f is more rapidly varying than g
+        - f goes to infinity/zero faster than g
+
+    2. f < g .... L=0
+
+        we say that:
+        - f is lower than any power of g
+
+    3. f ~ g .... L!=0, +-oo
+
+        we say that:
+        - both f and g are bounded from above and below by suitable integral
+          powers of the other
+
+Examples
+========
+::
+    2 < x < exp(x) < exp(x**2) < exp(exp(x))
+    2 ~ 3 ~ -5
+    x ~ x**2 ~ x**3 ~ 1/x ~ x**m ~ -x
+    exp(x) ~ exp(-x) ~ exp(2x) ~ exp(x)**2 ~ exp(x+exp(-x))
+    f ~ 1/f
+
+So we can divide all the functions into comparability classes (x and x^2
+belong to one class, exp(x) and exp(-x) belong to some other class). In
+principle, we could compare any two functions, but in our algorithm, we
+do not compare anything below the class 2~3~-5 (for example log(x) is
+below this), so we set 2~3~-5 as the lowest comparability class.
+
+Given the function f, we find the list of most rapidly varying (mrv set)
+subexpressions of it. This list belongs to the same comparability class.
+Let's say it is {exp(x), exp(2x)}. Using the rule f ~ 1/f we find an
+element "w" (either from the list or a new one) from the same
+comparability class which goes to zero at infinity. In our example we
+set w=exp(-x) (but we could also set w=exp(-2x) or w=exp(-3x) ...). We
+rewrite the mrv set using w, in our case {1/w, 1/w^2}, and substitute it
+into f. Then we expand f into a series in w::
+
+    f = c0*w^e0 + c1*w^e1 + ... + O(w^en),       where e0<e1<...<en, c0!=0
+
+but for x->oo, lim f = lim c0*w^e0, because all the other terms go to zero,
+because w goes to zero faster than the ci and ei. So::
+
+    for e0>0, lim f = 0
+    for e0<0, lim f = +-oo   (the sign depends on the sign of c0)
+    for e0=0, lim f = lim c0
+
+We need to recursively compute limits at several places of the algorithm, but
+as is shown in the PhD thesis, it always finishes.
+
+Important functions from the implementation:
+
+compare(a, b, x) compares "a" and "b" by computing the limit L.
+mrv(e, x) returns list of most rapidly varying (mrv) subexpressions of "e"
+rewrite(e, Omega, x, wsym) rewrites "e" in terms of w
+leadterm(f, x) returns the lowest power term in the series of f
+mrv_leadterm(e, x) returns the lead term (c0, e0) for e
+limitinf(e, x) computes lim e  (for x->oo)
+limit(e, z, z0) computes any limit by converting it to the case x->oo
+
+All the functions are really simple and straightforward except
+rewrite(), which is the most difficult/complex part of the algorithm.
+When the algorithm fails, the bugs are usually in the series expansion
+(i.e. in SymPy) or in rewrite.
+
+This code is almost exact rewrite of the Maple code inside the Gruntz
+thesis.
+
+Debugging
+---------
+
+Because the gruntz algorithm is highly recursive, it's difficult to
+figure out what went wrong inside a debugger. Instead, turn on nice
+debug prints by defining the environment variable SYMPY_DEBUG. For
+example:
+
+[user@localhost]: SYMPY_DEBUG=True ./bin/isympy
+
+In [1]: limit(sin(x)/x, x, 0)
+limitinf(_x*sin(1/_x), _x) = 1
++-mrv_leadterm(_x*sin(1/_x), _x) = (1, 0)
+| +-mrv(_x*sin(1/_x), _x) = set([_x])
+| | +-mrv(_x, _x) = set([_x])
+| | +-mrv(sin(1/_x), _x) = set([_x])
+| |   +-mrv(1/_x, _x) = set([_x])
+| |     +-mrv(_x, _x) = set([_x])
+| +-mrv_leadterm(exp(_x)*sin(exp(-_x)), _x, set([exp(_x)])) = (1, 0)
+|   +-rewrite(exp(_x)*sin(exp(-_x)), set([exp(_x)]), _x, _w) = (1/_w*sin(_w), -_x)
+|     +-sign(_x, _x) = 1
+|     +-mrv_leadterm(1, _x) = (1, 0)
++-sign(0, _x) = 0
++-limitinf(1, _x) = 1
+
+And check manually which line is wrong. Then go to the source code and
+debug this function to figure out the exact problem.
+
+"""
+from functools import reduce
+
+from sympy.core import Basic, S, Mul, PoleError, expand_mul, evaluate, Integer
+from sympy.core.cache import cacheit
+from sympy.core.numbers import I, oo
+from sympy.core.symbol import Dummy, Wild, Symbol
+from sympy.core.traversal import bottom_up
+from sympy.core.sorting import ordered
+
+from sympy.functions import log, exp, sign, sin
+from sympy.series.order import Order
+from sympy.utilities.exceptions import SymPyDeprecationWarning
+from sympy.utilities.misc import debug_decorator as debug
+from sympy.utilities.timeutils import timethis
+
+def mrv(e, x):
+    """
+    Calculate the MRV set of the expression.
+
+    Examples
+    ========
+
+    >>> mrv(log(x - log(x))/log(x), x)
+    {x}
+
+    """
+
+    if e == x:
+        return {x}
+    elif e.is_Integer:
+        return {}
+    elif e.is_Mul or e.is_Add:
+        a, b = e.as_two_terms()
+        ans1 = mrv(a, x)
+        ans2 = mrv(b, x)
+        return mrv_max(mrv(a, x), mrv(b, x), x)
+    elif e.is_Pow:
+        return mrv(e.base, x)
+    elif e.is_Function:
+        return reduce(lambda a, b: mrv_max(a, b, x), (mrv(a, x) for a in e.args))
+    raise NotImplementedError(f"Can't calculate the MRV of {e}.")
+
+def mrv_max(f, g, x):
+    """Compute the maximum of two MRV sets.
+
+    Examples
+    ========
+
+    >>> mrv_max({log(x)}, {x**5}, x)
+    {x**5}
+
+    """
+
+    if not f:
+        return g
+    if not g:
+        return f
+    if f & g:
+        return f | g
+
+def rewrite(e, x, w):
+    r"""
+    Rewrites the expression in terms of the MRV subexpression.
+
+    Parameters
+    ==========
+
+    e : Expr
+        an expression
+    x : Symbol
+        variable of the `e`
+    w : Symbol
+        The symbol which is going to be used for substitution in place
+        of the MRV in `x` subexpression.
+
+    Returns
+    =======
+
+    The rewritten expression
+
+    Examples
+    ========
+
+    >>> rewrite(exp(x)*log(x), x, y)
+    (log(x)/y, -x)
+
+    """
+
+    Omega = mrv(e, x)
+
+    if x in Omega:
+        # Moving up in the asymptotical scale:
+        with evaluate(False):
+            e = e.subs(x, exp(x))
+            Omega = {s.subs(x, exp(x)) for s in Omega}
+
+    Omega = list(ordered(Omega, keys=lambda a: -len(mrv(a, x))))
+
+    for g in Omega:
+        sig = signinf(g.exp, x)
+        if sig not in (1, -1):
+            raise NotImplementedError(f'Result depends on the sign of {sig}.')
+
+    if sig == 1:
+        w = 1/w  # if g goes to oo, substitute 1/w
+
+    # Rewrite and substitute subexpressions in the Omega.
+    for a in Omega:
+        c = limitinf(a.exp/g.exp, x)
+        b = exp(a.exp - c*g.exp)*w**c  # exponential must never be expanded here
+        with evaluate(False):
+            e = e.xreplace({a: b})
+
+    return e
+
+@cacheit
+def mrv_leadterm(e, x):
+    """
+    Compute the leading term of the series.
+
+    Returns
+    =======
+
+    tuple
+        The leading term `c_0 w^{e_0}` of the series of `e` in terms
+        of the most rapidly varying subexpression `w` in form of
+        the pair ``(c0, e0)`` of Expr.
+
+    Examples
+    ========
+
+    >>> leadterm(1/exp(-x + exp(-x)) - exp(x), x)
+    (-1, 0)
+
+    """
+
+    w = Dummy('w', real=True, positive=True)
+    e = rewrite(e, x, w)
+    return e.leadterm(w)
+
+@cacheit
+def signinf(e, x):
+    r"""
+    Determine sign of the expression at the infinity.
+
+    Returns
+    =======
+
+    {1, 0, -1}
+        One or minus one, if `e > 0` or `e < 0` for `x` sufficiently
+        large and zero if `e` is *constantly* zero for `x\to\infty`.
+
+    """
+
+    if not e.has(x):
+        return sign(e)
+    if e == x or (e.is_Pow and signinf(e.base, x) == 1):
+        return S(1)
+
+@cacheit
+def limitinf(e, x):
+    """
+    Compute the limit of the expression at the infinity.
+
+    Examples
+    ========
+
+    >>> limitinf(exp(x)*(exp(1/x - exp(-x)) - exp(1/x)), x)
+    -1
+
+    """
+
+    if not e.has(x):
+        return e
+
+    c0, e0 = mrv_leadterm(e, x)
+    sig = signinf(e0, x)
+    if sig == 1:
+        return Integer(0)
+    if sig == -1:
+        return signinf(c0, x)*oo
+    if sig == 0:
+        return limitinf(c0, x)
+    raise NotImplementedError(f'Result depends on the sign of {sig}.')
+
+
+def gruntz(e, z, z0, dir="+"):
+    """
+    Compute the limit of e(z) at the point z0 using the Gruntz algorithm.
+
+    Explanation
+    ===========
+
+    ``z0`` can be any expression, including oo and -oo.
+
+    For ``dir="+"`` (default) it calculates the limit from the right
+    (z->z0+) and for ``dir="-"`` the limit from the left (z->z0-). For infinite z0
+    (oo or -oo), the dir argument does not matter.
+
+    This algorithm is fully described in the module docstring in the gruntz.py
+    file. It relies heavily on the series expansion. Most frequently, gruntz()
+    is only used if the faster limit() function (which uses heuristics) fails.
+    """
+
+    if str(dir) == "-":
+        e0 = e.subs(z, z0 - 1/z)
+    elif str(dir) == "+":
+        e0 = e.subs(z, z0 + 1/z)
+    else:
+        raise NotImplementedError("dir must be '+' or '-'")
+
+    r = limitinf(e0, z)
+    return r
+
+# tests
+x = Symbol('x')
+# Print the basic limit:
+print(gruntz(sin(x)/x, x, 0))
+
+# Test other cases
+assert gruntz(sin(x)/x, x, 0) == 1
+assert gruntz(2*sin(x)/x, x, 0) == 2
+assert gruntz(sin(2*x)/x, x, 0) == 2
+assert gruntz(sin(x)**2/x, x, 0) == 0
+assert gruntz(sin(x)/x**2, x, 0) == oo
+assert gruntz(sin(x)**2/x**2, x, 0) == 1
+assert gruntz(sin(sin(sin(x)))/sin(x), x, 0) == 1
+assert gruntz(2*log(x+1)/x, x, 0) == 2
+assert gruntz(sin((log(x+1)/x)*x)/x, x, 0) == 1
diff --git a/integration_tests/gruntz_demo3.py b/integration_tests/gruntz_demo3.py
new file mode 100644
index 0000000000..a4fb48405c
--- /dev/null
+++ b/integration_tests/gruntz_demo3.py
@@ -0,0 +1,264 @@
+from lpython import S
+from sympy import Symbol, Pow, sin, oo, pi, E, Mul, Add, oo, log, exp, sign
+
+def mrv(e: S, x: S) -> list[S]:
+    """
+    Calculate the MRV set of the expression.
+
+    Examples
+    ========
+
+    >>> mrv(log(x - log(x))/log(x), x)
+    {x}
+
+    """
+
+    if e.is_integer:
+        empty_list: list[S] = []
+        return empty_list
+    if e == x:
+        list1: list[S] = [x]
+        return list1
+    if e.func == log:
+        arg0: S = e.args[0]
+        list2: list[S] = mrv(arg0, x)
+        return list2
+    if e.func == Mul or e.func == Add:
+        a: S = e.args[0]
+        b: S = e.args[1]
+        ans1: list[S] = mrv(a, x)
+        ans2: list[S] = mrv(b, x)
+        list3: list[S] = mrv_max(ans1, ans2, x)
+        return list3
+    if e.func == Pow:
+        base: S = e.args[0]
+        list4: list[S] = mrv(base, x)
+        return list4
+    if e.func == sin:
+        list5: list[S] = [x]
+        return list5
+    # elif e.is_Function:
+    #     return reduce(lambda a, b: mrv_max(a, b, x), (mrv(a, x) for a in e.args))
+    raise NotImplementedError(f"Can't calculate the MRV of {e}.")
+
+def mrv_max(f: list[S], g: list[S], x: S) -> list[S]:
+    """Compute the maximum of two MRV sets.
+
+    Examples
+    ========
+
+    >>> mrv_max({log(x)}, {x**5}, x)
+    {x**5}
+
+    """
+
+    if len(f) == 0:
+        return g
+    elif len(g) == 0:
+        return f
+    # elif f & g:
+    #     return f | g
+    else:
+        f1: S = f[0]
+        g1: S = g[0]
+        bool1: bool = f1 == x
+        bool2: bool = g1 == x
+        if bool1 and bool2:
+            l: list[S] = [x]
+            return l
+
+def rewrite(e: S, x: S, w: S) -> S:
+    """
+    Rewrites the expression in terms of the MRV subexpression.
+
+    Parameters
+    ==========
+
+    e : Expr
+        an expression
+    x : Symbol
+        variable of the `e`
+    w : Symbol
+        The symbol which is going to be used for substitution in place
+        of the MRV in `x` subexpression.
+
+    Returns
+    =======
+
+    The rewritten expression
+
+    Examples
+    ========
+
+    >>> rewrite(exp(x)*log(x), x, y)
+    (log(x)/y, -x)
+
+    """
+    Omega: list[S] = mrv(e, x)
+    Omega1: S = Omega[0]
+
+    if Omega1 == x:
+        newe: S = e.subs(x, S(1)/w)
+        return newe
+
+def signinf(e: S, x : S) -> S:
+    r"""
+    Determine sign of the expression at the infinity.
+
+    Returns
+    =======
+
+    {1, 0, -1}
+        One or minus one, if `e > 0` or `e < 0` for `x` sufficiently
+        large and zero if `e` is *constantly* zero for `x\to\infty`.
+
+    """
+
+    if not e.has(x):
+        return sign(e)
+    if e == x:
+        return S(1)
+    if e.func == Pow:
+        base: S = e.args[0]
+        if signinf(base, x) == S(1):
+            return S(1)
+
+def leadterm(e: S, x: S) -> list[S]:
+    """
+    Returns the leading term a*x**b as a list [a, b].
+    """
+
+    l1: list[S] = [S(1), S(0)]
+    l2: list[S] = [S(2), S(0)]
+    l3: list[S] = [S(1), S(1)]
+    l4: list[S] = [S(1), S(-1)]
+
+    if e == sin(x)/x:
+        return l1
+    elif e == S(2)*sin(x)/x:
+        return l2
+    elif e == sin(S(2)*x)/x:
+        return l2
+    elif e == sin(x)**S(2)/x:
+        return l3
+    elif e == sin(x)/x**S(2):
+        return l4
+    elif e == sin(x)**S(2)/x**S(2):
+        return l1
+    elif e == sin(sin(sin(x)))/sin(x):
+        return l1
+    elif e == S(2)*log(x+S(1))/x:
+        return l2
+    elif e == sin((log(x+S(1))/x)*x)/x:
+        return l1
+    raise NotImplementedError(f"Can't calculate the leadterm of {e}.")
+
+def mrv_leadterm(e: S, x: S) -> list[S]:
+    """
+    Compute the leading term of the series.
+
+    Returns
+    =======
+
+    tuple
+        The leading term `c_0 w^{e_0}` of the series of `e` in terms
+        of the most rapidly varying subexpression `w` in form of
+        the pair ``(c0, e0)`` of Expr.
+
+    Examples
+    ========
+
+    >>> leadterm(1/exp(-x + exp(-x)) - exp(x), x)
+    (-1, 0)
+
+    """
+    # w = Dummy('w', real=True, positive=True)
+    # e = rewrite(e, x, w)
+    # return e.leadterm(w)
+    w: S = Symbol('w')
+    newe: S = rewrite(e, x, w)
+    coeff_exp_list: list[S] = leadterm(newe, w)
+    return coeff_exp_list
+
+def limitinf(e: S, x: S) -> S:
+    """
+    Compute the limit of the expression at the infinity.
+
+    Examples
+    ========
+
+    >>> limitinf(exp(x)*(exp(1/x - exp(-x)) - exp(1/x)), x)
+    -1
+
+    """
+    if not e.has(x):
+        return e
+    
+    coeff_exp_list: list[S] = mrv_leadterm(e, x)
+    c0: S = coeff_exp_list[0]
+    e0: S = coeff_exp_list[1]
+    sig: S = signinf(e0, x)
+    case_2: S = signinf(c0, x) * oo
+    if sig == S(1):
+        return S(0)
+    if sig == S(-1):
+        return case_2
+    if sig == S(0):
+        return limitinf(c0, x)
+    raise NotImplementedError(f'Result depends on the sign of {sig}.')
+
+def gruntz(e: S, z: S, z0: S, dir: str ="+") -> S:
+    """
+    Compute the limit of e(z) at the point z0 using the Gruntz algorithm.
+
+    Explanation
+    ===========
+
+    ``z0`` can be any expression, including oo and -oo.
+
+    For ``dir="+"`` (default) it calculates the limit from the right
+    (z->z0+) and for ``dir="-"`` the limit from the left (z->z0-). For infinite z0
+    (oo or -oo), the dir argument does not matter.
+
+    This algorithm is fully described in the module docstring in the gruntz.py
+    file. It relies heavily on the series expansion. Most frequently, gruntz()
+    is only used if the faster limit() function (which uses heuristics) fails.
+    """
+
+    e0: S
+    sub_neg: S = z0 - S(1)/z
+    sub_pos: S = z0 + S(1)/z
+    if str(dir) == "-":
+        e0 = e.subs(z, sub_neg)
+    elif str(dir) == "+":
+        e0 = e.subs(z, sub_pos)
+    else:
+        raise NotImplementedError("dir must be '+' or '-'")
+
+    r: S = limitinf(e0, z)
+    return r
+
+# test
+def test():
+    x: S = Symbol('x')
+    print(gruntz(sin(x)/x, x, S(0), "+"))
+    print(gruntz(S(2)*sin(x)/x, x, S(0), "+"))
+    print(gruntz(sin(S(2)*x)/x, x, S(0), "+"))
+    print(gruntz(sin(x)**S(2)/x, x, S(0), "+"))
+    print(gruntz(sin(x)/x**S(2), x, S(0), "+"))
+    print(gruntz(sin(x)**S(2)/x**S(2), x, S(0), "+"))
+    print(gruntz(sin(sin(sin(x)))/sin(x), x, S(0), "+"))
+    print(gruntz(S(2)*log(x+S(1))/x, x, S(0), "+"))
+    print(gruntz(sin((log(x+S(1))/x)*x)/x, x, S(0), "+"))
+
+    assert gruntz(sin(x)/x, x, S(0)) == S(1)
+    assert gruntz(S(2)*sin(x)/x, x, S(0)) == S(2)
+    assert gruntz(sin(S(2)*x)/x, x, S(0)) == S(2)
+    assert gruntz(sin(x)**S(2)/x, x, S(0)) == S(0)
+    assert gruntz(sin(x)/x**S(2), x, S(0)) == oo
+    assert gruntz(sin(x)**S(2)/x**S(2), x, S(0)) == S(1)
+    assert gruntz(sin(sin(sin(x)))/sin(x), x, S(0)) == S(1)
+    assert gruntz(S(2)*log(x+S(1))/x, x, S(0)) == S(2)
+    assert gruntz(sin((log(x+S(1))/x)*x)/x, x, S(0)) == S(1)
+
+test()
\ No newline at end of file
diff --git a/integration_tests/if_01.py b/integration_tests/if_01.py
index 842cf15443..dccda55adb 100644
--- a/integration_tests/if_01.py
+++ b/integration_tests/if_01.py
@@ -1,3 +1,5 @@
+from lpython import i32
+
 def Test_if_01():
     z: i32 = 0
     if True:
diff --git a/integration_tests/if_02.py b/integration_tests/if_02.py
index e3a5b203b6..2a607f7ae3 100644
--- a/integration_tests/if_02.py
+++ b/integration_tests/if_02.py
@@ -1,4 +1,4 @@
-from ltypes import i32
+from lpython import i32
 
 def test_if_01():
     x: bool = True
diff --git a/integration_tests/if_03.py b/integration_tests/if_03.py
new file mode 100644
index 0000000000..780a7a7af8
--- /dev/null
+++ b/integration_tests/if_03.py
@@ -0,0 +1,5 @@
+from sys import exit
+
+if True:
+    print("Yes, true")
+    exit(1)
diff --git a/integration_tests/import_order_01.py b/integration_tests/import_order_01.py
new file mode 100644
index 0000000000..0d8724338d
--- /dev/null
+++ b/integration_tests/import_order_01.py
@@ -0,0 +1,7 @@
+from import_order_01b import f
+from lpython import i32, ccallback
+
+@ccallback
+def main1():
+    a: i32 = f()
+    print(a)
diff --git a/integration_tests/import_order_01b.py b/integration_tests/import_order_01b.py
new file mode 100644
index 0000000000..2dd1989d2a
--- /dev/null
+++ b/integration_tests/import_order_01b.py
@@ -0,0 +1,4 @@
+from lpython import i32
+
+def f() -> i32:
+    return 42
diff --git a/integration_tests/intent_01.py b/integration_tests/intent_01.py
new file mode 100644
index 0000000000..e4f679b05c
--- /dev/null
+++ b/integration_tests/intent_01.py
@@ -0,0 +1,26 @@
+from lpython import i32, u32, f64, dataclass, In, Out, InOut
+
+@dataclass
+class Foo:
+    p: i32
+
+def f(x: i32, y: In[f64], z: InOut[list[u32]], w: Out[Foo]):
+    assert (x == -12)
+    assert abs(y - (4.44)) <= 1e-12
+    z.append(u32(5))
+    w.p = 24
+
+
+def main0():
+    a: i32 = (-12)
+    b: f64 = 4.44
+    c: list[u32] = [u32(1), u32(2), u32(3), u32(4)]
+    d: Foo = Foo(25)
+
+    print(a, b, c, d.p)
+
+    f(a, b, c, d)
+    assert c[-1] == u32(5)
+    assert d.p == 24
+
+main0()
diff --git a/integration_tests/intrinsics_01.py b/integration_tests/intrinsics_01.py
new file mode 100644
index 0000000000..5547e86206
--- /dev/null
+++ b/integration_tests/intrinsics_01.py
@@ -0,0 +1,15 @@
+from numpy import array
+
+def any_01() -> None:
+    x: bool[2]
+
+    x= array([False, False])
+    assert not any(x)
+
+    x = array([False, True])
+    assert any(x)
+
+    x = array([True, True])
+    assert any(x)
+
+any_01()
diff --git a/integration_tests/intrinsics_02.py b/integration_tests/intrinsics_02.py
new file mode 100644
index 0000000000..c37d0aad3d
--- /dev/null
+++ b/integration_tests/intrinsics_02.py
@@ -0,0 +1,42 @@
+from lpython import Const, i32, f32, f64
+
+foo: Const[i32] = 4
+bar: Const[i32] = foo // 2
+
+print(bar)
+assert bar == 2
+
+def floordiv1():
+    a: f64
+    b: f64
+    c: f64
+    a = 5.0
+    b = 2.0
+    c = a // b
+
+    print(c)
+    assert c == 2.0
+
+def floordiv2():
+    a: Const[f32] = f32(5.0)
+    b: Const[f32] = f32(2.0)
+    c: f32
+    c = a // b
+
+    print(c)
+    assert c == f32(2.0)
+
+def floordiv3():
+    a: f64
+    b: f64
+    c: f64
+    a = 5.0
+    b = -2.0
+    c = a // b
+
+    print(c)
+    assert c == -3.0
+
+floordiv1()
+floordiv2()
+floordiv3()
diff --git a/integration_tests/kwargs_01.py b/integration_tests/kwargs_01.py
index 16fc30e5ea..2752769a15 100644
--- a/integration_tests/kwargs_01.py
+++ b/integration_tests/kwargs_01.py
@@ -1,4 +1,4 @@
-from ltypes import i32, i64, f32, f64, c64, overload
+from lpython import i32, i64, f32, f64, c64, overload
 
 def func01(a: i32, b: i64) -> i64:
     return int(a) + b
diff --git a/integration_tests/lambda_01.py b/integration_tests/lambda_01.py
new file mode 100644
index 0000000000..7e49e4884c
--- /dev/null
+++ b/integration_tests/lambda_01.py
@@ -0,0 +1,16 @@
+from lpython import i32, Callable
+
+def main0():
+    x: Callable[[i32, i32, i32], i32] = lambda p, q, r: p +  q + r
+
+    a123: i32 = x(1, 2, 3)
+    a456: i32 = x(4, 5, 6)
+    a_1_2_3: i32 = x(-1, -2, -3)
+
+    print(a123, a456, a_1_2_3)
+
+    assert a123 == 6
+    assert a456 == 15
+    assert a_1_2_3 == -6
+
+main0()
diff --git a/integration_tests/list_01.py b/integration_tests/list_01.py
new file mode 100644
index 0000000000..088b2237dd
--- /dev/null
+++ b/integration_tests/list_01.py
@@ -0,0 +1,21 @@
+from lpython import i32
+
+l: list[i32] = [1, 2, 3, 4]
+print("Before Pop:", l)
+
+assert len(l) == 4
+assert l[0] == 1
+assert l[1] == 2
+assert l[2] == 3
+assert l[3] == 4
+
+x: i32 = l.pop()
+print("After Pop:", l)
+
+assert x == 4
+assert len(l) == 3
+assert l[0] == 1
+assert l[1] == 2
+assert l[2] == 3
+
+print("Popped Element: ", x)
diff --git a/src/libasr/compiler_tester/__init__.py b/integration_tests/lnn/__init__.py
similarity index 100%
rename from src/libasr/compiler_tester/__init__.py
rename to integration_tests/lnn/__init__.py
diff --git a/integration_tests/lnn/perceptron/__init__.py b/integration_tests/lnn/perceptron/__init__.py
new file mode 100644
index 0000000000..1f60fac51f
--- /dev/null
+++ b/integration_tests/lnn/perceptron/__init__.py
@@ -0,0 +1 @@
+from .perceptron_main import init_perceptron, train_dataset, test_perceptron, print_perceptron, Perceptron
diff --git a/integration_tests/lnn/perceptron/perceptron_main.py b/integration_tests/lnn/perceptron/perceptron_main.py
new file mode 100644
index 0000000000..a60fe8a4e8
--- /dev/null
+++ b/integration_tests/lnn/perceptron/perceptron_main.py
@@ -0,0 +1,96 @@
+from lpython import dataclass, i32, f64, InOut
+from sys import exit
+
+@dataclass
+class Perceptron:
+    no_of_inputs: i32
+    weights: list[f64]
+    learn_rate: f64
+    iterations_limit: i32
+    des_accuracy: f64
+    cur_accuracy: f64
+    epochs_cnt: i32
+
+def get_inp_vec_with_bias(a: list[f64]) -> list[f64]:
+    b: list[f64] = []
+    i: i32
+    for i in range(len(a)):
+        b.append(a[i])
+    b.append(1.0)
+    return b
+
+def init_weights(size: i32) -> list[f64]:
+    weights: list[f64] = []
+    i: i32
+    for i in range(size):
+        weights.append(0.0)
+    weights.append(0.0) # append bias
+    return weights
+
+def init_perceptron(p: InOut[Perceptron], n: i32, rate: f64, iterations_limit: i32, des_accuracy: f64):
+    if (n < 1 or n > 1000):
+        print("no_of_inputs must be between [1, 1000]")
+        exit(1)
+    p.no_of_inputs = n
+    p.weights = init_weights(n)
+    p.learn_rate = rate
+    p.iterations_limit = iterations_limit
+    p.des_accuracy = des_accuracy
+    p.cur_accuracy = 0.0
+    p.epochs_cnt = 0
+
+def train_perceptron(p: InOut[Perceptron], input_vector: list[f64], actual_output: i32):
+    predicted_output: i32 = predict_perceptron(p, input_vector)
+    error: i32 = actual_output - predicted_output
+    i: i32
+    for i in range(len(input_vector)):
+        p.weights[i] += p.learn_rate * f64(error) * f64(input_vector[i])
+
+def predict_perceptron(p: Perceptron, input_vector: list[f64]) -> i32:
+    weighted_sum: f64 = 0.0
+    i: i32 = 0
+    for i in range(len(input_vector)):
+        weighted_sum = weighted_sum + p.weights[i] * f64(input_vector[i])
+    return activation_function(weighted_sum)
+
+def activation_function(value: f64) -> i32:
+    if value >= 0.0:
+        return 1
+    return -1
+
+def train_epoch(p: Perceptron, input_vectors: list[list[f64]], outputs: list[i32]):
+    i: i32
+    for i in range(len(input_vectors)):
+        input_vector: list[f64] = get_inp_vec_with_bias(input_vectors[i])
+        if predict_perceptron(p, input_vector) != outputs[i]:
+            train_perceptron(p, input_vector, outputs[i])
+
+def train_dataset(p: InOut[Perceptron], input_vectors: list[list[f64]], outputs: list[i32]):
+    p.cur_accuracy = 0.0
+    p.epochs_cnt = 0
+    while p.cur_accuracy < p.des_accuracy and p.epochs_cnt < p.iterations_limit:
+        p.epochs_cnt += 1
+        train_epoch(p, input_vectors, outputs)
+        p.cur_accuracy = test_perceptron(p, input_vectors, outputs)
+
+def test_perceptron(p: Perceptron, input_vectors: list[list[f64]], outputs: list[i32]) -> f64:
+    correctly_classified_cnt: i32 = 0
+    i: i32
+    for i in range(len(input_vectors)):
+        input_vector: list[f64] = get_inp_vec_with_bias(input_vectors[i])
+        if predict_perceptron(p, input_vector) == outputs[i]:
+            correctly_classified_cnt += 1
+    return (correctly_classified_cnt / len(input_vectors)) * 100.0
+
+def print_perceptron(p: Perceptron):
+    print("weights = [", end = "")
+    i: i32
+    for i in range(p.no_of_inputs):
+        print(p.weights[i], end = ", ")
+    print(p.weights[p.no_of_inputs], end = "(bias)]\n")
+    print("learn_rate = ", end = "")
+    print(p.learn_rate)
+    print("accuracy = ", end = "")
+    print(p.cur_accuracy)
+    print("epochs_cnt = ", end = "")
+    print(p.epochs_cnt)
diff --git a/integration_tests/lnn/regression/__init__.py b/integration_tests/lnn/regression/__init__.py
new file mode 100644
index 0000000000..de58667620
--- /dev/null
+++ b/integration_tests/lnn/regression/__init__.py
@@ -0,0 +1 @@
+from .regression_main import init_perceptron, train_dataset, test_perceptron, print_perceptron, Perceptron
diff --git a/integration_tests/lnn/regression/regression_main.py b/integration_tests/lnn/regression/regression_main.py
new file mode 100644
index 0000000000..f5ad9979f7
--- /dev/null
+++ b/integration_tests/lnn/regression/regression_main.py
@@ -0,0 +1,92 @@
+from lpython import dataclass, i32, f64, InOut
+from sys import exit
+
+@dataclass
+class Perceptron:
+    no_of_inputs: i32
+    weights: list[f64]
+    learn_rate: f64
+    iterations_limit: i32
+    err_limit: f64
+    err: f64
+    epochs_cnt: i32
+
+def get_inp_vec_with_bias(a: list[f64]) -> list[f64]:
+    b: list[f64] = []
+    i: i32
+    for i in range(len(a)):
+        b.append(a[i])
+    b.append(1.0)
+    return b
+
+def init_weights(size: i32) -> list[f64]:
+    weights: list[f64] = []
+    i: i32
+    for i in range(size):
+        weights.append(0.0)
+    weights.append(0.0) # append bias
+    return weights
+
+def init_perceptron(p: InOut[Perceptron], n: i32, rate: f64, iterations_limit: i32, err_limit: f64):
+    p.no_of_inputs = n
+    p.weights = init_weights(n)
+    p.learn_rate = rate
+    p.iterations_limit = iterations_limit
+    p.err_limit = err_limit
+    p.err = 1.0
+    p.epochs_cnt = 0
+
+def train_perceptron(p: InOut[Perceptron], input_vector: list[f64], actual_output: f64):
+    predicted_output: f64 = predict_perceptron(p, input_vector)
+    error: f64 = actual_output - predicted_output
+    i: i32
+    for i in range(len(input_vector)):
+        p.weights[i] += p.learn_rate * f64(error) * f64(input_vector[i])
+
+def predict_perceptron(p: Perceptron, input_vector: list[f64]) -> f64:
+    weighted_sum: f64 = 0.0
+    i: i32 = 0
+    for i in range(len(input_vector)):
+        weighted_sum = weighted_sum + p.weights[i] * f64(input_vector[i])
+    return activation_function(weighted_sum)
+
+def activation_function(value: f64) -> f64:
+    return value
+
+def train_epoch(p: Perceptron, input_vectors: list[list[f64]], outputs: list[f64]):
+    i: i32
+    for i in range(len(input_vectors)):
+        input_vector: list[f64] = get_inp_vec_with_bias(input_vectors[i])
+        if predict_perceptron(p, input_vector) != outputs[i]:
+            train_perceptron(p, input_vector, outputs[i])
+
+def train_dataset(p: InOut[Perceptron], input_vectors: list[list[f64]], outputs: list[f64]):
+    prev_err: f64 = 0.0
+    p.err = 1.0
+    p.epochs_cnt = 0
+    while abs(p.err - prev_err) >= p.err_limit and p.epochs_cnt < p.iterations_limit:
+        p.epochs_cnt += 1
+        train_epoch(p, input_vectors, outputs)
+        prev_err = p.err
+        p.err = test_perceptron(p, input_vectors, outputs)
+
+def test_perceptron(p: Perceptron, input_vectors: list[list[f64]], outputs: list[f64]) -> f64:
+    err: f64 = 0.0
+    i: i32
+    for i in range(len(input_vectors)):
+        input_vector: list[f64] = get_inp_vec_with_bias(input_vectors[i])
+        err = err + (outputs[i] - predict_perceptron(p, input_vector))  ** 2.0
+    return err
+
+def print_perceptron(p: Perceptron):
+    print("weights = [", end = "")
+    i: i32
+    for i in range(p.no_of_inputs):
+        print(p.weights[i], end = ", ")
+    print(p.weights[p.no_of_inputs], end = "(bias)]\n")
+    print("learn_rate = ", end = "")
+    print(p.learn_rate)
+    print("error = ", end = "")
+    print(p.err)
+    print("epochs_cnt = ", end = "")
+    print(p.epochs_cnt)
diff --git a/integration_tests/lnn/utils/__init__.py b/integration_tests/lnn/utils/__init__.py
new file mode 100644
index 0000000000..26df89840f
--- /dev/null
+++ b/integration_tests/lnn/utils/__init__.py
@@ -0,0 +1 @@
+from .utils_main import normalize, normalize_input_vectors, normalize_output_vector
diff --git a/integration_tests/lnn/utils/utils_main.py b/integration_tests/lnn/utils/utils_main.py
new file mode 100644
index 0000000000..4ee4f32f66
--- /dev/null
+++ b/integration_tests/lnn/utils/utils_main.py
@@ -0,0 +1,44 @@
+from lpython import i32, f64, InOut
+
+def normalize(value: f64, leftMin: f64, leftMax: f64, rightMin: f64, rightMax: f64) -> f64:
+    # Figure out how 'wide' each range is
+    leftSpan: f64 = leftMax - leftMin
+    rightSpan: f64 = rightMax - rightMin
+
+    # Convert the left range into a 0-1 range (float)
+    valueScaled: f64 = (value - leftMin) / leftSpan
+
+    # Convert the 0-1 range into a value in the right range.
+    return rightMin + (valueScaled * rightSpan)
+
+def normalize_input_vectors(input_vectors: InOut[list[list[f64]]]):
+    rows: i32 = len(input_vectors)
+    cols: i32 = len(input_vectors[0])
+
+    j: i32
+    for j in range(cols):
+        colMinVal: f64 = input_vectors[0][j]
+        colMaxVal: f64 = input_vectors[0][j]
+        i: i32
+        for i in range(rows):
+            if input_vectors[i][j] > colMaxVal:
+                colMaxVal = input_vectors[i][j]
+            if input_vectors[i][j] < colMinVal:
+                colMinVal = input_vectors[i][j]
+
+        for i in range(rows):
+            input_vectors[i][j] = normalize(input_vectors[i][j], colMinVal, colMaxVal, -1.0, 1.0)
+
+def normalize_output_vector(output_vector: InOut[list[f64]]):
+    rows: i32 = len(output_vector)
+    colMinVal: f64 = output_vector[0]
+    colMaxVal: f64 = output_vector[0]
+    i: i32
+    for i in range(rows):
+        if output_vector[i] > colMaxVal:
+            colMaxVal = output_vector[i]
+        if output_vector[i] < colMinVal:
+            colMinVal = output_vector[i]
+
+    for i in range(rows):
+        output_vector[i] = normalize(output_vector[i], colMinVal, colMaxVal, -1.0, 1.0)
diff --git a/integration_tests/logical_binop1.py b/integration_tests/logical_binop1.py
index e7fe3a43e5..4c610e0236 100644
--- a/integration_tests/logical_binop1.py
+++ b/integration_tests/logical_binop1.py
@@ -1,4 +1,4 @@
-from ltypes import i32
+from lpython import i32
 
 def test_issue_1487_1(): # OR operator: a or b
     a : i32
diff --git a/integration_tests/loop_01.py b/integration_tests/loop_01.py
index 1b4f54a3c9..306dc9a09b 100644
--- a/integration_tests/loop_01.py
+++ b/integration_tests/loop_01.py
@@ -1,4 +1,4 @@
-from ltypes import i32, i64, i16
+from lpython import i32, i64, i16
 
 def main0():
     s: str = 'aabbcc'; c: str
diff --git a/integration_tests/loop_02.py b/integration_tests/loop_02.py
index bfd7eca86c..447ef6e6ad 100644
--- a/integration_tests/loop_02.py
+++ b/integration_tests/loop_02.py
@@ -1,4 +1,4 @@
-from ltypes import i32
+from lpython import i32
 def test_loop_01():
     i: i32 = 0
     j: i32 = 0
diff --git a/integration_tests/loop_03.py b/integration_tests/loop_03.py
index 9101f0889c..dca553b2ba 100644
--- a/integration_tests/loop_03.py
+++ b/integration_tests/loop_03.py
@@ -1,4 +1,4 @@
-from ltypes import i32
+from lpython import i32
 
 def test_loop_01():
     i: i32 = 0
diff --git a/integration_tests/loop_04.py b/integration_tests/loop_04.py
index a219db9378..1374a4edc8 100644
--- a/integration_tests/loop_04.py
+++ b/integration_tests/loop_04.py
@@ -1,6 +1,8 @@
-from ltypes import i32
+from lpython import i32
+
 j: i32
 i: i32
+
 for i in range(5):
     j = i
-    print("j: ", j)
\ No newline at end of file
+    print("j: ", j)
diff --git a/integration_tests/loop_05.py b/integration_tests/loop_05.py
new file mode 100644
index 0000000000..fe06d74acd
--- /dev/null
+++ b/integration_tests/loop_05.py
@@ -0,0 +1,13 @@
+from lpython import i32
+
+def f():
+    j: i32 = 0
+    while True:
+        j = j + 1
+        print(j)
+        if j > 4:
+            break
+    print("out of outer loop")
+    assert j == 5
+
+f()
diff --git a/integration_tests/loop_06.py b/integration_tests/loop_06.py
new file mode 100644
index 0000000000..4b1bdfc120
--- /dev/null
+++ b/integration_tests/loop_06.py
@@ -0,0 +1,23 @@
+from lpython import i32
+from sys import exit
+
+def test_for():
+    i: i32
+    j: i32; k: i32;
+    k = 0
+    for i in range(0, 10):
+        if i == 0:
+            j = 0
+            continue
+        if i > 5:
+            k = k + i
+            break
+        if i == 3:
+            print(j, k)
+            assert j == 0
+            assert k == 0
+            quit()
+    print(j, k)
+    exit(2)
+
+test_for()
diff --git a/integration_tests/loop_07.py b/integration_tests/loop_07.py
new file mode 100644
index 0000000000..c0b045d5bb
--- /dev/null
+++ b/integration_tests/loop_07.py
@@ -0,0 +1,17 @@
+from lpython import i32
+
+def main0():
+    points: list[tuple[i32, i32]] = [(445, 193), (138, 28), (418, 279)]
+    point: tuple[i32, i32]
+    x_sum: i32 = 0
+    y_sum: i32 = 0
+    for point in points:
+        print(point)
+        x_sum += point[0]
+        y_sum += point[1]
+
+    print(x_sum, y_sum)
+    assert x_sum == 1001
+    assert y_sum == 500
+
+main0()
diff --git a/integration_tests/loop_08.py b/integration_tests/loop_08.py
new file mode 100644
index 0000000000..98ecbe2f7d
--- /dev/null
+++ b/integration_tests/loop_08.py
@@ -0,0 +1,13 @@
+from lpython import i32, Const
+
+def main0():
+    i: i32
+    n: Const[i32] = 10
+    M2: Const[i32] = 2
+    y: i32 = 0
+    for i in range(0, n, M2):  # each M2 block in A cols and B rows  # !!!!!!!!!!!!!!
+        y = y + 2
+    print(y)
+    assert(y == 10)
+
+main0()
diff --git a/integration_tests/loop_09.py b/integration_tests/loop_09.py
new file mode 100644
index 0000000000..fabe12b747
--- /dev/null
+++ b/integration_tests/loop_09.py
@@ -0,0 +1,45 @@
+def with_break_for():
+    i: i32
+    s: i32 = 0
+    for i in range(4):
+        s += i
+        break
+    else:
+        s += 10
+    assert s == 0
+
+def with_break_while():
+    i: i32 = 0
+    s: i32 = 0
+    while i < 4:
+        s += i
+        break
+    else:
+        s += 10
+    assert s == 0
+
+def no_break_for():
+    i: i32
+    s: i32 = 0
+    for i in range(2):
+        s += i
+    else:
+        s += 10
+    assert s == 11
+
+def no_break_while():
+    i: i32 = 0
+    s: i32 = 0
+    while i < 2:
+        s += i
+        i += 1
+    else:
+        s += 10
+    assert s == 11
+
+no_break_for()
+no_break_while()
+
+with_break_for()
+with_break_while()
+
diff --git a/integration_tests/loop_10.py b/integration_tests/loop_10.py
new file mode 100644
index 0000000000..6f9f0defb9
--- /dev/null
+++ b/integration_tests/loop_10.py
@@ -0,0 +1,126 @@
+def with_break_for():
+    i: i32 = 0
+    for i in range(4):
+        i += 1
+        break
+    else:
+        assert False
+
+
+def with_break_while():
+    i: i32 = 0
+    while i < 4:
+        i += 1
+        break
+    else:
+        assert False
+
+
+def no_break_for():
+    i: i32
+    j: i32 = 0
+    for i in range(2):
+        j += 1
+    else:
+        print(j)
+        assert j == 2
+        return
+    assert False
+
+def break_in_if_for():
+    i: i32
+    j: i32 = 0
+    for i in range(2):
+        j += 1
+        if i == 1:
+            break
+    else:
+        assert False
+    print(j)
+    assert j == 2
+
+def nested_loop_for_for():
+    i: i32
+    j: i32
+    m: i32 = 0
+    for i in range(2):
+        for j in range(10, 20):
+            break
+    else:
+        m = 10
+    print(m)
+    assert m == 10
+
+def nested_loop_for_while():
+    i: i32
+    j: i32 = 10
+    m: i32 = 0
+    for i in range(2):
+        while j < 20:
+            break
+    else:
+        m = 10
+    print(m)
+    assert m == 10
+
+def nested_loop_while_for():
+    i: i32 = 0
+    j: i32
+    m: i32 = 0
+    while i < 2:
+        i += 1
+        for j in range(10, 20):
+            break
+    else:
+        print(i)
+        assert i == 2
+        m = 10
+    print(m)
+    assert m == 10
+
+def nested_loop_while_while():
+    i: i32 = 0
+    j: i32 = 10
+    m: i32 = 0
+    while i < 2:
+        i += 1
+        while j < 20:
+            break
+    else:
+        print(i)
+        assert i == 2
+        m = 10
+    print(m)
+    assert m == 10
+
+def nested_loop_else():
+    i: i32
+    j: i32
+    l: i32 = 0
+    m: i32 = 0
+    for i in range(2):
+        l += 1
+        m: i32 = 0
+        for j in range(10, 12):
+            m += 1
+        else:
+            print(m)
+            assert m == 2
+            l += 10
+    else:
+        print(l)
+        assert l == 22
+        m = 10
+    print(m)
+    assert m == 10
+
+
+with_break_for()
+with_break_while()
+no_break_for()
+break_in_if_for()
+nested_loop_for_for()
+nested_loop_for_while()
+nested_loop_while_for()
+nested_loop_while_while()
+nested_loop_else()
diff --git a/integration_tests/loop_11.py b/integration_tests/loop_11.py
new file mode 100644
index 0000000000..c5db7a40a9
--- /dev/null
+++ b/integration_tests/loop_11.py
@@ -0,0 +1,42 @@
+from lpython import i32
+
+#checking for loops in the global scope 
+sum: i32 = 0
+i: i32
+for i in [1, 2, 3, 4]:
+    print(i)
+    sum += i
+print("sum = ",sum)
+assert sum == 10
+
+alphabets: str = ""
+c: str
+for c in "abcde":
+    print(c)
+    alphabets += c
+print("alphabets = ",alphabets)
+assert alphabets == "abcde"
+
+alphabets = ""
+s : str = "abcde"
+for c in s[1:4]:
+    print(c)
+    alphabets += c
+print("alphabets = ",alphabets)
+assert alphabets == "bcd"
+
+sum = 0
+num_list : list[i32] = [1, 2, 3, 4]
+for i in num_list[1:3]:
+    print(i)
+    sum += i
+print("sum = ",sum)
+assert sum == 5
+
+sum = 0
+nested_list : list[list[i32]] = [[1, 2, 3, 4]]
+for i in nested_list[0]:
+    print(i)
+    sum += i
+print("sum = ",sum)
+assert sum == 10
\ No newline at end of file
diff --git a/integration_tests/loop_12.py b/integration_tests/loop_12.py
new file mode 100644
index 0000000000..fb12c26981
--- /dev/null
+++ b/integration_tests/loop_12.py
@@ -0,0 +1,67 @@
+
+def test_for_dict_int():
+    dict_int: dict[i32, i32] = {1:2, 2:3, 3:4}
+    key: i32
+    s1: i32 = 0
+    s2: i32 = 0
+
+    for key in dict_int:
+        print(key)
+        s1 += key
+        s2 += dict_int[key]
+
+    assert s1 == 6
+    assert s2 == 9
+
+def test_for_dict_str():
+    dict_str: dict[str, str] = {"a":"b", "c":"d"}
+    key: str
+    s1: str = ""
+    s2: str = ""
+
+    for key in dict_str:
+        print(key)
+        s1 += key
+        s2 += dict_str[key]
+
+    assert (s1 == "ac" or s1 == "ca")
+    assert ((s1 == "ac" and s2 == "bd") or (s1 == "ca" and s2 == "db"))
+
+def test_for_set_int():
+    set_int: set[i32] = {1, 2, 3}
+    el: i32
+    s: i32 = 0
+
+    for el in set_int:
+        print(el)
+        s += el
+
+    assert s == 6
+
+def test_for_set_str():
+    set_str: set[str] = {'a', 'b'}
+    el: str
+    s: str = ""
+
+    for el in set_str:
+        print(el)
+        s += el
+
+    assert (s == "ab" or s == "ba")
+
+def test_nested():
+    graph: dict[i32, set[i32]] = {1: {2, 3}}
+    el: i32
+    s: i32 = 0
+    for el in graph[1]:
+        print(el)
+        s += el
+
+    assert s == 5
+        
+
+test_for_dict_int()
+test_for_set_int()
+test_for_dict_str()
+test_for_set_str()
+test_nested()
diff --git a/integration_tests/lpconvexhull/__init__.py b/integration_tests/lpconvexhull/__init__.py
new file mode 100644
index 0000000000..7744538843
--- /dev/null
+++ b/integration_tests/lpconvexhull/__init__.py
@@ -0,0 +1 @@
+from .lpconvexhull_main import convex_hull
diff --git a/integration_tests/lpconvexhull/lpconvexhull_main.py b/integration_tests/lpconvexhull/lpconvexhull_main.py
new file mode 100644
index 0000000000..7bdfa62af2
--- /dev/null
+++ b/integration_tests/lpconvexhull/lpconvexhull_main.py
@@ -0,0 +1,56 @@
+from lpython import i32
+from .utils import min, distance
+
+def orientation(p: tuple[i32, i32], q: tuple[i32, i32], r: tuple[i32, i32]) -> i32:
+    # Function to find the orientation of triplet (p, q, r)
+    # Returns the following values:
+    # 0: Colinear
+    # 1: Clockwise
+    # 2: Counterclockwise
+    value: i32 = (q[1] - p[1]) * (r[0] - q[0]) - (q[0] - p[0]) * (r[1] - q[1])
+    if value == 0:
+        return 0  # Colinear
+    elif value > 0:
+        return 1  # Clockwise
+    else:
+        return 2  # Counterclockwise
+
+
+def convex_hull(points: list[tuple[i32, i32]]) -> list[tuple[i32, i32]]:
+    """Finds the convex hull of a set of points.
+
+    Args:
+        points: A list of points.
+
+    Returns:
+        A list of points that form the convex hull.
+    """
+
+    n: i32 = len(points)
+    if n < 3:
+        return [(-1, -1)]  # Convex hull not possible
+
+    # Find the leftmost point
+    leftmost: tuple[i32, i32] = min(points)
+    hull: list[tuple[i32, i32]] = []
+
+    p: tuple[i32, i32] = leftmost
+
+    while True:
+        hull.append(p)
+        q: tuple[i32, i32] = points[0]
+
+        r: tuple[i32, i32]
+        for r in points:
+            if r == p or r == q:
+                continue
+            direction: i32 = orientation(p, q, r)
+            if direction == 1 or (direction == 0 and distance(p, r) > distance(p, q)):
+                q = r
+
+        p = q
+
+        if p == leftmost:
+            break
+
+    return hull
diff --git a/integration_tests/lpconvexhull/utils.py b/integration_tests/lpconvexhull/utils.py
new file mode 100644
index 0000000000..a414cb7fa7
--- /dev/null
+++ b/integration_tests/lpconvexhull/utils.py
@@ -0,0 +1,29 @@
+from lpython import i32, f64
+
+def min(points: list[tuple[i32, i32]]) -> tuple[i32, i32]:
+    """Finds the left-most point in a list of points.
+
+    Args:
+        points: A list of points.
+
+    Returns:
+        The left-most point in the list.
+    """
+
+    left_most_point: tuple[i32, i32] = points[0]
+    point: tuple[i32, i32]
+    for point in points:
+        if point[0] < left_most_point[0]:
+            left_most_point = point
+
+    return left_most_point
+
+
+def distance(p: tuple[i32, i32], q: tuple[i32, i32]) -> f64:
+    # Function to calculate the Euclidean distance between two points
+    x1: i32; y1: i32
+    x2: i32; y2: i32
+
+    x1, y1 = p
+    x2, y2 = q
+    return f64((x2 - x1) ** 2 + (y2 - y1) ** 2) ** 0.5
diff --git a/integration_tests/lpdraw/__init__.py b/integration_tests/lpdraw/__init__.py
new file mode 100644
index 0000000000..699214668a
--- /dev/null
+++ b/integration_tests/lpdraw/__init__.py
@@ -0,0 +1 @@
+from .draw import Pixel, Line, Circle, Display, DisplayTerminal, Clear
diff --git a/integration_tests/lpdraw/draw.py b/integration_tests/lpdraw/draw.py
new file mode 100644
index 0000000000..771d9ea7a9
--- /dev/null
+++ b/integration_tests/lpdraw/draw.py
@@ -0,0 +1,108 @@
+from lpython import i32, f64, TypeVar
+import numpy
+
+H = TypeVar("H")
+W = TypeVar("W")
+
+def Pixel(H: i32, W: i32, Screen: i32[H, W], x: i32, y: i32) -> None:
+    if x >= 0 and y >= 0 and x < W and y < H:
+        Screen[H - 1 - y, x] = 255
+
+def Clear(H: i32, W: i32, Screen: i32[H, W]):
+    i: i32
+    j: i32
+    for i in range(H):
+        for j in range(W):
+            Screen[i, j] = 0
+
+def DisplayTerminal(H: i32, W: i32, Screen: i32[H, W]):
+    i: i32
+    j: i32
+
+    print("+", end = "")
+    for i in range(W):
+        print("-", end = "")
+    print("+")
+
+    for i in range(H):
+        print("|", end = "")
+        for j in range(W):
+            if bool(Screen[i, j]):
+                print(".", end = "")
+            else:
+                print(" ", end = "")
+        print("|")
+
+    print("+", end = "")
+    for i in range(W):
+        print("-", end = "")
+    print("+")
+
+def Display(H: i32, W: i32, Screen: i32[H, W]):
+    i: i32
+    j: i32
+
+    print("P2")
+    print(W, H)
+    print(255)
+
+    for i in range(H):
+        for j in range(W):
+            print(Screen[i, j])
+
+def Line(H: i32, W: i32, Screen: i32[H, W], x1: i32, y1: i32, x2: i32, y2: i32) -> None:
+    dx: i32 = abs(x2 - x1)
+    dy: i32 = abs(y2 - y1)
+
+    sx: i32
+    sy: i32
+
+    if x1 < x2:
+        sx = 1
+    else:
+        sx = -1
+
+    if y1 < y2:
+        sy = 1
+    else:
+        sy = -1
+
+    err: i32 = dx - dy
+
+    while x1 != x2 or y1 != y2:
+        Pixel(H, W, Screen, x1, y1)
+        e2: i32 = 2 * err
+
+        if e2 > -dy:
+            err -= dy
+            x1 += sx
+
+        if x1 == x2 and y1 == y2:
+            Pixel(H, W, Screen, x1, y1)
+            break
+
+        if e2 < dx:
+            err += dx
+            y1 += sy
+
+def Circle(H: i32, W: i32, Screen: i32[H, W], x: i32, y: i32, r: f64) -> None:
+    x0: i32 = i32(r)
+    y0: i32 = 0
+    err: i32 = 0
+
+    while x0 >= y0:
+        Pixel(H, W, Screen, x + x0, y + y0)
+        Pixel(H, W, Screen, x - x0, y + y0)
+        Pixel(H, W, Screen, x + x0, y - y0)
+        Pixel(H, W, Screen, x - x0, y - y0)
+        Pixel(H, W, Screen, x + y0, y + x0)
+        Pixel(H, W, Screen, x - y0, y + x0)
+        Pixel(H, W, Screen, x + y0, y - x0)
+        Pixel(H, W, Screen, x - y0, y - x0)
+
+        if err <= 0:
+            y0 += 1
+            err += 2 * y0 + 1
+        if err > 0:
+            x0 -= 1
+            err -= 2 * x0 + 1
diff --git a/integration_tests/lpython_decorator_01.py b/integration_tests/lpython_decorator_01.py
new file mode 100644
index 0000000000..65b1082c86
--- /dev/null
+++ b/integration_tests/lpython_decorator_01.py
@@ -0,0 +1,16 @@
+from numpy import array
+from lpython import i32, f64, lpython
+
+@lpython(backend="c", backend_optimisation_flags=["-ffast-math", "-funroll-loops", "-O3"])
+def fast_sum(n: i32, x: f64[:]) -> f64:
+    s: f64 = 0.0
+    i: i32
+    for i in range(n):
+        s += x[i]
+    return s
+
+def test():
+    x: f64[3] = array([1.0, 2.0, 3.0])
+    assert fast_sum(3, x) == 6.0
+
+test()
diff --git a/integration_tests/lpython_decorator_02.py b/integration_tests/lpython_decorator_02.py
new file mode 100644
index 0000000000..31cb14c6ba
--- /dev/null
+++ b/integration_tests/lpython_decorator_02.py
@@ -0,0 +1,39 @@
+from numpy import array
+from lpython import i32, i64, f64, lpython, TypeVar, Const
+
+n = TypeVar("n")
+
+@lpython(backend="c", backend_optimisation_flags=["-ffast-math", "-funroll-loops"])
+def multiply_01(n: i32, x: f64[:]) -> f64[n]:
+    i: i32
+    for i in range(n):
+        x[i] *= 5.0
+    return x
+
+@lpython
+def multiply_02(n: i32, x: i64[:], y: i64[:]) -> i64[n]:
+    z: i64[n]; i: i32
+    for i in range(n):
+        z[i] = x[i] * y[i]
+    return z
+
+@lpython
+def const_arg_sum(x: Const[i32]) -> i32:
+    return 10 + x
+
+
+def test_01():
+    size = 5
+    x = array([11.0, 12.0, 13.0, 14.0, 15.0])
+    y = multiply_01(size, x)
+    assert y[2] == 65.
+
+    size = 3
+    x = array([11, 12, 13])
+    y = array([14, 15, 16])
+    z = multiply_02(size, x, y)
+    for i in range(size):
+        assert z[i] == x[i] * y[i]
+    assert const_arg_sum(size) == size + 10
+
+test_01()
diff --git a/integration_tests/lpython_emulation_01.py b/integration_tests/lpython_emulation_01.py
new file mode 100644
index 0000000000..29b6c4a6e5
--- /dev/null
+++ b/integration_tests/lpython_emulation_01.py
@@ -0,0 +1,21 @@
+import lpython_emulation_01_mod
+import lpython
+from lpython import ccall, i64
+from types import FunctionType
+lpython.CTypes.emulations = {k: v for k, v in \
+        lpython_emulation_01_mod.__dict__.items() \
+        if isinstance(v, FunctionType)}
+
+@ccall
+def f1(a: i64) -> i64:
+    pass
+
+@ccall
+def f2(a: i64):
+    pass
+
+def main():
+    assert f1(2) == 3
+    f2(4)
+
+main()
diff --git a/integration_tests/lpython_emulation_01_mod.py b/integration_tests/lpython_emulation_01_mod.py
new file mode 100644
index 0000000000..3a12ea4c5d
--- /dev/null
+++ b/integration_tests/lpython_emulation_01_mod.py
@@ -0,0 +1,7 @@
+from lpython import i64
+
+def f1(a: i64) -> i64:
+    return a + 1
+
+def f2(a: i64):
+    assert a == 4
diff --git a/integration_tests/modules_01.py b/integration_tests/modules_01.py
index 5b70e2d23c..96a0cfb10e 100644
--- a/integration_tests/modules_01.py
+++ b/integration_tests/modules_01.py
@@ -1,4 +1,5 @@
 from modules_01b import f #, g
+from lpython import i32
 
 def main0():
     x: i32
diff --git a/integration_tests/modules_02.py b/integration_tests/modules_02.py
index 690070701e..ccafc3e905 100644
--- a/integration_tests/modules_02.py
+++ b/integration_tests/modules_02.py
@@ -1,4 +1,5 @@
 from modules_02b import f
+from lpython import i32
 
 def main0():
     x: i32
diff --git a/integration_tests/nrp/__init__.py b/integration_tests/nrp/__init__.py
new file mode 100644
index 0000000000..f5631d2af1
--- /dev/null
+++ b/integration_tests/nrp/__init__.py
@@ -0,0 +1 @@
+from .nr import newton_raphson
diff --git a/integration_tests/nrp/nr.py b/integration_tests/nrp/nr.py
new file mode 100644
index 0000000000..37c33a6905
--- /dev/null
+++ b/integration_tests/nrp/nr.py
@@ -0,0 +1,20 @@
+from lpython import i32, f64
+
+
+def func(x: f64, c: f64) -> f64:
+    return x**2.0 - c**2.0
+
+
+def func_prime(x: f64) -> f64:
+    return 2.0*x
+
+
+def newton_raphson(x: f64, c: f64, maxiter: i32) -> f64:
+    h: f64
+    err: f64 = 1e-5
+    i: i32 = 0
+    while abs(func(x, c)) > err and i < maxiter:
+        h = func(x, c) /  func_prime(x)
+        x -= h
+        i += 1
+    return x
diff --git a/integration_tests/overload_testing.py b/integration_tests/overload_testing.py
index 5fa06f88f0..d7cf1cd96c 100644
--- a/integration_tests/overload_testing.py
+++ b/integration_tests/overload_testing.py
@@ -1,4 +1,4 @@
-from ltypes import i32, overload
+from lpython import i32, overload
 
 @overload
 def foo(a: i32, b: i32) -> i32:
diff --git a/integration_tests/overload_testing2.py b/integration_tests/overload_testing2.py
index 84ed4d0a4c..c01ae9f6a9 100644
--- a/integration_tests/overload_testing2.py
+++ b/integration_tests/overload_testing2.py
@@ -1,4 +1,4 @@
-from ltypes import i32, overload
+from lpython import i32, overload
 
 @overload
 def foo2(a: i32, b: i32) -> i32:
diff --git a/integration_tests/print_02.py b/integration_tests/print_02.py
index d87009c59c..5b53eac8f8 100644
--- a/integration_tests/print_02.py
+++ b/integration_tests/print_02.py
@@ -1,4 +1,4 @@
-from ltypes import i32, f64
+from lpython import i32, f64
 
 # Test: Printing ListConstant
 def f():
diff --git a/integration_tests/print_04.py b/integration_tests/print_04.py
index b6a7cc4766..b66175cefc 100644
--- a/integration_tests/print_04.py
+++ b/integration_tests/print_04.py
@@ -1,4 +1,4 @@
-from ltypes import i8, i16, i32, i64
+from lpython import i8, i16, i32, i64
 
 u: i64 = i64(-922337203685477580)
 print(u)
diff --git a/integration_tests/print_06.py b/integration_tests/print_06.py
new file mode 100644
index 0000000000..e3f05cf7f8
--- /dev/null
+++ b/integration_tests/print_06.py
@@ -0,0 +1,26 @@
+def main0():
+    a: i32 = 1
+    b: str = "abc"
+    c: list[i32] = [1, 2]
+    d: list[i32] = [3, 4]
+    e: tuple[i32, i32, i32] = (1, 2, 3)
+    f: tuple[i32, i32] = (4, 5)
+    print(a, b, c)
+    print(a, c, b)
+    print(c, a, b)
+    print(a, b, c, sep = "pqr")
+    print(a, c, b, sep = "pqr")
+    print(c, a, b, sep = "pqr")
+    print(a, b, c, end = "xyz\n")
+    print(a, c, b, end = "xyz\n")
+    print(c, a, b, end = "xyz\n")
+    print(a, b, c, sep = "pqr", end = "xyz\n")
+    print(a, c, b, sep = "pqr", end = "xyz\n")
+    print(c, a, b, sep = "pqr", end = "xyz\n")
+    # Tring out few cases with Lists and Tuples together
+    print(c, e)
+    print(c, d, a, sep = "pqr")
+    print(c, e, d, end = "xyz\n")
+    print(c, e, d, f, sep = "pqr", end = "xyz\n")
+
+main0()
\ No newline at end of file
diff --git a/integration_tests/print_float.py b/integration_tests/print_float.py
index bd43c93b99..66ccb3878b 100644
--- a/integration_tests/print_float.py
+++ b/integration_tests/print_float.py
@@ -1,4 +1,4 @@
-from ltypes import f64
+from lpython import f64
 
 def main0():
     x: f64 = 0.00012
diff --git a/integration_tests/print_list_tuple.py b/integration_tests/print_list_tuple.py
deleted file mode 100644
index c78bacd994..0000000000
--- a/integration_tests/print_list_tuple.py
+++ /dev/null
@@ -1,23 +0,0 @@
-from ltypes import f64, i32, c64
-
-
-def test_print_list():
-    a: list[str] = ["ab", "abc", "abcd"]
-    b: list[i32] = [1, 2, 3, 4]
-    c: list[f64] = [1.23 , 324.3 , 56.431, 90.5, 34.1]
-    d: list[i32] = []
-
-    print(a, b)
-    print(c)
-    print(d)
-
-    x: tuple[i32, str, i32] = (12, 'lpython', 32)
-    y: tuple[i32, str, str, i32] = (1, 'test', 'tuple', 3)
-    z: tuple[f64, f64, i32, bool] = (4.3, 6.45, 8, True)
-    t: tuple[i32, f64, str, c64]
-    t = (500, 240.02, 'complex-test', complex(42.0, 1.0))
-
-    print(x, y, z, t)
-
-
-test_print_list()
diff --git a/integration_tests/print_list_tuple_01.py b/integration_tests/print_list_tuple_01.py
new file mode 100644
index 0000000000..2c599d9c0a
--- /dev/null
+++ b/integration_tests/print_list_tuple_01.py
@@ -0,0 +1,36 @@
+from lpython import f64, i32, c64, InOut
+
+
+def test_print_list():
+    a: list[str] = ["ab", "abc", "abcd"]
+    b: list[i32] = [1, 2, 3, 4]
+    c: list[f64] = [1.23 , 324.3 , 56.431, 90.5, 34.1]
+    d: list[i32] = []
+
+    print(a, b)
+    print(c)
+    print(d)
+
+    x: tuple[i32, str, i32] = (12, 'lpython', 32)
+    y: tuple[i32, str, str, i32] = (1, 'test', 'tuple', 3)
+    z: tuple[f64, f64, i32, bool] = (4.3, 6.45, 8, True)
+    t: tuple[i32, f64, str, c64]
+    t = (500, 240.02, 'complex-test', complex(42.0, 1.0))
+
+    print(x, y, z, t)
+
+
+def f(y: InOut[list[i32]]) -> list[i32]:
+    y.append(4)
+    return y
+
+def g():
+    print(f([1,2,3]))
+
+
+def check():
+    g()
+    test_print_list()
+
+
+check()
diff --git a/integration_tests/print_list_tuple_02.py b/integration_tests/print_list_tuple_02.py
new file mode 100644
index 0000000000..57666c50e5
--- /dev/null
+++ b/integration_tests/print_list_tuple_02.py
@@ -0,0 +1,63 @@
+from lpython import i32, f64, InOut
+
+def insert_tuples_into_list(l: InOut[list[tuple[i32, f64, str]]], size: i32) -> list[tuple[i32, f64, str]]:
+    i: i32
+    string: str
+    t: tuple[i32, f64, str]
+
+    for i in range(size//2, size):
+        string  = str(i) + "_str"
+        t = (i, float(i), string)
+        l.insert(i, t)
+
+    return l
+
+def fill_list_of_tuples(size: i32) -> list[tuple[i32, f64, str]]:
+    l1: list[tuple[i32, f64, str]] = []
+    t: tuple[i32, f64, str]
+    i: i32
+
+    for i in range(size):
+        t = (i, float(i), str(i) + "_str")
+        l1.append(t)
+
+    return l1
+
+def test_print_list_of_tuples():
+    l1: list[tuple[i32, f64, str]] = []
+    t: tuple[i32, f64, str]
+    size: i32 = 20
+    i: i32
+    string: str
+
+    l1 = fill_list_of_tuples(size)
+
+    print(l1)
+
+    for i in range(size//2):
+        l1.remove(l1[len(l1) - 1])
+
+    t = l1[len(l1) - 1]
+    assert t[0] == size//2 - 1
+    assert (t[1] - f64(size//2 - 1)) < 1e-10
+    assert t[2] == str(size//2 - 1) + "_str"
+
+    l1 = insert_tuples_into_list(l1, size)
+
+    print(l1)
+
+    for i in range(size):
+        string  = str(-i) + "_str"
+        t = (-i, float(-i), string)
+        l1[i] = t
+
+    print(l1)
+
+def test_print_tuple():
+    x: tuple[i32, str] = (3, "hiyo")
+    y: tuple[str, str, str, i32, f64] = ("firstname", "middlename", "last name", -55, 3.14)
+    print(x)
+    print(y)
+
+test_print_tuple()
+test_print_list_of_tuples()
diff --git a/integration_tests/print_list_tuple_03.py b/integration_tests/print_list_tuple_03.py
new file mode 100644
index 0000000000..25006696dd
--- /dev/null
+++ b/integration_tests/print_list_tuple_03.py
@@ -0,0 +1,11 @@
+from lpython import i32
+
+def f():
+    # issue 1862
+    x: dict[i32, tuple[i32, i32]]
+    x = {1: (1, 2), 2: (3, 4)}
+    y: dict[i32, list[i32]]
+    y = {1: [1, 2], 2: [3, 4]}
+    print(x[1], x[2], y[1])
+
+f()
diff --git a/integration_tests/recursive_01.py b/integration_tests/recursive_01.py
index 9800bc4f26..b739255654 100644
--- a/integration_tests/recursive_01.py
+++ b/integration_tests/recursive_01.py
@@ -1,4 +1,4 @@
-from ltypes import i32
+from lpython import i32
 
 def fib(n: i32) -> i32:
     if n <= 1:
diff --git a/integration_tests/run_tests.py b/integration_tests/run_tests.py
index af4b1b725a..e5df7cf909 100755
--- a/integration_tests/run_tests.py
+++ b/integration_tests/run_tests.py
@@ -6,10 +6,12 @@
 
 # Initialization
 DEFAULT_THREADS_TO_USE = 8 # default no of threads is 8
-SUPPORTED_BACKENDS = ['llvm', 'c', 'wasm', 'cpython', 'x86', 'wasm_x86', 'wasm_x64']
+SUPPORTED_BACKENDS = ['llvm', 'c', 'wasm', 'cpython', 'x86', 'wasm_x86', 'wasm_x64', 'c_py', 'c_sym', 'cpython_sym', 'llvm_sym', 'llvm_py', 'llvm_jit']
 BASE_DIR = os.path.dirname(os.path.realpath(__file__))
 LPYTHON_PATH = f"{BASE_DIR}/../src/bin"
 
+fast_tests = "no"
+python_libs_req = "no"
 
 def run_cmd(cmd, cwd=None):
     print(f"+ {cmd}")
@@ -22,8 +24,8 @@ def run_cmd(cmd, cwd=None):
 def run_test(backend):
     run_cmd(f"mkdir {BASE_DIR}/_lpython-tmp-test-{backend}", cwd=BASE_DIR)
     cwd = f"{BASE_DIR}/_lpython-tmp-test-{backend}"
-    run_cmd(f"cmake -DKIND={backend} ..", cwd=cwd)
-    run_cmd(f"make -j{DEFAULT_THREADS_TO_USE}", cwd=cwd)
+    run_cmd(f"cmake -DKIND={backend} -DFAST={fast_tests} -DPYTHON_LIBS_REQ={python_libs_req} ..", cwd=cwd)
+    run_cmd(f"cmake --build . --parallel {DEFAULT_THREADS_TO_USE}", cwd=cwd)
     run_cmd(f"ctest -j{DEFAULT_THREADS_TO_USE} --output-on-failure",
             cwd=cwd)
 
@@ -40,8 +42,10 @@ def get_args():
     parser.add_argument("-j", "-n", "--no_of_threads", type=int,
                 help="Parallel testing on given number of threads")
     parser.add_argument("-b", "--backends", nargs="*", default=["llvm", "cpython"],
-                type=str, help="Test the requested backends (%s)" % \
+                type=str, help="Test the requested backends (%s), default: llvm, cpython" % \
                         ", ".join(SUPPORTED_BACKENDS))
+    parser.add_argument("-f", "--fast", action='store_true',
+                help="Run supported tests with --fast")
     return parser.parse_args()
 
 
@@ -49,14 +53,16 @@ def main():
     args = get_args()
 
     # Setup
-    global DEFAULT_THREADS_TO_USE
+    global DEFAULT_THREADS_TO_USE, fast_tests, python_libs_req
     os.environ["PATH"] = LPYTHON_PATH + os.pathsep + os.environ["PATH"]
     # delete previously created directories (if any)
     for backend in SUPPORTED_BACKENDS:
         run_cmd(f"rm -rf {BASE_DIR}/_lpython-tmp-test-{backend}")
 
     DEFAULT_THREADS_TO_USE = args.no_of_threads or DEFAULT_THREADS_TO_USE
+    fast_tests = "yes" if args.fast else "no"
     for backend in args.backends:
+        python_libs_req = "yes" if backend in ["cpython", "c_py", "c_sym", "llvm_sym", 'llvm_py', 'llvm_jit'] else "no"
         test_backend(backend)
 
 
diff --git a/integration_tests/sizeof_01.py b/integration_tests/sizeof_01.py
index 10aae4437a..d6c042b50c 100644
--- a/integration_tests/sizeof_01.py
+++ b/integration_tests/sizeof_01.py
@@ -1,4 +1,4 @@
-from ltypes import sizeof, i64, i32, f32, f64, c32, c64, i16, ccall, CPtr
+from lpython import sizeof, i64, i32, f32, f64, c32, c64, i16, ccall, CPtr
 
 @ccall
 def cmalloc(bytes: i64) -> CPtr:
diff --git a/integration_tests/sizeof_02.py b/integration_tests/sizeof_02.py
new file mode 100644
index 0000000000..40d34af64c
--- /dev/null
+++ b/integration_tests/sizeof_02.py
@@ -0,0 +1,10 @@
+from sizeof_02_module import A
+from lpython import i64, sizeof
+
+def get_sizeof() -> i64:
+    return sizeof(A)
+
+def test():
+    print(get_sizeof())
+
+test()
diff --git a/integration_tests/sizeof_02_module.py b/integration_tests/sizeof_02_module.py
new file mode 100644
index 0000000000..19aeb73705
--- /dev/null
+++ b/integration_tests/sizeof_02_module.py
@@ -0,0 +1,6 @@
+from lpython import i32, f32, dataclass
+
+@dataclass
+class A:
+    x: i32
+    y: f32
diff --git a/integration_tests/str_to_list_cast.py b/integration_tests/str_to_list_cast.py
index 49db437d69..cff65fcce2 100644
--- a/integration_tests/str_to_list_cast.py
+++ b/integration_tests/str_to_list_cast.py
@@ -1,3 +1,5 @@
+from lpython import i32
+
 def f():
     x: list[str]
     x = list("lpython")
diff --git a/integration_tests/structs_01.py b/integration_tests/structs_01.py
index cbf943867c..7ad860f5f2 100644
--- a/integration_tests/structs_01.py
+++ b/integration_tests/structs_01.py
@@ -1,4 +1,4 @@
-from ltypes import i32, f32, f64, dataclass
+from lpython import i32, f32, f64, dataclass, InOut
 
 @dataclass
 class A:
@@ -9,13 +9,12 @@ def f(a: A):
     print(a.x)
     print(a.y)
 
-def change_struct(a: A):
+def change_struct(a: InOut[A]):
     a.x = a.x + 1
     a.y = a.y + f32(1)
 
 def g():
-    x: A
-    x = A(f32(3.25), 3)
+    x: A = A(f32(3.25), 3)
     f(x)
     assert x.x == 3
     assert f64(x.y) == 3.25
diff --git a/integration_tests/structs_02.py b/integration_tests/structs_02.py
index 56a6a5217f..0e99458c34 100644
--- a/integration_tests/structs_02.py
+++ b/integration_tests/structs_02.py
@@ -1,4 +1,4 @@
-from ltypes import i32, f32, dataclass, CPtr, Pointer, c_p_pointer, pointer, ccallable, empty_c_void_p, f64
+from lpython import i32, f32, dataclass, CPtr, Pointer, c_p_pointer, pointer, ccallable, empty_c_void_p, f64
 
 @dataclass
 class A:
@@ -9,17 +9,14 @@ class A:
 def f(a: CPtr) -> None:
     x: i32
     y: f32
-    a1: A
+    a1: A = A(3, f32(3.25))
     a2: Pointer[A]
-    a1 = A(3, f32(3.25))
     a2 = pointer(a1)
     print(a2, pointer(a1))
     x = a2.x
     y = a2.y
     assert x == 3
     assert f64(y) == 3.25
-    a2 = c_p_pointer(a, A)
-    print(a, a2, pointer(a1))
 
 def g():
     b: CPtr = empty_c_void_p()
diff --git a/integration_tests/structs_02b.py b/integration_tests/structs_02b.py
new file mode 100644
index 0000000000..ed061ff6ce
--- /dev/null
+++ b/integration_tests/structs_02b.py
@@ -0,0 +1,43 @@
+from lpython import (i32, f32, dataclass, CPtr, Pointer, c_p_pointer, pointer,
+        ccallable, empty_c_void_p, f64, ccall, sizeof, i64)
+
+@ccall
+def _lfortran_malloc(size: i32) -> CPtr:
+    pass
+
+def alloc(buf_size:i64) -> CPtr:
+    return _lfortran_malloc(i32(buf_size))
+
+@ccallable
+@dataclass
+class A:
+    x: i32
+    y: f32
+
+@ccallable
+def f(a: CPtr) -> None:
+    x: i32
+    y: f32
+    a1: A = A(3, f32(3.25))
+    a2: Pointer[A]
+    a2 = pointer(a1)
+    print(a2, pointer(a1))
+    # TODO: does not work:
+    #x = a2.x
+    #y = a2.y
+    #assert x == 3
+    #assert f64(y) == 3.25
+    a2 = c_p_pointer(a, A)
+    print(a, a2, pointer(a1))
+    print(a2.x, a2.y)
+    assert a2.x == 5
+    assert a2.y == f32(6.0)
+
+def g():
+    b: CPtr = alloc(sizeof(A))
+    b2: Pointer[A] = c_p_pointer(b, A)
+    b2.x = 5
+    b2.y = f32(6)
+    f(b)
+
+g()
diff --git a/integration_tests/structs_03.py b/integration_tests/structs_03.py
index de92f83167..aa5e3214e2 100644
--- a/integration_tests/structs_03.py
+++ b/integration_tests/structs_03.py
@@ -1,4 +1,4 @@
-from ltypes import i32, f32, f64, dataclass, Pointer, pointer
+from lpython import i32, f32, f64, dataclass, Pointer, pointer
 
 @dataclass
 class A:
diff --git a/integration_tests/structs_04.py b/integration_tests/structs_04.py
index ab3555b143..b1a1ad4307 100644
--- a/integration_tests/structs_04.py
+++ b/integration_tests/structs_04.py
@@ -1,4 +1,4 @@
-from ltypes import i32, f32, f64, dataclass
+from lpython import i32, f32, f64, dataclass, field
 from copy import deepcopy
 
 @dataclass
@@ -8,8 +8,8 @@ class A:
 
 @dataclass
 class B:
-    a: A
     z: i32
+    a: A = field(default_factory=lambda: A(f32(0.0), 0))
 
 def f(b: B):
     print(b.z, b.a.x, b.a.y)
@@ -20,7 +20,7 @@ def f(b: B):
 def g():
     a1: A = A(f32(1.0), 1)
     a2: A = A(f32(2.0), 2)
-    b: B = B(a1, 1)
+    b: B = B(1, a1)
     b.a = deepcopy(a2)
     b.z = 1
     b.a.x = 2
diff --git a/integration_tests/structs_05.py b/integration_tests/structs_05.py
index 233aa8190c..6ae6262ac7 100644
--- a/integration_tests/structs_05.py
+++ b/integration_tests/structs_05.py
@@ -1,4 +1,5 @@
-from ltypes import i32, f64, i64, i16, i8, f32, dataclass
+from lpython import i32, f64, i64, i16, i8, f32, dataclass, InOut, Array
+from numpy import empty
 
 @dataclass
 class A:
@@ -10,7 +11,7 @@ class A:
     c: i8
     d: bool
 
-def verify(s: A[:], x1: i32, y1: f64, x2: i32, y2: f64):
+def verify(s: Array[A, :], x1: i32, y1: f64, x2: i32, y2: f64):
     eps: f64 = 1e-12
     s0: A = s[0]
     print(s0.x, s0.y, s0.z, s0.a, s0.b, s0.c, s0.d)
@@ -32,7 +33,7 @@ def verify(s: A[:], x1: i32, y1: f64, x2: i32, y2: f64):
     assert s1.c == i8(x2)
     assert s1.d
 
-def update_1(s: A):
+def update_1(s: InOut[A]):
     s.x = 2
     s.y = 1.2
     s.z = i64(2)
@@ -40,7 +41,7 @@ def update_1(s: A):
     s.b = i16(2)
     s.c = i8(2)
 
-def update_2(s: A[:]):
+def update_2(s: Array[A, :]):
     s[1].x = 3
     s[1].y = 2.3
     s[1].z = i64(3)
@@ -49,9 +50,7 @@ def update_2(s: A[:]):
     s[1].c = i8(3)
 
 def g():
-    # TODO: Replace y: A[2] with y: A[2] = [None, None]
-    # TODO: And enable cpython in integration_tests.
-    y: A[2]
+    y: Array[A, 2] = empty([2], dtype=A)
     y[0] = A(1.1, 1, i64(1), f32(1.1), i16(1), i8(1), True)
     y[1] = A(2.2, 2, i64(2), f32(2.2), i16(2), i8(2), True)
     verify(y, 1, 1.1, 2, 2.2)
diff --git a/integration_tests/structs_06.py b/integration_tests/structs_06.py
index 74a928a4ac..f82e026cdb 100644
--- a/integration_tests/structs_06.py
+++ b/integration_tests/structs_06.py
@@ -1,4 +1,4 @@
-from ltypes import i8, i32, i64, i8, i8, dataclass, packed
+from lpython import i8, i32, i64, i8, i8, dataclass, packed
 
 @packed(aligned=1)
 @dataclass
diff --git a/integration_tests/structs_07.py b/integration_tests/structs_07.py
index 7d124ffb2e..3d0508ab3a 100644
--- a/integration_tests/structs_07.py
+++ b/integration_tests/structs_07.py
@@ -1,4 +1,4 @@
-from ltypes import i32, i64, i8, CPtr, sizeof, dataclass, ccall
+from lpython import i32, i64, i8, CPtr, sizeof, dataclass, ccall
 
 @dataclass
 class A:
diff --git a/integration_tests/structs_08.py b/integration_tests/structs_08.py
index ba13e3e2db..0085334584 100644
--- a/integration_tests/structs_08.py
+++ b/integration_tests/structs_08.py
@@ -1,4 +1,4 @@
-from ltypes import i32, i64, dataclass, union, Union
+from lpython import i32, i64, dataclass, union, Union
 from enum import Enum
 
 @union
diff --git a/integration_tests/structs_09.py b/integration_tests/structs_09.py
index ceff0277d5..9ba7139cbc 100644
--- a/integration_tests/structs_09.py
+++ b/integration_tests/structs_09.py
@@ -1,4 +1,4 @@
-from ltypes import i32, f32, f64, dataclass
+from lpython import i32, f32, f64, dataclass, field
 
 @dataclass
 class C:
@@ -7,13 +7,13 @@ class C:
 @dataclass
 class B:
     z: i32
-    bc: C
+    bc: C = field(default_factory=lambda: C(f32(0.0)))
 
 @dataclass
 class A:
     y: f32
     x: i32
-    b: B
+    b: B = field(default_factory=lambda: B(0, C(f32(0.0))))
 
 
 def f(a: A):
@@ -22,8 +22,7 @@ def f(a: A):
     print(a.b.z)
 
 def g():
-    x: A
-    x = A(f32(3.25), 3, B(71, C(f32(4.0))))
+    x: A = A(f32(3.25), 3, B(71, C(f32(4.0))))
     f(x)
     assert x.x == 3
     assert f64(x.y) == 3.25
diff --git a/integration_tests/structs_10.py b/integration_tests/structs_10.py
index bab2800e61..db067ed825 100644
--- a/integration_tests/structs_10.py
+++ b/integration_tests/structs_10.py
@@ -1,18 +1,18 @@
-from ltypes import i32, f64, dataclass
+from lpython import i32, f64, dataclass, field
 from numpy import empty, float64
 
 @dataclass
 class Mat:
-    mat: f64[2, 2]
+    mat: f64[2, 2] = field(default_factory=lambda: empty((2, 2), dtype=float64))
 
 @dataclass
 class Vec:
-    vec: f64[2]
+    vec: f64[2] = field(default_factory=lambda: empty(2, dtype=float64))
 
 @dataclass
 class MatVec:
-    mat: Mat
-    vec: Vec
+    mat: Mat = field(default_factory=lambda: Mat())
+    vec: Vec = field(default_factory=lambda: Vec())
 
 def rotate(mat_vec: MatVec) -> f64[2]:
     rotated_vec: f64[2] = empty(2, dtype=float64)
diff --git a/integration_tests/structs_11.py b/integration_tests/structs_11.py
index 4fc71e595e..1eea62eb75 100644
--- a/integration_tests/structs_11.py
+++ b/integration_tests/structs_11.py
@@ -1,4 +1,4 @@
-from ltypes import i32, f64, dataclass
+from lpython import i32, f64, dataclass
 
 @dataclass
 class A:
diff --git a/integration_tests/structs_12.py b/integration_tests/structs_12.py
index cb48e11125..c7a2cfb715 100644
--- a/integration_tests/structs_12.py
+++ b/integration_tests/structs_12.py
@@ -1,4 +1,4 @@
-from ltypes import i32, i16, dataclass
+from lpython import i32, i16, dataclass
 
 @dataclass
 class A:
diff --git a/integration_tests/structs_13.py b/integration_tests/structs_13.py
index 4a7bb51f32..9806fa1ac9 100644
--- a/integration_tests/structs_13.py
+++ b/integration_tests/structs_13.py
@@ -1,5 +1,8 @@
-from ltypes import i32, i16, i64, CPtr, dataclass, ccall, Pointer, c_p_pointer, sizeof
+from lpython import (i32, i16, i64, CPtr, dataclass, ccall, Pointer,
+        c_p_pointer, sizeof, ccallable)
+from numpy import array
 
+@ccallable
 @dataclass
 class A:
     x: i32
@@ -23,7 +26,7 @@ def add_Aptr_members(Ax: i32, Ay: i16) -> i32:
 def test_A_member_passing():
     array_cptr: CPtr = cmalloc(sizeof(A) * i64(10))
     assert not bool(is_null(array_cptr)), "Failed to allocate array on memory"
-    array_ptr: Pointer[A[:]] = c_p_pointer(array_cptr, A[:])
+    array_ptr: Pointer[A[:]] = c_p_pointer(array_cptr, A[:], array([10]))
     i: i32; sum_A_members: i32
     for i in range(10):
         array_ptr[i] = A(i, i16(i + 1))
diff --git a/integration_tests/structs_14.py b/integration_tests/structs_14.py
index 05e399758e..911ebc2094 100644
--- a/integration_tests/structs_14.py
+++ b/integration_tests/structs_14.py
@@ -1,4 +1,4 @@
-from ltypes import i8, dataclass, i32, f32, c32, f64, i16, i64, c64, ccallable, packed
+from lpython import i8, dataclass, i32, f32, c32, f64, i16, i64, c64, ccallable, packed
 from numpy import empty, int8, int16, int32, int64, float32, complex64, complex128, float64
 from copy import deepcopy
 
@@ -71,7 +71,7 @@ def f():
         buffer_.buffer3[i] = c32(i + 7)
         # buffer_clink_.buffer3 is a ctypes.Array
         # of type c_float_complex (a ctypes.Structure
-        # defined in ltypes.py) and c32(i + 8) is a
+        # defined in lpython.py) and c32(i + 8) is a
         # Python object. Python doesn't allow assigning
         # a Python object to ctypes.Structure. Hence,
         # the following line is commented out.
diff --git a/integration_tests/structs_15.py b/integration_tests/structs_15.py
index a7e9fc9c88..7341d42d60 100644
--- a/integration_tests/structs_15.py
+++ b/integration_tests/structs_15.py
@@ -1,5 +1,6 @@
-from ltypes import i32, i16, i8, i64, CPtr, dataclass, ccall, Pointer, c_p_pointer, sizeof
+from lpython import i32, i16, i8, CPtr, dataclass, ccall, Pointer, c_p_pointer, sizeof, ccallable
 
+@ccallable
 @dataclass
 class A:
     x: i16
diff --git a/integration_tests/structs_16.py b/integration_tests/structs_16.py
index 1cb49e8e3f..6cf6e638d5 100644
--- a/integration_tests/structs_16.py
+++ b/integration_tests/structs_16.py
@@ -1,4 +1,4 @@
-from ltypes import i32, i64, dataclass, union, Union
+from lpython import i32, i64, dataclass, union, Union
 
 @dataclass
 class A:
diff --git a/integration_tests/structs_17.py b/integration_tests/structs_17.py
index 10d9717451..30042f68f7 100644
--- a/integration_tests/structs_17.py
+++ b/integration_tests/structs_17.py
@@ -1,4 +1,4 @@
-from ltypes import i32, f32, f64, dataclass
+from lpython import i32, f32, f64, dataclass, field
 
 @dataclass
 class B:
@@ -6,13 +6,13 @@ class B:
     @dataclass
     class C:
         cz: f32
-    bc: C
+    bc: C = field(default_factory=lambda: C(f32(0.0)))
 
 @dataclass
 class A:
     y: f32
     x: i32
-    b: B
+    b: B = field(default_factory=lambda: B(0, B.C(f32(0.0))))
 
 
 def f(a: A):
diff --git a/integration_tests/structs_18.py b/integration_tests/structs_18.py
index 45ba10d1b5..d6a5fbd66b 100644
--- a/integration_tests/structs_18.py
+++ b/integration_tests/structs_18.py
@@ -1,4 +1,4 @@
-from ltypes import i8, dataclass, i32, f32, c32, f64, i16, i64, c64, ccallable, packed, ccall, CPtr, p_c_pointer, empty_c_void_p, pointer
+from lpython import i8, dataclass, i32, f32, c32, f64, i16, i64, c64, ccallable, packed, ccall, CPtr, p_c_pointer, empty_c_void_p, pointer
 from numpy import empty, int8, int16, int32, int64, float32, complex64, complex128, float64
 from copy import deepcopy
 
diff --git a/integration_tests/structs_19.py b/integration_tests/structs_19.py
index ac34ebf0a4..1ae675eb81 100644
--- a/integration_tests/structs_19.py
+++ b/integration_tests/structs_19.py
@@ -1,4 +1,4 @@
-from ltypes import (i8, dataclass, i32, f32, c32, f64, i16, i64, c64,
+from lpython import (i8, dataclass, i32, f32, c32, f64, i16, i64, c64,
     ccall, CPtr, c_p_pointer, Pointer, ccallable)
 from numpy import empty, int32, int8, float32, float64, int16, int64, complex64, complex128
 
diff --git a/integration_tests/structs_20.py b/integration_tests/structs_20.py
index 6270416cf1..0b26bb6398 100644
--- a/integration_tests/structs_20.py
+++ b/integration_tests/structs_20.py
@@ -1,4 +1,4 @@
-from ltypes import (i8, dataclass, i32, f32, c32, f64, i16, i64, c64,
+from lpython import (i8, dataclass, i32, f32, c32, f64, i16, i64, c64,
     ccall, CPtr, c_p_pointer, Pointer, packed, ccallable)
 from numpy import empty, int8, int16, float32, complex64
 
diff --git a/integration_tests/structs_21.py b/integration_tests/structs_21.py
index f8d3b4cfc7..26d83aee39 100644
--- a/integration_tests/structs_21.py
+++ b/integration_tests/structs_21.py
@@ -1,4 +1,4 @@
-from ltypes import i32, CPtr, dataclass, c_p_pointer, p_c_pointer, \
+from lpython import i32, CPtr, dataclass, c_p_pointer, p_c_pointer, \
          pointer, empty_c_void_p, Pointer, ccallable
 
 @ccallable
@@ -18,10 +18,19 @@ def f(c: CPtr):
     print(A)
     assert A == 3
 
+def g(c: CPtr):
+    i: i32
+    for i in range(3):
+        p: Pointer[S] = c_p_pointer(c, S)
+        A: i32 = p.a
+        print(A)
+        assert A == 3
+
 def main():
     s: S = S(3)
     p: CPtr = empty_c_void_p()
     p_c_pointer(pointer(s, S), p)
     f(p)
+    g(p)
 
 main()
diff --git a/integration_tests/structs_22.py b/integration_tests/structs_22.py
new file mode 100644
index 0000000000..7329d4c26b
--- /dev/null
+++ b/integration_tests/structs_22.py
@@ -0,0 +1,43 @@
+from lpython import dataclass, i32, f64, u64
+from numpy import array
+
+@dataclass
+class Foo:
+    x: i32
+    y: i32
+
+@dataclass
+class Foo2:
+    p: f64
+    q: i32
+    r: u64
+
+def main0() -> None:
+    foos: Foo[2] = array([Foo(1, 2), Foo(3, 4)])
+    print(foos[0].x, foos[0].y, foos[1].x, foos[1].y)
+
+    assert foos[0].x == 1
+    assert foos[0].y == 2
+    assert foos[1].x == 3
+    assert foos[1].y == 4
+
+def main1() -> None:
+    foos2: Foo2[3] = array([Foo2(-2.3, 42, u64(3)), Foo2(45.5, -3, u64(10001)), Foo2(1.0, -101, u64(100))])
+    i: i32
+    for i in range(3):
+        print(foos2[i].p, foos2[i].q, foos2[i].r)
+
+    eps: f64
+    eps = 1e-12
+    assert abs(foos2[0].p - (-2.3)) <= eps
+    assert foos2[0].q == 42
+    assert foos2[0].r == u64(3)
+    assert abs(foos2[1].p - (45.5)) <= eps
+    assert foos2[1].q == -3
+    assert foos2[1].r == u64(10001)
+    assert abs(foos2[2].p - (1.0)) <= eps
+    assert foos2[2].q == -101
+    assert foos2[2].r == u64(100)
+
+main0()
+main1()
diff --git a/integration_tests/structs_23.py b/integration_tests/structs_23.py
new file mode 100644
index 0000000000..2e3950a48b
--- /dev/null
+++ b/integration_tests/structs_23.py
@@ -0,0 +1,30 @@
+from lpython import dataclass, i32, u64, f64
+
+@dataclass
+class A:
+    a: i32
+    b: i32
+
+@dataclass
+class B:
+    a: u64
+    b: f64
+
+def main0():
+    s: A = A(b=-24, a=6)
+    print(s.a)
+    print(s.b)
+
+    assert s.a == 6
+    assert s.b == -24
+
+def main1():
+    s: B = B(u64(22), b=3.14)
+    print(s.a)
+    print(s.b)
+
+    assert s.a == u64(22)
+    assert abs(s.b - 3.14) <= 1e-12
+
+main0()
+main1()
diff --git a/integration_tests/structs_24.py b/integration_tests/structs_24.py
new file mode 100644
index 0000000000..10bf76c890
--- /dev/null
+++ b/integration_tests/structs_24.py
@@ -0,0 +1,18 @@
+from lpython import dataclass, i32, f64, u64
+from numpy import array
+
+@dataclass
+class Foo:
+    x: i32
+    y: i32
+
+def main0() -> None:
+    foos: Foo[2] = array([Foo(y=2, x=1), Foo(x=3, y=4)])
+    print(foos[0].x, foos[0].y, foos[1].x, foos[1].y)
+
+    assert foos[0].x == 1
+    assert foos[0].y == 2
+    assert foos[1].x == 3
+    assert foos[1].y == 4
+
+main0()
diff --git a/integration_tests/structs_25.py b/integration_tests/structs_25.py
new file mode 100644
index 0000000000..d5402c6c5d
--- /dev/null
+++ b/integration_tests/structs_25.py
@@ -0,0 +1,20 @@
+from lpython import i32, dataclass, Array
+from numpy import empty
+
+@dataclass
+class Foo:
+     x: i32
+     y: i32
+
+def init(foos: Array[Foo, :]) -> None:
+    foos[0] = Foo(5, 21)
+
+def main0() -> None:
+    foos: Array[Foo, 1] = empty(1, dtype=Foo)
+    init(foos)
+    print("foos[0].x =", foos[0].x)
+
+    assert foos[0].x == 5
+    assert foos[0].y == 21
+
+main0()
diff --git a/integration_tests/structs_26.py b/integration_tests/structs_26.py
new file mode 100644
index 0000000000..40cf3fdd4b
--- /dev/null
+++ b/integration_tests/structs_26.py
@@ -0,0 +1,18 @@
+from lpython import dataclass, i32
+
+@dataclass
+class StringIO:
+    """Imitate the parts of io.StringIO we need."""
+    _buf     : str
+    _0cursor : i32 = 0
+    _len     : i32 = 0
+
+def main0():
+    io: StringIO = StringIO("random input xyz", 5, 24)
+
+    print(io)
+    assert io._buf == "random input xyz"
+    assert io._0cursor == 5
+    assert io._len == 24
+
+main0()
diff --git a/integration_tests/structs_27.py b/integration_tests/structs_27.py
new file mode 100644
index 0000000000..4009794f48
--- /dev/null
+++ b/integration_tests/structs_27.py
@@ -0,0 +1,77 @@
+from lpython import dataclass, i32, u16, f32
+
+
+@dataclass
+class StringIO:
+    _buf     : str = ''
+    _0cursor : i32 = 10
+    _len     : i32 = 1
+
+@dataclass
+class StringIONew:
+    _buf     : str
+    _0cursor : i32 = i32(142)
+    _len     : i32 = i32(2439)
+    _var1    : u16 = u16(23)
+    _var2    : f32 = f32(30.24)
+
+#print("ok")
+
+def test_issue_1928():
+    integer_asr : str = '(Integer 4 [])'
+    test_dude   : StringIO = StringIO(integer_asr)
+    assert test_dude._buf == integer_asr
+    assert test_dude._len == 1
+    assert test_dude._0cursor == 10
+    test_dude._len = 100
+    assert test_dude._len == 100
+    test_dude._0cursor = 31
+    assert test_dude._0cursor == 31
+
+    test_dude2 : StringIO = StringIO(integer_asr, 3)
+    assert test_dude2._buf == integer_asr
+    assert test_dude2._len == 1
+    assert test_dude2._0cursor == 3
+    test_dude2._len = 100
+    assert test_dude2._len == 100
+    test_dude2._0cursor = 31
+    assert test_dude2._0cursor == 31
+
+    test_dude3 : StringIO = StringIO(integer_asr, 3, 5)
+    assert test_dude3._buf == integer_asr
+    assert test_dude3._len == 5
+    assert test_dude3._0cursor == 3
+    test_dude3._len = 100
+    assert test_dude3._len == 100
+    test_dude3._0cursor = 31
+    assert test_dude3._0cursor == 31
+
+    test_dude4 : StringIO = StringIO()
+    assert test_dude4._buf == ''
+    assert test_dude4._len == 1
+    assert test_dude4._0cursor == 10
+    test_dude4._len = 100
+    assert test_dude4._len == 100
+    test_dude4._0cursor = 31
+    assert test_dude4._0cursor == 31
+
+
+def test_issue_1981():
+    integer_asr : str = '(Integer 4 [])'
+    test_dude   : StringIONew = StringIONew(integer_asr)
+    assert test_dude._buf == integer_asr
+    assert test_dude._len == 2439
+    assert test_dude._0cursor == 142
+    assert test_dude._var1 == u16(23)
+    assert abs(test_dude._var2 - f32(30.24)) < f32(1e-5)
+    test_dude._len = 13
+    test_dude._0cursor = 52
+    test_dude._var1 = u16(34)
+    assert test_dude._buf == integer_asr
+    assert test_dude._len == 13
+    assert test_dude._0cursor == 52
+    assert test_dude._var1 == u16(34)
+
+
+test_issue_1981()
+test_issue_1928()
diff --git a/integration_tests/structs_28.py b/integration_tests/structs_28.py
new file mode 100644
index 0000000000..9e0f3bf502
--- /dev/null
+++ b/integration_tests/structs_28.py
@@ -0,0 +1,15 @@
+from lpython import dataclass, i32
+
+@dataclass
+class Pattern:
+    _foo : str
+    pass
+    _n: i32
+
+def main0():
+    p: Pattern = Pattern("some string", 5)
+    assert p._foo == "some string"
+    assert p._n == 5
+    print(p)
+
+main0()
diff --git a/integration_tests/structs_29.py b/integration_tests/structs_29.py
new file mode 100644
index 0000000000..f78c7e2d94
--- /dev/null
+++ b/integration_tests/structs_29.py
@@ -0,0 +1,20 @@
+from lpython import dataclass, i32
+
+@dataclass
+class Foo:
+     x: i32
+     y: i32
+
+
+def main0() -> None:
+    x: list[Foo]
+    y: Foo = Foo(0, 1)
+    z: Foo = Foo(1, 2)
+    x = [y, z]
+    i: i32 = 0
+    for y in x:
+        assert y.x == i
+        assert y.y == i+1
+        i += 1
+
+main0()
diff --git a/integration_tests/structs_30.py b/integration_tests/structs_30.py
new file mode 100644
index 0000000000..83ad571a11
--- /dev/null
+++ b/integration_tests/structs_30.py
@@ -0,0 +1,15 @@
+from lpython import dataclass, i32
+
+@dataclass
+class Pattern:
+    _foo : str
+    ...
+    _n: i32
+
+def main0():
+    p: Pattern = Pattern("some string", 5)
+    assert p._foo == "some string"
+    assert p._n == 5
+    print(p)
+
+main0()
diff --git a/integration_tests/structs_31.py b/integration_tests/structs_31.py
new file mode 100644
index 0000000000..472bf8d8d4
--- /dev/null
+++ b/integration_tests/structs_31.py
@@ -0,0 +1,22 @@
+from lpython import packed, dataclass, field, i32, InOut
+
+@packed
+@dataclass
+class inner_struct:
+    a: i32
+
+@packed
+@dataclass
+class outer_struct:
+    b: inner_struct = field(default_factory=lambda: inner_struct(0))
+
+def update_my_inner_struct(my_inner_struct: InOut[inner_struct]) -> None:
+    my_inner_struct.a = 99999
+
+def main() -> None:
+    my_outer_struct: outer_struct = outer_struct()
+
+    update_my_inner_struct(my_outer_struct.b)
+    assert my_outer_struct.b.a == 99999
+
+main()
diff --git a/integration_tests/structs_32.py b/integration_tests/structs_32.py
new file mode 100644
index 0000000000..6e57217a87
--- /dev/null
+++ b/integration_tests/structs_32.py
@@ -0,0 +1,45 @@
+from lpython import packed, dataclass, field, i32, InOut
+
+
+@packed
+@dataclass
+class inner_struct:
+    a: i32
+
+
+@packed
+@dataclass
+class outer_struct:
+    b: inner_struct = field(default_factory=lambda: inner_struct(0))
+
+
+def update_my_inner_struct(my_inner_struct: InOut[inner_struct]) -> None:
+    my_inner_struct.a = 99999
+
+
+def update_my_outer_struct(my_outer_struct: InOut[outer_struct]) -> None:
+    my_outer_struct.b.a = 12345
+
+
+def main() -> None:
+    my_outer_struct: outer_struct = outer_struct()
+    my_inner_struct: inner_struct = my_outer_struct.b
+
+    assert my_outer_struct.b.a == 0
+
+    my_outer_struct.b.a = 12345
+    assert my_outer_struct.b.a == 12345
+
+    my_outer_struct.b.a = 0
+    assert my_outer_struct.b.a == 0
+
+    update_my_outer_struct(my_outer_struct)
+    assert my_outer_struct.b.a == 12345
+
+    my_inner_struct.a = 1111
+    assert my_inner_struct.a == 1111
+
+    update_my_inner_struct(my_inner_struct)
+    assert my_inner_struct.a == 99999
+
+main()
diff --git a/integration_tests/structs_33.py b/integration_tests/structs_33.py
new file mode 100644
index 0000000000..24a537447a
--- /dev/null
+++ b/integration_tests/structs_33.py
@@ -0,0 +1,24 @@
+from lpython import packed, dataclass, field, i32
+
+# test issue 2125
+
+@packed
+@dataclass
+class inner_struct:
+    inner_field: i32 = 0
+
+
+@packed
+@dataclass
+class outer_struct:
+    inner_s : inner_struct = field(default_factory=lambda: inner_struct())
+
+
+def check() -> None:
+    outer_struct_instance : outer_struct = outer_struct(inner_struct(5))
+    outer_struct_instance2 : outer_struct = outer_struct_instance
+    inner_struct_instance : inner_struct = outer_struct_instance2.inner_s
+    assert inner_struct_instance.inner_field == 5
+
+
+check()
diff --git a/integration_tests/structs_34.py b/integration_tests/structs_34.py
new file mode 100644
index 0000000000..f69d6d5f6a
--- /dev/null
+++ b/integration_tests/structs_34.py
@@ -0,0 +1,24 @@
+from lpython import packed, dataclass, ccallable, i32, ccallback
+
+@ccallable
+@packed
+@dataclass
+class struct_0:
+    val_0 : i32 = 613
+
+@ccallable
+@packed
+@dataclass
+class struct_1:
+    val_1 : struct_0 = struct_0()
+
+def print_val_0_in_struct_0(struct_0_instance : struct_0) -> i32:
+    print(struct_0_instance.val_0)
+    return 0
+
+@ccallback
+def entry_point() -> i32:
+    struct_1_instance : struct_1 = struct_1()
+    return print_val_0_in_struct_0(struct_1_instance.val_1)
+
+assert entry_point() == 0
diff --git a/integration_tests/structs_35.py b/integration_tests/structs_35.py
new file mode 100644
index 0000000000..4bdb499d75
--- /dev/null
+++ b/integration_tests/structs_35.py
@@ -0,0 +1,26 @@
+from lpython import dataclass, field, i32
+from numpy import array
+
+@dataclass
+class X:
+    a: i32 = 123
+    b: bool = True
+    c: list[i32] = field(default_factory=lambda: [1, 2, 3])
+    d: i32[3] = field(default_factory=lambda: array([4, 5, 6]))
+    e: i32 = field(default=-5)
+
+def main0():
+    x: X = X()
+    print(x)
+    assert x.a == 123
+    assert x.b == True
+    assert x.c[0] == 1
+    assert x.d[1] == 5
+    assert x.e == -5
+    x.c[0] = 3
+    x.d[0] = 3
+    print(x)
+    assert x.c[0] == 3
+    assert x.d[0] == 3
+
+main0()
diff --git a/integration_tests/symbolics_01.py b/integration_tests/symbolics_01.py
new file mode 100644
index 0000000000..ae0dab1dd4
--- /dev/null
+++ b/integration_tests/symbolics_01.py
@@ -0,0 +1,22 @@
+from sympy import Symbol, pi
+from lpython import S
+
+def main0():
+    x: S = Symbol('x')
+    y: S = Symbol('y')
+    x = pi
+    z: S = x + y
+    x = z
+    print(x)
+    print(z)
+    assert(x == z)
+    assert(z == pi + y)
+    assert(z != S(2)*pi + y)
+
+    # testing PR 2404
+    p: S = Symbol('pi')
+    print(p)
+    print(p != pi)
+    assert(p != pi)
+
+main0()
\ No newline at end of file
diff --git a/integration_tests/symbolics_02.py b/integration_tests/symbolics_02.py
new file mode 100644
index 0000000000..7650b11d2d
--- /dev/null
+++ b/integration_tests/symbolics_02.py
@@ -0,0 +1,123 @@
+from sympy import Symbol, pi, Add, Mul, Pow
+from lpython import S
+
+def test_symbolic_operations():
+    x: S = Symbol('x')
+    y: S = Symbol('y')
+    pi1: S = pi
+    pi2: S = pi
+    
+    # Addition
+    z: S = x + y
+    z1: bool = z.func == Add
+    z2: bool = z.func == Mul
+    assert(z == x + y)
+    assert(z1 == True)
+    assert(z2 == False)
+    if z.func == Add:
+        assert True
+    else:
+        assert False
+    assert(z.func == Add)
+    assert(z.args[0] == x or z.args[0] == y)
+    assert(z.args[1] == y or z.args[1] == x)
+    print(z)
+    
+    # Subtraction
+    w: S = x - y
+    w1: bool = w.func == Add
+    assert(w == x - y)
+    assert(w1 == True)
+    if w.func == Add:
+        assert True
+    else:
+        assert False
+    assert(w.func == Add)
+    print(w)
+    
+    # Multiplication
+    u: S = x * y
+    u1: bool = u.func == Mul
+    assert(u == x * y)
+    assert(u1 == True)
+    if u.func == Mul:
+        assert True
+    else:
+        assert False
+    assert(u.func == Mul)
+    assert(u.args[0] == x)
+    assert(u.args[1] == y)
+    print(u)
+
+    # Division
+    v: S = x / y
+    v1: bool = v.func == Mul
+    assert(v == x / y)
+    assert(v1 == True)
+    if v.func == Mul:
+        assert True
+    else:
+        assert False
+    assert(v.func == Mul)
+    print(v)
+
+    # Power
+    p: S = x ** y
+    p1: bool = p.func == Pow
+    p2: bool = p.func == Add
+    p3: bool = p.func == Mul
+    assert(p == x ** y)
+    assert(p1 == True)
+    assert(p2 == False)
+    assert(p3 == False)
+    if p.func == Pow:
+        assert True
+    else:
+        assert False
+    assert(p.func == Pow)
+    print(p)
+
+    # Casting
+    a: S = S(100)
+    b: S = S(-100)
+    c: S = a + b
+    assert(c == S(0))
+    print(c)
+
+    # Comparison
+    b1: bool = pi1 == pi2
+    print(b1)
+    assert(b1 == True)
+    b2: bool = pi1 != pi
+    print(b2)
+    assert(b2 == False)
+    b3: bool = pi1 != x
+    print(b3)
+    assert(b3 == True)
+    b4: bool = pi == Symbol("x")
+    print(b4)
+    assert(b4 == False)
+
+    # is_integer check
+    assert(pi1.is_integer == False)
+    assert(a.is_integer == True)
+    assert(c.is_integer == True)
+
+    # is_positive check
+    assert(a.is_positive == True)
+    assert(b.is_positive == False)
+    assert(c.is_positive == False)
+
+    # logical binop check
+    l1: bool = True and p.func == Pow
+    l2: bool = False or p.func == Pow
+    l3: bool = False and u.func == Mul
+    l4: bool = True or u.func == Add
+    if p.func == Pow and u.func == Mul:
+        print(True)
+    assert(l1)
+    assert(l2)
+    assert(not l3)
+    assert(l4)
+
+test_symbolic_operations()
diff --git a/integration_tests/symbolics_03.py b/integration_tests/symbolics_03.py
new file mode 100644
index 0000000000..8dc91a9720
--- /dev/null
+++ b/integration_tests/symbolics_03.py
@@ -0,0 +1,24 @@
+from sympy import Symbol, pi
+from lpython import S
+
+def test_operator_chaining():
+    w: S = S(2)
+    x: S = Symbol('x')
+    y: S = Symbol('y')
+    z: S = Symbol('z')
+
+    a: S = x * w
+    b: S = a + pi
+    c: S = b / z
+    d: S = c ** w
+
+    assert(a == S(2)*x)
+    assert(b == pi + S(2)*x)
+    assert(c == (pi + S(2)*x)/z)
+    assert(d == (pi + S(2)*x)**S(2)/z**S(2))
+    print(a)  # Expected: 2*x
+    print(b)  # Expected: pi + 2*x
+    print(c)  # Expected: (pi + 2*x)/z
+    print(d)  # Expected: (pi + 2*x)**2/z**2
+
+test_operator_chaining()
\ No newline at end of file
diff --git a/integration_tests/symbolics_04.py b/integration_tests/symbolics_04.py
new file mode 100644
index 0000000000..63d30bf3f6
--- /dev/null
+++ b/integration_tests/symbolics_04.py
@@ -0,0 +1,41 @@
+from sympy import Symbol, pi, S
+from lpython import S
+
+def test_chained_operations():
+    x: S = Symbol('x')
+    y: S = Symbol('y')
+    z: S = Symbol('z')
+    a: S = Symbol('a')
+    b: S = Symbol('b')
+    
+    # Chained Operations
+    w: S = (x + y) * ((a - b) / (pi + z))
+    result: S = (w ** S(2) - pi) + S(3)
+    
+    # Print Statements
+    assert(result == S(3) + (a -b)**S(2)*(x + y)**S(2)/(z + pi)**S(2) - pi)
+    print(result)
+    
+    # Additional Variables
+    c: S = Symbol('c')
+    d: S = Symbol('d')
+    e: S = Symbol('e')
+    f: S = Symbol('f')
+    
+    # Chained Operations with Additional Variables
+    x = (c * d + e) / f
+    y = (x - S(10)) * (pi + S(5))
+    z = y ** (S(2) / (f + d))
+    result = (z + e) * (a - b)
+    
+    # Print Statements
+    assert(result == (a - b)*(e + ((S(5) + pi)*(S(-10) + (e + c*d)/f))**(S(2)/(d + f))))
+    print(result)
+    assert(x == (e + c*d)/f)
+    print(x)
+    assert(y == (S(5) + pi)*(S(-10) + (e + c*d)/f))
+    print(y)
+    assert(z == ((S(5) + pi)*(S(-10) + (e + c*d)/f))**(S(2)/(d + f)))
+    print(z)
+
+test_chained_operations()
\ No newline at end of file
diff --git a/integration_tests/symbolics_05.py b/integration_tests/symbolics_05.py
new file mode 100644
index 0000000000..b503bbcdda
--- /dev/null
+++ b/integration_tests/symbolics_05.py
@@ -0,0 +1,51 @@
+from sympy import Symbol, expand, diff, sin, cos, exp, pi
+from lpython import S
+
+def test_operations():
+    x: S = Symbol('x')
+    y: S = Symbol('y')
+    z: S = Symbol('z')
+    a: S = (x + y)**S(2)
+    b: S = (x + y + z)**S(3)
+
+    # test expand
+    assert(a.expand() == S(2)*x*y + x**S(2) + y**S(2))
+    assert(expand(b) == S(3)*x*y**S(2) + S(3)*x*z**S(2) + S(3)*x**S(2)*y + S(3)*x**S(2)*z +\
+    S(3)*y*z**S(2) + S(3)*y**S(2)*z + S(6)*x*y*z + x**S(3) + y**S(3) + z**S(3))
+    print(a.expand())
+    print(expand(b))
+
+    # test diff
+    assert(a.diff(x) == S(2)*(x + y))
+    assert(diff(b, x) == S(3)*(x + y + z)**S(2))
+    print(a.diff(x))
+    print(diff(b, x))
+
+    # test diff 2
+    c:S = sin(x)
+    d:S = cos(x)
+    assert(sin(Symbol("x")).diff(x) == d)
+    assert(sin(x).diff(Symbol("x")) == d)
+    assert(sin(x).diff(x) == d)
+    assert(sin(x).diff(x).diff(x) == S(-1)*c)
+    assert(sin(x).expand().diff(x).diff(x) == S(-1)*c)
+    assert((sin(x) + cos(x)).diff(x) == S(-1)*c + d)
+    assert((sin(x) + cos(x) + exp(x) + pi).diff(x).expand().diff(x) == exp(x) + S(-1)*c + S(-1)*d)
+
+    # test args
+    assert(a.args[0] == x + y)
+    assert(a.args[1] == S(2))
+    assert(b.args[0] == x + y + z)
+    assert(b.args[1] == S(3))
+    assert(c.args[0] == x)
+    assert(d.args[0] == x)
+
+    # test subs
+    b1: S = b.subs(x, y)
+    b1 = b1.subs(z, y)
+    assert(a.subs(x, y) == S(4)*y**S(2))
+    assert(b1 == S(27)*y**S(3))
+    assert(c.subs(x, y) == sin(y))
+    assert(d.subs(x, z) == cos(z))
+
+test_operations()
\ No newline at end of file
diff --git a/integration_tests/symbolics_06.py b/integration_tests/symbolics_06.py
new file mode 100644
index 0000000000..f56d76c80d
--- /dev/null
+++ b/integration_tests/symbolics_06.py
@@ -0,0 +1,58 @@
+from sympy import Symbol, sin, cos, exp, log, Abs, pi, diff, sign
+from lpython import S
+
+def test_elementary_functions():
+
+    # test sin, cos
+    x: S = Symbol('x')
+    assert(sin(pi) == S(0))
+    assert(sin(pi/S(2)) == S(1))
+    assert(sin(S(2)*pi) == S(0))
+    assert(cos(pi) == S(-1))
+    assert(cos(pi/S(2)) == S(0))
+    assert(cos(S(2)*pi) == S(1))
+    assert(diff(sin(x), x) == cos(x))
+    assert(diff(cos(x), x) == S(-1)*sin(x))
+
+    # test exp, log
+    assert(exp(S(0)) == S(1))
+    assert(log(S(1)) == S(0))
+    assert(diff(exp(x), x) == exp(x))
+    assert(diff(log(x), x) == S(1)/x)
+
+    # test Abs
+    assert(Abs(S(-10)) == S(10))
+    assert(Abs(S(10)) == S(10))
+    assert(Abs(S(-1)*x) == Abs(x))
+
+    # test sign
+    assert(sign(S(-10)) == S(-1))
+    assert(sign(S(0)) == S(0))
+    assert(sign(S(10)) == S(1))
+    assert(sign(S(2)* x) == sign(x))
+    assert(sign(S(-1)* x) == S(-1) * sign(x))
+
+    # test composite functions
+    a: S = exp(x)
+    b: S = sin(a)
+    b1: bool = b.func == sin
+    c: S = cos(b)
+    d: S = log(c)
+    d1: bool = d.func == log
+    e: S = Abs(d)
+    print(e)
+    assert(b1 == True)
+    if b.func == sin:
+        assert True
+    else:
+        assert False
+    assert(b.func == sin)
+    assert(d1 == True)
+    if d.func == log:
+        assert True
+    else:
+        assert False
+    assert(d.func == log)
+    assert(e == Abs(log(cos(sin(exp(x))))))
+
+test_elementary_functions()
\ No newline at end of file
diff --git a/integration_tests/symbolics_07.py b/integration_tests/symbolics_07.py
new file mode 100644
index 0000000000..f6d9ea947f
--- /dev/null
+++ b/integration_tests/symbolics_07.py
@@ -0,0 +1,23 @@
+from lpython import ccall, CPtr
+import os
+
+@ccall(header="symengine/cwrapper.h", c_shared_lib="symengine", c_shared_lib_path=f"{os.environ['CONDA_PREFIX']}/lib")
+def basic_new_heap() -> CPtr:
+    pass
+
+@ccall(header="symengine/cwrapper.h", c_shared_lib="symengine", c_shared_lib_path=f"{os.environ['CONDA_PREFIX']}/lib")
+def basic_const_pi(x: CPtr) -> None:
+    pass
+
+@ccall(header="symengine/cwrapper.h", c_shared_lib="symengine", c_shared_lib_path=f"{os.environ['CONDA_PREFIX']}/lib")
+def basic_str(x: CPtr) -> str:
+    pass
+
+def main0():
+    x: CPtr = basic_new_heap()
+    basic_const_pi(x)
+    s: str = basic_str(x)
+    print(s)
+    assert s == "pi"
+
+main0()
diff --git a/integration_tests/symbolics_08.py b/integration_tests/symbolics_08.py
new file mode 100644
index 0000000000..15e010d160
--- /dev/null
+++ b/integration_tests/symbolics_08.py
@@ -0,0 +1,31 @@
+from lpython import ccall, CPtr, p_c_pointer, pointer, i64, empty_c_void_p
+import os
+
+@ccall(header="symengine/cwrapper.h", c_shared_lib="symengine", c_shared_lib_path=f"{os.environ['CONDA_PREFIX']}/lib")
+def basic_new_stack(x: CPtr) -> None:
+    pass
+
+@ccall(header="symengine/cwrapper.h", c_shared_lib="symengine", c_shared_lib_path=f"{os.environ['CONDA_PREFIX']}/lib")
+def basic_free_stack(x: CPtr) -> None:
+    pass
+
+@ccall(header="symengine/cwrapper.h", c_shared_lib="symengine", c_shared_lib_path=f"{os.environ['CONDA_PREFIX']}/lib")
+def basic_const_pi(x: CPtr) -> None:
+    pass
+
+@ccall(header="symengine/cwrapper.h", c_shared_lib="symengine", c_shared_lib_path=f"{os.environ['CONDA_PREFIX']}/lib")
+def basic_str(x: CPtr) -> str:
+    pass
+
+def main0():
+    y: i64 = i64(0)
+    x: CPtr = empty_c_void_p()
+    p_c_pointer(pointer(y, i64), x)
+    basic_new_stack(x)
+    basic_const_pi(x)
+    s: str = basic_str(x)
+    print(s)
+    assert s == "pi"
+    basic_free_stack(x)
+
+main0()
\ No newline at end of file
diff --git a/integration_tests/symbolics_09.py b/integration_tests/symbolics_09.py
new file mode 100644
index 0000000000..18567769a4
--- /dev/null
+++ b/integration_tests/symbolics_09.py
@@ -0,0 +1,21 @@
+from sympy import Symbol, pi, sin, cos
+from lpython import S, i32
+
+def addInteger(x: S, y: S, z: S, i: i32):
+    _i: S = S(i)
+    print(x + y + z + _i)
+
+def call_addInteger():
+    a: S = Symbol("x")
+    b: S = Symbol("y")
+    c: S = pi
+    d: S = sin(a)
+    e: S = cos(b)
+    addInteger(c, d, e, 2)
+    addInteger(c, sin(a), cos(b), 2)
+    addInteger(pi, sin(Symbol("x")), cos(Symbol("y")), 2)
+
+def main0():
+    call_addInteger()
+
+main0()
diff --git a/integration_tests/symbolics_10.py b/integration_tests/symbolics_10.py
new file mode 100644
index 0000000000..c833c1e59f
--- /dev/null
+++ b/integration_tests/symbolics_10.py
@@ -0,0 +1,26 @@
+from sympy import Symbol, sin, pi
+from lpython import S
+
+def test_attributes():
+    w: S = pi
+    x: S = Symbol('x')
+    y: S = Symbol('y')
+    z: S = sin(x)
+
+    # test has
+    assert(w.has(x) == False)
+    assert(y.has(x) == False)
+    assert(x.has(x) == True)
+    assert(x.has(x) == z.has(x))
+
+    # test has 2
+    assert(sin(x).has(x) == True)
+    assert(sin(x).has(y) == False)
+    assert(sin(Symbol("x")).has(x) == True)
+    assert(sin(Symbol("x")).has(y) == False)
+    assert(sin(Symbol("x")).has(Symbol("x")) == True)
+    assert(sin(Symbol("x")).has(Symbol("y")) == False)
+    assert(sin(Symbol("x")).has(Symbol("x")) != sin(Symbol("x")).has(Symbol("y")))
+    assert(sin(Symbol("x")).has(Symbol("x")) == sin(Symbol("y")).has(Symbol("y")))
+
+test_attributes()
\ No newline at end of file
diff --git a/integration_tests/symbolics_11.py b/integration_tests/symbolics_11.py
new file mode 100644
index 0000000000..49696c09c2
--- /dev/null
+++ b/integration_tests/symbolics_11.py
@@ -0,0 +1,19 @@
+from sympy import Symbol, sin, pi
+from lpython import S
+
+def test_extraction_of_elements():
+    x: S = Symbol("x")
+    l1: list[S] = [x, pi, sin(x), Symbol("y")]
+    ele1: S = l1[0]
+    ele2: S = l1[1]
+    ele3: S = l1[2]
+    ele4: S = l1[3]
+
+    assert(ele1 == x)
+    assert(ele2 == pi)
+    assert(ele3 == sin(x))
+    assert(ele4 == Symbol("y"))
+    print(ele1, ele2, ele3, ele4)
+    print(l1[0], l1[1], l1[2], l1[3])
+
+test_extraction_of_elements()
diff --git a/integration_tests/symbolics_12.py b/integration_tests/symbolics_12.py
new file mode 100644
index 0000000000..05711e2b1e
--- /dev/null
+++ b/integration_tests/symbolics_12.py
@@ -0,0 +1,70 @@
+from sympy import Symbol, E, log, exp, oo
+from lpython import S
+
+def main0():
+    # Testing out symbolic constants like E, oo etc
+
+    # Define symbolic variables
+    x: S = Symbol('x')
+    y: S = Symbol('y')
+
+    # Assign E to the variable x
+    x = E
+
+    # Check if x is equal to E
+    assert x == E
+
+    # Perform some symbolic operations
+    z: S = x + y
+
+    # Check if z is equal to E + y
+    assert z == E + y
+
+    # Check if x is not equal to 2E + y
+    assert x != S(2) * E + y
+
+    # Evaluate some mathematical expressions
+    expr1: S = log(E)
+    expr2: S = exp(S(1))
+
+    # Check the results
+    assert expr1 == S(1)
+    assert expr2 == E ** S(1)
+
+    # Print the results
+    print("x = ", x)
+    print("z = ", z)
+    print("log(E) = ", expr1)
+    print("exp(1) = ", expr2)
+
+    # Test symbolic infinity constant
+    inf: S = oo
+
+    # Check if inf is equal to oo
+    assert inf == oo
+
+    # Perform some symbolic operations with oo
+    z = x + inf
+
+    # Check if z is equal to x + oo
+    assert z == x + oo
+
+    # Check if x is not equal to 2 * oo + y
+    assert x != S(2) * oo + y
+
+    # Evaluate some mathematical expressions with oo
+    expr1 = log(oo)
+    expr2 = exp(oo)
+
+    # Check the results
+    assert expr1 == oo
+    assert expr2 == oo
+
+    # Print the results
+    print("inf = ", inf)
+    print("z = ", z)
+    print("log(oo) = ", expr1)
+    print("exp(oo) = ", expr2)
+
+
+main0()
diff --git a/integration_tests/symbolics_13.py b/integration_tests/symbolics_13.py
new file mode 100644
index 0000000000..6494d28a40
--- /dev/null
+++ b/integration_tests/symbolics_13.py
@@ -0,0 +1,12 @@
+from lpython import S
+from sympy import pi
+
+def func() -> S:
+    return pi
+
+def test_func():
+    z: S = func()
+    print(z)
+    assert z == pi
+
+test_func()
diff --git a/integration_tests/symbolics_14.py b/integration_tests/symbolics_14.py
new file mode 100644
index 0000000000..f99ad7aa39
--- /dev/null
+++ b/integration_tests/symbolics_14.py
@@ -0,0 +1,15 @@
+from lpython import S
+from sympy import Symbol
+
+def mmrv(x: S) -> list[S]:
+    l1: list[S] = [x]
+    return l1
+
+def test_mrv1():
+    x: S = Symbol("x")
+    ans: list[S] = mmrv(x)
+    element_1: S = ans[0]
+    print(element_1)
+    assert element_1 == x
+
+test_mrv1()
\ No newline at end of file
diff --git a/integration_tests/symbolics_15.py b/integration_tests/symbolics_15.py
new file mode 100644
index 0000000000..096f7c442d
--- /dev/null
+++ b/integration_tests/symbolics_15.py
@@ -0,0 +1,72 @@
+from lpython import ccall, CPtr, p_c_pointer, pointer, i64, empty_c_void_p, Out
+import os
+
+@ccall(header="symengine/cwrapper.h", c_shared_lib="symengine", c_shared_lib_path=f"{os.environ['CONDA_PREFIX']}/lib")
+def basic_new_stack(x: CPtr) -> None:
+    pass
+
+@ccall(header="symengine/cwrapper.h", c_shared_lib="symengine", c_shared_lib_path=f"{os.environ['CONDA_PREFIX']}/lib")
+def basic_new_heap() -> CPtr:
+    pass
+
+@ccall(header="symengine/cwrapper.h", c_shared_lib="symengine", c_shared_lib_path=f"{os.environ['CONDA_PREFIX']}/lib")
+def basic_const_pi(x: CPtr) -> None:
+    pass
+
+@ccall(header="symengine/cwrapper.h", c_shared_lib="symengine", c_shared_lib_path=f"{os.environ['CONDA_PREFIX']}/lib")
+def basic_assign(x: CPtr, y:CPtr) -> None:
+    pass
+
+@ccall(header="symengine/cwrapper.h", c_shared_lib="symengine", c_shared_lib_path=f"{os.environ['CONDA_PREFIX']}/lib")
+def basic_str(x: CPtr) -> str:
+    pass
+
+@ccall(header="symengine/cwrapper.h", c_shared_lib="symengine", c_shared_lib_path=f"{os.environ['CONDA_PREFIX']}/lib")
+def basic_free_stack(x: CPtr) -> None:
+    pass
+
+def mmrv(r: Out[list[CPtr]]) -> None:
+    # x: S = pi
+    _x: i64 = i64(0)
+    x: CPtr = empty_c_void_p()
+    p_c_pointer(pointer(_x, i64), x)
+    basic_new_stack(x)
+    basic_const_pi(x)
+
+    # l1: list[S] = [x]
+    _l1: list[CPtr] = [x]
+    l1: list[CPtr] = []
+
+    i: i32 = 0
+    for i in range(len(_l1)):
+        tmp: CPtr = basic_new_heap()
+        l1.append(tmp)
+        basic_assign(l1[0], x)
+
+    # print(l1[0])
+    s1: str = basic_str(l1[0])
+    print(s1)
+    assert s1 == "pi"
+
+    # r = l1
+    r = l1
+
+    basic_free_stack(x)
+
+def test_mrv():
+    # ans : list[S]
+    # temp : list[S]
+    ans: list[CPtr]
+    temp: list[CPtr]
+
+    # mmrv(ans)
+    # temp = ans
+    mmrv(ans)
+    temp = ans
+
+    # print(temp[0])
+    s2: str = basic_str(temp[0])
+    print(s2)
+    assert s2 == "pi"
+
+test_mrv()
\ No newline at end of file
diff --git a/integration_tests/symbolics_16.py b/integration_tests/symbolics_16.py
new file mode 100644
index 0000000000..abdaa2c92b
--- /dev/null
+++ b/integration_tests/symbolics_16.py
@@ -0,0 +1,18 @@
+from lpython import S
+from sympy import Symbol, pi, sin
+
+def mmrv() -> list[S]:
+    x: S = Symbol('x')
+    l1: list[S] = [pi, sin(x)]
+    return l1
+
+def test_mrv1():
+    ans: list[S] = mmrv()
+    element_1: S = ans[0]
+    element_2: S = ans[1]
+    assert element_1 == pi
+    assert element_2 == sin(Symbol('x'))
+    print(element_1, element_2)
+
+
+test_mrv1()
\ No newline at end of file
diff --git a/integration_tests/symbolics_17.py b/integration_tests/symbolics_17.py
new file mode 100644
index 0000000000..74494e8049
--- /dev/null
+++ b/integration_tests/symbolics_17.py
@@ -0,0 +1,10 @@
+from lpython import S
+from sympy import Symbol, pi
+
+def test_main():
+    x: S = Symbol('x')
+    if x != pi:
+        print(x != pi)
+        assert x != pi
+
+test_main()
\ No newline at end of file
diff --git a/integration_tests/symbolics_18.py b/integration_tests/symbolics_18.py
new file mode 100644
index 0000000000..b3dd8bad2c
--- /dev/null
+++ b/integration_tests/symbolics_18.py
@@ -0,0 +1,36 @@
+from lpython import S
+from sympy import Symbol, log
+
+def func_01(e: S, x: S) -> S:
+    print(e)
+    if e == x:
+        return x
+    print(e)
+    return e
+
+def test_func_01():
+    x: S = Symbol("x")
+    ans: S = func_01(log(x), x)
+    print(ans)
+
+def func_02(e: S, x: S) -> list[S]:
+    print(e)
+    if e == x:
+        list1: list[S] = [x]
+        return list1
+    else:
+        print(e)
+        list2: list[S] = func_02(x, x)
+        return list2
+
+def test_func_02():
+    x: S = Symbol("x")
+    ans: list[S] = func_02(log(x), x)
+    ele: S = ans[0]
+    print(ele)
+
+def tests():
+    test_func_01()
+    test_func_02()
+
+tests()
\ No newline at end of file
diff --git a/integration_tests/test_01_goto.py b/integration_tests/test_01_goto.py
deleted file mode 100644
index 2857c01768..0000000000
--- a/integration_tests/test_01_goto.py
+++ /dev/null
@@ -1,35 +0,0 @@
-from ltypes import with_goto, i32
-
-@with_goto
-def f() -> i32:
-    i:i32
-    for i in range(10):
-        if i == 5:
-            goto .end
-
-    label .end
-    assert i == 5
-    return i
-
-@with_goto
-def g(size: i32) -> i32:
-    i:i32
-
-    i = 0
-    label .loop
-    if i >= size:
-        goto .end
-    i += 1
-    goto .loop
-
-    label .end
-    return i
-
-def test_goto():
-    print(f())
-    print(g(10))
-    print(g(20))
-    assert g(30) == 30
-    assert g(40) == 40
-
-test_goto()
diff --git a/integration_tests/test_ConstantEllipsis b/integration_tests/test_ConstantEllipsis
new file mode 100644
index 0000000000..58222aa9eb
--- /dev/null
+++ b/integration_tests/test_ConstantEllipsis
@@ -0,0 +1,13 @@
+from lpython import i32
+
+def test_Ellipsis_Function():
+    ...
+
+def test_Ellipsis_For():
+    i:i32
+    for i in range(5):
+        ...
+
+def main0():
+    test_Ellipsis_Function()
+    test_Ellipsis_For()
\ No newline at end of file
diff --git a/integration_tests/test_argv_01.py b/integration_tests/test_argv_01.py
index d22b468e37..c7ba747072 100644
--- a/integration_tests/test_argv_01.py
+++ b/integration_tests/test_argv_01.py
@@ -1,12 +1,22 @@
-from ltypes import i32
-from sys import _lpython_argv
+from lpython import i32
+from sys import argv
 
 def test():
-    exe: str = _lpython_argv()[0]
-    i: i32
-    for i in range(len(exe)-1, 0, -1):
-        if exe[i] == '/':
+    exe: str = argv[0]
+    res: str = ""
+
+    if exe[0] == '.':
+        exe = exe[1:len(exe)]
+
+    s: str
+    for s in exe:
+        if s == '.':
             break
-    assert exe[i+1:len(exe)] == 'test_argv_01'
+        if s == '/':
+            res = ""
+        else:
+            res += s
+
+    assert res == 'test_argv_01'
 
 test()
diff --git a/integration_tests/test_attributes.py b/integration_tests/test_attributes.py
new file mode 100644
index 0000000000..f42775b678
--- /dev/null
+++ b/integration_tests/test_attributes.py
@@ -0,0 +1,12 @@
+def test_attributes() -> None:
+    a: i32 = 10
+    assert a.bit_length() == 4
+
+    b: str = 'abc'
+    assert b.upper() == 'ABC'
+
+    c: list[i32] = [10, 20, 30]
+    assert c[0].bit_length() == 4
+    assert c.index(10) == 0
+
+test_attributes()
diff --git a/integration_tests/test_bit_length.py b/integration_tests/test_bit_length.py
index 68bccae13f..8c64a4682d 100644
--- a/integration_tests/test_bit_length.py
+++ b/integration_tests/test_bit_length.py
@@ -1,5 +1,5 @@
 from math import floor, log2
-from ltypes import i8, i32, i16
+from lpython import i8, i32, i16
 
 def ff():
     assert -8 .bit_length() == -4
@@ -24,8 +24,25 @@ def ff3():
     x = -i16(one << i16(13))
     assert i32(x.bit_length()) == 14
 
+def ff4():
+    print((-100).bit_length())
+    print((-4).bit_length())
+
+    assert (-100).bit_length() == 7
+    assert (-4).bit_length() == 3
+
+def ff5():
+    a: i32
+    a = 100
+    print((-a).bit_length())
+    print((-(-(-(-a)))).bit_length())
+
+    assert (-a).bit_length() == 7
+    assert (-(-(-(-a)))).bit_length() == 7
 
 ff()
 ff1()
 ff2()
 ff3()
+ff4()
+ff5()
diff --git a/integration_tests/test_bool_binop.py b/integration_tests/test_bool_binop.py
index 98e817b2fa..e869e8f060 100644
--- a/integration_tests/test_bool_binop.py
+++ b/integration_tests/test_bool_binop.py
@@ -1,4 +1,4 @@
-from ltypes import i32, f64
+from lpython import i32, f64
 
 def f():
     i: i32
diff --git a/integration_tests/test_builtin.py b/integration_tests/test_builtin.py
index a57a27599c..7df13c3833 100644
--- a/integration_tests/test_builtin.py
+++ b/integration_tests/test_builtin.py
@@ -1,4 +1,4 @@
-from ltypes import i32
+from lpython import i32
 
 def test_ord():
     s: str
@@ -163,10 +163,34 @@ def test_chr():
     assert(chr(125) == '}') # testing compile time implementation
     assert(right_brace == '}') # testing runtime implementation
 
+def more_test():
+    p: i32
+    q: i32
+    r: i32
+    s: i32
+    p = 97 # char 'a'
+    q = 112 # char 'p'
+    r = 10 # newline char
+    s = 65 # char 'A'
+
+    print(chr(p))
+    print(chr(q))
+    print(chr(r))
+    print(chr(s))
+
+    a: str
+    b: str
+    c: str
+    d: str
+    a = "!"
+    b = " "
+    c = "Z"
+    d = "g"
+    print(ord(a))
+    print(ord(b))
+    print(ord(c))
+    print(ord(d))
 
 test_ord()
 test_chr()
-
-
-
-    
+more_test()
diff --git a/integration_tests/test_builtin_abs.py b/integration_tests/test_builtin_abs.py
index 1186b832ce..73f1820f18 100644
--- a/integration_tests/test_builtin_abs.py
+++ b/integration_tests/test_builtin_abs.py
@@ -1,4 +1,4 @@
-from ltypes import f32, f64, i32, i64, i8, i16
+from lpython import f32, f64, i32, i64, i8, i16
 
 def test_abs():
     x: f64
@@ -32,8 +32,8 @@ def test_abs():
 
     b: bool
     b = True
-    assert abs(b) == 1
+    assert abs(i32(b)) == 1
     b = False
-    assert abs(b) == 0
+    assert abs(i32(b)) == 0
 
 test_abs()
diff --git a/integration_tests/test_builtin_bin.py b/integration_tests/test_builtin_bin.py
index ce38dd7cc4..b8c3f20e5a 100644
--- a/integration_tests/test_builtin_bin.py
+++ b/integration_tests/test_builtin_bin.py
@@ -1,4 +1,4 @@
-from ltypes import i32
+from lpython import i32
 
 def test_bin():
     i: i32
diff --git a/integration_tests/test_builtin_bool.py b/integration_tests/test_builtin_bool.py
index 03b68f592c..fee923a1f2 100644
--- a/integration_tests/test_builtin_bool.py
+++ b/integration_tests/test_builtin_bool.py
@@ -1,4 +1,4 @@
-from ltypes import i8, i16, i32, i64, f32, f64, c32, c64
+from lpython import i8, i16, i32, i64, f32, f64, c32, c64
 
 def test_bool():
     a: i32
diff --git a/integration_tests/test_builtin_divmod.py b/integration_tests/test_builtin_divmod.py
index 7a2713a565..9296e0605d 100644
--- a/integration_tests/test_builtin_divmod.py
+++ b/integration_tests/test_builtin_divmod.py
@@ -1,4 +1,4 @@
-from ltypes import i32
+from lpython import i32
 
 def f():
     i: i32 = 42356
diff --git a/integration_tests/test_builtin_float.py b/integration_tests/test_builtin_float.py
index f2b2ea20ec..9b28b0b61a 100644
--- a/integration_tests/test_builtin_float.py
+++ b/integration_tests/test_builtin_float.py
@@ -1,4 +1,4 @@
-from ltypes import i32, f32, f64
+from lpython import i32, f32, f64
 
 def test_float():
     i: i32
diff --git a/integration_tests/test_builtin_hex.py b/integration_tests/test_builtin_hex.py
index 38ae1b0d7b..bf63d59f48 100644
--- a/integration_tests/test_builtin_hex.py
+++ b/integration_tests/test_builtin_hex.py
@@ -1,4 +1,4 @@
-from ltypes import i32
+from lpython import i32
 
 def test_hex():
     i: i32
diff --git a/integration_tests/test_builtin_int.py b/integration_tests/test_builtin_int.py
index a1deb495ed..248a82c100 100644
--- a/integration_tests/test_builtin_int.py
+++ b/integration_tests/test_builtin_int.py
@@ -1,4 +1,4 @@
-from ltypes import f64, i32, i64
+from lpython import f64, i32, i64
 
 def test_int():
     f: f64
diff --git a/integration_tests/test_builtin_len.py b/integration_tests/test_builtin_len.py
index 70f5ea9f98..8da4a0dfc5 100644
--- a/integration_tests/test_builtin_len.py
+++ b/integration_tests/test_builtin_len.py
@@ -1,4 +1,4 @@
-from ltypes import i32, f64
+from lpython import i32, f64
 
 def test_len():
     s: str
diff --git a/integration_tests/test_builtin_oct.py b/integration_tests/test_builtin_oct.py
index 516ee9933c..5613323f1f 100644
--- a/integration_tests/test_builtin_oct.py
+++ b/integration_tests/test_builtin_oct.py
@@ -1,4 +1,4 @@
-from ltypes import i32
+from lpython import i32
 
 def test_oct():
     i: i32
diff --git a/integration_tests/test_builtin_pow.py b/integration_tests/test_builtin_pow.py
index f2869e10f5..3ee942a167 100644
--- a/integration_tests/test_builtin_pow.py
+++ b/integration_tests/test_builtin_pow.py
@@ -1,4 +1,4 @@
-from ltypes import i32, i64, f32, f64, c32
+from lpython import i32, i64, f32, f64, c32
 
 def test_pow():
     # TODO: the commented tests should also work
@@ -80,7 +80,7 @@ def test_pow():
     k: i64
     k = i64(5)
     assert pow(i, j, k) == i64(4)
-    assert pow(102, 3, 121) == 38
+    # assert pow(102, 3, 121) == 38
 
     c1: c32
     c1 = c32(complex(4, 5))
diff --git a/integration_tests/test_builtin_round.py b/integration_tests/test_builtin_round.py
index 6ac3fd1d5e..ee158d18f3 100644
--- a/integration_tests/test_builtin_round.py
+++ b/integration_tests/test_builtin_round.py
@@ -1,4 +1,4 @@
-from ltypes import i8, i16, i32, i64, f32, f64
+from lpython import i8, i16, i32, i64, f32, f64
 
 def test_round():
     f: f64
diff --git a/integration_tests/test_builtin_str.py b/integration_tests/test_builtin_str.py
index cb65a46b47..bf3c1c106f 100644
--- a/integration_tests/test_builtin_str.py
+++ b/integration_tests/test_builtin_str.py
@@ -1,4 +1,4 @@
-from ltypes import f32, f64, i32
+from lpython import f32, f64, i32
 
 def test_str_int_float():
     s: str
diff --git a/integration_tests/test_builtin_str_02.py b/integration_tests/test_builtin_str_02.py
index 6498a631b7..aef019b4bb 100644
--- a/integration_tests/test_builtin_str_02.py
+++ b/integration_tests/test_builtin_str_02.py
@@ -1,4 +1,4 @@
-from ltypes import i32
+from lpython import i32
 
 def _lpython_strcmp_eq(a: str, b: str) -> bool:
     if len(a) != len(b):
diff --git a/integration_tests/test_builtin_sum.py b/integration_tests/test_builtin_sum.py
new file mode 100644
index 0000000000..000198dad0
--- /dev/null
+++ b/integration_tests/test_builtin_sum.py
@@ -0,0 +1,28 @@
+from lpython import f32, f64, i32, i64
+
+def test_sum():
+    arr_i32 :list[i32]
+    arr_i32 = [6, 12]
+    res_i32 :i32 = sum(arr_i32)
+    assert res_i32 == 18
+
+    arr_i64 :list[i64] = [i64(600000000000), i64(1200000000000)]
+    res_i64 :i64 = sum(arr_i64)
+    assert res_i64 == i64(1800000000000)
+
+    eps1 :f32 = f32(1e-12)
+    x :f32 = f32(12.5)
+    y :f32 = f32(6.5)
+    arr_f32 :list[f32]
+    arr_f32 = [x, y]
+    res_f32 :f32 = sum(arr_f32)
+    assert abs(res_f32 - f32(19.0)) < eps1
+
+    eps2: f64 = 1e-12
+    arr_f64: list[f64]
+    arr_f64 = [12.6, 6.4]
+    res_f64 :f64 = sum(arr_f64)
+    assert abs(res_f64 - 19.0) < eps2
+
+
+test_sum()
diff --git a/integration_tests/test_builtin_type.py b/integration_tests/test_builtin_type.py
new file mode 100644
index 0000000000..188313444f
--- /dev/null
+++ b/integration_tests/test_builtin_type.py
@@ -0,0 +1,32 @@
+from lpython import i32, f64
+
+def test_builtin_type():
+    i: i32 = 42
+    f: f64 = 64.0
+    s: str = "Hello, LPython!"
+    l: list[i32] = [1, 2, 3, 4, 5]
+    d: dict[str, i32] = {"a": 1, "b": 2, "c": 3}
+    t: tuple[str, i32] = ("a", 1)
+    res: str = ""
+
+    res = str(type(i))
+    print(res)
+    assert res == "<class 'int'>"
+    res = str(type(f))
+    print(res)
+    assert res == "<class 'float'>"
+    res = str(type(s))
+    print(res)
+    assert res == "<class 'str'>"
+    res = str(type(l))
+    print(res)
+    assert res == "<class 'list'>"
+    res = str(type(d))
+    print(res)
+    assert res == "<class 'dict'>"
+    res = str(type(t))
+    print(res)
+    assert res == "<class 'tuple'>"
+    
+
+test_builtin_type()
diff --git a/integration_tests/test_builtin_type_set.py b/integration_tests/test_builtin_type_set.py
new file mode 100644
index 0000000000..d0265b1c1a
--- /dev/null
+++ b/integration_tests/test_builtin_type_set.py
@@ -0,0 +1,11 @@
+from lpython import i32
+
+def test_builtin_type_set():
+    st: set[i32] = {1, 2, 3, 4}
+
+    res: str = str(type(st))
+    print(res)
+    assert res == "<class 'set'>"
+    
+
+test_builtin_type_set()
diff --git a/integration_tests/test_c_interop_01.py b/integration_tests/test_c_interop_01.py
index 3d8c5e7852..278e49a7ea 100644
--- a/integration_tests/test_c_interop_01.py
+++ b/integration_tests/test_c_interop_01.py
@@ -1,4 +1,4 @@
-from ltypes import ccall, f32, f64, i32, i64
+from lpython import ccall, f32, f64, i32, i64
 #from math import pi
 
 @ccall
@@ -9,14 +9,6 @@ def _lfortran_dsin(x: f64) -> f64:
 def _lfortran_ssin(x: f32) -> f32:
     pass
 
-@ccall
-def _lfortran_bgt32(i: i32, j: i32) -> i32:
-    pass
-
-@ccall
-def _lfortran_bgt64(i: i64, j: i64) -> i32:
-    pass
-
 #@ccall
 #def _lfortran_random_number(n: i64, v: f64[:]):
 #    pass
@@ -24,13 +16,8 @@ def _lfortran_bgt64(i: i64, j: i64) -> i32:
 def test_c_callbacks():
     pi: f64 = 3.141592653589793238462643383279502884197
     assert abs(_lfortran_dsin(pi) - 0.0) < 1e-12
-    assert abs(_lfortran_dsin(pi/2) - 1.0) < 1e-12
+    assert abs(_lfortran_dsin(pi/2.0) - 1.0) < 1e-12
     assert abs(_lfortran_ssin(f32(pi)) - f32(0.0)) < f32(1e-6)
     assert abs(_lfortran_ssin(f32(pi/2.0)) - f32(1.0)) < f32(1e-6)
 
-    assert _lfortran_bgt32(3, 4) == 0
-    assert _lfortran_bgt32(4, 3) == 1
-    assert _lfortran_bgt64(i64(3), i64(4)) == 0
-    assert _lfortran_bgt64(i64(4), i64(3)) == 1
-
 test_c_callbacks()
diff --git a/integration_tests/test_c_interop_02.py b/integration_tests/test_c_interop_02.py
index 55efd59e1d..1500e09892 100644
--- a/integration_tests/test_c_interop_02.py
+++ b/integration_tests/test_c_interop_02.py
@@ -1,4 +1,4 @@
-from ltypes import ccall, f32, f64, i8, i16, i32, i64
+from lpython import ccall, f32, f64, i8, i16, i32, i64
 
 @ccall
 def f_f64_f64(x: f64) -> f64:
diff --git a/integration_tests/test_c_interop_03.py b/integration_tests/test_c_interop_03.py
index c94037a4d4..516eee6cda 100644
--- a/integration_tests/test_c_interop_03.py
+++ b/integration_tests/test_c_interop_03.py
@@ -1,4 +1,4 @@
-from ltypes import (ccall, f32, f64, i32, i64, CPtr, pointer, Pointer,
+from lpython import (ccall, f32, f64, i32, i64, CPtr, pointer, Pointer,
         p_c_pointer, empty_c_void_p)
 
 @ccall
diff --git a/integration_tests/test_c_interop_04.py b/integration_tests/test_c_interop_04.py
index 30bb8236b6..0be53d4841 100644
--- a/integration_tests/test_c_interop_04.py
+++ b/integration_tests/test_c_interop_04.py
@@ -1,4 +1,4 @@
-from ltypes import (ccall, f32, f64, i32, i64, CPtr, pointer, Pointer,
+from lpython import (ccall, f32, f64, i32, i64, CPtr, pointer, Pointer,
         p_c_pointer, empty_c_void_p)
 from numpy import empty, int32
 
diff --git a/integration_tests/test_c_interop_05.py b/integration_tests/test_c_interop_05.py
index 116779d8db..aaa799520d 100644
--- a/integration_tests/test_c_interop_05.py
+++ b/integration_tests/test_c_interop_05.py
@@ -1,4 +1,4 @@
-from ltypes import ccall, f32, f64, i32, i64, CPtr, pointer, Pointer, p_c_pointer
+from lpython import ccall, f32, f64, i32, i64, CPtr, pointer, Pointer, p_c_pointer, ccallback
 
 @ccall
 def f_i32_i32(x: i32) -> i32:
diff --git a/integration_tests/test_cmath.py b/integration_tests/test_cmath.py
index 2721b04dfa..5b8429f41c 100644
--- a/integration_tests/test_cmath.py
+++ b/integration_tests/test_cmath.py
@@ -1,6 +1,8 @@
-from cmath import (exp, log, sqrt, acos, asin, atan, cos, sin, tan,
-                   acosh, asinh, atanh, cosh, sinh, tanh)
-from ltypes import c64, c32
+from cmath import (acos, acosh, asin, asinh, atan, atanh, cos, cosh, exp, log,
+                   phase, polar, rect, sin, sinh, sqrt, tan, tanh)
+
+from lpython import c32, c64, f64
+
 
 def test_power_logarithmic():
     x: c64
@@ -59,6 +61,17 @@ def test_hyperbolic():
     b = tanh(a)
 
 
+def test_polar():
+    x: c64
+    eps: f64
+    eps = 1e-12
+    x = complex(1, -2)
+    assert f64(abs(f64(phase(x)) - (-1.1071487177940904))) < eps
+    assert f64(abs(f64(polar(x)[0]) - (2.23606797749979))) < eps
+    assert abs(abs(rect(2.23606797749979, -1.1071487177940904))-abs(x)) < eps
+
+
 test_power_logarithmic()
 test_trigonometric()
 test_hyperbolic()
+test_polar()
diff --git a/integration_tests/test_complex.py b/integration_tests/test_complex.py
deleted file mode 100644
index dc9f4d230a..0000000000
--- a/integration_tests/test_complex.py
+++ /dev/null
@@ -1,142 +0,0 @@
-from ltypes import i32, i64, f32, f64, c32, c64
-
-def test_real_imag():
-    x: c64
-    x = c64(2) + 3j
-    a: f64
-    b: f64
-    eps: f64
-    eps = 1e-12
-    a = x.real
-    b = x.imag
-    assert abs(a - 2.0) < eps
-    assert abs(b - 3.0) < eps
-
-def test_complex():
-    x: c64
-    x = complex(4.5, 6.7)
-    eps: f64
-    eps = 1e-12
-    assert abs(x.real - 4.5) < eps
-    assert abs(x.imag - 6.7) < eps
-
-    x = complex(-4, 2)
-    assert abs(x.real - (-4.0)) < eps
-    assert abs(x.imag - 2.0) < eps
-
-    x = complex(4, 7.89)
-    assert abs(x.real - 4.0) < eps
-    assert abs(x.imag - 7.89) < eps
-
-    x = complex(5.6, 0)
-    assert abs(x.real - 5.6) < eps
-    assert abs(x.imag - 0.0) < eps
-
-    a: f64
-    a = 534.6
-    x = complex(a, -a) # (f64, f64)
-
-    assert abs(x.real - 534.60000000000002274) < eps
-    assert abs(x.imag - (-534.60000000000002274)) < eps
-
-    a2: f32
-    a2 = -f32(423.5430806348152437)
-    a3: f32
-    a3 = f32(34.5)
-    x2: c32
-    x2 = c32(complex(a2, a3)) # (f32, f32)
-
-    assert f64(abs(x2.imag - f32(34.5))) < eps
-
-    i1: i32
-    i1 = -5
-    i2: i64
-    i2 = -i64(6)
-
-    x = complex(a3, a) # (f32, f64)
-    x = complex(a, a3) # (f64, f32)
-    x = complex(i1, i2) # (i32, i64)
-    x = complex(i1, -i1) # (i32, i32)
-    x = complex(-i2, -i2) # (i64, i64)
-    x = complex(i2, -i1) # (i64, i32)
-
-
-def test_complex_abs():
-    x: c32
-    x = c32(complex(3, 4))
-    eps: f64
-    eps = 1e-12
-    assert f64(abs(f64(abs(x)) - 5.0)) < eps
-    y: c64
-    y = complex(6, 8)
-    assert abs(abs(y) - 10.0) < eps
-
-def test_complex_binop_32():
-    x: c32
-    y: c32
-    z: c32
-    x = c32(c64(2) + 3j)
-    y = c32(c64(4) + 5j)
-    z = x + y
-    z = x - y
-    z = x * y
-    # TODO:
-    #z = x / y
-    z = x ** y
-
-def test_complex_binop_64():
-    x: c64
-    y: c64
-    z: c64
-    x = c64(2) + 3j
-    y = c64(4) + 5j
-    z = x + y
-    z = x - y
-    z = x * y
-    # TODO:
-    #z = x / y
-    z = x ** y
-
-def test_complex_unary_minus():
-    c: c32
-    c = c32(complex(3, 4.5))
-    _c: c32
-    _c = -c
-    assert abs(f64(_c.real) - (-3.0)) < 1e-12
-    assert abs(f64(_c.imag) - (-4.5)) < 1e-12
-    _c = c32(complex(5, -78))
-    _c = -_c
-    assert abs(f64(_c.real) - (-5.0)) < 1e-12
-    assert abs(f64(_c.imag) - 78.0) < 1e-12
-    c2: c64
-    c2 = complex(-4.5, -7.8)
-    c2 = -c2
-    assert abs(c2.real - 4.5) < 1e-12
-    assert abs(c2.imag - 7.8) < 1e-12
-    c2 = c64(3) + 4j
-    c2 = -c2
-    assert abs(c2.real - (-3.0)) < 1e-12
-    assert abs(c2.imag - (-4.0)) < 1e-12
-
-def test_complex_not():
-    c: c32
-    c = c32(complex(4, 5))
-    b: bool
-    b = not c
-    assert not b
-
-    c2: c64
-    c2 = complex(0, 0)
-    b = not c2
-    assert b
-
-def check():
-    test_real_imag()
-    test_complex()
-    test_complex_abs()
-    test_complex_binop_32()
-    test_complex_binop_64()
-    test_complex_unary_minus()
-    test_complex_not()
-
-check()
diff --git a/integration_tests/test_complex_01.py b/integration_tests/test_complex_01.py
new file mode 100644
index 0000000000..04f88b6895
--- /dev/null
+++ b/integration_tests/test_complex_01.py
@@ -0,0 +1,102 @@
+from lpython import i32, i64, f32, f64, c32, c64
+
+def test_real_imag():
+    x: c64
+    x = c64(2) + 3j
+    a: f64
+    b: f64
+    eps: f64
+    eps = 1e-12
+    a = x.real
+    b = x.imag
+    assert abs(a - 2.0) <= eps
+    assert abs(b - 3.0) <= eps
+
+def test_complex():
+    x: c64
+    x = complex(4.5, 6.7)
+    eps: f64
+    eps = 1e-12
+    assert abs(x.real - 4.5) <= eps
+    assert abs(x.imag - 6.7) <= eps
+
+    x = complex(-4, 2)
+    assert abs(x.real - (-4.0)) <= eps
+    assert abs(x.imag - 2.0) <= eps
+
+    x = complex(4, 7.89)
+    assert abs(x.real - 4.0) <= eps
+    assert abs(x.imag - 7.89) <= eps
+
+    x = complex(5.6, 0)
+    assert abs(x.real - 5.6) <= eps
+    assert abs(x.imag - 0.0) <= eps
+
+    a: f64
+    a = 534.6
+    x = complex(a, -a) # (f64, f64)
+
+    assert abs(x.real - 534.60000000000002274) <= eps
+    assert abs(x.imag - (-534.60000000000002274)) <= eps
+
+    a2: f32
+    a2 = -f32(423.5430806348152437)
+    a3: f32
+    a3 = f32(34.5)
+    x2: c32
+    x2 = c32(complex(a2, a3)) # (f32, f32)
+
+    assert f64(abs(x2.imag - f32(34.5))) <= eps
+
+    i1: i32
+    i1 = -5
+    i2: i64
+    i2 = -i64(6)
+
+    x = complex(a3, a) # (f32, f64)
+    x = complex(a, a3) # (f64, f32)
+    x = complex(i1, i2) # (i32, i64)
+    x = complex(i1, -i1) # (i32, i32)
+    x = complex(-i2, -i2) # (i64, i64)
+    x = complex(i2, -i1) # (i64, i32)
+
+def test_complex_unary_minus():
+    c: c32
+    c = c32(complex(3, 4.5))
+    _c: c32
+    _c = -c
+    assert abs(f64(_c.real) - (-3.0)) <= 1e-12
+    assert abs(f64(_c.imag) - (-4.5)) <= 1e-12
+    _c = c32(complex(5, -78))
+    _c = -_c
+    assert abs(f64(_c.real) - (-5.0)) <= 1e-12
+    assert abs(f64(_c.imag) - 78.0) <= 1e-12
+    c2: c64
+    c2 = complex(-4.5, -7.8)
+    c2 = -c2
+    assert abs(c2.real - 4.5) <= 1e-12
+    assert abs(c2.imag - 7.8) <= 1e-12
+    c2 = c64(3) + 4j
+    c2 = -c2
+    assert abs(c2.real - (-3.0)) <= 1e-12
+    assert abs(c2.imag - (-4.0)) <= 1e-12
+
+def test_complex_not():
+    c: c32
+    c = c32(complex(4, 5))
+    b: bool
+    b = not c
+    assert not b
+
+    c2: c64
+    c2 = complex(0, 0)
+    b = not c2
+    assert b
+
+def check():
+    test_real_imag()
+    test_complex()
+    test_complex_unary_minus()
+    test_complex_not()
+
+check()
diff --git a/integration_tests/test_complex_02.py b/integration_tests/test_complex_02.py
new file mode 100644
index 0000000000..9a48c6fcb9
--- /dev/null
+++ b/integration_tests/test_complex_02.py
@@ -0,0 +1,44 @@
+from lpython import f64, c32, c64
+
+def test_complex_abs():
+    x: c32
+    x = c32(complex(3, 4))
+    eps: f64
+    eps = 1e-12
+    assert f64(abs(f64(abs(x)) - 5.0)) < eps
+    y: c64
+    y = complex(6, 8)
+    assert abs(abs(y) - 10.0) < eps
+
+def test_complex_binop_32():
+    x: c32
+    y: c32
+    z: c32
+    x = c32(c64(2) + 3j)
+    y = c32(c64(4) + 5j)
+    z = x + y
+    z = x - y
+    z = x * y
+    # TODO:
+    #z = x / y
+    z = x ** y
+
+def test_complex_binop_64():
+    x: c64
+    y: c64
+    z: c64
+    x = c64(2) + 3j
+    y = c64(4) + 5j
+    z = x + y
+    z = x - y
+    z = x * y
+    # TODO:
+    #z = x / y
+    z = x ** y
+
+def check():
+    test_complex_abs()
+    test_complex_binop_32()
+    test_complex_binop_64()
+
+check()
diff --git a/integration_tests/test_const_access.py b/integration_tests/test_const_access.py
new file mode 100644
index 0000000000..4368e3ed0c
--- /dev/null
+++ b/integration_tests/test_const_access.py
@@ -0,0 +1,9 @@
+from lpython import i32, Const
+
+CONST_LIST: Const[list[i32]] = [1, 2, 3, 4, 5]
+CONST_DICTIONARY: Const[dict[str, i32]] = {"a": 1, "b": 2, "c": 3}
+
+assert CONST_LIST[0] == 1
+assert CONST_LIST[-2] == 4
+
+assert CONST_DICTIONARY["a"] == 1
\ No newline at end of file
diff --git a/integration_tests/test_const_dict.py b/integration_tests/test_const_dict.py
new file mode 100644
index 0000000000..e06578fc45
--- /dev/null
+++ b/integration_tests/test_const_dict.py
@@ -0,0 +1,24 @@
+from lpython import i32, f64, Const
+
+CONST_DICTIONARY_INTEGR: Const[dict[str, i32]] = {"a": 1, "b": 2, "c": 3}
+
+print(CONST_DICTIONARY_INTEGR.get("a"))
+assert CONST_DICTIONARY_INTEGR.get("a") == 1
+
+print(CONST_DICTIONARY_INTEGR.keys())
+assert len(CONST_DICTIONARY_INTEGR.keys()) == 3
+
+print(CONST_DICTIONARY_INTEGR.values())
+assert len(CONST_DICTIONARY_INTEGR.values()) == 3
+
+CONST_DICTIONARY_FLOAT: Const[dict[str, f64]] = {"a": 1.0, "b": 2.0, "c": 3.0}
+
+print(CONST_DICTIONARY_FLOAT.get("a"))
+assert CONST_DICTIONARY_FLOAT.get("a") == 1.0
+
+print(CONST_DICTIONARY_FLOAT.keys())
+assert len(CONST_DICTIONARY_FLOAT.keys()) == 3
+
+print(CONST_DICTIONARY_FLOAT.values())
+assert len(CONST_DICTIONARY_FLOAT.values()) == 3
+
diff --git a/integration_tests/test_const_list.py b/integration_tests/test_const_list.py
new file mode 100644
index 0000000000..4f0a568251
--- /dev/null
+++ b/integration_tests/test_const_list.py
@@ -0,0 +1,19 @@
+from lpython import i32, Const
+
+
+def test_const_list():
+    CONST_INTEGER_LIST: Const[list[i32]] = [1, 2, 3, 4, 5, 1]
+
+    print(CONST_INTEGER_LIST.count(1))
+    print(CONST_INTEGER_LIST.index(1))
+    assert CONST_INTEGER_LIST.count(1) == 2
+    assert CONST_INTEGER_LIST.index(1) == 0
+
+    CONST_STRING_LIST: Const[list[str]] = ["ALPHA", "BETA", "RELEASE"]
+    print(CONST_STRING_LIST.count("ALPHA"))
+    print(CONST_STRING_LIST.index("RELEASE"))
+    assert CONST_STRING_LIST.count("ALPHA") == 1
+    assert CONST_STRING_LIST.index("RELEASE") == 2
+
+
+test_const_list()
diff --git a/integration_tests/test_dict_01.py b/integration_tests/test_dict_01.py
index 99b3043248..0be09ad2fb 100644
--- a/integration_tests/test_dict_01.py
+++ b/integration_tests/test_dict_01.py
@@ -1,4 +1,4 @@
-from ltypes import i32, f64
+from lpython import i32, f64
 
 def test_dict():
     rollnumber2cpi: dict[i32, f64] = {}
@@ -8,12 +8,20 @@ def test_dict():
     rollnumber2cpi[0] = 1.1
 
     for i in range(1000, 1000 + size):
-        rollnumber2cpi[i] = float(i/100.0 + 5.0)
+        rollnumber2cpi[i] = float(i)/100.0 + 5.0
 
     for i in range(1000 + size - 1, 1001, -1):
-        assert abs(rollnumber2cpi[i] - i/100.0 - 5.0) <= 1e-12
+        assert abs(rollnumber2cpi[i] - f64(i)/100.0 - 5.0) <= 1e-12
 
     assert abs(rollnumber2cpi[0] - 1.1) <= 1e-12
     assert len(rollnumber2cpi) == 1001
 
+def test_issue_1839():
+    assert len({1: 2, 1: 3, 4: 5}) == 2
+    x: dict[i32, i32] = {}
+    x = {1: 1, 1: 2, 1: 3}
+    assert len(x) == 1
+
+
 test_dict()
+test_issue_1839()
diff --git a/integration_tests/test_dict_02.py b/integration_tests/test_dict_02.py
index 2c397ae90c..672fcb1a5f 100644
--- a/integration_tests/test_dict_02.py
+++ b/integration_tests/test_dict_02.py
@@ -1,4 +1,4 @@
-from ltypes import i32, f64
+from lpython import i32, f64
 
 def test_dict():
     rollnumber2cpi: dict[i32, f64] = {0: 1.1}
diff --git a/integration_tests/test_dict_03.py b/integration_tests/test_dict_03.py
index fa9ecc4691..24583d4ba8 100644
--- a/integration_tests/test_dict_03.py
+++ b/integration_tests/test_dict_03.py
@@ -1,4 +1,4 @@
-from ltypes import f64, i32, i64
+from lpython import f64, i32, i64
 
 def power2(i: i64, mod: i64) -> i64:
     if i == i64(0) or i == i64(1):
diff --git a/integration_tests/test_dict_04.py b/integration_tests/test_dict_04.py
index ae6a4ec919..2665f38c11 100644
--- a/integration_tests/test_dict_04.py
+++ b/integration_tests/test_dict_04.py
@@ -1,4 +1,4 @@
-from ltypes import i32, i64, f64
+from lpython import i32, i64, f64
 from math import pi, sin, cos
 
 def test_dict():
diff --git a/integration_tests/test_dict_05.py b/integration_tests/test_dict_05.py
index 68d93705e6..df35e97494 100644
--- a/integration_tests/test_dict_05.py
+++ b/integration_tests/test_dict_05.py
@@ -1,4 +1,4 @@
-from ltypes import i32, f64
+from lpython import i32, f64
 
 def test_dict():
     rollnumber2cpi: dict[i32, f64] = {}
@@ -7,7 +7,7 @@ def test_dict():
     end: i32 = 501
 
     for i in range(start, end):
-        rollnumber2cpi[i] = float(i/100.0 + 5.0)
+        rollnumber2cpi[i] = float(i)/100.0 + 5.0
 
     # for i in range(end - 1, start + 1, -1):
     #     assert abs(rollnumber2cpi[i] - i/100.0 - 5.0) <= 1e-12
diff --git a/integration_tests/test_dict_06.py b/integration_tests/test_dict_06.py
new file mode 100644
index 0000000000..44ba650bfa
--- /dev/null
+++ b/integration_tests/test_dict_06.py
@@ -0,0 +1,24 @@
+from lpython import f64, i32
+
+def fill_rollnumber2cpi(size: i32) -> dict[i32, f64]:
+    i : i32
+    rollnumber2cpi: dict[i32, f64] = {}
+    
+    rollnumber2cpi[0] = 1.1
+    for i in range(1000, 1000 + size):
+        rollnumber2cpi[i] = float(i)/100.0 + 5.0
+
+    return rollnumber2cpi
+
+def test_dict():
+    i: i32
+    size: i32 = 200
+    rollnumber2cpi: dict[i32, f64] = fill_rollnumber2cpi(size)
+
+    for i in range(1000 + size - 1, 1001, -1):
+        assert abs(rollnumber2cpi[i] - f64(i)/100.0 - 5.0) <= 1e-12
+
+    assert abs(rollnumber2cpi[0] - 1.1) <= 1e-12
+    assert len(rollnumber2cpi) == 201
+
+test_dict()
diff --git a/integration_tests/test_dict_07.py b/integration_tests/test_dict_07.py
new file mode 100644
index 0000000000..8c6b6e54a1
--- /dev/null
+++ b/integration_tests/test_dict_07.py
@@ -0,0 +1,21 @@
+from lpython import i32
+
+
+def fill_smalltocapital() -> dict[str, str]:
+    return {'a': 'A', 'b': 'B', 'c': 'C', 'd': 'D','e': 'E',
+            'f': 'F', 'g': 'G', 'h': 'H', 'i': 'I','j': 'J',
+            'k': 'K', 'l': 'L', 'm': 'M', 'n': 'N','o': 'O',
+            'p': 'P', 'q': 'Q', 'r': 'R', 's': 'S','t': 'T',
+            'u': 'U', 'v': 'V', 'w': 'W', 'x': 'X','y': 'Y',
+            'z': 'Z'}
+
+def test_dict():
+    i: i32
+    smalltocaps: dict[str, str]
+    smalltocaps = fill_smalltocapital()
+
+    assert len(smalltocaps) == 26
+    for i in range(97, 97 + 26):
+        assert smalltocaps[chr(i)] == chr(i - 32)
+
+test_dict()
diff --git a/integration_tests/test_dict_08.py b/integration_tests/test_dict_08.py
new file mode 100644
index 0000000000..1845849458
--- /dev/null
+++ b/integration_tests/test_dict_08.py
@@ -0,0 +1,31 @@
+# test case for passing dict as args and return value to a function
+
+from lpython import i32
+
+def get_cubes_from_squares(squares: dict[i32, i32]) -> dict[i32, i32]:
+    i : i32
+    cubes: dict[i32, i32] = {}
+    for i in range(1, 16):
+        cubes[i] = squares[i] * i
+    return cubes
+
+def assert_dict(squares: dict[i32, i32], cubes: dict[i32, i32]):
+    i : i32
+    for i in range(1, 16):
+        assert squares[i] == (i * i)
+    for i in range(1, 16):
+        assert cubes[i] == (i * i * i)
+    assert len(squares) == 15
+    assert len(cubes) == 15
+
+def test_dict():
+    squares : dict[i32, i32]
+    squares = {1:1, 2:4, 3:9, 4:16, 5:25, 6:36, 7:49,
+               8:64, 9:81, 10:100, 11:121, 12:144, 13:169,
+               14: 196, 15:225}
+    
+    cubes : dict[i32, i32]
+    cubes = get_cubes_from_squares(squares)
+    assert_dict(squares, cubes)
+
+test_dict()
diff --git a/integration_tests/test_dict_09.py b/integration_tests/test_dict_09.py
new file mode 100644
index 0000000000..948288c0d3
--- /dev/null
+++ b/integration_tests/test_dict_09.py
@@ -0,0 +1,29 @@
+# test case for passing dict as args and return value to a function
+
+from lpython import f64, i32
+
+def fill_rollnumber2cpi(size: i32) -> dict[i32, f64]:
+    i : i32
+    rollnumber2cpi: dict[i32, f64] = {}
+    
+    rollnumber2cpi[0] = 1.1
+    for i in range(1000, 1000 + size):
+        rollnumber2cpi[i] = float(i)/100.0 + 5.0
+
+    return rollnumber2cpi
+
+def test_assertion(rollnumber2cpi: dict[i32, f64], size: i32):
+    i: i32
+    for i in range(1000 + size - 1, 1001, -1):
+        assert abs(rollnumber2cpi[i] - f64(i)/100.0 - 5.0) <= 1e-12
+
+    assert abs(rollnumber2cpi[0] - 1.1) <= 1e-12
+    assert len(rollnumber2cpi) == 201
+
+def test_dict():
+    size: i32 = 200
+    rollnumber2cpi: dict[i32, f64] = fill_rollnumber2cpi(size)
+
+    test_assertion(rollnumber2cpi, size)
+
+test_dict()
diff --git a/integration_tests/test_dict_10.py b/integration_tests/test_dict_10.py
new file mode 100644
index 0000000000..8adbeab2ac
--- /dev/null
+++ b/integration_tests/test_dict_10.py
@@ -0,0 +1,22 @@
+from lpython import i32
+
+# test case for passing dict with key-value as strings as argument to function
+
+def test_assertion(smalltocaps: dict[str, str]):
+    i: i32
+    assert len(smalltocaps) == 26
+    for i in range(97, 97 + 26):
+        assert smalltocaps[chr(i)] == chr(i - 32)
+
+def test_dict():
+    smalltocaps: dict[str, str]
+    smalltocaps = {'a': 'A', 'b': 'B', 'c': 'C', 'd': 'D','e': 'E',
+                   'f': 'F', 'g': 'G', 'h': 'H', 'i': 'I','j': 'J',
+                   'k': 'K', 'l': 'L', 'm': 'M', 'n': 'N','o': 'O',
+                   'p': 'P', 'q': 'Q', 'r': 'R', 's': 'S','t': 'T',
+                   'u': 'U', 'v': 'V', 'w': 'W', 'x': 'X','y': 'Y',
+                   'z': 'Z'}
+
+    test_assertion(smalltocaps)
+
+test_dict()
diff --git a/integration_tests/test_dict_11.py b/integration_tests/test_dict_11.py
new file mode 100644
index 0000000000..57c64fe1b8
--- /dev/null
+++ b/integration_tests/test_dict_11.py
@@ -0,0 +1,16 @@
+from lpython import i32
+
+def test_dict_11():
+    num : dict[i32, i32]
+    num = {11: 22, 33: 44, 55: 66}
+    assert num.get(7, -1) == -1
+    assert num.get(11, -1) == 22
+    assert num.get(33, -1) == 44
+    assert num.get(55, -1) == 66
+    assert num.get(72, -110) == -110
+    d : dict[i32, str]
+    d = {1: "1", 2: "22", 3: "333"}
+    assert d.get(2, "00") == "22"
+    assert d.get(21, "nokey") == "nokey"
+
+test_dict_11()
diff --git a/integration_tests/test_dict_12.py b/integration_tests/test_dict_12.py
new file mode 100644
index 0000000000..e56ac43f32
--- /dev/null
+++ b/integration_tests/test_dict_12.py
@@ -0,0 +1,36 @@
+from lpython import i32
+
+def main():
+    d: dict[str, i32] = {
+        '2': 2, '3': 3,
+        '4': 4, '5': 5, '6': 6, '7': 7,
+        '8': 8, '9': 9,
+        'a': 10, 'b': 11, 'c': 12, 'd': 13,
+        'A': 100, 'B': 110, 'C': 120, 'D': 130,
+        'e': 14, 'f': 15,
+        'E': 140, 'F': 150}
+
+    assert (d['2'] == 2)
+    assert (d['3'] == 3)
+    assert (d['4'] == 4)
+    assert (d['5'] == 5)
+    assert (d['6'] == 6)
+    assert (d['7'] == 7)
+    assert (d['8'] == 8)
+    assert (d['9'] == 9)
+
+    assert (d['a'] == 10)
+    assert (d['b'] == 11)
+    assert (d['c'] == 12)
+    assert (d['d'] == 13)
+    assert (d['A'] == 100)
+    assert (d['B'] == 110)
+    assert (d['C'] == 120)
+    assert (d['D'] == 130)
+
+    assert (d['e'] == 14)
+    assert (d['f'] == 15)
+    assert (d['E'] == 140)
+    assert (d['F'] == 150)
+
+main()
diff --git a/integration_tests/test_dict_13.py b/integration_tests/test_dict_13.py
new file mode 100644
index 0000000000..670a9eb60c
--- /dev/null
+++ b/integration_tests/test_dict_13.py
@@ -0,0 +1,43 @@
+from lpython import i32
+
+I4C: dict[str, i32] = {
+    '0': 0, '1': 1, '2': 2, '3': 3,
+    '4': 4, '5': 5, '6': 6, '7': 7,
+    '8': 8, '9': 9,
+    'a': 10, 'b': 11, 'c': 12, 'd': 13,
+    'A': 10, 'B': 11, 'C': 12, 'D': 13,
+    'e': 14, 'f': 15,
+    'E': 14, 'F': 15}
+
+
+def cnvi(s : str, base : i32=10) -> i32:
+    """Assume input has been through 'match_integer'."""
+    assert base == 10 or base == 8 or base == 16 or base == 2
+    result : i32 = 0
+    c : str
+    pow_: i32 = base ** (len(s) - 1)
+    for c in s:
+        incr : i32 = pow_ * I4C[c]
+        result += incr
+        pow_ = (pow_ // base)
+    return result
+
+
+if __name__ == '__main__':
+    print(cnvi('0b0', base=2))
+    assert cnvi('0b0', base=2) == 22
+
+    print(cnvi('0b1', base=2))
+    assert cnvi('0b1', base=2) == 23
+
+    print(cnvi('0b10', base=2))
+    assert cnvi('0b10', base=2) == 46
+
+    print(cnvi('0b11', base=2))
+    assert cnvi('0b11', base=2) == 47
+
+    print(cnvi('0b11110100111', base=2))
+    assert cnvi('0b11110100111', base=2) == 24487
+
+    print(cnvi('0b7a7', base=16))
+    assert cnvi('0b7a7', base=16) == 47015
diff --git a/integration_tests/test_dict_14.py b/integration_tests/test_dict_14.py
new file mode 100644
index 0000000000..4fe91c687f
--- /dev/null
+++ b/integration_tests/test_dict_14.py
@@ -0,0 +1,65 @@
+from lpython import i32
+
+def test_dict():
+    d_i32: dict[i32, i32] = {5: 1, 5: 2}
+    d_str: dict[str, i32] = {'a': 1, 'a': 2}
+    l_str_1: list[str] = []
+    l_str_2: list[str] = []
+    l_i32_1: list[i32] = []
+    l_i32_2: list[i32] = []
+    i: i32
+    s: str
+
+    assert len(d_i32) == 1
+    d_i32.pop(5)
+    assert len(d_i32) == 0
+
+    assert len(d_str) == 1
+    d_str.pop('a')
+    assert len(d_str) == 0
+
+    d_str = {'a': 2, 'a': 2, 'b': 2, 'c': 3, 'a': 5}
+    assert len(d_str) == 3
+    d_str.pop('a')
+    assert len(d_str) == 2
+    d_str.pop('b')
+    assert len(d_str) == 1
+
+    d_str['a'] = 20
+    assert len(d_str) == 2
+    d_str.pop('c')
+    assert len(d_str) == 1
+
+    l_str_1 = d_str.keys()
+    for s in l_str_1:
+        l_str_2.append(s)
+    assert l_str_2 == ['a']
+    l_i32_1 = d_str.values()
+    for i in l_i32_1:
+        l_i32_2.append(i)
+    assert l_i32_2 == [20]
+
+    d_i32 = {5: 2, 5: 2, 6: 2, 7: 3, 5: 5}
+    assert len(d_i32) == 3
+    d_i32.pop(5)
+    assert len(d_i32) == 2
+    d_i32.pop(6)
+    assert len(d_i32) == 1
+
+    d_i32[6] = 30
+    assert len(d_i32) == 2
+    d_i32.pop(7)
+    assert len(d_i32) == 1
+
+    l_i32_1 = d_i32.keys()
+    l_i32_2.clear()
+    for i in l_i32_1:
+        l_i32_2.append(i)
+    assert l_i32_2 == [6]
+    l_i32_1 = d_i32.values()
+    l_i32_2.clear()
+    for i in l_i32_1:
+        l_i32_2.append(i)
+    assert l_i32_2 == [30]
+
+test_dict()
diff --git a/integration_tests/test_dict_bool.py b/integration_tests/test_dict_bool.py
new file mode 100644
index 0000000000..c1e4e9cca9
--- /dev/null
+++ b/integration_tests/test_dict_bool.py
@@ -0,0 +1,47 @@
+from lpython import i32, f64
+
+def test_dict_bool():
+    d_int: dict[bool, i32] = {}
+    d_float: dict[bool, f64] = {}
+    d_str: dict[bool, str] = {}
+    i: i32
+    j: f64
+    s: str = ""
+    l_str: list[str] = ["a", "b", "c", "d"]
+
+    for i in range(10):
+        d_int[True] = i
+        assert d_int[True] == i
+
+    for i in range(10, 20):
+        d_int[True] = i
+        d_int[False] = i + 1
+        assert d_int[True] == d_int[False] - 1
+        assert d_int[True] == i
+    
+    d_int[True] = 0
+    d_int[False] = d_int[True]
+
+    for i in range(10, 99):
+        d_int[i%2 == 0] = d_int[i%2 == 0] + 1
+    assert d_int[True] == d_int[False] + 1
+    assert d_int[True] == 45
+
+    j = 0.0
+    while j < 1.0:
+        d_float[False] = j + 1.0
+        d_float[True] = d_float[False] * d_float[False]
+        assert d_float[True] == (j + 1.0) * (j + 1.0)
+        assert d_float[False] == j + 1.0
+        j = j + 0.1
+
+    d_str[False] = s
+
+    for i in range(len(l_str)):
+        d_str[True] = d_str[False]
+        s += l_str[i]
+        d_str[False] = s
+        assert d_str[True] + l_str[i] == d_str[False]
+        assert d_str[False] == s
+
+test_dict_bool()
diff --git a/integration_tests/test_dict_clear.py b/integration_tests/test_dict_clear.py
new file mode 100644
index 0000000000..eccfea0aa6
--- /dev/null
+++ b/integration_tests/test_dict_clear.py
@@ -0,0 +1,18 @@
+def test_clear():
+    a: dict[i32, i32] = {1:1, 2:2}
+
+    a.clear()
+    a[3] = 3
+
+    assert len(a) == 1
+    assert 3 in a
+
+    b: dict[str, str] = {'a':'a', 'b':'b'}
+
+    b.clear()
+    b['c'] = 'c'
+
+    assert len(b) == 1
+    assert 'c' in b
+
+test_clear()
diff --git a/integration_tests/test_dict_increment.py b/integration_tests/test_dict_increment.py
new file mode 100644
index 0000000000..b342e26bcf
--- /dev/null
+++ b/integration_tests/test_dict_increment.py
@@ -0,0 +1,66 @@
+from lpython import i32, f64
+
+def test_dict_increment():
+    d_int_int: dict[i32, i32]
+    d_int_float: dict[i32, f64]
+    d_bool_float: dict[bool, f64]
+    d_str_float: dict[str, f64]
+    d_int_str: dict[i32, str]
+    i1: i32
+    i2: i32
+    j1: f64
+    j2: f64
+    s1: str
+
+    d_int_int = {0: 1}
+    d_int_int[0] += 1000
+    assert d_int_int[0] == 1001
+
+    i2 = 1
+    d_int_int = {1: i2}
+    for i1 in range(10):
+        d_int_int[1] += i1
+        i2 += i1
+        assert d_int_int[1] == i2
+
+    i2 = 10
+    d_int_int = {0: 0, 1: 0}
+    for i1 in range(i2):
+        d_int_int[i1 % 2] += 1
+    assert d_int_int[0] == d_int_int[1]
+    assert d_int_int[0] == i2 // 2
+
+    j1 = 2.0
+    d_int_float = {2: j1}
+    while j1 < 4.0:
+        d_int_float[2] += 0.1
+        j1 += 0.1
+        assert d_int_float[2] == j1
+
+    j1 = 0.0
+    j2 = 0.0
+    d_bool_float = {True: 0.0, False: 0.0}
+    while j1 < 4.0:
+        d_bool_float[j1 < 2.0] += 0.1
+        if j1 < 2.0:
+            j2 += 0.1
+        j1 += 0.1
+    assert d_bool_float[j1 < 2.0] == d_bool_float[j1 > 2.0]
+    assert d_bool_float[True] == j2
+
+    j1 = 2.0
+    d_str_float = {'key': j1}
+    s1 = "ke"
+    while j1 < 4.0:
+        d_str_float[s1 + 'y'] += 0.1
+        j1 += 0.1
+        assert d_str_float['key'] == j1
+
+    s1 = "0"
+    d_int_str = {-1: s1}
+    for i1 in range(10):
+        d_int_str[-1] += str(i1)
+        s1 += str(i1)
+        assert d_int_str[-1] == s1
+
+test_dict_increment()
diff --git a/integration_tests/test_dict_keys_values.py b/integration_tests/test_dict_keys_values.py
new file mode 100644
index 0000000000..2bcc20c084
--- /dev/null
+++ b/integration_tests/test_dict_keys_values.py
@@ -0,0 +1,99 @@
+from lpython import i32, f64
+
+def test_dict_keys_values():
+    d1: dict[i32, i32] = {}
+    k1: list[i32]
+    k1_copy: list[i32] = []
+    v1: list[i32]
+    v1_copy: list[i32] = []
+    i: i32
+    j: i32
+    s: str
+    key_count: i32
+
+    for i in range(105, 115):
+        d1[i] = i + 1
+    k1 = d1.keys()
+    for i in k1:
+        k1_copy.append(i)
+    v1 = d1.values()
+    for i in v1:
+        v1_copy.append(i)
+    assert len(k1) == 10
+    for i in range(105, 115):
+        key_count = 0
+        for j in range(len(k1)):
+            if k1_copy[j] == i:
+                key_count += 1
+                assert v1_copy[j] == d1[i]
+        assert key_count == 1
+
+    d2: dict[str, str] = {}
+    k2: list[str]
+    k2_copy: list[str] = []
+    v2: list[str]
+    v2_copy: list[str] = []
+
+    for i in range(105, 115):
+        d2[str(i)] = str(i + 1)
+    k2 = d2.keys()
+    for s in k2:
+        k2_copy.append(s)
+    v2 = d2.values()
+    for s in v2:
+        v2_copy.append(s)
+    assert len(k2) == 10
+    for i in range(105, 115):
+        key_count = 0
+        for j in range(len(k2)):
+            if k2_copy[j] == str(i):
+                key_count += 1
+                assert v2_copy[j] == d2[str(i)]
+        assert key_count == 1
+
+
+    # dict.keys on dict constant
+    print({1: "a"}.keys())
+    assert len({1: "a"}.keys()) == 1
+
+    print({"a": 1, "b": 2, "c": 3}.keys())
+    assert len({"a": 1, "b": 2, "c": 3}.keys()) == 3
+
+    print({1: [1, 2, 3], 2: [4, 5, 6], 3: [7, 8, 9]}.keys())
+    assert len({1: [1, 2, 3], 2: [4, 5, 6], 3: [7, 8, 9]}.keys()) == 3
+
+    print({(1, 2): "a", (3, 4): "b", (5, 6): "c"}.keys())
+    assert len({(1, 2): "a", (3, 4): "b", (5, 6): "c"}.keys()) == 3
+
+    k_1: list[str] = {"list1": [1, 2, 3], "list2": [4, 5, 6], "list3": [7, 8, 9]}.keys()
+    print(k_1)
+    assert len(k_1) == 3
+
+    k_2: list[tuple[i32, i32]] = {(1, 2): "a", (3, 4): "b", (5, 6): "c"}.keys()
+    print(k_2)
+    assert len(k_2) == 3
+
+
+    # dict.values on dict constant
+    print({1: "a"}.values())
+    assert len({1: "a"}.values()) == 1
+
+    print({"a": 1, "b": 2, "c": 3}.values())
+    assert len({"a": 1, "b": 2, "c": 3}.values()) == 3
+
+    print({1: [1, 2, 3], 2: [4, 5, 6], 3: [7, 8, 9]}.values())
+    assert len({1: [1, 2, 3], 2: [4, 5, 6], 3: [7, 8, 9]}.values()) == 3
+
+    print({(1, 2): "a", (3, 4): "b", (5, 6): "c"}.values())
+    assert len({(1, 2): "a", (3, 4): "b", (5, 6): "c"}.values()) == 3
+
+    v_1: list[list[i32]] = {"list1": [1, 2, 3], "list2": [4, 5, 6], "list3": [7, 8, 9]}.values()
+    print(v_1)
+    assert len(v_1) == 3
+
+    v_2: list[str] = {(1, 2): "a", (3, 4): "b", (5, 6): "c"}.values()
+    print(v_2)
+    assert len(v_2) == 3
+
+
+test_dict_keys_values()
diff --git a/integration_tests/test_dict_nested1.py b/integration_tests/test_dict_nested1.py
new file mode 100644
index 0000000000..14de899610
--- /dev/null
+++ b/integration_tests/test_dict_nested1.py
@@ -0,0 +1,9 @@
+from lpython import i32
+
+def test_nested_dict():
+    d: dict[i32, dict[i32, i32]] = {1001: {2002: 3003}, 1002: {101: 2}}
+    d[1001] = d[1002]
+    d[1001][100] = 4005
+    assert d[1001][100] == 4005
+
+test_nested_dict()
diff --git a/integration_tests/test_for_loop.py b/integration_tests/test_for_loop.py
index c94161f080..3f66e992c4 100644
--- a/integration_tests/test_for_loop.py
+++ b/integration_tests/test_for_loop.py
@@ -1,3 +1,5 @@
+from lpython import i32
+
 def test_issue_1153():
     start: list[i32] = [-10, 0, 10]
     stop: list[i32] = [20, 0, -20]
diff --git a/integration_tests/test_generics_01.py b/integration_tests/test_generics_01.py
index e6074541be..871f8b48ac 100644
--- a/integration_tests/test_generics_01.py
+++ b/integration_tests/test_generics_01.py
@@ -1,5 +1,5 @@
 from overload_testing import foo, test
-from ltypes import overload, i32, i64
+from lpython import overload, i32, i64
 import overload_testing2
 
 
diff --git a/integration_tests/test_global_decl.py b/integration_tests/test_global_decl.py
index beb67fc441..d256f37d15 100644
--- a/integration_tests/test_global_decl.py
+++ b/integration_tests/test_global_decl.py
@@ -1,9 +1,9 @@
-from ltypes import i32
+from lpython import i32, Const
 from numpy import empty, int32
 
 # issue-1368
 
-SIZE: i32 = i32(3)
+SIZE: Const[i32] = i32(3)
 
 def main() -> None:
     xs: i32[SIZE] = empty(SIZE, dtype=int32)
diff --git a/integration_tests/test_global_set.py b/integration_tests/test_global_set.py
new file mode 100644
index 0000000000..487f12d108
--- /dev/null
+++ b/integration_tests/test_global_set.py
@@ -0,0 +1,9 @@
+from lpython import i32
+
+s1: set[str] = {"a", "b", "c", "a"}
+s2: set[i32] = {1, 2, 3, 1}
+s3: set[tuple[i32, i32]] = {(1, 2), (2, 3), (4, 5)}
+
+assert len(s1) == 3
+assert len(s2) == 3
+assert len(s3) == 3
diff --git a/integration_tests/test_gruntz.py b/integration_tests/test_gruntz.py
new file mode 100644
index 0000000000..70b5a307ee
--- /dev/null
+++ b/integration_tests/test_gruntz.py
@@ -0,0 +1,80 @@
+from lpython import S
+from sympy import Symbol, log, E, Pow, exp
+
+def mmrv(e: S, x: S) -> list[S]:
+    empty_list : list[S] = []
+    if not e.has(x):
+        return empty_list
+    elif e == x:
+        list1: list[S] = [x]
+        return list1
+    elif e.func == log:
+        arg0: S = e.args[0]
+        list2: list[S] = mmrv(arg0, x)
+        return list2
+    elif e.func == Pow:
+        base: S = e.args[0]
+        exponent: S = e.args[1]
+        one: S = S(1)
+        if base != E:
+            newe_exponent: S = S(1)
+            newe: S = e
+            while newe.func == Pow:
+                newe_base: S = newe.args[0]
+                newe_args1: S = newe.args[1]
+                newe_exponent = newe_exponent * newe_args1
+                newe = newe_base
+            if newe_base == one:
+                return empty_list
+            if not newe_exponent.has(x):
+                list3: list[S] = mmrv(newe_base, x)
+                return list3
+            else:
+                # TODO as noted in #2526
+                pass
+        else:
+            if exponent.func == log:
+                list4: list[S] = mmrv(exponent.args[0], x)
+                return list4
+            # TODO
+            pass
+    else:
+        raise
+
+def test_mrv():
+    # Case 1
+    x: S = Symbol("x")
+    y: S = Symbol("y")
+    ans1: list[S] = mmrv(y, x)
+    print(ans1)
+    assert len(ans1) == 0
+
+    # Case 2
+    ans2: list[S] = mmrv(x, x)
+    ele1: S = ans2[0]
+    print(ele1)
+    assert ele1 == x
+    assert len(ans2) == 1
+
+    # Case 3
+    ans3: list[S] = mmrv(log(x), x)
+    ele2: S = ans3[0]
+    print(ele2)
+    assert ele2 == x
+    assert len(ans3) == 1
+
+    # Case 4
+    ans4: list[S] = mmrv(x**S(2), x)
+    ele3: S = ans4[0]
+    print(ele3)
+    assert ele3 == x
+    assert len(ans4) == 1
+
+    # Case 5
+    ans5: list[S] = mmrv(exp(log(x)), x)
+    ele4: S = ans5[0]
+    print(ele4)
+    assert ele4 == x
+    assert len(ans5) == 1
+
+test_mrv()
\ No newline at end of file
diff --git a/integration_tests/test_ifexp.py b/integration_tests/test_ifexp.py
deleted file mode 100644
index 3b10e39326..0000000000
--- a/integration_tests/test_ifexp.py
+++ /dev/null
@@ -1,11 +0,0 @@
-from ltypes import i32, f32
-
-def f():
-    i: i32
-    i = 1 if True else 0
-    assert i == 1
-    j: f32
-    j = f32(1.0 if 1.0 <= 0.0 else 0.0)
-    assert j == f32(0.0)
-
-f()
diff --git a/integration_tests/test_ifexp_01.py b/integration_tests/test_ifexp_01.py
new file mode 100644
index 0000000000..fb2c0e06b3
--- /dev/null
+++ b/integration_tests/test_ifexp_01.py
@@ -0,0 +1,14 @@
+from lpython import i32, f32
+
+def f():
+    i: i32
+    i = 1 if True else 0
+    print (i)
+    assert i == 1
+
+    j: f32
+    j = f32(1.0 if 1.0 <= 0.0 else 0.0)
+    print(j)
+    assert j == f32(0.0)
+
+f()
diff --git a/integration_tests/test_ifexp_02.py b/integration_tests/test_ifexp_02.py
new file mode 100644
index 0000000000..5a41259476
--- /dev/null
+++ b/integration_tests/test_ifexp_02.py
@@ -0,0 +1,17 @@
+from lpython import i32
+
+def g() -> i32:
+    return 10
+
+def f():
+    i: i32
+    j: i32
+    k: i32
+    i = 5
+    j = 6
+    k = g() if i > j else g() - 1
+
+    print(k)
+    assert k == 9
+
+f()
diff --git a/integration_tests/test_ifexp_03.py b/integration_tests/test_ifexp_03.py
new file mode 100644
index 0000000000..21c0424ac9
--- /dev/null
+++ b/integration_tests/test_ifexp_03.py
@@ -0,0 +1,11 @@
+from lpython import i32
+
+def fib(n: i32) -> i32:
+    return fib(n - 1) + fib(n - 2) if n >= 3 else 1
+
+def main0():
+    res: i32 = fib(30)
+    print(res)
+    assert res == 832040
+
+main0()
diff --git a/integration_tests/test_import/import_module_01/test_import_4.py b/integration_tests/test_import/import_module_01/test_import_4.py
index 7f0c7ac5c1..f85a664a12 100644
--- a/integration_tests/test_import/import_module_01/test_import_4.py
+++ b/integration_tests/test_import/import_module_01/test_import_4.py
@@ -1,4 +1,4 @@
-from ltypes import i32, f64, Const
+from lpython import i32, f64, Const
 
 e: Const[f64] = 2.71828182845904523536
 
diff --git a/integration_tests/test_import/import_module_02/test_import_3.py b/integration_tests/test_import/import_module_02/test_import_3.py
index 28bfbb7f0f..015ac2ae3f 100644
--- a/integration_tests/test_import/import_module_02/test_import_3.py
+++ b/integration_tests/test_import/import_module_02/test_import_3.py
@@ -1,4 +1,4 @@
-from ltypes import i32, f64, Const
+from lpython import i32, f64, Const
 
 μ: Const[f64] = 1.45136923488338105028
 
diff --git a/integration_tests/test_import/sys.py b/integration_tests/test_import/sys.py
new file mode 100644
index 0000000000..ac905eb29d
--- /dev/null
+++ b/integration_tests/test_import/sys.py
@@ -0,0 +1,5 @@
+from lpython import i32
+
+def hi_from_user_sys() -> i32:
+    print("hi from user sys!")
+    return -5
diff --git a/integration_tests/test_import_05.py b/integration_tests/test_import_05.py
new file mode 100644
index 0000000000..8ee6c54c7a
--- /dev/null
+++ b/integration_tests/test_import_05.py
@@ -0,0 +1,3 @@
+from test_import.sys import hi_from_user_sys
+
+assert hi_from_user_sys() == -5
diff --git a/integration_tests/test_import_06.py b/integration_tests/test_import_06.py
new file mode 100644
index 0000000000..f46b88c50a
--- /dev/null
+++ b/integration_tests/test_import_06.py
@@ -0,0 +1,8 @@
+from test_import_06_mod1 import StringIO
+from test_import_06_mod2 import stringio_test
+
+if __name__ == '__main__':
+    integer_asr : str = '(Integer 4 [])'
+    fd   : StringIO = StringIO(integer_asr)
+    stringio_test(fd, integer_asr)
+    print("Ok")
diff --git a/integration_tests/test_import_06_mod1.py b/integration_tests/test_import_06_mod1.py
new file mode 100644
index 0000000000..37e020cb43
--- /dev/null
+++ b/integration_tests/test_import_06_mod1.py
@@ -0,0 +1,5 @@
+from lpython import dataclass
+
+@dataclass
+class StringIO:
+    a: str
diff --git a/integration_tests/test_import_06_mod2.py b/integration_tests/test_import_06_mod2.py
new file mode 100644
index 0000000000..da37cfa172
--- /dev/null
+++ b/integration_tests/test_import_06_mod2.py
@@ -0,0 +1,4 @@
+from test_import_06_mod1 import StringIO
+
+def stringio_test(fd: StringIO, integer_asr: str):
+    assert fd.a == integer_asr
diff --git a/integration_tests/test_import_07.py b/integration_tests/test_import_07.py
new file mode 100644
index 0000000000..b799410cbf
--- /dev/null
+++ b/integration_tests/test_import_07.py
@@ -0,0 +1,8 @@
+# test issue 2153
+from test_import_07_module import f as fa
+
+def main0():
+    assert fa(3) == 6
+    assert fa(10) == 20
+
+main0()
diff --git a/integration_tests/test_import_07_module.py b/integration_tests/test_import_07_module.py
new file mode 100644
index 0000000000..a0925aa5ae
--- /dev/null
+++ b/integration_tests/test_import_07_module.py
@@ -0,0 +1,4 @@
+from lpython import i32
+
+def f(x: i32) -> i32:
+    return 2 * x
diff --git a/integration_tests/test_import_08.py b/integration_tests/test_import_08.py
new file mode 100644
index 0000000000..80b1bffa0f
--- /dev/null
+++ b/integration_tests/test_import_08.py
@@ -0,0 +1,3 @@
+import string
+
+import test_import_08_module
diff --git a/integration_tests/test_import_08_module.py b/integration_tests/test_import_08_module.py
new file mode 100644
index 0000000000..f92430e846
--- /dev/null
+++ b/integration_tests/test_import_08_module.py
@@ -0,0 +1,6 @@
+from lpython import i32
+
+a: i32 = 10
+b: i32 = a + 10
+
+print("Inside import")
diff --git a/integration_tests/test_integer_bitnot.py b/integration_tests/test_integer_bitnot.py
deleted file mode 100644
index 2c12e8ecf4..0000000000
--- a/integration_tests/test_integer_bitnot.py
+++ /dev/null
@@ -1,13 +0,0 @@
-from ltypes import i32
-
-def f():
-    i: i32
-    i = 5
-    res: i32
-    res = ~i
-    assert res == -6
-
-    i = -235346
-    assert ~i == 235345
-
-f()
diff --git a/integration_tests/test_intrinsic_function_mixed_print.py b/integration_tests/test_intrinsic_function_mixed_print.py
new file mode 100644
index 0000000000..8c5ee2f32d
--- /dev/null
+++ b/integration_tests/test_intrinsic_function_mixed_print.py
@@ -0,0 +1,25 @@
+from lpython import i32
+
+def test_intrinsic_function_mixed_print():
+    # list and list methods
+    my_list: list[i32] = [1, 2, 3, 4, 5]
+    print("Popped element:", my_list.pop())
+    assert my_list == [1, 2, 3, 4]
+
+    print("1 is located at:", my_list.index(1))
+    assert my_list.index(1) == 0
+
+    my_list.append(2)
+    print("2 is present", my_list.count(2), "times")
+    assert my_list.count(2) == 2
+
+    print(my_list.pop(), my_list)
+    assert my_list == [1, 2, 3, 4]
+
+    # dict and dict methods
+    my_dict: dict[str, i32] = {"first": 1, "second": 2, "third": 3}
+    print("Keys:", my_dict.keys())
+    print("Value of 'third':", my_dict.pop("third"))
+    assert len(my_dict.keys()) == 2
+
+test_intrinsic_function_mixed_print()
\ No newline at end of file
diff --git a/integration_tests/test_issue_518.py b/integration_tests/test_issue_518.py
index cb1a4eacb9..755719a27b 100644
--- a/integration_tests/test_issue_518.py
+++ b/integration_tests/test_issue_518.py
@@ -1,4 +1,4 @@
-from ltypes import i64
+from lpython import i64
 
 def fib(n: i64) -> i64:
     if n < i64(2):
diff --git a/integration_tests/test_list_01.py b/integration_tests/test_list_01.py
index a9042aa5e0..3a8789c0e1 100644
--- a/integration_tests/test_list_01.py
+++ b/integration_tests/test_list_01.py
@@ -1,4 +1,4 @@
-from ltypes import f64, i32
+from lpython import f64, i32
 
 def fill_list_i32(size: i32) -> list[i32]:
     aarg: list[i32] = [0, 1, 2, 3, 4]
@@ -63,9 +63,21 @@ def test_list_03():
     for i in range(size):
         assert x[i] == x[((i-len(x)) + size) % size]
 
+
+def test_issue_1681():
+    a: list[i32] = [2, 3, 4]
+    a = [1, 2, 3]
+    assert len(a) == 3 and a[0] == 1 and a[1] == 2 and a[2] == 3
+    a = []
+    assert len(a) == 0
+    a = [1]
+    assert len(a) == 1 and a[0] == 1
+
+
 def tests():
     test_list_01()
     test_list_02()
     test_list_03()
+    test_issue_1681()
 
 tests()
diff --git a/integration_tests/test_list_02.py b/integration_tests/test_list_02.py
index 7879ffc9d0..f96d1f23d0 100644
--- a/integration_tests/test_list_02.py
+++ b/integration_tests/test_list_02.py
@@ -1,4 +1,4 @@
-from ltypes import i32
+from lpython import i32
 
 def fill_list_str(size: i32) -> list[str]:
     a: list[str] = ["0_str", "1_str"]
diff --git a/integration_tests/test_list_03.py b/integration_tests/test_list_03.py
index ee7c33b86a..1cb6953e7d 100644
--- a/integration_tests/test_list_03.py
+++ b/integration_tests/test_list_03.py
@@ -1,4 +1,4 @@
-from ltypes import i32
+from lpython import i32, InOut
 
 def test_list_01(n: i32) -> i32:
     a: list[i32] = []
@@ -10,7 +10,7 @@ def test_list_01(n: i32) -> i32:
         sum += a[i]
     return sum
 
-def test_list_insert_02(x: list[i32], n: i32) -> list[i32]:
+def test_list_insert_02(x: InOut[list[i32]], n: i32) -> list[i32]:
     i: i32
     imod: i32
     for i in range(n):
diff --git a/integration_tests/test_list_04.py b/integration_tests/test_list_04.py
index 687745bcf1..7c09061768 100644
--- a/integration_tests/test_list_04.py
+++ b/integration_tests/test_list_04.py
@@ -1,5 +1,5 @@
 from math import sqrt
-from ltypes import i32, f64
+from lpython import i32, f64
 
 def test_list_01():
     x: list[i32] = []
diff --git a/integration_tests/test_list_05.py b/integration_tests/test_list_05.py
index 088048968e..7708b95dec 100644
--- a/integration_tests/test_list_05.py
+++ b/integration_tests/test_list_05.py
@@ -1,4 +1,4 @@
-from ltypes import i32, f64
+from lpython import i32, f64, InOut
 
 def check_list_of_tuples(l: list[tuple[i32, f64, str]], sign: i32):
     size: i32 = len(l)
@@ -29,7 +29,7 @@ def fill_list_of_tuples(size: i32) -> list[tuple[i32, f64, str]]:
 
     return l1
 
-def insert_tuples_into_list(l: list[tuple[i32, f64, str]], size: i32) -> list[tuple[i32, f64, str]]:
+def insert_tuples_into_list(l: InOut[list[tuple[i32, f64, str]]], size: i32) -> list[tuple[i32, f64, str]]:
     i: i32
     string: str
     t: tuple[i32, f64, str]
diff --git a/integration_tests/test_list_06.py b/integration_tests/test_list_06.py
index dcede48d7e..0924b87691 100644
--- a/integration_tests/test_list_06.py
+++ b/integration_tests/test_list_06.py
@@ -1,4 +1,4 @@
-from ltypes import i32, f64
+from lpython import i32, f64
 from copy import deepcopy
 
 def check_mat_and_vec(mat: list[list[f64]], vec: list[f64]):
@@ -15,8 +15,8 @@ def check_mat_and_vec(mat: list[list[f64]], vec: list[f64]):
         assert vec[i] == 2.0 * float(i)
 
 def test_list_of_lists():
-    tensors: list[list[list[list[f64]]]] = []
-    tensor: list[list[list[f64]]] = []
+    arrays: list[list[list[list[f64]]]] = []
+    array: list[list[list[f64]]] = []
     mat: list[list[f64]] = []
     vec: list[f64] = []
     rows: i32 = 10
@@ -38,7 +38,7 @@ def test_list_of_lists():
     check_mat_and_vec(mat, vec)
 
     for k in range(rows):
-        tensor.append(deepcopy(mat))
+        array.append(deepcopy(mat))
         for i in range(rows):
             for j in range(cols):
                 mat[i][j] += float(1)
@@ -46,19 +46,19 @@ def test_list_of_lists():
     for k in range(rows):
         for i in range(rows):
             for j in range(cols):
-                assert mat[i][j] - tensor[k][i][j] == f64(rows - k)
+                assert mat[i][j] - array[k][i][j] == f64(rows - k)
 
     for l in range(2 * rows):
-        tensors.append(deepcopy(tensor))
+        arrays.append(deepcopy(array))
         for i in range(rows):
             for j in range(rows):
                 for k in range(cols):
-                    tensor[i][j][k] += float(1)
+                    array[i][j][k] += float(1)
 
     for l in range(2 *  rows):
         for i in range(rows):
             for j in range(rows):
                 for k in range(cols):
-                    assert tensor[i][j][k] - tensors[l][i][j][k] == f64(2 * rows - l)
+                    assert array[i][j][k] - arrays[l][i][j][k] == f64(2 * rows - l)
 
 test_list_of_lists()
diff --git a/integration_tests/test_list_07.py b/integration_tests/test_list_07.py
index bd33a079eb..904ee70b38 100644
--- a/integration_tests/test_list_07.py
+++ b/integration_tests/test_list_07.py
@@ -1,17 +1,17 @@
-from ltypes import c64, i32
+from lpython import c64, i32
 from copy import deepcopy
 
-def generate_complex_tensors(mat: list[list[c64]], vec: list[c64]) -> list[tuple[list[list[c64]], list[c64]]]:
-    tensor: tuple[list[list[c64]], list[c64]]
-    tensors: list[tuple[list[list[c64]], list[c64]]] = []
+def generate_complex_arrays(mat: list[list[c64]], vec: list[c64]) -> list[tuple[list[list[c64]], list[c64]]]:
+    array: tuple[list[list[c64]], list[c64]]
+    arrays: list[tuple[list[list[c64]], list[c64]]] = []
     rows: i32 = len(mat)
     cols: i32 = len(vec)
     i: i32; j: i32; k: i32
 
-    tensor = (deepcopy(mat), deepcopy(vec))
+    array = (deepcopy(mat), deepcopy(vec))
 
     for k in range(2 * rows):
-        tensors.append(deepcopy(tensor))
+        arrays.append(deepcopy(array))
         for i in range(rows):
             for j in range(cols):
                 mat[i][j] += complex(1.0, 2.0)
@@ -19,15 +19,15 @@ def generate_complex_tensors(mat: list[list[c64]], vec: list[c64]) -> list[tuple
         for i in range(cols):
             vec[i] += complex(1.0, 2.0)
 
-        tensor = (deepcopy(mat), deepcopy(vec))
+        array = (deepcopy(mat), deepcopy(vec))
 
-    return tensors
+    return arrays
 
 def test_tuple_with_lists():
     mat: list[list[c64]] = []
     vec: list[c64] = []
-    tensor: tuple[list[list[c64]], list[c64]]
-    tensors: list[tuple[list[list[c64]], list[c64]]] = []
+    array: tuple[list[list[c64]], list[c64]]
+    arrays: list[tuple[list[list[c64]], list[c64]]] = []
     i: i32
     j: i32
     k: i32
@@ -48,7 +48,7 @@ def test_tuple_with_lists():
         for j in range(cols):
             assert mat[i][j] - vec[j] == c64(i - j)
 
-    tensor = (deepcopy(mat), deepcopy(vec))
+    array = (deepcopy(mat), deepcopy(vec))
 
     for i in range(rows):
         for j in range(cols):
@@ -59,20 +59,20 @@ def test_tuple_with_lists():
 
     for i in range(rows):
         for j in range(cols):
-            assert tensor[0][i][j] - mat[i][j] == -complex(0, 3.0)
+            assert array[0][i][j] - mat[i][j] == -complex(0, 3.0)
 
     for i in range(cols):
-        assert tensor[1][i] - vec[i] == -complex(0, 2.0)
+        assert array[1][i] - vec[i] == -complex(0, 2.0)
 
-    tensors = generate_complex_tensors(mat, vec)
+    arrays = generate_complex_arrays(mat, vec)
 
     for k in range(2 * rows):
         for i in range(rows):
             for j in range(cols):
-                assert tensors[k][0][i][j] - mat[i][j] == -c64(2 * rows - k) * complex(1.0, 2.0)
+                assert arrays[k][0][i][j] - mat[i][j] == -c64(2 * rows - k) * complex(1.0, 2.0)
 
     for k in range(2 * rows):
         for i in range(cols):
-            assert tensors[k][1][i] - vec[i] == -c64(2 * rows - k) * complex(1.0, 2.0)
+            assert arrays[k][1][i] - vec[i] == -c64(2 * rows - k) * complex(1.0, 2.0)
 
 test_tuple_with_lists()
diff --git a/integration_tests/test_list_08.py b/integration_tests/test_list_08.py
index 21b2eb7758..f5a2cd33f3 100644
--- a/integration_tests/test_list_08.py
+++ b/integration_tests/test_list_08.py
@@ -1,7 +1,7 @@
-from ltypes import i32, f64
+from lpython import i32, f64, InOut
 from copy import deepcopy
 
-def sort(l: list[i32]) -> list[i32]:
+def sort(l: InOut[list[i32]]) -> list[i32]:
     i: i32; j: i32
 
     for i in range(len(l)):
diff --git a/integration_tests/test_list_09.py b/integration_tests/test_list_09.py
index 2aa4a369b3..b7ca405765 100644
--- a/integration_tests/test_list_09.py
+++ b/integration_tests/test_list_09.py
@@ -1,4 +1,5 @@
-from ltypes import i32
+from lpython import i32
+
 
 def test_list_concat():
     x: list[i32] = []
@@ -10,39 +11,41 @@ def test_list_concat():
     x = [1, 2, 3]
     z = x + y
     for i in range(1, 4):
-        assert z[i-1] == i
+        assert z[i - 1] == i
 
     x.clear()
     y = [6, 7, 8]
     z = x + y
     for i in range(1, 4):
-        assert z[i-1] == i + 5
+        assert z[i - 1] == i + 5
 
     x = [1, 2, 3, 4, 5]
     z = x + y
     for i in range(1, 9):
-        assert z[i-1] == i
+        assert z[i - 1] == i
 
-    x.clear(); y.clear()
+    x.clear()
+    y.clear()
     for i in range(9, 51):
         x.append(i)
     for i in range(51, 101):
         y.append(i)
 
     z = z + x + y
-    x[0] = 0; x[1] = 0
+    x[0] = 0
+    x[1] = 0
     y.clear()
     for i in range(1, 100):
-        assert z[i-1] == i
-    
+        assert z[i - 1] == i
+
     c: list[str]
     d: list[str]
-    c = ['a', 'b']
-    d = ['c', 'd', 'e']
+    c = ["a", "b"]
+    d = ["c", "d", "e"]
     c += d
     assert len(c) == 5
     for i in range(5):
-        assert ord(c[i]) - ord('a') == i
+        assert ord(c[i]) - ord("a") == i
 
 
 test_list_concat()
diff --git a/integration_tests/test_list_10.py b/integration_tests/test_list_10.py
index c938e56cbb..5216054ddf 100644
--- a/integration_tests/test_list_10.py
+++ b/integration_tests/test_list_10.py
@@ -1,4 +1,4 @@
-from ltypes import i32
+from lpython import i32
 
 def test_list_section():
     x: list[i32] = []
diff --git a/integration_tests/test_list_11.py b/integration_tests/test_list_11.py
new file mode 100644
index 0000000000..2cb899ebf2
--- /dev/null
+++ b/integration_tests/test_list_11.py
@@ -0,0 +1,46 @@
+from lpython import i32
+
+l: list[i32] = [1, 2]
+
+def add_item(i: i32) -> list[i32]:
+    l.append(i)
+    return l
+
+
+def return_empty_list_of_tuples() -> list[i32]:
+    return []
+
+
+def test_issue_1882():
+    i: i32
+    x: list[i32]
+    x = [2, 3, 4]
+    for i in [1, 2, 3]:
+        assert i + 1 == x[i - 1]
+
+def test_iterate_over_string():
+    s: str
+    i: i32 = 0
+    temp: str = "abcd"
+    for s in "abcd":
+        assert s == temp[i]
+        i+=1
+
+def test_issue_2639():
+    print(add_item(3))
+
+    assert len(l) == 3
+    assert l[0] == 1
+    assert l[1] == 2
+    assert l[2] == 3
+
+def main0():
+    x: list[i32] = return_empty_list_of_tuples()
+    print(len(x))
+
+    assert len(x) == 0
+    test_issue_1882()
+    test_iterate_over_string()
+    test_issue_2639()
+
+main0()
diff --git a/integration_tests/test_list_compare.py b/integration_tests/test_list_compare.py
new file mode 100644
index 0000000000..24fcc485d5
--- /dev/null
+++ b/integration_tests/test_list_compare.py
@@ -0,0 +1,53 @@
+from lpython import i32, f64
+
+def test_list_compare():
+    l1: list[i32] = [1, 2, 3]
+    l2: list[i32] = [1, 2, 3, 4]
+    l3: list[tuple[i32, f64, str]] = [(1, 2.0, 'a'), (3, 4.0, 'b')]
+    l4: list[tuple[i32, f64, str]] = [(1, 3.0, 'a')]
+    l5: list[list[str]] = [[''], ['']]
+    l6: list[str] = []
+    l7: list[str] = []
+    t1: tuple[i32, i32]
+    t2: tuple[i32, i32]
+    i: i32
+
+    assert l1 < l2 and l1 <= l2
+    assert not l1 > l2 and not l1 >= l2
+    i = l2.pop()
+    i = l2.pop()
+    assert l2 < l1 and l1 > l2 and l1 >= l2
+    assert not (l1 < l2)
+
+    l1 = [3, 4, 5]
+    l2 = [1, 6, 7]
+    assert l1 > l2 and l1 >= l2
+    assert not l1 < l2 and not l1 <= l2
+
+    l1 = l2
+    assert l1 == l2 and l1 <= l2 and l1 >= l2
+    assert not l1 < l2 and not l1 > l2
+
+    assert l4 > l3 and l4 >= l3
+    l4[0] = l3[0]
+    assert l4 < l3
+
+    for i in range(0, 10):
+        if i % 2 == 0:
+            l6.append('a')
+        else:
+            l7.append('a')
+        l5[0] = l6
+        l5[1] = l7
+        if i % 2 == 0:
+            assert l5[1 - i % 2] < l5[i % 2]
+            assert l5[1 - i % 2] <= l5[i % 2]
+            assert not l5[1 - i % 2] > l5[i % 2]
+            assert not l5[1 - i % 2] >= l5[i % 2]
+
+    t1 = (1, 2)
+    t2 = (2, 3)
+    assert t1 < t2 and t1 <= t2
+    assert not t1 > t2 and not t1 >= t2
+
+test_list_compare()
\ No newline at end of file
diff --git a/integration_tests/test_list_compare2.py b/integration_tests/test_list_compare2.py
new file mode 100644
index 0000000000..9778c9a2a7
--- /dev/null
+++ b/integration_tests/test_list_compare2.py
@@ -0,0 +1,8 @@
+from lpython import i32
+
+x: list[i32] = [1, 2, 3, 4]
+y: list[i32] = [5, 6, 7, 8]
+z: list[i32] = [1, 2, 3, 4]
+
+assert(x != y)
+assert(x == z)
\ No newline at end of file
diff --git a/integration_tests/test_list_concat.py b/integration_tests/test_list_concat.py
new file mode 100644
index 0000000000..2cf2b583a2
--- /dev/null
+++ b/integration_tests/test_list_concat.py
@@ -0,0 +1,18 @@
+from lpython import i32, f64
+
+def test_list_concat():
+    t1: list[i32]
+    t1 = [2] + [3]
+    print(t1)
+    assert len(t1) == 2
+    assert t1[0] == 2
+    assert t1[1] == 3
+
+    t2: list[f64]
+    t2 = [3.14, -4.5] + [1.233, -0.012, 5555.50]
+    print(t2)
+    assert len(t2) == 5
+    assert abs(t2[0] - 3.14) <= 1e-5
+    assert abs(t2[-1] - 5555.50) <= 1e-5
+
+test_list_concat()
diff --git a/integration_tests/test_list_count.py b/integration_tests/test_list_count.py
new file mode 100644
index 0000000000..98c64fd6cb
--- /dev/null
+++ b/integration_tests/test_list_count.py
@@ -0,0 +1,55 @@
+from lpython import i32, f64
+
+def test_list_count():
+    i: i32
+    x: list[i32] = []
+    y: list[str] = []
+    z: list[tuple[i32, str, f64]] = []
+    
+    for i in range(-5, 0):
+        assert x.count(i) == 0
+        x.append(i)
+        assert x.count(i) == 1
+        x.append(i)
+        assert x.count(i) == 2
+        x.remove(i)
+        assert x.count(i) == 1
+
+    assert x == [-5, -4, -3, -2, -1]
+
+    for i in range(0, 5):
+        assert x.count(i) == 0
+        x.append(i)
+        assert x.count(i) == 1
+
+    assert x == [-5, -4, -3, -2, -1, 0, 1, 2, 3, 4]
+    
+    while len(x) > 0:
+        i = x[-1]
+        x.remove(i)
+        assert x.count(i) == 0
+
+    assert len(x) == 0
+    assert x.count(0) == 0
+
+    # str
+    assert y.count('a') == 0
+    y = ['a', 'abc', 'a', 'b']
+    assert y.count('a') == 2
+    y.append('a')
+    assert y.count('a') == 3
+    y.remove('a')
+    assert y.count('a') == 2
+
+    # tuple, float
+    assert z.count((i32(-1), 'b', f64(2))) == 0
+    z = [(i32(1), 'a', f64(2.01)), (i32(-1), 'b', f64(2)), (i32(1), 'a', f64(2.02))]
+    assert z.count((i32(1), 'a', f64(2.00))) == 0
+    assert z.count((i32(1), 'a', f64(2.01))) == 1
+    z.append((i32(1), 'a', f64(2)))
+    z.append((i32(1), 'a', f64(2.00)))
+    assert z.count((i32(1), 'a', f64(2))) == 2
+    z.remove((i32(1), 'a', f64(2)))
+    assert z.count((i32(1), 'a', f64(2.00))) == 1
+
+test_list_count()
diff --git a/integration_tests/test_list_index.py b/integration_tests/test_list_index.py
new file mode 100644
index 0000000000..b74410bf1f
--- /dev/null
+++ b/integration_tests/test_list_index.py
@@ -0,0 +1,40 @@
+from lpython import i32, f64
+
+def test_list_index():
+    i: i32
+    x: list[i32] = []
+    y: list[str] = []
+    z: list[tuple[i32, str, f64]] = []
+    
+    for i in range(-5, 0):
+        x.append(i)
+        assert x.index(i) == len(x)-1
+        x.append(i)
+        assert x.index(i) == len(x)-2
+        x.remove(i)
+        assert x.index(i) == len(x)-1
+
+    assert x == [-5, -4, -3, -2, -1]
+
+    for i in range(-5, 0):
+        x.append(i)
+        assert x.index(i) == 0
+        x.remove(i)
+        assert x.index(i) == len(x)-1
+
+    # str
+    y = ['a', 'abc', 'a', 'b', 'abc']
+    assert y.index('a') == 0
+    assert y.index('abc') == 1
+
+    # tuple, float
+    z = [(i32(1), 'a', f64(2.01)), (i32(-1), 'b', f64(2)), (i32(1), 'a', f64(2.02))]
+    assert z.index((i32(1), 'a', f64(2.01))) == 0
+    z.insert(0, (i32(1), 'a', f64(2)))
+    assert z.index((i32(1), 'a', f64(2.00))) == 0
+    z.append((i32(1), 'a', f64(2.00)))
+    assert z.index((i32(1), 'a', f64(2))) == 0
+    z.remove((i32(1), 'a', f64(2)))
+    assert z.index((i32(1), 'a', f64(2.00))) == 3
+
+test_list_index()
\ No newline at end of file
diff --git a/integration_tests/test_list_index2.py b/integration_tests/test_list_index2.py
new file mode 100644
index 0000000000..9e74e929b4
--- /dev/null
+++ b/integration_tests/test_list_index2.py
@@ -0,0 +1,55 @@
+from lpython import i32, f64
+
+def test_list_index2():
+    # test optional start and end parameters
+    i: i32
+    x: list[i32] = []
+    y: list[str] = []
+    z: list[tuple[i32, str, f64]] = []
+
+    x = [1, 2, 3, 2]
+    assert x.index(2, 0) == 1
+    assert x.index(2, 1) == 1
+    assert x.index(2, 2) == 3
+    assert x.index(2, 1, 4) == 1
+    assert x.index(2, 2, 4) == 3
+
+    x = []
+    for i in range(-5, 0):
+        x.append(i)
+        assert x.index(i, 0) == len(x) - 1
+        assert x.index(i, 0, len(x)) == len(x) - 1
+        x.append(i)
+        assert x.index(i, 0) == len(x) - 2
+        assert x.index(i, 0, len(x)) == len(x) - 2
+        assert x.index(i, len(x) - 1) == len(x) - 1
+        assert x.index(i, len(x) - 1, len(x)) == len(x) - 1
+        x.remove(i)
+        assert x.index(i, 0) == len(x) - 1
+        assert x.index(i, 0, len(x)) == len(x) - 1
+
+    assert x == [-5, -4, -3, -2, -1]
+
+    # str
+    y = ['a', 'abc', 'a', 'b', 'abc']
+    assert y.index('a', 0) == 0
+    assert y.index('a', 0, 1) == 0
+    assert y.index('a', 1) == 2
+    assert y.index('a', 1, 3) == 2
+    assert y.index('abc', 0) == 1
+    assert y.index('abc', 1) == 1
+    assert y.index('abc', 2) == 4
+
+    # tuple, float
+    z = [(1, 'a', 2.01), (-1, 'b', 2.0), (1, 'a', 2.02)]
+    assert z.index((1, 'a', 2.01), 0) == 0
+    assert z.index((1, 'a', 2.01), 0, 1) == 0
+    z.insert(0, (1, 'a', 2.0))
+    assert z.index((1, 'a', 2.0), 0) == 0
+    assert z.index((-1, 'b', 2.0), 1) == 2
+    z.insert(0, (1, 'a', 2.0))
+    assert z.index((-1, 'b', 2.0), 1) == 3
+    assert z.index((-1, 'b', 2.0), 1, 4) == 3
+    assert z.index((-1, 'b', 2.0), 1, 5) == 3
+
+test_list_index2()
\ No newline at end of file
diff --git a/integration_tests/test_list_item_mixed_print.py b/integration_tests/test_list_item_mixed_print.py
new file mode 100644
index 0000000000..10fdc32b75
--- /dev/null
+++ b/integration_tests/test_list_item_mixed_print.py
@@ -0,0 +1,44 @@
+from lpython import i32, f64
+
+# Test for verifying printing items of different types with a list:
+#   1. string and list item
+#   2. integer and list item
+#   3. float and list item
+#   4. tuple and list item
+#
+# Also test with a list item which is a nested list.
+def test_list_item_mixed_print():
+    s_list: list[str] = ["Hello", "LPython"]
+
+    print("", s_list[0])
+    print("This is", s_list[1])
+
+    i_list: list[i32] = [1, 2, 3, 4, 5]
+
+    print(i_list[0], i_list[1], i_list[2], "...", i_list[-3], i_list[-2], i_list[-1])
+    print("The first element is:", i_list[0])
+
+    m: i32 = len(i_list) // 2
+    print("The middle element is:", i_list[m])
+
+    f_list: list[f64] = [3.14, 6.28]
+
+    print(f_list[0], "* 2 =", f_list[1])
+    print("Total:", f_list[0] + f_list[1])
+
+    t: tuple[i32, i32, i32] = (1, 2, 3)
+    print(t, "is a tuple, but", i_list[0], "is a number.")
+
+    i_list2: list[i32] = [1, 2, 3]
+    print(i_list2[0], i_list2[1], i_list2[2], sep=" is smaller than ")
+
+    i: i32
+    for i in range(len(i_list)):
+        print(i_list[i], end=" # ")
+    print("\n")
+
+    n_list: list[list[i32]] = [[1, 2], [3, 4], [5, 6]]
+    for i in range(len(n_list)):
+        print("List ", i, ":", n_list[i])
+
+test_list_item_mixed_print()
\ No newline at end of file
diff --git a/integration_tests/test_list_pop.py b/integration_tests/test_list_pop.py
new file mode 100644
index 0000000000..da2db3e5fd
--- /dev/null
+++ b/integration_tests/test_list_pop.py
@@ -0,0 +1,96 @@
+from lpython import i32, f64
+
+def test_list_pop():
+    l1: list[i32]
+    l2: list[tuple[i32, f64]]
+    l3: list[list[str]]
+    i: i32
+    j: i32
+    total: i32
+    x: tuple[i32, f64]
+
+    l1 = [1, 2, 3]
+    assert l1.pop() == 3
+    assert l1 == [1, 2]
+
+    l1 = []
+    total = 10
+    for i in range(total):
+        l1.append(i)
+        if i % 2 == 1:
+            assert l1.pop() == i
+    for i in range(total // 2):
+        assert l1[i] == 2 * i
+
+    l2 = [(1, 2.0)]
+    x = l2.pop()
+    assert x == (1, 2.0)
+    assert len(l2) == 0
+    l2.append((2, 3.0))
+    assert x == (1, 2.0)
+
+    l3 = []
+    for i in range(total):
+        l3.insert(0, ["a"])
+        for j in range(len(l3)):
+            l3[j] += ["a"]
+    while len(l3) > 0:
+        total = len(l3)
+        assert len(l3.pop()) == total + 1
+    assert len(l3) == 0
+
+    l1 = [0, 1, 2, 3, 4]
+    assert l1.pop(3) == 3
+    assert l1.pop(0) == 0
+    assert l1.pop(len(l1) - 1) == 4
+    assert l1 == [1, 2]
+
+    total = 10
+    l1 = []
+    for i in range(total):
+        l1.append(i)
+    j = 0
+    for i in range(total):
+        assert l1.pop(j - i) == i
+        j += 1
+    assert len(l1) == 0
+
+    total = 10
+    l2 = []
+    for i in range(total):
+        l2.append((i, f64(i * i)))
+    j = 0
+    for i in range(total):
+        assert l2.pop(j - i) == (i, f64(i * i))
+        j += 1
+    assert len(l2) == 0
+
+    # list.pop on list constant
+    print([1, 2, 3, 4, 5].pop())
+    assert [1, 2, 3, 4, 5].pop() == 5
+
+    print([1, 2, 3, 4, 5].pop(3))
+    assert [1, 2, 3, 4, 5].pop(3) == 4
+
+    index: i32 = 1
+    print([1, 2, 3, 4, 5].pop(index))
+    assert [1, 2, 3, 4, 5].pop(index) == 2
+
+    element_1: i32 = [1, 2, 3, 4, 5].pop()
+    print(element_1)
+    assert element_1 == 5
+
+    element_2: i32 = [1, 2, 3, 4, 5].pop(2)
+    print(element_2)
+    assert element_2 == 3
+
+    a: i32 = 5
+    b: i32 = 3
+
+    print([(1, 2), (3, 4), (5, 6)].pop(a//b)) 
+    assert [(1, 2), (3, 4), (5, 6)].pop(a//b) == (3, 4)
+
+    print([["a", "b"], ["c", "d"], ["e", "f"]].pop())
+    assert [["a", "b"], ["c", "d"], ["e", "f"]].pop() == ["e", "f"]
+
+test_list_pop()
\ No newline at end of file
diff --git a/integration_tests/test_list_pop2.py b/integration_tests/test_list_pop2.py
new file mode 100644
index 0000000000..cee56b3684
--- /dev/null
+++ b/integration_tests/test_list_pop2.py
@@ -0,0 +1,22 @@
+from lpython import i32, f64, InOut
+
+def pop_wrapper(l: InOut[list[tuple[i32, f64]]], idx: i32) -> tuple[i32, f64]:
+    return l.pop(idx)
+
+def test_list_pop():
+    l1: list[tuple[i32, f64]]
+    x: tuple[i32, f64]
+    i: i32
+
+    l1 = [(1, 1.0), (2, 4.0), (3, 6.0)]
+
+    x = pop_wrapper(l1, 0)
+    assert x == (1, 1.0)
+
+    l1.append((4, 8.0))
+    assert x == (1, 1.0)
+
+    for i in range(len(l1)):
+        assert l1[i] == (i + 2, 2.0 * f64(i + 2))
+
+test_list_pop()
\ No newline at end of file
diff --git a/integration_tests/test_list_pop3.py b/integration_tests/test_list_pop3.py
new file mode 100644
index 0000000000..13f0740a67
--- /dev/null
+++ b/integration_tests/test_list_pop3.py
@@ -0,0 +1,14 @@
+from lpython import i32
+
+def main0():
+    a: list[i32] = [3, 4, 5]
+    i: i32
+    for i in range(10):
+        a.append(1)
+        a.pop()
+
+    print(a)
+    assert a[-1] == 5
+    assert len(a) == 3
+
+main0()
diff --git a/integration_tests/test_list_repeat.py b/integration_tests/test_list_repeat.py
new file mode 100644
index 0000000000..1c9b1bbc81
--- /dev/null
+++ b/integration_tests/test_list_repeat.py
@@ -0,0 +1,41 @@
+from lpython import i32, f64
+
+def test_list_repeat():
+    l_int_1: list[i32] = [1, 2]
+    l_int_2: list[i32] = []
+    l_int_3: list[i32]
+    l_tuple_1: list[tuple[f64, i32]] = [(1.0, 2), (2.0, 4), (3.0, 6)]
+    l_tuple_2: list[tuple[f64, i32]] = []
+    l_tuple_3: list[tuple[f64, i32]]
+    l_str_1: list[str] = ['ab', 'cd']
+    l_str_2: list[str] = []
+    l_str_3: list[str]
+    i: i32
+
+    assert len(l_int_1 * 0) == 0
+    assert l_int_1 * 1 == [1, 2]
+    assert l_int_1 * 2 == [1, 2, 1, 2]
+
+    for i in range(10):
+        l_int_3 = l_int_1 * i
+        assert l_int_3 == l_int_2
+        l_int_2 += l_int_1
+
+        l_tuple_3 = l_tuple_1 * i
+        assert l_tuple_3 == l_tuple_2
+        l_tuple_2 += l_tuple_1
+
+        l_str_3 = l_str_1 * i
+        assert l_str_3 == l_str_2
+        l_str_2 += l_str_1
+
+    for i in range(5):
+        assert l_int_1 * i + l_int_1 * (i + 1) == l_int_1 * (2 * i + 1)
+        assert l_tuple_1 * i + l_tuple_1 * (i + 1) == l_tuple_1 * (2 * i + 1)
+        assert l_str_1 * i + l_str_1 * (i + 1) == l_str_1 * (2 * i + 1)
+
+    print(l_int_1)
+    print(l_tuple_1)
+    print(l_tuple_1)
+
+test_list_repeat()
diff --git a/integration_tests/test_list_repeat2.py b/integration_tests/test_list_repeat2.py
new file mode 100644
index 0000000000..f152e691ca
--- /dev/null
+++ b/integration_tests/test_list_repeat2.py
@@ -0,0 +1,24 @@
+from lpython import i32, f32
+
+def add_list(x: list[f32]) -> f32:
+    sum: f32 = f32(0.0)
+    i: i32
+
+    for i in range(len(x)):
+        sum = sum + f32(x[i])
+    return sum
+
+def create_list(n: i32) -> list[f32]:
+    x: list[f32]
+    i: i32
+
+    x = [f32(0.0)] * n
+    for i in range(n):
+        x[i] = f32(i)
+    return x
+
+def main0():
+    x: list[f32] = create_list(i32(10))
+    print(add_list(x))
+
+main0()
diff --git a/integration_tests/test_list_reserve.py b/integration_tests/test_list_reserve.py
new file mode 100644
index 0000000000..f359d7547d
--- /dev/null
+++ b/integration_tests/test_list_reserve.py
@@ -0,0 +1,30 @@
+from lpython import i32, f64, reserve
+
+def test_list_reserve():
+    l1: list[i32] = []
+    l2: list[list[tuple[f64, str, tuple[i32, f64]]]] = []
+    i: i32
+
+    reserve(l1, 100)
+    # for i in range(50):
+    #     l1.append(i)
+    #     assert len(l1) == i + 1
+
+    # reserve(l1, 150)
+
+    # for i in range(50):
+    #     l1.pop(0)
+    #     assert len(l1) == 49 - i
+
+    # reserve(l2, 100)
+    # for i in range(50):
+    #     l2.append([(f64(i * i), str(i), (i, f64(i + 1))), (f64(i), str(i), (i, f64(i)))])
+    #     assert len(l2) == i + 1
+
+    # reserve(l2, 150)
+
+    # for i in range(50):
+    #     l2.pop(0)
+    #     assert len(l2) == 49 - i
+
+test_list_reserve()
diff --git a/integration_tests/test_list_reverse.py b/integration_tests/test_list_reverse.py
new file mode 100644
index 0000000000..ca8595756c
--- /dev/null
+++ b/integration_tests/test_list_reverse.py
@@ -0,0 +1,57 @@
+from lpython import i32, f64
+
+def test_list_reverse():
+    l1: list[i32] = []
+    l2: list[i32] = []
+    l3: list[f64] = []
+    l4: list[f64] = []
+    l5: list[str] = []
+    l6: list[str] = []
+    l7: list[str] = []
+    l8: list[list[i32]] = []
+    l9: list[tuple[i32, f64, str]] = []
+    i: i32
+    j: f64
+    s: str
+
+    l1 = [1, 2, 3]
+    l1.reverse()
+    assert l1 == [3, 2, 1]
+
+    l1 = []
+    for i in range(10):
+        l1.reverse()
+        l1.append(i)
+        l2.insert(0, i)
+        l1.reverse()
+        assert l1 == l2
+
+    j = 0.0
+    while j < 2.1:
+        l3.reverse()
+        l3.append(j)
+        l4.insert(0, j)
+        l3.insert(0, j + 1.0)
+        l4.append(j + 1.0)
+        l3.reverse()
+        assert l3 == l4
+        j += 0.1
+
+    l5 = ["abcd", "efgh", "ijkl"]
+    for s in l5:
+        l6.reverse()
+        l6.insert(0, s)
+        l7.append(s)
+        l6.reverse()
+        assert l6 == l7
+
+    l8 = [[1, 2], [3, 4, 5], [6, 7, 8, 9], [10]]
+    l8.reverse()
+    assert l8 == [[10], [6, 7, 8, 9], [3, 4, 5], [1, 2]]
+
+    l9 = [(1, 2.0, "abc"), (3, 4.0, "def"), (5, 6.0, "ghi")]
+    l9.reverse()
+    assert l9 == [(5, 6.0, "ghi"), (3, 4.0, "def"), (1, 2.0, "abc")]
+
+
+test_list_reverse()
diff --git a/integration_tests/test_list_section.py b/integration_tests/test_list_section.py
index 3c59383d79..639e639a55 100644
--- a/integration_tests/test_list_section.py
+++ b/integration_tests/test_list_section.py
@@ -1,4 +1,4 @@
-from ltypes import i32
+from lpython import i32
 
 
 def test_issue_1369():
diff --git a/integration_tests/test_list_section2.py b/integration_tests/test_list_section2.py
new file mode 100644
index 0000000000..493a6c407c
--- /dev/null
+++ b/integration_tests/test_list_section2.py
@@ -0,0 +1,12 @@
+from lpython import i32
+
+
+def test_list_section():
+    x: list[i32]
+    x = [5, -6, 7, -1, 2, 10, -8, 15]
+
+    n: i32 = len(x[1:4])
+    print(n)
+    assert n == 3
+
+test_list_section()
diff --git a/integration_tests/test_logical_assignment.py b/integration_tests/test_logical_assignment.py
new file mode 100644
index 0000000000..86c03a8d2b
--- /dev/null
+++ b/integration_tests/test_logical_assignment.py
@@ -0,0 +1,21 @@
+from lpython import i32, f64
+
+
+def test_logical_assignment():
+    _LPYTHON: str = "LPython"
+    s_var: str = "" or _LPYTHON
+    assert s_var == "LPython"
+    print(s_var)
+
+    _MAX_VAL: i32 = 100
+    i_var: i32 = 0 and 100
+    assert i_var == 0
+    print(i_var)
+
+    _PI: f64 = 3.14
+    f_var: f64 = 2.0 * _PI or _PI**2.0
+    assert f_var == 6.28
+    print(f_var)
+
+
+test_logical_assignment()
diff --git a/integration_tests/test_logical_compare.py b/integration_tests/test_logical_compare.py
new file mode 100644
index 0000000000..538598c29a
--- /dev/null
+++ b/integration_tests/test_logical_compare.py
@@ -0,0 +1,129 @@
+from lpython import i32, f64
+
+
+def test_logical_compare_literal():
+    # Integers
+    print(1 or 3)
+    assert (1 or 3) == 1
+
+    print(1 and 3)
+    assert (1 and 3) == 3
+
+    print(2 or 3 or 5 or 6)
+    assert (2 or 3 or 5 or 6) == 2
+
+    print(1 and 3 or 2 and 4)
+    assert (1 and 3 or 2 and 4) == 3
+
+    print(1 or 3 and 0 or 4)
+    assert (1 or 3 and 0 or 4) == 1
+
+    print(1 and 3 or 2 and 0)
+    assert (1 and 3 or 2 and 0) == 3
+
+    print(1 and 0 or 3 and 4)
+    assert (1 and 0 or 3 and 4) == 4
+
+    # Floating-point numbers
+    print(1.33 or 6.67)
+    assert (1.33 or 6.67) == 1.33
+
+    print(1.33 and 6.67)
+    assert (1.33 and 6.67) == 6.67
+
+    print(1.33 or 6.67 and 3.33 or 0.0)
+    assert (1.33 or 6.67 and 3.33 or 0.0) == 1.33
+
+    print(1.33 and 6.67 or 3.33 and 0.0)
+    assert (1.33 and 6.67 or 3.33 and 0.0) == 6.67
+
+    print(1.33 and 0.0 and 3.33 and 6.67)
+    assert (1.33 and 0.0 and 3.33 and 6.67) == 0.0
+
+    # Strings
+    print("a" or "b")
+    assert ("a" or "b") == "a"
+
+    print("abc" or "b")
+    assert ("abc" or "b") == "abc"
+
+    print("a" and "b")
+    assert ("a" and "b") == "b"
+
+    print("a" or "b" and "c" or "d")
+    assert ("a" or "b" and "c" or "d") == "a"
+
+    print("" or " ")
+    assert ("" or " ") == " "
+
+    print("" and " " or "a" and "b" and "c")
+    assert ("" and " " or "a" and "b" and "c") == "c"
+
+    print("" and " " and "a" and "b" and "c")
+    assert ("" and " " and "a" and "b" and "c") == ""
+
+
+def test_logical_compare_variable():
+    # Integers
+    i_a: i32 = 1
+    i_b: i32 = 3
+
+    print(i_a and i_b)
+    assert (i_a and i_b) == 3
+
+    print(i_a or i_b or 2 or 4)
+    assert (i_a or i_b or 2 or 4) == 1
+
+    print(i_a and i_b or 2 and 4)
+    assert (i_a and i_b or 2 and 4) == 3
+
+    print(i_a or i_b and 0 or 4)
+    assert (i_a or i_b and 0 or 4) == i_a
+
+    print(i_a and i_b or 2 and 0)
+    assert (i_a and i_b or 2 and 0) == i_b
+
+    print(i_a and 0 or i_b and 4)
+    assert (i_a and 0 or i_b and 4) == 4
+
+    print(i_a + i_b or 0 - 4)
+    assert (i_a + i_b or 0 - 4) == 4
+
+    # Floating-point numbers
+    f_a: f64 = 1.67
+    f_b: f64 = 3.33
+
+    print(f_a // f_b and f_a - f_b)
+    assert (f_a // f_b and f_a - f_b) == 0.0
+
+    print(f_a**3.0 or 3.0**f_a)
+    assert (f_a**3.0 or 3.0**f_a) == 4.657462999999999
+
+    print(f_a - 3.0 and f_a + 3.0 or f_b - 3.0 and f_b + 3.0)
+    assert (f_a - 3.0 and f_a + 3.0 or f_b - 3.0 and f_b + 3.0) == 4.67
+
+    # Strings
+    s_a: str = "a"
+    s_b: str = "b"
+
+    print(s_a or s_b)
+    assert (s_a or s_b) == s_a
+
+    print(s_a and s_b)
+    assert (s_a and s_b) == s_b
+
+    print(s_a + s_b or s_b + s_a)
+    assert (s_a + s_b or s_b + s_a) == "ab"
+
+    print(s_a[0] or s_b[-1])
+    assert (s_a[0] or s_b[-1]) == "a"
+
+    print(s_a[0] and s_b[-1])
+    assert (s_a[0] and s_b[-1]) == "b"
+
+    print(s_a + s_b or s_b + s_a + s_a[0] and s_b[-1])
+    assert (s_a + s_b or s_b + s_a + s_a[0] and s_b[-1]) == "ab"
+
+
+test_logical_compare_literal()
+test_logical_compare_variable()
diff --git a/integration_tests/test_math.py b/integration_tests/test_math.py
index 315b4efb8e..b79d82f161 100644
--- a/integration_tests/test_math.py
+++ b/integration_tests/test_math.py
@@ -1,8 +1,8 @@
 from math import (factorial, isqrt, perm, comb, degrees, radians, exp, pow,
                   ldexp, fabs, gcd, lcm, floor, ceil, remainder, expm1, fmod, log1p, trunc,
-                  modf, fsum, prod, dist)
+                  modf, fsum, prod, dist, frexp, isclose)
 import math
-from ltypes import i32, i64, f32, f64
+from lpython import i8, i16, i32, i64, f32, f64
 
 eps: f64
 eps = 1e-12
@@ -60,7 +60,6 @@ def test_exp():
     i = exp(2.34)
     assert abs(i - 10.381236562731843) < eps
 
-
 def test_pow():
     eps: f64
     eps = 1e-12
@@ -254,6 +253,58 @@ def test_issue_1242():
     assert abs(math.pi - 3.14159265358979323846) < 1e-10
 
 
+def test_frexp():
+    x:f64 = 6.23
+    mantissa:f64
+    exponent:i16
+    mantissa, exponent = frexp(x)
+    assert abs(mantissa - 0.77875) < eps and exponent == i16(3)
+
+    x = 0.8
+    mantissa, exponent = frexp(x)
+    assert abs(mantissa - 0.8) < eps and exponent == i16(0)
+
+    x = 19.74
+    mantissa, exponent = frexp(x)
+    assert abs(mantissa - 0.616875) < eps and exponent == i16(5)
+
+    x = -23.6
+    mantissa, exponent = frexp(x)
+    assert abs(mantissa + 0.7375) < eps and exponent == i16(5)
+
+    y:f32 = f32(1.23)
+    mantissa2:f32
+    exponent2:i8
+    mantissa2, exponent2 = frexp(y)
+    assert abs(mantissa2 - f32(0.615)) < f32(eps) and exponent2 == i8(1)
+
+    y = f32(-1.23)
+    mantissa2, exponent2 = frexp(y)
+    assert abs(mantissa2 - f32(-0.615)) < f32(eps) and exponent2 == i8(1)
+
+
+def test_isclose():
+    x:f64 = 2.2130
+    y:f64 = 2.2129
+    assert isclose(x, y, rel_tol=0.01, abs_tol=0.001)
+    assert isclose(x,y,rel_tol=0.0000001,abs_tol=0.01)
+    assert isclose(x,y,rel_tol=0.1,abs_tol=0.000001)
+    assert not isclose(x,y,rel_tol=0.0000001,abs_tol=0.00001)
+
+    x = -1.265
+    y = 1.265
+    assert not isclose(x,y,rel_tol=0.001,abs_tol=0.0001)
+    assert not isclose(y,x,rel_tol=0.01,abs_tol=0.1)
+    assert not isclose(x,y,rel_tol=0.01,abs_tol=0.1)
+
+    x = -1.2650
+    y = -1.2651
+    assert isclose(x, y, rel_tol=0.01, abs_tol=0.001)
+    assert isclose(x,y,rel_tol=0.0000001,abs_tol=0.01)
+    assert isclose(x,y,rel_tol=0.1,abs_tol=0.000001)
+    assert not isclose(x,y,rel_tol=0.0000001,abs_tol=0.00001)
+
+
 def check():
     test_factorial_1()
     test_comb()
@@ -279,6 +330,8 @@ def check():
     test_dist()
     test_modf()
     test_issue_1242()
+    test_frexp()
+    test_isclose()
 
 
 check()
diff --git a/integration_tests/test_math1.py b/integration_tests/test_math1.py
index b9e4bda987..41c4441660 100644
--- a/integration_tests/test_math1.py
+++ b/integration_tests/test_math1.py
@@ -1,6 +1,6 @@
 import math
 from math import pi, e
-from ltypes import i32
+from lpython import i32
 
 
 def f():
diff --git a/integration_tests/test_math_02.py b/integration_tests/test_math_02.py
index b154fcb152..a15b604326 100644
--- a/integration_tests/test_math_02.py
+++ b/integration_tests/test_math_02.py
@@ -1,20 +1,20 @@
 from math import (sin, cos, tan, pi, sqrt, log, log10, log2, erf, erfc, gamma,
                   lgamma, asin, acos, atan, atan2, asinh, acosh, atanh,
                   tanh, sinh, cosh, hypot, copysign)
-from ltypes import f64
+from lpython import f64
 
 def test_trig():
     eps: f64 = 1e-12
     assert abs(sin(0.0) - 0.0) < eps
-    assert abs(sin(pi/2) - 1.0) < eps
+    assert abs(sin(pi/2.0) - 1.0) < eps
     assert abs(cos(0.0) - 1.0) < eps
-    assert abs(cos(pi/2) - 0.0) < eps
+    assert abs(cos(pi/2.0) - 0.0) < eps
     assert abs(tan(0.0) - 0.0) < eps
-    assert abs(tan(pi/4) - 1.0) < eps
-    assert abs(asin(1.0) - pi/2) < eps
+    assert abs(tan(pi/4.0) - 1.0) < eps
+    assert abs(asin(1.0) - pi/2.0) < eps
     assert abs(acos(1.0) - 0.0) < eps
-    assert abs(atan(1.0) - pi/4) < eps
-    assert abs(atan2(1.0, 1.0) - pi/4) < eps
+    assert abs(atan(1.0) - pi/4.0) < eps
+    assert abs(atan2(1.0, 1.0) - pi/4.0) < eps
 
 def test_sqrt():
     eps: f64 = 1e-12
diff --git a/integration_tests/test_math_03.py b/integration_tests/test_math_03.py
new file mode 100644
index 0000000000..8047ce2c24
--- /dev/null
+++ b/integration_tests/test_math_03.py
@@ -0,0 +1,21 @@
+from math import (cbrt, exp2)
+from lpython import f64
+
+eps: f64
+eps = 1e-12
+
+def test_exp2():
+    i: f64
+    i = exp2(4.3)
+    assert abs(i - 19.698310613518657) < eps
+
+def test_cbrt():
+    eps: f64 = 1e-12
+    assert abs(cbrt(124.0) - 4.986630952238646) < eps
+    assert abs(cbrt(39.0) - 3.3912114430141664) < eps
+
+def check():
+    test_cbrt()
+    test_exp2()
+
+check()
\ No newline at end of file
diff --git a/integration_tests/test_max_min.py b/integration_tests/test_max_min.py
index 80eb924a10..79462ec2f4 100644
--- a/integration_tests/test_max_min.py
+++ b/integration_tests/test_max_min.py
@@ -1,4 +1,4 @@
-from ltypes import i32, f64
+from lpython import i32, f64
 
 def test_max_int():
     a: i32 = 1
diff --git a/integration_tests/test_membership_01.py b/integration_tests/test_membership_01.py
new file mode 100644
index 0000000000..10cb4f682e
--- /dev/null
+++ b/integration_tests/test_membership_01.py
@@ -0,0 +1,48 @@
+def test_int_dict():
+    a: dict[i32, i32] = {1:2, 2:3, 3:4, 4:5}
+    i: i32
+    assert (1 in a)
+    assert (6 not in a)
+    i = 4
+    assert (i in a)
+
+    a = {}
+    assert (1 not in a)
+
+def test_str_dict():
+    a: dict[str, str] = {'a':'1', 'b':'2', 'c':'3'}
+    i: str
+    assert ('a' in a)
+    assert ('d' not in a)
+    i = 'c'
+    assert (i in a)
+
+    a = {}
+    assert ('a' not in a)
+
+def test_int_set():
+    a: set[i32] = {1, 2, 3, 4}
+    i: i32
+    assert (1 in a)
+    assert (6 not in a)
+    i = 4
+    assert (i in a)
+
+    a = set()
+    assert (1 not in a)
+
+def test_str_set():
+    a: set[str] = {'a', 'b', 'c', 'e', 'f'}
+    i: str
+    assert ('a' in a)
+    assert ('d' not in a)
+    i = 'c'
+    assert (i in a)
+
+    a = set()
+    assert ('a' not in a)
+
+test_int_dict()
+test_str_dict()
+test_int_set()
+test_str_set()
diff --git a/test_modules/__init__.py b/integration_tests/test_modules/__init__.py
similarity index 100%
rename from test_modules/__init__.py
rename to integration_tests/test_modules/__init__.py
diff --git a/test_modules/mathfn/__init__.py b/integration_tests/test_modules/mathfn/__init__.py
similarity index 100%
rename from test_modules/mathfn/__init__.py
rename to integration_tests/test_modules/mathfn/__init__.py
diff --git a/test_modules/mathfn/sin.py b/integration_tests/test_modules/mathfn/sin.py
similarity index 78%
rename from test_modules/mathfn/sin.py
rename to integration_tests/test_modules/mathfn/sin.py
index d7724ea4f1..4d26103b13 100644
--- a/test_modules/mathfn/sin.py
+++ b/integration_tests/test_modules/mathfn/sin.py
@@ -1,4 +1,4 @@
-from ltypes import f64
+from lpython import f64
 
 def sinx(x: f64) -> f64:
     return x + 1.0
diff --git a/integration_tests/test_numpy_01.py b/integration_tests/test_numpy_01.py
index 6b4119b972..85685d01df 100644
--- a/integration_tests/test_numpy_01.py
+++ b/integration_tests/test_numpy_01.py
@@ -1,11 +1,11 @@
 # This test handles various aspects of local arrays using the `numpy.empty()`
 # function
-from ltypes import f64, i32
-from numpy import empty
+from lpython import f64, i32
+from numpy import empty, float64
 
 def test_local_arrays():
     a: f64[16]
-    a = empty(16)
+    a = empty(16, dtype=float64)
     i: i32
     for i in range(16):
         a[i] = f64(i) + 0.5
@@ -18,7 +18,7 @@ def test_local_arrays():
 
 def f() -> f64[4]:
     a: f64[4]
-    a = empty(4)
+    a = empty(4, dtype=float64)
     i: i32
     for i in range(4):
         a[i] = 1.0 * f64(i)
diff --git a/integration_tests/test_numpy_02.py b/integration_tests/test_numpy_02.py
index 7b23ac2a4b..920b102dbf 100644
--- a/integration_tests/test_numpy_02.py
+++ b/integration_tests/test_numpy_02.py
@@ -1,7 +1,7 @@
 # This test handles actual LPython implementations of functions from the numpy
 # module.
-from ltypes import i32, i64, f32, f64, c32, c64, TypeVar, overload
-from numpy import empty, int64
+from lpython import i32, i64, f32, f64, c32, c64, TypeVar, overload
+from numpy import empty, int64, float64
 
 e: f64 = 2.718281828459045
 pi: f64 = 3.141592653589793
@@ -12,12 +12,11 @@
 eps: f64
 eps = 1e-12
 
-n: i32
 n = TypeVar("n")
 
 def zeros(n: i32) -> f64[n]:
     A: f64[n]
-    A = empty(n)
+    A = empty(n, dtype=float64)
     i: i32
     for i in range(n):
         A[i] = 0.0
@@ -25,7 +24,7 @@ def zeros(n: i32) -> f64[n]:
 
 def ones(n: i32) -> f64[n]:
     A: f64[n]
-    A = empty(n)
+    A = empty(n, dtype=float64)
     i: i32
     for i in range(n):
         A[i] = 1.0
@@ -126,11 +125,10 @@ def fabs(f: f64) -> f64:
 def fabs(b: bool) -> f64:
     return sqrt(b)
 
-num: i32
 num = TypeVar("num")
 def linspace(start: f64, stop: f64, num: i32) -> f64[num]:
     A: f64[num]
-    A = empty(num)
+    A = empty(num, dtype=float64)
     i: i32
     for i in range(num):
         A[i] = start + (stop-start)*f64(i)/f64(num-1)
diff --git a/integration_tests/test_numpy_03.py b/integration_tests/test_numpy_03.py
index ea1058a19d..82faf76db4 100644
--- a/integration_tests/test_numpy_03.py
+++ b/integration_tests/test_numpy_03.py
@@ -1,5 +1,5 @@
-from ltypes import f64, i32
-from numpy import reshape, empty
+from lpython import f64, i32
+from numpy import reshape, empty, int32, float64
 
 def test_nd_to_1d(a: f64[:, :]):
     i: i32
@@ -9,8 +9,8 @@ def test_nd_to_1d(a: f64[:, :]):
     eps: f64
     eps = 1e-12
 
-    b: f64[256] = empty(256)
-    newshape: i32[1] = empty(1, dtype=int)
+    b: f64[256] = empty(256, dtype=float64)
+    newshape: i32[1] = empty(1, dtype=int32)
     newshape[0] = 256
     b = reshape(a, newshape)
     for k in range(256):
@@ -18,19 +18,19 @@ def test_nd_to_1d(a: f64[:, :]):
         j = k - i*16
         assert abs(b[k] - f64(i + j) - 0.5) <= eps
 
-    c: f64[16, 16, 16] = empty((16, 16, 16))
-    c = empty((16, 16, 16))
+    c: f64[16, 16, 16] = empty((16, 16, 16), dtype=float64)
+    c = empty((16, 16, 16), dtype=float64)
     for i in range(16):
         for j in range(16):
             for k in range(16):
                 c[i, j, k] = f64(i + j + k) + 0.5
 
-    d: f64[4096] = empty(4096)
-    newshape1: i32[1] = empty(1, dtype=int)
+    d: f64[4096] = empty(4096, dtype=float64)
+    newshape1: i32[1] = empty(1, dtype=int32)
     newshape1[0] = 4096
     d = reshape(c, newshape1)
     for l in range(4096):
-        i = i32(int(l/256))
+        i = i32(l/256)
         j = (l - i*256)//16
         k = (l - i*256 - j*16)
         assert abs(d[l] - f64(i + j + k) - 0.5) <= eps
@@ -43,15 +43,15 @@ def test_1d_to_nd(d: f64[:]):
     eps: f64
     eps = 1e-12
 
-    b: f64[256] = empty(256)
+    b: f64[256] = empty(256, dtype=float64)
     for k in range(256):
         i = k//16
         j = k - i*16
         b[k] = f64(i + j) + 0.5
 
     a: f64[16, 16]
-    a = empty((16, 16))
-    newshape: i32[2] = empty(2, dtype=int)
+    a = empty((16, 16), dtype=float64)
+    newshape: i32[2] = empty(2, dtype=int32)
     newshape[0] = 16
     newshape[1] = 16
     a = reshape(b, newshape)
@@ -60,8 +60,8 @@ def test_1d_to_nd(d: f64[:]):
             assert abs(a[i, j] - f64(i + j) - 0.5) <= eps
 
     c: f64[16, 16, 16]
-    c = empty((16, 16, 16))
-    newshape1: i32[3] = empty(3, dtype=int)
+    c = empty((16, 16, 16), dtype=float64)
+    newshape1: i32[3] = empty(3, dtype=int32)
     newshape1[0] = 16
     newshape1[1] = 16
     newshape1[2] = 16
@@ -78,16 +78,16 @@ def test_reshape_with_argument():
     l: i32
 
     a: f64[16, 16]
-    a = empty((16, 16))
+    a = empty((16, 16), dtype=float64)
     for i in range(16):
         for j in range(16):
             a[i, j] = f64(i + j) + 0.5
 
     test_nd_to_1d(a)
 
-    d: f64[4096] = empty(4096)
+    d: f64[4096] = empty(4096, dtype=float64)
     for l in range(4096):
-        i = i32(int(l/256))
+        i = i32(l/256)
         j = (l - i*256)//16
         k = (l - i*256 - j*16)
         d[l] = f64(i + j + k) + 0.5
diff --git a/integration_tests/test_numpy_04.py b/integration_tests/test_numpy_04.py
index 1225b307a7..823c573af8 100644
--- a/integration_tests/test_numpy_04.py
+++ b/integration_tests/test_numpy_04.py
@@ -1,4 +1,4 @@
-from ltypes import i32, f64
+from lpython import i32, f64
 from numpy import array
 
 def test_array_01():
diff --git a/integration_tests/test_os.py b/integration_tests/test_os.py
index b513fbbcae..20f92c342d 100644
--- a/integration_tests/test_os.py
+++ b/integration_tests/test_os.py
@@ -1,4 +1,4 @@
-from ltypes import i64
+from lpython import i64
 from os import (open, read, close, O_RDONLY)
 
 def test():
diff --git a/integration_tests/test_package_01.py b/integration_tests/test_package_01.py
new file mode 100644
index 0000000000..9ba20b210a
--- /dev/null
+++ b/integration_tests/test_package_01.py
@@ -0,0 +1,13 @@
+from nrp import newton_raphson
+from lpython import f64, i32
+
+
+def check():
+    x0: f64 = 20.0
+    c: f64 = 3.0
+    maxiter: i32 = 20
+    x: f64
+    x = newton_raphson(x0, c, maxiter)
+    assert abs(x - 3.0) < 1e-5
+
+check()
diff --git a/integration_tests/test_params.py b/integration_tests/test_params.py
new file mode 100644
index 0000000000..0748dcfd2a
--- /dev/null
+++ b/integration_tests/test_params.py
@@ -0,0 +1,14 @@
+from lpython import i32
+
+def takes_set(a: set[i32]) -> set[i32]:
+    return {1, 2, 3}
+
+def takes_dict(a: dict[i32, i32]) -> dict[i32, i32]:
+    return {1:1, 2:2}
+
+s: set[i32] = takes_set({1, 2})
+
+assert len(s) == 3
+
+w: dict[i32, i32] = takes_dict({1:1, 2:2})
+assert len(w)  == 2
diff --git a/integration_tests/test_pass_compare.py b/integration_tests/test_pass_compare.py
index f98dee1416..f076366b83 100644
--- a/integration_tests/test_pass_compare.py
+++ b/integration_tests/test_pass_compare.py
@@ -1,4 +1,4 @@
-from ltypes import i32
+from lpython import i32
 
 
 def f():
diff --git a/integration_tests/test_pip_import_01.py b/integration_tests/test_pip_import_01.py
new file mode 100644
index 0000000000..530abb4552
--- /dev/null
+++ b/integration_tests/test_pip_import_01.py
@@ -0,0 +1,46 @@
+from lpynn.perceptron import init_perceptron, print_perceptron, Perceptron, train_dataset
+from lpynn.utils import normalize_input_vectors
+from lpython import i32, f64
+
+def main0():
+    p: Perceptron = Perceptron(0, [0.0], 0.0, 0, 0.0, 0.0, 0)
+    init_perceptron(p, 2, 0.05, 10000, 90.0)
+    print_perceptron(p)
+    print("=================================")
+
+    input_vectors: list[list[f64]] = [[-1.0, -1.0], [-1.0, 1.0], [1.0, -1.0], [1.0, 1.0]]
+    outputs: list[i32] = [1, 1, 1, -1]
+
+    normalize_input_vectors(input_vectors)
+    train_dataset(p, input_vectors, outputs)
+    print_perceptron(p)
+    print("=================================")
+
+    assert p.cur_accuracy > 50.0
+    assert p.epochs_cnt > 1
+    assert abs(p.weights[0] - (-0.1)) < 1e-12
+    assert abs(p.weights[1] - (-0.1)) < 1e-12
+    assert abs(p.weights[2] - (0.1)) < 1e-12
+
+def main1():
+    p: Perceptron = Perceptron(0, [0.0], 0.0, 0, 0.0, 0.0, 0)
+    init_perceptron(p, 2, 0.05, 10000, 90.0)
+    print_perceptron(p)
+    print("=================================")
+
+    input_vectors: list[list[f64]] = [[-1.0, -1.0], [-1.0, 1.0], [1.0, -1.0], [1.0, 1.0], [1.5, 1.0]]
+    outputs: list[i32] = [1, 1, -1, 1, -1]
+
+    normalize_input_vectors(input_vectors)
+    train_dataset(p, input_vectors, outputs)
+    print_perceptron(p)
+    print("=================================")
+
+    assert p.cur_accuracy > 50.0
+    assert p.epochs_cnt > 1
+    assert abs(p.weights[0] - (-0.22)) < 1e-12
+    assert abs(p.weights[1] - (0.1)) < 1e-12
+    assert abs(p.weights[2] - (0.1)) < 1e-12
+
+main0()
+main1()
diff --git a/integration_tests/test_pkg_lnn_01.py b/integration_tests/test_pkg_lnn_01.py
new file mode 100644
index 0000000000..63dcbf5ee2
--- /dev/null
+++ b/integration_tests/test_pkg_lnn_01.py
@@ -0,0 +1,90 @@
+from lnn.perceptron import init_perceptron, print_perceptron, Perceptron, train_dataset
+from lnn.utils import normalize_input_vectors
+from lpdraw import Line, Circle, Display, Clear
+from lpython import i32, f64, Const
+from numpy import empty, int32
+
+
+def compute_decision_boundary(p: Perceptron, x: f64) -> f64:
+    bias: f64 = p.weights[-1]
+    slope: f64 = (-p.weights[0] / p.weights[1])
+    intercept: f64 = (-bias / p.weights[1])
+    return slope * x + intercept
+
+def plot_graph(p: Perceptron, input_vectors: list[list[f64]], outputs: list[i32]):
+    Width: Const[i32] = 500 # x-axis limits [0, 499]
+    Height: Const[i32] = 500 # y-axis limits [0, 499]
+    Screen: i32[Height, Width] = empty((Height, Width), dtype=int32)
+    Clear(Height, Width, Screen)
+
+    x1: f64 = 2.0
+    y1: f64 = compute_decision_boundary(p, x1)
+    x2: f64 = -2.0
+    y2: f64 = compute_decision_boundary(p, x2)
+
+    # center the graph using the following offset
+    scale_offset: f64 = Width / 4
+    shift_offset: f64 = Width / 2
+    x1 *= scale_offset
+    y1 *= scale_offset
+    x2 *= scale_offset
+    y2 *= scale_offset
+
+    # print (x1, y1, x2, y2)
+    Line(Height, Width, Screen, i32(x1 + shift_offset), i32(y1 + shift_offset), i32(x2 + shift_offset), i32(y2 + shift_offset))
+
+    i: i32
+    point_size: i32 = 5
+    for i in range(len(input_vectors)):
+        input_vectors[i][0] *= scale_offset
+        input_vectors[i][1] *= scale_offset
+        input_vectors[i][0] += shift_offset
+        input_vectors[i][1] += shift_offset
+        if outputs[i] == 1:
+            x: i32 = i32(input_vectors[i][0])
+            y: i32 = i32(input_vectors[i][1])
+            Line(Height, Width, Screen, x - point_size, y, x + point_size, y)
+            Line(Height, Width, Screen, x, y - point_size, x, y + point_size)
+        else:
+            Circle(Height, Width, Screen, i32(input_vectors[i][0]), i32(input_vectors[i][1]), f64(point_size))
+
+    Display(Height, Width, Screen)
+
+def main0():
+    p: Perceptron = Perceptron(0, [0.0], 0.0, 0, 0.0, 0.0, 0)
+    init_perceptron(p, 2, 0.05, 10000, 90.0)
+    print_perceptron(p)
+    print("=================================")
+
+    input_vectors: list[list[f64]] = [[-1.0, -1.0], [-1.0, 1.0], [1.0, -1.0], [1.0, 1.0]]
+    outputs: list[i32] = [1, 1, 1, -1]
+
+    normalize_input_vectors(input_vectors)
+    train_dataset(p, input_vectors, outputs)
+    print_perceptron(p)
+
+    assert p.cur_accuracy > 50.0
+    assert p.epochs_cnt > 1
+
+    plot_graph(p, input_vectors, outputs)
+
+def main1():
+    p: Perceptron = Perceptron(0, [0.0], 0.0, 0, 0.0, 0.0, 0)
+    init_perceptron(p, 2, 0.05, 10000, 90.0)
+    print_perceptron(p)
+    print("=================================")
+
+    input_vectors: list[list[f64]] = [[-1.0, -1.0], [-1.0, 1.0], [1.0, -1.0], [1.0, 1.0], [1.5, 1.0]]
+    outputs: list[i32] = [1, 1, -1, 1, -1]
+
+    normalize_input_vectors(input_vectors)
+    train_dataset(p, input_vectors, outputs)
+    print_perceptron(p)
+
+    assert p.cur_accuracy > 50.0
+    assert p.epochs_cnt > 1
+
+    plot_graph(p, input_vectors, outputs)
+
+main0()
+main1()
diff --git a/integration_tests/test_pkg_lnn_02.py b/integration_tests/test_pkg_lnn_02.py
new file mode 100644
index 0000000000..c72543b179
--- /dev/null
+++ b/integration_tests/test_pkg_lnn_02.py
@@ -0,0 +1,89 @@
+from lnn.regression import init_perceptron, print_perceptron, Perceptron, train_dataset
+from lnn.utils import normalize_input_vectors, normalize_output_vector
+from lpdraw import Line, Circle, Display, Clear
+from lpython import i32, f64, Const
+from numpy import empty, int32
+
+
+def compute_decision_boundary(p: Perceptron, x: f64) -> f64:
+    bias: f64 = p.weights[1]
+    slope: f64 = p.weights[0]
+    intercept: f64 = bias
+    return slope * x + intercept
+
+def plot_graph(p: Perceptron, input_vectors: list[list[f64]], outputs: list[f64]):
+    Width: Const[i32] = 500 # x-axis limits [0, 499]
+    Height: Const[i32] = 500 # y-axis limits [0, 499]
+    Screen: i32[Height, Width] = empty((Height, Width), dtype=int32)
+    Clear(Height, Width, Screen)
+
+    x1: f64 = 1.0
+    y1: f64 = compute_decision_boundary(p, x1)
+    x2: f64 = -1.0
+    y2: f64 = compute_decision_boundary(p, x2)
+
+    # center the graph using the following offset
+    scale_offset: f64 = Width / 4
+    shift_offset: f64 = Width / 2
+    x1 *= scale_offset
+    y1 *= scale_offset
+    x2 *= scale_offset
+    y2 *= scale_offset
+
+    # print (x1, y1, x2, y2)
+    Line(Height, Width, Screen, i32(x1 + shift_offset), i32(y1 + shift_offset), i32(x2 + shift_offset), i32(y2 + shift_offset))
+
+    i: i32
+    point_size: i32 = 5
+    for i in range(len(input_vectors)):
+        input_vectors[i][0] *= scale_offset
+        input_vectors[i][0] += shift_offset
+        outputs[i] *= scale_offset
+        outputs[i] += shift_offset
+
+        Circle(Height, Width, Screen, i32(input_vectors[i][0]), i32(outputs[i]), f64(point_size))
+
+    Display(Height, Width, Screen)
+
+def main0():
+    p: Perceptron = Perceptron(0, [0.0], 0.0, 0, 0.0, 0.0, 0)
+    init_perceptron(p, 1, 0.0005, 10000, 1e-16)
+
+    input_vectors: list[list[f64]] = [[1.1], [1.3], [1.5], [2.0], [2.2], [2.9], [3.0], [3.2], [3.2], [3.7], [3.9], [4.0], [4.0], [4.1], [4.5], [4.9], [5.1], [5.3], [5.9], [6.0], [6.8], [7.1], [7.9], [8.2], [8.7], [9.0], [9.5], [9.6], [10.3], [10.5], [11.2], [11.5], [12.3], [12.9], [13.5]]
+    outputs: list[f64] = [39343.0, 46205.0, 37731.0, 43525.0, 39891.0, 56642.0, 60150.0, 54445.0, 64445.0, 57189.0, 63218.0, 55794.0, 56957.0, 57081.0, 61111.0, 67938.0, 66029.0, 83088.0, 81363.0, 93940.0, 91738.0, 98273.0, 101302.0, 113812.0, 109431.0, 105582.0, 116969.0, 112635.0, 122391.0, 121872.0, 127345.0, 126756.0, 128765.0, 135675.0, 139465.0]
+
+    normalize_input_vectors(input_vectors)
+    normalize_output_vector(outputs)
+
+    train_dataset(p, input_vectors, outputs)
+    print_perceptron(p)
+
+    assert abs(p.weights[0] - (1.0640975812232145)) <= 1e-12
+    assert abs(p.weights[1] - (0.0786977829749839)) <= 1e-12
+    assert abs(p.err - (0.4735308448814293)) <= 1e-12
+    assert p.epochs_cnt == 4515
+
+    plot_graph(p, input_vectors, outputs)
+
+def main1():
+    p: Perceptron = Perceptron(0, [0.0], 0.0, 0, 0.0, 0.0, 0)
+    init_perceptron(p, 1, 0.0005, 10000, 1e-16)
+
+    input_vectors: list[list[f64]] = [[1.0], [3.0], [7.0]]
+    outputs: list[f64] = [8.0, 4.0, -2.0]
+
+    normalize_input_vectors(input_vectors)
+    normalize_output_vector(outputs)
+
+    train_dataset(p, input_vectors, outputs)
+    print_perceptron(p)
+
+    assert abs(p.weights[0] - (-0.9856542200697508)) <= 1e-12
+    assert abs(p.weights[1] - (-0.0428446744717655)) <= 1e-12
+    assert abs(p.err - 0.011428579012311327) <= 1e-12
+    assert p.epochs_cnt == 10000
+
+    plot_graph(p, input_vectors, outputs)
+
+main0()
+main1()
diff --git a/integration_tests/test_pkg_lpconvexhull.py b/integration_tests/test_pkg_lpconvexhull.py
new file mode 100644
index 0000000000..793ea696dd
--- /dev/null
+++ b/integration_tests/test_pkg_lpconvexhull.py
@@ -0,0 +1,32 @@
+from lpython import Const, i32, f64
+
+from lpdraw import Line, Circle, Clear, Display
+from lpconvexhull import convex_hull
+from numpy import empty, int32
+
+def plot_graph(polygon: list[tuple[i32, i32]], points: list[tuple[i32, i32]]):
+    Width: Const[i32] = 500 # x-axis limits [0, 499]
+    Height: Const[i32] = 500 # y-axis limits [0, 499]
+    Screen: i32[Height, Width] = empty((Height, Width), dtype=int32)
+    Clear(Height, Width, Screen)
+
+    i: i32
+    n: i32 = len(polygon)
+    for i in range(n):
+        Line(Height, Width, Screen, polygon[i][0], polygon[i][1], polygon[(i + 1) % n][0], polygon[(i + 1) % n][1])
+
+    point_size: i32 = 5
+    for i in range(len(points)):
+        Circle(Height, Width, Screen, points[i][0], points[i][1], f64(point_size))
+
+    Display(Height, Width, Screen)
+
+def main0():
+    points: list[tuple[i32, i32]] = [(445, 193), (138, 28), (418, 279), (62, 438), (168, 345), (435, 325), (293, 440), (158, 94), (403, 288), (136, 278), (141, 243), (287, 313), (338, 492), (172, 78), (29, 404), (79, 377), (184, 91), (69, 324), (408, 72), (494, 1)]
+    convex_hull_points: list[tuple[i32, i32]] = convex_hull(points)
+    # print(convex_hull_points)
+    plot_graph(convex_hull_points, points)
+
+    assert convex_hull_points == [(29, 404), (138, 28), (494, 1), (435, 325), (338, 492), (62, 438)]
+
+main0()
diff --git a/integration_tests/test_pkg_lpdraw.py b/integration_tests/test_pkg_lpdraw.py
new file mode 100644
index 0000000000..75fd1148da
--- /dev/null
+++ b/integration_tests/test_pkg_lpdraw.py
@@ -0,0 +1,34 @@
+from lpdraw import Line, Circle, Clear, Display, DisplayTerminal
+
+from lpython import i32, TypeVar
+from numpy import empty, int32
+
+H = TypeVar("H")
+W = TypeVar("W")
+
+def test_screen(H: i32, W: i32, Screen: i32[H, W]):
+    i: i32
+    j: i32
+    cnt: i32 = 0
+    for i in range(H):
+        for j in range(W):
+            cnt += (Screen[i, j] - 256)
+
+    assert cnt == -979630
+
+
+def main():
+    Width: i32 = 100 # x-axis limits [0, 99]
+    Height: i32 = 40 # y-axis limits [0, 39]
+    Screen: i32[40, 100] = empty((40, 100), dtype=int32)
+
+    Clear(Height, Width, Screen)
+    Line(Height, Width, Screen, 2, 4, 99, 11)
+    Line(Height, Width, Screen, 0, 39, 49, 0)
+    Circle(Height, Width, Screen, 52, 20, 6.0)
+    Display(Height, Width, Screen)
+    DisplayTerminal(Height, Width, Screen)
+
+    test_screen(Height, Width, Screen)
+
+main()
diff --git a/integration_tests/test_random.py b/integration_tests/test_random.py
index d1cded5add..0cf91c7870 100644
--- a/integration_tests/test_random.py
+++ b/integration_tests/test_random.py
@@ -1,4 +1,4 @@
-from ltypes import i32, f64
+from lpython import i32, f64
 import random
 
 
@@ -52,6 +52,35 @@ def test_weibullvariate():
     r = random.weibullvariate(-5.6, 1.2)
     print(r)
 
+def test_seed():
+    random.seed()
+    t6: f64 = random.random()
+    random.seed(123)
+    t1: f64
+    t1 = random.random()
+    random.seed(321)
+    t2: f64
+    t2 = random.random()
+    random.seed(123)
+    t3: f64
+    t3 = random.random()
+    random.seed(0)
+    t4: f64
+    t4 = random.random()
+    random.seed(0)
+    t5: f64
+    t5 = random.random()
+    random.seed()
+    t7: f64 = random.random()
+
+    print(t1, t2, t3, t4, t5, t6, t7)
+    assert t1 != t2
+    assert t1 == t3
+    assert t1 != t4
+    assert t1 != t5
+    assert t4 == t5
+    # assert t6 != t7
+
 def check():
     test_random()
     test_randrange()
@@ -60,5 +89,6 @@ def check():
     test_paretovariate()
     test_expovariate()
     test_weibullvariate()
+    test_seed()
 
 check()
diff --git a/integration_tests/test_random_02.py b/integration_tests/test_random_02.py
new file mode 100644
index 0000000000..560dfe8cd6
--- /dev/null
+++ b/integration_tests/test_random_02.py
@@ -0,0 +1,21 @@
+from lpython import i32, f64
+import random
+
+def test_seed():
+    """test the distribution of random"""
+    num_samples:i32 = 100000
+    bins: list[i32] = [0]*10
+    _ : i32
+    for _ in range(num_samples):
+        val: f64 = random.random()
+        assert val >= 0.0 and val < 1.0  # value out of range
+        bins[i32(val * 10.0)] += 1  # increment the appropriate bin
+
+    # Check that no bin has significantly more or fewer values than expected
+    expected_bin_count:i32 = i32(num_samples / 10)
+    count : i32
+    for count in bins:
+        blas: f64 = f64(abs(count - expected_bin_count))
+        assert blas < f64(expected_bin_count) * 0.05  # allow 5% deviation
+
+test_seed()
diff --git a/integration_tests/test_set_add.py b/integration_tests/test_set_add.py
new file mode 100644
index 0000000000..699b1cfa58
--- /dev/null
+++ b/integration_tests/test_set_add.py
@@ -0,0 +1,34 @@
+from lpython import i32
+
+def test_set_add():
+    s1: set[i32]
+    s2: set[tuple[i32, tuple[i32, i32], str]]
+    s3: set[str]
+    st1: str
+    i: i32
+    j: i32
+
+    s1 = {0}
+    s2 = {(0, (1, 2), 'a')}
+    for i in range(20):
+        j = i % 10
+        s1.add(j)
+        s2.add((j, (j + 1, j + 2), 'a'))
+        assert len(s1) == len(s2)
+        if i < 10:
+            assert len(s1) == i + 1
+        else:
+            assert len(s1) == 10
+
+    st1 = 'a'
+    s3 = {st1}
+    for i in range(20):
+        s3.add(st1)
+        if i < 10:
+            if i > 0:
+                assert len(s3) == i
+                st1 += 'a'
+        else:
+            assert len(s3) == 10
+
+test_set_add()
diff --git a/integration_tests/test_set_clear.py b/integration_tests/test_set_clear.py
new file mode 100644
index 0000000000..871e2c2bf7
--- /dev/null
+++ b/integration_tests/test_set_clear.py
@@ -0,0 +1,21 @@
+def test_clear():
+    a: set[i32] = {1, 2}
+
+    a.clear()
+    a.add(3)
+
+    assert len(a) == 1
+    a.remove(3)
+    assert len(a) == 0
+
+    b: set[str] = {'a', 'b'}
+
+    b.clear()
+    b.add('c')
+
+    assert len(b) == 1
+    b.remove('c')
+    assert len(b) == 0
+
+
+test_clear()
diff --git a/integration_tests/test_set_constructor.py b/integration_tests/test_set_constructor.py
new file mode 100644
index 0000000000..497819dbb7
--- /dev/null
+++ b/integration_tests/test_set_constructor.py
@@ -0,0 +1,17 @@
+def test_empty_set():
+    a: set[i32] = set()
+    assert len(a) == 0
+    a.add(2)
+    a.remove(2)
+    a.add(3)
+    assert a.pop() == 3
+
+    b: set[str] = set()
+
+    assert len(b) == 0
+    b.add('a')
+    b.remove('a')
+    b.add('b')
+    assert b.pop() == 3
+
+test_empty_set()
diff --git a/integration_tests/test_set_discard.py b/integration_tests/test_set_discard.py
new file mode 100644
index 0000000000..730abaff7d
--- /dev/null
+++ b/integration_tests/test_set_discard.py
@@ -0,0 +1,48 @@
+from lpython import i32
+
+def test_set_discard():
+    s1: set[i32]
+    s2: set[tuple[i32, tuple[i32, i32], str]]
+    s3: set[str]
+    st1: str
+    i: i32
+    j: i32
+    k: i32
+
+    for k in range(2):
+        s1 = {0}
+        s2 = {(0, (1, 2), "a")}
+        for i in range(20):
+            j = i % 10
+            s1.add(j)
+            s2.add((j, (j + 1, j + 2), "a"))
+
+        for i in range(10):
+            s1.discard(i)
+            s2.discard((i, (i + 1, i + 2), "a"))
+            assert len(s1) == 10 - 1 - i
+            assert len(s1) == len(s2)
+
+    st1 = "a"
+    s3 = {st1}
+    for i in range(20):
+        s3.add(st1)
+        if i < 10:
+            if i > 0:
+                st1 += "a"
+
+    st1 = "a"
+    for i in range(10):
+        s3.discard(st1)
+        assert len(s3) == 10 - 1 - i
+        if i < 10:
+            st1 += "a"
+
+    for i in range(20):
+        s1.add(i)
+        if i % 2 == 0:
+            s1.discard(i)
+        assert len(s1) == (i + 1) // 2
+
+
+test_set_discard()
diff --git a/integration_tests/test_set_from_list.py b/integration_tests/test_set_from_list.py
new file mode 100644
index 0000000000..e06b4e40c1
--- /dev/null
+++ b/integration_tests/test_set_from_list.py
@@ -0,0 +1,14 @@
+from lpython import i32
+
+
+def test_set():
+    s: set[i32]
+    s = set([1, 2, 2, 2, -1, 1, 1, 3])
+    assert len(s) == 4
+
+    s2: set[str]
+    s2 = set(["a", "b", "b", "abc", "a"])
+    assert len(s2) == 3
+
+
+test_set()
diff --git a/integration_tests/test_set_len.py b/integration_tests/test_set_len.py
new file mode 100644
index 0000000000..2b07c2d1ac
--- /dev/null
+++ b/integration_tests/test_set_len.py
@@ -0,0 +1,11 @@
+from lpython import i32
+
+def test_set():
+    s: set[i32]
+    s = {1, 2, 22, 2, -1, 1}
+    assert len(s2) == 4
+    s2: set[str]
+    s2 = {'a', 'b', 'cd', 'b', 'abc', 'a'}
+    assert len(s2) == 4
+
+test_set()
diff --git a/integration_tests/test_set_pop.py b/integration_tests/test_set_pop.py
new file mode 100644
index 0000000000..af4500e236
--- /dev/null
+++ b/integration_tests/test_set_pop.py
@@ -0,0 +1,26 @@
+def set_pop_str():
+    s: set[str] = {'a', 'b', 'c'}
+
+    assert s.pop() in {'a', 'b', 'c'}
+    assert len(s) == 2
+    assert s.pop() in {'a', 'b', 'c'}
+    assert s.pop() in {'a', 'b', 'c'}
+    assert len(s) == 0
+
+    s.add('d')
+    assert s.pop() == 'd'
+
+def set_pop_int():
+    s: set[i32] = {1, 2, 3}
+
+    assert s.pop() in {1, 2, 3}
+    assert len(s) == 2
+    assert s.pop() in {1, 2, 3}
+    assert s.pop() in {1, 2, 3}
+    assert len(s) == 0
+    
+    s.add(4)
+    assert s.pop() == 4
+
+set_pop_str()
+set_pop_int()
diff --git a/integration_tests/test_set_remove.py b/integration_tests/test_set_remove.py
new file mode 100644
index 0000000000..ca93ec0a80
--- /dev/null
+++ b/integration_tests/test_set_remove.py
@@ -0,0 +1,47 @@
+from lpython import i32
+
+def test_set_add():
+    s1: set[i32]
+    s2: set[tuple[i32, tuple[i32, i32], str]]
+    s3: set[str]
+    st1: str
+    i: i32
+    j: i32
+    k: i32
+
+    for k in range(2):
+        s1 = {0}
+        s2 = {(0, (1, 2), 'a')}
+        for i in range(20):
+            j = i % 10
+            s1.add(j)
+            s2.add((j, (j + 1, j + 2), 'a'))
+
+        for i in range(10):
+            s1.remove(i)
+            s2.remove((i, (i + 1, i + 2), 'a'))
+            # assert len(s1) == 10 - 1 - i
+            # assert len(s1) == len(s2)
+
+    st1 = 'a'
+    s3 = {st1}
+    for i in range(20):
+        s3.add(st1)
+        if i < 10:
+            if i > 0:
+                st1 += 'a'
+
+    st1 = 'a'
+    for i in range(10):
+        s3.remove(st1)
+        assert len(s3) == 10 - 1 - i
+        if i < 10:
+            st1 += 'a'
+
+    for i in range(20):
+        s1.add(i)
+        if i % 2 == 0:
+            s1.remove(i)
+        assert len(s1) == (i + 1) // 2
+
+test_set_add()
\ No newline at end of file
diff --git a/integration_tests/test_statistics.py b/integration_tests/test_statistics.py
deleted file mode 100644
index 175bbe643b..0000000000
--- a/integration_tests/test_statistics.py
+++ /dev/null
@@ -1,231 +0,0 @@
-from statistics import (mean, fmean, geometric_mean, harmonic_mean, variance,
-                        stdev, pvariance, pstdev, correlation, covariance,
-                        linear_regression, mode)
-from ltypes import i32, f64, i64, f32
-
-
-eps: f64
-eps = 1e-12
-
-
-def test_mean():
-    b: list[i32]
-    b = [9, 4, 10]
-    j: f64
-    j = mean(b)
-    assert abs(j - 7.666666666666667) < eps
-
-    c: list[f64]
-    c = [2.0, 3.1, 11.1]
-    k: f64
-    k = mean(c)
-    assert abs(k - 5.4) < eps
-
-    d: list[i32]
-    d = [1, 3, 11]
-    l: f64
-    l = mean(d)
-    assert abs(l - 5.0) < eps
-
-def test_fmean():
-    a: list[i32]
-    a = [9, 4, 10]
-    j: f64
-    j = fmean(a)
-    assert abs(j - 7.666666666666667) < eps
-
-    b: list[f64]
-    b = [-1.9, -13.8, -6.0, 4.2, 5.9, 9.1]
-    k: f64
-    k = fmean(b)
-    assert abs(k + 0.41666666666666674) < eps
-
-
-def test_geometric_mean():
-    c: list[i32]
-    c = [1,2,3]
-    k: f64
-    k = geometric_mean(c)
-    assert abs(k - 1.8171205928321397) < eps
-
-    d: list[f64]
-    d = [1.1, 3.4, 17.982, 11.8]
-    l: f64
-    l = geometric_mean(d)
-    assert abs(l - 5.307596520524432) < eps
-
-def test_harmonic_mean():
-    c: list[i32]
-    c = [9,2,46]
-    k: f64
-    k = harmonic_mean(c)
-    assert abs(k - 4.740458015267175) < eps
-
-    d: list[i32]
-    d = [9, 0, 46]
-    l: f64
-    l = harmonic_mean(d)
-    assert l == 0.0
-
-    e: list[f64]
-    e = [1.1, 3.4, 17.982, 11.8]
-    f: f64
-    f = harmonic_mean(e)
-    assert abs(f - 2.977152988015106) < eps
-
-
-def test_variance():
-    a: list[i32]
-    a = [1, 2, 5, 4, 8, 9, 12]
-    j: f64
-    j = variance(a)
-    assert abs(j - 15.80952380952381) < eps
-
-    b: list[f64]
-    b = [2.74, 1.23, 2.63, 2.22, 3.0, 1.98]
-    k: f64
-    k = variance(b)
-    assert abs(k - 0.40924) < eps
-
-def test_stdev():
-    a: list[i32]
-    a = [1, 2, 3, 4, 5]
-    j: f64
-    j = stdev(a)
-    assert abs(j - 1.5811388300841898) < eps
-
-    b: list[f64]
-    b = [1.23, 1.45, 2.1, 2.2, 1.9]
-    k: f64
-    k = stdev(b)
-    assert abs(k - 0.41967844833872525) < eps
-
-def test_pvariance():
-    a: list[i32]
-    a = [1, 2, 5, 4, 8, 9, 12]
-    j: f64
-    j = pvariance(a)
-    assert abs(j - 13.551020408163266) < eps
-
-    b: list[f64]
-    b = [2.74, 1.23, 2.63, 2.22, 3.0, 1.98]
-    k: f64
-    k = pvariance(b)
-    assert abs(k - 0.34103333333333335) < eps
-
-def test_pstdev():
-    a: list[i32]
-    a = [1, 2, 3, 4, 5]
-    j: f64
-    j = pstdev(a)
-    assert abs(j - 1.4142135623730951) < eps
-
-    b: list[f64]
-    b = [1.23, 1.45, 2.1, 2.2, 1.9]
-    k: f64
-    k = pstdev(b)
-    assert abs(k - 0.37537181567080935) < eps
-
-
-def test_covariance():
-    a: list[i32]
-    a = [1, 2, 3, 4, 5, 6, 7, 8, 9]
-    b: list[i32]
-    b = [1, 2, 3, 1, 2, 3, 1, 2, 3]
-    j: f64
-    j = covariance(a, b)
-    assert abs(j - 0.75) < eps
-
-    c: list[f64]
-    c = [2.74, 1.23, 2.63, 2.22, 3.0, 1.98]
-    d: list[f64]
-    d = [9.4, 1.23, 2.63, 22.4, 1.9, 13.98]
-    k: f64
-    k = covariance(c, d)
-    assert abs(k + 0.24955999999999934) < eps
-
-
-def test_correlation():
-    a: list[i32]
-    a = [11, 2, 7, 4, 15, 6, 10, 8, 9, 1, 11, 5, 13, 6, 15]
-    b: list[i32]
-    b = [2, 5, 17, 6, 10, 8, 13, 4, 6, 9, 11, 2, 5, 4, 7]
-
-    j: f64
-    j = correlation(a, b)
-    assert abs(j - 0.11521487988958108) < eps
-
-    c: list[f64]
-    c = [2.0, 23.0, 24.55, 64.436, 5403.23]
-    d: list[f64]
-    d = [26.9, 75.6, 34.06, 356.89, 759.26]
-
-    j = correlation(c, c)
-    assert abs(j - 1.0) < eps
-
-    j = correlation(c, d)
-    assert abs(j - 0.9057925526720572) < eps
-
-def test_linear_regression():
-    c: list[f64]
-    c = [2.74, 1.23, 2.63, 2.22, 3.0, 1.98]
-    d: list[f64]
-    d = [9.4, 1.23, 2.63, 22.4, 1.9, 13.98]
-
-    slope: f64
-    intercept: f64
-    slope, intercept = linear_regression(c, d)
-
-    assert abs(slope + 0.6098133124816717) < eps
-    assert abs(intercept - 9.992570618707845) < eps
-
-    a: list[i32]
-    b: list[i32]
-    a = [12, 24, 2, 1, 43, 53, 23]
-    b = [2, 13, 14, 63, 49, 7, 3]
-
-    slope, intercept = linear_regression(a, b)
-
-    assert abs(slope + 0.18514007308160782) < eps
-    assert abs(intercept - 25.750304506699152) < eps
-
-def test_mode():
-    a: list[i32]
-    a = [3, 1, 12, 4, 0]
-    i: i32
-    i = mode(a)
-    assert i == 3
-
-    b: list[i32]
-    b = [4, 2, 4, 4, 2, 3, 5]
-    j: i32
-    j = mode(b)
-    assert j == 4
-
-    c: list[i32]
-    c = [2, 3, 4, 1, 2, 4, 5]
-    k: i32
-    k = mode(c)
-    assert k == 2
-
-    d: list[i32]
-    d = [-1, 2, -3, -5, -3, -1, 4, -2, 4, -5, -3, 4, -3]
-    k = mode(d)
-    assert k == -3
-
-
-def check():
-    test_mean()
-    test_geometric_mean()
-    test_harmonic_mean()
-    test_fmean()
-    test_variance()
-    test_stdev()
-    test_pvariance()
-    test_pstdev()
-    test_linear_regression()
-    test_correlation()
-    test_covariance()
-    test_mode()
-
-check()
diff --git a/integration_tests/test_statistics_01.py b/integration_tests/test_statistics_01.py
new file mode 100644
index 0000000000..3eeddeed6a
--- /dev/null
+++ b/integration_tests/test_statistics_01.py
@@ -0,0 +1,169 @@
+from statistics import (mean, fmean, geometric_mean, harmonic_mean, variance,
+                        stdev, pvariance, pstdev, mode)
+from lpython import i32, f64, i64
+
+
+eps: f64
+eps = 1e-12
+
+
+def test_mean():
+    b: list[i32]
+    b = [9, 4, 10]
+    j: f64
+    j = mean(b)
+    assert abs(j - 7.666666666666667) < eps
+
+    c: list[f64]
+    c = [2.0, 3.1, 11.1]
+    k: f64
+    k = mean(c)
+    assert abs(k - 5.4) < eps
+
+    d: list[i32]
+    d = [1, 3, 11]
+    l: f64
+    l = mean(d)
+    assert abs(l - 5.0) < eps
+
+def test_fmean():
+    a: list[i32]
+    a = [9, 4, 10]
+    j: f64
+    j = fmean(a)
+    assert abs(j - 7.666666666666667) < eps
+
+    b: list[f64]
+    b = [-1.9, -13.8, -6.0, 4.2, 5.9, 9.1]
+    k: f64
+    k = fmean(b)
+    assert abs(k + 0.41666666666666674) < eps
+
+
+def test_geometric_mean():
+    c: list[i32]
+    c = [1,2,3]
+    k: f64
+    k = geometric_mean(c)
+    assert abs(k - 1.8171205928321397) < eps
+
+    d: list[f64]
+    d = [1.1, 3.4, 17.982, 11.8]
+    l: f64
+    l = geometric_mean(d)
+    assert abs(l - 5.307596520524432) < eps
+
+def test_harmonic_mean():
+    c: list[i32]
+    c = [9,2,46]
+    k: f64
+    k = harmonic_mean(c)
+    assert abs(k - 4.740458015267175) < eps
+
+    d: list[i32]
+    d = [9, 0, 46]
+    l: f64
+    l = harmonic_mean(d)
+    assert l == 0.0
+
+    e: list[f64]
+    e = [1.1, 3.4, 17.982, 11.8]
+    f: f64
+    f = harmonic_mean(e)
+    assert abs(f - 2.977152988015106) < eps
+
+
+def test_variance():
+    a: list[i32]
+    a = [1, 2, 5, 4, 8, 9, 12]
+    j: f64
+    j = variance(a)
+    assert abs(j - 15.80952380952381) < eps
+
+    b: list[f64]
+    b = [2.74, 1.23, 2.63, 2.22, 3.0, 1.98]
+    k: f64
+    k = variance(b)
+    assert abs(k - 0.40924) < eps
+
+def test_stdev():
+    a: list[i32]
+    a = [1, 2, 3, 4, 5]
+    j: f64
+    j = stdev(a)
+    assert abs(j - 1.5811388300841898) < eps
+
+    b: list[f64]
+    b = [1.23, 1.45, 2.1, 2.2, 1.9]
+    k: f64
+    k = stdev(b)
+    assert abs(k - 0.41967844833872525) < eps
+
+def test_pvariance():
+    a: list[i32]
+    a = [1, 2, 5, 4, 8, 9, 12]
+    j: f64
+    j = pvariance(a)
+    assert abs(j - 13.551020408163266) < eps
+
+    b: list[f64]
+    b = [2.74, 1.23, 2.63, 2.22, 3.0, 1.98]
+    k: f64
+    k = pvariance(b)
+    assert abs(k - 0.34103333333333335) < eps
+
+def test_pstdev():
+    a: list[i32]
+    a = [1, 2, 3, 4, 5]
+    j: f64
+    j = pstdev(a)
+    assert abs(j - 1.4142135623730951) < eps
+
+    b: list[f64]
+    b = [1.23, 1.45, 2.1, 2.2, 1.9]
+    k: f64
+    k = pstdev(b)
+    assert abs(k - 0.37537181567080935) < eps
+
+def test_mode():
+    a: list[i32]
+    a = [3, 1, 12, 4, 0]
+    i: i32
+    i = mode(a)
+    assert i == 3
+
+    b: list[i32]
+    b = [4, 2, 4, 4, 2, 3, 5]
+    j: i32
+    j = mode(b)
+    assert j == 4
+
+    c: list[i32]
+    c = [2, 3, 4, 1, 2, 4, 5]
+    k: i32
+    k = mode(c)
+    assert k == 2
+
+    d: list[i32]
+    d = [-1, 2, -3, -5, -3, -1, 4, -2, 4, -5, -3, 4, -3]
+    k = mode(d)
+    assert k == -3
+
+    e: list[i64]
+    e = [i64(-1), i64(2), i64(-3), i64(-5), i64(-3), i64(-1), i64(4), i64(-2), i64(4), i64(-5), i64(-3), i64(4), i64(-3)]
+    l: i64 = mode(e)
+    assert l == i64(-3)
+
+
+def check():
+    test_mean()
+    test_geometric_mean()
+    test_harmonic_mean()
+    test_fmean()
+    test_variance()
+    test_stdev()
+    test_pvariance()
+    test_pstdev()
+    test_mode()
+
+check()
diff --git a/integration_tests/test_statistics_02.py b/integration_tests/test_statistics_02.py
new file mode 100644
index 0000000000..0930c095a5
--- /dev/null
+++ b/integration_tests/test_statistics_02.py
@@ -0,0 +1,77 @@
+from statistics import (covariance, correlation,
+                        linear_regression)
+from lpython import i32, f64
+
+
+eps: f64
+eps = 1e-12
+
+def test_covariance():
+    a: list[i32]
+    a = [1, 2, 3, 4, 5, 6, 7, 8, 9]
+    b: list[i32]
+    b = [1, 2, 3, 1, 2, 3, 1, 2, 3]
+    j: f64
+    j = covariance(a, b)
+    assert abs(j - 0.75) < eps
+
+    c: list[f64]
+    c = [2.74, 1.23, 2.63, 2.22, 3.0, 1.98]
+    d: list[f64]
+    d = [9.4, 1.23, 2.63, 22.4, 1.9, 13.98]
+    k: f64
+    k = covariance(c, d)
+    assert abs(k + 0.24955999999999934) < eps
+
+
+def test_correlation():
+    a: list[i32]
+    a = [11, 2, 7, 4, 15, 6, 10, 8, 9, 1, 11, 5, 13, 6, 15]
+    b: list[i32]
+    b = [2, 5, 17, 6, 10, 8, 13, 4, 6, 9, 11, 2, 5, 4, 7]
+
+    j: f64
+    j = correlation(a, b)
+    assert abs(j - 0.11521487988958108) < eps
+
+    c: list[f64]
+    c = [2.0, 23.0, 24.55, 64.436, 5403.23]
+    d: list[f64]
+    d = [26.9, 75.6, 34.06, 356.89, 759.26]
+
+    j = correlation(c, c)
+    assert abs(j - 1.0) < eps
+
+    j = correlation(c, d)
+    assert abs(j - 0.9057925526720572) < eps
+
+def test_linear_regression():
+    c: list[f64]
+    c = [2.74, 1.23, 2.63, 2.22, 3.0, 1.98]
+    d: list[f64]
+    d = [9.4, 1.23, 2.63, 22.4, 1.9, 13.98]
+
+    slope: f64
+    intercept: f64
+    slope, intercept = linear_regression(c, d)
+
+    assert abs(slope + 0.6098133124816717) < eps
+    assert abs(intercept - 9.992570618707845) < eps
+
+    a: list[i32]
+    b: list[i32]
+    a = [12, 24, 2, 1, 43, 53, 23]
+    b = [2, 13, 14, 63, 49, 7, 3]
+
+    slope, intercept = linear_regression(a, b)
+
+    assert abs(slope + 0.18514007308160782) < eps
+    assert abs(intercept - 25.750304506699152) < eps
+
+
+def check():
+    test_linear_regression()
+    test_correlation()
+    test_covariance()
+
+check()
diff --git a/integration_tests/test_str_01.py b/integration_tests/test_str_01.py
index 014b798fca..0a65e8d075 100644
--- a/integration_tests/test_str_01.py
+++ b/integration_tests/test_str_01.py
@@ -1,3 +1,5 @@
+from lpython import i32
+
 def f():
     x: str
     x = "ok"
@@ -37,17 +39,161 @@ def test_str_slice():
     # TODO:
     # assert a[0:5:-1] == ""
 
+   
+def test_str_title():
+    a: str = "hello world"
+    b: str = "hj'kl"
+    c: str = "hELlo wOrlD"
+    d: str = "{Hel1o}world"
+    res: str = a.title()
+    res2: str = b.title()
+    res3: str = c.title()
+    res4: str = d.title()
+    assert res == "Hello World" 
+    assert res2 == "Hj'Kl"
+    assert res3 == "Hello World"
+    assert res4 == "{Hel1O}World"
+
 def test_str_repeat():
     a: str
     a = "Xyz"
     assert a*3 == "XyzXyzXyz"
     assert a*2*3 == "XyzXyzXyzXyzXyzXyz"
     assert 3*a*3 == "XyzXyzXyzXyzXyzXyzXyzXyzXyz"
-    assert a*-1 == ""
+    b: str = a * -1
+    assert b == ""
+    assert len(a*(10**6)) == (3 * 10 ** 6)
+
+    # string repeat with a non-constant integer
+    s: str = "#"
+    n: i32 = 5
+
+    assert s * n == "#####"
+    assert n * s == "#####"
+
+    assert "@" * n == "@@@@@"
+    assert "@#$%" * n == "@#$%@#$%@#$%@#$%@#$%"
+
+    s = "@#$%"
+    assert n * s == "@#$%@#$%@#$%@#$%@#$%"
+
+    n = 10 ** 6
+    assert len(s * n) == (4 * 10 ** 6)
+
+    s = "$"
+    m: i32 = 2
+    n = 5
+    t: str = s * m * n
+    assert t == "$$$$$$$$$$"
+    assert s * m * 2 == "$$$$"
+    assert 2 * (m + n) * s == "$$$$$$$$$$$$$$"
+
+    t = 2 * (m + n) * "abc-"
+    assert t == "abc-abc-abc-abc-abc-abc-abc-abc-abc-abc-abc-abc-abc-abc-"
+
+
+# def test_str_join():
+#     a: str
+#     a = ","
+#     p:list[str] = ["a","b"]
+#     res:str = a.join(p)
+#     assert res == "a,b"
+# 
+# def test_str_join2():
+#     a: str
+#     a = "**"
+#     p:list[str] = ["a","b"]
+#     res:str = a.join(p)
+#     assert res == "a**b"
+# 
+# def test_str_join_empty_str():
+#     a: str
+#     a = ""
+#     p:list[str] = ["a","b"]
+#     res:str = a.join(p)
+#     assert res == "ab"
+# 
+# def test_str_join_empty_list():
+#     a: str
+#     a = "ab"
+#     p:list[str] = []
+#     res:str = a.join(p)
+#     assert res == ""
+# 
+# def test_constant_str_subscript():
+#     assert "abc"[2] == "c"
+#     assert "abc"[:2] == "ab"
+# 
+# def test_str_split():
+#     a: str = "1,2,3"
+#     b: str = "1,2,,3,"
+#     c: str = "1and2and3"
+#     d: str = "1 2 3"
+#     e: str = "   1   2   3   "
+#     f: str = "123"
+#     res: list[str] = a.split(",")
+#     res1: list[str] = b.split(",")
+#     res2: list[str] = c.split("and")
+#     res3: list[str] = d.split()
+#     res4: list[str] = e.split()
+#     res5: list[str] = f.split(" ")
+#     # res6: list[str] = "".split(" ")
+#     assert res == ["1", "2", "3"]
+#     assert res1 == ["1", "2", "", "3", ""]
+#     assert res2 == ["1", "2", "3"]
+#     assert res3 == ["1", "2", "3"]
+#     assert res4 == ["1", "2", "3"]
+#     assert res5 == ["123"]
+#     # assert res6 == [""]
+
+def test_str_replace():
+    x: str = "abc"
+    a: str = "zzaaabracadabra"
+    print(a.replace("a",""))
+    print(a.replace("",""))
+    print(a.replace("a","b"))
+    print(a.replace("e","a")) 
+    print(a.replace("ab","ba"))
+    print(a.replace("c","z"))
+    print(a.replace("zza","yo"))
+    print(a.replace("a","b",0))
+    print(a.replace("a","b",1))
+    print(a.replace("a","b",2))
+    print(a.replace("a","b",2))
+    print(a.replace("a","b",3))
+    print(a.replace("a","b",4))
+    print(a.replace("a","b",5))
+    print(a.replace("a","b",6))
+    print(a.replace("a","b",7))
+    print(a.replace("a","b",8))
+    print(a.replace("a","b",9))
+    print(a.replace("b","k",1))
+    print(a.replace("b","k",2))
+    print(a.replace("zza","yo",2))
+    print(x.replace("", ","))
+    assert a.replace("a","") == "zzbrcdbr"
+    assert a.replace("","") == "zzaaabracadabra"
+    assert a.replace("a","b") == "zzbbbbrbcbdbbrb"
+    assert a.replace("e","a") == "zzaaabracadabra"
+    assert a.replace("ab","ba") == "zzaabaracadbara"
+    assert a.replace("c","z") == "zzaaabrazadabra"
+    assert a.replace("zza","yo") == "yoaabracadabra"
+    assert a.replace("a","b",0) == "zzaaabracadabra"
+    assert a.replace("a","b",1) == "zzbaabracadabra"
+    assert a.replace("a","b",2) == "zzbbabracadabra"
+    assert a.replace("a","b",2) == "zzbbabracadabra"
+    assert a.replace("a","b",3) == "zzbbbbracadabra"
+    assert a.replace("a","b",4) == "zzbbbbrbcadabra"
+    assert a.replace("a","b",5) == "zzbbbbrbcbdabra"
+    assert a.replace("a","b",6) == "zzbbbbrbcbdbbra"
+    assert a.replace("a","b",7) == "zzbbbbrbcbdbbrb"
+    assert a.replace("a","b",8) == "zzbbbbrbcbdbbrb"
+    assert a.replace("a","b",9) == "zzbbbbrbcbdbbrb"
+    assert a.replace("b","k",1) == "zzaaakracadabra"
+    assert a.replace("b","k",2) == "zzaaakracadakra"
+    assert a.replace("zza","yo",2) == "yoaabracadabra"
+    assert x.replace("", ",") == ",a,b,c,"
 
-def test_constant_str_subscript():
-    assert "abc"[2] == "c"
-    assert "abc"[:2] == "ab"
 
 def check():
     f()
@@ -55,6 +201,13 @@ def check():
     test_str_index()
     test_str_slice()
     test_str_repeat()
-    test_constant_str_subscript()
+#     test_str_join()
+#     test_str_join2()
+#     test_str_join_empty_str()
+#     test_str_join_empty_list()
+#     test_constant_str_subscript()
+#     test_str_title()
+#     test_str_split()
+    test_str_replace()
 
 check()
diff --git a/integration_tests/test_str_03.py b/integration_tests/test_str_03.py
index 891b5fb4bc..5dd91d3d35 100644
--- a/integration_tests/test_str_03.py
+++ b/integration_tests/test_str_03.py
@@ -1,10 +1,18 @@
-from ltypes import i8, i16, i32, i64
+from lpython import i8, i16, i32, i64
 
 def test_new_line():
     print("abc\n")
     print("\ndef")
     print("x\nyz")
 
+def test_escape_sequences():
+    print('I said \'Wow\' ')
+    print("I said \"hi\" ")
+    print("I said \\\"hi\" ")
+    print('I said \'\\\'hi\\''hey\' ')
+    print('a''b')
+    print("a" "b")
+
 def test_int():
     i: i8 = i8(1)
     j: i16 = i16(2)
@@ -23,5 +31,6 @@ def test_issue_1124():
 
 
 test_new_line()
+test_escape_sequences()
 test_int()
 test_issue_1124()
diff --git a/integration_tests/test_str_04.py b/integration_tests/test_str_04.py
new file mode 100644
index 0000000000..c0ede7991f
--- /dev/null
+++ b/integration_tests/test_str_04.py
@@ -0,0 +1,11 @@
+def main0():
+    x: str
+    x = "abcdefghijkl"
+    print(len(x))
+    assert len(x) == 12
+
+    y: str = "123"
+    print(len(y))
+    assert len(y) == 3
+
+main0()
diff --git a/integration_tests/test_str_05.py b/integration_tests/test_str_05.py
new file mode 100644
index 0000000000..e3eef630b2
--- /dev/null
+++ b/integration_tests/test_str_05.py
@@ -0,0 +1,12 @@
+def main0():
+    x: str
+    x = "Hello, World"
+    y: str
+    y = "o"
+    assert x.count(y) == 2
+    y = ""
+    assert x.count(y) == len(x) + 1
+    y = "Hello,"
+    assert x.count(y) == 1
+
+main0()
diff --git a/integration_tests/test_str_06.py b/integration_tests/test_str_06.py
new file mode 100644
index 0000000000..8df130521d
--- /dev/null
+++ b/integration_tests/test_str_06.py
@@ -0,0 +1,11 @@
+def main0():
+    x: str
+    x = "Hello, World"
+
+    assert "Hello" in x
+    assert "," in x
+    assert "rld" in x
+
+    assert "Hello" not in "World"
+
+main0()
diff --git a/integration_tests/test_str_attributes.py b/integration_tests/test_str_attributes.py
old mode 100644
new mode 100755
index cfe4d91bfb..b8b24cf8fa
--- a/integration_tests/test_str_attributes.py
+++ b/integration_tests/test_str_attributes.py
@@ -1,13 +1,20 @@
 def capitalize():
     s: str
     s = "tom and jerry"
+    print(s.capitalize())
     assert s.capitalize() == "Tom and jerry"
     s = "12wddd"
+    print(s)
     assert s.capitalize() == s
     s = " tom and jerry"
+    print(s.capitalize())
     assert s.capitalize() == s
     assert "empty string" .capitalize() == "Empty string"
     assert "".capitalize() == ""
+    assert "lPyThOn".capitalize() == "Lpython"
+    x: str
+    x = "lPyThOn"
+    assert x.capitalize() == "Lpython"
 
 
 def lower():
@@ -18,6 +25,14 @@ def lower():
     assert "".lower() == ""
 
 
+def upper():
+    s: str
+    s = "AaaaAABBbbbbBB!@12223BN"
+    assert s.upper() == "AAAAAABBBBBBBB!@12223BN"
+    assert "DDd12Vv".upper() == "DDD12VV"
+    assert "".upper() == ""
+
+
 def strip():
     s: str
     s = "     AASAsaSas    "
@@ -59,6 +74,29 @@ def find():
     assert s2.find("we") == -1
     assert "".find("") == 0
 
+def count():
+    s: str
+    sub: str
+    s = "ABC ABCDAB ABCDABCDABDE"
+    sub = "ABC"
+    print(s.count(sub), s.count("ABC"))
+    assert s.count(sub) == 4
+    assert s.count("ABC") == 4
+
+    sub = "AB"
+    print(s.count(sub), s.count("AB"))
+    assert s.count(sub) == 6
+    assert s.count("AB") == 6
+
+    sub = "ABC"
+    print("ABC ABCDAB ABCDABCDABDE".count(sub), "ABC ABCDAB ABCDABCDABDE".count("ABC"))
+    assert "ABC ABCDAB ABCDABCDABDE".count(sub) == 4
+    assert "ABC ABCDAB ABCDABCDABDE".count("ABC") == 4
+
+    sub = "AB"
+    assert "ABC ABCDAB ABCDABCDABDE".count(sub) == 6
+    assert "ABC ABCDAB ABCDABCDABDE".count("AB") == 6
+
 
 def startswith():
     s: str
@@ -79,12 +117,408 @@ def startswith():
     assert "".startswith("ok") == False
 
 
+def endswith():
+
+    # The following test suite fulfils the control flow graph coverage
+    # in terms of Statement Coverage and Branch Coverage associated with endwith() functionality.
+
+    # Case 1: When string is constant and suffix is also constant
+    assert "".endswith("") == True
+    assert "".endswith(" ") == False
+    assert "".endswith("%") == False
+    assert "".endswith("a1234PT#$") == False
+    assert "".endswith("blah blah") == False
+    assert " rendezvous 5:30 ".endswith("") == True
+    assert " rendezvous 5:30 ".endswith(" ") == True
+    assert " rendezvous 5:30 ".endswith(" 5:30 ") == True
+    assert " rendezvous 5:30 ".endswith("apple") == False
+    assert "two plus".endswith("longer than string") == False
+
+    # Case 2: When string is constant and suffix is variable
+    suffix: str
+    suffix = ""
+    assert "".endswith(suffix) == True
+    suffix = " "
+    assert "".endswith(suffix) == False
+    suffix = "5:30 "
+    assert " rendezvous 5:30 ".endswith(suffix) == True
+    suffix = ""
+    assert " rendezvous 5:30 ".endswith(suffix) == True
+    suffix = "apple"
+    assert " rendezvous 5:30 ".endswith(suffix) == False
+    suffix = "longer than string"
+    assert "two plus".endswith(suffix) == False
+
+    # Case 3: When string is variable and suffix is either constant or variable
+    s: str
+    s = ""
+    assert s.endswith("") == True
+    assert s.endswith("apple") == False
+    assert s.endswith(" ") == False
+    assert s.endswith(suffix) == False
+
+    s = " rendezvous 5 "
+    assert s.endswith(" $3324") == False
+    assert s.endswith("5 ") == True
+    assert s.endswith(s) == True
+    suffix = "vous 5 "
+    assert s.endswith(suffix) == True
+    suffix = "apple"
+    assert s.endswith(suffix) == False
+
+
+def partition():
+
+    # Note: Both string or seperator cannot be empty
+    # Case 1: When string is constant and seperator is also constant
+    assert "   ".partition(" ") == ("", " ", "  ")
+    assert "apple mango".partition(" ") == ("apple", " ", "mango")
+    assert "applemango".partition("afdnjkfsn") == ("applemango", "", "")
+    assert "applemango".partition("an") == ("applem", "an", "go")
+    assert "applemango".partition("mango") == ("apple", "mango", "")
+    assert "applemango".partition("applemango") == ("", "applemango", "")
+    assert "applemango".partition("ppleman") == ("a", "ppleman", "go")
+    assert "applemango".partition("pplt") == ("applemango", "", "")
+
+    # Case 2: When string is constant and seperator is variable
+    seperator: str
+    seperator = " "
+    assert "   ".partition(seperator) == ("", " ", "  ")
+    seperator = " "
+    assert "apple mango".partition(seperator) == ("apple", " ", "mango")
+    seperator = "5:30 "
+    assert " rendezvous 5:30 ".partition(
+        seperator) == (" rendezvous ", "5:30 ", "")
+    seperator = "^&"
+    assert "@#$%^&*()#!".partition(seperator) == ("@#$%", "^&", "*()#!")
+    seperator = "daddada "
+    assert " rendezvous 5:30 ".partition(
+        seperator) == (" rendezvous 5:30 ", "", "")
+    seperator = "longer than string"
+    assert "two plus".partition(seperator) == ("two plus", "", "")
+
+    # Case 3: When string is variable and seperator is either constant or variable
+    s: str
+    s = "tomorrow"
+    assert s.partition("apple") == ("tomorrow", "", "")
+    assert s.partition("rr") == ("tomo", "rr", "ow")
+    assert s.partition(seperator) == ("tomorrow", "", "")
+
+    s = "rendezvous 5"
+    assert s.partition(" ") == ("rendezvous", " ", "5")
+    assert s.partition("5") == ("rendezvous ", "5", "")
+    assert s.partition(s) == ("", "rendezvous 5", "")
+    seperator = "vous "
+    assert s.partition(seperator) == ("rendez", "vous ", "5")
+    seperator = "apple"
+    assert s.partition(seperator) == ("rendezvous 5", "", "")
+
+
+def is_lower():
+    # Case 1: When constant string is present
+    assert "".islower() == False
+    assert "APPLE".islower() == False
+    assert "4432632479".islower() == False
+    assert "%#$#$#32a".islower() == True
+    assert "apple".islower() == True
+    assert "apple is a fruit".islower() == True
+
+    # Case 2: When variable string is present
+    s: str
+    s = "APPLE"
+    assert s.islower() == False
+    s = "238734587"
+    assert s.islower() == False
+    s = "%#$#$#32a"
+    assert s.islower() == True
+    s = "apple"
+    assert s.islower() == True
+    s = "apple is a fruit"
+    assert s.islower() == True
+
+
+def is_upper():
+    # Case 1: When constant string is present
+    assert "".isupper() == False
+    assert "apple".isupper() == False
+    assert "4432632479".isupper() == False
+    assert "%#$#$#32A".isupper() == True
+    assert "APPLE".isupper() == True
+    assert "APPLE IS A FRUIT".isupper() == True
+
+    # Case 2: When variable string is present
+    s: str
+    s = "apple"
+    assert s.isupper() == False
+    s = "238734587"
+    assert s.isupper() == False
+    s = "%#$#$#32A"
+    assert s.isupper() == True
+    s = "APPLE"
+    assert s.isupper() == True
+    s = "APPLE IS A FRUIT"
+    assert s.isupper() == True
+
+
+def is_decimal():
+    # Case 1: When constant string is present
+    assert "".isdecimal() == False
+    assert "apple".isdecimal() == False
+    assert "4432632479".isdecimal() == True
+    assert "%#$#$#32A".isdecimal() == False
+    assert "1.25".isdecimal() == False
+    assert "-325".isdecimal() == False
+    assert "12 35".isdecimal() == False
+
+    # Case 2: When variable string is present
+    s: str
+    s = "apple"
+    assert s.isdecimal() == False
+    s = "238734587"
+    assert s.isdecimal() == True
+    s = "%#$#$#32A"
+    assert s.isdecimal() == False
+    s = "1.35"
+    assert s.isdecimal() == False
+    s = "-42556"
+    assert s.isdecimal() == False
+    s = "12 34"
+    assert s.isdecimal() == False
+
+
+def is_ascii():
+    # Case 1: When constant string is present
+    assert "".isascii() == True
+    assert "    ".isascii() == True
+    assert "Hello, World123!".isascii() == True
+    assert "Hëllö, Wörld!".isascii() == False
+    assert "This is a test string with some non-ASCII characters: 🚀".isascii() == False
+    assert "\t\n\r".isascii() == True
+    assert "12 35".isascii() == True
+
+    # # Case 2: When variable string is present
+    s: str
+    s = "  "
+    assert s.isascii() == True
+    s = "Hello, World!"
+    assert s.isascii() == True
+    s = "Hëllö, Wörld!"
+    assert s.isascii() == False
+    s = "This is a test string with some non-ASCII characters: 🚀"
+    assert s.isascii() == False
+    s = "\t\n\r"
+    assert s.isascii() == True
+    s = "123 45 6"
+    assert s.isascii() == True
+
+
+def is_alpha():
+    a: str = "helloworld"
+    b: str = "hj kl"
+    c: str = "a12(){}A"
+    d: str = " "
+    e: str = ""
+    res: bool = a.isalpha()
+    res2: bool = b.isalpha()
+    res3: bool = c.isalpha()
+    res4: bool = d.isalpha()
+    res5: bool = e.isalpha()
+    assert res == True
+    assert res2 == False
+    assert res3 == False
+    assert res4 == False
+    assert res5 == False
+
+    assert "helloworld".isalpha() == True
+    assert "hj kl".isalpha() == False
+    assert "a12(){}A".isalpha() == False
+    assert " ".isalpha() == False
+    assert "".isalpha() == False
+
+
+def is_title():
+    a: str = "Hello World"
+    b: str = "Hj'kl"
+    c: str = "hELlo wOrlD"
+    d: str = " Hello"
+    e: str = " "
+    res: bool = a.istitle()
+    res2: bool = b.istitle()
+    res3: bool = c.istitle()
+    res4: bool = d.istitle()
+    res5: bool = e.istitle()
+    assert res == True
+    assert res2 == False
+    assert res3 == False
+    assert res4 == True
+    assert res5 == False
+
+    assert "Hello World".istitle() == True
+    assert "Hj'kl".istitle() == False
+    assert "hELlo wOrlD".istitle() == False
+    assert " Hello".istitle() == True
+    assert " ".istitle() == False
+
+def is_space():
+    s0: str = ""
+    assert s0.isspace() == False
+    assert "".isspace() == False
+
+    s1: str = " \t\n\v\f\r"
+    assert s1.isspace() == True
+    assert " \t\n\v\f\r".isspace() == True
+
+    s2: str = " \t\n\v\f\rabcd"
+    assert s2.isspace() == False
+    assert " \t\n\v\f\rabcd".isspace() == False
+
+    s3: str = "abcd \t\n\v\f\ref"
+    assert s3.isspace() == False
+    assert "abcd \t\n\v\f\ref".isspace() == False
+
+    s4: str = " \\t\n\v\f\r"
+    assert s4.isspace() == False
+    assert " \\t\n\v\f\r".isspace() == False
+
+    s5: str = " \\t\\n\\v\\f\\r"
+    assert s5.isspace() == False
+    assert " \\t\\n\\v\\f\\r".isspace() == False
+
+    s6: str = "Hello, LPython!\n"
+    assert s6.isspace() == False
+    assert "Hello, LPython!\n".isspace() == False
+
+    s7: str = "\t\tHello! \n"
+    assert s7.isspace() == False
+    assert "\t\tHello! \n".isspace() == False
+
+    s8: str = " \t \n \v \f \r "
+    assert s8.isspace() == True
+    assert " \t \n \v \f \r ".isspace() == True
+
+    assert "\n".isspace() == True
+    assert "    ".isspace() == True
+    assert "\r".isspace() == True
+    assert "".isspace() == False
+
+    s: str = " "
+    assert s.isspace() == True
+    s = "a"
+    assert s.isspace() == False
+    s = ""
+    assert s.isspace() == False
+
+def is_alnum():
+    a: str = "helloworld"
+    b: str = "hj kl"
+    c: str = "a12(){}A"
+    d: str = " "
+    e: str = ""
+    f: str = "ab23"
+    g: str = "ab2%3"
+    res: bool = a.isalnum()
+    res2: bool = b.isalnum()
+    res3: bool = c.isalnum()
+    res4: bool = d.isalnum()
+    res5: bool = e.isalnum()
+    res6: bool = f.isalnum()
+    res7: bool = g.isalnum()
+
+    assert res == True
+    assert res2 == False
+    assert res3 == False
+    assert res4 == False
+    assert res5 == False
+    assert res6 == True
+    assert res7 == False
+
+    assert "helloworld".isalnum() == True
+    assert "hj kl".isalnum() == False
+    assert "a12(){}A".isalnum() == False
+    assert " ".isalnum() == False
+    assert "".isalnum() == False
+    assert "ab23".isalnum() == True
+    assert "ab2%3".isalnum() == False
+
+def is_numeric():
+    a: str = "123"
+    b: str = "12 34"
+    c: str = "-123"
+    d: str = "12.3"
+    e: str = " "
+    f: str = ""
+    g: str = "ab2%3"
+    res: bool = a.isnumeric()
+    res2: bool = b.isnumeric()
+    res3: bool = c.isnumeric()
+    res4: bool = d.isnumeric()
+    res5: bool = e.isnumeric()
+    res6: bool = f.isnumeric()
+    res7: bool = g.isnumeric()
+
+    assert res == True
+    assert res2 == False
+    assert res3 == False
+    assert res4 == False
+    assert res5 == False
+    assert res6 == False
+    assert res7 == False
+
+    assert "123".isnumeric() == True
+    assert "12 34".isnumeric() == False
+    assert "-123".isnumeric() == False
+    assert "12.3".isnumeric() == False
+    assert " ".isnumeric() == False
+    assert "".isnumeric() == False
+    assert "ab2%3".isnumeric() == False
+
+def center():
+    s: str = "test"
+    assert s.center(8,'*') == "**test**"
+    assert s.center(11) == "    test   "
+    assert s.center(2) == "test"
+    assert s.center(4) == "test"
+    assert s.center(9,'/') == "///test//"
+
+def expandtabs():
+    s: str = '01\t012\t0123\t01234'
+    assert s.expandtabs() == "01      012     0123    01234"
+    assert s.expandtabs(4) == "01  012 0123    01234"
+    assert s.expandtabs(-1) == "01012012301234"
+    s = '\t'
+    assert s.expandtabs() == "        "
+    s = ''
+    assert s.expandtabs() == ""
+    s = '\tThis\ris\na\ttest'
+    assert s.expandtabs(4) == "    This\ris\na   test"
+    s = '\t\t\t'
+    assert s.expandtabs(2) == "      "
+    s = 'test\ttest'
+    assert s.expandtabs(0) == "testtest"
+    assert s.expandtabs(-5) == "testtest"
+
 def check():
     capitalize()
     lower()
+    upper()
     strip()
     swapcase()
     find()
+    count()
     startswith()
+    endswith()
+    partition()
+    is_lower()
+    is_upper()
+    is_decimal()
+    is_ascii()
+    is_alpha()
+    is_title()
+    is_space()
+    is_alnum()
+    is_numeric()
+    center()
+    expandtabs()
+
 
 check()
diff --git a/integration_tests/test_str_comparison.py b/integration_tests/test_str_comparison.py
index 4ac40aaa78..3108c224e0 100644
--- a/integration_tests/test_str_comparison.py
+++ b/integration_tests/test_str_comparison.py
@@ -5,18 +5,18 @@ def f():
     assert s1 <= s2
     assert s1 >= s2
     s1 = "abcde"
-    assert s1 >= s2 
+    assert s1 >= s2
     assert s1 > s2
     s1 = "abc"
-    assert s1 < s2 
+    assert s1 < s2
     assert s1 <= s2
     s1 = "Abcd"
     s2 = "abcd"
-    assert s1 < s2 
+    assert s1 < s2
     s1 = "orange"
     s2 = "apple"
-    assert s1 >= s2 
-    assert s1 > s2 
+    assert s1 >= s2
+    assert s1 > s2
     s1 = "albatross"
     s2 = "albany"
     assert s1 >= s2
@@ -28,9 +28,11 @@ def f():
     assert s1 < s2
     assert s1 != s2
     s1 = "Zebra"
-    s2 = "ant"	
+    s2 = "ant"
     assert s1 <= s2
     assert s1 < s2
     assert s1 != s2
 
+    print("Ok")
+
 f()
diff --git a/integration_tests/test_str_to_int.py b/integration_tests/test_str_to_int.py
index 374ca141f0..3c94dea4b9 100644
--- a/integration_tests/test_str_to_int.py
+++ b/integration_tests/test_str_to_int.py
@@ -1,4 +1,4 @@
-from ltypes import i32
+from lpython import i32
 
 def f():
     i: i32
@@ -20,4 +20,12 @@ def f():
     i = i32(int(s))
     assert i == -1234
 
+    assert i32(int("01010",10)) == 1010
+    assert i32(int("01010",2)) == 10
+    assert i32(int("Beef",16)) == 48879
+    assert i32(int("0xE",16)) == 14
+    assert i32(int("0xE",0)) == 14
+    assert i32(int("123",0)) == 123
+    assert i32(int("0bE",16)) == 190
+
 f()
diff --git a/integration_tests/test_string_01.py b/integration_tests/test_string_01.py
new file mode 100644
index 0000000000..0e0fef30de
--- /dev/null
+++ b/integration_tests/test_string_01.py
@@ -0,0 +1,9 @@
+from string import ascii_lowercase, ascii_letters
+
+def test_string():
+    assert ascii_lowercase == 'abcdefghijklmnopqrstuvwxyz'
+    assert ascii_letters == 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ'
+
+    print(ascii_lowercase)
+
+test_string()
\ No newline at end of file
diff --git a/integration_tests/test_sys_01.py b/integration_tests/test_sys_01.py
new file mode 100644
index 0000000000..e15e0b4503
--- /dev/null
+++ b/integration_tests/test_sys_01.py
@@ -0,0 +1,2 @@
+import sys
+sys.exit(0)
diff --git a/integration_tests/test_tuple_01.py b/integration_tests/test_tuple_01.py
index fdafb23b4e..726f7d0e18 100644
--- a/integration_tests/test_tuple_01.py
+++ b/integration_tests/test_tuple_01.py
@@ -1,4 +1,4 @@
-from ltypes import i32, f64
+from lpython import i32, f64
 
 def f():
     t1: tuple[i32, f64, str, bool] = (1, 2.0, "3", True)
diff --git a/integration_tests/test_tuple_02.py b/integration_tests/test_tuple_02.py
index b2218288a5..85dc88381f 100644
--- a/integration_tests/test_tuple_02.py
+++ b/integration_tests/test_tuple_02.py
@@ -1,4 +1,4 @@
-from ltypes import i32, f64, c64
+from lpython import i32, f64, c64
 
 def set_tuple(a: i32, b: f64) -> tuple[i32, f64, str, c64]:
     t: tuple[i32, f64, str, c64]
diff --git a/integration_tests/test_tuple_03.py b/integration_tests/test_tuple_03.py
new file mode 100644
index 0000000000..affd983008
--- /dev/null
+++ b/integration_tests/test_tuple_03.py
@@ -0,0 +1,10 @@
+from lpython import i32, f64
+
+def f():
+    t1: tuple[i32, f64, str] = (1, 2.0, "3")
+
+    assert t1[-1] == "3"
+    assert t1[-2] == 2.0
+    assert t1[-3] == 1
+
+f()
\ No newline at end of file
diff --git a/integration_tests/test_tuple_04.py b/integration_tests/test_tuple_04.py
new file mode 100644
index 0000000000..393dc51ad0
--- /dev/null
+++ b/integration_tests/test_tuple_04.py
@@ -0,0 +1,11 @@
+from lpython import i32
+
+# issue 2041
+ttype    : tuple[list[i32], str] = ([-1], 'dimensions')
+contents : tuple[list[i32], str] = ([1, 2], '')
+
+assert ttype[0] == [-1]
+assert len(ttype[0]) == 1
+assert contents[0] == [1, 2]
+assert len(contents[1]) == 0
+assert ttype[1] == 'dimensions'
diff --git a/integration_tests/test_tuple_concat.py b/integration_tests/test_tuple_concat.py
new file mode 100644
index 0000000000..8d09d12593
--- /dev/null
+++ b/integration_tests/test_tuple_concat.py
@@ -0,0 +1,42 @@
+from lpython import i32, f64
+
+def test_tuple_concat():
+    t1: tuple[i32, i32]
+    t2: tuple[f64, str, i32]
+    t3: tuple[f64]
+    t4: tuple[i32, i32, f64, str, i32, f64]
+    t5: tuple[i32, f64]
+    t6: tuple[i32, f64, i32, f64]
+    t7: tuple[i32, f64, i32, f64, i32, f64]
+    t8: tuple[i32, f64, i32, f64, i32, f64, i32, f64]
+    l1: list[tuple[i32, f64]] = []
+    start: i32
+    i:i32
+    t9: tuple[tuple[tuple[i32, i32], tuple[i32, f64]], tuple[f64, str, i32]]
+
+    t1 = (1, 2)
+    t2 = (3.0, "abc", -10)
+    t3 = (10.0,)
+    t4 = t1 + t2 + t3
+    assert t4 == (t1[0], t1[1], t2[0], t2[1], t2[2], t3[0])
+    assert t4 + t3 == t1 + t2 + t3 + (t3[0],)
+
+    start = 117
+    for i in range(start, start + 3):
+        t5 = (i, f64(i*i))
+        l1.append(t5)
+        if i == start:
+            t6 = t5 + l1[-1]
+        elif i == start + 1:
+            t7 = t6 + l1[-1]
+        else:
+            t8 = t7 + l1[-1]
+    
+    assert t6 == l1[0] + l1[0]
+    assert t7 == t6 + l1[1]
+    assert t8 == t7 + l1[2]
+
+    t9 = ((t1, t5),) + (t2,)
+    assert t9[0][0] == t1 and t9[0][1] == t5 and t9[1] == t2
+
+test_tuple_concat()
\ No newline at end of file
diff --git a/integration_tests/test_tuple_nested.py b/integration_tests/test_tuple_nested.py
new file mode 100644
index 0000000000..e10ea1b091
--- /dev/null
+++ b/integration_tests/test_tuple_nested.py
@@ -0,0 +1,35 @@
+from lpython import i32, f64
+
+def test_tuple_nested():
+    t1: tuple[i32, i32] = (-1, -2)
+    t2: tuple[i32, i32] = (-3, -4)
+    t3: tuple[tuple[i32, i32], tuple[i32, i32], tuple[i32, i32],  tuple[i32, i32]]
+    t4: tuple[i32, f64, str]
+    t5: tuple[tuple[i32, f64, str], i32]
+    t6: tuple[tuple[tuple[i32, f64, str], i32], f64]
+    t7: tuple[tuple[i32, i32], tuple[list[i32], list[str]]]
+    l1: list[tuple[i32, f64, tuple[f64, i32]]] = []
+    i: i32
+    s: str
+
+    t3 = (t1, t2, t1, t2)
+    assert t3[0] == t1 and t3[1] == t2
+    assert t3[2] == t1 and t3[3] == t2
+
+    t4 = (1, 2.0, 'abc')
+    t5 = (t4, 3)
+    assert t5 == ((1, 2.0, 'abc'), 3)
+    t6 = (t5, 4.0)
+    assert t6 == ((t4, 3), 4.0)
+
+    for i in range(5):
+        l1.append((i, f64(i+1), (f64(i+2), i+3)))
+    for i in range(5):
+        assert l1[i] == (i, f64(i+1), (f64(i+2), i+3))
+
+    i = 3
+    s = 'a'
+    t7 = (t1, ([i, i+1, i+2], [s, s * 2, s * 3]))
+    assert t7 == ((-1, -2), ([3, 4, 5], ['a', 'aa', 'aaa']))
+
+test_tuple_nested()
\ No newline at end of file
diff --git a/integration_tests/test_types_01.py b/integration_tests/test_types_01.py
index 1894ebe961..ee4c1e9169 100644
--- a/integration_tests/test_types_01.py
+++ b/integration_tests/test_types_01.py
@@ -1,4 +1,4 @@
-from ltypes import i8, i16, i32, i64
+from lpython import i8, i16, i32, i64
 
 def test_i8():
     i: i8
diff --git a/integration_tests/test_types_02.py b/integration_tests/test_types_02.py
new file mode 100644
index 0000000000..68d338dc94
--- /dev/null
+++ b/integration_tests/test_types_02.py
@@ -0,0 +1,10 @@
+from lpython import i32, f64
+
+def main0():
+    a: f64
+    a = 3.25
+    b: i32 = i32(a) * 4
+    print(b)
+    assert b == 12
+
+main0()
diff --git a/integration_tests/test_unary_minus.py b/integration_tests/test_unary_minus.py
deleted file mode 100644
index 02de00715f..0000000000
--- a/integration_tests/test_unary_minus.py
+++ /dev/null
@@ -1,15 +0,0 @@
-from ltypes import i32, f64
-
-def f():
-    eps: f64
-    eps = 1e-12
-
-    i: i32
-    i = -67
-    assert -i == 67
-
-    f: f64
-    f = -67.6457
-    assert abs(-f - 67.6457) < eps
-
-f()
diff --git a/integration_tests/test_unary_op_01.py b/integration_tests/test_unary_op_01.py
new file mode 100644
index 0000000000..08182832f1
--- /dev/null
+++ b/integration_tests/test_unary_op_01.py
@@ -0,0 +1,15 @@
+from lpython import i32, f64
+
+def f():
+    eps: f64
+    eps = 1e-12
+
+    i: i32
+    i = -67
+    assert -i == 67
+
+    f: f64
+    f = -67.6457
+    assert abs(-f - 67.6457) < eps
+
+f()
diff --git a/integration_tests/test_unary_op_02.py b/integration_tests/test_unary_op_02.py
new file mode 100644
index 0000000000..396b8e07cc
--- /dev/null
+++ b/integration_tests/test_unary_op_02.py
@@ -0,0 +1,26 @@
+from lpython import i32, f64, c32
+
+def f():
+    eps: f64
+    eps = 1e-12
+
+    i: i32
+    i = -67
+    assert +i == -67
+
+    f: f64
+    f = -67.6457
+    assert abs(+f + 67.6457) < eps
+
+    c: c32
+    c = c32(4) - c32(5j)
+    c = +c
+    assert abs(f64(c.real) - 4.000000) < eps
+    assert abs(f64(c.imag) - (-5.000000)) < eps
+
+    assert +True == 1
+    b: bool
+    b = False
+    assert -b == 0
+
+f()
diff --git a/integration_tests/test_unary_op_03.py b/integration_tests/test_unary_op_03.py
new file mode 100644
index 0000000000..48ba56fe5b
--- /dev/null
+++ b/integration_tests/test_unary_op_03.py
@@ -0,0 +1,13 @@
+from lpython import i32
+
+def f():
+    i: i32
+    i = 5
+    res: i32
+    res = ~i
+    assert res == -6
+
+    i = -235346
+    assert ~i == 235345
+
+f()
diff --git a/integration_tests/test_unary_op_04.py b/integration_tests/test_unary_op_04.py
new file mode 100644
index 0000000000..a320617ba7
--- /dev/null
+++ b/integration_tests/test_unary_op_04.py
@@ -0,0 +1,19 @@
+from lpython import u16, bitnot_u16
+
+def foo(grp: u16) -> u16:
+    i: u16 = bitnot_u16(grp)
+    return i
+
+
+def foo2() -> u16:
+    i: u16 = bitnot_u16(u16(0xffff))
+    return i
+
+def foo3() -> u16:
+    i: u16 = bitnot_u16(u16(0xffff))
+    return bitnot_u16(i)
+
+assert foo(u16(0)) == u16(0xffff)
+assert foo(u16(0xffff)) == u16(0)
+assert foo2() == u16(0)
+assert foo3() == u16(0xffff)
diff --git a/integration_tests/test_unary_op_05.py b/integration_tests/test_unary_op_05.py
new file mode 100644
index 0000000000..c480606591
--- /dev/null
+++ b/integration_tests/test_unary_op_05.py
@@ -0,0 +1,30 @@
+from lpython import u8, u16, u32, u64
+
+def f():
+
+    h: u8
+    h = u8(67)
+    print(+h)
+    assert +h == u8(67)
+
+    i: u16
+    i = u16(67)
+    print(+i)
+    assert +i == u16(67)
+
+    j: u32
+    j = u32(25)
+    print(+j)
+    assert +j == u32(25)
+
+    k: u64
+    k = u64(100000000000123)
+    print(+k)
+    assert +k == u64(100000000000123)
+
+    assert -u8(0) == u8(0)
+    assert -u16(0) == u16(0)
+    assert -u32(0) == u32(0)
+    assert -u64(0) == u64(0)
+
+f()
diff --git a/integration_tests/test_unary_op_06.py b/integration_tests/test_unary_op_06.py
new file mode 100644
index 0000000000..212d7b1609
--- /dev/null
+++ b/integration_tests/test_unary_op_06.py
@@ -0,0 +1,35 @@
+from lpython import i32, i64, u16, u64, f32, f64
+
+def f():
+
+    i: i32
+    j: i64
+    i = -67
+    j = i64(0)
+
+    print(i, j)
+    print(not i, not j)
+    assert (not i) == False
+    assert (not j) == True
+
+    k: u16
+    l: u64
+    k = u16(0)
+    l = u64(55)
+
+    print(k, l)
+    print(not k, not l)
+    assert (not k) == True
+    assert (not l) == False
+
+    m: f32
+    n: f64
+    m = f32(0.0)
+    n = -3.14
+
+    print(m, n)
+    print(not m, not n)
+    assert (not m) == True
+    assert (not n) == False
+
+f()
diff --git a/integration_tests/test_unary_plus.py b/integration_tests/test_unary_plus.py
deleted file mode 100644
index 7067c03639..0000000000
--- a/integration_tests/test_unary_plus.py
+++ /dev/null
@@ -1,26 +0,0 @@
-from ltypes import i32, f64, c32
-
-def f():
-    eps: f64
-    eps = 1e-12
-
-    i: i32
-    i = -67
-    assert +i == -67
-
-    f: f64
-    f = -67.6457
-    assert abs(+f + 67.6457) < eps
-
-    c: c32
-    c = c32(4) - c32(5j)
-    c = +c
-    assert abs(f64(c.real) - 4.000000) < eps
-    assert abs(f64(c.imag) - (-5.000000)) < eps
-
-    assert +True == 1
-    b: bool
-    b = False
-    assert -b == 0
-
-f()
diff --git a/integration_tests/test_unsigned_01.py b/integration_tests/test_unsigned_01.py
new file mode 100644
index 0000000000..44068cceb3
--- /dev/null
+++ b/integration_tests/test_unsigned_01.py
@@ -0,0 +1,37 @@
+from lpython import u8, u16, u32, u64
+
+def f():
+
+    h: u8
+    h = u8(5)
+    print(h << u8(4), h << u8(2), h >> u8(4), h >> u8(7))
+    assert h << u8(4) == u8(80)
+    assert h << u8(2) == u8(20)
+    assert h >> u8(4) == u8(0)
+    assert h >> u8(7) == u8(0)
+
+    i: u16
+    i = u16(67)
+    print(i << u16(4), i << u16(7), i >> u16(4), i >> u16(7))
+    assert i << u16(4) == u16(1072)
+    assert i << u16(7) == u16(8576)
+    assert i >> u16(4) == u16(4)
+    assert i >> u16(7) == u16(0)
+
+    j: u32
+    j = u32(25)
+    print(j << u32(4), j << u32(7), j >> u32(4), j >> u32(7))
+    assert j << u32(4) == u32(400)
+    assert j << u32(7) == u32(3200)
+    assert j >> u32(4) == u32(1)
+    assert j >> u32(7) == u32(0)
+
+    k: u64
+    k = u64(100000000000123)
+    print(k << u64(4), k << u64(7), k >> u64(4), k >> u64(7))
+    assert k << u64(4) == u64(1600000000001968)
+    assert k << u64(7) == u64(12800000000015744)
+    assert k >> u64(4) == u64(6250000000007)
+    assert k >> u64(7) == u64(781250000000)
+
+f()
diff --git a/integration_tests/test_unsigned_02.py b/integration_tests/test_unsigned_02.py
new file mode 100644
index 0000000000..ad7f938249
--- /dev/null
+++ b/integration_tests/test_unsigned_02.py
@@ -0,0 +1,15 @@
+from lpython import u16, i32, u8, u32, u64
+
+# test issue 2170
+
+u_1 : u16 = u16(32768)
+u_2 : u8 = u8(24)
+u_3 : u32 = u32(32768)
+u_4 : u64 = u64(32768)
+
+assert u_1 == u16(32768)
+assert u_2 == u8(24)
+assert u_3 == u32(32768)
+assert u_4 == u64(32768)
+
+print(u_1, u_2, u_3, u_4)
diff --git a/integration_tests/test_unsigned_03.py b/integration_tests/test_unsigned_03.py
new file mode 100644
index 0000000000..2bc0eaeac2
--- /dev/null
+++ b/integration_tests/test_unsigned_03.py
@@ -0,0 +1,19 @@
+from lpython import u16, i32, u8, u16, u64, i64, u32, i8
+
+# test issue 2174
+
+def f():
+    u: u16 = u16(32768)
+    assert i32(u) == 32768
+    u1: u8 = u8(23)
+    assert i8(u1) == i8(23)
+    assert u16(u1) == u16(23)
+    assert u32(u1) == u32(23)
+    assert u64(u1) == u64(23)
+    print(i8(u1), u16(u1), u32(u1), u64(u1))
+    assert i64(u1) == i64(23)
+    assert i64(u) == i64(32768)
+    assert i32(u1) == 23
+    print(i64(u), i32(u))
+
+f()
diff --git a/integration_tests/union_01.py b/integration_tests/union_01.py
index 05cff1bf78..7fda2326df 100644
--- a/integration_tests/union_01.py
+++ b/integration_tests/union_01.py
@@ -1,4 +1,4 @@
-from ltypes import Union, i32, i64, f64, f32, ccall, union
+from lpython import Union, i32, i64, f64, f32, ccall, union
 
 @ccall
 @union
diff --git a/integration_tests/union_02.py b/integration_tests/union_02.py
index dd693ef041..67cb4a3254 100644
--- a/integration_tests/union_02.py
+++ b/integration_tests/union_02.py
@@ -1,4 +1,4 @@
-from ltypes import i32, f64, i64, dataclass, ccall, union, Union
+from lpython import i32, f64, i64, dataclass, ccall, union, Union
 
 @dataclass
 class A:
@@ -19,9 +19,9 @@ class C:
 @ccall
 @union
 class D(Union):
-    a: A
-    b: B
-    c: C
+    a: A = A(0, 3.0)
+    b: B = B(i64(0), 2.0)
+    c: C = C(i64(0), 0.0, 1.0)
 
 def test_struct_union():
     d: D = D()
diff --git a/integration_tests/union_03.py b/integration_tests/union_03.py
index 5033085158..4c8c538ac4 100644
--- a/integration_tests/union_03.py
+++ b/integration_tests/union_03.py
@@ -1,4 +1,4 @@
-from ltypes import Union, i32, i64, f64, f32, union
+from lpython import Union, i32, i64, f64, f32, union
 
 # without ccall but same as union_01.py
 @union
diff --git a/integration_tests/union_04.py b/integration_tests/union_04.py
new file mode 100644
index 0000000000..58a604ecc1
--- /dev/null
+++ b/integration_tests/union_04.py
@@ -0,0 +1,24 @@
+from union_01 import u_type
+from lpython import f32, f64, i64
+
+# Test taken from union_01.py but checks importing union
+
+def test_union_04():
+    unionobj: u_type = u_type()
+    unionobj.integer32 = 1
+    print(unionobj.integer32)
+    assert unionobj.integer32 == 1
+
+    unionobj.real32 = f32(2.0)
+    print(unionobj.real32)
+    assert abs(f64(unionobj.real32) - 2.0) <= 1e-6
+
+    unionobj.real64 = 3.5
+    print(unionobj.real64)
+    assert abs(unionobj.real64 - 3.5) <= 1e-12
+
+    unionobj.integer64 = i64(4)
+    print(unionobj.integer64)
+    assert unionobj.integer64 == i64(4)
+
+test_union_04()
diff --git a/integration_tests/variable_decl_01.py b/integration_tests/variable_decl_01.py
index 9672366969..669470411c 100644
--- a/integration_tests/variable_decl_01.py
+++ b/integration_tests/variable_decl_01.py
@@ -1,8 +1,8 @@
-from ltypes import i32, i64
+from lpython import i32, i64, Const
 from numpy import empty, int64
 
 def f(n: i32, m: i32):
-    l: i32 = 2
+    l: Const[i32] = 2
     a: i64[n, m, l] = empty((n, m, l), dtype=int64)
     i: i32; j: i32; k: i32;
     for i in range(n):
diff --git a/integration_tests/variable_decl_02.py b/integration_tests/variable_decl_02.py
index 08d1486552..9ee2a67034 100644
--- a/integration_tests/variable_decl_02.py
+++ b/integration_tests/variable_decl_02.py
@@ -1,4 +1,4 @@
-from ltypes import i32, i64
+from lpython import i32, i64
 
 def f():
     d: i32 = 0
diff --git a/integration_tests/variable_decl_03.py b/integration_tests/variable_decl_03.py
new file mode 100644
index 0000000000..f554b9fc5d
--- /dev/null
+++ b/integration_tests/variable_decl_03.py
@@ -0,0 +1,11 @@
+from lpython import f64
+
+def f() -> f64:
+    return abs(-5.5)
+
+def main():
+    t1: f64 = f() * 1e6
+    print(t1)
+    assert abs(t1 - 5.5 * 1e6) <= 1e-6
+
+main()
diff --git a/integration_tests/vec_01.py b/integration_tests/vec_01.py
index 4bbcb87522..8d93b8b9c2 100644
--- a/integration_tests/vec_01.py
+++ b/integration_tests/vec_01.py
@@ -1,9 +1,9 @@
-from ltypes import f64
-from numpy import empty
+from lpython import f64, i32
+from numpy import empty, float64
 
 def loop_vec():
-    a: f64[9216] = empty(9216)
-    b: f64[9216] = empty(9216)
+    a: f64[9216] = empty(9216, dtype=float64)
+    b: f64[9216] = empty(9216, dtype=float64)
     i: i32
 
     for i in range(9216):
diff --git a/libasr b/libasr
new file mode 160000
index 0000000000..f2a04fc2ae
--- /dev/null
+++ b/libasr
@@ -0,0 +1 @@
+Subproject commit f2a04fc2ae4dd9ccb940c0fee3f694791fec7005
diff --git a/run_tests.py b/run_tests.py
index 6363b1c0d4..d45335ec3a 100755
--- a/run_tests.py
+++ b/run_tests.py
@@ -4,13 +4,13 @@
 import os
 
 ROOT_DIR = os.path.abspath(os.path.join(os.path.dirname(__file__)))
-sys.path.append(os.path.join(ROOT_DIR, "src", "libasr"))
+sys.path.append(os.path.join(ROOT_DIR, "libasr", "src", "libasr"))
 
 from compiler_tester.tester import color, fg, log, run_test, style, tester_main
 
 
 def single_test(test, verbose, no_llvm, skip_run_with_dbg, update_reference,
-                no_color, specific_backends=None, excluded_backends=None):
+                verify_hash, no_color, specific_backends=None, excluded_backends=None):
     filename = test["filename"]
     def is_included(backend):
          return test.get(backend, False) \
@@ -21,19 +21,25 @@ def is_included(backend):
     ast = is_included("ast")
     ast_new = is_included("ast_new")
     asr = is_included("asr")
+    asr_json = is_included("asr_json")
     llvm = is_included("llvm")
     llvm_dbg = is_included("llvm_dbg")
     cpp = is_included("cpp")
     c = is_included("c")
+    python = is_included("python")
+    is_cumulative = is_included("cumulative")
     wat = is_included("wat")
     run = is_included("run")
     run_with_dbg = is_included("run_with_dbg")
+    disable_main = is_included("disable_main")
+    fast = is_included("fast")
     pass_ = test.get("pass", None)
     optimization_passes = ["flip_sign", "div_to_mul", "fma", "sign_from_value",
                            "inline_function_calls", "loop_unroll",
-                           "dead_code_removal", "loop_vectorise", "print_list"]
+                           "dead_code_removal", "loop_vectorise", "print_list_tuple",
+                           "class_constructor"]
 
-    if pass_ and (pass_ not in ["do_loops", "global_stmts"] and
+    if pass_ and (pass_ not in ["do_loops", "global_stmts", "while_else"] and
                   pass_ not in optimization_passes):
         raise Exception(f"Unknown pass: {pass_}")
     if no_color:
@@ -50,7 +56,7 @@ def is_included(backend):
             "lpython --no-color --show-tokens {infile} -o {outfile}",
             filename,
             update_reference,
-            extra_args)
+            extra_args=extra_args)
 
     if ast:
         run_test(
@@ -59,7 +65,7 @@ def is_included(backend):
             "lpython --show-ast --no-color {infile} -o {outfile}",
             filename,
             update_reference,
-            extra_args)
+            extra_args=extra_args)
 
     if ast_new:
         run_test(
@@ -68,7 +74,7 @@ def is_included(backend):
             "lpython --show-ast --new-parser --no-color {infile} -o {outfile}",
             filename,
             update_reference,
-            extra_args)
+            extra_args=extra_args)
 
     if asr:
         run_test(
@@ -77,13 +83,27 @@ def is_included(backend):
             "lpython --show-asr --no-color {infile} -o {outfile}",
             filename,
             update_reference,
-            extra_args)
+            extra_args=extra_args)
+
+    if asr_json:
+        run_test(
+            filename,
+            "asr_json",
+            "lpython --show-asr --json --no-color {infile} -o {outfile}",
+            filename,
+            update_reference,
+            extra_args=extra_args)
 
     if pass_ is not None:
-        cmd = "lpython --pass=" + pass_ + \
+        cmd = "lpython "
+        if is_cumulative:
+            cmd += "--cumulative "
+        if fast:
+            cmd += "--fast "
+        cmd += "--pass=" + pass_ + \
             " --show-asr --no-color {infile} -o {outfile}"
         run_test(filename, "pass_{}".format(pass_), cmd,
-                 filename, update_reference, extra_args)
+                 filename, update_reference, extra_args=extra_args)
 
     if no_llvm:
         log.info(f"{filename} * llvm   SKIPPED as requested")
@@ -95,7 +115,7 @@ def is_included(backend):
                 "lpython --no-color --show-llvm {infile} -o {outfile}",
                 filename,
                 update_reference,
-                extra_args)
+                extra_args=extra_args)
         if llvm_dbg:
             run_test(
                 filename,
@@ -104,22 +124,31 @@ def is_included(backend):
                     "{infile} -o {outfile}",
                 filename,
                 update_reference,
-                extra_args)
+                extra_args=extra_args)
 
     if cpp:
         run_test(filename, "cpp", "lpython --no-color --show-cpp {infile}",
-                 filename, update_reference, extra_args)
+                 filename, update_reference, extra_args=extra_args)
 
     if c:
-        run_test(filename, "c", "lpython --no-color --show-c {infile}",
-                 filename, update_reference, extra_args)
+        if disable_main:
+            run_test(filename, "c", "lpython --no-color --disable-main --show-c {infile}",
+                 filename, update_reference, extra_args=extra_args)
+        else:
+            run_test(filename, "c", "lpython --no-color --show-c {infile}",
+                 filename, update_reference, extra_args=extra_args)
+
+    if python:
+       run_test(filename, "python", "lpython --no-color --show-python {infile}",
+            filename, update_reference, extra_args=extra_args)
+
     if wat:
         run_test(filename, "wat", "lpython --no-color --show-wat {infile}",
-                 filename, update_reference, extra_args)
+                 filename, update_reference, extra_args=extra_args)
 
     if run:
         run_test(filename, "runtime", "lpython {infile}",
-                 filename, update_reference, extra_args)
+                 filename, update_reference, extra_args=extra_args)
 
     if run_with_dbg:
         if skip_run_with_dbg:
@@ -128,7 +157,7 @@ def is_included(backend):
             run_test(
                 filename, "run_dbg",
                 "lpython {infile} -g --debug-with-line-column --no-color",
-                filename, update_reference, extra_args)
+                filename, update_reference, extra_args=extra_args)
 
 if __name__ == "__main__":
     tester_main("LPython", single_test)
diff --git a/share/jupyter/kernels/lpython/kernel.json.in b/share/jupyter/kernels/lpython/kernel.json.in
new file mode 100644
index 0000000000..e1af020ba4
--- /dev/null
+++ b/share/jupyter/kernels/lpython/kernel.json.in
@@ -0,0 +1,10 @@
+{
+    "display_name": "LPython",
+    "argv": [
+        "@CMAKE_INSTALL_PREFIX@/@CMAKE_INSTALL_BINDIR@/lpython",
+        "kernel",
+        "-f",
+        "{connection_file}"
+    ],
+    "language": "python"
+}
diff --git a/share/lpython/lfortran-completion.bash b/share/lpython/lfortran-completion.bash
index ca63ca03bd..69bb236096 100644
--- a/share/lpython/lfortran-completion.bash
+++ b/share/lpython/lfortran-completion.bash
@@ -1,6 +1,6 @@
 #/usr/bin/env bash
 
 complete \
-    -W "-h --help -S -c -o -v -E -I --version --cpp --fixed-form --show-prescan --show-tokens --show-ast --show-asr --with-intrinsic-modules --show-ast-f90 --no-color --indent --pass --show-llvm --show-cpp --show-stacktrace --time-report --static --backend --openmp fmt kernel mod pywrap" \
+    -W "-h --help -S -c -o -v -E -I --version --cpp --fixed-form --show-prescan --show-tokens --show-ast --show-asr --with-intrinsic-modules --show-ast-f90 --no-color --pass --show-llvm --show-cpp --show-stacktrace --time-report --static --backend --openmp fmt kernel mod pywrap" \
     -df \
     lfortran
diff --git a/src/CMakeLists.txt b/src/CMakeLists.txt
index 061b942762..ebba706be4 100644
--- a/src/CMakeLists.txt
+++ b/src/CMakeLists.txt
@@ -1,4 +1,4 @@
-add_subdirectory(libasr)
+add_subdirectory(${CMAKE_SOURCE_DIR}/libasr/src/libasr ${CMAKE_BINARY_DIR}/libasr)
 add_subdirectory(tests)
 add_subdirectory(lpython)
 add_subdirectory(bin)
diff --git a/src/bin/CLI11.hpp b/src/bin/CLI11.hpp
index ce1d06e3f2..f3647aceff 100644
--- a/src/bin/CLI11.hpp
+++ b/src/bin/CLI11.hpp
@@ -4191,7 +4191,7 @@ class Option : public OptionBase<Option> {
     bool flag_like_{false};
     /// Control option to run the callback to set the default
     bool run_callback_for_default_{false};
-    /// flag indicating a separator needs to be injected after each argument call
+    /// flag indicating a separator must be injected after each argument call
     bool inject_separator_{false};
     ///@}
 
@@ -4745,7 +4745,7 @@ class Option : public OptionBase<Option> {
         }
 
         if(!envname_.empty()) {
-            // this needs to be the original since envname_ shouldn't match on case insensitivity
+            // this must be the original since envname_ shouldn't match on case insensitivity
             return (name == envname_);
         }
         return false;
@@ -7585,7 +7585,7 @@ class App {
     }
 
     /// Parse "one" argument (some may eat more than one), delegate to parent if fails, add to missing if missing
-    /// from master return false if the parse has failed and needs to return to parent
+    /// from master return false if the parse has failed and must return to parent
     bool _parse_single(std::vector<std::string> &args, bool &positional_only) {
         bool retval = true;
         detail::Classifier classifier = positional_only ? detail::Classifier::NONE : _recognize(args.back());
@@ -7886,7 +7886,7 @@ class App {
         int min_num = (std::min)(op->get_type_size_min(), op->get_items_expected_min());
         int max_num = op->get_items_expected_max();
         // check container like options to limit the argument size to a single type if the allow_extra_flags argument is
-        // set. 16 is somewhat arbitrary (needs to be at least 4)
+        // set. 16 is somewhat arbitrary (must be at least 4)
         if(max_num >= detail::expected_max_vector_size / 16 && !op->get_allow_extra_args()) {
             auto tmax = op->get_type_size_max();
             max_num = detail::checked_multiply(tmax, op->get_expected_min()) ? tmax : detail::expected_max_vector_size;
diff --git a/src/bin/CMakeLists.txt b/src/bin/CMakeLists.txt
index ba670e6037..c5a4f62032 100644
--- a/src/bin/CMakeLists.txt
+++ b/src/bin/CMakeLists.txt
@@ -19,10 +19,17 @@ if (WITH_STACKTRACE AND APPLE AND CMAKE_CXX_COMPILER_ID MATCHES Clang)
     # On macOS we have to call dsymutil to create the dSYM bundle so that the
     # stacktrace can find debugging information corresponding to the lpython
     # binary
+    find_program(DSYMUTIL NAMES dsymutil PATHS /usr/bin NO_DEFAULT_PATH)
+
+    if(NOT DSYMUTIL)
+        find_program(DSYMUTIL NAMES dsymutil)
+    endif()
+    
+    message("DSYMUTIL: ${DSYMUTIL}")
     add_custom_command(
         TARGET lpython
         POST_BUILD
-        COMMAND dsymutil lpython
+        COMMAND ${DSYMUTIL} lpython
     )
     if (WITH_DWARFDUMP)
         add_custom_command(
@@ -33,7 +40,7 @@ if (WITH_STACKTRACE AND APPLE AND CMAKE_CXX_COMPILER_ID MATCHES Clang)
         add_custom_command(
             TARGET lpython
             POST_BUILD
-            COMMAND ${CMAKE_CURRENT_SOURCE_DIR}/dwarf_convert.py lpython.dSYM/raw.txt lpython.dSYM/lines.txt lpython.dSYM/lines.dat
+            COMMAND ${CMAKE_CURRENT_SOURCE_DIR}/../../libasr/src/libasr/dwarf_convert.py lpython.dSYM/raw.txt lpython.dSYM/lines.txt lpython.dSYM/lines.dat
         )
     endif()
 endif()
@@ -48,29 +55,24 @@ set_target_properties(lpython PROPERTIES
 )
 
 if (HAVE_BUILD_TO_WASM)
-    # set(WASM_LINK_FLAGS
-    #     "-g0" # Store no debugging information in the generated wasm file. This helps reduce generated file size
-    #     "-Oz" # Optimize for size. With this code size ~ 2.4mb. Without this code size ~49mb
-    #     "-fexceptions" # Enable Cpp exception support
-    #     "--no-entry" # No start function to execute
-    #     "-s ASSERTIONS" # Compile with Assertions which (as per docs) are helpful to debug compilation process
-    #     "-s ALLOW_MEMORY_GROWTH" # Allow dynamic memory growth upto the maximum page size limit
-    #     "-s WASM_BIGINT" # Allow use of i64 integers. ASR is needing this option to be enabled.
-    #     "-s EXPORTED_RUNTIME_METHODS=['cwrap']" # Export cwarp. cwarp helps us to call our EMSCRIPTEN_KEEPALIVE functions
-    # )
-
-    # Some extra flags below that we may need in future. But these may/might increase the code size
-    # "--preload-file ./asset_dir"
-    # "-s SAFE_HEAP=1"
-    # "-s \"EXPORTED_RUNTIME_METHODS=['ccall']\""
-    # "-s EXPORTED_FUNCTIONS=\"['_free', '_malloc']\""
+    # "-g0": Store no debugging information in the generated wasm file. This helps reduce generated file size
+    # "-Oz": Optimize for size. With this code size ~ 2.4mb. Without this code size ~49mb
+    # "-fexceptions": Enable Cpp exception support
+    # "--no-entry": No start function to execute
+    # "-s ASSERTIONS": Compile with Assertions which (as per docs) are helpful to debug compilation process
+    # "-s ALLOW_MEMORY_GROWTH": Allow dynamic memory growth upto the maximum page size limit
+    # "-s WASM_BIGINT": Allow use of i64 integers. ASR is needing this option to be enabled.
+    # "-s EXPORTED_RUNTIME_METHODS=['cwrap']": Export cwarp. cwarp helps us to call our EMSCRIPTEN_KEEPALIVE functions
+    # "-fsanitize=undefined": Clang's Undefined Behaviour Sanitizer. The LPython parser segfaults.
+        # This option is for debugging, but currently helps avoid the segfault in the parser.
+    # "-s INITIAL_MEMORY=536870912": Start the wasm linear memory with sufficiently large size 512Mb.
 
     # Notes:
     # STANDALONE_WASM is disabling support for exceptions, so it is currently omitted
     # In build_to_wasm.sh, we need CMAKE_CXX_FLAGS_DEBUG="-Wall -Wextra -fexceptions" flags for exception support
-    set(WASM_COMPILE_FLAGS "-g0 -fexceptions")
+    set(WASM_COMPILE_FLAGS "-g0 -fexceptions -fsanitize=undefined")
     set(WASM_LINK_FLAGS
-      "-g0 -Oz -fexceptions -Wall -Wextra --no-entry -s ASSERTIONS -s ALLOW_MEMORY_GROWTH=1 -s WASM_BIGINT -s \"EXPORTED_RUNTIME_METHODS=['cwrap']\""
+      "-g0 -Oz -fexceptions -fsanitize=undefined --preload-file asset_dir -Wall -Wextra --no-entry -sASSERTIONS=1 -s INITIAL_MEMORY=536870912 -s ALLOW_MEMORY_GROWTH=1 -s WASM_BIGINT -s \"EXPORTED_RUNTIME_METHODS=['cwrap']\""
     )
     set_target_properties(lpython PROPERTIES COMPILE_FLAGS ${WASM_COMPILE_FLAGS})
     set_target_properties(lpython PROPERTIES LINK_FLAGS ${WASM_LINK_FLAGS})
diff --git a/src/bin/bench_gen.py b/src/bin/bench_gen.py
index a25957a5db..3c47106fd5 100755
--- a/src/bin/bench_gen.py
+++ b/src/bin/bench_gen.py
@@ -18,7 +18,7 @@ def A{i}(x: i32) -> i32:
     calls += f"    y = A{i}(y)\n"
 
 source = f"""\
-from ltypes import i32
+from lpython import i32
 
 {A_functions}
 
diff --git a/src/bin/dat_convert.py b/src/bin/dat_convert.py
deleted file mode 100755
index d7ae867e29..0000000000
--- a/src/bin/dat_convert.py
+++ /dev/null
@@ -1,18 +0,0 @@
-#!/usr/bin/env python3
-
-from struct import unpack
-from sys import argv
-from re import sub
-
-lines = ""
-with open(argv[1], "rb") as f:
-    lines = f.read()
-
-list = []
-for i in range(0, len(lines), 24):
-    list.append(sub('[(),]', '', str(unpack("3Q", lines[i:i+24]))))
-
-with open(argv[1] + ".txt", "w") as f:
-    j = 0
-    for i in list:
-        f.write(i+'\n')
diff --git a/src/bin/dwarf_convert.py b/src/bin/dwarf_convert.py
deleted file mode 100755
index cfd5a56e81..0000000000
--- a/src/bin/dwarf_convert.py
+++ /dev/null
@@ -1,162 +0,0 @@
-#!/usr/bin/env python3
-
-"""
-This script is used to convert the output of dwarfdump into a file that is easy
-to load into lfortran to lookup filenames and line numbers for a given address.
-Here is how to use it:
-
-        cd src/bin
-        llvm-dwarfdump --debug-line lfortran.dSYM > lfortran.dSYM/symbols.txt
-        ./dwarf_convert.py lfortran.dSYM/symbols.txt lfortran.dSYM/lines.txt lfortran.dSYM/lines.dat
-
-This is meant to be executed at build time.
-
-A better solution would be to use the `dwarf` library directly from C++ and
-generate the same output directly. Here is the source code of llvm-dwarfdump:
-
-https://github.com/llvm/llvm-project/blob/91a6ad5ad887a16e361338303d4ff3d29dba5e10/llvm/tools/llvm-dwarfdump/llvm-dwarfdump.cpp
-
-We just have to do exactly what it does, but generate the output in the format
-of lines.txt and lines.dat
-
-"""
-
-from collections import namedtuple
-from glob import glob
-import os
-import re
-from struct import pack
-import sys
-
-DebugLines = namedtuple("DebugLines", ["lines"])
-DebugLine = namedtuple("DebugLine", ["include_directories", "file_names", "addresses"])
-IncludeDirectory = namedtuple("IncludeDirectory", ["id", "path"])
-FileName = namedtuple("FileName", ["id", "filename", "dir_idx"])
-
-ASRDebugLines = namedtuple("ASRDebugLines", ["filenames", "addresses"])
-
-class Parser:
-    """
-    Parser for the output generated by dwarfdump.
-
-    On macOS (both Intel and ARM based):
-
-        dwarfdump --debug-line src/bin/lfortran.dSYM > symbols.txt
-
-    Then parse it using:
-
-        p = Parser()
-        ast = p.parse_file("symbols.txt")
-    """
-
-    def parse_file(self, filename):
-        self.file = open(filename)
-        self.line = self.file.readline()
-        while not self.line.startswith(".debug_line contents:"):
-            self.line = self.file.readline()
-
-        self.line = self.file.readline()
-        lines = []
-        while self.line.startswith("debug_line"):
-            d = self.parse_debug_line()
-            lines.append(d)
-        return DebugLines(lines)
-
-    def parse_debug_line(self):
-        self.line = self.file.readline()
-        while not self.line.startswith("include_directories"):
-            self.line = self.file.readline()
-
-        include_directories = []
-        while self.line.startswith("include_directories"):
-            n, path = re.compile(r"include_directories\[[ ]*(\d+)\] = \"([^\"]+)\"").findall(self.line)[0]
-            n = int(n)
-            include_directories.append(IncludeDirectory(n, path))
-            self.line = self.file.readline()
-
-        file_names = []
-        while self.line.startswith("file_names"):
-            n = re.compile(r"file_names\[[ ]*(\d+)\]:").findall(self.line)[0]
-            n = int(n)
-
-            self.line = self.file.readline()
-            filename = re.compile(r"name: \"([^\"]+)\"").findall(self.line)[0]
-
-            self.line = self.file.readline()
-            dir_idx = re.compile(r"dir_index: (\d+)").findall(self.line)[0]
-            dir_idx = int(dir_idx)
-
-            self.line = self.file.readline()
-            self.line = self.file.readline()
-
-            file_names.append(FileName(n, filename, dir_idx))
-
-            self.line = self.file.readline()
-
-        self.line = self.file.readline()
-        self.line = self.file.readline()
-        self.line = self.file.readline()
-
-        addresses = []
-        while self.line.startswith("0x"):
-            address, line, column, file_id = self.line.split()[:4]
-            address = int(address, base=16)
-            line = int(line)
-            column = int(column)
-            file_id = int(file_id)
-            addresses.append([address, line, column, file_id])
-            self.line = self.file.readline()
-
-        self.line = self.file.readline()
-
-        d = DebugLine(include_directories, file_names, addresses)
-        return d
-
-def ast_to_asr(ast):
-    local_files = glob("../**/*.cpp", recursive=True) + \
-                  glob("../**/*.h", recursive=True)
-    for i in range(len(local_files)):
-        local_files[i] = os.path.abspath(local_files[i])
-    def make_abs(end_path):
-        if end_path[0] != "/":
-            for f in local_files:
-                if f.endswith(end_path):
-                    return f
-        return end_path
-    lines = []
-    last_address = -1
-    global_filename_id = 0
-    global_filenames = []
-    global_addresses = []
-    for line in ast.lines:
-        include_dirs = {}
-        for inc in line.include_directories:
-            include_dirs[inc.id] = inc.path
-        filenames = {}
-        for filename in line.file_names:
-            prefix = ""
-            if filename.dir_idx != 0:
-                prefix = include_dirs[filename.dir_idx] + "/"
-            filenames[filename.id] = global_filename_id
-            global_filenames.append(make_abs(prefix+filename.filename))
-            global_filename_id += 1
-        for address, line_num, column, file_id in line.addresses:
-            filename = global_filenames[filenames[file_id]]
-            assert last_address <= address
-            last_address = address
-            if line_num != 0:
-                global_addresses.append([address, line_num, filenames[file_id]])
-    return ASRDebugLines(global_filenames, global_addresses)
-
-
-p = Parser()
-ast = p.parse_file(sys.argv[1])
-asr = ast_to_asr(ast)
-with open(sys.argv[2], "w") as f:
-    f.write(str(len(asr.filenames)) + "\n")
-    for filename in asr.filenames:
-        f.write(filename + "\n")
-    f.write(str(len(asr.addresses)) + "\n")
-with open(sys.argv[3], "wb") as f:
-    for addr, line, fileid in asr.addresses:
-        f.write(pack("3Q", addr, line, fileid))
diff --git a/src/bin/lpython.cpp b/src/bin/lpython.cpp
index c9482b7410..573a5a9658 100644
--- a/src/bin/lpython.cpp
+++ b/src/bin/lpython.cpp
@@ -6,12 +6,14 @@
 #define CLI11_HAS_FILESYSTEM 0
 #include <bin/CLI11.hpp>
 
-#include <libasr/stacktrace.h>
 #include <lpython/pickle.h>
+#include <libasr/pickle.h>
+#include <libasr/stacktrace.h>
 #include <lpython/semantics/python_ast_to_asr.h>
 #include <libasr/codegen/asr_to_llvm.h>
 #include <libasr/codegen/asr_to_cpp.h>
 #include <libasr/codegen/asr_to_c.h>
+#include <libasr/codegen/asr_to_python.h>
 #include <libasr/codegen/asr_to_py.h>
 #include <libasr/codegen/asr_to_x86.h>
 #include <libasr/codegen/asr_to_wasm.h>
@@ -27,10 +29,12 @@
 #include <libasr/config.h>
 #include <libasr/string_utils.h>
 #include <libasr/lsp_interface.h>
+#include <lpython/python_kernel.h>
 #include <lpython/utils.h>
 #include <lpython/python_serialization.h>
 #include <lpython/parser/tokenizer.h>
 #include <lpython/parser/parser.h>
+#include <libasr/exception.h>
 
 #include <cpp-terminal/terminal.h>
 #include <cpp-terminal/prompt0.h>
@@ -44,16 +48,20 @@
     #include <rapidjson/stringbuffer.h>
     #include <rapidjson/writer.h>
 #endif
+
+extern std::string lcompilers_unique_ID_separate_compilation;
+
 namespace {
 
 using LCompilers::endswith;
 using LCompilers::CompilerOptions;
 using LCompilers::LPython::parse_python_file;
 
-enum Backend {
-    llvm, cpp, x86, wasm, wasm_x86, wasm_x64
+enum class Backend {
+    llvm, cpp, c, x86, wasm, wasm_x86, wasm_x64, python
 };
 
+
 std::string remove_extension(const std::string& filename) {
     size_t lastdot = filename.find_last_of(".");
     if (lastdot == std::string::npos) return filename;
@@ -82,7 +90,7 @@ std::string get_kokkos_dir()
 
 int emit_tokens(const std::string &infile, bool line_numbers, const CompilerOptions &compiler_options)
 {
-    std::string input = LCompilers::read_file(infile);
+    std::string input = LCompilers::read_file_ok(infile);
     // Src -> Tokens
     Allocator al(64*1024*1024);
     std::vector<int> toks;
@@ -95,7 +103,7 @@ int emit_tokens(const std::string &infile, bool line_numbers, const CompilerOpti
         LCompilers::LocationManager::FileLocations fl;
         fl.in_filename = infile;
         lm.files.push_back(fl);
-        std::string input = LCompilers::read_file(infile);
+        std::string input = LCompilers::read_file_ok(infile);
         lm.init_simple(input);
         lm.file_ends.push_back(input.size());
     }
@@ -132,7 +140,7 @@ int emit_ast(const std::string &infile,
             LCompilers::LocationManager::FileLocations fl;
             fl.in_filename = infile;
             lm.files.push_back(fl);
-            std::string input = LCompilers::read_file(infile);
+            std::string input = LCompilers::read_file_ok(infile);
             lm.init_simple(input);
             lm.file_ends.push_back(input.size());
         }
@@ -144,20 +152,32 @@ int emit_ast(const std::string &infile,
     }
     LCompilers::LPython::AST::ast_t* ast = r.result;
 
-    if (compiler_options.tree) {
+    if (compiler_options.po.tree) {
         std::cout << LCompilers::LPython::pickle_tree_python(*ast,
             compiler_options.use_colors) << std::endl;
-    } else if (compiler_options.json) {
+    } else if (compiler_options.po.json) {
         LCompilers::LocationManager lm;
         {
             LCompilers::LocationManager::FileLocations fl;
             fl.in_filename = infile;
             lm.files.push_back(fl);
-            std::string input = LCompilers::read_file(infile);
+            std::string input = LCompilers::read_file_ok(infile);
             lm.init_simple(input);
             lm.file_ends.push_back(input.size());
         }
          std::cout << LCompilers::LPython::pickle_json(*ast, lm) << std::endl;
+    } else if (compiler_options.po.visualize) {
+        LCompilers::LocationManager lm;
+        {
+            LCompilers::LocationManager::FileLocations fl;
+            fl.in_filename = infile;
+            lm.files.push_back(fl);
+            std::string input = LCompilers::read_file_ok(infile);
+            lm.init_simple(input);
+            lm.file_ends.push_back(input.size());
+        }
+        LCompilers::Result<std::string> r = LCompilers::LPython::pickle_json(*ast, lm);
+        return visualize_json(r.result, compiler_options.platform);
     } else {
         std::cout << LCompilers::LPython::pickle_python(*ast,
             compiler_options.use_colors, compiler_options.indent) << std::endl;
@@ -177,7 +197,7 @@ int emit_asr(const std::string &infile,
         LCompilers::LocationManager::FileLocations fl;
         fl.in_filename = infile;
         lm.files.push_back(fl);
-        std::string input = LCompilers::read_file(infile);
+        std::string input = LCompilers::read_file_ok(infile);
         lm.init_simple(input);
         lm.file_ends.push_back(input.size());
     }
@@ -191,26 +211,29 @@ int emit_asr(const std::string &infile,
 
     diagnostics.diagnostics.clear();
     LCompilers::Result<LCompilers::ASR::TranslationUnit_t*>
-        r = LCompilers::LPython::python_ast_to_asr(al, lm, *ast, diagnostics,
-            compiler_options, true, infile);
+        r = LCompilers::LPython::python_ast_to_asr(al, lm, nullptr, *ast, diagnostics,
+            compiler_options, true, "__main__", infile);
     std::cerr << diagnostics.render(lm, compiler_options);
     if (!r.ok) {
         LCOMPILERS_ASSERT(diagnostics.has_error())
         return 2;
     }
     LCompilers::ASR::TranslationUnit_t* asr = r.result;
-    LCompilers::PassOptions pass_options;
-    pass_options.run_fun = "f";
-    pass_options.always_run = true;
-    pass_manager.apply_passes(al, asr, pass_options, diagnostics);
+    compiler_options.po.always_run = true;
+    compiler_options.po.run_fun = "f";
+
+    pass_manager.apply_passes(al, asr, compiler_options.po, diagnostics);
 
-    if (compiler_options.tree) {
-        std::cout << LCompilers::LPython::pickle_tree(*asr,
+    if (compiler_options.po.tree) {
+        std::cout << LCompilers::pickle_tree(*asr,
             compiler_options.use_colors, with_intrinsic_modules) << std::endl;
-    } else if (compiler_options.json) {
-         std::cout << LCompilers::LPython::pickle_json(*asr, lm) << std::endl;
+    } else if (compiler_options.po.json) {
+         std::cout << LCompilers::pickle_json(*asr, lm, compiler_options.po.no_loc, with_intrinsic_modules) << std::endl;
+    } else if (compiler_options.po.visualize) {
+        std::string astr_data_json = LCompilers::pickle_json(*asr, lm, compiler_options.po.no_loc, with_intrinsic_modules);
+        return visualize_json(astr_data_json, compiler_options.platform);
     } else {
-        std::cout << LCompilers::LPython::pickle(*asr, compiler_options.use_colors,
+        std::cout << LCompilers::pickle(*asr, compiler_options.use_colors,
             compiler_options.indent, with_intrinsic_modules) << std::endl;
     }
     return 0;
@@ -227,7 +250,7 @@ int emit_cpp(const std::string &infile,
         LCompilers::LocationManager::FileLocations fl;
         fl.in_filename = infile;
         lm.files.push_back(fl);
-        std::string input = LCompilers::read_file(infile);
+        std::string input = LCompilers::read_file_ok(infile);
         lm.init_simple(input);
         lm.file_ends.push_back(input.size());
     }
@@ -241,7 +264,7 @@ int emit_cpp(const std::string &infile,
 
     diagnostics.diagnostics.clear();
     LCompilers::Result<LCompilers::ASR::TranslationUnit_t*>
-        r1 = LCompilers::LPython::python_ast_to_asr(al, lm, *ast, diagnostics, compiler_options, true, infile);
+        r1 = LCompilers::LPython::python_ast_to_asr(al, lm, nullptr, *ast, diagnostics, compiler_options, true, "__main__", infile);
     std::cerr << diagnostics.render(lm, compiler_options);
     if (!r1.ok) {
         LCOMPILERS_ASSERT(diagnostics.has_error())
@@ -250,8 +273,7 @@ int emit_cpp(const std::string &infile,
     LCompilers::ASR::TranslationUnit_t* asr = r1.result;
 
     diagnostics.diagnostics.clear();
-    auto res = LCompilers::asr_to_cpp(al, *asr, diagnostics,
-        compiler_options.platform, 0);
+    auto res = LCompilers::asr_to_cpp(al, *asr, diagnostics, compiler_options, 0);
     std::cerr << diagnostics.render(lm, compiler_options);
     if (!res.ok) {
         LCOMPILERS_ASSERT(diagnostics.has_error())
@@ -263,6 +285,7 @@ int emit_cpp(const std::string &infile,
 
 int emit_c(const std::string &infile,
     const std::string &runtime_library_dir,
+    LCompilers::PassManager& pass_manager,
     CompilerOptions &compiler_options)
 {
     Allocator al(4*1024);
@@ -272,7 +295,7 @@ int emit_c(const std::string &infile,
         LCompilers::LocationManager::FileLocations fl;
         fl.in_filename = infile;
         lm.files.push_back(fl);
-        std::string input = LCompilers::read_file(infile);
+        std::string input = LCompilers::read_file_ok(infile);
         lm.init_simple(input);
         lm.file_ends.push_back(input.size());
     }
@@ -286,7 +309,7 @@ int emit_c(const std::string &infile,
 
     diagnostics.diagnostics.clear();
     LCompilers::Result<LCompilers::ASR::TranslationUnit_t*>
-        r1 = LCompilers::LPython::python_ast_to_asr(al, lm, *ast, diagnostics, compiler_options, true, infile);
+        r1 = LCompilers::LPython::python_ast_to_asr(al, lm, nullptr, *ast, diagnostics, compiler_options, true, "__main__", infile);
     std::cerr << diagnostics.render(lm, compiler_options);
     if (!r1.ok) {
         LCOMPILERS_ASSERT(diagnostics.has_error())
@@ -294,9 +317,120 @@ int emit_c(const std::string &infile,
     }
     LCompilers::ASR::TranslationUnit_t* asr = r1.result;
 
+    // Apply ASR passes
+    pass_manager.use_default_passes(true);
+    compiler_options.po.always_run = true;
+    compiler_options.po.run_fun = "f";
+    compiler_options.po.c_skip_bindpy_pass = true;
+
+    pass_manager.apply_passes(al, asr, compiler_options.po, diagnostics);
+
     diagnostics.diagnostics.clear();
-    auto res = LCompilers::asr_to_c(al, *asr, diagnostics,
-        compiler_options.platform, 0);
+    auto res = LCompilers::asr_to_c(al, *asr, diagnostics, compiler_options, 0);
+    std::cerr << diagnostics.render(lm, compiler_options);
+    if (!res.ok) {
+        LCOMPILERS_ASSERT(diagnostics.has_error())
+        return 3;
+    }
+    std::cout << res.result;
+    return 0;
+}
+
+int emit_c_to_file(const std::string &infile, const std::string &outfile,
+    const std::string &runtime_library_dir, LCompilers::PassManager& pass_manager,
+    CompilerOptions &compiler_options)
+{
+    Allocator al(4*1024);
+    LCompilers::diag::Diagnostics diagnostics;
+    LCompilers::LocationManager lm;
+    {
+        LCompilers::LocationManager::FileLocations fl;
+        fl.in_filename = infile;
+        lm.files.push_back(fl);
+        std::string input = LCompilers::read_file_ok(infile);
+        lm.init_simple(input);
+        lm.file_ends.push_back(input.size());
+    }
+    LCompilers::Result<LCompilers::LPython::AST::ast_t*> r = parse_python_file(
+        al, runtime_library_dir, infile, diagnostics, 0, compiler_options.new_parser);
+    std::cerr << diagnostics.render(lm, compiler_options);
+    if (!r.ok) {
+        return 1;
+    }
+    LCompilers::LPython::AST::ast_t* ast = r.result;
+
+    diagnostics.diagnostics.clear();
+    LCompilers::Result<LCompilers::ASR::TranslationUnit_t*>
+        r1 = LCompilers::LPython::python_ast_to_asr(al, lm, nullptr, *ast, diagnostics, compiler_options, true, "__main__", infile);
+    std::cerr << diagnostics.render(lm, compiler_options);
+    if (!r1.ok) {
+        LCOMPILERS_ASSERT(diagnostics.has_error())
+        return 2;
+    }
+    LCompilers::ASR::TranslationUnit_t* asr = r1.result;
+
+    compiler_options.po.run_fun = "f";
+    compiler_options.po.always_run = true;
+    compiler_options.po.c_skip_bindpy_pass = true;
+
+    pass_manager.use_default_passes(true);
+    pass_manager.apply_passes(al, asr, compiler_options.po, diagnostics);
+
+    diagnostics.diagnostics.clear();
+    auto res = LCompilers::asr_to_c(al, *asr, diagnostics, compiler_options, 0);
+    std::cerr << diagnostics.render(lm, compiler_options);
+    if (!res.ok) {
+        LCOMPILERS_ASSERT(diagnostics.has_error())
+        return 3;
+    }
+    FILE *fp;
+    fp = fopen(outfile.c_str(), "w");
+    fputs(res.result.c_str(), fp);
+    fclose(fp);
+    return 0;
+}
+
+int emit_python(const std::string &infile,
+    const std::string &runtime_library_dir,
+    CompilerOptions &compiler_options)
+{
+    Allocator al(4*1024);
+    LCompilers::diag::Diagnostics diagnostics;
+    LCompilers::LocationManager lm;
+    {
+        LCompilers::LocationManager::FileLocations fl;
+        fl.in_filename = infile;
+        lm.files.push_back(fl);
+        std::string input = LCompilers::read_file_ok(infile);
+        lm.init_simple(input);
+        lm.file_ends.push_back(input.size());
+    }
+    LCompilers::Result<LCompilers::LPython::AST::ast_t*> r = parse_python_file(
+        al, runtime_library_dir, infile, diagnostics, 0, compiler_options.new_parser);
+    std::cerr << diagnostics.render(lm, compiler_options);
+    if (!r.ok) {
+        return 1;
+    }
+    LCompilers::LPython::AST::ast_t* ast = r.result;
+
+    diagnostics.diagnostics.clear();
+
+    // AST -> ASR
+    LCompilers::Result<LCompilers::ASR::TranslationUnit_t*>
+        r1 = LCompilers::LPython::python_ast_to_asr(al, lm, nullptr, *ast, diagnostics, compiler_options, true, "__main__", infile);
+    std::cerr << diagnostics.render(lm, compiler_options);
+    if (!r1.ok) {
+        LCOMPILERS_ASSERT(diagnostics.has_error())
+        return 2;
+    }
+    LCompilers::ASR::TranslationUnit_t* asr = r1.result;
+
+    diagnostics.diagnostics.clear();
+
+    // ASR -> LPython
+    bool color = false;
+    int indent = 0;
+    LCompilers::Result<std::string> res = LCompilers::asr_to_python(al, *asr, diagnostics, compiler_options, color, indent);
     std::cerr << diagnostics.render(lm, compiler_options);
     if (!res.ok) {
         LCOMPILERS_ASSERT(diagnostics.has_error())
@@ -317,7 +451,7 @@ int emit_wat(const std::string &infile,
         LCompilers::LocationManager::FileLocations fl;
         fl.in_filename = infile;
         lm.files.push_back(fl);
-        std::string input = LCompilers::read_file(infile);
+        std::string input = LCompilers::read_file_ok(infile);
         lm.init_simple(input);
         lm.file_ends.push_back(input.size());
     }
@@ -331,7 +465,7 @@ int emit_wat(const std::string &infile,
 
     diagnostics.diagnostics.clear();
     LCompilers::Result<LCompilers::ASR::TranslationUnit_t*>
-        r1 = LCompilers::LPython::python_ast_to_asr(al, lm, *ast, diagnostics, compiler_options, true, infile);
+        r1 = LCompilers::LPython::python_ast_to_asr(al, lm, nullptr, *ast, diagnostics, compiler_options, true, "__main__", infile);
     std::cerr << diagnostics.render(lm, compiler_options);
     if (!r1.ok) {
         LCOMPILERS_ASSERT(diagnostics.has_error())
@@ -340,7 +474,7 @@ int emit_wat(const std::string &infile,
     LCompilers::ASR::TranslationUnit_t* asr = r1.result;
 
     diagnostics.diagnostics.clear();
-    LCompilers::Result<LCompilers::Vec<uint8_t>> r2 = LCompilers::asr_to_wasm_bytes_stream(*asr, al, diagnostics);
+    LCompilers::Result<LCompilers::Vec<uint8_t>> r2 = LCompilers::asr_to_wasm_bytes_stream(*asr, al, diagnostics, compiler_options);
     std::cerr << diagnostics.render(lm, compiler_options);
     if (!r2.ok) {
         LCOMPILERS_ASSERT(diagnostics.has_error())
@@ -358,6 +492,45 @@ int emit_wat(const std::string &infile,
     return 0;
 }
 
+int dump_all_passes(const std::string &infile,
+    const std::string &runtime_library_dir,
+    CompilerOptions &compiler_options) {
+    std::string input = LCompilers::read_file_ok(infile);
+
+    Allocator al(4*1024);
+    LCompilers::LocationManager lm;
+    LCompilers::diag::Diagnostics diagnostics;
+    {
+        LCompilers::LocationManager::FileLocations fl;
+        fl.in_filename = infile;
+        lm.files.push_back(fl);
+        lm.file_ends.push_back(input.size());
+    }
+
+    LCompilers::Result<LCompilers::LPython::AST::ast_t*> r = parse_python_file(
+        al, runtime_library_dir, infile, diagnostics, 0, compiler_options.new_parser);
+    std::cerr << diagnostics.render(lm, compiler_options);
+    if (!r.ok) {
+        return 1;
+    }
+    LCompilers::LPython::AST::ast_t* ast = r.result;
+    diagnostics.diagnostics.clear();
+    LCompilers::Result<LCompilers::ASR::TranslationUnit_t*>
+        r1 = LCompilers::LPython::python_ast_to_asr(al, lm, nullptr, *ast, diagnostics, compiler_options, true, "__main__", infile);
+    std::cerr << diagnostics.render(lm, compiler_options);
+    if (r1.ok) {
+        LCompilers::PassManager pass_manager;
+        compiler_options.po.always_run = true;
+        compiler_options.po.run_fun = "f";
+        pass_manager.dump_all_passes(al, r1.result, compiler_options.po, diagnostics, lm);
+        std::cerr << diagnostics.render(lm, compiler_options);
+    } else {
+        LCOMPILERS_ASSERT(diagnostics.has_error())
+        return 1;
+    }
+    return 0;
+}
+
 #ifdef HAVE_LFORTRAN_RAPIDJSON
 
 int get_symbols (const std::string &infile,
@@ -370,7 +543,7 @@ int get_symbols (const std::string &infile,
             LCompilers::LocationManager::FileLocations fl;
             fl.in_filename = infile;
             lm.files.push_back(fl);
-            std::string input = LCompilers::read_file(infile);
+            std::string input = LCompilers::read_file_ok(infile);
             lm.init_simple(input);
             lm.file_ends.push_back(input.size());
         }
@@ -380,14 +553,14 @@ int get_symbols (const std::string &infile,
         if (r1.ok) {
            LCompilers::LPython::AST::ast_t* ast = r1.result;
            LCompilers::Result<LCompilers::ASR::TranslationUnit_t*>
-               x = LCompilers::LPython::python_ast_to_asr(al, lm, *ast, diagnostics, compiler_options, true, infile);
+               x = LCompilers::LPython::python_ast_to_asr(al, lm, nullptr, *ast, diagnostics, compiler_options, true, "__main__", infile);
            if (!x.ok) {
                std::cout << "{}\n";
                return 0;
            }
            std::vector<LCompilers::document_symbols> symbol_lists;
            LCompilers::document_symbols loc;
-           for (auto &a : x.result->m_global_scope->get_scope()) {
+           for (auto &a : x.result->m_symtab->get_scope()) {
                std::string symbol_name = a.first;
                uint32_t first_line;
                uint32_t last_line;
@@ -471,7 +644,7 @@ int get_errors (const std::string &infile,
             LCompilers::LocationManager::FileLocations fl;
             fl.in_filename = infile;
             lm.files.push_back(fl);
-            std::string input = LCompilers::read_file(infile);
+            std::string input = LCompilers::read_file_ok(infile);
             lm.init_simple(input);
             lm.file_ends.push_back(input.size());
         }
@@ -481,12 +654,12 @@ int get_errors (const std::string &infile,
         if (r1.ok) {
             LCompilers::LPython::AST::ast_t* ast = r1.result;
             LCompilers::Result<LCompilers::ASR::TranslationUnit_t*>
-                r = LCompilers::LPython::python_ast_to_asr(al, lm, *ast, diagnostics, compiler_options, true, infile);
+                r = LCompilers::LPython::python_ast_to_asr(al, lm, nullptr, *ast, diagnostics, compiler_options, true, "__main__", infile);
         }
         std::vector<LCompilers::error_highlight> diag_lists;
         LCompilers::error_highlight h;
         for (auto &d : diagnostics.diagnostics) {
-            if (compiler_options.no_warnings && d.level != LCompilers::diag::Level::Error) {
+            if (!compiler_options.show_warnings && d.level != LCompilers::diag::Level::Error) {
                 continue;
             }
             h.message = d.message;
@@ -574,6 +747,11 @@ void print_time_report(std::vector<std::pair<std::string, double>> &times, bool
 
 #ifdef HAVE_LFORTRAN_LLVM
 
+void section(const std::string &s)
+{
+    std::cout << color(LCompilers::style::bold) << color(LCompilers::fg::blue) << s << color(LCompilers::style::reset) << color(LCompilers::fg::reset) << std::endl;
+}
+
 int emit_llvm(const std::string &infile,
     const std::string &runtime_library_dir,
     LCompilers::PassManager& pass_manager,
@@ -586,7 +764,7 @@ int emit_llvm(const std::string &infile,
         LCompilers::LocationManager::FileLocations fl;
         fl.in_filename = infile;
         lm.files.push_back(fl);
-        std::string input = LCompilers::read_file(infile);
+        std::string input = LCompilers::read_file_ok(infile);
         lm.init_simple(input);
         lm.file_ends.push_back(input.size());
     }
@@ -601,7 +779,7 @@ int emit_llvm(const std::string &infile,
     LCompilers::LPython::AST::ast_t* ast = r.result;
     diagnostics.diagnostics.clear();
     LCompilers::Result<LCompilers::ASR::TranslationUnit_t*>
-        r1 = LCompilers::LPython::python_ast_to_asr(al, lm, *ast, diagnostics, compiler_options, true, infile);
+        r1 = LCompilers::LPython::python_ast_to_asr(al, lm, nullptr, *ast, diagnostics, compiler_options, true, "__main__", infile);
     std::cerr << diagnostics.render(lm, compiler_options);
     if (!r1.ok) {
         LCOMPILERS_ASSERT(diagnostics.has_error())
@@ -613,18 +791,7 @@ int emit_llvm(const std::string &infile,
     // ASR -> LLVM
     LCompilers::PythonCompiler fe(compiler_options);
     LCompilers::Result<std::unique_ptr<LCompilers::LLVMModule>>
-        res = fe.get_llvm3(*asr, pass_manager, diagnostics, infile);
-    if (compiler_options.emit_debug_info) {
-        if (!compiler_options.emit_debug_line_column) {
-            diagnostics.add(LCompilers::diag::Diagnostic(
-                "The `emit_debug_line_column` is not enabled; please use the "
-                "`--debug-with-line-column` option to get the correct "
-                "location information",
-                LCompilers::diag::Level::Warning,
-                LCompilers::diag::Stage::Semantic, {})
-            );
-        }
-    }
+        res = fe.get_llvm3(*asr, pass_manager, diagnostics, lm, infile);
     std::cerr << diagnostics.render(lm, compiler_options);
     if (!res.ok) {
         LCOMPILERS_ASSERT(diagnostics.has_error())
@@ -634,13 +801,251 @@ int emit_llvm(const std::string &infile,
     return 0;
 }
 
-int compile_python_to_object_file(
+bool determine_completeness(std::string command)
+{
+    auto get_last_line = [](std::string input) {
+        if(input.length() == 1) {
+            return input;
+        }
+        size_t position = input.length() - 2;
+        while ((!(input[position] == '\n' || input[position] == '\r')) && (position > 0)) {
+            position--;
+        }
+        if(input[position] == '\n' || input[position] == '\r') {
+            position += 1;
+        }
+        return input.substr(position);
+    };
+
+    std::string last_line = get_last_line(command);
+    if ((last_line.rfind("def", 0) == 0) ||
+        (last_line.rfind("for", 0) == 0) ||
+        (last_line.rfind("if", 0) == 0) ||
+        (last_line.rfind("else", 0) == 0) ||
+        (last_line.rfind("elif", 0) == 0) ||
+        (last_line.rfind("class", 0) == 0) ||
+        (last_line.rfind('@', 0) == 0) ||
+        (last_line.rfind(' ', 0) == 0) ||
+        (last_line.rfind('\t', 0) == 0)) {
+            return false;
+    }
+    return true;
+}
+
+int interactive_python_repl(
+        LCompilers::PassManager& pass_manager,
+        CompilerOptions &compiler_options,
+        bool verbose)
+{
+    Allocator al(4*1024);
+    compiler_options.interactive = true;
+    LCompilers::PythonCompiler fe(compiler_options);
+    LCompilers::diag::Diagnostics diagnostics;
+    LCompilers::LocationManager lm;
+    std::vector<std::pair<std::string, double>> times;
+    LCompilers::PythonCompiler::EvalResult r;
+
+    Terminal term(true, false);
+    std::cout << "Interactive LPython. Experimental prototype, not ready for end users." << std::endl;
+    std::string version = LFORTRAN_VERSION;
+    std::cout << "LPython version: " << version << std::endl;
+    std::cout << "  * Use Ctrl-D to exit" << std::endl;
+    std::cout << "  * Use Enter to submit" << std::endl;
+    std::cout << "  * Use Alt-Enter or Ctrl-N to make a new line" << std::endl;
+    std::cout << "    - Editing (Keys: Left, Right, Home, End, Backspace, Delete)" << std::endl;
+    std::cout << "    - History (Keys: Up, Down)" << std::endl;
+
+    std::vector<std::string> history;
+
+    std::function<bool(std::string)> iscomplete = determine_completeness;
+
+    std::string code_string;
+    size_t cell_count = 0;
+    while (true) {
+        std::string code_string = prompt0(term, ">>> ", history, iscomplete);
+        if (code_string.size() == 1 && code_string[0] == CTRL_KEY('d')) {
+            std::cout << std::endl;
+            std::cout << "Exiting." << std::endl;
+            return 0;
+        }
+
+        {
+            cell_count++;
+            LCompilers::LocationManager::FileLocations fl;
+            fl.in_filename = "input";
+            std::ofstream out("input");
+            out << code_string;
+            lm.files.push_back(fl);
+            lm.init_simple(code_string);
+            lm.file_ends.push_back(code_string.size());
+        }
+
+        try {
+            auto evaluation_start_time = std::chrono::high_resolution_clock::now();
+            LCompilers::Result<LCompilers::PythonCompiler::EvalResult>
+            res = fe.evaluate(code_string, verbose, lm, pass_manager, diagnostics);
+            if (res.ok) {
+                r = res.result;
+                std::cerr << diagnostics.render(lm, compiler_options);
+                diagnostics.clear();
+            } else {
+                LCOMPILERS_ASSERT(diagnostics.has_error())
+                std::cerr << diagnostics.render(lm, compiler_options);
+                diagnostics.clear();
+                continue;
+            }
+
+            auto evaluation_end_time = std::chrono::high_resolution_clock::now();
+            times.push_back(std::make_pair("evalution " + std::to_string(cell_count), std::chrono::duration
+                <double, std::milli>(evaluation_start_time - evaluation_end_time).count()));
+
+        } catch (const LCompilers::LCompilersException &e) {
+            std::cerr << "Internal Compiler Error: Unhandled exception" << std::endl;
+            std::vector<LCompilers::StacktraceItem> d = e.stacktrace_addresses();
+            get_local_addresses(d);
+            get_local_info(d);
+            std::cerr << stacktrace2str(d, LCompilers::stacktrace_depth);
+            std::cerr << e.name() + ": " << e.msg() << std::endl;
+            continue;
+        }
+
+        if (verbose) {
+            section("AST:");
+            std::cout << r.ast << std::endl;
+            section("ASR:");
+            std::cout << r.asr << std::endl;
+            section("LLVM IR:");
+            std::cout << r.llvm_ir << std::endl;
+        }
+
+        switch (r.type) {
+            case (LCompilers::PythonCompiler::EvalResult::integer1) : {
+                if (verbose) std::cout << "Return type: i8" << std::endl;
+                if (verbose) section("Result:");
+                std::cout << r.i32 << std::endl;
+                break;
+            }
+            case (LCompilers::PythonCompiler::EvalResult::integer2) : {
+                if (verbose) std::cout << "Return type: i16" << std::endl;
+                if (verbose) section("Result:");
+                std::cout << r.i64 << std::endl;
+                break;
+            }
+            case (LCompilers::PythonCompiler::EvalResult::integer4) : {
+                if (verbose) std::cout << "Return type: i32" << std::endl;
+                if (verbose) section("Result:");
+                std::cout << r.i32 << std::endl;
+                break;
+            }
+            case (LCompilers::PythonCompiler::EvalResult::integer8) : {
+                if (verbose) std::cout << "Return type: i64" << std::endl;
+                if (verbose) section("Result:");
+                std::cout << r.i64 << std::endl;
+                break;
+            }
+            case (LCompilers::PythonCompiler::EvalResult::unsignedInteger1) : {
+                if (verbose) std::cout << "Return type: u8" << std::endl;
+                if (verbose) section("Result:");
+                std::cout << r.u32 << std::endl;
+                break;
+            }
+            case (LCompilers::PythonCompiler::EvalResult::unsignedInteger2) : {
+                if (verbose) std::cout << "Return type: u16" << std::endl;
+                if (verbose) section("Result:");
+                std::cout << r.u64 << std::endl;
+                break;
+            }
+            case (LCompilers::PythonCompiler::EvalResult::unsignedInteger4) : {
+                if (verbose) std::cout << "Return type: u32" << std::endl;
+                if (verbose) section("Result:");
+                std::cout << r.u32 << std::endl;
+                break;
+            }
+            case (LCompilers::PythonCompiler::EvalResult::unsignedInteger8) : {
+                if (verbose) std::cout << "Return type: u64" << std::endl;
+                if (verbose) section("Result:");
+                std::cout << r.u64 << std::endl;
+                break;
+            }
+            case (LCompilers::PythonCompiler::EvalResult::real4) : {
+                if (verbose) std::cout << "Return type: f32" << std::endl;
+                if (verbose) section("Result:");
+                std::cout << std::setprecision(8) << r.f32 << std::endl;
+                break;
+            }
+            case (LCompilers::PythonCompiler::EvalResult::real8) : {
+                if (verbose) std::cout << "Return type: f64" << std::endl;
+                if (verbose) section("Result:");
+                std::cout << std::setprecision(17) << r.f64 << std::endl;
+                break;
+            }
+            case (LCompilers::PythonCompiler::EvalResult::complex4) : {
+                if (verbose) std::cout << "Return type: c32" << std::endl;
+                if (verbose) section("Result:");
+                std::cout << std::setprecision(8) << "(" << r.c32.re << ", " << r.c32.im << ")" << std::endl;
+                break;
+            }
+            case (LCompilers::PythonCompiler::EvalResult::complex8) : {
+                if (verbose) std::cout << "Return type: c64" << std::endl;
+                if (verbose) section("Result:");
+                std::cout << std::setprecision(17) << "(" << r.c64.re << ", " << r.c64.im << ")" << std::endl;
+                break;
+            }
+            case (LCompilers::PythonCompiler::EvalResult::boolean) : {
+                if (verbose) std::cout << "Return type: logical" << std::endl;
+                if (verbose) section("Result:");
+                std::cout << (r.b ? "True" : "False") << std::endl;
+                break;
+            }
+            case (LCompilers::PythonCompiler::EvalResult::string) : {
+                if (verbose) std::cout << "Return type: str" << std::endl;
+                if (verbose) section("Result:");
+                std::cout << (r.str == nullptr ? "" : r.str) << std::endl;
+                break;
+            }
+            case (LCompilers::PythonCompiler::EvalResult::statement) : {
+                if (verbose) {
+                    std::cout << "Return type: none" << std::endl;
+                    section("Result:");
+                    std::cout << "(statement)" << std::endl;
+                }
+                break;
+            }
+            case (LCompilers::PythonCompiler::EvalResult::struct_type) : {
+                if (verbose) {
+                    std::cout << "Return type: "
+                        << LCompilers::ASRUtils::get_type_code(r.structure.ttype)
+                        << std::endl;
+                }
+                if (verbose) section("Result:");
+                std::cout << fe.aggregate_type_to_string(r) << std::endl;
+                break;
+            }
+            case (LCompilers::PythonCompiler::EvalResult::none) : {
+                if (verbose) {
+                    std::cout << "Return type: none" << std::endl;
+                    section("Result:");
+                    std::cout << "(nothing to execute)" << std::endl;
+                }
+                break;
+            }
+            default : throw LCompilers::LCompilersException("Return type not supported");
+        }
+    }
+    return 0;
+}
+
+/*
+    Compiles python to object file, if `to_jit` is false
+    otherwise execute python code using llvm JIT
+*/
+int compile_python_using_llvm(
         const std::string &infile,
         const std::string &outfile,
         const std::string &runtime_library_dir,
         LCompilers::PassManager& pass_manager,
         CompilerOptions &compiler_options,
-        bool time_report, bool arg_c=false)
+        bool time_report, bool arg_c=false, bool to_jit=false)
 {
     Allocator al(4*1024);
     LCompilers::diag::Diagnostics diagnostics;
@@ -652,7 +1057,7 @@ int compile_python_to_object_file(
         lm.files.push_back(fl);
 
         auto file_reading_start = std::chrono::high_resolution_clock::now();
-        std::string input = LCompilers::read_file(infile);
+        std::string input = LCompilers::read_file_ok(infile);
         auto file_reading_end = std::chrono::high_resolution_clock::now();
         times.push_back(std::make_pair("File reading", std::chrono::duration
             <double, std::milli>(file_reading_end - file_reading_start).count()));
@@ -676,8 +1081,8 @@ int compile_python_to_object_file(
     diagnostics.diagnostics.clear();
     auto ast_to_asr_start = std::chrono::high_resolution_clock::now();
     LCompilers::Result<LCompilers::ASR::TranslationUnit_t*>
-        r1 = LCompilers::LPython::python_ast_to_asr(al, lm, *ast, diagnostics, compiler_options,
-            !(arg_c && compiler_options.disable_main), infile);
+        r1 = LCompilers::LPython::python_ast_to_asr(al, lm, nullptr, *ast, diagnostics, compiler_options,
+            !(arg_c && compiler_options.po.disable_main), "__main__", infile);
 
     auto ast_to_asr_end = std::chrono::high_resolution_clock::now();
     times.push_back(std::make_pair("AST to ASR", std::chrono::duration<double, std::milli>(ast_to_asr_end - ast_to_asr_start).count()));
@@ -688,8 +1093,8 @@ int compile_python_to_object_file(
         return 2;
     }
     LCompilers::ASR::TranslationUnit_t* asr = r1.result;
-    if( compiler_options.disable_main ) {
-        int err = LCompilers::LPython::save_pyc_files(*asr, infile);
+    if( compiler_options.po.disable_main ) {
+        int err = LCompilers::LPython::save_pyc_files(*asr, infile, lm);
         if( err ) {
             return err;
         }
@@ -697,55 +1102,87 @@ int compile_python_to_object_file(
     diagnostics.diagnostics.clear();
 
     // ASR -> LLVM
+    if (compiler_options.emit_debug_info) {
+#ifndef HAVE_RUNTIME_STACKTRACE
+        diagnostics.add(LCompilers::diag::Diagnostic(
+            "The `runtime stacktrace` is not enabled. To get the stacktraces, "
+            "re-build LPython with `-DWITH_RUNTIME_STACKTRACE=yes`",
+            LCompilers::diag::Level::Error,
+            LCompilers::diag::Stage::Semantic, {})
+        );
+        std::cerr << diagnostics.render(lm, compiler_options);
+        return 1;
+#endif
+    }
     LCompilers::PythonCompiler fe(compiler_options);
     LCompilers::LLVMEvaluator e(compiler_options.target);
-    std::unique_ptr<LCompilers::LLVMModule> m;
     auto asr_to_llvm_start = std::chrono::high_resolution_clock::now();
     LCompilers::Result<std::unique_ptr<LCompilers::LLVMModule>>
-        res = fe.get_llvm3(*asr, pass_manager, diagnostics, infile);
+        res = fe.get_llvm3(*asr, pass_manager, diagnostics, lm, infile);
     auto asr_to_llvm_end = std::chrono::high_resolution_clock::now();
     times.push_back(std::make_pair("ASR to LLVM", std::chrono::duration<double, std::milli>(asr_to_llvm_end - asr_to_llvm_start).count()));
 
-    if (compiler_options.emit_debug_info) {
-#ifdef HAVE_RUNTIME_STACKTRACE
-        if (!compiler_options.emit_debug_line_column) {
-            diagnostics.add(LCompilers::diag::Diagnostic(
-                "The `emit_debug_line_column` is not enabled; please use the "
-                "`--debug-with-line-column` option to get the correct "
-                "location information",
-                LCompilers::diag::Level::Warning,
-                LCompilers::diag::Stage::Semantic, {})
-            );
-        }
-#else
-    diagnostics.add(LCompilers::diag::Diagnostic(
-        "The `runtime stacktrace` is not enabled. To get the stacktraces, "
-        "re-build LPython with `-DWITH_RUNTIME_STACKTRACE=yes`",
-        LCompilers::diag::Level::Warning,
-        LCompilers::diag::Stage::Semantic, {})
-    );
-#endif
-    }
     std::cerr << diagnostics.render(lm, compiler_options);
     if (!res.ok) {
         LCOMPILERS_ASSERT(diagnostics.has_error())
         print_time_report(times, time_report);
         return 3;
     }
-    m = std::move(res.result);
-    auto llvm_start = std::chrono::high_resolution_clock::now();
-    e.save_object_file(*(m->m_m), outfile);
-    auto llvm_end = std::chrono::high_resolution_clock::now();
-    times.push_back(std::make_pair("LLVM to binary", std::chrono::duration<double, std::milli>(llvm_end - llvm_start).count()));
-    print_time_report(times, time_report);
+    std::unique_ptr<LCompilers::LLVMModule> m = std::move(res.result);
+
+    if (to_jit) {
+        LCompilers::LPython::DynamicLibrary cpython_lib;
+        LCompilers::LPython::DynamicLibrary symengine_lib;
+
+        if (compiler_options.po.enable_cpython) {
+            LCompilers::LPython::open_cpython_library(cpython_lib);
+        }
+        if (compiler_options.enable_symengine) {
+            LCompilers::LPython::open_symengine_library(symengine_lib);
+        }
+
+        auto llvm_start = std::chrono::high_resolution_clock::now();
+
+        bool call_stmts = false;
+        if (m->get_return_type("__module___main_____main__global_stmts") == "void") {
+            call_stmts = true;
+        }
+
+        e.add_module(std::move(m));
+        if (call_stmts) {
+            e.execfn<void>("__module___main_____main__global_stmts");
+        }
+
+        if (compiler_options.po.enable_cpython) {
+            LCompilers::LPython::close_cpython_library(cpython_lib);
+        }
+        if (compiler_options.enable_symengine) {
+            LCompilers::LPython::close_symengine_library(symengine_lib);
+        }
+
+        auto llvm_end = std::chrono::high_resolution_clock::now();
+        times.push_back(std::make_pair("LLVM JIT execution", std::chrono::duration<double, std::milli>(llvm_end - llvm_start).count()));
+        print_time_report(times, time_report);
+    } else {
+        auto llvm_start = std::chrono::high_resolution_clock::now();
+        e.save_object_file(*(m->m_m), outfile);
+        auto llvm_end = std::chrono::high_resolution_clock::now();
+        times.push_back(std::make_pair("LLVM to binary", std::chrono::duration<double, std::milli>(llvm_end - llvm_start).count()));
+        print_time_report(times, time_report);
+    }
     return 0;
 }
 
 #endif
 
-void do_print_rtlib_header_dir() {
-    std::string rtlib_header_dir = LCompilers::LPython::get_runtime_library_header_dir();
-    std::cout << rtlib_header_dir << std::endl;
+void do_print_rtl_header_dir() {
+    std::string rtl_header_dir = LCompilers::LPython::get_runtime_library_header_dir();
+    std::cout << rtl_header_dir << std::endl;
+}
+
+void do_print_rtl_dir() {
+    std::string rtl_dir = LCompilers::LPython::get_runtime_library_dir();
+    std::cout << rtl_dir << std::endl;
 }
 
 int compile_to_binary_wasm(
@@ -765,7 +1202,7 @@ int compile_to_binary_wasm(
         lm.files.push_back(fl);
 
         auto file_reading_start = std::chrono::high_resolution_clock::now();
-        std::string input = LCompilers::read_file(infile);
+        std::string input = LCompilers::read_file_ok(infile);
         auto file_reading_end = std::chrono::high_resolution_clock::now();
         times.push_back(std::make_pair("File reading", std::chrono::duration
             <double, std::milli>(file_reading_end - file_reading_start).count()));
@@ -789,7 +1226,7 @@ int compile_to_binary_wasm(
     diagnostics.diagnostics.clear();
     auto ast_to_asr_start = std::chrono::high_resolution_clock::now();
     LCompilers::Result<LCompilers::ASR::TranslationUnit_t*>
-        r1 = LCompilers::LPython::python_ast_to_asr(al, lm, *ast, diagnostics, compiler_options, true, infile);
+        r1 = LCompilers::LPython::python_ast_to_asr(al, lm, nullptr, *ast, diagnostics, compiler_options, true, "__main__", infile);
     auto ast_to_asr_end = std::chrono::high_resolution_clock::now();
     times.push_back(std::make_pair("AST to ASR", std::chrono::duration<double, std::milli>(ast_to_asr_end - ast_to_asr_start).count()));
     std::cerr << diagnostics.render(lm, compiler_options);
@@ -799,8 +1236,8 @@ int compile_to_binary_wasm(
         return 2;
     }
     LCompilers::ASR::TranslationUnit_t* asr = r1.result;
-    if( compiler_options.disable_main ) {
-        int err = LCompilers::LPython::save_pyc_files(*asr, infile);
+    if( compiler_options.po.disable_main ) {
+        int err = LCompilers::LPython::save_pyc_files(*asr, infile, lm);
         if( err ) {
             return err;
         }
@@ -809,7 +1246,7 @@ int compile_to_binary_wasm(
 
     // ASR -> WASM
     auto asr_to_wasm_start = std::chrono::high_resolution_clock::now();
-    LCompilers::Result<int> res = LCompilers::asr_to_wasm(*asr, al,  outfile, time_report, diagnostics);
+    LCompilers::Result<int> res = LCompilers::asr_to_wasm(*asr, al,  outfile, time_report, diagnostics, compiler_options);
     auto asr_to_wasm_end = std::chrono::high_resolution_clock::now();
     times.push_back(std::make_pair("ASR to WASM", std::chrono::duration<double, std::milli>(asr_to_wasm_end - asr_to_wasm_start).count()));
     std::cerr << diagnostics.render(lm, compiler_options);
@@ -838,7 +1275,7 @@ int compile_to_binary_x86(
         lm.files.push_back(fl);
 
         auto file_reading_start = std::chrono::high_resolution_clock::now();
-        std::string input = LCompilers::read_file(infile);
+        std::string input = LCompilers::read_file_ok(infile);
         auto file_reading_end = std::chrono::high_resolution_clock::now();
         times.push_back(std::make_pair("File reading", std::chrono::duration
             <double, std::milli>(file_reading_end - file_reading_start).count()));
@@ -862,7 +1299,7 @@ int compile_to_binary_x86(
     diagnostics.diagnostics.clear();
     auto ast_to_asr_start = std::chrono::high_resolution_clock::now();
     LCompilers::Result<LCompilers::ASR::TranslationUnit_t*>
-        r1 = LCompilers::LPython::python_ast_to_asr(al, lm, *ast, diagnostics, compiler_options, true, infile);
+        r1 = LCompilers::LPython::python_ast_to_asr(al, lm, nullptr, *ast, diagnostics, compiler_options, true, "__main__", infile);
     auto ast_to_asr_end = std::chrono::high_resolution_clock::now();
     times.push_back(std::make_pair("AST to ASR", std::chrono::duration<double, std::milli>(ast_to_asr_end - ast_to_asr_start).count()));
     std::cerr << diagnostics.render(lm, compiler_options);
@@ -872,8 +1309,8 @@ int compile_to_binary_x86(
         return 2;
     }
     LCompilers::ASR::TranslationUnit_t* asr = r1.result;
-    if( compiler_options.disable_main ) {
-        int err = LCompilers::LPython::save_pyc_files(*asr, infile);
+    if( compiler_options.po.disable_main ) {
+        int err = LCompilers::LPython::save_pyc_files(*asr, infile, lm);
         if( err ) {
             return err;
         }
@@ -912,7 +1349,7 @@ int compile_to_binary_wasm_to_x86(
         lm.files.push_back(fl);
 
         auto file_reading_start = std::chrono::high_resolution_clock::now();
-        std::string input = LCompilers::read_file(infile);
+        std::string input = LCompilers::read_file_ok(infile);
         auto file_reading_end = std::chrono::high_resolution_clock::now();
         times.push_back(std::make_pair("File reading", std::chrono::duration
             <double, std::milli>(file_reading_end - file_reading_start).count()));
@@ -936,7 +1373,7 @@ int compile_to_binary_wasm_to_x86(
     diagnostics.diagnostics.clear();
     auto ast_to_asr_start = std::chrono::high_resolution_clock::now();
     LCompilers::Result<LCompilers::ASR::TranslationUnit_t*>
-        r1 = LCompilers::LPython::python_ast_to_asr(al, lm, *ast, diagnostics, compiler_options, true, infile);
+        r1 = LCompilers::LPython::python_ast_to_asr(al, lm, nullptr, *ast, diagnostics, compiler_options, true, "__main__", infile);
     auto ast_to_asr_end = std::chrono::high_resolution_clock::now();
     times.push_back(std::make_pair("AST to ASR", std::chrono::duration<double, std::milli>(ast_to_asr_end - ast_to_asr_start).count()));
     std::cerr << diagnostics.render(lm, compiler_options);
@@ -946,8 +1383,8 @@ int compile_to_binary_wasm_to_x86(
         return 2;
     }
     LCompilers::ASR::TranslationUnit_t* asr = r1.result;
-    if( compiler_options.disable_main ) {
-        int err = LCompilers::LPython::save_pyc_files(*asr, infile);
+    if( compiler_options.po.disable_main ) {
+        int err = LCompilers::LPython::save_pyc_files(*asr, infile, lm);
         if( err ) {
             return err;
         }
@@ -956,7 +1393,7 @@ int compile_to_binary_wasm_to_x86(
 
     // ASR -> WASM
     auto asr_to_wasm_start = std::chrono::high_resolution_clock::now();
-    LCompilers::Result<LCompilers::Vec<uint8_t>> r3 = LCompilers::asr_to_wasm_bytes_stream(*asr, al, diagnostics);
+    LCompilers::Result<LCompilers::Vec<uint8_t>> r3 = LCompilers::asr_to_wasm_bytes_stream(*asr, al, diagnostics, compiler_options);
     auto asr_to_wasm_end = std::chrono::high_resolution_clock::now();
     times.push_back(std::make_pair("ASR to WASM", std::chrono::duration<double, std::milli>(asr_to_wasm_end - asr_to_wasm_start).count()));
     std::cerr << diagnostics.render(lm, compiler_options);
@@ -998,7 +1435,7 @@ int link_executable(const std::vector<std::string> &infiles,
     const std::string &outfile,
     const std::string &runtime_library_dir, Backend backend,
     bool static_executable, bool kokkos,
-    CompilerOptions &compiler_options)
+    CompilerOptions &compiler_options, const std::string &rtlib_header_dir)
 {
     /*
     The `gcc` line for dynamic linking that is constructed below:
@@ -1091,8 +1528,24 @@ int link_executable(const std::vector<std::string> &infiles,
             for (auto &s : infiles) {
                 cmd += s + " ";
             }
+            if (compiler_options.enable_symengine) {
+                cmd += " -I${CONDA_PREFIX}/include";
+            }
             cmd += + " -L"
                 + base_path + " -Wl,-rpath," + base_path + " -l" + runtime_lib + " -lm";
+            if (compiler_options.enable_symengine) {
+                cmd += " -L$CONDA_PREFIX/lib -Wl,-rpath -Wl,$CONDA_PREFIX/lib -lsymengine";
+            }
+
+            if (compiler_options.po.enable_cpython) {
+                std::string py_version = "3.10";
+                std::string py_flags = R"(-I $CONDA_PREFIX/include/python)" + py_version + R"( -L$CONDA_PREFIX/lib -Wl,-rpath -Wl,$CONDA_PREFIX/lib -lpython)" + py_version + R"()";
+                if (compiler_options.link_numpy) {
+                    py_flags += R"( -I$CONDA_PREFIX/lib/python)" + py_version + R"(/site-packages/numpy/core/include)";
+                }
+                cmd += " " + py_flags;
+            }
+
             int err = system(cmd.c_str());
             if (err) {
                 std::cout << "The command '" + cmd + "' failed." << std::endl;
@@ -1118,7 +1571,7 @@ int link_executable(const std::vector<std::string> &infiles,
         for (auto &s : infiles) {
             cmd += s + " ";
         }
-        cmd += + " -L";
+        cmd += " -L";
         cmd += " " + post_options + " -lm";
         int err = system(cmd.c_str());
         if (err) {
@@ -1126,6 +1579,37 @@ int link_executable(const std::vector<std::string> &infiles,
             return 10;
         }
         return 0;
+    } else if (backend == Backend::c) {
+        std::string CXX = "gcc";
+        std::string cmd = CXX + " -o " + outfile + " ";
+        std::string base_path = "\"" + runtime_library_dir + "\"";
+        std::string runtime_lib = "lpython_runtime";
+        for (auto &s : infiles) {
+            cmd += s + " ";
+        }
+        cmd += " -I " + rtlib_header_dir;
+        if (compiler_options.enable_symengine) {
+            cmd += " -I${CONDA_PREFIX}/include";
+        }
+        cmd += " -L" + base_path
+            + " -Wl,-rpath," + base_path + " -l" + runtime_lib + " -lm";
+        if (compiler_options.enable_symengine) {
+            cmd += " -L$CONDA_PREFIX/lib -Wl,-rpath -Wl,$CONDA_PREFIX/lib -lsymengine";
+        }
+        if (compiler_options.po.enable_cpython) {
+            std::string py_version = "3.10";
+            std::string py_flags = R"(-I $CONDA_PREFIX/include/python)" + py_version + R"( -L$CONDA_PREFIX/lib -Wl,-rpath -Wl,$CONDA_PREFIX/lib -lpython)" + py_version + R"()";
+            if (compiler_options.link_numpy) {
+                py_flags += R"( -I$CONDA_PREFIX/lib/python)" + py_version + R"(/site-packages/numpy/core/include)";
+            }
+            cmd += " " + py_flags;
+        }
+        int err = system(cmd.c_str());
+        if (err) {
+            std::cout << "The command '" + cmd + "' failed." << std::endl;
+            return 10;
+        }
+        return 0;
     } else if (backend == Backend::x86) {
         std::string cmd = "cp " + infiles[0] + " " + outfile;
         int err = system(cmd.c_str());
@@ -1142,7 +1626,7 @@ int link_executable(const std::vector<std::string> &infiles,
 
 // int emit_c_preprocessor(const std::string &infile, CompilerOptions &compiler_options)
 // {
-//     std::string input = read_file(infile);
+//     std::string input = read_file_ok(infile);
 //
 //     LFortran::CPreprocessor cpp(compiler_options);
 //     LFortran::LocationManager lm;
@@ -1201,10 +1685,10 @@ EMSCRIPTEN_KEEPALIVE char* emit_asr_from_source(char *input) {
     if (ast.ok) {
         auto casted_ast = (LCompilers::LPython::AST::ast_t*)ast.result;
         LCompilers::Result<LCompilers::ASR::TranslationUnit_t*>
-        asr = LCompilers::LPython::python_ast_to_asr(al, lm, *casted_ast, diagnostics, compiler_options, true, "input");
+        asr = LCompilers::LPython::python_ast_to_asr(al, lm, nullptr, *casted_ast, diagnostics, compiler_options, true, "__main__", "input");
         out = diagnostics.render(lm, compiler_options);
         if (asr.ok) {
-            out += LCompilers::LPython::pickle(*asr.result, compiler_options.use_colors, compiler_options.indent,
+            out += LCompilers::pickle(*asr.result, compiler_options.use_colors, compiler_options.indent,
                 false /* with_intrinsic_modules */);
         }
     }
@@ -1219,11 +1703,11 @@ EMSCRIPTEN_KEEPALIVE char* emit_wat_from_source(char *input) {
     if (ast.ok) {
         auto casted_ast = (LCompilers::LPython::AST::ast_t*)ast.result;
         LCompilers::Result<LCompilers::ASR::TranslationUnit_t*>
-        asr = LCompilers::LPython::python_ast_to_asr(al, lm, *casted_ast, diagnostics, compiler_options, true, "input");
+        asr = LCompilers::LPython::python_ast_to_asr(al, lm, nullptr, *casted_ast, diagnostics, compiler_options, true, "__main__", "input");
         out = diagnostics.render(lm, compiler_options);
         if (asr.ok) {
             LCompilers::Result<LCompilers::Vec<uint8_t>>
-            wasm = LCompilers::asr_to_wasm_bytes_stream(*asr.result, al, diagnostics);
+            wasm = LCompilers::asr_to_wasm_bytes_stream(*asr.result, al, diagnostics, compiler_options);
             out = diagnostics.render(lm, compiler_options);
             if (wasm.ok) {
                 LCompilers::Result<std::string>
@@ -1246,11 +1730,11 @@ EMSCRIPTEN_KEEPALIVE char* emit_cpp_from_source(char *input) {
     if (ast.ok) {
         auto casted_ast = (LCompilers::LPython::AST::ast_t*)ast.result;
         LCompilers::Result<LCompilers::ASR::TranslationUnit_t*>
-        asr = LCompilers::LPython::python_ast_to_asr(al, lm, *casted_ast, diagnostics, compiler_options, true, "input");
+        asr = LCompilers::LPython::python_ast_to_asr(al, lm, nullptr, *casted_ast, diagnostics, compiler_options, true, "__main__", "input");
         out = diagnostics.render(lm, compiler_options);
         if (asr.ok) {
             auto res = LCompilers::asr_to_cpp(al, *asr.result, diagnostics,
-                compiler_options.platform, 0);
+                compiler_options, 0);
             out = diagnostics.render(lm, compiler_options);
             if (res.ok) {
                 out += res.result;
@@ -1284,11 +1768,11 @@ EMSCRIPTEN_KEEPALIVE char* emit_wasm_from_source(char *input) {
     if (ast.ok) {
         auto casted_ast = (LCompilers::LPython::AST::ast_t*)ast.result;
         LCompilers::Result<LCompilers::ASR::TranslationUnit_t*>
-        asr = LCompilers::LPython::python_ast_to_asr(al, lm, *casted_ast, diagnostics, compiler_options, true, "input");
+        asr = LCompilers::LPython::python_ast_to_asr(al, lm, nullptr, *casted_ast, diagnostics, compiler_options, true, "__main__", "input");
         out = diagnostics.render(lm, compiler_options);
         if (asr.ok) {
             LCompilers::Result<LCompilers::Vec<uint8_t>>
-            wasm = LCompilers::asr_to_wasm_bytes_stream(*asr.result, al, diagnostics);
+            wasm = LCompilers::asr_to_wasm_bytes_stream(*asr.result, al, diagnostics, compiler_options);
             out = diagnostics.render(lm, compiler_options);
             if (wasm.ok) {
                 out = "0"; // exit code
@@ -1339,12 +1823,14 @@ int main(int argc, char *argv[])
         bool show_asr = false;
         bool show_cpp = false;
         bool show_c = false;
+        bool show_python = false;
         bool show_document_symbols = false;
         bool show_errors = false;
         bool with_intrinsic_modules = false;
         std::string arg_pass;
         std::string skip_pass;
         bool arg_no_color = false;
+        bool arg_no_indent = false;
         bool show_llvm = false;
         bool show_asm = false;
         bool show_wat = false;
@@ -1353,7 +1839,12 @@ int main(int argc, char *argv[])
         std::string arg_backend = "llvm";
         std::string arg_kernel_f;
         bool print_targets = false;
-        bool print_rtlib_header_dir = false;
+        bool print_rtl_header_dir = false;
+        bool print_rtl_dir = false;
+        bool separate_compilation = false;
+        bool to_jit = false;
+        bool disable_warnings = false;
+        bool hide_error_banner = false;
 
         std::string arg_fmt_file;
         // int arg_fmt_indent = 4;
@@ -1384,9 +1875,10 @@ int main(int argc, char *argv[])
         // app.add_flag("-E", arg_E, "Preprocess only; do not compile, assemble or link");
         // app.add_option("-l", arg_l, "Link library option");
         // app.add_option("-L", arg_L, "Library path option");
-        app.add_option("-I", compiler_options.import_path, "Specify the path"
+        app.add_option("-I", compiler_options.import_paths, "Specify the paths"
             "to look for the module")->allow_extra_args(false);
         // app.add_option("-J", arg_J, "Where to save mod files");
+        app.add_flag("--jit", to_jit, "Execute the program using just-in-time (JIT) compiler");
         app.add_flag("-g", compiler_options.emit_debug_info, "Compile with debugging information");
         app.add_flag("--debug-with-line-column", compiler_options.emit_debug_line_column,
             "Convert the linear location info into line + column in the debugging information");
@@ -1402,29 +1894,45 @@ int main(int argc, char *argv[])
         app.add_flag("--show-llvm", show_llvm, "Show LLVM IR for the given file and exit");
         app.add_flag("--show-cpp", show_cpp, "Show C++ translation source for the given python file and exit");
         app.add_flag("--show-c", show_c, "Show C translation source for the given python file and exit");
+        app.add_flag("--show-python", show_python, "Show Python translation source for the given python file and exit");
         app.add_flag("--show-asm", show_asm, "Show assembly for the given file and exit");
         app.add_flag("--show-wat", show_wat, "Show WAT (WebAssembly Text Format) and exit");
         app.add_flag("--show-stacktrace", compiler_options.show_stacktrace, "Show internal stacktrace on compiler errors");
         app.add_flag("--with-intrinsic-mods", with_intrinsic_modules, "Show intrinsic modules in ASR");
         app.add_flag("--no-color", arg_no_color, "Turn off colored AST/ASR");
-        app.add_flag("--indent", compiler_options.indent, "Indented print ASR/AST");
-        app.add_flag("--tree", compiler_options.tree, "Tree structure print ASR/AST");
-        app.add_flag("--json", compiler_options.json, "Print ASR/AST Json format");
+        app.add_flag("--no-indent", arg_no_indent, "Turn off Indented print ASR/AST");
+        app.add_flag("--tree", compiler_options.po.tree, "Tree structure print ASR/AST");
+        app.add_flag("--json", compiler_options.po.json, "Print ASR/AST Json format");
+        app.add_flag("--no-loc", compiler_options.po.no_loc, "Skip location information in ASR/AST Json format");
+        app.add_flag("--visualize", compiler_options.po.visualize, "Print ASR/AST Visualization");
         app.add_option("--pass", arg_pass, "Apply the ASR pass and show ASR (implies --show-asr)");
         app.add_option("--skip-pass", skip_pass, "Skip an ASR pass in default pipeline");
-        app.add_flag("--disable-main", compiler_options.disable_main, "Do not generate any code for the `main` function");
+        app.add_flag("--disable-main", compiler_options.po.disable_main, "Do not generate any code for the `main` function");
         app.add_flag("--symtab-only", compiler_options.symtab_only, "Only create symbol tables in ASR (skip executable stmt)");
         app.add_flag("--time-report", time_report, "Show compilation time report");
         app.add_flag("--static", static_link, "Create a static executable");
-        app.add_flag("--no-warnings", compiler_options.no_warnings, "Turn off all warnings");
-        app.add_flag("--no-error-banner", compiler_options.no_error_banner, "Turn off error banner");
+        app.add_flag("--no-warnings", disable_warnings, "Turn off all warnings");
+        app.add_flag("--no-error-banner", hide_error_banner, "Turn off error banner");
         app.add_option("--backend", arg_backend, "Select a backend (llvm, cpp, x86, wasm, wasm_x86, wasm_x64)")->capture_default_str();
-        app.add_flag("--enable-bounds-checking", compiler_options.enable_bounds_checking, "Turn on index bounds checking");
+        app.add_flag("--enable-bounds-checking", compiler_options.bounds_checking, "Turn on index bounds checking");
         app.add_flag("--openmp", compiler_options.openmp, "Enable openmp");
-        app.add_flag("--fast", compiler_options.fast, "Best performance (disable strict standard compliance)");
+        app.add_flag("--fast", compiler_options.po.fast, "Best performance (disable strict standard compliance)");
         app.add_option("--target", compiler_options.target, "Generate code for the given target")->capture_default_str();
         app.add_flag("--print-targets", print_targets, "Print the registered targets");
-        app.add_flag("--get-rtlib-header-dir", print_rtlib_header_dir, "Print the path to the runtime library header file");
+        app.add_flag("--get-rtl-header-dir", print_rtl_header_dir, "Print the path to the runtime library header file");
+        app.add_flag("--get-rtl-dir", print_rtl_dir, "Print the path to the runtime library file");
+        app.add_flag("--verbose", compiler_options.po.verbose, "Print debugging statements");
+        app.add_flag("--dump-all-passes", compiler_options.po.dump_all_passes, "Apply all the passes and dump the ASR into a file");
+        app.add_flag("--dump-all-passes-fortran", compiler_options.po.dump_fortran, "Apply all passes and dump the ASR after each pass into fortran file");
+        app.add_flag("--cumulative", compiler_options.po.pass_cumulative, "Apply all the passes cumulatively till the given pass");
+        app.add_flag("--enable-cpython", compiler_options.po.enable_cpython, "Enable CPython runtime");
+        app.add_flag("--enable-symengine", compiler_options.enable_symengine, "Enable Symengine runtime");
+        app.add_flag("--link-numpy", compiler_options.link_numpy, "Enable NumPy runtime (implies --enable-cpython)");
+        app.add_flag("--separate-compilation", separate_compilation, "Generates unique names for all the symbols");
+        app.add_flag("--module-mangling", compiler_options.po.module_name_mangling, "Mangles the module name");
+        app.add_flag("--global-mangling", compiler_options.po.global_symbols_mangling, "Mangles all the global symbols");
+        app.add_flag("--intrinsic-mangling", compiler_options.po.intrinsic_symbols_mangling, "Mangles all the intrinsic symbols");
+        app.add_flag("--all-mangling", compiler_options.po.all_symbols_mangling, "Mangles all possible symbols");
 
         // LSP specific options
         app.add_flag("--show-errors", show_errors, "Show errors when LSP is running in the background");
@@ -1462,29 +1970,38 @@ int main(int argc, char *argv[])
         app.require_subcommand(0, 1);
         CLI11_PARSE(app, argc, argv);
 
-        if( compiler_options.fast && compiler_options.enable_bounds_checking ) {
+        lcompilers_unique_ID_separate_compilation = separate_compilation ? LCompilers::get_unique_ID(): "";
+
+
+        if( compiler_options.po.fast && compiler_options.bounds_checking ) {
         // ReleaseSafe Mode
-        } else if ( compiler_options.fast ) {
+        } else if ( compiler_options.po.fast ) {
         // Release Mode
-            lpython_pass_manager.use_optimization_passes();
+        // No need to do anything, compiler_options.po.fast
+        // sends the signal to pass_manager when passes are applied
+        // Earlier it was redundant to call `use_optimisation_passes`
+        // which is now removed
         } else {
         // Debug Mode
-            compiler_options.enable_bounds_checking = true;
+            compiler_options.bounds_checking = true;
+        }
+
+        if (compiler_options.link_numpy) {
+            compiler_options.po.enable_cpython = true;
+        }
+
+        if (disable_warnings) {
+            compiler_options.show_warnings = false;
+        }
+
+        if (hide_error_banner) {
+            compiler_options.show_error_banner = false;
         }
 
         if (arg_version) {
             std::string version = LFORTRAN_VERSION;
             std::cout << "LPython version: " << version << std::endl;
-            std::cout << "Platform: ";
-            switch (compiler_options.platform) {
-                case (LCompilers::Platform::Linux) : std::cout << "Linux"; break;
-                case (LCompilers::Platform::macOS_Intel) : std::cout << "macOS Intel"; break;
-                case (LCompilers::Platform::macOS_ARM) : std::cout << "macOS ARM"; break;
-                case (LCompilers::Platform::Windows) : std::cout << "Windows"; break;
-                case (LCompilers::Platform::FreeBSD) : std::cout << "FreeBSD"; break;
-                case (LCompilers::Platform::OpenBSD) : std::cout << "OpenBSD"; break;
-            }
-            std::cout << std::endl;
+            std::cout << "Platform: " << pf2s(compiler_options.platform) << std::endl;
 #ifdef HAVE_LFORTRAN_LLVM
             std::cout << "Default target: " << LCompilers::LLVMEvaluator::get_default_target_triple() << std::endl;
 #endif
@@ -1501,12 +2018,18 @@ int main(int argc, char *argv[])
 #endif
         }
 
-        if (print_rtlib_header_dir) {
-            do_print_rtlib_header_dir();
+        if (print_rtl_header_dir) {
+            do_print_rtl_header_dir();
+            return 0;
+        }
+
+        if (print_rtl_dir) {
+            do_print_rtl_dir();
             return 0;
         }
 
         compiler_options.use_colors = !arg_no_color;
+        compiler_options.indent = !arg_no_indent;
 
         // if (fmt) {
         //     return format(arg_fmt_file, arg_fmt_inplace, !arg_fmt_no_color,
@@ -1514,8 +2037,12 @@ int main(int argc, char *argv[])
         // }
 
         if (kernel) {
-            std::cerr << "The kernel subcommand is not implemented yet for LPython." << std::endl;
-            return 1;
+#ifdef HAVE_LFORTRAN_XEUS
+        return LCompilers::LPython::run_kernel(arg_kernel_f);
+#else
+        std::cerr << "The kernel subcommand requires LFortran to be compiled with XEUS support. Recompile with `WITH_XEUS=yes`." << std::endl;
+        return 1;
+#endif
         }
 
         // if (mod) {
@@ -1536,6 +2063,8 @@ int main(int argc, char *argv[])
 
         if (arg_backend == "llvm") {
             backend = Backend::llvm;
+        } else if (arg_backend == "c") {
+            backend = Backend::c;
         } else if (arg_backend == "cpp") {
             backend = Backend::cpp;
         } else if (arg_backend == "x86") {
@@ -1547,18 +2076,31 @@ int main(int argc, char *argv[])
         } else if (arg_backend == "wasm_x64") {
             backend = Backend::wasm_x64;
         } else {
-            std::cerr << "The backend must be one of: llvm, cpp, x86, wasm, wasm_x86, wasm_x64." << std::endl;
+            std::cerr << "The backend must be one of: llvm, c, cpp, x86, wasm, wasm_x86, wasm_x64." << std::endl;
             return 1;
         }
 
         if (arg_files.size() == 0) {
-            std::cerr << "Interactive prompt is not implemented yet in LPython" << std::endl;
+#ifdef HAVE_LFORTRAN_LLVM
+            lpython_pass_manager.parse_pass_arg(arg_pass, skip_pass);
+            lpython_pass_manager.use_default_passes();
+            compiler_options.po.disable_main = true;
+            compiler_options.emit_debug_line_column = false;
+            compiler_options.separate_compilation = false;
+            return interactive_python_repl(lpython_pass_manager, compiler_options, arg_v);
+#else
+            std::cerr << "Interactive prompt requires the LLVM backend to be enabled. Recompile with `WITH_LLVM=yes`." << std::endl;
             return 1;
+#endif
         }
 
         // TODO: for now we ignore the other filenames, only handle
         // the first:
         std::string arg_file = arg_files[0];
+        if (CLI::NonexistentPath(arg_file).empty()){
+            std::cerr << "The input file does not exist: " << arg_file << std::endl;
+            return 1;
+        }
 
         std::string outfile;
         std::string basename;
@@ -1584,6 +2126,10 @@ int main(int argc, char *argv[])
             outfile = basename + ".out";
         }
 
+        if (compiler_options.po.dump_fortran || compiler_options.po.dump_all_passes) {
+            dump_all_passes(arg_file, runtime_library_dir, compiler_options);
+        }
+
         // if (arg_E) {
         //     return emit_c_preprocessor(arg_file, compiler_options);
         // }
@@ -1603,7 +2149,12 @@ int main(int argc, char *argv[])
             return emit_cpp(arg_file, runtime_library_dir, compiler_options);
         }
         if (show_c) {
-            return emit_c(arg_file, runtime_library_dir, compiler_options);
+            compiler_options.po.c_mangling = true;
+            return emit_c(arg_file, runtime_library_dir, lpython_pass_manager,
+                            compiler_options);
+        }
+        if (show_python) {
+            return emit_python(arg_file, runtime_library_dir, compiler_options);
         }
         if (show_wat) {
             return emit_wat(arg_file, runtime_library_dir, compiler_options);
@@ -1650,10 +2201,10 @@ int main(int argc, char *argv[])
             }
         }
 
-        if (arg_c) {
+        if (arg_c && !to_jit) {
             if (backend == Backend::llvm) {
 #ifdef HAVE_LFORTRAN_LLVM
-                return compile_python_to_object_file(arg_file, outfile, runtime_library_dir, lpython_pass_manager, compiler_options, time_report,
+                return compile_python_using_llvm(arg_file, outfile, runtime_library_dir, lpython_pass_manager, compiler_options, time_report,
                                                      arg_c);
 #else
                 std::cerr << "The -c option requires the LLVM backend to be enabled. Recompile with `WITH_LLVM=yes`." << std::endl;
@@ -1667,6 +2218,23 @@ int main(int argc, char *argv[])
         if (endswith(arg_file, ".py"))
         {
             int err = 0;
+            if (to_jit) {
+#ifdef HAVE_LFORTRAN_LLVM
+                if (backend != Backend::llvm) {
+                    std::cerr << "JIT option is only available with LLVM backend" << std::endl;
+                    return 1;
+                }
+                compiler_options.emit_debug_info = false;
+                compiler_options.emit_debug_line_column = false;
+                compiler_options.separate_compilation = false;
+                return compile_python_using_llvm(arg_file, "", runtime_library_dir,
+                        lpython_pass_manager, compiler_options, time_report, false, true);
+#else
+                std::cerr << "Just-In-Time Compilation of Python files requires the LLVM backend to be enabled."
+                             " Recompile with `WITH_LLVM=yes`." << std::endl;
+                return 1;
+#endif
+        }
             if (backend == Backend::x86) {
                 err = compile_to_binary_x86(arg_file, outfile,
                         runtime_library_dir, compiler_options, time_report);
@@ -1676,15 +2244,22 @@ int main(int argc, char *argv[])
             } else if (backend == Backend::wasm_x86 || backend == Backend::wasm_x64) {
                 err = compile_to_binary_wasm_to_x86(arg_file, outfile,
                         runtime_library_dir, compiler_options, time_report, backend);
+            } else if (backend == Backend::c) {
+                compiler_options.po.c_mangling = true;
+                std::string emit_file_name = basename + "__tmp__generated__.c";
+                err = emit_c_to_file(arg_file, emit_file_name, runtime_library_dir,
+                                        lpython_pass_manager, compiler_options);
+                if (err != 0) return err;
+                err = link_executable({emit_file_name}, outfile, runtime_library_dir,
+                    backend, static_link, true, compiler_options, rtlib_header_dir);
             } else if (backend == Backend::llvm) {
 #ifdef HAVE_LFORTRAN_LLVM
                 std::string tmp_o = outfile + ".tmp.o";
-                err = compile_python_to_object_file(arg_file, tmp_o, runtime_library_dir,
+                err = compile_python_using_llvm(arg_file, tmp_o, runtime_library_dir,
                     lpython_pass_manager, compiler_options, time_report);
                 if (err != 0) return err;
                 err = link_executable({tmp_o}, outfile, runtime_library_dir,
-                    backend, static_link, true, compiler_options);
-                if (err != 0) return err;
+                    backend, static_link, true, compiler_options, rtlib_header_dir);
 
 #ifdef HAVE_RUNTIME_STACKTRACE
                 if (compiler_options.emit_debug_info) {
@@ -1696,14 +2271,14 @@ int main(int argc, char *argv[])
 #else
                     cmd += "llvm-dwarfdump --debug-line " + basename + ".out > ";
 #endif
-                    cmd += basename + "_ldd.txt && (cd src/bin; ./dwarf_convert.py ../../"
-                        + basename + "_ldd.txt ../../" + basename + "_lines.txt ../../"
-                        + basename + "_lines.dat && ./dat_convert.py ../../"
+                    cmd += basename + "_ldd.txt && (cd libasr/src/libasr; ./dwarf_convert.py ../../../"
+                        + basename + "_ldd.txt ../../../" + basename + "_lines.txt ../../../"
+                        + basename + "_lines.dat && ./dat_convert.py ../../../"
                         + basename + "_lines.dat)";
                     int status = system(cmd.c_str());
                     if ( status != 0 ) {
                         std::cerr << "Error in creating the files used to generate "
-                            "the debug information. This might be caused because either"
+                            "the debug information. This might be caused because either "
                             "`llvm-dwarfdump` or `Python` are not available. "
                             "Please activate the CONDA environment and compile again.\n";
                         return status;
@@ -1717,10 +2292,10 @@ int main(int argc, char *argv[])
             } else {
                 throw LCompilers::LCompilersException("Unsupported backend.");
             }
-
+            if (err != 0) return err;
             if (compiler_options.arg_o == "") {
                 if (backend == Backend::wasm) {
-                    err = system(("node " + outfile +".js").c_str());
+                    err = system(("node --experimental-wasi-unstable-preview1 " + outfile +".js").c_str());
                 } else {
                     if (compiler_options.platform == LCompilers::Platform::Windows) {
                         return system(outfile.c_str());
@@ -1739,7 +2314,7 @@ int main(int argc, char *argv[])
             return 0;
         } else {
             return link_executable(arg_files, outfile, runtime_library_dir,
-                    backend, static_link, true, compiler_options);
+                    backend, static_link, true, compiler_options, rtlib_header_dir);
         }
     } catch(const LCompilers::LCompilersException &e) {
         std::cerr << "Internal Compiler Error: Unhandled exception" << std::endl;
diff --git a/src/libasr/ASR.asdl b/src/libasr/ASR.asdl
deleted file mode 100644
index 4957571818..0000000000
--- a/src/libasr/ASR.asdl
+++ /dev/null
@@ -1,422 +0,0 @@
--- Abstract Semantic Representation (ASR) definition
-
--- The aim of ASR is to represent all semantics in a non-redundant way, and that
--- has all the semantic information available locally, so that the backend can
--- do a single pass over ASR and have all the information at hand to generate
--- code.
---
--- ASR is always semantically valid Fortran code. It is as far from the original
--- Fortran language code as possible (i.e. everything is explicitly figured out,
--- all semantic information gathered and readily available locally from each ASR
--- node), while ensuring no semantic information was lost (no lowering was
--- done), so one can still generate Fortran code from ASR that will be logically
--- equivalent to the original code.
---
--- ASR can be used to do Fortran level transformations (such as optimizations).
-
--- ASDL's builtin types are:
---   * identifier
---   * int (signed integers of infinite precision)
---   * string
--- We extend these by:
---   * bool (.true. / .false.)
---   * float (floating point number of infinite precision)
---   * symbol_table (scoped Symbol Table implementation)
---   * node (any ASR node)
---
--- Note: `symbol_table` contains `identifier` -> `symbol` mappings.
-
-module ASR {
-
-unit
-    = TranslationUnit(symbol_table global_scope, node* items)
-
--- # Documentation for the symbol type
-
--- Each symbol has either `symtab` (local symbol table) or `parent_symtab`
--- (where this symbol is stored). One can get to parent_symtab via symtab, so
--- only one is present.
-
--- Each symbol has a `name` for easy lookup of the name of the symbol when only
--- having a pointer to it.
-
--- abi=Source means the symbol's implementation is included (full ASR),
--- otherwise it is external (interface ASR, such as procedure interface).
-
--- SubroutineCall/FunctionCall store the actual final resolved subroutine or
--- function (`name` member). They also store the original symbol
--- (`original_name`), which can be one of: null, GenericProcedure or
--- ExternalSymbol.
-
--- When a module is compiled, it is parsed into full ASR, an object file is
--- produced, the full ASR (abi=Source, "body" is non-empty) is transformed into
--- interface ASR (abi=LFortran, "body" is empty). Both interface and full ASR
--- is saved into the mod file.
-
--- When a module is used, it is first looked up in the symbol table (as either
--- full or interface ASR) and used if it is present. Otherwise a mod file is
--- found on the disk, loaded (as either full or interface ASR for LFortran's
--- mod file, depending on LFortran's compiler options; or for GFortran's mod
--- file the corresponding interface ASR is constructed with abi=GFortran) and
--- used. After the ASR is loaded, the symbols that are used are represented as
--- ExternalSymbols in the current scope of the symbol table.
-
--- ExternalSymbol represents symbols that cannot be looked up in the current
--- scoped symbol table. As an example, if a variable is defined in a module,
--- but used in a nested subroutine, that is not an external symbol
--- because it can be resolved in the current symbol table (nested subroutine)
--- by following the parents. However if a symbol is used from a different
--- module, then it is an external symbol, because usual symbol resolution by
--- going to the parents will not find the definition. The `module_name` member
--- is the name of the module the symbol is in, the `scope_names` is a list of
--- names if the symbol is in a nested symbol table. For example if it is a
--- local variable in a function `f` that is nested in function `g`, then
--- `scope_names=[g, f]`.
-
--- REPL: each cell is parsed into full ASR, compiled + executed, the full ASR
--- is transformed into interface ASR (abi=LFortran) and kept in the symbol
--- table. A new cell starts with an empty symbol table, whose parent symbol
--- table is the previous cell. That allows function / declaration shadowing.
-
-
-symbol
-    = Program(symbol_table symtab, identifier name, identifier* dependencies,
-        stmt* body)
-    | Module(symbol_table symtab, identifier name, identifier* dependencies,
-        bool loaded_from_mod, bool intrinsic)
-    | Function(symbol_table symtab, identifier name, ttype function_signature,
-        identifier* dependencies, expr* args, stmt* body, expr? return_var,
-        access access, bool deterministic, bool side_effect_free)
-    | GenericProcedure(symbol_table parent_symtab, identifier name,
-        symbol* procs, access access)
-    | CustomOperator(symbol_table parent_symtab, identifier name,
-        symbol* procs, access access)
-    | ExternalSymbol(symbol_table parent_symtab, identifier name,
-        symbol external, identifier module_name, identifier* scope_names,
-        identifier original_name, access access)
-    | StructType(symbol_table symtab, identifier name, identifier* dependencies,
-        identifier* members, abi abi, access access, bool is_packed,
-        expr? alignment, symbol? parent)
-    | EnumType(symbol_table symtab, identifier name, identifier* dependencies,
-        identifier* members, abi abi, access access, enumtype enum_value_type,
-        ttype type, symbol? parent)
-    | UnionType(symbol_table symtab, identifier name, identifier* dependencies,
-        identifier* members, abi abi, access access, symbol? parent)
-    | Variable(symbol_table parent_symtab, identifier name, identifier* dependencies,
-        intent intent, expr? symbolic_value, expr? value, storage_type storage, ttype type,
-        abi abi, access access, presence presence, bool value_attr)
-    | ClassType(symbol_table symtab, identifier name, abi abi, access access)
-    | ClassProcedure(symbol_table parent_symtab, identifier name, identifier? self_argument,
-        identifier proc_name, symbol proc, abi abi)
-    | AssociateBlock(symbol_table symtab, identifier name, stmt* body)
-    | Block(symbol_table symtab, identifier name, stmt* body)
-
-storage_type = Default | Save | Parameter | Allocatable
-access = Public | Private
-intent = Local | In | Out | InOut | ReturnVar | Unspecified
-deftype = Implementation | Interface
-presence = Required | Optional
-
--- # Documentation for the ABI type
-
--- External Yes: the symbol's implementation is not part of ASR, the
--- symbol is just an interface (e.g., subroutine/function interface, or variable
--- marked as external, not allocated by this ASR).
-
--- External No:  the symbol's implementation is part of ASR (e.g.,
--- subroutine/function body is included, variables must be allocated).
-
--- abi=Source: The symbol's implementation is included in ASR, the backend is
--- free to use any ABI it wants (it might also decide to inline or eliminate
--- the code in optimizations).
-
--- abi=LFortranModule/GFortranModule/BindC: the symbol's implementation is
--- stored as machine code in some object file that needs to be linked in. It
--- uses the specified ABI (one of LFortran module, GFortran module or C ABI).
--- An interface that uses `iso_c_binding` and `bind(c)` is represented using
--- abi=BindC.
-
--- abi=Interactive: the symbol's implementation has been provided by the
--- previous REPL execution (e.g., if LLVM backend is used for the interactive
--- mode, the previous execution generated machine code for this symbol's
--- implementation that was loaded into memory). Note: this option might be
--- converted/eliminated to just use LFortran ABI in the future.
-
--- abi=Intrinsic: the symbol's implementation is implicitly provided by the
--- language itself as an intrinsic function. That means the backend is free to
--- implement it in any way it wants. The function does not have a body, it is
--- just an interface.
-
-abi                   -- External     ABI
-    = Source          --   No         Unspecified
-    | LFortranModule  --   Yes        LFortran
-    | GFortranModule  --   Yes        GFortran
-    | BindC           --   Yes        C
-    | Interactive     --   Yes        Unspecified
-    | Intrinsic       --   Yes        Unspecified
-
-
-stmt
-    = Allocate(alloc_arg* args, expr? stat, expr? errmsg, expr? source)
-    | Assign(int label, identifier variable)
-    | Assignment(expr target, expr value, stmt? overloaded)
-    | Associate(expr target, expr value)
-    | Cycle()
-    -- deallocates if allocated otherwise throws a runtime error
-    | ExplicitDeallocate(symbol* vars)
-    -- deallocates if allocated otherwise does nothing
-    | ImplicitDeallocate(symbol* vars)
-    | DoConcurrentLoop(do_loop_head head, stmt* body)
-    | DoLoop(do_loop_head head, stmt* body)
-    | ErrorStop(expr? code)
-    | Exit()
-    | ForAllSingle(do_loop_head head, stmt assign_stmt)
-        -- GoTo points to a GoToTarget with the corresponding target_id within
-        -- the same procedure. We currently use `int` IDs to link GoTo with
-        -- GoToTarget to avoid issues with serialization.
-    | GoTo(int target_id, identifier name)
-        -- An empty statement, a target of zero or more GoTo statements
-        -- the `id` is only unique within a procedure
-    | GoToTarget(int id, identifier name)
-    | If(expr test, stmt* body, stmt* orelse)
-    | IfArithmetic(expr test, int lt_label, int eq_label, int gt_label)
-    | Print(expr? fmt, expr* values, expr? separator, expr? end)
-    | FileOpen(int label, expr? newunit, expr? filename, expr? status)
-    | FileClose(int label, expr? unit, expr? iostat, expr? iomsg, expr? err, expr? status)
-    | FileRead(int label, expr? unit, expr? fmt, expr? iomsg, expr? iostat, expr? id, expr* values)
-    | FileBackspace(int label, expr? unit, expr? iostat, expr? err)
-    | FileRewind(int label, expr? unit, expr? iostat, expr? err)
-    | FileInquire(int label, expr? unit, expr? file, expr? iostat, expr? err,
-              expr? exist, expr? opened, expr? number, expr? named,
-              expr? name, expr? access, expr? sequential, expr? direct,
-              expr? form, expr? formatted, expr? unformatted, expr? recl,
-              expr? nextrec, expr? blank, expr? position, expr? action,
-              expr? read, expr? write, expr? readwrite, expr? delim,
-              expr? pad, expr? flen, expr? blocksize, expr? convert,
-              expr? carriagecontrol, expr? iolength)
-    | FileWrite(int label, expr? unit, expr? fmt, expr? iomsg, expr? iostat, expr? id, expr* values, expr? separator, expr? end)
-    | Return()
-    | Select(expr test, case_stmt* body, stmt* default)
-    | Stop(expr? code)
-    | Assert(expr test, expr? msg)
-    | SubroutineCall(symbol name, symbol? original_name, call_arg* args, expr? dt)
-    | Where(expr test, stmt* body, stmt* orelse)
-    | WhileLoop(expr test, stmt* body)
-    | Nullify(symbol* vars)
-    | Flush(int label, expr unit, expr? err, expr? iomsg, expr? iostat)
-    | ListAppend(expr a, expr ele)
-    | AssociateBlockCall(symbol m)
-    | SelectType(type_stmt* body, stmt* default)
-    | CPtrToPointer(expr cptr, expr ptr, expr? shape)
-    | BlockCall(int label, symbol m)
-    | SetInsert(expr a, expr ele)
-    | SetRemove(expr a, expr ele)
-    | ListInsert(expr a, expr pos, expr ele)
-    | ListRemove(expr a, expr ele)
-    | ListClear(expr a)
-    | DictInsert(expr a, expr key, expr value)
-
-
-expr
-    = IfExp(expr test, expr body, expr orelse, ttype type, expr? value)
-        -- Such as: (x, y+z), (3.0, 2.0) generally not known at compile time
-    | ComplexConstructor(expr re, expr im, ttype type, expr? value)
-    | NamedExpr(expr target, expr value, ttype type)
-    | FunctionCall(symbol name, symbol? original_name, call_arg* args,
-            ttype type, expr? value, expr? dt)
-    | StructTypeConstructor(symbol dt_sym, expr* args, ttype type, expr? value)
-    | EnumTypeConstructor(symbol dt_sym, expr* args, ttype type, expr? value)
-    | UnionTypeConstructor(symbol dt_sym, expr* args, ttype type, expr? value)
-    | ImpliedDoLoop(expr* values, expr var, expr start, expr end,
-                    expr? increment, ttype type, expr? value)
-    | IntegerConstant(int n, ttype type)
-    | IntegerBOZ(int v, integerboz intboz_type, ttype? type)
-    | IntegerBitNot(expr arg, ttype type, expr? value)
-    | IntegerUnaryMinus(expr arg, ttype type, expr? value)
-    | IntegerCompare(expr left, cmpop op, expr right, ttype type, expr? value)
-    | IntegerBinOp(expr left, binop op, expr right, ttype type, expr? value)
-    | RealConstant(float r, ttype type)
-    | RealUnaryMinus(expr arg, ttype type, expr? value)
-    | RealCompare(expr left, cmpop op, expr right, ttype type, expr? value)
-    | RealBinOp(expr left, binop op, expr right, ttype type, expr? value)
-    | ComplexConstant(float re, float im, ttype type)
-    | ComplexUnaryMinus(expr arg, ttype type, expr? value)
-    | ComplexCompare(expr left, cmpop op, expr right, ttype type, expr? value)
-    | ComplexBinOp(expr left, binop op, expr right, ttype type, expr? value)
-    | LogicalConstant(bool value, ttype type)
-    | LogicalNot(expr arg, ttype type, expr? value)
-    | LogicalCompare(expr left, cmpop op, expr right, ttype type, expr? value)
-    | LogicalBinOp(expr left, logicalbinop op, expr right, ttype type, expr? value)
-
-    | ListConstant(expr* args, ttype type)
-    | ListLen(expr arg, ttype type, expr? value)
-    | ListConcat(expr left, expr right, ttype type, expr? value)
-    | ListCompare(expr left, cmpop op, expr right, ttype type, expr? value)
-
-    | SetConstant(expr* elements, ttype type)
-    | SetLen(expr arg, ttype type, expr? value)
-
-    | TupleConstant(expr* elements, ttype type)
-    | TupleLen(expr arg, ttype type, expr value)
-    | TupleCompare(expr left, cmpop op, expr right, ttype type, expr? value)
-
-    | StringConstant(string s, ttype type)
-    | StringConcat(expr left, expr right, ttype type, expr? value)
-    | StringRepeat(expr left, expr right, ttype type, expr? value)
-    | StringLen(expr arg, ttype type, expr? value)
-    | StringItem(expr arg, expr idx, ttype type, expr? value)
-    | StringSection(expr arg, expr? start, expr? end, expr? step, ttype type, expr? value)
-    | StringCompare(expr left, cmpop op, expr right, ttype type, expr? value)
-    | StringOrd(expr arg, ttype type, expr? value)
-    | StringChr(expr arg, ttype type, expr? value)
-
-    | DictConstant(expr* keys, expr* values, ttype type)
-    | DictLen(expr arg, ttype type, expr? value)
-
-    | Var(symbol v)
-
-    | ArrayConstant(expr* args, ttype type, arraystorage storage_format)
-    | ArrayItem(expr v, array_index* args, ttype type, arraystorage storage_format, expr? value)
-    | ArraySection(expr v, array_index* args, ttype type, expr? value)
-    | ArraySize(expr v, expr? dim, ttype type, expr? value)
-    | ArrayBound(expr v, expr? dim, ttype type, arraybound bound,
-                 expr? value)
-    | ArrayTranspose(expr matrix, ttype type, expr? value)
-    | ArrayMatMul(expr matrix_a, expr matrix_b, ttype type, expr? value)
-    | ArrayPack(expr array, expr mask, expr? vector, ttype type, expr? value)
-    | ArrayReshape(expr array, expr shape, ttype type, expr? value)
-    | ArrayMaxloc(expr array, expr? dim, expr? mask, expr? kind, expr? back, ttype type, expr? value)
-
-    | BitCast(expr source, expr mold, expr? size, ttype type, expr? value)
-    | StructInstanceMember(expr v, symbol m, ttype type, expr? value)
-    | StructStaticMember(expr v, symbol m, ttype type, expr? value)
-    | EnumStaticMember(expr v, symbol m, ttype type, expr? value)
-    | UnionInstanceMember(expr v, symbol m, ttype type, expr? value)
-    | EnumName(expr v, ttype enum_type, ttype type, expr? value)
-    | EnumValue(expr v, ttype enum_type, ttype type, expr? value)
-    | OverloadedCompare(expr left, cmpop op, expr right, ttype type, expr? value, expr overloaded)
-    | OverloadedBinOp(expr left, binop op, expr right, ttype type, expr? value, expr overloaded)
-    | Cast(expr arg, cast_kind kind, ttype type, expr? value)
-    | ComplexRe(expr arg, ttype type, expr? value)
-    | ComplexIm(expr arg, ttype type, expr? value)
-    | DictItem(expr a, expr key, expr? default, ttype type, expr? value)
-    | CLoc(expr arg, ttype type, expr? value)
-    | PointerToCPtr(expr arg, ttype type, expr? value)
-    | GetPointer(expr arg, ttype type, expr? value)
-    | ListItem(expr a, expr pos, ttype type, expr? value)
-    | TupleItem(expr a, expr pos, ttype type, expr? value)
-    | ListSection(expr a, array_index section, ttype type, expr? value)
-    | ListPop(expr a, expr? index, ttype type, expr? value)
-    | DictPop(expr a, expr key, ttype type, expr? value)
-    | SetPop(expr a, ttype type, expr? value)
-    | IntegerBitLen(expr a, ttype type, expr? value)
-    | Ichar(expr arg, ttype type, expr? value)
-    | Iachar(expr arg, ttype type, expr? value)
-
-    | SizeOfType(ttype arg, ttype type, expr? value)
-
-    | PointerNullConstant(ttype type)
-    | PointerAssociated(expr ptr, expr? tgt, ttype type, expr? value)
-
-
--- `len` in Character:
--- >=0 ... the length of the string, known at compile time
---  -1 ... character(*), i.e., inferred at runtime
---  -2 ... character(:), allocatable (possibly we might use -1 for that also)
---  -3 ... character(n+3), i.e., a runtime expression stored in `len_expr`
-
--- kind: The `kind` member selects the kind of a given type. We currently
--- support the following:
--- Integer kinds: 1 (i8), 2 (i16), 4 (i32), 8 (i64)
--- Real kinds: 4 (f32), 8 (f64)
--- Complex kinds: 4 (c32), 8 (c64)
--- Character kinds: 1 (utf8 string)
--- Logical kinds: 1, 2, 4: (boolean represented by 1, 2, 4 bytes; the default
---     kind is 4, just like the default integer kind, consistent with Python
---     and Fortran: in Python "Booleans in Python are implemented as a subclass
---     of integers", in Fortran the "default logical kind has the same storage
---     size as the default integer"; we currently use kind=4 as default
---     integer, so we also use kind=4 for the default logical.)
-
-ttype
-    = Integer(int kind, dimension* dims)
-    | Real(int kind, dimension* dims)
-    | Complex(int kind, dimension* dims)
-    | Character(int kind, int len, expr? len_expr, dimension* dims)
-    | Logical(int kind, dimension* dims)
-    | Set(ttype type)
-    | List(ttype type)
-    | Tuple(ttype* type)
-    | Struct(symbol derived_type, dimension* dims)
-    | Enum(symbol enum_type, dimension *dims)
-    | Union(symbol union_type, dimension *dims)
-    | Class(symbol class_type, dimension* dims)
-    | Dict(ttype key_type, ttype value_type)
-    | Pointer(ttype type)
-    | Const(ttype type)
-    | CPtr()
-    | TypeParameter(identifier param, dimension* dims)
-    | FunctionType(ttype* arg_types, ttype? return_var_type,
-         abi abi, deftype deftype, string? bindc_name, bool elemental,
-         bool pure, bool module, bool inline, bool static, ttype* type_params,
-         symbol* restrictions, bool is_restriction)
-
-restriction_arg = RestrictionArg(identifier restriction_name, symbol restriction_func)
-
-binop = Add | Sub | Mul | Div | Pow | BitAnd | BitOr | BitXor | BitLShift | BitRShift
-
-logicalbinop = And | Or | Xor | NEqv | Eqv
-
-cmpop = Eq | NotEq | Lt | LtE | Gt | GtE
-
-integerboz = Binary | Hex | Octal
-
-arraybound = LBound | UBound
-
-arraystorage = RowMajor | ColMajor
-
-cast_kind
-    = RealToInteger
-    | IntegerToReal
-    | LogicalToReal
-    | RealToReal
-    | IntegerToInteger
-    | RealToComplex
-    | IntegerToComplex
-    | IntegerToLogical
-    | RealToLogical
-    | CharacterToLogical
-    | CharacterToInteger
-    | CharacterToList
-    | ComplexToLogical
-    | ComplexToComplex
-    | ComplexToReal
-    | ComplexToInteger
-    | LogicalToInteger
-    | RealToCharacter
-    | IntegerToCharacter
-    | LogicalToCharacter
-
-dimension = (expr? start, expr? length)
-
-alloc_arg = (symbol a, dimension* dims)
-
-attribute = Attribute(identifier name, attribute_arg *args)
-
-attribute_arg = (identifier arg)
-
-call_arg = (expr? value)
-
-tbind = Bind(string lang, string name)
-
-array_index = (expr? left, expr? right, expr? step)
-
-do_loop_head = (expr? v, expr? start, expr? end, expr? increment)
-
-case_stmt = CaseStmt(expr* test, stmt* body) | CaseStmt_Range(expr? start, expr? end, stmt* body)
-
-type_stmt = TypeStmt(symbol sym, stmt* body)
-
-enumtype = IntegerConsecutiveFromZero | IntegerUnique | IntegerNotUnique | NonInteger
-
-}
diff --git a/src/libasr/CMakeLists.txt b/src/libasr/CMakeLists.txt
deleted file mode 100644
index bb11494283..0000000000
--- a/src/libasr/CMakeLists.txt
+++ /dev/null
@@ -1,103 +0,0 @@
-cmake_minimum_required(VERSION 3.10)
-
-project(libasr)
-
-if (NOT CMAKE_CXX_STANDARD)
-    set(CMAKE_CXX_STANDARD 17
-        CACHE STRING "C++ standard" FORCE)
-endif ()
-
-if (NOT LFORTRAN_VERSION)
-    set(LFORTRAN_VERSION "0.1-git"
-        CACHE STRING "LFortran version" FORCE)
-endif ()
-
-configure_file(config.h.in config.h)
-
-set(SRC
-    codegen/asr_to_cpp.cpp
-    codegen/asr_to_c.cpp
-    codegen/asr_to_julia.cpp
-    codegen/asr_to_py.cpp
-    codegen/x86_assembler.cpp
-    codegen/asr_to_x86.cpp
-    codegen/asr_to_wasm.cpp
-    codegen/wasm_to_wat.cpp
-    codegen/wasm_to_x86.cpp
-    codegen/wasm_to_x64.cpp
-    codegen/wasm_utils.cpp
-
-    pass/param_to_const.cpp
-    pass/do_loops.cpp
-    pass/for_all.cpp
-    pass/global_stmts.cpp
-    pass/global_stmts_program.cpp
-    pass/select_case.cpp
-    pass/implied_do_loops.cpp
-    pass/array_op.cpp
-    pass/subroutine_from_function.cpp
-    pass/class_constructor.cpp
-    pass/arr_slice.cpp
-    pass/print_arr.cpp
-    pass/print_list.cpp
-    pass/pass_utils.cpp
-    pass/unused_functions.cpp
-    pass/flip_sign.cpp
-    pass/div_to_mul.cpp
-    pass/fma.cpp
-    pass/loop_vectorise.cpp
-    pass/sign_from_value.cpp
-    pass/inline_function_calls.cpp
-    pass/loop_unroll.cpp
-    pass/dead_code_removal.cpp
-    pass/instantiate_template.cpp
-    pass/update_array_dim_intrinsic_calls.cpp
-    pass/pass_array_by_data.cpp
-    pass/pass_list_expr.cpp
-    pass/pass_compare.cpp
-
-    asr_verify.cpp
-    asr_utils.cpp
-    diagnostics.cpp
-    stacktrace.cpp
-    string_utils.cpp
-    asr_scopes.cpp
-    modfile.cpp
-    serialization.cpp
-    utils2.cpp
-)
-if (WITH_LLVM)
-    set(SRC ${SRC}
-        codegen/evaluator.cpp
-        codegen/asr_to_llvm.cpp
-        codegen/llvm_array_utils.cpp
-        codegen/llvm_utils.cpp
-        pass/nested_vars.cpp
-    )
-    # We use deprecated API in LLVM, so we disable the warning until we upgrade
-    if (NOT MSVC)
-        set_source_files_properties(codegen/evaluator.cpp PROPERTIES
-            COMPILE_FLAGS -Wno-deprecated-declarations)
-        set_source_files_properties(codegen/asr_to_llvm.cpp PROPERTIES
-            COMPILE_FLAGS -Wno-deprecated-declarations)
-        set_source_files_properties(codegen/llvm_array_utils.cpp PROPERTIES
-            COMPILE_FLAGS -Wno-deprecated-declarations)
-        set_source_files_properties(codegen/llvm_utils.cpp PROPERTIES
-            COMPILE_FLAGS -Wno-deprecated-declarations)
-    endif()
-endif()
-add_library(asr ${SRC})
-target_include_directories(asr BEFORE PUBLIC ${libasr_SOURCE_DIR}/..)
-target_include_directories(asr BEFORE PUBLIC ${libasr_BINARY_DIR}/..)
-if (WITH_BFD)
-    target_link_libraries(asr p::bfd)
-endif()
-if (WITH_LINK)
-    target_link_libraries(asr p::link)
-endif()
-if (WITH_EXECINFO)
-    target_link_libraries(asr p::execinfo)
-endif()
-if (WITH_LLVM)
-    target_link_libraries(asr p::llvm)
-endif()
diff --git a/src/libasr/alloc.h b/src/libasr/alloc.h
deleted file mode 100644
index 76588a2884..0000000000
--- a/src/libasr/alloc.h
+++ /dev/null
@@ -1,118 +0,0 @@
-#ifndef LFORTRAN_PARSER_ALLOC_H
-#define LFORTRAN_PARSER_ALLOC_H
-
-#include <algorithm>
-#include <cstdlib>
-#include <new>
-#include <stdexcept>
-#include <vector>
-
-#include <libasr/assert.h>
-
-#define ALIGNMENT 8
-
-inline size_t align(size_t n) {
-  return (n + ALIGNMENT - 1) & ~(ALIGNMENT - 1);
-}
-
-class Allocator
-{
-    void *start;
-    size_t current_pos;
-    size_t size;
-    std::vector<void*> blocks;
-public:
-    Allocator(size_t s) {
-        s += ALIGNMENT;
-        start = malloc(s);
-        if (start == nullptr) throw std::runtime_error("malloc failed.");
-        current_pos = (size_t)start;
-        current_pos = align(current_pos);
-        size = s;
-        blocks.push_back(start);
-    }
-    Allocator() = delete;
-    Allocator(const Allocator&) = delete;
-    Allocator& operator=(const Allocator&) = delete;
-    Allocator(const Allocator&&) = delete;
-    Allocator& operator=(const Allocator&&) = delete;
-    ~Allocator() {
-        for (size_t i = 0; i < blocks.size(); i++) {
-            if (blocks[i] != nullptr) free(blocks[i]);
-        }
-    }
-
-    // Allocates `s` bytes of memory, returns a pointer to it
-    void *alloc(size_t s) {
-        // For good performance, the code inside of `try` must be very short, as
-        // it will get inlined. One could just `return new_chunk(s)` instead of
-        // `throw std::bad_alloc()`, but a parsing benchmark gets about 2% or 3%
-        // slower. Even though it is never executed for the benchmark, the extra
-        // machine code makes the overall benchmark slower. One would have to
-        // force new_chunk() not to get inlined, but there is no standard way of
-        // doing it. This try/catch approach effectively achieves the same using
-        // standard C++.
-        try {
-            LCOMPILERS_ASSERT(start != nullptr);
-            size_t addr = current_pos;
-            current_pos += align(s);
-            if (size_current() > size_total()) throw std::bad_alloc();
-            return (void*)addr;
-        } catch (const std::bad_alloc &e) {
-            return new_chunk(s);
-        }
-    }
-
-    void *new_chunk(size_t s) {
-        size_t snew = std::max(s+ALIGNMENT, 2*size);
-        start = malloc(snew);
-        blocks.push_back(start);
-        if (start == nullptr) {
-            throw std::runtime_error("malloc failed.");
-        }
-        current_pos = (size_t)start;
-        current_pos = align(current_pos);
-        size = snew;
-
-        size_t addr = current_pos;
-        current_pos += align(s);
-
-        LCOMPILERS_ASSERT(size_current() <= size_total());
-        return (void*)addr;
-    }
-
-    // Allocates `n` elements of type T, returns the pointer T* to the first
-    // element
-    template <typename T> T* allocate(size_t n=1) {
-        return (T *)alloc(sizeof(T) * n);
-    }
-
-    // Just like `new`, but using Allocator
-    // The following two examples both construct the same instance MyInt(5),
-    // but first uses the default C++ allocator, while the second uses
-    // Allocator:
-    //
-    //     MyInt *n = new MyInt(5);          // Default C++ allocator
-    //
-    //     Allocator al(1024);
-    //     MyInt *n = al.make_new<MyInt>(5); // Allocator
-    template <typename T, typename... Args> T* make_new(Args &&... args) {
-        return new(alloc(sizeof(T))) T(std::forward<Args>(args)...);
-        // To test the default "new", comment the above and uncomment this:
-        //return new T(std::forward<Args>(args)...);
-    }
-
-    size_t size_current() {
-        return current_pos - (size_t)start;
-    }
-
-    size_t size_total() {
-        return size;
-    }
-
-    size_t num_chunks() {
-        return blocks.size();
-    }
-};
-
-#endif
diff --git a/src/libasr/asdl.py b/src/libasr/asdl.py
deleted file mode 100644
index 221f19312e..0000000000
--- a/src/libasr/asdl.py
+++ /dev/null
@@ -1,375 +0,0 @@
-#-------------------------------------------------------------------------------
-# Parser for ASDL [1] definition files. Reads in an ASDL description and parses
-# it into an AST that describes it.
-#
-# The EBNF we're parsing here: Figure 1 of the paper [1]. Extended to support
-# modules and attributes after a product. Words starting with Capital letters
-# are terminals. Literal tokens are in "double quotes". Others are
-# non-terminals. Id is either TokenId or ConstructorId.
-#
-# module        ::= "module" Id "{" [definitions] "}"
-# definitions   ::= { TypeId "=" type }
-# type          ::= product | sum
-# product       ::= fields ["attributes" fields]
-# fields        ::= "(" { field, "," } field ")"
-# field         ::= TypeId ["?" | "*"] [Id]
-# sum           ::= constructor { "|" constructor } ["attributes" fields]
-# constructor   ::= ConstructorId [fields]
-#
-# [1] "The Zephyr Abstract Syntax Description Language" by Wang, et. al. See
-#     http://asdl.sourceforge.net/
-#-------------------------------------------------------------------------------
-from collections import namedtuple
-import re
-
-__all__ = [
-    'builtin_types', 'parse', 'AST', 'Module', 'Type', 'Constructor',
-    'Field', 'Sum', 'Product', 'VisitorBase', 'Check', 'check']
-
-# The following classes define nodes into which the ASDL description is parsed.
-# Note: this is a "meta-AST". ASDL files (such as Python.asdl) describe the AST
-# structure used by a programming language. But ASDL files themselves need to be
-# parsed. This module parses ASDL files and uses a simple AST to represent them.
-# See the EBNF at the top of the file to understand the logical connection
-# between the various node types.
-
-builtin_types = {'identifier', 'string', 'int', 'bool', 'float', 'node', 'symbol_table'}
-
-class AST:
-    def __repr__(self):
-        raise NotImplementedError
-
-class Module(AST):
-    def __init__(self, name, dfns):
-        self.name = name
-        self.dfns = dfns
-        self.types = {type.name: type.value for type in dfns}
-
-    def __repr__(self):
-        return 'Module({0.name}, {0.dfns})'.format(self)
-
-class Type(AST):
-    def __init__(self, name, value):
-        self.name = name
-        self.value = value
-
-    def __repr__(self):
-        return 'Type({0.name}, {0.value})'.format(self)
-
-class Constructor(AST):
-    def __init__(self, name, fields=None):
-        self.name = name
-        self.fields = fields or []
-
-    def __repr__(self):
-        return 'Constructor({0.name}, {0.fields})'.format(self)
-
-class Field(AST):
-    def __init__(self, type, name=None, seq=False, opt=False):
-        self.type = type
-        self.name = name
-        self.seq = seq
-        self.opt = opt
-
-    def __repr__(self):
-        if self.seq:
-            extra = ", seq=True"
-        elif self.opt:
-            extra = ", opt=True"
-        else:
-            extra = ""
-        if self.name is None:
-            return 'Field({0.type}{1})'.format(self, extra)
-        else:
-            return 'Field({0.type}, {0.name}{1})'.format(self, extra)
-
-class Sum(AST):
-    def __init__(self, types, attributes=None):
-        self.types = types
-        self.attributes = attributes or []
-
-    def __repr__(self):
-        if self.attributes:
-            return 'Sum({0.types}, {0.attributes})'.format(self)
-        else:
-            return 'Sum({0.types})'.format(self)
-
-class Product(AST):
-    def __init__(self, fields, attributes=None):
-        self.fields = fields
-        self.attributes = attributes or []
-
-    def __repr__(self):
-        if self.attributes:
-            return 'Product({0.fields}, {0.attributes})'.format(self)
-        else:
-            return 'Product({0.fields})'.format(self)
-
-# A generic visitor for the meta-AST that describes ASDL. This can be used by
-# emitters. Note that this visitor does not provide a generic visit method, so a
-# subclass needs to define visit methods from visitModule to as deep as the
-# interesting node.
-# We also define a Check visitor that makes sure the parsed ASDL is well-formed.
-
-class VisitorBase(object):
-    """Generic tree visitor for ASTs."""
-    def __init__(self):
-        self.cache = {}
-
-    def visit(self, obj, *args):
-        klass = obj.__class__
-        meth = self.cache.get(klass)
-        if meth is None:
-            methname = "visit" + klass.__name__
-            meth = getattr(self, methname, None)
-            self.cache[klass] = meth
-        if meth:
-            try:
-                meth(obj, *args)
-            except Exception as e:
-                print("Error visiting %r: %s" % (obj, e))
-                raise
-
-class Check(VisitorBase):
-    """A visitor that checks a parsed ASDL tree for correctness.
-
-    Errors are printed and accumulated.
-    """
-    def __init__(self):
-        super(Check, self).__init__()
-        self.cons = {}
-        self.errors = 0
-        self.types = {}
-
-    def visitModule(self, mod):
-        for dfn in mod.dfns:
-            self.visit(dfn)
-
-    def visitType(self, type):
-        self.visit(type.value, str(type.name))
-
-    def visitSum(self, sum, name):
-        for t in sum.types:
-            self.visit(t, name)
-
-    def visitConstructor(self, cons, name):
-        key = str(cons.name)
-        conflict = self.cons.get(key)
-        if conflict is None:
-            self.cons[key] = name
-        else:
-            print('Redefinition of constructor {}'.format(key))
-            print('Defined in {} and {}'.format(conflict, name))
-            self.errors += 1
-        for f in cons.fields:
-            self.visit(f, key)
-
-    def visitField(self, field, name):
-        key = str(field.type)
-        l = self.types.setdefault(key, [])
-        l.append(name)
-
-    def visitProduct(self, prod, name):
-        for f in prod.fields:
-            self.visit(f, name)
-
-def check(mod):
-    """Check the parsed ASDL tree for correctness.
-
-    Return True if success. For failure, the errors are printed out and False
-    is returned.
-    """
-    v = Check()
-    v.visit(mod)
-
-    for t in v.types:
-        if t not in mod.types and not t in builtin_types:
-            v.errors += 1
-            uses = ", ".join(v.types[t])
-            print('Undefined type {}, used in {}'.format(t, uses))
-    return not v.errors
-
-# The ASDL parser itself comes next. The only interesting external interface
-# here is the top-level parse function.
-
-def parse(filename):
-    """Parse ASDL from the given file and return a Module node describing it."""
-    with open(filename) as f:
-        parser = ASDLParser()
-        return parser.parse(f.read())
-
-# Types for describing tokens in an ASDL specification.
-class TokenKind:
-    """TokenKind is provides a scope for enumerated token kinds."""
-    (ConstructorId, TypeId, Equals, Comma, Question, Pipe, Asterisk,
-     LParen, RParen, LBrace, RBrace) = range(11)
-
-    operator_table = {
-        '=': Equals, ',': Comma,    '?': Question, '|': Pipe,    '(': LParen,
-        ')': RParen, '*': Asterisk, '{': LBrace,   '}': RBrace}
-
-Token = namedtuple('Token', 'kind value lineno')
-
-class ASDLSyntaxError(Exception):
-    def __init__(self, msg, lineno=None):
-        self.msg = msg
-        self.lineno = lineno or '<unknown>'
-
-    def __str__(self):
-        return 'Syntax error on line {0.lineno}: {0.msg}'.format(self)
-
-def tokenize_asdl(buf):
-    """Tokenize the given buffer. Yield Token objects."""
-    for lineno, line in enumerate(buf.splitlines(), 1):
-        for m in re.finditer(r'\s*(\w+|--.*|.)', line.strip()):
-            c = m.group(1)
-            if c[0].isalpha():
-                # Some kind of identifier
-                if c[0].isupper():
-                    yield Token(TokenKind.ConstructorId, c, lineno)
-                else:
-                    yield Token(TokenKind.TypeId, c, lineno)
-            elif c[:2] == '--':
-                # Comment
-                break
-            else:
-                # Operators
-                try:
-                    op_kind = TokenKind.operator_table[c]
-                except KeyError:
-                    raise ASDLSyntaxError('Invalid operator %s' % c, lineno)
-                yield Token(op_kind, c, lineno)
-
-class ASDLParser:
-    """Parser for ASDL files.
-
-    Create, then call the parse method on a buffer containing ASDL.
-    This is a simple recursive descent parser that uses tokenize_asdl for the
-    lexing.
-    """
-    def __init__(self):
-        self._tokenizer = None
-        self.cur_token = None
-
-    def parse(self, buf):
-        """Parse the ASDL in the buffer and return an AST with a Module root.
-        """
-        self._tokenizer = tokenize_asdl(buf)
-        self._advance()
-        return self._parse_module()
-
-    def _parse_module(self):
-        if self._at_keyword('module'):
-            self._advance()
-        else:
-            raise ASDLSyntaxError(
-                'Expected "module" (found {})'.format(self.cur_token.value),
-                self.cur_token.lineno)
-        name = self._match(self._id_kinds)
-        self._match(TokenKind.LBrace)
-        defs = self._parse_definitions()
-        self._match(TokenKind.RBrace)
-        return Module(name, defs)
-
-    def _parse_definitions(self):
-        defs = []
-        while self.cur_token.kind == TokenKind.TypeId:
-            typename = self._advance()
-            self._match(TokenKind.Equals)
-            type = self._parse_type()
-            defs.append(Type(typename, type))
-        return defs
-
-    def _parse_type(self):
-        if self.cur_token.kind == TokenKind.LParen:
-            # If we see a (, it's a product
-            return self._parse_product()
-        else:
-            # Otherwise it's a sum. Look for ConstructorId
-            sumlist = [Constructor(self._match(TokenKind.ConstructorId),
-                                   self._parse_optional_fields())]
-            while self.cur_token.kind  == TokenKind.Pipe:
-                # More constructors
-                self._advance()
-                sumlist.append(Constructor(
-                                self._match(TokenKind.ConstructorId),
-                                self._parse_optional_fields()))
-            return Sum(sumlist, self._parse_optional_attributes())
-
-    def _parse_product(self):
-        return Product(self._parse_fields(), self._parse_optional_attributes())
-
-    def _parse_fields(self):
-        fields = []
-        self._match(TokenKind.LParen)
-        while self.cur_token.kind == TokenKind.TypeId:
-            typename = self._advance()
-            is_seq, is_opt = self._parse_optional_field_quantifier()
-            id = (self._advance() if self.cur_token.kind in self._id_kinds
-                                  else None)
-            fields.append(Field(typename, id, seq=is_seq, opt=is_opt))
-            if self.cur_token.kind == TokenKind.RParen:
-                break
-            elif self.cur_token.kind == TokenKind.Comma:
-                self._advance()
-        self._match(TokenKind.RParen)
-        return fields
-
-    def _parse_optional_fields(self):
-        if self.cur_token.kind == TokenKind.LParen:
-            return self._parse_fields()
-        else:
-            return None
-
-    def _parse_optional_attributes(self):
-        if self._at_keyword('attributes'):
-            self._advance()
-            return self._parse_fields()
-        else:
-            return None
-
-    def _parse_optional_field_quantifier(self):
-        is_seq, is_opt = False, False
-        if self.cur_token.kind == TokenKind.Asterisk:
-            is_seq = True
-            self._advance()
-        elif self.cur_token.kind == TokenKind.Question:
-            is_opt = True
-            self._advance()
-        return is_seq, is_opt
-
-    def _advance(self):
-        """ Return the value of the current token and read the next one into
-            self.cur_token.
-        """
-        cur_val = None if self.cur_token is None else self.cur_token.value
-        try:
-            self.cur_token = next(self._tokenizer)
-        except StopIteration:
-            self.cur_token = None
-        return cur_val
-
-    _id_kinds = (TokenKind.ConstructorId, TokenKind.TypeId)
-
-    def _match(self, kind):
-        """The 'match' primitive of RD parsers.
-
-        * Verifies that the current token is of the given kind (kind can
-          be a tuple, in which the kind must match one of its members).
-        * Returns the value of the current token
-        * Reads in the next token
-        """
-        if (isinstance(kind, tuple) and self.cur_token.kind in kind or
-            self.cur_token.kind == kind
-            ):
-            value = self.cur_token.value
-            self._advance()
-            return value
-        else:
-            raise ASDLSyntaxError(
-                'Unmatched {} (found {})'.format(kind, self.cur_token.kind),
-                self.cur_token.lineno)
-
-    def _at_keyword(self, keyword):
-        return (self.cur_token.kind == TokenKind.TypeId and
-                self.cur_token.value == keyword)
diff --git a/src/libasr/asdl_cpp.py b/src/libasr/asdl_cpp.py
deleted file mode 100644
index 05d93a7e1a..0000000000
--- a/src/libasr/asdl_cpp.py
+++ /dev/null
@@ -1,2567 +0,0 @@
-"""
-Generate C++ AST node definitions from an ASDL description.
-"""
-
-import sys
-import os
-import asdl
-
-
-class ASDLVisitor(asdl.VisitorBase):
-
-    def __init__(self, stream, data):
-        super(ASDLVisitor, self).__init__()
-        self.stream = stream
-        self.data = data
-
-    def visitModule(self, mod, *args):
-        for df in mod.dfns:
-            self.visit(df, *args)
-
-    def visitSum(self, sum, *args):
-        for tp in sum.types:
-            self.visit(tp, *args)
-
-    def visitType(self, tp, *args):
-        self.visit(tp.value, *args)
-
-    def visitProduct(self, prod, *args):
-        for field in prod.fields:
-            self.visit(field, *args)
-
-    def visitConstructor(self, cons, *args):
-        for field in cons.fields:
-            self.visit(field, *args)
-
-    def visitField(self, field, *args):
-        pass
-
-    def emit(self, line, level=0):
-        indent = "    "*level
-        self.stream.write(indent + line + "\n")
-
-
-def is_simple_sum(sum):
-    """
-    Returns true if `sum` is a simple sum.
-
-    Example of a simple sum:
-
-        boolop = And | Or
-
-    Example of not a simple sum:
-
-        type
-            = Integer(int kind)
-            | Real(int kind)
-
-    """
-    assert isinstance(sum, asdl.Sum)
-    for constructor in sum.types:
-        if constructor.fields:
-            return False
-    return True
-
-def attr_to_args(attrs):
-    args = []
-    for attr in attrs:
-        kw = ""
-        if attr.type == "int":
-            if attr.name in ["lineno", "col_offset"]:
-                kw = "=1"
-            else:
-                kw = "=0"
-        elif attr.type in ["string", "identifier"]:
-            kw = '=None'
-        elif attr.seq:
-            kw = "=[]"
-        else:
-            kw = "=None"
-        args.append(attr.name + kw)
-    return ", ".join(args)
-
-simple_sums = []
-sums = []
-products = []
-subs = {}
-
-def convert_type(asdl_type, seq, opt, mod_name):
-    if asdl_type in simple_sums:
-        type_ = asdl_type + "Type"
-        assert not seq
-    elif asdl_type == "string":
-        type_ = "char*"
-        assert not seq
-    elif asdl_type == "identifier":
-        type_ = "char*"
-        if seq:
-            # List of strings is **
-            type_ = type_ + "*"
-    elif asdl_type == "bool":
-        type_ = "bool"
-        assert not seq
-    elif asdl_type == "float":
-        type_ = "double"
-        assert not seq
-    elif asdl_type == "node":
-        type_ = "%s_t*" % mod_name
-        if seq:
-            type_ = type_ + "*"
-    elif asdl_type == "symbol_table":
-        type_ = "SymbolTable*"
-    elif asdl_type == "int":
-        type_ = "int64_t"
-        assert not seq
-    else:
-        type_ = asdl_type + "_t"
-        if asdl_type in products:
-            # Product type
-            # Not a pointer by default
-            if seq or opt:
-                # Sequence or an optional argument must be a pointer
-                type_ = type_ + "*"
-        else:
-            # Sum type
-            # Sum type is polymorphic, must be a pointer
-            type_ = type_ + "*"
-            if seq:
-                # Sequence of polymorphic types must be a double pointer
-                type_ = type_ + "*"
-    return type_
-
-class CollectVisitor(ASDLVisitor):
-
-    def visitType(self, tp):
-        self.visit(tp.value, tp.name)
-
-    def visitSum(self, sum, base):
-        if not is_simple_sum(sum):
-            sums.append(base);
-
-class ASTNodeVisitor0(ASDLVisitor):
-
-    def visitModule(self, mod):
-        self.emit("/" + "*"*78 + "/")
-        self.emit("// Forward declarations")
-        self.emit("")
-        super(ASTNodeVisitor0, self).visitModule(mod)
-
-    def visitType(self, tp):
-        self.visit(tp.value, tp.name)
-
-    def visitSum(self, sum, base):
-        if is_simple_sum(sum):
-            simple_sums.append(base)
-            self.emit("enum %sType // Simple Sum" % base)
-            self.emit("{ // Types");
-            s = [cons.name for cons in sum.types]
-            self.emit(    ", ".join(s), 1)
-            self.emit("};");
-        else:
-            self.emit("struct %s_t; // Sum" % base)
-
-    def visitProduct(self, product, name):
-        products.append(name)
-        self.emit("struct %s_t; // Product" % name)
-
-
-class ASTNodeVisitor1(ASDLVisitor):
-
-    def visitModule(self, mod):
-        self.emit("/" + "*"*78 + "/")
-        self.emit("// Products declarations")
-        self.emit("")
-        self.mod = mod
-        super(ASTNodeVisitor1, self).visitModule(mod)
-
-    def visitType(self, tp):
-        self.visit(tp.value, tp.name)
-
-    def visitProduct(self, product, name):
-        self.emit("struct %s_t // Product" % name)
-        self.emit("{");
-        self.emit(    "Location loc;", 1);
-        for f in product.fields:
-            type_ = convert_type(f.type, f.seq, f.opt, self.mod.name.lower())
-            if f.seq:
-                seq = " size_t n_%s; // Sequence" % f.name
-            else:
-                seq = ""
-            self.emit("%s m_%s;%s" % (type_, f.name, seq), 1)
-        self.emit("};");
-
-
-class ASTNodeVisitor(ASDLVisitor):
-
-    def visitModule(self, mod):
-        self.emit("/" + "*"*78 + "/")
-        self.emit("// Sums declarations")
-        self.emit("")
-        self.mod = mod
-        super(ASTNodeVisitor, self).visitModule(mod)
-
-    def visitType(self, tp):
-        self.visit(tp.value, tp.name)
-
-    def visitSum(self, sum, base):
-        if not is_simple_sum(sum):
-            self.emit("enum %sType // Types" % base)
-            self.emit("{");
-            s = [cons.name for cons in sum.types]
-            self.emit(    ", ".join(s), 1)
-            self.emit("};");
-            self.emit("")
-            self.emit("struct %s_t // Sum" % base)
-            self.emit("{")
-            mod = subs["mod"]
-            self.emit(    "const static %sType class_type = %sType::%s;" \
-                    % (mod, mod, base), 1)
-            self.emit(    "%(mod)s_t base;" % subs, 1)
-            self.emit(    "%sType type;" % base, 1)
-            self.emit("};")
-            self.emit("")
-            for cons in sum.types:
-                self.visit(cons, base, sum.attributes)
-            self.emit("")
-            self.emit("")
-
-    def visitConstructor(self, cons, base, extra_attributes):
-        self.emit("struct %s_t // Constructor" % cons.name, 1)
-        self.emit("{", 1);
-        self.emit(    "const static %sType class_type = %sType::%s;" \
-                % (base, base, cons.name), 2)
-        self.emit(    "typedef %s_t parent_type;" % base, 2)
-        self.emit(    "%s_t base;" % base, 2);
-        args = ["Allocator &al", "const Location &a_loc"]
-        lines = []
-        for f in cons.fields:
-            type_ = convert_type(f.type, f.seq, f.opt, self.mod.name.lower())
-            if f.seq:
-                seq = " size_t n_%s; // Sequence" % f.name
-            else:
-                seq = ""
-            self.emit("%s m_%s;%s" % (type_, f.name, seq), 2)
-            args.append("%s a_%s" % (type_, f.name))
-            lines.append("n->m_%s = a_%s;" % (f.name, f.name))
-            if f.name in ["global_scope", "symtab"]:
-                lines.append("a_%s->asr_owner = (asr_t*)n;" % (f.name))
-            if f.seq:
-                args.append("size_t n_%s" % (f.name))
-                lines.append("n->n_%s = n_%s;" % (f.name, f.name))
-        self.emit("};", 1)
-        self.emit("static inline %s_t* make_%s_t(%s) {" % (subs["mod"],
-            cons.name, ", ".join(args)), 1)
-        self.emit(    "%s_t *n;" % cons.name, 2)
-        self.emit(    "n = al.make_new<%s_t>();" % cons.name, 2)
-        self.emit(    "n->base.type = %sType::%s;" % (base, cons.name), 2)
-        self.emit(    "n->base.base.type = %sType::%s;" % (subs["mod"],
-            base), 2)
-        self.emit(    "n->base.base.loc = a_loc;", 2)
-        for line in lines:
-            self.emit(line, 2)
-        self.emit(    "return (%(mod)s_t*)n;" % subs, 2)
-        self.emit("}", 1)
-        self.emit("")
-
-class ASTVisitorVisitor1(ASDLVisitor):
-
-    def visitModule(self, mod):
-        self.emit("/" + "*"*78 + "/")
-        self.emit("// Visitor functions")
-        self.emit("")
-        super(ASTVisitorVisitor1, self).visitModule(mod)
-
-    def visitType(self, tp):
-        self.visit(tp.value, tp.name)
-
-    def visitSum(self, sum, base):
-        if not is_simple_sum(sum):
-            self.emit("template <class Visitor>")
-            self.emit("static void visit_%s_t(const %s_t &x, Visitor &v) {" \
-                    % (base, base))
-            self.emit(    "LCOMPILERS_ASSERT(x.base.type == %sType::%s)" \
-                    % (subs["mod"], base), 1)
-            self.emit(    "switch (x.type) {", 1)
-            for type_ in sum.types:
-                self.emit("        case %sType::%s: { v.visit_%s((const %s_t &)x);"
-                    " return; }" % (base, type_.name, type_.name, type_.name))
-            self.emit("    }")
-            self.emit("}")
-            self.emit("")
-
-class ASTVisitorVisitor1b(ASDLVisitor):
-
-    def visitModule(self, mod):
-        self.emit("template <class Visitor>")
-        self.emit("static void visit_%(mod)s_t(const %(mod)s_t &x, Visitor &v) {" % subs)
-        self.emit("    switch (x.type) {")
-        for type_ in sums:
-            self.emit("        case %sType::%s: { v.visit_%s((const %s_t &)x);"
-                " return; }" % (subs["mod"], type_, type_, type_))
-        self.emit("    }")
-        self.emit("}")
-        self.emit("")
-
-class ASTVisitorVisitor2(ASDLVisitor):
-
-    def visitModule(self, mod):
-        self.emit("/" + "*"*78 + "/")
-        self.emit("// Visitor base class")
-        self.emit("")
-        self.emit("template <class Struct>")
-        self.emit("class BaseVisitor")
-        self.emit("{")
-        self.emit("private:")
-        self.emit("    Struct& self() { return static_cast<Struct&>(*this); }")
-        self.emit("public:")
-        self.emit(    "void visit_%(mod)s(const %(mod)s_t &b) { visit_%(mod)s_t(b, self()); }" % subs, 1)
-        super(ASTVisitorVisitor2, self).visitModule(mod)
-        self.emit("};")
-
-    def visitType(self, tp):
-        self.visit(tp.value, tp.name)
-
-    def visitSum(self, sum, base):
-        if not is_simple_sum(sum):
-            self.emit("void visit_%s(const %s_t &b) { visit_%s_t(b, self()); }"\
-                    % (base, base, base), 1)
-            for type_ in sum.types:
-                self.emit("""void visit_%s(const %s_t & /* x */) { throw LCompilersException("visit_%s() not implemented"); }""" \
-                        % (type_.name, type_.name, type_.name), 2)
-
-
-class ASTWalkVisitorVisitor(ASDLVisitor):
-
-    def visitModule(self, mod):
-        self.emit("/" + "*"*78 + "/")
-        self.emit("// Walk Visitor base class")
-        self.emit("")
-        self.emit("template <class Struct>")
-        self.emit("class BaseWalkVisitor : public BaseVisitor<Struct>")
-        self.emit("{")
-        self.emit("private:")
-        self.emit("    Struct& self() { return static_cast<Struct&>(*this); }")
-        self.emit("public:")
-        super(ASTWalkVisitorVisitor, self).visitModule(mod)
-        self.emit("};")
-
-    def visitType(self, tp):
-        if not (isinstance(tp.value, asdl.Sum) and
-                is_simple_sum(tp.value)):
-            super(ASTWalkVisitorVisitor, self).visitType(tp, tp.name)
-
-    def visitProduct(self, prod, name):
-        self.make_visitor(name, prod.fields)
-
-    def visitConstructor(self, cons, _):
-        self.make_visitor(cons.name, cons.fields)
-
-    def make_visitor(self, name, fields):
-        self.emit("void visit_%s(const %s_t &x) {" % (name, name), 1)
-        self.used = False
-        have_body = False
-        for field in fields:
-            self.visitField(field)
-        if not self.used:
-            # Note: a better solution would be to change `&x` to `& /* x */`
-            # above, but we would need to change emit to return a string.
-            self.emit("if ((bool&)x) { } // Suppress unused warning", 2)
-        self.emit("}", 1)
-
-    def visitField(self, field):
-        if (field.type not in asdl.builtin_types and
-            field.type not in self.data.simple_types):
-            level = 2
-            if field.seq:
-                self.used = True
-                self.emit("for (size_t i=0; i<x.n_%s; i++) {" % field.name, level)
-                if field.type in products:
-                    self.emit("    self().visit_%s(x.m_%s[i]);" % (field.type, field.name), level)
-                else:
-                    if field.type != "symbol":
-                        self.emit("    self().visit_%s(*x.m_%s[i]);" % (field.type, field.name), level)
-                self.emit("}", level)
-            else:
-                if field.type in products:
-                    self.used = True
-                    if field.opt:
-                        self.emit("if (x.m_%s)" % field.name, 2)
-                        level = 3
-                    if field.opt:
-                        self.emit("self().visit_%s(*x.m_%s);" % (field.type, field.name), level)
-                    else:
-                        self.emit("self().visit_%s(x.m_%s);" % (field.type, field.name), level)
-                else:
-                    if field.type != "symbol":
-                        self.used = True
-                        if field.opt:
-                            self.emit("if (x.m_%s)" % field.name, 2)
-                            level = 3
-                        self.emit("self().visit_%s(*x.m_%s);" % (field.type, field.name), level)
-        elif field.type == "symbol_table" and field.name in["symtab",
-                "global_scope"]:
-            self.used = True
-            self.emit("for (auto &a : x.m_%s->get_scope()) {" % field.name, 2)
-            self.emit(  "this->visit_symbol(*a.second);", 3)
-            self.emit("}", 2)
-
-class CallReplacerOnExpressionsVisitor(ASDLVisitor):
-
-    def __init__(self, stream, data):
-        self.current_expr_copy_variable_count = 0
-        super(CallReplacerOnExpressionsVisitor, self).__init__(stream, data)
-
-    def visitModule(self, mod):
-        self.emit("/" + "*"*78 + "/")
-        self.emit("// Walk Visitor base class")
-        self.emit("")
-        self.emit("template <class Struct>")
-        self.emit("class CallReplacerOnExpressionsVisitor : public BaseVisitor<Struct>")
-        self.emit("{")
-        self.emit("private:")
-        self.emit("    Struct& self() { return static_cast<Struct&>(*this); }")
-        self.emit("public:")
-        self.emit("    ASR::expr_t** current_expr;")
-        self.emit("    SymbolTable* current_scope;")
-        self.emit("")
-        self.emit("    void call_replacer() {}")
-        self.emit("    void transform_stmts(ASR::stmt_t **&m_body, size_t &n_body) {")
-        self.emit("    for (size_t i = 0; i < n_body; i++) {", 1)
-        self.emit("        self().visit_stmt(*m_body[i]);", 1)
-        self.emit("    }", 1)
-        self.emit("    }")
-        super(CallReplacerOnExpressionsVisitor, self).visitModule(mod)
-        self.emit("};")
-
-    def visitType(self, tp):
-        if not (isinstance(tp.value, asdl.Sum) and
-                is_simple_sum(tp.value)):
-            super(CallReplacerOnExpressionsVisitor, self).visitType(tp, tp.name)
-
-    def visitProduct(self, prod, name):
-        self.make_visitor(name, prod.fields)
-
-    def visitConstructor(self, cons, _):
-        self.make_visitor(cons.name, cons.fields)
-
-    def make_visitor(self, name, fields):
-        self.emit("void visit_%s(const %s_t &x) {" % (name, name), 1)
-        is_symtab_present = False
-        is_stmt_present = False
-        symtab_field_name = ""
-        for field in fields:
-            if field.type == "stmt":
-                is_stmt_present = True
-            if field.type == "symbol_table":
-                is_symtab_present = True
-                symtab_field_name = field.name
-            if is_stmt_present and is_symtab_present:
-                break
-        if is_stmt_present and name not in ("Assignment", "ForAllSingle"):
-            self.emit("    %s_t& xx = const_cast<%s_t&>(x);" % (name, name), 1)
-        self.used = False
-
-        if is_symtab_present:
-            self.emit("SymbolTable* current_scope_copy = current_scope;", 2)
-            self.emit("current_scope = x.m_%s;" % symtab_field_name, 2)
-
-        for field in fields:
-            self.visitField(field)
-        if not self.used:
-            # Note: a better solution would be to change `&x` to `& /* x */`
-            # above, but we would need to change emit to return a string.
-            self.emit("if ((bool&)x) { } // Suppress unused warning", 2)
-
-        if is_symtab_present:
-            self.emit("current_scope = current_scope_copy;", 2)
-        self.emit("}", 1)
-
-    def insert_call_replacer_code(self, name, level, index=""):
-        self.emit("    ASR::expr_t** current_expr_copy_%d = current_expr;" % (self.current_expr_copy_variable_count), level)
-        self.emit("    current_expr = const_cast<ASR::expr_t**>(&(x.m_%s%s));" % (name, index), level)
-        self.emit("    self().call_replacer();", level)
-        self.emit("    current_expr = current_expr_copy_%d;" % (self.current_expr_copy_variable_count), level)
-        self.current_expr_copy_variable_count += 1
-
-    def visitField(self, field):
-        if (field.type not in asdl.builtin_types and
-            field.type not in self.data.simple_types):
-            level = 2
-            if field.seq:
-                if field.type == "stmt":
-                    self.emit("self().transform_stmts(xx.m_%s, xx.n_%s);" % (field.name, field.name), level)
-                    return
-                self.used = True
-                self.emit("for (size_t i=0; i<x.n_%s; i++) {" % field.name, level)
-                if field.type in products:
-                    if field.type == "expr":
-                        self.insert_call_replacer_code(field.name, level, "[i]")
-                    self.emit("    self().visit_%s(x.m_%s[i]);" % (field.type, field.name), level)
-                else:
-                    if field.type != "symbol":
-                        if field.type == "expr":
-                            self.insert_call_replacer_code(field.name, level, "[i]")
-                        self.emit("    self().visit_%s(*x.m_%s[i]);" % (field.type, field.name), level)
-                self.emit("}", level)
-            else:
-                if field.type in products:
-                    self.used = True
-                    if field.opt:
-                        self.emit("if (x.m_%s) {" % field.name, 2)
-                        level = 3
-                        if field.type == "expr":
-                            self.insert_call_replacer_code(field.name, level)
-                    if field.opt:
-                        self.emit("self().visit_%s(*x.m_%s);" % (field.type, field.name), level)
-                        self.emit("}", 2)
-                    else:
-                        self.emit("self().visit_%s(x.m_%s);" % (field.type, field.name), level)
-                else:
-                    if field.type != "symbol":
-                        self.used = True
-                        if field.opt:
-                            self.emit("if (x.m_%s) {" % field.name, 2)
-                            level = 3
-                        if field.type == "expr":
-                            self.insert_call_replacer_code(field.name, level)
-                        self.emit("self().visit_%s(*x.m_%s);" % (field.type, field.name), level)
-                        if field.opt:
-                            self.emit("}", 2)
-        elif field.type == "symbol_table" and field.name in["symtab",
-                "global_scope"]:
-            self.used = True
-            self.emit("for (auto &a : x.m_%s->get_scope()) {" % field.name, 2)
-            self.emit(  "this->visit_symbol(*a.second);", 3)
-            self.emit("}", 2)
-
-# This class generates a visitor that prints the tree structure of AST/ASR
-class TreeVisitorVisitor(ASDLVisitor):
-
-    def visitModule(self, mod):
-        self.emit("/" + "*"*78 + "/")
-        self.emit("// Tree Visitor base class")
-        self.emit("")
-        self.emit("template <class Struct>")
-        self.emit("class TreeBaseVisitor : public BaseVisitor<Struct>")
-        self.emit("{")
-        self.emit("private:")
-        self.emit(  "Struct& self() { return static_cast<Struct&>(*this); }", 1)
-        self.emit("public:")
-        self.emit(  "std::string s, indtd;", 1)
-        self.emit(  "bool use_colors;", 1)
-        self.emit(  "bool start_line = true;", 1)
-        self.emit(  'bool last, attached;', 1)
-        self.emit(  "int indent_level = 0, indent_spaces = 2, lvl = 0;", 1)
-        self.emit("public:")
-        self.emit(  "TreeBaseVisitor() : use_colors(false), last(true), attached(false) { s.reserve(100000); }", 1)
-        self.emit(  "void inc_indent() {", 1)
-        self.emit(      "indent_level++;", 2)
-        self.emit(      'indtd += "  ";', 2)
-        self.emit(  "}", 1)
-        self.emit(  "void inc_lindent() {", 1)
-        self.emit(      "indent_level++;", 2)
-        self.emit(      'indtd += "| ";', 2)
-        self.emit(  "}", 1)
-        self.emit(  "void dec_indent() {", 1)
-        self.emit(      "indent_level--;", 2)
-        self.emit(      "LCOMPILERS_ASSERT(indent_level >= 0);", 2)
-        self.emit(      "indtd = indtd.substr(0, indent_level*indent_spaces);",2)
-        self.emit(  "}", 1)
-        self.mod = mod
-        super(TreeVisitorVisitor, self).visitModule(mod)
-        self.emit("};")
-
-    def visitType(self, tp):
-        super(TreeVisitorVisitor, self).visitType(tp, tp.name)
-
-    def visitSum(self, sum, *args):
-        assert isinstance(sum, asdl.Sum)
-        if is_simple_sum(sum):
-            name = args[0] + "Type"
-            self.make_simple_sum_visitor(name, sum.types)
-        else:
-            for tp in sum.types:
-                self.visit(tp, *args)
-
-    def visitProduct(self, prod, name):
-        self.make_visitor(name, prod.fields, False)
-
-    def visitConstructor(self, cons, _):
-        self.make_visitor(cons.name, cons.fields, True)
-
-    def make_visitor(self, name, fields, cons):
-        self.emit("void visit_%s(const %s_t &x) {" % (name, name), 1)
-        self.emit(          'if(!attached) {', 2)
-        self.emit(              'if(start_line) {', 3)
-        self.emit(                  'start_line = false;', 4)
-        self.emit(                  's.append(indtd);', 4)
-        self.emit(              '} else {', 3)
-        self.emit(                  's.append("\\n"+indtd);', 4)
-        self.emit(              '}', 3)
-        self.emit(              'last ? s.append("└-") : s.append("|-");', 3)
-        self.emit(          '}', 2)
-        self.emit(          'last ? inc_indent() : inc_lindent();', 2)
-        self.emit(          'attached = true;', 2)
-        self.emit(          'last = false;', 2)
-        if cons:
-            self.emit(    'if (use_colors) {', 2)
-            self.emit(        's.append(color(style::bold));', 3)
-            self.emit(        's.append(color(fg::magenta));', 3)
-            self.emit(    '}', 2)
-            self.emit(    's.append("%s");' % name, 2)
-            self.emit(    'if (use_colors) {', 2)
-            self.emit(        's.append(color(fg::reset));', 3)
-            self.emit(        's.append(color(style::reset));', 3)
-            self.emit(    '}', 2)
-        self.used = False
-        for n, field in enumerate(fields):
-            self.visitField(field, cons, n == len(fields)-1)
-        self.emit(    'dec_indent();', 2)
-        if not self.used:
-            # Note: a better solution would be to change `&x` to `& /* x */`
-            # above, but we would need to change emit to return a string.
-            self.emit("if ((bool&)x) { } // Suppress unused warning", 2)
-        self.emit("}", 1)
-
-    def make_simple_sum_visitor(self, name, types):
-        self.emit("void visit_%s(const %s &x) {" % (name, name), 1)
-        self.emit(    'if (use_colors) {', 2)
-        self.emit(        's.append(color(style::bold));', 3)
-        self.emit(        's.append(color(fg::green));', 3)
-        self.emit(    '}', 2)
-        self.emit(    'switch (x) {', 2)
-        for tp in types:
-            self.emit(    'case (%s::%s) : {' % (name, tp.name), 3)
-            self.emit(      's.append("%s");' % (tp.name), 4)
-            self.emit(     ' break; }',3)
-        self.emit(    '}', 2)
-        self.emit(    'if (use_colors) {', 2)
-        self.emit(        's.append(color(fg::reset));', 3)
-        self.emit(        's.append(color(style::reset));', 3)
-        self.emit(    '}', 2)
-        self.emit("}", 1)
-
-    def visitField(self, field, cons, last):
-        arr = '└-' if last else '|-'
-        if (field.type not in asdl.builtin_types and
-            field.type not in self.data.simple_types):
-            self.used = True
-            level = 2
-            if field.type in products:
-                if field.opt:
-                    template = "self().visit_%s(*x.m_%s);" % (field.type, field.name)
-                else:
-                    template = "self().visit_%s(x.m_%s);" % (field.type, field.name)
-            else:
-                template = "self().visit_%s(*x.m_%s);" % (field.type, field.name)
-            if field.seq:
-                self.emit('s.append("\\n" + indtd + "%s" + "%s=\u21a7");' % (arr, field.name), level)
-                self.emit("for (size_t i=0; i<x.n_%s; i++) {" % field.name, level)
-                self.emit(  'inc_indent();' if last else 'inc_lindent();', level+1)
-                self.emit(  'last = i == x.n_%s-1;' % field.name, level+1)
-                self.emit(  'attached = false;', level+1)
-                if field.type in sums:
-                    self.emit("self().visit_%s(*x.m_%s[i]);" % (field.type, field.name), level+1)
-                else:
-                    self.emit("self().visit_%s(x.m_%s[i]);" % (field.type, field.name), level+1)
-                self.emit(  'dec_indent();', level+1)
-                self.emit("}", level)
-            elif field.opt:
-                self.emit('s.append("\\n" + indtd + "%s" + "%s=");' % (arr, field.name), 2)
-                if last:
-                    self.emit('last = true;', 2)
-                self.emit("if (x.m_%s) {" % field.name, 2)
-                self.emit(template, 3)
-                self.emit("} else {", 2)
-                self.emit(    's.append("()");', 3)
-                self.emit(    'last = false;', 2)
-                self.emit(    'attached = false;', 2)
-                self.emit("}", 2)
-            else:
-                self.emit('s.append("\\n" + indtd + "%s" + "%s=");' % (arr, field.name), level)
-                if last:
-                    self.emit('last = true;', level)
-                self.emit('attached = true;', level)
-                self.emit(template, level)
-        else:
-            if field.type == "identifier":
-                if field.seq:
-                    assert not field.opt
-                    level = 2
-                    self.emit('s.append("\\n" + indtd + "%s" + "%s=");' % (arr, field.name), level)
-                    self.emit("for (size_t i=0; i<x.n_%s; i++) {" % field.name, level)
-                    self.emit(  "s.append(x.m_%s[i]);" % (field.name), level+1)
-                    self.emit(  'if (i < x.n_%s-1) s.append(" ");' % (field.name), level+1)
-                    self.emit("}", level)
-                else:
-                    if field.opt:
-                        self.emit('s.append("\\n" + indtd + "%s" + "%s=");' % (arr, field.name), 2)
-                        self.emit("if (x.m_%s) {" % field.name, 2)
-                        self.emit(    's.append(x.m_%s);' % field.name, 3)
-                        self.emit("} else {", 2)
-                        self.emit(    's.append("()");', 3)
-                        self.emit("}", 2)
-                    else:
-                        self.emit('s.append("\\n" + indtd + "%s" + "%s=");' % (arr, field.name), 2)
-                        self.emit('s.append(x.m_%s);' % field.name, 2)
-            elif field.type == "node":
-                assert not field.opt
-                assert field.seq
-                level = 2
-                self.emit('s.append("\\n" + indtd + "%s" + "%s=\u21a7");' % (arr, field.name), level)
-                self.emit('attached = false;', level)
-                self.emit("for (size_t i=0; i<x.n_%s; i++) {" % field.name, level)
-                mod_name = self.mod.name.lower()
-                self.emit(  'inc_indent();' if last else 'inc_lindent();', level+1)
-                self.emit(  'last = i == x.n_%s-1;' % field.name, level+1)
-                self.emit(  'attached = false;', level+1)
-                self.emit(  "self().visit_%s(*x.m_%s[i]);" % (mod_name, field.name), level+1)
-                self.emit(  'dec_indent();', level+1)
-                self.emit("}", level)
-            elif field.type == "symbol_table":
-                assert not field.opt
-                assert not field.seq
-                if field.name == "parent_symtab":
-                    level = 2
-                    self.emit('s.append("\\n" + indtd + "%s" + "%s=");' % (arr, field.name), level)
-                    self.emit('s.append(x.m_%s->get_counter());' % field.name, level)
-                else:
-                    level = 2
-                    self.emit('s.append("\\n" + indtd + "%s");' % arr, level)
-                    self.emit('inc_lindent();', level)
-                    self.emit('if (use_colors) {', level)
-                    self.emit(    's.append(color(fg::yellow));', level+1)
-                    self.emit('}', level)
-                    self.emit('s.append("SymbolTable");', level)
-                    self.emit('if (use_colors) {', level)
-                    self.emit(    's.append(color(fg::reset));', level+1)
-                    self.emit('}', level)
-                    self.emit(      's.append("\\n" + indtd + "|-counter=");', level)
-                    self.emit(      's.append(x.m_%s->get_counter());' % field.name, level)
-                    self.emit('size_t i = 0;', level)
-                    self.emit('s.append("\\n" + indtd + "└-scope=\u21a7");', level)
-                    self.emit('for (auto &a : x.m_%s->get_scope()) {' % field.name, level)
-                    self.emit(      'i++;', level+1)
-                    self.emit(      'inc_indent();', level+1)
-                    self.emit(      'last = i == x.m_%s->get_scope().size();' % field.name, level+1)
-                    self.emit(      's.append("\\n" + indtd + (last ? "└-" : "|-") + a.first + ": ");', level+1)
-                    self.emit(      'this->visit_symbol(*a.second);', level+1)
-                    self.emit(      'dec_indent();', level+1)
-                    self.emit('}', level)
-                    self.emit('dec_indent();', level)
-            elif field.type == "string" and not field.seq:
-                if field.opt:
-                    self.emit('s.append("\\n" + indtd + "%s" + "%s=");' % (arr, field.name), 2)
-                    self.emit("if (x.m_%s) {" % field.name, 2)
-                    self.emit(    's.append("\\"" + std::string(x.m_%s) + "\\"");' % field.name, 3)
-                    self.emit("} else {", 2)
-                    self.emit(    's.append("()");', 3)
-                    self.emit("}", 2)
-                else:
-                    self.emit('s.append("\\n" + indtd + "%s" + "%s=");' % (arr, field.name), 2)
-                    self.emit('s.append("\\"" + std::string(x.m_%s) + "\\"");' % field.name, 2)
-            elif field.type == "int" and not field.seq:
-                if field.opt:
-                    self.emit('s.append("\\n" + indtd + "%s" + "%s=");' % (arr, field.name), 2)
-                    self.emit("if (x.m_%s) {" % field.name, 2)
-                    self.emit(    's.append(std::to_string(x.m_%s));' % field.name, 3)
-                    self.emit("} else {", 2)
-                    self.emit(    's.append("()");', 3)
-                    self.emit("}", 2)
-                else:
-                    self.emit('s.append("\\n" + indtd + "%s" + "%s=");' % (arr, field.name), 2)
-                    self.emit('s.append(std::to_string(x.m_%s));' % field.name, 2)
-            elif field.type == "float" and not field.seq and not field.opt:
-                self.emit('s.append("\\n" + indtd + "%s" + "%s=");' % (arr, field.name), 2)
-                self.emit('s.append(std::to_string(x.m_%s));' % field.name, 2)
-            elif field.type == "bool" and not field.seq and not field.opt:
-                self.emit('s.append("\\n" + indtd + "%s" + "%s=");' % (arr, field.name), 2)
-                self.emit("if (x.m_%s) {" % field.name, 2)
-                self.emit(    's.append(".true.");', 3)
-                self.emit("} else {", 2)
-                self.emit(    's.append(".false.");', 3)
-                self.emit("}", 2)
-            elif field.type in self.data.simple_types:
-                if field.opt:
-                    self.emit('s.append("Unimplementedopt");', 2)
-                else:
-                    self.emit('s.append("\\n" + indtd + "%s" + "%sType=");' % (arr, field.type), 2)
-                    self.emit('visit_%sType(x.m_%s);' \
-                            % (field.type, field.name), 2)
-            else:
-                self.emit('s.append("Unimplemented' + field.type + '");', 2)
-
-
-class ExprStmtDuplicatorVisitor(ASDLVisitor):
-
-    def __init__(self, stream, data):
-        self.duplicate_stmt = []
-        self.duplicate_expr = []
-        self.duplicate_case_stmt = []
-        self.is_stmt = False
-        self.is_expr = False
-        self.is_case_stmt = False
-        self.is_product = False
-        super(ExprStmtDuplicatorVisitor, self).__init__(stream, data)
-
-    def visitModule(self, mod):
-        self.emit("/" + "*"*78 + "/")
-        self.emit("// Expression and statement Duplicator class")
-        self.emit("")
-        self.emit("template <class Struct>")
-        self.emit("class BaseExprStmtDuplicator {")
-        self.emit("public:")
-        self.emit("    Struct& self() { return static_cast<Struct&>(*this); }")
-        self.emit("")
-        self.emit("    Allocator &al;")
-        self.emit("    bool success;")
-        self.emit("    bool allow_procedure_calls;")
-        self.emit("    bool allow_reshape;")
-        self.emit("")
-        self.emit("    BaseExprStmtDuplicator(Allocator& al_) : al(al_), success(false), allow_procedure_calls(true), allow_reshape(true) {}")
-        self.emit("")
-        self.duplicate_stmt.append(("    ASR::stmt_t* duplicate_stmt(ASR::stmt_t* x) {", 0))
-        self.duplicate_stmt.append(("    if( !x ) {", 1))
-        self.duplicate_stmt.append(("    return nullptr;", 2))
-        self.duplicate_stmt.append(("    }", 1))
-        self.duplicate_stmt.append(("", 0))
-        self.duplicate_stmt.append(("    switch(x->type) {", 1))
-
-        self.duplicate_expr.append(("    ASR::expr_t* duplicate_expr(ASR::expr_t* x) {", 0))
-        self.duplicate_expr.append(("    if( !x ) {", 1))
-        self.duplicate_expr.append(("    return nullptr;", 2))
-        self.duplicate_expr.append(("    }", 1))
-        self.duplicate_expr.append(("", 0))
-        self.duplicate_expr.append(("    switch(x->type) {", 1))
-
-        self.duplicate_case_stmt.append(("    ASR::case_stmt_t* duplicate_case_stmt(ASR::case_stmt_t* x) {", 0))
-        self.duplicate_case_stmt.append(("    if( !x ) {", 1))
-        self.duplicate_case_stmt.append(("    return nullptr;", 2))
-        self.duplicate_case_stmt.append(("    }", 1))
-        self.duplicate_case_stmt.append(("", 0))
-        self.duplicate_case_stmt.append(("    switch(x->type) {", 1))
-
-        super(ExprStmtDuplicatorVisitor, self).visitModule(mod)
-        self.duplicate_stmt.append(("    default: {", 2))
-        self.duplicate_stmt.append(('    LCOMPILERS_ASSERT_MSG(false, "Duplication of " + std::to_string(x->type) + " statement is not supported yet.");', 3))
-        self.duplicate_stmt.append(("    }", 2))
-        self.duplicate_stmt.append(("    }", 1))
-        self.duplicate_stmt.append(("", 0))
-        self.duplicate_stmt.append(("    return nullptr;", 1))
-        self.duplicate_stmt.append(("    }", 0))
-
-        self.duplicate_expr.append(("    default: {", 2))
-        self.duplicate_expr.append(('    LCOMPILERS_ASSERT_MSG(false, "Duplication of " + std::to_string(x->type) + " expression is not supported yet.");', 3))
-        self.duplicate_expr.append(("    }", 2))
-        self.duplicate_expr.append(("    }", 1))
-        self.duplicate_expr.append(("", 0))
-        self.duplicate_expr.append(("    return nullptr;", 1))
-        self.duplicate_expr.append(("    }", 0))
-
-        self.duplicate_case_stmt.append(("    default: {", 2))
-        self.duplicate_case_stmt.append(('    LCOMPILERS_ASSERT_MSG(false, "Duplication of " + std::to_string(x->type) + " case statement is not supported yet.");', 3))
-        self.duplicate_case_stmt.append(("    }", 2))
-        self.duplicate_case_stmt.append(("    }", 1))
-        self.duplicate_case_stmt.append(("", 0))
-        self.duplicate_case_stmt.append(("    return nullptr;", 1))
-        self.duplicate_case_stmt.append(("    }", 0))
-
-        for line, level in self.duplicate_stmt:
-            self.emit(line, level=level)
-        self.emit("")
-        for line, level in self.duplicate_expr:
-            self.emit(line, level=level)
-        self.emit("")
-        for line, level in self.duplicate_case_stmt:
-            self.emit(line, level=level)
-        self.emit("")
-        self.emit("};")
-
-    def visitType(self, tp):
-        if not (isinstance(tp.value, asdl.Sum) and
-                is_simple_sum(tp.value)):
-            super(ExprStmtDuplicatorVisitor, self).visitType(tp, tp.name)
-
-    def visitSum(self, sum, *args):
-        self.is_stmt = args[0] == 'stmt'
-        self.is_expr = args[0] == 'expr'
-        self.is_case_stmt = args[0] == 'case_stmt'
-        if self.is_stmt or self.is_expr or self.is_case_stmt:
-            for tp in sum.types:
-                self.visit(tp, *args)
-
-    def visitProduct(self, prod, name):
-        pass
-
-    def visitConstructor(self, cons, _):
-        self.make_visitor(cons.name, cons.fields)
-
-    def make_visitor(self, name, fields):
-        self.emit("")
-        self.emit("ASR::asr_t* duplicate_%s(%s_t* x) {" % (name, name), 1)
-        self.used = False
-        arguments = []
-        for field in fields:
-            ret_value = self.visitField(field)
-            for node_arg in ret_value:
-                arguments.append(node_arg)
-        if not self.used:
-            self.emit("return (asr_t*)x;", 2)
-        else:
-            node_arg_str = ', '.join(arguments)
-            self.emit("return make_%s_t(al, x->base.base.loc, %s);" %(name, node_arg_str), 2)
-        if self.is_stmt:
-            self.duplicate_stmt.append(("    case ASR::stmtType::%s: {" % name, 2))
-            if name == "SubroutineCall":
-                self.duplicate_stmt.append(("    if( !allow_procedure_calls ) {", 3))
-                self.duplicate_stmt.append(("    success = false;", 4))
-                self.duplicate_stmt.append(("    return nullptr;", 4))
-                self.duplicate_stmt.append(("    }", 3))
-            self.duplicate_stmt.append(("    return down_cast<ASR::stmt_t>(self().duplicate_%s(down_cast<ASR::%s_t>(x)));" % (name, name), 3))
-            self.duplicate_stmt.append(("    }", 2))
-        elif self.is_expr:
-            self.duplicate_expr.append(("    case ASR::exprType::%s: {" % name, 2))
-            if name == "FunctionCall":
-                self.duplicate_expr.append(("    if( !allow_procedure_calls ) {", 3))
-                self.duplicate_expr.append(("    success = false;", 4))
-                self.duplicate_expr.append(("    return nullptr;", 4))
-                self.duplicate_expr.append(("    }", 3))
-            elif name == "ArrayReshape":
-                self.duplicate_expr.append(("    if( !allow_reshape ) {", 3))
-                self.duplicate_expr.append(("    success = false;", 4))
-                self.duplicate_expr.append(("    return nullptr;", 4))
-                self.duplicate_expr.append(("    }", 3))
-            self.duplicate_expr.append(("    return down_cast<ASR::expr_t>(self().duplicate_%s(down_cast<ASR::%s_t>(x)));" % (name, name), 3))
-            self.duplicate_expr.append(("    }", 2))
-        elif self.is_case_stmt:
-            self.duplicate_case_stmt.append(("    case ASR::case_stmtType::%s: {" % name, 2))
-            self.duplicate_case_stmt.append(("    return down_cast<ASR::case_stmt_t>(self().duplicate_%s(down_cast<ASR::%s_t>(x)));" % (name, name), 3))
-            self.duplicate_case_stmt.append(("    }", 2))
-        self.emit("}", 1)
-        self.emit("")
-
-    def visitField(self, field):
-        arguments = None
-        if (field.type == "expr" or
-            field.type == "stmt" or
-            field.type == "symbol" or
-            field.type == "call_arg" or
-            field.type == "do_loop_head" or
-            field.type == "array_index" or
-            field.type == "alloc_arg" or
-            field.type == "case_stmt"):
-            level = 2
-            if field.seq:
-                self.used = True
-                pointer_char = ''
-                if (field.type != "call_arg" and
-                    field.type != "array_index" and
-                    field.type != "alloc_arg"):
-                    pointer_char = '*'
-                self.emit("Vec<%s_t%s> m_%s;" % (field.type, pointer_char, field.name), level)
-                self.emit("m_%s.reserve(al, x->n_%s);" % (field.name, field.name), level)
-                self.emit("for (size_t i = 0; i < x->n_%s; i++) {" % field.name, level)
-                if field.type == "symbol":
-                    self.emit("    m_%s.push_back(al, x->m_%s[i]);" % (field.name, field.name), level)
-                elif field.type == "call_arg":
-                    self.emit("    ASR::call_arg_t call_arg_copy;", level)
-                    self.emit("    call_arg_copy.loc = x->m_%s[i].loc;"%(field.name), level)
-                    self.emit("    call_arg_copy.m_value = self().duplicate_expr(x->m_%s[i].m_value);"%(field.name), level)
-                    self.emit("    m_%s.push_back(al, call_arg_copy);"%(field.name), level)
-                elif field.type == "alloc_arg":
-                    self.emit("    ASR::alloc_arg_t alloc_arg_copy;", level)
-                    self.emit("    alloc_arg_copy.loc = x->m_%s[i].loc;"%(field.name), level)
-                    self.emit("    alloc_arg_copy.m_a = x->m_%s[i].m_a;"%(field.name), level)
-                    self.emit("    alloc_arg_copy.n_dims = x->m_%s[i].n_dims;"%(field.name), level)
-                    self.emit("    Vec<ASR::dimension_t> dims_copy;", level)
-                    self.emit("    dims_copy.reserve(al, alloc_arg_copy.n_dims);", level)
-                    self.emit("    for (size_t j = 0; j < alloc_arg_copy.n_dims; j++) {", level)
-                    self.emit("    ASR::dimension_t dim_copy;", level + 1)
-                    self.emit("    dim_copy.loc = x->m_%s[i].m_dims[j].loc;"%(field.name), level + 1)
-                    self.emit("    dim_copy.m_start = self().duplicate_expr(x->m_%s[i].m_dims[j].m_start);"%(field.name), level + 1)
-                    self.emit("    dim_copy.m_length = self().duplicate_expr(x->m_%s[i].m_dims[j].m_length);"%(field.name), level + 1)
-                    self.emit("    dims_copy.push_back(al, dim_copy);", level + 1)
-                    self.emit("    }", level)
-                    self.emit("    alloc_arg_copy.m_dims = dims_copy.p;", level)
-                    self.emit("    m_%s.push_back(al, alloc_arg_copy);"%(field.name), level)
-                elif field.type == "array_index":
-                    self.emit("    ASR::array_index_t array_index_copy;", level)
-                    self.emit("    array_index_copy.loc = x->m_%s[i].loc;"%(field.name), level)
-                    self.emit("    array_index_copy.m_left = duplicate_expr(x->m_%s[i].m_left);"%(field.name), level)
-                    self.emit("    array_index_copy.m_right = duplicate_expr(x->m_%s[i].m_right);"%(field.name), level)
-                    self.emit("    array_index_copy.m_step = duplicate_expr(x->m_%s[i].m_step);"%(field.name), level)
-                    self.emit("    m_%s.push_back(al, array_index_copy);"%(field.name), level)
-                else:
-                    self.emit("    m_%s.push_back(al, self().duplicate_%s(x->m_%s[i]));" % (field.name, field.type, field.name), level)
-                self.emit("}", level)
-                arguments = ("m_" + field.name + ".p", "x->n_" + field.name)
-            else:
-                self.used = True
-                if field.type == "symbol":
-                    self.emit("%s_t* m_%s = x->m_%s;" % (field.type, field.name, field.name), level)
-                elif field.type == "do_loop_head":
-                    self.emit("ASR::do_loop_head_t m_head;", level)
-                    self.emit("m_head.loc = x->m_head.loc;", level)
-                    self.emit("m_head.m_v = duplicate_expr(x->m_head.m_v);", level)
-                    self.emit("m_head.m_start = duplicate_expr(x->m_head.m_start);", level)
-                    self.emit("m_head.m_end = duplicate_expr(x->m_head.m_end);", level)
-                    self.emit("m_head.m_increment = duplicate_expr(x->m_head.m_increment);", level)
-                elif field.type == "array_index":
-                    self.emit("ASR::array_index_t m_%s;"%(field.name), level)
-                    self.emit("m_%s.loc = x->m_%s.loc;"%(field.name, field.name), level)
-                    self.emit("m_%s.m_left = duplicate_expr(x->m_%s.m_left);"%(field.name, field.name), level)
-                    self.emit("m_%s.m_right = duplicate_expr(x->m_%s.m_right);"%(field.name, field.name), level)
-                    self.emit("m_%s.m_step = duplicate_expr(x->m_%s.m_step);"%(field.name, field.name), level)
-                else:
-                    self.emit("%s_t* m_%s = self().duplicate_%s(x->m_%s);" % (field.type, field.name, field.type, field.name), level)
-                arguments = ("m_" + field.name, )
-        else:
-            if field.seq:
-                arguments = ("x->m_" + field.name, "x->n_" + field.name)
-            else:
-                arguments = ("x->m_" + field.name, )
-        return arguments
-
-class ExprBaseReplacerVisitor(ASDLVisitor):
-
-    def __init__(self, stream, data):
-        self.replace_expr = []
-        self.is_expr = False
-        self.is_product = False
-        self.current_expr_copy_variable_count = 0
-        super(ExprBaseReplacerVisitor, self).__init__(stream, data)
-
-    def visitModule(self, mod):
-        self.emit("/" + "*"*78 + "/")
-        self.emit("// Expression Replacer Base class")
-        self.emit("")
-        self.emit("template <class Struct>")
-        self.emit("class BaseExprReplacer {")
-        self.emit("public:")
-        self.emit("    Struct& self() { return static_cast<Struct&>(*this); }")
-        self.emit("")
-        self.emit("    ASR::expr_t** current_expr;")
-        self.emit("")
-        self.emit("    BaseExprReplacer() : current_expr(nullptr) {}")
-        self.emit("")
-
-        self.replace_expr.append(("    void replace_expr(ASR::expr_t* x) {", 0))
-        self.replace_expr.append(("    if( !x ) {", 1))
-        self.replace_expr.append(("    return ;", 2))
-        self.replace_expr.append(("    }", 1))
-        self.replace_expr.append(("", 0))
-        self.replace_expr.append(("    switch(x->type) {", 1))
-
-        super(ExprBaseReplacerVisitor, self).visitModule(mod)
-
-        self.replace_expr.append(("    default: {", 2))
-        self.replace_expr.append(('    LCOMPILERS_ASSERT_MSG(false, "Duplication of " + std::to_string(x->type) + " expression is not supported yet.");', 3))
-        self.replace_expr.append(("    }", 2))
-        self.replace_expr.append(("    }", 1))
-        self.replace_expr.append(("", 0))
-        self.replace_expr.append(("    }", 0))
-        for line, level in self.replace_expr:
-            self.emit(line, level=level)
-        self.emit("")
-        self.emit("};")
-
-    def visitType(self, tp):
-        if not (isinstance(tp.value, asdl.Sum) and
-                is_simple_sum(tp.value)):
-            super(ExprBaseReplacerVisitor, self).visitType(tp, tp.name)
-
-    def visitSum(self, sum, *args):
-        self.is_expr = args[0] == 'expr'
-        if self.is_expr:
-            for tp in sum.types:
-                self.visit(tp, *args)
-
-    def visitProduct(self, prod, name):
-        pass
-
-    def visitConstructor(self, cons, _):
-        self.make_visitor(cons.name, cons.fields)
-
-    def make_visitor(self, name, fields):
-        self.emit("")
-        self.emit("void replace_%s(%s_t* x) {" % (name, name), 1)
-        self.used = False
-        for field in fields:
-            self.visitField(field)
-        if not self.used:
-            self.emit("if (x) { }", 2)
-
-        if self.is_expr:
-            self.replace_expr.append(("    case ASR::exprType::%s: {" % name, 2))
-            self.replace_expr.append(("    self().replace_%s(down_cast<ASR::%s_t>(x));" % (name, name), 3))
-            self.replace_expr.append(("    break;", 3))
-            self.replace_expr.append(("    }", 2))
-        self.emit("}", 1)
-        self.emit("")
-
-    def visitField(self, field):
-        arguments = None
-        if field.type == "expr" or field.type == "symbol" or field.type == "call_arg":
-            level = 2
-            if field.seq:
-                self.used = True
-                self.emit("for (size_t i = 0; i < x->n_%s; i++) {" % field.name, level)
-                if field.type == "call_arg":
-                    self.emit("    ASR::expr_t** current_expr_copy_%d = current_expr;" % (self.current_expr_copy_variable_count), level)
-                    self.emit("    current_expr = &(x->m_%s[i].m_value);" % (field.name), level)
-                    self.emit("    self().replace_expr(x->m_%s[i].m_value);"%(field.name), level)
-                    self.emit("    current_expr = current_expr_copy_%d;" % (self.current_expr_copy_variable_count), level)
-                    self.current_expr_copy_variable_count += 1
-                self.emit("}", level)
-            else:
-                if field.type != "symbol":
-                    self.used = True
-                    self.emit("ASR::expr_t** current_expr_copy_%d = current_expr;" % (self.current_expr_copy_variable_count), level)
-                    self.emit("current_expr = &(x->m_%s);" % (field.name), level)
-                    self.emit("self().replace_%s(x->m_%s);" % (field.type, field.name), level)
-                    self.emit("current_expr = current_expr_copy_%d;" % (self.current_expr_copy_variable_count), level)
-                    self.current_expr_copy_variable_count += 1
-
-class StmtBaseReplacerVisitor(ASDLVisitor):
-
-    def __init__(self, stream, data):
-        self.replace_stmt = []
-        self.is_stmt = False
-        self.is_product = False
-        super(StmtBaseReplacerVisitor, self).__init__(stream, data)
-
-    def visitModule(self, mod):
-        self.emit("/" + "*"*78 + "/")
-        self.emit("// Statement Replacer Base class")
-        self.emit("")
-        self.emit("template <class Struct>")
-        self.emit("class BaseStmtReplacer {")
-        self.emit("public:")
-        self.emit("    Struct& self() { return static_cast<Struct&>(*this); }")
-        self.emit("")
-        self.emit("    ASR::stmt_t** current_stmt;")
-        self.emit("    ASR::stmt_t** current_stmt_copy;")
-        self.emit("    bool has_replacement_happened;")
-        self.emit("")
-        self.emit("    BaseStmtReplacer() : current_stmt(nullptr), has_replacement_happened(false) {}")
-        self.emit("")
-
-        self.replace_stmt.append(("    void replace_stmt(ASR::stmt_t* x) {", 0))
-        self.replace_stmt.append(("    if( !x ) {", 1))
-        self.replace_stmt.append(("    return ;", 2))
-        self.replace_stmt.append(("    }", 1))
-        self.replace_stmt.append(("", 0))
-        self.replace_stmt.append(("    switch(x->type) {", 1))
-
-        super(StmtBaseReplacerVisitor, self).visitModule(mod)
-
-        self.replace_stmt.append(("    default: {", 2))
-        self.replace_stmt.append(('    LCOMPILERS_ASSERT_MSG(false, "Replacement of " + std::to_string(x->type) + " statement is not supported yet.");', 3))
-        self.replace_stmt.append(("    }", 2))
-        self.replace_stmt.append(("    }", 1))
-        self.replace_stmt.append(("", 0))
-        self.replace_stmt.append(("    }", 0))
-        for line, level in self.replace_stmt:
-            self.emit(line, level=level)
-        self.emit("")
-        self.emit("};")
-
-    def visitType(self, tp):
-        if not (isinstance(tp.value, asdl.Sum) and
-                is_simple_sum(tp.value)):
-            super(StmtBaseReplacerVisitor, self).visitType(tp, tp.name)
-
-    def visitSum(self, sum, *args):
-        self.is_stmt = args[0] == 'stmt'
-        if self.is_stmt:
-            for tp in sum.types:
-                self.visit(tp, *args)
-
-    def visitProduct(self, prod, name):
-        pass
-
-    def visitConstructor(self, cons, _):
-        self.make_visitor(cons.name, cons.fields)
-
-    def make_visitor(self, name, fields):
-        self.emit("")
-        self.emit("void replace_%s(%s_t* x) {" % (name, name), 1)
-        self.used = False
-        for field in fields:
-            self.visitField(field)
-        if not self.used:
-            self.emit("if (x) { }", 2)
-
-        if self.is_stmt:
-            self.replace_stmt.append(("    case ASR::stmtType::%s: {" % name, 2))
-            self.replace_stmt.append(("    self().replace_%s(down_cast<ASR::%s_t>(x));" % (name, name), 3))
-            self.replace_stmt.append(("    break;", 3))
-            self.replace_stmt.append(("    }", 2))
-        self.emit("}", 1)
-        self.emit("")
-
-    def visitField(self, field):
-        arguments = None
-        if field.type == "stmt":
-            level = 2
-            if field.seq:
-                self.used = True
-                self.emit("for (size_t i = 0; i < x->n_%s; i++) {" % field.name, level)
-                self.emit("    current_stmt_copy = current_stmt;", level)
-                self.emit("    current_stmt = &(x->m_%s[i]);" % (field.name), level)
-                self.emit("    self().replace_stmt(x->m_%s[i]);"%(field.name), level)
-                self.emit("    current_stmt = current_stmt_copy;", level)
-                self.emit("}", level)
-
-class PickleVisitorVisitor(ASDLVisitor):
-
-    def visitModule(self, mod):
-        self.emit("/" + "*"*78 + "/")
-        self.emit("// Pickle Visitor base class")
-        self.emit("")
-        self.emit("template <class Struct>")
-        self.emit("class PickleBaseVisitor : public BaseVisitor<Struct>")
-        self.emit("{")
-        self.emit("private:")
-        self.emit(  "Struct& self() { return static_cast<Struct&>(*this); }", 1)
-        self.emit("public:")
-        self.emit(  "std::string s, indented = \"\";", 1)
-        self.emit(  "bool use_colors;", 1)
-        self.emit(  "bool indent;", 1)
-        self.emit(  "int indent_level = 0, indent_spaces = 4;", 1)
-        self.emit("public:")
-        self.emit(  "PickleBaseVisitor() : use_colors(false), indent(false) { s.reserve(100000); }", 1)
-        self.emit(  "void inc_indent() {", 1)
-        self.emit(      "indent_level++;", 2)
-        self.emit(      "indented = std::string(indent_level*indent_spaces, ' ');",2)
-        self.emit(  "}",1)
-        self.emit(  "void dec_indent() {", 1)
-        self.emit(      "indent_level--;", 2)
-        self.emit(      "LCOMPILERS_ASSERT(indent_level >= 0);", 2)
-        self.emit(      "indented = std::string(indent_level*indent_spaces, ' ');",2)
-        self.emit(  "}",1)
-        self.mod = mod
-        super(PickleVisitorVisitor, self).visitModule(mod)
-        self.emit("};")
-
-    def visitType(self, tp):
-        super(PickleVisitorVisitor, self).visitType(tp, tp.name)
-
-    def visitSum(self, sum, *args):
-        assert isinstance(sum, asdl.Sum)
-        if is_simple_sum(sum):
-            name = args[0] + "Type"
-            self.make_simple_sum_visitor(name, sum.types)
-        else:
-            for tp in sum.types:
-                self.visit(tp, *args)
-
-    def visitProduct(self, prod, name):
-        self.make_visitor(name, prod.fields, False)
-
-    def visitConstructor(self, cons, _):
-        self.make_visitor(cons.name, cons.fields, True)
-
-    def make_visitor(self, name, fields, cons):
-        self.emit("void visit_%s(const %s_t &x) {" % (name, name), 1)
-        self.emit(      's.append("(");', 2)
-        subs = {
-            "Assignment": "=",
-            "Associate": "=>",
-        }
-        if name in subs:
-            name = subs[name]
-
-        # For ASR
-        symbol = [
-            "Integer",
-            "Real",
-            "Complex",
-            "Character",
-            "Logical",
-            "Var",
-        ]
-
-        if cons:
-            self.emit(    'if (use_colors) {', 2)
-            self.emit(        's.append(color(style::bold));', 3)
-            self.emit(        's.append(color(fg::magenta));', 3)
-            self.emit(    '}', 2)
-            self.emit(    's.append("%s");' % name, 2)
-            self.emit(    'if (use_colors) {', 2)
-            self.emit(        's.append(color(fg::reset));', 3)
-            self.emit(        's.append(color(style::reset));', 3)
-            self.emit(    '}', 2)
-            if len(fields) > 0:
-                if name not in symbol:
-                    self.emit(    'if(indent) {', 2)
-                    self.emit(        'inc_indent();', 3)
-                    self.emit(        's.append("\\n" + indented);', 3)
-                    self.emit(    '} else {', 2)
-                    self.emit(        's.append(" ");', 3)
-                    self.emit(    '}', 2)
-                else:
-                    self.emit(    's.append(" ");', 2)
-        self.used = False
-        for n, field in enumerate(fields):
-            self.visitField(field, cons)
-            if n < len(fields) - 1:
-                if name not in symbol:
-                    self.emit(    'if(indent) s.append("\\n" + indented);', 2)
-                    self.emit(    'else s.append(" ");', 2)
-                else:
-                    self.emit(    's.append(" ");', 2)
-        if name not in symbol and cons and len(fields) > 0:
-            self.emit(    'if(indent) {', 2)
-            self.emit(        'dec_indent();', 3)
-            self.emit(        's.append("\\n" + indented);', 3)
-            self.emit(    '}', 2)
-        self.emit(    's.append(")");', 2)
-        if not self.used:
-            # Note: a better solution would be to change `&x` to `& /* x */`
-            # above, but we would need to change emit to return a string.
-            self.emit("if ((bool&)x) { } // Suppress unused warning", 2)
-        self.emit("}", 1)
-
-    def make_simple_sum_visitor(self, name, types):
-        self.emit("void visit_%s(const %s &x) {" % (name, name), 1)
-        self.emit(    'if (use_colors) {', 2)
-        self.emit(        's.append(color(style::bold));', 3)
-        self.emit(        's.append(color(fg::green));', 3)
-        self.emit(    '}', 2)
-        self.emit(    'switch (x) {', 2)
-        for tp in types:
-            self.emit(    'case (%s::%s) : {' % (name, tp.name), 3)
-            self.emit(      's.append("%s");' % (tp.name), 4)
-            self.emit(     ' break; }',3)
-        self.emit(    '}', 2)
-        self.emit(    'if (use_colors) {', 2)
-        self.emit(        's.append(color(fg::reset));', 3)
-        self.emit(        's.append(color(style::reset));', 3)
-        self.emit(    '}', 2)
-        self.emit("}", 1)
-
-    def visitField(self, field, cons):
-        if (field.type not in asdl.builtin_types and
-            field.type not in self.data.simple_types):
-            self.used = True
-            level = 2
-            if field.type in products:
-                if field.opt:
-                    template = "self().visit_%s(*x.m_%s);" % (field.type, field.name)
-                else:
-                    template = "self().visit_%s(x.m_%s);" % (field.type, field.name)
-            else:
-                template = "self().visit_%s(*x.m_%s);" % (field.type, field.name)
-            if field.seq:
-                self.emit('s.append("[");', level)
-                self.emit("for (size_t i=0; i<x.n_%s; i++) {" % field.name, level)
-                if field.type in sums:
-                    self.emit("self().visit_%s(*x.m_%s[i]);" % (field.type, field.name), level+1)
-                else:
-                    self.emit("self().visit_%s(x.m_%s[i]);" % (field.type, field.name), level+1)
-                self.emit('    if (i < x.n_%s-1) {' % (field.name), level)
-                self.emit('        if (indent) s.append("\\n" + indented);', level)
-                self.emit('        else s.append(" ");', level)
-                self.emit('    };', level)
-                self.emit("}", level)
-                self.emit('s.append("]");', level)
-            elif field.opt:
-                self.emit("if (x.m_%s) {" % field.name, 2)
-                self.emit(template, 3)
-                self.emit("} else {", 2)
-                self.emit(    's.append("()");', 3)
-                self.emit("}", 2)
-            else:
-                self.emit(template, level)
-        else:
-            if field.type == "identifier":
-                if field.seq:
-                    assert not field.opt
-                    level = 2
-                    self.emit('s.append("[");', level)
-                    self.emit("for (size_t i=0; i<x.n_%s; i++) {" % field.name, level)
-                    self.emit("    s.append(x.m_%s[i]);" % (field.name), level)
-                    self.emit('    if (i < x.n_%s-1) {' % (field.name), level)
-                    self.emit('        if (indent) s.append("\\n" + indented);', level)
-                    self.emit('        else s.append(" ");', level)
-                    self.emit('    };', level)
-                    self.emit("}", level)
-                    self.emit('s.append("]");', level)
-                else:
-                    if field.opt:
-                        self.emit("if (x.m_%s) {" % field.name, 2)
-                        self.emit(    's.append(x.m_%s);' % field.name, 3)
-                        self.emit("} else {", 2)
-                        self.emit(    's.append("()");', 3)
-                        self.emit("}", 2)
-                    else:
-                        self.emit('s.append(x.m_%s);' % field.name, 2)
-            elif field.type == "node":
-                assert not field.opt
-                assert field.seq
-                level = 2
-                self.emit('s.append("[");', level)
-                self.emit("for (size_t i=0; i<x.n_%s; i++) {" % field.name, level)
-                mod_name = self.mod.name.lower()
-                self.emit("    self().visit_%s(*x.m_%s[i]);" % (mod_name, field.name), level)
-                self.emit('    if (i < x.n_%s-1) {' % (field.name), level)
-                self.emit('        if (indent) s.append("\\n" + indented);', level)
-                self.emit('        else s.append(" ");', level)
-                self.emit('    };', level)
-                self.emit("}", level)
-                self.emit('s.append("]");', level)
-            elif field.type == "symbol_table":
-                assert not field.opt
-                assert not field.seq
-                if field.name == "parent_symtab":
-                    level = 2
-                    self.emit('s.append(x.m_%s->get_counter());' % field.name, level)
-                else:
-                    level = 2
-                    self.emit(      's.append("(");', level)
-                    self.emit('if (use_colors) {', level)
-                    self.emit(    's.append(color(fg::yellow));', level+1)
-                    self.emit('}', level)
-                    self.emit('s.append("SymbolTable");', level)
-                    self.emit('if (use_colors) {', level)
-                    self.emit(    's.append(color(fg::reset));', level+1)
-                    self.emit('}', level)
-                    self.emit('if(indent) {', level)
-                    self.emit('    inc_indent();', level)
-                    self.emit('    s.append("\\n" + indented);', level)
-                    self.emit('} else {', level)
-                    self.emit('    s.append(" ");', level)
-                    self.emit('}', level)
-                    self.emit('s.append(x.m_%s->get_counter());' % field.name, level)
-                    self.emit('if(indent) s.append("\\n" + indented);', level)
-                    self.emit('else s.append(" ");', level)
-                    self.emit(      's.append("{");', level)
-                    self.emit('if(indent) {', level)
-                    self.emit('    inc_indent();', level)
-                    self.emit('    s.append("\\n" + indented);', level)
-                    self.emit('}', level)
-                    self.emit('{', level)
-                    self.emit('    size_t i = 0;', level)
-                    self.emit('    for (auto &a : x.m_%s->get_scope()) {' % field.name, level)
-                    self.emit('        s.append(a.first + ":");', level)
-                    self.emit('        if(indent) {', level)
-                    self.emit('            inc_indent();', level)
-                    self.emit('            s.append("\\n" + indented);', level)
-                    self.emit('        } else {', level)
-                    self.emit('            s.append(" ");', level)
-                    self.emit('        }', level)
-                    self.emit('        this->visit_symbol(*a.second);', level)
-                    self.emit('        if(indent) dec_indent();', level)
-                    self.emit('        if (i < x.m_%s->get_scope().size()-1) {' % field.name, level)
-                    self.emit('            s.append(",");', level)
-                    self.emit('            if(indent) s.append("\\n" + indented);', level)
-                    self.emit('            else s.append(" ");', level)
-                    self.emit('        }', level)
-                    self.emit('        i++;', level)
-                    self.emit('    }', level)
-                    self.emit('}', level)
-                    self.emit('if(indent) {', level)
-                    self.emit(    'dec_indent();', level+1)
-                    self.emit(    's.append("\\n" + indented);', level+1)
-                    self.emit('}', level)
-                    self.emit('s.append("})");', level)
-                    self.emit('if(indent) dec_indent();', level)
-            elif field.type == "string" and not field.seq:
-                if field.opt:
-                    self.emit("if (x.m_%s) {" % field.name, 2)
-                    self.emit(    's.append("\\"" + std::string(x.m_%s) + "\\"");' % field.name, 3)
-                    self.emit("} else {", 2)
-                    self.emit(    's.append("()");', 3)
-                    self.emit("}", 2)
-                else:
-                    self.emit('s.append("\\"" + std::string(x.m_%s) + "\\"");' % field.name, 2)
-            elif field.type == "int" and not field.seq:
-                if field.opt:
-                    self.emit("if (x.m_%s) {" % field.name, 2)
-                    self.emit(    's.append(std::to_string(x.m_%s));' % field.name, 3)
-                    self.emit("} else {", 2)
-                    self.emit(    's.append("()");', 3)
-                    self.emit("}", 2)
-                else:
-                    self.emit('s.append(std::to_string(x.m_%s));' % field.name, 2)
-            elif field.type == "float" and not field.seq and not field.opt:
-                self.emit('s.append(std::to_string(x.m_%s));' % field.name, 2)
-            elif field.type == "bool" and not field.seq and not field.opt:
-                self.emit("if (x.m_%s) {" % field.name, 2)
-                self.emit(    's.append(".true.");', 3)
-                self.emit("} else {", 2)
-                self.emit(    's.append(".false.");', 3)
-                self.emit("}", 2)
-            elif field.type in self.data.simple_types:
-                if field.opt:
-                    self.emit('s.append("Unimplementedopt");', 2)
-                else:
-                    self.emit('visit_%sType(x.m_%s);' \
-                            % (field.type, field.name), 2)
-            else:
-                self.emit('s.append("Unimplemented' + field.type + '");', 2)
-
-class JsonVisitorVisitor(ASDLVisitor):
-
-    def visitModule(self, mod):
-        self.emit("/" + "*"*78 + "/")
-        self.emit("// Json Visitor base class")
-        self.emit("")
-        self.emit("template <class Struct>")
-        self.emit("class JsonBaseVisitor : public BaseVisitor<Struct>")
-        self.emit("{")
-        self.emit("private:")
-        self.emit(  "Struct& self() { return static_cast<Struct&>(*this); }", 1)
-        self.emit("public:")
-        self.emit(  "std::string s, indtd = \"\";", 1)
-        self.emit(  "int indent_level = 0, indent_spaces = 4;", 1)
-        # Storing a reference to LocationManager like this isn't ideal.
-        # One must make sure JsonBaseVisitor isn't reused in a case where AST/ASR has changed
-        # but lm wasn't updated correspondingly.
-        # If LocationManager becomes needed in any of the other visitors, it should be
-        # passed by reference into all the visit functions instead of storing the reference here.
-        self.emit(  "LocationManager &lm;", 1)
-        self.emit("public:")
-        self.emit(  "JsonBaseVisitor(LocationManager &lmref) : lm(lmref) {", 1);
-        self.emit(     "s.reserve(100000);", 2)
-        self.emit(  "}", 1)
-        self.emit(  "void inc_indent() {", 1)
-        self.emit(      "indent_level++;", 2)
-        self.emit(      "indtd = std::string(indent_level*indent_spaces, ' ');",2)
-        self.emit(  "}",1)
-        self.emit(  "void dec_indent() {", 1)
-        self.emit(      "indent_level--;", 2)
-        self.emit(      "LCOMPILERS_ASSERT(indent_level >= 0);", 2)
-        self.emit(      "indtd = std::string(indent_level*indent_spaces, ' ');",2)
-        self.emit(  "}",1)
-        self.emit(  "void append_location(std::string &s, uint32_t first, uint32_t last) {", 1)
-        self.emit(      's.append("\\"loc\\": {");', 2);
-        self.emit(      'inc_indent();', 2)
-        self.emit(      's.append("\\n" + indtd);', 2)
-        self.emit(      's.append("\\"first\\": " + std::to_string(first));', 2)
-        self.emit(      's.append(",\\n" + indtd);', 2)
-        self.emit(      's.append("\\"last\\": " + std::to_string(last));', 2)
-        self.emit(      '')
-        self.emit(      'uint32_t first_line = 0, first_col = 0;', 2)
-        self.emit(      'std::string first_filename;', 2)
-        self.emit(      'uint32_t last_line = 0, last_col = 0;', 2)
-        self.emit(      'std::string last_filename;', 2)
-        self.emit(      '')
-        self.emit(      'lm.pos_to_linecol(first, first_line, first_col, first_filename);', 2)
-        self.emit(      'lm.pos_to_linecol(last, last_line, last_col, last_filename);', 2)
-        self.emit(      '')
-        self.emit(      's.append(",\\n" + indtd);', 2)
-        self.emit(      's.append("\\"first_filename\\": \\"" + first_filename + "\\"");', 2)
-        self.emit(      's.append(",\\n" + indtd);', 2)
-        self.emit(      's.append("\\"first_line\\": " + std::to_string(first_line));', 2)
-        self.emit(      's.append(",\\n" + indtd);', 2)
-        self.emit(      's.append("\\"first_column\\": " + std::to_string(first_col));', 2)
-        self.emit(      's.append(",\\n" + indtd);', 2)
-        self.emit(      's.append("\\"last_filename\\": \\"" + last_filename + "\\"");', 2)
-        self.emit(      's.append(",\\n" + indtd);', 2)
-        self.emit(      's.append("\\"last_line\\": " + std::to_string(last_line));', 2)
-        self.emit(      's.append(",\\n" + indtd);', 2)
-        self.emit(      's.append("\\"last_column\\": " + std::to_string(last_col));', 2)
-        self.emit(      '')
-        self.emit(      'dec_indent();', 2)
-        self.emit(      's.append("\\n" + indtd);', 2)
-        self.emit(      's.append("}");', 2)
-        self.emit(  '}', 1)
-
-        self.mod = mod
-        super(JsonVisitorVisitor, self).visitModule(mod)
-        self.emit("};")
-
-    def visitType(self, tp):
-        super(JsonVisitorVisitor, self).visitType(tp, tp.name)
-
-    def visitSum(self, sum, *args):
-        assert isinstance(sum, asdl.Sum)
-        if is_simple_sum(sum):
-            name = args[0] + "Type"
-            self.make_simple_sum_visitor(name, sum.types)
-        else:
-            for tp in sum.types:
-                self.visit(tp, *args)
-
-    def visitProduct(self, prod, name):
-        self.make_visitor(name, prod.fields, False)
-
-    def visitConstructor(self, cons, _):
-        self.make_visitor(cons.name, cons.fields, True)
-
-    def make_visitor(self, name, fields, cons):
-        self.emit("void visit_%s(const %s_t &x) {" % (name, name), 1)
-        self.emit(    's.append("{");', 2)
-        self.emit(    'inc_indent(); s.append("\\n" + indtd);', 2)
-        self.emit(    's.append("\\"node\\": \\"%s\\"");' % name, 2)
-        self.emit(    's.append(",\\n" + indtd);', 2)
-        self.emit(    's.append("\\"fields\\": {");', 2)
-        if len(fields) > 0:
-            self.emit('inc_indent(); s.append("\\n" + indtd);', 2)
-            for n, field in enumerate(fields):
-                self.visitField(field, cons)
-                if n < len(fields) - 1:
-                    self.emit('s.append(",\\n" + indtd);', 2)
-            self.emit('dec_indent(); s.append("\\n" + indtd);', 2)
-        self.emit(    's.append("}");', 2)
-        self.emit(    's.append(",\\n" + indtd);', 2)
-        if name in products:
-            self.emit(    'append_location(s, x.loc.first, x.loc.last);', 2)
-        else:
-            self.emit(    'append_location(s, x.base.base.loc.first, x.base.base.loc.last);', 2)
-
-        self.emit(    'dec_indent(); s.append("\\n" + indtd);', 2)
-        self.emit(    's.append("}");', 2)
-        self.emit(    'if ((bool&)x) { } // Suppress unused warning', 2)
-        self.emit("}", 1)
-
-    def make_simple_sum_visitor(self, name, types):
-        self.emit("void visit_%s(const %s &x) {" % (name, name), 1)
-        self.emit(    'switch (x) {', 2)
-        for tp in types:
-            self.emit(    'case (%s::%s) : {' % (name, tp.name), 3)
-            self.emit(      's.append("\\"%s\\"");' % (tp.name), 4)
-            self.emit(     ' break; }',3)
-        self.emit(    '}', 2)
-        self.emit("}", 1)
-
-    def visitField(self, field, cons):
-        self.emit('s.append("\\"%s\\": ");' % field.name, 2)
-        if (field.type not in asdl.builtin_types and
-            field.type not in self.data.simple_types):
-            self.used = True
-            level = 2
-            if field.type in products:
-                if field.opt:
-                    template = "self().visit_%s(*x.m_%s);" % (field.type, field.name)
-                else:
-                    template = "self().visit_%s(x.m_%s);" % (field.type, field.name)
-            else:
-                template = "self().visit_%s(*x.m_%s);" % (field.type, field.name)
-            if field.seq:
-                self.emit('s.append("[");', level)
-                self.emit('if (x.n_%s > 0) {' % field.name, level)
-                self.emit(    'inc_indent(); s.append("\\n" + indtd);', level+1)
-                self.emit(    "for (size_t i=0; i<x.n_%s; i++) {" % field.name, level+1)
-                if field.type in sums:
-                    self.emit(    "self().visit_%s(*x.m_%s[i]);" % (field.type, field.name), level+2)
-                else:
-                    self.emit(    "self().visit_%s(x.m_%s[i]);" % (field.type, field.name), level+2)
-                self.emit(        'if (i < x.n_%s-1) {' % (field.name), level+2)
-                self.emit(            's.append(",\\n" + indtd);', level+3)
-                self.emit(        '};', level+2)
-                self.emit(    "}", level+1)
-                self.emit(    'dec_indent(); s.append("\\n" + indtd);', level+1)
-                self.emit('}', level)
-                self.emit('s.append("]");', level)
-            elif field.opt:
-                self.emit("if (x.m_%s) {" % field.name, level)
-                self.emit(    template, level+1)
-                self.emit("} else {", level)
-                self.emit(    's.append("[]");', level+1)
-                self.emit("}", 2)
-            else:
-                self.emit(template, level)
-        else:
-            if field.type == "identifier":
-                if field.seq:
-                    assert not field.opt
-                    level = 2
-                    self.emit('s.append("[");', level)
-                    self.emit('if (x.n_%s > 0) {' % field.name, level)
-                    self.emit(    'inc_indent(); s.append("\\n" + indtd);', level+1)
-                    self.emit(    "for (size_t i=0; i<x.n_%s; i++) {" % field.name, level+1)
-                    self.emit(        's.append("\\"" + std::string(x.m_%s[i]) + "\\"");' % (field.name), level+2)
-                    self.emit(        'if (i < x.n_%s-1) {' % (field.name), level+2)
-                    self.emit(            's.append(",\\n" + indtd);', level+3)
-                    self.emit(        '};', level+2)
-                    self.emit(    "}", level+1)
-                    self.emit(    'dec_indent(); s.append("\\n" + indtd);', level+1)
-                    self.emit('}', level)
-                    self.emit('s.append("]");', level)
-                else:
-                    if field.opt:
-                        self.emit("if (x.m_%s) {" % field.name, 2)
-                        self.emit(    's.append("\\"" + std::string(x.m_%s) + "\\"");' % field.name, 3)
-                        self.emit("} else {", 2)
-                        self.emit(    's.append("[]");', 3)
-                        self.emit("}", 2)
-                    else:
-                        self.emit('s.append("\\"" + std::string(x.m_%s) + "\\"");' % field.name, 2)
-            elif field.type == "node":
-                assert not field.opt
-                assert field.seq
-                level = 2
-                mod_name = self.mod.name.lower()
-                self.emit('s.append("[");', level)
-                self.emit('if (x.n_%s > 0) {' % field.name, level)
-                self.emit(    'inc_indent(); s.append("\\n" + indtd);', level+1)
-                self.emit(    "for (size_t i=0; i<x.n_%s; i++) {" % field.name, level+1)
-                self.emit(        "self().visit_%s(*x.m_%s[i]);" % (mod_name, field.name), level+2)
-                self.emit(        'if (i < x.n_%s-1) {' % (field.name), level+2)
-                self.emit(            's.append(",\\n" + indtd);', level+3)
-                self.emit(        '};', level+2)
-                self.emit(    "}", level+1)
-                self.emit(    'dec_indent(); s.append("\\n" + indtd);', level+1)
-                self.emit('}', level)
-                self.emit('s.append("]");', level)
-            elif field.type == "symbol_table":
-                assert not field.opt
-                assert not field.seq
-                if field.name == "parent_symtab":
-                    level = 2
-                    self.emit('s.append(x.m_%s->get_counter());' % field.name, level)
-                else:
-                    level = 2
-                    self.emit('s.append("{");', level)
-                    self.emit('inc_indent(); s.append("\\n" + indtd);', level)
-                    self.emit('s.append("\\"node\\": \\"SymbolTable" + x.m_%s->get_counter() +"\\"");' % field.name, level)
-                    self.emit('s.append(",\\n" + indtd);', level)
-                    self.emit('s.append("\\"fields\\": {");', level)
-                    self.emit('if (x.m_%s->get_scope().size() > 0) {' % field.name, level)
-                    self.emit(    'inc_indent(); s.append("\\n" + indtd);', level+1)
-                    self.emit(    'size_t i = 0;', level+1)
-                    self.emit(    'for (auto &a : x.m_%s->get_scope()) {' % field.name, level+1)
-                    self.emit(        's.append("\\"" + a.first + "\\": ");', level+2)
-                    self.emit(        'this->visit_symbol(*a.second);', level+2)
-                    self.emit(        'if (i < x.m_%s->get_scope().size()-1) { ' % field.name, level+2)
-                    self.emit(        '    s.append(",\\n" + indtd);', level+3)
-                    self.emit(        '}', level+2)
-                    self.emit(        'i++;', level+2)
-                    self.emit(    '}', level+1)
-                    self.emit(    'dec_indent(); s.append("\\n" + indtd);', level+1)
-                    self.emit('}', level)
-                    self.emit('s.append("}");', level)
-                    self.emit('dec_indent(); s.append("\\n" + indtd);', level)
-                    self.emit('s.append("}");', level)
-            elif field.type == "string" and not field.seq:
-                if field.opt:
-                    self.emit("if (x.m_%s) {" % field.name, 2)
-                    self.emit(    's.append("\\"" + std::string(x.m_%s) + "\\"");' % field.name, 3)
-                    self.emit("} else {", 2)
-                    self.emit(    's.append("[]");', 3)
-                    self.emit("}", 2)
-                else:
-                    self.emit('s.append("\\"" + std::string(x.m_%s) + "\\"");' % field.name, 2)
-            elif field.type == "int" and not field.seq:
-                if field.opt:
-                    self.emit("if (x.m_%s) {" % field.name, 2)
-                    self.emit(    's.append(std::to_string(x.m_%s));' % field.name, 3)
-                    self.emit("} else {", 2)
-                    self.emit(    's.append("[]");', 3)
-                    self.emit("}", 2)
-                else:
-                    self.emit('s.append(std::to_string(x.m_%s));' % field.name, 2)
-            elif field.type == "float" and not field.seq and not field.opt:
-                self.emit('s.append(std::to_string(x.m_%s));' % field.name, 2)
-            elif field.type == "bool" and not field.seq and not field.opt:
-                self.emit("if (x.m_%s) {" % field.name, 2)
-                self.emit(    's.append("true");', 3)
-                self.emit("} else {", 2)
-                self.emit(    's.append("false");', 3)
-                self.emit("}", 2)
-            elif field.type in self.data.simple_types:
-                if field.opt:
-                    self.emit('s.append("\\"Unimplementedopt\\"");', 2)
-                else:
-                    self.emit('visit_%sType(x.m_%s);' \
-                            % (field.type, field.name), 2)
-            else:
-                self.emit('s.append("\\"Unimplemented%s\\"");' % field.type, 2)
-
-
-class SerializationVisitorVisitor(ASDLVisitor):
-
-    def visitModule(self, mod):
-        self.emit("/" + "*"*78 + "/")
-        self.emit("// Serialization Visitor base class")
-        self.emit("")
-        self.emit("template <class Struct>")
-        self.emit("class SerializationBaseVisitor : public BaseVisitor<Struct>")
-        self.emit("{")
-        self.emit("private:")
-        self.emit(  "Struct& self() { return static_cast<Struct&>(*this); }", 1)
-        self.emit("public:")
-        self.mod = mod
-        super(SerializationVisitorVisitor, self).visitModule(mod)
-        self.emit("};")
-
-    def visitType(self, tp):
-        super(SerializationVisitorVisitor, self).visitType(tp, tp.name)
-
-    def visitSum(self, sum, *args):
-        assert isinstance(sum, asdl.Sum)
-        if is_simple_sum(sum):
-            name = args[0] + "Type"
-            self.make_simple_sum_visitor(name, sum.types)
-        else:
-            for tp in sum.types:
-                self.visit(tp, *args)
-
-    def visitProduct(self, prod, name):
-        self.make_visitor(name, prod.fields, False)
-
-    def visitConstructor(self, cons, _):
-        self.make_visitor(cons.name, cons.fields, True)
-
-    def make_visitor(self, name, fields, cons):
-        self.emit("void visit_%s(const %s_t &x) {" % (name, name), 1)
-        if cons:
-            self.emit(    'self().write_int8(x.base.type);', 2)
-            self.emit(    'self().write_int64(x.base.base.loc.first);', 2)
-            self.emit(    'self().write_int64(x.base.base.loc.last);', 2)
-        self.used = False
-        for n, field in enumerate(fields):
-            self.visitField(field, cons, name)
-        if not self.used:
-            # Note: a better solution would be to change `&x` to `& /* x */`
-            # above, but we would need to change emit to return a string.
-            self.emit("if ((bool&)x) { } // Suppress unused warning", 2)
-        self.emit("}", 1)
-
-    def make_simple_sum_visitor(self, name, types):
-        self.emit("void visit_%s(const %s &x) {" % (name, name), 1)
-        self.emit(    'self().write_int8(x);', 2)
-        self.emit("}", 1)
-
-    def visitField(self, field, cons, cons_name):
-        if (field.type not in asdl.builtin_types and
-            field.type not in self.data.simple_types):
-            self.used = True
-            level = 2
-            if field.type in products:
-                if field.opt:
-                    template = "self().visit_%s(*x.m_%s);" % (field.type, field.name)
-                else:
-                    template = "self().visit_%s(x.m_%s);" % (field.type, field.name)
-            else:
-                if field.type == "symbol":
-                    if cons_name == "ExternalSymbol":
-                        template = "// We skip the symbol for ExternalSymbol"
-                    else:
-                        template = "self().write_symbol(*x.m_%s);" \
-                            % field.name
-                else:
-                    template = "self().visit_%s(*x.m_%s);" % (field.type, field.name)
-            if field.seq:
-                self.emit('self().write_int64(x.n_%s);' % field.name, level)
-                self.emit("for (size_t i=0; i<x.n_%s; i++) {" % field.name, level)
-                if field.type == "symbol":
-                    self.emit("self().write_symbol(*x.m_%s[i]);" % (field.name), level+1)
-                elif field.type in sums:
-                    self.emit("self().visit_%s(*x.m_%s[i]);" % (field.type, field.name), level+1)
-                else:
-                    self.emit("self().visit_%s(x.m_%s[i]);" % (field.type, field.name), level+1)
-                self.emit("}", level)
-            elif field.opt:
-                self.emit("if (x.m_%s) {" % field.name, 2)
-                self.emit(    'self().write_bool(true);', 3)
-                self.emit(template, 3)
-                self.emit("} else {", 2)
-                self.emit(    'self().write_bool(false);', 3)
-                self.emit("}", 2)
-            else:
-                self.emit(template, level)
-        else:
-            if field.type == "identifier":
-                if field.seq:
-                    assert not field.opt
-                    level = 2
-                    self.emit('self().write_int64(x.n_%s);' % field.name, level)
-                    self.emit("for (size_t i=0; i<x.n_%s; i++) {" % field.name, level)
-                    self.emit("self().write_string(x.m_%s[i]);" % (field.name), level+1)
-                    self.emit("}", level)
-                else:
-                    if field.opt:
-                        self.emit("if (x.m_%s) {" % field.name, 2)
-                        self.emit(    'self().write_bool(true);', 3)
-                        self.emit(    'self().write_string(x.m_%s);' % field.name, 3)
-                        self.emit("} else {", 2)
-                        self.emit(    'self().write_bool(false);', 3)
-                        self.emit("}", 2)
-                    else:
-                        self.emit('self().write_string(x.m_%s);' % field.name, 2)
-            elif field.type == "node":
-                assert not field.opt
-                assert field.seq
-                level = 2
-                self.emit('self().write_int64(x.n_%s);' % field.name, level)
-                self.emit("for (size_t i=0; i<x.n_%s; i++) {" % field.name, level)
-                mod_name = self.mod.name.lower()
-                self.emit("self().write_int8(x.m_%s[i]->type);" % \
-                        field.name, level+1)
-                self.emit("self().visit_%s(*x.m_%s[i]);" % (mod_name, field.name), level+1)
-                self.emit("}", level)
-            elif field.type == "symbol_table":
-                assert not field.opt
-                assert not field.seq
-                # TODO: write the symbol table consistent with the reader:
-                if field.name == "parent_symtab":
-                    level = 2
-                    self.emit('self().write_int64(x.m_%s->counter);' % field.name, level)
-                else:
-                    level = 2
-                    self.emit('self().write_int64(x.m_%s->counter);' % field.name, level)
-                    self.emit('self().write_int64(x.m_%s->get_scope().size());' % field.name, level)
-                    self.emit('for (auto &a : x.m_%s->get_scope()) {' % field.name, level)
-                    self.emit('    if (ASR::is_a<ASR::Function_t>(*a.second)) {', level)
-                    self.emit('        continue;', level)
-                    self.emit('    }', level)
-                    self.emit('    self().write_string(a.first);', level)
-                    self.emit('    this->visit_symbol(*a.second);', level)
-                    self.emit('}', level)
-                    self.emit('for (auto &a : x.m_%s->get_scope()) {' % field.name, level)
-                    self.emit('    if (ASR::is_a<ASR::Function_t>(*a.second)) {', level)
-                    self.emit('        self().write_string(a.first);', level)
-                    self.emit('        this->visit_symbol(*a.second);', level)
-                    self.emit('    }', level)
-                    self.emit('}', level)
-            elif field.type == "string" and not field.seq:
-                if field.opt:
-                    self.emit("if (x.m_%s) {" % field.name, 2)
-                    self.emit(    'self().write_bool(true);', 3)
-                    self.emit(    'self().write_string(x.m_%s);' % field.name, 3)
-                    self.emit("} else {", 2)
-                    self.emit(    'self().write_bool(false);', 3)
-                    self.emit("}", 2)
-                else:
-                    self.emit('self().write_string(x.m_%s);' % field.name, 2)
-            elif field.type == "int" and not field.seq:
-                if field.opt:
-                    self.emit("if (x.m_%s) {" % field.name, 2)
-                    self.emit(    'self().write_bool(true);', 3)
-                    self.emit(    'self().write_int64(x.m_%s);' % field.name, 3)
-                    self.emit("} else {", 2)
-                    self.emit(    'self().write_bool(false);', 3)
-                    self.emit("}", 2)
-                else:
-                    self.emit('self().write_int64(x.m_%s);' % field.name, 2)
-            elif field.type == "bool" and not field.seq and not field.opt:
-                self.emit("if (x.m_%s) {" % field.name, 2)
-                self.emit(    'self().write_bool(true);', 3)
-                self.emit("} else {", 2)
-                self.emit(    'self().write_bool(false);', 3)
-                self.emit("}", 2)
-            elif field.type == "float" and not field.seq and not field.opt:
-                self.emit('self().write_float64(x.m_%s);' % field.name, 2)
-            elif field.type in self.data.simple_types:
-                if field.opt:
-                    raise Exception("Unimplemented opt for field type: " + field.type);
-                else:
-                    self.emit('visit_%sType(x.m_%s);' \
-                            % (field.type, field.name), 2)
-            else:
-                raise Exception("Unimplemented field type: " + field.type);
-
-class DeserializationVisitorVisitor(ASDLVisitor):
-
-    def visitModule(self, mod):
-        self.emit("/" + "*"*78 + "/")
-        self.emit("// Deserialization Visitor base class")
-        self.emit("")
-        self.emit("template <class Struct>")
-        self.emit("class DeserializationBaseVisitor : public BaseVisitor<Struct>")
-        self.emit("{")
-        self.emit("private:")
-        self.emit(  "Struct& self() { return static_cast<Struct&>(*this); }", 1)
-        self.emit("public:")
-        self.emit(  "Allocator &al;", 1)
-        self.emit(  "bool load_symtab_id;", 1)
-        self.emit(  "std::map<uint64_t,SymbolTable*> id_symtab_map;", 1)
-        self.emit(  r"DeserializationBaseVisitor(Allocator &al, bool load_symtab_id) : al{al}, load_symtab_id{load_symtab_id} {}", 1)
-        self.emit_deserialize_node();
-        self.mod = mod
-        super(DeserializationVisitorVisitor, self).visitModule(mod)
-        self.emit("};")
-
-    def visitType(self, tp):
-        super(DeserializationVisitorVisitor, self).visitType(tp, tp.name)
-
-    def visitSum(self, sum, *args):
-        assert isinstance(sum, asdl.Sum)
-        if is_simple_sum(sum):
-            self.emit("%sType deserialize_%s() {" % (args[0], args[0]), 1)
-            self.emit(  'uint8_t t = self().read_int8();', 2)
-            self.emit(  '%sType ty = static_cast<%sType>(t);' % (args[0], args[0]), 2)
-            self.emit(  'return ty;', 2)
-            self.emit("}", 1)
-        else:
-            for tp in sum.types:
-                self.visit(tp, *args)
-            self.emit("%s_t* deserialize_%s() {" % (subs["mod"], args[0]), 1)
-            self.emit(  'uint8_t t = self().read_int8();', 2)
-            self.emit(  '%s::%sType ty = static_cast<%s::%sType>(t);' % (subs["MOD"], args[0],
-                subs["MOD"], args[0]), 2)
-            self.emit(  'switch (ty) {', 2)
-            for tp in sum.types:
-                self.emit(    'case (%s::%sType::%s) : return self().deserialize_%s();' \
-                    % (subs["MOD"], args[0], tp.name, tp.name), 3)
-            self.emit(    'default : throw LCompilersException("Unknown type in deserialize_%s()");' % args[0], 3)
-            self.emit(  '}', 2)
-            self.emit(  'throw LCompilersException("Switch statement above was not exhaustive.");', 2)
-
-            self.emit("}", 1)
-
-    def emit_deserialize_node(self):
-        name = "node"
-        self.emit("%s_t* deserialize_%s() {" % (subs["mod"], name), 1)
-        self.emit(  'uint8_t t = self().read_int8();', 2)
-        self.emit(  '%s::%sType ty = static_cast<%s::%sType>(t);' % (subs["MOD"], subs["mod"],
-            subs["MOD"], subs["mod"]), 2)
-        self.emit(  'switch (ty) {', 2)
-        for tp in sums:
-            self.emit(    'case (%s::%sType::%s) : return self().deserialize_%s();' \
-                % (subs["MOD"], subs["mod"], tp, tp), 3)
-        self.emit(    'default : throw LCompilersException("Unknown type in deserialize_%s()");' % name, 3)
-        self.emit(  '}', 2)
-        self.emit(  'throw LCompilersException("Switch statement above was not exhaustive.");', 2)
-        self.emit(  '}', 1)
-
-    def visitProduct(self, prod, name):
-        self.emit("%s_t deserialize_%s() {" % (name, name), 1)
-        self.emit(  '%s_t x;' % (name), 2)
-        for field in prod.fields:
-            if field.seq:
-                assert not field.opt
-                assert field.type not in simple_sums
-                if field.type in asdl.builtin_types:
-                    if field.type == "identifier":
-                        self.emit('{', 2)
-                        self.emit('uint64_t n = self().read_int64();', 3)
-                        self.emit("Vec<char*> v;", 3)
-                        self.emit("v.reserve(al, n);", 3)
-                        self.emit("for (uint64_t i=0; i<n; i++) {", 3)
-                        self.emit("v.push_back(al, self().read_cstring());", 4)
-                        self.emit('}', 3)
-                        self.emit('x.m_%s = v.p;' % (field.name), 3)
-                        self.emit('x.n_%s = v.n;' % (field.name), 3)
-                        self.emit('}', 2)
-                    else:
-                        assert False
-                else:
-                    self.emit('{', 2)
-                    self.emit('uint64_t n = self().read_int64();', 3)
-                    if field.type in products:
-                        self.emit("Vec<%s_t> v;" % (field.type), 3)
-                    else:
-                        self.emit("Vec<%s_t*> v;" % (field.type), 3)
-                    self.emit("v.reserve(al, n);", 3)
-                    self.emit("for (uint64_t i=0; i<n; i++) {", 3)
-                    if field.type in products:
-                        self.emit("v.push_back(al, self().deserialize_%s());" \
-                             % (field.type), 4)
-                    else:
-                        self.emit("v.push_back(al, down_cast<%s_t>(self().deserialize_%s()));" % (field.type, field.type), 4)
-                    self.emit('}', 3)
-                    self.emit('x.m_%s = v.p;' % (field.name), 3)
-                    self.emit('x.n_%s = v.n;' % (field.name), 3)
-                    self.emit('}', 2)
-            else:
-                self.emit('{', 2)
-                if field.opt:
-                    self.emit("bool present=self().read_bool();", 3)
-                if field.type in asdl.builtin_types:
-                    if field.type == "identifier":
-                        rhs = "self().read_cstring()"
-                    elif field.type == "string":
-                        rhs = "self().read_cstring()"
-                    elif field.type == "int":
-                        rhs = "self().read_int64()"
-                    else:
-                        print(field.type)
-                        assert False
-                elif field.type in simple_sums:
-                    rhs = "deserialize_%s()" % (field.type)
-                else:
-                    assert field.type not in products
-                    if field.type == "symbol":
-                        rhs = "self().read_symbol()"
-                    else:
-                        rhs = "down_cast<%s_t>(deserialize_%s())" % (field.type,
-                            field.type)
-                if field.opt:
-                    self.emit('if (present) {', 3)
-                self.emit('x.m_%s = %s;' % (field.name, rhs), 4)
-                if field.opt:
-                    self.emit('} else {', 3)
-                    self.emit(  'x.m_%s = nullptr;' % (field.name), 4)
-                    self.emit('}', 3)
-                self.emit('}', 2)
-        self.emit(  'return x;', 2)
-        self.emit("}", 1)
-
-    def visitConstructor(self, cons, _):
-        name = cons.name
-        self.emit("%s_t* deserialize_%s() {" % (subs["mod"], name), 1)
-        lines = []
-        args = ["al", "loc"]
-        for f in cons.fields:
-            #type_ = convert_type(f.type, f.seq, f.opt, self.mod.name.lower())
-            if f.seq:
-                seq = "size_t n_%s; // Sequence" % f.name
-                self.emit("%s" % seq, 2)
-            else:
-                seq = ""
-            if f.seq:
-                assert f.type not in self.data.simple_types
-                if f.type not in asdl.builtin_types:
-                    lines.append("n_%s = self().read_int64();" % (f.name))
-                    if f.type in products:
-                        lines.append("Vec<%s_t> v_%s;" % (f.type, f.name))
-                    else:
-                        lines.append("Vec<%s_t*> v_%s;" % (f.type, f.name))
-                    lines.append("v_%s.reserve(al, n_%s);" % (f.name, f.name))
-                    lines.append("for (size_t i=0; i<n_%s; i++) {" % (f.name))
-                    if f.type in products:
-                        lines.append("    v_%s.push_back(al, self().deserialize_%s());" % (f.name, f.type))
-                    else:
-                        if f.type == "symbol":
-                            lines.append("    v_%s.push_back(al, self().read_symbol());" % (f.name))
-                        else:
-                            lines.append("    v_%s.push_back(al, %s::down_cast<%s::%s_t>(self().deserialize_%s()));" % (f.name,
-                                subs["MOD"], subs["MOD"], f.type, f.type))
-                    lines.append("}")
-                else:
-                    if f.type == "node":
-                        lines.append("n_%s = self().read_int64();" % (f.name))
-                        lines.append("Vec<%s_t*> v_%s;" % (subs["mod"], f.name))
-                        lines.append("v_%s.reserve(al, n_%s);" % (f.name, f.name))
-                        lines.append("for (size_t i=0; i<n_%s; i++) {" % (f.name))
-                        lines.append("    v_%s.push_back(al, self().deserialize_node());" % (f.name))
-                        lines.append("}")
-                    elif f.type == "identifier":
-                        lines.append("n_%s = self().read_int64();" % (f.name))
-                        lines.append("Vec<char*> v_%s;" % (f.name))
-                        lines.append("v_%s.reserve(al, n_%s);" % (f.name, f.name))
-                        lines.append("for (size_t i=0; i<n_%s; i++) {" % (f.name))
-                        lines.append("    v_%s.push_back(al, self().read_cstring());" % (f.name))
-                        lines.append("}")
-                    else:
-                        print(f.type)
-                        assert False
-                args.append("v_%s.p" % (f.name))
-                args.append("v_%s.n" % (f.name))
-            else:
-                # if builtin or simple types, handle appropriately
-                if f.type in asdl.builtin_types:
-                    if f.type == "identifier":
-                        lines.append("char *m_%s;" % (f.name))
-                        if f.opt:
-                            lines.append("bool m_%s_present = self().read_bool();" \
-                                % f.name)
-                            lines.append("if (m_%s_present) {" % f.name)
-                        lines.append("m_%s = self().read_cstring();" % (f.name))
-                        if f.opt:
-                            lines.append("} else {")
-                            lines.append("m_%s = nullptr;" % (f.name))
-                            lines.append("}")
-                        args.append("m_%s" % (f.name))
-                    elif f.type == "string":
-                        lines.append("char *m_%s;" % (f.name))
-                        if f.opt:
-                            lines.append("bool m_%s_present = self().read_bool();" \
-                                % f.name)
-                            lines.append("if (m_%s_present) {" % f.name)
-                        lines.append("m_%s = self().read_cstring();" % (f.name))
-                        if f.opt:
-                            lines.append("} else {")
-                            lines.append("m_%s = nullptr;" % (f.name))
-                            lines.append("}")
-                        args.append("m_%s" % (f.name))
-                    elif f.type == "int":
-                        assert not f.opt
-                        lines.append("int64_t m_%s = self().read_int64();" % (f.name))
-                        args.append("m_%s" % (f.name))
-                    elif f.type == "float":
-                        assert not f.opt
-                        lines.append("double m_%s = self().read_float64();" % (f.name))
-                        args.append("m_%s" % (f.name))
-                    elif f.type == "bool":
-                        assert not f.opt
-                        lines.append("bool m_%s = self().read_bool();" % (f.name))
-                        args.append("m_%s" % (f.name))
-                    elif f.type == "symbol_table":
-                        assert not f.opt
-                        # TODO: read the symbol table:
-                        args.append("m_%s" % (f.name))
-                        lines.append("uint64_t m_%s_counter = self().read_int64();" % (f.name))
-                        if f.name == "parent_symtab":
-                            # If this fails, it means we are referencing a
-                            # symbol table that was not constructed yet. If
-                            # that ever happens, we would have to remember
-                            # this and come back later to fix the pointer.
-                            lines.append("LCOMPILERS_ASSERT(id_symtab_map.find(m_%s_counter) != id_symtab_map.end());" % f.name)
-                            lines.append("SymbolTable *m_%s = id_symtab_map[m_%s_counter];" % (f.name, f.name))
-                        else:
-                            # We construct a new table. It should not
-                            # be present:
-                            lines.append("LCOMPILERS_ASSERT(id_symtab_map.find(m_%s_counter) == id_symtab_map.end());" % f.name)
-                            lines.append("SymbolTable *m_%s = al.make_new<SymbolTable>(nullptr);" % (f.name))
-                            lines.append("if (load_symtab_id) m_%s->counter = m_%s_counter;" % (f.name, f.name))
-                            lines.append("id_symtab_map[m_%s_counter] = m_%s;" % (f.name, f.name))
-                            lines.append("{")
-                            lines.append("    size_t n = self().read_int64();")
-                            lines.append("    for (size_t i=0; i<n; i++) {")
-                            lines.append("        std::string name = self().read_string();")
-                            lines.append("        symbol_t *sym = down_cast<symbol_t>(deserialize_symbol());")
-                            lines.append("        self().symtab_insert_symbol(*m_%s, name, sym);" % f.name)
-                            lines.append("    }")
-                            lines.append("}")
-                    else:
-                        print(f.type)
-                        assert False
-                else:
-                    if f.type in products:
-                        assert not f.opt
-                        lines.append("%s::%s_t m_%s = self().deserialize_%s();" % (subs["MOD"], f.type, f.name, f.type))
-                    else:
-                        if f.type in simple_sums:
-                            assert not f.opt
-                            lines.append("%s::%sType m_%s = self().deserialize_%s();" % (subs["MOD"],
-                                f.type, f.name, f.type))
-                        else:
-                            lines.append("%s::%s_t *m_%s;" % (subs["MOD"],
-                                f.type, f.name))
-                            if f.opt:
-                                lines.append("if (self().read_bool()) {")
-                            if f.type == "symbol":
-                                if name == "ExternalSymbol":
-                                    lines.append("// We skip the symbol for ExternalSymbol")
-                                    lines.append("m_%s = nullptr;" % (f.name))
-                                else:
-                                    lines.append("m_%s = self().read_symbol();" % (f.name))
-                            else:
-                                lines.append("m_%s = %s::down_cast<%s::%s_t>(self().deserialize_%s());" % (
-                                    f.name, subs["MOD"], subs["MOD"], f.type, f.type))
-                            if f.opt:
-                                lines.append("} else {")
-                                lines.append("m_%s = nullptr;" % f.name)
-                                lines.append("}")
-                    args.append("m_%s" % (f.name))
-
-        self.emit(    'Location loc;', 2)
-        self.emit(    'loc.first = self().read_int64();', 2)
-        self.emit(    'loc.last = self().read_int64();', 2)
-        if subs["lcompiler"] == "lfortran":
-            # Set the location to 0 for now, since we do not yet
-            # support multiple files
-            self.emit(    'loc.first = 0;', 2)
-            self.emit(    'loc.last = 0;', 2)
-        for line in lines:
-            self.emit(line, 2)
-        self.emit(    'return %s::make_%s_t(%s);' % (subs["MOD"], name, ", ".join(args)), 2)
-        self.emit("}", 1)
-
-class ExprTypeVisitor(ASDLVisitor):
-
-    def __init__(self, stream, data):
-        self.replace_expr = []
-        self.is_expr = False
-        self.is_product = False
-        super(ExprTypeVisitor, self).__init__(stream, data)
-
-    def emit(self, line, level=0, new_line=True):
-        indent = "    "*level
-        self.stream.write(indent + line)
-        if new_line:
-            self.stream.write("\n")
-
-    def visitModule(self, mod):
-        self.emit("/" + "*"*78 + "/")
-        self.emit("// Expression Type (`expr_type`) visitor")
-        self.emit("""\
-static inline ASR::ttype_t* expr_type0(const ASR::expr_t *f)
-{
-    LCOMPILERS_ASSERT(f != nullptr);
-    switch (f->type) {""")
-
-        super(ExprTypeVisitor, self).visitModule(mod)
-
-        self.emit("""        default : throw LCompilersException("Not implemented");
-    }
-}
-""")
-
-    def visitType(self, tp):
-        if not (isinstance(tp.value, asdl.Sum) and
-                is_simple_sum(tp.value)):
-            super(ExprTypeVisitor, self).visitType(tp, tp.name)
-
-    def visitSum(self, sum, *args):
-        self.is_expr = args[0] == 'expr'
-        if self.is_expr:
-            for tp in sum.types:
-                self.visit(tp, *args)
-
-    def visitProduct(self, prod, name):
-        pass
-
-    def visitConstructor(self, cons, _):
-        self.make_visitor(cons.name, cons.fields)
-
-    def make_visitor(self, name, fields):
-        if name == "Var":
-            self.emit("""case ASR::exprType::%s: {
-            ASR::symbol_t *s = ((ASR::%s_t*)f)->m_v;
-            if (s->type == ASR::symbolType::ExternalSymbol) {
-                ASR::ExternalSymbol_t *e = ASR::down_cast<ASR::ExternalSymbol_t>(s);
-                LCOMPILERS_ASSERT(e->m_external);
-                LCOMPILERS_ASSERT(!ASR::is_a<ASR::ExternalSymbol_t>(*e->m_external));
-                s = e->m_external;
-            }
-            return ASR::down_cast<ASR::Variable_t>(s)->m_type;
-        }""" \
-                    % (name, name), 2, new_line=False)
-        elif name == "OverloadedBinOp":
-            self.emit("case ASR::exprType::%s: { return expr_type0(((ASR::%s_t*)f)->m_overloaded); }"\
-                    % (name, name), 2, new_line=False)
-        else:
-            self.emit("case ASR::exprType::%s: { return ((ASR::%s_t*)f)->m_type; }"\
-                    % (name, name), 2, new_line=False)
-        self.emit("")
-
-    def visitField(self, field):
-        pass
-
-class ExprValueVisitor(ASDLVisitor):
-
-    def __init__(self, stream, data):
-        self.replace_expr = []
-        self.is_expr = False
-        self.is_product = False
-        super(ExprValueVisitor, self).__init__(stream, data)
-
-    def emit(self, line, level=0, new_line=True):
-        indent = "    "*level
-        self.stream.write(indent + line)
-        if new_line:
-            self.stream.write("\n")
-
-    def visitModule(self, mod):
-        self.emit("/" + "*"*78 + "/")
-        self.emit("// Expression Value (`expr_value`) visitor")
-        self.emit("""\
-static inline ASR::expr_t* expr_value0(ASR::expr_t *f)
-{
-    LCOMPILERS_ASSERT(f != nullptr);
-    switch (f->type) {""")
-
-        super(ExprValueVisitor, self).visitModule(mod)
-
-        self.emit("""        default : throw LCompilersException("Not implemented");
-    }
-}
-""")
-
-    def visitType(self, tp):
-        if not (isinstance(tp.value, asdl.Sum) and
-                is_simple_sum(tp.value)):
-            super(ExprValueVisitor, self).visitType(tp, tp.name)
-
-    def visitSum(self, sum, *args):
-        self.is_expr = args[0] == 'expr'
-        if self.is_expr:
-            for tp in sum.types:
-                self.visit(tp, *args)
-
-    def visitProduct(self, prod, name):
-        pass
-
-    def visitConstructor(self, cons, _):
-        self.make_visitor(cons.name, cons.fields)
-
-    def make_visitor(self, name, fields):
-        if name == "Var":
-            self.emit("""case ASR::exprType::%s: {
-            ASR::symbol_t *s = ((ASR::%s_t*)f)->m_v;
-            if (s->type == ASR::symbolType::ExternalSymbol) {
-                ASR::ExternalSymbol_t *e = ASR::down_cast<ASR::ExternalSymbol_t>(s);
-                LCOMPILERS_ASSERT(!ASR::is_a<ASR::ExternalSymbol_t>(*e->m_external));
-                s = e->m_external;
-            }
-            return ASR::down_cast<ASR::Variable_t>(s)->m_value;
-        }""" \
-                    % (name, name), 2, new_line=False)
-        elif name.endswith("Constant") or name == "IntegerBOZ":
-            self.emit("case ASR::exprType::%s: { return f; }"\
-                    % (name), 2, new_line=False)
-        else:
-            self.emit("case ASR::exprType::%s: { return ((ASR::%s_t*)f)->m_value; }"\
-                    % (name, name), 2, new_line=False)
-        self.emit("")
-
-    def visitField(self, field):
-        pass
-
-class ASDLData(object):
-
-    def __init__(self, tree):
-        simple_types = set()
-        prod_simple = set()
-        field_masks = {}
-        required_masks = {}
-        optional_masks = {}
-        cons_attributes = {}
-        def add_masks(fields, node):
-            required_mask = 0
-            optional_mask = 0
-            for i, field in enumerate(fields):
-                flag = 1 << i
-                if field not in field_masks:
-                    field_masks[field] = flag
-                else:
-                    assert field_masks[field] == flag
-                if field.opt:
-                    optional_mask |= flag
-                else:
-                    required_mask |= flag
-            required_masks[node] = required_mask
-            optional_masks[node] = optional_mask
-        for tp in tree.dfns:
-            if isinstance(tp.value, asdl.Sum):
-                sum = tp.value
-                if is_simple_sum(sum):
-                    simple_types.add(tp.name)
-                else:
-                    attrs = [field for field in sum.attributes]
-                    for cons in sum.types:
-                        add_masks(attrs + cons.fields, cons)
-                        cons_attributes[cons] = attrs
-            else:
-                prod = tp.value
-                prod_simple.add(tp.name)
-                add_masks(prod.fields, prod)
-        prod_simple.update(simple_types)
-        self.cons_attributes = cons_attributes
-        self.simple_types = simple_types
-        self.prod_simple = prod_simple
-        self.field_masks = field_masks
-        self.required_masks = required_masks
-        self.optional_masks = optional_masks
-
-
-HEAD = r"""#ifndef LFORTRAN_%(MOD2)s_H
-#define LFORTRAN_%(MOD2)s_H
-
-// Generated by grammar/asdl_cpp.py
-
-#include <libasr/alloc.h>
-#include <libasr/location.h>
-#include <libasr/colors.h>
-#include <libasr/containers.h>
-#include <libasr/exception.h>
-#include <libasr/asr_scopes.h>
-
-
-namespace LCompilers::%(MOD)s {
-
-enum %(mod)sType
-{
-    %(types)s
-};
-
-struct %(mod)s_t
-{
-    %(mod)sType type;
-    Location loc;
-};
-
-
-template <class T, class U>
-inline bool is_a(const U &x)
-{
-    return T::class_type == x.type;
-}
-
-// Cast one level down
-
-template <class T, class U>
-static inline T* down_cast(const U *f)
-{
-    LCOMPILERS_ASSERT(f != nullptr);
-    LCOMPILERS_ASSERT(is_a<T>(*f));
-    return (T*)f;
-}
-
-// Cast two levels down
-
-template <class T>
-static inline T* down_cast2(const %(mod)s_t *f)
-{
-    typedef typename T::parent_type ptype;
-    ptype *t = down_cast<ptype>(f);
-    return down_cast<T>(t);
-}
-
-"""
-
-FOOT = r"""} // namespace LCompilers::%(MOD)s
-
-#endif // LFORTRAN_%(MOD2)s_H
-"""
-
-visitors = [ASTNodeVisitor0, ASTNodeVisitor1, ASTNodeVisitor,
-        ASTVisitorVisitor1, ASTVisitorVisitor1b, ASTVisitorVisitor2,
-        ASTWalkVisitorVisitor, TreeVisitorVisitor, PickleVisitorVisitor,
-        JsonVisitorVisitor, SerializationVisitorVisitor, DeserializationVisitorVisitor]
-
-
-def main(argv):
-    if len(argv) == 3:
-        def_file, out_file = argv[1:]
-    else:
-        print("invalid arguments")
-        return 2
-    mod = asdl.parse(def_file)
-    data = ASDLData(mod)
-    CollectVisitor(None, data).visit(mod)
-    types_ = ", ".join(sums)
-    global subs
-    subs = {
-        "MOD": mod.name.upper(),
-        "MOD2": mod.name.upper(),
-        "mod": mod.name.lower(),
-        "types": types_,
-    }
-    if subs["MOD"] == "LPYTHON":
-        subs["MOD"] = "LPython::AST"
-        subs["mod"] = "ast"
-        subs["lcompiler"] = "lpython"
-    else:
-        subs["lcompiler"] = "lfortran"
-    is_asr = (mod.name.upper() == "ASR")
-    fp = open(out_file, "w", encoding="utf-8")
-    try:
-        fp.write(HEAD % subs)
-        for visitor in visitors:
-            visitor(fp, data).visit(mod)
-            fp.write("\n\n")
-        if not is_asr:
-            fp.write(FOOT % subs)
-    finally:
-        if not is_asr:
-            fp.close()
-
-    try:
-        if is_asr:
-            ExprStmtDuplicatorVisitor(fp, data).visit(mod)
-            fp.write("\n\n")
-            ExprBaseReplacerVisitor(fp, data).visit(mod)
-            fp.write("\n\n")
-            StmtBaseReplacerVisitor(fp, data).visit(mod)
-            fp.write("\n\n")
-            CallReplacerOnExpressionsVisitor(fp, data).visit(mod)
-            fp.write("\n\n")
-            ExprTypeVisitor(fp, data).visit(mod)
-            fp.write("\n\n")
-            ExprValueVisitor(fp, data).visit(mod)
-            fp.write("\n\n")
-            fp.write(FOOT % subs)
-    finally:
-        fp.close()
-
-
-if __name__ == "__main__":
-    sys.exit(main(sys.argv))
diff --git a/src/libasr/asr_scopes.cpp b/src/libasr/asr_scopes.cpp
deleted file mode 100644
index d6898b0e81..0000000000
--- a/src/libasr/asr_scopes.cpp
+++ /dev/null
@@ -1,138 +0,0 @@
-#include <iomanip>
-#include <sstream>
-
-#include <libasr/asr_scopes.h>
-#include <libasr/asr_utils.h>
-
-namespace LCompilers  {
-
-// This function is taken from:
-// https://github.com/aappleby/smhasher/blob/61a0530f28277f2e850bfc39600ce61d02b518de/src/MurmurHash2.cpp#L37
-uint32_t murmur_hash(const void * key, int len, uint32_t seed)
-{
-    // 'm' and 'r' are mixing constants generated offline.
-    // They're not really 'magic', they just happen to work well.
-    const uint32_t m = 0x5bd1e995;
-    const int r = 24;
-    // Initialize the hash to a 'random' value
-    uint32_t h = seed ^ len;
-    // Mix 4 bytes at a time into the hash
-    const unsigned char * data = (const unsigned char *)key;
-    while(len >= 4)
-    {
-        uint32_t k = *(uint32_t*)data;
-        k *= m;
-        k ^= k >> r;
-        k *= m;
-        h *= m;
-        h ^= k;
-        data += 4;
-        len -= 4;
-    }
-    // Handle the last few bytes of the input array
-    switch(len)
-    {
-        case 3: h ^= data[2] << 16; // fall through
-        case 2: h ^= data[1] << 8;  // fall through
-        case 1: h ^= data[0];
-            h *= m;
-    };
-    // Do a few final mixes of the hash to ensure the last few
-    // bytes are well-incorporated.
-    h ^= h >> 13;
-    h *= m;
-    h ^= h >> 15;
-    return h;
-}
-
-uint32_t murmur_hash_str(const std::string &s, uint32_t seed)
-{
-    return murmur_hash(&s[0], s.length(), seed);
-}
-
-uint32_t murmur_hash_int(uint64_t i, uint32_t seed)
-{
-    return murmur_hash(&i, 8, seed);
-}
-
-template< typename T >
-std::string hexify(T i)
-{
-    std::stringbuf buf;
-    std::ostream os(&buf);
-    os << std::setfill('0') << std::setw(sizeof(T) * 2) << std::hex << i;
-    return buf.str();
-}
-
-unsigned int symbol_table_counter = 0;
-
-SymbolTable::SymbolTable(SymbolTable *parent) : parent{parent} {
-    symbol_table_counter++;
-    counter = symbol_table_counter;
-}
-
-void SymbolTable::reset_global_counter() {
-    symbol_table_counter = 0;
-}
-
-void SymbolTable::mark_all_variables_external(Allocator &/*al*/) {
-    for (auto &a : scope) {
-        switch (a.second->type) {
-            case (ASR::symbolType::Variable) : {
-                ASR::Variable_t *v = ASR::down_cast<ASR::Variable_t>(a.second);
-                v->m_abi = ASR::abiType::Interactive;
-                break;
-            }
-            case (ASR::symbolType::Function) : {
-                ASR::Function_t *v = ASR::down_cast<ASR::Function_t>(a.second);
-                ASR::FunctionType_t* v_func_type = ASR::down_cast<ASR::FunctionType_t>(v->m_function_signature);
-                v_func_type->m_abi = ASR::abiType::Interactive;
-                v->m_body = nullptr;
-                v->n_body = 0;
-                break;
-            }
-            default : {};
-        }
-    }
-}
-
-ASR::symbol_t *SymbolTable::find_scoped_symbol(const std::string &name,
-        size_t n_scope_names, char **m_scope_names) {
-    const SymbolTable *s = this;
-    for(size_t i=0; i < n_scope_names; i++) {
-        std::string scope_name = m_scope_names[i];
-        if (s->scope.find(scope_name) != scope.end()) {
-            ASR::symbol_t *sym = s->scope.at(scope_name);
-            s = ASRUtils::symbol_symtab(sym);
-            if (s == nullptr) {
-                // The m_scope_names[i] found in the appropriate symbol table,
-                // but points to a symbol that itself does not have a symbol
-                // table
-                return nullptr;
-            }
-        } else {
-            // The m_scope_names[i] not found in the appropriate symbol table
-            return nullptr;
-        }
-    }
-    if (s->scope.find(name) != scope.end()) {
-        ASR::symbol_t *sym = s->scope.at(name);
-        LCOMPILERS_ASSERT(sym)
-        return sym;
-    } else {
-        // The `name` not found in the appropriate symbol table
-        return nullptr;
-    }
-}
-
-std::string SymbolTable::get_unique_name(const std::string &name) {
-    std::string unique_name = name;
-    int counter = 1;
-    while (scope.find(unique_name) != scope.end()) {
-        unique_name = name + std::to_string(counter);
-        counter++;
-    }
-    return unique_name;
-}
-
-} // namespace LCompilers
diff --git a/src/libasr/asr_scopes.h b/src/libasr/asr_scopes.h
deleted file mode 100644
index ddadb30fbf..0000000000
--- a/src/libasr/asr_scopes.h
+++ /dev/null
@@ -1,87 +0,0 @@
-#ifndef LFORTRAN_SEMANTICS_ASR_SCOPES_H
-#define LFORTRAN_SEMANTICS_ASR_SCOPES_H
-
-#include <map>
-
-#include <libasr/alloc.h>
-
-namespace LCompilers  {
-
-namespace ASR {
-    struct asr_t;
-    struct symbol_t;
-}
-
-struct SymbolTable {
-    private:
-    std::map<std::string, ASR::symbol_t*> scope;
-
-    public:
-    SymbolTable *parent;
-    // The ASR node (either symbol_t or TranslationUnit_t) that contains this
-    // SymbolTable as m_symtab / m_global_scope member. One of:
-    // * symbol_symtab(down_cast<symbol_t>(this->asr_owner)) == this
-    // * down_cast2<TranslationUnit_t>(this->asr_owner)->m_global_scope == this
-    ASR::asr_t *asr_owner = nullptr;
-    unsigned int counter;
-
-    SymbolTable(SymbolTable *parent);
-
-    // Determines a stable hash based on the content of the symbol table
-    uint32_t get_hash_uint32(); // Returns the hash as an integer
-    std::string get_counter() {  // Returns a unique ID as a string
-        return std::to_string(counter);
-    }
-    static void reset_global_counter(); // Resets the internal global counter
-
-    // Resolves the symbol `name` recursively in current and parent scopes.
-    // Returns `nullptr` if symbol not found.
-    ASR::symbol_t* resolve_symbol(const std::string &name) {
-        if (scope.find(name) == scope.end()) {
-            if (parent) {
-                return parent->resolve_symbol(name);
-            } else {
-                return nullptr;
-            }
-        }
-        return scope[name];
-    }
-
-    const std::map<std::string, ASR::symbol_t*>& get_scope() const {
-        return scope;
-    }
-
-    // Obtains the symbol `name` from the current symbol table
-    // Returns `nullptr` if symbol not found.
-    ASR::symbol_t* get_symbol(const std::string &name) const {
-        //auto it = scope.find(to_lower(name));
-        auto it = scope.find(name);
-        if (it == scope.end()) {
-            return nullptr;
-        } else {
-            return it->second;
-        }
-    }
-
-    void erase_symbol(const std::string &name) {
-        //auto it = scope.find(to_lower(name));
-        LCOMPILERS_ASSERT(scope.find(name) != scope.end())
-        scope.erase(name);
-    }
-
-    void add_symbol(const std::string &name, ASR::symbol_t* symbol) {
-        scope[name] = symbol;
-    }
-
-    // Marks all variables as external
-    void mark_all_variables_external(Allocator &al);
-
-    ASR::symbol_t *find_scoped_symbol(const std::string &name,
-        size_t n_scope_names, char **m_scope_names);
-
-    std::string get_unique_name(const std::string &name);
-};
-
-} // namespace LCompilers
-
-#endif // LFORTRAN_SEMANTICS_ASR_SCOPES_H
diff --git a/src/libasr/asr_utils.cpp b/src/libasr/asr_utils.cpp
deleted file mode 100644
index dc20216477..0000000000
--- a/src/libasr/asr_utils.cpp
+++ /dev/null
@@ -1,1083 +0,0 @@
-#include <unordered_set>
-#include <map>
-#include <libasr/asr_utils.h>
-#include <libasr/string_utils.h>
-#include <libasr/serialization.h>
-#include <libasr/assert.h>
-#include <libasr/asr_verify.h>
-#include <libasr/utils.h>
-#include <libasr/modfile.h>
-#include <libasr/pass/pass_utils.h>
-
-namespace LCompilers {
-
-    namespace ASRUtils  {
-
-// depth-first graph traversal
-void visit(
-    std::string const& a,
-    std::map<std::string, std::vector<std::string>> const& deps,
-    std::unordered_set<std::string>& visited,
-    std::vector<std::string>& result
-) {
-    visited.insert(a);
-    auto it = deps.find(a);
-    if (it != deps.end()) {
-        for (auto n : it->second) {
-            if (!visited.count(n)) visit(n, deps, visited, result);
-        }
-    }
-    result.push_back(a);
-}
-
-std::vector<std::string> order_deps(std::map<std::string, std::vector<std::string>> const& deps) {
-    // Compute ordering: depth-first graph traversal, inserting nodes on way back
-
-    // set containing the visited nodes
-    std::unordered_set<std::string> visited;
-
-    // vector containing result
-    std::vector<std::string> result;
-
-    for (auto d : deps) {
-        if (!visited.count(d.first)) {
-            visit(d.first, deps, visited, result);
-        }
-    }
-    return result;
-}
-
-std::vector<std::string> determine_module_dependencies(
-        const ASR::TranslationUnit_t &unit)
-{
-    std::map<std::string, std::vector<std::string>> deps;
-    for (auto &item : unit.m_global_scope->get_scope()) {
-        if (ASR::is_a<ASR::Module_t>(*item.second)) {
-            std::string name = item.first;
-            ASR::Module_t *m = ASR::down_cast<ASR::Module_t>(item.second);
-            deps[name] = std::vector<std::string>();
-            for (size_t i=0; i < m->n_dependencies; i++) {
-                std::string dep = m->m_dependencies[i];
-                deps[name].push_back(dep);
-            }
-        }
-    }
-    return order_deps(deps);
-}
-
-std::vector<std::string> determine_function_definition_order(
-        SymbolTable* symtab) {
-    std::map<std::string, std::vector<std::string>> func_dep_graph;
-    ASR::symbol_t *sym;
-    for( auto itr: symtab->get_scope() ) {
-        if( ASR::is_a<ASR::Function_t>(*itr.second) ) {
-            std::vector<std::string> deps;
-            ASR::Function_t* func = ASR::down_cast<ASR::Function_t>(itr.second);
-            for( size_t i = 0; i < func->n_dependencies; i++ ) {
-                std::string dep = func->m_dependencies[i];
-                // Check if the dependent variable is present in the symtab.
-                // This will help us to include only local dependencies, and we
-                // assume that dependencies in the parent symtab are already declared
-                // earlier.
-                sym = symtab->get_symbol(dep);
-                if (sym != nullptr && ASR::is_a<ASR::Function_t>(*sym))
-                    deps.push_back(dep);
-            }
-            func_dep_graph[itr.first] = deps;
-        }
-    }
-    return ASRUtils::order_deps(func_dep_graph);
-}
-
-std::vector<std::string> determine_variable_declaration_order(
-         SymbolTable* symtab) {
-    std::map<std::string, std::vector<std::string>> var_dep_graph;
-    ASR::symbol_t *sym;
-    for( auto itr: symtab->get_scope() ) {
-        if( ASR::is_a<ASR::Variable_t>(*itr.second) ) {
-            std::vector<std::string> deps;
-            ASR::Variable_t* var = ASR::down_cast<ASR::Variable_t>(itr.second);
-            for( size_t i = 0; i < var->n_dependencies; i++ ) {
-                std::string dep = var->m_dependencies[i];
-                // Check if the dependent variable is present in the symtab.
-                // This will help us to include only local dependencies, and we
-                // assume that dependencies in the parent symtab are already declared
-                // earlier.
-                sym = symtab->get_symbol(dep);
-                if (sym != nullptr && ASR::is_a<ASR::Variable_t>(*sym))
-                    deps.push_back(dep);
-            }
-            var_dep_graph[itr.first] = deps;
-        }
-    }
-    return ASRUtils::order_deps(var_dep_graph);
-}
-
-void extract_module_python(const ASR::TranslationUnit_t &m,
-                std::vector<std::pair<std::string, ASR::Module_t*>>& children_modules,
-                std::string module_name) {
-    bool module_found = false;
-    for (auto &a : m.m_global_scope->get_scope()) {
-        if( ASR::is_a<ASR::Module_t>(*a.second) ) {
-            if( a.first == "__main__" ) {
-                module_found = true;
-                children_modules.push_back(std::make_pair(module_name,
-                    ASR::down_cast<ASR::Module_t>(a.second)));
-            } else {
-                children_modules.push_back(std::make_pair(a.first,
-                    ASR::down_cast<ASR::Module_t>(a.second)));
-            }
-        }
-    }
-    if( !module_found ) {
-        throw LCompilersException("ICE: Module not found");
-    }
-}
-
-ASR::Module_t* extract_module(const ASR::TranslationUnit_t &m) {
-    LCOMPILERS_ASSERT(m.m_global_scope->get_scope().size()== 1);
-    for (auto &a : m.m_global_scope->get_scope()) {
-        LCOMPILERS_ASSERT(ASR::is_a<ASR::Module_t>(*a.second));
-        return ASR::down_cast<ASR::Module_t>(a.second);
-    }
-    throw LCompilersException("ICE: Module not found");
-}
-
-ASR::Module_t* load_module(Allocator &al, SymbolTable *symtab,
-                            const std::string &module_name,
-                            const Location &loc, bool intrinsic,
-                            LCompilers::PassOptions& pass_options,
-                            bool run_verify,
-                            const std::function<void (const std::string &, const Location &)> err) {
-    LCOMPILERS_ASSERT(symtab);
-    if (symtab->get_symbol(module_name) != nullptr) {
-        ASR::symbol_t *m = symtab->get_symbol(module_name);
-        if (ASR::is_a<ASR::Module_t>(*m)) {
-            return ASR::down_cast<ASR::Module_t>(m);
-        } else {
-            err("The symbol '" + module_name + "' is not a module", loc);
-        }
-    }
-    LCOMPILERS_ASSERT(symtab->parent == nullptr);
-    ASR::TranslationUnit_t *mod1 = find_and_load_module(al, module_name,
-            *symtab, intrinsic, pass_options);
-    if (mod1 == nullptr && !intrinsic) {
-        // Module not found as a regular module. Try intrinsic module
-        if (module_name == "iso_c_binding"
-            ||module_name == "iso_fortran_env"
-            ||module_name == "ieee_arithmetic") {
-            mod1 = find_and_load_module(al, "lfortran_intrinsic_" + module_name,
-                *symtab, true, pass_options);
-        }
-    }
-    if (mod1 == nullptr) {
-        err("Module '" + module_name + "' not declared in the current source and the modfile was not found",
-            loc);
-    }
-    ASR::Module_t *mod2 = extract_module(*mod1);
-    symtab->add_symbol(module_name, (ASR::symbol_t*)mod2);
-    mod2->m_symtab->parent = symtab;
-    mod2->m_loaded_from_mod = true;
-    LCOMPILERS_ASSERT(symtab->resolve_symbol(module_name));
-
-    // Create a temporary TranslationUnit just for fixing the symbols
-    ASR::asr_t *orig_asr_owner = symtab->asr_owner;
-    ASR::TranslationUnit_t *tu
-        = ASR::down_cast2<ASR::TranslationUnit_t>(ASR::make_TranslationUnit_t(al, loc,
-            symtab, nullptr, 0));
-
-    // Load any dependent modules recursively
-    bool rerun = true;
-    while (rerun) {
-        rerun = false;
-        std::vector<std::string> modules_list
-            = determine_module_dependencies(*tu);
-        for (auto &item : modules_list) {
-            if (symtab->get_symbol(item)
-                    == nullptr) {
-                // A module that was loaded requires to load another
-                // module
-
-                // This is not very robust, we should store that information
-                // in the ASR itself, or encode in the name in a robust way,
-                // such as using `module_name@intrinsic`:
-                bool is_intrinsic = startswith(item, "lfortran_intrinsic");
-                ASR::TranslationUnit_t *mod1 = find_and_load_module(al,
-                        item,
-                        *symtab, is_intrinsic, pass_options);
-                if (mod1 == nullptr && !is_intrinsic) {
-                    // Module not found as a regular module. Try intrinsic module
-                    if (item == "iso_c_binding"
-                        ||item == "iso_fortran_env") {
-                        mod1 = find_and_load_module(al, "lfortran_intrinsic_" + item,
-                            *symtab, true, pass_options);
-                    }
-                }
-
-                if (mod1 == nullptr) {
-                    err("Module '" + item + "' modfile was not found", loc);
-                }
-                ASR::Module_t *mod2 = extract_module(*mod1);
-                symtab->add_symbol(item, (ASR::symbol_t*)mod2);
-                mod2->m_symtab->parent = symtab;
-                mod2->m_loaded_from_mod = true;
-                rerun = true;
-            }
-        }
-    }
-
-    // Check that all modules are included in ASR now
-    std::vector<std::string> modules_list
-        = determine_module_dependencies(*tu);
-    for (auto &item : modules_list) {
-        if (symtab->get_symbol(item) == nullptr) {
-            err("ICE: Module '" + item + "' modfile was not found, but should have", loc);
-        }
-    }
-
-    // Fix all external symbols
-    fix_external_symbols(*tu, *symtab);
-    PassUtils::UpdateDependenciesVisitor v(al);
-    v.visit_TranslationUnit(*tu);
-    if (run_verify) {
-#if defined(WITH_LFORTRAN_ASSERT)
-        diag::Diagnostics diagnostics;
-        if (!asr_verify(*tu, true, diagnostics)) {
-            std::cerr << diagnostics.render2();
-            throw LCompilersException("Verify failed");
-        };
-#endif
-    }
-    symtab->asr_owner = orig_asr_owner;
-
-    return mod2;
-}
-
-void set_intrinsic(ASR::symbol_t* sym) {
-    switch( sym->type ) {
-        case ASR::symbolType::Module: {
-            ASR::Module_t* module_sym = ASR::down_cast<ASR::Module_t>(sym);
-            module_sym->m_intrinsic = true;
-            for( auto& itr: module_sym->m_symtab->get_scope() ) {
-                set_intrinsic(itr.second);
-            }
-            break;
-        }
-        case ASR::symbolType::Function: {
-            ASR::Function_t* function_sym = ASR::down_cast<ASR::Function_t>(sym);
-            ASR::FunctionType_t* func_sym_type = ASR::down_cast<ASR::FunctionType_t>(function_sym->m_function_signature);
-            func_sym_type->m_abi = ASR::abiType::Intrinsic;
-            break;
-        }
-        case ASR::symbolType::StructType: {
-            ASR::StructType_t* derived_type_sym = ASR::down_cast<ASR::StructType_t>(sym);
-            derived_type_sym->m_abi = ASR::abiType::Intrinsic;
-            break;
-        }
-        case ASR::symbolType::Variable: {
-            ASR::Variable_t* derived_type_sym = ASR::down_cast<ASR::Variable_t>(sym);
-            derived_type_sym->m_abi = ASR::abiType::Intrinsic;
-            break;
-        }
-        default: {
-            break;
-        }
-    }
-}
-
-void set_intrinsic(ASR::TranslationUnit_t* trans_unit) {
-    for( auto& itr: trans_unit->m_global_scope->get_scope() ) {
-        set_intrinsic(itr.second);
-    }
-}
-
-ASR::TranslationUnit_t* find_and_load_module(Allocator &al, const std::string &msym,
-                                                SymbolTable &symtab, bool intrinsic,
-                                                LCompilers::PassOptions& pass_options) {
-    std::filesystem::path runtime_library_dir { pass_options.runtime_library_dir };
-    std::filesystem::path filename {msym + ".mod"};
-    std::vector<std::filesystem::path> mod_files_dirs;
-
-    mod_files_dirs.push_back( runtime_library_dir );
-    mod_files_dirs.push_back( pass_options.mod_files_dir );
-    mod_files_dirs.insert(mod_files_dirs.end(),
-                          pass_options.include_dirs.begin(),
-                          pass_options.include_dirs.end());
-
-    for (auto path : mod_files_dirs) {
-        std::string modfile;
-        std::filesystem::path full_path = path / filename;
-        if (read_file(full_path.string(), modfile)) {
-            ASR::TranslationUnit_t *asr = load_modfile(al, modfile, false, symtab);
-            if (intrinsic) {
-                set_intrinsic(asr);
-            }
-            return asr;
-        }
-    }
-    return nullptr;
-}
-
-ASR::asr_t* getStructInstanceMember_t(Allocator& al, const Location& loc,
-                            ASR::asr_t* v_var, ASR::symbol_t* member,
-                            SymbolTable* current_scope) {
-    ASR::Variable_t* member_variable = ASR::down_cast<ASR::Variable_t>(member);
-    ASR::ttype_t* member_type = member_variable->m_type;
-    switch( member_type->type ) {
-        case ASR::ttypeType::Struct: {
-            ASR::Struct_t* der = ASR::down_cast<ASR::Struct_t>(member_type);
-            std::string der_type_name = ASRUtils::symbol_name(der->m_derived_type);
-            ASR::symbol_t* der_type_sym = current_scope->resolve_symbol(der_type_name);
-            if( der_type_sym == nullptr ) {
-                ASR::symbol_t* der_ext;
-                char* module_name = (char*)"~nullptr";
-                ASR::symbol_t* m_external = der->m_derived_type;
-                if( ASR::is_a<ASR::ExternalSymbol_t>(*m_external) ) {
-                    ASR::ExternalSymbol_t* m_ext = ASR::down_cast<ASR::ExternalSymbol_t>(m_external);
-                    m_external = m_ext->m_external;
-                    module_name = m_ext->m_module_name;
-                } else if( ASR::is_a<ASR::StructType_t>(*m_external) ) {
-                    ASR::symbol_t* asr_owner = ASRUtils::get_asr_owner(m_external);
-                    if( ASR::is_a<ASR::StructType_t>(*asr_owner) ) {
-                        module_name = ASRUtils::symbol_name(asr_owner);
-                    }
-                }
-                std::string mangled_name = current_scope->get_unique_name(
-                                            std::string(module_name) + "_" +
-                                            std::string(der_type_name));
-                char* mangled_name_char = s2c(al, mangled_name);
-                if( current_scope->get_symbol(mangled_name) == nullptr ) {
-                    bool make_new_ext_sym = true;
-                    ASR::symbol_t* der_tmp = nullptr;
-                    if( current_scope->get_symbol(std::string(der_type_name)) != nullptr ) {
-                        der_tmp = current_scope->get_symbol(std::string(der_type_name));
-                        if( ASR::is_a<ASR::ExternalSymbol_t>(*der_tmp) ) {
-                            ASR::ExternalSymbol_t* der_ext_tmp = ASR::down_cast<ASR::ExternalSymbol_t>(der_tmp);
-                            if( der_ext_tmp->m_external == m_external ) {
-                                make_new_ext_sym = false;
-                            }
-                        } else {
-                            make_new_ext_sym = false;
-                        }
-                    }
-                    if( make_new_ext_sym ) {
-                        der_ext = ASR::down_cast<ASR::symbol_t>(ASR::make_ExternalSymbol_t(
-                                        al, loc, current_scope, mangled_name_char, m_external,
-                                        module_name, nullptr, 0, s2c(al, der_type_name),
-                                        ASR::accessType::Public));
-                        current_scope->add_symbol(mangled_name, der_ext);
-                    } else {
-                        LCOMPILERS_ASSERT(der_tmp != nullptr);
-                        der_ext = der_tmp;
-                    }
-                } else {
-                    der_ext = current_scope->get_symbol(mangled_name);
-                }
-                ASR::asr_t* der_new = ASR::make_Struct_t(al, loc, der_ext, der->m_dims, der->n_dims);
-                member_type = ASRUtils::TYPE(der_new);
-            } else if(ASR::is_a<ASR::ExternalSymbol_t>(*der_type_sym)) {
-                member_type = ASRUtils::TYPE(ASR::make_Struct_t(al, loc, der_type_sym,
-                                der->m_dims, der->n_dims));
-            }
-            break;
-        }
-        default :
-            break;
-    }
-    return ASR::make_StructInstanceMember_t(al, loc, ASRUtils::EXPR(v_var), member, member_type, nullptr);
-}
-
-bool use_overloaded(ASR::expr_t* left, ASR::expr_t* right,
-                    ASR::binopType op, std::string& intrinsic_op_name,
-                    SymbolTable* curr_scope, ASR::asr_t*& asr,
-                    Allocator &al, const Location& loc,
-                    std::set<std::string>& current_function_dependencies,
-                    Vec<char*>& current_module_dependencies,
-                    const std::function<void (const std::string &, const Location &)> err) {
-    ASR::ttype_t *left_type = ASRUtils::expr_type(left);
-    ASR::ttype_t *right_type = ASRUtils::expr_type(right);
-    bool found = false;
-    if( is_op_overloaded(op, intrinsic_op_name, curr_scope) ) {
-        ASR::symbol_t* sym = curr_scope->resolve_symbol(intrinsic_op_name);
-        ASR::symbol_t* orig_sym = ASRUtils::symbol_get_past_external(sym);
-        ASR::CustomOperator_t* gen_proc = ASR::down_cast<ASR::CustomOperator_t>(orig_sym);
-        for( size_t i = 0; i < gen_proc->n_procs && !found; i++ ) {
-            ASR::symbol_t* proc = gen_proc->m_procs[i];
-            switch(proc->type) {
-                case ASR::symbolType::Function: {
-                    ASR::Function_t* func = ASR::down_cast<ASR::Function_t>(proc);
-                    std::string matched_func_name = "";
-                    if( func->n_args == 2 ) {
-                        ASR::ttype_t* left_arg_type = ASRUtils::expr_type(func->m_args[0]);
-                        ASR::ttype_t* right_arg_type = ASRUtils::expr_type(func->m_args[1]);
-                        if( left_arg_type->type == left_type->type &&
-                            right_arg_type->type == right_type->type ) {
-                            found = true;
-                            Vec<ASR::call_arg_t> a_args;
-                            a_args.reserve(al, 2);
-                            ASR::call_arg_t left_call_arg, right_call_arg;
-                            left_call_arg.loc = left->base.loc, left_call_arg.m_value = left;
-                            a_args.push_back(al, left_call_arg);
-                            right_call_arg.loc = right->base.loc, right_call_arg.m_value = right;
-                            a_args.push_back(al, right_call_arg);
-                            std::string func_name = to_lower(func->m_name);
-                            if( curr_scope->resolve_symbol(func_name) ) {
-                                matched_func_name = func_name;
-                            } else {
-                                std::string mangled_name = func_name + "@" + intrinsic_op_name;
-                                matched_func_name = mangled_name;
-                            }
-                            ASR::symbol_t* a_name = curr_scope->resolve_symbol(matched_func_name);
-                            if( a_name == nullptr ) {
-                                err("Unable to resolve matched function for operator overloading, " + matched_func_name, loc);
-                            }
-                            ASR::ttype_t *return_type = nullptr;
-                            if( ASRUtils::get_FunctionType(func)->m_elemental &&
-                                func->n_args == 1 &&
-                                ASRUtils::is_array(ASRUtils::expr_type(a_args[0].m_value)) ) {
-                                return_type = ASRUtils::duplicate_type(al, ASRUtils::expr_type(a_args[0].m_value));
-                            } else {
-                                return_type = ASRUtils::expr_type(func->m_return_var);
-                            }
-                            current_function_dependencies.insert(matched_func_name);
-                            if( ASR::is_a<ASR::ExternalSymbol_t>(*a_name) ) {
-                                current_module_dependencies.push_back(al, ASR::down_cast<ASR::ExternalSymbol_t>(a_name)->m_module_name);
-                            }
-                            asr = ASR::make_FunctionCall_t(al, loc, a_name, sym,
-                                                            a_args.p, 2,
-                                                            return_type,
-                                                            nullptr, nullptr);
-                        }
-                    }
-                    break;
-                }
-                default: {
-                    err("While overloading binary operators only functions can be used",
-                                        proc->base.loc);
-                }
-            }
-        }
-    }
-    return found;
-}
-
-bool is_op_overloaded(ASR::binopType op, std::string& intrinsic_op_name,
-                      SymbolTable* curr_scope) {
-    bool result = true;
-    switch(op) {
-        case ASR::binopType::Add: {
-            if(intrinsic_op_name != "~add") {
-                result = false;
-            }
-            break;
-        }
-        case ASR::binopType::Sub: {
-            if(intrinsic_op_name != "~sub") {
-                result = false;
-            }
-            break;
-        }
-        case ASR::binopType::Mul: {
-            if(intrinsic_op_name != "~mul") {
-                result = false;
-            }
-            break;
-        }
-        case ASR::binopType::Div: {
-            if(intrinsic_op_name != "~div") {
-                result = false;
-            }
-            break;
-        }
-        case ASR::binopType::Pow: {
-            if(intrinsic_op_name != "~pow") {
-                result = false;
-            }
-            break;
-        }
-        default: {
-            throw LCompilersException("Binary operator '" + ASRUtils::binop_to_str_python(op) + "' not supported yet");
-        }
-    }
-    if( result && curr_scope->get_symbol(intrinsic_op_name) == nullptr ) {
-        result = false;
-    }
-    return result;
-}
-
-bool is_parent(ASR::StructType_t* a, ASR::StructType_t* b) {
-    ASR::symbol_t* current_parent = b->m_parent;
-    while( current_parent ) {
-        if( current_parent == (ASR::symbol_t*) a ) {
-            return true;
-        }
-        LCOMPILERS_ASSERT(ASR::is_a<ASR::StructType_t>(*current_parent));
-        current_parent = ASR::down_cast<ASR::StructType_t>(current_parent)->m_parent;
-    }
-    return false;
-}
-
-bool is_derived_type_similar(ASR::StructType_t* a, ASR::StructType_t* b) {
-    return a == b || is_parent(a, b) || is_parent(b, a);
-}
-
-bool types_equal(const ASR::ttype_t &a, const ASR::ttype_t &b) {
-    // TODO: If anyone of the input or argument is derived type then
-    // add support for checking member wise types and do not compare
-    // directly. From stdlib_string len(pattern) error.
-    if (a.type == b.type) {
-        // TODO: check dims
-        // TODO: check all types
-        switch (a.type) {
-            case (ASR::ttypeType::Integer) : {
-                ASR::Integer_t *a2 = ASR::down_cast<ASR::Integer_t>(&a);
-                ASR::Integer_t *b2 = ASR::down_cast<ASR::Integer_t>(&b);
-                if (a2->m_kind == b2->m_kind) {
-                    return true;
-                } else {
-                    return false;
-                }
-                break;
-            }
-            case (ASR::ttypeType::Real) : {
-                ASR::Real_t *a2 = ASR::down_cast<ASR::Real_t>(&a);
-                ASR::Real_t *b2 = ASR::down_cast<ASR::Real_t>(&b);
-                if (a2->m_kind == b2->m_kind) {
-                    return true;
-                } else {
-                    return false;
-                }
-                break;
-            }
-            case (ASR::ttypeType::Complex) : {
-                ASR::Complex_t *a2 = ASR::down_cast<ASR::Complex_t>(&a);
-                ASR::Complex_t *b2 = ASR::down_cast<ASR::Complex_t>(&b);
-                if (a2->m_kind == b2->m_kind) {
-                    return true;
-                } else {
-                    return false;
-                }
-                break;
-            }
-            case (ASR::ttypeType::Logical) : {
-                ASR::Logical_t *a2 = ASR::down_cast<ASR::Logical_t>(&a);
-                ASR::Logical_t *b2 = ASR::down_cast<ASR::Logical_t>(&b);
-                if (a2->m_kind == b2->m_kind) {
-                    return true;
-                } else {
-                    return false;
-                }
-                break;
-            }
-            case (ASR::ttypeType::Character) : {
-                ASR::Character_t *a2 = ASR::down_cast<ASR::Character_t>(&a);
-                ASR::Character_t *b2 = ASR::down_cast<ASR::Character_t>(&b);
-                if (a2->m_kind == b2->m_kind) {
-                    return true;
-                } else {
-                    return false;
-                }
-                break;
-            }
-            case (ASR::ttypeType::List) : {
-                ASR::List_t *a2 = ASR::down_cast<ASR::List_t>(&a);
-                ASR::List_t *b2 = ASR::down_cast<ASR::List_t>(&b);
-                return types_equal(*a2->m_type, *b2->m_type);
-            }
-            case (ASR::ttypeType::Struct) : {
-                ASR::Struct_t *a2 = ASR::down_cast<ASR::Struct_t>(&a);
-                ASR::Struct_t *b2 = ASR::down_cast<ASR::Struct_t>(&b);
-                ASR::StructType_t *a2_type = ASR::down_cast<ASR::StructType_t>(
-                                                ASRUtils::symbol_get_past_external(
-                                                    a2->m_derived_type));
-                ASR::StructType_t *b2_type = ASR::down_cast<ASR::StructType_t>(
-                                                ASRUtils::symbol_get_past_external(
-                                                    b2->m_derived_type));
-                return a2_type == b2_type;
-            }
-            case (ASR::ttypeType::Class) : {
-                ASR::Class_t *a2 = ASR::down_cast<ASR::Class_t>(&a);
-                ASR::Class_t *b2 = ASR::down_cast<ASR::Class_t>(&b);
-                ASR::symbol_t* a2_typesym = ASRUtils::symbol_get_past_external(a2->m_class_type);
-                ASR::symbol_t* b2_typesym = ASRUtils::symbol_get_past_external(b2->m_class_type);
-                if( a2_typesym->type != b2_typesym->type ) {
-                    return false;
-                }
-                if( a2_typesym->type == ASR::symbolType::ClassType ) {
-                    ASR::ClassType_t *a2_type = ASR::down_cast<ASR::ClassType_t>(a2_typesym);
-                    ASR::ClassType_t *b2_type = ASR::down_cast<ASR::ClassType_t>(b2_typesym);
-                    return a2_type == b2_type;
-                } else if( a2_typesym->type == ASR::symbolType::StructType ) {
-                    ASR::StructType_t *a2_type = ASR::down_cast<ASR::StructType_t>(a2_typesym);
-                    ASR::StructType_t *b2_type = ASR::down_cast<ASR::StructType_t>(b2_typesym);
-                    return is_derived_type_similar(a2_type, b2_type);
-                }
-                return false;
-            }
-            default : return false;
-        }
-    } else if( a.type == ASR::ttypeType::Struct &&
-               b.type == ASR::ttypeType::Class ) {
-        ASR::Struct_t *a2 = ASR::down_cast<ASR::Struct_t>(&a);
-        ASR::Class_t *b2 = ASR::down_cast<ASR::Class_t>(&b);
-        ASR::symbol_t* a2_typesym = ASRUtils::symbol_get_past_external(a2->m_derived_type);
-        ASR::symbol_t* b2_typesym = ASRUtils::symbol_get_past_external(b2->m_class_type);
-        if( a2_typesym->type != b2_typesym->type ) {
-            return false;
-        }
-        if( a2_typesym->type == ASR::symbolType::ClassType ) {
-            ASR::ClassType_t *a2_type = ASR::down_cast<ASR::ClassType_t>(a2_typesym);
-            ASR::ClassType_t *b2_type = ASR::down_cast<ASR::ClassType_t>(b2_typesym);
-            return a2_type == b2_type;
-        } else if( a2_typesym->type == ASR::symbolType::StructType ) {
-            ASR::StructType_t *a2_type = ASR::down_cast<ASR::StructType_t>(a2_typesym);
-            ASR::StructType_t *b2_type = ASR::down_cast<ASR::StructType_t>(b2_typesym);
-            return is_derived_type_similar(a2_type, b2_type);
-        }
-    } else if( a.type == ASR::ttypeType::Class &&
-               b.type == ASR::ttypeType::Struct ) {
-        ASR::Class_t *a2 = ASR::down_cast<ASR::Class_t>(&a);
-        ASR::Struct_t *b2 = ASR::down_cast<ASR::Struct_t>(&b);
-        ASR::symbol_t* a2_typesym = ASRUtils::symbol_get_past_external(a2->m_class_type);
-        ASR::symbol_t* b2_typesym = ASRUtils::symbol_get_past_external(b2->m_derived_type);
-        if( a2_typesym->type != b2_typesym->type ) {
-            return false;
-        }
-        if( a2_typesym->type == ASR::symbolType::ClassType ) {
-            ASR::ClassType_t *a2_type = ASR::down_cast<ASR::ClassType_t>(a2_typesym);
-            ASR::ClassType_t *b2_type = ASR::down_cast<ASR::ClassType_t>(b2_typesym);
-            return a2_type == b2_type;
-        } else if( a2_typesym->type == ASR::symbolType::StructType ) {
-            ASR::StructType_t *a2_type = ASR::down_cast<ASR::StructType_t>(a2_typesym);
-            ASR::StructType_t *b2_type = ASR::down_cast<ASR::StructType_t>(b2_typesym);
-            return is_derived_type_similar(a2_type, b2_type);
-        }
-    }
-    return false;
-}
-
-void process_overloaded_assignment_function(ASR::symbol_t* proc, ASR::expr_t* target, ASR::expr_t* value,
-    ASR::ttype_t* target_type, ASR::ttype_t* value_type, bool& found, Allocator& al, const Location& target_loc,
-    const Location& value_loc, SymbolTable* curr_scope, std::set<std::string>& current_function_dependencies,
-    Vec<char*>& current_module_dependencies, ASR::asr_t*& asr, ASR::symbol_t* sym, const Location& loc, ASR::expr_t* expr_dt,
-    const std::function<void (const std::string &, const Location &)> err, char* pass_arg=nullptr) {
-    ASR::Function_t* subrout = ASR::down_cast<ASR::Function_t>(proc);
-    std::string matched_subrout_name = "";
-    if( subrout->n_args == 2 ) {
-        ASR::ttype_t* target_arg_type = ASRUtils::expr_type(subrout->m_args[0]);
-        ASR::ttype_t* value_arg_type = ASRUtils::expr_type(subrout->m_args[1]);
-        if( ASRUtils::types_equal(*target_arg_type, *target_type) &&
-            ASRUtils::types_equal(*value_arg_type, *value_type) ) {
-            std::string arg0_name = ASRUtils::symbol_name(ASR::down_cast<ASR::Var_t>(subrout->m_args[0])->m_v);
-            std::string arg1_name = ASRUtils::symbol_name(ASR::down_cast<ASR::Var_t>(subrout->m_args[1])->m_v);
-            if( pass_arg != nullptr ) {
-                std::string pass_arg_str = std::string(pass_arg);
-                if( arg0_name != pass_arg_str && arg1_name != pass_arg_str ) {
-                    err(pass_arg_str + " argument is not present in " + std::string(subrout->m_name),
-                        proc->base.loc);
-                }
-                if( (arg0_name == pass_arg_str && target != expr_dt) ) {
-                    err(std::string(subrout->m_name) + " is not a procedure of " +
-                        ASRUtils::type_to_str(target_type),
-                        loc);
-                }
-                if( (arg1_name == pass_arg_str && value != expr_dt) ) {
-                    err(std::string(subrout->m_name) + " is not a procedure of " +
-                        ASRUtils::type_to_str(value_type),
-                        loc);
-                }
-            }
-            found = true;
-            Vec<ASR::call_arg_t> a_args;
-            a_args.reserve(al, 2);
-            ASR::call_arg_t target_arg, value_arg;
-            target_arg.loc = target_loc, target_arg.m_value = target;
-            a_args.push_back(al, target_arg);
-            value_arg.loc = value_loc, value_arg.m_value = value;
-            a_args.push_back(al, value_arg);
-            std::string subrout_name = to_lower(subrout->m_name);
-            if( curr_scope->resolve_symbol(subrout_name) ) {
-                matched_subrout_name = subrout_name;
-            } else {
-                std::string mangled_name = subrout_name + "@~assign";
-                matched_subrout_name = mangled_name;
-            }
-            ASR::symbol_t *a_name = curr_scope->resolve_symbol(matched_subrout_name);
-            if( a_name == nullptr ) {
-                err("Unable to resolve matched subroutine for assignment overloading, " + matched_subrout_name, loc);
-            }
-            current_function_dependencies.insert(matched_subrout_name);
-            if( ASR::is_a<ASR::ExternalSymbol_t>(*a_name) ) {
-                current_module_dependencies.push_back(al, ASR::down_cast<ASR::ExternalSymbol_t>(a_name)->m_module_name);
-            }
-            asr = ASR::make_SubroutineCall_t(al, loc, a_name, sym,
-                                            a_args.p, 2, nullptr);
-        }
-    }
-}
-
-bool use_overloaded_assignment(ASR::expr_t* target, ASR::expr_t* value,
-                               SymbolTable* curr_scope, ASR::asr_t*& asr,
-                               Allocator &al, const Location& loc,
-                               std::set<std::string>& current_function_dependencies,
-                               Vec<char*>& current_module_dependencies,
-                               const std::function<void (const std::string &, const Location &)> err) {
-    ASR::ttype_t *target_type = ASRUtils::expr_type(target);
-    ASR::ttype_t *value_type = ASRUtils::expr_type(value);
-    bool found = false;
-    ASR::symbol_t* sym = curr_scope->resolve_symbol("~assign");
-    ASR::expr_t* expr_dt = nullptr;
-    if( !sym ) {
-        if( ASR::is_a<ASR::Struct_t>(*target_type) ) {
-            ASR::StructType_t* target_struct = ASR::down_cast<ASR::StructType_t>(
-                ASRUtils::symbol_get_past_external(ASR::down_cast<ASR::Struct_t>(target_type)->m_derived_type));
-            sym = target_struct->m_symtab->resolve_symbol("~assign");
-            expr_dt = target;
-        } else if( ASR::is_a<ASR::Struct_t>(*value_type) ) {
-            ASR::StructType_t* value_struct = ASR::down_cast<ASR::StructType_t>(
-                ASRUtils::symbol_get_past_external(ASR::down_cast<ASR::Struct_t>(value_type)->m_derived_type));
-            sym = value_struct->m_symtab->resolve_symbol("~assign");
-            expr_dt = value;
-        }
-    }
-    if (sym) {
-        ASR::symbol_t* orig_sym = ASRUtils::symbol_get_past_external(sym);
-        ASR::CustomOperator_t* gen_proc = ASR::down_cast<ASR::CustomOperator_t>(orig_sym);
-        for( size_t i = 0; i < gen_proc->n_procs && !found; i++ ) {
-            ASR::symbol_t* proc = gen_proc->m_procs[i];
-            switch( proc->type ) {
-                case ASR::symbolType::Function: {
-                    process_overloaded_assignment_function(proc, target, value, target_type,
-                        value_type, found, al, target->base.loc, value->base.loc, curr_scope,
-                        current_function_dependencies, current_module_dependencies, asr, sym,
-                        loc, expr_dt, err);
-                    break;
-                }
-                case ASR::symbolType::ClassProcedure: {
-                    ASR::ClassProcedure_t* class_proc = ASR::down_cast<ASR::ClassProcedure_t>(proc);
-                    ASR::symbol_t* proc_func = ASR::down_cast<ASR::ClassProcedure_t>(proc)->m_proc;
-                    process_overloaded_assignment_function(proc_func, target, value, target_type,
-                        value_type, found, al, target->base.loc, value->base.loc, curr_scope,
-                        current_function_dependencies, current_module_dependencies, asr, proc_func, loc,
-                        expr_dt, err, class_proc->m_self_argument);
-                    break;
-                }
-                default: {
-                    err("Only functions and class procedures can be used for generic assignment statement", loc);
-                }
-            }
-        }
-    }
-    return found;
-}
-
-bool use_overloaded(ASR::expr_t* left, ASR::expr_t* right,
-                    ASR::cmpopType op, std::string& intrinsic_op_name,
-                    SymbolTable* curr_scope, ASR::asr_t*& asr,
-                    Allocator &al, const Location& loc,
-                    std::set<std::string>& current_function_dependencies,
-                    Vec<char*>& current_module_dependencies,
-                    const std::function<void (const std::string &, const Location &)> err) {
-    ASR::ttype_t *left_type = ASRUtils::expr_type(left);
-    ASR::ttype_t *right_type = ASRUtils::expr_type(right);
-    bool found = false;
-    if( is_op_overloaded(op, intrinsic_op_name, curr_scope) ) {
-        ASR::symbol_t* sym = curr_scope->resolve_symbol(intrinsic_op_name);
-        ASR::symbol_t* orig_sym = ASRUtils::symbol_get_past_external(sym);
-        ASR::CustomOperator_t* gen_proc = ASR::down_cast<ASR::CustomOperator_t>(orig_sym);
-        for( size_t i = 0; i < gen_proc->n_procs && !found; i++ ) {
-            ASR::symbol_t* proc = gen_proc->m_procs[i];
-            switch(proc->type) {
-                case ASR::symbolType::Function: {
-                    ASR::Function_t* func = ASR::down_cast<ASR::Function_t>(proc);
-                    std::string matched_func_name = "";
-                    if( func->n_args == 2 ) {
-                        ASR::ttype_t* left_arg_type = ASRUtils::expr_type(func->m_args[0]);
-                        ASR::ttype_t* right_arg_type = ASRUtils::expr_type(func->m_args[1]);
-                        if( left_arg_type->type == left_type->type &&
-                            right_arg_type->type == right_type->type ) {
-                            found = true;
-                            Vec<ASR::call_arg_t> a_args;
-                            a_args.reserve(al, 2);
-                            ASR::call_arg_t left_call_arg, right_call_arg;
-                            left_call_arg.loc = left->base.loc, left_call_arg.m_value = left;
-                            a_args.push_back(al, left_call_arg);
-                            right_call_arg.loc = right->base.loc, right_call_arg.m_value = right;
-                            a_args.push_back(al, right_call_arg);
-                            std::string func_name = to_lower(func->m_name);
-                            if( curr_scope->resolve_symbol(func_name) ) {
-                                matched_func_name = func_name;
-                            } else {
-                                std::string mangled_name = func_name + "@" + intrinsic_op_name;
-                                matched_func_name = mangled_name;
-                            }
-                            ASR::symbol_t* a_name = curr_scope->resolve_symbol(matched_func_name);
-                            if( a_name == nullptr ) {
-                                err("Unable to resolve matched function for operator overloading, " + matched_func_name, loc);
-                            }
-                            ASR::ttype_t *return_type = nullptr;
-                            if( ASRUtils::get_FunctionType(func)->m_elemental &&
-                                func->n_args == 1 &&
-                                ASRUtils::is_array(ASRUtils::expr_type(a_args[0].m_value)) ) {
-                                return_type = ASRUtils::duplicate_type(al, ASRUtils::expr_type(a_args[0].m_value));
-                            } else {
-                                return_type = ASRUtils::expr_type(func->m_return_var);
-                            }
-                            current_function_dependencies.insert(matched_func_name);
-                            if( ASR::is_a<ASR::ExternalSymbol_t>(*a_name) ) {
-                                current_module_dependencies.push_back(al, ASR::down_cast<ASR::ExternalSymbol_t>(a_name)->m_module_name);
-                            }
-                            asr = ASR::make_FunctionCall_t(al, loc, a_name, sym,
-                                                            a_args.p, 2,
-                                                            return_type,
-                                                            nullptr, nullptr);
-                        }
-                    }
-                    break;
-                }
-                default: {
-                    err("While overloading binary operators only functions can be used",
-                                        proc->base.loc);
-                }
-            }
-        }
-    }
-    return found;
-}
-
-bool is_op_overloaded(ASR::cmpopType op, std::string& intrinsic_op_name,
-                      SymbolTable* curr_scope) {
-    bool result = true;
-    switch(op) {
-        case ASR::cmpopType::Eq: {
-            if(intrinsic_op_name != "~eq") {
-                result = false;
-            }
-            break;
-        }
-        case ASR::cmpopType::NotEq: {
-            if(intrinsic_op_name != "~noteq") {
-                result = false;
-            }
-            break;
-        }
-        case ASR::cmpopType::Lt: {
-            if(intrinsic_op_name != "~lt") {
-                result = false;
-            }
-            break;
-        }
-        case ASR::cmpopType::LtE: {
-            if(intrinsic_op_name != "~lte") {
-                result = false;
-            }
-            break;
-        }
-        case ASR::cmpopType::Gt: {
-            if(intrinsic_op_name != "~gt") {
-                result = false;
-            }
-            break;
-        }
-        case ASR::cmpopType::GtE: {
-            if(intrinsic_op_name != "~gte") {
-                result = false;
-            }
-            break;
-        }
-    }
-    if( result && curr_scope->resolve_symbol(intrinsic_op_name) == nullptr ) {
-        result = false;
-    }
-    return result;
-}
-
-template <typename T>
-bool argument_types_match(const Vec<ASR::call_arg_t>& args,
-        const T &sub) {
-    if (args.size() <= sub.n_args) {
-        size_t i;
-        for (i = 0; i < args.size(); i++) {
-            ASR::Variable_t *v = ASRUtils::EXPR2VAR(sub.m_args[i]);
-            ASR::ttype_t *arg1 = ASRUtils::expr_type(args[i].m_value);
-            ASR::ttype_t *arg2 = v->m_type;
-            if (!types_equal(*arg1, *arg2)) {
-                return false;
-            }
-        }
-        for( ; i < sub.n_args; i++ ) {
-            ASR::Variable_t *v = ASRUtils::EXPR2VAR(sub.m_args[i]);
-            if( v->m_presence != ASR::presenceType::Optional ) {
-                return false;
-            }
-        }
-        return true;
-    } else {
-        return false;
-    }
-}
-
-bool select_func_subrout(const ASR::symbol_t* proc, const Vec<ASR::call_arg_t>& args,
-                         Location& loc, const std::function<void (const std::string &, const Location &)> err) {
-    bool result = false;
-    if (ASR::is_a<ASR::Function_t>(*proc)) {
-        ASR::Function_t *fn
-            = ASR::down_cast<ASR::Function_t>(proc);
-        if (argument_types_match(args, *fn)) {
-            result = true;
-        }
-    } else {
-        err("Only Subroutine and Function supported in generic procedure", loc);
-    }
-    return result;
-}
-
-int select_generic_procedure(const Vec<ASR::call_arg_t>& args,
-        const ASR::GenericProcedure_t &p, Location loc,
-        const std::function<void (const std::string &, const Location &)> err,
-        bool raise_error) {
-    for (size_t i=0; i < p.n_procs; i++) {
-        if( ASR::is_a<ASR::ClassProcedure_t>(*p.m_procs[i]) ) {
-            ASR::ClassProcedure_t *clss_fn
-                = ASR::down_cast<ASR::ClassProcedure_t>(p.m_procs[i]);
-            const ASR::symbol_t *proc = ASRUtils::symbol_get_past_external(clss_fn->m_proc);
-            if( select_func_subrout(proc, args, loc, err) ) {
-                return i;
-            }
-        } else {
-            if( select_func_subrout(p.m_procs[i], args, loc, err) ) {
-                return i;
-            }
-        }
-    }
-    if( raise_error ) {
-        err("Arguments do not match for any generic procedure, " + std::string(p.m_name), loc);
-    }
-    return -1;
-}
-
-ASR::asr_t* symbol_resolve_external_generic_procedure_without_eval(
-            const Location &loc,
-            ASR::symbol_t *v, Vec<ASR::call_arg_t>& args,
-            SymbolTable* current_scope, Allocator& al,
-            const std::function<void (const std::string &, const Location &)> err) {
-    ASR::ExternalSymbol_t *p = ASR::down_cast<ASR::ExternalSymbol_t>(v);
-    ASR::symbol_t *f2 = ASR::down_cast<ASR::ExternalSymbol_t>(v)->m_external;
-    ASR::GenericProcedure_t *g = ASR::down_cast<ASR::GenericProcedure_t>(f2);
-    int idx = select_generic_procedure(args, *g, loc, err);
-    ASR::symbol_t *final_sym;
-    final_sym = g->m_procs[idx];
-    LCOMPILERS_ASSERT(ASR::is_a<ASR::Function_t>(*final_sym));
-    bool is_subroutine = ASR::down_cast<ASR::Function_t>(final_sym)->m_return_var == nullptr;
-    ASR::ttype_t *return_type = nullptr;
-    if( ASR::is_a<ASR::Function_t>(*final_sym) ) {
-        ASR::Function_t* func = ASR::down_cast<ASR::Function_t>(final_sym);
-        if (func->m_return_var) {
-            if( ASRUtils::get_FunctionType(func)->m_elemental &&
-                func->n_args == 1 &&
-                ASRUtils::is_array(ASRUtils::expr_type(args[0].m_value)) ) {
-                return_type = ASRUtils::duplicate_type(al, ASRUtils::expr_type(args[0].m_value));
-            } else {
-                return_type = ASRUtils::EXPR2VAR(func->m_return_var)->m_type;
-            }
-        }
-    }
-    // Create ExternalSymbol for the final subroutine:
-    // We mangle the new ExternalSymbol's local name as:
-    //   generic_procedure_local_name @
-    //     specific_procedure_remote_name
-    std::string local_sym = std::string(p->m_name) + "@"
-        + ASRUtils::symbol_name(final_sym);
-    if (current_scope->get_symbol(local_sym)
-        == nullptr) {
-        Str name;
-        name.from_str(al, local_sym);
-        char *cname = name.c_str(al);
-        ASR::asr_t *sub = ASR::make_ExternalSymbol_t(
-            al, g->base.base.loc,
-            /* a_symtab */ current_scope,
-            /* a_name */ cname,
-            final_sym,
-            p->m_module_name, nullptr, 0, ASRUtils::symbol_name(final_sym),
-            ASR::accessType::Private
-            );
-        final_sym = ASR::down_cast<ASR::symbol_t>(sub);
-        current_scope->add_symbol(local_sym, final_sym);
-    } else {
-        final_sym = current_scope->get_symbol(local_sym);
-    }
-    if( is_subroutine ) {
-        return ASR::make_SubroutineCall_t(al, loc, final_sym,
-                                        v, args.p, args.size(),
-                                        nullptr);
-    } else {
-        return ASR::make_FunctionCall_t(al, loc, final_sym,
-                                        v, args.p, args.size(),
-                                        return_type,
-                                        nullptr, nullptr);
-    }
-}
-
-ASR::asr_t* make_Cast_t_value(Allocator &al, const Location &a_loc,
-            ASR::expr_t* a_arg, ASR::cast_kindType a_kind, ASR::ttype_t* a_type) {
-
-    ASR::expr_t* value = nullptr;
-
-    if (ASRUtils::expr_value(a_arg)) {
-        // calculate value
-        if (a_kind == ASR::cast_kindType::RealToInteger) {
-            int64_t v = ASR::down_cast<ASR::RealConstant_t>(
-                        ASRUtils::expr_value(a_arg))->m_r;
-            value = ASR::down_cast<ASR::expr_t>(
-                    ASR::make_IntegerConstant_t(al, a_loc, v, a_type));
-        } else if (a_kind == ASR::cast_kindType::RealToReal) {
-            double v = ASR::down_cast<ASR::RealConstant_t>(
-                       ASRUtils::expr_value(a_arg))->m_r;
-            value = ASR::down_cast<ASR::expr_t>(
-                    ASR::make_RealConstant_t(al, a_loc, v, a_type));
-        } else if (a_kind == ASR::cast_kindType::RealToComplex) {
-            double double_value = ASR::down_cast<ASR::RealConstant_t>(
-                                  ASRUtils::expr_value(a_arg))->m_r;
-            value = ASR::down_cast<ASR::expr_t>(ASR::make_ComplexConstant_t(al, a_loc,
-                        double_value, 0, a_type));
-        } else if (a_kind == ASR::cast_kindType::IntegerToReal) {
-            // TODO: Clashes with the pow functions
-            // int64_t value = ASR::down_cast<ASR::ConstantInteger_t>(ASRUtils::expr_value(a_arg))->m_n;
-            // value = ASR::down_cast<ASR::expr_t>(ASR::make_ConstantReal_t(al, a_loc, (double)v, a_type));
-        } else if (a_kind == ASR::cast_kindType::IntegerToComplex) {
-            int64_t int_value = ASR::down_cast<ASR::IntegerConstant_t>(
-                                ASRUtils::expr_value(a_arg))->m_n;
-            value = ASR::down_cast<ASR::expr_t>(ASR::make_ComplexConstant_t(al, a_loc,
-                        (double)int_value, 0, a_type));
-        } else if (a_kind == ASR::cast_kindType::IntegerToInteger) {
-            int64_t int_value = ASR::down_cast<ASR::IntegerConstant_t>(
-                                ASRUtils::expr_value(a_arg))->m_n;
-            value = ASR::down_cast<ASR::expr_t>(ASR::make_IntegerConstant_t(al, a_loc, int_value, a_type));
-        } else if (a_kind == ASR::cast_kindType::IntegerToLogical) {
-            // TODO: implement
-        } else if (a_kind == ASR::cast_kindType::ComplexToComplex) {
-            ASR::ComplexConstant_t* value_complex = ASR::down_cast<ASR::ComplexConstant_t>(
-                        ASRUtils::expr_value(a_arg));
-            double real = value_complex->m_re;
-            double imag = value_complex->m_im;
-            value = ASR::down_cast<ASR::expr_t>(
-                    ASR::make_ComplexConstant_t(al, a_loc, real, imag, a_type));
-        } else if (a_kind == ASR::cast_kindType::ComplexToReal) {
-            ASR::ComplexConstant_t* value_complex = ASR::down_cast<ASR::ComplexConstant_t>(
-                        ASRUtils::expr_value(a_arg));
-            double real = value_complex->m_re;
-            value = ASR::down_cast<ASR::expr_t>(
-                    ASR::make_RealConstant_t(al, a_loc, real, a_type));
-        }
-    }
-
-    return ASR::make_Cast_t(al, a_loc, a_arg, a_kind, a_type, value);
-}
-
-//Initialize pointer to zero so that it can be initialized in first call to get_instance
-ASRUtils::LabelGenerator* ASRUtils::LabelGenerator::label_generator = nullptr;
-
-} // namespace ASRUtils
-
-
-} // namespace LCompilers
diff --git a/src/libasr/asr_utils.h b/src/libasr/asr_utils.h
deleted file mode 100644
index f6731f5669..0000000000
--- a/src/libasr/asr_utils.h
+++ /dev/null
@@ -1,2414 +0,0 @@
-#ifndef LFORTRAN_ASR_UTILS_H
-#define LFORTRAN_ASR_UTILS_H
-
-#include <functional>
-#include <map>
-#include <set>
-#include <limits>
-
-#include <libasr/assert.h>
-#include <libasr/asr.h>
-#include <libasr/string_utils.h>
-#include <libasr/utils.h>
-
-namespace LCompilers  {
-
-    namespace ASRUtils  {
-
-static inline  double extract_real(const char *s) {
-    // TODO: this is inefficient. We should
-    // convert this in the tokenizer where we know most information
-    std::string x = s;
-    x = replace(x, "d", "e");
-    x = replace(x, "D", "E");
-    return std::atof(x.c_str());
-}
-
-static inline ASR::expr_t* EXPR(const ASR::asr_t *f)
-{
-    return ASR::down_cast<ASR::expr_t>(f);
-}
-
-static inline ASR::stmt_t* STMT(const ASR::asr_t *f)
-{
-    return ASR::down_cast<ASR::stmt_t>(f);
-}
-
-static inline ASR::case_stmt_t* CASE_STMT(const ASR::asr_t *f)
-{
-    return ASR::down_cast<ASR::case_stmt_t>(f);
-}
-
-static inline ASR::ttype_t* TYPE(const ASR::asr_t *f)
-{
-    return ASR::down_cast<ASR::ttype_t>(f);
-}
-
-static inline ASR::symbol_t *symbol_get_past_external(ASR::symbol_t *f)
-{
-    if (f && f->type == ASR::symbolType::ExternalSymbol) {
-        ASR::ExternalSymbol_t *e = ASR::down_cast<ASR::ExternalSymbol_t>(f);
-        LCOMPILERS_ASSERT(!ASR::is_a<ASR::ExternalSymbol_t>(*e->m_external));
-        return e->m_external;
-    } else {
-        return f;
-    }
-}
-
-static inline const ASR::symbol_t *symbol_get_past_external(const ASR::symbol_t *f)
-{
-    if (f->type == ASR::symbolType::ExternalSymbol) {
-        ASR::ExternalSymbol_t *e = ASR::down_cast<ASR::ExternalSymbol_t>(f);
-        LCOMPILERS_ASSERT(!ASR::is_a<ASR::ExternalSymbol_t>(*e->m_external));
-        return e->m_external;
-    } else {
-        return f;
-    }
-}
-
-static inline ASR::ttype_t *type_get_past_pointer(ASR::ttype_t *f)
-{
-    if (ASR::is_a<ASR::Pointer_t>(*f)) {
-        ASR::Pointer_t *e = ASR::down_cast<ASR::Pointer_t>(f);
-        LCOMPILERS_ASSERT(!ASR::is_a<ASR::Pointer_t>(*e->m_type));
-        return e->m_type;
-    } else {
-        return f;
-    }
-}
-
-static inline ASR::Variable_t* EXPR2VAR(const ASR::expr_t *f)
-{
-    return ASR::down_cast<ASR::Variable_t>(symbol_get_past_external(
-                ASR::down_cast<ASR::Var_t>(f)->m_v));
-}
-
-static inline ASR::Function_t* EXPR2FUN(const ASR::expr_t *f)
-{
-    return ASR::down_cast<ASR::Function_t>(symbol_get_past_external(
-                ASR::down_cast<ASR::Var_t>(f)->m_v));
-}
-
-static inline ASR::ttype_t* expr_type(const ASR::expr_t *f)
-{
-    return ASR::expr_type0(f);
-}
-
-static inline ASR::ttype_t* symbol_type(const ASR::symbol_t *f)
-{
-    switch( f->type ) {
-        case ASR::symbolType::Variable: {
-            return ASR::down_cast<ASR::Variable_t>(f)->m_type;
-        }
-        case ASR::symbolType::EnumType: {
-            return ASR::down_cast<ASR::EnumType_t>(f)->m_type;
-        }
-        case ASR::symbolType::ExternalSymbol: {
-            return symbol_type(ASRUtils::symbol_get_past_external(f));
-        }
-        case ASR::symbolType::Function: {
-            return ASRUtils::expr_type(
-                ASR::down_cast<ASR::Function_t>(f)->m_return_var);
-        }
-        default: {
-            throw LCompilersException("Cannot return type of, " +
-                                    std::to_string(f->type) + " symbol.");
-        }
-    }
-    return nullptr;
-}
-
-static inline ASR::abiType symbol_abi(const ASR::symbol_t *f)
-{
-    switch( f->type ) {
-        case ASR::symbolType::Variable: {
-            return ASR::down_cast<ASR::Variable_t>(f)->m_abi;
-        }
-        case ASR::symbolType::EnumType: {
-            return ASR::down_cast<ASR::EnumType_t>(f)->m_abi;
-        }
-        default: {
-            throw LCompilersException("Cannot return ABI of, " +
-                                    std::to_string(f->type) + " symbol.");
-        }
-    }
-    return ASR::abiType::Source;
-}
-
-static inline ASR::ttype_t* get_contained_type(ASR::ttype_t* asr_type) {
-    switch( asr_type->type ) {
-        case ASR::ttypeType::List: {
-            return ASR::down_cast<ASR::List_t>(asr_type)->m_type;
-        }
-        case ASR::ttypeType::Set: {
-            return ASR::down_cast<ASR::Set_t>(asr_type)->m_type;
-        }
-        case ASR::ttypeType::Enum: {
-            ASR::Enum_t* enum_asr = ASR::down_cast<ASR::Enum_t>(asr_type);
-            ASR::EnumType_t* enum_type = ASR::down_cast<ASR::EnumType_t>(enum_asr->m_enum_type);
-            return enum_type->m_type;
-        }
-        case ASR::ttypeType::Pointer: {
-            ASR::Pointer_t* pointer_asr = ASR::down_cast<ASR::Pointer_t>(asr_type);
-            return pointer_asr->m_type;
-        }
-        case ASR::ttypeType::Const: {
-            ASR::Const_t* const_asr = ASR::down_cast<ASR::Const_t>(asr_type);
-            return const_asr->m_type;
-        }
-        default: {
-            return asr_type;
-        }
-    }
-}
-
-static inline ASR::abiType expr_abi(ASR::expr_t* e) {
-    switch( e->type ) {
-        case ASR::exprType::Var: {
-            return ASRUtils::symbol_abi(ASR::down_cast<ASR::Var_t>(e)->m_v);
-        }
-        case ASR::exprType::StructInstanceMember: {
-            return ASRUtils::symbol_abi(ASR::down_cast<ASR::StructInstanceMember_t>(e)->m_m);
-        }
-        case ASR::exprType::ArrayReshape: {
-            return ASRUtils::expr_abi(ASR::down_cast<ASR::ArrayReshape_t>(e)->m_array);
-        }
-        case ASR::exprType::GetPointer: {
-            return ASRUtils::expr_abi(ASR::down_cast<ASR::GetPointer_t>(e)->m_arg);
-        }
-        default:
-            throw LCompilersException("Cannot extract the ABI of " +
-                    std::to_string(e->type) + " expression.");
-    }
-}
-
-static inline char *symbol_name(const ASR::symbol_t *f)
-{
-    switch (f->type) {
-        case ASR::symbolType::Program: {
-            return ASR::down_cast<ASR::Program_t>(f)->m_name;
-        }
-        case ASR::symbolType::Module: {
-            return ASR::down_cast<ASR::Module_t>(f)->m_name;
-        }
-        case ASR::symbolType::Function: {
-            return ASR::down_cast<ASR::Function_t>(f)->m_name;
-        }
-        case ASR::symbolType::GenericProcedure: {
-            return ASR::down_cast<ASR::GenericProcedure_t>(f)->m_name;
-        }
-        case ASR::symbolType::StructType: {
-            return ASR::down_cast<ASR::StructType_t>(f)->m_name;
-        }
-        case ASR::symbolType::EnumType: {
-            return ASR::down_cast<ASR::EnumType_t>(f)->m_name;
-        }
-        case ASR::symbolType::UnionType: {
-            return ASR::down_cast<ASR::UnionType_t>(f)->m_name;
-        }
-        case ASR::symbolType::Variable: {
-            return ASR::down_cast<ASR::Variable_t>(f)->m_name;
-        }
-        case ASR::symbolType::ExternalSymbol: {
-            return ASR::down_cast<ASR::ExternalSymbol_t>(f)->m_name;
-        }
-        case ASR::symbolType::ClassProcedure: {
-            return ASR::down_cast<ASR::ClassProcedure_t>(f)->m_name;
-        }
-        case ASR::symbolType::CustomOperator: {
-            return ASR::down_cast<ASR::CustomOperator_t>(f)->m_name;
-        }
-        case ASR::symbolType::AssociateBlock: {
-            return ASR::down_cast<ASR::AssociateBlock_t>(f)->m_name;
-        }
-        case ASR::symbolType::Block: {
-            return ASR::down_cast<ASR::Block_t>(f)->m_name;
-        }
-        default : throw LCompilersException("Not implemented");
-    }
-}
-
-static inline std::string type_to_str(const ASR::ttype_t *t)
-{
-    switch (t->type) {
-        case ASR::ttypeType::Integer: {
-            return "integer";
-        }
-        case ASR::ttypeType::Real: {
-            return "real";
-        }
-        case ASR::ttypeType::Complex: {
-            return "complex";
-        }
-        case ASR::ttypeType::Logical: {
-            return "logical";
-        }
-        case ASR::ttypeType::Character: {
-            return "character";
-        }
-        case ASR::ttypeType::Tuple: {
-            return "tuple";
-        }
-        case ASR::ttypeType::Set: {
-            return "set";
-        }
-        case ASR::ttypeType::Dict: {
-            return "dict";
-        }
-        case ASR::ttypeType::List: {
-            return "list";
-        }
-        case ASR::ttypeType::Struct: {
-            return ASRUtils::symbol_name(ASR::down_cast<ASR::Struct_t>(t)->m_derived_type);
-        }
-        case ASR::ttypeType::Union: {
-            return "union";
-        }
-        case ASR::ttypeType::CPtr: {
-            return "type(c_ptr)";
-        }
-        case ASR::ttypeType::Pointer: {
-            return type_to_str(ASRUtils::type_get_past_pointer(
-                        const_cast<ASR::ttype_t*>(t))) + " pointer";
-        }
-        case ASR::ttypeType::Const: {
-            return type_to_str(ASRUtils::get_contained_type(
-                        const_cast<ASR::ttype_t*>(t))) + " const";
-        }
-        case ASR::ttypeType::TypeParameter: {
-            ASR::TypeParameter_t* tp = ASR::down_cast<ASR::TypeParameter_t>(t);
-            return tp->m_param;
-        }
-        default : throw LCompilersException("Not implemented " + std::to_string(t->type) + ".");
-    }
-}
-
-static inline std::string binop_to_str(const ASR::binopType t) {
-    switch (t) {
-        case (ASR::binopType::Add): { return " + "; }
-        case (ASR::binopType::Sub): { return " - "; }
-        case (ASR::binopType::Mul): { return "*"; }
-        case (ASR::binopType::Div): { return "/"; }
-        default : throw LCompilersException("Cannot represent the binary operator as a string");
-    }
-}
-
-static inline std::string cmpop_to_str(const ASR::cmpopType t) {
-    switch (t) {
-        case (ASR::cmpopType::Eq): { return " == "; }
-        case (ASR::cmpopType::NotEq): { return " != "; }
-        case (ASR::cmpopType::Lt): { return " < "; }
-        case (ASR::cmpopType::LtE): { return " <= "; }
-        case (ASR::cmpopType::Gt): { return " > "; }
-        case (ASR::cmpopType::GtE): { return " >= "; }
-        default : throw LCompilersException("Cannot represent the comparison as a string");
-    }
-}
-
-static inline std::string logicalbinop_to_str_python(const ASR::logicalbinopType t) {
-    switch (t) {
-        case (ASR::logicalbinopType::And): { return " && "; }
-        case (ASR::logicalbinopType::Or): { return " || "; }
-        case (ASR::logicalbinopType::Eqv): { return " == "; }
-        case (ASR::logicalbinopType::NEqv): { return " != "; }
-        default : throw LCompilersException("Cannot represent the boolean operator as a string");
-    }
-}
-
-static inline ASR::expr_t* expr_value(ASR::expr_t *f)
-{
-    return ASR::expr_value0(f);
-}
-
-static inline std::pair<char**, size_t> symbol_dependencies(const ASR::symbol_t *f)
-{
-    switch (f->type) {
-        case ASR::symbolType::Program: {
-            ASR::Program_t* sym = ASR::down_cast<ASR::Program_t>(f);
-            return std::make_pair(sym->m_dependencies, sym->n_dependencies);
-        }
-        case ASR::symbolType::Module: {
-            ASR::Module_t* sym = ASR::down_cast<ASR::Module_t>(f);
-            return std::make_pair(sym->m_dependencies, sym->n_dependencies);
-        }
-        case ASR::symbolType::Function: {
-            ASR::Function_t* sym = ASR::down_cast<ASR::Function_t>(f);
-            return std::make_pair(sym->m_dependencies, sym->n_dependencies);
-        }
-        case ASR::symbolType::StructType: {
-            ASR::StructType_t* sym = ASR::down_cast<ASR::StructType_t>(f);
-            return std::make_pair(sym->m_dependencies, sym->n_dependencies);
-        }
-        case ASR::symbolType::EnumType: {
-            ASR::EnumType_t* sym = ASR::down_cast<ASR::EnumType_t>(f);
-            return std::make_pair(sym->m_dependencies, sym->n_dependencies);
-        }
-        case ASR::symbolType::UnionType: {
-            ASR::UnionType_t* sym = ASR::down_cast<ASR::UnionType_t>(f);
-            return std::make_pair(sym->m_dependencies, sym->n_dependencies);
-        }
-        default : throw LCompilersException("Not implemented");
-    }
-}
-
-static inline SymbolTable *symbol_parent_symtab(const ASR::symbol_t *f)
-{
-    switch (f->type) {
-        case ASR::symbolType::Program: {
-            return ASR::down_cast<ASR::Program_t>(f)->m_symtab->parent;
-        }
-        case ASR::symbolType::Module: {
-            return ASR::down_cast<ASR::Module_t>(f)->m_symtab->parent;
-        }
-        case ASR::symbolType::Function: {
-            return ASR::down_cast<ASR::Function_t>(f)->m_symtab->parent;
-        }
-        case ASR::symbolType::GenericProcedure: {
-            return ASR::down_cast<ASR::GenericProcedure_t>(f)->m_parent_symtab;
-        }
-        case ASR::symbolType::StructType: {
-            return ASR::down_cast<ASR::StructType_t>(f)->m_symtab->parent;
-        }
-        case ASR::symbolType::EnumType: {
-            return ASR::down_cast<ASR::EnumType_t>(f)->m_symtab->parent;
-        }
-        case ASR::symbolType::UnionType: {
-            return ASR::down_cast<ASR::UnionType_t>(f)->m_symtab->parent;
-        }
-        case ASR::symbolType::Variable: {
-            return ASR::down_cast<ASR::Variable_t>(f)->m_parent_symtab;
-        }
-        case ASR::symbolType::ExternalSymbol: {
-            return ASR::down_cast<ASR::ExternalSymbol_t>(f)->m_parent_symtab;
-        }
-        case ASR::symbolType::ClassProcedure: {
-            return ASR::down_cast<ASR::ClassProcedure_t>(f)->m_parent_symtab;
-        }
-        case ASR::symbolType::CustomOperator: {
-            return ASR::down_cast<ASR::CustomOperator_t>(f)->m_parent_symtab;
-        }
-        case ASR::symbolType::AssociateBlock: {
-            return ASR::down_cast<ASR::AssociateBlock_t>(f)->m_symtab->parent;
-        }
-        case ASR::symbolType::Block: {
-            return ASR::down_cast<ASR::Block_t>(f)->m_symtab->parent;
-        }
-        default : throw LCompilersException("Not implemented");
-    }
-}
-
-// Returns the `symbol`'s symtab, or nullptr if the symbol has no symtab
-static inline SymbolTable *symbol_symtab(const ASR::symbol_t *f)
-{
-    switch (f->type) {
-        case ASR::symbolType::Program: {
-            return ASR::down_cast<ASR::Program_t>(f)->m_symtab;
-        }
-        case ASR::symbolType::Module: {
-            return ASR::down_cast<ASR::Module_t>(f)->m_symtab;
-        }
-        case ASR::symbolType::Function: {
-            return ASR::down_cast<ASR::Function_t>(f)->m_symtab;
-        }
-        case ASR::symbolType::GenericProcedure: {
-            return nullptr;
-            //throw LCompilersException("GenericProcedure does not have a symtab");
-        }
-        case ASR::symbolType::StructType: {
-            return ASR::down_cast<ASR::StructType_t>(f)->m_symtab;
-        }
-        case ASR::symbolType::EnumType: {
-            return ASR::down_cast<ASR::EnumType_t>(f)->m_symtab;
-        }
-        case ASR::symbolType::UnionType: {
-            return ASR::down_cast<ASR::UnionType_t>(f)->m_symtab;
-        }
-        case ASR::symbolType::Variable: {
-            return nullptr;
-            //throw LCompilersException("Variable does not have a symtab");
-        }
-        case ASR::symbolType::ExternalSymbol: {
-            return nullptr;
-            //throw LCompilersException("ExternalSymbol does not have a symtab");
-        }
-        case ASR::symbolType::ClassProcedure: {
-            return nullptr;
-            //throw LCompilersException("ClassProcedure does not have a symtab");
-        }
-        case ASR::symbolType::AssociateBlock: {
-            return ASR::down_cast<ASR::AssociateBlock_t>(f)->m_symtab;
-        }
-        case ASR::symbolType::Block: {
-            return ASR::down_cast<ASR::Block_t>(f)->m_symtab;
-        }
-        default : throw LCompilersException("Not implemented");
-    }
-}
-
-// Returns the Module_t the symbol is in, or nullptr if not in a module
-static inline ASR::Module_t *get_sym_module(const ASR::symbol_t *sym) {
-    const SymbolTable *s = symbol_parent_symtab(sym);
-    while (s->parent != nullptr) {
-        ASR::symbol_t *asr_owner = ASR::down_cast<ASR::symbol_t>(s->asr_owner);
-        if (ASR::is_a<ASR::Module_t>(*asr_owner)) {
-            return ASR::down_cast<ASR::Module_t>(asr_owner);
-        }
-        s = s->parent;
-    }
-    return nullptr;
-}
-
-// Returns the ASR owner of the symbol
-static inline ASR::symbol_t *get_asr_owner(const ASR::symbol_t *sym) {
-    const SymbolTable *s = symbol_parent_symtab(sym);
-    if( !ASR::is_a<ASR::symbol_t>(*s->asr_owner) ) {
-        return nullptr;
-    }
-    return ASR::down_cast<ASR::symbol_t>(s->asr_owner);
-}
-
-static inline ASR::symbol_t *get_asr_owner(const ASR::expr_t *expr) {
-    switch( expr->type ) {
-        case ASR::exprType::Var: {
-            return ASRUtils::get_asr_owner(ASR::down_cast<ASR::Var_t>(expr)->m_v);
-        }
-        case ASR::exprType::StructInstanceMember: {
-            return ASRUtils::get_asr_owner(ASR::down_cast<ASR::StructInstanceMember_t>(expr)->m_m);
-        }
-        case ASR::exprType::GetPointer: {
-            return ASRUtils::get_asr_owner(ASR::down_cast<ASR::GetPointer_t>(expr)->m_arg);
-        }
-        default: {
-            throw LCompilersException("Cannot find the ASR owner of underlying symbol of expression "
-                                        + std::to_string(expr->type));
-        }
-    }
-    return nullptr;
-}
-
-// Returns the Module_t the symbol is in, or nullptr if not in a module
-// or no asr_owner yet
-static inline ASR::Module_t *get_sym_module0(const ASR::symbol_t *sym) {
-    const SymbolTable *s = symbol_parent_symtab(sym);
-    while (s->parent != nullptr) {
-        if (s->asr_owner != nullptr) {
-            ASR::symbol_t *asr_owner = ASR::down_cast<ASR::symbol_t>(s->asr_owner);
-            if (ASR::is_a<ASR::Module_t>(*asr_owner)) {
-                return ASR::down_cast<ASR::Module_t>(asr_owner);
-            }
-        }
-        s = s->parent;
-    }
-    return nullptr;
-}
-
-// Returns true if the Function is intrinsic, otherwise false
-template <typename T>
-static inline bool is_intrinsic_procedure(const T *fn) {
-    ASR::symbol_t *sym = (ASR::symbol_t*)fn;
-    ASR::Module_t *m = get_sym_module0(sym);
-    if (m != nullptr) {
-        if (startswith(m->m_name, "lfortran_intrinsic")) return true;
-    }
-    return false;
-}
-
-static inline bool is_intrinsic_symbol(const ASR::symbol_t *fn) {
-    const ASR::symbol_t *sym = fn;
-    ASR::Module_t *m = get_sym_module0(sym);
-    if (m != nullptr) {
-        if (m->m_intrinsic) {
-            return true;
-        }
-        if (startswith(m->m_name, "lfortran_intrinsic")) return true;
-    }
-    return false;
-}
-
-static inline ASR::FunctionType_t* get_FunctionType(const ASR::Function_t* x) {
-    return ASR::down_cast<ASR::FunctionType_t>(x->m_function_signature);
-}
-
-static inline ASR::FunctionType_t* get_FunctionType(const ASR::Function_t& x) {
-    return ASR::down_cast<ASR::FunctionType_t>(x.m_function_signature);
-}
-
-
-// Returns true if the Function is intrinsic, otherwise false
-// This version uses the `intrinsic` member of `Module`, so it
-// should be used instead of is_intrinsic_procedure
-static inline bool is_intrinsic_function2(const ASR::Function_t *fn) {
-    ASR::symbol_t *sym = (ASR::symbol_t*)fn;
-    ASR::Module_t *m = get_sym_module0(sym);
-    if (m != nullptr) {
-        if (m->m_intrinsic ||
-            ASRUtils::get_FunctionType(fn)->m_abi == ASR::abiType::Intrinsic) {
-                return true;
-        }
-    }
-    return false;
-}
-
-// Returns true if the Function is intrinsic, otherwise false
-template <typename T>
-static inline bool is_intrinsic_optimization(const T *routine) {
-    ASR::symbol_t *sym = (ASR::symbol_t*)routine;
-    if( ASR::is_a<ASR::ExternalSymbol_t>(*sym) ) {
-        ASR::ExternalSymbol_t* ext_sym = ASR::down_cast<ASR::ExternalSymbol_t>(sym);
-        return (std::string(ext_sym->m_module_name).find("lfortran_intrinsic_optimization") != std::string::npos);
-    }
-    ASR::Module_t *m = get_sym_module0(sym);
-    if (m != nullptr) {
-        return (std::string(m->m_name).find("lfortran_intrinsic_optimization") != std::string::npos);
-    }
-    return false;
-}
-
-// Returns true if all arguments have a `value`
-static inline bool all_args_have_value(const Vec<ASR::expr_t*> &args) {
-    for (auto &a : args) {
-        ASR::expr_t *v = expr_value(a);
-        if (v == nullptr) return false;
-    }
-    return true;
-}
-
-static inline bool is_value_constant(ASR::expr_t *a_value) {
-    if( a_value == nullptr ) {
-        return false;
-    }
-    if (ASR::is_a<ASR::IntegerConstant_t>(*a_value)) {
-        // OK
-    } else if (ASR::is_a<ASR::RealConstant_t>(*a_value)) {
-        // OK
-    } else if (ASR::is_a<ASR::ComplexConstant_t>(*a_value)) {
-        // OK
-    } else if (ASR::is_a<ASR::LogicalConstant_t>(*a_value)) {
-        // OK
-    } else if (ASR::is_a<ASR::StringConstant_t>(*a_value)) {
-        // OK
-    } else {
-        return false;
-    }
-    return true;
-}
-
-static inline bool is_value_constant(ASR::expr_t *a_value, int64_t& const_value) {
-    if( a_value == nullptr ) {
-        return false;
-    }
-    if (ASR::is_a<ASR::IntegerConstant_t>(*a_value)) {
-        ASR::IntegerConstant_t* const_int = ASR::down_cast<ASR::IntegerConstant_t>(a_value);
-        const_value = const_int->m_n;
-    } else {
-        return false;
-    }
-    return true;
-}
-
-static inline bool is_value_constant(ASR::expr_t *a_value, bool& const_value) {
-    if( a_value == nullptr ) {
-        return false;
-    }
-    if (ASR::is_a<ASR::LogicalConstant_t>(*a_value)) {
-        ASR::LogicalConstant_t* const_logical = ASR::down_cast<ASR::LogicalConstant_t>(a_value);
-        const_value = const_logical->m_value;
-    } else {
-        return false;
-    }
-    return true;
-}
-
-static inline bool is_value_constant(ASR::expr_t *a_value, double& const_value) {
-    if( a_value == nullptr ) {
-        return false;
-    }
-    if (ASR::is_a<ASR::IntegerConstant_t>(*a_value)) {
-        ASR::IntegerConstant_t* const_int = ASR::down_cast<ASR::IntegerConstant_t>(a_value);
-        const_value = const_int->m_n;
-    } else if (ASR::is_a<ASR::RealConstant_t>(*a_value)) {
-        ASR::RealConstant_t* const_real = ASR::down_cast<ASR::RealConstant_t>(a_value);
-        const_value = const_real->m_r;
-    } else {
-        return false;
-    }
-    return true;
-}
-
-static inline bool is_value_constant(ASR::expr_t *a_value, std::string& const_value) {
-    if( a_value == nullptr ) {
-        return false;
-    }
-    if (ASR::is_a<ASR::StringConstant_t>(*a_value)) {
-        ASR::StringConstant_t* const_string = ASR::down_cast<ASR::StringConstant_t>(a_value);
-        const_value = std::string(const_string->m_s);
-    } else {
-        return false;
-    }
-    return true;
-}
-
-static inline bool is_value_equal(ASR::expr_t* test_expr, ASR::expr_t* desired_expr) {
-    ASR::expr_t* test_value = expr_value(test_expr);
-    ASR::expr_t* desired_value = expr_value(desired_expr);
-    if( !is_value_constant(test_value) ||
-        !is_value_constant(desired_value) ||
-        test_value->type != desired_value->type ) {
-        return false;
-    }
-
-    switch( desired_value->type ) {
-        case ASR::exprType::IntegerConstant: {
-            ASR::IntegerConstant_t* test_int = ASR::down_cast<ASR::IntegerConstant_t>(test_value);
-            ASR::IntegerConstant_t* desired_int = ASR::down_cast<ASR::IntegerConstant_t>(desired_value);
-            return test_int->m_n == desired_int->m_n;
-        }
-        case ASR::exprType::StringConstant: {
-            ASR::StringConstant_t* test_str = ASR::down_cast<ASR::StringConstant_t>(test_value);
-            ASR::StringConstant_t* desired_str = ASR::down_cast<ASR::StringConstant_t>(desired_value);
-            return std::string(test_str->m_s) == std::string(desired_str->m_s);
-        }
-        default: {
-            return false;
-        }
-    }
-}
-
-static inline bool is_value_in_range(ASR::expr_t* start, ASR::expr_t* end, ASR::expr_t* value) {
-    ASR::expr_t *start_value = nullptr, *end_value = nullptr;
-    if( start ) {
-        start_value = expr_value(start);
-    }
-    if( end ) {
-        end_value = expr_value(end);
-    }
-    ASR::expr_t* test_value = expr_value(value);
-
-
-    double start_double = std::numeric_limits<double>::min();
-    double end_double = std::numeric_limits<double>::max();
-    double value_double;
-    bool start_const = is_value_constant(start_value, start_double);
-    bool end_const = is_value_constant(end_value, end_double);
-    bool value_const = is_value_constant(test_value, value_double);
-    if( !value_const || (!start_const && !end_const) ) {
-        return false;
-    }
-    return value_double >= start_double && value_double <= end_double;
-}
-
-// Returns true if all arguments are evaluated
-static inline bool all_args_evaluated(const Vec<ASR::expr_t*> &args) {
-    for (auto &a : args) {
-        ASR::expr_t* a_value = ASRUtils::expr_value(a);
-        if( !is_value_constant(a_value) ) {
-            return false;
-        }
-    }
-    return true;
-}
-
-static inline std::string get_mangled_name(ASR::Module_t* module, std::string symbol_name) {
-    std::string module_name = module->m_name;
-    if( module_name == symbol_name ) {
-        return "__" + std::string(module->m_name) + "_" + symbol_name;
-    } else {
-        return symbol_name;
-    }
-}
-
-// Returns true if all arguments are evaluated
-// Overload for array
-static inline bool all_args_evaluated(const Vec<ASR::array_index_t> &args) {
-    for (auto &a : args) {
-        bool is_m_left_const, is_m_right_const, is_m_step_const;
-        is_m_left_const = is_m_right_const = is_m_step_const = false;
-        if( a.m_left != nullptr ) {
-            ASR::expr_t *m_left_value = ASRUtils::expr_value(a.m_left);
-            is_m_left_const = is_value_constant(m_left_value);
-        } else {
-            is_m_left_const = true;
-        }
-        if( a.m_right != nullptr ) {
-            ASR::expr_t *m_right_value = ASRUtils::expr_value(a.m_right);
-            is_m_right_const = is_value_constant(m_right_value);
-        } else {
-            is_m_right_const = true;
-        }
-        if( a.m_step != nullptr ) {
-            ASR::expr_t *m_step_value = ASRUtils::expr_value(a.m_step);
-            is_m_step_const = is_value_constant(m_step_value);
-        } else {
-            is_m_step_const = true;
-        }
-        if( !(is_m_left_const && is_m_right_const && is_m_step_const) ) {
-            return false;
-        }
-    }
-    return true;
-}
-
-template <typename T>
-static inline bool extract_value(ASR::expr_t* value_expr, T& value) {
-    if( !is_value_constant(value_expr) ) {
-        return false;
-    }
-
-    switch( value_expr->type ) {
-        case ASR::exprType::IntegerConstant: {
-            ASR::IntegerConstant_t* const_int = ASR::down_cast<ASR::IntegerConstant_t>(value_expr);
-            value = (T) const_int->m_n;
-            break;
-        }
-        case ASR::exprType::RealConstant: {
-            ASR::RealConstant_t* const_real = ASR::down_cast<ASR::RealConstant_t>(value_expr);
-            value = (T) const_real->m_r;
-            break;
-        }
-        case ASR::exprType::LogicalConstant: {
-            ASR::LogicalConstant_t* const_logical = ASR::down_cast<ASR::LogicalConstant_t>(value_expr);
-            value = (T) const_logical->m_value;
-            break;
-        }
-        default:
-            return false;
-    }
-    return true;
-}
-
-static inline std::string type_python_1dim_helper(const std::string & res,
-                                                  const ASR::dimension_t* e )
-{
-    if( !e->m_length && !e->m_start ) {
-        return res + "[:]";
-    }
-
-    if( ASRUtils::expr_value(e->m_length) ) {
-        int64_t length_dim = -1;
-        ASRUtils::extract_value(ASRUtils::expr_value(e->m_length), length_dim);
-        return res + "[" + std::to_string(length_dim + 1) + "]";
-    }
-
-    return res;
-}
-
-static inline void encode_dimensions(size_t n_dims, std::string& res,
-    bool use_underscore_sep=false) {
-    if( n_dims == 0 ) {
-        return ;
-    }
-
-    if( use_underscore_sep ) {
-        res += "_";
-    } else {
-        res += "[";
-    }
-
-    for( size_t i = 0; i < n_dims; i++ ) {
-        if( use_underscore_sep ) {
-            res += "_";
-        } else {
-            res += ":";
-        }
-        if( i == n_dims - 1 ) {
-            if( use_underscore_sep ) {
-                res += "_";
-            } else {
-                res += "]";
-            }
-        } else {
-            if( use_underscore_sep ) {
-                res += "_";
-            } else {
-                res += ", ";
-            }
-        }
-    }
-}
-
-static inline std::string get_type_code(const ASR::ttype_t *t, bool use_underscore_sep=false,
-    bool encode_dimensions_=true, bool set_dimensional_hint=true)
-{
-    bool is_dimensional = false;
-    std::string res = "";
-    switch (t->type) {
-        case ASR::ttypeType::Integer: {
-            ASR::Integer_t *integer = ASR::down_cast<ASR::Integer_t>(t);
-            res = "i" + std::to_string(integer->m_kind * 8);
-            if( encode_dimensions_ ) {
-                encode_dimensions(integer->n_dims, res, use_underscore_sep);
-                return res;
-            }
-            is_dimensional = integer->n_dims > 0;
-            break;
-        }
-        case ASR::ttypeType::Real: {
-            ASR::Real_t *real = ASR::down_cast<ASR::Real_t>(t);
-            res = "r" + std::to_string(real->m_kind * 8);
-            if( encode_dimensions_ ) {
-                encode_dimensions(real->n_dims, res, use_underscore_sep);
-                return res;
-            }
-            is_dimensional = real->n_dims > 0;
-            break;
-        }
-        case ASR::ttypeType::Complex: {
-            ASR::Complex_t *complx = ASR::down_cast<ASR::Complex_t>(t);
-            res = "c" + std::to_string(complx->m_kind * 8);
-            if( encode_dimensions_ ) {
-                encode_dimensions(complx->n_dims, res, use_underscore_sep);
-                return res;
-            }
-            is_dimensional = complx->n_dims > 0;
-            break;
-        }
-        case ASR::ttypeType::Logical: {
-            ASR::Logical_t* bool_ = ASR::down_cast<ASR::Logical_t>(t);
-            res = "bool";
-            if( encode_dimensions_ ) {
-                encode_dimensions(bool_->n_dims, res, use_underscore_sep);
-                return res;
-            }
-            is_dimensional = bool_->n_dims > 0;
-            break;
-        }
-        case ASR::ttypeType::Character: {
-            return "str";
-        }
-        case ASR::ttypeType::Tuple: {
-            ASR::Tuple_t *tup = ASR::down_cast<ASR::Tuple_t>(t);
-            std::string result = "tuple";
-            if( use_underscore_sep ) {
-                result += "_";
-            } else {
-                result += "[";
-            }
-            for (size_t i = 0; i < tup->n_type; i++) {
-                result += get_type_code(tup->m_type[i], use_underscore_sep,
-                                        encode_dimensions_, set_dimensional_hint);
-                if (i + 1 != tup->n_type) {
-                    if( use_underscore_sep ) {
-                        result += "_";
-                    } else {
-                        result += ", ";
-                    }
-                }
-            }
-            if( use_underscore_sep ) {
-                result += "_";
-            } else {
-                result += "]";
-            }
-            return result;
-        }
-        case ASR::ttypeType::Set: {
-            ASR::Set_t *s = ASR::down_cast<ASR::Set_t>(t);
-            if( use_underscore_sep ) {
-                return "set_" + get_type_code(s->m_type, use_underscore_sep,
-                                              encode_dimensions_, set_dimensional_hint) + "_";
-            }
-            return "set[" + get_type_code(s->m_type, use_underscore_sep,
-                                          encode_dimensions_, set_dimensional_hint) + "]";
-        }
-        case ASR::ttypeType::Dict: {
-            ASR::Dict_t *d = ASR::down_cast<ASR::Dict_t>(t);
-            if( use_underscore_sep ) {
-                return "dict_" + get_type_code(d->m_key_type, use_underscore_sep,
-                                               encode_dimensions_, set_dimensional_hint) +
-                    "_" + get_type_code(d->m_value_type, use_underscore_sep,
-                                        encode_dimensions_, set_dimensional_hint) + "_";
-            }
-            return "dict[" + get_type_code(d->m_key_type, use_underscore_sep,
-                                           encode_dimensions_, set_dimensional_hint) +
-                    ", " + get_type_code(d->m_value_type, use_underscore_sep,
-                                         encode_dimensions_, set_dimensional_hint) + "]";
-        }
-        case ASR::ttypeType::List: {
-            ASR::List_t *l = ASR::down_cast<ASR::List_t>(t);
-            if( use_underscore_sep ) {
-                return "list_" + get_type_code(l->m_type, use_underscore_sep,
-                                               encode_dimensions_, set_dimensional_hint) + "_";
-            }
-            return "list[" + get_type_code(l->m_type, use_underscore_sep,
-                                           encode_dimensions_, set_dimensional_hint) + "]";
-        }
-        case ASR::ttypeType::CPtr: {
-            return "CPtr";
-        }
-        case ASR::ttypeType::Struct: {
-            ASR::Struct_t* d = ASR::down_cast<ASR::Struct_t>(t);
-            res = symbol_name(d->m_derived_type);
-            if( encode_dimensions_ ) {
-                encode_dimensions(d->n_dims, res, use_underscore_sep);
-                return res;
-            }
-            is_dimensional = d->n_dims > 0;
-            break;
-        }
-        case ASR::ttypeType::Union: {
-            ASR::Union_t* d = ASR::down_cast<ASR::Union_t>(t);
-            res = symbol_name(d->m_union_type);
-            if( encode_dimensions_ ) {
-                encode_dimensions(d->n_dims, res, use_underscore_sep);
-                return res;
-            }
-            is_dimensional = d->n_dims > 0;
-            break;
-        }
-        case ASR::ttypeType::Pointer: {
-            ASR::Pointer_t* p = ASR::down_cast<ASR::Pointer_t>(t);
-            if( use_underscore_sep ) {
-                return "Pointer_" + get_type_code(p->m_type, use_underscore_sep,
-                                                  encode_dimensions_, set_dimensional_hint) + "_";
-            }
-            return "Pointer[" + get_type_code(p->m_type, use_underscore_sep,
-                                              encode_dimensions_, set_dimensional_hint) + "]";
-        }
-        case ASR::ttypeType::Const: {
-            ASR::Const_t* p = ASR::down_cast<ASR::Const_t>(t);
-            if( use_underscore_sep ) {
-                return "Const_" + get_type_code(p->m_type, use_underscore_sep,
-                                                encode_dimensions_, set_dimensional_hint) + "_";
-            }
-            return "Const[" + get_type_code(p->m_type, use_underscore_sep,
-                                            encode_dimensions_, set_dimensional_hint) + "]";
-        }
-        default: {
-            throw LCompilersException("Type encoding not implemented for "
-                                      + std::to_string(t->type));
-        }
-    }
-    if( is_dimensional && set_dimensional_hint ) {
-        res += "dim";
-    }
-    return res;
-}
-
-static inline std::string get_type_code(ASR::ttype_t** types, size_t n_types,
-    bool use_underscore_sep=false, bool encode_dimensions=true) {
-    std::string code = "";
-    for( size_t i = 0; i < n_types; i++ ) {
-        code += get_type_code(types[i], use_underscore_sep, encode_dimensions) + "_";
-    }
-    return code;
-}
-
-static inline std::string type_to_str_python(const ASR::ttype_t *t,
-                                             bool for_error_message=true)
-{
-    switch (t->type) {
-        case ASR::ttypeType::Integer: {
-            ASR::Integer_t *i = (ASR::Integer_t*)t;
-            std::string res = "";
-            switch (i->m_kind) {
-                case 1: { res = "i8"; break; }
-                case 2: { res = "i16"; break; }
-                case 4: { res = "i32"; break; }
-                case 8: { res = "i64"; break; }
-                default: { throw LCompilersException("Integer kind not supported"); }
-            }
-            if (i->n_dims == 1 && for_error_message) {
-                res = type_python_1dim_helper(res, i->m_dims);
-            }
-            return res;
-        }
-        case ASR::ttypeType::Real: {
-            ASR::Real_t *r = (ASR::Real_t*)t;
-            std::string res = "";
-            switch (r->m_kind) {
-                case 4: { res = "f32"; break; }
-                case 8: { res = "f64"; break; }
-                default: { throw LCompilersException("Float kind not supported"); }
-            }
-            if (r->n_dims == 1 && for_error_message) {
-                res = type_python_1dim_helper(res, r->m_dims);
-            }
-            return res;
-        }
-        case ASR::ttypeType::Complex: {
-            ASR::Complex_t *c = (ASR::Complex_t*)t;
-            switch (c->m_kind) {
-                case 4: { return "c32"; }
-                case 8: { return "c64"; }
-                default: { throw LCompilersException("Complex kind not supported"); }
-            }
-        }
-        case ASR::ttypeType::Logical: {
-            return "bool";
-        }
-        case ASR::ttypeType::Character: {
-            return "str";
-        }
-        case ASR::ttypeType::Tuple: {
-            ASR::Tuple_t *tup = ASR::down_cast<ASR::Tuple_t>(t);
-            std::string result = "tuple[";
-            for (size_t i=0; i<tup->n_type; i++) {
-                result += type_to_str_python(tup->m_type[i]);
-                if (i+1 != tup->n_type) {
-                    result += ", ";
-                }
-            }
-            result += "]";
-            return result;
-        }
-        case ASR::ttypeType::Set: {
-            ASR::Set_t *s = (ASR::Set_t *)t;
-            return "set[" + type_to_str_python(s->m_type) + "]";
-        }
-        case ASR::ttypeType::Dict: {
-            ASR::Dict_t *d = (ASR::Dict_t *)t;
-            return "dict[" + type_to_str_python(d->m_key_type) + ", " + type_to_str_python(d->m_value_type) + "]";
-        }
-        case ASR::ttypeType::List: {
-            ASR::List_t *l = (ASR::List_t *)t;
-            return "list[" + type_to_str_python(l->m_type) + "]";
-        }
-        case ASR::ttypeType::CPtr: {
-            return "CPtr";
-        }
-        case ASR::ttypeType::Struct: {
-            ASR::Struct_t* d = ASR::down_cast<ASR::Struct_t>(t);
-            return symbol_name(d->m_derived_type);
-        }
-        case ASR::ttypeType::Enum: {
-            ASR::Enum_t* d = ASR::down_cast<ASR::Enum_t>(t);
-            return symbol_name(d->m_enum_type);
-        }
-        case ASR::ttypeType::Union: {
-            ASR::Union_t* d = ASR::down_cast<ASR::Union_t>(t);
-            return symbol_name(d->m_union_type);
-        }
-        case ASR::ttypeType::Pointer: {
-            ASR::Pointer_t* p = ASR::down_cast<ASR::Pointer_t>(t);
-            return "Pointer[" + type_to_str_python(p->m_type) + "]";
-        }
-        case ASR::ttypeType::Const: {
-            ASR::Const_t* p = ASR::down_cast<ASR::Const_t>(t);
-            return "Const[" + type_to_str_python(p->m_type) + "]";
-        }
-        case ASR::ttypeType::TypeParameter: {
-            ASR::TypeParameter_t *p = ASR::down_cast<ASR::TypeParameter_t>(t);
-            return p->m_param;
-        }
-        default : throw LCompilersException("Not implemented " + std::to_string(t->type));
-    }
-}
-
-static inline std::string binop_to_str_python(const ASR::binopType t) {
-    switch (t) {
-        case (ASR::binopType::Add): { return " + "; }
-        case (ASR::binopType::Sub): { return " - "; }
-        case (ASR::binopType::Mul): { return "*"; }
-        case (ASR::binopType::Div): { return "/"; }
-        case (ASR::binopType::BitAnd): { return "&"; }
-        case (ASR::binopType::BitOr): { return "|"; }
-        case (ASR::binopType::BitXor): { return "^"; }
-        case (ASR::binopType::BitLShift): { return "<<"; }
-        case (ASR::binopType::BitRShift): { return ">>"; }
-        default : throw LCompilersException("Cannot represent the binary operator as a string");
-    }
-}
-
-static inline bool is_immutable(const ASR::ttype_t *type) {
-    return ((ASR::is_a<ASR::Character_t>(*type) || ASR::is_a<ASR::Tuple_t>(*type)
-        || ASR::is_a<ASR::Complex_t>(*type)));
-}
-
-// Returns a list of values
-static inline Vec<ASR::call_arg_t> get_arg_values(Allocator &al, const Vec<ASR::call_arg_t>& args) {
-    Vec<ASR::call_arg_t> values;
-    values.reserve(al, args.size());
-    for (auto &a : args) {
-        ASR::expr_t *v = expr_value(a.m_value);
-        if (v == nullptr) return values;
-        ASR::call_arg_t v_arg;
-        v_arg.loc = v->base.loc, v_arg.m_value = v;
-        values.push_back(al, v_arg);
-    }
-    return values;
-}
-
-// Converts a vector of call_arg to a vector of expr
-// It skips missing call_args
-static inline Vec<ASR::expr_t*> call_arg2expr(Allocator &al, const Vec<ASR::call_arg_t>& call_args) {
-    Vec<ASR::expr_t*> args;
-    args.reserve(al, call_args.size());
-    for (auto &a : call_args) {
-        if (a.m_value != nullptr) {
-            args.push_back(al, a.m_value);
-        }
-    }
-    return args;
-}
-
-// Returns the TranslationUnit_t's symbol table by going via parents
-static inline SymbolTable *get_tu_symtab(SymbolTable *symtab) {
-    SymbolTable *s = symtab;
-    while (s->parent != nullptr) {
-        s = s->parent;
-    }
-    LCOMPILERS_ASSERT(ASR::is_a<ASR::unit_t>(*s->asr_owner))
-    return s;
-}
-
-// Returns the name of scopes in reverse order (local scope first, function second, module last)
-static inline Vec<char*> get_scope_names(Allocator &al, const SymbolTable *symtab) {
-    Vec<char*> scope_names;
-    scope_names.reserve(al, 4);
-    const SymbolTable *s = symtab;
-    while (s->parent != nullptr) {
-        char *owner_name = symbol_name(ASR::down_cast<ASR::symbol_t>(s->asr_owner));
-        scope_names.push_back(al, owner_name);
-        s = s->parent;
-    }
-    return scope_names;
-}
-
-static inline ASR::expr_t* get_constant_expression_with_given_type(Allocator& al, ASR::ttype_t* asr_type) {
-    switch (asr_type->type) {
-        case ASR::ttypeType::Integer: {
-            return ASRUtils::EXPR(ASR::make_IntegerConstant_t(al, asr_type->base.loc, -1, asr_type));
-        }
-        case ASR::ttypeType::Real: {
-            return ASRUtils::EXPR(ASR::make_RealConstant_t(al, asr_type->base.loc, 0.0, asr_type));
-        }
-        case ASR::ttypeType::Complex: {
-            return ASRUtils::EXPR(ASR::make_ComplexConstant_t(al, asr_type->base.loc, 0.0, 0.0, asr_type));
-        }
-        case ASR::ttypeType::Logical: {
-            return ASRUtils::EXPR(ASR::make_LogicalConstant_t(al, asr_type->base.loc, false, asr_type));
-        }
-        default: {
-            throw LCompilersException("Not implemented " + std::to_string(asr_type->type));
-        }
-    }
-    return nullptr;
-}
-
-const ASR::intentType intent_local=ASR::intentType::Local; // local variable (not a dummy argument)
-const ASR::intentType intent_in   =ASR::intentType::In; // dummy argument, intent(in)
-const ASR::intentType intent_out  =ASR::intentType::Out; // dummy argument, intent(out)
-const ASR::intentType intent_inout=ASR::intentType::InOut; // dummy argument, intent(inout)
-const ASR::intentType intent_return_var=ASR::intentType::ReturnVar; // return variable of a function
-const ASR::intentType intent_unspecified=ASR::intentType::Unspecified; // dummy argument, ambiguous intent
-
-static inline bool is_arg_dummy(int intent) {
-    return intent == intent_in || intent == intent_out
-        || intent == intent_inout || intent == intent_unspecified;
-}
-
-static inline bool main_program_present(const ASR::TranslationUnit_t &unit)
-{
-    for (auto &a : unit.m_global_scope->get_scope()) {
-        if (ASR::is_a<ASR::Program_t>(*a.second)) return true;
-    }
-    return false;
-}
-
-// Accepts dependencies in the form A -> [B, D, ...], B -> [C, D]
-// Returns a list of dependencies in the order that they should be built:
-// [D, C, B, A]
-std::vector<std::string> order_deps(std::map<std::string,
-        std::vector<std::string>> const &deps);
-
-std::vector<std::string> determine_module_dependencies(
-        const ASR::TranslationUnit_t &unit);
-
-std::vector<std::string> determine_function_definition_order(
-         SymbolTable* symtab);
-
-std::vector<std::string> determine_variable_declaration_order(
-         SymbolTable* symtab);
-
-void extract_module_python(const ASR::TranslationUnit_t &m,
-        std::vector<std::pair<std::string, ASR::Module_t*>>& children_modules,
-        std::string module_name);
-
-ASR::Module_t* extract_module(const ASR::TranslationUnit_t &m);
-
-ASR::Module_t* load_module(Allocator &al, SymbolTable *symtab,
-                            const std::string &module_name,
-                            const Location &loc, bool intrinsic,
-                            LCompilers::PassOptions& pass_options,
-                            bool run_verify,
-                            const std::function<void (const std::string &, const Location &)> err);
-
-ASR::TranslationUnit_t* find_and_load_module(Allocator &al, const std::string &msym,
-                                                SymbolTable &symtab, bool intrinsic,
-                                                LCompilers::PassOptions& pass_options);
-
-void set_intrinsic(ASR::TranslationUnit_t* trans_unit);
-
-ASR::asr_t* getStructInstanceMember_t(Allocator& al, const Location& loc,
-                            ASR::asr_t* v_var, ASR::symbol_t* member,
-                            SymbolTable* current_scope);
-
-bool use_overloaded(ASR::expr_t* left, ASR::expr_t* right,
-                    ASR::binopType op, std::string& intrinsic_op_name,
-                    SymbolTable* curr_scope, ASR::asr_t*& asr,
-                    Allocator &al, const Location& loc,
-                    std::set<std::string>& current_function_dependencies,
-                    Vec<char*>& current_module_dependencies,
-                    const std::function<void (const std::string &, const Location &)> err);
-
-bool is_op_overloaded(ASR::binopType op, std::string& intrinsic_op_name,
-                      SymbolTable* curr_scope);
-
-bool use_overloaded(ASR::expr_t* left, ASR::expr_t* right,
-                    ASR::cmpopType op, std::string& intrinsic_op_name,
-                    SymbolTable* curr_scope, ASR::asr_t*& asr,
-                    Allocator &al, const Location& loc,
-                    std::set<std::string>& current_function_dependencies,
-                    Vec<char*>& current_module_dependencies,
-                    const std::function<void (const std::string &, const Location &)> err);
-
-bool is_op_overloaded(ASR::cmpopType op, std::string& intrinsic_op_name,
-                      SymbolTable* curr_scope);
-
-bool use_overloaded_assignment(ASR::expr_t* target, ASR::expr_t* value,
-                               SymbolTable* curr_scope, ASR::asr_t*& asr,
-                               Allocator &al, const Location& loc,
-                               std::set<std::string>& current_function_dependencies,
-                               Vec<char*>& /*current_module_dependencies*/,
-                               const std::function<void (const std::string &, const Location &)> err);
-
-void set_intrinsic(ASR::symbol_t* sym);
-
-static inline int extract_kind_from_ttype_t(const ASR::ttype_t* type) {
-    if (type == nullptr) {
-        return -1;
-    }
-    switch (type->type) {
-        case ASR::ttypeType::Integer : {
-            return ASR::down_cast<ASR::Integer_t>(type)->m_kind;
-        }
-        case ASR::ttypeType::Real : {
-            return ASR::down_cast<ASR::Real_t>(type)->m_kind;
-        }
-        case ASR::ttypeType::Complex: {
-            return ASR::down_cast<ASR::Complex_t>(type)->m_kind;
-        }
-        case ASR::ttypeType::Character: {
-            return ASR::down_cast<ASR::Character_t>(type)->m_kind;
-        }
-        case ASR::ttypeType::Logical: {
-            return ASR::down_cast<ASR::Logical_t>(type)->m_kind;
-        }
-        case ASR::ttypeType::Pointer: {
-            return extract_kind_from_ttype_t(ASR::down_cast<ASR::Pointer_t>(type)->m_type);
-        }
-        case ASR::ttypeType::Const: {
-            return extract_kind_from_ttype_t(ASR::down_cast<ASR::Const_t>(type)->m_type);
-        }
-        default : {
-            return -1;
-        }
-    }
-}
-
-static inline bool is_pointer(ASR::ttype_t *x) {
-    return ASR::is_a<ASR::Pointer_t>(*x);
-}
-
-static inline bool is_integer(ASR::ttype_t &x) {
-    return ASR::is_a<ASR::Integer_t>(*type_get_past_pointer(&x));
-}
-
-static inline bool is_real(ASR::ttype_t &x) {
-    return ASR::is_a<ASR::Real_t>(*type_get_past_pointer(&x));
-}
-
-static inline bool is_character(ASR::ttype_t &x) {
-    return ASR::is_a<ASR::Character_t>(*type_get_past_pointer(&x));
-}
-
-static inline bool is_complex(ASR::ttype_t &x) {
-    return ASR::is_a<ASR::Complex_t>(*type_get_past_pointer(&x));
-}
-
-static inline bool is_logical(ASR::ttype_t &x) {
-    return ASR::is_a<ASR::Logical_t>(*type_get_past_pointer(&x));
-}
-
-static inline bool is_generic(ASR::ttype_t &x) {
-    switch (x.type) {
-        case ASR::ttypeType::List: {
-            ASR::List_t *list_type = ASR::down_cast<ASR::List_t>(type_get_past_pointer(&x));
-            return is_generic(*list_type->m_type);
-        }
-        default : return ASR::is_a<ASR::TypeParameter_t>(*type_get_past_pointer(&x));
-    }
-}
-
-static inline bool is_generic_function(ASR::symbol_t *x) {
-    ASR::symbol_t* x2 = symbol_get_past_external(x);
-    switch (x2->type) {
-        case ASR::symbolType::Function: {
-            ASR::Function_t *func_sym = ASR::down_cast<ASR::Function_t>(x2);
-            return (ASRUtils::get_FunctionType(func_sym)->n_type_params > 0 &&
-                    !ASRUtils::get_FunctionType(func_sym)->m_is_restriction);
-        }
-        default: return false;
-    }
-}
-
-static inline bool is_restriction_function(ASR::symbol_t *x) {
-    ASR::symbol_t* x2 = symbol_get_past_external(x);
-    switch (x2->type) {
-        case ASR::symbolType::Function: {
-            ASR::Function_t *func_sym = ASR::down_cast<ASR::Function_t>(x2);
-            return ASRUtils::get_FunctionType(func_sym)->m_is_restriction;
-        }
-        default: return false;
-    }
-}
-
-static inline int get_body_size(ASR::symbol_t* s) {
-    int n_body = 0;
-    switch (s->type) {
-        case ASR::symbolType::Function: {
-            ASR::Function_t* f = ASR::down_cast<ASR::Function_t>(s);
-            n_body = f->n_body;
-            break;
-        }
-        case ASR::symbolType::Program: {
-            ASR::Program_t* p = ASR::down_cast<ASR::Program_t>(s);
-            n_body = p->n_body;
-            break;
-        }
-        default: {
-            n_body = -1;
-        }
-    }
-    return n_body;
-}
-
-inline int extract_dimensions_from_ttype(ASR::ttype_t *x,
-                                         ASR::dimension_t*& m_dims) {
-    int n_dims = 0;
-    switch (x->type) {
-        case ASR::ttypeType::Integer: {
-            ASR::Integer_t* Integer_type = ASR::down_cast<ASR::Integer_t>(x);
-            n_dims = Integer_type->n_dims;
-            m_dims = Integer_type->m_dims;
-            break;
-        }
-        case ASR::ttypeType::Real: {
-            ASR::Real_t* Real_type = ASR::down_cast<ASR::Real_t>(x);
-            n_dims = Real_type->n_dims;
-            m_dims = Real_type->m_dims;
-            break;
-        }
-        case ASR::ttypeType::Complex: {
-            ASR::Complex_t* Complex_type = ASR::down_cast<ASR::Complex_t>(x);
-            n_dims = Complex_type->n_dims;
-            m_dims = Complex_type->m_dims;
-            break;
-        }
-        case ASR::ttypeType::Character: {
-            ASR::Character_t* Character_type = ASR::down_cast<ASR::Character_t>(x);
-            n_dims = Character_type->n_dims;
-            m_dims = Character_type->m_dims;
-            break;
-        }
-        case ASR::ttypeType::Logical: {
-            ASR::Logical_t* Logical_type = ASR::down_cast<ASR::Logical_t>(x);
-            n_dims = Logical_type->n_dims;
-            m_dims = Logical_type->m_dims;
-            break;
-        }
-        case ASR::ttypeType::Struct: {
-            ASR::Struct_t* Struct_type = ASR::down_cast<ASR::Struct_t>(x);
-            n_dims = Struct_type->n_dims;
-            m_dims = Struct_type->m_dims;
-            break;
-        }
-        case ASR::ttypeType::Enum: {
-            ASR::Enum_t* Enum_type = ASR::down_cast<ASR::Enum_t>(x);
-            n_dims = Enum_type->n_dims;
-            m_dims = Enum_type->m_dims;
-            break;
-        }
-        case ASR::ttypeType::Union: {
-            ASR::Union_t* Union_type = ASR::down_cast<ASR::Union_t>(x);
-            n_dims = Union_type->n_dims;
-            m_dims = Union_type->m_dims;
-            break;
-        }
-        case ASR::ttypeType::Class: {
-            ASR::Class_t* Class_type = ASR::down_cast<ASR::Class_t>(x);
-            n_dims = Class_type->n_dims;
-            m_dims = Class_type->m_dims;
-            break;
-        }
-        case ASR::ttypeType::Pointer: {
-            n_dims = extract_dimensions_from_ttype(ASR::down_cast<ASR::Pointer_t>(x)->m_type, m_dims);
-            break;
-        }
-        case ASR::ttypeType::Const: {
-            n_dims = extract_dimensions_from_ttype(ASR::down_cast<ASR::Const_t>(x)->m_type, m_dims);
-            break;
-        }
-        case ASR::ttypeType::List: {
-            n_dims = 0;
-            m_dims = nullptr;
-            break;
-        }
-        case ASR::ttypeType::Tuple: {
-            n_dims = 0;
-            m_dims = nullptr;
-            break;
-        }
-        case ASR::ttypeType::Dict: {
-            n_dims = 0;
-            m_dims = nullptr;
-            break;
-        }
-        case ASR::ttypeType::CPtr: {
-            n_dims = 0;
-            m_dims = nullptr;
-            break;
-        }
-        case ASR::ttypeType::TypeParameter: {
-            ASR::TypeParameter_t* tp = ASR::down_cast<ASR::TypeParameter_t>(x);
-            n_dims = tp->n_dims;
-            m_dims = tp->m_dims;
-            break;
-        }
-        default:
-            throw LCompilersException("Not implemented.");
-    }
-    return n_dims;
-}
-
-static inline bool is_fixed_size_array(ASR::dimension_t* m_dims, size_t n_dims) {
-    if( n_dims == 0 ) {
-        return false;
-    }
-    for( size_t i = 0; i < n_dims; i++ ) {
-        int64_t dim_size = -1;
-        if( m_dims[i].m_length == nullptr ) {
-            return false;
-        }
-        if( !ASRUtils::extract_value(ASRUtils::expr_value(m_dims[i].m_length), dim_size) ) {
-            return false;
-        }
-    }
-    return true;
-}
-
-static inline int64_t get_fixed_size_of_array(ASR::dimension_t* m_dims, size_t n_dims) {
-    if( n_dims == 0 ) {
-        return 0;
-    }
-    int64_t array_size = 1;
-    for( size_t i = 0; i < n_dims; i++ ) {
-        int64_t dim_size = -1;
-        if( !ASRUtils::extract_value(ASRUtils::expr_value(m_dims[i].m_length), dim_size) ) {
-            return -1;
-        }
-        array_size *= dim_size;
-    }
-    return array_size;
-}
-
-inline int extract_n_dims_from_ttype(ASR::ttype_t *x) {
-    ASR::dimension_t* m_dims_temp = nullptr;
-    return extract_dimensions_from_ttype(x, m_dims_temp);
-}
-
-// Sets the dimension member of `ttype_t`. Returns `true` if dimensions set.
-// Returns `false` if the `ttype_t` does not have a dimension member.
-inline bool ttype_set_dimensions(ASR::ttype_t *x,
-            ASR::dimension_t *m_dims, int64_t n_dims) {
-    switch (x->type) {
-        case ASR::ttypeType::Integer: {
-            ASR::Integer_t* Integer_type = ASR::down_cast<ASR::Integer_t>(x);
-            Integer_type->n_dims = n_dims;
-            Integer_type->m_dims = m_dims;
-            return true;
-        }
-        case ASR::ttypeType::Real: {
-            ASR::Real_t* Real_type = ASR::down_cast<ASR::Real_t>(x);
-            Real_type->n_dims = n_dims;
-            Real_type->m_dims = m_dims;
-            return true;
-        }
-        case ASR::ttypeType::Complex: {
-            ASR::Complex_t* Complex_type = ASR::down_cast<ASR::Complex_t>(x);
-            Complex_type->n_dims = n_dims;
-            Complex_type->m_dims = m_dims;
-            return true;
-        }
-        case ASR::ttypeType::Character: {
-            ASR::Character_t* Character_type = ASR::down_cast<ASR::Character_t>(x);
-            Character_type->n_dims = n_dims;
-            Character_type->m_dims = m_dims;
-            return true;
-        }
-        case ASR::ttypeType::Logical: {
-            ASR::Logical_t* Logical_type = ASR::down_cast<ASR::Logical_t>(x);
-            n_dims = Logical_type->n_dims;
-            m_dims = Logical_type->m_dims;
-            return true;
-        }
-        case ASR::ttypeType::Struct: {
-            ASR::Struct_t* Struct_type = ASR::down_cast<ASR::Struct_t>(x);
-            n_dims = Struct_type->n_dims;
-            m_dims = Struct_type->m_dims;
-            return true;
-        }
-        case ASR::ttypeType::Class: {
-            ASR::Class_t* Class_type = ASR::down_cast<ASR::Class_t>(x);
-            Class_type->n_dims = n_dims;
-            Class_type->m_dims = m_dims;
-            return true;
-        }
-        case ASR::ttypeType::TypeParameter: {
-            ASR::TypeParameter_t* tp = ASR::down_cast<ASR::TypeParameter_t>(x);
-            n_dims = tp->n_dims;
-            m_dims = tp->m_dims;
-            return true;
-        }
-        case ASR::ttypeType::Pointer: {
-            return ttype_set_dimensions(
-                ASR::down_cast<ASR::Pointer_t>(x)->m_type, m_dims, n_dims);
-        }
-        default:
-            return false;
-    }
-    return false;
-}
-
-inline bool is_array(ASR::ttype_t *x) {
-    ASR::dimension_t* dims = nullptr;
-    return extract_dimensions_from_ttype(x, dims) > 0;
-}
-
-static inline bool is_aggregate_type(ASR::ttype_t* asr_type) {
-    if( ASR::is_a<ASR::Const_t>(*asr_type) ) {
-        asr_type = ASR::down_cast<ASR::Const_t>(asr_type)->m_type;
-    }
-    return ASRUtils::is_array(asr_type) ||
-            !(ASR::is_a<ASR::Integer_t>(*asr_type) ||
-              ASR::is_a<ASR::Real_t>(*asr_type) ||
-              ASR::is_a<ASR::Complex_t>(*asr_type) ||
-              ASR::is_a<ASR::Logical_t>(*asr_type));
-}
-
-static inline ASR::ttype_t* duplicate_type(Allocator& al, const ASR::ttype_t* t,
-                                           Vec<ASR::dimension_t>* dims = nullptr) {
-    switch (t->type) {
-        case ASR::ttypeType::Integer: {
-            ASR::Integer_t* tnew = ASR::down_cast<ASR::Integer_t>(t);
-            ASR::dimension_t* dimsp = dims ? dims->p : tnew->m_dims;
-            size_t dimsn = dims ? dims->n : tnew->n_dims;
-            return ASRUtils::TYPE(ASR::make_Integer_t(al, t->base.loc,
-                        tnew->m_kind, dimsp, dimsn));
-        }
-        case ASR::ttypeType::Real: {
-            ASR::Real_t* tnew = ASR::down_cast<ASR::Real_t>(t);
-            ASR::dimension_t* dimsp = dims ? dims->p : tnew->m_dims;
-            size_t dimsn = dims ? dims->n : tnew->n_dims;
-            return ASRUtils::TYPE(ASR::make_Real_t(al, t->base.loc,
-                        tnew->m_kind, dimsp, dimsn));
-        }
-        case ASR::ttypeType::Complex: {
-            ASR::Complex_t* tnew = ASR::down_cast<ASR::Complex_t>(t);
-            ASR::dimension_t* dimsp = dims ? dims->p : tnew->m_dims;
-            size_t dimsn = dims ? dims->n : tnew->n_dims;
-            return ASRUtils::TYPE(ASR::make_Complex_t(al, t->base.loc,
-                        tnew->m_kind, dimsp, dimsn));
-        }
-        case ASR::ttypeType::Logical: {
-            ASR::Logical_t* tnew = ASR::down_cast<ASR::Logical_t>(t);
-            ASR::dimension_t* dimsp = dims ? dims->p : tnew->m_dims;
-            size_t dimsn = dims ? dims->n : tnew->n_dims;
-            return ASRUtils::TYPE(ASR::make_Logical_t(al, t->base.loc,
-                        tnew->m_kind, dimsp, dimsn));
-        }
-        case ASR::ttypeType::Character: {
-            ASR::Character_t* tnew = ASR::down_cast<ASR::Character_t>(t);
-            ASR::dimension_t* dimsp = dims ? dims->p : tnew->m_dims;
-            size_t dimsn = dims ? dims->n : tnew->n_dims;
-            return ASRUtils::TYPE(ASR::make_Character_t(al, t->base.loc,
-                        tnew->m_kind, tnew->m_len, tnew->m_len_expr,
-                        dimsp, dimsn));
-        }
-        case ASR::ttypeType::Struct: {
-            ASR::Struct_t* tnew = ASR::down_cast<ASR::Struct_t>(t);
-            ASR::dimension_t* dimsp = dims ? dims->p : tnew->m_dims;
-            size_t dimsn = dims ? dims->n : tnew->n_dims;
-            return ASRUtils::TYPE(ASR::make_Struct_t(al, t->base.loc,
-                        tnew->m_derived_type, dimsp, dimsn));
-        }
-        case ASR::ttypeType::Pointer: {
-            ASR::Pointer_t* ptr = ASR::down_cast<ASR::Pointer_t>(t);
-            ASR::ttype_t* dup_type = duplicate_type(al, ptr->m_type, dims);
-            return ASRUtils::TYPE(ASR::make_Pointer_t(al, ptr->base.base.loc,
-                        dup_type));
-        }
-        case ASR::ttypeType::Const: {
-            ASR::Const_t* c = ASR::down_cast<ASR::Const_t>(t);
-            ASR::ttype_t* dup_type = duplicate_type(al, c->m_type, dims);
-            return ASRUtils::TYPE(ASR::make_Const_t(al, c->base.base.loc,
-                        dup_type));
-        }
-        case ASR::ttypeType::TypeParameter: {
-            ASR::TypeParameter_t* tp = ASR::down_cast<ASR::TypeParameter_t>(t);
-            ASR::dimension_t* dimsp = dims ? dims->p : tp->m_dims;
-            size_t dimsn = dims ? dims->n : tp->n_dims;
-            //return ASRUtils::TYPE(ASR::make_TypeParameter_t(al, t->base.loc,
-            //            tp->m_param, dimsp, dimsn, tp->m_rt, tp->n_rt));
-            return ASRUtils::TYPE(ASR::make_TypeParameter_t(al, t->base.loc,
-                        tp->m_param, dimsp, dimsn));
-        }
-        default : throw LCompilersException("Not implemented " + std::to_string(t->type));
-    }
-}
-
-static inline ASR::ttype_t* duplicate_type_without_dims(Allocator& al, const ASR::ttype_t* t, const Location& loc) {
-    switch (t->type) {
-        case ASR::ttypeType::Integer: {
-            ASR::Integer_t* tnew = ASR::down_cast<ASR::Integer_t>(t);
-            return ASRUtils::TYPE(ASR::make_Integer_t(al, loc,
-                        tnew->m_kind, nullptr, 0));
-        }
-        case ASR::ttypeType::Real: {
-            ASR::Real_t* tnew = ASR::down_cast<ASR::Real_t>(t);
-            return ASRUtils::TYPE(ASR::make_Real_t(al, loc,
-                        tnew->m_kind, nullptr, 0));
-        }
-        case ASR::ttypeType::Complex: {
-            ASR::Complex_t* tnew = ASR::down_cast<ASR::Complex_t>(t);
-            return ASRUtils::TYPE(ASR::make_Complex_t(al, loc,
-                        tnew->m_kind, nullptr, 0));
-        }
-        case ASR::ttypeType::Logical: {
-            ASR::Logical_t* tnew = ASR::down_cast<ASR::Logical_t>(t);
-            return ASRUtils::TYPE(ASR::make_Logical_t(al, loc,
-                        tnew->m_kind, nullptr, 0));
-        }
-        case ASR::ttypeType::Character: {
-            ASR::Character_t* tnew = ASR::down_cast<ASR::Character_t>(t);
-            return ASRUtils::TYPE(ASR::make_Character_t(al, loc,
-                        tnew->m_kind, tnew->m_len, tnew->m_len_expr,
-                        nullptr, 0));
-        }
-        case ASR::ttypeType::Struct: {
-            ASR::Struct_t* tstruct = ASR::down_cast<ASR::Struct_t>(t);
-            return ASRUtils::TYPE(ASR::make_Struct_t(al, loc,
-                    tstruct->m_derived_type, nullptr, 0));
-        }
-        case ASR::ttypeType::TypeParameter: {
-            ASR::TypeParameter_t* tp = ASR::down_cast<ASR::TypeParameter_t>(t);
-            //return ASRUtils::TYPE(ASR::make_TypeParameter_t(al, t->base.loc,
-            //            tp->m_param, nullptr, 0, tp->m_rt, tp->n_rt));
-            return ASRUtils::TYPE(ASR::make_TypeParameter_t(al, loc,
-                        tp->m_param, nullptr, 0));
-        }
-        default : throw LCompilersException("Not implemented " + std::to_string(t->type));
-    }
-}
-
-inline bool is_same_type_pointer(ASR::ttype_t* source, ASR::ttype_t* dest) {
-    bool is_source_pointer = is_pointer(source), is_dest_pointer = is_pointer(dest);
-    if( (!is_source_pointer && !is_dest_pointer) ||
-        (is_source_pointer && is_dest_pointer) ) {
-        return false;
-    }
-    if( is_source_pointer && !is_dest_pointer ) {
-        ASR::ttype_t* temp = source;
-        source = dest;
-        dest = temp;
-    }
-    dest = ASR::down_cast<ASR::Pointer_t>(dest)->m_type;
-    if( (ASR::is_a<ASR::Class_t>(*source) || ASR::is_a<ASR::Struct_t>(*source)) &&
-        (ASR::is_a<ASR::Class_t>(*dest) || ASR::is_a<ASR::Struct_t>(*dest)) ) {
-        return true;
-    }
-    bool res = source->type == dest->type;
-    return res;
-}
-
-inline int extract_kind_str(char* m_n, char *&kind_str) {
-    char *p = m_n;
-    while (*p != '\0') {
-        if (*p == '_') {
-            p++;
-            std::string kind = std::string(p);
-            int ikind = std::atoi(p);
-            if (ikind == 0) {
-                // Not an integer, return a string
-                kind_str = p;
-                return 0;
-            } else {
-                return ikind;
-            }
-        }
-        if (*p == 'd' || *p == 'D') {
-            // Double precision
-            return 8;
-        }
-        p++;
-    }
-    return 4;
-}
-
-template <typename SemanticError>
-inline int extract_kind(ASR::expr_t* kind_expr, const Location& loc) {
-    int a_kind = 4;
-    switch( kind_expr->type ) {
-        case ASR::exprType::IntegerConstant: {
-            a_kind = ASR::down_cast<ASR::IntegerConstant_t>
-                    (kind_expr)->m_n;
-            break;
-        }
-        case ASR::exprType::Var: {
-            ASR::Var_t* kind_var =
-                ASR::down_cast<ASR::Var_t>(kind_expr);
-            ASR::Variable_t* kind_variable =
-                ASR::down_cast<ASR::Variable_t>(
-                    symbol_get_past_external(kind_var->m_v));
-            if( kind_variable->m_storage == ASR::storage_typeType::Parameter ) {
-                if( kind_variable->m_type->type == ASR::ttypeType::Integer ) {
-                    LCOMPILERS_ASSERT( kind_variable->m_value != nullptr );
-                    a_kind = ASR::down_cast<ASR::IntegerConstant_t>(kind_variable->m_value)->m_n;
-                } else {
-                    std::string msg = "Integer variable required. " + std::string(kind_variable->m_name) +
-                                    " is not an Integer variable.";
-                    throw SemanticError(msg, loc);
-                }
-            } else {
-                std::string msg = "Parameter " + std::string(kind_variable->m_name) +
-                                " is a variable, which does not reduce to a constant expression";
-                throw SemanticError(msg, loc);
-            }
-            break;
-        }
-        default: {
-            throw SemanticError(R"""(Only Integer literals or expressions which reduce to constant Integer are accepted as kind parameters.)""",
-                                loc);
-        }
-    }
-    return a_kind;
-}
-
-template <typename SemanticError>
-inline int extract_len(ASR::expr_t* len_expr, const Location& loc) {
-    int a_len = -10;
-    switch( len_expr->type ) {
-        case ASR::exprType::IntegerConstant: {
-            a_len = ASR::down_cast<ASR::IntegerConstant_t>
-                    (len_expr)->m_n;
-            break;
-        }
-        case ASR::exprType::Var: {
-            ASR::Var_t* len_var =
-                ASR::down_cast<ASR::Var_t>(len_expr);
-            ASR::Variable_t* len_variable =
-                ASR::down_cast<ASR::Variable_t>(
-                    symbol_get_past_external(len_var->m_v));
-            if( len_variable->m_storage == ASR::storage_typeType::Parameter ) {
-                if( len_variable->m_type->type == ASR::ttypeType::Integer ) {
-                    LCOMPILERS_ASSERT( len_variable->m_value != nullptr );
-                    a_len = ASR::down_cast<ASR::IntegerConstant_t>(len_variable->m_value)->m_n;
-                } else {
-                    std::string msg = "Integer variable required. " + std::string(len_variable->m_name) +
-                                    " is not an Integer variable.";
-                    throw SemanticError(msg, loc);
-                }
-            } else {
-                // An expression is being used for `len` that cannot be evaluated
-                a_len = -3;
-            }
-            break;
-        }
-        case ASR::exprType::FunctionCall: {
-            a_len = -3;
-            break;
-        }
-        case ASR::exprType::IntegerBinOp: {
-            a_len = -3;
-            break;
-        }
-        default: {
-            throw SemanticError("Only Integers or variables implemented so far for `len` expressions",
-                                loc);
-        }
-    }
-    LCOMPILERS_ASSERT(a_len != -10)
-    return a_len;
-}
-
-inline bool check_equal_type(ASR::ttype_t* x, ASR::ttype_t* y) {
-    ASR::ttype_t *x_underlying, *y_underlying;
-    x_underlying = nullptr;
-    y_underlying = nullptr;
-    if( ASR::is_a<ASR::Enum_t>(*x) ) {
-        ASR::Enum_t *x_enum = ASR::down_cast<ASR::Enum_t>(x);
-        ASR::EnumType_t *x_enum_type = ASR::down_cast<ASR::EnumType_t>(x_enum->m_enum_type);
-        x_underlying = x_enum_type->m_type;
-    }
-    if( ASR::is_a<ASR::Enum_t>(*y) ) {
-        ASR::Enum_t *y_enum = ASR::down_cast<ASR::Enum_t>(y);
-        ASR::EnumType_t *y_enum_type = ASR::down_cast<ASR::EnumType_t>(y_enum->m_enum_type);
-        y_underlying = y_enum_type->m_type;
-    }
-    if( x_underlying || y_underlying ) {
-        if( x_underlying ) {
-            x = x_underlying;
-        }
-        if( y_underlying ) {
-            y = y_underlying;
-        }
-        return check_equal_type(x, y);
-    }
-    if( ASR::is_a<ASR::Pointer_t>(*x) ||
-        ASR::is_a<ASR::Pointer_t>(*y) ) {
-        x = ASRUtils::type_get_past_pointer(x);
-        y = ASRUtils::type_get_past_pointer(y);
-        return check_equal_type(x, y);
-    } else if(ASR::is_a<ASR::Const_t>(*x) ||
-              ASR::is_a<ASR::Const_t>(*y)) {
-        x = ASRUtils::get_contained_type(x);
-        y = ASRUtils::get_contained_type(y);
-        return check_equal_type(x, y);
-    } else if (ASR::is_a<ASR::List_t>(*x) && ASR::is_a<ASR::List_t>(*y)) {
-        x = ASR::down_cast<ASR::List_t>(x)->m_type;
-        y = ASR::down_cast<ASR::List_t>(y)->m_type;
-        return check_equal_type(x, y);
-    } else if (ASR::is_a<ASR::Set_t>(*x) && ASR::is_a<ASR::Set_t>(*y)) {
-        x = ASR::down_cast<ASR::Set_t>(x)->m_type;
-        y = ASR::down_cast<ASR::Set_t>(y)->m_type;
-        return check_equal_type(x, y);
-    } else if (ASR::is_a<ASR::Dict_t>(*x) && ASR::is_a<ASR::Dict_t>(*y)) {
-        ASR::ttype_t *x_key_type = ASR::down_cast<ASR::Dict_t>(x)->m_key_type;
-        ASR::ttype_t *y_key_type = ASR::down_cast<ASR::Dict_t>(y)->m_key_type;
-        ASR::ttype_t *x_value_type = ASR::down_cast<ASR::Dict_t>(x)->m_value_type;
-        ASR::ttype_t *y_value_type = ASR::down_cast<ASR::Dict_t>(y)->m_value_type;
-        return (check_equal_type(x_key_type, y_key_type) &&
-                check_equal_type(x_value_type, y_value_type));
-    } else if (ASR::is_a<ASR::Tuple_t>(*x) && ASR::is_a<ASR::Tuple_t>(*y)) {
-        ASR::Tuple_t *a = ASR::down_cast<ASR::Tuple_t>(x);
-        ASR::Tuple_t *b = ASR::down_cast<ASR::Tuple_t>(y);
-        if(a->n_type != b->n_type) {
-            return false;
-        }
-        bool result = true;
-        for (size_t i=0; i<a->n_type; i++) {
-            result = result && check_equal_type(a->m_type[i], b->m_type[i]);
-            if (!result) {
-                return false;
-            }
-        }
-        return result;
-    } else if (ASR::is_a<ASR::TypeParameter_t>(*x) && ASR::is_a<ASR::TypeParameter_t>(*y)) {
-        ASR::TypeParameter_t* left_tp = ASR::down_cast<ASR::TypeParameter_t>(x);
-        ASR::TypeParameter_t* right_tp = ASR::down_cast<ASR::TypeParameter_t>(y);
-        std::string left_param = left_tp->m_param;
-        std::string right_param = right_tp->m_param;
-        return left_param.compare(right_param) == 0;
-    }
-
-    int64_t x_kind = ASRUtils::extract_kind_from_ttype_t(x);
-    int64_t y_kind = ASRUtils::extract_kind_from_ttype_t(y);
-
-    if( x->type == y->type &&
-        x_kind == y_kind ) {
-        return true;
-    }
-
-    return false;
-}
-
-int select_generic_procedure(const Vec<ASR::call_arg_t> &args,
-        const ASR::GenericProcedure_t &p, Location loc,
-        const std::function<void (const std::string &, const Location &)> err,
-        bool raise_error=true);
-
-ASR::asr_t* symbol_resolve_external_generic_procedure_without_eval(
-            const Location &loc,
-            ASR::symbol_t *v, Vec<ASR::call_arg_t>& args,
-            SymbolTable* current_scope, Allocator& al,
-            const std::function<void (const std::string &, const Location &)> err);
-
-static inline bool is_dimension_empty(ASR::dimension_t& dim) {
-    return ((dim.m_length == nullptr) ||
-            (dim.m_start == nullptr));
-}
-
-static inline bool is_dimension_empty(ASR::dimension_t* dims, size_t n) {
-    for( size_t i = 0; i < n; i++ ) {
-        if( is_dimension_empty(dims[i]) ) {
-            return true;
-        }
-    }
-    return false;
-}
-
-static inline ASR::ttype_t* get_type_parameter(ASR::ttype_t* t) {
-    switch (t->type) {
-        case ASR::ttypeType::TypeParameter: {
-            return t;
-        }
-        case ASR::ttypeType::List: {
-            ASR::List_t *tl = ASR::down_cast<ASR::List_t>(t);
-            return get_type_parameter(tl->m_type);
-        }
-        default: throw LCompilersException("Cannot get type parameter from this type.");
-    }
-}
-
-class ReplaceArgVisitor: public ASR::BaseExprReplacer<ReplaceArgVisitor> {
-
-    private:
-
-    Allocator& al;
-
-    SymbolTable* current_scope;
-
-    ASR::Function_t* orig_func;
-
-    Vec<ASR::call_arg_t>& orig_args;
-
-    std::set<std::string>& current_function_dependencies;
-
-    public:
-
-    ReplaceArgVisitor(Allocator& al_, SymbolTable* current_scope_,
-                      ASR::Function_t* orig_func_, Vec<ASR::call_arg_t>& orig_args_,
-                      std::set<std::string>& current_function_dependencies_) :
-        al(al_), current_scope(current_scope_), orig_func(orig_func_),
-        orig_args(orig_args_), current_function_dependencies(current_function_dependencies_)
-    {}
-
-    void replace_FunctionCall(ASR::FunctionCall_t* x) {
-        ASR::symbol_t *new_es = x->m_name;
-        // Import a function as external only if necessary
-        ASR::Function_t *f = nullptr;
-        ASR::symbol_t* f_sym = nullptr;
-        if (ASR::is_a<ASR::Function_t>(*x->m_name)) {
-            f = ASR::down_cast<ASR::Function_t>(x->m_name);
-        } else if( ASR::is_a<ASR::ExternalSymbol_t>(*x->m_name) ) {
-            f_sym = ASRUtils::symbol_get_past_external(x->m_name);
-            if( ASR::is_a<ASR::Function_t>(*f_sym) ) {
-                f = ASR::down_cast<ASR::Function_t>(f_sym);
-            }
-        }
-        ASR::Module_t *m = ASR::down_cast2<ASR::Module_t>(f->m_symtab->parent->asr_owner);
-        char *modname = m->m_name;
-        ASR::symbol_t *maybe_f = current_scope->resolve_symbol(std::string(f->m_name));
-        ASR::symbol_t* maybe_f_actual = nullptr;
-        std::string maybe_modname = "";
-        if( maybe_f && ASR::is_a<ASR::ExternalSymbol_t>(*maybe_f) ) {
-            maybe_modname = ASR::down_cast<ASR::ExternalSymbol_t>(maybe_f)->m_module_name;
-            maybe_f_actual = ASRUtils::symbol_get_past_external(maybe_f);
-        }
-        // If the Function to be imported is already present
-        // then do not import.
-        if( maybe_modname == std::string(modname) &&
-            f_sym == maybe_f_actual ) {
-            new_es = maybe_f;
-        } else {
-            // Import while assigning a new name to avoid conflicts
-            // For example, if someone is using `len` from a user
-            // define module then `get_unique_name` will avoid conflict
-            std::string unique_name = current_scope->get_unique_name(f->m_name);
-            Str s; s.from_str_view(unique_name);
-            char *unique_name_c = s.c_str(al);
-            LCOMPILERS_ASSERT(current_scope->get_symbol(unique_name) == nullptr);
-            new_es = ASR::down_cast<ASR::symbol_t>(ASR::make_ExternalSymbol_t(
-                al, f->base.base.loc,
-                /* a_symtab */ current_scope,
-                /* a_name */ unique_name_c,
-                (ASR::symbol_t*)f,
-                modname, nullptr, 0,
-                f->m_name,
-                ASR::accessType::Private
-                ));
-            current_scope->add_symbol(unique_name, new_es);
-        }
-        // The following substitutes args from the current scope
-        for (size_t i = 0; i < x->n_args; i++) {
-            ASR::expr_t** current_expr_copy_ = current_expr;
-            current_expr = &(x->m_args[i].m_value);
-            replace_expr(x->m_args[i].m_value);
-            current_expr = current_expr_copy_;
-        }
-        current_function_dependencies.insert(std::string(ASRUtils::symbol_name(new_es)));
-        x->m_name = new_es;
-    }
-
-    void replace_Var(ASR::Var_t* x) {
-        size_t arg_idx = 0;
-        bool idx_found = false;
-        std::string arg_name = ASRUtils::symbol_name(x->m_v);
-        // Finds the index of the argument to be used for substitution
-        // Basically if we are calling maybe(string, ret_type=character(len=len(s)))
-        // where string is a variable in current scope and s is one of the arguments
-        // accepted by maybe i.e., maybe has a signature maybe(s). Then, we will
-        // replace s with string. So, the call would become,
-        // maybe(string, ret_type=character(len=len(string)))
-        for( size_t j = 0; j < orig_func->n_args && !idx_found; j++ ) {
-            if( ASR::is_a<ASR::Var_t>(*(orig_func->m_args[j])) ) {
-                std::string arg_name_2 = std::string(ASRUtils::symbol_name(
-                    ASR::down_cast<ASR::Var_t>(orig_func->m_args[j])->m_v));
-                arg_idx = j;
-                idx_found = arg_name_2 == arg_name;
-            }
-        }
-        if( idx_found ) {
-            LCOMPILERS_ASSERT(current_expr);
-            *current_expr = orig_args[arg_idx].m_value;
-        }
-    }
-
-};
-
-class ExprStmtDuplicator: public ASR::BaseExprStmtDuplicator<ExprStmtDuplicator>
-{
-    public:
-
-    ExprStmtDuplicator(Allocator &al): BaseExprStmtDuplicator(al) {}
-
-};
-
-class ReplaceReturnWithGotoVisitor: public ASR::BaseStmtReplacer<ReplaceReturnWithGotoVisitor> {
-
-    private:
-
-    Allocator& al;
-
-    uint64_t goto_label;
-
-    public:
-
-    ReplaceReturnWithGotoVisitor(Allocator& al_, uint64_t goto_label_) :
-        al(al_), goto_label(goto_label_)
-    {}
-
-    void set_goto_label(uint64_t label) {
-        goto_label = label;
-    }
-
-    void replace_Return(ASR::Return_t* x) {
-        *current_stmt = ASRUtils::STMT(ASR::make_GoTo_t(al, x->base.base.loc, goto_label,
-                            s2c(al, "__" + std::to_string(goto_label))));
-        has_replacement_happened = true;
-    }
-
-};
-
-// Singleton LabelGenerator so that it generates
-// unique labels for different statements, from
-// wherever it is called (be it ASR passes, be it
-// AST to ASR transition, etc).
-class LabelGenerator {
-    private:
-
-        static LabelGenerator *label_generator;
-        uint64_t unique_label;
-        std::map<ASR::asr_t*, uint64_t> node2label;
-
-        // Private constructor so that more than
-        // one object cannot be created by calling the
-        // constructor.
-        LabelGenerator() {
-            unique_label = 0;
-        }
-
-    public:
-
-        static LabelGenerator *get_instance() {
-            if (!label_generator) {
-                label_generator = new LabelGenerator;
-            }
-            return label_generator;
-        }
-
-        int get_unique_label() {
-            unique_label += 1;
-            return unique_label;
-        }
-
-        void add_node_with_unique_label(ASR::asr_t* node, uint64_t label) {
-            LCOMPILERS_ASSERT( node2label.find(node) == node2label.end() );
-            node2label[node] = label;
-        }
-
-        bool verify(ASR::asr_t* node) {
-            return node2label.find(node) != node2label.end();
-        }
-};
-
-ASR::asr_t* make_Cast_t_value(Allocator &al, const Location &a_loc,
-        ASR::expr_t* a_arg, ASR::cast_kindType a_kind, ASR::ttype_t* a_type);
-
-static inline ASR::expr_t* compute_length_from_start_end(Allocator& al, ASR::expr_t* start, ASR::expr_t* end) {
-    ASR::expr_t* start_value = ASRUtils::expr_value(start);
-    ASR::expr_t* end_value = ASRUtils::expr_value(end);
-
-    // If both start and end have compile time values
-    // then length can be computed easily by extracting
-    // compile time values of end and start.
-    if( start_value && end_value ) {
-        int64_t start_int = -1, end_int = -1;
-        ASRUtils::extract_value(start_value, start_int);
-        ASRUtils::extract_value(end_value, end_int);
-        return ASRUtils::EXPR(ASR::make_IntegerConstant_t(al, start->base.loc,
-                              end_int - start_int + 1,
-                              ASRUtils::expr_type(start)));
-    }
-
-    // If start has a compile time value and
-    // end is a variable then length can be
-    // simplified by computing 1 - start as a constant
-    // and then analysing the end expression.
-    if( start_value && !end_value ) {
-        int64_t start_int = -1;
-        ASRUtils::extract_value(start_value, start_int);
-        int64_t remaining_portion = 1 - start_int;
-
-        // If 1 - start is 0 then length is clearly the
-        // end expression.
-        if( remaining_portion == 0 ) {
-            return end;
-        }
-
-        // If end is a binary expression of Add, Sub
-        // type.
-        if( ASR::is_a<ASR::IntegerBinOp_t>(*end) ) {
-            ASR::IntegerBinOp_t* end_binop = ASR::down_cast<ASR::IntegerBinOp_t>(end);
-            if( end_binop->m_op == ASR::binopType::Add ||
-                end_binop->m_op == ASR::binopType::Sub) {
-                ASR::expr_t* end_left = end_binop->m_left;
-                ASR::expr_t* end_right = end_binop->m_right;
-                ASR::expr_t* end_leftv = ASRUtils::expr_value(end_left);
-                ASR::expr_t* end_rightv = ASRUtils::expr_value(end_right);
-                if( end_leftv ) {
-                    // If left part of end is a compile time constant
-                    // then it can be merged with 1 - start.
-                    int64_t el_int = -1;
-                    ASRUtils::extract_value(end_leftv, el_int);
-                    remaining_portion += el_int;
-
-                    // If 1 - start + end_left is 0
-                    // and end is an addition operation
-                    // then clearly end_right is the length.
-                    if( remaining_portion == 0 &&
-                        end_binop->m_op == ASR::binopType::Add ) {
-                        return end_right;
-                    }
-
-                    // In all other cases the length would be (1 - start + end_left) endop end_right
-                    // endop is the operation of end expression and 1 - start + end_left is a constant.
-                    ASR::expr_t* remaining_expr = ASRUtils::EXPR(ASR::make_IntegerConstant_t(al,
-                                                    end->base.loc, remaining_portion,
-                                                    ASRUtils::expr_type(end)));
-                    return ASRUtils::EXPR(ASR::make_IntegerBinOp_t(al, end->base.loc, remaining_expr,
-                                end_binop->m_op, end_right, end_binop->m_type, end_binop->m_value));
-                } else if( end_rightv ) {
-                    // If right part of end is a compile time constant
-                    // then it can be merged with 1 - start. The sign
-                    // of end_right depends on the operation in
-                    // end expression.
-                    int64_t er_int = -1;
-                    ASRUtils::extract_value(end_rightv, er_int);
-                    if( end_binop->m_op == ASR::binopType::Sub ) {
-                        er_int = -er_int;
-                    }
-                    remaining_portion += er_int;
-
-                    // If (1 - start endop end_right) is 0
-                    // then clearly end_left is the length expression.
-                    if( remaining_portion == 0 ) {
-                        return end_left;
-                    }
-
-                    // Otherwise, length is end_left Add (1 - start endop end_right)
-                    // where endop is the operation in end expression and
-                    // (1 - start endop end_right) is a compile time constant.
-                    ASR::expr_t* remaining_expr = ASRUtils::EXPR(ASR::make_IntegerConstant_t(al,
-                                                    end->base.loc, remaining_portion,
-                                                    ASRUtils::expr_type(end)));
-                    return ASRUtils::EXPR(ASR::make_IntegerBinOp_t(al, end->base.loc, end_left,
-                                ASR::binopType::Add, remaining_expr, end_binop->m_type, end_binop->m_value));
-                }
-            }
-        }
-
-        // If start is a variable and end is a compile time constant
-        // then compute (end + 1) as a constant and then return
-        // (end + 1) - start as the length expression.
-        if( !start_value && end_value ) {
-            int64_t end_int = -1;
-            ASRUtils::extract_value(end_value, end_int);
-            int64_t remaining_portion = end_int + 1;
-            ASR::expr_t* remaining_expr = ASRUtils::EXPR(ASR::make_IntegerConstant_t(al,
-                                                end->base.loc, remaining_portion,
-                                                ASRUtils::expr_type(end)));
-            return ASRUtils::EXPR(ASR::make_IntegerBinOp_t(al, end->base.loc, remaining_expr,
-                        ASR::binopType::Sub, start, ASRUtils::expr_type(end), nullptr));
-        }
-
-        // For all the other cases
-        ASR::expr_t* remaining_expr = ASRUtils::EXPR(ASR::make_IntegerConstant_t(al,
-                                                end->base.loc, remaining_portion,
-                                                ASRUtils::expr_type(end)));
-        return ASRUtils::EXPR(ASR::make_IntegerBinOp_t(al, end->base.loc, end,
-                    ASR::binopType::Add, remaining_expr, ASRUtils::expr_type(end),
-                    nullptr));
-    }
-
-    ASR::expr_t* diff = ASRUtils::EXPR(ASR::make_IntegerBinOp_t(al, end->base.loc, end,
-                                       ASR::binopType::Sub, start, ASRUtils::expr_type(end),
-                                       nullptr));
-    ASR::expr_t *constant_one = ASR::down_cast<ASR::expr_t>(ASR::make_IntegerConstant_t(
-                                            al, diff->base.loc, 1, ASRUtils::expr_type(diff)));
-    return ASRUtils::EXPR(ASR::make_IntegerBinOp_t(al, end->base.loc, diff,
-                          ASR::binopType::Add, constant_one, ASRUtils::expr_type(end),
-                          nullptr));
-}
-
-static inline bool is_pass_array_by_data_possible(ASR::Function_t* x, std::vector<size_t>& v) {
-    ASR::ttype_t* typei = nullptr;
-    ASR::dimension_t* dims = nullptr;
-    for( size_t i = 0; i < x->n_args; i++ ) {
-        if( !ASR::is_a<ASR::Var_t>(*x->m_args[i]) ) {
-            continue;
-        }
-        ASR::Var_t* arg_Var = ASR::down_cast<ASR::Var_t>(x->m_args[i]);
-        if( !ASR::is_a<ASR::Variable_t>(*arg_Var->m_v) ) {
-            continue;
-        }
-        typei = ASRUtils::expr_type(x->m_args[i]);
-        int n_dims = ASRUtils::extract_dimensions_from_ttype(typei, dims);
-        ASR::Variable_t* argi = ASRUtils::EXPR2VAR(x->m_args[i]);
-        if( ASRUtils::is_dimension_empty(dims, n_dims) &&
-            (argi->m_intent == ASRUtils::intent_in ||
-             argi->m_intent == ASRUtils::intent_out) &&
-            argi->m_storage != ASR::storage_typeType::Allocatable) {
-            v.push_back(i);
-        }
-    }
-    return v.size() > 0;
-}
-
-inline ASR::asr_t* make_Function_t_util(Allocator& al, const Location& loc,
-    SymbolTable* m_symtab, char* m_name, char** m_dependencies, size_t n_dependencies,
-    ASR::expr_t** a_args, size_t n_args, ASR::stmt_t** m_body, size_t n_body,
-    ASR::expr_t* m_return_var, ASR::abiType m_abi, ASR::accessType m_access,
-    ASR::deftypeType m_deftype, char* m_bindc_name, bool m_elemental, bool m_pure,
-    bool m_module, bool m_inline, bool m_static, ASR::ttype_t** m_type_params,
-    size_t n_type_params, ASR::symbol_t** m_restrictions, size_t n_restrictions,
-    bool m_is_restriction, bool m_deterministic, bool m_side_effect_free) {
-    Vec<ASR::ttype_t*> arg_types;
-    arg_types.reserve(al, n_args);
-    for( size_t i = 0; i < n_args; i++ ) {
-        arg_types.push_back(al, ASRUtils::expr_type(a_args[i]));
-    }
-    ASR::ttype_t* return_var_type = nullptr;
-    if( m_return_var ) {
-        return_var_type = ASRUtils::expr_type(m_return_var);
-    }
-    ASR::ttype_t* func_type = ASRUtils::TYPE(ASR::make_FunctionType_t(
-        al, loc, arg_types.p, arg_types.size(), return_var_type, m_abi,
-        m_deftype, m_bindc_name, m_elemental, m_pure, m_module, m_inline,
-        m_static, m_type_params, n_type_params, m_restrictions, n_restrictions,
-        m_is_restriction));
-    return ASR::make_Function_t(
-        al, loc, m_symtab, m_name, func_type, m_dependencies, n_dependencies,
-        a_args, n_args, m_body, n_body, m_return_var, m_access, m_deterministic,
-        m_side_effect_free);
-}
-
-static inline ASR::expr_t* get_bound(ASR::expr_t* arr_expr, int dim,
-                                     std::string bound, Allocator& al) {
-    ASR::ttype_t* int32_type = ASRUtils::TYPE(ASR::make_Integer_t(al, arr_expr->base.loc,
-                                                                  4, nullptr, 0));
-    ASR::expr_t* dim_expr = ASRUtils::EXPR(ASR::make_IntegerConstant_t(al, arr_expr->base.loc,
-                                                                       dim, int32_type));
-    ASR::arrayboundType bound_type = ASR::arrayboundType::LBound;
-    if( bound == "ubound" ) {
-        bound_type = ASR::arrayboundType::UBound;
-    }
-    return ASRUtils::EXPR(ASR::make_ArrayBound_t(al, arr_expr->base.loc, arr_expr, dim_expr,
-                int32_type, bound_type, nullptr));
-}
-
-static inline ASR::expr_t* get_size(ASR::expr_t* arr_expr, int dim,
-                                    Allocator& al) {
-    ASR::ttype_t* int32_type = ASRUtils::TYPE(ASR::make_Integer_t(al, arr_expr->base.loc, 4, nullptr, 0));
-    ASR::expr_t* dim_expr = ASRUtils::EXPR(ASR::make_IntegerConstant_t(al, arr_expr->base.loc, dim, int32_type));
-    return ASRUtils::EXPR(ASR::make_ArraySize_t(al, arr_expr->base.loc, arr_expr, dim_expr,
-                                                int32_type, nullptr));
-}
-
-static inline void get_dimensions(ASR::expr_t* array, Vec<ASR::expr_t*>& dims,
-                                  Allocator& al) {
-    ASR::ttype_t* array_type = ASRUtils::expr_type(array);
-    ASR::dimension_t* compile_time_dims = nullptr;
-    int n_dims = extract_dimensions_from_ttype(array_type, compile_time_dims);
-    for( int i = 0; i < n_dims; i++ ) {
-        ASR::expr_t* start = compile_time_dims[i].m_start;
-        if( start == nullptr ) {
-            start = get_bound(array, i + 1, "lbound", al);
-        }
-        ASR::expr_t* length = compile_time_dims[i].m_length;
-        if( length == nullptr ) {
-            length = get_size(array, i + 1, al);
-        }
-        dims.push_back(al, start);
-        dims.push_back(al, length);
-    }
-}
-
-static inline ASR::EnumType_t* get_EnumType_from_symbol(ASR::symbol_t* s) {
-    ASR::Variable_t* s_var = ASR::down_cast<ASR::Variable_t>(s);
-    if( ASR::is_a<ASR::Enum_t>(*s_var->m_type) ) {
-        ASR::Enum_t* enum_ = ASR::down_cast<ASR::Enum_t>(s_var->m_type);
-        return ASR::down_cast<ASR::EnumType_t>(enum_->m_enum_type);
-    }
-    ASR::symbol_t* enum_type_cand = ASR::down_cast<ASR::symbol_t>(s_var->m_parent_symtab->asr_owner);
-    LCOMPILERS_ASSERT(ASR::is_a<ASR::EnumType_t>(*enum_type_cand));
-    return ASR::down_cast<ASR::EnumType_t>(enum_type_cand);
-}
-
-class CollectIdentifiersFromASRExpression: public ASR::BaseWalkVisitor<CollectIdentifiersFromASRExpression> {
-    private:
-
-        Allocator& al;
-        Vec<char*>& identifiers;
-
-    public:
-
-        CollectIdentifiersFromASRExpression(Allocator& al_, Vec<char*>& identifiers_) :
-        al(al_), identifiers(identifiers_)
-        {}
-
-        void visit_Var(const ASR::Var_t& x) {
-            identifiers.push_back(al, ASRUtils::symbol_name(x.m_v));
-        }
-};
-
-static inline void collect_variable_dependencies(Allocator& al, Vec<char*>& deps_vec,
-    ASR::ttype_t* type=nullptr, ASR::expr_t* init_expr=nullptr,
-    ASR::expr_t* value=nullptr) {
-    ASRUtils::CollectIdentifiersFromASRExpression collector(al, deps_vec);
-    if( init_expr ) {
-        collector.visit_expr(*init_expr);
-    }
-    if( value ) {
-        collector.visit_expr(*value);
-    }
-    if( type ) {
-        collector.visit_ttype(*type);
-    }
-}
-
-} // namespace ASRUtils
-
-} // namespace LCompilers
-
-#endif // LFORTRAN_ASR_UTILS_H
diff --git a/src/libasr/asr_verify.cpp b/src/libasr/asr_verify.cpp
deleted file mode 100644
index c79f061584..0000000000
--- a/src/libasr/asr_verify.cpp
+++ /dev/null
@@ -1,803 +0,0 @@
-#include <libasr/containers.h>
-#include <libasr/exception.h>
-#include <libasr/asr_utils.h>
-#include <libasr/asr_verify.h>
-#include <libasr/utils.h>
-
-namespace {
-    class VerifyAbort
-    {
-    };
-}
-
-namespace LCompilers {
-namespace ASR {
-
-using ASRUtils::symbol_name;
-using ASRUtils::symbol_parent_symtab;
-
-bool valid_char(char c) {
-    if (c >= 'a' && c <= 'z') return true;
-    if (c >= 'A' && c <= 'Z') return true;
-    if (c >= '0' && c <= '9') return true;
-    if (c == '_') return true;
-    return false;
-}
-
-bool valid_name(const char *s) {
-    if (s == nullptr) return false;
-    std::string name = s;
-    if (name.size() == 0) return false;
-    for (size_t i=0; i<name.size(); i++) {
-        if (!valid_char(s[i])) return false;
-    }
-    return true;
-}
-
-class VerifyVisitor : public BaseWalkVisitor<VerifyVisitor>
-{
-private:
-    // For checking correct parent symbtab relationship
-    SymbolTable *current_symtab;
-    bool check_external;
-    diag::Diagnostics &diagnostics;
-
-    // For checking that all symtabs have a unique ID.
-    // We first walk all symtabs, and then we check that everything else
-    // points to them (i.e., that nothing points to some symbol table that
-    // is not part of this ASR).
-    std::map<uint64_t,SymbolTable*> id_symtab_map;
-    std::vector<std::string> function_dependencies;
-    std::vector<std::string> module_dependencies;
-    std::vector<std::string> variable_dependencies;
-
-    std::set<std::pair<uint64_t, std::string>> const_assigned;
-
-public:
-    VerifyVisitor(bool check_external, diag::Diagnostics &diagnostics) : check_external{check_external},
-        diagnostics{diagnostics} {}
-
-    // Requires the condition `cond` to be true. Raise an exception otherwise.
-#define require(cond, error_msg) require_impl((cond), (error_msg), x.base.base.loc)
-    void require_impl(bool cond, const std::string &error_msg, const Location &loc) {
-        if (!cond) {
-            diagnostics.message_label("ASR verify: " + error_msg,
-                {loc}, "failed here",
-                diag::Level::Error, diag::Stage::ASRVerify);
-            throw VerifyAbort();
-        }
-    }
-
-    // Returns true if the `symtab_ID` (sym->symtab->parent) is the current
-    // symbol table `symtab` or any of its parents *and* if the symbol in the
-    // symbol table is equal to `sym`. It returns false otherwise, such as in the
-    // case when the symtab is in a different module or if the `sym`'s symbol table
-    // does not actually contain it.
-    bool symtab_in_scope(const SymbolTable *symtab, const ASR::symbol_t *sym) {
-        unsigned int symtab_ID = symbol_parent_symtab(sym)->counter;
-        char *sym_name = symbol_name(sym);
-        const SymbolTable *s = symtab;
-        while (s != nullptr) {
-            if (s->counter == symtab_ID) {
-                ASR::symbol_t *sym2 = s->get_symbol(sym_name);
-                if (sym2) {
-                    if (sym2 == sym) {
-                        // The symbol table was found and the symbol `sym` is in
-                        // it
-                        return true;
-                    } else {
-                        // The symbol table was found and the symbol in it
-                        // shares the name, but is not equal to `sym`
-                        return false;
-                    }
-                } else {
-                    // The symbol table was found, but the symbol `sym` is not
-                    // in it
-                    return false;
-                }
-            }
-            s = s->parent;
-        }
-        // The symbol table was not found in the scope of `symtab`.
-        return false;
-    }
-
-    void visit_TranslationUnit(const TranslationUnit_t &x) {
-        current_symtab = x.m_global_scope;
-        require(x.m_global_scope != nullptr,
-            "The TranslationUnit::m_global_scope cannot be nullptr");
-        require(x.m_global_scope->parent == nullptr,
-            "The TranslationUnit::m_global_scope->parent must be nullptr");
-        require(id_symtab_map.find(x.m_global_scope->counter) == id_symtab_map.end(),
-            "TranslationUnit::m_global_scope->counter must be unique");
-        require(x.m_global_scope->asr_owner == (ASR::asr_t*)&x,
-            "The TranslationUnit::m_global_scope::asr_owner must point to itself");
-        require(down_cast2<TranslationUnit_t>(current_symtab->asr_owner)->m_global_scope == current_symtab,
-            "The asr_owner invariant failed");
-        id_symtab_map[x.m_global_scope->counter] = x.m_global_scope;
-        for (auto &a : x.m_global_scope->get_scope()) {
-            this->visit_symbol(*a.second);
-        }
-        for (size_t i=0; i<x.n_items; i++) {
-            asr_t *item = x.m_items[i];
-            require(is_a<stmt_t>(*item) || is_a<expr_t>(*item),
-                "TranslationUnit::m_items must be either stmt or expr");
-            if (is_a<stmt_t>(*item)) {
-                this->visit_stmt(*down_cast<stmt_t>(item));
-            } else {
-                this->visit_expr(*down_cast<expr_t>(item));
-            }
-        }
-        current_symtab = nullptr;
-    }
-
-    // --------------------------------------------------------
-    // symbol instances:
-
-    void visit_Program(const Program_t &x) {
-        SymbolTable *parent_symtab = current_symtab;
-        current_symtab = x.m_symtab;
-        require(x.m_symtab != nullptr,
-            "The Program::m_symtab cannot be nullptr");
-        require(x.m_symtab->parent == parent_symtab,
-            "The Program::m_symtab->parent is not the right parent");
-        require(x.m_symtab->parent->parent == nullptr,
-            "The Program::m_symtab's parent must be TranslationUnit");
-        require(id_symtab_map.find(x.m_symtab->counter) == id_symtab_map.end(),
-            "Program::m_symtab->counter must be unique");
-        require(x.m_symtab->asr_owner == (ASR::asr_t*)&x,
-            "The X::m_symtab::asr_owner must point to X");
-        require(ASRUtils::symbol_symtab(down_cast<symbol_t>(current_symtab->asr_owner)) == current_symtab,
-            "The asr_owner invariant failed");
-        id_symtab_map[x.m_symtab->counter] = x.m_symtab;
-        for (auto &a : x.m_symtab->get_scope()) {
-            this->visit_symbol(*a.second);
-        }
-        for (size_t i=0; i<x.n_body; i++) {
-            visit_stmt(*x.m_body[i]);
-        }
-        current_symtab = parent_symtab;
-    }
-
-    void visit_AssociateBlock(const AssociateBlock_t& x) {
-        SymbolTable *parent_symtab = current_symtab;
-        current_symtab = x.m_symtab;
-        require(x.m_symtab != nullptr,
-            "The AssociateBlock::m_symtab cannot be nullptr");
-        require(x.m_symtab->parent == parent_symtab,
-            "The AssociateBlock::m_symtab->parent is not the right parent");
-        require(id_symtab_map.find(x.m_symtab->counter) == id_symtab_map.end(),
-            "AssociateBlock::m_symtab->counter must be unique");
-        require(x.m_symtab->asr_owner == (ASR::asr_t*)&x,
-            "The X::m_symtab::asr_owner must point to X");
-        require(ASRUtils::symbol_symtab(down_cast<symbol_t>(current_symtab->asr_owner)) == current_symtab,
-            "The asr_owner invariant failed");
-        id_symtab_map[x.m_symtab->counter] = x.m_symtab;
-        for (auto &a : x.m_symtab->get_scope()) {
-            this->visit_symbol(*a.second);
-        }
-        for (size_t i=0; i<x.n_body; i++) {
-            visit_stmt(*x.m_body[i]);
-        }
-        current_symtab = parent_symtab;
-    }
-
-    void visit_Block(const Block_t& x) {
-        SymbolTable *parent_symtab = current_symtab;
-        current_symtab = x.m_symtab;
-        require(x.m_symtab != nullptr,
-            "The AssociateBlock::m_symtab cannot be nullptr");
-        require(x.m_symtab->parent == parent_symtab,
-            "The AssociateBlock::m_symtab->parent is not the right parent");
-        require(id_symtab_map.find(x.m_symtab->counter) == id_symtab_map.end(),
-            "AssociateBlock::m_symtab->counter must be unique");
-        require(x.m_symtab->asr_owner == (ASR::asr_t*)&x,
-            "The X::m_symtab::asr_owner must point to X");
-        require(ASRUtils::symbol_symtab(down_cast<symbol_t>(current_symtab->asr_owner)) == current_symtab,
-            "The asr_owner invariant failed");
-        id_symtab_map[x.m_symtab->counter] = x.m_symtab;
-        for (auto &a : x.m_symtab->get_scope()) {
-            this->visit_symbol(*a.second);
-        }
-        for (size_t i=0; i<x.n_body; i++) {
-            visit_stmt(*x.m_body[i]);
-        }
-        current_symtab = parent_symtab;
-    }
-
-    void visit_BlockCall(const BlockCall_t& x) {
-        require(x.m_m != nullptr, "Block call made to inexisting block");
-        require(symtab_in_scope(current_symtab, x.m_m),
-            "Block " + std::string(ASRUtils::symbol_name(x.m_m)) +
-            " should resolve in current scope.");
-    }
-
-    void visit_Module(const Module_t &x) {
-        module_dependencies.clear();
-        module_dependencies.reserve(x.n_dependencies);
-        SymbolTable *parent_symtab = current_symtab;
-        current_symtab = x.m_symtab;
-        require(x.m_symtab != nullptr,
-            "The Module::m_symtab cannot be nullptr");
-        require(x.m_symtab->parent == parent_symtab,
-            "The Module::m_symtab->parent is not the right parent");
-        require(x.m_symtab->parent->parent == nullptr,
-            "The Module::m_symtab's parent must be TranslationUnit");
-        require(id_symtab_map.find(x.m_symtab->counter) == id_symtab_map.end(),
-            "Module::m_symtab->counter must be unique");
-        require(x.m_symtab->asr_owner == (ASR::asr_t*)&x,
-            "The X::m_symtab::asr_owner must point to X");
-        require(ASRUtils::symbol_symtab(down_cast<symbol_t>(current_symtab->asr_owner)) == current_symtab,
-            "The asr_owner invariant failed");
-        id_symtab_map[x.m_symtab->counter] = x.m_symtab;
-        for (auto &a : x.m_symtab->get_scope()) {
-            this->visit_symbol(*a.second);
-        }
-        for (size_t i=0; i < x.n_dependencies; i++) {
-            require(x.m_dependencies[i] != nullptr,
-                "A module dependency must not be a nullptr");
-            require(std::string(x.m_dependencies[i]) != "",
-                "A module dependency must not be an empty string");
-            require(valid_name(x.m_dependencies[i]),
-                "A module dependency must be a valid string");
-        }
-        for( auto& dep: module_dependencies ) {
-            if( dep != x.m_name ) {
-                require(present(x.m_dependencies, x.n_dependencies, dep),
-                        "Module " + std::string(x.m_name) +
-                        " dependencies must contain " + dep +
-                        " because a function present in it is getting called in "
-                        + std::string(x.m_name) + ".");
-            }
-        }
-        current_symtab = parent_symtab;
-    }
-
-    void visit_Assignment(const Assignment_t& x) {
-        ASR::expr_t* target = x.m_target;
-        if( ASR::is_a<ASR::Var_t>(*target) ) {
-            ASR::Var_t* target_Var = ASR::down_cast<ASR::Var_t>(target);
-            ASR::ttype_t* target_type = nullptr;
-            if( ASR::is_a<ASR::Variable_t>(*target_Var->m_v) ||
-                ASR::is_a<ASR::ExternalSymbol_t>(*target_Var->m_v)) {
-                target_type = ASRUtils::expr_type(target);
-            }
-            if( target_type && ASR::is_a<ASR::Const_t>(*target_type) ) {
-                std::string variable_name = ASRUtils::symbol_name(target_Var->m_v);
-                require(const_assigned.find(std::make_pair(current_symtab->counter,
-                    variable_name)) == const_assigned.end(),
-                    "Assignment target with " + ASRUtils::type_to_str_python(target_type)
-                    + " cannot be re-assigned.");
-                const_assigned.insert(std::make_pair(current_symtab->counter, variable_name));
-            }
-        }
-        BaseWalkVisitor<VerifyVisitor>::visit_Assignment(x);
-    }
-
-    void visit_ClassProcedure(const ClassProcedure_t &x) {
-        require(x.m_name != nullptr,
-            "The ClassProcedure::m_name cannot be nullptr");
-        require(x.m_proc != nullptr,
-            "The ClassProcedure::m_proc cannot be nullptr");
-        require(x.m_proc_name != nullptr,
-            "The ClassProcedure::m_proc_name cannot be nullptr");
-
-        SymbolTable *symtab = x.m_parent_symtab;
-        require(symtab != nullptr,
-            "ClassProcedure::m_parent_symtab cannot be nullptr");
-        require(symtab->get_symbol(std::string(x.m_name)) != nullptr,
-            "ClassProcedure '" + std::string(x.m_name) + "' not found in parent_symtab symbol table");
-        symbol_t *symtab_sym = symtab->get_symbol(std::string(x.m_name));
-        const symbol_t *current_sym = &x.base;
-        require(symtab_sym == current_sym,
-            "ClassProcedure's parent symbol table does not point to it");
-        require(id_symtab_map.find(symtab->counter) != id_symtab_map.end(),
-            "ClassProcedure::m_parent_symtab must be present in the ASR ("
-                + std::string(x.m_name) + ")");
-
-        ASR::Function_t* x_m_proc = ASR::down_cast<ASR::Function_t>(x.m_proc);
-        if( x.m_self_argument ) {
-            bool arg_found = false;
-            std::string self_arg_name = std::string(x.m_self_argument);
-            for( size_t i = 0; i < x_m_proc->n_args; i++ ) {
-                std::string arg_name = std::string(ASRUtils::symbol_name(
-                    ASR::down_cast<ASR::Var_t>(x_m_proc->m_args[i])->m_v));
-                if( self_arg_name == arg_name ) {
-                    arg_found = true;
-                    break ;
-                }
-            }
-            require(arg_found, self_arg_name + " must be present in " +
-                    std::string(x.m_name) + " procedures.");
-        }
-    }
-
-    void visit_Function(const Function_t &x) {
-        function_dependencies.clear();
-        function_dependencies.reserve(x.n_dependencies);
-        SymbolTable *parent_symtab = current_symtab;
-        current_symtab = x.m_symtab;
-        require(x.m_symtab != nullptr,
-            "The Function::m_symtab cannot be nullptr");
-        require(x.m_symtab->parent == parent_symtab,
-            "The Function::m_symtab->parent is not the right parent");
-        require(x.m_symtab->asr_owner == (ASR::asr_t*)&x,
-            "The X::m_symtab::asr_owner must point to X");
-        require(id_symtab_map.find(x.m_symtab->counter) == id_symtab_map.end(),
-            "Function::m_symtab->counter must be unique");
-        require(ASRUtils::symbol_symtab(down_cast<symbol_t>(current_symtab->asr_owner)) == current_symtab,
-            "The asr_owner invariant failed");
-        id_symtab_map[x.m_symtab->counter] = x.m_symtab;
-        for (auto &a : x.m_symtab->get_scope()) {
-            this->visit_symbol(*a.second);
-        }
-        for (size_t i=0; i<x.n_args; i++) {
-            visit_expr(*x.m_args[i]);
-        }
-        for (size_t i=0; i<x.n_body; i++) {
-            visit_stmt(*x.m_body[i]);
-        }
-        if (x.m_return_var) {
-            visit_expr(*x.m_return_var);
-        }
-        // Check if there are unnecessary dependencies
-        // present in the dependency list of the function
-        for( size_t i = 0; i < x.n_dependencies; i++ ) {
-            std::string found_dep = x.m_dependencies[i];
-            require(std::find(function_dependencies.begin(), function_dependencies.end(), found_dep) != function_dependencies.end(),
-                    "Function " + std::string(x.m_name) + " doesn't depend on " + found_dep +
-                    " but is found in its dependency list.");
-        }
-
-        // Check if all the dependencies found are
-        // present in the dependency list of the function
-        for( auto& found_dep: function_dependencies ) {
-            require(present(x.m_dependencies, x.n_dependencies, found_dep),
-                    "Function " + std::string(x.m_name) + " depends on " + found_dep +
-                    " but isn't found in its dependency list.");
-        }
-        current_symtab = parent_symtab;
-    }
-
-    template <typename T>
-    void visit_StructTypeEnumTypeUnionType(const T &x) {
-        SymbolTable *parent_symtab = current_symtab;
-        current_symtab = x.m_symtab;
-        require(x.m_symtab != nullptr,
-            "The StructType::m_symtab cannot be nullptr");
-        require(x.m_symtab->parent == parent_symtab,
-            "The StructType::m_symtab->parent is not the right parent");
-        require(x.m_symtab->asr_owner == (ASR::asr_t*)&x,
-            "The X::m_symtab::asr_owner must point to X");
-        require(id_symtab_map.find(x.m_symtab->counter) == id_symtab_map.end(),
-            "StructType::m_symtab->counter must be unique");
-        require(ASRUtils::symbol_symtab(down_cast<symbol_t>(current_symtab->asr_owner)) == current_symtab,
-            "The asr_owner invariant failed");
-        id_symtab_map[x.m_symtab->counter] = x.m_symtab;
-        std::vector<std::string> struct_dependencies;
-        for (auto &a : x.m_symtab->get_scope()) {
-            this->visit_symbol(*a.second);
-            if( ASR::is_a<ASR::ClassProcedure_t>(*a.second) ||
-                ASR::is_a<ASR::GenericProcedure_t>(*a.second) ||
-                ASR::is_a<ASR::StructType_t>(*a.second) ||
-                ASR::is_a<ASR::UnionType_t>(*a.second) ||
-                ASR::is_a<ASR::CustomOperator_t>(*a.second) ) {
-                continue ;
-            }
-            ASR::ttype_t* var_type = ASRUtils::type_get_past_pointer(ASRUtils::symbol_type(a.second));
-            char* aggregate_type_name = nullptr;
-            ASR::symbol_t* sym = nullptr;
-            if( ASR::is_a<ASR::Struct_t>(*var_type) ) {
-                sym = ASR::down_cast<ASR::Struct_t>(var_type)->m_derived_type;
-                aggregate_type_name = ASRUtils::symbol_name(sym);
-            } else if( ASR::is_a<ASR::Enum_t>(*var_type) ) {
-                sym = ASR::down_cast<ASR::Enum_t>(var_type)->m_enum_type;
-                aggregate_type_name = ASRUtils::symbol_name(sym);
-            } else if( ASR::is_a<ASR::Union_t>(*var_type) ) {
-                sym = ASR::down_cast<ASR::Union_t>(var_type)->m_union_type;
-                aggregate_type_name = ASRUtils::symbol_name(sym);
-            }
-            if( aggregate_type_name && ASRUtils::symbol_parent_symtab(sym) != current_symtab ) {
-                struct_dependencies.push_back(std::string(aggregate_type_name));
-                require(present(x.m_dependencies, x.n_dependencies, std::string(aggregate_type_name)),
-                    std::string(x.m_name) + " depends on " + std::string(aggregate_type_name)
-                    + " but it isn't found in its dependency list.");
-            }
-        }
-        for( size_t i = 0; i < x.n_dependencies; i++ ) {
-            require(std::find(struct_dependencies.begin(), struct_dependencies.end(),
-                    std::string(x.m_dependencies[i])) != struct_dependencies.end(),
-                std::string(x.m_dependencies[i]) + " is not a dependency of " + std::string(x.m_name)
-                + " but it is present in its dependency list.");
-        }
-        current_symtab = parent_symtab;
-    }
-
-    void visit_StructType(const StructType_t& x) {
-        visit_StructTypeEnumTypeUnionType(x);
-        if( !x.m_alignment ) {
-            return ;
-        }
-        ASR::expr_t* aligned_expr_value = ASRUtils::expr_value(x.m_alignment);
-        std::string msg = "Alignment should always evaluate to a constant expressions.";
-        require(aligned_expr_value, msg);
-        int64_t alignment_int;
-        require(ASRUtils::extract_value(aligned_expr_value, alignment_int), msg);
-        require(alignment_int != 0 && (alignment_int & (alignment_int - 1)) == 0,
-                "Alignment " + std::to_string(alignment_int) +
-                " is not a positive power of 2.");
-    }
-
-    void visit_EnumType(const EnumType_t& x) {
-        visit_StructTypeEnumTypeUnionType(x);
-        require(x.m_type != nullptr,
-            "The common type of Enum cannot be nullptr. " +
-            std::string(x.m_name) + " doesn't seem to follow this rule.");
-        ASR::ttype_t* common_type = x.m_type;
-        std::map<int64_t, int64_t> value2count;
-        for( auto itr: x.m_symtab->get_scope() ) {
-            ASR::Variable_t* itr_var = ASR::down_cast<ASR::Variable_t>(itr.second);
-            require(itr_var->m_symbolic_value != nullptr,
-                "All members of Enum must have their values to be set. " +
-                std::string(itr_var->m_name) + " doesn't seem to follow this rule in "
-                + std::string(x.m_name) + " Enum.");
-            require(ASRUtils::check_equal_type(itr_var->m_type, common_type),
-                "All members of Enum must the same type. " +
-                std::string(itr_var->m_name) + " doesn't seem to follow this rule in " +
-                std::string(x.m_name) + " Enum.");
-            ASR::expr_t* value = ASRUtils::expr_value(itr_var->m_symbolic_value);
-            int64_t value_int64 = -1;
-            ASRUtils::extract_value(value, value_int64);
-            if( value2count.find(value_int64) == value2count.end() ) {
-                value2count[value_int64] = 0;
-            }
-            value2count[value_int64] += 1;
-        }
-
-        bool is_enumtype_correct = false;
-        bool is_enum_integer = ASR::is_a<ASR::Integer_t>(*x.m_type);
-        if( x.m_enum_value_type == ASR::enumtypeType::IntegerConsecutiveFromZero ) {
-            is_enumtype_correct = (is_enum_integer &&
-                                   (value2count.find(0) != value2count.end()) &&
-                                   (value2count.size() == x.n_members));
-            int64_t prev = -1;
-            if( is_enumtype_correct ) {
-                for( auto enum_value: value2count ) {
-                    if( enum_value.first - prev != 1 ) {
-                        is_enumtype_correct = false;
-                        break ;
-                    }
-                    prev = enum_value.first;
-                }
-            }
-        } else if( x.m_enum_value_type == ASR::enumtypeType::IntegerNotUnique ) {
-            is_enumtype_correct = is_enum_integer && (value2count.size() != x.n_members);
-        } else if( x.m_enum_value_type == ASR::enumtypeType::IntegerUnique ) {
-            is_enumtype_correct = is_enum_integer && (value2count.size() == x.n_members);
-        } else if( x.m_enum_value_type == ASR::enumtypeType::NonInteger ) {
-            is_enumtype_correct = !is_enum_integer;
-        }
-        require(is_enumtype_correct, "Properties of enum value members don't match correspond "
-                                     "to EnumType::m_enum_value_type");
-    }
-
-    void visit_UnionType(const UnionType_t& x) {
-        visit_StructTypeEnumTypeUnionType(x);
-    }
-
-    void visit_Variable(const Variable_t &x) {
-        variable_dependencies.clear();
-        SymbolTable *symtab = x.m_parent_symtab;
-        require(symtab != nullptr,
-            "Variable::m_parent_symtab cannot be nullptr");
-        require(symtab->get_symbol(std::string(x.m_name)) != nullptr,
-            "Variable '" + std::string(x.m_name) + "' not found in parent_symtab symbol table");
-        symbol_t *symtab_sym = symtab->get_symbol(std::string(x.m_name));
-        const symbol_t *current_sym = &x.base;
-        require(symtab_sym == current_sym,
-            "Variable's parent symbol table does not point to it");
-        require(id_symtab_map.find(symtab->counter) != id_symtab_map.end(),
-            "Variable::m_parent_symtab must be present in the ASR ("
-                + std::string(x.m_name) + ")");
-
-        if (x.m_symbolic_value)
-            visit_expr(*x.m_symbolic_value);
-        visit_ttype(*x.m_type);
-
-        // Verify dependencies
-        for( size_t i = 0; i < x.n_dependencies; i++ ) {
-            require(std::find(
-                variable_dependencies.begin(),
-                variable_dependencies.end(),
-                std::string(x.m_dependencies[i])
-            ) != variable_dependencies.end(),
-                "Variable " + std::string(x.m_name) + " doesn't depend on " +
-                std::string(x.m_dependencies[i]) + " but is found in its dependency list.");
-        }
-
-        for( size_t i = 0; i < variable_dependencies.size(); i++ ) {
-            require(present(x.m_dependencies, x.n_dependencies, variable_dependencies[i]),
-                "Variable " + std::string(x.m_name) + " depends on " +
-                std::string(variable_dependencies[i]) + " but isn't found in its dependency list.");
-        }
-    }
-
-    void visit_ExternalSymbol(const ExternalSymbol_t &x) {
-        if (check_external) {
-            require(x.m_external != nullptr,
-                "ExternalSymbol::m_external cannot be nullptr");
-            require(!is_a<ExternalSymbol_t>(*x.m_external),
-                "ExternalSymbol::m_external cannot be an ExternalSymbol");
-            char *orig_name = symbol_name(x.m_external);
-            require(std::string(x.m_original_name) == std::string(orig_name),
-                "ExternalSymbol::m_original_name must match external->m_name");
-            ASR::Module_t *m = ASRUtils::get_sym_module(x.m_external);
-            ASR::StructType_t* sm = nullptr;
-            bool is_valid_owner = false;
-            is_valid_owner = m != nullptr;
-            std::string asr_owner_name = "";
-            if( !is_valid_owner ) {
-                ASR::symbol_t* asr_owner_sym = ASRUtils::get_asr_owner(x.m_external);
-                is_valid_owner = ASR::is_a<ASR::StructType_t>(*asr_owner_sym);
-                sm = ASR::down_cast<ASR::StructType_t>(asr_owner_sym);
-                asr_owner_name = sm->m_name;
-            } else {
-                asr_owner_name = m->m_name;
-            }
-            require(is_valid_owner,
-                "ExternalSymbol::m_external is not in a module or struct type");
-            require(std::string(x.m_module_name) == asr_owner_name,
-                "ExternalSymbol::m_module_name `" + std::string(x.m_module_name)
-                + "` must match external's module name `" + asr_owner_name + "`");
-            ASR::symbol_t *s = nullptr;
-            if( m ) {
-                s = m->m_symtab->find_scoped_symbol(x.m_original_name, x.n_scope_names, x.m_scope_names);
-            } else if( sm ) {
-                s = sm->m_symtab->resolve_symbol(std::string(x.m_original_name));
-            }
-            require(s != nullptr,
-                "ExternalSymbol::m_original_name ('"
-                + std::string(x.m_original_name)
-                + "') + scope_names not found in a module '"
-                + asr_owner_name + "'");
-            require(s == x.m_external,
-                "ExternalSymbol::m_name + scope_names found but not equal to m_external");
-        }
-    }
-
-    // --------------------------------------------------------
-    // nodes that have symbol in their fields:
-
-    void visit_Var(const Var_t &x) {
-        require(x.m_v != nullptr,
-            "Var_t::m_v cannot be nullptr");
-        std::string x_mv_name = ASRUtils::symbol_name(x.m_v);
-        require(is_a<Variable_t>(*x.m_v) || is_a<ExternalSymbol_t>(*x.m_v)
-                || is_a<Function_t>(*x.m_v) || is_a<ASR::EnumType_t>(*x.m_v),
-            "Var_t::m_v " + x_mv_name + " does not point to a Variable_t, ExternalSymbol_t, " \
-            "Function_t, Subroutine_t or EnumType_t");
-        require(symtab_in_scope(current_symtab, x.m_v),
-            "Var::m_v `" + x_mv_name + "` cannot point outside of its symbol table");
-        variable_dependencies.push_back(x_mv_name);
-    }
-
-    void check_var_external(const ASR::expr_t &x) {
-        if (ASR::is_a<ASR::Var_t>(x)) {
-            ASR::symbol_t *s = ((ASR::Var_t*)&x)->m_v;
-            if (ASR::is_a<ASR::ExternalSymbol_t>(*s)) {
-                ASR::ExternalSymbol_t *e = ASR::down_cast<ASR::ExternalSymbol_t>(s);
-                require_impl(e->m_external, "m_external cannot be null here",
-                        x.base.loc);
-            }
-        }
-    }
-
-    template <typename T>
-    void handle_ArrayItemSection(const T &x) {
-        visit_expr(*x.m_v);
-        for (size_t i=0; i<x.n_args; i++) {
-            visit_array_index(x.m_args[i]);
-        }
-        require(x.m_type != nullptr,
-            "ArrayItemSection::m_type cannot be nullptr");
-        visit_ttype(*x.m_type);
-        if (check_external) {
-            check_var_external(*x.m_v);
-            int n_dims = ASRUtils::extract_n_dims_from_ttype(
-                    ASRUtils::expr_type(x.m_v));
-            if (ASR::is_a<ASR::Character_t>(*x.m_type) && n_dims == 0) {
-                // TODO: This seems like a bug, we should not use ArrayItem with
-                // strings but StringItem. For now we ignore it, but we should
-                // fix it
-            } else {
-                require(n_dims > 0,
-                    "The variable in ArrayItem must be an array, not a scalar");
-            }
-        }
-    }
-
-    void visit_ArrayItem(const ArrayItem_t &x) {
-        handle_ArrayItemSection(x);
-    }
-
-    void visit_ArraySection(const ArraySection_t &x) {
-        handle_ArrayItemSection(x);
-    }
-
-    void visit_SubroutineCall(const SubroutineCall_t &x) {
-        if (x.m_dt) {
-            SymbolTable *symtab = get_dt_symtab(x.m_dt);
-            bool result = symtab_in_scope(symtab, x.m_name);
-            ASR::symbol_t* parent = get_parent_type_dt(x.m_dt);
-            while( !result && parent ) {
-                symtab = get_dt_symtab(parent);
-                result = symtab_in_scope(symtab, x.m_name);
-                parent = get_parent_type_dt(parent);
-            }
-            require(symtab_in_scope(symtab, x.m_name),
-                "SubroutineCall::m_name cannot point outside of its symbol table");
-        } else {
-            require(symtab_in_scope(current_symtab, x.m_name),
-                "SubroutineCall::m_name '" + std::string(symbol_name(x.m_name)) + "' cannot point outside of its symbol table");
-            if (check_external) {
-                ASR::symbol_t *s = ASRUtils::symbol_get_past_external(x.m_name);
-                require(ASR::is_a<ASR::Function_t>(*s),
-                    "SubroutineCall::m_name '" + std::string(symbol_name(x.m_name)) + "' must be a Function");
-            }
-        }
-        function_dependencies.push_back(std::string(ASRUtils::symbol_name(x.m_name)));
-        if( ASR::is_a<ASR::ExternalSymbol_t>(*x.m_name) ) {
-            ASR::ExternalSymbol_t* x_m_name = ASR::down_cast<ASR::ExternalSymbol_t>(x.m_name);
-            module_dependencies.push_back(std::string(x_m_name->m_module_name));
-        }
-        for (size_t i=0; i<x.n_args; i++) {
-            if( x.m_args[i].m_value ) {
-                visit_expr(*(x.m_args[i].m_value));
-            }
-        }
-    }
-
-    SymbolTable *get_dt_symtab(ASR::symbol_t *dt) {
-        LCOMPILERS_ASSERT(dt)
-        SymbolTable *symtab = ASRUtils::symbol_symtab(ASRUtils::symbol_get_past_external(dt));
-        require_impl(symtab,
-            "m_dt::m_v::m_type::class/derived_type must point to a symbol with a symbol table",
-            dt->base.loc);
-        return symtab;
-    }
-
-    SymbolTable *get_dt_symtab(ASR::expr_t *dt) {
-        ASR::ttype_t *t2 = ASRUtils::type_get_past_pointer(ASRUtils::expr_type(dt));
-        ASR::symbol_t *type_sym=nullptr;
-        switch (t2->type) {
-            case (ASR::ttypeType::Struct): {
-                type_sym = ASR::down_cast<ASR::Struct_t>(t2)->m_derived_type;
-                break;
-            }
-            case (ASR::ttypeType::Class): {
-                type_sym = ASR::down_cast<ASR::Class_t>(t2)->m_class_type;
-                break;
-            }
-            default :
-                require_impl(false,
-                    "m_dt::m_v::m_type must point to a type with a symbol table (Struct or Class)",
-                    dt->base.loc);
-        }
-        return get_dt_symtab(type_sym);
-    }
-
-    ASR::symbol_t *get_parent_type_dt(ASR::symbol_t *dt) {
-        ASR::symbol_t *parent = nullptr;
-        switch (dt->type) {
-            case (ASR::symbolType::StructType): {
-                dt = ASRUtils::symbol_get_past_external(dt);
-                ASR::StructType_t* der_type = ASR::down_cast<ASR::StructType_t>(dt);
-                parent = der_type->m_parent;
-                break;
-            }
-            default :
-                require_impl(false,
-                    "m_dt::m_v::m_type must point to a Struct type",
-                    dt->base.loc);
-        }
-        return parent;
-    }
-
-    ASR::symbol_t *get_parent_type_dt(ASR::expr_t *dt) {
-        ASR::ttype_t *t2 = ASRUtils::type_get_past_pointer(ASRUtils::expr_type(dt));
-        ASR::symbol_t *type_sym=nullptr;
-        ASR::symbol_t *parent = nullptr;
-        switch (t2->type) {
-            case (ASR::ttypeType::Struct): {
-                type_sym = ASR::down_cast<ASR::Struct_t>(t2)->m_derived_type;
-                type_sym = ASRUtils::symbol_get_past_external(type_sym);
-                ASR::StructType_t* der_type = ASR::down_cast<ASR::StructType_t>(type_sym);
-                parent = der_type->m_parent;
-                break;
-            }
-            case (ASR::ttypeType::Class): {
-                type_sym = ASR::down_cast<ASR::Class_t>(t2)->m_class_type;
-                type_sym = ASRUtils::symbol_get_past_external(type_sym);
-                if( type_sym->type == ASR::symbolType::StructType ) {
-                    ASR::StructType_t* der_type = ASR::down_cast<ASR::StructType_t>(type_sym);
-                    parent = der_type->m_parent;
-                }
-                break;
-            }
-            default :
-                require_impl(false,
-                    "m_dt::m_v::m_type must point to a Struct type",
-                    dt->base.loc);
-        }
-        return parent;
-    }
-
-    void visit_PointerNullConstant(const PointerNullConstant_t& x) {
-        require(x.m_type != nullptr, "null() must have a type");
-    }
-
-    void visit_FunctionCall(const FunctionCall_t &x) {
-        require(x.m_name,
-            "FunctionCall::m_name must be present");
-        function_dependencies.push_back(std::string(ASRUtils::symbol_name(x.m_name)));
-        if( ASR::is_a<ASR::ExternalSymbol_t>(*x.m_name) ) {
-            ASR::ExternalSymbol_t* x_m_name = ASR::down_cast<ASR::ExternalSymbol_t>(x.m_name);
-            module_dependencies.push_back(std::string(x_m_name->m_module_name));
-        }
-        if (x.m_dt) {
-            SymbolTable *symtab = get_dt_symtab(x.m_dt);
-            require(symtab_in_scope(symtab, x.m_name),
-                "FunctionCall::m_name cannot point outside of its symbol table");
-        } else {
-            require(symtab_in_scope(current_symtab, x.m_name),
-                "FunctionCall::m_name `" + std::string(symbol_name(x.m_name)) +
-                "` cannot point outside of its symbol table");
-            // Check both `name` and `orig_name` that `orig_name` points
-            // to GenericProcedure (if applicable), both external and non
-            // external
-            if (check_external) {
-                const ASR::symbol_t *fn = ASRUtils::symbol_get_past_external(x.m_name);
-                require(ASR::is_a<ASR::Function_t>(*fn),
-                    "FunctionCall::m_name must be a Function");
-            }
-        }
-        for (size_t i=0; i<x.n_args; i++) {
-            if( x.m_args[i].m_value ) {
-                visit_expr(*(x.m_args[i].m_value));
-            }
-        }
-        visit_ttype(*x.m_type);
-    }
-
-    void visit_Struct(const Struct_t &x) {
-        require(symtab_in_scope(current_symtab, x.m_derived_type),
-            "Struct::m_derived_type cannot point outside of its symbol table");
-        for (size_t i=0; i<x.n_dims; i++) {
-            visit_dimension(x.m_dims[i]);
-        }
-    }
-
-    /*
-    void visit_Pointer(const Pointer_t &x) {
-        visit_ttype(*x.m_type);
-    }
-    */
-
-};
-
-
-} // namespace ASR
-
-bool asr_verify(const ASR::TranslationUnit_t &unit, bool check_external,
-            diag::Diagnostics &diagnostics) {
-    ASR::VerifyVisitor v(check_external, diagnostics);
-    try {
-        v.visit_TranslationUnit(unit);
-    } catch (const VerifyAbort &) {
-        LCOMPILERS_ASSERT(diagnostics.has_error())
-        return false;
-    }
-    return true;
-}
-
-} // namespace LCompilers
diff --git a/src/libasr/asr_verify.h b/src/libasr/asr_verify.h
deleted file mode 100644
index e7003ac590..0000000000
--- a/src/libasr/asr_verify.h
+++ /dev/null
@@ -1,43 +0,0 @@
-#ifndef LFORTRAN_ASR_VERIFY_H
-#define LFORTRAN_ASR_VERIFY_H
-
-#include <libasr/asr.h>
-
-namespace LCompilers {
-
-    // Verifies that ASR is correctly constructed and contains valid Fortran
-    // code and passes all our requirements on ASR, such as:
-    //
-    //   * All types and kinds are correctly inferred and implicit casting
-    //     nodes are correctly inserted in expressions
-    //   * Types match for function / subroutine calls
-    //   * All symbols in the Symbol Table correctly link back to it or the
-    //     parent table.
-    //   * All Fortran rules will be checked eventually, such as:
-    //     * Initializer expression only uses intrinsic functions
-    //     * Any function used in array dimension declaration is pure
-    //     * Pure function only calls pure functions
-    //     * ...
-    //
-    // This should not replace correct semantic checking in ast2asr. This is
-    // only meant as a tool for LCompilers developers to check there are no bugs
-    // in LCompilers code that constructs ASR and that some requirement was not
-    // accidentally broken.
-    //   This should not be called in Release mode for performance reasons, but
-    // it should be called in our tests to ensure ast2asr, deserialization, all
-    // the ASR passes and any other code that constructs ASR does not have
-    // bugs.
-    //   Any code that takes ASR as an argument can assume that it is verified.
-    // Such as the LLVM, C++ backend, or any ASR pass, or pickle.
-
-    // The function will raise an exception if there is an error. Otherwise
-    // it will return true. It can be used in Debug mode only as:
-    //
-    //   LCOMPILERS_ASSERT(asr_verify(*asr));
-    //
-    bool asr_verify(const ASR::TranslationUnit_t &unit,
-        bool check_external, diag::Diagnostics &diagnostics);
-
-} // namespace LCompilers
-
-#endif // LFORTRAN_ASR_VERIFY_H
diff --git a/src/libasr/assert.h b/src/libasr/assert.h
deleted file mode 100644
index dd628fbbbd..0000000000
--- a/src/libasr/assert.h
+++ /dev/null
@@ -1,63 +0,0 @@
-#ifndef LFORTRAN_ASSERT_H
-#define LFORTRAN_ASSERT_H
-
-// LCOMPILERS_ASSERT uses internal functions to perform as assert
-// so that there is no effect with NDEBUG
-#include <libasr/config.h>
-#include <libasr/exception.h>
-#if defined(WITH_LFORTRAN_ASSERT)
-
-#include <iostream>
-
-#if !defined(LCOMPILERS_ASSERT)
-#define stringize(s) #s
-#define XSTR(s) stringize(s)
-#if defined(HAVE_LFORTRAN_STACKTRACE)
-#define LCOMPILERS_ASSERT(cond)                                                  \
-    {                                                                          \
-        if (!(cond)) {                                                         \
-            throw LCompilers::AssertFailed(XSTR(cond));                  \
-        }                                                                      \
-    }
-#else
-#define LCOMPILERS_ASSERT(cond)                                                  \
-    {                                                                          \
-        if (!(cond)) {                                                         \
-            std::cerr << "LCOMPILERS_ASSERT failed: " << __FILE__                \
-                      << "\nfunction " << __func__ << "(), line number "       \
-                      << __LINE__ << " at \n"                                  \
-                      << XSTR(cond) << "\n";                                   \
-            abort();                                                           \
-        }                                                                      \
-    }
-#endif // defined(HAVE_LFORTRAN_STACKTRACE)
-#endif // !defined(LCOMPILERS_ASSERT)
-
-#if !defined(LCOMPILERS_ASSERT_MSG)
-#define LCOMPILERS_ASSERT_MSG(cond, msg)                                        \
-    {                                                                          \
-        if (!(cond)) {                                                         \
-            std::cerr << "LCOMPILERS_ASSERT failed: " << __FILE__               \
-                      << "\nfunction " << __func__ << "(), line number "       \
-                      << __LINE__ << " at \n"                                  \
-                      << XSTR(cond) << "\n"                                    \
-                      << "ERROR MESSAGE:\n"                                    \
-                      << msg << "\n";                                          \
-            abort();                                                           \
-        }                                                                      \
-    }
-#endif // !defined(LCOMPILERS_ASSERT_MSG)
-
-#else // defined(WITH_LFORTRAN_ASSERT)
-
-#define LCOMPILERS_ASSERT(cond)
-#define LCOMPILERS_ASSERT_MSG(cond, msg)
-
-#endif // defined(WITH_LFORTRAN_ASSERT)
-
-#define LFORTRAN_ERROR(description)                                           \
-    std::cerr << description;                                                  \
-    std::cerr << "\n";                                                         \
-    abort();
-
-#endif // LFORTRAN_ASSERT_H
diff --git a/src/libasr/bigint.h b/src/libasr/bigint.h
deleted file mode 100644
index a299dffe9e..0000000000
--- a/src/libasr/bigint.h
+++ /dev/null
@@ -1,174 +0,0 @@
-#ifndef LFORTRAN_BIGINT_H
-#define LFORTRAN_BIGINT_H
-
-#include <cstdint>
-
-#include <libasr/containers.h>
-
-namespace LCompilers {
-
-namespace BigInt {
-
-/*
- * Arbitrary size integer implementation.
- *
- * We use tagged signed 64bit integers with no padding bits and using 2's
- * complement for negative values (int64_t) as the underlying data structure.
- * Little-endian is assumed.
- *
- * Bits (from the left):
- * 1 ..... sign: 0 positive, 1 negative
- * 2 ..... tag: bits 1-2 equal to 01: pointer; otherwise integer
- * 3-64 .. if the tag is - integer: rest of the signed integer bits in 2's
- *                                  complement
- *                       - pointer: 64 bit pointer shifted by 2
- *                                  to the right (>> 2)
- *
- * The pointer must be aligned to 4 bytes (bits 63-64 must be 00).
- * Small signed integers are represented directly as integers in int64_t, large
- * integers are allocated on heap and a pointer to it is used as "tag pointer"
- * in int64_t.
- *
- * To check if the integer has a pointer tag, we check that the first two bits
- * (1-2) are equal to 01.
- *
- * If the first bit is 0, then it can either be a positive integer or a
- * pointer. We check the second bit, if it is 1, then it is a pointer (shifted
- * by 2), if it is 0, then is is a positive integer, represented by the rest of
- * the 62 bits. If the first bit is 1, then it is a negative integer,
- * represented by the full 64 bits in 2's complement representation.
- */
-
-// Returns true if "i" is a pointer and false if "i" is an integer
-inline static bool is_int_ptr(int64_t i) {
-    return (((uint64_t)i) >> (64 - 2)) == 1;
-}
-
-/*
- * A pointer is converted to integer by shifting by 2 to the right and adding
- * 01 to the first two bits to tag it as a pointer:
- */
-
-// Converts a pointer "p" (must be aligned to 4 bytes) to a tagged int64_t
-inline static int64_t ptr_to_int(void *p) {
-    return (int64_t)( (((uint64_t)p) >> 2) | (1ULL << (64 - 2)) );
-}
-
-/* An integer with the pointer tag is converted to a pointer by shifting by 2
- * to the left, which erases the tag and puts 00 to bits 63-64:
- */
-
-// Converts a tagged int64_t to a pointer (aligned to 4 bytes)
-inline static void* int_to_ptr(int64_t i) {
-    return (void *)(((uint64_t)i) << 2);
-}
-
-/* The maximum small int is 2^62-1
- */
-const int64_t MAX_SMALL_INT = (int64_t)((1ULL << 62)-1);
-
-/* The minimum small int is -2^63
- */
-const int64_t MIN_SMALL_INT = (int64_t)(-(1ULL << 63));
-
-// Returns true if "i" is a small int
-inline static bool is_small_int(int64_t i) {
-    return (MIN_SMALL_INT <= i && i <= MAX_SMALL_INT);
-}
-
-/* Arbitrary integer implementation
- * For now large integers are implemented as strings with decimal digits. The
- * only supported operation on this is converting to and from a string. Later
- * we will replace with an actual large integer implementation and add other
- * operations.
- */
-
-// Converts a string to a large int (allocated on heap, returns a pointer)
-inline static int64_t string_to_largeint(Allocator &al, const Str &s) {
-    char *cs = s.c_str(al);
-    return ptr_to_int(cs);
-}
-
-// Converts a large int to a string
-inline static char* largeint_to_string(int64_t i) {
-    LCOMPILERS_ASSERT(is_int_ptr(i));
-    void *p = int_to_ptr(i);
-    char *cs = (char*)p;
-    return cs;
-}
-
-inline static std::string int_to_str(int64_t i) {
-    if (is_int_ptr(i)) {
-        return std::string(largeint_to_string(i));
-    } else {
-        return std::to_string(i);
-    }
-}
-
-inline static bool is_int64(std::string str_repr) {
-    std::string str_int64 = "9223372036854775807";
-    if( str_repr.size() > str_int64.size() ) {
-        return false;
-    }
-
-    if( str_repr.size() < str_int64.size() ) {
-        return true;
-    }
-
-    size_t i;
-    for( i = 0; i < str_repr.size() - 1 && str_repr[i] == str_int64[i]; i++  ) {
-    }
-    return i == str_repr.size() - 1 || str_repr[i] < str_int64[i];
-}
-
-/* BigInt is a thin wrapper over the functionality exposed in the functions
- * above.  The idea is that one can use the int64_t type directly and just use
- * the function above to handle the large integer aspects, and if it is a small
- * integer, one can use it directly as int64 integer.
- *
- * Alternatively, one can use the BigInt class below that exposes the
- * functionality via methods.
- */
-
-struct BigInt {
-    int64_t n;
-
-    BigInt() = default;
-    BigInt(const BigInt &) = default;
-    BigInt& operator=(const BigInt &) = default;
-
-    void from_smallint(int64_t i) {
-        LCOMPILERS_ASSERT(is_small_int(i));
-        n = i;
-    }
-
-    void from_largeint(Allocator &al, const Str &s) {
-        n = string_to_largeint(al, s);
-    }
-
-    bool is_large() const {
-        return is_int_ptr(n);
-    }
-
-    int64_t as_smallint() const {
-        LCOMPILERS_ASSERT(!is_large());
-        return n;
-    }
-
-    std::string str() const {
-        return int_to_str(n);
-    }
-
-};
-
-static_assert(std::is_standard_layout<BigInt>::value);
-static_assert(std::is_trivial<BigInt>::value);
-static_assert(sizeof(BigInt) == sizeof(int64_t));
-static_assert(sizeof(BigInt) == 8);
-
-
-} // BigInt
-
-} // namespace LCompilers
-
-#endif // LFORTRAN_BIGINT_H
diff --git a/src/libasr/bwriter.h b/src/libasr/bwriter.h
deleted file mode 100644
index 0fc924af44..0000000000
--- a/src/libasr/bwriter.h
+++ /dev/null
@@ -1,257 +0,0 @@
-#ifndef LFORTRAN_BWRITER_H
-#define LFORTRAN_BWRITER_H
-
-#include <sstream>
-#include <iomanip>
-
-#include <libasr/exception.h>
-
-namespace LCompilers {
-
-std::string static inline uint32_to_string(uint32_t i) {
-    char bytes[4];
-    bytes[0] = (i >> 24) & 0xFF;
-    bytes[1] = (i >> 16) & 0xFF;
-    bytes[2] = (i >>  8) & 0xFF;
-    bytes[3] =  i        & 0xFF;
-    return std::string(bytes, 4);
-}
-
-std::string static inline uint64_to_string(uint64_t i) {
-    char bytes[8];
-    bytes[0] = (i >> 56) & 0xFF;
-    bytes[1] = (i >> 48) & 0xFF;
-    bytes[2] = (i >> 40) & 0xFF;
-    bytes[3] = (i >> 32) & 0xFF;
-    bytes[4] = (i >> 24) & 0xFF;
-    bytes[5] = (i >> 16) & 0xFF;
-    bytes[6] = (i >>  8) & 0xFF;
-    bytes[7] =  i        & 0xFF;
-    return std::string(bytes, 8);
-}
-
-uint32_t static inline string_to_uint32(const char *s) {
-    // The cast from signed char to unsigned char is important,
-    // otherwise the signed char shifts return wrong value for negative numbers
-    const uint8_t *p = (const unsigned char*)s;
-    return (((uint32_t)p[0]) << 24) |
-           (((uint32_t)p[1]) << 16) |
-           (((uint32_t)p[2]) <<  8) |
-                       p[3];
-}
-
-uint64_t static inline string_to_uint64(const char *s) {
-    // The cast from signed char to unsigned char is important,
-    // otherwise the signed char shifts return wrong value for negative numbers
-    const uint8_t *p = (const unsigned char*)s;
-    return (((uint64_t)p[0]) << 56) |
-           (((uint64_t)p[1]) << 48) |
-           (((uint64_t)p[2]) << 40) |
-           (((uint64_t)p[3]) << 32) |
-           (((uint64_t)p[4]) << 24) |
-           (((uint64_t)p[5]) << 16) |
-           (((uint64_t)p[6]) <<  8) |
-                       p[7];
-}
-
-uint32_t static inline string_to_uint32(const std::string &s) {
-    return string_to_uint32(&s[0]);
-}
-
-uint64_t static inline string_to_uint64(const std::string &s) {
-    return string_to_uint64(&s[0]);
-}
-
-// BinaryReader / BinaryWriter encapsulate access to the file by providing
-// primitives that other classes just use.
-class BinaryWriter
-{
-private:
-    std::string s;
-public:
-    std::string get_str() {
-        return s;
-    }
-
-    void write_int8(uint8_t i) {
-        char c=i;
-        s.append(std::string(&c, 1));
-    }
-
-    void write_int32(uint32_t i) {
-        s.append(uint32_to_string(i));
-    }
-
-    void write_int64(uint64_t i) {
-        s.append(uint64_to_string(i));
-    }
-
-    void write_string(const std::string &t) {
-        write_int64(t.size());
-        s.append(t);
-    }
-
-    void write_float64(double d) {
-        void *p = &d;
-        uint64_t *ip = (uint64_t*)p;
-        write_int64(*ip);
-    }
-
-};
-
-class BinaryReader
-{
-private:
-    std::string s;
-    size_t pos;
-public:
-    BinaryReader(const std::string &s) : s{s}, pos{0} {}
-
-    uint8_t read_int8() {
-        if (pos+1 > s.size()) {
-            throw LCompilersException("read_int8: String is too short for deserialization.");
-        }
-        uint8_t n = s[pos];
-        pos += 1;
-        return n;
-    }
-
-    uint32_t read_int32() {
-        if (pos+4 > s.size()) {
-            throw LCompilersException("read_int32: String is too short for deserialization.");
-        }
-        uint32_t n = string_to_uint32(&s[pos]);
-        pos += 4;
-        return n;
-    }
-
-    uint64_t read_int64() {
-        if (pos+8 > s.size()) {
-            throw LCompilersException("read_int64: String is too short for deserialization.");
-        }
-        uint64_t n = string_to_uint64(&s[pos]);
-        pos += 8;
-        return n;
-    }
-
-    std::string read_string() {
-        size_t n = read_int64();
-        if (pos+n > s.size()) {
-            throw LCompilersException("read_string: String is too short for deserialization.");
-        }
-        std::string r = std::string(&s[pos], n);
-        pos += n;
-        return r;
-    }
-
-    double read_float64() {
-        uint64_t x = read_int64();
-        uint64_t *ip = &x;
-        void *p = ip;
-        double *dp = (double*)p;
-        return *dp;
-    }
-};
-
-// TextReader / TextWriter encapsulate access to the file by providing
-// primitives that other classes just use. The file is a human readable
-// text file. These classes are useful for debugging.
-class TextWriter
-{
-private:
-    std::string s;
-public:
-    std::string get_str() {
-        return s;
-    }
-
-    void write_int8(uint8_t i) {
-        s.append(std::to_string(i));
-        s += " ";
-    }
-
-    void write_int64(uint64_t i) {
-        s.append(std::to_string(i));
-        s += " ";
-    }
-
-    void write_string(const std::string &t) {
-        write_int64(t.size());
-        s.append(t);
-        s += " ";
-    }
-
-    void write_float64(double d) {
-        std::stringstream str;
-        str << std::fixed << std::setprecision(17) << d;
-        s.append(str.str());
-        s += " ";
-    }
-};
-
-class TextReader
-{
-private:
-    std::string s;
-    size_t pos;
-public:
-    TextReader(const std::string &s) : s{s}, pos{0} {}
-
-    uint8_t read_int8() {
-        uint64_t n = read_int64();
-        if (n < 255) {
-            return n;
-        } else {
-            throw LCompilersException("read_int8: Integer too large to fit 8 bits.");
-        }
-    }
-
-    uint64_t read_int64() {
-        std::string tmp;
-        while (s[pos] != ' ') {
-            tmp += s[pos];
-            if (! (s[pos] >= '0' && s[pos] <= '9')) {
-                throw LCompilersException("read_int64: Expected integer, got `" + tmp + "`");
-            }
-            pos++;
-            if (pos >= s.size()) {
-                throw LCompilersException("read_int64: String is too short for deserialization.");
-            }
-        }
-        pos++;
-        uint64_t n = std::stoull(tmp);
-        return n;
-    }
-
-    double read_float64() {
-        std::string tmp;
-        while (s[pos] != ' ') {
-            tmp += s[pos];
-            pos++;
-            if (pos >= s.size()) {
-                throw LCompilersException("read_float64: String is too short for deserialization.");
-            }
-        }
-        pos++;
-        double n = std::stod(tmp);
-        return n;
-    }
-
-    std::string read_string() {
-        size_t n = read_int64();
-        if (pos+n > s.size()) {
-            throw LCompilersException("read_string: String is too short for deserialization.");
-        }
-        std::string r = std::string(&s[pos], n);
-        pos += n;
-        if (s[pos] != ' ') {
-            throw LCompilersException("read_string: Space expected.");
-        }
-        pos ++;
-        return r;
-    }
-};
-
-} // namespace LCompilers
-
-#endif // LFORTRAN_BWRITER_H
diff --git a/src/libasr/codegen/KaleidoscopeJIT.h b/src/libasr/codegen/KaleidoscopeJIT.h
deleted file mode 100644
index 1fe7a057e0..0000000000
--- a/src/libasr/codegen/KaleidoscopeJIT.h
+++ /dev/null
@@ -1,110 +0,0 @@
-//===- KaleidoscopeJIT.h - A simple JIT for Kaleidoscope --------*- C++ -*-===//
-//
-// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
-// See https://llvm.org/LICENSE.txt for license information.
-// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
-//
-//===----------------------------------------------------------------------===//
-//
-// Contains a simple JIT definition for use in the kaleidoscope tutorials.
-//
-//===----------------------------------------------------------------------===//
-
-#ifndef LLVM_EXECUTIONENGINE_ORC_KALEIDOSCOPEJIT_H
-#define LLVM_EXECUTIONENGINE_ORC_KALEIDOSCOPEJIT_H
-
-#include "llvm/ADT/StringRef.h"
-#include "llvm/ExecutionEngine/JITSymbol.h"
-#include "llvm/ExecutionEngine/Orc/CompileUtils.h"
-#include "llvm/ExecutionEngine/Orc/Core.h"
-#include "llvm/ExecutionEngine/Orc/ExecutionUtils.h"
-#include "llvm/ExecutionEngine/Orc/IRCompileLayer.h"
-#include "llvm/ExecutionEngine/Orc/JITTargetMachineBuilder.h"
-#include "llvm/ExecutionEngine/Orc/RTDyldObjectLinkingLayer.h"
-#include "llvm/ExecutionEngine/SectionMemoryManager.h"
-#include "llvm/IR/DataLayout.h"
-#include "llvm/IR/LLVMContext.h"
-#include <memory>
-
-namespace llvm {
-namespace orc {
-
-class KaleidoscopeJIT {
-private:
-  ExecutionSession ES;
-  RTDyldObjectLinkingLayer ObjectLayer;
-  IRCompileLayer CompileLayer;
-
-  DataLayout DL;
-  MangleAndInterner Mangle;
-  ThreadSafeContext Ctx;
-  JITDylib &JITDL;
-
-  TargetMachine *TM;
-
-public:
-  KaleidoscopeJIT(JITTargetMachineBuilder JTMB, DataLayout DL)
-      :
-#if LLVM_VERSION_MAJOR >= 13
-        ES(cantFail(SelfExecutorProcessControl::Create())),
-#endif
-        ObjectLayer(ES,
-                    []() { return std::make_unique<SectionMemoryManager>(); }),
-        CompileLayer(ES, ObjectLayer, std::make_unique<ConcurrentIRCompiler>(ConcurrentIRCompiler(std::move(JTMB)))),
-        DL(std::move(DL)), Mangle(ES, this->DL),
-        Ctx(std::make_unique<LLVMContext>()),
-        JITDL(
-#if LLVM_VERSION_MAJOR >= 11
-            cantFail
-#endif
-          (ES.createJITDylib("Main"))) {
-    JITDL.addGenerator(
-        cantFail(DynamicLibrarySearchGenerator::GetForCurrentProcess(
-            DL.getGlobalPrefix())));
-
-    std::string Error;
-    auto TargetTriple = sys::getDefaultTargetTriple();
-    auto Target = TargetRegistry::lookupTarget(TargetTriple, Error);
-    if (!Target) {
-      throw std::runtime_error("Failed to lookup the target");
-    }
-    auto CPU = "generic";
-    auto Features = "";
-    TargetOptions opt;
-    auto RM = Optional<Reloc::Model>();
-    TM = Target->createTargetMachine(TargetTriple, CPU, Features, opt, RM);
-  }
-
-  static Expected<std::unique_ptr<KaleidoscopeJIT>> Create() {
-    auto JTMB = JITTargetMachineBuilder::detectHost();
-
-    if (!JTMB)
-      return JTMB.takeError();
-
-    auto DL = JTMB->getDefaultDataLayoutForTarget();
-    if (!DL)
-      return DL.takeError();
-
-    return std::make_unique<KaleidoscopeJIT>(std::move(*JTMB), std::move(*DL));
-  }
-
-  const DataLayout &getDataLayout() const { return DL; }
-
-  LLVMContext &getContext() { return *Ctx.getContext(); }
-
-  Error addModule(std::unique_ptr<Module> M) {
-    return CompileLayer.add(JITDL,
-                            ThreadSafeModule(std::move(M), Ctx));
-  }
-
-  Expected<JITEvaluatedSymbol> lookup(StringRef Name) {
-    return ES.lookup({&JITDL}, Mangle(Name.str()));
-  }
-
-  TargetMachine &getTargetMachine() { return *TM; }
-};
-
-} // end namespace orc
-} // end namespace llvm
-
-#endif // LLVM_EXECUTIONENGINE_ORC_KALEIDOSCOPEJIT_H
diff --git a/src/libasr/codegen/asr_to_c.cpp b/src/libasr/codegen/asr_to_c.cpp
deleted file mode 100644
index 160b6c2aa9..0000000000
--- a/src/libasr/codegen/asr_to_c.cpp
+++ /dev/null
@@ -1,1256 +0,0 @@
-#include <iostream>
-#include <memory>
-
-#include <libasr/asr.h>
-#include <libasr/containers.h>
-#include <libasr/codegen/asr_to_c.h>
-#include <libasr/codegen/asr_to_c_cpp.h>
-#include <libasr/codegen/c_utils.h>
-#include <libasr/exception.h>
-#include <libasr/asr_utils.h>
-#include <libasr/string_utils.h>
-#include <libasr/pass/unused_functions.h>
-#include <libasr/pass/class_constructor.h>
-#include <libasr/pass/array_op.h>
-#include <libasr/pass/subroutine_from_function.h>
-
-#include <map>
-#include <utility>
-
-
-namespace LCompilers {
-
-class ASRToCVisitor : public BaseCCPPVisitor<ASRToCVisitor>
-{
-public:
-
-    std::string array_types_decls;
-
-    std::unique_ptr<CUtils::CUtilFunctions> c_utils_functions;
-
-    int counter;
-
-    ASRToCVisitor(diag::Diagnostics &diag, Platform &platform,
-                  int64_t default_lower_bound)
-         : BaseCCPPVisitor(diag, platform, false, false, true, default_lower_bound),
-           array_types_decls(std::string("\nstruct dimension_descriptor\n"
-                                         "{\n    int32_t lower_bound, length;\n};\n")),
-           c_utils_functions{std::make_unique<CUtils::CUtilFunctions>()},
-           counter{0} {
-           }
-
-    std::string convert_dims_c(size_t n_dims, ASR::dimension_t *m_dims,
-                               ASR::ttype_t* element_type, bool& is_fixed_size,
-                               bool convert_to_1d=false)
-    {
-        std::string dims = "";
-        size_t size = 1;
-        std::string array_size = "";
-        for (size_t i=0; i<n_dims; i++) {
-            ASR::expr_t *length = m_dims[i].m_length;
-            if (!length) {
-                is_fixed_size = false;
-                return dims;
-            } else {
-                visit_expr(*length);
-                array_size += "*" + src;
-                ASR::expr_t* length_value = ASRUtils::expr_value(length);
-                if( length_value ) {
-                    int64_t length_int = -1;
-                    ASRUtils::extract_value(length_value, length_int);
-                    size *= length_int;
-                    dims += "[" + std::to_string(length_int) + "]";
-                } else {
-                    size = 0;
-                    dims += "[ /* FIXME symbolic dimensions */ ]";
-                }
-            }
-        }
-        if( size == 0 ) {
-            std::string element_type_str = CUtils::get_c_type_from_ttype_t(element_type);
-            dims = "(" + element_type_str + "*)" + " malloc(sizeof(" + element_type_str + ")" + array_size + ")";
-            is_fixed_size = false;
-            return dims;
-        }
-        if( convert_to_1d && size != 0 ) {
-            dims = "[" + std::to_string(size) + "]";
-        }
-        return dims;
-    }
-
-    void generate_array_decl(std::string& sub, std::string v_m_name,
-                             std::string& type_name, std::string& dims,
-                             std::string& encoded_type_name,
-                             ASR::dimension_t* m_dims, int n_dims,
-                             bool use_ref, bool dummy,
-                             bool declare_value, bool is_fixed_size,
-                             bool is_pointer=false,
-                             ASR::abiType m_abi=ASR::abiType::Source) {
-        std::string indent(indentation_level*indentation_spaces, ' ');
-        std::string type_name_copy = type_name;
-        type_name = c_ds_api->get_array_type(type_name, encoded_type_name, array_types_decls);
-        std::string type_name_without_ptr = c_ds_api->get_array_type(type_name, encoded_type_name, array_types_decls, false);
-        if( declare_value ) {
-            std::string variable_name = std::string(v_m_name) + "_value";
-            sub = format_type_c("", type_name_without_ptr, variable_name, use_ref, dummy) + ";\n";
-            sub += indent + format_type_c("", type_name, v_m_name, use_ref, dummy);
-            sub += " = &" + variable_name;
-            if( !is_pointer ) {
-                sub += ";\n";
-                if( !is_fixed_size ) {
-                    sub += indent + format_type_c("*", type_name_copy, std::string(v_m_name) + "_data",
-                                                use_ref, dummy);
-                    if( dims.size() > 0 ) {
-                        sub += " = " + dims + ";\n";
-                    } else {
-                        sub += ";\n";
-                    }
-                } else {
-                    sub += indent + format_type_c(dims, type_name_copy, std::string(v_m_name) + "_data",
-                                                use_ref, dummy) + ";\n";
-                }
-                sub += indent + std::string(v_m_name) + "->data = " + std::string(v_m_name) + "_data;\n";
-                sub += indent + std::string(v_m_name) + "->n_dims = " + std::to_string(n_dims) + ";\n";
-                for (int i = 0; i < n_dims; i++) {
-                    if( m_dims[i].m_start ) {
-                        this->visit_expr(*m_dims[i].m_start);
-                        sub += indent + std::string(v_m_name) +
-                            "->dims[" + std::to_string(i) + "].lower_bound = " + src + ";\n";
-                    } else {
-                        sub += indent + std::string(v_m_name) +
-                            "->dims[" + std::to_string(i) + "].lower_bound = 0" + ";\n";
-                    }
-                    if( m_dims[i].m_length ) {
-                        this->visit_expr(*m_dims[i].m_length);
-                        sub += indent + std::string(v_m_name) +
-                            "->dims[" + std::to_string(i) + "].length = " + src + ";\n";
-                    } else {
-                        sub += indent + std::string(v_m_name) +
-                            "->dims[" + std::to_string(i) + "].length = 0" + ";\n";
-                    }
-                }
-                sub.pop_back();
-                sub.pop_back();
-            }
-        } else {
-            if( m_abi == ASR::abiType::BindC ) {
-                sub = format_type_c("", type_name_copy, v_m_name + "[]", use_ref, dummy);
-            } else {
-                sub = format_type_c("", type_name, v_m_name, use_ref, dummy);
-            }
-        }
-    }
-
-    void allocate_array_members_of_struct(ASR::StructType_t* der_type_t, std::string& sub,
-        std::string indent, std::string name) {
-        for( auto itr: der_type_t->m_symtab->get_scope() ) {
-            if( ASR::is_a<ASR::UnionType_t>(*itr.second) ||
-                ASR::is_a<ASR::StructType_t>(*itr.second) ) {
-                continue ;
-            }
-            ASR::ttype_t* mem_type = ASRUtils::symbol_type(itr.second);
-            if( ASRUtils::is_character(*mem_type) ) {
-                sub += indent + name + "->" + itr.first + " = NULL;\n";
-            } else if( ASRUtils::is_array(mem_type) &&
-                        ASR::is_a<ASR::Variable_t>(*itr.second) ) {
-                ASR::Variable_t* mem_var = ASR::down_cast<ASR::Variable_t>(itr.second);
-                std::string mem_var_name = current_scope->get_unique_name(itr.first + std::to_string(counter));
-                counter += 1;
-                ASR::dimension_t* m_dims = nullptr;
-                size_t n_dims = ASRUtils::extract_dimensions_from_ttype(mem_type, m_dims);
-                CDeclarationOptions c_decl_options_;
-                c_decl_options_.pre_initialise_derived_type = true;
-                c_decl_options_.use_ptr_for_derived_type = true;
-                c_decl_options_.use_static = true;
-                c_decl_options_.force_declare = true;
-                c_decl_options_.force_declare_name = mem_var_name;
-                sub += indent + convert_variable_decl(*mem_var, &c_decl_options_) + ";\n";
-                if( !ASRUtils::is_fixed_size_array(m_dims, n_dims) ) {
-                    sub += indent + name + "->" + itr.first + " = " + mem_var_name + ";\n";
-                }
-            } else if( ASR::is_a<ASR::Struct_t>(*mem_type) ) {
-                ASR::Struct_t* struct_t = ASR::down_cast<ASR::Struct_t>(mem_type);
-                ASR::StructType_t* struct_type_t = ASR::down_cast<ASR::StructType_t>(
-                    ASRUtils::symbol_get_past_external(struct_t->m_derived_type));
-                allocate_array_members_of_struct(struct_type_t, sub, indent, "(&(" + name + "->" + itr.first + "))");
-            }
-        }
-    }
-
-    std::string convert_variable_decl(const ASR::Variable_t &v,
-        DeclarationOptions* decl_options=nullptr)
-    {
-        bool pre_initialise_derived_type;
-        bool use_ptr_for_derived_type;
-        bool use_static;
-        bool force_declare;
-        std::string force_declare_name;
-        bool declare_as_constant;
-        std::string const_name;
-
-        if( decl_options ) {
-            CDeclarationOptions* c_decl_options = reinterpret_cast<CDeclarationOptions*>(decl_options);
-            pre_initialise_derived_type = c_decl_options->pre_initialise_derived_type;
-            use_ptr_for_derived_type = c_decl_options->use_ptr_for_derived_type;
-            use_static = c_decl_options->use_static;
-            force_declare = c_decl_options->force_declare;
-            force_declare_name = c_decl_options->force_declare_name;
-            declare_as_constant = c_decl_options->declare_as_constant;
-            const_name = c_decl_options->const_name;
-        } else {
-            pre_initialise_derived_type = true;
-            use_ptr_for_derived_type = true;
-            use_static = true;
-            force_declare = false;
-            force_declare_name = "";
-            declare_as_constant = false;
-            const_name = "";
-        }
-        std::string sub;
-        bool use_ref = (v.m_intent == ASRUtils::intent_out ||
-                        v.m_intent == ASRUtils::intent_inout);
-        bool is_array = ASRUtils::is_array(v.m_type);
-        bool dummy = ASRUtils::is_arg_dummy(v.m_intent);
-        ASR::ttype_t* v_m_type = v.m_type;
-        if (ASR::is_a<ASR::Const_t>(*v_m_type)) {
-            if( is_array ) {
-                v_m_type = ASR::down_cast<ASR::Const_t>(v_m_type)->m_type;
-            }
-        }
-        if (ASRUtils::is_pointer(v_m_type)) {
-            ASR::ttype_t *t2 = ASR::down_cast<ASR::Pointer_t>(v_m_type)->m_type;
-            if (ASRUtils::is_integer(*t2)) {
-                ASR::Integer_t *t = ASR::down_cast<ASR::Integer_t>(t2);
-                std::string type_name = "int" + std::to_string(t->m_kind * 8) + "_t";
-                if( !ASRUtils::is_array(v_m_type) ) {
-                    type_name.append(" *");
-                }
-                if( is_array ) {
-                    bool is_fixed_size = true;
-                    std::string dims = convert_dims_c(t->n_dims, t->m_dims, v_m_type, is_fixed_size, true);
-                    std::string encoded_type_name = "i" + std::to_string(t->m_kind * 8);
-                    generate_array_decl(sub, std::string(v.m_name), type_name, dims,
-                                        encoded_type_name, t->m_dims, t->n_dims,
-                                        use_ref, dummy,
-                                        v.m_intent != ASRUtils::intent_in &&
-                                        v.m_intent != ASRUtils::intent_inout &&
-                                        v.m_intent != ASRUtils::intent_out, is_fixed_size, true);
-                } else {
-                    bool is_fixed_size = true;
-                    std::string dims = convert_dims_c(t->n_dims, t->m_dims, v_m_type, is_fixed_size);
-                    sub = format_type_c(dims, type_name, v.m_name, use_ref, dummy);
-                }
-            } else if(ASR::is_a<ASR::Struct_t>(*t2)) {
-                ASR::Struct_t *t = ASR::down_cast<ASR::Struct_t>(t2);
-                std::string der_type_name = ASRUtils::symbol_name(t->m_derived_type);
-                if( is_array ) {
-                    bool is_fixed_size = true;
-                    std::string dims = convert_dims_c(t->n_dims, t->m_dims, v_m_type, is_fixed_size, true);
-                    std::string encoded_type_name = "x" + der_type_name;
-                    std::string type_name = std::string("struct ") + der_type_name;
-                    generate_array_decl(sub, std::string(v.m_name), type_name, dims,
-                                        encoded_type_name, t->m_dims, t->n_dims,
-                                        use_ref, dummy,
-                                        v.m_intent != ASRUtils::intent_in &&
-                                        v.m_intent != ASRUtils::intent_inout,
-                                        is_fixed_size);
-                 } else {
-                    std::string ptr_char = "*";
-                    if( !use_ptr_for_derived_type ) {
-                        ptr_char.clear();
-                    }
-                    sub = format_type_c("", "struct " + der_type_name + ptr_char,
-                                        v.m_name, use_ref, dummy);
-                }
-            } else if(ASR::is_a<ASR::CPtr_t>(*t2)) {
-                sub = format_type_c("", "void**", v.m_name, false, false);
-            } else {
-                diag.codegen_error_label("Type number '"
-                    + std::to_string(v_m_type->type)
-                    + "' not supported", {v.base.base.loc}, "");
-                throw Abort();
-            }
-        } else {
-            std::string dims;
-            use_ref = use_ref && !is_array;
-            if (ASRUtils::is_integer(*v_m_type)) {
-                headers.insert("inttypes");
-                ASR::Integer_t *t = ASR::down_cast<ASR::Integer_t>(v_m_type);
-                std::string type_name = "int" + std::to_string(t->m_kind * 8) + "_t";
-                if( is_array ) {
-                    bool is_fixed_size = true;
-                    dims = convert_dims_c(t->n_dims, t->m_dims, v_m_type, is_fixed_size, true);
-                    bool is_struct_type_member = ASR::is_a<ASR::StructType_t>(
-                            *ASR::down_cast<ASR::symbol_t>(v.m_parent_symtab->asr_owner));
-                    if( is_fixed_size && is_struct_type_member ) {
-                        if( !force_declare ) {
-                            force_declare_name = std::string(v.m_name);
-                        }
-                        sub = type_name + " " + force_declare_name + dims;
-                    } else {
-                        std::string encoded_type_name = "i" + std::to_string(t->m_kind * 8);
-                        if( !force_declare ) {
-                            force_declare_name = std::string(v.m_name);
-                        }
-                        generate_array_decl(sub, force_declare_name, type_name, dims,
-                                            encoded_type_name, t->m_dims, t->n_dims,
-                                            use_ref, dummy,
-                                            (v.m_intent != ASRUtils::intent_in &&
-                                            v.m_intent != ASRUtils::intent_inout &&
-                                            v.m_intent != ASRUtils::intent_out &&
-                                            !is_struct_type_member) || force_declare,
-                                            is_fixed_size, false, v.m_abi);
-                    }
-                } else {
-                    bool is_fixed_size = true;
-                    std::string v_m_name = v.m_name;
-                    if( declare_as_constant ) {
-                        type_name = "const " + type_name;
-                        v_m_name = const_name;
-                    }
-                    dims = convert_dims_c(t->n_dims, t->m_dims, v_m_type, is_fixed_size);
-                    sub = format_type_c(dims, type_name, v_m_name, use_ref, dummy);
-                }
-            } else if (ASRUtils::is_real(*v_m_type)) {
-                ASR::Real_t *t = ASR::down_cast<ASR::Real_t>(v_m_type);
-                std::string type_name = "float";
-                if (t->m_kind == 8) type_name = "double";
-                if( is_array ) {
-                    bool is_fixed_size = true;
-                    dims = convert_dims_c(t->n_dims, t->m_dims, v_m_type, is_fixed_size, true);
-                    bool is_struct_type_member = ASR::is_a<ASR::StructType_t>(
-                            *ASR::down_cast<ASR::symbol_t>(v.m_parent_symtab->asr_owner));
-                    if( is_fixed_size && is_struct_type_member ) {
-                        if( !force_declare ) {
-                            force_declare_name = std::string(v.m_name);
-                        }
-                        sub = type_name + " " + force_declare_name + dims;
-                    } else {
-                        std::string encoded_type_name = "r" + std::to_string(t->m_kind * 8);
-                        if( !force_declare ) {
-                            force_declare_name = std::string(v.m_name);
-                        }
-                        generate_array_decl(sub, force_declare_name, type_name, dims,
-                                            encoded_type_name, t->m_dims, t->n_dims,
-                                            use_ref, dummy,
-                                            (v.m_intent != ASRUtils::intent_in &&
-                                            v.m_intent != ASRUtils::intent_inout &&
-                                            v.m_intent != ASRUtils::intent_out &&
-                                            !is_struct_type_member) || force_declare, is_fixed_size);
-                    }
-                } else {
-                    bool is_fixed_size = true;
-                    std::string v_m_name = v.m_name;
-                    if( declare_as_constant ) {
-                        type_name = "const " + type_name;
-                        v_m_name = const_name;
-                    }
-                    dims = convert_dims_c(t->n_dims, t->m_dims, v_m_type, is_fixed_size);
-                    sub = format_type_c(dims, type_name, v_m_name, use_ref, dummy);
-                }
-            } else if (ASRUtils::is_complex(*v_m_type)) {
-                headers.insert("complex");
-                ASR::Complex_t *t = ASR::down_cast<ASR::Complex_t>(v_m_type);
-                std::string type_name = "float complex";
-                if (t->m_kind == 8) type_name = "double complex";
-                if( is_array ) {
-                    bool is_fixed_size = true;
-                    dims = convert_dims_c(t->n_dims, t->m_dims, v_m_type, is_fixed_size, true);
-                    bool is_struct_type_member = ASR::is_a<ASR::StructType_t>(
-                            *ASR::down_cast<ASR::symbol_t>(v.m_parent_symtab->asr_owner));
-                    if( is_fixed_size && is_struct_type_member ) {
-                        if( !force_declare ) {
-                            force_declare_name = std::string(v.m_name);
-                        }
-                        sub = type_name + " " + force_declare_name + dims;
-                    } else {
-                        std::string encoded_type_name = "c" + std::to_string(t->m_kind * 8);
-                        if( !force_declare ) {
-                            force_declare_name = std::string(v.m_name);
-                        }
-                        generate_array_decl(sub, force_declare_name, type_name, dims,
-                                            encoded_type_name, t->m_dims, t->n_dims,
-                                            use_ref, dummy,
-                                            (v.m_intent != ASRUtils::intent_in &&
-                                            v.m_intent != ASRUtils::intent_inout &&
-                                            v.m_intent != ASRUtils::intent_out &&
-                                            !is_struct_type_member) || force_declare, is_fixed_size);
-                    }
-                } else {
-                    bool is_fixed_size = true;
-                    std::string v_m_name = v.m_name;
-                    if( declare_as_constant ) {
-                        type_name = "const " + type_name;
-                        v_m_name = const_name;
-                    }
-                    dims = convert_dims_c(t->n_dims, t->m_dims, v_m_type, is_fixed_size);
-                    sub = format_type_c(dims, type_name, v_m_name, use_ref, dummy);
-                }
-            } else if (ASRUtils::is_logical(*v_m_type)) {
-                ASR::Logical_t *t = ASR::down_cast<ASR::Logical_t>(v_m_type);
-                bool is_fixed_size = true;
-                dims = convert_dims_c(t->n_dims, t->m_dims, v_m_type, is_fixed_size);
-                sub = format_type_c(dims, "bool", v.m_name, use_ref, dummy);
-            } else if (ASRUtils::is_character(*v_m_type)) {
-                ASR::Character_t *t = ASR::down_cast<ASR::Character_t>(v_m_type);
-                bool is_fixed_size = true;
-                std::string dims = convert_dims_c(t->n_dims, t->m_dims, v_m_type, is_fixed_size);
-                sub = format_type_c(dims, "char *", v.m_name, use_ref, dummy);
-                if( v.m_intent == ASRUtils::intent_local &&
-                    !(ASR::is_a<ASR::symbol_t>(*v.m_parent_symtab->asr_owner) &&
-                      ASR::is_a<ASR::StructType_t>(
-                        *ASR::down_cast<ASR::symbol_t>(v.m_parent_symtab->asr_owner))) ) {
-                    sub += " = NULL";
-                    return sub;
-                }
-            } else if (ASR::is_a<ASR::Struct_t>(*v_m_type)) {
-                std::string indent(indentation_level*indentation_spaces, ' ');
-                ASR::Struct_t *t = ASR::down_cast<ASR::Struct_t>(v_m_type);
-                std::string der_type_name = ASRUtils::symbol_name(t->m_derived_type);
-                 if( is_array ) {
-                    bool is_fixed_size = true;
-                    dims = convert_dims_c(t->n_dims, t->m_dims, v_m_type, is_fixed_size, true);
-                    std::string encoded_type_name = "x" + der_type_name;
-                    std::string type_name = std::string("struct ") + der_type_name;
-                    generate_array_decl(sub, std::string(v.m_name), type_name, dims,
-                                        encoded_type_name, t->m_dims, t->n_dims,
-                                        use_ref, dummy,
-                                        v.m_intent != ASRUtils::intent_in &&
-                                        v.m_intent != ASRUtils::intent_inout,
-                                        is_fixed_size);
-                } else if( v.m_intent == ASRUtils::intent_local && pre_initialise_derived_type) {
-                    bool is_fixed_size = true;
-                    dims = convert_dims_c(t->n_dims, t->m_dims, v_m_type, is_fixed_size);
-                    std::string value_var_name = v.m_parent_symtab->get_unique_name(std::string(v.m_name) + "_value");
-                    sub = format_type_c(dims, "struct " + der_type_name,
-                                        value_var_name, use_ref, dummy);
-                    if (v.m_symbolic_value) {
-                        this->visit_expr(*v.m_symbolic_value);
-                        std::string init = src;
-                        sub += "=" + init;
-                    }
-                    sub += ";\n";
-                    std::string ptr_char = "*";
-                    if( !use_ptr_for_derived_type ) {
-                        ptr_char.clear();
-                    }
-                    sub += indent + format_type_c("", "struct " + der_type_name + ptr_char, v.m_name, use_ref, dummy);
-                    if( t->n_dims != 0 ) {
-                        sub += " = " + value_var_name;
-                    } else {
-                        sub += " = &" + value_var_name + ";\n";
-                        ASR::StructType_t* der_type_t = ASR::down_cast<ASR::StructType_t>(
-                        ASRUtils::symbol_get_past_external(t->m_derived_type));
-                        allocate_array_members_of_struct(der_type_t, sub, indent, std::string(v.m_name));
-                        sub.pop_back();
-                        sub.pop_back();
-                    }
-                    return sub;
-                } else {
-                    bool is_fixed_size = true;
-                    dims = convert_dims_c(t->n_dims, t->m_dims, v_m_type, is_fixed_size);
-                    if( v.m_intent == ASRUtils::intent_in ||
-                        v.m_intent == ASRUtils::intent_inout ||
-                        v.m_intent == ASRUtils::intent_out ) {
-                        use_ref = false;
-                        dims = "";
-                    }
-                    std::string ptr_char = "*";
-                    if( !use_ptr_for_derived_type ) {
-                        ptr_char.clear();
-                    }
-                    sub = format_type_c(dims, "struct " + der_type_name + ptr_char,
-                                        v.m_name, use_ref, dummy);
-                }
-            } else if (ASR::is_a<ASR::Union_t>(*v_m_type)) {
-                std::string indent(indentation_level*indentation_spaces, ' ');
-                ASR::Union_t *t = ASR::down_cast<ASR::Union_t>(v_m_type);
-                std::string der_type_name = ASRUtils::symbol_name(
-                    ASRUtils::symbol_get_past_external(t->m_union_type));
-                if( is_array ) {
-                    bool is_fixed_size = true;
-                    dims = convert_dims_c(t->n_dims, t->m_dims, v_m_type, is_fixed_size, true);
-                    std::string encoded_type_name = "x" + der_type_name;
-                    std::string type_name = std::string("union ") + der_type_name;
-                    generate_array_decl(sub, std::string(v.m_name), type_name, dims,
-                                        encoded_type_name, t->m_dims, t->n_dims,
-                                        use_ref, dummy,
-                                        v.m_intent != ASRUtils::intent_in &&
-                                        v.m_intent != ASRUtils::intent_inout, is_fixed_size);
-                } else {
-                    bool is_fixed_size = true;
-                    dims = convert_dims_c(t->n_dims, t->m_dims, v_m_type, is_fixed_size);
-                    if( v.m_intent == ASRUtils::intent_in ||
-                        v.m_intent == ASRUtils::intent_inout ) {
-                        use_ref = false;
-                        dims = "";
-                    }
-                    sub = format_type_c(dims, "union " + der_type_name,
-                                        v.m_name, use_ref, dummy);
-                }
-            } else if (ASR::is_a<ASR::List_t>(*v_m_type)) {
-                ASR::List_t* t = ASR::down_cast<ASR::List_t>(v_m_type);
-                std::string list_type_c = c_ds_api->get_list_type(t);
-                sub = format_type_c("", list_type_c, v.m_name,
-                                    false, false);
-            } else if (ASR::is_a<ASR::Tuple_t>(*v_m_type)) {
-                ASR::Tuple_t* t = ASR::down_cast<ASR::Tuple_t>(v_m_type);
-                std::string tuple_type_c = c_ds_api->get_tuple_type(t);
-                sub = format_type_c("", tuple_type_c, v.m_name,
-                                    false, false);
-            } else if (ASR::is_a<ASR::CPtr_t>(*v_m_type)) {
-                sub = format_type_c("", "void*", v.m_name, false, false);
-            } else if (ASR::is_a<ASR::Enum_t>(*v_m_type)) {
-                ASR::Enum_t* enum_ = ASR::down_cast<ASR::Enum_t>(v_m_type);
-                ASR::EnumType_t* enum_type = ASR::down_cast<ASR::EnumType_t>(enum_->m_enum_type);
-                sub = format_type_c("", "enum " + std::string(enum_type->m_name), v.m_name, false, false);
-            } else if (ASR::is_a<ASR::Const_t>(*v_m_type)) {
-                if( v.m_intent == ASRUtils::intent_local ) {
-                    LCOMPILERS_ASSERT(v.m_symbolic_value);
-                    visit_expr(*v.m_symbolic_value);
-                    sub = "#define " + std::string(v.m_name) + " " + src + "\n";
-                    return sub;
-                } else {
-                    std::string const_underlying_type = CUtils::get_c_type_from_ttype_t(
-                        ASR::down_cast<ASR::Const_t>(v_m_type)->m_type);
-                    sub = format_type_c("", "const " + const_underlying_type + " ",
-                                        v.m_name, false, false);
-                }
-            } else if (ASR::is_a<ASR::TypeParameter_t>(*v_m_type)) {
-                // Ignore type variables
-                return "";
-            } else {
-                diag.codegen_error_label("Type number '"
-                    + std::to_string(v_m_type->type)
-                    + "' not supported", {v.base.base.loc}, "");
-                throw Abort();
-            }
-            if (dims.size() == 0 && v.m_storage == ASR::storage_typeType::Save && use_static) {
-                sub = "static " + sub;
-            }
-            if (dims.size() == 0 && v.m_symbolic_value) {
-                ASR::expr_t* init_expr = v.m_symbolic_value;
-                if( !ASR::is_a<ASR::Const_t>(*v.m_type) ) {
-                    for( size_t i = 0; i < v.n_dependencies; i++ ) {
-                        std::string variable_name = v.m_dependencies[i];
-                        ASR::symbol_t* dep_sym = current_scope->resolve_symbol(variable_name);
-                        if( (dep_sym && ASR::is_a<ASR::Variable_t>(*dep_sym) &&
-                            !ASR::down_cast<ASR::Variable_t>(dep_sym)->m_symbolic_value) )  {
-                            init_expr = nullptr;
-                            break;
-                        }
-                    }
-                }
-                if( init_expr ) {
-                    this->visit_expr(*init_expr);
-                    std::string init = src;
-                    sub += " = " + init;
-                }
-            }
-        }
-        return sub;
-    }
-
-
-    void visit_TranslationUnit(const ASR::TranslationUnit_t &x) {
-        is_string_concat_present = false;
-        global_scope = x.m_global_scope;
-        // All loose statements must be converted to a function, so the items
-        // must be empty:
-        LCOMPILERS_ASSERT(x.n_items == 0);
-        std::string unit_src = "";
-        indentation_level = 0;
-        indentation_spaces = 4;
-        c_ds_api->set_indentation(indentation_level, indentation_spaces);
-        c_ds_api->set_global_scope(global_scope);
-        c_utils_functions->set_indentation(indentation_level, indentation_spaces);
-        c_utils_functions->set_global_scope(global_scope);
-        c_ds_api->set_c_utils_functions(c_utils_functions.get());
-
-        std::string head =
-R"(
-#include <stdlib.h>
-#include <stdbool.h>
-#include <stdio.h>
-#include <string.h>
-#include <lfortran_intrinsics.h>
-
-#define ASSERT(cond)                                                           \
-    {                                                                          \
-        if (!(cond)) {                                                         \
-            printf("%s%s", "ASSERT failed: ", __FILE__);                       \
-            printf("%s%s", "\nfunction ", __func__);                           \
-            printf("%s%d%s", "(), line number ", __LINE__, " at \n");          \
-            printf("%s%s", #cond, "\n");                                       \
-            exit(1);                                                           \
-        }                                                                      \
-    }
-#define ASSERT_MSG(cond, msg)                                                  \
-    {                                                                          \
-        if (!(cond)) {                                                         \
-            printf("%s%s", "ASSERT failed: ", __FILE__);                       \
-            printf("%s%s", "\nfunction ", __func__);                           \
-            printf("%s%d%s", "(), line number ", __LINE__, " at \n");          \
-            printf("%s%s", #cond, "\n");                                       \
-            printf("%s", "ERROR MESSAGE:\n");                                  \
-            printf("%s%s", msg, "\n");                                         \
-            exit(1);                                                           \
-        }                                                                      \
-    }
-
-)";
-
-        std::string indent(indentation_level * indentation_spaces, ' ');
-        std::string tab(indentation_spaces, ' ');
-        std::string strcat_def = "";
-        strcat_def += indent + "char* " + global_scope->get_unique_name("strcat_") + "(char* x, char* y) {\n";
-        strcat_def += indent + tab + "char* str_tmp = (char*) malloc((strlen(x) + strlen(y) + 2) * sizeof(char));\n";
-        strcat_def += indent + tab + "strcpy(str_tmp, x);\n";
-        strcat_def += indent + tab + "return strcat(str_tmp, y);\n";
-        strcat_def += indent + "}\n\n";
-
-        std::string unit_src_tmp;
-        for (auto &item : x.m_global_scope->get_scope()) {
-            if (ASR::is_a<ASR::Variable_t>(*item.second)) {
-                ASR::Variable_t *v = ASR::down_cast<ASR::Variable_t>(item.second);
-                unit_src_tmp = convert_variable_decl(*v);
-                unit_src += unit_src_tmp;
-                if(unit_src_tmp.size() > 0 && (!ASR::is_a<ASR::Const_t>(*v->m_type) ||
-                    v->m_intent == ASRUtils::intent_return_var )) {
-                    unit_src += ";\n";
-                }
-            }
-        }
-
-
-        std::map<std::string, std::vector<std::string>> struct_dep_graph;
-        for (auto &item : x.m_global_scope->get_scope()) {
-            if (ASR::is_a<ASR::StructType_t>(*item.second) ||
-                ASR::is_a<ASR::EnumType_t>(*item.second) ||
-                ASR::is_a<ASR::UnionType_t>(*item.second)) {
-                std::vector<std::string> struct_deps_vec;
-                std::pair<char**, size_t> struct_deps_ptr = ASRUtils::symbol_dependencies(item.second);
-                for( size_t i = 0; i < struct_deps_ptr.second; i++ ) {
-                    struct_deps_vec.push_back(std::string(struct_deps_ptr.first[i]));
-                }
-                struct_dep_graph[item.first] = struct_deps_vec;
-            }
-        }
-
-        std::vector<std::string> struct_deps = ASRUtils::order_deps(struct_dep_graph);
-
-        for (auto &item : struct_deps) {
-            ASR::symbol_t* struct_sym = x.m_global_scope->get_symbol(item);
-            visit_symbol(*struct_sym);
-            array_types_decls += src;
-        }
-
-        // Topologically sort all global functions
-        // and then define them in the right order
-        std::vector<std::string> global_func_order = ASRUtils::determine_function_definition_order(x.m_global_scope);
-
-        unit_src += "\n";
-        unit_src += "// Implementations\n";
-
-        {
-            // Process intrinsic modules in the right order
-            std::vector<std::string> build_order
-                = ASRUtils::determine_module_dependencies(x);
-            for (auto &item : build_order) {
-                LCOMPILERS_ASSERT(x.m_global_scope->get_scope().find(item)
-                    != x.m_global_scope->get_scope().end());
-                if (startswith(item, "lfortran_intrinsic")) {
-                    ASR::symbol_t *mod = x.m_global_scope->get_symbol(item);
-                    if( ASRUtils::get_body_size(mod) != 0 ) {
-                        visit_symbol(*mod);
-                        unit_src += src;
-                    }
-                }
-            }
-        }
-
-        // Process modules in the right order
-        std::vector<std::string> build_order
-            = ASRUtils::determine_module_dependencies(x);
-        for (auto &item : build_order) {
-            LCOMPILERS_ASSERT(x.m_global_scope->get_scope().find(item)
-                != x.m_global_scope->get_scope().end());
-            if (!startswith(item, "lfortran_intrinsic")) {
-                ASR::symbol_t *mod = x.m_global_scope->get_symbol(item);
-                visit_symbol(*mod);
-                unit_src += src;
-            }
-        }
-
-        // Process global functions
-        size_t i;
-        for (i = 0; i < global_func_order.size(); i++) {
-            ASR::symbol_t* sym = x.m_global_scope->get_symbol(global_func_order[i]);
-            // Ignore external symbols because they are already defined by the loop above.
-            if( !sym || ASR::is_a<ASR::ExternalSymbol_t>(*sym) ) {
-                continue ;
-            }
-            visit_symbol(*sym);
-            unit_src += src;
-        }
-
-        // Then the main program:
-        for (auto &item : x.m_global_scope->get_scope()) {
-            if (ASR::is_a<ASR::Program_t>(*item.second)) {
-                visit_symbol(*item.second);
-                unit_src += src;
-            }
-        }
-        std::string to_include = "";
-        for (auto s: headers) {
-            to_include += "#include <" + s + ".h>\n";
-        }
-        if( c_ds_api->get_func_decls().size() > 0 ) {
-            array_types_decls += "\n" + c_ds_api->get_func_decls() + "\n";
-        }
-        if( c_utils_functions->get_util_func_decls().size() > 0 ) {
-            array_types_decls += "\n" + c_utils_functions->get_util_func_decls() + "\n";
-        }
-        std::string ds_funcs_defined = "";
-        if( c_ds_api->get_generated_code().size() > 0 ) {
-            ds_funcs_defined =  "\n" + c_ds_api->get_generated_code() + "\n";
-        }
-        std::string util_funcs_defined = "";
-        if( c_utils_functions->get_generated_code().size() > 0 ) {
-            util_funcs_defined =  "\n" + c_utils_functions->get_generated_code() + "\n";
-        }
-        if( is_string_concat_present ) {
-            head += strcat_def;
-        }
-        src = to_include + head + array_types_decls + unit_src +
-              ds_funcs_defined + util_funcs_defined;
-    }
-
-    void visit_Program(const ASR::Program_t &x) {
-        // Topologically sort all program functions
-        // and then define them in the right order
-        std::vector<std::string> func_order = ASRUtils::determine_function_definition_order(x.m_symtab);
-
-        // Generate code for nested subroutines and functions first:
-        std::string contains;
-        for (auto &item : func_order) {
-            ASR::symbol_t* sym = x.m_symtab->get_symbol(item);
-            ASR::Function_t *s = ASR::down_cast<ASR::Function_t>(sym);
-            visit_Function(*s);
-            contains += src;
-        }
-
-        // Generate code for the main program
-        indentation_level += 1;
-        std::string indent1(indentation_level*indentation_spaces, ' ');
-        std::string decl;
-        // Topologically sort all program functions
-        // and then define them in the right order
-        std::vector<std::string> var_order = ASRUtils::determine_variable_declaration_order(x.m_symtab);
-        std::string decl_tmp;
-        for (auto &item : var_order) {
-            ASR::symbol_t* var_sym = x.m_symtab->get_symbol(item);
-            if (ASR::is_a<ASR::Variable_t>(*var_sym)) {
-                ASR::Variable_t *v = ASR::down_cast<ASR::Variable_t>(var_sym);
-                decl += indent1;
-                decl_tmp = convert_variable_decl(*v);
-                decl += decl_tmp;
-                if(decl_tmp.size() > 0 && (!ASR::is_a<ASR::Const_t>(*v->m_type) ||
-                    v->m_intent == ASRUtils::intent_return_var )) {
-                    decl += ";\n";
-                }
-            }
-        }
-
-        std::string body;
-        for (size_t i=0; i<x.n_body; i++) {
-            this->visit_stmt(*x.m_body[i]);
-            body += src;
-        }
-        src = contains
-                + "int main(int argc, char* argv[])\n{\n"
-                + decl + body
-                + indent1 + "return 0;\n}\n";
-        indentation_level -= 2;
-    }
-
-    template <typename T>
-    void visit_AggregateTypeUtil(const T& x, std::string c_type_name,
-        std::string& src_dest) {
-        std::string body = "";
-        int indendation_level_copy = indentation_level;
-        for( auto itr: x.m_symtab->get_scope() ) {
-            if( ASR::is_a<ASR::UnionType_t>(*itr.second) ) {
-                visit_AggregateTypeUtil(*ASR::down_cast<ASR::UnionType_t>(itr.second),
-                                        "union", src_dest);
-            } else if( ASR::is_a<ASR::StructType_t>(*itr.second) ) {
-                std::string struct_c_type_name = get_StructCTypeName(
-                    *ASR::down_cast<ASR::StructType_t>(itr.second));
-                visit_AggregateTypeUtil(*ASR::down_cast<ASR::StructType_t>(itr.second),
-                                        struct_c_type_name, src_dest);
-            }
-        }
-        indentation_level = indendation_level_copy;
-        std::string indent(indentation_level*indentation_spaces, ' ');
-        indentation_level += 1;
-        std::string open_struct = indent + c_type_name + " " + std::string(x.m_name) + " {\n";
-        indent.push_back(' ');
-        CDeclarationOptions c_decl_options_;
-        c_decl_options_.pre_initialise_derived_type = false;
-        c_decl_options_.use_ptr_for_derived_type = false;
-        for( size_t i = 0; i < x.n_members; i++ ) {
-            ASR::symbol_t* member = x.m_symtab->get_symbol(x.m_members[i]);
-            LCOMPILERS_ASSERT(ASR::is_a<ASR::Variable_t>(*member));
-            body += indent + convert_variable_decl(
-                        *ASR::down_cast<ASR::Variable_t>(member),
-                        &c_decl_options_);
-            if( !ASR::is_a<ASR::Const_t>(*ASRUtils::symbol_type(member)) ||
-                ASR::down_cast<ASR::Variable_t>(member)->m_intent == ASRUtils::intent_return_var ) {
-                body += ";\n";
-            }
-        }
-        indentation_level -= 1;
-        std::string end_struct = "};\n\n";
-        src_dest += open_struct + body + end_struct;
-    }
-
-    std::string get_StructCTypeName(const ASR::StructType_t& x) {
-        std::string c_type_name = "struct";
-        if( x.m_is_packed ) {
-            std::string attr_args = "(packed";
-            if( x.m_alignment ) {
-                LCOMPILERS_ASSERT(ASRUtils::expr_value(x.m_alignment));
-                ASR::expr_t* alignment_value = ASRUtils::expr_value(x.m_alignment);
-                int64_t alignment_int = -1;
-                if( !ASRUtils::extract_value(alignment_value, alignment_int) ) {
-                    LCOMPILERS_ASSERT(false);
-                }
-                attr_args += ", aligned(" + std::to_string(alignment_int) + ")";
-            }
-            attr_args += ")";
-            c_type_name += " __attribute__(" + attr_args + ")";
-        }
-        return c_type_name;
-    }
-
-    void visit_StructType(const ASR::StructType_t& x) {
-        src = "";
-        std::string c_type_name = get_StructCTypeName(x);
-        visit_AggregateTypeUtil(x, c_type_name, array_types_decls);
-        src = "";
-    }
-
-    void visit_UnionType(const ASR::UnionType_t& x) {
-        visit_AggregateTypeUtil(x, "union", array_types_decls);
-    }
-
-    void visit_EnumType(const ASR::EnumType_t& x) {
-        if( x.m_enum_value_type == ASR::enumtypeType::NonInteger ) {
-            throw CodeGenError("C backend only supports integer valued Enum. " +
-                std::string(x.m_name) + " is not integer valued.");
-        }
-        if( x.m_enum_value_type == ASR::enumtypeType::IntegerNotUnique ) {
-            throw CodeGenError("C backend only supports uniquely valued integer Enum. " +
-                std::string(x.m_name) + " Enum is having duplicate values for its members.");
-        }
-        if( x.m_enum_value_type == ASR::enumtypeType::IntegerUnique &&
-            x.m_abi == ASR::abiType::BindC ) {
-            throw CodeGenError("C-interoperation support for non-consecutive but uniquely "
-                               "valued integer enums isn't available yet.");
-        }
-        std::string indent(indentation_level*indentation_spaces, ' ');
-        std::string tab(indentation_spaces, ' ');
-        std::string meta_data = " = {";
-        std::string open_struct = indent + "enum " + std::string(x.m_name) + " {\n";
-        std::string body = "";
-        int64_t min_value = INT64_MAX;
-        int64_t max_value = INT64_MIN;
-        size_t max_name_len = 0;
-        for( size_t i = 0; i < x.n_members; i++ ) {
-            ASR::symbol_t* member = x.m_symtab->get_symbol(x.m_members[i]);
-            LCOMPILERS_ASSERT(ASR::is_a<ASR::Variable_t>(*member));
-            ASR::Variable_t* member_var = ASR::down_cast<ASR::Variable_t>(member);
-            ASR::expr_t* value = ASRUtils::expr_value(member_var->m_symbolic_value);
-            int64_t value_int64 = -1;
-            ASRUtils::extract_value(value, value_int64);
-            min_value = std::min(value_int64, min_value);
-            max_value = std::max(value_int64, max_value);
-            max_name_len = std::max(max_name_len, std::string(x.m_members[i]).size());
-            this->visit_expr(*member_var->m_symbolic_value);
-            body += indent + tab + std::string(member_var->m_name) + " = " + src + ",\n";
-        }
-        size_t max_names = max_value - min_value + 1;
-        std::vector<std::string> enum_names(max_names, "\"\"");
-        for( size_t i = 0; i < x.n_members; i++ ) {
-            ASR::symbol_t* member = x.m_symtab->get_symbol(x.m_members[i]);
-            LCOMPILERS_ASSERT(ASR::is_a<ASR::Variable_t>(*member));
-            ASR::Variable_t* member_var = ASR::down_cast<ASR::Variable_t>(member);
-            ASR::expr_t* value = ASRUtils::expr_value(member_var->m_symbolic_value);
-            int64_t value_int64 = -1;
-            ASRUtils::extract_value(value, value_int64);
-            min_value = std::min(value_int64, min_value);
-            enum_names[value_int64 - min_value] = "\"" + std::string(member_var->m_name) + "\"";
-        }
-        for( auto enum_name: enum_names ) {
-            meta_data += enum_name + ", ";
-        }
-        meta_data.pop_back();
-        meta_data.pop_back();
-        meta_data += "};\n";
-        std::string end_struct = "};\n\n";
-        std::string enum_names_type = "char " + global_scope->get_unique_name("enum_names_") +
-            std::string(x.m_name) + "[" + std::to_string(max_names) + "][" + std::to_string(max_name_len + 1) + "] ";
-        array_types_decls += enum_names_type + meta_data + open_struct + body + end_struct;
-        src = "";
-    }
-
-    void visit_EnumTypeConstructor(const ASR::EnumTypeConstructor_t& x) {
-        LCOMPILERS_ASSERT(x.n_args == 1);
-        ASR::expr_t* m_arg = x.m_args[0];
-        this->visit_expr(*m_arg);
-        ASR::EnumType_t* enum_type = ASR::down_cast<ASR::EnumType_t>(x.m_dt_sym);
-        src = "(enum " + std::string(enum_type->m_name) + ") (" + src + ")";
-    }
-
-    void visit_UnionTypeConstructor(const ASR::UnionTypeConstructor_t& /*x*/) {
-
-    }
-
-    void visit_EnumStaticMember(const ASR::EnumStaticMember_t& x) {
-        ASR::Variable_t* enum_var = ASR::down_cast<ASR::Variable_t>(x.m_m);
-        src = std::string(enum_var->m_name);
-    }
-
-    void visit_EnumValue(const ASR::EnumValue_t& x) {
-        visit_expr(*x.m_v);
-    }
-
-    void visit_EnumName(const ASR::EnumName_t& x) {
-        int64_t min_value = INT64_MAX;
-        ASR::Enum_t* enum_t = ASR::down_cast<ASR::Enum_t>(x.m_enum_type);
-        ASR::EnumType_t* enum_type = ASR::down_cast<ASR::EnumType_t>(enum_t->m_enum_type);
-        for( auto itr: enum_type->m_symtab->get_scope() ) {
-            ASR::Variable_t* itr_var = ASR::down_cast<ASR::Variable_t>(itr.second);
-            ASR::expr_t* value = ASRUtils::expr_value(itr_var->m_symbolic_value);
-            int64_t value_int64 = -1;
-            ASRUtils::extract_value(value, value_int64);
-            min_value = std::min(value_int64, min_value);
-        }
-        visit_expr(*x.m_v);
-        std::string enum_var_name = src;
-        src = global_scope->get_unique_name("enum_names_" + std::string(enum_type->m_name)) +
-                "[" + std::string(enum_var_name) + " - " + std::to_string(min_value) + "]";
-    }
-
-    void visit_ComplexConstant(const ASR::ComplexConstant_t &x) {
-        headers.insert("complex");
-        std::string re = std::to_string(x.m_re);
-        std::string im = std::to_string(x.m_im);
-        src = "CMPLX(" + re + ", " + im + ")";
-
-        last_expr_precedence = 2;
-    }
-
-    void visit_LogicalConstant(const ASR::LogicalConstant_t &x) {
-        if (x.m_value == true) {
-            src = "true";
-        } else {
-            src = "false";
-        }
-        last_expr_precedence = 2;
-    }
-
-    void visit_Assert(const ASR::Assert_t &x) {
-        std::string indent(indentation_level*indentation_spaces, ' ');
-        std::string out = indent;
-        tmp_src.clear();
-        if (x.m_msg) {
-            out += "ASSERT_MSG(";
-            visit_expr(*x.m_test);
-            out += src + ", ";
-            visit_expr(*x.m_msg);
-            out += src + ");\n";
-        } else {
-            out += "ASSERT(";
-            visit_expr(*x.m_test);
-            out += src + ");\n";
-        }
-        src = "";
-        if (!tmp_src.empty()) {
-            for (auto &s: tmp_src) src += s;
-        }
-        src += out;
-        tmp_src.clear();
-    }
-
-    void visit_CPtrToPointer(const ASR::CPtrToPointer_t& x) {
-        visit_expr(*x.m_cptr);
-        std::string source_src = std::move(src);
-        visit_expr(*x.m_ptr);
-        std::string dest_src = std::move(src);
-        src = "";
-        std::string indent(indentation_level*indentation_spaces, ' ');
-        if( ASRUtils::is_array(ASRUtils::expr_type(x.m_ptr)) ) {
-            std::string dim_set_code = "";
-            ASR::dimension_t* m_dims = nullptr;
-            int n_dims = ASRUtils::extract_dimensions_from_ttype(ASRUtils::expr_type(x.m_ptr), m_dims);
-            dim_set_code = indent + dest_src + "->n_dims = " + std::to_string(n_dims) + ";\n";
-            for( int i = 0; i < n_dims; i++ ) {
-                if( m_dims[i].m_start ) {
-                    visit_expr(*m_dims[i].m_start);
-                    dim_set_code += indent + dest_src + "->dims[" + std::to_string(i) + "].lower_bound = " + src + ";\n";
-                }
-                if( m_dims[i].m_length ) {
-                    visit_expr(*m_dims[i].m_length);
-                    dim_set_code += indent + dest_src + "->dims[" + std::to_string(i) + "].length = " + src + ";\n";
-                }
-            }
-            src.clear();
-            src += dim_set_code;
-            dest_src += "->data";
-        }
-        std::string type_src = CUtils::get_c_type_from_ttype_t(ASRUtils::expr_type(x.m_ptr));
-        src += indent + dest_src + " = (" + type_src + ") " + source_src + ";\n";
-    }
-
-    void visit_Print(const ASR::Print_t &x) {
-        std::string indent(indentation_level*indentation_spaces, ' ');
-        std::string tmp_gen = indent + "printf(\"", out = "";
-        std::vector<std::string> v;
-        std::string separator;
-        if (x.m_separator) {
-            this->visit_expr(*x.m_separator);
-            separator = src;
-        } else {
-            separator = "\" \"";
-        }
-        for (size_t i=0; i<x.n_values; i++) {
-            this->visit_expr(*x.m_values[i]);
-            if( ASRUtils::is_array(ASRUtils::expr_type(x.m_values[i])) ) {
-                src += "->data";
-            }
-            ASR::ttype_t* value_type = ASRUtils::expr_type(x.m_values[i]);
-            if (value_type->type == ASR::ttypeType::List ||
-                value_type->type == ASR::ttypeType::Tuple) {
-                tmp_gen += "\"";
-                if (!v.empty()) {
-                    for (auto &s: v) {
-                        tmp_gen += ", " + s;
-                    }
-                }
-                tmp_gen += ");\n";
-                out += tmp_gen;
-                if (ASR::is_a<ASR::ListConstant_t>(*x.m_values[i]) ||
-                        ASR::is_a<ASR::TupleConstant_t>(*x.m_values[i])) {
-                    out += src;
-                    src = const_var_names[get_hash((ASR::asr_t*)x.m_values[i])];
-                }
-                tmp_gen = indent + "printf(\"";
-                v.clear();
-                std::string p_func = c_ds_api->get_print_func(value_type);
-                out += indent + p_func + "(" + src + ");\n";
-                continue;
-            }
-            tmp_gen += c_ds_api->get_print_type(value_type, ASR::is_a<ASR::ArrayItem_t>(*x.m_values[i]));
-            v.push_back(src);
-            if (value_type->type == ASR::ttypeType::Complex) {
-                v.pop_back();
-                v.push_back("creal(" + src + ")");
-                v.push_back("cimag(" + src + ")");
-            }
-            if (i+1!=x.n_values) {
-                tmp_gen += "\%s";
-                v.push_back(separator);
-            }
-        }
-        if (x.m_end) {
-            this->visit_expr(*x.m_end);
-            tmp_gen += "\%s\"";
-            v.push_back(src);
-        } else {
-            tmp_gen += "\\n\"";
-        }
-        if (!v.empty()) {
-            for (auto &s: v) {
-                tmp_gen += ", " + s;
-            }
-        }
-        tmp_gen += ");\n";
-        out += tmp_gen;
-        src = out;
-    }
-
-    void visit_ArraySize(const ASR::ArraySize_t& x) {
-        visit_expr(*x.m_v);
-        std::string var_name = src;
-        std::string args = "";
-        std::string result_type = CUtils::get_c_type_from_ttype_t(x.m_type);
-        if (x.m_dim == nullptr) {
-            std::string array_size_func = c_utils_functions->get_array_size();
-            ASR::dimension_t* m_dims = nullptr;
-            int n_dims = ASRUtils::extract_dimensions_from_ttype(ASRUtils::expr_type(x.m_v), m_dims);
-            src = "((" + result_type + ") " + array_size_func + "(" + var_name + "->dims, " + std::to_string(n_dims) + "))";
-        } else {
-            visit_expr(*x.m_dim);
-            std::string idx = src;
-            src = "((" + result_type + ")" + var_name + "->dims[" + idx + "-1].length)";
-        }
-    }
-
-    void visit_ArrayReshape(const ASR::ArrayReshape_t& x) {
-        visit_expr(*x.m_array);
-        std::string array = src;
-        visit_expr(*x.m_shape);
-        std::string shape = src;
-
-        ASR::ttype_t* array_type_asr = ASRUtils::expr_type(x.m_array);
-        std::string array_type_name = CUtils::get_c_type_from_ttype_t(array_type_asr);
-        std::string array_encoded_type_name = ASRUtils::get_type_code(array_type_asr, true, false, false);
-        std::string array_type = c_ds_api->get_array_type(array_type_name, array_encoded_type_name, array_types_decls, true);
-        std::string return_type = c_ds_api->get_array_type(array_type_name, array_encoded_type_name, array_types_decls, false);
-
-        ASR::ttype_t* shape_type_asr = ASRUtils::expr_type(x.m_shape);
-        std::string shape_type_name = CUtils::get_c_type_from_ttype_t(shape_type_asr);
-        std::string shape_encoded_type_name = ASRUtils::get_type_code(shape_type_asr, true, false, false);
-        std::string shape_type = c_ds_api->get_array_type(shape_type_name, shape_encoded_type_name, array_types_decls, true);
-
-        std::string array_reshape_func = c_utils_functions->get_array_reshape(array_type, shape_type,
-            return_type, array_type_name, array_encoded_type_name);
-        src = array_reshape_func + "(" + array + ", " + shape + ")";
-    }
-
-    void visit_ArrayBound(const ASR::ArrayBound_t& x) {
-        visit_expr(*x.m_v);
-        std::string var_name = src;
-        std::string args = "";
-        std::string result_type = CUtils::get_c_type_from_ttype_t(x.m_type);
-        visit_expr(*x.m_dim);
-        std::string idx = src;
-        if( x.m_bound == ASR::arrayboundType::LBound ) {
-            src = "((" + result_type + ")" + var_name + "->dims[" + idx + "-1].lower_bound)";
-        } else if( x.m_bound == ASR::arrayboundType::UBound ) {
-            std::string lower_bound = var_name + "->dims[" + idx + "-1].lower_bound";
-            std::string length = var_name + "->dims[" + idx + "-1].length";
-            std::string upper_bound = length + " + " + lower_bound + " - 1";
-            src = "((" + result_type + ") " + upper_bound + ")";
-        }
-    }
-
-    void visit_ArrayConstant(const ASR::ArrayConstant_t& x) {
-        // TODO: Support and test for multi-dimensional array constants
-        headers.insert("stdarg");
-        std::string array_const = "";
-        for( size_t i = 0; i < x.n_args; i++ ) {
-            visit_expr(*x.m_args[i]);
-            array_const += src + ", ";
-        }
-        array_const.pop_back();
-        array_const.pop_back();
-
-        ASR::ttype_t* array_type_asr = x.m_type;
-        std::string array_type_name = CUtils::get_c_type_from_ttype_t(array_type_asr);
-        std::string array_encoded_type_name = ASRUtils::get_type_code(array_type_asr, true, false);
-        std::string return_type = c_ds_api->get_array_type(array_type_name, array_encoded_type_name,array_types_decls, false);
-
-        src = c_utils_functions->get_array_constant(return_type, array_type_name, array_encoded_type_name) +
-                "(" + std::to_string(x.n_args) + ", " + array_const + ")";
-    }
-
-    void visit_ArrayItem(const ASR::ArrayItem_t &x) {
-        this->visit_expr(*x.m_v);
-        std::string array = src;
-        std::string out = array;
-        ASR::ttype_t* x_mv_type = ASRUtils::expr_type(x.m_v);
-        ASR::dimension_t* m_dims;
-        int n_dims = ASRUtils::extract_dimensions_from_ttype(x_mv_type, m_dims);
-        bool is_data_only_array = ASRUtils::is_fixed_size_array(m_dims, n_dims) &&
-                                  ASR::is_a<ASR::StructType_t>(*ASRUtils::get_asr_owner(x.m_v));
-        if( is_data_only_array ) {
-            out += "[";
-        } else {
-            out += "->data[";
-        }
-        std::string index = "";
-        for (size_t i=0; i<x.n_args; i++) {
-            std::string current_index = "";
-            if (x.m_args[i].m_right) {
-                this->visit_expr(*x.m_args[i].m_right);
-            } else {
-                src = "/* FIXME right index */";
-            }
-
-            if( is_data_only_array ) {
-                current_index += src;
-                for( size_t j = i + 1; j < x.n_args; j++ ) {
-                    int64_t dim_size;
-                    ASRUtils::extract_value(m_dims[j].m_length, dim_size);
-                    std::string length = std::to_string(dim_size);
-                    current_index += " * " + length;
-                }
-                index += current_index;
-            } else {
-                current_index += "(" + src + " - " + array + "->dims["
-                                    + std::to_string(i) + "].lower_bound)";
-                for( size_t j = i + 1; j < x.n_args; j++ ) {
-                    std::string length = array + "->dims[" + std::to_string(j) + "].length";
-                    current_index += " * " + length;
-                }
-                index += current_index;
-            }
-            if (i < x.n_args - 1) {
-                index += " + ";
-            }
-        }
-        out += index + "]";
-        last_expr_precedence = 2;
-        src = out;
-    }
-
-    void visit_StringItem(const ASR::StringItem_t& x) {
-        this->visit_expr(*x.m_idx);
-        std::string idx = std::move(src);
-        this->visit_expr(*x.m_arg);
-        std::string str = std::move(src);
-        src = "(char *)memcpy((char *)calloc(2U, sizeof(char)), "
-                + str + " + " + idx + " - 1, 1U)";
-    }
-
-    void visit_StringLen(const ASR::StringLen_t &x) {
-        this->visit_expr(*x.m_arg);
-        src = "strlen(" + src + ")";
-    }
-
-    void visit_GoTo(const ASR::GoTo_t &x) {
-        std::string indent(indentation_level*indentation_spaces, ' ');
-        src =  indent + "goto " + std::string(x.m_name) + ";\n";
-    }
-
-    void visit_GoToTarget(const ASR::GoToTarget_t &x) {
-        src = std::string(x.m_name) + ":\n";
-    }
-};
-
-Result<std::string> asr_to_c(Allocator &al, ASR::TranslationUnit_t &asr,
-    diag::Diagnostics &diagnostics, Platform &platform,
-    int64_t default_lower_bound)
-{
-
-    LCompilers::PassOptions pass_options;
-    pass_options.always_run = true;
-    pass_create_subroutine_from_function(al, asr, pass_options);
-    pass_replace_array_op(al, asr, pass_options);
-    pass_unused_functions(al, asr, pass_options);
-    pass_replace_class_constructor(al, asr, pass_options);
-    ASRToCVisitor v(diagnostics, platform, default_lower_bound);
-    try {
-        v.visit_asr((ASR::asr_t &)asr);
-    } catch (const CodeGenError &e) {
-        diagnostics.diagnostics.push_back(e.d);
-        return Error();
-    } catch (const Abort &) {
-        return Error();
-    }
-    return v.src;
-}
-
-} // namespace LCompilers
diff --git a/src/libasr/codegen/asr_to_c.h b/src/libasr/codegen/asr_to_c.h
deleted file mode 100644
index b78bfc25e6..0000000000
--- a/src/libasr/codegen/asr_to_c.h
+++ /dev/null
@@ -1,15 +0,0 @@
-#ifndef LFORTRAN_ASR_TO_C_H
-#define LFORTRAN_ASR_TO_C_H
-
-#include <libasr/asr.h>
-#include <libasr/utils.h>
-
-namespace LCompilers {
-
-    Result<std::string> asr_to_c(Allocator &al, ASR::TranslationUnit_t &asr,
-        diag::Diagnostics &diagnostics, Platform &platform,
-        int64_t default_lower_bound);
-
-} // namespace LCompilers
-
-#endif // LFORTRAN_ASR_TO_C_H
diff --git a/src/libasr/codegen/asr_to_c_cpp.h b/src/libasr/codegen/asr_to_c_cpp.h
deleted file mode 100644
index 346f2b434a..0000000000
--- a/src/libasr/codegen/asr_to_c_cpp.h
+++ /dev/null
@@ -1,1955 +0,0 @@
-#ifndef LFORTRAN_ASR_TO_C_CPP_H
-#define LFORTRAN_ASR_TO_C_CPP_H
-
-/*
- * Common code to be used in both of:
- *
- * * asr_to_cpp.cpp
- * * asr_to_c.cpp
- *
- * In particular, a common base class visitor with visitors that are identical
- * for both C and C++ code generation.
- */
-
-#include <iostream>
-#include <memory>
-#include <set>
-
-#include <libasr/asr.h>
-#include <libasr/containers.h>
-#include <libasr/codegen/asr_to_c.h>
-#include <libasr/codegen/c_utils.h>
-#include <libasr/exception.h>
-#include <libasr/asr_utils.h>
-#include <libasr/string_utils.h>
-#include <libasr/pass/unused_functions.h>
-
-#include <map>
-#include <tuple>
-
-
-namespace LCompilers {
-
-// Platform dependent fast unique hash:
-static inline uint64_t get_hash(ASR::asr_t *node)
-{
-    return (uint64_t)node;
-}
-
-struct SymbolInfo
-{
-    bool needs_declaration = true;
-    bool intrinsic_function = false;
-};
-
-struct DeclarationOptions {
-};
-
-struct CDeclarationOptions: public DeclarationOptions {
-    bool pre_initialise_derived_type;
-    bool use_ptr_for_derived_type;
-    bool use_static;
-    bool force_declare;
-    std::string force_declare_name;
-    bool declare_as_constant;
-    std::string const_name;
-
-    CDeclarationOptions() :
-    pre_initialise_derived_type{true},
-    use_ptr_for_derived_type{true},
-    use_static{true},
-    force_declare{false},
-    force_declare_name{""},
-    declare_as_constant{false},
-    const_name{""} {
-    }
-};
-
-struct CPPDeclarationOptions: public DeclarationOptions {
-    bool use_static;
-    bool use_templates_for_arrays;
-
-    CPPDeclarationOptions() :
-    use_static{true},
-    use_templates_for_arrays{false} {
-    }
-};
-
-template <class Struct>
-class BaseCCPPVisitor : public ASR::BaseVisitor<Struct>
-{
-private:
-    Struct& self() { return static_cast<Struct&>(*this); }
-public:
-    diag::Diagnostics &diag;
-    Platform platform;
-    std::string src;
-    std::string current_body;
-    int indentation_level;
-    int indentation_spaces;
-    // The precedence of the last expression, using the table:
-    // https://en.cppreference.com/w/cpp/language/operator_precedence
-    int last_expr_precedence;
-    bool intrinsic_module = false;
-    const ASR::Function_t *current_function = nullptr;
-    std::map<uint64_t, SymbolInfo> sym_info;
-    std::map<uint64_t, std::string> const_var_names;
-
-    // Output configuration:
-    // Use std::string or char*
-    bool gen_stdstring;
-    // Use std::complex<float/double> or float/double complex
-    bool gen_stdcomplex;
-    bool is_c;
-    std::set<std::string> headers;
-    std::vector<std::string> tmp_src;
-
-    SymbolTable* global_scope;
-    int64_t lower_bound;
-
-    std::string template_for_Kokkos;
-    size_t template_number;
-    std::string from_std_vector_helper;
-
-    std::unique_ptr<CCPPDSUtils> c_ds_api;
-    std::string const_name;
-    size_t const_vars_count;
-    size_t loop_end_count;
-
-    SymbolTable* current_scope;
-    bool is_string_concat_present;
-
-    BaseCCPPVisitor(diag::Diagnostics &diag, Platform &platform,
-            bool gen_stdstring, bool gen_stdcomplex, bool is_c,
-            int64_t default_lower_bound) : diag{diag},
-            platform{platform},
-        gen_stdstring{gen_stdstring}, gen_stdcomplex{gen_stdcomplex},
-        is_c{is_c}, global_scope{nullptr}, lower_bound{default_lower_bound},
-        template_number{0}, c_ds_api{std::make_unique<CCPPDSUtils>(is_c, platform)},
-        const_name{"constname"},
-        const_vars_count{0}, loop_end_count{0},
-        is_string_concat_present{false} {
-        }
-
-    void visit_TranslationUnit(const ASR::TranslationUnit_t &x) {
-        global_scope = x.m_global_scope;
-        // All loose statements must be converted to a function, so the items
-        // must be empty:
-        LCOMPILERS_ASSERT(x.n_items == 0);
-        std::string unit_src = "";
-        indentation_level = 0;
-        indentation_spaces = 4;
-        c_ds_api->set_indentation(indentation_level + 1, indentation_spaces);
-        c_ds_api->set_global_scope(global_scope);
-
-        std::string headers =
-R"(#include <stdio.h>
-#include <assert.h>
-#include <complex.h>
-#include <lfortran_intrinsics.h>
-)";
-        unit_src += headers;
-
-        {
-            // Process intrinsic modules in the right order
-            std::vector<std::string> build_order
-                = ASRUtils::determine_module_dependencies(x);
-            for (auto &item : build_order) {
-                LCOMPILERS_ASSERT(x.m_global_scope->get_scope().find(item)
-                    != x.m_global_scope->get_scope().end());
-                if (startswith(item, "lfortran_intrinsic")) {
-                    ASR::symbol_t *mod = x.m_global_scope->get_symbol(item);
-                    self().visit_symbol(*mod);
-                    unit_src += src;
-                }
-            }
-        }
-
-        // Process procedures first:
-        for (auto &item : x.m_global_scope->get_scope()) {
-            if (ASR::is_a<ASR::Function_t>(*item.second)) {
-                self().visit_symbol(*item.second);
-                unit_src += src;
-            }
-        }
-
-        // Then do all the modules in the right order
-        std::vector<std::string> build_order
-            = ASRUtils::determine_module_dependencies(x);
-        for (auto &item : build_order) {
-            LCOMPILERS_ASSERT(x.m_global_scope->get_scope().find(item)
-                != x.m_global_scope->get_scope().end());
-            if (!startswith(item, "lfortran_intrinsic")) {
-                ASR::symbol_t *mod = x.m_global_scope->get_symbol(item);
-                self().visit_symbol(*mod);
-                unit_src += src;
-            }
-        }
-
-        // Then the main program:
-        for (auto &item : x.m_global_scope->get_scope()) {
-            if (ASR::is_a<ASR::Program_t>(*item.second)) {
-                self().visit_symbol(*item.second);
-                unit_src += src;
-            }
-        }
-
-        src = unit_src;
-    }
-
-    void visit_Module(const ASR::Module_t &x) {
-        if (startswith(x.m_name, "lfortran_intrinsic_")) {
-            intrinsic_module = true;
-        } else {
-            intrinsic_module = false;
-        }
-
-        std::string contains;
-
-        // Declare the global variables that are imported from the module
-        std::vector<std::string> var_order = ASRUtils::determine_variable_declaration_order(x.m_symtab);
-        for (auto &item : var_order) {
-            ASR::symbol_t* var_sym = x.m_symtab->get_symbol(item);
-            if (ASR::is_a<ASR::Variable_t>(*var_sym)) {
-                ASR::Variable_t *v = ASR::down_cast<ASR::Variable_t>(var_sym);
-                std::string decl = self().convert_variable_decl(*v);
-                bool used_define_for_const = (ASR::is_a<ASR::Const_t>(*v->m_type) &&
-                        v->m_intent == ASRUtils::intent_local);
-                if (used_define_for_const) {
-                    contains += decl + "\n";
-                    continue;
-                }
-                if (v->m_value) {
-                    self().visit_expr(*v->m_value);
-                    decl += " = " + src;
-                }
-                decl += ";\n\n";
-                contains += decl;
-            }
-        }
-
-        // Topologically sort all module functions
-        // and then define them in the right order
-        std::vector<std::string> func_order = ASRUtils::determine_function_definition_order(x.m_symtab);
-
-        // Generate the bodies of subroutines
-        for (auto &item : func_order) {
-            ASR::symbol_t* sym = x.m_symtab->get_symbol(item);
-            if( !sym ) {
-                continue ;
-            }
-            ASR::Function_t *s = ASR::down_cast<ASR::Function_t>(sym);
-            self().visit_Function(*s);
-            contains += src;
-        }
-
-        src = contains;
-        intrinsic_module = false;
-    }
-
-    void visit_Program(const ASR::Program_t &x) {
-        // Generate code for nested subroutines and functions first:
-        SymbolTable* current_scope_copy = current_scope;
-        current_scope = x.m_symtab;
-        std::string contains;
-        for (auto &item : x.m_symtab->get_scope()) {
-            if (ASR::is_a<ASR::Function_t>(*item.second)) {
-                ASR::Function_t *s = ASR::down_cast<ASR::Function_t>(item.second);
-                visit_Function(*s);
-                contains += src;
-            }
-        }
-
-        // Generate code for the main program
-        indentation_level += 1;
-        std::string indent1(indentation_level*indentation_spaces, ' ');
-        indentation_level += 1;
-        std::string indent(indentation_level*indentation_spaces, ' ');
-        std::string decl;
-        std::vector<std::string> var_order = ASRUtils::determine_variable_declaration_order(x.m_symtab);
-        for (auto &item : var_order) {
-            ASR::symbol_t* var_sym = x.m_symtab->get_symbol(item);
-            if (ASR::is_a<ASR::Variable_t>(*var_sym)) {
-                ASR::Variable_t *v = ASR::down_cast<ASR::Variable_t>(var_sym);
-                decl += self().convert_variable_decl(*v);
-                if( !ASR::is_a<ASR::Const_t>(*v->m_type) ||
-                    v->m_intent == ASRUtils::intent_return_var ) {
-                    decl += ";\n";
-                }
-            }
-        }
-
-        std::string body;
-        for (size_t i=0; i<x.n_body; i++) {
-            self().visit_stmt(*x.m_body[i]);
-            body += src;
-        }
-
-        src = contains
-                + "int main(int argc, char* argv[])\n{\n"
-                + decl + body
-                + indent1 + "return 0;\n}\n";
-        indentation_level -= 2;
-        current_scope = current_scope_copy;
-    }
-
-    void visit_BlockCall(const ASR::BlockCall_t &x) {
-        LCOMPILERS_ASSERT(ASR::is_a<ASR::Block_t>(*x.m_m));
-        ASR::Block_t* block = ASR::down_cast<ASR::Block_t>(x.m_m);
-        std::string decl, body;
-        std::string indent(indentation_level*indentation_spaces, ' ');
-        std::string open_paranthesis = indent + "{\n";
-        std::string close_paranthesis = indent + "}\n";
-        indent += std::string(indentation_spaces, ' ');
-        indentation_level += 1;
-        std::vector<std::string> var_order = ASRUtils::determine_variable_declaration_order(block->m_symtab);
-        for (auto &item : var_order) {
-            ASR::symbol_t* var_sym = block->m_symtab->get_symbol(item);
-            if (ASR::is_a<ASR::Variable_t>(*var_sym)) {
-                ASR::Variable_t *v = ASR::down_cast<ASR::Variable_t>(var_sym);
-                decl += indent + self().convert_variable_decl(*v);
-                if( !ASR::is_a<ASR::Const_t>(*v->m_type) ||
-                    v->m_intent == ASRUtils::intent_return_var ) {
-                    decl += ";\n";
-                }
-            }
-        }
-        for (size_t i=0; i<block->n_body; i++) {
-            self().visit_stmt(*block->m_body[i]);
-            body += src;
-        }
-        src = open_paranthesis + decl + body + close_paranthesis;
-        indentation_level -= 1;
-    }
-
-    // Returns the declaration, no semi colon at the end
-    std::string get_function_declaration(const ASR::Function_t &x) {
-        template_for_Kokkos.clear();
-        template_number = 0;
-        std::string sub, inl, static_attr;
-        if (ASRUtils::get_FunctionType(x)->m_inline) {
-            inl = "inline __attribute__((always_inline)) ";
-        }
-        if( ASRUtils::get_FunctionType(x)->m_static ) {
-            static_attr = "static ";
-        }
-        if (x.m_return_var) {
-            ASR::Variable_t *return_var = ASRUtils::EXPR2VAR(x.m_return_var);
-            if (ASRUtils::is_integer(*return_var->m_type)) {
-                int kind = ASR::down_cast<ASR::Integer_t>(return_var->m_type)->m_kind;
-                switch (kind) {
-                    case (1) : sub = "int8_t "; break;
-                    case (2) : sub = "int16_t "; break;
-                    case (4) : sub = "int32_t "; break;
-                    case (8) : sub = "int64_t "; break;
-                }
-            } else if (ASRUtils::is_real(*return_var->m_type)) {
-                bool is_float = ASR::down_cast<ASR::Real_t>(return_var->m_type)->m_kind == 4;
-                if (is_float) {
-                    sub = "float ";
-                } else {
-                    sub = "double ";
-                }
-            } else if (ASRUtils::is_logical(*return_var->m_type)) {
-                sub = "bool ";
-            } else if (ASRUtils::is_character(*return_var->m_type)) {
-                if (gen_stdstring) {
-                    sub = "std::string ";
-                } else {
-                    sub = "char* ";
-                }
-            } else if (ASRUtils::is_complex(*return_var->m_type)) {
-                bool is_float = ASR::down_cast<ASR::Complex_t>(return_var->m_type)->m_kind == 4;
-                if (is_float) {
-                    if (gen_stdcomplex) {
-                        sub = "std::complex<float> ";
-                    } else {
-                        sub = "float complex ";
-                    }
-                } else {
-                    if (gen_stdcomplex) {
-                        sub = "std::complex<double> ";
-                    } else {
-                        sub = "double complex ";
-                    }
-                }
-            } else if (ASR::is_a<ASR::CPtr_t>(*return_var->m_type)) {
-                sub = "void* ";
-            } else if (ASR::is_a<ASR::List_t>(*return_var->m_type)) {
-                ASR::List_t* list_type = ASR::down_cast<ASR::List_t>(return_var->m_type);
-                sub = c_ds_api->get_list_type(list_type) + " ";
-            } else if (ASR::is_a<ASR::Tuple_t>(*return_var->m_type)) {
-                ASR::Tuple_t* tup_type = ASR::down_cast<ASR::Tuple_t>(return_var->m_type);
-                sub = c_ds_api->get_tuple_type(tup_type) + " ";
-            } else if (ASR::is_a<ASR::Const_t>(*return_var->m_type)) {
-                ASR::Const_t* const_type = ASR::down_cast<ASR::Const_t>(return_var->m_type);
-                std::string const_type_str = CUtils::get_c_type_from_ttype_t(const_type->m_type);
-                sub = "const " + const_type_str + " ";
-            } else if (ASR::is_a<ASR::Pointer_t>(*return_var->m_type)) {
-                ASR::Pointer_t* ptr_type = ASR::down_cast<ASR::Pointer_t>(return_var->m_type);
-                std::string pointer_type_str = CUtils::get_c_type_from_ttype_t(ptr_type->m_type);
-                sub = pointer_type_str + "*";
-            } else {
-                throw CodeGenError("Return type not supported in function '" +
-                    std::string(x.m_name) +
-                    + "'", return_var->base.base.loc);
-            }
-        } else {
-            sub = "void ";
-        }
-        std::string sym_name = x.m_name;
-        if (sym_name == "main") {
-            sym_name = "_xx_lcompilers_changed_main_xx";
-        }
-        if (sym_name == "exit") {
-            sym_name = "_xx_lcompilers_changed_exit_xx";
-        }
-        std::string func = static_attr + inl + sub + sym_name + "(";
-        for (size_t i=0; i<x.n_args; i++) {
-            ASR::Variable_t *arg = ASRUtils::EXPR2VAR(x.m_args[i]);
-            LCOMPILERS_ASSERT(ASRUtils::is_arg_dummy(arg->m_intent));
-            if( is_c ) {
-                CDeclarationOptions c_decl_options;
-                c_decl_options.pre_initialise_derived_type = false;
-                func += self().convert_variable_decl(*arg, &c_decl_options);
-            } else {
-                CPPDeclarationOptions cpp_decl_options;
-                cpp_decl_options.use_static = false;
-                cpp_decl_options.use_templates_for_arrays = true;
-                func += self().convert_variable_decl(*arg, &cpp_decl_options);
-            }
-            if (i < x.n_args-1) func += ", ";
-        }
-        func += ")";
-        if( is_c || template_for_Kokkos.empty() ) {
-            return func;
-        }
-
-        template_for_Kokkos.pop_back();
-        template_for_Kokkos.pop_back();
-        return "\ntemplate <" + template_for_Kokkos + ">\n" + func;
-    }
-
-    std::string declare_all_functions(const SymbolTable &scope) {
-        std::string code;
-        for (auto &item : scope.get_scope()) {
-            if (ASR::is_a<ASR::Function_t>(*item.second)) {
-                ASR::Function_t *s = ASR::down_cast<ASR::Function_t>(item.second);
-                code += get_function_declaration(*s) + ";\n";
-            }
-        }
-        return code;
-    }
-
-    void visit_Function(const ASR::Function_t &x) {
-        current_body = "";
-        SymbolTable* current_scope_copy = current_scope;
-        current_scope = x.m_symtab;
-        if (std::string(x.m_name) == "size" && intrinsic_module ) {
-            // Intrinsic function `size`
-            SymbolInfo s;
-            s.intrinsic_function = true;
-            sym_info[get_hash((ASR::asr_t*)&x)] = s;
-            src = "";
-            return;
-        } else if ((
-                std::string(x.m_name) == "int" ||
-                std::string(x.m_name) == "char" ||
-                std::string(x.m_name) == "present" ||
-                std::string(x.m_name) == "len" ||
-                std::string(x.m_name) == "not"
-                ) && intrinsic_module) {
-            // Intrinsic function `int`
-            SymbolInfo s;
-            s.intrinsic_function = true;
-            sym_info[get_hash((ASR::asr_t*)&x)] = s;
-            src = "";
-            return;
-        } else {
-            SymbolInfo s;
-            s.intrinsic_function = false;
-            sym_info[get_hash((ASR::asr_t*)&x)] = s;
-        }
-        std::string sub = get_function_declaration(x);
-        if (ASRUtils::get_FunctionType(x)->m_abi == ASR::abiType::BindC
-            && ASRUtils::get_FunctionType(x)->m_deftype == ASR::deftypeType::Interface) {
-            sub += ";\n";
-        } else {
-            sub += "\n";
-
-            indentation_level += 1;
-            std::string indent(indentation_level*indentation_spaces, ' ');
-            std::string decl;
-            std::vector<std::string> var_order = ASRUtils::determine_variable_declaration_order(x.m_symtab);
-            bool has_typevar = false;
-            for (auto &item : var_order) {
-                ASR::symbol_t* var_sym = x.m_symtab->get_symbol(item);
-                if (ASR::is_a<ASR::Variable_t>(*var_sym)) {
-                    ASR::Variable_t *v = ASR::down_cast<ASR::Variable_t>(var_sym);
-                    if (v->m_intent == ASRUtils::intent_local ||
-                        v->m_intent == ASRUtils::intent_return_var) {
-                        decl += indent + self().convert_variable_decl(*v);
-                        if( !ASR::is_a<ASR::Const_t>(*v->m_type) ||
-                            v->m_intent == ASRUtils::intent_return_var ) {
-                            decl += ";\n";
-                        }
-                    }
-                    if (ASR::is_a<ASR::TypeParameter_t>(*v->m_type)) {
-                        has_typevar = true;
-                        break;
-                    }
-                }
-            }
-            if (has_typevar) {
-                indentation_level -= 1;
-                src = "";
-                return;
-            }
-
-            current_function = &x;
-
-            for (size_t i=0; i<x.n_body; i++) {
-                self().visit_stmt(*x.m_body[i]);
-                current_body += src;
-            }
-            current_function = nullptr;
-            bool visited_return = false;
-
-            if (x.n_body > 0 && ASR::is_a<ASR::Return_t>(*x.m_body[x.n_body-1])) {
-                visited_return = true;
-            }
-
-            if (!visited_return && x.m_return_var) {
-                current_body += indent + "return "
-                    + ASRUtils::EXPR2VAR(x.m_return_var)->m_name
-                    + ";\n";
-            }
-
-            if (decl.size() > 0 || current_body.size() > 0) {
-                sub += "{\n" + decl + current_body + "}\n";
-            } else {
-                sub[sub.size()-1] = ';';
-                sub += "\n";
-            }
-            indentation_level -= 1;
-        }
-        sub += "\n";
-        src = sub;
-        current_scope = current_scope_copy;
-    }
-
-    void visit_FunctionCall(const ASR::FunctionCall_t &x) {
-        ASR::Function_t *fn = ASR::down_cast<ASR::Function_t>(
-            ASRUtils::symbol_get_past_external(x.m_name));
-        std::string fn_name = fn->m_name;
-        if (sym_info[get_hash((ASR::asr_t*)fn)].intrinsic_function) {
-            if (fn_name == "size") {
-                LCOMPILERS_ASSERT(x.n_args > 0);
-                self().visit_expr(*x.m_args[0].m_value);
-                std::string var_name = src;
-                std::string args;
-                if (x.n_args == 1) {
-                    args = "0";
-                } else {
-                    for (size_t i=1; i<x.n_args; i++) {
-                        self().visit_expr(*x.m_args[i].m_value);
-                        args += src + "-1";
-                        if (i < x.n_args-1) args += ", ";
-                    }
-                }
-                src = var_name + ".extent(" + args + ")";
-            } else if (fn_name == "int") {
-                LCOMPILERS_ASSERT(x.n_args > 0);
-                self().visit_expr(*x.m_args[0].m_value);
-                src = "(int)" + src;
-            } else if (fn_name == "not") {
-                LCOMPILERS_ASSERT(x.n_args > 0);
-                self().visit_expr(*x.m_args[0].m_value);
-                src = "!(" + src + ")";
-            } else {
-                throw CodeGenError("Intrinsic function '" + fn_name
-                        + "' not implemented");
-            }
-        } else {
-            std::string args;
-            for (size_t i=0; i<x.n_args; i++) {
-                self().visit_expr(*x.m_args[i].m_value);
-                args += src;
-                if (i < x.n_args-1) args += ", ";
-            }
-            src = fn_name + "(" + args + ")";
-        }
-        last_expr_precedence = 2;
-        if( ASR::is_a<ASR::List_t>(*x.m_type) ) {
-            ASR::List_t* list_type = ASR::down_cast<ASR::List_t>(x.m_type);
-            const_name += std::to_string(const_vars_count);
-            const_vars_count += 1;
-            const_name = current_scope->get_unique_name(const_name);
-            std::string indent(indentation_level*indentation_spaces, ' ');
-            current_body += indent + c_ds_api->get_list_type(list_type) + " " +
-                                const_name + " = " + src + ";\n";
-            src = const_name;
-        }
-    }
-
-    void visit_SizeOfType(const ASR::SizeOfType_t& x) {
-        std::string c_type = CUtils::get_c_type_from_ttype_t(x.m_arg);
-        src = "sizeof(" + c_type + ")";
-    }
-
-    void visit_StringSection(const ASR::StringSection_t& x) {
-        self().visit_expr(*x.m_arg);
-        std::string arg, left, right, step, left_present, rig_present;
-        arg = src;
-        if (x.m_start) {
-            self().visit_expr(*x.m_start);
-            left = src;
-            left_present = "true";
-        } else {
-            left = "0";
-            left_present = "false";
-        }
-        if (x.m_end) {
-            self().visit_expr(*x.m_end);
-            right = src;
-            rig_present = "true";
-        } else {
-            right = "0";
-            rig_present = "false";
-        }
-        if (x.m_step) {
-            self().visit_expr(*x.m_step);
-            step = src;
-        } else {
-            step = "1";
-        }
-        src = "_lfortran_str_slice(" + arg + ", " + left + ", " + right + ", " + \
-                    step + ", " + left_present + ", " + rig_present + ")";
-    }
-
-    void visit_StringChr(const ASR::StringChr_t& x) {
-        self().visit_expr(*x.m_arg);
-        src = "_lfortran_str_chr(" + src + ")";
-    }
-
-    void visit_StringOrd(const ASR::StringOrd_t& x) {
-        self().visit_expr(*x.m_arg);
-        if (ASR::is_a<ASR::StringConstant_t>(*x.m_arg)) {
-            src = "(int)" + src + "[0]";
-        } else {
-            src = "_lfortran_str_ord_c(" + src + ")";
-        }
-    }
-
-    void visit_StringRepeat(const ASR::StringRepeat_t &x) {
-        self().visit_expr(*x.m_left);
-        std::string s = src;
-        self().visit_expr(*x.m_right);
-        std::string n = src;
-        src = "_lfortran_strrepeat_c(" + s + ", " + n + ")";
-    }
-
-    void visit_Assignment(const ASR::Assignment_t &x) {
-        std::string target;
-        ASR::ttype_t* m_target_type = ASRUtils::expr_type(x.m_target);
-        if( ASR::is_a<ASR::Const_t>(*m_target_type) ) {
-            src = "";
-            return ;
-        }
-        ASR::ttype_t* m_value_type = ASRUtils::expr_type(x.m_value);
-        bool is_target_list = ASR::is_a<ASR::List_t>(*m_target_type);
-        bool is_value_list = ASR::is_a<ASR::List_t>(*m_value_type);
-        bool is_target_tup = ASR::is_a<ASR::Tuple_t>(*m_target_type);
-        bool is_value_tup = ASR::is_a<ASR::Tuple_t>(*m_value_type);
-        bool alloc_return_var = false;
-        std::string indent(indentation_level*indentation_spaces, ' ');
-        if (ASR::is_a<ASR::Var_t>(*x.m_target)) {
-            ASR::Var_t* x_m_target = ASR::down_cast<ASR::Var_t>(x.m_target);
-            visit_Var(*x_m_target);
-            target = src;
-            if (!is_c && ASRUtils::is_array(ASRUtils::expr_type(x.m_target))) {
-                target += "->data";
-            }
-            if (target == "_lpython_return_variable" && ASRUtils::is_character(*m_target_type)) {
-                // ASR assigns return variable only once at the end of function
-                alloc_return_var = true;
-            }
-        } else if (ASR::is_a<ASR::ArrayItem_t>(*x.m_target)) {
-            self().visit_ArrayItem(*ASR::down_cast<ASR::ArrayItem_t>(x.m_target));
-            target = src;
-        } else if (ASR::is_a<ASR::StructInstanceMember_t>(*x.m_target)) {
-            visit_StructInstanceMember(*ASR::down_cast<ASR::StructInstanceMember_t>(x.m_target));
-            target = src;
-        } else if (ASR::is_a<ASR::UnionInstanceMember_t>(*x.m_target)) {
-            visit_UnionInstanceMember(*ASR::down_cast<ASR::UnionInstanceMember_t>(x.m_target));
-            target = src;
-        } else if (ASR::is_a<ASR::ListItem_t>(*x.m_target)) {
-            self().visit_ListItem(*ASR::down_cast<ASR::ListItem_t>(x.m_target));
-            target = src;
-        } else if (ASR::is_a<ASR::TupleItem_t>(*x.m_target)) {
-            self().visit_TupleItem(*ASR::down_cast<ASR::TupleItem_t>(x.m_target));
-            target = src;
-        } else if (ASR::is_a<ASR::TupleConstant_t>(*x.m_target)) {
-            ASR::TupleConstant_t *tup_c = ASR::down_cast<ASR::TupleConstant_t>(x.m_target);
-            std::string src_tmp = "", val_name = "";
-            if (ASR::is_a<ASR::TupleConstant_t>(*x.m_value)) {
-                ASR::TupleConstant_t *tup_const = ASR::down_cast<ASR::TupleConstant_t>(x.m_value);
-                self().visit_TupleConstant(*tup_const);
-                val_name = const_var_names[get_hash((ASR::asr_t*)tup_const)];
-                src_tmp += src;
-            } else if (ASR::is_a<ASR::FunctionCall_t>(*x.m_value)) {
-                self().visit_FunctionCall(*ASR::down_cast<ASR::FunctionCall_t>(x.m_value));
-                ASR::Tuple_t* t = ASR::down_cast<ASR::Tuple_t>(tup_c->m_type);
-                std::string tuple_type_c = c_ds_api->get_tuple_type(t);
-                const_name += std::to_string(const_vars_count);
-                const_vars_count += 1;
-                const_name = current_scope->get_unique_name(const_name);
-                src_tmp += indent + tuple_type_c + " " + const_name + " = " + src + ";\n";
-                val_name = const_name;
-            } else {
-                visit_Var(*ASR::down_cast<ASR::Var_t>(x.m_value));
-                val_name = src;
-            }
-            for (size_t i=0; i<tup_c->n_elements; i++) {
-                self().visit_expr(*tup_c->m_elements[i]);
-                ASR::ttype_t *t = ASRUtils::expr_type(tup_c->m_elements[i]);
-                src_tmp += indent + c_ds_api->get_deepcopy(t,
-                        val_name + ".element_" + std::to_string(i), src) + "\n";
-            }
-            src = src_tmp;
-            return;
-        } else {
-            LCOMPILERS_ASSERT(false)
-        }
-        from_std_vector_helper.clear();
-        if( ASR::is_a<ASR::UnionTypeConstructor_t>(*x.m_value) ) {
-            src = "";
-            return ;
-        }
-        self().visit_expr(*x.m_value);
-        std::string value = src;
-        ASR::ttype_t* value_type = ASRUtils::expr_type(x.m_value);
-        if( ASR::is_a<ASR::Struct_t>(*value_type) ) {
-             if (ASR::is_a<ASR::ArrayItem_t>(*x.m_value) ||
-                 ASR::is_a<ASR::StructInstanceMember_t>(*x.m_value) ||
-                 ASR::is_a<ASR::UnionInstanceMember_t>(*x.m_value)) {
-                 value = "&" + value;
-             }
-        }
-        if( ASR::is_a<ASR::Struct_t>(*m_target_type) ) {
-             if (ASR::is_a<ASR::ArrayItem_t>(*x.m_target) ||
-                 ASR::is_a<ASR::StructInstanceMember_t>(*x.m_target) ||
-                 ASR::is_a<ASR::UnionInstanceMember_t>(*x.m_target)) {
-                 target = "&" + target;
-             }
-        }
-        if( !from_std_vector_helper.empty() ) {
-            src = from_std_vector_helper;
-        } else {
-            src.clear();
-        }
-        if( is_target_list && is_value_list ) {
-            ASR::List_t* list_target = ASR::down_cast<ASR::List_t>(ASRUtils::expr_type(x.m_target));
-            std::string list_dc_func = c_ds_api->get_list_deepcopy_func(list_target);
-            if( ASR::is_a<ASR::ListConstant_t>(*x.m_value) ) {
-                src += value;
-                ASR::ListConstant_t *l_const = ASR::down_cast<ASR::ListConstant_t>(x.m_value);
-                std::string var_name = const_var_names[get_hash((ASR::asr_t*)l_const)];
-                src += indent + list_dc_func + "(&" + var_name + ", &" + target + ");\n\n";
-            } else if (ASR::is_a<ASR::ListConcat_t>(*x.m_value)) {
-                src += indent + list_dc_func + "(" + value + ", &" + target + ");\n\n";
-            } else if (ASR::is_a<ASR::ListSection_t>(*x.m_value)) {
-                src += value;
-                ASR::ListSection_t *l_sec = ASR::down_cast<ASR::ListSection_t>(x.m_value);
-                std::string var_name = const_var_names[get_hash((ASR::asr_t*)l_sec)];
-                src += indent + list_dc_func + "(" + var_name + ", &" + target + ");\n\n";
-            } else {
-                src += indent + list_dc_func + "(&" + value + ", &" + target + ");\n\n";
-            }
-        } else if ( is_target_tup && is_value_tup ) {
-            ASR::Tuple_t* tup_target = ASR::down_cast<ASR::Tuple_t>(ASRUtils::expr_type(x.m_target));
-            std::string dc_func = c_ds_api->get_tuple_deepcopy_func(tup_target);
-            if( ASR::is_a<ASR::TupleConstant_t>(*x.m_value) ) {
-                src += value;
-                src += indent + dc_func + "(" + const_name + ", &" + target + ");\n";
-            } else {
-                src += indent + dc_func + "(" + value + ", &" + target + ");\n";
-            }
-        } else {
-            if( is_c ) {
-                std::string alloc = "";
-                if (alloc_return_var) {
-                    // char * return variable;
-                     alloc = indent + target + " = NULL;\n";
-                }
-                if( ASRUtils::is_array(m_target_type) && ASRUtils::is_array(m_value_type) ) {
-                    ASR::dimension_t* m_target_dims = nullptr;
-                    size_t n_target_dims = ASRUtils::extract_dimensions_from_ttype(m_target_type, m_target_dims);
-                    ASR::dimension_t* m_value_dims = nullptr;
-                    size_t n_value_dims = ASRUtils::extract_dimensions_from_ttype(m_value_type, m_value_dims);
-                    bool is_target_data_only_array = ASRUtils::is_fixed_size_array(m_target_dims, n_target_dims) &&
-                                                     ASR::is_a<ASR::StructType_t>(*ASRUtils::get_asr_owner(x.m_target));
-                    bool is_value_data_only_array = ASRUtils::is_fixed_size_array(m_value_dims, n_value_dims) &&
-                                                    ASR::is_a<ASR::StructType_t>(*ASRUtils::get_asr_owner(x.m_value));
-                    if( is_target_data_only_array || is_value_data_only_array ) {
-                        int64_t target_size = -1, value_size = -1;
-                        if( !is_target_data_only_array ) {
-                            target = target + "->data";
-                        } else {
-                            target_size = ASRUtils::get_fixed_size_of_array(m_target_dims, n_target_dims);
-                        }
-                        if( !is_value_data_only_array ) {
-                            value = value + "->data";
-                        } else {
-                            value_size = ASRUtils::get_fixed_size_of_array(m_value_dims, n_value_dims);
-                        }
-                        if( target_size != -1 && value_size != -1 ) {
-                            LCOMPILERS_ASSERT(target_size == value_size);
-                        }
-                        int64_t array_size = -1;
-                        if( target_size != -1 ) {
-                            array_size = target_size;
-                        } else {
-                            array_size = value_size;
-                        }
-                        src += indent + "memcpy(" + target + ", " + value + ", " + std::to_string(array_size) + "*sizeof(" +
-                                    CUtils::get_c_type_from_ttype_t(m_target_type) + "));\n";
-                    } else {
-                        src += alloc + indent + c_ds_api->get_deepcopy(m_target_type, value, target) + "\n";
-                    }
-                } else {
-                    src += alloc + indent + c_ds_api->get_deepcopy(m_target_type, value, target) + "\n";
-                }
-            } else {
-                src += indent + c_ds_api->get_deepcopy(m_target_type, value, target) + "\n";
-            }
-        }
-        from_std_vector_helper.clear();
-    }
-
-    void visit_IntegerConstant(const ASR::IntegerConstant_t &x) {
-        src = std::to_string(x.m_n);
-        last_expr_precedence = 2;
-    }
-
-    void visit_RealConstant(const ASR::RealConstant_t &x) {
-        // TODO: remove extra spaces from the front of double_to_scientific result
-        src = double_to_scientific(x.m_r);
-        last_expr_precedence = 2;
-    }
-
-
-    void visit_StringConstant(const ASR::StringConstant_t &x) {
-        src = "\"";
-        std::string s = x.m_s;
-        for (size_t idx=0; idx < s.size(); idx++) {
-            if (s[idx] == '\n') {
-                src += "\\n";
-            } else if (s[idx] == '\\') {
-                src += "\\";
-            } else if (s[idx] == '\"') {
-                src += "\"";
-            } else {
-                src += s[idx];
-            }
-        }
-        src += "\"";
-        last_expr_precedence = 2;
-    }
-
-    void visit_StringConcat(const ASR::StringConcat_t& x) {
-        is_string_concat_present = true;
-        if( x.m_value ) {
-            self().visit_expr(*x.m_value);
-            return ;
-        }
-        self().visit_expr(*x.m_left);
-        std::string left = std::move(src);
-        self().visit_expr(*x.m_right);
-        std::string right = std::move(src);
-        if( is_c ) {
-            src = "strcat_(" + left + ", " + right +")";
-        } else {
-            src = left + " + " + right;
-        }
-    }
-
-    void visit_ListConstant(const ASR::ListConstant_t& x) {
-        std::string indent(indentation_level * indentation_spaces, ' ');
-        std::string tab(indentation_spaces, ' ');
-        const_name += std::to_string(const_vars_count);
-        const_vars_count += 1;
-        const_name = current_scope->get_unique_name(const_name);
-        std::string var_name = const_name;
-        const_var_names[get_hash((ASR::asr_t*)&x)] = var_name;
-        ASR::List_t* t = ASR::down_cast<ASR::List_t>(x.m_type);
-        std::string list_type_c = c_ds_api->get_list_type(t);
-        std::string src_tmp = "";
-        src_tmp += indent + list_type_c + " " + var_name + ";\n";
-        std::string list_init_func = c_ds_api->get_list_init_func(t);
-        src_tmp += indent + list_init_func + "(&" + var_name + ", " +
-               std::to_string(x.n_args) + ");\n";
-        for( size_t i = 0; i < x.n_args; i++ ) {
-            self().visit_expr(*x.m_args[i]);
-            if( ASR::is_a<ASR::Character_t>(*t->m_type) ) {
-                src_tmp += indent + var_name + ".data[" + std::to_string(i) +"] = NULL;\n";
-            }
-            if (ASR::is_a<ASR::ListConstant_t>(*x.m_args[i]) ||
-                    ASR::is_a<ASR::TupleConstant_t>(*x.m_args[i])) {
-                src_tmp += src;
-                src = const_var_names[get_hash((ASR::asr_t*)x.m_args[i])];
-            }
-            src_tmp += indent + c_ds_api->get_deepcopy(t->m_type, src,
-                        var_name + ".data[" + std::to_string(i) +"]") + "\n";
-        }
-        src_tmp += indent + var_name + ".current_end_point = " + std::to_string(x.n_args) + ";\n";
-        src = src_tmp;
-    }
-
-    void visit_TupleConstant(const ASR::TupleConstant_t& x) {
-        std::string indent(indentation_level * indentation_spaces, ' ');
-        std::string tab(indentation_spaces, ' ');
-        const_name += std::to_string(const_vars_count);
-        const_vars_count += 1;
-        const_name = current_scope->get_unique_name(const_name);
-        std::string var_name = const_name;
-        const_var_names[get_hash((ASR::asr_t*)&x)] = var_name;
-        ASR::Tuple_t* t = ASR::down_cast<ASR::Tuple_t>(x.m_type);
-        std::string tuple_type_c = c_ds_api->get_tuple_type(t);
-        std::string src_tmp = "";
-        src_tmp += indent + tuple_type_c + " " + var_name + ";\n";
-        for (size_t i = 0; i < x.n_elements; i++) {
-            self().visit_expr(*x.m_elements[i]);
-            std::string ele = ".element_" + std::to_string(i);
-            if (ASR::is_a<ASR::Character_t>(*t->m_type[i])) {
-                src_tmp += indent + var_name + ele + " = NULL;\n";
-            }
-            src_tmp += indent + c_ds_api->get_deepcopy(t->m_type[i], src, var_name + ele) + "\n";
-        }
-        src_tmp += indent + var_name + ".length" + " = " + std::to_string(x.n_elements) + ";\n";
-        src = src_tmp;
-    }
-
-    void visit_TupleCompare(const ASR::TupleCompare_t& x) {
-        ASR::ttype_t* type = ASRUtils::expr_type(x.m_left);
-        std::string tup_cmp_func = c_ds_api->get_compare_func(type);
-        self().visit_expr(*x.m_left);
-        std::string left = std::move(src);
-        self().visit_expr(*x.m_right);
-        std::string right = std::move(src);
-        std::string indent(indentation_level * indentation_spaces, ' ');
-        src = tup_cmp_func + "(" + left + ", " + right + ")";
-        if (x.m_op == ASR::cmpopType::NotEq) {
-            src = "!" + src;
-        }
-    }
-
-    void visit_ListAppend(const ASR::ListAppend_t& x) {
-        ASR::ttype_t* t_ttype = ASRUtils::expr_type(x.m_a);
-        ASR::List_t* t = ASR::down_cast<ASR::List_t>(t_ttype);
-        std::string list_append_func = c_ds_api->get_list_append_func(t);
-        self().visit_expr(*x.m_a);
-        std::string list_var = std::move(src);
-        self().visit_expr(*x.m_ele);
-        std::string element = std::move(src);
-        std::string indent(indentation_level * indentation_spaces, ' ');
-        src = indent + list_append_func + "(&" + list_var + ", " + element + ");\n";
-    }
-
-    void visit_ListConcat(const ASR::ListConcat_t& x) {
-        ASR::List_t* t = ASR::down_cast<ASR::List_t>(x.m_type);
-        std::string list_concat_func = c_ds_api->get_list_concat_func(t);
-        self().visit_expr(*x.m_left);
-        std::string left = std::move(src);
-        if (!ASR::is_a<ASR::ListConcat_t>(*x.m_left)) {
-            left = "&" + left;
-        }
-        self().visit_expr(*x.m_right);
-        std::string rig = std::move(src);
-        if (!ASR::is_a<ASR::ListConcat_t>(*x.m_right)) {
-            rig = "&" + rig;
-        }
-        std::string indent(indentation_level * indentation_spaces, ' ');
-        src = list_concat_func + "(" + left + ", " + rig + ")";
-    }
-
-    void visit_ListSection(const ASR::ListSection_t& x) {
-        std::string left, right, step, l_present, r_present;
-        if (x.m_section.m_left) {
-            self().visit_expr(*x.m_section.m_left);
-            left = src;
-            l_present = "true";
-        } else {
-            left = "0";
-            l_present = "false";
-        }
-        if (x.m_section.m_right) {
-            self().visit_expr(*x.m_section.m_right);
-            right = src;
-            r_present = "true";
-        } else {
-            right = "0";
-            r_present = "false";
-        }
-        if (x.m_section.m_step) {
-            self().visit_expr(*x.m_section.m_step);
-            step = src;
-        } else {
-            step = "1";
-        }
-        self().visit_expr(*x.m_a);
-
-        ASR::ttype_t* t_ttype = ASRUtils::expr_type(x.m_a);
-        ASR::List_t* t = ASR::down_cast<ASR::List_t>(t_ttype);
-        std::string list_var = std::move(src);
-        std::string list_type_c = c_ds_api->get_list_type(t);
-        std::string list_section_func = c_ds_api->get_list_section_func(t);
-        std::string indent(indentation_level * indentation_spaces, ' ');
-        const_name += std::to_string(const_vars_count);
-        const_vars_count += 1;
-        const_name = current_scope->get_unique_name(const_name);
-        std::string var_name = const_name, tmp_src_gen = "";
-        tmp_src_gen = indent + list_type_c + "* " + var_name + " = ";
-        tmp_src_gen += list_section_func + "(&" + list_var + ", " + left + ", " +
-            right + ", " + step + ", " + l_present + ", " + r_present + ");\n";
-        const_var_names[get_hash((ASR::asr_t*)&x)] = var_name;
-        src = tmp_src_gen;
-    }
-
-    void visit_ListClear(const ASR::ListClear_t& x) {
-        ASR::ttype_t* t_ttype = ASRUtils::expr_type(x.m_a);
-        ASR::List_t* t = ASR::down_cast<ASR::List_t>(t_ttype);
-        std::string list_clear_func = c_ds_api->get_list_clear_func(t);
-        self().visit_expr(*x.m_a);
-        std::string list_var = std::move(src);
-        std::string indent(indentation_level * indentation_spaces, ' ');
-        src = indent + list_clear_func + "(&" + list_var + ");\n";
-    }
-
-    void visit_ListCompare(const ASR::ListCompare_t& x) {
-        ASR::ttype_t* type = ASRUtils::expr_type(x.m_left);
-        std::string list_cmp_func = c_ds_api->get_compare_func(type);
-        self().visit_expr(*x.m_left);
-        std::string left = std::move(src);
-        self().visit_expr(*x.m_right);
-        std::string right = std::move(src), tmp_gen="";
-        std::string indent(indentation_level * indentation_spaces, ' ');
-        if (ASR::is_a<ASR::ListConstant_t>(*x.m_left) ) {
-            tmp_gen += left;
-            ASR::ListConstant_t *l_const = ASR::down_cast<ASR::ListConstant_t>(x.m_left);
-            left = const_var_names[get_hash((ASR::asr_t*)l_const)];
-        } else if (ASR::is_a<ASR::ListSection_t>(*x.m_left)) {
-            tmp_gen += left;
-            ASR::ListSection_t *l_sec = ASR::down_cast<ASR::ListSection_t>(x.m_left);
-            left = "*" + const_var_names[get_hash((ASR::asr_t*)l_sec)];
-        }
-
-        if (ASR::is_a<ASR::ListConstant_t>(*x.m_right) ) {
-            tmp_gen += right;
-            ASR::ListConstant_t *l_const = ASR::down_cast<ASR::ListConstant_t>(x.m_right);
-            right = const_var_names[get_hash((ASR::asr_t*)l_const)];
-        } else if (ASR::is_a<ASR::ListSection_t>(*x.m_right)) {
-            tmp_gen += right;
-            ASR::ListSection_t *l_sec = ASR::down_cast<ASR::ListSection_t>(x.m_right);
-            right = "*" + const_var_names[get_hash((ASR::asr_t*)l_sec)];
-        }
-        std::string val = list_cmp_func + "(" + left + ", " + right + ")";
-        if (x.m_op == ASR::cmpopType::NotEq) {
-            val = "!" + val;
-        }
-        src = val;
-        if (tmp_gen.size() > 0) {
-            tmp_src.push_back(tmp_gen);
-        }
-    }
-
-    void visit_ListInsert(const ASR::ListInsert_t& x) {
-        ASR::ttype_t* t_ttype = ASRUtils::expr_type(x.m_a);
-        ASR::List_t* t = ASR::down_cast<ASR::List_t>(t_ttype);
-        std::string list_insert_func = c_ds_api->get_list_insert_func(t);
-        self().visit_expr(*x.m_a);
-        std::string list_var = std::move(src);
-        self().visit_expr(*x.m_ele);
-        std::string element = std::move(src);
-        self().visit_expr(*x.m_pos);
-        std::string pos = std::move(src);
-        std::string indent(indentation_level * indentation_spaces, ' ');
-        src = indent + list_insert_func + "(&" + list_var + ", " + pos + ", " + element + ");\n";
-    }
-
-    void visit_ListRemove(const ASR::ListRemove_t& x) {
-        ASR::ttype_t* t_ttype = ASRUtils::expr_type(x.m_a);
-        ASR::List_t* t = ASR::down_cast<ASR::List_t>(t_ttype);
-        std::string list_remove_func = c_ds_api->get_list_remove_func(t);
-        self().visit_expr(*x.m_a);
-        std::string list_var = std::move(src);
-        self().visit_expr(*x.m_ele);
-        std::string element = std::move(src);
-        std::string indent(indentation_level * indentation_spaces, ' ');
-        src = indent + list_remove_func + "(&" + list_var + ", " + element + ");\n";
-    }
-
-    void visit_ListLen(const ASR::ListLen_t& x) {
-        if( x.m_value ) {
-            self().visit_expr(*x.m_value);
-            return ;
-        }
-        self().visit_expr(*x.m_arg);
-        src = src + ".current_end_point";
-    }
-
-    void visit_TupleLen(const ASR::TupleLen_t& x) {
-        if (x.m_value) {
-            self().visit_expr(*x.m_value);
-            return ;
-        }
-        self().visit_expr(*x.m_arg);
-        src = src + ".length";
-    }
-
-    void visit_ListItem(const ASR::ListItem_t& x) {
-        if( x.m_value ) {
-            self().visit_expr(*x.m_value);
-            return ;
-        }
-        self().visit_expr(*x.m_a);
-        std::string list_var = std::move(src);
-        self().visit_expr(*x.m_pos);
-        std::string pos = std::move(src);
-        // TODO: check for out of bound indices
-        src = list_var + ".data[" + pos + "]";
-    }
-
-    void visit_TupleItem(const ASR::TupleItem_t& x) {
-        if (x.m_value) {
-            self().visit_expr(*x.m_value);
-            return ;
-        }
-        self().visit_expr(*x.m_a);
-        std::string tup_var = std::move(src);
-        ASR::expr_t *pos_val = ASRUtils::expr_value(x.m_pos);
-        if (pos_val == nullptr) {
-            throw CodeGenError("Compile time constant values are supported in Tuple Item yet");
-        }
-        self().visit_expr(*pos_val);
-        std::string pos = std::move(src);
-        // TODO: check for out of bound indices
-        src = tup_var + ".element_" + pos;
-    }
-
-    void visit_LogicalConstant(const ASR::LogicalConstant_t &x) {
-        if (x.m_value == true) {
-            src = "true";
-        } else {
-            src = "false";
-        }
-        last_expr_precedence = 2;
-    }
-
-    void visit_Var(const ASR::Var_t &x) {
-        const ASR::symbol_t *s = ASRUtils::symbol_get_past_external(x.m_v);
-        ASR::Variable_t* sv = ASR::down_cast<ASR::Variable_t>(s);
-        if( (sv->m_intent == ASRUtils::intent_in ||
-            sv->m_intent == ASRUtils::intent_inout) &&
-            is_c && ASRUtils::is_array(sv->m_type) &&
-            ASRUtils::is_pointer(sv->m_type)) {
-            src = "(*" + std::string(ASR::down_cast<ASR::Variable_t>(s)->m_name) + ")";
-        } else {
-            src = std::string(ASR::down_cast<ASR::Variable_t>(s)->m_name);
-        }
-        last_expr_precedence = 2;
-    }
-
-    void visit_StructInstanceMember(const ASR::StructInstanceMember_t& x) {
-        std::string der_expr, member;
-        this->visit_expr(*x.m_v);
-        der_expr = std::move(src);
-        member = ASRUtils::symbol_name(x.m_m);
-        if( ASR::is_a<ASR::ArrayItem_t>(*x.m_v) ||
-            ASR::is_a<ASR::UnionInstanceMember_t>(*x.m_v) ||
-            ASR::is_a<ASR::StructInstanceMember_t>(*x.m_v) ) {
-            src = der_expr + "." + member;
-        } else {
-            src = der_expr + "->" + member;
-        }
-    }
-
-    void visit_UnionInstanceMember(const ASR::UnionInstanceMember_t& x) {
-        std::string der_expr, member;
-        this->visit_expr(*x.m_v);
-        der_expr = std::move(src);
-        member = ASRUtils::symbol_name(x.m_m);
-        src = der_expr + "." + member;
-    }
-
-    void visit_Cast(const ASR::Cast_t &x) {
-        self().visit_expr(*x.m_arg);
-        switch (x.m_kind) {
-            case (ASR::cast_kindType::IntegerToReal) : {
-                int dest_kind = ASRUtils::extract_kind_from_ttype_t(x.m_type);
-                switch (dest_kind) {
-                    case 4: src = "(float)(" + src + ")"; break;
-                    case 8: src = "(double)(" + src + ")"; break;
-                    default: throw CodeGenError("Cast IntegerToReal: Unsupported Kind " + std::to_string(dest_kind));
-                }
-                last_expr_precedence = 2;
-                break;
-            }
-            case (ASR::cast_kindType::RealToInteger) : {
-                int dest_kind = ASRUtils::extract_kind_from_ttype_t(x.m_type);
-                src = "(int" + std::to_string(dest_kind * 8) + "_t)(" + src + ")";
-                last_expr_precedence = 2;
-                break;
-            }
-            case (ASR::cast_kindType::RealToReal) : {
-                // In C++, we do not need to cast float to float explicitly:
-                // src = src;
-                break;
-            }
-            case (ASR::cast_kindType::IntegerToInteger) : {
-                // In C++, we do not need to cast int <-> long long explicitly:
-                // src = src;
-                break;
-            }
-            case (ASR::cast_kindType::ComplexToComplex) : {
-                break;
-            }
-            case (ASR::cast_kindType::IntegerToComplex) : {
-                if (is_c) {
-                    headers.insert("complex");
-                    src = "CMPLX(" + src + ", 0)";
-                } else {
-                    src = "std::complex<double>(" + src + ")";
-                }
-                last_expr_precedence = 2;
-                break;
-            }
-            case (ASR::cast_kindType::ComplexToReal) : {
-                if (is_c) {
-                    headers.insert("complex");
-                    src = "creal(" + src + ")";
-                } else {
-                    src = "std::real(" + src + ")";
-                }
-                last_expr_precedence = 2;
-                break;
-            }
-            case (ASR::cast_kindType::RealToComplex) : {
-                if (is_c) {
-                    headers.insert("complex");
-                    src = "CMPLX(" + src + ", 0.0)";
-                } else {
-                    src = "std::complex<double>(" + src + ")";
-                }
-                last_expr_precedence = 2;
-                break;
-            }
-            case (ASR::cast_kindType::LogicalToInteger) : {
-                src = "(int)(" + src + ")";
-                last_expr_precedence = 2;
-                break;
-            }
-            case (ASR::cast_kindType::LogicalToCharacter) : {
-                src = "(" + src + " ? \"True\" : \"False\")";
-                last_expr_precedence = 2;
-                break;
-            }
-            case (ASR::cast_kindType::IntegerToLogical) : {
-                src = "(bool)(" + src + ")";
-                last_expr_precedence = 2;
-                break;
-            }
-            case (ASR::cast_kindType::LogicalToReal) : {
-                int dest_kind = ASRUtils::extract_kind_from_ttype_t(x.m_type);
-                switch (dest_kind) {
-                    case 4: src = "(float)(" + src + ")"; break;
-                    case 8: src = "(double)(" + src + ")"; break;
-                    default: throw CodeGenError("Cast LogicalToReal: Unsupported Kind " + std::to_string(dest_kind));
-                }
-                last_expr_precedence = 2;
-                break;
-            }
-            case (ASR::cast_kindType::RealToLogical) : {
-                src = "(bool)(" + src + ")";
-                last_expr_precedence = 2;
-                break;
-            }
-            case (ASR::cast_kindType::CharacterToLogical) : {
-                src = "(bool)(strlen(" + src + ") > 0)";
-                last_expr_precedence = 2;
-                break;
-            }
-            case (ASR::cast_kindType::ComplexToLogical) : {
-                src = "(bool)(" + src + ")";
-                last_expr_precedence = 2;
-                break;
-            }
-            case (ASR::cast_kindType::IntegerToCharacter) : {
-                if (is_c) {
-                    ASR::ttype_t *arg_type = ASRUtils::expr_type(x.m_arg);
-                    int arg_kind = ASRUtils::extract_kind_from_ttype_t(arg_type);
-                    switch (arg_kind) {
-                        case 1: src = "_lfortran_int_to_str1(" + src + ")"; break;
-                        case 2: src = "_lfortran_int_to_str2(" + src + ")"; break;
-                        case 4: src = "_lfortran_int_to_str4(" + src + ")"; break;
-                        case 8: src = "_lfortran_int_to_str8(" + src + ")"; break;
-                        default: throw CodeGenError("Cast IntegerToCharacter: Unsupported Kind " + \
-                                        std::to_string(arg_kind));
-                    }
-
-                } else {
-                    src = "std::to_string(" + src + ")";
-                }
-                last_expr_precedence = 2;
-                break;
-            }
-            case (ASR::cast_kindType::CharacterToInteger) : {
-                if (is_c) {
-                    src = "atoi(" + src + ")";
-                } else {
-                    src = "std::stoi(" + src + ")";
-                }
-                last_expr_precedence = 2;
-                break;
-            }
-            case (ASR::cast_kindType::RealToCharacter) : {
-                if (is_c) {
-                    ASR::ttype_t *arg_type = ASRUtils::expr_type(x.m_arg);
-                    int arg_kind = ASRUtils::extract_kind_from_ttype_t(arg_type);
-                    switch (arg_kind) {
-                        case 4: src = "_lfortran_float_to_str4(" + src + ")"; break;
-                        case 8: src = "_lfortran_float_to_str8(" + src + ")"; break;
-                        default: throw CodeGenError("Cast RealToCharacter: Unsupported Kind " + \
-                                        std::to_string(arg_kind));
-                    }
-                } else {
-                    src = "std::to_string(" + src + ")";
-                }
-                last_expr_precedence = 2;
-                break;
-            }
-            default : throw CodeGenError("Cast kind " + std::to_string(x.m_kind) + " not implemented",
-                x.base.base.loc);
-        }
-    }
-
-    void visit_IntegerBitLen(const ASR::IntegerBitLen_t& x) {
-        self().visit_expr(*x.m_a);
-        int arg_kind = ASRUtils::extract_kind_from_ttype_t(x.m_type);
-        switch (arg_kind) {
-            case 1: src = "_lpython_bit_length1(" + src + ")"; break;
-            case 2: src = "_lpython_bit_length2(" + src + ")"; break;
-            case 4: src = "_lpython_bit_length4(" + src + ")"; break;
-            case 8: src = "_lpython_bit_length8(" + src + ")"; break;
-            default: throw CodeGenError("Unsupported Integer Kind: " + \
-                            std::to_string(arg_kind));
-        }
-    }
-
-    void visit_IntegerCompare(const ASR::IntegerCompare_t &x) {
-        handle_Compare(x);
-    }
-
-    void visit_RealCompare(const ASR::RealCompare_t &x) {
-        handle_Compare(x);
-    }
-
-    void visit_ComplexCompare(const ASR::ComplexCompare_t &x) {
-        handle_Compare(x);
-    }
-
-    void visit_LogicalCompare(const ASR::LogicalCompare_t &x) {
-        handle_Compare(x);
-    }
-
-    void visit_StringCompare(const ASR::StringCompare_t &x) {
-        handle_Compare(x);
-    }
-
-    template<typename T>
-    void handle_Compare(const T &x) {
-        self().visit_expr(*x.m_left);
-        std::string left = std::move(src);
-        int left_precedence = last_expr_precedence;
-        self().visit_expr(*x.m_right);
-        std::string right = std::move(src);
-        int right_precedence = last_expr_precedence;
-        switch (x.m_op) {
-            case (ASR::cmpopType::Eq) : { last_expr_precedence = 10; break; }
-            case (ASR::cmpopType::Gt) : { last_expr_precedence = 9;  break; }
-            case (ASR::cmpopType::GtE) : { last_expr_precedence = 9; break; }
-            case (ASR::cmpopType::Lt) : { last_expr_precedence = 9;  break; }
-            case (ASR::cmpopType::LtE) : { last_expr_precedence = 9; break; }
-            case (ASR::cmpopType::NotEq): { last_expr_precedence = 10; break; }
-            default : LCOMPILERS_ASSERT(false); // should never happen
-        }
-        if (left_precedence <= last_expr_precedence) {
-            src += left;
-        } else {
-            src += "(" + left + ")";
-        }
-        std::string op_str = ASRUtils::cmpop_to_str(x.m_op);
-        if( T::class_type == ASR::exprType::StringCompare && is_c ) {
-            src = "strcmp(" + left + ", " + right + ") " + op_str + " 0";
-        } else {
-            src += op_str;
-            if (right_precedence <= last_expr_precedence) {
-                src += right;
-            } else {
-                src += "(" + right + ")";
-            }
-        }
-    }
-
-    void visit_IntegerBitNot(const ASR::IntegerBitNot_t& x) {
-        self().visit_expr(*x.m_arg);
-        int expr_precedence = last_expr_precedence;
-        last_expr_precedence = 3;
-        if (expr_precedence <= last_expr_precedence) {
-            src = "~" + src;
-        } else {
-            src = "~(" + src + ")";
-        }
-    }
-
-    void visit_IntegerUnaryMinus(const ASR::IntegerUnaryMinus_t &x) {
-        handle_UnaryMinus(x);
-    }
-
-    void visit_RealUnaryMinus(const ASR::RealUnaryMinus_t &x) {
-        handle_UnaryMinus(x);
-    }
-
-    void visit_ComplexUnaryMinus(const ASR::ComplexUnaryMinus_t &x) {
-        handle_UnaryMinus(x);
-    }
-
-    template <typename T>
-    void handle_UnaryMinus(const T &x) {
-        self().visit_expr(*x.m_arg);
-        int expr_precedence = last_expr_precedence;
-        last_expr_precedence = 3;
-        if (expr_precedence <= last_expr_precedence) {
-            src = "-" + src;
-        } else {
-            src = "-(" + src + ")";
-        }
-    }
-
-    void visit_ComplexRe(const ASR::ComplexRe_t &x) {
-        headers.insert("complex");
-        self().visit_expr(*x.m_arg);
-        if (is_c) {
-            src = "creal(" + src + ")";
-        } else {
-            src = src + ".real()";
-        }
-    }
-
-    void visit_ComplexIm(const ASR::ComplexIm_t &x) {
-        headers.insert("complex");
-        self().visit_expr(*x.m_arg);
-        if (is_c) {
-            src = "cimag(" + src + ")";
-        } else {
-            src = src + ".imag()";
-        }
-    }
-
-    void visit_LogicalNot(const ASR::LogicalNot_t &x) {
-        self().visit_expr(*x.m_arg);
-        int expr_precedence = last_expr_precedence;
-        last_expr_precedence = 3;
-        if (expr_precedence <= last_expr_precedence) {
-            src = "!" + src;
-        } else {
-            src = "!(" + src + ")";
-        }
-    }
-
-    void visit_GetPointer(const ASR::GetPointer_t& x) {
-        self().visit_expr(*x.m_arg);
-        std::string arg_src = std::move(src);
-        std::string addr_prefix = "&";
-        if( ASRUtils::is_array(ASRUtils::expr_type(x.m_arg)) ||
-            ASR::is_a<ASR::Struct_t>(*ASRUtils::expr_type(x.m_arg)) ) {
-            addr_prefix.clear();
-        }
-        src = addr_prefix + arg_src;
-    }
-
-    void visit_PointerToCPtr(const ASR::PointerToCPtr_t& x) {
-        self().visit_expr(*x.m_arg);
-        std::string arg_src = std::move(src);
-        if( ASRUtils::is_array(ASRUtils::expr_type(x.m_arg)) ) {
-            arg_src += "->data";
-        }
-        std::string type_src = CUtils::get_c_type_from_ttype_t(x.m_type);
-        src = "(" + type_src + ") " + arg_src;
-    }
-
-    void visit_IntegerBinOp(const ASR::IntegerBinOp_t &x) {
-        handle_BinOp(x);
-    }
-
-    void visit_RealBinOp(const ASR::RealBinOp_t &x) {
-        handle_BinOp(x);
-    }
-
-    void visit_ComplexBinOp(const ASR::ComplexBinOp_t &x) {
-        handle_BinOp(x);
-    }
-
-    template <typename T>
-    void handle_BinOp(const T &x) {
-        self().visit_expr(*x.m_left);
-        std::string left = std::move(src);
-        int left_precedence = last_expr_precedence;
-        self().visit_expr(*x.m_right);
-        std::string right = std::move(src);
-        int right_precedence = last_expr_precedence;
-        switch (x.m_op) {
-            case (ASR::binopType::Add) : { last_expr_precedence = 6; break; }
-            case (ASR::binopType::Sub) : { last_expr_precedence = 6; break; }
-            case (ASR::binopType::Mul) : { last_expr_precedence = 5; break; }
-            case (ASR::binopType::Div) : { last_expr_precedence = 5; break; }
-            case (ASR::binopType::BitAnd) : { last_expr_precedence = 11; break; }
-            case (ASR::binopType::BitOr) : { last_expr_precedence = 13; break; }
-            case (ASR::binopType::BitXor) : { last_expr_precedence = 12; break; }
-            case (ASR::binopType::BitLShift) : { last_expr_precedence = 7; break; }
-            case (ASR::binopType::BitRShift) : { last_expr_precedence = 7; break; }
-            case (ASR::binopType::Pow) : {
-                src = "pow(" + left + ", " + right + ")";
-                if (is_c) {
-                    headers.insert("math");
-                } else {
-                    src = "std::" + src;
-                }
-                return;
-            }
-            default: throw CodeGenError("BinOp: " + std::to_string(x.m_op) + " operator not implemented yet");
-        }
-        src = "";
-        if (left_precedence == 3) {
-            src += "(" + left + ")";
-        } else {
-            if (left_precedence <= last_expr_precedence) {
-                src += left;
-            } else {
-                src += "(" + left + ")";
-            }
-        }
-        src += ASRUtils::binop_to_str_python(x.m_op);
-        if (right_precedence == 3) {
-            src += "(" + right + ")";
-        } else if (x.m_op == ASR::binopType::Sub || x.m_op == ASR::binopType::Div) {
-            if (right_precedence < last_expr_precedence) {
-                src += right;
-            } else {
-                src += "(" + right + ")";
-            }
-        } else {
-            if (right_precedence <= last_expr_precedence) {
-                src += right;
-            } else {
-                src += "(" + right + ")";
-            }
-        }
-    }
-
-    void visit_LogicalBinOp(const ASR::LogicalBinOp_t &x) {
-        self().visit_expr(*x.m_left);
-        std::string left = std::move(src);
-        int left_precedence = last_expr_precedence;
-        self().visit_expr(*x.m_right);
-        std::string right = std::move(src);
-        int right_precedence = last_expr_precedence;
-        switch (x.m_op) {
-            case (ASR::logicalbinopType::And): {
-                last_expr_precedence = 14;
-                break;
-            }
-            case (ASR::logicalbinopType::Or): {
-                last_expr_precedence = 15;
-                break;
-            }
-            case (ASR::logicalbinopType::NEqv): {
-                last_expr_precedence = 10;
-                break;
-            }
-            case (ASR::logicalbinopType::Eqv): {
-                last_expr_precedence = 10;
-                break;
-            }
-            default : throw CodeGenError("Unhandled switch case");
-        }
-
-        if (left_precedence <= last_expr_precedence) {
-            src += left;
-        } else {
-            src += "(" + left + ")";
-        }
-        src += ASRUtils::logicalbinop_to_str_python(x.m_op);
-        if (right_precedence <= last_expr_precedence) {
-            src += right;
-        } else {
-            src += "(" + right + ")";
-        }
-    }
-
-    void visit_Allocate(const ASR::Allocate_t &x) {
-        std::string indent(indentation_level*indentation_spaces, ' ');
-        std::string out = indent + "// FIXME: allocate(";
-        for (size_t i=0; i<x.n_args; i++) {
-            ASR::symbol_t* a = x.m_args[i].m_a;
-            //ASR::dimension_t* dims = x.m_args[i].m_dims;
-            //size_t n_dims = x.m_args[i].n_dims;
-            out += std::string(ASRUtils::symbol_name(a)) + ", ";
-        }
-        out += ");\n";
-        src = out;
-    }
-
-    void visit_Assert(const ASR::Assert_t &x) {
-        std::string indent(indentation_level*indentation_spaces, ' ');
-        std::string out = indent;
-        if (x.m_msg) {
-            out += "assert ((";
-            self().visit_expr(*x.m_msg);
-            out += src + ", ";
-            self().visit_expr(*x.m_test);
-            out += src + "));\n";
-        } else {
-            out += "assert (";
-            self().visit_expr(*x.m_test);
-            out += src + ");\n";
-        }
-        src = out;
-    }
-
-    void visit_ExplicitDeallocate(const ASR::ExplicitDeallocate_t &x) {
-        std::string indent(indentation_level*indentation_spaces, ' ');
-        std::string out = indent + "// FIXME: deallocate(";
-        for (size_t i=0; i<x.n_vars; i++) {
-            out += std::string(ASRUtils::symbol_name(x.m_vars[i])) + ", ";
-        }
-        out += ");\n";
-        src = out;
-    }
-
-    void visit_ImplicitDeallocate(const ASR::ImplicitDeallocate_t &x) {
-        std::string indent(indentation_level*indentation_spaces, ' ');
-        std::string out = indent + "// FIXME: implicit deallocate(";
-        for (size_t i=0; i<x.n_vars; i++) {
-            out += std::string(ASRUtils::symbol_name(x.m_vars[i])) + ", ";
-        }
-        out += ");\n";
-        src = out;
-    }
-
-    void visit_Select(const ASR::Select_t& x)
-    {
-        std::string indent(indentation_level * indentation_spaces, ' ');
-        this->visit_expr(*x.m_test);
-        std::string var = std::move(src);
-        std::string out = indent + "if (";
-
-        for (size_t i = 0; i < x.n_body; i++) {
-            if (i > 0)
-                out += indent + "else if (";
-            ASR::case_stmt_t* stmt = x.m_body[i];
-            if (stmt->type == ASR::case_stmtType::CaseStmt) {
-                ASR::CaseStmt_t* case_stmt = ASR::down_cast<ASR::CaseStmt_t>(stmt);
-                for (size_t j = 0; j < case_stmt->n_test; j++) {
-                    if (j > 0)
-                        out += " || ";
-                    this->visit_expr(*case_stmt->m_test[j]);
-                    out += var + " == " + src;
-                }
-                out += ") {\n";
-                indentation_level += 1;
-                for (size_t j = 0; j < case_stmt->n_body; j++) {
-                    this->visit_stmt(*case_stmt->m_body[j]);
-                    out += src;
-                }
-                out += indent + "}\n";
-                indentation_level -= 1;
-            } else {
-                ASR::CaseStmt_Range_t* case_stmt_range
-                    = ASR::down_cast<ASR::CaseStmt_Range_t>(stmt);
-                std::string left, right;
-                if (case_stmt_range->m_start) {
-                    this->visit_expr(*case_stmt_range->m_start);
-                    left = std::move(src);
-                }
-                if (case_stmt_range->m_end) {
-                    this->visit_expr(*case_stmt_range->m_end);
-                    right = std::move(src);
-                }
-                if (left.empty() && right.empty()) {
-                    diag.codegen_error_label(
-                        "Empty range in select statement", { x.base.base.loc }, "");
-                    throw Abort();
-                }
-                if (left.empty()) {
-                    out += var + " <= " + right;
-                } else if (right.empty()) {
-                    out += var + " >= " + left;
-                } else {
-                    out += left + " <= " + var + " <= " + right;
-                }
-                out += ") {\n";
-                indentation_level += 1;
-                for (size_t j = 0; j < case_stmt_range->n_body; j++) {
-                    this->visit_stmt(*case_stmt_range->m_body[j]);
-                    out += src;
-                }
-                out += indent + "}\n";
-                indentation_level -= 1;
-            }
-        }
-        if (x.n_default) {
-            out += indent + "else {\n";
-            indentation_level += 1;
-            for (size_t i = 0; i < x.n_default; i++) {
-                this->visit_stmt(*x.m_default[i]);
-                out += src;
-            }
-            out += indent + "}\n";
-            indentation_level -= 1;
-        }
-        src = out;
-    }
-
-    void visit_WhileLoop(const ASR::WhileLoop_t &x) {
-        std::string indent(indentation_level*indentation_spaces, ' ');
-        std::string out = indent + "while (";
-        self().visit_expr(*x.m_test);
-        out += src + ") {\n";
-        indentation_level += 1;
-        for (size_t i=0; i<x.n_body; i++) {
-            self().visit_stmt(*x.m_body[i]);
-            out += src;
-        }
-        out += indent + "}\n";
-        indentation_level -= 1;
-        src = out;
-    }
-
-    void visit_Exit(const ASR::Exit_t & /* x */) {
-        std::string indent(indentation_level*indentation_spaces, ' ');
-        src = indent + "break;\n";
-    }
-
-    void visit_Cycle(const ASR::Cycle_t & /* x */) {
-        std::string indent(indentation_level*indentation_spaces, ' ');
-        src = indent + "continue;\n";
-    }
-
-    void visit_Return(const ASR::Return_t & /* x */) {
-        std::string indent(indentation_level*indentation_spaces, ' ');
-        if (current_function && current_function->m_return_var) {
-            src = indent + "return "
-                + ASRUtils::EXPR2VAR(current_function->m_return_var)->m_name
-                + ";\n";
-        } else {
-            src = indent + "return;\n";
-        }
-    }
-
-    void visit_GoToTarget(const ASR::GoToTarget_t & /* x */) {
-        // Ignore for now
-        src = "";
-    }
-
-    void visit_Stop(const ASR::Stop_t &x) {
-        if (x.m_code) {
-            self().visit_expr(*x.m_code);
-        } else {
-            src = "0";
-        }
-        std::string indent(indentation_level*indentation_spaces, ' ');
-        src = indent + "exit(" + src + ");\n";
-    }
-
-    void visit_ErrorStop(const ASR::ErrorStop_t & /* x */) {
-        std::string indent(indentation_level*indentation_spaces, ' ');
-        if (is_c) {
-            src = indent + "fprintf(stderr, \"ERROR STOP\");\n";
-        } else {
-            src = indent + "std::cerr << \"ERROR STOP\" << std::endl;\n";
-        }
-        src += indent + "exit(1);\n";
-    }
-
-    void visit_ImpliedDoLoop(const ASR::ImpliedDoLoop_t &/*x*/) {
-        std::string indent(indentation_level*indentation_spaces, ' ');
-        std::string out = indent + " /* FIXME: implied do loop */ ";
-        src = out;
-        last_expr_precedence = 2;
-    }
-
-    void visit_DoLoop(const ASR::DoLoop_t &x) {
-        std::string current_body_copy = current_body;
-        current_body = "";
-        std::string loop_end_decl = "";
-        std::string indent(indentation_level*indentation_spaces, ' ');
-        std::string out = indent + "for (";
-        ASR::Variable_t *loop_var = ASRUtils::EXPR2VAR(x.m_head.m_v);
-        std::string lvname=loop_var->m_name;
-        ASR::expr_t *a=x.m_head.m_start;
-        ASR::expr_t *b=x.m_head.m_end;
-        ASR::expr_t *c=x.m_head.m_increment;
-        LCOMPILERS_ASSERT(a);
-        LCOMPILERS_ASSERT(b);
-        int increment;
-        bool is_c_constant = false;
-        if (!c) {
-            increment = 1;
-            is_c_constant = true;
-        } else {
-            ASR::expr_t* c_value = ASRUtils::expr_value(c);
-            is_c_constant = ASRUtils::extract_value(c_value, increment);
-        }
-
-        if( is_c_constant ) {
-            std::string cmp_op;
-            if (increment > 0) {
-                cmp_op = "<=";
-            } else {
-                cmp_op = ">=";
-            }
-
-            out += lvname + "=";
-            self().visit_expr(*a);
-            out += src + "; " + lvname + cmp_op;
-            self().visit_expr(*b);
-            out += src + "; " + lvname;
-            if (increment == 1) {
-                out += "++";
-            } else if (increment == -1) {
-                out += "--";
-            } else {
-                out += "+=" + std::to_string(increment);
-            }
-        } else {
-            this->visit_expr(*c);
-            std::string increment_ = std::move(src);
-            self().visit_expr(*b);
-            std::string do_loop_end = std::move(src);
-            std::string do_loop_end_name = current_scope->get_unique_name(
-                "loop_end___" + std::to_string(loop_end_count));
-            loop_end_count += 1;
-            loop_end_decl = indent + CUtils::get_c_type_from_ttype_t(ASRUtils::expr_type(b), is_c) +
-                            " " + do_loop_end_name + " = " + do_loop_end + ";\n";
-            out += lvname + " = ";
-            self().visit_expr(*a);
-            out += src + "; ";
-            out += "((" + increment_ + " >= 0) && (" +
-                    lvname + " <= " + do_loop_end_name + ")) || (("
-                    + increment_ + " < 0) && (" + lvname + " >= "
-                    + do_loop_end_name + ")); " + lvname;
-            out += " += " + increment_;
-        }
-
-        out += ") {\n";
-        indentation_level += 1;
-        for (size_t i=0; i<x.n_body; i++) {
-            self().visit_stmt(*x.m_body[i]);
-            current_body += src;
-        }
-        out += current_body;
-        out += indent + "}\n";
-        indentation_level -= 1;
-        src = loop_end_decl + out;
-        current_body = current_body_copy;
-    }
-
-    void visit_If(const ASR::If_t &x) {
-        std::string current_body_copy = current_body;
-        current_body = "";
-        std::string indent(indentation_level*indentation_spaces, ' ');
-        std::string out = indent + "if (";
-        self().visit_expr(*x.m_test);
-        out += src + ") {\n";
-        indentation_level += 1;
-        for (size_t i=0; i<x.n_body; i++) {
-            self().visit_stmt(*x.m_body[i]);
-            current_body += src;
-        }
-        out += current_body;
-        out += indent + "}";
-        if (x.n_orelse == 0) {
-            out += "\n";
-        } else {
-            current_body = "";
-            out += " else {\n";
-            for (size_t i=0; i<x.n_orelse; i++) {
-                self().visit_stmt(*x.m_orelse[i]);
-                current_body += src;
-            }
-            out += current_body;
-            out += indent + "}\n";
-        }
-        indentation_level -= 1;
-        src = out;
-        current_body = current_body_copy;
-    }
-
-    void visit_IfExp(const ASR::IfExp_t &x) {
-        // IfExp is like a ternary operator in c++
-        // test ? body : orelse;
-        std::string out = "(";
-        self().visit_expr(*x.m_test);
-        out += src + ") ? (";
-        self().visit_expr(*x.m_body);
-        out += src + ") : (";
-        self().visit_expr(*x.m_orelse);
-        out += src + ")";
-        src = out;
-        last_expr_precedence = 16;
-    }
-
-    void visit_SubroutineCall(const ASR::SubroutineCall_t &x) {
-        std::string indent(indentation_level*indentation_spaces, ' ');
-        ASR::Function_t *s = ASR::down_cast<ASR::Function_t>(
-            ASRUtils::symbol_get_past_external(x.m_name));
-        // TODO: use a mapping with a hash(s) instead:
-        std::string sym_name = s->m_name;
-        if (sym_name == "exit") {
-            sym_name = "_xx_lcompilers_changed_exit_xx";
-        }
-        if (sym_name == "main") {
-            sym_name = "_xx_lcompilers_changed_main_xx";
-        }
-        std::string out = indent + sym_name + "(";
-        for (size_t i=0; i<x.n_args; i++) {
-            if (ASR::is_a<ASR::Var_t>(*x.m_args[i].m_value)) {
-                ASR::Variable_t *arg = ASRUtils::EXPR2VAR(x.m_args[i].m_value);
-                std::string arg_name = arg->m_name;
-                if( ASRUtils::is_array(arg->m_type) &&
-                    ASRUtils::is_pointer(arg->m_type) ) {
-                    out += "&" + arg_name;
-                } else {
-                    out += arg_name;
-                }
-            } else {
-                self().visit_expr(*x.m_args[i].m_value);
-                if( ASR::is_a<ASR::ArrayItem_t>(*x.m_args[i].m_value) &&
-                    ASR::is_a<ASR::Struct_t>(*ASRUtils::expr_type(x.m_args[i].m_value)) ) {
-                    out += "&" + src;
-                } else {
-                    out += src;
-                }
-            }
-            if (i < x.n_args-1) out += ", ";
-        }
-        out += ");\n";
-        src = out;
-    }
-
-};
-
-} // namespace LCompilers
-
-#endif // LFORTRAN_ASR_TO_C_CPP_H
diff --git a/src/libasr/codegen/asr_to_cpp.cpp b/src/libasr/codegen/asr_to_cpp.cpp
deleted file mode 100644
index 9735f72845..0000000000
--- a/src/libasr/codegen/asr_to_cpp.cpp
+++ /dev/null
@@ -1,760 +0,0 @@
-#include <iostream>
-#include <memory>
-
-#include <libasr/asr.h>
-#include <libasr/containers.h>
-#include <libasr/codegen/asr_to_cpp.h>
-#include <libasr/codegen/asr_to_c_cpp.h>
-#include <libasr/codegen/c_utils.h>
-#include <libasr/exception.h>
-#include <libasr/asr_utils.h>
-#include <libasr/string_utils.h>
-#include <libasr/pass/unused_functions.h>
-
-
-namespace LCompilers {
-
-std::string format_type(const std::string &dims, const std::string &type,
-        const std::string &name, bool use_ref, bool dummy, bool use_kokko=true,
-        std::string kokko_ref="&", bool use_name=false, size_t size=0)
-{
-    std::string fmt;
-    if (dims.size() == 0) {
-        std::string ref;
-        if (use_ref) ref = "&";
-        fmt = type + " " + ref + name;
-    } else {
-        if (dummy) {
-            std::string c;
-            if (!use_ref) c = "const ";
-            if( use_kokko ) {
-                fmt = "const Kokkos::View<" + c + type + dims + "> &" + name;
-            } else {
-                fmt = c + type + dims + " " + name;
-            }
-        } else {
-            if( use_kokko ) {
-                fmt = "Kokkos::View<" + type + dims + ">" + kokko_ref + " " + name;
-                if( use_name ) {
-                   fmt += "(\"" + name + "\"";
-                   if( size > 0 ) {
-                    fmt += ", " + std::to_string(size);
-                   }
-                   fmt += ")";
-                }
-            } else {
-                fmt = type + dims + " " + name;
-            }
-        }
-    }
-    return fmt;
-}
-
-std::string trim_dims(std::string &dims) {
-    std::string trimmed;
-    bool last_is_digit = true;
-    size_t i = 0;
-    while (!isdigit(dims[i])) i++;
-    for (; i < dims.size(); i++) {
-        if (isdigit(dims[i])) {
-            if (!last_is_digit) {
-                trimmed += "_";
-                last_is_digit = true;
-            }
-            trimmed.push_back(dims[i]);
-        } else {
-            last_is_digit = false;
-        }
-    }
-    return trimmed;
-}
-
-class ASRToCPPVisitor : public BaseCCPPVisitor<ASRToCPPVisitor>
-{
-public:
-
-    std::string array_types_decls;
-    std::map<std::string, std::map<std::string,
-             std::map<size_t, std::string>>> eltypedims2arraytype;
-
-    ASRToCPPVisitor(diag::Diagnostics &diag, Platform &platform,
-                    int64_t default_lower_bound)
-        : BaseCCPPVisitor(diag, platform, true, true, false,
-                          default_lower_bound),
-          array_types_decls(std::string("\nstruct dimension_descriptor\n"
-                                        "{\n    int32_t lower_bound, length;\n};\n")) {}
-
-    std::string convert_dims(size_t n_dims, ASR::dimension_t *m_dims, size_t& size)
-    {
-        std::string dims;
-        size = 1;
-        for (size_t i=0; i<n_dims; i++) {
-            ASR::expr_t *length = m_dims[i].m_length;
-            if (!length) {
-                dims += "*";
-            } else if (length) {
-                ASR::expr_t* length_value = ASRUtils::expr_value(length);
-                if( length_value ) {
-                    int64_t length_int = -1;
-                    ASRUtils::extract_value(length_value, length_int);
-                    size *= (length_int);
-                    dims += "[" + std::to_string(length_int) + "]";
-                } else {
-                    size = 0;
-                    dims += "[ /* FIXME symbolic dimensions */ ]";
-                }
-            } else {
-                throw CodeGenError("Dimension type not supported");
-            }
-        }
-        return dims;
-    }
-
-    bool is_array_type_available(std::string& encoded_type_name, std::string& dims,
-                                 size_t n_dims) {
-        return eltypedims2arraytype.find(encoded_type_name) != eltypedims2arraytype.end() &&
-               eltypedims2arraytype[encoded_type_name].find(dims) !=
-               eltypedims2arraytype[encoded_type_name].end() &&
-               eltypedims2arraytype[encoded_type_name][dims].find(n_dims) !=
-               eltypedims2arraytype[encoded_type_name][dims].end();
-    }
-
-    std::string get_array_type(std::string type_name, std::string encoded_type_name,
-                               std::string& dims,
-                               size_t n_dims, bool make_ptr=true) {
-        if( is_array_type_available(encoded_type_name, dims, n_dims) ) {
-            if( make_ptr ) {
-                return eltypedims2arraytype[encoded_type_name][dims][n_dims] + "*";
-            } else {
-                return eltypedims2arraytype[encoded_type_name][dims][n_dims];
-            }
-        }
-
-        std::string struct_name;
-        std::string new_array_type;
-        std::string dims_copy = trim_dims(dims);
-        std::string name = encoded_type_name + "_" + dims_copy + "_" + std::to_string(n_dims);
-        struct_name = "struct " + name;
-        std::string array_data = format_type("*", type_name, "data", false, false, true, "*");
-        new_array_type = struct_name + "\n{\n    " + array_data +
-                            ";\n    dimension_descriptor dims[" +
-                            std::to_string(n_dims) + "];\n    bool is_allocated;\n\n";
-        std::string constructor = "    " + name + "(" + array_data + "_): data{data_} {};\n};\n";
-        new_array_type += constructor;
-        type_name = name + "*";
-        eltypedims2arraytype[encoded_type_name][dims][n_dims] = name;
-        array_types_decls += "\n" + new_array_type + "\n";
-        return type_name;
-    }
-
-    void generate_array_decl(std::string& sub, std::string v_m_name,
-                             std::string& type_name, std::string& dims,
-                             std::string& encoded_type_name,
-                             ASR::dimension_t* m_dims, int n_dims, size_t size,
-                             bool use_ref, bool dummy,
-                             bool declare_value, bool /*is_fixed_size*/,
-                             bool is_pointer=false) {
-        std::string indent(indentation_level*indentation_spaces, ' ');
-        std::string type_name_copy = type_name;
-        type_name = get_array_type(type_name, encoded_type_name, dims, n_dims);
-        std::string type_name_without_ptr = get_array_type(type_name, encoded_type_name, dims,
-                                                           n_dims, false);
-        if( declare_value ) {
-            std::string variable_name = std::string(v_m_name) + "_value";
-            if( !is_pointer ) {
-                sub = format_type("*", type_name_copy, std::string(v_m_name) + "_data",
-                                  use_ref, dummy, true, "", true, size) + ";\n" + indent;
-            } else {
-                sub = indent;
-            }
-            sub += format_type("", type_name_without_ptr, variable_name, use_ref, dummy, false);
-            if( !is_pointer ) {
-                sub += "(&" + std::string(v_m_name) + "_data);\n";
-            } else {
-                sub += ";\n";
-            }
-            sub += indent + format_type("", type_name, v_m_name, use_ref, dummy, false);
-            sub += " = &" + variable_name + ";\n";
-            if( !is_pointer ) {
-                for (int i = 0; i < n_dims; i++) {
-                    if( m_dims[i].m_start ) {
-                        this->visit_expr(*m_dims[i].m_start);
-                        sub += indent + std::string(v_m_name) +
-                            "->dims[" + std::to_string(i) + "].lower_bound = " + src + ";\n";
-                    } else {
-                        sub += indent + std::string(v_m_name) +
-                            "->dims[" + std::to_string(i) + "].lower_bound = 0" + ";\n";
-                    }
-                    if( m_dims[i].m_length ) {
-                        this->visit_expr(*m_dims[i].m_length);
-                        sub += indent + std::string(v_m_name) +
-                            "->dims[" + std::to_string(i) + "].length = " + src + ";\n";
-                    } else {
-                        sub += indent + std::string(v_m_name) +
-                            "->dims[" + std::to_string(i) + "].length = 0" + ";\n";
-                    }
-                }
-                sub.pop_back();
-                sub.pop_back();
-            }
-        } else {
-            sub = format_type("", type_name, v_m_name, use_ref, dummy, false);
-        }
-    }
-
-    std::string generate_templates_for_arrays(std::string v_name) {
-        std::string typename_T = "T" + std::to_string(template_number);
-        template_for_Kokkos += "typename " + typename_T + ", ";
-        template_number += 1;
-        return typename_T + "* " + v_name;
-    }
-
-    std::string convert_variable_decl(const ASR::Variable_t &v, DeclarationOptions* decl_options=nullptr)
-    {
-        bool use_static;
-        bool use_templates_for_arrays;
-
-        if( decl_options ) {
-            CPPDeclarationOptions* cpp_decl_options = reinterpret_cast<CPPDeclarationOptions*>(decl_options);
-            use_static = cpp_decl_options->use_static;
-            use_templates_for_arrays = cpp_decl_options->use_templates_for_arrays;
-        } else {
-            use_static = true;
-            use_templates_for_arrays = false;
-        }
-
-        std::string sub;
-        bool use_ref = (v.m_intent == ASRUtils::intent_out ||
-                        v.m_intent == ASRUtils::intent_inout ||
-                        v.m_intent == ASRUtils::intent_unspecified
-                        );
-        bool is_array = ASRUtils::is_array(v.m_type);
-        bool dummy = ASRUtils::is_arg_dummy(v.m_intent);
-        if (ASRUtils::is_pointer(v.m_type)) {
-            ASR::ttype_t *t2 = ASR::down_cast<ASR::Pointer_t>(v.m_type)->m_type;
-            if (ASRUtils::is_integer(*t2)) {
-                ASR::Integer_t *t = ASR::down_cast<ASR::Integer_t>(t2);
-                size_t size;
-                std::string dims = convert_dims(t->n_dims, t->m_dims, size);
-                std::string type_name = "int" + std::to_string(t->m_kind * 8) + "_t";
-                if( is_array ) {
-                    if( use_templates_for_arrays ) {
-                        sub += generate_templates_for_arrays(std::string(v.m_name));
-                    } else {
-                        std::string encoded_type_name = "i" + std::to_string(t->m_kind * 8);
-                        generate_array_decl(sub, std::string(v.m_name), type_name, dims,
-                                            encoded_type_name, t->m_dims, t->n_dims, size,
-                                            use_ref, dummy,
-                                            v.m_intent != ASRUtils::intent_in &&
-                                            v.m_intent != ASRUtils::intent_inout &&
-                                            v.m_intent != ASRUtils::intent_out, true, true);
-                    }
-                } else {
-                    sub = format_type(dims, type_name, v.m_name, use_ref, dummy);
-                }
-            } else {
-                diag.codegen_error_label("Type number '"
-                    + std::to_string(v.m_type->type)
-                    + "' not supported", {v.base.base.loc}, "");
-                throw Abort();
-            }
-        } else {
-            std::string dims;
-            use_ref = use_ref && !is_array;
-            if (ASRUtils::is_integer(*v.m_type)) {
-                ASR::Integer_t *t = ASR::down_cast<ASR::Integer_t>(v.m_type);
-                size_t size;
-                dims = convert_dims(t->n_dims, t->m_dims, size);
-                std::string type_name = "int" + std::to_string(t->m_kind * 8) + "_t";
-                if( is_array ) {
-                    if( use_templates_for_arrays ) {
-                        sub += generate_templates_for_arrays(std::string(v.m_name));
-                    } else {
-                        std::string encoded_type_name = "i" + std::to_string(t->m_kind * 8);
-                        generate_array_decl(sub, std::string(v.m_name), type_name, dims,
-                                            encoded_type_name, t->m_dims, t->n_dims, size,
-                                            use_ref, dummy,
-                                            v.m_intent != ASRUtils::intent_in &&
-                                            v.m_intent != ASRUtils::intent_inout &&
-                                            v.m_intent != ASRUtils::intent_out, true);
-                    }
-                } else {
-                    sub = format_type(dims, type_name, v.m_name, use_ref, dummy);
-                }
-            } else if (ASRUtils::is_real(*v.m_type)) {
-                ASR::Real_t *t = ASR::down_cast<ASR::Real_t>(v.m_type);
-                size_t size;
-                dims = convert_dims(t->n_dims, t->m_dims, size);
-                std::string type_name = "float";
-                if (t->m_kind == 8) type_name = "double";
-                if( is_array ) {
-                    if( use_templates_for_arrays ) {
-                        sub += generate_templates_for_arrays(std::string(v.m_name));
-                    } else {
-                        std::string encoded_type_name = "f" + std::to_string(t->m_kind * 8);
-                        generate_array_decl(sub, std::string(v.m_name), type_name, dims,
-                                            encoded_type_name, t->m_dims, t->n_dims, size,
-                                            use_ref, dummy,
-                                            v.m_intent != ASRUtils::intent_in &&
-                                            v.m_intent != ASRUtils::intent_inout &&
-                                            v.m_intent != ASRUtils::intent_out, true);
-                    }
-                } else {
-                    sub = format_type(dims, type_name, v.m_name, use_ref, dummy);
-                }
-            } else if (ASRUtils::is_complex(*v.m_type)) {
-                ASR::Complex_t *t = ASR::down_cast<ASR::Complex_t>(v.m_type);
-                size_t size;
-                dims = convert_dims(t->n_dims, t->m_dims, size);
-                std::string type_name = "std::complex<float>";
-                if (t->m_kind == 8) type_name = "std::complex<double>";
-                if( is_array ) {
-                    if( use_templates_for_arrays ) {
-                        sub += generate_templates_for_arrays(std::string(v.m_name));
-                    } else {
-                        std::string encoded_type_name = "c" + std::to_string(t->m_kind * 8);
-                        generate_array_decl(sub, std::string(v.m_name), type_name, dims,
-                                            encoded_type_name, t->m_dims, t->n_dims, size,
-                                            use_ref, dummy,
-                                            v.m_intent != ASRUtils::intent_in &&
-                                            v.m_intent != ASRUtils::intent_inout &&
-                                            v.m_intent != ASRUtils::intent_out, true);
-                    }
-                } else {
-                    sub = format_type(dims, type_name, v.m_name, use_ref, dummy);
-                }
-            } else if (ASRUtils::is_logical(*v.m_type)) {
-                ASR::Logical_t *t = ASR::down_cast<ASR::Logical_t>(v.m_type);
-                size_t size;
-                dims = convert_dims(t->n_dims, t->m_dims, size);
-                sub = format_type(dims, "bool", v.m_name, use_ref, dummy);
-            } else if (ASRUtils::is_character(*v.m_type)) {
-                ASR::Character_t *t = ASR::down_cast<ASR::Character_t>(v.m_type);
-                size_t size;
-                dims = convert_dims(t->n_dims, t->m_dims, size);
-                sub = format_type(dims, "std::string", v.m_name, use_ref, dummy);
-            } else if (ASR::is_a<ASR::Struct_t>(*v.m_type)) {
-                ASR::Struct_t *t = ASR::down_cast<ASR::Struct_t>(v.m_type);
-                std::string der_type_name = ASRUtils::symbol_name(t->m_derived_type);
-                size_t size;
-                dims = convert_dims(t->n_dims, t->m_dims, size);
-                if( is_array ) {
-                    if( use_templates_for_arrays ) {
-                        sub += generate_templates_for_arrays(std::string(v.m_name));
-                    } else {
-                        std::string encoded_type_name = "x" + der_type_name;
-                        std::string type_name = std::string("struct ") + der_type_name;
-                        generate_array_decl(sub, std::string(v.m_name), type_name, dims,
-                                            encoded_type_name, t->m_dims, t->n_dims, size,
-                                            use_ref, dummy,
-                                            v.m_intent != ASRUtils::intent_in &&
-                                            v.m_intent != ASRUtils::intent_inout &&
-                                            v.m_intent != ASRUtils::intent_out, true);
-                    }
-                } else {
-                    sub = format_type(dims, "struct", v.m_name, use_ref, dummy);
-                }
-            } else {
-                diag.codegen_error_label("Type number '"
-                    + std::to_string(v.m_type->type)
-                    + "' not supported", {v.base.base.loc}, "");
-                throw Abort();
-            }
-            if (dims.size() == 0 && v.m_storage == ASR::storage_typeType::Save && use_static) {
-                sub = "static " + sub;
-            }
-            if (dims.size() == 0 && v.m_symbolic_value) {
-                this->visit_expr(*v.m_symbolic_value);
-                std::string init = src;
-                sub += "=" + init;
-            }
-        }
-        return sub;
-    }
-
-
-    void visit_TranslationUnit(const ASR::TranslationUnit_t &x) {
-        global_scope = x.m_global_scope;
-        // All loose statements must be converted to a function, so the items
-        // must be empty:
-        LCOMPILERS_ASSERT(x.n_items == 0);
-        std::string unit_src = "";
-        indentation_level = 0;
-        indentation_spaces = 4;
-
-        std::string headers =
-R"(#include <iostream>
-#include <string>
-#include <vector>
-#include <cassert>
-#include <cmath>
-#include <complex>
-#include <Kokkos_Core.hpp>
-#include <lfortran_intrinsics.h>
-
-template <typename T>
-Kokkos::View<T*> from_std_vector(const std::vector<T> &v)
-{
-    Kokkos::View<T*> r("r", v.size());
-    for (size_t i=0; i < v.size(); i++) {
-        r(i) = v[i];
-    }
-    return r;
-}
-
-)";
-
-
-        // Pre-declare all functions first, then generate code
-        // Otherwise some function might not be found.
-        unit_src += "// Forward declarations\n";
-        unit_src += declare_all_functions(*x.m_global_scope);
-        // Now pre-declare all functions from modules and programs
-        for (auto &item : x.m_global_scope->get_scope()) {
-            if (ASR::is_a<ASR::Module_t>(*item.second)) {
-                ASR::Module_t *m = ASR::down_cast<ASR::Module_t>(item.second);
-                unit_src += declare_all_functions(*m->m_symtab);
-            } else if (ASR::is_a<ASR::Program_t>(*item.second)) {
-                ASR::Program_t *p = ASR::down_cast<ASR::Program_t>(item.second);
-                unit_src += "namespace {\n"
-                            + declare_all_functions(*p->m_symtab)
-                            + "}\n";
-            }
-        }
-        unit_src += "\n";
-        unit_src += "// Implementations\n";
-
-        {
-            // Process intrinsic modules in the right order
-            std::vector<std::string> build_order
-                = ASRUtils::determine_module_dependencies(x);
-            for (auto &item : build_order) {
-                LCOMPILERS_ASSERT(x.m_global_scope->get_scope().find(item)
-                    != x.m_global_scope->get_scope().end());
-                if (startswith(item, "lfortran_intrinsic")) {
-                    ASR::symbol_t *mod = x.m_global_scope->get_symbol(item);
-                    visit_symbol(*mod);
-                    unit_src += src;
-                }
-            }
-        }
-
-        // Process procedures first:
-        for (auto &item : x.m_global_scope->get_scope()) {
-            if (ASR::is_a<ASR::Function_t>(*item.second)) {
-                visit_symbol(*item.second);
-                unit_src += src;
-            }
-        }
-
-        // Then do all the modules in the right order
-        std::vector<std::string> build_order
-            = ASRUtils::determine_module_dependencies(x);
-        for (auto &item : build_order) {
-            LCOMPILERS_ASSERT(x.m_global_scope->get_scope().find(item)
-                != x.m_global_scope->get_scope().end());
-            if (!startswith(item, "lfortran_intrinsic")) {
-                ASR::symbol_t *mod = x.m_global_scope->get_symbol(item);
-                visit_symbol(*mod);
-                unit_src += src;
-            }
-        }
-
-        // Then the main program:
-        for (auto &item : x.m_global_scope->get_scope()) {
-            if (ASR::is_a<ASR::Program_t>(*item.second)) {
-                visit_symbol(*item.second);
-                unit_src += src;
-            }
-        }
-
-        src = headers + array_types_decls + unit_src;
-    }
-
-    void visit_Program(const ASR::Program_t &x) {
-        // Generate code for nested subroutines and functions first:
-        std::string contains;
-        for (auto &item : x.m_symtab->get_scope()) {
-            if (ASR::is_a<ASR::Function_t>(*item.second)) {
-                ASR::Function_t *s = ASR::down_cast<ASR::Function_t>(item.second);
-                visit_Function(*s);
-                contains += src;
-            }
-        }
-
-        // Generate code for the main program
-        indentation_level += 1;
-        std::string indent1(indentation_level*indentation_spaces, ' ');
-        std::string decl;
-        for (auto &item : x.m_symtab->get_scope()) {
-            if (ASR::is_a<ASR::Variable_t>(*item.second)) {
-                ASR::Variable_t *v = ASR::down_cast<ASR::Variable_t>(item.second);
-                decl += indent1;
-                decl += convert_variable_decl(*v) + ";\n";
-            }
-        }
-
-        std::string body;
-        for (size_t i=0; i<x.n_body; i++) {
-            this->visit_stmt(*x.m_body[i]);
-            body += src;
-        }
-
-        src = "namespace {\n"
-                + contains
-                + "\nvoid main2() {\n"
-                + decl + body
-                + "}\n\n"
-                + "}\n"
-                + "int main(int argc, char* argv[])\n{\n"
-                + indent1 + "Kokkos::initialize(argc, argv);\n"
-                + indent1 + "main2();\n"
-                + indent1 + "Kokkos::finalize();\n"
-                + indent1 + "return 0;\n}\n";
-        indentation_level -= 2;
-    }
-
-    void visit_ComplexConstructor(const ASR::ComplexConstructor_t &x) {
-        this->visit_expr(*x.m_re);
-        std::string re = src;
-        this->visit_expr(*x.m_im);
-        std::string im = src;
-        src = "std::complex<float>(" + re + ", " + im + ")";
-        if (ASRUtils::extract_kind_from_ttype_t(x.m_type) == 8) {
-            src = "std::complex<double>(" + re + ", " + im + ")";
-        }
-        last_expr_precedence = 2;
-    }
-
-    void visit_ComplexConstant(const ASR::ComplexConstant_t &x) {
-        std::string re = std::to_string(x.m_re);
-        std::string im = std::to_string(x.m_im);
-        src = "std::complex<float>(" + re + ", " + im + ")";
-        if (ASRUtils::extract_kind_from_ttype_t(x.m_type) == 8) {
-            src = "std::complex<double>(" + re + ", " + im + ")";
-        }
-        last_expr_precedence = 2;
-    }
-
-    void visit_LogicalConstant(const ASR::LogicalConstant_t &x) {
-        if (x.m_value == true) {
-            src = "true";
-        } else {
-            src = "false";
-        }
-        last_expr_precedence = 2;
-    }
-
-    void visit_SetConstant(const ASR::SetConstant_t &x) {
-        std::string out = "{";
-        for (size_t i=0; i<x.n_elements; i++) {
-            visit_expr(*x.m_elements[i]);
-            out += src;
-            if (i != x.n_elements - 1)
-                out += ", ";
-        }
-        out += "}";
-        src = out;
-        last_expr_precedence = 2;
-    }
-
-    void visit_DictConstant(const ASR::DictConstant_t &x) {
-        LCOMPILERS_ASSERT(x.n_keys == x.n_values);
-        std::string out = "{";
-        for(size_t i=0; i<x.n_keys; i++) {
-            out += "{";
-            visit_expr(*x.m_keys[i]);
-            out += src + ", ";
-            visit_expr(*x.m_values[i]);
-            out += src + "}";
-            if (i!=x.n_keys-1) out += ", ";
-        }
-        out += "}";
-        src = out;
-        last_expr_precedence = 2;
-    }
-
-    void visit_ArrayConstant(const ASR::ArrayConstant_t &x) {
-        std::string indent(indentation_level * indentation_spaces, ' ');
-        from_std_vector_helper = indent + "Kokkos::View<float*> r;\n";
-        std::string out = "from_std_vector<float>({";
-        for (size_t i=0; i<x.n_args; i++) {
-            this->visit_expr(*x.m_args[i]);
-            out += src;
-            if (i < x.n_args-1) out += ", ";
-        }
-        out += "})";
-        from_std_vector_helper += indent + "r = " + out + ";\n";
-        src = "&r";
-        last_expr_precedence = 2;
-    }
-
-    void visit_ArraySize(const ASR::ArraySize_t& x) {
-        visit_expr(*x.m_v);
-        std::string var_name = src;
-        std::string args = "";
-        if (x.m_dim == nullptr) {
-            // TODO: return the product of all dimensions:
-            args = "0";
-        } else {
-            if( x.m_dim ) {
-                visit_expr(*x.m_dim);
-                args += src + "-1";
-                args += ", ";
-            }
-            args += std::to_string(ASRUtils::extract_kind_from_ttype_t(x.m_type)) + "-1";
-        }
-        src = var_name + "->data->extent(" + args + ")";
-    }
-
-    void visit_StringConcat(const ASR::StringConcat_t &x) {
-        this->visit_expr(*x.m_left);
-        std::string left = std::move(src);
-        int left_precedence = last_expr_precedence;
-        this->visit_expr(*x.m_right);
-        std::string right = std::move(src);
-        int right_precedence = last_expr_precedence;
-        last_expr_precedence = 6;
-        if (left_precedence <= last_expr_precedence) {
-            src += "std::string(" + left + ")";
-        } else {
-            src += left;
-        }
-        src += " + "; // handle only concatenation for now
-        if (right_precedence <= last_expr_precedence) {
-            src += "std::string(" + right + ")";
-        } else {
-            src += right;
-        }
-    }
-
-    void visit_StringItem(const ASR::StringItem_t& x) {
-        this->visit_expr(*x.m_idx);
-        std::string idx = std::move(src);
-        this->visit_expr(*x.m_arg);
-        std::string str = std::move(src);
-        src = str + "[" + idx + " - 1]";
-    }
-
-    void visit_StringLen(const ASR::StringLen_t &x) {
-        this->visit_expr(*x.m_arg);
-        src = src + ".length()";
-    }
-
-    void visit_Print(const ASR::Print_t &x) {
-        std::string indent(indentation_level*indentation_spaces, ' ');
-        std::string out = indent + "std::cout ", sep;
-        if (x.m_separator) {
-            this->visit_expr(*x.m_separator);
-            sep = src;
-        } else {
-            sep = "\" \"";
-        }
-        for (size_t i=0; i<x.n_values; i++) {
-            this->visit_expr(*x.m_values[i]);
-            out += "<< " + src + " ";
-            if (i+1 != x.n_values) {
-                out += "<< " + sep + " ";
-            }
-        }
-        if (x.m_end) {
-            this->visit_expr(*x.m_end);
-            out += "<< " + src + ";\n";
-        } else {
-            out += "<< std::endl;\n";
-        }
-        src = out;
-    }
-
-    void visit_FileWrite(const ASR::FileWrite_t &x) {
-        std::string indent(indentation_level*indentation_spaces, ' ');
-        std::string out = indent + "std::cout ";
-        for (size_t i=0; i<x.n_values; i++) {
-            this->visit_expr(*x.m_values[i]);
-            out += "<< " + src + " ";
-        }
-        out += "<< std::endl;\n";
-        src = out;
-    }
-
-    void visit_FileRead(const ASR::FileRead_t &x) {
-        std::string indent(indentation_level*indentation_spaces, ' ');
-        std::string out = indent + "// FIXME: READ: std::cout ";
-        for (size_t i=0; i<x.n_values; i++) {
-            this->visit_expr(*x.m_values[i]);
-            out += "<< " + src + " ";
-        }
-        out += "<< std::endl;\n";
-        src = out;
-    }
-
-    void visit_DoConcurrentLoop(const ASR::DoConcurrentLoop_t &x) {
-        std::string indent(indentation_level*indentation_spaces, ' ');
-        std::string out = indent + "Kokkos::parallel_for(";
-        out += "Kokkos::RangePolicy<Kokkos::DefaultExecutionSpace>(";
-        visit_expr(*x.m_head.m_start);
-        out += src + ", ";
-        visit_expr(*x.m_head.m_end);
-        out += src + "+1)";
-        ASR::Variable_t *loop_var = ASRUtils::EXPR2VAR(x.m_head.m_v);
-        sym_info[get_hash((ASR::asr_t*) loop_var)].needs_declaration = false;
-        out += ", KOKKOS_LAMBDA(const long " + std::string(loop_var->m_name)
-                + ") {\n";
-        indentation_level += 1;
-        for (size_t i=0; i<x.n_body; i++) {
-            this->visit_stmt(*x.m_body[i]);
-            out += src;
-        }
-        out += indent + "});\n";
-        indentation_level -= 1;
-        src = out;
-    }
-
-    void visit_ArrayItem(const ASR::ArrayItem_t &x) {
-        this->visit_expr(*x.m_v);
-        std::string array = src;
-        std::string out = array;
-        ASR::dimension_t* m_dims;
-        ASRUtils::extract_dimensions_from_ttype(ASRUtils::expr_type(x.m_v), m_dims);
-        out += "->data->operator[](";
-        std::string index = "";
-        for (size_t i=0; i<x.n_args; i++) {
-            std::string current_index = "";
-            if (x.m_args[i].m_right) {
-                this->visit_expr(*x.m_args[i].m_right);
-            } else {
-                src = "/* FIXME right index */";
-            }
-            out += src;
-            out += " - " + array + "->dims[" + std::to_string(i) + "].lower_bound";
-            if (i < x.n_args - 1) {
-                out += ", ";
-            }
-        }
-        out += ")";
-        last_expr_precedence = 2;
-        src = out;
-    }
-
-};
-
-Result<std::string> asr_to_cpp(Allocator &al, ASR::TranslationUnit_t &asr,
-    diag::Diagnostics &diagnostics, Platform &platform,
-    int64_t default_lower_bound)
-{
-    LCompilers::PassOptions pass_options;
-    pass_options.always_run = true;
-    pass_unused_functions(al, asr, pass_options);
-    ASRToCPPVisitor v(diagnostics, platform, default_lower_bound);
-    try {
-        v.visit_asr((ASR::asr_t &)asr);
-    } catch (const CodeGenError &e) {
-        diagnostics.diagnostics.push_back(e.d);
-        return Error();
-    } catch (const Abort &) {
-        return Error();
-    }
-    return v.src;
-}
-
-} // namespace LCompilers
diff --git a/src/libasr/codegen/asr_to_cpp.h b/src/libasr/codegen/asr_to_cpp.h
deleted file mode 100644
index 58380852dd..0000000000
--- a/src/libasr/codegen/asr_to_cpp.h
+++ /dev/null
@@ -1,14 +0,0 @@
-#ifndef LFORTRAN_ASR_TO_CPP_H
-#define LFORTRAN_ASR_TO_CPP_H
-
-#include <libasr/asr.h>
-#include <libasr/utils.h>
-
-namespace LCompilers {
-
-    Result<std::string> asr_to_cpp(Allocator &al, ASR::TranslationUnit_t &asr,
-        diag::Diagnostics &diagnostics, Platform &platform, int64_t default_lower_bound);
-
-} // namespace LCompilers
-
-#endif // LFORTRAN_ASR_TO_CPP_H
diff --git a/src/libasr/codegen/asr_to_julia.cpp b/src/libasr/codegen/asr_to_julia.cpp
deleted file mode 100644
index 7618b9e98a..0000000000
--- a/src/libasr/codegen/asr_to_julia.cpp
+++ /dev/null
@@ -1,1881 +0,0 @@
-#include "libasr/asr.h"
-#include "libasr/asr_utils.h"
-#include "libasr/diagnostics.h"
-#include <libasr/codegen/asr_to_julia.h>
-
-namespace LCompilers {
-
-/*
-Julia operator precedence:
-https://docs.julialang.org/en/v1/manual/mathematical-operations/#Operator-Precedence-and-Associativity
-
-Can also be queried by `Base.operator_precedence()`.
-
-Different from C++, the larger the number, the higher the precedence. To follow LFortran's
-convention, we need to revert the precedence table.
-*/
-enum julia_prec {
-    Base = 2,
-    Pow,         // ^
-    Unary,       // (-), !, ~
-    BitShift,    // <<, >>
-    Mul,         // *, /, &, |, ⊻
-    Add,         // +, -
-    Comp,        // ==, ≠, <, ≤, >, ≥
-    LogicalAnd,  // &&
-    LogicalOr,   // ||
-    Cond,        // ? :
-    Assign,      // =
-};
-
-static inline bool
-is_right_associated_julia(int prec)
-{
-    return prec == julia_prec::Pow || prec == julia_prec::Unary || prec >= julia_prec::LogicalAnd;
-}
-
-static inline std::string
-binop_to_str_julia(const ASR::binopType t)
-{
-    switch (t) {
-        case (ASR::binopType::Add): {
-            return " + ";
-        }
-        case (ASR::binopType::Sub): {
-            return " - ";
-        }
-        case (ASR::binopType::Mul): {
-            return " * ";
-        }
-        case (ASR::binopType::Div): {
-            return " / ";
-        }
-        case (ASR::binopType::Pow): {
-            return " ^ ";
-        }
-        case (ASR::binopType::BitAnd): {
-            return " & ";
-        }
-        case (ASR::binopType::BitOr): {
-            return " | ";
-        }
-        case (ASR::binopType::BitXor): {
-            return " ⊻ ";
-        }
-        case (ASR::binopType::BitLShift): {
-            return " << ";
-        }
-        case (ASR::binopType::BitRShift): {
-            return " >> ";
-        }
-        default:
-            throw LCompilersException("Cannot represent the binary operator as a string");
-    }
-}
-
-static inline std::string
-logicalbinop_to_str_julia(const ASR::logicalbinopType t)
-{
-    switch (t) {
-        case (ASR::logicalbinopType::And): {
-            return " && ";
-        }
-        case (ASR::logicalbinopType::Or): {
-            return " || ";
-        }
-        case (ASR::logicalbinopType::Eqv): {
-            return " == ";
-        }
-        case (ASR::logicalbinopType::NEqv): {
-            return " ≠ ";
-        }
-        default:
-            throw LCompilersException("Cannot represent the boolean operator as a string");
-    }
-}
-
-static inline std::string
-cmpop_to_str_julia(const ASR::cmpopType t)
-{
-    switch (t) {
-        case (ASR::cmpopType::Eq): {
-            return " == ";
-        }
-        case (ASR::cmpopType::NotEq): {
-            return " ≠ ";
-        }
-        case (ASR::cmpopType::Lt): {
-            return " < ";
-        }
-        case (ASR::cmpopType::LtE): {
-            return " ≤ ";
-        }
-        case (ASR::cmpopType::Gt): {
-            return " > ";
-        }
-        case (ASR::cmpopType::GtE): {
-            return " ≥ ";
-        }
-        default:
-            throw LCompilersException("Cannot represent the comparison as a string");
-    }
-}
-
-class ASRToJuliaVisitor : public ASR::BaseVisitor<ASRToJuliaVisitor>
-{
-public:
-    Allocator& al;
-    diag::Diagnostics& diag;
-    std::string src;
-    int indentation_level;
-    int indentation_spaces;
-    int last_expr_precedence;
-    bool intrinsic_module = false;
-    const ASR::Function_t* current_function = nullptr;
-
-    SymbolTable* global_scope;
-    std::map<uint64_t, SymbolInfo> sym_info;
-    std::map<std::string, std::set<std::string>> dependencies;
-
-    ASRToJuliaVisitor(Allocator& al, diag::Diagnostics& diag)
-        : al{ al }
-        , diag{ diag }
-    {
-    }
-
-    std::string format_type(const std::string& type,
-                            const std::string& name,
-                            bool use_ref,
-                            const std::string& default_value = "")
-    {
-        std::string fmt;
-        if (use_ref) {
-            fmt = name + "::Base.RefValue{" + type + "}";
-        } else {
-            fmt = name + "::" + type;
-        }
-
-        if (!default_value.empty())
-            fmt += " = " + default_value;
-
-        return fmt;
-    }
-
-    std::string format_dependencies()
-    {
-        std::string fmt;
-        if (dependencies.empty())
-            return fmt;
-
-        for (auto& p : dependencies) {
-            fmt += "using Main." + p.first + ": ";
-            for (auto it = p.second.begin(); it != p.second.end(); it++) {
-                fmt += *it;
-                if (std::next(it) != p.second.end())
-                    fmt += ", ";
-            }
-            fmt += "\n";
-        }
-        fmt += "\n";
-
-        return fmt;
-    }
-
-    std::string format_binop(const std::string& left,
-                             const std::string& op,
-                             const std::string& right,
-                             int left_precedence,
-                             int right_precedence,
-                             bool is_sub_div = false)
-    {
-        std::string out;
-        if (is_right_associated_julia(left_precedence)) {
-            out += "(" + left + ")";
-        } else {
-            if (left_precedence <= last_expr_precedence) {
-                out += left;
-            } else {
-                out += "(" + left + ")";
-            }
-        }
-        out += op;
-        if (is_right_associated_julia(right_precedence)) {
-            out += "(" + right + ")";
-        } else if (is_sub_div) {
-            if (right_precedence < last_expr_precedence) {
-                out += right;
-            } else {
-                out += "(" + right + ")";
-            }
-        } else {
-            if (right_precedence <= last_expr_precedence) {
-                out += right;
-            } else {
-                out += "(" + right + ")";
-            }
-        }
-
-        return out;
-    }
-
-    std::string get_primitive_type_name(ASR::Variable_t* farg)
-    {
-        std::string type_name;
-        if (ASRUtils::is_integer(*farg->m_type)) {
-            ASR::Integer_t* t = ASR::down_cast<ASR::Integer_t>(farg->m_type);
-            type_name = "Int" + std::to_string(t->m_kind * 8);
-        } else if (ASRUtils::is_real(*farg->m_type)) {
-            ASR::Real_t* t = ASR::down_cast<ASR::Real_t>(farg->m_type);
-            type_name = "Float32";
-            if (t->m_kind == 8)
-                type_name = "Float64";
-        } else if (ASRUtils::is_complex(*farg->m_type)) {
-            ASR::Complex_t* t = ASR::down_cast<ASR::Complex_t>(farg->m_type);
-            type_name = "ComplexF32";
-            if (t->m_kind == 8)
-                type_name = "ComplexF64";
-        }
-        return type_name;
-    }
-
-    void generate_array_decl(std::string& sub,
-                             std::string v_m_name,
-                             std::string& type_name,
-                             std::string& dims,
-                             ASR::dimension_t* m_dims,
-                             int n_dims,
-                             bool init_default = false,
-                             bool is_allocate = false)
-    {
-        if (!init_default) {
-            sub += v_m_name + "::Array{" + type_name + ", " + std::to_string(n_dims) + "}";
-        } else {
-            sub += v_m_name + " = Array{" + type_name + ", " + std::to_string(n_dims) + "}(undef, ";
-            if (is_allocate)
-                return;
-        }
-        for (int i = 0; i < n_dims; i++) {
-            if (m_dims[i].m_length) {
-                visit_expr(*m_dims[i].m_length);
-                if (init_default)
-                    sub += src;
-                else
-                    dims += src;
-                if (i < n_dims - 1) {
-                    if (init_default)
-                        sub += ", ";
-                    else
-                        dims += ", ";
-                }
-            }
-        }
-        if (init_default)
-            sub += ")";
-    }
-
-
-    std::string convert_variable_decl(const ASR::Variable_t& v, bool is_argument = false)
-    {
-        std::string sub;
-        bool is_array = ASRUtils::is_array(v.m_type);
-        bool use_ref = (v.m_intent == ASRUtils::intent_out
-                        || v.m_intent == ASRUtils::intent_inout)
-                       && !is_array;
-        std::string dims;
-        if (ASRUtils::is_pointer(v.m_type)) {
-            ASR::ttype_t* t2 = ASR::down_cast<ASR::Pointer_t>(v.m_type)->m_type;
-            if (ASRUtils::is_integer(*t2)) {
-                ASR::Integer_t* t = ASR::down_cast<ASR::Integer_t>(t2);
-                std::string type_name = "Int" + std::to_string(t->m_kind * 8);
-                if (is_array) {
-                    generate_array_decl(sub,
-                                        std::string(v.m_name),
-                                        type_name,
-                                        dims,
-                                        t->m_dims,
-                                        t->n_dims,
-                                        is_argument);
-                } else {
-                    sub = format_type(type_name, v.m_name, use_ref);
-                }
-            } else {
-                diag.codegen_error_label("Type number '" + std::to_string(v.m_type->type)
-                                             + "' not supported",
-                                         { v.base.base.loc },
-                                         "");
-                throw Abort();
-            }
-        } else {
-            bool init_default = !is_argument && !v.m_symbolic_value
-                                && v.m_storage != ASR::storage_typeType::Allocatable;
-            if (ASRUtils::is_integer(*v.m_type)) {
-                ASR::Integer_t* t = ASR::down_cast<ASR::Integer_t>(v.m_type);
-                std::string type_name = "Int" + std::to_string(t->m_kind * 8);
-                if (is_array) {
-                    generate_array_decl(sub,
-                                        std::string(v.m_name),
-                                        type_name,
-                                        dims,
-                                        t->m_dims,
-                                        t->n_dims,
-                                        init_default);
-                } else {
-                    sub = format_type(type_name, v.m_name, use_ref, init_default ? "0" : "");
-                }
-            } else if (ASRUtils::is_real(*v.m_type)) {
-                ASR::Real_t* t = ASR::down_cast<ASR::Real_t>(v.m_type);
-                std::string type_name = "Float32";
-                if (t->m_kind == 8)
-                    type_name = "Float64";
-                if (is_array) {
-                    generate_array_decl(sub,
-                                        std::string(v.m_name),
-                                        type_name,
-                                        dims,
-                                        t->m_dims,
-                                        t->n_dims,
-                                        init_default);
-                } else {
-                    sub = format_type(type_name, v.m_name, use_ref, init_default ? "0.0" : "");
-                }
-            } else if (ASRUtils::is_complex(*v.m_type)) {
-                ASR::Complex_t* t = ASR::down_cast<ASR::Complex_t>(v.m_type);
-                std::string type_name = "ComplexF32";
-                if (t->m_kind == 8)
-                    type_name = "ComplexF64";
-                if (is_array) {
-                    generate_array_decl(sub,
-                                        std::string(v.m_name),
-                                        type_name,
-                                        dims,
-                                        t->m_dims,
-                                        t->n_dims,
-                                        init_default);
-                } else {
-                    sub = format_type(type_name, v.m_name, use_ref, init_default ? "0.0" : "");
-                }
-            } else if (ASRUtils::is_logical(*v.m_type)) {
-                std::string type_name = "Bool";
-                ASR::Logical_t* t = ASR::down_cast<ASR::Logical_t>(v.m_type);
-                if (is_array) {
-                    generate_array_decl(sub,
-                                        std::string(v.m_name),
-                                        type_name,
-                                        dims,
-                                        t->m_dims,
-                                        t->n_dims,
-                                        init_default);
-                } else {
-                    sub = format_type(type_name, v.m_name, use_ref, init_default ? "false" : "");
-                }
-            } else if (ASRUtils::is_character(*v.m_type)) {
-                std::string type_name = "String";
-                ASR::Character_t* t = ASR::down_cast<ASR::Character_t>(v.m_type);
-                if (is_array) {
-                    generate_array_decl(sub,
-                                        std::string(v.m_name),
-                                        type_name,
-                                        dims,
-                                        t->m_dims,
-                                        t->n_dims,
-                                        init_default);
-                } else {
-                    sub = format_type(type_name, v.m_name, use_ref, init_default ? "\"\"" : "");
-                }
-            } else if (ASR::is_a<ASR::Struct_t>(*v.m_type)) {
-                // TODO: handle this
-                ASR::Struct_t* t = ASR::down_cast<ASR::Struct_t>(v.m_type);
-                std::string der_type_name = ASRUtils::symbol_name(t->m_derived_type);
-                if (is_array) {
-                    generate_array_decl(sub,
-                                        std::string(v.m_name),
-                                        der_type_name,
-                                        dims,
-                                        t->m_dims,
-                                        t->n_dims,
-                                        init_default);
-                } else {
-                    sub = format_type(der_type_name, v.m_name, use_ref);
-                }
-            } else {
-                diag.codegen_error_label("Type number '" + std::to_string(v.m_type->type)
-                                             + "' not supported",
-                                         { v.base.base.loc },
-                                         "");
-                throw Abort();
-            }
-            // if (dims.size() == 0 && v.m_storage == ASR::storage_typeType::Save) {
-            //     sub = "static " + sub;
-            // }
-            if (v.m_symbolic_value) {
-                visit_expr(*v.m_symbolic_value);
-                std::string init = src;
-                if (is_array && !ASR::is_a<ASR::ArrayConstant_t>(*v.m_symbolic_value)) {
-                    sub += " = fill(" + init + ", " + dims + ")";
-                } else {
-                    sub += " = " + init;
-                }
-            }
-        }
-
-        return sub;
-    }
-
-    // Returns the declaration, no semi colon at the end
-    std::string get_function_declaration(const ASR::Function_t& x)
-    {
-        std::string sub, inl, ret_type;
-        if (ASRUtils::get_FunctionType(x)->m_inline) {
-            inl = "@inline ";
-        }
-        if (x.m_return_var) {
-            ASR::Variable_t* return_var = ASRUtils::EXPR2VAR(x.m_return_var);
-            if (ASRUtils::is_integer(*return_var->m_type)) {
-                int kind = ASR::down_cast<ASR::Integer_t>(return_var->m_type)->m_kind;
-                switch (kind) {
-                    case (1):
-                        ret_type = "Int8";
-                        break;
-                    case (2):
-                        ret_type = "Int16";
-                        break;
-                    case (4):
-                        ret_type = "Int32";
-                        break;
-                    case (8):
-                        ret_type = "Int64";
-                        break;
-                }
-            } else if (ASRUtils::is_real(*return_var->m_type)) {
-                bool is_float = ASR::down_cast<ASR::Real_t>(return_var->m_type)->m_kind == 4;
-                if (is_float) {
-                    ret_type = "Float32";
-                } else {
-                    ret_type = "Float64";
-                }
-            } else if (ASRUtils::is_logical(*return_var->m_type)) {
-                ret_type = "Bool";
-            } else if (ASRUtils::is_character(*return_var->m_type)) {
-                ret_type = "String";
-            } else if (ASRUtils::is_complex(*return_var->m_type)) {
-                bool is_float = ASR::down_cast<ASR::Complex_t>(return_var->m_type)->m_kind == 4;
-                if (is_float) {
-                    ret_type = "ComplexF32";
-                } else {
-                    ret_type = "ComplexF64";
-                }
-            } else if (ASR::is_a<ASR::CPtr_t>(*return_var->m_type)) {
-                ret_type = "Ptr{Cvoid}";
-            } else {
-                throw CodeGenError("Return type not supported in function '" + std::string(x.m_name)
-                                       + +"'",
-                                   return_var->base.base.loc);
-            }
-        }
-        std::string sym_name = x.m_name;
-        if (sym_name == "main") {
-            sym_name = "_xx_lcompilers_changed_main_xx";
-        }
-        if (sym_name == "exit") {
-            sym_name = "_xx_lcompilers_changed_exit_xx";
-        }
-        std::string func = inl + "function " + sym_name + "(";
-        for (size_t i = 0; i < x.n_args; i++) {
-            ASR::Variable_t* arg = ASRUtils::EXPR2VAR(x.m_args[i]);
-            LCOMPILERS_ASSERT(ASRUtils::is_arg_dummy(arg->m_intent));
-            func += this->convert_variable_decl(*arg, true);
-            if (i < x.n_args - 1)
-                func += ", ";
-        }
-        func += ")";
-        if (!ret_type.empty())
-            func += "::" + ret_type;
-
-        return func;
-    }
-
-    void visit_TranslationUnit(const ASR::TranslationUnit_t& x)
-    {
-        global_scope = x.m_global_scope;
-
-        // All loose statements must be converted to a function, so the items
-        // must be empty:
-        LCOMPILERS_ASSERT(x.n_items == 0);
-        std::string unit_src = "";
-        indentation_level = 0;
-        indentation_spaces = 4;
-
-        std::string headers = R"()";
-        unit_src += headers;
-
-        {
-            // Process intrinsic modules in the right order
-            std::vector<std::string> build_order
-                = ASRUtils::determine_module_dependencies(x);
-            for (auto& item : build_order) {
-                LCOMPILERS_ASSERT(x.m_global_scope->get_scope().find(item)
-                                != x.m_global_scope->get_scope().end());
-                if (startswith(item, "lfortran_intrinsic")) {
-                    ASR::symbol_t* mod = x.m_global_scope->get_symbol(item);
-                    visit_symbol(*mod);
-                    unit_src += src;
-                }
-            }
-        }
-
-        // Process procedures first:
-        for (auto& item : x.m_global_scope->get_scope()) {
-            if (ASR::is_a<ASR::Function_t>(*item.second)) {
-                visit_symbol(*item.second);
-                unit_src += src;
-            }
-        }
-
-        // Then do all the modules in the right order
-        std::vector<std::string> build_order = ASRUtils::determine_module_dependencies(x);
-        for (auto& item : build_order) {
-            LCOMPILERS_ASSERT(x.m_global_scope->get_scope().find(item)
-                            != x.m_global_scope->get_scope().end());
-            if (!startswith(item, "lfortran_intrinsic")) {
-                ASR::symbol_t* mod = x.m_global_scope->get_symbol(item);
-                visit_symbol(*mod);
-                unit_src += src;
-            }
-        }
-
-        // Then the main program:
-        for (auto& item : x.m_global_scope->get_scope()) {
-            if (ASR::is_a<ASR::Program_t>(*item.second)) {
-                visit_symbol(*item.second);
-                unit_src += src;
-            }
-        }
-
-        src = unit_src;
-    }
-
-    void visit_Module(const ASR::Module_t& x)
-    {
-        dependencies.clear();
-        std::string module = "module " + std::string(x.m_name) + "\n\n";
-        if (startswith(x.m_name, "lfortran_intrinsic_")) {
-            intrinsic_module = true;
-        } else {
-            intrinsic_module = false;
-        }
-
-        std::string contains;
-
-        // Generate the bodies of subroutines
-        for (auto& item : x.m_symtab->get_scope()) {
-            if (ASR::is_a<ASR::Function_t>(*item.second)) {
-                ASR::Function_t* s = ASR::down_cast<ASR::Function_t>(item.second);
-                visit_Function(*s);
-                contains += src;
-            }
-        }
-
-        module += format_dependencies() + contains + "end\n\n";
-        src = module;
-        intrinsic_module = false;
-    }
-
-    void visit_Program(const ASR::Program_t& x)
-    {
-        dependencies.clear();
-
-        // Generate code for nested subroutines and functions first:
-        std::string contains;
-        for (auto& item : x.m_symtab->get_scope()) {
-            if (ASR::is_a<ASR::Function_t>(*item.second)) {
-                ASR::Function_t* s = ASR::down_cast<ASR::Function_t>(item.second);
-                visit_Function(*s);
-                contains += src;
-            }
-        }
-
-        // Generate code for the main program
-        indentation_level += 1;
-        std::string indent(indentation_level * indentation_spaces, ' ');
-        std::string decl;
-        for (auto& item : x.m_symtab->get_scope()) {
-            if (ASR::is_a<ASR::Variable_t>(*item.second)) {
-                ASR::Variable_t* v = ASR::down_cast<ASR::Variable_t>(item.second);
-                decl += indent + "local " + this->convert_variable_decl(*v) + "\n";
-            }
-        }
-
-        std::string body;
-        for (size_t i = 0; i < x.n_body; i++) {
-            visit_stmt(*x.m_body[i]);
-            body += src;
-        }
-
-        src = format_dependencies() + contains + "function main()\n" + decl + body + "end\n\n"
-              + "main()\n";
-        indentation_level -= 2;
-    }
-
-    void visit_BlockCall(const ASR::BlockCall_t& x)
-    {
-        LCOMPILERS_ASSERT(ASR::is_a<ASR::Block_t>(*x.m_m));
-        ASR::Block_t* block = ASR::down_cast<ASR::Block_t>(x.m_m);
-        std::string indent(indentation_level * indentation_spaces, ' ');
-        std::string decl, body;
-        std::string open_paranthesis = indent + "let\n";
-        std::string close_paranthesis = indent + "end\n";
-        indent += std::string(indentation_spaces, ' ');
-        indentation_level += 1;
-        for (auto& item : block->m_symtab->get_scope()) {
-            if (ASR::is_a<ASR::Variable_t>(*item.second)) {
-                ASR::Variable_t* v = ASR::down_cast<ASR::Variable_t>(item.second);
-                decl += indent + this->convert_variable_decl(*v) + "\n";
-            }
-        }
-        for (size_t i = 0; i < block->n_body; i++) {
-            this->visit_stmt(*block->m_body[i]);
-            body += src;
-        }
-        src = open_paranthesis + decl + body + close_paranthesis;
-        indentation_level -= 1;
-    }
-
-    void visit_Function(const ASR::Function_t& x)
-    {
-        if (std::string(x.m_name) == "size" && intrinsic_module) {
-            // Intrinsic function `size`
-            SymbolInfo s;
-            s.intrinsic_function = true;
-            sym_info[get_hash((ASR::asr_t*) &x)] = s;
-            src.clear();
-            return;
-        } else if ((std::string(x.m_name) == "int" || std::string(x.m_name) == "char"
-                    || std::string(x.m_name) == "present" || std::string(x.m_name) == "len"
-                    || std::string(x.m_name) == "not")
-                   && intrinsic_module) {
-            // Intrinsic function `int`
-            SymbolInfo s;
-            s.intrinsic_function = true;
-            sym_info[get_hash((ASR::asr_t*) &x)] = s;
-            src.clear();
-            return;
-        } else {
-            SymbolInfo s;
-            s.intrinsic_function = false;
-            sym_info[get_hash((ASR::asr_t*) &x)] = s;
-        }
-        std::string sub = get_function_declaration(x);
-        if (ASRUtils::get_FunctionType(x)->m_abi == ASR::abiType::BindC &&
-            ASRUtils::get_FunctionType(x)->m_deftype == ASR::deftypeType::Interface) {
-        } else {
-            indentation_level += 1;
-            std::string indent(indentation_level * indentation_spaces, ' ');
-            std::string decl;
-            for (auto& item : x.m_symtab->get_scope()) {
-                if (ASR::is_a<ASR::Variable_t>(*item.second)) {
-                    ASR::Variable_t* v = ASR::down_cast<ASR::Variable_t>(item.second);
-                    if (v->m_intent == ASRUtils::intent_local
-                        || v->m_intent == ASRUtils::intent_return_var) {
-                        decl += indent + "local " + this->convert_variable_decl(*v) + "\n";
-                    }
-                }
-            }
-
-            current_function = &x;
-            std::string body;
-
-            for (size_t i = 0; i < x.n_body; i++) {
-                visit_stmt(*x.m_body[i]);
-                body += src;
-            }
-
-            current_function = nullptr;
-            bool visited_return = false;
-
-            if (x.n_body > 0 && ASR::is_a<ASR::Return_t>(*x.m_body[x.n_body - 1])) {
-                visited_return = true;
-            }
-
-            if (!visited_return && x.m_return_var) {
-                body += indent + "return " + ASRUtils::EXPR2VAR(x.m_return_var)->m_name
-                        + "\n";
-            }
-
-            if (decl.size() > 0 || body.size() > 0) {
-                sub += "\n" + decl + body + "end\n";
-            } else {
-                sub += " end\n";
-            }
-            indentation_level -= 1;
-        }
-        sub += "\n";
-        src = sub;
-    }
-
-    void visit_FunctionCall(const ASR::FunctionCall_t& x)
-    {
-        // Add dependencies
-        if (x.m_name->type == ASR::symbolType::ExternalSymbol) {
-            ASR::ExternalSymbol_t* e = ASR::down_cast<ASR::ExternalSymbol_t>(x.m_name);
-            dependencies[std::string(e->m_module_name)].insert(std::string(e->m_name));
-        }
-
-        ASR::Function_t* fn = ASR::down_cast<ASR::Function_t>(
-            ASRUtils::symbol_get_past_external(x.m_name));
-        std::string fn_name = fn->m_name;
-        if (sym_info[get_hash((ASR::asr_t*) fn)].intrinsic_function) {
-            if (fn_name == "size") {
-                // TODO: implement this properly
-                LCOMPILERS_ASSERT(x.n_args > 0);
-                visit_expr(*x.m_args[0].m_value);
-                std::string var_name = src;
-                std::string args;
-                if (x.n_args == 1) {
-                    args = "0";
-                } else {
-                    for (size_t i = 1; i < x.n_args; i++) {
-                        visit_expr(*x.m_args[i].m_value);
-                        args += src + "-1";
-                        if (i < x.n_args - 1)
-                            args += ", ";
-                    }
-                }
-                src = var_name + ".extent(" + args + ")";
-            } else {
-                throw CodeGenError("Intrinsic function '" + fn_name + "' not implemented");
-            }
-        } else {
-            std::string args;
-            for (size_t i = 0; i < x.n_args; i++) {
-                ASR::Variable_t* farg = ASRUtils::EXPR2VAR(fn->m_args[i]);
-                bool use_ref = (farg->m_intent == ASR::intentType::Out
-                                || farg->m_intent == ASR::intentType::InOut)
-                               && !ASRUtils::is_array(farg->m_type);
-
-                std::string type_name, prefix, suffix;
-                if (!use_ref) {
-                    type_name = get_primitive_type_name(farg);
-                    if (!type_name.empty()) {
-                        prefix = type_name + "(";
-                        suffix = ")";
-                    }
-                }
-
-                if (ASR::is_a<ASR::Var_t>(*x.m_args[i].m_value)) {
-                    ASR::Variable_t* arg = ASRUtils::EXPR2VAR(x.m_args[i].m_value);
-                    std::string arg_name = arg->m_name;
-                    bool is_ref = (arg->m_intent == ASR::intentType::Out
-                                   || arg->m_intent == ASR::intentType::InOut)
-                                  && !ASRUtils::is_array(arg->m_type);
-                    if (use_ref && !is_ref) {
-                        throw CodeGenError(
-                            "intent(out) and intent(inout) cannot be used in functions unless the variables passed in are intent(out) or intent(inout) in the outer scope");
-                    } else if (!use_ref && is_ref) {
-                        args += arg_name + "[]";
-                    } else {
-                        args += arg_name;
-                    }
-                } else {
-                    visit_expr(*x.m_args[i].m_value);
-                    args += prefix + src + suffix;
-                }
-                if (i < x.n_args - 1)
-                    args += ", ";
-            }
-            src = fn_name + "(" + args + ")";
-        }
-        last_expr_precedence = julia_prec::Base;
-    }
-
-    void visit_Assignment(const ASR::Assignment_t& x)
-    {
-        std::string target, op = " = ";
-        if (ASR::is_a<ASR::Var_t>(*x.m_target)) {
-            visit_Var(*ASR::down_cast<ASR::Var_t>(x.m_target));
-            target = src;
-
-            // Use broadcast for array assignments
-            if (ASRUtils::is_array(ASRUtils::expr_type(x.m_target))) {
-                op = " .= ";
-            }
-        } else {
-            visit_expr(*x.m_target);
-            target = src;
-
-            // Use broadcast for array section assignments
-            if (ASR::is_a<ASR::ArraySection_t>(*x.m_target)) {
-                op = " .= ";
-            }
-        }
-        visit_expr(*x.m_value);
-        std::string value = src;
-        std::string indent(indentation_level * indentation_spaces, ' ');
-        src.clear();
-        src += indent + target + op + value + "\n";
-    }
-
-    void visit_IntegerBinOp(const ASR::IntegerBinOp_t& x)
-    {
-        handle_BinOp(x, true);
-    }
-
-    void visit_RealBinOp(const ASR::RealBinOp_t& x)
-    {
-        handle_BinOp(x);
-    }
-
-    void visit_ComplexBinOp(const ASR::ComplexBinOp_t& x)
-    {
-        handle_BinOp(x);
-    }
-
-    template <typename T>
-    void handle_BinOp(const T& x, bool is_integer_binop = false)
-    {
-        visit_expr(*x.m_left);
-        std::string left = std::move(src);
-        int left_precedence = last_expr_precedence;
-        visit_expr(*x.m_right);
-        std::string right = std::move(src);
-        int right_precedence = last_expr_precedence;
-        std::string op = binop_to_str_julia(x.m_op);
-        switch (x.m_op) {
-            case (ASR::binopType::Add):
-            case (ASR::binopType::Sub): {
-                last_expr_precedence = julia_prec::Add;
-                break;
-            }
-            case (ASR::binopType::Mul):
-            case (ASR::binopType::BitAnd):
-            case (ASR::binopType::BitOr):
-            case (ASR::binopType::BitXor): {
-                last_expr_precedence = julia_prec::Mul;
-                break;
-            }
-            case (ASR::binopType::Div): {
-                last_expr_precedence = julia_prec::Mul;
-                if (is_integer_binop)
-                    op = " ÷ ";
-                break;
-            }
-            case (ASR::binopType::BitLShift):
-            case (ASR::binopType::BitRShift): {
-                last_expr_precedence = julia_prec::BitShift;
-                break;
-            }
-            case (ASR::binopType::Pow): {
-                last_expr_precedence = julia_prec::Pow;
-                break;
-            }
-            default:
-                throw CodeGenError("BinOp: " + std::to_string(x.m_op)
-                                   + " operator not implemented yet");
-        }
-        src = format_binop(
-            left, op, right, left_precedence, right_precedence,
-                x.m_op == ASR::binopType::Sub || x.m_op == ASR::binopType::Div);
-    }
-
-    void visit_LogicalBinOp(const ASR::LogicalBinOp_t& x)
-    {
-        visit_expr(*x.m_left);
-        std::string left = std::move(src);
-        int left_precedence = last_expr_precedence;
-        visit_expr(*x.m_right);
-        std::string right = std::move(src);
-        int right_precedence = last_expr_precedence;
-        switch (x.m_op) {
-            case (ASR::logicalbinopType::And): {
-                last_expr_precedence = julia_prec::LogicalAnd;
-                break;
-            }
-            case (ASR::logicalbinopType::Or): {
-                last_expr_precedence = julia_prec::LogicalOr;
-                break;
-            }
-            case (ASR::logicalbinopType::NEqv):
-            case (ASR::logicalbinopType::Eqv): {
-                last_expr_precedence = julia_prec::Comp;
-                break;
-            }
-            default:
-                throw CodeGenError("Unhandled switch case");
-        }
-
-        if (left_precedence <= last_expr_precedence) {
-            src += left;
-        } else {
-            src += "(" + left + ")";
-        }
-        src += logicalbinop_to_str_julia(x.m_op);
-        if (right_precedence <= last_expr_precedence) {
-            src += right;
-        } else {
-            src += "(" + right + ")";
-        }
-    }
-
-    void visit_Allocate(const ASR::Allocate_t& x)
-    {
-        std::string indent(indentation_level * indentation_spaces, ' ');
-        std::string out, _dims;
-        for (size_t i = 0; i < x.n_args; i++) {
-            const ASR::Variable_t* v = ASR::down_cast<ASR::Variable_t>(
-                ASRUtils::symbol_get_past_external(x.m_args[i].m_a));
-
-            // Skip pointer allocation
-            if (!ASRUtils::is_array(v->m_type))
-                continue;
-
-            out += indent;
-            ASR::dimension_t* dims = x.m_args[i].m_dims;
-            size_t n_dims = x.m_args[i].n_dims;
-
-            if (ASRUtils::is_integer(*v->m_type)) {
-                ASR::Integer_t* t = ASR::down_cast<ASR::Integer_t>(v->m_type);
-                std::string type_name = "Int" + std::to_string(t->m_kind * 8);
-                generate_array_decl(
-                    out, std::string(v->m_name), type_name, _dims, nullptr, n_dims, true, true);
-            } else if (ASRUtils::is_real(*v->m_type)) {
-                ASR::Real_t* t = ASR::down_cast<ASR::Real_t>(v->m_type);
-                std::string type_name = "Float32";
-                if (t->m_kind == 8)
-                    type_name = "Float64";
-                generate_array_decl(
-                    out, std::string(v->m_name), type_name, _dims, nullptr, n_dims, true, true);
-            } else if (ASRUtils::is_complex(*v->m_type)) {
-                ASR::Complex_t* t = ASR::down_cast<ASR::Complex_t>(v->m_type);
-                std::string type_name = "ComplexF32";
-                if (t->m_kind == 8)
-                    type_name = "ComplexF64";
-                generate_array_decl(
-                    out, std::string(v->m_name), type_name, _dims, nullptr, n_dims, true, true);
-            } else if (ASRUtils::is_logical(*v->m_type)) {
-                std::string type_name = "Bool";
-                generate_array_decl(
-                    out, std::string(v->m_name), type_name, _dims, nullptr, n_dims, true, true);
-            } else if (ASRUtils::is_character(*v->m_type)) {
-                std::string type_name = "String";
-                generate_array_decl(
-                    out, std::string(v->m_name), type_name, _dims, nullptr, n_dims, true, true);
-            } else if (ASR::is_a<ASR::Struct_t>(*v->m_type)) {
-                ASR::Struct_t* t = ASR::down_cast<ASR::Struct_t>(v->m_type);
-                std::string der_type_name = ASRUtils::symbol_name(t->m_derived_type);
-                generate_array_decl(
-                    out, std::string(v->m_name), der_type_name, _dims, nullptr, n_dims, true, true);
-            } else {
-                diag.codegen_error_label("Type number '" + std::to_string(v->m_type->type)
-                                             + "' not supported",
-                                         { v->base.base.loc },
-                                         "");
-                throw Abort();
-            }
-
-
-            for (size_t j = 0; j < n_dims; j++) {
-                if (dims[j].m_length) {
-                    visit_expr(*dims[j].m_length);
-                    out += src;
-                }
-                if (j < n_dims - 1)
-                    out += ", ";
-            }
-            out += ")\n";
-        }
-        src = out;
-    }
-
-    void visit_Assert(const ASR::Assert_t& x)
-    {
-        std::string indent(indentation_level * indentation_spaces, ' ');
-        std::string out = indent;
-        out += "@assert (";
-        this->visit_expr(*x.m_test);
-        out += src + ")";
-        if (x.m_msg) {
-            out += " ";
-            this->visit_expr(*x.m_msg);
-            out += src;
-        }
-        src = out;
-    }
-
-    // We do not need to manually deallocate in Julia.
-    void visit_ExplicitDeallocate(const ASR::ExplicitDeallocate_t& /* x */)
-    {
-        src.clear();
-    }
-
-    void visit_ImplicitDeallocate(const ASR::ImplicitDeallocate_t& /* x */)
-    {
-        src.clear();
-    }
-
-    void visit_Select(const ASR::Select_t& x)
-    {
-        std::string indent(indentation_level * indentation_spaces, ' ');
-        this->visit_expr(*x.m_test);
-        std::string var = std::move(src);
-        std::string out = indent + "if ";
-
-        for (size_t i = 0; i < x.n_body; i++) {
-            if (i > 0)
-                out += indent + "elseif ";
-            ASR::case_stmt_t* stmt = x.m_body[i];
-            if (stmt->type == ASR::case_stmtType::CaseStmt) {
-                ASR::CaseStmt_t* case_stmt = ASR::down_cast<ASR::CaseStmt_t>(stmt);
-                for (size_t j = 0; j < case_stmt->n_test; j++) {
-                    if (j > 0)
-                        out += " || ";
-                    this->visit_expr(*case_stmt->m_test[j]);
-                    out += var + " == " + src;
-                }
-                out += "\n";
-                indentation_level += 1;
-                for (size_t j = 0; j < case_stmt->n_body; j++) {
-                    this->visit_stmt(*case_stmt->m_body[j]);
-                    out += src;
-                }
-                indentation_level -= 1;
-            } else {
-                ASR::CaseStmt_Range_t* case_stmt_range
-                    = ASR::down_cast<ASR::CaseStmt_Range_t>(stmt);
-                std::string left, right;
-                if (case_stmt_range->m_start) {
-                    this->visit_expr(*case_stmt_range->m_start);
-                    left = std::move(src);
-                }
-                if (case_stmt_range->m_end) {
-                    this->visit_expr(*case_stmt_range->m_end);
-                    right = std::move(src);
-                }
-                if (left.empty() && right.empty()) {
-                    diag.codegen_error_label(
-                        "Empty range in select statement", { x.base.base.loc }, "");
-                    throw Abort();
-                }
-                if (left.empty()) {
-                    out += var + " ≤ " + right;
-                } else if (right.empty()) {
-                    out += var + " ≥ " + left;
-                } else {
-                    out += left + " ≤ " + var + " ≤ " + right;
-                }
-                out += "\n";
-                indentation_level += 1;
-                for (size_t j = 0; j < case_stmt_range->n_body; j++) {
-                    this->visit_stmt(*case_stmt_range->m_body[j]);
-                    out += src;
-                }
-                indentation_level -= 1;
-            }
-        }
-        if (x.n_default) {
-            out += indent + "else\n";
-            indentation_level += 1;
-            for (size_t i = 0; i < x.n_default; i++) {
-                this->visit_stmt(*x.m_default[i]);
-                out += src;
-            }
-            indentation_level -= 1;
-        }
-
-        out += indent + "end\n";
-        src = out;
-    }
-
-    void visit_WhileLoop(const ASR::WhileLoop_t& x)
-    {
-        std::string indent(indentation_level * indentation_spaces, ' ');
-        std::string out = indent + "while ";
-        this->visit_expr(*x.m_test);
-        out += src + "\n";
-        indentation_level += 1;
-        for (size_t i = 0; i < x.n_body; i++) {
-            this->visit_stmt(*x.m_body[i]);
-            out += src;
-        }
-        out += indent + "end\n";
-        indentation_level -= 1;
-        src = out;
-    }
-
-    void visit_Exit(const ASR::Exit_t& /* x */)
-    {
-        std::string indent(indentation_level * indentation_spaces, ' ');
-        src = indent + "break\n";
-    }
-
-    void visit_Cycle(const ASR::Cycle_t& /* x */)
-    {
-        std::string indent(indentation_level * indentation_spaces, ' ');
-        src = indent + "continue\n";
-    }
-
-    void visit_Return(const ASR::Return_t& /* x */)
-    {
-        std::string indent(indentation_level * indentation_spaces, ' ');
-        if (current_function && current_function->m_return_var) {
-            src = indent + "return "
-                  + ASRUtils::EXPR2VAR(current_function->m_return_var)->m_name + "\n";
-        } else {
-            src = indent + "return\n";
-        }
-    }
-
-    void visit_GoTo(const ASR::GoTo_t& x)
-    {
-        std::string indent(indentation_level * indentation_spaces, ' ');
-        src = indent + "@goto label_" + std::to_string(x.m_target_id) + "\n";
-    }
-
-    void visit_GoToTarget(const ASR::GoToTarget_t& x)
-    {
-        std::string indent(indentation_level * indentation_spaces, ' ');
-        src = indent + "@label label_" + std::to_string(x.m_id) + "\n";
-    }
-
-    void visit_Stop(const ASR::Stop_t& x)
-    {
-        if (x.m_code) {
-            this->visit_expr(*x.m_code);
-        } else {
-            src = "0";
-        }
-        std::string indent(indentation_level * indentation_spaces, ' ');
-        src = indent + "exit(" + src + ")\n";
-    }
-
-    void visit_ErrorStop(const ASR::ErrorStop_t& /* x */)
-    {
-        std::string indent(indentation_level * indentation_spaces, ' ');
-        src = indent + "println(Base.stderr, \"ERROR STOP\")\n";
-        src += indent + "exit(1)\n";
-    }
-
-    void visit_ImpliedDoLoop(const ASR::ImpliedDoLoop_t& /*x*/)
-    {
-        std::string indent(indentation_level * indentation_spaces, ' ');
-        std::string out = indent + " /* FIXME: implied do loop */ ";
-        src = out;
-        last_expr_precedence = 2;
-    }
-
-    void visit_DoLoop(const ASR::DoLoop_t& x, bool concurrent = false)
-    {
-        std::string indent(indentation_level * indentation_spaces, ' ');
-        std::string out = indent;
-        if (concurrent) {
-            out += "Threads.@threads ";
-        }
-        out += "for ";
-        ASR::Variable_t* loop_var = ASRUtils::EXPR2VAR(x.m_head.m_v);
-        std::string lvname = loop_var->m_name;
-        ASR::expr_t* a = x.m_head.m_start;
-        ASR::expr_t* b = x.m_head.m_end;
-        ASR::expr_t* c = x.m_head.m_increment;
-        LCOMPILERS_ASSERT(a);
-        LCOMPILERS_ASSERT(b);
-        int increment;
-        if (!c) {
-            increment = 1;
-        } else {
-            if (c->type == ASR::exprType::IntegerConstant) {
-                increment = ASR::down_cast<ASR::IntegerConstant_t>(c)->m_n;
-            } else if (c->type == ASR::exprType::IntegerUnaryMinus) {
-                ASR::IntegerUnaryMinus_t* ium = ASR::down_cast<ASR::IntegerUnaryMinus_t>(c);
-                increment = -ASR::down_cast<ASR::IntegerConstant_t>(ium->m_arg)->m_n;
-            } else {
-                throw CodeGenError("Do loop increment type not supported");
-            }
-        }
-        out += lvname + " ∈ ";
-        visit_expr(*a);
-        out += src + ":" + (increment == 1 ? "" : (std::to_string(increment) + ":"));
-        visit_expr(*b);
-        out += src + "\n";
-        indentation_level += 1;
-        for (size_t i = 0; i < x.n_body; i++) {
-            visit_stmt(*x.m_body[i]);
-            out += src;
-        }
-        out += indent + "end\n";
-        indentation_level -= 1;
-        src = out;
-    }
-
-    void visit_DoConcurrentLoop(const ASR::DoConcurrentLoop_t& x)
-    {
-        const ASR::DoLoop_t do_loop = ASR::DoLoop_t{ x.base, x.m_head, x.m_body, x.n_body };
-        visit_DoLoop(do_loop, true);
-    }
-
-    void visit_If(const ASR::If_t& x)
-    {
-        std::string indent(indentation_level * indentation_spaces, ' ');
-        std::string out = indent + "if ";
-        visit_expr(*x.m_test);
-        out += src + "\n";
-        indentation_level += 1;
-        for (size_t i = 0; i < x.n_body; i++) {
-            visit_stmt(*x.m_body[i]);
-            out += src;
-        }
-        out += indent;
-        if (x.n_orelse == 0) {
-            out += "end\n";
-        } else {
-            out += "else\n";
-            for (size_t i = 0; i < x.n_orelse; i++) {
-                visit_stmt(*x.m_orelse[i]);
-                out += src;
-            }
-            out += indent + "end\n";
-        }
-        indentation_level -= 1;
-        src = out;
-    }
-
-    void visit_IfExp(const ASR::IfExp_t& x)
-    {
-        // IfExp is like a ternary operator in Julia
-        // test ? body : orelse;
-        std::string out = "(";
-        visit_expr(*x.m_test);
-        out += src + ") ? (";
-        visit_expr(*x.m_body);
-        out += src + ") : (";
-        visit_expr(*x.m_orelse);
-        out += src + ")";
-        src = out;
-        last_expr_precedence = julia_prec::Cond;
-    }
-
-    void visit_SubroutineCall(const ASR::SubroutineCall_t& x)
-    {
-        // Add dependencies
-        if (x.m_name->type == ASR::symbolType::ExternalSymbol) {
-            ASR::ExternalSymbol_t* e = ASR::down_cast<ASR::ExternalSymbol_t>(x.m_name);
-            dependencies[std::string(e->m_module_name)].insert(std::string(e->m_name));
-        }
-
-        std::string indent(indentation_level * indentation_spaces, ' ');
-        ASR::Function_t* s = ASR::down_cast<ASR::Function_t>(
-            ASRUtils::symbol_get_past_external(x.m_name));
-        // TODO: use a mapping with a hash(s) instead:
-        std::string sym_name = s->m_name;
-        if (sym_name == "exit") {
-            sym_name = "_xx_lcompilers_changed_exit_xx";
-        }
-        std::string out = indent + sym_name + "(", pre, post;
-        for (size_t i = 0; i < x.n_args; i++) {
-            ASR::Variable_t* sarg = ASRUtils::EXPR2VAR(s->m_args[i]);
-            bool use_ref = (sarg->m_intent == ASR::intentType::Out
-                            || sarg->m_intent == ASR::intentType::InOut)
-                           && !ASRUtils::is_array(sarg->m_type);
-
-            std::string type_name, prefix, suffix;
-            if (!use_ref) {
-                type_name = get_primitive_type_name(sarg);
-                if (!type_name.empty()) {
-                    prefix = type_name + "(";
-                    suffix = ")";
-                }
-            }
-
-            if (ASR::is_a<ASR::Var_t>(*x.m_args[i].m_value)) {
-                ASR::Variable_t* arg = ASRUtils::EXPR2VAR(x.m_args[i].m_value);
-                std::string arg_name = arg->m_name;
-                bool is_ref = (arg->m_intent == ASR::intentType::Out
-                               || arg->m_intent == ASR::intentType::InOut)
-                              && !ASRUtils::is_array(arg->m_type);
-                if (use_ref && !is_ref) {
-                    std::string arg_ref = "__" + arg_name + "_ref__";
-                    pre += indent + arg_ref + "= Ref(" + arg_name + ")\n";
-                    out += arg_ref;
-                    post += indent + arg_name + " = " + arg_ref + "[]\n";
-                } else if (!use_ref && is_ref) {
-                    out += arg_name + "[]";
-                } else {
-                    out += arg_name;
-                }
-            } else {
-                visit_expr(*x.m_args[i].m_value);
-                out += prefix + src + suffix;
-            }
-            if (i < x.n_args - 1)
-                out += ", ";
-        }
-        out += ")\n";
-        src = pre + out + post;
-    }
-
-    void visit_IntegerConstant(const ASR::IntegerConstant_t& x)
-    {
-        src = std::to_string(x.m_n);
-        last_expr_precedence = julia_prec::Base;
-    }
-
-    void visit_RealConstant(const ASR::RealConstant_t& x)
-    {
-        src = double_to_scientific(x.m_r);
-        last_expr_precedence = julia_prec::Base;
-    }
-
-    void visit_ComplexConstructor(const ASR::ComplexConstructor_t& x)
-    {
-        visit_expr(*x.m_re);
-        std::string re = src;
-        visit_expr(*x.m_im);
-        std::string im = src;
-        src = "ComplexF32(" + re + ", " + im + ")";
-        if (ASRUtils::extract_kind_from_ttype_t(x.m_type) == 8) {
-            src = "ComplexF64(" + re + ", " + im + ")";
-        }
-        last_expr_precedence = julia_prec::Base;
-    }
-
-    void visit_ComplexConstant(const ASR::ComplexConstant_t& x)
-    {
-        std::string re = std::to_string(x.m_re);
-        std::string im = std::to_string(x.m_im);
-        src = "ComplexF32(" + re + ", " + im + ")";
-        if (ASRUtils::extract_kind_from_ttype_t(x.m_type) == 8) {
-            src = "ComplexF64(" + re + ", " + im + ")";
-        }
-        last_expr_precedence = julia_prec::Base;
-    }
-
-    void visit_LogicalConstant(const ASR::LogicalConstant_t& x)
-    {
-        if (x.m_value == true) {
-            src = "true";
-        } else {
-            src = "false";
-        }
-        last_expr_precedence = julia_prec::Base;
-    }
-
-    void visit_TupleConstant(const ASR::TupleConstant_t& x)
-    {
-        std::string out = "(";
-        for (size_t i = 0; i < x.n_elements; i++) {
-            visit_expr(*x.m_elements[i]);
-            out += src;
-            if (i != x.n_elements - 1)
-                out += ", ";
-        }
-        out += ")";
-        src = out;
-        last_expr_precedence = julia_prec::Base;
-    }
-
-    void visit_SetConstant(const ASR::SetConstant_t& x)
-    {
-        std::string out = "Set(";
-        for (size_t i = 0; i < x.n_elements; i++) {
-            visit_expr(*x.m_elements[i]);
-            out += src;
-            if (i != x.n_elements - 1)
-                out += ", ";
-        }
-        out += ")";
-        src = out;
-        last_expr_precedence = julia_prec::Base;
-    }
-
-    void visit_DictConstant(const ASR::DictConstant_t& x)
-    {
-        LCOMPILERS_ASSERT(x.n_keys == x.n_values);
-        std::string out = "Dict(";
-        for (size_t i = 0; i < x.n_keys; i++) {
-            visit_expr(*x.m_keys[i]);
-            out += src + " => ";
-            visit_expr(*x.m_values[i]);
-            if (i != x.n_keys - 1)
-                out += ", ";
-        }
-        out += ")";
-        src = out;
-        last_expr_precedence = julia_prec::Base;
-    }
-
-    void visit_ArrayConstant(const ASR::ArrayConstant_t& x)
-    {
-        std::string indent(indentation_level * indentation_spaces, ' ');
-        std::string out = "[";
-        for (size_t i = 0; i < x.n_args; i++) {
-            visit_expr(*x.m_args[i]);
-            out += src;
-            if (i < x.n_args - 1)
-                out += ", ";
-        }
-        out += "]";
-        src = out;
-        last_expr_precedence = julia_prec::Base;
-    }
-
-    void visit_StringConstant(const ASR::StringConstant_t& x)
-    {
-        src = "\"";
-        std::string s = x.m_s;
-        for (size_t idx = 0; idx < s.size(); idx++) {
-            if (s[idx] == '\n') {
-                src += "\\n";
-            } else if (s[idx] == '\\') {
-                src += "\\";
-            } else if (s[idx] == '\"') {
-                src += "\"";
-            } else {
-                src += s[idx];
-            }
-        }
-        src += "\"";
-        last_expr_precedence = julia_prec::Base;
-    }
-
-    void visit_Var(const ASR::Var_t& x)
-    {
-        const ASR::symbol_t* s = ASRUtils::symbol_get_past_external(x.m_v);
-        ASR::Variable_t* sv = ASR::down_cast<ASR::Variable_t>(s);
-        if ((sv->m_intent == ASRUtils::intent_in || sv->m_intent == ASRUtils::intent_inout)
-            && ASRUtils::is_array(sv->m_type) && ASRUtils::is_pointer(sv->m_type)) {
-            src = "(*" + std::string(ASR::down_cast<ASR::Variable_t>(s)->m_name) + ")";
-        } else {
-            src = std::string(ASR::down_cast<ASR::Variable_t>(s)->m_name);
-            bool use_ref = (sv->m_intent == ASRUtils::intent_out ||
-
-                            sv->m_intent == ASRUtils::intent_inout)
-                           && !ASRUtils::is_array(sv->m_type);
-            if (use_ref) {
-                src += "[]";
-            }
-        }
-        last_expr_precedence = julia_prec::Base;
-    }
-
-    void visit_StructInstanceMember(const ASR::StructInstanceMember_t& x)
-    {
-        std::string der_expr, member;
-        this->visit_expr(*x.m_v);
-        der_expr = std::move(src);
-        member = ASRUtils::symbol_name(x.m_m);
-        src = der_expr + "." + member;
-    }
-
-    void visit_Cast(const ASR::Cast_t& x)
-    {
-        std::string broadcast;
-        if (x.m_arg->type == ASR::exprType::Var) {
-            ASR::Variable_t* value = ASRUtils::EXPR2VAR(x.m_arg);
-            if (ASRUtils::is_array(value->m_type))
-                broadcast = ".";
-        } else if (x.m_arg->type == ASR::exprType::ArrayConstant
-                   || x.m_arg->type == ASR::exprType::TupleConstant
-                   || x.m_arg->type == ASR::exprType::SetConstant) {
-            broadcast = ".";
-        }
-        visit_expr(*x.m_arg);
-        switch (x.m_kind) {
-            case (ASR::cast_kindType::IntegerToReal): {
-                int dest_kind = ASRUtils::extract_kind_from_ttype_t(x.m_type);
-                switch (dest_kind) {
-                    case 4:
-                        src = "Float32" + broadcast + "(" + src + ")";
-                        break;
-                    case 8:
-                        src = "Float64" + broadcast + "(" + src + ")";
-                        break;
-                    default:
-                        throw CodeGenError("Cast IntegerToReal: Unsupported Kind "
-                                           + std::to_string(dest_kind));
-                }
-                last_expr_precedence = julia_prec::Base;
-                break;
-            }
-            case (ASR::cast_kindType::RealToInteger): {
-                int dest_kind = ASRUtils::extract_kind_from_ttype_t(x.m_type);
-                src = "trunc" + broadcast + "(Int" + std::to_string(dest_kind * 8) + ", " + src
-                      + ")";
-                last_expr_precedence = julia_prec::Base;
-                break;
-            }
-            case (ASR::cast_kindType::RealToReal): {
-                // In Julia, we do not need to cast float to float explicitly:
-                // src = src;
-                // last_expr_precedence = last_expr_precedence;
-                break;
-            }
-            case (ASR::cast_kindType::IntegerToInteger): {
-                // In Julia, we do not need to cast int <-> long long explicitly:
-                // src = src;
-                // last_expr_precedence = last_expr_precedence;
-                break;
-            }
-            case (ASR::cast_kindType::ComplexToComplex): {
-                break;
-            }
-            case (ASR::cast_kindType::IntegerToComplex): {
-                src = "complex" + broadcast + "(" + src + ")";
-                last_expr_precedence = julia_prec::Base;
-                break;
-            }
-            case (ASR::cast_kindType::ComplexToReal): {
-                src = "real" + broadcast + "(" + src + ")";
-                last_expr_precedence = julia_prec::Base;
-                break;
-            }
-            case (ASR::cast_kindType::RealToComplex): {
-                src = "complex" + broadcast + "(" + src + ")";
-                last_expr_precedence = julia_prec::Base;
-                break;
-            }
-            case (ASR::cast_kindType::LogicalToInteger): {
-                src = "Int32" + broadcast + "(" + src + ")";
-                last_expr_precedence = julia_prec::Base;
-                break;
-            }
-            case (ASR::cast_kindType::IntegerToLogical): {
-                src = "Bool" + broadcast + "(" + src + ")";
-                last_expr_precedence = julia_prec::Base;
-                break;
-            }
-            default:
-                throw CodeGenError("Cast kind " + std::to_string(x.m_kind) + " not implemented",
-                                   x.base.base.loc);
-        }
-    }
-
-    void visit_IntegerCompare(const ASR::IntegerCompare_t& x)
-    {
-        handle_Compare(x);
-    }
-
-    void visit_RealCompare(const ASR::RealCompare_t& x)
-    {
-        handle_Compare(x);
-    }
-
-    void visit_ComplexCompare(const ASR::ComplexCompare_t& x)
-    {
-        handle_Compare(x);
-    }
-
-    void visit_LogicalCompare(const ASR::LogicalCompare_t& x)
-    {
-        handle_Compare(x);
-    }
-
-    void visit_StringCompare(const ASR::StringCompare_t& x)
-    {
-        handle_Compare(x);
-    }
-
-    template <typename T>
-    void handle_Compare(const T& x)
-    {
-        visit_expr(*x.m_left);
-        std::string left = std::move(src);
-        int left_precedence = last_expr_precedence;
-        visit_expr(*x.m_right);
-        std::string right = std::move(src);
-        int right_precedence = last_expr_precedence;
-        last_expr_precedence = julia_prec::Comp;
-        if (left_precedence <= last_expr_precedence) {
-            src += left;
-        } else {
-            src += "(" + left + ")";
-        }
-        src += cmpop_to_str_julia(x.m_op);
-        if (right_precedence <= last_expr_precedence) {
-            src += right;
-        } else {
-            src += "(" + right + ")";
-        }
-    }
-
-    void visit_IntegerBitNot(const ASR::IntegerBitNot_t& x)
-    {
-        visit_expr(*x.m_arg);
-        int expr_precedence = last_expr_precedence;
-        last_expr_precedence = julia_prec::Unary;
-        if (expr_precedence <= last_expr_precedence) {
-            src = "~" + src;
-        } else {
-            src = "~(" + src + ")";
-        }
-    }
-
-    void visit_IntegerUnaryMinus(const ASR::IntegerUnaryMinus_t& x)
-    {
-        handle_UnaryMinus(x);
-    }
-
-    void visit_RealUnaryMinus(const ASR::RealUnaryMinus_t& x)
-    {
-        handle_UnaryMinus(x);
-    }
-
-    void visit_ComplexUnaryMinus(const ASR::ComplexUnaryMinus_t& x)
-    {
-        handle_UnaryMinus(x);
-    }
-
-    template <typename T>
-    void handle_UnaryMinus(const T& x)
-    {
-        visit_expr(*x.m_arg);
-        int expr_precedence = last_expr_precedence;
-        last_expr_precedence = julia_prec::Unary;
-        if (expr_precedence <= last_expr_precedence) {
-            src = "-" + src;
-        } else {
-            src = "-(" + src + ")";
-        }
-    }
-
-    void visit_LogicalNot(const ASR::LogicalNot_t& x)
-    {
-        visit_expr(*x.m_arg);
-        int expr_precedence = last_expr_precedence;
-        last_expr_precedence = julia_prec::Unary;
-        if (expr_precedence <= last_expr_precedence) {
-            src = "!" + src;
-        } else {
-            src = "!(" + src + ")";
-        }
-    }
-
-    void visit_ComplexRe(const ASR::ComplexRe_t& x)
-    {
-        visit_expr(*x.m_arg);
-        src = "real(" + src + ")";
-    }
-
-    void visit_ComplexIm(const ASR::ComplexIm_t& x)
-    {
-        visit_expr(*x.m_arg);
-        src = "imag(" + src + ")";
-    }
-
-    void visit_StringItem(const ASR::StringItem_t& x)
-    {
-        this->visit_expr(*x.m_idx);
-        std::string idx = std::move(src);
-        this->visit_expr(*x.m_arg);
-        std::string str = std::move(src);
-        src = str + "[" + idx + "]";
-    }
-
-    void visit_StringLen(const ASR::StringLen_t& x)
-    {
-        visit_expr(*x.m_arg);
-        src = "length(" + src + ")";
-    }
-
-    void visit_StringSection(const ASR::StringSection_t& x)
-    {
-        visit_expr(*x.m_arg);
-        std::string out = src;
-        out += "[";
-        if (!x.m_start && !x.m_end) {
-            out += ":";
-        }
-        if (x.m_start) {
-            visit_expr(*x.m_start);
-            out += src;
-        } else {
-            out += "begin";
-        }
-        out += ":";
-        if (x.m_step) {
-            visit_expr(*x.m_step);
-            out += src + ":";
-        }
-        if (x.m_end) {
-            visit_expr(*x.m_end);
-            out += src;
-        } else {
-            out += "end";
-        }
-        out += "]";
-        last_expr_precedence = julia_prec::Base;
-        src = out;
-    }
-
-    void visit_ArraySize(const ASR::ArraySize_t& x)
-    {
-        this->visit_expr(*x.m_v);
-        std::string var_name = src;
-        std::string args = "";
-        if (x.m_dim == nullptr) {
-            src = "length(" + var_name + ")";
-        } else {
-            this->visit_expr(*x.m_dim);
-            src = "size(" + var_name + ")[" + src + "]";
-        }
-    }
-
-    void visit_ArrayItem(const ASR::ArrayItem_t& x)
-    {
-        visit_expr(*x.m_v);
-        std::string out = src;
-        ASR::dimension_t* m_dims;
-        ASRUtils::extract_dimensions_from_ttype(ASRUtils::expr_type(x.m_v), m_dims);
-        out += "[";
-        std::string index = "";
-        for (size_t i = 0; i < x.n_args; i++) {
-            std::string current_index = "";
-            if (x.m_args[i].m_right) {
-                visit_expr(*x.m_args[i].m_right);
-            } else {
-                src = "/* FIXME right index */";
-            }
-            out += src;
-            if (i < x.n_args - 1) {
-                out += ", ";
-            }
-        }
-        out += "]";
-        last_expr_precedence = julia_prec::Base;
-        src = out;
-    }
-
-    void visit_ArraySection(const ASR::ArraySection_t& x)
-    {
-        visit_expr(*x.m_v);
-        std::string out = src;
-        ASR::dimension_t* m_dims;
-        ASRUtils::extract_dimensions_from_ttype(ASRUtils::expr_type(x.m_v), m_dims);
-        out += "[";
-        std::string index = "";
-        for (size_t i = 0; i < x.n_args; i++) {
-            if (!x.m_args[i].m_left && !x.m_args[i].m_right) {
-                out += ":";
-            } else {
-                if (x.m_args[i].m_left) {
-                    visit_expr(*x.m_args[i].m_left);
-                } else {
-                    src = "begin";
-                }
-                out += src + ":";
-                if (x.m_args[i].m_step) {
-                    visit_expr(*x.m_args[i].m_step);
-                    out += src + ":";
-                }
-                if (x.m_args[i].m_right) {
-                    visit_expr(*x.m_args[i].m_right);
-                } else {
-                    src = "end";
-                }
-                out += src;
-            }
-            if (i < x.n_args - 1) {
-                out += ", ";
-            }
-        }
-        out += "]";
-        last_expr_precedence = julia_prec::Base;
-        src = out;
-    }
-
-    void visit_ArrayMatMul(const ASR::ArrayMatMul_t& x)
-    {
-        visit_expr(*x.m_matrix_a);
-        std::string left = std::move(src);
-        int left_precedence = last_expr_precedence;
-        visit_expr(*x.m_matrix_b);
-        std::string right = std::move(src);
-        int right_precedence = last_expr_precedence;
-        last_expr_precedence = julia_prec::Mul;
-        src = format_binop(left, "*", right, left_precedence, right_precedence);
-    }
-
-    void visit_TupleLen(const ASR::TupleLen_t& x)
-    {
-        visit_expr(*x.m_arg);
-        src = "length(" + src + ")";
-    }
-
-    void visit_SetLen(const ASR::SetLen_t& x)
-    {
-        visit_expr(*x.m_arg);
-        src = "length(" + src + ")";
-    }
-
-    void visit_DictItem(const ASR::DictItem_t& x)
-    {
-        visit_expr(*x.m_a);
-        std::string out = src;
-        out += "[";
-        visit_expr(*x.m_key);
-        out += src + "]";
-        last_expr_precedence = julia_prec::Base;
-        src = out;
-    }
-
-    void visit_DictLen(const ASR::DictLen_t& x)
-    {
-        visit_expr(*x.m_arg);
-        src = "length(" + src + ")";
-    }
-
-    void visit_Print(const ASR::Print_t& x)
-    {
-        std::string indent(indentation_level * indentation_spaces, ' ');
-        std::string out = indent + "println(", sep;
-        if (x.m_separator) {
-            visit_expr(*x.m_separator);
-            sep = src;
-        } else {
-            sep = "\" \"";
-        }
-        for (size_t i = 0; i < x.n_values; i++) {
-            visit_expr(*x.m_values[i]);
-            out += src;
-            if (i + 1 != x.n_values) {
-                out += ", " + sep + ", ";
-            }
-        }
-        if (x.m_end) {
-            visit_expr(*x.m_end);
-            out += src;
-        }
-
-        out += ")\n";
-        src = out;
-    }
-
-    // TODO: implement real file write
-    void visit_FileWrite(const ASR::FileWrite_t& /* x */)
-    {
-        std::string indent(indentation_level * indentation_spaces, ' ');
-        std::string out = indent + "// FIXME: File Write\n";
-        src = out;
-    }
-
-    // TODO: implement real file read
-    void visit_FileRead(const ASR::FileRead_t& /* x */)
-    {
-        std::string indent(indentation_level * indentation_spaces, ' ');
-        std::string out = indent + "// FIXME: File Read\n";
-        src = out;
-    }
-};
-
-Result<std::string>
-asr_to_julia(Allocator& al, ASR::TranslationUnit_t& asr, diag::Diagnostics& diag)
-{
-    ASRToJuliaVisitor v(al, diag);
-    try {
-        v.visit_asr((ASR::asr_t&) asr);
-    } catch (const CodeGenError& e) {
-        diag.diagnostics.push_back(e.d);
-        return Error();
-    } catch (const Abort&) {
-        return Error();
-    }
-    return v.src;
-};
-
-} // namespace LCompilers
diff --git a/src/libasr/codegen/asr_to_julia.h b/src/libasr/codegen/asr_to_julia.h
deleted file mode 100644
index bc9e86289b..0000000000
--- a/src/libasr/codegen/asr_to_julia.h
+++ /dev/null
@@ -1,16 +0,0 @@
-#ifndef LFORTRAN_ASR_TO_JULIA_H
-#define LFORTRAN_ASR_TO_JULIA_H
-
-#include <libasr/asr.h>
-#include <libasr/asr_utils.h>
-#include <libasr/codegen/asr_to_c_cpp.h>
-// #include <julia.h>
-
-namespace LCompilers {
-
-    Result<std::string>
-    asr_to_julia(Allocator& al, ASR::TranslationUnit_t& asr, diag::Diagnostics& diag);
-
-}  // namespace LCompilers
-
-#endif  // LFORTRAN_ASR_TO_JULIA_H
diff --git a/src/libasr/codegen/asr_to_llvm.cpp b/src/libasr/codegen/asr_to_llvm.cpp
deleted file mode 100644
index 168bc9a577..0000000000
--- a/src/libasr/codegen/asr_to_llvm.cpp
+++ /dev/null
@@ -1,6870 +0,0 @@
-#include <iostream>
-#include <memory>
-#include <unordered_map>
-#include <functional>
-#include <string_view>
-#include <utility>
-
-#include <llvm/ADT/STLExtras.h>
-#include <llvm/Analysis/Passes.h>
-#include <llvm/ExecutionEngine/ExecutionEngine.h>
-#include <llvm/ExecutionEngine/GenericValue.h>
-#include <llvm/ExecutionEngine/MCJIT.h>
-#include <llvm/IR/Argument.h>
-#include <llvm/IR/Attributes.h>
-#include <llvm/IR/BasicBlock.h>
-#include <llvm/IR/Constants.h>
-#include <llvm/IR/DerivedTypes.h>
-#include <llvm/IR/Function.h>
-#include <llvm/IR/IRBuilder.h>
-#include <llvm/IR/Instructions.h>
-#include <llvm/IR/Intrinsics.h>
-#include <llvm/IR/LegacyPassManager.h>
-#include <llvm/IR/LLVMContext.h>
-#include <llvm/IR/Module.h>
-#include <llvm/IR/Type.h>
-#include <llvm/Support/Casting.h>
-#include <llvm/Support/ManagedStatic.h>
-#include <llvm/Support/TargetSelect.h>
-#include <llvm/Support/raw_ostream.h>
-#include <llvm/ADT/APFloat.h>
-#include <llvm/ADT/STLExtras.h>
-#include <llvm/IR/Verifier.h>
-#include <llvm/Support/TargetSelect.h>
-#include <llvm/Target/TargetMachine.h>
-#include <llvm/Transforms/Scalar.h>
-#include <llvm/Transforms/Vectorize.h>
-#include <llvm/ExecutionEngine/ObjectCache.h>
-#include <llvm/Support/FileSystem.h>
-#include <llvm/Support/Path.h>
-#include <llvm/IR/DIBuilder.h>
-
-#include <libasr/asr.h>
-#include <libasr/containers.h>
-#include <libasr/codegen/asr_to_llvm.h>
-#include <libasr/pass/nested_vars.h>
-#include <libasr/pass/pass_manager.h>
-#include <libasr/exception.h>
-#include <libasr/asr_utils.h>
-#include <libasr/codegen/llvm_utils.h>
-#include <libasr/codegen/llvm_array_utils.h>
-
-#if LLVM_VERSION_MAJOR >= 11
-#    define FIXED_VECTOR_TYPE llvm::FixedVectorType
-#else
-#    define FIXED_VECTOR_TYPE llvm::VectorType
-#endif
-
-
-namespace LCompilers {
-
-namespace {
-
-    // This exception is used to abort the visitor pattern when an error occurs.
-    // This is only used locally in this file, not propagated outside. An error
-    // must be already present in ASRToLLVMVisitor::diag before throwing this
-    // exception. This is checked with an assert when the CodeGenAbort is
-    // caught.
-    class CodeGenAbort
-    {
-    };
-
-    // Local exception that is only used in this file to exit the visitor
-    // pattern and caught later (not propagated outside). It accepts an error
-    // message that is then appended at the end of ASRToLLVMVisitor::diag.  The
-    // `diag` can already contain other errors or warnings.  This is a
-    // convenience class. One can also report the error into `diag` directly and
-    // call `CodeGenAbort` instead.
-    class CodeGenError
-    {
-    public:
-        diag::Diagnostic d;
-    public:
-        CodeGenError(const std::string &msg)
-            : d{diag::Diagnostic(msg, diag::Level::Error, diag::Stage::CodeGen)}
-        { }
-
-        CodeGenError(const std::string &msg, const Location &loc)
-            : d{diag::Diagnostic(msg, diag::Level::Error, diag::Stage::CodeGen, {
-                diag::Label("", {loc})
-            })}
-        { }
-    };
-
-}
-
-
-using ASR::is_a;
-using ASR::down_cast;
-using ASR::down_cast2;
-
-using ASRUtils::expr_type;
-using ASRUtils::symbol_get_past_external;
-using ASRUtils::EXPR2VAR;
-using ASRUtils::EXPR2FUN;
-using ASRUtils::intent_local;
-using ASRUtils::intent_return_var;
-using ASRUtils::determine_module_dependencies;
-using ASRUtils::is_arg_dummy;
-
-// Platform dependent fast unique hash:
-uint64_t static get_hash(ASR::asr_t *node)
-{
-    return (uint64_t)node;
-}
-
-void string_init(llvm::LLVMContext &context, llvm::Module &module,
-        llvm::IRBuilder<> &builder, llvm::Value* arg_size, llvm::Value* arg_string) {
-    std::string func_name = "_lfortran_string_init";
-    llvm::Function *fn = module.getFunction(func_name);
-    if (!fn) {
-        llvm::FunctionType *function_type = llvm::FunctionType::get(
-                llvm::Type::getVoidTy(context), {
-                    llvm::Type::getInt32Ty(context),
-                    llvm::Type::getInt8PtrTy(context)
-                }, true);
-        fn = llvm::Function::Create(function_type,
-                llvm::Function::ExternalLinkage, func_name, module);
-    }
-    std::vector<llvm::Value*> args = {arg_size, arg_string};
-    builder.CreateCall(fn, args);
-}
-
-class ASRToLLVMVisitor : public ASR::BaseVisitor<ASRToLLVMVisitor>
-{
-private:
-  //! To be used by visit_StructInstanceMember.
-  std::string der_type_name;
-
-  //! Helpful for debugging while testing LLVM code
-  void print_util(llvm::Value* v, std::string fmt_chars, std::string endline="\t") {
-        std::vector<llvm::Value *> args;
-        std::vector<std::string> fmt;
-        args.push_back(v);
-        fmt.push_back(fmt_chars);
-        std::string fmt_str;
-        for (size_t i=0; i<fmt.size(); i++) {
-            fmt_str += fmt[i];
-            if (i < fmt.size()-1) fmt_str += " ";
-        }
-        fmt_str += endline;
-        llvm::Value *fmt_ptr = builder->CreateGlobalStringPtr(fmt_str);
-        std::vector<llvm::Value *> printf_args;
-        printf_args.push_back(fmt_ptr);
-        printf_args.insert(printf_args.end(), args.begin(), args.end());
-        printf(context, *module, *builder, printf_args);
-    }
-
-public:
-    diag::Diagnostics &diag;
-    llvm::LLVMContext &context;
-    std::unique_ptr<llvm::Module> module;
-    std::unique_ptr<llvm::IRBuilder<>> builder;
-    std::string infile;
-    Allocator &al;
-
-    llvm::Value *tmp;
-    llvm::BasicBlock *current_loophead, *current_loopend, *proc_return;
-    std::string mangle_prefix;
-    bool prototype_only;
-    llvm::StructType *complex_type_4, *complex_type_8;
-    llvm::StructType *complex_type_4_ptr, *complex_type_8_ptr;
-    llvm::PointerType *character_type;
-    llvm::PointerType *list_type;
-
-    std::unordered_map<std::uint32_t, std::unordered_map<std::string, llvm::Type*>> arr_arg_type_cache;
-
-    std::map<std::string, std::pair<llvm::Type*, llvm::Type*>> fname2arg_type;
-
-    // Maps for containing information regarding derived types
-    std::map<std::string, llvm::StructType*> name2dertype;
-    std::map<std::string, std::string> dertype2parent;
-    std::map<std::string, std::map<std::string, int>> name2memidx;
-
-    std::map<uint64_t, llvm::Value*> llvm_symtab; // llvm_symtab_value
-    std::map<uint64_t, llvm::Function*> llvm_symtab_fn;
-    std::map<std::string, uint64_t> llvm_symtab_fn_names;
-    std::map<uint64_t, llvm::Value*> llvm_symtab_fn_arg;
-    std::map<uint64_t, llvm::BasicBlock*> llvm_goto_targets;
-
-    // Data members for handling nested functions
-    std::map<uint64_t, std::vector<uint64_t>> nesting_map; /* For saving the
-        relationship between enclosing and nested functions */
-    std::vector<uint64_t> nested_globals; /* For saving the hash of variables
-        from a parent scope needed in a nested function */
-    std::map<uint64_t, std::vector<llvm::Type*>> nested_func_types; /* For
-        saving the hash of a parent function needing to give access to
-        variables in a nested function, as well as the variable types */
-    llvm::StructType* nested_global_struct; /*The struct type that will hold
-        variables needed in a nested function; will contain types as given in
-        the runtime descriptor member */
-    std::string nested_desc_name; // For setting the name of the global struct
-    std::vector<uint64_t> nested_call_out; /* Hash of functions containing
-        nested functions that can call functions besides the nested functions
-        - in such cases we need a means to save the local context */
-    llvm::StructType* nested_global_struct_vals; /*Equivalent struct type to
-        nested_global_struct, but holding types that nested_global_struct points
-        to. Needed in cases where we need to store values and preserve a local
-        context */
-    llvm::ArrayType* nested_global_stack; /* An array type for holding numerous
-        nested_global_struct_vals, serving as a stack to reload values when
-        we may are leaving or re-entering states with a need to preserve
-        context*/
-    std::string nested_stack_name; // The name of the nested_global_stack
-    std::string nested_sp_name; /* The stack pointer name for the
-        nested_global_stack */
-    uint64_t parent_function_hash;
-    uint64_t calling_function_hash; /* These hashes are compared to resulted
-        from the nested_vars analysis pass to determine if we need to save or
-        reload a local scope (and increment or decrement the stack pointer) */
-    const ASR::Function_t *parent_function = nullptr;
-
-    std::unique_ptr<LLVMUtils> llvm_utils;
-    std::unique_ptr<LLVMList> list_api;
-    std::unique_ptr<LLVMTuple> tuple_api;
-    std::unique_ptr<LLVMDictInterface> dict_api_lp;
-    std::unique_ptr<LLVMDictInterface> dict_api_sc;
-    std::unique_ptr<LLVMArrUtils::Descriptor> arr_descr;
-
-    int64_t ptr_loads;
-    bool lookup_enum_value_for_nonints;
-    bool is_assignment_target;
-
-    CompilerOptions &compiler_options;
-
-    // For handling debug information
-    std::unique_ptr<llvm::DIBuilder> DBuilder;
-    llvm::DICompileUnit *debug_CU;
-    llvm::DIScope *debug_current_scope;
-    std::map<uint64_t, llvm::DIScope*> llvm_symtab_fn_discope;
-    llvm::DIFile *debug_Unit;
-
-    ASRToLLVMVisitor(Allocator &al, llvm::LLVMContext &context, std::string infile,
-        CompilerOptions &compiler_options_, diag::Diagnostics &diagnostics) :
-    diag{diagnostics},
-    context(context),
-    builder(std::make_unique<llvm::IRBuilder<>>(context)),
-    infile{infile},
-    al{al},
-    prototype_only(false),
-    llvm_utils(std::make_unique<LLVMUtils>(context, builder.get())),
-    list_api(std::make_unique<LLVMList>(context, llvm_utils.get(), builder.get())),
-    tuple_api(std::make_unique<LLVMTuple>(context, llvm_utils.get(), builder.get())),
-    dict_api_lp(std::make_unique<LLVMDictOptimizedLinearProbing>(context, llvm_utils.get(), builder.get())),
-    dict_api_sc(std::make_unique<LLVMDictSeparateChaining>(context, llvm_utils.get(), builder.get())),
-    arr_descr(LLVMArrUtils::Descriptor::get_descriptor(context,
-              builder.get(),
-              llvm_utils.get(),
-              LLVMArrUtils::DESCR_TYPE::_SimpleCMODescriptor)),
-    ptr_loads(2),
-    lookup_enum_value_for_nonints(false),
-    is_assignment_target(false),
-    compiler_options(compiler_options_)
-    {
-        llvm_utils->tuple_api = tuple_api.get();
-        llvm_utils->list_api = list_api.get();
-        llvm_utils->dict_api = nullptr;
-        llvm_utils->arr_api = arr_descr.get();
-    }
-
-    llvm::Value* CreateLoad(llvm::Value *x) {
-        return LLVM::CreateLoad(*builder, x);
-    }
-
-
-    llvm::Value* CreateGEP(llvm::Value *x, std::vector<llvm::Value *> &idx) {
-        return LLVM::CreateGEP(*builder, x, idx);
-    }
-
-    // Inserts a new block `bb` using the current builder
-    // and terminates the previous block if it is not already terminated
-    void start_new_block(llvm::BasicBlock *bb) {
-        llvm::BasicBlock *last_bb = builder->GetInsertBlock();
-        llvm::Function *fn = last_bb->getParent();
-        llvm::Instruction *block_terminator = last_bb->getTerminator();
-        if (block_terminator == nullptr) {
-            // The previous block is not terminated --- terminate it by jumping
-            // to our new block
-            builder->CreateBr(bb);
-        }
-        fn->getBasicBlockList().push_back(bb);
-        builder->SetInsertPoint(bb);
-    }
-
-    // Note: `create_if_else` and `create_loop` are optional APIs
-    // that do not have to be used. Many times, for more complicated
-    // things, it might be more readable to just use the LLVM API
-    // without any extra layer on top. In some other cases, it might
-    // be more readable to use this abstraction.
-    template <typename IF, typename ELSE>
-    void create_if_else(llvm::Value * cond, IF if_block, ELSE else_block) {
-        llvm::Function *fn = builder->GetInsertBlock()->getParent();
-
-        llvm::BasicBlock *thenBB = llvm::BasicBlock::Create(context, "then", fn);
-        llvm::BasicBlock *elseBB = llvm::BasicBlock::Create(context, "else");
-        llvm::BasicBlock *mergeBB = llvm::BasicBlock::Create(context, "ifcont");
-
-        builder->CreateCondBr(cond, thenBB, elseBB);
-        builder->SetInsertPoint(thenBB); {
-            if_block();
-        }
-        builder->CreateBr(mergeBB);
-
-        start_new_block(elseBB); {
-            else_block();
-        }
-        start_new_block(mergeBB);
-    }
-
-    template <typename Cond, typename Body>
-    void create_loop(Cond condition, Body loop_body) {
-        dict_api_lp->set_iterators();
-        dict_api_sc->set_iterators();
-        llvm::BasicBlock *loophead = llvm::BasicBlock::Create(context, "loop.head");
-        llvm::BasicBlock *loopbody = llvm::BasicBlock::Create(context, "loop.body");
-        llvm::BasicBlock *loopend = llvm::BasicBlock::Create(context, "loop.end");
-        this->current_loophead = loophead;
-        this->current_loopend = loopend;
-
-        // head
-        start_new_block(loophead); {
-            llvm::Value* cond = condition();
-            builder->CreateCondBr(cond, loopbody, loopend);
-        }
-
-        // body
-        start_new_block(loopbody); {
-            loop_body();
-            builder->CreateBr(loophead);
-        }
-
-        // end
-        start_new_block(loopend);
-        dict_api_lp->reset_iterators();
-        dict_api_sc->reset_iterators();
-    }
-
-    void get_type_debug_info(ASR::ttype_t* t, std::string &type_name,
-            uint32_t &type_size, uint32_t &type_encoding) {
-        type_size = ASRUtils::extract_kind_from_ttype_t(t)*8;
-        switch( t->type ) {
-            case ASR::ttypeType::Integer: {
-                type_name = "integer";
-                type_encoding = llvm::dwarf::DW_ATE_signed;
-                break;
-            }
-            case ASR::ttypeType::Logical: {
-                type_name = "boolean";
-                type_encoding = llvm::dwarf::DW_ATE_boolean;
-                break;
-            }
-            case ASR::ttypeType::Real: {
-                if( type_size == 32 ) {
-                    type_name = "float";
-                } else if( type_size == 64 ) {
-                    type_name = "double";
-                }
-                type_encoding = llvm::dwarf::DW_ATE_float;
-                break;
-            }
-            default : throw LCompilersException("Debug information for the type: `"
-                + ASRUtils::type_to_str_python(t) + "` is not yet implemented");
-        }
-    }
-
-    void debug_get_line_column(const uint32_t &loc_first,
-            uint32_t &line, uint32_t &column) {
-        LocationManager lm;
-        LocationManager::FileLocations fl;
-        fl.in_filename = infile;
-        lm.files.push_back(fl);
-        std::string input = read_file(infile);
-        lm.init_simple(input);
-        lm.file_ends.push_back(input.size());
-        lm.pos_to_linecol(lm.output_to_input_pos(loc_first, false),
-            line, column, fl.in_filename);
-    }
-
-    template <typename T>
-    void debug_emit_loc(const T &x) {
-        Location loc = x.base.base.loc;
-        uint32_t line, column;
-        if (compiler_options.emit_debug_line_column) {
-            debug_get_line_column(loc.first, line, column);
-        } else {
-            line = loc.first;
-            column = 0;
-        }
-        builder->SetCurrentDebugLocation(
-            llvm::DILocation::get(debug_current_scope->getContext(),
-                line, column, debug_current_scope));
-    }
-
-    template <typename T>
-    void debug_emit_function(const T &x, llvm::DISubprogram *&SP) {
-        debug_Unit = DBuilder->createFile(
-            debug_CU->getFilename(),
-            debug_CU->getDirectory());
-        llvm::DIScope *FContext = debug_Unit;
-        uint32_t line, column;
-        if (compiler_options.emit_debug_line_column) {
-            debug_get_line_column(x.base.base.loc.first, line, column);
-        } else {
-            line = 0;
-        }
-        std::string fn_debug_name = x.m_name;
-        llvm::DIBasicType *return_type_info = nullptr;
-        if constexpr (std::is_same_v<T, ASR::Function_t>){
-            if(x.m_return_var != nullptr) {
-                std::string type_name; uint32_t type_size, type_encoding;
-                get_type_debug_info(ASRUtils::expr_type(x.m_return_var),
-                    type_name, type_size, type_encoding);
-                return_type_info = DBuilder->createBasicType(type_name,
-                    type_size, type_encoding);
-            }
-        } else if constexpr (std::is_same_v<T, ASR::Program_t>) {
-            return_type_info = DBuilder->createBasicType("integer", 32,
-                llvm::dwarf::DW_ATE_signed);
-        }
-        llvm::DISubroutineType *return_type = DBuilder->createSubroutineType(
-            DBuilder->getOrCreateTypeArray(return_type_info));
-        SP = DBuilder->createFunction(
-            FContext, fn_debug_name, llvm::StringRef(), debug_Unit,
-            line, return_type, 0, // TODO: ScopeLine
-            llvm::DINode::FlagPrototyped,
-            llvm::DISubprogram::SPFlagDefinition);
-        debug_current_scope = SP;
-    }
-
-    inline bool verify_dimensions_t(ASR::dimension_t* m_dims, int n_dims) {
-        if( n_dims <= 0 ) {
-            return false;
-        }
-        bool is_ok = true;
-        for( int r = 0; r < n_dims; r++ ) {
-            if( m_dims[r].m_length == nullptr ) {
-                is_ok = false;
-                break;
-            }
-        }
-        return is_ok;
-    }
-
-    llvm::Type*
-    get_el_type(ASR::ttype_t* m_type_) {
-        int a_kind = ASRUtils::extract_kind_from_ttype_t(m_type_);
-        llvm::Type* el_type = nullptr;
-        if (ASR::is_a<ASR::Pointer_t>(*m_type_)) {
-            ASR::ttype_t *t2 = ASR::down_cast<ASR::Pointer_t>(m_type_)->m_type;
-            switch(t2->type) {
-                case ASR::ttypeType::Integer: {
-                    el_type = getIntType(a_kind, true);
-                    break;
-                }
-                case ASR::ttypeType::Real: {
-                    el_type = getFPType(a_kind, true);
-                    break;
-                }
-                case ASR::ttypeType::Complex: {
-                    el_type = getComplexType(a_kind, true);
-                    break;
-                }
-                case ASR::ttypeType::Logical: {
-                    el_type = llvm::Type::getInt1Ty(context);
-                    break;
-                }
-                case ASR::ttypeType::Struct: {
-                    el_type = getStructType(m_type_);
-                    break;
-                }
-                case ASR::ttypeType::Union: {
-                    el_type = getUnionType(m_type_);
-                    break;
-                }
-                case ASR::ttypeType::Character: {
-                    el_type = character_type;
-                    break;
-                }
-                default:
-                    break;
-            }
-        } else {
-            switch(m_type_->type) {
-                case ASR::ttypeType::Integer: {
-                    el_type = getIntType(a_kind);
-                    break;
-                }
-                case ASR::ttypeType::Real: {
-                    el_type = getFPType(a_kind);
-                    break;
-                }
-                case ASR::ttypeType::Complex: {
-                    el_type = getComplexType(a_kind);
-                    break;
-                }
-                case ASR::ttypeType::Logical: {
-                    el_type = llvm::Type::getInt1Ty(context);
-                    break;
-                }
-                case ASR::ttypeType::Struct: {
-                    el_type = getStructType(m_type_);
-                    break;
-                }
-                case ASR::ttypeType::Character: {
-                    el_type = character_type;
-                    break;
-                }
-                default:
-                    break;
-            }
-        }
-        return el_type;
-    }
-
-    void fill_array_details(llvm::Value* arr, llvm::Type* llvm_data_type,
-                            ASR::dimension_t* m_dims, int n_dims, bool is_data_only=false) {
-        std::vector<std::pair<llvm::Value*, llvm::Value*>> llvm_dims;
-        for( int r = 0; r < n_dims; r++ ) {
-            ASR::dimension_t m_dim = m_dims[r];
-            visit_expr(*(m_dim.m_start));
-            llvm::Value* start = tmp;
-            visit_expr(*(m_dim.m_length));
-            llvm::Value* end = tmp;
-            llvm_dims.push_back(std::make_pair(start, end));
-        }
-        if( is_data_only ) {
-            if( !ASRUtils::is_fixed_size_array(m_dims, n_dims) ) {
-                llvm::Value* const_1 = llvm::ConstantInt::get(context, llvm::APInt(32, 1));
-                llvm::Value* prod = const_1;
-                for( int r = 0; r < n_dims; r++ ) {
-                    llvm::Value* dim_size = llvm_dims[r].second;
-                    prod = builder->CreateMul(prod, dim_size);
-                }
-                llvm::Value* arr_first = builder->CreateAlloca(llvm_data_type, prod);
-                builder->CreateStore(arr_first, arr);
-            }
-        } else {
-            arr_descr->fill_array_details(arr, llvm_data_type, n_dims, llvm_dims);
-        }
-    }
-
-    /*
-        This function fills the descriptor
-        (pointer to the first element, offset and descriptor of each dimension)
-        of the array which are allocated memory in heap.
-    */
-    inline void fill_malloc_array_details(llvm::Value* arr, llvm::Type* llvm_data_type,
-                                          ASR::dimension_t* m_dims, int n_dims) {
-        std::vector<std::pair<llvm::Value*, llvm::Value*>> llvm_dims;
-        for( int r = 0; r < n_dims; r++ ) {
-            ASR::dimension_t m_dim = m_dims[r];
-            visit_expr(*(m_dim.m_start));
-            llvm::Value* start = tmp;
-            visit_expr(*(m_dim.m_length));
-            llvm::Value* end = tmp;
-            llvm_dims.push_back(std::make_pair(start, end));
-        }
-        arr_descr->fill_malloc_array_details(arr, llvm_data_type,
-            n_dims, llvm_dims, module.get());
-    }
-
-    inline llvm::Type* getIntType(int a_kind, bool get_pointer=false) {
-        llvm::Type* type_ptr = nullptr;
-        if( get_pointer ) {
-            switch(a_kind)
-            {
-                case 1:
-                    type_ptr = llvm::Type::getInt8PtrTy(context);
-                    break;
-                case 2:
-                    type_ptr = llvm::Type::getInt16PtrTy(context);
-                    break;
-                case 4:
-                    type_ptr = llvm::Type::getInt32PtrTy(context);
-                    break;
-                case 8:
-                    type_ptr = llvm::Type::getInt64PtrTy(context);
-                    break;
-                default:
-                    throw CodeGenError("Only 8, 16, 32 and 64 bits integer kinds are supported.");
-            }
-        } else {
-            switch(a_kind)
-            {
-                case 1:
-                    type_ptr = llvm::Type::getInt8Ty(context);
-                    break;
-                case 2:
-                    type_ptr = llvm::Type::getInt16Ty(context);
-                    break;
-                case 4:
-                    type_ptr = llvm::Type::getInt32Ty(context);
-                    break;
-                case 8:
-                    type_ptr = llvm::Type::getInt64Ty(context);
-                    break;
-                default:
-                    throw CodeGenError("Only 8, 16, 32 and 64 bits integer kinds are supported.");
-            }
-        }
-        return type_ptr;
-    }
-
-    inline llvm::Type* getFPType(int a_kind, bool get_pointer=false) {
-        llvm::Type* type_ptr = nullptr;
-        if( get_pointer ) {
-            switch(a_kind)
-            {
-                case 4:
-                    type_ptr = llvm::Type::getFloatPtrTy(context);
-                    break;
-                case 8:
-                    type_ptr =  llvm::Type::getDoublePtrTy(context);
-                    break;
-                default:
-                    throw CodeGenError("Only 32 and 64 bits real kinds are supported.");
-            }
-        } else {
-            switch(a_kind)
-            {
-                case 4:
-                    type_ptr = llvm::Type::getFloatTy(context);
-                    break;
-                case 8:
-                    type_ptr = llvm::Type::getDoubleTy(context);
-                    break;
-                default:
-                    throw CodeGenError("Only 32 and 64 bits real kinds are supported.");
-            }
-        }
-        return type_ptr;
-    }
-
-    inline llvm::Type* getComplexType(int a_kind, bool get_pointer=false) {
-        llvm::Type* type = nullptr;
-        switch(a_kind)
-        {
-            case 4:
-                type = complex_type_4;
-                break;
-            case 8:
-                type = complex_type_8;
-                break;
-            default:
-                throw CodeGenError("Only 32 and 64 bits complex kinds are supported.");
-        }
-        if( type != nullptr ) {
-            if( get_pointer ) {
-                return type->getPointerTo();
-            } else {
-                return type;
-            }
-        }
-        return nullptr;
-    }
-
-    llvm::Type* getMemberType(ASR::ttype_t* mem_type, ASR::Variable_t* member) {
-        llvm::Type* llvm_mem_type = nullptr;
-        switch( mem_type->type ) {
-            case ASR::ttypeType::Integer: {
-                int a_kind = down_cast<ASR::Integer_t>(mem_type)->m_kind;
-                llvm_mem_type = getIntType(a_kind);
-                break;
-            }
-            case ASR::ttypeType::Real: {
-                int a_kind = down_cast<ASR::Real_t>(mem_type)->m_kind;
-                llvm_mem_type = getFPType(a_kind);
-                break;
-            }
-            case ASR::ttypeType::Struct: {
-                llvm_mem_type = getStructType(mem_type);
-                break;
-            }
-            case ASR::ttypeType::Enum: {
-                llvm_mem_type = llvm::Type::getInt32Ty(context);
-                break ;
-            }
-            case ASR::ttypeType::Union: {
-                llvm_mem_type = getUnionType(mem_type);
-                break;
-            }
-            case ASR::ttypeType::Pointer: {
-                ASR::Pointer_t* ptr_type = ASR::down_cast<ASR::Pointer_t>(mem_type);
-                llvm_mem_type = getMemberType(ptr_type->m_type, member)->getPointerTo();
-                break;
-            }
-            case ASR::ttypeType::Complex: {
-                int a_kind = down_cast<ASR::Complex_t>(mem_type)->m_kind;
-                llvm_mem_type = getComplexType(a_kind);
-                break;
-            }
-            case ASR::ttypeType::Character: {
-                llvm_mem_type = character_type;
-                break;
-            }
-            case ASR::ttypeType::CPtr: {
-                llvm_mem_type = llvm::Type::getVoidTy(context)->getPointerTo();
-                break;
-            }
-            default:
-                throw CodeGenError("Cannot identify the type of member, '" +
-                                    std::string(member->m_name) +
-                                    "' in derived type, '" + der_type_name + "'.",
-                                    member->base.base.loc);
-        }
-        return llvm_mem_type;
-    }
-
-    llvm::Type* getStructType(ASR::StructType_t* der_type, bool is_pointer=false) {
-        std::string der_type_name = std::string(der_type->m_name);
-        llvm::StructType* der_type_llvm;
-        if( name2dertype.find(der_type_name) != name2dertype.end() ) {
-            der_type_llvm = name2dertype[der_type_name];
-        } else {
-            std::vector<llvm::Type*> member_types;
-            int member_idx = 0;
-            if( der_type->m_parent != nullptr ) {
-                ASR::StructType_t *par_der_type = ASR::down_cast<ASR::StructType_t>(
-                                                        symbol_get_past_external(der_type->m_parent));
-                llvm::Type* par_llvm = getStructType(par_der_type);
-                member_types.push_back(par_llvm);
-                dertype2parent[der_type_name] = std::string(par_der_type->m_name);
-                member_idx += 1;
-            }
-
-            for( size_t i = 0; i < der_type->n_members; i++ ) {
-                std::string member_name = der_type->m_members[i];
-                ASR::Variable_t* member = ASR::down_cast<ASR::Variable_t>(der_type->m_symtab->get_symbol(member_name));
-                llvm::Type* llvm_mem_type = get_type_from_ttype_t_util(member->m_type, member->m_abi);
-                member_types.push_back(llvm_mem_type);
-                name2memidx[der_type_name][std::string(member->m_name)] = member_idx;
-                member_idx++;
-            }
-            der_type_llvm = llvm::StructType::create(context,
-                                member_types,
-                                der_type_name,
-                                der_type->m_is_packed);
-            name2dertype[der_type_name] = der_type_llvm;
-        }
-        if( is_pointer ) {
-            return der_type_llvm->getPointerTo();
-        }
-        return (llvm::Type*) der_type_llvm;
-    }
-
-    llvm::Type* getStructType(ASR::ttype_t* _type, bool is_pointer=false) {
-        ASR::Struct_t* der = (ASR::Struct_t*)(&(_type->base));
-        ASR::symbol_t* der_sym;
-        if( der->m_derived_type->type == ASR::symbolType::ExternalSymbol ) {
-            ASR::ExternalSymbol_t* der_extr = (ASR::ExternalSymbol_t*)(&(der->m_derived_type->base));
-            der_sym = der_extr->m_external;
-        } else {
-            der_sym = der->m_derived_type;
-        }
-        ASR::StructType_t* der_type = (ASR::StructType_t*)(&(der_sym->base));
-        return getStructType(der_type, is_pointer);
-    }
-
-    llvm::Type* getUnionType(ASR::UnionType_t* union_type, bool is_pointer=false) {
-        std::string union_type_name = std::string(union_type->m_name);
-        llvm::StructType* union_type_llvm = nullptr;
-        if( name2dertype.find(union_type_name) != name2dertype.end() ) {
-            union_type_llvm = name2dertype[union_type_name];
-        } else {
-            const std::map<std::string, ASR::symbol_t*>& scope = union_type->m_symtab->get_scope();
-            llvm::DataLayout data_layout(module.get());
-            llvm::Type* max_sized_type = nullptr;
-            size_t max_type_size = 0;
-            for( auto itr = scope.begin(); itr != scope.end(); itr++ ) {
-                ASR::Variable_t* member = ASR::down_cast<ASR::Variable_t>(itr->second);
-                llvm::Type* llvm_mem_type = getMemberType(member->m_type, member);
-                size_t type_size = data_layout.getTypeAllocSize(llvm_mem_type);
-                if( max_type_size < type_size ) {
-                    max_sized_type = llvm_mem_type;
-                    type_size = max_type_size;
-                }
-            }
-            union_type_llvm = llvm::StructType::create(context, {max_sized_type}, union_type_name);
-            name2dertype[union_type_name] = union_type_llvm;
-        }
-        if( is_pointer ) {
-            return union_type_llvm->getPointerTo();
-        }
-        return (llvm::Type*) union_type_llvm;
-    }
-
-    llvm::Type* getUnionType(ASR::ttype_t* _type, bool is_pointer=false) {
-        ASR::Union_t* union_ = ASR::down_cast<ASR::Union_t>(_type);
-        ASR::symbol_t* union_sym = ASRUtils::symbol_get_past_external(union_->m_union_type);
-        ASR::UnionType_t* union_type = ASR::down_cast<ASR::UnionType_t>(union_sym);
-        return getUnionType(union_type, is_pointer);
-    }
-
-    llvm::Type* getClassType(ASR::ttype_t* _type, bool is_pointer=false) {
-        ASR::Class_t* der = (ASR::Class_t*)(&(_type->base));
-        ASR::symbol_t* der_sym;
-        if( der->m_class_type->type == ASR::symbolType::ExternalSymbol ) {
-            ASR::ExternalSymbol_t* der_extr = (ASR::ExternalSymbol_t*)(&(der->m_class_type->base));
-            der_sym = der_extr->m_external;
-        } else {
-            der_sym = der->m_class_type;
-        }
-        ASR::ClassType_t* der_type = (ASR::ClassType_t*)(&(der_sym->base));
-        std::string der_type_name = std::string(der_type->m_name);
-        llvm::StructType* der_type_llvm;
-        if( name2dertype.find(der_type_name) != name2dertype.end() ) {
-            der_type_llvm = name2dertype[der_type_name];
-        } else {
-            const std::map<std::string, ASR::symbol_t*>& scope = der_type->m_symtab->get_scope();
-            std::vector<llvm::Type*> member_types;
-            int member_idx = 0;
-            for( auto itr = scope.begin(); itr != scope.end(); itr++ ) {
-                if (!ASR::is_a<ASR::ClassProcedure_t>(*itr->second) &&
-                    !ASR::is_a<ASR::GenericProcedure_t>(*itr->second) &&
-                    !ASR::is_a<ASR::CustomOperator_t>(*itr->second)) {
-                    ASR::Variable_t* member = ASR::down_cast<ASR::Variable_t>(itr->second);
-                    llvm::Type* mem_type = nullptr;
-                    switch( member->m_type->type ) {
-                        case ASR::ttypeType::Integer: {
-                            int a_kind = down_cast<ASR::Integer_t>(member->m_type)->m_kind;
-                            mem_type = getIntType(a_kind);
-                            break;
-                        }
-                        case ASR::ttypeType::Real: {
-                            int a_kind = down_cast<ASR::Real_t>(member->m_type)->m_kind;
-                            mem_type = getFPType(a_kind);
-                            break;
-                        }
-                        case ASR::ttypeType::Class: {
-                            mem_type = getClassType(member->m_type);
-                            break;
-                        }
-                        case ASR::ttypeType::Complex: {
-                            int a_kind = down_cast<ASR::Complex_t>(member->m_type)->m_kind;
-                            mem_type = getComplexType(a_kind);
-                            break;
-                        }
-                        default:
-                            throw CodeGenError("Cannot identify the type of member, '" +
-                                                std::string(member->m_name) +
-                                                "' in derived type, '" + der_type_name + "'.",
-                                                member->base.base.loc);
-                    }
-                    member_types.push_back(mem_type);
-                    name2memidx[der_type_name][std::string(member->m_name)] = member_idx;
-                    member_idx++;
-                }
-            }
-            der_type_llvm = llvm::StructType::create(context, member_types, der_type_name);
-            name2dertype[der_type_name] = der_type_llvm;
-        }
-        if( is_pointer ) {
-            return der_type_llvm->getPointerTo();
-        }
-        return (llvm::Type*) der_type_llvm;
-    }
-
-
-    /*
-    * Dispatches the required function from runtime library to
-    * perform the specified binary operation.
-    *
-    * @param left_arg llvm::Value* The left argument of the binary operator.
-    * @param right_arg llvm::Value* The right argument of the binary operator.
-    * @param runtime_func_name std::string The name of the function to be dispatched
-    *                                      from runtime library.
-    * @returns llvm::Value* The result of the operation.
-    *
-    * Note
-    * ====
-    *
-    * Internally the call to this function gets transformed into a runtime call:
-    * void _lfortran_complex_add(complex* a, complex* b, complex *result)
-    *
-    * As of now the following values for func_name are supported,
-    *
-    * _lfortran_complex_add
-    * _lfortran_complex_sub
-    * _lfortran_complex_div
-    * _lfortran_complex_mul
-    */
-    llvm::Value* lfortran_complex_bin_op(llvm::Value* left_arg, llvm::Value* right_arg,
-                                         std::string runtime_func_name,
-                                         llvm::Type* complex_type=nullptr)
-    {
-        if( complex_type == nullptr ) {
-            complex_type = complex_type_4;
-        }
-        llvm::Function *fn = module->getFunction(runtime_func_name);
-        if (!fn) {
-            llvm::FunctionType *function_type = llvm::FunctionType::get(
-                    llvm::Type::getVoidTy(context), {
-                        complex_type->getPointerTo(),
-                        complex_type->getPointerTo(),
-                        complex_type->getPointerTo()
-                    }, true);
-            fn = llvm::Function::Create(function_type,
-                    llvm::Function::ExternalLinkage, runtime_func_name, *module);
-        }
-
-        llvm::AllocaInst *pleft_arg = builder->CreateAlloca(complex_type,
-            nullptr);
-
-        builder->CreateStore(left_arg, pleft_arg);
-        llvm::AllocaInst *pright_arg = builder->CreateAlloca(complex_type,
-            nullptr);
-        builder->CreateStore(right_arg, pright_arg);
-        llvm::AllocaInst *presult = builder->CreateAlloca(complex_type,
-            nullptr);
-        std::vector<llvm::Value*> args = {pleft_arg, pright_arg, presult};
-        builder->CreateCall(fn, args);
-        return CreateLoad(presult);
-    }
-
-
-    llvm::Value* lfortran_strop(llvm::Value* left_arg, llvm::Value* right_arg,
-                                         std::string runtime_func_name)
-    {
-        llvm::Function *fn = module->getFunction(runtime_func_name);
-        if (!fn) {
-            llvm::FunctionType *function_type = llvm::FunctionType::get(
-                    llvm::Type::getVoidTy(context), {
-                        character_type->getPointerTo(),
-                        character_type->getPointerTo(),
-                        character_type->getPointerTo()
-                    }, false);
-            fn = llvm::Function::Create(function_type,
-                    llvm::Function::ExternalLinkage, runtime_func_name, *module);
-        }
-        llvm::AllocaInst *pleft_arg = builder->CreateAlloca(character_type,
-            nullptr);
-        builder->CreateStore(left_arg, pleft_arg);
-        llvm::AllocaInst *pright_arg = builder->CreateAlloca(character_type,
-            nullptr);
-        builder->CreateStore(right_arg, pright_arg);
-        llvm::AllocaInst *presult = builder->CreateAlloca(character_type,
-            nullptr);
-        std::vector<llvm::Value*> args = {pleft_arg, pright_arg, presult};
-        builder->CreateCall(fn, args);
-        return CreateLoad(presult);
-    }
-
-    llvm::Value* lfortran_str_cmp(llvm::Value* left_arg, llvm::Value* right_arg,
-                                         std::string runtime_func_name)
-    {
-        llvm::Function *fn = module->getFunction(runtime_func_name);
-        if(!fn) {
-            llvm::FunctionType *function_type = llvm::FunctionType::get(
-                    llvm::Type::getInt1Ty(context), {
-                        character_type->getPointerTo(),
-                        character_type->getPointerTo()
-                    }, false);
-            fn = llvm::Function::Create(function_type,
-                    llvm::Function::ExternalLinkage, runtime_func_name, *module);
-        }
-        llvm::AllocaInst *pleft_arg = builder->CreateAlloca(character_type,
-            nullptr);
-        builder->CreateStore(left_arg, pleft_arg);
-        llvm::AllocaInst *pright_arg = builder->CreateAlloca(character_type,
-            nullptr);
-        builder->CreateStore(right_arg, pright_arg);
-        std::vector<llvm::Value*> args = {pleft_arg, pright_arg};
-        return builder->CreateCall(fn, args);
-    }
-
-    llvm::Value* lfortran_strrepeat(llvm::Value* left_arg, llvm::Value* right_arg)
-    {
-        std::string runtime_func_name = "_lfortran_strrepeat";
-        llvm::Function *fn = module->getFunction(runtime_func_name);
-        if (!fn) {
-            llvm::FunctionType *function_type = llvm::FunctionType::get(
-                    llvm::Type::getVoidTy(context), {
-                        character_type->getPointerTo(),
-                        llvm::Type::getInt32Ty(context),
-                        character_type->getPointerTo()
-                    }, false);
-            fn = llvm::Function::Create(function_type,
-                    llvm::Function::ExternalLinkage, runtime_func_name, *module);
-        }
-        llvm::AllocaInst *pleft_arg = builder->CreateAlloca(character_type,
-            nullptr);
-        builder->CreateStore(left_arg, pleft_arg);
-        llvm::AllocaInst *presult = builder->CreateAlloca(character_type,
-            nullptr);
-        std::vector<llvm::Value*> args = {pleft_arg, right_arg, presult};
-        builder->CreateCall(fn, args);
-        return CreateLoad(presult);
-    }
-
-    llvm::Value* lfortran_str_len(llvm::Value* str)
-    {
-        std::string runtime_func_name = "_lfortran_str_len";
-        llvm::Function *fn = module->getFunction(runtime_func_name);
-        if (!fn) {
-            llvm::FunctionType *function_type = llvm::FunctionType::get(
-                    llvm::Type::getInt32Ty(context), {
-                        character_type->getPointerTo()
-                    }, false);
-            fn = llvm::Function::Create(function_type,
-                    llvm::Function::ExternalLinkage, runtime_func_name, *module);
-        }
-        return builder->CreateCall(fn, {str});
-    }
-
-    llvm::Value* lfortran_str_to_int(llvm::Value* str)
-    {
-        std::string runtime_func_name = "_lfortran_str_to_int";
-        llvm::Function *fn = module->getFunction(runtime_func_name);
-        if (!fn) {
-            llvm::FunctionType *function_type = llvm::FunctionType::get(
-                    llvm::Type::getInt32Ty(context), {
-                        character_type->getPointerTo()
-                    }, false);
-            fn = llvm::Function::Create(function_type,
-                    llvm::Function::ExternalLinkage, runtime_func_name, *module);
-        }
-        return builder->CreateCall(fn, {str});
-    }
-
-    llvm::Value* lfortran_str_ord(llvm::Value* str)
-    {
-        std::string runtime_func_name = "_lfortran_str_ord";
-        llvm::Function *fn = module->getFunction(runtime_func_name);
-        if (!fn) {
-            llvm::FunctionType *function_type = llvm::FunctionType::get(
-                    llvm::Type::getInt32Ty(context), {
-                        character_type->getPointerTo()
-                    }, false);
-            fn = llvm::Function::Create(function_type,
-                    llvm::Function::ExternalLinkage, runtime_func_name, *module);
-        }
-        return builder->CreateCall(fn, {str});
-    }
-
-    llvm::Value* lfortran_str_chr(llvm::Value* str)
-    {
-        std::string runtime_func_name = "_lfortran_str_chr";
-        llvm::Function *fn = module->getFunction(runtime_func_name);
-        if (!fn) {
-            llvm::FunctionType *function_type = llvm::FunctionType::get(
-                    character_type, {
-                        llvm::Type::getInt32Ty(context)
-                    }, false);
-            fn = llvm::Function::Create(function_type,
-                    llvm::Function::ExternalLinkage, runtime_func_name, *module);
-        }
-        return builder->CreateCall(fn, {str});
-    }
-
-    llvm::Value* lfortran_str_copy(llvm::Value* str, llvm::Value* idx1, llvm::Value* idx2)
-    {
-        std::string runtime_func_name = "_lfortran_str_copy";
-        llvm::Function *fn = module->getFunction(runtime_func_name);
-        if (!fn) {
-            llvm::FunctionType *function_type = llvm::FunctionType::get(
-                    character_type, {
-                        character_type, llvm::Type::getInt32Ty(context), llvm::Type::getInt32Ty(context)
-                    }, false);
-            fn = llvm::Function::Create(function_type,
-                    llvm::Function::ExternalLinkage, runtime_func_name, *module);
-        }
-        return builder->CreateCall(fn, {str, idx1, idx2});
-    }
-
-    llvm::Value* lfortran_str_slice(llvm::Value* str, llvm::Value* idx1, llvm::Value* idx2,
-                    llvm::Value* step, llvm::Value* left_present, llvm::Value* right_present)
-    {
-        std::string runtime_func_name = "_lfortran_str_slice";
-        llvm::Function *fn = module->getFunction(runtime_func_name);
-        if (!fn) {
-            llvm::FunctionType *function_type = llvm::FunctionType::get(
-                    character_type, {
-                        character_type, llvm::Type::getInt32Ty(context),
-                        llvm::Type::getInt32Ty(context), llvm::Type::getInt32Ty(context),
-                        llvm::Type::getInt1Ty(context), llvm::Type::getInt1Ty(context)
-                    }, false);
-            fn = llvm::Function::Create(function_type,
-                    llvm::Function::ExternalLinkage, runtime_func_name, *module);
-        }
-        return builder->CreateCall(fn, {str, idx1, idx2, step, left_present, right_present});
-    }
-
-    llvm::Value* lfortran_type_to_str(llvm::Value* arg, llvm::Type* value_type, std::string type, int value_kind) {
-        std::string func_name = "_lfortran_" + type + "_to_str" + std::to_string(value_kind);
-         llvm::Function *fn = module->getFunction(func_name);
-         if(!fn) {
-            llvm::FunctionType *function_type = llvm::FunctionType::get(
-                 character_type, {
-                     value_type
-                 }, false);
-            fn = llvm::Function::Create(function_type,
-                     llvm::Function::ExternalLinkage, func_name, *module);
-         }
-         llvm::Value* res = builder->CreateCall(fn, {arg});
-         return res;
-    }
-
-    // This function is called as:
-    // float complex_re(complex a)
-    // And it extracts the real part of the complex number
-    llvm::Value *complex_re(llvm::Value *c, llvm::Type* complex_type=nullptr) {
-        if( complex_type == nullptr ) {
-            complex_type = complex_type_4;
-        }
-        if( c->getType()->isPointerTy() ) {
-            c = CreateLoad(c);
-        }
-        llvm::AllocaInst *pc = builder->CreateAlloca(complex_type, nullptr);
-        builder->CreateStore(c, pc);
-        std::vector<llvm::Value *> idx = {
-            llvm::ConstantInt::get(context, llvm::APInt(32, 0)),
-            llvm::ConstantInt::get(context, llvm::APInt(32, 0))};
-        llvm::Value *pim = CreateGEP(pc, idx);
-        return CreateLoad(pim);
-    }
-
-    llvm::Value *complex_im(llvm::Value *c, llvm::Type* complex_type=nullptr) {
-        if( complex_type == nullptr ) {
-            complex_type = complex_type_4;
-        }
-        llvm::AllocaInst *pc = builder->CreateAlloca(complex_type, nullptr);
-        builder->CreateStore(c, pc);
-        std::vector<llvm::Value *> idx = {
-            llvm::ConstantInt::get(context, llvm::APInt(32, 0)),
-            llvm::ConstantInt::get(context, llvm::APInt(32, 1))};
-        llvm::Value *pim = CreateGEP(pc, idx);
-        return CreateLoad(pim);
-    }
-
-    llvm::Value *complex_from_floats(llvm::Value *re, llvm::Value *im,
-                                     llvm::Type* complex_type=nullptr) {
-        if( complex_type == nullptr ) {
-            complex_type = complex_type_4;
-        }
-        llvm::AllocaInst *pres = builder->CreateAlloca(complex_type, nullptr);
-        std::vector<llvm::Value *> idx1 = {
-            llvm::ConstantInt::get(context, llvm::APInt(32, 0)),
-            llvm::ConstantInt::get(context, llvm::APInt(32, 0))};
-        std::vector<llvm::Value *> idx2 = {
-            llvm::ConstantInt::get(context, llvm::APInt(32, 0)),
-            llvm::ConstantInt::get(context, llvm::APInt(32, 1))};
-        llvm::Value *pre = CreateGEP(pres, idx1);
-        llvm::Value *pim = CreateGEP(pres, idx2);
-        builder->CreateStore(re, pre);
-        builder->CreateStore(im, pim);
-        return CreateLoad(pres);
-    }
-
-    llvm::Value *nested_struct_rd(std::vector<llvm::Value*> vals,
-            llvm::StructType* rd) {
-        llvm::AllocaInst *pres = builder->CreateAlloca(rd, nullptr);
-        llvm::Value *pim = CreateGEP(pres, vals);
-        return CreateLoad(pim);
-    }
-
-    /**
-     * @brief This function generates the
-     * @detail This is converted to
-     *
-     *     float lfortran_KEY(float *x)
-     *
-     *   Where KEY can be any of the supported intrinsics; this is then
-     *   transformed into a runtime call:
-     *
-     *     void _lfortran_KEY(float x, float *result)
-     */
-    llvm::Value* lfortran_intrinsic(llvm::Function *fn, llvm::Value* pa, int a_kind)
-    {
-        llvm::Type *presult_type = getFPType(a_kind);
-        llvm::AllocaInst *presult = builder->CreateAlloca(presult_type, nullptr);
-        llvm::Value *a = CreateLoad(pa);
-        std::vector<llvm::Value*> args = {a, presult};
-        builder->CreateCall(fn, args);
-        return CreateLoad(presult);
-    }
-
-    void visit_TranslationUnit(const ASR::TranslationUnit_t &x) {
-        module = std::make_unique<llvm::Module>("LFortran", context);
-        module->setDataLayout("");
-
-        if (compiler_options.emit_debug_info) {
-            DBuilder = std::make_unique<llvm::DIBuilder>(*module);
-            debug_CU = DBuilder->createCompileUnit(
-                llvm::dwarf::DW_LANG_C, DBuilder->createFile(infile, "."),
-                "LPython Compiler", false, "", 0);
-        }
-
-        // All loose statements must be converted to a function, so the items
-        // must be empty:
-        LCOMPILERS_ASSERT(x.n_items == 0);
-
-        // Define LLVM types that we might need
-        // Complex type is represented as an identified struct in LLVM
-        // %complex = type { float, float }
-        std::vector<llvm::Type*> els_4 = {
-            llvm::Type::getFloatTy(context),
-            llvm::Type::getFloatTy(context)};
-        std::vector<llvm::Type*> els_8 = {
-            llvm::Type::getDoubleTy(context),
-            llvm::Type::getDoubleTy(context)};
-        std::vector<llvm::Type*> els_4_ptr = {
-            llvm::Type::getFloatPtrTy(context),
-            llvm::Type::getFloatPtrTy(context)};
-        std::vector<llvm::Type*> els_8_ptr = {
-            llvm::Type::getDoublePtrTy(context),
-            llvm::Type::getDoublePtrTy(context)};
-        complex_type_4 = llvm::StructType::create(context, els_4, "complex_4");
-        complex_type_8 = llvm::StructType::create(context, els_8, "complex_8");
-        complex_type_4_ptr = llvm::StructType::create(context, els_4_ptr, "complex_4_ptr");
-        complex_type_8_ptr = llvm::StructType::create(context, els_8_ptr, "complex_8_ptr");
-        character_type = llvm::Type::getInt8PtrTy(context);
-        list_type = llvm::Type::getInt8PtrTy(context);
-
-        llvm::Type* bound_arg = static_cast<llvm::Type*>(arr_descr->get_dimension_descriptor_type(true));
-        fname2arg_type["lbound"] = std::make_pair(bound_arg, bound_arg->getPointerTo());
-        fname2arg_type["ubound"] = std::make_pair(bound_arg, bound_arg->getPointerTo());
-
-        // Process Variables first:
-        for (auto &item : x.m_global_scope->get_scope()) {
-            if (is_a<ASR::Variable_t>(*item.second) ||
-                is_a<ASR::EnumType_t>(*item.second)) {
-                visit_symbol(*item.second);
-            }
-        }
-
-        prototype_only = false;
-        for (auto &item : x.m_global_scope->get_scope()) {
-            if (is_a<ASR::Module_t>(*item.second) &&
-                item.first.find("lfortran_intrinsic_optimization") != std::string::npos) {
-                ASR::Module_t* mod = ASR::down_cast<ASR::Module_t>(item.second);
-                for( auto &moditem: mod->m_symtab->get_scope() ) {
-                    ASR::symbol_t* sym = ASRUtils::symbol_get_past_external(moditem.second);
-                    if (is_a<ASR::Function_t>(*sym)) {
-                        visit_Function(*ASR::down_cast<ASR::Function_t>(sym));
-                    }
-                }
-            }
-        }
-
-        prototype_only = true;
-        // Generate function prototypes
-        for (auto &item : x.m_global_scope->get_scope()) {
-            if (is_a<ASR::Function_t>(*item.second)) {
-                if (ASRUtils::get_FunctionType(ASR::down_cast<ASR::Function_t>(item.second))->n_type_params == 0) {
-                    visit_Function(*ASR::down_cast<ASR::Function_t>(item.second));
-                }
-            }
-        }
-        prototype_only = false;
-
-        // TODO: handle dependencies across modules and main program
-
-        // Then do all the modules in the right order
-        std::vector<std::string> build_order
-            = determine_module_dependencies(x);
-        for (auto &item : build_order) {
-            LCOMPILERS_ASSERT(x.m_global_scope->get_symbol(item)
-                != nullptr);
-            ASR::symbol_t *mod = x.m_global_scope->get_symbol(item);
-            visit_symbol(*mod);
-        }
-
-        // Then do all the procedures
-        for (auto &item : x.m_global_scope->get_scope()) {
-            if (is_a<ASR::Function_t>(*item.second)) {
-                if (ASRUtils::get_FunctionType(ASR::down_cast<ASR::Function_t>(item.second))->n_type_params == 0) {
-                    visit_symbol(*item.second);
-                }
-            }
-        }
-
-        // Then the main program
-        for (auto &item : x.m_global_scope->get_scope()) {
-            if (is_a<ASR::Program_t>(*item.second)) {
-                visit_symbol(*item.second);
-            }
-        }
-    }
-
-    void visit_Allocate(const ASR::Allocate_t& x) {
-        for( size_t i = 0; i < x.n_args; i++ ) {
-            ASR::alloc_arg_t curr_arg = x.m_args[i];
-            std::uint32_t h = get_hash((ASR::asr_t*)curr_arg.m_a);
-            LCOMPILERS_ASSERT(llvm_symtab.find(h) != llvm_symtab.end());
-            llvm::Value* x_arr = llvm_symtab[h];
-            ASR::ttype_t* curr_arg_m_a_type = ASRUtils::symbol_type(curr_arg.m_a);
-            ASR::ttype_t* asr_data_type = ASRUtils::duplicate_type_without_dims(al,
-                curr_arg_m_a_type, curr_arg_m_a_type->base.loc);
-            llvm::Type* llvm_data_type = get_type_from_ttype_t_util(asr_data_type);
-            fill_malloc_array_details(x_arr, llvm_data_type, curr_arg.m_dims, curr_arg.n_dims);
-        }
-        if (x.m_stat) {
-            ASR::Variable_t *asr_target = EXPR2VAR(x.m_stat);
-            uint32_t h = get_hash((ASR::asr_t*)asr_target);
-            if (llvm_symtab.find(h) != llvm_symtab.end()) {
-                llvm::Value *target, *value;
-                target = llvm_symtab[h];
-                // Store 0 (success) in the stat variable
-                value = llvm::ConstantInt::get(context, llvm::APInt(32, 0));
-                builder->CreateStore(value, target);
-            } else {
-                throw CodeGenError("Stat variable in allocate not found in LLVM symtab");
-            }
-        }
-    }
-
-    void visit_Nullify(const ASR::Nullify_t& x) {
-        for( size_t i = 0; i < x.n_vars; i++ ) {
-            std::uint32_t h = get_hash((ASR::asr_t*)x.m_vars[i]);
-            llvm::Value *target = llvm_symtab[h];
-            llvm::Type* tp = target->getType()->getContainedType(0);
-            llvm::Value* np = builder->CreateIntToPtr(
-                llvm::ConstantInt::get(context, llvm::APInt(32, 0)), tp);
-            builder->CreateStore(np, target);
-        }
-    }
-
-    inline void call_lfortran_free(llvm::Function* fn) {
-        llvm::Value* arr = CreateLoad(arr_descr->get_pointer_to_data(tmp));
-        llvm::AllocaInst *arg_arr = builder->CreateAlloca(character_type, nullptr);
-        builder->CreateStore(builder->CreateBitCast(arr, character_type), arg_arr);
-        std::vector<llvm::Value*> args = {CreateLoad(arg_arr)};
-        builder->CreateCall(fn, args);
-        arr_descr->set_is_allocated_flag(tmp, 0);
-    }
-
-    template <typename T>
-    void _Deallocate(const T& x) {
-        std::string func_name = "_lfortran_free";
-        llvm::Function *free_fn = module->getFunction(func_name);
-        if (!free_fn) {
-            llvm::FunctionType *function_type = llvm::FunctionType::get(
-                    llvm::Type::getVoidTy(context), {
-                        character_type
-                    }, true);
-            free_fn = llvm::Function::Create(function_type,
-                    llvm::Function::ExternalLinkage, func_name, *module);
-        }
-        for( size_t i = 0; i < x.n_vars; i++ ) {
-            const ASR::symbol_t* curr_obj = x.m_vars[i];
-            ASR::Variable_t *v = ASR::down_cast<ASR::Variable_t>(
-                                    symbol_get_past_external(curr_obj));
-            fetch_var(v);
-            if( x.class_type == ASR::stmtType::ImplicitDeallocate ) {
-                llvm::Value *cond = arr_descr->get_is_allocated_flag(tmp);
-                create_if_else(cond, [=]() {
-                    call_lfortran_free(free_fn);
-                }, [](){});
-            } else {
-                call_lfortran_free(free_fn);
-            }
-        }
-    }
-
-    void visit_ImplicitDeallocate(const ASR::ImplicitDeallocate_t& x) {
-        _Deallocate<ASR::ImplicitDeallocate_t>(x);
-    }
-
-    void visit_ExplicitDeallocate(const ASR::ExplicitDeallocate_t& x) {
-        _Deallocate<ASR::ExplicitDeallocate_t>(x);
-    }
-
-    void visit_ListConstant(const ASR::ListConstant_t& x) {
-        ASR::List_t* list_type = ASR::down_cast<ASR::List_t>(x.m_type);
-        bool is_array_type_local = false, is_malloc_array_type_local = false;
-        bool is_list_local = false;
-        ASR::dimension_t* m_dims_local = nullptr;
-        int n_dims_local = -1, a_kind_local = -1;
-        llvm::Type* llvm_el_type = get_type_from_ttype_t(list_type->m_type,
-                                    ASR::storage_typeType::Default, is_array_type_local,
-                                    is_malloc_array_type_local, is_list_local, m_dims_local,
-                                    n_dims_local, a_kind_local);
-        std::string type_code = ASRUtils::get_type_code(list_type->m_type);
-        int32_t type_size = -1;
-        if( ASR::is_a<ASR::Character_t>(*list_type->m_type) ||
-            LLVM::is_llvm_struct(list_type->m_type) ||
-            ASR::is_a<ASR::Complex_t>(*list_type->m_type) ) {
-            llvm::DataLayout data_layout(module.get());
-            type_size = data_layout.getTypeAllocSize(llvm_el_type);
-        } else {
-            type_size = ASRUtils::extract_kind_from_ttype_t(list_type->m_type);
-        }
-        llvm::Type* const_list_type = list_api->get_list_type(llvm_el_type, type_code, type_size);
-        llvm::Value* const_list = builder->CreateAlloca(const_list_type, nullptr, "const_list");
-        list_api->list_init(type_code, const_list, *module, x.n_args, x.n_args);
-        int64_t ptr_loads_copy = ptr_loads;
-        ptr_loads = 1;
-        for( size_t i = 0; i < x.n_args; i++ ) {
-            this->visit_expr(*x.m_args[i]);
-            llvm::Value* item = tmp;
-            llvm::Value* pos = llvm::ConstantInt::get(context, llvm::APInt(32, i));
-            list_api->write_item(const_list, pos, item, list_type->m_type,
-                                 false, module.get(), name2memidx);
-        }
-        ptr_loads = ptr_loads_copy;
-        tmp = const_list;
-    }
-
-    void set_dict_api(ASR::Dict_t* dict_type) {
-        if( ASR::is_a<ASR::Character_t>(*dict_type->m_key_type) ) {
-            llvm_utils->dict_api = dict_api_sc.get();
-        } else {
-            llvm_utils->dict_api = dict_api_lp.get();
-        }
-    }
-
-    void visit_DictConstant(const ASR::DictConstant_t& x) {
-        llvm::Type* const_dict_type = get_dict_type(x.m_type);
-        llvm::Value* const_dict = builder->CreateAlloca(const_dict_type, nullptr, "const_dict");
-        ASR::Dict_t* x_dict = ASR::down_cast<ASR::Dict_t>(x.m_type);
-        set_dict_api(x_dict);
-        std::string key_type_code = ASRUtils::get_type_code(x_dict->m_key_type);
-        std::string value_type_code = ASRUtils::get_type_code(x_dict->m_value_type);
-        llvm_utils->dict_api->dict_init(key_type_code, value_type_code, const_dict, module.get(), x.n_keys);
-        int64_t ptr_loads_key = LLVM::is_llvm_struct(x_dict->m_key_type) ? 0 : 2;
-        int64_t ptr_loads_value = LLVM::is_llvm_struct(x_dict->m_value_type) ? 0 : 2;
-        int64_t ptr_loads_copy = ptr_loads;
-        for( size_t i = 0; i < x.n_keys; i++ ) {
-            ptr_loads = ptr_loads_key;
-            visit_expr(*x.m_keys[i]);
-            llvm::Value* key = tmp;
-            ptr_loads = ptr_loads_value;
-            visit_expr(*x.m_values[i]);
-            llvm::Value* value = tmp;
-            llvm_utils->dict_api->write_item(const_dict, key, value, module.get(),
-                                 x_dict->m_key_type, x_dict->m_value_type, name2memidx);
-        }
-        ptr_loads = ptr_loads_copy;
-        tmp = const_dict;
-    }
-
-    void visit_TupleConstant(const ASR::TupleConstant_t& x) {
-        ASR::Tuple_t* tuple_type = ASR::down_cast<ASR::Tuple_t>(x.m_type);
-        std::string type_code = ASRUtils::get_type_code(tuple_type->m_type,
-                                                        tuple_type->n_type);
-        std::vector<llvm::Type*> llvm_el_types;
-        ASR::storage_typeType m_storage = ASR::storage_typeType::Default;
-        bool is_array_type = false, is_malloc_array_type = false;
-        bool is_list = false;
-        ASR::dimension_t* m_dims = nullptr;
-        int n_dims = 0, a_kind = -1;
-        for( size_t i = 0; i < tuple_type->n_type; i++ ) {
-            llvm_el_types.push_back(get_type_from_ttype_t(tuple_type->m_type[i],
-                                    m_storage, is_array_type, is_malloc_array_type,
-                                    is_list, m_dims, n_dims, a_kind));
-        }
-        llvm::Type* const_tuple_type = tuple_api->get_tuple_type(type_code, llvm_el_types);
-        llvm::Value* const_tuple = builder->CreateAlloca(const_tuple_type, nullptr, "const_tuple");
-        std::vector<llvm::Value*> init_values;
-        int64_t ptr_loads_copy = ptr_loads;
-        ptr_loads = 2;
-        for( size_t i = 0; i < x.n_elements; i++ ) {
-            this->visit_expr(*x.m_elements[i]);
-            init_values.push_back(tmp);
-        }
-        ptr_loads = ptr_loads_copy;
-        tuple_api->tuple_init(const_tuple, init_values);
-        tmp = const_tuple;
-    }
-
-    void visit_IntegerBitLen(const ASR::IntegerBitLen_t& x) {
-        if (x.m_value) {
-            this->visit_expr_wrapper(x.m_value, true);
-            return;
-        }
-        this->visit_expr(*x.m_a);
-        llvm::Value *int_val = tmp;
-        int int_kind = ASRUtils::extract_kind_from_ttype_t(x.m_type);
-        std::string runtime_func_name = "_lpython_bit_length" + std::to_string(int_kind);
-        llvm::Function *fn = module->getFunction(runtime_func_name);
-        if (!fn) {
-            llvm::FunctionType *function_type = llvm::FunctionType::get(
-                    llvm::Type::getInt32Ty(context), {
-                        getIntType(int_kind)
-                    }, false);
-            fn = llvm::Function::Create(function_type,
-                    llvm::Function::ExternalLinkage, runtime_func_name, *module);
-        }
-        tmp = builder->CreateCall(fn, {int_val});
-    }
-
-    void visit_Ichar(const ASR::Ichar_t &x) {
-        if (x.m_value) {
-            this->visit_expr_wrapper(x.m_value, true);
-            return;
-        }
-        this->visit_expr(*x.m_arg);
-        llvm::Value *c = tmp;
-        std::string runtime_func_name = "_lfortran_ichar";
-        llvm::Function *fn = module->getFunction(runtime_func_name);
-        if (!fn) {
-            llvm::FunctionType *function_type = llvm::FunctionType::get(
-                llvm::Type::getInt32Ty(context), {
-                    llvm::Type::getInt8PtrTy(context)
-                }, false);
-            fn = llvm::Function::Create(function_type,
-                    llvm::Function::ExternalLinkage, runtime_func_name, *module);
-        }
-        tmp = builder->CreateCall(fn, {c});
-    }
-
-    void visit_Iachar(const ASR::Iachar_t &x) {
-        if (x.m_value) {
-            this->visit_expr_wrapper(x.m_value, true);
-            return;
-        }
-        this->visit_expr(*x.m_arg);
-        llvm::Value *c = tmp;
-        std::string runtime_func_name = "_lfortran_iachar";
-        llvm::Function *fn = module->getFunction(runtime_func_name);
-        if (!fn) {
-            llvm::FunctionType *function_type = llvm::FunctionType::get(
-                llvm::Type::getInt32Ty(context), {
-                    llvm::Type::getInt8PtrTy(context)
-                }, false);
-            fn = llvm::Function::Create(function_type,
-                    llvm::Function::ExternalLinkage, runtime_func_name, *module);
-        }
-        tmp = builder->CreateCall(fn, {c});
-    }
-
-    void visit_ListAppend(const ASR::ListAppend_t& x) {
-        ASR::List_t* asr_list = ASR::down_cast<ASR::List_t>(ASRUtils::expr_type(x.m_a));
-        int64_t ptr_loads_copy = ptr_loads;
-        ptr_loads = 0;
-        this->visit_expr(*x.m_a);
-        llvm::Value* plist = tmp;
-
-        ptr_loads = !LLVM::is_llvm_struct(asr_list->m_type);
-        this->visit_expr_wrapper(x.m_ele, true);
-        llvm::Value *item = tmp;
-        ptr_loads = ptr_loads_copy;
-
-        list_api->append(plist, item, asr_list->m_type, module.get(), name2memidx);
-    }
-
-    void visit_UnionInstanceMember(const ASR::UnionInstanceMember_t& x) {
-        int64_t ptr_loads_copy = ptr_loads;
-        ptr_loads = 0;
-        this->visit_expr(*x.m_v);
-        ptr_loads = ptr_loads_copy;
-        llvm::Value* union_llvm = tmp;
-        ASR::Variable_t* member_var = ASR::down_cast<ASR::Variable_t>(x.m_m);
-        ASR::ttype_t* member_type_asr = ASRUtils::get_contained_type(member_var->m_type);
-        if( ASR::is_a<ASR::Struct_t>(*member_type_asr) ) {
-            ASR::Struct_t* d = ASR::down_cast<ASR::Struct_t>(member_type_asr);
-            der_type_name = ASRUtils::symbol_name(d->m_derived_type);
-        }
-        member_type_asr = member_var->m_type;
-        llvm::Type* member_type_llvm = getMemberType(member_type_asr, member_var)->getPointerTo();
-        tmp = builder->CreateBitCast(union_llvm, member_type_llvm);
-        if( is_assignment_target ) {
-            return ;
-        }
-        if( ptr_loads > 0 ) {
-            tmp = LLVM::CreateLoad(*builder, tmp);
-        }
-    }
-
-    void visit_ListItem(const ASR::ListItem_t& x) {
-        ASR::ttype_t* el_type = ASRUtils::get_contained_type(
-                                        ASRUtils::expr_type(x.m_a));
-        int64_t ptr_loads_copy = ptr_loads;
-        ptr_loads = 0;
-        this->visit_expr(*x.m_a);
-        llvm::Value* plist = tmp;
-
-        ptr_loads = 1;
-        this->visit_expr_wrapper(x.m_pos, true);
-        ptr_loads = ptr_loads_copy;
-        llvm::Value *pos = tmp;
-
-        tmp = list_api->read_item(plist, pos, compiler_options.enable_bounds_checking, *module,
-                (LLVM::is_llvm_struct(el_type) || ptr_loads == 0));
-    }
-
-    void visit_DictItem(const ASR::DictItem_t& x) {
-        ASR::Dict_t* dict_type = ASR::down_cast<ASR::Dict_t>(
-                                    ASRUtils::expr_type(x.m_a));
-        int64_t ptr_loads_copy = ptr_loads;
-        ptr_loads = 0;
-        this->visit_expr(*x.m_a);
-        llvm::Value* pdict = tmp;
-
-        ptr_loads = !LLVM::is_llvm_struct(dict_type->m_key_type);
-        this->visit_expr_wrapper(x.m_key, true);
-        ptr_loads = ptr_loads_copy;
-        llvm::Value *key = tmp;
-
-        set_dict_api(dict_type);
-        tmp = llvm_utils->dict_api->read_item(pdict, key, *module, dict_type,
-                                  LLVM::is_llvm_struct(dict_type->m_value_type));
-    }
-
-    void visit_DictPop(const ASR::DictPop_t& x) {
-        ASR::Dict_t* dict_type = ASR::down_cast<ASR::Dict_t>(
-                                    ASRUtils::expr_type(x.m_a));
-        int64_t ptr_loads_copy = ptr_loads;
-        ptr_loads = 0;
-        this->visit_expr(*x.m_a);
-        llvm::Value* pdict = tmp;
-
-        ptr_loads = !LLVM::is_llvm_struct(dict_type->m_key_type);
-        this->visit_expr_wrapper(x.m_key, true);
-        ptr_loads = ptr_loads_copy;
-        llvm::Value *key = tmp;
-
-        set_dict_api(dict_type);
-        tmp = llvm_utils->dict_api->pop_item(pdict, key, *module, dict_type,
-                                 LLVM::is_llvm_struct(dict_type->m_value_type));
-    }
-
-    void visit_ListLen(const ASR::ListLen_t& x) {
-        if (x.m_value) {
-            this->visit_expr(*x.m_value);
-        } else {
-            int64_t ptr_loads_copy = ptr_loads;
-            ptr_loads = 0;
-            this->visit_expr(*x.m_arg);
-            ptr_loads = ptr_loads_copy;
-            llvm::Value* plist = tmp;
-            tmp = list_api->len(plist);
-        }
-    }
-
-    void visit_ListCompare(const ASR::ListCompare_t x) {
-        int64_t ptr_loads_copy = ptr_loads;
-        ptr_loads = 0;
-        this->visit_expr(*x.m_left);
-        llvm::Value* left = tmp;
-        this->visit_expr(*x.m_right);
-        llvm::Value* right = tmp;
-        ptr_loads = ptr_loads_copy;
-        tmp = llvm_utils->is_equal_by_value(left, right, *module,
-                ASRUtils::expr_type(x.m_left));
-        if (x.m_op == ASR::cmpopType::NotEq) {
-            tmp = builder->CreateNot(tmp);
-        }
-    }
-
-    void visit_DictLen(const ASR::DictLen_t& x) {
-        if (x.m_value) {
-            this->visit_expr(*x.m_value);
-            return ;
-        }
-
-        int64_t ptr_loads_copy = ptr_loads;
-        ptr_loads = 0;
-        this->visit_expr(*x.m_arg);
-        ptr_loads = ptr_loads_copy;
-        llvm::Value* pdict = tmp;
-        ASR::Dict_t* x_dict = ASR::down_cast<ASR::Dict_t>(ASRUtils::expr_type(x.m_arg));
-        set_dict_api(x_dict);
-        tmp = llvm_utils->dict_api->len(pdict);
-    }
-
-    void visit_ListInsert(const ASR::ListInsert_t& x) {
-        ASR::List_t* asr_list = ASR::down_cast<ASR::List_t>(
-                                    ASRUtils::expr_type(x.m_a));
-        int64_t ptr_loads_copy = ptr_loads;
-        ptr_loads = 0;
-        this->visit_expr(*x.m_a);
-        llvm::Value* plist = tmp;
-
-        ptr_loads = 1;
-        this->visit_expr_wrapper(x.m_pos, true);
-        llvm::Value *pos = tmp;
-
-        ptr_loads = !LLVM::is_llvm_struct(asr_list->m_type);
-        this->visit_expr_wrapper(x.m_ele, true);
-        llvm::Value *item = tmp;
-        ptr_loads = ptr_loads_copy;
-
-        list_api->insert_item(plist, pos, item, asr_list->m_type, module.get(), name2memidx);
-    }
-
-    void visit_DictInsert(const ASR::DictInsert_t& x) {
-        ASR::Dict_t* dict_type = ASR::down_cast<ASR::Dict_t>(
-                                    ASRUtils::expr_type(x.m_a));
-        int64_t ptr_loads_copy = ptr_loads;
-        ptr_loads = 0;
-        this->visit_expr(*x.m_a);
-        llvm::Value* pdict = tmp;
-
-        ptr_loads = !LLVM::is_llvm_struct(dict_type->m_key_type);
-        this->visit_expr_wrapper(x.m_key, true);
-        llvm::Value *key = tmp;
-        ptr_loads = !LLVM::is_llvm_struct(dict_type->m_value_type);
-        this->visit_expr_wrapper(x.m_value, true);
-        llvm::Value *value = tmp;
-        ptr_loads = ptr_loads_copy;
-
-        set_dict_api(dict_type);
-        llvm_utils->dict_api->write_item(pdict, key, value, module.get(),
-                             dict_type->m_key_type,
-                             dict_type->m_value_type, name2memidx);
-    }
-
-    void visit_ListRemove(const ASR::ListRemove_t& x) {
-        ASR::ttype_t* asr_el_type = ASRUtils::get_contained_type(ASRUtils::expr_type(x.m_a));
-        int64_t ptr_loads_copy = ptr_loads;
-        ptr_loads = 0;
-        this->visit_expr(*x.m_a);
-        llvm::Value* plist = tmp;
-
-        ptr_loads = !LLVM::is_llvm_struct(asr_el_type);
-        this->visit_expr_wrapper(x.m_ele, true);
-        ptr_loads = ptr_loads_copy;
-        llvm::Value *item = tmp;
-        list_api->remove(plist, item, asr_el_type, *module);
-    }
-
-    void visit_ListClear(const ASR::ListClear_t& x) {
-        int64_t ptr_loads_copy = ptr_loads;
-        ptr_loads = 0;
-        this->visit_expr(*x.m_a);
-        llvm::Value* plist = tmp;
-        ptr_loads = ptr_loads_copy;
-
-        list_api->list_clear(plist);
-    }
-
-    void visit_TupleCompare(const ASR::TupleCompare_t& x) {
-        int64_t ptr_loads_copy = ptr_loads;
-        ptr_loads = 0;
-        this->visit_expr(*x.m_left);
-        llvm::Value* left = tmp;
-        this->visit_expr(*x.m_right);
-        llvm::Value* right = tmp;
-        ptr_loads = ptr_loads_copy;
-        tmp = llvm_utils->is_equal_by_value(left, right, *module,
-                ASRUtils::expr_type(x.m_left));
-        if (x.m_op == ASR::cmpopType::NotEq) {
-            tmp = builder->CreateNot(tmp);
-        }
-    }
-
-    void visit_TupleLen(const ASR::TupleLen_t& x) {
-        LCOMPILERS_ASSERT(x.m_value);
-        this->visit_expr(*x.m_value);
-    }
-
-    void visit_TupleItem(const ASR::TupleItem_t& x) {
-        int64_t ptr_loads_copy = ptr_loads;
-        ptr_loads = 0;
-        this->visit_expr(*x.m_a);
-        ptr_loads = ptr_loads_copy;
-        llvm::Value* ptuple = tmp;
-
-        this->visit_expr_wrapper(x.m_pos, true);
-        llvm::Value *pos = tmp;
-
-        tmp = tuple_api->read_item(ptuple, pos, LLVM::is_llvm_struct(x.m_type));
-    }
-
-    void visit_ArrayItem(const ASR::ArrayItem_t& x) {
-        if (x.m_value) {
-            this->visit_expr_wrapper(x.m_value, true);
-            return;
-        }
-        ASR::ttype_t* x_mv_type = ASRUtils::expr_type(x.m_v);
-        bool is_argument = false;
-        llvm::Value* array = nullptr;
-        bool is_data_only = false;
-        if( ASR::is_a<ASR::Var_t>(*x.m_v) ) {
-            ASR::Variable_t *v = ASRUtils::EXPR2VAR(x.m_v);
-            if( ASR::is_a<ASR::Struct_t>(*ASRUtils::get_contained_type(v->m_type)) ) {
-                ASR::Struct_t* der_type = ASR::down_cast<ASR::Struct_t>(
-                    ASRUtils::get_contained_type(v->m_type));
-                der_type_name = ASRUtils::symbol_name(ASRUtils::symbol_get_past_external(der_type->m_derived_type));
-            }
-            uint32_t v_h = get_hash((ASR::asr_t*)v);
-            if (llvm_symtab.find(v_h) == llvm_symtab.end()) {
-                LCOMPILERS_ASSERT(std::find(nested_globals.begin(),
-                        nested_globals.end(), v_h) != nested_globals.end());
-                auto finder = std::find(nested_globals.begin(),
-                        nested_globals.end(), v_h);
-                llvm::Constant *ptr = module->getOrInsertGlobal(nested_desc_name,
-                    nested_global_struct);
-                int idx = std::distance(nested_globals.begin(), finder);
-                std::vector<llvm::Value*> idx_vec = {
-                llvm::ConstantInt::get(context, llvm::APInt(32, 0)),
-                llvm::ConstantInt::get(context, llvm::APInt(32, idx))};
-                array = CreateLoad(CreateGEP(ptr, idx_vec));
-                is_data_only = true;
-            } else {
-                array = llvm_symtab[v_h];
-            }
-            is_argument = (v->m_intent == ASRUtils::intent_in)
-                  || (v->m_intent == ASRUtils::intent_out)
-                  || (v->m_intent == ASRUtils::intent_inout)
-                  || (v->m_intent == ASRUtils::intent_unspecified);
-        } else {
-            int64_t ptr_loads_copy = ptr_loads;
-            ptr_loads = 0;
-            this->visit_expr(*x.m_v);
-            if( ASR::is_a<ASR::Struct_t>(*x_mv_type) ) {
-                ASR::Struct_t* der_type = ASR::down_cast<ASR::Struct_t>(x_mv_type);
-                der_type_name = ASRUtils::symbol_name(ASRUtils::symbol_get_past_external(der_type->m_derived_type));
-            }
-            ptr_loads = ptr_loads_copy;
-            array = tmp;
-        }
-        ASR::dimension_t* m_dims;
-        int n_dims = ASRUtils::extract_dimensions_from_ttype(x_mv_type, m_dims);
-        if (ASR::is_a<ASR::Character_t>(*x.m_type) && n_dims == 0) {
-            // String indexing:
-            if (x.n_args != 1) {
-                throw CodeGenError("Only string(a) supported for now.", x.base.base.loc);
-            }
-            LCOMPILERS_ASSERT(ASR::is_a<ASR::Var_t>(*x.m_args[0].m_right));
-            this->visit_expr_wrapper(x.m_args[0].m_right, true);
-            llvm::Value *p = nullptr;
-            llvm::Value *idx = tmp;
-            llvm::Value *str = CreateLoad(array);
-            if( is_assignment_target ) {
-                idx = builder->CreateSub(idx, llvm::ConstantInt::get(context, llvm::APInt(32, 1)));
-                std::vector<llvm::Value*> idx_vec = {idx};
-                p = CreateGEP(str, idx_vec);
-            } else {
-                p = lfortran_str_copy(str, idx, idx);
-            }
-            // TODO: Currently the string starts at the right location, but goes to the end of the original string.
-            // We have to allocate a new string, copy it and add null termination.
-
-            tmp = builder->CreateAlloca(character_type, nullptr);
-            builder->CreateStore(p, tmp);
-
-            //tmp = p;
-        } else {
-            // Array indexing:
-            std::vector<llvm::Value*> indices;
-            for( size_t r = 0; r < x.n_args; r++ ) {
-                ASR::array_index_t curr_idx = x.m_args[r];
-                int64_t ptr_loads_copy = ptr_loads;
-                ptr_loads = 2;
-                this->visit_expr_wrapper(curr_idx.m_right, true);
-                ptr_loads = ptr_loads_copy;
-                indices.push_back(tmp);
-            }
-            bool is_bindc_array = ASRUtils::expr_abi(x.m_v) == ASR::abiType::BindC;
-            if (ASR::is_a<ASR::Pointer_t>(*x_mv_type) ||
-               ((is_bindc_array && !ASRUtils::is_fixed_size_array(m_dims, n_dims)) &&
-                ASR::is_a<ASR::StructInstanceMember_t>(*x.m_v))) {
-                array = CreateLoad(array);
-            }
-            is_data_only = is_data_only || (is_argument && !ASRUtils::is_dimension_empty(m_dims, n_dims));
-            is_data_only = is_data_only || is_bindc_array;
-            Vec<llvm::Value*> llvm_diminfo;
-            llvm_diminfo.reserve(al, 2 * x.n_args + 1);
-            if( is_data_only ) {
-                for( size_t idim = 0; idim < x.n_args; idim++ ) {
-                    this->visit_expr_wrapper(m_dims[idim].m_start, true);
-                    llvm::Value* dim_start = tmp;
-                    this->visit_expr_wrapper(m_dims[idim].m_length, true);
-                    llvm::Value* dim_size = tmp;
-                    llvm_diminfo.push_back(al, dim_start);
-                    llvm_diminfo.push_back(al, dim_size);
-                }
-            }
-            LCOMPILERS_ASSERT(ASRUtils::extract_n_dims_from_ttype(x_mv_type) > 0);
-            tmp = arr_descr->get_single_element(array, indices, x.n_args,
-                                                is_data_only,
-                                                ASRUtils::is_fixed_size_array(m_dims, n_dims) && is_bindc_array,
-                                                llvm_diminfo.p);
-        }
-    }
-
-    void visit_ArraySection(const ASR::ArraySection_t& x) {
-        if (x.m_value) {
-            this->visit_expr_wrapper(x.m_value, true);
-            return;
-        }
-        int64_t ptr_loads_copy = ptr_loads;
-        ptr_loads = 0;
-        this->visit_expr(*x.m_v);
-        ptr_loads = ptr_loads_copy;
-        llvm::Value* array = tmp;
-        ASR::dimension_t* m_dims;
-        int n_dims = ASRUtils::extract_dimensions_from_ttype(
-                        ASRUtils::expr_type(x.m_v), m_dims);
-        LCOMPILERS_ASSERT(ASR::is_a<ASR::Character_t>(*ASRUtils::expr_type(x.m_v)) &&
-                        n_dims == 0);
-        // String indexing:
-        if (x.n_args == 1) {
-            throw CodeGenError("Only string(a:b) supported for now.", x.base.base.loc);
-        }
-
-        LCOMPILERS_ASSERT(x.m_args[0].m_left)
-        LCOMPILERS_ASSERT(x.m_args[0].m_right)
-        //throw CodeGenError("Only string(a:b) for a,b variables for now.", x.base.base.loc);
-        // Use the "right" index for now
-        this->visit_expr_wrapper(x.m_args[0].m_right, true);
-        llvm::Value *idx2 = tmp;
-        this->visit_expr_wrapper(x.m_args[0].m_left, true);
-        llvm::Value *idx1 = tmp;
-        // idx = builder->CreateSub(idx, llvm::ConstantInt::get(context, llvm::APInt(32, 1)));
-        //std::vector<llvm::Value*> idx_vec = {llvm::ConstantInt::get(context, llvm::APInt(32, 0)), idx};
-        // std::vector<llvm::Value*> idx_vec = {idx};
-        llvm::Value *str = CreateLoad(array);
-        // llvm::Value *p = CreateGEP(str, idx_vec);
-        // TODO: Currently the string starts at the right location, but goes to the end of the original string.
-        // We have to allocate a new string, copy it and add null termination.
-        llvm::Value *p = lfortran_str_copy(str, idx1, idx2);
-
-        tmp = builder->CreateAlloca(character_type, nullptr);
-        builder->CreateStore(p, tmp);
-    }
-
-    void visit_ArrayReshape(const ASR::ArrayReshape_t& x) {
-        this->visit_expr(*x.m_array);
-        llvm::Value* array = tmp;
-        this->visit_expr(*x.m_shape);
-        llvm::Value* shape = tmp;
-        ASR::ttype_t* x_m_array_type = ASRUtils::expr_type(x.m_array);
-        ASR::ttype_t* asr_data_type = ASRUtils::duplicate_type_without_dims(al,
-            x_m_array_type, x_m_array_type->base.loc);
-        ASR::ttype_t* asr_shape_type = ASRUtils::get_contained_type(ASRUtils::expr_type(x.m_shape));
-        llvm::Type* llvm_data_type = get_type_from_ttype_t_util(asr_data_type);
-        tmp = arr_descr->reshape(array, llvm_data_type, shape, asr_shape_type, module.get());
-    }
-
-    void lookup_EnumValue(const ASR::EnumValue_t& x) {
-        ASR::Enum_t* enum_t = ASR::down_cast<ASR::Enum_t>(x.m_enum_type);
-        ASR::EnumType_t* enum_type = ASR::down_cast<ASR::EnumType_t>(enum_t->m_enum_type);
-        uint32_t h = get_hash((ASR::asr_t*) enum_type);
-        llvm::Value* array = llvm_symtab[h];
-        tmp = llvm_utils->create_gep(array, tmp);
-        tmp = LLVM::CreateLoad(*builder, llvm_utils->create_gep(tmp, 1));
-    }
-
-    void visit_EnumValue(const ASR::EnumValue_t& x) {
-        if( x.m_value ) {
-            if( ASR::is_a<ASR::Integer_t>(*x.m_type) ) {
-                this->visit_expr(*x.m_value);
-            } else if( ASR::is_a<ASR::EnumStaticMember_t>(*x.m_v) ) {
-                ASR::EnumStaticMember_t* x_enum_member = ASR::down_cast<ASR::EnumStaticMember_t>(x.m_v);
-                ASR::Variable_t* x_mv = ASR::down_cast<ASR::Variable_t>(x_enum_member->m_m);
-                ASR::Enum_t* enum_t = ASR::down_cast<ASR::Enum_t>(x.m_enum_type);
-                ASR::EnumType_t* enum_type = ASR::down_cast<ASR::EnumType_t>(enum_t->m_enum_type);
-                for( size_t i = 0; i < enum_type->n_members; i++ ) {
-                    if( std::string(enum_type->m_members[i]) == std::string(x_mv->m_name) ) {
-                        tmp = llvm::ConstantInt::get(llvm::Type::getInt32Ty(context), llvm::APInt(32, i));
-                        break ;
-                    }
-                }
-                if( lookup_enum_value_for_nonints ) {
-                    lookup_EnumValue(x);
-                }
-            }
-            return ;
-        }
-
-        visit_expr(*x.m_v);
-        if( ASR::is_a<ASR::StructInstanceMember_t>(*x.m_v) ) {
-            tmp = LLVM::CreateLoad(*builder, tmp);
-        }
-        if( !ASR::is_a<ASR::Integer_t>(*x.m_type) && lookup_enum_value_for_nonints ) {
-            lookup_EnumValue(x);
-        }
-    }
-
-    void visit_EnumName(const ASR::EnumName_t& x) {
-        if( x.m_value ) {
-            this->visit_expr(*x.m_value);
-            return ;
-        }
-
-        visit_expr(*x.m_v);
-        if( ASR::is_a<ASR::StructInstanceMember_t>(*x.m_v) ) {
-            tmp = LLVM::CreateLoad(*builder, tmp);
-        }
-        ASR::Enum_t* enum_t = ASR::down_cast<ASR::Enum_t>(x.m_enum_type);
-        ASR::EnumType_t* enum_type = ASR::down_cast<ASR::EnumType_t>(enum_t->m_enum_type);
-        uint32_t h = get_hash((ASR::asr_t*) enum_type);
-        llvm::Value* array = llvm_symtab[h];
-        if( ASR::is_a<ASR::Integer_t>(*enum_type->m_type) ) {
-            int64_t min_value = INT64_MAX;
-
-            for( auto itr: enum_type->m_symtab->get_scope() ) {
-                ASR::Variable_t* itr_var = ASR::down_cast<ASR::Variable_t>(itr.second);
-                ASR::expr_t* value = ASRUtils::expr_value(itr_var->m_symbolic_value);
-                int64_t value_int64 = -1;
-                ASRUtils::extract_value(value, value_int64);
-                min_value = std::min(value_int64, min_value);
-            }
-            tmp = builder->CreateSub(tmp, llvm::ConstantInt::get(tmp->getType(),
-                        llvm::APInt(32, min_value)));
-            tmp = llvm_utils->create_gep(array, tmp);
-            tmp = llvm_utils->create_gep(tmp, 0);
-        }
-    }
-
-    void visit_EnumTypeConstructor(const ASR::EnumTypeConstructor_t& x) {
-        LCOMPILERS_ASSERT(x.n_args == 1);
-        ASR::expr_t* m_arg = x.m_args[0];
-        this->visit_expr(*m_arg);
-    }
-
-    void visit_UnionTypeConstructor(const ASR::UnionTypeConstructor_t& x) {
-        LCOMPILERS_ASSERT(x.n_args == 0);
-    }
-
-    void visit_SizeOfType(const ASR::SizeOfType_t& x) {
-        llvm::Type* llvm_type = get_type_from_ttype_t_util(x.m_arg);
-        llvm::Type* llvm_type_size = get_type_from_ttype_t_util(x.m_type);
-        llvm::DataLayout data_layout(module.get());
-        int64_t type_size = data_layout.getTypeAllocSize(llvm_type);
-        tmp = llvm::ConstantInt::get(llvm_type_size, llvm::APInt(64, type_size));
-    }
-
-    void visit_StructInstanceMember(const ASR::StructInstanceMember_t& x) {
-        if (x.m_value) {
-            this->visit_expr_wrapper(x.m_value, true);
-            return;
-        }
-        der_type_name = "";
-        ASR::ttype_t* x_m_v_type = ASRUtils::expr_type(x.m_v);
-        int64_t ptr_loads_copy = ptr_loads;
-        if( ASR::is_a<ASR::UnionInstanceMember_t>(*x.m_v) ) {
-            ptr_loads = 0;
-        } else {
-            ptr_loads = 2 - ASR::is_a<ASR::Pointer_t>(*x_m_v_type);
-        }
-        this->visit_expr(*x.m_v);
-        ptr_loads = ptr_loads_copy;
-        ASR::Variable_t* member = down_cast<ASR::Variable_t>(symbol_get_past_external(x.m_m));
-        std::string member_name = std::string(member->m_name);
-        LCOMPILERS_ASSERT(der_type_name.size() != 0);
-        while( name2memidx[der_type_name].find(member_name) == name2memidx[der_type_name].end() ) {
-            if( dertype2parent.find(der_type_name) == dertype2parent.end() ) {
-                throw CodeGenError(der_type_name + " doesn't have any member named " + member_name,
-                                    x.base.base.loc);
-            }
-            tmp = llvm_utils->create_gep(tmp, 0);
-            der_type_name = dertype2parent[der_type_name];
-        }
-        int member_idx = name2memidx[der_type_name][member_name];
-        std::vector<llvm::Value*> idx_vec = {
-            llvm::ConstantInt::get(context, llvm::APInt(32, 0)),
-            llvm::ConstantInt::get(context, llvm::APInt(32, member_idx))};
-        // if( (ASR::is_a<ASR::StructInstanceMember_t>(*x.m_v) ||
-        //      ASR::is_a<ASR::UnionInstanceMember_t>(*x.m_v)) &&
-        //     is_nested_pointer(tmp) ) {
-        //     tmp = CreateLoad(tmp);
-        // }
-        llvm::Value* tmp1 = CreateGEP(tmp, idx_vec);
-        ASR::ttype_t* member_type = member->m_type;
-        if( ASR::is_a<ASR::Pointer_t>(*member_type) ) {
-            member_type = ASR::down_cast<ASR::Pointer_t>(member_type)->m_type;
-        }
-        if( member_type->type == ASR::ttypeType::Struct ) {
-            ASR::Struct_t* der = (ASR::Struct_t*)(&(member_type->base));
-            ASR::StructType_t* der_type = (ASR::StructType_t*)(&(der->m_derived_type->base));
-            der_type_name = std::string(der_type->m_name);
-            uint32_t h = get_hash((ASR::asr_t*)member);
-            if( llvm_symtab.find(h) != llvm_symtab.end() ) {
-                tmp = llvm_symtab[h];
-            }
-        }
-        tmp = tmp1;
-    }
-
-    void visit_Variable(const ASR::Variable_t &x) {
-        if (x.m_value) {
-            this->visit_expr_wrapper(x.m_value, true);
-            return;
-        }
-        uint32_t h = get_hash((ASR::asr_t*)&x);
-        // This happens at global scope, so the intent can only be either local
-        // (global variable declared/initialized in this translation unit), or
-        // external (global variable not declared/initialized in this
-        // translation unit, just referenced).
-        LCOMPILERS_ASSERT(x.m_intent == intent_local
-            || x.m_abi == ASR::abiType::Interactive);
-        bool external = (x.m_abi != ASR::abiType::Source);
-        llvm::Constant* init_value = nullptr;
-        if (x.m_symbolic_value != nullptr){
-            this->visit_expr_wrapper(x.m_symbolic_value, true);
-            init_value = llvm::dyn_cast<llvm::Constant>(tmp);
-        }
-        if (x.m_type->type == ASR::ttypeType::Integer) {
-            int a_kind = down_cast<ASR::Integer_t>(x.m_type)->m_kind;
-            llvm::Type *type;
-            int init_value_bits = 8*a_kind;
-            type = getIntType(a_kind);
-            llvm::Constant *ptr = module->getOrInsertGlobal(x.m_name,
-                type);
-            if (!external) {
-                if (init_value) {
-                    module->getNamedGlobal(x.m_name)->setInitializer(
-                            init_value);
-                } else {
-                    module->getNamedGlobal(x.m_name)->setInitializer(
-                            llvm::ConstantInt::get(context,
-                                llvm::APInt(init_value_bits, 0)));
-                }
-            }
-            llvm_symtab[h] = ptr;
-        } else if (x.m_type->type == ASR::ttypeType::Real) {
-            int a_kind = down_cast<ASR::Real_t>(x.m_type)->m_kind;
-            llvm::Type *type;
-            int init_value_bits = 8*a_kind;
-            type = getFPType(a_kind);
-            llvm::Constant *ptr = module->getOrInsertGlobal(x.m_name, type);
-            if (!external) {
-                if (init_value) {
-                    module->getNamedGlobal(x.m_name)->setInitializer(
-                            init_value);
-                } else {
-                    if( init_value_bits == 32 ) {
-                        module->getNamedGlobal(x.m_name)->setInitializer(
-                                llvm::ConstantFP::get(context,
-                                    llvm::APFloat((float)0)));
-                    } else if( init_value_bits == 64 ) {
-                        module->getNamedGlobal(x.m_name)->setInitializer(
-                                llvm::ConstantFP::get(context,
-                                    llvm::APFloat((double)0)));
-                    }
-                }
-            }
-            llvm_symtab[h] = ptr;
-        } else if (x.m_type->type == ASR::ttypeType::Logical) {
-            llvm::Constant *ptr = module->getOrInsertGlobal(x.m_name,
-                llvm::Type::getInt1Ty(context));
-            if (!external) {
-                if (init_value) {
-                    module->getNamedGlobal(x.m_name)->setInitializer(
-                            init_value);
-                } else {
-                    module->getNamedGlobal(x.m_name)->setInitializer(
-                            llvm::ConstantInt::get(context,
-                                llvm::APInt(1, 0)));
-                }
-            }
-            llvm_symtab[h] = ptr;
-        } else if (x.m_type->type == ASR::ttypeType::Character) {
-            llvm::Constant *ptr = module->getOrInsertGlobal(x.m_name,
-                    character_type);
-            if (!external) {
-                if (init_value) {
-                    module->getNamedGlobal(x.m_name)->setInitializer(
-                            init_value);
-                } else {
-                    module->getNamedGlobal(x.m_name)->setInitializer(
-                            llvm::Constant::getNullValue(character_type)
-                        );
-                }
-            }
-            llvm_symtab[h] = ptr;
-        } else if( x.m_type->type == ASR::ttypeType::CPtr ) {
-            llvm::Type* void_ptr = llvm::Type::getVoidTy(context)->getPointerTo();
-            llvm::Constant *ptr = module->getOrInsertGlobal(x.m_name,
-                void_ptr);
-            if (!external) {
-                if (init_value) {
-                    module->getNamedGlobal(x.m_name)->setInitializer(
-                            init_value);
-                } else {
-                    module->getNamedGlobal(x.m_name)->setInitializer(
-                            llvm::ConstantPointerNull::get(
-                                static_cast<llvm::PointerType*>(void_ptr))
-                            );
-                }
-            }
-            llvm_symtab[h] = ptr;
-        } else if(x.m_type->type == ASR::ttypeType::Pointer) {
-            ASR::dimension_t* m_dims = nullptr;
-            int n_dims = -1, a_kind = -1;
-            bool is_array_type = false, is_malloc_array_type = false, is_list = false;
-            llvm::Type* x_ptr = get_type_from_ttype_t(x.m_type, x.m_storage, is_array_type,
-                                                      is_malloc_array_type, is_list,
-                                                      m_dims, n_dims, a_kind);
-            llvm::Constant *ptr = module->getOrInsertGlobal(x.m_name,
-                x_ptr);
-            if (!external) {
-                if (init_value) {
-                    module->getNamedGlobal(x.m_name)->setInitializer(
-                            init_value);
-                } else {
-                    module->getNamedGlobal(x.m_name)->setInitializer(
-                            llvm::ConstantPointerNull::get(
-                                static_cast<llvm::PointerType*>(x_ptr))
-                            );
-                }
-            }
-            llvm_symtab[h] = ptr;
-        } else if (x.m_type->type == ASR::ttypeType::TypeParameter) {
-            // Ignore type variables
-        } else {
-            throw CodeGenError("Variable type not supported", x.base.base.loc);
-        }
-    }
-
-    void visit_EnumType(const ASR::EnumType_t& x) {
-        if( x.m_enum_value_type == ASR::enumtypeType::IntegerUnique &&
-            x.m_abi == ASR::abiType::BindC ) {
-            throw CodeGenError("C-interoperation support for non-consecutive but uniquely "
-                               "valued integer enums isn't available yet.");
-        }
-        bool is_integer = ASR::is_a<ASR::Integer_t>(*x.m_type);
-        ASR::storage_typeType m_storage = ASR::storage_typeType::Default;
-        bool is_array_type = false, is_malloc_array_type = false, is_list = false;
-        ASR::dimension_t* m_dims = nullptr;
-        int n_dims = -1, a_kind = -1;
-        llvm::Type* value_type = get_type_from_ttype_t(x.m_type, m_storage, is_array_type,
-                                    is_malloc_array_type, is_list, m_dims, n_dims, a_kind);
-        if( is_integer ) {
-            int64_t min_value = INT64_MAX;
-            int64_t max_value = INT64_MIN;
-            size_t max_name_len = 0;
-            llvm::Value* itr_value = nullptr;
-            for( auto itr: x.m_symtab->get_scope() ) {
-                ASR::Variable_t* itr_var = ASR::down_cast<ASR::Variable_t>(itr.second);
-                ASR::expr_t* value = ASRUtils::expr_value(itr_var->m_symbolic_value);
-                int64_t value_int64 = -1;
-                this->visit_expr(*value);
-                itr_value = tmp;
-                ASRUtils::extract_value(value, value_int64);
-                min_value = std::min(value_int64, min_value);
-                max_value = std::max(value_int64, max_value);
-                max_name_len = std::max(max_name_len, itr.first.size());
-            }
-
-            llvm::ArrayType* name_array_type = llvm::ArrayType::get(llvm::Type::getInt8Ty(context),
-                                                                    max_name_len + 1);
-            llvm::StructType* enum_value_type = llvm::StructType::create({name_array_type, value_type});
-            llvm::Constant* empty_vt = llvm::ConstantStruct::get(enum_value_type, {llvm::ConstantArray::get(name_array_type,
-                {llvm::ConstantInt::get(llvm::Type::getInt8Ty(context), llvm::APInt(8, '\0'))}),
-                (llvm::Constant*) itr_value});
-            std::vector<llvm::Constant*> enum_value_pairs(max_value - min_value + 1, empty_vt);
-
-            for( auto itr: x.m_symtab->get_scope() ) {
-                ASR::Variable_t* itr_var = ASR::down_cast<ASR::Variable_t>(itr.second);
-                ASR::expr_t* value = ASRUtils::expr_value(itr_var->m_symbolic_value);
-                int64_t value_int64 = -1;
-                ASRUtils::extract_value(value, value_int64);
-                this->visit_expr(*value);
-                std::vector<llvm::Constant*> itr_var_name_v;
-                itr_var_name_v.reserve(itr.first.size());
-                for( size_t i = 0; i < itr.first.size(); i++ ) {
-                    itr_var_name_v.push_back(llvm::ConstantInt::get(
-                        llvm::Type::getInt8Ty(context), llvm::APInt(8, itr_var->m_name[i])));
-                }
-                itr_var_name_v.push_back(llvm::ConstantInt::get(
-                    llvm::Type::getInt8Ty(context), llvm::APInt(8, '\0')));
-                llvm::Constant* name = llvm::ConstantArray::get(name_array_type, itr_var_name_v);
-                enum_value_pairs[value_int64 - min_value] = llvm::ConstantStruct::get(
-                    enum_value_type, {name, (llvm::Constant*) tmp});
-            }
-
-            llvm::ArrayType* global_enum_array = llvm::ArrayType::get(enum_value_type,
-                                                    max_value - min_value + 1);
-            llvm::Constant *array = module->getOrInsertGlobal(x.m_name,
-                                        global_enum_array);
-            module->getNamedGlobal(x.m_name)->setInitializer(
-                llvm::ConstantArray::get(global_enum_array, enum_value_pairs));
-            uint32_t h = get_hash((ASR::asr_t*)&x);
-            llvm_symtab[h] = array;
-        } else {
-            size_t max_name_len = 0;
-
-            for( auto itr: x.m_symtab->get_scope() ) {
-                max_name_len = std::max(max_name_len, itr.first.size());
-            }
-
-            llvm::ArrayType* name_array_type = llvm::ArrayType::get(llvm::Type::getInt8Ty(context),
-                                                                    max_name_len + 1);
-            llvm::StructType* enum_value_type = llvm::StructType::create({name_array_type, value_type});
-            std::vector<llvm::Constant*> enum_value_pairs(x.n_members, nullptr);
-
-            for( auto itr: x.m_symtab->get_scope() ) {
-                ASR::Variable_t* itr_var = ASR::down_cast<ASR::Variable_t>(itr.second);
-                ASR::expr_t* value = itr_var->m_symbolic_value;
-                int64_t value_int64 = -1;
-                ASRUtils::extract_value(value, value_int64);
-                this->visit_expr(*value);
-                std::vector<llvm::Constant*> itr_var_name_v;
-                itr_var_name_v.reserve(itr.first.size());
-                for( size_t i = 0; i < itr.first.size(); i++ ) {
-                    itr_var_name_v.push_back(llvm::ConstantInt::get(
-                        llvm::Type::getInt8Ty(context), llvm::APInt(8, itr_var->m_name[i])));
-                }
-                itr_var_name_v.push_back(llvm::ConstantInt::get(
-                    llvm::Type::getInt8Ty(context), llvm::APInt(8, '\0')));
-                llvm::Constant* name = llvm::ConstantArray::get(name_array_type, itr_var_name_v);
-                size_t dest_idx = 0;
-                for( size_t j = 0; j < x.n_members; j++ ) {
-                    if( std::string(x.m_members[j]) == itr.first ) {
-                        dest_idx = j;
-                        break ;
-                    }
-                }
-                enum_value_pairs[dest_idx] = llvm::ConstantStruct::get(
-                    enum_value_type, {name, (llvm::Constant*) tmp});
-            }
-
-            llvm::ArrayType* global_enum_array = llvm::ArrayType::get(enum_value_type,
-                                                    x.n_members);
-            llvm::Constant *array = module->getOrInsertGlobal(x.m_name,
-                                        global_enum_array);
-            module->getNamedGlobal(x.m_name)->setInitializer(
-                llvm::ConstantArray::get(global_enum_array, enum_value_pairs));
-            uint32_t h = get_hash((ASR::asr_t*)&x);
-            llvm_symtab[h] = array;
-        }
-    }
-
-    void start_module_init_function_prototype(const ASR::Module_t &x) {
-        uint32_t h = get_hash((ASR::asr_t*)&x);
-        llvm::FunctionType *function_type = llvm::FunctionType::get(
-                llvm::Type::getVoidTy(context), {}, false);
-        LCOMPILERS_ASSERT(llvm_symtab_fn.find(h) == llvm_symtab_fn.end());
-        std::string module_fn_name = "__lfortran_module_init_" + std::string(x.m_name);
-        llvm::Function *F = llvm::Function::Create(function_type,
-                llvm::Function::ExternalLinkage, module_fn_name, module.get());
-        llvm::BasicBlock *BB = llvm::BasicBlock::Create(context, ".entry", F);
-        builder->SetInsertPoint(BB);
-
-        llvm_symtab_fn[h] = F;
-    }
-
-    void finish_module_init_function_prototype(const ASR::Module_t &x) {
-        uint32_t h = get_hash((ASR::asr_t*)&x);
-        builder->CreateRetVoid();
-        llvm_symtab_fn[h]->removeFromParent();
-    }
-
-    void visit_Module(const ASR::Module_t &x) {
-        mangle_prefix = "__module_" + std::string(x.m_name) + "_";
-
-        start_module_init_function_prototype(x);
-
-        for (auto &item : x.m_symtab->get_scope()) {
-            if (is_a<ASR::Variable_t>(*item.second)) {
-                ASR::Variable_t *v = down_cast<ASR::Variable_t>(
-                        item.second);
-                visit_Variable(*v);
-            }
-            if (is_a<ASR::Function_t>(*item.second)) {
-                ASR::Function_t *v = down_cast<ASR::Function_t>(
-                        item.second);
-                instantiate_function(*v);
-                declare_needed_global_types(*v);
-            }
-        }
-        finish_module_init_function_prototype(x);
-
-        visit_procedures(x);
-        mangle_prefix = "";
-    }
-
-    void visit_Program(const ASR::Program_t &x) {
-        bool is_dict_present_copy_lp = dict_api_lp->is_dict_present();
-        bool is_dict_present_copy_sc = dict_api_sc->is_dict_present();
-        dict_api_lp->set_is_dict_present(false);
-        dict_api_sc->set_is_dict_present(false);
-        llvm_goto_targets.clear();
-        // Generate code for nested subroutines and functions first:
-        for (auto &item : x.m_symtab->get_scope()) {
-            if (is_a<ASR::Function_t>(*item.second)) {
-                ASR::Function_t *v = down_cast<ASR::Function_t>(
-                        item.second);
-                instantiate_function(*v);
-                declare_needed_global_types(*v);
-            }
-        }
-        declare_needed_global_types(x);
-        visit_procedures(x);
-
-        // Generate code for the main program
-        std::vector<llvm::Type*> command_line_args = {
-            llvm::Type::getInt32Ty(context),
-            character_type->getPointerTo()
-        };
-        llvm::FunctionType *function_type = llvm::FunctionType::get(
-                llvm::Type::getInt32Ty(context), command_line_args, false);
-        llvm::Function *F = llvm::Function::Create(function_type,
-                llvm::Function::ExternalLinkage, "main", module.get());
-        llvm::BasicBlock *BB = llvm::BasicBlock::Create(context,
-                ".entry", F);
-        if (compiler_options.emit_debug_info) {
-            llvm::DISubprogram *SP;
-            debug_emit_function(x, SP);
-            F->setSubprogram(SP);
-        }
-        builder->SetInsertPoint(BB);
-
-        // Call the `_lpython_set_argv` function to assign command line argument
-        // values to `argc` and `argv`.
-        {
-            if (compiler_options.emit_debug_info) debug_emit_loc(x);
-            llvm::Function *fn = module->getFunction("_lpython_set_argv");
-            if(!fn) {
-                llvm::FunctionType *function_type = llvm::FunctionType::get(
-                    llvm::Type::getVoidTy(context), {
-                        llvm::Type::getInt32Ty(context),
-                        character_type->getPointerTo()
-                    }, false);
-                fn = llvm::Function::Create(function_type,
-                    llvm::Function::ExternalLinkage, "_lpython_set_argv", *module);
-            }
-            std::vector<llvm::Value *> args;
-            for (llvm::Argument &llvm_arg : F->args()) {
-                args.push_back(&llvm_arg);
-            }
-            builder->CreateCall(fn, args);
-        }
-
-        declare_vars(x);
-        for (size_t i=0; i<x.n_body; i++) {
-            this->visit_stmt(*x.m_body[i]);
-        }
-        llvm::Value *ret_val2 = llvm::ConstantInt::get(context,
-            llvm::APInt(32, 0));
-        builder->CreateRet(ret_val2);
-        dict_api_lp->set_is_dict_present(is_dict_present_copy_lp);
-        dict_api_sc->set_is_dict_present(is_dict_present_copy_sc);
-
-        // Finalize the debug info.
-        if (compiler_options.emit_debug_info) DBuilder->finalize();
-    }
-
-    /*
-    * This function detects if the current variable is an argument.
-    * of a function or argument. Some manipulations are to be done
-    * only on arguments and not on local variables.
-    */
-    bool is_argument(ASR::Variable_t* v, ASR::expr_t** m_args,
-                        int n_args) {
-        for( int i = 0; i < n_args; i++ ) {
-            ASR::expr_t* m_arg = m_args[i];
-            uint32_t h_m_arg = get_hash((ASR::asr_t*)m_arg);
-            uint32_t h_v = get_hash((ASR::asr_t*)v);
-            if( h_m_arg == h_v ) {
-                return true;
-            }
-        }
-        return false;
-    }
-
-    int32_t get_type_size(ASR::ttype_t* asr_type, llvm::Type* llvm_type,
-                          int32_t a_kind) {
-        if( LLVM::is_llvm_struct(asr_type) ||
-            ASR::is_a<ASR::Character_t>(*asr_type) ||
-            ASR::is_a<ASR::Complex_t>(*asr_type) ) {
-            llvm::DataLayout data_layout(module.get());
-            return data_layout.getTypeAllocSize(llvm_type);
-        }
-        return a_kind;
-    }
-
-    llvm::Type* get_dict_type(ASR::ttype_t* asr_type) {
-        ASR::Dict_t* asr_dict = ASR::down_cast<ASR::Dict_t>(asr_type);
-        bool is_local_array_type = false, is_local_malloc_array_type = false;
-        bool is_local_list = false;
-        ASR::dimension_t* local_m_dims = nullptr;
-        int local_n_dims = 0;
-        int local_a_kind = -1;
-        ASR::storage_typeType local_m_storage = ASR::storage_typeType::Default;
-        llvm::Type* key_llvm_type = get_type_from_ttype_t(asr_dict->m_key_type, local_m_storage,
-                                                            is_local_array_type, is_local_malloc_array_type,
-                                                            is_local_list, local_m_dims, local_n_dims,
-                                                            local_a_kind);
-        int32_t key_type_size = get_type_size(asr_dict->m_key_type, key_llvm_type, local_a_kind);
-        llvm::Type* value_llvm_type = get_type_from_ttype_t(asr_dict->m_value_type, local_m_storage,
-                                                            is_local_array_type, is_local_malloc_array_type,
-                                                            is_local_list, local_m_dims, local_n_dims,
-                                                            local_a_kind);
-        int32_t value_type_size = get_type_size(asr_dict->m_value_type, value_llvm_type, local_a_kind);
-        std::string key_type_code = ASRUtils::get_type_code(asr_dict->m_key_type);
-        std::string value_type_code = ASRUtils::get_type_code(asr_dict->m_value_type);
-        set_dict_api(asr_dict);
-        return llvm_utils->dict_api->get_dict_type(key_type_code, value_type_code, key_type_size,
-                                        value_type_size, key_llvm_type, value_llvm_type);
-    }
-
-    llvm::Type* get_type_from_ttype_t(ASR::ttype_t* asr_type,
-        ASR::storage_typeType m_storage,
-        bool& is_array_type, bool& is_malloc_array_type,
-        bool& is_list, ASR::dimension_t*& m_dims,
-        int& n_dims, int& a_kind, ASR::abiType m_abi=ASR::abiType::Source) {
-        llvm::Type* llvm_type = nullptr;
-        switch (asr_type->type) {
-            case (ASR::ttypeType::Integer) : {
-                ASR::Integer_t* v_type = down_cast<ASR::Integer_t>(asr_type);
-                m_dims = v_type->m_dims;
-                n_dims = v_type->n_dims;
-                a_kind = v_type->m_kind;
-                if( n_dims > 0 ) {
-                    if( m_abi == ASR::abiType::BindC ) {
-                        if( ASRUtils::is_fixed_size_array(v_type->m_dims, v_type->n_dims) ) {
-                            llvm_type = llvm::ArrayType::get(get_el_type(asr_type), ASRUtils::get_fixed_size_of_array(
-                                                                                    v_type->m_dims, v_type->n_dims));
-                        } else {
-                            llvm_type = get_el_type(asr_type)->getPointerTo();
-                        }
-                    } else {
-                        is_array_type = true;
-                        llvm::Type* el_type = get_el_type(asr_type);
-                        if( m_storage == ASR::storage_typeType::Allocatable ) {
-                            is_malloc_array_type = true;
-                            llvm_type = arr_descr->get_malloc_array_type(asr_type, el_type);
-                        } else {
-                            llvm_type = arr_descr->get_array_type(asr_type, el_type);
-                        }
-                    }
-                } else {
-                    llvm_type = getIntType(a_kind);
-                }
-                break;
-            }
-            case (ASR::ttypeType::Real) : {
-                ASR::Real_t* v_type = down_cast<ASR::Real_t>(asr_type);
-                m_dims = v_type->m_dims;
-                n_dims = v_type->n_dims;
-                a_kind = v_type->m_kind;
-                if( n_dims > 0 ) {
-                    if( m_abi == ASR::abiType::BindC ) {
-                        if( ASRUtils::is_fixed_size_array(v_type->m_dims, v_type->n_dims) ) {
-                            llvm_type = llvm::ArrayType::get(get_el_type(asr_type), ASRUtils::get_fixed_size_of_array(
-                                                                                    v_type->m_dims, v_type->n_dims));
-                        } else {
-                            llvm_type = get_el_type(asr_type)->getPointerTo();
-                        }
-                    } else {
-                        is_array_type = true;
-                        llvm::Type* el_type = get_el_type(asr_type);
-                        if( m_storage == ASR::storage_typeType::Allocatable ) {
-                            is_malloc_array_type = true;
-                            llvm_type = arr_descr->get_malloc_array_type(asr_type, el_type);
-                        } else {
-                            llvm_type = arr_descr->get_array_type(asr_type, el_type);
-                        }
-                    }
-                } else {
-                    llvm_type = getFPType(a_kind);
-                }
-                break;
-            }
-            case (ASR::ttypeType::Complex) : {
-                ASR::Complex_t* v_type = down_cast<ASR::Complex_t>(asr_type);
-                m_dims = v_type->m_dims;
-                n_dims = v_type->n_dims;
-                a_kind = v_type->m_kind;
-                if( n_dims > 0 ) {
-                    if( m_abi == ASR::abiType::BindC ) {
-                        if( ASRUtils::is_fixed_size_array(v_type->m_dims, v_type->n_dims) ) {
-                            llvm_type = llvm::ArrayType::get(get_el_type(asr_type), ASRUtils::get_fixed_size_of_array(
-                                                                                    v_type->m_dims, v_type->n_dims));
-                        } else {
-                            llvm_type = get_el_type(asr_type)->getPointerTo();
-                        }
-                    } else {
-                        is_array_type = true;
-                        llvm::Type* el_type = get_el_type(asr_type);
-                        if( m_storage == ASR::storage_typeType::Allocatable ) {
-                            is_malloc_array_type = true;
-                            llvm_type = arr_descr->get_malloc_array_type(asr_type, el_type);
-                        } else {
-                            llvm_type = arr_descr->get_array_type(asr_type, el_type);
-                        }
-                    }
-                } else {
-                    llvm_type = getComplexType(a_kind);
-                }
-                break;
-            }
-            case (ASR::ttypeType::Character) : {
-                ASR::Character_t* v_type = down_cast<ASR::Character_t>(asr_type);
-                m_dims = v_type->m_dims;
-                n_dims = v_type->n_dims;
-                a_kind = v_type->m_kind;
-                if( n_dims > 0 ) {
-                    is_array_type = true;
-                    llvm::Type* el_type = get_el_type(asr_type);
-                    if( m_storage == ASR::storage_typeType::Allocatable ) {
-                        is_malloc_array_type = true;
-                        llvm_type = arr_descr->get_malloc_array_type(asr_type, el_type);
-                    } else {
-                        llvm_type = arr_descr->get_array_type(asr_type, el_type);
-                    }
-                } else {
-                    llvm_type = character_type;
-                }
-                break;
-            }
-            case (ASR::ttypeType::Logical) : {
-                ASR::Logical_t* v_type = down_cast<ASR::Logical_t>(asr_type);
-                m_dims = v_type->m_dims;
-                n_dims = v_type->n_dims;
-                a_kind = v_type->m_kind;
-                if( n_dims > 0 ) {
-                    if( m_abi == ASR::abiType::BindC ) {
-                        llvm_type = get_el_type(asr_type)->getPointerTo();
-                    } else {
-                        is_array_type = true;
-                        llvm::Type* el_type = get_el_type(asr_type);
-                        if( m_storage == ASR::storage_typeType::Allocatable ) {
-                            is_malloc_array_type = true;
-                            llvm_type = arr_descr->get_malloc_array_type(asr_type, el_type);
-                        } else {
-                            llvm_type = arr_descr->get_array_type(asr_type, el_type);
-                        }
-                    }
-                } else {
-                    llvm_type = llvm::Type::getInt1Ty(context);
-                }
-                break;
-            }
-            case (ASR::ttypeType::Struct) : {
-                ASR::Struct_t* v_type = down_cast<ASR::Struct_t>(asr_type);
-                m_dims = v_type->m_dims;
-                n_dims = v_type->n_dims;
-                if( n_dims > 0 ) {
-                    is_array_type = true;
-                    llvm::Type* el_type = get_el_type(asr_type);
-                    if( m_storage == ASR::storage_typeType::Allocatable ) {
-                        is_malloc_array_type = true;
-                        llvm_type = arr_descr->get_malloc_array_type(asr_type, el_type);
-                    } else {
-                        llvm_type = arr_descr->get_array_type(asr_type, el_type);
-                    }
-                } else {
-                    llvm_type = getStructType(asr_type, false);
-                }
-                break;
-            }
-            case (ASR::ttypeType::Union) : {
-                ASR::Union_t* v_type = ASR::down_cast<ASR::Union_t>(asr_type);
-                m_dims = v_type->m_dims;
-                n_dims = v_type->n_dims;
-                if( n_dims > 0 ) {
-                    is_array_type = true;
-                    llvm::Type* el_type = get_el_type(asr_type);
-                    if( m_storage == ASR::storage_typeType::Allocatable ) {
-                        is_malloc_array_type = true;
-                        llvm_type = arr_descr->get_malloc_array_type(asr_type, el_type);
-                    } else {
-                        llvm_type = arr_descr->get_array_type(asr_type, el_type);
-                    }
-                } else {
-                    llvm_type = getUnionType(asr_type, false);
-                }
-                break;
-            }
-            case (ASR::ttypeType::Pointer) : {
-                ASR::ttype_t *t2 = ASR::down_cast<ASR::Pointer_t>(asr_type)->m_type;
-                llvm_type = get_type_from_ttype_t(t2, m_storage, is_array_type,
-                                        is_malloc_array_type, is_list, m_dims,
-                                        n_dims, a_kind, m_abi);
-                llvm_type = llvm_type->getPointerTo();
-                break;
-            }
-            case (ASR::ttypeType::List) : {
-                is_list = true;
-                ASR::List_t* asr_list = ASR::down_cast<ASR::List_t>(asr_type);
-                llvm::Type* el_llvm_type = get_type_from_ttype_t(asr_list->m_type, m_storage,
-                                                                 is_array_type, is_malloc_array_type,
-                                                                 is_list, m_dims, n_dims,
-                                                                 a_kind, m_abi);
-                std::string el_type_code = ASRUtils::get_type_code(asr_list->m_type);
-                int32_t type_size = -1;
-                if( LLVM::is_llvm_struct(asr_list->m_type) ||
-                    ASR::is_a<ASR::Character_t>(*asr_list->m_type) ||
-                    ASR::is_a<ASR::Complex_t>(*asr_list->m_type) ) {
-                    llvm::DataLayout data_layout(module.get());
-                    type_size = data_layout.getTypeAllocSize(el_llvm_type);
-                } else {
-                    type_size = a_kind;
-                }
-                llvm_type = list_api->get_list_type(el_llvm_type, el_type_code, type_size);
-                break;
-            }
-            case (ASR::ttypeType::Dict): {
-                llvm_type = get_dict_type(asr_type);
-                break;
-            }
-            case (ASR::ttypeType::Tuple) : {
-                ASR::Tuple_t* asr_tuple = ASR::down_cast<ASR::Tuple_t>(asr_type);
-                std::string type_code = ASRUtils::get_type_code(asr_tuple->m_type,
-                                                                asr_tuple->n_type);
-                std::vector<llvm::Type*> llvm_el_types;
-                for( size_t i = 0; i < asr_tuple->n_type; i++ ) {
-                    bool is_local_array_type = false, is_local_malloc_array_type = false;
-                    bool is_local_list = false;
-                    ASR::dimension_t* local_m_dims = nullptr;
-                    int local_n_dims = 0;
-                    int local_a_kind = -1;
-                    ASR::storage_typeType local_m_storage = ASR::storage_typeType::Default;
-                    llvm_el_types.push_back(get_type_from_ttype_t(asr_tuple->m_type[i], local_m_storage,
-                                            is_local_array_type, is_local_malloc_array_type,
-                                            is_local_list, local_m_dims, local_n_dims, local_a_kind, m_abi));
-                }
-                llvm_type = tuple_api->get_tuple_type(type_code, llvm_el_types);
-                break;
-            }
-            case (ASR::ttypeType::CPtr) : {
-                llvm_type = llvm::Type::getVoidTy(context)->getPointerTo();
-                break;
-            }
-            case (ASR::ttypeType::Enum) : {
-                llvm_type = llvm::Type::getInt32Ty(context);
-                break ;
-            }
-            case (ASR::ttypeType::Const) : {
-                llvm_type = get_type_from_ttype_t(ASRUtils::get_contained_type(asr_type),
-                                m_storage, is_array_type, is_malloc_array_type, is_list,
-                                m_dims, n_dims, a_kind, m_abi);
-                break;
-            }
-            default :
-                throw CodeGenError("Support for type " + ASRUtils::type_to_str(asr_type) +
-                                   " not yet implemented.");
-        }
-        return llvm_type;
-    }
-
-    inline llvm::Type* get_type_from_ttype_t_util(ASR::ttype_t* asr_type, ASR::abiType asr_abi=ASR::abiType::Source) {
-        ASR::storage_typeType m_storage_local = ASR::storage_typeType::Default;
-        bool is_array_type_local, is_malloc_array_type_local;
-        bool is_list_local;
-        ASR::dimension_t* m_dims_local;
-        int n_dims_local, a_kind_local;
-        return get_type_from_ttype_t(asr_type, m_storage_local, is_array_type_local,
-                                     is_malloc_array_type_local, is_list_local,
-                                     m_dims_local, n_dims_local, a_kind_local, asr_abi);
-    }
-
-    void fill_array_details_(llvm::Value* ptr, ASR::dimension_t* m_dims,
-        size_t n_dims, bool is_malloc_array_type, bool is_array_type,
-        bool is_list, ASR::ttype_t* m_type, bool is_data_only=false) {
-        if( is_malloc_array_type &&
-            m_type->type != ASR::ttypeType::Pointer &&
-            !is_list && !is_data_only ) {
-            arr_descr->fill_dimension_descriptor(ptr, n_dims);
-        }
-        if( is_array_type && !is_malloc_array_type &&
-            m_type->type != ASR::ttypeType::Pointer &&
-            !is_list ) {
-            ASR::ttype_t* asr_data_type = ASRUtils::duplicate_type_without_dims(al, m_type, m_type->base.loc);
-            llvm::Type* llvm_data_type = get_type_from_ttype_t_util(asr_data_type);
-            fill_array_details(ptr, llvm_data_type, m_dims, n_dims, is_data_only);
-        }
-        if( is_array_type && is_malloc_array_type &&
-            m_type->type != ASR::ttypeType::Pointer &&
-            !is_list && !is_data_only ) {
-            // Set allocatable arrays as unallocated
-            arr_descr->set_is_allocated_flag(ptr, 0);
-        }
-    }
-
-    void allocate_array_members_of_struct(llvm::Value* ptr, ASR::ttype_t* asr_type) {
-        LCOMPILERS_ASSERT(ASR::is_a<ASR::Struct_t>(*asr_type));
-        ASR::Struct_t* struct_t = ASR::down_cast<ASR::Struct_t>(asr_type);
-        ASR::StructType_t* struct_type_t = ASR::down_cast<ASR::StructType_t>(
-            ASRUtils::symbol_get_past_external(struct_t->m_derived_type));
-        std::string struct_type_name = struct_type_t->m_name;
-        for( auto item: struct_type_t->m_symtab->get_scope() ) {
-            if( ASR::is_a<ASR::ClassProcedure_t>(*item.second) ||
-                ASR::is_a<ASR::GenericProcedure_t>(*item.second) ||
-                ASR::is_a<ASR::UnionType_t>(*item.second) ||
-                ASR::is_a<ASR::StructType_t>(*item.second) ||
-                ASR::is_a<ASR::CustomOperator_t>(*item.second) ) {
-                continue ;
-            }
-            ASR::ttype_t* symbol_type = ASRUtils::symbol_type(item.second);
-            int idx = name2memidx[struct_type_name][item.first];
-            llvm::Value* ptr_member = llvm_utils->create_gep(ptr, idx);
-            if( ASR::is_a<ASR::Variable_t>(*item.second) ) {
-                ASR::Variable_t* v = ASR::down_cast<ASR::Variable_t>(item.second);
-                if( v->m_symbolic_value ) {
-                    visit_expr(*v->m_symbolic_value);
-                    LLVM::CreateStore(*builder, tmp, ptr_member);
-                }
-            }
-            if( ASRUtils::is_array(symbol_type) ) {
-                // Assume that struct member array is not allocatable
-                ASR::dimension_t* m_dims = nullptr;
-                size_t n_dims = ASRUtils::extract_dimensions_from_ttype(symbol_type, m_dims);
-                bool is_data_only = (ASRUtils::symbol_abi(item.second) == ASR::abiType::BindC &&
-                                     ASRUtils::is_fixed_size_array(m_dims, n_dims));
-                fill_array_details_(ptr_member, m_dims, n_dims, false, true, false, symbol_type, is_data_only);
-            } else if( ASR::is_a<ASR::Struct_t>(*symbol_type) ) {
-                allocate_array_members_of_struct(ptr_member, symbol_type);
-            }
-        }
-    }
-
-    template<typename T>
-    void declare_vars(const T &x) {
-        llvm::Value *target_var;
-        uint32_t debug_arg_count = 0;
-        std::vector<std::string> var_order = ASRUtils::determine_variable_declaration_order(x.m_symtab);
-        for (auto &item : var_order) {
-            ASR::symbol_t* var_sym = x.m_symtab->get_symbol(item);
-            if (is_a<ASR::Variable_t>(*var_sym)) {
-                ASR::Variable_t *v = down_cast<ASR::Variable_t>(var_sym);
-                uint32_t h = get_hash((ASR::asr_t*)v);
-                llvm::Type *type;
-                int n_dims = 0, a_kind = 4;
-                ASR::dimension_t* m_dims = nullptr;
-                bool is_array_type = false;
-                bool is_malloc_array_type = false;
-                bool is_list = false;
-                if (v->m_intent == intent_local ||
-                    v->m_intent == intent_return_var ||
-                    !v->m_intent) {
-                    type = get_type_from_ttype_t(v->m_type, v->m_storage, is_array_type,
-                                                 is_malloc_array_type, is_list, m_dims, n_dims,
-                                                 a_kind);
-                    /*
-                    * The following if block is used for converting any
-                    * general array descriptor to a pointer type which
-                    * can be passed as an argument in a function call in LLVM IR.
-                    */
-                    if( x.class_type == ASR::symbolType::Function) {
-                        std::uint32_t m_h;
-                        std::string m_name = std::string(x.m_name);
-                        ASR::abiType abi_type = ASR::abiType::Source;
-                        bool is_v_arg = false;
-                        if( x.class_type == ASR::symbolType::Function ) {
-                            ASR::Function_t* _func = (ASR::Function_t*)(&(x.base));
-                            m_h = get_hash((ASR::asr_t*)_func);
-                            abi_type = ASRUtils::get_FunctionType(_func)->m_abi;
-                            is_v_arg = is_argument(v, _func->m_args, _func->n_args);
-                        }
-                        if( is_array_type && !is_list ) {
-                            /* The first element in an array descriptor can be either of
-                            * llvm::ArrayType or llvm::PointerType. However, a
-                            * function only accepts llvm::PointerType for arrays. Hence,
-                            * the following if block extracts the pointer to first element
-                            * of an array from its descriptor. Note that this happens only
-                            * for arguments and not for local function variables.
-                            */
-                            if( abi_type == ASR::abiType::Source && is_v_arg ) {
-                                type = arr_descr->get_argument_type(type, m_h, v->m_name, arr_arg_type_cache);
-                                is_array_type = false;
-                            } else if( abi_type == ASR::abiType::Intrinsic &&
-                                fname2arg_type.find(m_name) != fname2arg_type.end() ) {
-                                type = fname2arg_type[m_name].second;
-                                is_array_type = false;
-                            }
-                        }
-                    }
-                    llvm::AllocaInst *ptr = builder->CreateAlloca(type, nullptr, v->m_name);
-                    if( ASR::is_a<ASR::Struct_t>(*v->m_type) &&
-                        !(is_array_type || is_malloc_array_type) ) {
-                        allocate_array_members_of_struct(ptr, v->m_type);
-                    }
-                    if (compiler_options.emit_debug_info) {
-                        // Reset the debug location
-                        builder->SetCurrentDebugLocation(nullptr);
-                        uint32_t line, column;
-                        if (compiler_options.emit_debug_line_column) {
-                            debug_get_line_column(v->base.base.loc.first, line, column);
-                        } else {
-                            line = v->base.base.loc.first;
-                            column = 0;
-                        }
-                        std::string type_name;
-                        uint32_t type_size, type_encoding;
-                        get_type_debug_info(v->m_type, type_name, type_size,
-                            type_encoding);
-                        llvm::DILocalVariable *debug_var = DBuilder->createParameterVariable(
-                            debug_current_scope, v->m_name, ++debug_arg_count, debug_Unit, line,
-                            DBuilder->createBasicType(type_name, type_size, type_encoding), true);
-                        DBuilder->insertDeclare(ptr, debug_var, DBuilder->createExpression(),
-                            llvm::DILocation::get(debug_current_scope->getContext(),
-                            line, 0, debug_current_scope), builder->GetInsertBlock());
-                    }
-
-                    if( ASR::is_a<ASR::Struct_t>(*v->m_type) ) {
-                        ASR::Struct_t* struct_t = ASR::down_cast<ASR::Struct_t>(v->m_type);
-                        ASR::StructType_t* struct_type = ASR::down_cast<ASR::StructType_t>(
-                                ASRUtils::symbol_get_past_external(struct_t->m_derived_type));
-                        int64_t alignment_value = -1;
-                        if( ASRUtils::extract_value(struct_type->m_alignment, alignment_value) ) {
-                            llvm::Align align(alignment_value);
-                            ptr->setAlignment(align);
-                        }
-                    }
-                    llvm_symtab[h] = ptr;
-                    fill_array_details_(ptr, m_dims, n_dims,
-                        is_malloc_array_type,
-                        is_array_type, is_list, v->m_type);
-                    ASR::expr_t* init_expr = v->m_symbolic_value;
-                    if( !ASR::is_a<ASR::Const_t>(*v->m_type) ) {
-                        for( size_t i = 0; i < v->n_dependencies; i++ ) {
-                            std::string variable_name = v->m_dependencies[i];
-                            ASR::symbol_t* dep_sym = x.m_symtab->resolve_symbol(variable_name);
-                            if( (dep_sym && ASR::is_a<ASR::Variable_t>(*dep_sym) &&
-                                !ASR::down_cast<ASR::Variable_t>(dep_sym)->m_symbolic_value) )  {
-                                init_expr = nullptr;
-                                break;
-                            }
-                        }
-                    }
-                    if( init_expr != nullptr &&
-                        !ASR::is_a<ASR::List_t>(*v->m_type)) {
-                        target_var = ptr;
-                        tmp = nullptr;
-                        this->visit_expr_wrapper(v->m_symbolic_value, true);
-                        llvm::Value *init_value = tmp;
-                        if (ASR::is_a<ASR::ArrayConstant_t>(*v->m_symbolic_value)) {
-                            target_var = arr_descr->get_pointer_to_data(target_var);
-                        }
-                        builder->CreateStore(init_value, target_var);
-                        auto finder = std::find(nested_globals.begin(),
-                                nested_globals.end(), h);
-                        if (finder != nested_globals.end()) {
-                            llvm::Value* ptr = module->getOrInsertGlobal(nested_desc_name,
-                                    nested_global_struct);
-                            int idx = std::distance(nested_globals.begin(),
-                                    finder);
-                            if( is_array_type || is_malloc_array_type ) {
-                                target_var = CreateLoad(target_var);
-                            }
-                            builder->CreateStore(target_var, llvm_utils->create_gep(ptr,
-                                        idx));
-                        }
-                    } else {
-                        if (is_a<ASR::Character_t>(*v->m_type) && !is_array_type && !is_list) {
-                            ASR::Character_t *t = down_cast<ASR::Character_t>(v->m_type);
-                            target_var = ptr;
-                            int strlen = t->m_len;
-                            if (strlen >= 0) {
-                                // Compile time length
-                                std::string empty(strlen, ' ');
-                                llvm::Value *init_value = builder->CreateGlobalStringPtr(s2c(al, empty));
-                                builder->CreateStore(init_value, target_var);
-                            } else if (strlen == -2) {
-                                // Allocatable string. Initialize to `nullptr` (unallocated)
-                                llvm::Value *init_value = llvm::Constant::getNullValue(type);
-                                builder->CreateStore(init_value, target_var);
-                            } else if (strlen == -3) {
-                                LCOMPILERS_ASSERT(t->m_len_expr)
-                                this->visit_expr(*t->m_len_expr);
-                                llvm::Value *arg_size = tmp;
-                                arg_size = builder->CreateAdd(arg_size, llvm::ConstantInt::get(context, llvm::APInt(32, 1)));
-                                // TODO: this temporary string is never deallocated (leaks memory)
-                                llvm::Value *init_value = LLVM::lfortran_malloc(context, *module, *builder, arg_size);
-                                string_init(context, *module, *builder, arg_size, init_value);
-                                builder->CreateStore(init_value, target_var);
-                            } else {
-                                throw CodeGenError("Unsupported len value in ASR");
-                            }
-                        } else if (is_list) {
-                            ASR::List_t* asr_list = ASR::down_cast<ASR::List_t>(v->m_type);
-                            std::string type_code = ASRUtils::get_type_code(asr_list->m_type);
-                            list_api->list_init(type_code, ptr, *module);
-                        }
-                    }
-                }
-            }
-        }
-    }
-
-    llvm::Type* get_arg_type_from_ttype_t(ASR::ttype_t* asr_type,
-        ASR::abiType m_abi, ASR::abiType arg_m_abi,
-        ASR::storage_typeType m_storage,
-        bool arg_m_value_attr,
-        int& n_dims, int& a_kind, bool& is_array_type,
-        ASR::intentType arg_intent, bool get_pointer=true) {
-        llvm::Type* type = nullptr;
-        switch (asr_type->type) {
-            case (ASR::ttypeType::Integer) : {
-                ASR::Integer_t* v_type = down_cast<ASR::Integer_t>(asr_type);
-                n_dims = v_type->n_dims;
-                a_kind = v_type->m_kind;
-                if( n_dims > 0 ) {
-                    if (m_abi == ASR::abiType::BindC ||
-                        (!ASRUtils::is_dimension_empty(v_type->m_dims, v_type->n_dims))) {
-                        // Bind(C) arrays are represened as a pointer
-                        type = getIntType(a_kind, true);
-                    } else {
-                        is_array_type = true;
-                        llvm::Type* el_type = get_el_type(asr_type);
-                        if( m_storage == ASR::storage_typeType::Allocatable ) {
-                            type = arr_descr->get_malloc_array_type(asr_type, el_type, get_pointer);
-                        } else {
-                            type = arr_descr->get_array_type(asr_type, el_type, get_pointer);
-                        }
-                    }
-                } else {
-                    if (arg_m_abi == ASR::abiType::BindC
-                        && arg_m_value_attr) {
-                        type = getIntType(a_kind, false);
-                    } else {
-                        type = getIntType(a_kind, true);
-                    }
-                }
-                break;
-            }
-            case (ASR::ttypeType::Pointer) : {
-                ASR::ttype_t *t2 = ASRUtils::type_get_past_pointer(asr_type);
-                type = get_arg_type_from_ttype_t(t2, m_abi, arg_m_abi,
-                            m_storage, arg_m_value_attr, n_dims, a_kind,
-                            is_array_type, arg_intent, get_pointer);
-                type = type->getPointerTo();
-                break;
-            }
-            case (ASR::ttypeType::Const) : {
-                ASR::ttype_t *t2 = ASRUtils::get_contained_type(asr_type);
-                type = get_arg_type_from_ttype_t(t2, m_abi, arg_m_abi,
-                            m_storage, arg_m_value_attr, n_dims, a_kind,
-                            is_array_type, arg_intent, get_pointer);
-                break;
-            }
-            case (ASR::ttypeType::Real) : {
-                ASR::Real_t* v_type = down_cast<ASR::Real_t>(asr_type);
-                n_dims = v_type->n_dims;
-                a_kind = v_type->m_kind;
-                if( n_dims > 0 ) {
-                    if (m_abi == ASR::abiType::BindC ||
-                        (!ASRUtils::is_dimension_empty(v_type->m_dims, v_type->n_dims))) {
-                        // Bind(C) arrays are represened as a pointer
-                        type = getFPType(a_kind, true);
-                    } else {
-                        is_array_type = true;
-                        llvm::Type* el_type = get_el_type(asr_type);
-                        if( m_storage == ASR::storage_typeType::Allocatable ) {
-                            type = arr_descr->get_malloc_array_type(asr_type, el_type, get_pointer);
-                        } else {
-                            type = arr_descr->get_array_type(asr_type, el_type, get_pointer);
-                        }
-                    }
-                } else {
-                    if (arg_m_abi == ASR::abiType::BindC
-                        && arg_m_value_attr) {
-                        type = getFPType(a_kind, false);
-                    } else {
-                        type = getFPType(a_kind, true);
-                    }
-                }
-                break;
-            }
-            case (ASR::ttypeType::Complex) : {
-                ASR::Complex_t* v_type = down_cast<ASR::Complex_t>(asr_type);
-                n_dims = v_type->n_dims;
-                a_kind = v_type->m_kind;
-                if (m_abi != ASR::abiType::BindC &&
-                    (!ASRUtils::is_dimension_empty(v_type->m_dims, v_type->n_dims))) {
-                    type = getComplexType(a_kind, true);
-                } else if( n_dims > 0 ) {
-                    is_array_type = true;
-                    llvm::Type* el_type = get_el_type(asr_type);
-                    if( m_storage == ASR::storage_typeType::Allocatable ) {
-                        type = arr_descr->get_malloc_array_type(asr_type, el_type, get_pointer);
-                    } else {
-                        type = arr_descr->get_array_type(asr_type, el_type, get_pointer);
-                    }
-                } else {
-                    if (arg_m_abi == ASR::abiType::BindC
-                            && arg_m_value_attr) {
-                        if (a_kind == 4) {
-                            if (compiler_options.platform == Platform::Windows) {
-                                // type_fx2 is i64
-                                llvm::Type* type_fx2 = llvm::Type::getInt64Ty(context);
-                                type = type_fx2;
-                            } else if (compiler_options.platform == Platform::macOS_ARM) {
-                                // type_fx2 is [2 x float]
-                                llvm::Type* type_fx2 = llvm::ArrayType::get(llvm::Type::getFloatTy(context), 2);
-                                type = type_fx2;
-                            } else {
-                                // type_fx2 is <2 x float>
-                                llvm::Type* type_fx2 = FIXED_VECTOR_TYPE::get(llvm::Type::getFloatTy(context), 2);
-                                type = type_fx2;
-                            }
-                        } else {
-                            LCOMPILERS_ASSERT(a_kind == 8)
-                            if (compiler_options.platform == Platform::Windows) {
-                                // 128 bit aggregate type is passed by reference
-                                type = getComplexType(a_kind, true);
-                            } else {
-                                // Pass by value
-                                type = getComplexType(a_kind, false);
-                            }
-                        }
-                    } else {
-                        type = getComplexType(a_kind, true);
-                    }
-                }
-                break;
-            }
-            case (ASR::ttypeType::Character) :
-                if (arg_m_abi == ASR::abiType::BindC) {
-                    type = character_type;
-                } else {
-                    type = character_type->getPointerTo();
-                }
-                break;
-            case (ASR::ttypeType::Logical) : {
-                ASR::Logical_t* v_type = down_cast<ASR::Logical_t>(asr_type);
-                n_dims = v_type->n_dims;
-                a_kind = v_type->m_kind;
-                if( n_dims > 0 ) {
-                    if (m_abi == ASR::abiType::BindC ||
-                        (!ASRUtils::is_dimension_empty(v_type->m_dims, v_type->n_dims))) {
-                        // Bind(C) arrays are represened as a pointer
-                        type = llvm::Type::getInt1PtrTy(context);
-                    } else {
-                        is_array_type = true;
-                        llvm::Type* el_type = get_el_type(asr_type);
-                        if( m_storage == ASR::storage_typeType::Allocatable ) {
-                            type = arr_descr->get_malloc_array_type(asr_type, el_type, get_pointer);
-                        } else {
-                            type = arr_descr->get_array_type(asr_type, el_type, get_pointer);
-                        }
-                    }
-                } else {
-                    if (arg_m_abi == ASR::abiType::BindC
-                        && arg_m_value_attr) {
-                        type = llvm::Type::getInt1Ty(context);
-                    } else {
-                        type = llvm::Type::getInt1PtrTy(context);
-                    }
-                }
-                break;
-            }
-            case (ASR::ttypeType::Struct) : {
-                ASR::Struct_t* v_type = down_cast<ASR::Struct_t>(asr_type);
-                n_dims = v_type->n_dims;
-                if( n_dims > 0 ) {
-                    is_array_type = true;
-                    llvm::Type* el_type = get_el_type(asr_type);
-                    if( m_storage == ASR::storage_typeType::Allocatable ) {
-                        type = arr_descr->get_malloc_array_type(asr_type, el_type, get_pointer);
-                    } else {
-                        type = arr_descr->get_array_type(asr_type, el_type, get_pointer);
-                    }
-                } else {
-                    type = getStructType(asr_type, true);
-                }
-                break;
-            }
-            case (ASR::ttypeType::Class) : {
-                ASR::Class_t* v_type = down_cast<ASR::Class_t>(asr_type);
-                n_dims = v_type->n_dims;
-                if( n_dims > 0 ) {
-                    is_array_type = true;
-                    llvm::Type* el_type = get_el_type(asr_type);
-                    if( m_storage == ASR::storage_typeType::Allocatable ) {
-                        type = arr_descr->get_malloc_array_type(asr_type, el_type, get_pointer);
-                    } else {
-                        type = arr_descr->get_array_type(asr_type, el_type, get_pointer);
-                    }
-                } else {
-                    type = getClassType(asr_type, true);
-                }
-                break;
-            }
-            case (ASR::ttypeType::CPtr) : {
-                type = llvm::Type::getVoidTy(context)->getPointerTo();
-                break;
-            }
-            case (ASR::ttypeType::Tuple) : {
-                type = get_type_from_ttype_t_util(asr_type)->getPointerTo();
-                break;
-            }
-            case (ASR::ttypeType::List) : {
-                bool is_array_type = false, is_malloc_array_type = false;
-                bool is_list = true;
-                ASR::dimension_t *m_dims = nullptr;
-                ASR::List_t* asr_list = ASR::down_cast<ASR::List_t>(asr_type);
-                llvm::Type* el_llvm_type = get_type_from_ttype_t(asr_list->m_type, m_storage,
-                                                                 is_array_type,
-                                                                 is_malloc_array_type,
-                                                                 is_list, m_dims, n_dims,
-                                                                 a_kind, m_abi);
-                int32_t type_size = -1;
-                if( LLVM::is_llvm_struct(asr_list->m_type) ||
-                    ASR::is_a<ASR::Character_t>(*asr_list->m_type) ||
-                    ASR::is_a<ASR::Complex_t>(*asr_list->m_type) ) {
-                    llvm::DataLayout data_layout(module.get());
-                    type_size = data_layout.getTypeAllocSize(el_llvm_type);
-                } else {
-                    type_size = a_kind;
-                }
-                std::string el_type_code = ASRUtils::get_type_code(asr_list->m_type);
-                type = list_api->get_list_type(el_llvm_type, el_type_code, type_size)->getPointerTo();
-                break;
-            }
-            case ASR::ttypeType::Enum: {
-                if (arg_m_abi == ASR::abiType::BindC
-                    && arg_m_value_attr) {
-                    type = llvm::Type::getInt32Ty(context);
-                } else {
-                    type = llvm::Type::getInt32PtrTy(context);
-                }
-                break ;
-            }
-            default :
-                LCOMPILERS_ASSERT(false);
-        }
-        return type;
-    }
-
-    template <typename T>
-    std::vector<llvm::Type*> convert_args(const T &x) {
-        std::vector<llvm::Type*> args;
-        for (size_t i=0; i<x.n_args; i++) {
-            if (is_a<ASR::Variable_t>(*symbol_get_past_external(
-                ASR::down_cast<ASR::Var_t>(x.m_args[i])->m_v))) {
-                ASR::Variable_t *arg = EXPR2VAR(x.m_args[i]);
-                LCOMPILERS_ASSERT(is_arg_dummy(arg->m_intent));
-                // We pass all arguments as pointers for now,
-                // except bind(C) value arguments that are passed by value
-                llvm::Type *type = nullptr, *type_original = nullptr;
-                int n_dims = 0, a_kind = 4;
-                bool is_array_type = false;
-                type_original = get_arg_type_from_ttype_t(arg->m_type, ASRUtils::get_FunctionType(x)->m_abi,
-                                    arg->m_abi, arg->m_storage, arg->m_value_attr,
-                                    n_dims, a_kind, is_array_type, arg->m_intent,
-                                    false);
-                if( is_array_type ) {
-                    type = type_original->getPointerTo();
-                } else {
-                    type = type_original;
-                }
-                if( arg->m_intent == ASRUtils::intent_out &&
-                    ASR::is_a<ASR::CPtr_t>(*arg->m_type) ) {
-                    type = type->getPointerTo();
-                }
-                std::uint32_t m_h;
-                std::string m_name = std::string(x.m_name);
-                if( x.class_type == ASR::symbolType::Function ) {
-                    ASR::Function_t* _func = (ASR::Function_t*)(&(x.base));
-                    m_h = get_hash((ASR::asr_t*)_func);
-                }
-                if( is_array_type && arg->m_type->type != ASR::ttypeType::Pointer ) {
-                    if( ASRUtils::get_FunctionType(x)->m_abi == ASR::abiType::Source ) {
-                        llvm::Type* orig_type = type_original;
-                        type = arr_descr->get_argument_type(orig_type, m_h, arg->m_name, arr_arg_type_cache);
-                        is_array_type = false;
-                    } else if( ASRUtils::get_FunctionType(x)->m_abi == ASR::abiType::Intrinsic &&
-                        fname2arg_type.find(m_name) != fname2arg_type.end()) {
-                        type = fname2arg_type[m_name].second;
-                        is_array_type = false;
-                    }
-                }
-                args.push_back(type);
-            } else if (is_a<ASR::Function_t>(*symbol_get_past_external(
-                ASR::down_cast<ASR::Var_t>(x.m_args[i])->m_v))) {
-                /* This is likely a procedure passed as an argument. For the
-                   type, we need to pass in a function pointer with the
-                   correct call signature. */
-                ASR::Function_t* fn = ASR::down_cast<ASR::Function_t>(
-                    symbol_get_past_external(ASR::down_cast<ASR::Var_t>(
-                    x.m_args[i])->m_v));
-                llvm::Type* type = get_function_type(*fn)->getPointerTo();
-                args.push_back(type);
-            } else {
-                throw CodeGenError("Argument type not implemented");
-            }
-        }
-        return args;
-    }
-
-
-    template <typename T>
-    void push_nested_stack(const T &x) {
-        bool finder = std::find(nested_call_out.begin(), nested_call_out.end(),
-             parent_function_hash) != nested_call_out.end();
-        bool is_nested_call = std::find(
-            nesting_map[parent_function_hash].begin(),
-            nesting_map[parent_function_hash].end(), calling_function_hash)
-            != nesting_map[parent_function_hash].end();
-        if (nested_func_types[parent_function_hash].size() > 0
-            && parent_function_hash != calling_function_hash && finder
-            && !is_nested_call){
-            llvm::Value *sp_loc = module->getOrInsertGlobal(
-                nested_sp_name, llvm::Type::getInt32Ty(context));
-            llvm::Value *sp_val = CreateLoad(sp_loc);
-            for (auto &item : x->m_symtab->get_scope()) {
-                if (is_a<ASR::Variable_t>(*item.second)) {
-                    ASR::Variable_t *v = down_cast<ASR::Variable_t>(
-                        item.second);
-                    uint32_t h = get_hash((ASR::asr_t*)v);
-                    auto finder = std::find(nested_globals.begin(),
-                            nested_globals.end(), h);
-                    if (finder != nested_globals.end()) {
-                        int idx = std::distance(nested_globals.begin(),
-                            finder);
-                        llvm::Value* glob_struct = module->getOrInsertGlobal(
-                            nested_desc_name, nested_global_struct);
-                        llvm::Value* target = CreateLoad(llvm_utils->create_gep(
-                            glob_struct, idx));
-                        llvm::Value* glob_stack = module->getOrInsertGlobal(
-                            nested_stack_name, nested_global_stack);
-                        llvm::Value *glob_stack_gep = llvm_utils->create_gep(glob_stack,
-                            sp_val);
-                        llvm::Value *glob_stack_elem = llvm_utils->create_gep(
-                            glob_stack_gep, idx);
-                        builder->CreateStore(CreateLoad(target),
-                            glob_stack_elem);
-                        llvm::Value *glob_stack_val = CreateLoad(
-                            glob_stack_gep);
-                        llvm::Value *glob_stack_sp = llvm_utils->create_gep(glob_stack,
-                            sp_val);
-                        builder->CreateStore(glob_stack_val, glob_stack_sp);
-                    }
-                }
-            }
-            builder->CreateStore(builder->CreateAdd(builder->getInt32(1),
-                sp_val), sp_loc);
-        }
-    }
-
-
-    template <typename T>
-    void pop_nested_stack(const T &x) {
-        llvm::Function *lfn = builder->GetInsertBlock()->getParent();
-        bool finder = std::find(nested_call_out.begin(), nested_call_out.end(),
-             calling_function_hash) != nested_call_out.end();
-        bool is_nested_call = std::find(
-            nesting_map[parent_function_hash].begin(),
-            nesting_map[parent_function_hash].end(), calling_function_hash)
-            != nesting_map[parent_function_hash].end();
-        if (nested_func_types[calling_function_hash].size() > 0
-            && calling_function_hash != parent_function_hash && finder
-            && !is_nested_call){
-            llvm::Value *sp_loc = module->getOrInsertGlobal(nested_sp_name,
-                llvm::Type::getInt32Ty(context));
-            llvm::Value *sp_val = CreateLoad(sp_loc);
-            llvm::BasicBlock *dec_sp = llvm::BasicBlock::Create(context,
-                "decrement_sp", lfn);
-            llvm::BasicBlock *norm_cont = llvm::BasicBlock::Create(context,
-                "normal_continue", lfn);
-            llvm::Value *cond = builder->CreateICmpSGT(sp_val,
-                builder->getInt32(0));
-            builder->CreateCondBr(cond, dec_sp, norm_cont);
-            builder->SetInsertPoint(dec_sp);
-            builder->CreateStore(builder->CreateAdd(builder->getInt32(-1),
-                sp_val), sp_loc);
-            for (auto &item : x->m_symtab->get_scope()) {
-                if (is_a<ASR::Variable_t>(*item.second)) {
-                    ASR::Variable_t *v = down_cast<ASR::Variable_t>(
-                        item.second);
-                    uint32_t h = get_hash((ASR::asr_t*)v);
-                    auto finder = std::find(nested_globals.begin(),
-                            nested_globals.end(), h);
-                    if (finder != nested_globals.end()) {
-                        int idx = std::distance(nested_globals.begin(),
-                        finder);
-                        llvm::Value* glob_stack = module->getOrInsertGlobal(
-                            nested_stack_name, nested_global_stack);
-                        llvm::Value *sp_loc = module->getOrInsertGlobal(
-                            nested_sp_name, llvm::Type::getInt32Ty(context));
-                        llvm::Value *sp_val = CreateLoad(sp_loc);
-                        llvm::Value *glob_stack_elem = CreateLoad(
-                            llvm_utils->create_gep(llvm_utils->create_gep(glob_stack, sp_val), idx));
-                        llvm::Value *glob_struct_loc = module->
-                            getOrInsertGlobal(nested_desc_name,
-                            nested_global_struct);
-                        llvm::Value* target = CreateLoad(
-                            llvm_utils->create_gep(glob_struct_loc, idx));
-                        builder->CreateStore(glob_stack_elem, target);
-                        builder->CreateStore(target, llvm_utils->create_gep(
-                            glob_struct_loc, idx));
-                    }
-                }
-            }
-            builder->CreateBr(norm_cont);
-            builder->SetInsertPoint(norm_cont);
-        }
-    }
-
-    template<typename T>
-    void declare_args(const T &x, llvm::Function &F) {
-        size_t i = 0;
-        for (llvm::Argument &llvm_arg : F.args()) {
-            if (is_a<ASR::Variable_t>(*symbol_get_past_external(
-                    ASR::down_cast<ASR::Var_t>(x.m_args[i])->m_v))) {
-                ASR::Variable_t *arg = EXPR2VAR(x.m_args[i]);
-                LCOMPILERS_ASSERT(is_arg_dummy(arg->m_intent));
-                uint32_t h = get_hash((ASR::asr_t*)arg);
-                auto finder = std::find(nested_globals.begin(),
-                    nested_globals.end(), h);
-                if (finder != nested_globals.end()) {
-                    llvm::Value* ptr = module->getOrInsertGlobal(nested_desc_name,
-                            nested_global_struct);
-                    int idx = std::distance(nested_globals.begin(),
-                            finder);
-                    builder->CreateStore(&llvm_arg, llvm_utils->create_gep(ptr,
-                                idx));
-                }
-                std::string arg_s = arg->m_name;
-                llvm_arg.setName(arg_s);
-                llvm_symtab[h] = &llvm_arg;
-            } else if (is_a<ASR::Function_t>(*symbol_get_past_external(
-                ASR::down_cast<ASR::Var_t>(x.m_args[i])->m_v))) {
-                // Deal with case where procedure passed in as argument
-                ASR::Function_t *arg = EXPR2FUN(x.m_args[i]);
-                uint32_t h = get_hash((ASR::asr_t*)arg);
-                std::string arg_s = arg->m_name;
-                llvm_arg.setName(arg_s);
-                llvm_symtab_fn_arg[h] = &llvm_arg;
-            }
-            i++;
-        }
-    }
-
-    template <typename T>
-    void declare_local_vars(const T &x) {
-        declare_vars(x);
-    }
-
-    void visit_Function(const ASR::Function_t &x) {
-        bool is_dict_present_copy_lp = dict_api_lp->is_dict_present();
-        bool is_dict_present_copy_sc = dict_api_sc->is_dict_present();
-        dict_api_lp->set_is_dict_present(false);
-        dict_api_sc->set_is_dict_present(false);
-        llvm_goto_targets.clear();
-        instantiate_function(x);
-        if (ASRUtils::get_FunctionType(x)->m_deftype == ASR::deftypeType::Interface) {
-            // Interface does not have an implementation and it is already
-            // declared, so there is nothing to do here
-            return;
-        }
-        visit_procedures(x);
-        generate_function(x);
-        parent_function = nullptr;
-        dict_api_lp->set_is_dict_present(is_dict_present_copy_lp);
-        dict_api_sc->set_is_dict_present(is_dict_present_copy_sc);
-
-        // Finalize the debug info.
-        if (compiler_options.emit_debug_info) DBuilder->finalize();
-    }
-
-    void instantiate_function(const ASR::Function_t &x){
-        uint32_t h = get_hash((ASR::asr_t*)&x);
-        llvm::Function *F = nullptr;
-        llvm::DISubprogram *SP;
-        std::string sym_name = x.m_name;
-        if (sym_name == "main") {
-            sym_name = "_xx_lcompilers_changed_main_xx";
-        }
-        if (llvm_symtab_fn.find(h) != llvm_symtab_fn.end()) {
-            /*
-            throw CodeGenError("Function code already generated for '"
-                + std::string(x.m_name) + "'");
-            */
-            F = llvm_symtab_fn[h];
-        } else {
-            llvm::FunctionType* function_type = get_function_type(x);
-            std::string fn_name;
-            if (ASRUtils::get_FunctionType(x)->m_abi == ASR::abiType::BindC) {
-                if (ASRUtils::get_FunctionType(x)->m_bindc_name) {
-                    fn_name = ASRUtils::get_FunctionType(x)->m_bindc_name;
-                } else {
-                    fn_name = sym_name;
-                }
-            } else if (ASRUtils::get_FunctionType(x)->m_deftype == ASR::deftypeType::Interface &&
-                       ASRUtils::get_FunctionType(x)->m_abi != ASR::abiType::Intrinsic) {
-                fn_name = sym_name;
-            } else {
-                fn_name = mangle_prefix + sym_name;
-            }
-            if (llvm_symtab_fn_names.find(fn_name) == llvm_symtab_fn_names.end()) {
-                llvm_symtab_fn_names[fn_name] = h;
-                F = llvm::Function::Create(function_type,
-                    llvm::Function::ExternalLinkage, fn_name, module.get());
-
-                // Add Debugging information to the LLVM function F
-                if (compiler_options.emit_debug_info) {
-                    debug_emit_function(x, SP);
-                    F->setSubprogram(SP);
-                }
-            } else {
-                uint32_t old_h = llvm_symtab_fn_names[fn_name];
-                F = llvm_symtab_fn[old_h];
-                if (compiler_options.emit_debug_info) {
-                    SP = (llvm::DISubprogram*) llvm_symtab_fn_discope[old_h];
-                }
-            }
-            llvm_symtab_fn[h] = F;
-            if (compiler_options.emit_debug_info) llvm_symtab_fn_discope[h] = SP;
-
-            // Instantiate (pre-declare) all nested interfaces
-            for (auto &item : x.m_symtab->get_scope()) {
-                if (is_a<ASR::Function_t>(*item.second)) {
-                    ASR::Function_t *v = down_cast<ASR::Function_t>(
-                            item.second);
-                    instantiate_function(*v);
-                }
-            }
-        }
-    }
-
-
-    llvm::FunctionType* get_function_type(const ASR::Function_t &x){
-        llvm::Type *return_type;
-        if (x.m_return_var) {
-            ASR::ttype_t *return_var_type0 = EXPR2VAR(x.m_return_var)->m_type;
-            ASR::ttypeType return_var_type = return_var_type0->type;
-            switch (return_var_type) {
-                case (ASR::ttypeType::Integer) : {
-                    int a_kind = down_cast<ASR::Integer_t>(return_var_type0)->m_kind;
-                    return_type = getIntType(a_kind);
-                    break;
-                }
-                case (ASR::ttypeType::Real) : {
-                    int a_kind = down_cast<ASR::Real_t>(return_var_type0)->m_kind;
-                    return_type = getFPType(a_kind);
-                    break;
-                }
-                case (ASR::ttypeType::Complex) : {
-                    int a_kind = down_cast<ASR::Complex_t>(return_var_type0)->m_kind;
-                    if (a_kind == 4) {
-                        if (ASRUtils::get_FunctionType(x)->m_abi == ASR::abiType::BindC) {
-                            if (compiler_options.platform == Platform::Windows) {
-                                // i64
-                                return_type = llvm::Type::getInt64Ty(context);
-                            } else if (compiler_options.platform == Platform::macOS_ARM) {
-                                // {float, float}
-                                return_type = getComplexType(a_kind);
-                            } else {
-                                // <2 x float>
-                                return_type = FIXED_VECTOR_TYPE::get(llvm::Type::getFloatTy(context), 2);
-                            }
-                        } else {
-                            return_type = getComplexType(a_kind);
-                        }
-                    } else {
-                        LCOMPILERS_ASSERT(a_kind == 8)
-                        if (ASRUtils::get_FunctionType(x)->m_abi == ASR::abiType::BindC) {
-                            if (compiler_options.platform == Platform::Windows) {
-                                // pass as subroutine
-                                return_type = getComplexType(a_kind, true);
-                                std::vector<llvm::Type*> args = convert_args(x);
-                                args.insert(args.begin(), return_type);
-                                llvm::FunctionType *function_type = llvm::FunctionType::get(
-                                        llvm::Type::getVoidTy(context), args, false);
-                                return function_type;
-                            } else {
-                                return_type = getComplexType(a_kind);
-                            }
-                        } else {
-                            return_type = getComplexType(a_kind);
-                        }
-                    }
-                    break;
-                }
-                case (ASR::ttypeType::Character) :
-                    return_type = character_type;
-                    break;
-                case (ASR::ttypeType::Logical) :
-                    return_type = llvm::Type::getInt1Ty(context);
-                    break;
-                case (ASR::ttypeType::CPtr) :
-                    return_type = llvm::Type::getVoidTy(context)->getPointerTo();
-                    break;
-                case (ASR::ttypeType::Const) : {
-                    return_type = get_type_from_ttype_t_util(ASRUtils::get_contained_type(return_var_type0));
-                    break;
-                }
-                case (ASR::ttypeType::Pointer) : {
-                    return_type = get_type_from_ttype_t_util(ASRUtils::get_contained_type(return_var_type0))->getPointerTo();
-                    break;
-                }
-                case (ASR::ttypeType::Struct) :
-                    throw CodeGenError("Struct return type not implemented yet");
-                    break;
-                case (ASR::ttypeType::Tuple) : {
-                    ASR::Tuple_t* asr_tuple = ASR::down_cast<ASR::Tuple_t>(return_var_type0);
-                    std::string type_code = ASRUtils::get_type_code(asr_tuple->m_type,
-                                                                    asr_tuple->n_type);
-                    std::vector<llvm::Type*> llvm_el_types;
-                    for( size_t i = 0; i < asr_tuple->n_type; i++ ) {
-                        bool is_local_array_type = false, is_local_malloc_array_type = false;
-                        bool is_local_list = false;
-                        ASR::dimension_t* local_m_dims = nullptr;
-                        int local_n_dims = 0;
-                        int local_a_kind = -1;
-                        ASR::storage_typeType local_m_storage = ASR::storage_typeType::Default;
-                        llvm_el_types.push_back(get_type_from_ttype_t(asr_tuple->m_type[i], local_m_storage,
-                                                is_local_array_type, is_local_malloc_array_type,
-                                                is_local_list, local_m_dims, local_n_dims, local_a_kind));
-                    }
-                    return_type = tuple_api->get_tuple_type(type_code, llvm_el_types);
-                    break;
-                }
-                case (ASR::ttypeType::List) : {
-                    bool is_array_type = false, is_malloc_array_type = false;
-                    bool is_list = true;
-                    ASR::dimension_t *m_dims = nullptr;
-                    ASR::storage_typeType m_storage = ASR::storage_typeType::Default;
-                    int n_dims = 0, a_kind = -1;
-                    ASR::List_t* asr_list = ASR::down_cast<ASR::List_t>(return_var_type0);
-                    llvm::Type* el_llvm_type = get_type_from_ttype_t(asr_list->m_type, m_storage,
-                                                                     is_array_type,
-                                                                     is_malloc_array_type,
-                                                                     is_list, m_dims, n_dims,
-                                                                     a_kind);
-                    int32_t type_size = -1;
-                    if( LLVM::is_llvm_struct(asr_list->m_type) ||
-                        ASR::is_a<ASR::Character_t>(*asr_list->m_type) ||
-                        ASR::is_a<ASR::Complex_t>(*asr_list->m_type) ) {
-                        llvm::DataLayout data_layout(module.get());
-                        type_size = data_layout.getTypeAllocSize(el_llvm_type);
-                    } else {
-                        type_size = a_kind;
-                    }
-                    std::string el_type_code = ASRUtils::get_type_code(asr_list->m_type);
-                    return_type = list_api->get_list_type(el_llvm_type, el_type_code, type_size);
-                    break;
-                }
-                default :
-                    throw CodeGenError("Type not implemented " + std::to_string(return_var_type));
-            }
-        } else {
-            return_type = llvm::Type::getVoidTy(context);
-        }
-        std::vector<llvm::Type*> args = convert_args(x);
-        llvm::FunctionType *function_type = llvm::FunctionType::get(
-                return_type, args, false);
-        return function_type;
-    }
-
-    template<typename T>
-    void declare_needed_global_types(T &x){
-        // Check if the procedure has a nested function that needs access to
-        // some variables in its local scope
-        uint32_t h = get_hash((ASR::asr_t*)&x);
-        std::vector<llvm::Type*> nested_type;
-        if (nested_func_types[h].size() > 0) {
-            nested_type = nested_func_types[h];
-            nested_global_struct = llvm::StructType::create(context,
-                nested_type, std::string(x.m_name) + "_nstd_types");
-            std::vector<llvm::Type*> nested_stack;
-            for (size_t i = 0; i < nested_type.size(); i++){
-                nested_stack.push_back(nested_type[i]->getContainedType(0));
-            }
-            nested_desc_name = std::string(x.m_name) + "_nstd_strct";
-            module->getOrInsertGlobal(nested_desc_name, nested_global_struct);
-            llvm::ConstantAggregateZero *initializer;
-            initializer = llvm::ConstantAggregateZero::get(
-                nested_global_struct);
-            module->getNamedGlobal(nested_desc_name)->setInitializer(
-                initializer);
-            if (std::find(nested_call_out.begin(), nested_call_out.end(), h) !=
-                nested_call_out.end()){
-                /* Only declare the stack types if needed (if the function
-                enclosing a nested function can call out, potentially leading to
-                recursion, etc */
-                nested_global_struct_vals =
-                    llvm::StructType::create(context, nested_stack,
-                    std::string(x.m_name) + "_vals");
-                nested_global_stack = llvm::ArrayType::get(
-                    nested_global_struct_vals, 1000);
-                nested_stack_name = nested_desc_name + "_stack";
-                nested_sp_name = "sp_" + std::string(x.m_name);
-                llvm::IntegerType *sp = llvm::Type::getInt32Ty(context);
-                module->getOrInsertGlobal(nested_stack_name,
-                    nested_global_stack);
-                module->getOrInsertGlobal(nested_sp_name, sp);
-                initializer = llvm::ConstantAggregateZero::get(
-                    nested_global_stack);
-                module->getNamedGlobal(nested_stack_name)->setInitializer(
-                    initializer);
-                llvm::ConstantInt *sp_init = llvm::ConstantInt::get(
-                    module->getContext(), llvm::APInt(32,0));
-                module->getNamedGlobal(nested_sp_name)->setInitializer(
-                    sp_init);
-            }
-        }
-    }
-
-    inline void define_function_entry(const ASR::Function_t& x) {
-        uint32_t h = get_hash((ASR::asr_t*)&x);
-        parent_function = &x;
-        parent_function_hash = h;
-        llvm::Function* F = llvm_symtab_fn[h];
-        if (compiler_options.emit_debug_info) debug_current_scope = llvm_symtab_fn_discope[h];
-        proc_return = llvm::BasicBlock::Create(context, "return");
-        llvm::BasicBlock *BB = llvm::BasicBlock::Create(context,
-                ".entry", F);
-        builder->SetInsertPoint(BB);
-        if (compiler_options.emit_debug_info) debug_emit_loc(x);
-        declare_args(x, *F);
-        declare_local_vars(x);
-    }
-
-
-    inline void define_function_exit(const ASR::Function_t& x) {
-        if (x.m_return_var) {
-            start_new_block(proc_return);
-            ASR::Variable_t *asr_retval = EXPR2VAR(x.m_return_var);
-            uint32_t h = get_hash((ASR::asr_t*)asr_retval);
-            llvm::Value *ret_val = llvm_symtab[h];
-            llvm::Value *ret_val2 = CreateLoad(ret_val);
-            // Handle Complex type return value for BindC:
-            if (ASRUtils::get_FunctionType(x)->m_abi == ASR::abiType::BindC) {
-                ASR::ttype_t* arg_type = asr_retval->m_type;
-                llvm::Value *tmp = ret_val;
-                if (is_a<ASR::Complex_t>(*arg_type)) {
-                    int c_kind = ASRUtils::extract_kind_from_ttype_t(arg_type);
-                    if (c_kind == 4) {
-                        if (compiler_options.platform == Platform::Windows) {
-                            // tmp is {float, float}*
-                            // type_fx2p is i64*
-                            llvm::Type* type_fx2p = llvm::Type::getInt64PtrTy(context);
-                            // Convert {float,float}* to i64* using bitcast
-                            tmp = builder->CreateBitCast(tmp, type_fx2p);
-                            // Then convert i64* -> i64
-                            tmp = CreateLoad(tmp);
-                        } else if (compiler_options.platform == Platform::macOS_ARM) {
-                            // Pass by value
-                            tmp = CreateLoad(tmp);
-                        } else {
-                            // tmp is {float, float}*
-                            // type_fx2p is <2 x float>*
-                            llvm::Type* type_fx2p = FIXED_VECTOR_TYPE::get(llvm::Type::getFloatTy(context), 2)->getPointerTo();
-                            // Convert {float,float}* to <2 x float>* using bitcast
-                            tmp = builder->CreateBitCast(tmp, type_fx2p);
-                            // Then convert <2 x float>* -> <2 x float>
-                            tmp = CreateLoad(tmp);
-                        }
-                    } else {
-                        LCOMPILERS_ASSERT(c_kind == 8)
-                        if (compiler_options.platform == Platform::Windows) {
-                            // 128 bit aggregate type is passed by reference
-                        } else {
-                            // Pass by value
-                            tmp = CreateLoad(tmp);
-                        }
-                    }
-                ret_val2 = tmp;
-                }
-            }
-            builder->CreateRet(ret_val2);
-        } else {
-            start_new_block(proc_return);
-            builder->CreateRetVoid();
-        }
-    }
-
-    void generate_function(const ASR::Function_t &x) {
-        bool interactive = (ASRUtils::get_FunctionType(x)->m_abi == ASR::abiType::Interactive);
-        if (ASRUtils::get_FunctionType(x)->m_deftype == ASR::deftypeType::Implementation ) {
-
-            if (interactive) return;
-
-            if (compiler_options.generate_object_code
-                    && (ASRUtils::get_FunctionType(x)->m_abi == ASR::abiType::Intrinsic)
-                    && !compiler_options.rtlib) {
-                // Skip intrinsic functions in generate_object_code mode
-                // They must be later linked
-                return;
-            }
-
-            if (!prototype_only) {
-                define_function_entry(x);
-
-                for (size_t i=0; i<x.n_body; i++) {
-                    this->visit_stmt(*x.m_body[i]);
-                }
-
-                define_function_exit(x);
-            }
-        } else if( ASRUtils::get_FunctionType(x)->m_abi == ASR::abiType::Intrinsic &&
-                   ASRUtils::get_FunctionType(x)->m_deftype == ASR::deftypeType::Interface ) {
-            std::string m_name = x.m_name;
-            if( m_name == "lbound" || m_name == "ubound" ) {
-                define_function_entry(x);
-
-                // Defines the size intrinsic's body at LLVM level.
-                ASR::Variable_t *arg = EXPR2VAR(x.m_args[0]);
-                uint32_t h = get_hash((ASR::asr_t*)arg);
-                llvm::Value* llvm_arg1 = llvm_symtab[h];
-
-                arg = EXPR2VAR(x.m_args[1]);
-                h = get_hash((ASR::asr_t*)arg);
-                llvm::Value* llvm_arg2 = llvm_symtab[h];
-
-                ASR::Variable_t *ret = EXPR2VAR(x.m_return_var);
-                h = get_hash((ASR::asr_t*)ret);
-                llvm::Value* llvm_ret_ptr = llvm_symtab[h];
-
-                llvm::Value* dim_des_val = CreateLoad(llvm_arg1);
-                llvm::Value* dim_val = CreateLoad(llvm_arg2);
-                llvm::Value* const_1 = llvm::ConstantInt::get(context, llvm::APInt(32, 1));
-                dim_val = builder->CreateSub(dim_val, const_1);
-                llvm::Value* dim_struct = arr_descr->get_pointer_to_dimension_descriptor(dim_des_val, dim_val);
-                llvm::Value* res = nullptr;
-                if( m_name == "lbound" ) {
-                    res = arr_descr->get_lower_bound(dim_struct);
-                } else if( m_name == "ubound" ) {
-                    res = arr_descr->get_upper_bound(dim_struct);
-                }
-                builder->CreateStore(res, llvm_ret_ptr);
-
-                define_function_exit(x);
-            }
-        }
-    }
-
-
-    template<typename T>
-    void visit_procedures(const T &x) {
-        for (auto &item : x.m_symtab->get_scope()) {
-            if (is_a<ASR::Function_t>(*item.second)) {
-                ASR::Function_t *s = ASR::down_cast<ASR::Function_t>(item.second);
-                visit_Function(*s);
-            }
-        }
-    }
-
-    bool is_nested_pointer(llvm::Value* val) {
-        // TODO: Remove this in future
-        // Related issue, https://github.com/lcompilers/lpython/pull/707#issuecomment-1169773106.
-        return val->getType()->isPointerTy() &&
-               val->getType()->getContainedType(0)->isPointerTy();
-    }
-
-    void visit_CLoc(const ASR::CLoc_t& x) {
-        int64_t ptr_loads_copy = ptr_loads;
-        ptr_loads = 0;
-        this->visit_expr(*x.m_arg);
-        ptr_loads = ptr_loads_copy;
-        if( is_nested_pointer(tmp) ) {
-            tmp = CreateLoad(tmp);
-        }
-        ASR::ttype_t* arg_type = ASRUtils::get_contained_type(ASRUtils::expr_type(x.m_arg));
-        if( arr_descr->is_array(arg_type) ) {
-            tmp = CreateLoad(arr_descr->get_pointer_to_data(tmp));
-        }
-        tmp = builder->CreateBitCast(tmp,
-                    llvm::Type::getVoidTy(context)->getPointerTo());
-    }
-
-
-    llvm::Value* GetPointerCPtrUtil(llvm::Value* llvm_tmp, ASR::ttype_t* asr_type) {
-        // If the input is a simple variable and not a pointer
-        // then this check will fail and load will not happen
-        // (which is what we want for simple variables).
-        // For pointers, the actual LLVM variable will be a
-        // double pointer, so we need to load one time and then
-        // use it later on.
-        if( is_nested_pointer(llvm_tmp) &&
-            !ASR::is_a<ASR::CPtr_t>(*asr_type)) {
-            llvm_tmp = CreateLoad(llvm_tmp);
-        }
-        if( arr_descr->is_array(asr_type) &&
-            !ASR::is_a<ASR::CPtr_t>(*asr_type) ) {
-            llvm_tmp = CreateLoad(arr_descr->get_pointer_to_data(llvm_tmp));
-        }
-
-        // // TODO: refactor this into a function, it is being used a few times
-        // llvm::Type *target_type = llvm_tmp->getType();
-        // // Create alloca to get a pointer, but do it
-        // // at the beginning of the function to avoid
-        // // using alloca inside a loop, which would
-        // // run out of stack
-        // llvm::BasicBlock &entry_block = builder->GetInsertBlock()->getParent()->getEntryBlock();
-        // llvm::IRBuilder<> builder0(context);
-        // builder0.SetInsertPoint(&entry_block, entry_block.getFirstInsertionPt());
-        // llvm::AllocaInst *target = builder0.CreateAlloca(
-        //     target_type, nullptr, "call_arg_value_ptr");
-        // builder->CreateStore(llvm_tmp, target);
-        // llvm_tmp = target;
-        return llvm_tmp;
-    }
-
-    void visit_GetPointer(const ASR::GetPointer_t& x) {
-        int64_t ptr_loads_copy = ptr_loads;
-        ptr_loads = 0;
-        this->visit_expr(*x.m_arg);
-        ptr_loads = ptr_loads_copy;
-        ASR::ttype_t* arg_type = ASRUtils::get_contained_type(ASRUtils::expr_type(x.m_arg));
-        tmp = GetPointerCPtrUtil(tmp, arg_type);
-    }
-
-    void visit_PointerToCPtr(const ASR::PointerToCPtr_t& x) {
-        int64_t ptr_loads_copy = ptr_loads;
-        ptr_loads = 0;
-        this->visit_expr(*x.m_arg);
-        ptr_loads = ptr_loads_copy;
-        if( !ASR::is_a<ASR::GetPointer_t>(*x.m_arg) ) {
-            ASR::ttype_t* arg_type = ASRUtils::get_contained_type(
-                                         ASRUtils::expr_type(x.m_arg));
-            tmp = GetPointerCPtrUtil(tmp, arg_type);
-        }
-        tmp = builder->CreateBitCast(tmp,
-                    llvm::Type::getVoidTy(context)->getPointerTo());
-    }
-
-
-    void visit_CPtrToPointer(const ASR::CPtrToPointer_t& x) {
-        ASR::expr_t *cptr = x.m_cptr, *fptr = x.m_ptr, *shape = x.m_shape;
-        int reduce_loads = 0;
-        if( ASR::is_a<ASR::Var_t>(*cptr) ) {
-            ASR::Variable_t* cptr_var = ASRUtils::EXPR2VAR(cptr);
-            reduce_loads = cptr_var->m_intent == ASRUtils::intent_in;
-        }
-        if( ASRUtils::is_array(ASRUtils::expr_type(fptr)) ) {
-            int64_t ptr_loads_copy = ptr_loads;
-            ptr_loads = 1 - reduce_loads;
-            this->visit_expr(*cptr);
-            llvm::Value* llvm_cptr = tmp;
-            ptr_loads = 0;
-            this->visit_expr(*fptr);
-            llvm::Value* llvm_fptr = tmp;
-            ptr_loads = ptr_loads_copy;
-            llvm::Value* llvm_shape = nullptr;
-            ASR::ttype_t* asr_shape_type = nullptr;
-            if( shape ) {
-                asr_shape_type = ASRUtils::get_contained_type(ASRUtils::expr_type(shape));
-                this->visit_expr(*shape);
-                llvm_shape = tmp;
-            }
-            ASR::ttype_t* fptr_type = ASRUtils::expr_type(fptr);
-            llvm::Type* llvm_fptr_type = get_type_from_ttype_t_util(ASRUtils::get_contained_type(fptr_type));
-            llvm::Value* fptr_array = builder->CreateAlloca(llvm_fptr_type);
-            ASR::dimension_t* fptr_dims;
-            int fptr_rank = ASRUtils::extract_dimensions_from_ttype(
-                                ASRUtils::expr_type(fptr),
-                                fptr_dims);
-            llvm::Value* llvm_rank = llvm::ConstantInt::get(context, llvm::APInt(32, fptr_rank));
-            llvm::Value* dim_des = builder->CreateAlloca(arr_descr->get_dimension_descriptor_type(), llvm_rank);
-            builder->CreateStore(dim_des, arr_descr->get_pointer_to_dimension_descriptor_array(fptr_array, false));
-            arr_descr->set_rank(fptr_array, llvm_rank);
-            builder->CreateStore(fptr_array, llvm_fptr);
-            llvm_fptr = fptr_array;
-            ASR::ttype_t* fptr_data_type = ASRUtils::duplicate_type_without_dims(al, ASRUtils::get_contained_type(fptr_type), fptr_type->base.loc);
-            llvm::Type* llvm_fptr_data_type = get_type_from_ttype_t_util(fptr_data_type);
-            llvm::Value* fptr_data = arr_descr->get_pointer_to_data(llvm_fptr);
-            llvm::Value* fptr_des = arr_descr->get_pointer_to_dimension_descriptor_array(llvm_fptr);
-            llvm::Value* shape_data = llvm_shape;
-            if( llvm_shape && !ASR::is_a<ASR::ArrayConstant_t>(*shape) && arr_descr->is_array(asr_shape_type) ) {
-                shape_data = CreateLoad(arr_descr->get_pointer_to_data(llvm_shape));
-            }
-            llvm_cptr = builder->CreateBitCast(llvm_cptr, llvm_fptr_data_type->getPointerTo());
-            builder->CreateStore(llvm_cptr, fptr_data);
-            for( int i = 0; i < fptr_rank; i++ ) {
-                llvm::Value* curr_dim = llvm::ConstantInt::get(context, llvm::APInt(32, i));
-                llvm::Value* desi = arr_descr->get_pointer_to_dimension_descriptor(fptr_des, curr_dim);
-                llvm::Value* desi_lb = arr_descr->get_lower_bound(desi, false);
-                llvm::Value* desi_size = arr_descr->get_dimension_size(fptr_des, curr_dim, false);
-                llvm::Value* i32_one = llvm::ConstantInt::get(context, llvm::APInt(32, 1));
-                llvm::Value* new_lb = i32_one;
-                llvm::Value* new_ub = shape_data ? CreateLoad(llvm_utils->create_ptr_gep(shape_data, i)) : i32_one;
-                builder->CreateStore(new_lb, desi_lb);
-                builder->CreateStore(builder->CreateAdd(builder->CreateSub(new_ub, new_lb), i32_one), desi_size);
-            }
-        } else {
-            int64_t ptr_loads_copy = ptr_loads;
-            ptr_loads = 1 - reduce_loads;
-            this->visit_expr(*cptr);
-            llvm::Value* llvm_cptr = tmp;
-            ptr_loads = 0;
-            this->visit_expr(*fptr);
-            llvm::Value* llvm_fptr = tmp;
-            ptr_loads = ptr_loads_copy;
-            llvm::Type* llvm_fptr_type = get_type_from_ttype_t_util(
-                ASRUtils::get_contained_type(ASRUtils::expr_type(fptr)));
-            llvm_cptr = builder->CreateBitCast(llvm_cptr, llvm_fptr_type->getPointerTo());
-            builder->CreateStore(llvm_cptr, llvm_fptr);
-        }
-    }
-
-    void visit_Associate(const ASR::Associate_t& x) {
-        ASR::Variable_t *asr_target = EXPR2VAR(x.m_target);
-        ASR::Variable_t *asr_value = EXPR2VAR(x.m_value);
-        uint32_t value_h = get_hash((ASR::asr_t*)asr_value);
-        uint32_t target_h = get_hash((ASR::asr_t*)asr_target);
-        builder->CreateStore(llvm_symtab[value_h], llvm_symtab[target_h]);
-    }
-
-    void visit_Assignment(const ASR::Assignment_t &x) {
-        if (compiler_options.emit_debug_info) debug_emit_loc(x);
-        if( x.m_overloaded ) {
-            this->visit_stmt(*x.m_overloaded);
-            return ;
-        }
-
-        ASR::ttype_t* asr_target_type = ASRUtils::expr_type(x.m_target);
-        ASR::ttype_t* asr_value_type = ASRUtils::expr_type(x.m_value);
-        bool is_target_list = ASR::is_a<ASR::List_t>(*asr_target_type);
-        bool is_value_list = ASR::is_a<ASR::List_t>(*asr_value_type);
-        bool is_target_tuple = ASR::is_a<ASR::Tuple_t>(*asr_target_type);
-        bool is_value_tuple = ASR::is_a<ASR::Tuple_t>(*asr_value_type);
-        bool is_target_dict = ASR::is_a<ASR::Dict_t>(*asr_target_type);
-        bool is_value_dict = ASR::is_a<ASR::Dict_t>(*asr_value_type);
-        bool is_target_struct = ASR::is_a<ASR::Struct_t>(*asr_target_type);
-        bool is_value_struct = ASR::is_a<ASR::Struct_t>(*asr_value_type);
-        if( is_target_list && is_value_list ) {
-            int64_t ptr_loads_copy = ptr_loads;
-            ptr_loads = 0;
-            this->visit_expr(*x.m_target);
-            llvm::Value* target_list = tmp;
-            this->visit_expr(*x.m_value);
-            llvm::Value* value_list = tmp;
-            ptr_loads = ptr_loads_copy;
-            ASR::List_t* value_asr_list = ASR::down_cast<ASR::List_t>(
-                                            ASRUtils::expr_type(x.m_value));
-            std::string value_type_code = ASRUtils::get_type_code(value_asr_list->m_type);
-            list_api->list_deepcopy(value_list, target_list,
-                                    value_asr_list, module.get(),
-                                    name2memidx);
-            return ;
-        } else if( is_target_tuple && is_value_tuple ) {
-            int64_t ptr_loads_copy = ptr_loads;
-            if( ASR::is_a<ASR::TupleConstant_t>(*x.m_target) &&
-                !ASR::is_a<ASR::TupleConstant_t>(*x.m_value) ) {
-                ptr_loads = 0;
-                this->visit_expr(*x.m_value);
-                llvm::Value* value_tuple = tmp;
-                ASR::TupleConstant_t* const_tuple = ASR::down_cast<ASR::TupleConstant_t>(x.m_target);
-                for( size_t i = 0; i < const_tuple->n_elements; i++ ) {
-                    ptr_loads = 0;
-                    visit_expr(*const_tuple->m_elements[i]);
-                    llvm::Value* target_ptr = tmp;
-                    llvm::Value* item = tuple_api->read_item(value_tuple, i, false);
-                    builder->CreateStore(item, target_ptr);
-                }
-                ptr_loads = ptr_loads_copy;
-            } else if( ASR::is_a<ASR::TupleConstant_t>(*x.m_target) &&
-                       ASR::is_a<ASR::TupleConstant_t>(*x.m_value) ) {
-                ASR::TupleConstant_t* asr_value_tuple = ASR::down_cast<ASR::TupleConstant_t>(x.m_value);
-                Vec<llvm::Value*> src_deepcopies;
-                src_deepcopies.reserve(al, asr_value_tuple->n_elements);
-                for( size_t i = 0; i < asr_value_tuple->n_elements; i++ ) {
-                    ASR::ttype_t* asr_tuple_i_type = ASRUtils::expr_type(asr_value_tuple->m_elements[i]);
-                    llvm::Type* llvm_tuple_i_type = get_type_from_ttype_t_util(asr_tuple_i_type);
-                    llvm::Value* llvm_tuple_i = builder->CreateAlloca(llvm_tuple_i_type, nullptr);
-                    ptr_loads = !LLVM::is_llvm_struct(asr_tuple_i_type);
-                    visit_expr(*asr_value_tuple->m_elements[i]);
-                    llvm_utils->deepcopy(tmp, llvm_tuple_i, asr_tuple_i_type, module.get(), name2memidx);
-                    src_deepcopies.push_back(al, llvm_tuple_i);
-                }
-                ASR::TupleConstant_t* asr_target_tuple = ASR::down_cast<ASR::TupleConstant_t>(x.m_target);
-                for( size_t i = 0; i < asr_target_tuple->n_elements; i++ ) {
-                    ptr_loads = 0;
-                    visit_expr(*asr_target_tuple->m_elements[i]);
-                    LLVM::CreateStore(*builder,
-                        LLVM::CreateLoad(*builder, src_deepcopies[i]),
-                        tmp
-                    );
-                }
-                ptr_loads = ptr_loads_copy;
-            } else {
-                ptr_loads = 0;
-                this->visit_expr(*x.m_value);
-                llvm::Value* value_tuple = tmp;
-                this->visit_expr(*x.m_target);
-                llvm::Value* target_tuple = tmp;
-                ptr_loads = ptr_loads_copy;
-                ASR::Tuple_t* value_tuple_type = ASR::down_cast<ASR::Tuple_t>(asr_value_type);
-                std::string type_code = ASRUtils::get_type_code(value_tuple_type->m_type,
-                                                                value_tuple_type->n_type);
-                tuple_api->tuple_deepcopy(value_tuple, target_tuple,
-                                          value_tuple_type, module.get(),
-                                          name2memidx);
-            }
-            return ;
-        } else if( is_target_dict && is_value_dict ) {
-            int64_t ptr_loads_copy = ptr_loads;
-            ptr_loads = 0;
-            this->visit_expr(*x.m_value);
-            llvm::Value* value_dict = tmp;
-            this->visit_expr(*x.m_target);
-            llvm::Value* target_dict = tmp;
-            ptr_loads = ptr_loads_copy;
-            ASR::Dict_t* value_dict_type = ASR::down_cast<ASR::Dict_t>(asr_value_type);
-            set_dict_api(value_dict_type);
-            llvm_utils->dict_api->dict_deepcopy(value_dict, target_dict,
-                                    value_dict_type, module.get(), name2memidx);
-            return ;
-        } else if( is_target_struct && is_value_struct ) {
-            int64_t ptr_loads_copy = ptr_loads;
-            ptr_loads = 0;
-            this->visit_expr(*x.m_value);
-            llvm::Value* value_struct = tmp;
-            bool is_assignment_target_copy = is_assignment_target;
-            is_assignment_target = true;
-            this->visit_expr(*x.m_target);
-            is_assignment_target = is_assignment_target_copy;
-            llvm::Value* target_struct = tmp;
-            ptr_loads = ptr_loads_copy;
-            llvm_utils->deepcopy(value_struct, target_struct,
-                asr_target_type, module.get(), name2memidx);
-            return ;
-        }
-
-        if( ASR::is_a<ASR::Pointer_t>(*ASRUtils::expr_type(x.m_target)) &&
-            ASR::is_a<ASR::GetPointer_t>(*x.m_value) ) {
-            ASR::Variable_t *asr_target = EXPR2VAR(x.m_target);
-            ASR::GetPointer_t* get_ptr = ASR::down_cast<ASR::GetPointer_t>(x.m_value);
-            ASR::Variable_t *asr_value = EXPR2VAR(get_ptr->m_arg);
-            uint32_t value_h = get_hash((ASR::asr_t*)asr_value);
-            uint32_t target_h = get_hash((ASR::asr_t*)asr_target);
-            builder->CreateStore(llvm_symtab[value_h], llvm_symtab[target_h]);
-            return ;
-        }
-        llvm::Value *target, *value;
-        uint32_t h;
-        bool lhs_is_string_arrayref = false;
-        if( x.m_target->type == ASR::exprType::ArrayItem ||
-            x.m_target->type == ASR::exprType::ArraySection ||
-            x.m_target->type == ASR::exprType::StructInstanceMember ||
-            x.m_target->type == ASR::exprType::ListItem ||
-            x.m_target->type == ASR::exprType::UnionInstanceMember ) {
-            is_assignment_target = true;
-            this->visit_expr(*x.m_target);
-            is_assignment_target = false;
-            target = tmp;
-            if (is_a<ASR::ArrayItem_t>(*x.m_target)) {
-                ASR::ArrayItem_t *asr_target0 = ASR::down_cast<ASR::ArrayItem_t>(x.m_target);
-                if (is_a<ASR::Var_t>(*asr_target0->m_v)) {
-                    ASR::Variable_t *asr_target = ASRUtils::EXPR2VAR(asr_target0->m_v);
-                    if ( is_a<ASR::Character_t>(*asr_target->m_type) ) {
-                        ASR::Character_t *t = ASR::down_cast<ASR::Character_t>(asr_target->m_type);
-                        if (t->n_dims == 0) {
-                            target = CreateLoad(target);
-                            lhs_is_string_arrayref = true;
-                        }
-                    }
-                }
-            } else if (is_a<ASR::ArraySection_t>(*x.m_target)) {
-                ASR::ArraySection_t *asr_target0 = ASR::down_cast<ASR::ArraySection_t>(x.m_target);
-                if (is_a<ASR::Var_t>(*asr_target0->m_v)) {
-                    ASR::Variable_t *asr_target = ASRUtils::EXPR2VAR(asr_target0->m_v);
-                    if ( is_a<ASR::Character_t>(*asr_target->m_type) ) {
-                        ASR::Character_t *t = ASR::down_cast<ASR::Character_t>(asr_target->m_type);
-                        if (t->n_dims == 0) {
-                            target = CreateLoad(target);
-                            lhs_is_string_arrayref = true;
-                        }
-                    }
-                }
-            } else if( ASR::is_a<ASR::ListItem_t>(*x.m_target) ) {
-                ASR::ListItem_t* asr_target0 = ASR::down_cast<ASR::ListItem_t>(x.m_target);
-                int64_t ptr_loads_copy = ptr_loads;
-                ptr_loads = 0;
-                this->visit_expr(*asr_target0->m_a);
-                ptr_loads = ptr_loads_copy;
-                llvm::Value* list = tmp;
-                this->visit_expr_wrapper(asr_target0->m_pos, true);
-                llvm::Value* pos = tmp;
-
-                target = list_api->read_item(list, pos, compiler_options.enable_bounds_checking,
-                                             *module, true);
-            }
-        } else {
-            ASR::Variable_t *asr_target = EXPR2VAR(x.m_target);
-            h = get_hash((ASR::asr_t*)asr_target);
-            if (llvm_symtab.find(h) != llvm_symtab.end()) {
-                target = llvm_symtab[h];
-                if (ASR::is_a<ASR::Pointer_t>(*asr_target->m_type) &&
-                    !ASR::is_a<ASR::CPtr_t>(
-                        *ASR::down_cast<ASR::Pointer_t>(asr_target->m_type)->m_type)) {
-                    target = CreateLoad(target);
-                }
-            } else {
-                /* Target for assignment not in the symbol table - must be
-                assigning to an outer scope from a nested function - see
-                nested_05.f90 */
-                auto finder = std::find(nested_globals.begin(),
-                        nested_globals.end(), h);
-                LCOMPILERS_ASSERT(finder != nested_globals.end());
-                llvm::Value* ptr = module->getOrInsertGlobal(nested_desc_name,
-                    nested_global_struct);
-                int idx = std::distance(nested_globals.begin(), finder);
-                target = CreateLoad(llvm_utils->create_gep(ptr, idx));
-            }
-            if( arr_descr->is_array(ASRUtils::get_contained_type(asr_target_type)) ) {
-                if( asr_target->m_type->type ==
-                    ASR::ttypeType::Character ) {
-                    target = CreateLoad(arr_descr->get_pointer_to_data(target));
-                }
-            }
-        }
-        if( ASR::is_a<ASR::UnionTypeConstructor_t>(*x.m_value) ) {
-            return ;
-        }
-        ASR::ttype_t* target_type = ASRUtils::expr_type(x.m_target);
-        ASR::ttype_t* value_type = ASRUtils::expr_type(x.m_value);
-        this->visit_expr_wrapper(x.m_value, true);
-        if( ASR::is_a<ASR::Var_t>(*x.m_value) &&
-            ASR::is_a<ASR::Union_t>(*value_type) ) {
-            tmp = LLVM::CreateLoad(*builder, tmp);
-        }
-        value = tmp;
-        if ( is_a<ASR::Character_t>(*expr_type(x.m_value)) ) {
-            ASR::Character_t *t = ASR::down_cast<ASR::Character_t>(expr_type(x.m_value));
-            if (t->n_dims == 0) {
-                if (lhs_is_string_arrayref) {
-                    value = CreateLoad(value);
-                }
-            }
-        }
-        if( ASRUtils::is_array(target_type) &&
-            ASRUtils::is_array(value_type) &&
-            ASRUtils::check_equal_type(target_type, value_type) ) {
-            bool data_only_copy = false;
-            bool is_target_data_only_array = ASRUtils::expr_abi(x.m_target) == ASR::abiType::BindC;
-            bool is_value_data_only_array = ASRUtils::expr_abi(x.m_value) == ASR::abiType::BindC;
-            if( is_target_data_only_array || is_value_data_only_array ) {
-                llvm::Value *target_data = nullptr, *value_data = nullptr, *llvm_size = nullptr;
-                if( is_target_data_only_array ) {
-                    target_data = target;
-                    ASR::dimension_t* target_dims = nullptr;
-                    int target_ndims = ASRUtils::extract_dimensions_from_ttype(target_type, target_dims);
-                    size_t target_size = 1;
-                    data_only_copy = true;
-                    for( int i = 0; i < target_ndims; i++ ) {
-                        int dim_length = -1;
-                        if( !ASRUtils::extract_value(ASRUtils::expr_value(target_dims[i].m_length), dim_length) ) {
-                            data_only_copy = false;
-                            break;
-                        }
-                        target_size *= dim_length;
-                    }
-                    if( data_only_copy ) {
-                        llvm_size = llvm::ConstantInt::get(llvm::Type::getInt32Ty(context),
-                                                           llvm::APInt(32, target_size));
-                        data_only_copy = false;
-                    }
-                } else {
-                    target_data = LLVM::CreateLoad(*builder, arr_descr->get_pointer_to_data(target));
-                }
-                if( is_value_data_only_array ) {
-                    value_data = value;
-                    ASR::dimension_t* value_dims = nullptr;
-                    int value_ndims = ASRUtils::extract_dimensions_from_ttype(value_type, value_dims);
-                    size_t value_size = 1;
-                    data_only_copy = true;
-                    for( int i = 0; i < value_ndims; i++ ) {
-                        int dim_length = -1;
-                        if( !ASRUtils::extract_value(ASRUtils::expr_value(value_dims[i].m_length), dim_length) ) {
-                            data_only_copy = false;
-                            break;
-                        }
-                        value_size *= dim_length;
-                    }
-                    if( data_only_copy ) {
-                        llvm_size = llvm::ConstantInt::get(llvm::Type::getInt32Ty(context),
-                                                           llvm::APInt(32, value_size));
-                        data_only_copy = false;
-                    }
-                } else {
-                    value_data = LLVM::CreateLoad(*builder, arr_descr->get_pointer_to_data(value));
-                }
-                if( llvm_size ) {
-                    arr_descr->copy_array_data_only(value_data, target_data, module.get(),
-                                                    target_type, llvm_size);
-                }
-            } else {
-                arr_descr->copy_array(value, target, module.get(),
-                                    target_type, false, false);
-            }
-        } else {
-            builder->CreateStore(value, target);
-        }
-        auto finder = std::find(nested_globals.begin(),
-                nested_globals.end(), h);
-        if (finder != nested_globals.end()) {
-            /* Target for assignment could be in the symbol table - and we are
-            assigning to a variable needed in a nested function - see
-            nested_04.f90 */
-            llvm::Value* ptr = module->getOrInsertGlobal(nested_desc_name,
-                    nested_global_struct);
-            int idx = std::distance(nested_globals.begin(), finder);
-            builder->CreateStore(target, llvm_utils->create_gep(ptr, idx));
-        }
-        if (is_a<ASR::ArrayItem_t>(*x.m_target)) {
-            ASR::ArrayItem_t *asr_target0 = ASR::down_cast<ASR::ArrayItem_t>(x.m_target);
-            if (is_a<ASR::Var_t>(*asr_target0->m_v)) {
-                ASR::Variable_t *asr_target = ASRUtils::EXPR2VAR(asr_target0->m_v);
-                h = get_hash((ASR::asr_t*)asr_target);
-                auto finder = std::find(nested_globals.begin(),
-                        nested_globals.end(), h);
-                if (finder != nested_globals.end()) {
-                    // This is used since array pass use array item visit
-                    llvm::Constant *ptr = module->getOrInsertGlobal(nested_desc_name,
-                    nested_global_struct);
-                    int idx = std::distance(nested_globals.begin(), finder);
-                    std::vector<llvm::Value*> idx_vec = {
-                    llvm::ConstantInt::get(context, llvm::APInt(32, 0)),
-                    llvm::ConstantInt::get(context, llvm::APInt(32, idx))};
-                    llvm::Value* array = CreateGEP(ptr, idx_vec);
-                    std::vector<llvm::Value*> indices;
-                    for( size_t r = 0; r < asr_target0->n_args; r++ ) {
-                        ASR::array_index_t curr_idx = asr_target0->m_args[r];
-                        uint64_t ptr_loads_copy = ptr_loads;
-                        ptr_loads = 2;
-                        this->visit_expr_wrapper(curr_idx.m_right, true);
-                        ptr_loads = ptr_loads_copy;
-                        indices.push_back(tmp);
-                    }
-                    ASR::dimension_t* m_dims;
-                    ASRUtils::extract_dimensions_from_ttype(
-                                    ASRUtils::expr_type(asr_target0->m_v), m_dims);
-                    Vec<llvm::Value*> llvm_diminfo;
-                    llvm_diminfo.reserve(al, 2 * asr_target0->n_args + 1);
-                    for( size_t idim = 0; idim < asr_target0->n_args; idim++ ) {
-                        this->visit_expr_wrapper(m_dims[idim].m_start, true);
-                        llvm::Value* dim_start = tmp;
-                        this->visit_expr_wrapper(m_dims[idim].m_length, true);
-                        llvm::Value* dim_size = tmp;
-                        llvm_diminfo.push_back(al, dim_start);
-                        llvm_diminfo.push_back(al, dim_size);
-                    }
-                    tmp = arr_descr->get_single_element(array, indices, asr_target0->n_args,
-                                                        true, false, llvm_diminfo.p);
-                    builder->CreateStore(target, tmp);
-                }
-            }
-        }
-    }
-
-    void visit_AssociateBlockCall(const ASR::AssociateBlockCall_t& x) {
-        LCOMPILERS_ASSERT(ASR::is_a<ASR::AssociateBlock_t>(*x.m_m));
-        ASR::AssociateBlock_t* associate_block = ASR::down_cast<ASR::AssociateBlock_t>(x.m_m);
-        declare_vars(*associate_block);
-        for (size_t i = 0; i < associate_block->n_body; i++) {
-            this->visit_stmt(*(associate_block->m_body[i]));
-        }
-    }
-
-    void visit_BlockCall(const ASR::BlockCall_t& x) {
-        if( x.m_label != -1 ) {
-            if( llvm_goto_targets.find(x.m_label) == llvm_goto_targets.end() ) {
-                llvm::BasicBlock *new_target = llvm::BasicBlock::Create(context, "goto_target");
-                llvm_goto_targets[x.m_label] = new_target;
-            }
-            start_new_block(llvm_goto_targets[x.m_label]);
-        }
-        LCOMPILERS_ASSERT(ASR::is_a<ASR::Block_t>(*x.m_m));
-        ASR::Block_t* block = ASR::down_cast<ASR::Block_t>(x.m_m);
-        declare_vars(*block);
-        for (size_t i = 0; i < block->n_body; i++) {
-            this->visit_stmt(*(block->m_body[i]));
-        }
-    }
-
-    inline void visit_expr_wrapper(const ASR::expr_t* x, bool load_ref=false) {
-        this->visit_expr(*x);
-        if( x->type == ASR::exprType::ArrayItem ||
-            x->type == ASR::exprType::ArraySection ||
-            x->type == ASR::exprType::StructInstanceMember ) {
-            if( load_ref ) {
-                tmp = CreateLoad(tmp);
-            }
-        }
-    }
-
-    void visit_IntegerCompare(const ASR::IntegerCompare_t &x) {
-        if (x.m_value) {
-            this->visit_expr_wrapper(x.m_value, true);
-            return;
-        }
-        this->visit_expr_wrapper(x.m_left, true);
-        llvm::Value *left = tmp;
-        this->visit_expr_wrapper(x.m_right, true);
-        llvm::Value *right = tmp;
-        switch (x.m_op) {
-            case (ASR::cmpopType::Eq) : {
-                tmp = builder->CreateICmpEQ(left, right);
-                break;
-            }
-            case (ASR::cmpopType::Gt) : {
-                tmp = builder->CreateICmpSGT(left, right);
-                break;
-            }
-            case (ASR::cmpopType::GtE) : {
-                tmp = builder->CreateICmpSGE(left, right);
-                break;
-            }
-            case (ASR::cmpopType::Lt) : {
-                tmp = builder->CreateICmpSLT(left, right);
-                break;
-            }
-            case (ASR::cmpopType::LtE) : {
-                tmp = builder->CreateICmpSLE(left, right);
-                break;
-            }
-            case (ASR::cmpopType::NotEq) : {
-                tmp = builder->CreateICmpNE(left, right);
-                break;
-            }
-            default : {
-                throw CodeGenError("Comparison operator not implemented",
-                        x.base.base.loc);
-            }
-        }
-    }
-
-    void visit_RealCompare(const ASR::RealCompare_t &x) {
-        if (x.m_value) {
-            this->visit_expr_wrapper(x.m_value, true);
-            return;
-        }
-        this->visit_expr_wrapper(x.m_left, true);
-        llvm::Value *left = tmp;
-        this->visit_expr_wrapper(x.m_right, true);
-        llvm::Value *right = tmp;
-        switch (x.m_op) {
-            case (ASR::cmpopType::Eq) : {
-                tmp = builder->CreateFCmpUEQ(left, right);
-                break;
-            }
-            case (ASR::cmpopType::Gt) : {
-                tmp = builder->CreateFCmpUGT(left, right);
-                break;
-            }
-            case (ASR::cmpopType::GtE) : {
-                tmp = builder->CreateFCmpUGE(left, right);
-                break;
-            }
-            case (ASR::cmpopType::Lt) : {
-                tmp = builder->CreateFCmpULT(left, right);
-                break;
-            }
-            case (ASR::cmpopType::LtE) : {
-                tmp = builder->CreateFCmpULE(left, right);
-                break;
-            }
-            case (ASR::cmpopType::NotEq) : {
-                tmp = builder->CreateFCmpUNE(left, right);
-                break;
-            }
-            default : {
-                throw CodeGenError("Comparison operator not implemented",
-                        x.base.base.loc);
-            }
-        }
-    }
-
-    void visit_ComplexCompare(const ASR::ComplexCompare_t &x) {
-        if (x.m_value) {
-            this->visit_expr_wrapper(x.m_value, true);
-            return;
-        }
-        this->visit_expr_wrapper(x.m_left, true);
-        llvm::Value *left = tmp;
-        this->visit_expr_wrapper(x.m_right, true);
-        llvm::Value *right = tmp;
-        llvm::Value* real_left = complex_re(left, left->getType());
-        llvm::Value* real_right = complex_re(right, right->getType());
-        llvm::Value* img_left = complex_im(left, left->getType());
-        llvm::Value* img_right = complex_im(right, right->getType());
-        llvm::Value *real_res, *img_res;
-        switch (x.m_op) {
-            case (ASR::cmpopType::Eq) : {
-                real_res = builder->CreateFCmpUEQ(real_left, real_right);
-                img_res = builder->CreateFCmpUEQ(img_left, img_right);
-                break;
-            }
-            case (ASR::cmpopType::NotEq) : {
-                real_res = builder->CreateFCmpUNE(real_left, real_right);
-                img_res = builder->CreateFCmpUNE(img_left, img_right);
-                break;
-            }
-            default : {
-                throw CodeGenError("Comparison operator not implemented",
-                        x.base.base.loc);
-            }
-        }
-        tmp = builder->CreateAnd(real_res, img_res);
-    }
-
-    void visit_StringCompare(const ASR::StringCompare_t &x) {
-        if (x.m_value) {
-            this->visit_expr_wrapper(x.m_value, true);
-            return;
-        }
-        this->visit_expr_wrapper(x.m_left, true);
-        llvm::Value *left = tmp;
-        this->visit_expr_wrapper(x.m_right, true);
-        llvm::Value *right = tmp;
-        std::string fn;
-        switch (x.m_op) {
-            case (ASR::cmpopType::Eq) : {
-                fn = "_lpython_str_compare_eq";
-                break;
-            }
-            case (ASR::cmpopType::NotEq) : {
-                fn = "_lpython_str_compare_noteq";
-                break;
-            }
-            case (ASR::cmpopType::Gt) : {
-                fn = "_lpython_str_compare_gt";
-                break;
-            }
-            case (ASR::cmpopType::GtE) : {
-                fn = "_lpython_str_compare_gte";
-                break;
-            }
-            case (ASR::cmpopType::Lt) : {
-                fn = "_lpython_str_compare_lt";
-                break;
-            }
-            case (ASR::cmpopType::LtE) : {
-                fn = "_lpython_str_compare_lte";
-                break;
-            }
-            default : {
-                throw CodeGenError("Comparison operator not implemented",
-                        x.base.base.loc);
-            }
-        }
-        tmp = lfortran_str_cmp(left, right, fn);
-    }
-
-    void visit_LogicalCompare(const ASR::LogicalCompare_t &x) {
-        if (x.m_value) {
-            this->visit_expr_wrapper(x.m_value, true);
-            return;
-        }
-        this->visit_expr_wrapper(x.m_left, true);
-        llvm::Value *left = tmp;
-        this->visit_expr_wrapper(x.m_right, true);
-        llvm::Value *right = tmp;
-        // i1 -> i32
-        left = builder->CreateZExt(left, llvm::Type::getInt32Ty(context));
-        right = builder->CreateZExt(right, llvm::Type::getInt32Ty(context));
-        switch (x.m_op) {
-            case (ASR::cmpopType::Eq) : {
-                tmp = builder->CreateICmpEQ(left, right);
-                break;
-            }
-            case (ASR::cmpopType::NotEq) : {
-                tmp = builder->CreateICmpNE(left, right);
-                break;
-            }
-            case (ASR::cmpopType::Gt) : {
-                tmp = builder->CreateICmpUGT(left, right);
-                break;
-            }
-            case (ASR::cmpopType::GtE) : {
-                tmp = builder->CreateICmpUGE(left, right);
-                break;
-            }
-            case (ASR::cmpopType::Lt) : {
-                tmp = builder->CreateICmpULT(left, right);
-                break;
-            }
-            case (ASR::cmpopType::LtE) : {
-                tmp = builder->CreateICmpULE(left, right);
-                break;
-            }
-            default : {
-                throw CodeGenError("Comparison operator not implemented",
-                        x.base.base.loc);
-            }
-        }
-    }
-
-    void visit_OverloadedCompare(const ASR::OverloadedCompare_t &x) {
-        this->visit_expr(*x.m_overloaded);
-    }
-
-    void visit_If(const ASR::If_t &x) {
-        this->visit_expr_wrapper(x.m_test, true);
-        create_if_else(tmp, [=]() {
-            for (size_t i=0; i<x.n_body; i++) {
-                this->visit_stmt(*x.m_body[i]);
-            }
-        }, [=]() {
-            for (size_t i=0; i<x.n_orelse; i++) {
-                this->visit_stmt(*x.m_orelse[i]);
-            }
-        });
-    }
-
-    void visit_IfExp(const ASR::IfExp_t &x) {
-        // IfExp(expr test, expr body, expr orelse, ttype type, expr? value)
-        this->visit_expr_wrapper(x.m_test, true);
-        llvm::Value *cond = tmp;
-        llvm::Value *then_val = nullptr;
-        llvm::Value *else_val = nullptr;
-        create_if_else(cond, [=, &then_val]() {
-            this->visit_expr_wrapper(x.m_body, true);
-            then_val = tmp;
-        }, [=, &else_val]() {
-            this->visit_expr_wrapper(x.m_orelse, true);
-            else_val = tmp;
-        });
-        tmp = builder->CreateSelect(cond, then_val, else_val);
-    }
-
-    void visit_WhileLoop(const ASR::WhileLoop_t &x) {
-        create_loop([=]() {
-            this->visit_expr_wrapper(x.m_test, true);
-            return tmp;
-        }, [=]() {
-            for (size_t i=0; i<x.n_body; i++) {
-                this->visit_stmt(*x.m_body[i]);
-            }
-        });
-    }
-
-    void visit_Exit(const ASR::Exit_t & /* x */) {
-        builder->CreateBr(current_loopend);
-        llvm::BasicBlock *bb = llvm::BasicBlock::Create(context, "unreachable_after_exit");
-        start_new_block(bb);
-    }
-
-    void visit_Cycle(const ASR::Cycle_t & /* x */) {
-        builder->CreateBr(current_loophead);
-        llvm::BasicBlock *bb = llvm::BasicBlock::Create(context, "unreachable_after_cycle");
-        start_new_block(bb);
-    }
-
-    void visit_Return(const ASR::Return_t & /* x */) {
-        builder->CreateBr(proc_return);
-        llvm::BasicBlock *bb = llvm::BasicBlock::Create(context, "unreachable_after_return");
-        start_new_block(bb);
-    }
-
-    void visit_GoTo(const ASR::GoTo_t &x) {
-        if (llvm_goto_targets.find(x.m_target_id) == llvm_goto_targets.end()) {
-            // If the target does not exist yet, create it
-            llvm::BasicBlock *new_target = llvm::BasicBlock::Create(context, "goto_target");
-            llvm_goto_targets[x.m_target_id] = new_target;
-        }
-        llvm::BasicBlock *target = llvm_goto_targets[x.m_target_id];
-        builder->CreateBr(target);
-        llvm::BasicBlock *bb = llvm::BasicBlock::Create(context, "unreachable_after_goto");
-        start_new_block(bb);
-    }
-
-    void visit_GoToTarget(const ASR::GoToTarget_t &x) {
-        if (llvm_goto_targets.find(x.m_id) == llvm_goto_targets.end()) {
-            // If the target does not exist yet, create it
-            llvm::BasicBlock *new_target = llvm::BasicBlock::Create(context, "goto_target");
-            llvm_goto_targets[x.m_id] = new_target;
-        }
-        llvm::BasicBlock *target = llvm_goto_targets[x.m_id];
-        start_new_block(target);
-    }
-
-    void visit_LogicalBinOp(const ASR::LogicalBinOp_t &x) {
-        if (x.m_value) {
-            this->visit_expr_wrapper(x.m_value, true);
-            return;
-        }
-        this->visit_expr_wrapper(x.m_left, true);
-        llvm::Value *left_val = tmp;
-        this->visit_expr_wrapper(x.m_right, true);
-        llvm::Value *right_val = tmp;
-        llvm::Value *zero, *cond;
-        llvm::AllocaInst *result;
-        if (ASRUtils::is_integer(*x.m_type)) {
-            int a_kind = down_cast<ASR::Integer_t>(x.m_type)->m_kind;
-            int init_value_bits = 8*a_kind;
-            zero = llvm::ConstantInt::get(context,
-                            llvm::APInt(init_value_bits, 0));
-            cond = builder->CreateICmpEQ(left_val, zero);
-            result = builder->CreateAlloca(getIntType(a_kind), nullptr);
-        } else if (ASRUtils::is_real(*x.m_type)) {
-            int a_kind = down_cast<ASR::Real_t>(x.m_type)->m_kind;
-            int init_value_bits = 8*a_kind;
-            if (init_value_bits == 32) {
-                zero = llvm::ConstantFP::get(context,
-                                    llvm::APFloat((float)0));
-            } else {
-                zero = llvm::ConstantFP::get(context,
-                                    llvm::APFloat((double)0));
-            }
-            result = builder->CreateAlloca(getFPType(a_kind), nullptr);
-            cond = builder->CreateFCmpUEQ(left_val, zero);
-        } else if (ASRUtils::is_character(*x.m_type)) {
-            zero = llvm::Constant::getNullValue(character_type);
-            cond = lfortran_str_cmp(left_val, zero, "_lpython_str_compare_eq");
-            result = builder->CreateAlloca(character_type, nullptr);
-        } else if (ASRUtils::is_logical(*x.m_type)) {
-            zero = llvm::ConstantInt::get(context,
-                            llvm::APInt(1, 0));
-            cond = builder->CreateICmpEQ(left_val, zero);
-            result = builder->CreateAlloca(llvm::Type::getInt1Ty(context), nullptr);
-        } else {
-            throw CodeGenError("Only Integer, Real, Strings and Logical types are supported "
-            "in logical binary operation.", x.base.base.loc);
-        }
-        switch (x.m_op) {
-            case ASR::logicalbinopType::And: {
-                create_if_else(cond, [&, result, left_val]() {
-                    LLVM::CreateStore(*builder, left_val, result);
-                }, [&, result, right_val]() {
-                    LLVM::CreateStore(*builder, right_val, result);
-                });
-                tmp = LLVM::CreateLoad(*builder, result);
-                break;
-            };
-            case ASR::logicalbinopType::Or: {
-                create_if_else(cond, [&, result, right_val]() {
-                    LLVM::CreateStore(*builder, right_val, result);
-
-                }, [&, result, left_val]() {
-                    LLVM::CreateStore(*builder, left_val, result);
-                });
-                tmp = LLVM::CreateLoad(*builder, result);
-                break;
-            };
-            case ASR::logicalbinopType::Xor: {
-                tmp = builder->CreateXor(left_val, right_val);
-                break;
-            };
-            case ASR::logicalbinopType::NEqv: {
-                tmp = builder->CreateXor(left_val, right_val);
-                break;
-            };
-            case ASR::logicalbinopType::Eqv: {
-                tmp = builder->CreateXor(left_val, right_val);
-                tmp = builder->CreateNot(tmp);
-            };
-        }
-    }
-
-    void visit_StringRepeat(const ASR::StringRepeat_t &x) {
-        if (x.m_value) {
-            this->visit_expr_wrapper(x.m_value, true);
-            return;
-        }
-        this->visit_expr_wrapper(x.m_left, true);
-        llvm::Value *left_val = tmp;
-        this->visit_expr_wrapper(x.m_right, true);
-        llvm::Value *right_val = tmp;
-        tmp = lfortran_strrepeat(left_val, right_val);
-    }
-
-    void visit_StringConcat(const ASR::StringConcat_t &x) {
-        if (x.m_value) {
-            this->visit_expr_wrapper(x.m_value, true);
-            return;
-        }
-        this->visit_expr_wrapper(x.m_left, true);
-        llvm::Value *left_val = tmp;
-        this->visit_expr_wrapper(x.m_right, true);
-        llvm::Value *right_val = tmp;
-        tmp = lfortran_strop(left_val, right_val, "_lfortran_strcat");
-    }
-
-    void visit_StringLen(const ASR::StringLen_t &x) {
-        if (x.m_value) {
-            this->visit_expr_wrapper(x.m_value, true);
-            return;
-        }
-        this->visit_expr_wrapper(x.m_arg, true);
-        llvm::AllocaInst *parg = builder->CreateAlloca(character_type, nullptr);
-        builder->CreateStore(tmp, parg);
-        tmp = lfortran_str_len(parg);
-    }
-
-    void visit_StringOrd(const ASR::StringOrd_t &x) {
-        if (x.m_value) {
-            this->visit_expr_wrapper(x.m_value, true);
-            return;
-        }
-        this->visit_expr_wrapper(x.m_arg, true);
-        llvm::AllocaInst *parg = builder->CreateAlloca(character_type, nullptr);
-        builder->CreateStore(tmp, parg);
-        tmp = lfortran_str_ord(parg);
-    }
-
-    void visit_StringChr(const ASR::StringChr_t &x) {
-        if (x.m_value) {
-            this->visit_expr_wrapper(x.m_value, true);
-            return;
-        }
-        this->visit_expr_wrapper(x.m_arg, true);
-        tmp = lfortran_str_chr(tmp);
-    }
-
-    void visit_StringItem(const ASR::StringItem_t& x) {
-        if (x.m_value) {
-            this->visit_expr_wrapper(x.m_value, true);
-            return;
-        }
-        this->visit_expr_wrapper(x.m_idx, true);
-        llvm::Value *idx = tmp;
-        this->visit_expr_wrapper(x.m_arg, true);
-        llvm::Value *str = tmp;
-        tmp = lfortran_str_copy(str, idx, idx);
-    }
-
-    void visit_StringSection(const ASR::StringSection_t& x) {
-        if (x.m_value) {
-            this->visit_expr_wrapper(x.m_value, true);
-            return;
-         }
-        this->visit_expr_wrapper(x.m_arg, true);
-        llvm::Value *str = tmp;
-        llvm::Value *left, *right, *step;
-        llvm::Value *left_present, *right_present;
-        if (x.m_start) {
-            this->visit_expr_wrapper(x.m_start, true);
-            left = tmp;
-            left_present = llvm::ConstantInt::get(context,
-                llvm::APInt(1, 1));
-        } else {
-            left = llvm::Constant::getNullValue(llvm::Type::getInt32Ty(context));
-            left_present = llvm::ConstantInt::get(context,
-                llvm::APInt(1, 0));
-        }
-        if (x.m_end) {
-            this->visit_expr_wrapper(x.m_end, true);
-            right = tmp;
-            right_present = llvm::ConstantInt::get(context,
-                llvm::APInt(1, 1));
-        } else {
-            right = llvm::Constant::getNullValue(llvm::Type::getInt32Ty(context));
-            right_present = llvm::ConstantInt::get(context,
-                llvm::APInt(1, 0));
-        }
-        if (x.m_step) {
-            this->visit_expr_wrapper(x.m_step, true);
-            step = tmp;
-        } else {
-            step = llvm::ConstantInt::get(context,
-                llvm::APInt(32, 1));
-        }
-        tmp = lfortran_str_slice(str, left, right, step, left_present, right_present);
-    }
-
-    void visit_IntegerBinOp(const ASR::IntegerBinOp_t &x) {
-        if (x.m_value) {
-            this->visit_expr_wrapper(x.m_value, true);
-            return;
-        }
-        this->visit_expr_wrapper(x.m_left, true);
-        llvm::Value *left_val = tmp;
-        this->visit_expr_wrapper(x.m_right, true);
-        llvm::Value *right_val = tmp;
-        LCOMPILERS_ASSERT(ASRUtils::is_integer(*x.m_type))
-        switch (x.m_op) {
-            case ASR::binopType::Add: {
-                tmp = builder->CreateAdd(left_val, right_val);
-                break;
-            };
-            case ASR::binopType::Sub: {
-                tmp = builder->CreateSub(left_val, right_val);
-                break;
-            };
-            case ASR::binopType::Mul: {
-                tmp = builder->CreateMul(left_val, right_val);
-                break;
-            };
-            case ASR::binopType::Div: {
-                tmp = builder->CreateUDiv(left_val, right_val);
-                break;
-            };
-            case ASR::binopType::Pow: {
-                llvm::Type *type;
-                int a_kind;
-                a_kind = down_cast<ASR::Integer_t>(ASRUtils::type_get_past_pointer(x.m_type))->m_kind;
-                type = getFPType(a_kind);
-                llvm::Value *fleft = builder->CreateSIToFP(left_val,
-                        type);
-                llvm::Value *fright = builder->CreateSIToFP(right_val,
-                        type);
-                std::string func_name = a_kind == 4 ? "llvm.pow.f32" : "llvm.pow.f64";
-                llvm::Function *fn_pow = module->getFunction(func_name);
-                if (!fn_pow) {
-                    llvm::FunctionType *function_type = llvm::FunctionType::get(
-                            type, { type, type}, false);
-                    fn_pow = llvm::Function::Create(function_type,
-                            llvm::Function::ExternalLinkage, func_name,
-                            module.get());
-                }
-                tmp = builder->CreateCall(fn_pow, {fleft, fright});
-                type = getIntType(a_kind);
-                tmp = builder->CreateFPToSI(tmp, type);
-                break;
-            };
-            case ASR::binopType::BitOr: {
-                tmp = builder->CreateOr(left_val, right_val);
-                break;
-            }
-            case ASR::binopType::BitAnd: {
-                tmp = builder->CreateAnd(left_val, right_val);
-                break;
-            }
-            case ASR::binopType::BitXor: {
-                tmp = builder->CreateXor(left_val, right_val);
-                break;
-            }
-            case ASR::binopType::BitLShift: {
-                tmp = builder->CreateShl(left_val, right_val);
-                break;
-            }
-            case ASR::binopType::BitRShift: {
-                tmp = builder->CreateAShr(left_val, right_val);
-                break;
-            }
-        }
-    }
-
-    void visit_RealBinOp(const ASR::RealBinOp_t &x) {
-        if (x.m_value) {
-            this->visit_expr_wrapper(x.m_value, true);
-            return;
-        }
-        lookup_enum_value_for_nonints = true;
-        this->visit_expr_wrapper(x.m_left, true);
-        llvm::Value *left_val = tmp;
-        this->visit_expr_wrapper(x.m_right, true);
-        llvm::Value *right_val = tmp;
-        lookup_enum_value_for_nonints = false;
-        LCOMPILERS_ASSERT(ASRUtils::is_real(*x.m_type))
-        switch (x.m_op) {
-            case ASR::binopType::Add: {
-                tmp = builder->CreateFAdd(left_val, right_val);
-                break;
-            };
-            case ASR::binopType::Sub: {
-                tmp = builder->CreateFSub(left_val, right_val);
-                break;
-            };
-            case ASR::binopType::Mul: {
-                tmp = builder->CreateFMul(left_val, right_val);
-                break;
-            };
-            case ASR::binopType::Div: {
-                tmp = builder->CreateFDiv(left_val, right_val);
-                break;
-            };
-            case ASR::binopType::Pow: {
-                llvm::Type *type;
-                int a_kind;
-                a_kind = down_cast<ASR::Real_t>(ASRUtils::type_get_past_pointer(x.m_type))->m_kind;
-                type = getFPType(a_kind);
-                std::string func_name = a_kind == 4 ? "llvm.pow.f32" : "llvm.pow.f64";
-                llvm::Function *fn_pow = module->getFunction(func_name);
-                if (!fn_pow) {
-                    llvm::FunctionType *function_type = llvm::FunctionType::get(
-                            type, { type, type }, false);
-                    fn_pow = llvm::Function::Create(function_type,
-                            llvm::Function::ExternalLinkage, func_name,
-                            module.get());
-                }
-                tmp = builder->CreateCall(fn_pow, {left_val, right_val});
-                break;
-            };
-            default: {
-                throw CodeGenError("Binary operator '" + ASRUtils::binop_to_str_python(x.m_op) + "' not supported",
-                    x.base.base.loc);
-            }
-        }
-    }
-
-    void visit_ComplexBinOp(const ASR::ComplexBinOp_t &x) {
-        if (x.m_value) {
-            this->visit_expr_wrapper(x.m_value, true);
-            return;
-        }
-        this->visit_expr_wrapper(x.m_left, true);
-        llvm::Value *left_val = tmp;
-        this->visit_expr_wrapper(x.m_right, true);
-        llvm::Value *right_val = tmp;
-        LCOMPILERS_ASSERT(ASRUtils::is_complex(*x.m_type));
-        llvm::Type *type;
-        int a_kind;
-        a_kind = down_cast<ASR::Complex_t>(ASRUtils::type_get_past_pointer(x.m_type))->m_kind;
-        type = getComplexType(a_kind);
-        if( left_val->getType()->isPointerTy() ) {
-            left_val = CreateLoad(left_val);
-        }
-        if( right_val->getType()->isPointerTy() ) {
-            right_val = CreateLoad(right_val);
-        }
-        std::string fn_name;
-        switch (x.m_op) {
-            case ASR::binopType::Add: {
-                if (a_kind == 4) {
-                    fn_name = "_lfortran_complex_add_32";
-                } else {
-                    fn_name = "_lfortran_complex_add_64";
-                }
-                break;
-            };
-            case ASR::binopType::Sub: {
-                if (a_kind == 4) {
-                    fn_name = "_lfortran_complex_sub_32";
-                } else {
-                    fn_name = "_lfortran_complex_sub_64";
-                }
-                break;
-            };
-            case ASR::binopType::Mul: {
-                if (a_kind == 4) {
-                    fn_name = "_lfortran_complex_mul_32";
-                } else {
-                    fn_name = "_lfortran_complex_mul_64";
-                }
-                break;
-            };
-            case ASR::binopType::Div: {
-                if (a_kind == 4) {
-                    fn_name = "_lfortran_complex_div_32";
-                } else {
-                    fn_name = "_lfortran_complex_div_64";
-                }
-                break;
-            };
-            case ASR::binopType::Pow: {
-                if (a_kind == 4) {
-                    fn_name = "_lfortran_complex_pow_32";
-                } else {
-                    fn_name = "_lfortran_complex_pow_64";
-                }
-                break;
-            };
-            default: {
-                throw CodeGenError("Binary operator '" + ASRUtils::binop_to_str_python(x.m_op) + "' not supported",
-                    x.base.base.loc);
-            }
-        }
-        tmp = lfortran_complex_bin_op(left_val, right_val, fn_name, type);
-    }
-
-    void visit_OverloadedBinOp(const ASR::OverloadedBinOp_t &x) {
-        this->visit_expr(*x.m_overloaded);
-    }
-
-    void visit_IntegerBitNot(const ASR::IntegerBitNot_t &x) {
-        if (x.m_value) {
-            this->visit_expr_wrapper(x.m_value, true);
-            return;
-        }
-        this->visit_expr_wrapper(x.m_arg, true);
-        tmp = builder->CreateNot(tmp);
-    }
-
-    void visit_IntegerUnaryMinus(const ASR::IntegerUnaryMinus_t &x) {
-        if (x.m_value) {
-            this->visit_expr_wrapper(x.m_value, true);
-            return;
-        }
-        this->visit_expr_wrapper(x.m_arg, true);
-        llvm::Value *zero = llvm::ConstantInt::get(context,
-            llvm::APInt(ASRUtils::extract_kind_from_ttype_t(ASRUtils::expr_type(x.m_arg)) * 8, 0));
-        tmp = builder->CreateSub(zero, tmp);
-    }
-
-    void visit_RealUnaryMinus(const ASR::RealUnaryMinus_t &x) {
-        if (x.m_value) {
-            this->visit_expr_wrapper(x.m_value, true);
-            return;
-        }
-        this->visit_expr_wrapper(x.m_arg, true);
-        llvm::Value *zero;
-        int a_kind = down_cast<ASR::Real_t>(x.m_type)->m_kind;
-        if (a_kind == 4) {
-            zero = llvm::ConstantFP::get(context,
-                llvm::APFloat((float)0.0));
-        } else if (a_kind == 8) {
-            zero = llvm::ConstantFP::get(context,
-                llvm::APFloat((double)0.0));
-        } else {
-            throw CodeGenError("RealUnaryMinus: kind not supported yet");
-        }
-
-        tmp = builder->CreateFSub(zero, tmp);
-    }
-
-    void visit_ComplexUnaryMinus(const ASR::ComplexUnaryMinus_t &x) {
-        if (x.m_value) {
-            this->visit_expr_wrapper(x.m_value, true);
-            return;
-        }
-        this->visit_expr_wrapper(x.m_arg, true);
-        llvm::Value *c = tmp;
-        double re = 0.0;
-        double im = 0.0;
-        llvm::Value *re2, *im2;
-        llvm::Type *type;
-        int a_kind = down_cast<ASR::Complex_t>(x.m_type)->m_kind;
-        std::string f_name;
-        switch (a_kind) {
-            case 4: {
-                re2 = llvm::ConstantFP::get(context, llvm::APFloat((float)re));
-                im2 = llvm::ConstantFP::get(context, llvm::APFloat((float)im));
-                type = complex_type_4;
-                f_name = "_lfortran_complex_sub_32";
-                break;
-            }
-            case 8: {
-                re2 = llvm::ConstantFP::get(context, llvm::APFloat(re));
-                im2 = llvm::ConstantFP::get(context, llvm::APFloat(im));
-                type = complex_type_8;
-                f_name = "_lfortran_complex_sub_64";
-                break;
-            }
-            default: {
-                throw CodeGenError("kind type is not supported");
-            }
-        }
-        tmp = complex_from_floats(re2, im2, type);
-        llvm::Value *zero_c = tmp;
-        tmp = lfortran_complex_bin_op(zero_c, c, f_name, type);
-    }
-
-    void visit_IntegerConstant(const ASR::IntegerConstant_t &x) {
-        int64_t val = x.m_n;
-        int a_kind = ASRUtils::extract_kind_from_ttype_t(x.m_type);
-        switch( a_kind ) {
-
-            case 1: {
-                tmp = llvm::ConstantInt::get(context, llvm::APInt(8, val, true));
-                break ;
-            }
-            case 2: {
-                tmp = llvm::ConstantInt::get(context, llvm::APInt(16, val, true));
-                break ;
-            }
-            case 4 : {
-                tmp = llvm::ConstantInt::get(context, llvm::APInt(32, static_cast<int32_t>(val), true));
-                break;
-            }
-            case 8 : {
-                tmp = llvm::ConstantInt::get(context, llvm::APInt(64, val, true));
-                break;
-            }
-            default : {
-                throw CodeGenError("Constant integers of " + std::to_string(a_kind)
-                                    + " bytes aren't supported yet.");
-            }
-
-        }
-    }
-
-    void visit_RealConstant(const ASR::RealConstant_t &x) {
-        double val = x.m_r;
-        int a_kind = ((ASR::Real_t*)(&(x.m_type->base)))->m_kind;
-        switch( a_kind ) {
-
-            case 4 : {
-                tmp = llvm::ConstantFP::get(context, llvm::APFloat((float)val));
-                break;
-            }
-            case 8 : {
-                tmp = llvm::ConstantFP::get(context, llvm::APFloat(val));
-                break;
-            }
-            default : {
-                break;
-            }
-
-        }
-
-    }
-
-    void visit_ArrayConstant(const ASR::ArrayConstant_t &x) {
-        llvm::Type* el_type;
-        if (ASR::is_a<ASR::Integer_t>(*x.m_type)) {
-            el_type = getIntType(ASR::down_cast<ASR::Integer_t>(x.m_type)->m_kind);
-        } else if (ASR::is_a<ASR::Real_t>(*x.m_type)) {
-            switch (ASR::down_cast<ASR::Real_t>(x.m_type)->m_kind) {
-                case (4) :
-                    el_type = llvm::Type::getFloatTy(context); break;
-                case (8) :
-                    el_type = llvm::Type::getDoubleTy(context); break;
-                default :
-                    throw CodeGenError("ConstArray real kind not supported yet");
-            }
-        } else {
-            throw CodeGenError("ConstArray type not supported yet");
-        }
-        // Create <n x float> type, where `n` is the length of the `x` constant array
-        llvm::Type* type_fxn = FIXED_VECTOR_TYPE::get(el_type, x.n_args);
-        // Create a pointer <n x float>* to a stack allocated <n x float>
-        llvm::AllocaInst *p_fxn = builder->CreateAlloca(type_fxn, nullptr);
-        // Assign the array elements to `p_fxn`.
-        for (size_t i=0; i < x.n_args; i++) {
-            llvm::Value *llvm_el = llvm_utils->create_gep(p_fxn, i);
-            ASR::expr_t *el = x.m_args[i];
-            llvm::Value *llvm_val;
-            if (ASR::is_a<ASR::Integer_t>(*x.m_type)) {
-                ASR::IntegerConstant_t *ci = ASR::down_cast<ASR::IntegerConstant_t>(el);
-                switch (ASR::down_cast<ASR::Integer_t>(x.m_type)->m_kind) {
-                    case (4) : {
-                        int32_t el_value = ci->m_n;
-                        llvm_val = llvm::ConstantInt::get(context, llvm::APInt(32, static_cast<int32_t>(el_value), true));
-                        break;
-                    }
-                    case (8) : {
-                        int64_t el_value = ci->m_n;
-                        llvm_val = llvm::ConstantInt::get(context, llvm::APInt(32, el_value, true));
-                        break;
-                    }
-                    default :
-                        throw CodeGenError("ConstArray integer kind not supported yet");
-                }
-            } else if (ASR::is_a<ASR::Real_t>(*x.m_type)) {
-                ASR::RealConstant_t *cr = ASR::down_cast<ASR::RealConstant_t>(el);
-                switch (ASR::down_cast<ASR::Real_t>(x.m_type)->m_kind) {
-                    case (4) : {
-                        float el_value = cr->m_r;
-                        llvm_val = llvm::ConstantFP::get(context, llvm::APFloat(el_value));
-                        break;
-                    }
-                    case (8) : {
-                        double el_value = cr->m_r;
-                        llvm_val = llvm::ConstantFP::get(context, llvm::APFloat(el_value));
-                        break;
-                    }
-                    default :
-                        throw CodeGenError("ConstArray real kind not supported yet");
-                }
-            } else {
-                throw CodeGenError("ConstArray type not supported yet");
-            }
-            builder->CreateStore(llvm_val, llvm_el);
-        }
-        // Return the vector as float* type:
-        tmp = llvm_utils->create_gep(p_fxn, 0);
-    }
-
-    void visit_Assert(const ASR::Assert_t &x) {
-        if (compiler_options.emit_debug_info) debug_emit_loc(x);
-        this->visit_expr_wrapper(x.m_test, true);
-        create_if_else(tmp, []() {}, [=]() {
-            if (compiler_options.emit_debug_info) {
-                llvm::Value *fmt_ptr = builder->CreateGlobalStringPtr(infile);
-                llvm::Value *fmt_ptr1 = llvm::ConstantInt::get(context, llvm::APInt(
-                    1, compiler_options.use_colors));
-                call_print_stacktrace_addresses(context, *module, *builder,
-                    {fmt_ptr, fmt_ptr1});
-            }
-            if (x.m_msg) {
-                char* s = ASR::down_cast<ASR::StringConstant_t>(x.m_msg)->m_s;
-                llvm::Value *fmt_ptr = builder->CreateGlobalStringPtr("AssertionError: %s\n");
-                llvm::Value *fmt_ptr2 = builder->CreateGlobalStringPtr(s);
-                print_error(context, *module, *builder, {fmt_ptr, fmt_ptr2});
-            } else {
-                llvm::Value *fmt_ptr = builder->CreateGlobalStringPtr("AssertionError\n");
-                print_error(context, *module, *builder, {fmt_ptr});
-            }
-            int exit_code_int = 1;
-            llvm::Value *exit_code = llvm::ConstantInt::get(context,
-                    llvm::APInt(32, exit_code_int));
-            exit(context, *module, *builder, exit_code);
-        });
-    }
-
-    void visit_ComplexConstructor(const ASR::ComplexConstructor_t &x) {
-        if (x.m_value) {
-            this->visit_expr_wrapper(x.m_value, true);
-            return;
-        }
-        throw CodeGenError("ComplexConstructor with runtime arguments not implemented yet.");
-    }
-
-    void visit_ComplexConstant(const ASR::ComplexConstant_t &x) {
-        double re = x.m_re;
-        double im = x.m_im;
-        int a_kind = ASRUtils::extract_kind_from_ttype_t(x.m_type);
-        llvm::Value *re2, *im2;
-        llvm::Type *type;
-        switch( a_kind ) {
-            case 4: {
-                re2 = llvm::ConstantFP::get(context, llvm::APFloat((float)re));
-                im2 = llvm::ConstantFP::get(context, llvm::APFloat((float)im));
-                type = complex_type_4;
-                break;
-            }
-            case 8: {
-                re2 = llvm::ConstantFP::get(context, llvm::APFloat(re));
-                im2 = llvm::ConstantFP::get(context, llvm::APFloat(im));
-                type = complex_type_8;
-                break;
-            }
-            default: {
-                throw CodeGenError("kind type is not supported");
-            }
-        }
-        tmp = complex_from_floats(re2, im2, type);
-    }
-
-    void visit_LogicalConstant(const ASR::LogicalConstant_t &x) {
-        int val;
-        if (x.m_value == true) {
-            val = 1;
-        } else {
-            val = 0;
-        }
-        tmp = llvm::ConstantInt::get(context, llvm::APInt(1, val));
-    }
-
-    void visit_LogicalNot(const ASR::LogicalNot_t &x) {
-        if (x.m_value) {
-            this->visit_expr_wrapper(x.m_value, true);
-            return;
-        }
-        this->visit_expr_wrapper(x.m_arg, true);
-        llvm::Value *arg = tmp;
-        tmp = builder->CreateNot(arg);
-    }
-
-    void visit_StringConstant(const ASR::StringConstant_t &x) {
-        tmp = builder->CreateGlobalStringPtr(x.m_s);
-    }
-
-    inline void fetch_ptr(ASR::Variable_t* x) {
-        uint32_t x_h = get_hash((ASR::asr_t*)x);
-        LCOMPILERS_ASSERT(llvm_symtab.find(x_h) != llvm_symtab.end());
-        llvm::Value* x_v = llvm_symtab[x_h];
-        int64_t ptr_loads_copy = ptr_loads;
-        tmp = x_v;
-        while( ptr_loads_copy-- ) {
-            tmp = CreateLoad(tmp);
-        }
-    }
-
-    inline void fetch_val(ASR::Variable_t* x) {
-        uint32_t x_h = get_hash((ASR::asr_t*)x);
-        llvm::Value* x_v;
-        // Check if x is a needed global here, if so, it should exist as an
-        // element in the runtime descriptor, get element pointer and create
-        // load
-        if (llvm_symtab.find(x_h) == llvm_symtab.end()) {
-            LCOMPILERS_ASSERT(std::find(nested_globals.begin(),
-                    nested_globals.end(), x_h) != nested_globals.end());
-            auto finder = std::find(nested_globals.begin(),
-                    nested_globals.end(), x_h);
-            llvm::Constant *ptr = module->getOrInsertGlobal(nested_desc_name,
-                nested_global_struct);
-            int idx = std::distance(nested_globals.begin(), finder);
-            std::vector<llvm::Value*> idx_vec = {
-            llvm::ConstantInt::get(context, llvm::APInt(32, 0)),
-            llvm::ConstantInt::get(context, llvm::APInt(32, idx))};
-            x_v = CreateLoad(CreateGEP(ptr, idx_vec));
-        } else {
-            x_v = llvm_symtab[x_h];
-            if (x->m_value_attr) {
-                // Already a value, such as value argument to bind(c)
-                tmp = x_v;
-                return;
-            }
-        }
-        if( arr_descr->is_array(ASRUtils::get_contained_type(x->m_type)) ) {
-            tmp = x_v;
-        } else {
-            tmp = x_v;
-            // Load only once since its a value
-            if( ptr_loads > 0 ) {
-                tmp = CreateLoad(tmp);
-            }
-        }
-    }
-
-    inline void fetch_var(ASR::Variable_t* x) {
-        if (x->m_value) {
-            this->visit_expr_wrapper(x->m_value, true);
-            return;
-        }
-        switch( x->m_type->type ) {
-            case ASR::ttypeType::Pointer: {
-                ASR::ttype_t *t2 = ASRUtils::type_get_past_pointer(x->m_type);
-                switch (t2->type) {
-                    case ASR::ttypeType::Integer:
-                    case ASR::ttypeType::Real:
-                    case ASR::ttypeType::Complex:
-                    case ASR::ttypeType::Struct: {
-                        if( t2->type == ASR::ttypeType::Struct ) {
-                            ASR::Struct_t* d = ASR::down_cast<ASR::Struct_t>(t2);
-                            der_type_name = ASRUtils::symbol_name(d->m_derived_type);
-                        }
-                        fetch_ptr(x);
-                        break;
-                    }
-                    case ASR::ttypeType::Character:
-                    case ASR::ttypeType::Logical: {
-                        break;
-                    }
-                    default:
-                        break;
-                }
-                break;
-            }
-            case ASR::ttypeType::Struct: {
-                ASR::Struct_t* der = (ASR::Struct_t*)(&(x->m_type->base));
-                ASR::StructType_t* der_type = (ASR::StructType_t*)(&(der->m_derived_type->base));
-                der_type_name = std::string(der_type->m_name);
-                uint32_t h = get_hash((ASR::asr_t*)x);
-                if( llvm_symtab.find(h) != llvm_symtab.end() ) {
-                    tmp = llvm_symtab[h];
-                }
-                break;
-            }
-            case ASR::ttypeType::Union: {
-                ASR::Union_t* der = ASR::down_cast<ASR::Union_t>(x->m_type);
-                ASR::UnionType_t* der_type = ASR::down_cast<ASR::UnionType_t>(
-                    ASRUtils::symbol_get_past_external(der->m_union_type));
-                der_type_name = std::string(der_type->m_name);
-                uint32_t h = get_hash((ASR::asr_t*)x);
-                if( llvm_symtab.find(h) != llvm_symtab.end() ) {
-                    tmp = llvm_symtab[h];
-                }
-                break;
-            }
-            case ASR::ttypeType::Class: {
-                ASR::Class_t* der = (ASR::Class_t*)(&(x->m_type->base));
-                ASR::ClassType_t* der_type = (ASR::ClassType_t*)(&(der->m_class_type->base));
-                der_type_name = std::string(der_type->m_name);
-                uint32_t h = get_hash((ASR::asr_t*)x);
-                if( llvm_symtab.find(h) != llvm_symtab.end() ) {
-                    tmp = llvm_symtab[h];
-                }
-                break;
-            }
-            default: {
-                fetch_val(x);
-                break;
-            }
-        }
-    }
-
-    void visit_Var(const ASR::Var_t &x) {
-        ASR::Variable_t *v = ASR::down_cast<ASR::Variable_t>(
-                symbol_get_past_external(x.m_v));
-        fetch_var(v);
-    }
-
-    inline ASR::ttype_t* extract_ttype_t_from_expr(ASR::expr_t* expr) {
-        return ASRUtils::expr_type(expr);
-    }
-
-    void extract_kinds(const ASR::Cast_t& x,
-                       int& arg_kind, int& dest_kind)
-    {
-        dest_kind = ASRUtils::extract_kind_from_ttype_t(x.m_type);
-        ASR::ttype_t* curr_type = extract_ttype_t_from_expr(x.m_arg);
-        LCOMPILERS_ASSERT(curr_type != nullptr)
-        arg_kind = ASRUtils::extract_kind_from_ttype_t(curr_type);
-    }
-
-    void visit_ComplexRe(const ASR::ComplexRe_t &x) {
-        if (x.m_value) {
-            this->visit_expr_wrapper(x.m_value, true);
-            return;
-        }
-        this->visit_expr_wrapper(x.m_arg, true);
-        ASR::ttype_t* curr_type = extract_ttype_t_from_expr(x.m_arg);
-        int arg_kind = ASRUtils::extract_kind_from_ttype_t(curr_type);
-        int dest_kind = ASRUtils::extract_kind_from_ttype_t(x.m_type);
-        llvm::Value *re;
-        if (arg_kind == 4 && dest_kind == 4) {
-            // complex(4) -> real(4)
-            re = complex_re(tmp, complex_type_4);
-            tmp = re;
-        } else if (arg_kind == 4 && dest_kind == 8) {
-            // complex(4) -> real(8)
-            re = complex_re(tmp, complex_type_4);
-            tmp = builder->CreateFPExt(re, llvm::Type::getDoubleTy(context));
-        } else if (arg_kind == 8 && dest_kind == 4) {
-            // complex(8) -> real(4)
-            re = complex_re(tmp, complex_type_8);
-            tmp = builder->CreateFPTrunc(re, llvm::Type::getFloatTy(context));
-        } else if (arg_kind == 8 && dest_kind == 8) {
-            // complex(8) -> real(8)
-            re = complex_re(tmp, complex_type_8);
-            tmp = re;
-        } else {
-            std::string msg = "Conversion from " + std::to_string(arg_kind) +
-                              " to " + std::to_string(dest_kind) + " not implemented yet.";
-            throw CodeGenError(msg);
-        }
-    }
-
-    void visit_ComplexIm(const ASR::ComplexIm_t &x) {
-        if (x.m_value) {
-            this->visit_expr_wrapper(x.m_value, true);
-            return;
-        }
-        ASR::ttype_t* curr_type = extract_ttype_t_from_expr(x.m_arg);
-        int arg_kind = ASRUtils::extract_kind_from_ttype_t(curr_type);
-        llvm::Function *fn = nullptr;
-        llvm::Type *ret_type = nullptr, *complex_type = nullptr;
-        llvm::AllocaInst *arg = nullptr;
-        std::string runtime_func_name = "";
-        if (arg_kind == 4) {
-            runtime_func_name = "_lfortran_complex_aimag_32";
-            ret_type = llvm::Type::getFloatTy(context);
-            complex_type = complex_type_4;
-            arg = builder->CreateAlloca(complex_type_4,
-                nullptr);
-        } else {
-             runtime_func_name = "_lfortran_complex_aimag_64";
-            ret_type = llvm::Type::getDoubleTy(context);
-            complex_type = complex_type_8;
-            arg = builder->CreateAlloca(complex_type_8,
-                nullptr);
-        }
-        fn = module->getFunction(runtime_func_name);
-        if (!fn) {
-            llvm::FunctionType *function_type = llvm::FunctionType::get(
-                    llvm::Type::getVoidTy(context), {
-                        complex_type->getPointerTo(),
-                        ret_type->getPointerTo(),
-                    }, true);
-            fn = llvm::Function::Create(function_type,
-                    llvm::Function::ExternalLinkage, runtime_func_name, *module);
-        }
-        this->visit_expr_wrapper(x.m_arg, true);
-        builder->CreateStore(tmp, arg);
-        llvm::AllocaInst *result = builder->CreateAlloca(ret_type, nullptr);
-        std::vector<llvm::Value*> args = {arg, result};
-        builder->CreateCall(fn, args);
-        tmp = CreateLoad(result);
-    }
-
-    void visit_Cast(const ASR::Cast_t &x) {
-        if (x.m_value) {
-            this->visit_expr_wrapper(x.m_value, true);
-            return;
-        }
-        this->visit_expr_wrapper(x.m_arg, true);
-        switch (x.m_kind) {
-            case (ASR::cast_kindType::IntegerToReal) : {
-                int a_kind = ASRUtils::extract_kind_from_ttype_t(x.m_type);
-                tmp = builder->CreateSIToFP(tmp, getFPType(a_kind, false));
-		        break;
-            }
-            case (ASR::cast_kindType::LogicalToReal) : {
-                int a_kind = ASRUtils::extract_kind_from_ttype_t(x.m_type);
-                tmp = builder->CreateUIToFP(tmp, getFPType(a_kind, false));
-                break;
-            }
-            case (ASR::cast_kindType::RealToInteger) : {
-                llvm::Type *target_type;
-                int a_kind = ASRUtils::extract_kind_from_ttype_t(x.m_type);
-                target_type = getIntType(a_kind);
-                tmp = builder->CreateFPToSI(tmp, target_type);
-                break;
-            }
-            case (ASR::cast_kindType::RealToComplex) : {
-                llvm::Type *target_type;
-                llvm::Value *zero;
-                int a_kind = ASRUtils::extract_kind_from_ttype_t(x.m_type);
-                switch(a_kind)
-                {
-                    case 4:
-                        target_type = complex_type_4;
-                        tmp = builder->CreateFPTrunc(tmp, llvm::Type::getFloatTy(context));
-                        zero = llvm::ConstantFP::get(context, llvm::APFloat((float)0.0));
-                        break;
-                    case 8:
-                        target_type = complex_type_8;
-                        tmp = builder->CreateFPExt(tmp, llvm::Type::getDoubleTy(context));
-                        zero = llvm::ConstantFP::get(context, llvm::APFloat(0.0));
-                        break;
-                    default:
-                        throw CodeGenError("Only 32 and 64 bits real kinds are supported.");
-                }
-                tmp = complex_from_floats(tmp, zero, target_type);
-                break;
-            }
-            case (ASR::cast_kindType::IntegerToComplex) : {
-                int a_kind = ASRUtils::extract_kind_from_ttype_t(x.m_type);
-                llvm::Type *target_type;
-                llvm::Type *complex_type;
-                llvm::Value *zero;
-                switch(a_kind)
-                {
-                    case 4:
-                        target_type = llvm::Type::getFloatTy(context);
-                        complex_type = complex_type_4;
-                        zero = llvm::ConstantFP::get(context, llvm::APFloat((float)0.0));
-                        break;
-                    case 8:
-                        target_type = llvm::Type::getDoubleTy(context);
-                        complex_type = complex_type_8;
-                        zero = llvm::ConstantFP::get(context, llvm::APFloat(0.0));
-                        break;
-                    default:
-                        throw CodeGenError("Only 32 and 64 bits real kinds are supported.");
-                }
-                tmp = builder->CreateSIToFP(tmp, target_type);
-                tmp = complex_from_floats(tmp, zero, complex_type);
-                break;
-            }
-            case (ASR::cast_kindType::IntegerToLogical) : {
-                ASR::ttype_t* curr_type = extract_ttype_t_from_expr(x.m_arg);
-                LCOMPILERS_ASSERT(curr_type != nullptr)
-                int a_kind = ASRUtils::extract_kind_from_ttype_t(curr_type);
-                switch (a_kind) {
-                    case 1:
-                        tmp = builder->CreateICmpNE(tmp, builder->getInt8(0));
-                        break;
-                    case 2:
-                        tmp = builder->CreateICmpNE(tmp, builder->getInt16(0));
-                        break;
-                    case 4:
-                        tmp = builder->CreateICmpNE(tmp, builder->getInt32(0));
-                        break;
-                    case 8:
-                        tmp = builder->CreateICmpNE(tmp, builder->getInt64(0));
-                        break;
-                }
-                break;
-            }
-            case (ASR::cast_kindType::RealToLogical) : {
-                llvm::Value *zero;
-                ASR::ttype_t* curr_type = extract_ttype_t_from_expr(x.m_arg);
-                LCOMPILERS_ASSERT(curr_type != nullptr)
-                int a_kind = ASRUtils::extract_kind_from_ttype_t(curr_type);
-                if (a_kind == 4) {
-                    zero = llvm::ConstantFP::get(context, llvm::APFloat((float)0.0));
-                } else {
-                    zero = llvm::ConstantFP::get(context, llvm::APFloat(0.0));
-                }
-                tmp = builder->CreateFCmpUNE(tmp, zero);
-                break;
-            }
-            case (ASR::cast_kindType::CharacterToLogical) : {
-                llvm::AllocaInst *parg = builder->CreateAlloca(character_type, nullptr);
-                builder->CreateStore(tmp, parg);
-                tmp = builder->CreateICmpNE(lfortran_str_len(parg), builder->getInt32(0));
-                break;
-            }
-            case (ASR::cast_kindType::CharacterToInteger) : {
-                llvm::AllocaInst *parg = builder->CreateAlloca(character_type, nullptr);
-                builder->CreateStore(tmp, parg);
-                tmp = lfortran_str_to_int(parg);
-                break;
-            }
-            case (ASR::cast_kindType::ComplexToLogical) : {
-                // !(c.real == 0.0 && c.imag == 0.0)
-                llvm::Value *zero;
-                ASR::ttype_t* curr_type = extract_ttype_t_from_expr(x.m_arg);
-                LCOMPILERS_ASSERT(curr_type != nullptr)
-                int a_kind = ASRUtils::extract_kind_from_ttype_t(curr_type);
-                if (a_kind == 4) {
-                    zero = llvm::ConstantFP::get(context, llvm::APFloat((float)0.0));
-                } else {
-                    zero = llvm::ConstantFP::get(context, llvm::APFloat(0.0));
-                }
-                llvm::Value *c_real = complex_re(tmp, tmp->getType());
-                llvm::Value *real_check = builder->CreateFCmpUEQ(c_real, zero);
-                llvm::Value *c_imag = complex_im(tmp, tmp->getType());
-                llvm::Value *imag_check = builder->CreateFCmpUEQ(c_imag, zero);
-                tmp = builder->CreateAnd(real_check, imag_check);
-                tmp = builder->CreateNot(tmp);
-                break;
-            }
-            case (ASR::cast_kindType::LogicalToInteger) : {
-                int a_kind = ASRUtils::extract_kind_from_ttype_t(x.m_type);
-                tmp = builder->CreateZExt(tmp, getIntType(a_kind));
-                break;
-            }
-            case (ASR::cast_kindType::RealToReal) : {
-                int arg_kind = -1, dest_kind = -1;
-                extract_kinds(x, arg_kind, dest_kind);
-                if( arg_kind > 0 && dest_kind > 0 &&
-                    arg_kind != dest_kind )
-                {
-                    if( arg_kind == 4 && dest_kind == 8 ) {
-                        tmp = builder->CreateFPExt(tmp, llvm::Type::getDoubleTy(context));
-                    } else if( arg_kind == 8 && dest_kind == 4 ) {
-                        tmp = builder->CreateFPTrunc(tmp, llvm::Type::getFloatTy(context));
-                    } else {
-                        std::string msg = "Conversion from " + std::to_string(arg_kind) +
-                                          " to " + std::to_string(dest_kind) + " not implemented yet.";
-                        throw CodeGenError(msg);
-                    }
-                }
-                break;
-            }
-            case (ASR::cast_kindType::IntegerToInteger) : {
-                int arg_kind = -1, dest_kind = -1;
-                extract_kinds(x, arg_kind, dest_kind);
-                if( arg_kind > 0 && dest_kind > 0 &&
-                    arg_kind != dest_kind )
-                {
-                    if (dest_kind > arg_kind) {
-                        tmp = builder->CreateSExt(tmp, getIntType(dest_kind));
-                    } else {
-                        tmp = builder->CreateTrunc(tmp, getIntType(dest_kind));
-                    }
-                }
-                break;
-            }
-            case (ASR::cast_kindType::ComplexToComplex) : {
-                llvm::Type *target_type;
-                int arg_kind = -1, dest_kind = -1;
-                extract_kinds(x, arg_kind, dest_kind);
-                llvm::Value *re, *im;
-                if( arg_kind > 0 && dest_kind > 0 &&
-                    arg_kind != dest_kind )
-                {
-                    if( arg_kind == 4 && dest_kind == 8 ) {
-                        target_type = complex_type_8;
-                        re = complex_re(tmp, complex_type_4);
-                        re = builder->CreateFPExt(re, llvm::Type::getDoubleTy(context));
-                        im = complex_im(tmp, complex_type_4);
-                        im = builder->CreateFPExt(im, llvm::Type::getDoubleTy(context));
-                    } else if( arg_kind == 8 && dest_kind == 4 ) {
-                        target_type = complex_type_4;
-                        re = complex_re(tmp, complex_type_8);
-                        re = builder->CreateFPTrunc(re, llvm::Type::getFloatTy(context));
-                        im = complex_im(tmp, complex_type_8);
-                        im = builder->CreateFPTrunc(im, llvm::Type::getFloatTy(context));
-                    } else {
-                        std::string msg = "Conversion from " + std::to_string(arg_kind) +
-                                          " to " + std::to_string(dest_kind) + " not implemented yet.";
-                        throw CodeGenError(msg);
-                    }
-                } else {
-                    throw CodeGenError("Negative kinds are not supported.");
-                }
-                tmp = complex_from_floats(re, im, target_type);
-                break;
-            }
-            case (ASR::cast_kindType::ComplexToReal) : {
-                int arg_kind = -1, dest_kind = -1;
-                extract_kinds(x, arg_kind, dest_kind);
-                llvm::Value *re;
-                if( arg_kind > 0 && dest_kind > 0)
-                {
-                    if( arg_kind == 4 && dest_kind == 4 ) {
-                        // complex(4) -> real(4)
-                        re = complex_re(tmp, complex_type_4);
-                        tmp = re;
-                    } else if( arg_kind == 4 && dest_kind == 8 ) {
-                        // complex(4) -> real(8)
-                        re = complex_re(tmp, complex_type_4);
-                        tmp = builder->CreateFPExt(re, llvm::Type::getDoubleTy(context));
-                    } else if( arg_kind == 8 && dest_kind == 4 ) {
-                        // complex(8) -> real(4)
-                        re = complex_re(tmp, complex_type_8);
-                        tmp = builder->CreateFPTrunc(re, llvm::Type::getFloatTy(context));
-                    } else if( arg_kind == 8 && dest_kind == 8 ) {
-                        // complex(8) -> real(8)
-                        re = complex_re(tmp, complex_type_8);
-                        tmp = re;
-                    } else {
-                        std::string msg = "Conversion from " + std::to_string(arg_kind) +
-                                          " to " + std::to_string(dest_kind) + " not implemented yet.";
-                        throw CodeGenError(msg);
-                    }
-                } else {
-                    throw CodeGenError("Negative kinds are not supported.");
-                }
-                break;
-            }
-            case (ASR::cast_kindType::ComplexToInteger) : {
-                int arg_kind = -1, dest_kind = -1;
-                extract_kinds(x, arg_kind, dest_kind);
-                llvm::Value *re;
-                if (arg_kind > 0 && dest_kind > 0)
-                {
-                    if (arg_kind == 4) {
-                        // complex(4) -> real(8)
-                        re = complex_re(tmp, complex_type_4);
-                        tmp = re;
-                    } else if (arg_kind == 8) {
-                        // complex(8) -> real(8)
-                        re = complex_re(tmp, complex_type_8);
-                        tmp = re;
-                    } else {
-                        std::string msg = "Unsupported Complex type kind: " + std::to_string(arg_kind);
-                        throw CodeGenError(msg);
-                    }
-                    llvm::Type *target_type;
-                    target_type = getIntType(dest_kind);
-                    tmp = builder->CreateFPToSI(tmp, target_type);
-                } else {
-                    throw CodeGenError("Negative kinds are not supported.");
-                }
-                break;
-             }
-            case (ASR::cast_kindType::RealToCharacter) : {
-                llvm::Value *arg = tmp;
-                ASR::ttype_t* arg_type = extract_ttype_t_from_expr(x.m_arg);
-                LCOMPILERS_ASSERT(arg_type != nullptr)
-                int arg_kind = ASRUtils::extract_kind_from_ttype_t(arg_type);
-                tmp = lfortran_type_to_str(arg, getFPType(arg_kind), "float", arg_kind);
-                break;
-            }
-            case (ASR::cast_kindType::IntegerToCharacter) : {
-                llvm::Value *arg = tmp;
-                ASR::ttype_t* arg_type = extract_ttype_t_from_expr(x.m_arg);
-                LCOMPILERS_ASSERT(arg_type != nullptr)
-                int arg_kind = ASRUtils::extract_kind_from_ttype_t(arg_type);
-                tmp = lfortran_type_to_str(arg, getIntType(arg_kind), "int", arg_kind);
-                break;
-            }
-            case (ASR::cast_kindType::LogicalToCharacter) : {
-                llvm::Value *cmp = builder->CreateICmpEQ(tmp, builder->getInt1(0));
-                llvm::Value *zero_str = builder->CreateGlobalStringPtr("False");
-                llvm::Value *one_str = builder->CreateGlobalStringPtr("True");
-                tmp = builder->CreateSelect(cmp, zero_str, one_str);
-                break;
-            }
-            default : throw CodeGenError("Cast kind not implemented");
-        }
-    }
-
-    void visit_FileRead(const ASR::FileRead_t &x) {
-        if (x.m_fmt != nullptr) {
-            diag.codegen_warning_label("format string in read() is not implemented yet and it is currently treated as '*'",
-                {x.m_fmt->base.loc}, "treated as '*'");
-        }
-        if (x.m_unit != nullptr) {
-            diag.codegen_error_label("unit in read() is not implemented yet",
-                {x.m_unit->base.loc}, "not implemented");
-            throw CodeGenAbort();
-        }
-        diag.codegen_error_label("The intrinsic function read() is not implemented yet in the LLVM backend",
-            {x.base.base.loc}, "not implemented");
-        throw CodeGenAbort();
-    }
-
-    void visit_Print(const ASR::Print_t &x) {
-        if (x.m_fmt != nullptr) {
-            diag.codegen_warning_label("format string in `print` is not implemented yet and it is currently treated as '*'",
-                {x.m_fmt->base.loc}, "treated as '*'");
-        }
-        handle_print(x);
-    }
-
-    void visit_FileWrite(const ASR::FileWrite_t &x) {
-        if (x.m_fmt != nullptr) {
-            diag.codegen_warning_label("format string in write() is not implemented yet and it is currently treated as '*'",
-                {x.m_fmt->base.loc}, "treated as '*'");
-        }
-        if (x.m_unit != nullptr) {
-            diag.codegen_error_label("unit in write() is not implemented yet",
-                {x.m_unit->base.loc}, "not implemented");
-            throw CodeGenAbort();
-        }
-        handle_print(x);
-    }
-
-    template <typename T>
-    void handle_print(const T &x) {
-        std::vector<llvm::Value *> args;
-        std::vector<std::string> fmt;
-        llvm::Value *sep = nullptr;
-        llvm::Value *end = nullptr;
-        if (x.m_separator) {
-            this->visit_expr_wrapper(x.m_separator, true);
-            sep = tmp;
-        } else {
-            sep = builder->CreateGlobalStringPtr(" ");
-        }
-        if (x.m_end) {
-            this->visit_expr_wrapper(x.m_end, true);
-            end = tmp;
-        } else {
-            end = builder->CreateGlobalStringPtr("\n");
-        }
-        for (size_t i=0; i<x.n_values; i++) {
-            int64_t ptr_loads_copy = ptr_loads;
-            int reduce_loads = 0;
-            ptr_loads = 2;
-            if( ASR::is_a<ASR::Var_t>(*x.m_values[i]) ) {
-                ASR::Variable_t* var = ASRUtils::EXPR2VAR(x.m_values[i]);
-                reduce_loads = var->m_intent == ASRUtils::intent_in;
-                if( ASR::is_a<ASR::Pointer_t>(*var->m_type) ) {
-                    ptr_loads = 1;
-                }
-            }
-            if (i != 0) {
-                fmt.push_back("%s");
-                args.push_back(sep);
-            }
-            ptr_loads = ptr_loads - reduce_loads;
-            lookup_enum_value_for_nonints = true;
-            this->visit_expr_wrapper(x.m_values[i], true);
-            lookup_enum_value_for_nonints = false;
-            ptr_loads = ptr_loads_copy;
-            ASR::expr_t *v = x.m_values[i];
-            ASR::ttype_t *t = ASRUtils::expr_type(v);
-            if( ASR::is_a<ASR::Const_t>(*t) ) {
-                t = ASRUtils::get_contained_type(t);
-            }
-            int a_kind = ASRUtils::extract_kind_from_ttype_t(t);
-            if( ASR::is_a<ASR::Pointer_t>(*t) && ASR::is_a<ASR::Var_t>(*v) ) {
-                if( ASRUtils::is_array(ASRUtils::type_get_past_pointer(t)) ) {
-                    tmp = CreateLoad(arr_descr->get_pointer_to_data(tmp));
-                }
-                fmt.push_back("%lld");
-                llvm::Value* d = builder->CreatePtrToInt(tmp, getIntType(8, false));
-                args.push_back(d);
-                continue;
-            }
-            if (t->type == ASR::ttypeType::CPtr ||
-                (t->type == ASR::ttypeType::Pointer &&
-                (ASR::is_a<ASR::Var_t>(*v) || ASR::is_a<ASR::GetPointer_t>(*v)))
-               ) {
-                fmt.push_back("%lld");
-                llvm::Value* d = builder->CreatePtrToInt(tmp, getIntType(8, false));
-                args.push_back(d);
-            } else if (ASRUtils::is_integer(*t)) {
-                switch( a_kind ) {
-                    case 1 : {
-                        fmt.push_back("%hhi");
-                        break;
-                    }
-                    case 2 : {
-                        fmt.push_back("%hi");
-                        break;
-                    }
-                    case 4 : {
-                        fmt.push_back("%d");
-                        break;
-                    }
-                    case 8 : {
-                        fmt.push_back("%lld");
-                        break;
-                    }
-                    default: {
-                        throw CodeGenError(R"""(Printing support is available only
-                                            for 8, 16, 32, and 64 bit integer kinds.)""",
-                                            x.base.base.loc);
-                    }
-                }
-                args.push_back(tmp);
-            } else if (ASRUtils::is_real(*t)) {
-                llvm::Value *d;
-                switch( a_kind ) {
-                    case 4 : {
-                        // Cast float to double as a workaround for the fact that
-                        // vprintf() seems to cast to double even for %f, which
-                        // causes it to print 0.000000.
-                        fmt.push_back("%13.8e");
-                        d = builder->CreateFPExt(tmp,
-                        llvm::Type::getDoubleTy(context));
-                        break;
-                    }
-                    case 8 : {
-                        fmt.push_back("%23.17e");
-                        d = builder->CreateFPExt(tmp,
-                        llvm::Type::getDoubleTy(context));
-                        break;
-                    }
-                    default: {
-                        throw CodeGenError(R"""(Printing support is available only
-                                            for 32, and 64 bit real kinds.)""",
-                                            x.base.base.loc);
-                    }
-                }
-                args.push_back(d);
-            } else if (t->type == ASR::ttypeType::Character) {
-                fmt.push_back("%s");
-                args.push_back(tmp);
-            } else if (ASRUtils::is_logical(*t)) {
-                llvm::Value *cmp = builder->CreateICmpEQ(tmp, builder->getInt1(0));
-                llvm::Value *zero_str = builder->CreateGlobalStringPtr("False");
-                llvm::Value *one_str = builder->CreateGlobalStringPtr("True");
-                llvm::Value *str = builder->CreateSelect(cmp, zero_str, one_str);
-                fmt.push_back("%s");
-                args.push_back(str);
-            } else if (ASRUtils::is_complex(*t)) {
-                llvm::Type *type, *complex_type;
-                switch( a_kind ) {
-                    case 4 : {
-                        // Cast float to double as a workaround for the fact that
-                        // vprintf() seems to cast to double even for %f, which
-                        // causes it to print 0.000000.
-                        fmt.push_back("(%f,%f)");
-                        type = llvm::Type::getDoubleTy(context);
-                        complex_type = complex_type_4;
-                        break;
-                    }
-                    case 8 : {
-                        fmt.push_back("(%lf,%lf)");
-                        type = llvm::Type::getDoubleTy(context);
-                        complex_type = complex_type_8;
-                        break;
-                    }
-                    default: {
-                        throw CodeGenError(R"""(Printing support is available only
-                                            for 32, and 64 bit complex kinds.)""",
-                                            x.base.base.loc);
-                    }
-                }
-                llvm::Value *d;
-                d = builder->CreateFPExt(complex_re(tmp, complex_type), type);
-                args.push_back(d);
-                d = builder->CreateFPExt(complex_im(tmp, complex_type), type);
-                args.push_back(d);
-            } else if (t->type == ASR::ttypeType::CPtr) {
-                fmt.push_back("%lld");
-                llvm::Value* d = builder->CreatePtrToInt(tmp, getIntType(8, false));
-                args.push_back(d);
-            } else if (t->type == ASR::ttypeType::Enum) {
-                // TODO: Use recursion to generalise for any underlying type in enum
-                fmt.push_back("%d");
-                args.push_back(tmp);
-            } else {
-                throw LCompilersException("Printing support is not available for " +
-                    ASRUtils::type_to_str(t) + " type.");
-            }
-        }
-        fmt.push_back("%s");
-        args.push_back(end);
-        std::string fmt_str;
-        for (size_t i=0; i<fmt.size(); i++) {
-            fmt_str += fmt[i];
-        }
-        llvm::Value *fmt_ptr = builder->CreateGlobalStringPtr(fmt_str);
-        std::vector<llvm::Value *> printf_args;
-        printf_args.push_back(fmt_ptr);
-        printf_args.insert(printf_args.end(), args.begin(), args.end());
-        printf(context, *module, *builder, printf_args);
-    }
-
-    void visit_Stop(const ASR::Stop_t &x) {
-        if (compiler_options.emit_debug_info) {
-            debug_emit_loc(x);
-            llvm::Value *fmt_ptr = builder->CreateGlobalStringPtr(infile);
-            llvm::Value *fmt_ptr1 = llvm::ConstantInt::get(context, llvm::APInt(
-                1, compiler_options.use_colors));
-            call_print_stacktrace_addresses(context, *module, *builder,
-                {fmt_ptr, fmt_ptr1});
-        }
-        llvm::Value *fmt_ptr = builder->CreateGlobalStringPtr("STOP\n");
-        print_error(context, *module, *builder, {fmt_ptr});
-        llvm::Value *exit_code;
-        if (x.m_code && ASRUtils::expr_type(x.m_code)->type == ASR::ttypeType::Integer) {
-            this->visit_expr(*x.m_code);
-            exit_code = tmp;
-        } else {
-            int exit_code_int = 0;
-            exit_code = llvm::ConstantInt::get(context,
-                    llvm::APInt(32, exit_code_int));
-        }
-        exit(context, *module, *builder, exit_code);
-    }
-
-    void visit_ErrorStop(const ASR::ErrorStop_t &x) {
-        if (compiler_options.emit_debug_info) {
-            debug_emit_loc(x);
-            llvm::Value *fmt_ptr = builder->CreateGlobalStringPtr(infile);
-            llvm::Value *fmt_ptr1 = llvm::ConstantInt::get(context, llvm::APInt(
-                1, compiler_options.use_colors));
-            call_print_stacktrace_addresses(context, *module, *builder,
-                {fmt_ptr, fmt_ptr1});
-        }
-        llvm::Value *fmt_ptr = builder->CreateGlobalStringPtr("ERROR STOP\n");
-        print_error(context, *module, *builder, {fmt_ptr});
-        int exit_code_int = 1;
-        llvm::Value *exit_code = llvm::ConstantInt::get(context,
-                llvm::APInt(32, exit_code_int));
-        exit(context, *module, *builder, exit_code);
-    }
-
-    template <typename T>
-    inline void set_func_subrout_params(T* func_subrout, ASR::abiType& x_abi,
-                                        std::uint32_t& m_h, ASR::Variable_t*& orig_arg,
-                                        std::string& orig_arg_name, ASR::intentType& arg_intent,
-                                        size_t arg_idx) {
-        m_h = get_hash((ASR::asr_t*)func_subrout);
-        if( ASR::is_a<ASR::Var_t>(*func_subrout->m_args[arg_idx]) ) {
-            ASR::Var_t* arg_var = ASR::down_cast<ASR::Var_t>(func_subrout->m_args[arg_idx]);
-            ASR::symbol_t* arg_sym = symbol_get_past_external(arg_var->m_v);
-            if( ASR::is_a<ASR::Variable_t>(*arg_sym) ) {
-                orig_arg = ASR::down_cast<ASR::Variable_t>(arg_sym);
-                orig_arg_name = orig_arg->m_name;
-                arg_intent = orig_arg->m_intent;
-            }
-        }
-        x_abi = ASRUtils::get_FunctionType(func_subrout)->m_abi;
-    }
-
-
-    template <typename T>
-    std::vector<llvm::Value*> convert_call_args(const T &x) {
-        std::vector<llvm::Value *> args;
-        const ASR::symbol_t* func_subrout = symbol_get_past_external(x.m_name);
-        ASR::abiType x_abi = ASR::abiType::Source;
-        if( is_a<ASR::Function_t>(*func_subrout) ) {
-            ASR::Function_t* func = down_cast<ASR::Function_t>(func_subrout);
-            x_abi = ASRUtils::get_FunctionType(func)->m_abi;
-        }
-
-        for (size_t i=0; i<x.n_args; i++) {
-            func_subrout = symbol_get_past_external(x.m_name);
-            x_abi = (ASR::abiType) 0;
-            ASR::intentType orig_arg_intent = ASR::intentType::Unspecified;
-            std::uint32_t m_h;
-            ASR::Variable_t *orig_arg = nullptr;
-            std::string orig_arg_name = "";
-            if( func_subrout->type == ASR::symbolType::Function ) {
-                ASR::Function_t* func = down_cast<ASR::Function_t>(func_subrout);
-                set_func_subrout_params(func, x_abi, m_h, orig_arg, orig_arg_name, orig_arg_intent, i);
-            } else if( func_subrout->type == ASR::symbolType::ClassProcedure ) {
-                ASR::ClassProcedure_t* clss_proc = ASR::down_cast<ASR::ClassProcedure_t>(func_subrout);
-                if( clss_proc->m_proc->type == ASR::symbolType::Function ) {
-                    ASR::Function_t* func = down_cast<ASR::Function_t>(clss_proc->m_proc);
-                    set_func_subrout_params(func, x_abi, m_h, orig_arg, orig_arg_name, orig_arg_intent, i);
-                }
-            } else {
-                LCOMPILERS_ASSERT(false)
-            }
-            if (x.m_args[i].m_value->type == ASR::exprType::Var) {
-                if (is_a<ASR::Variable_t>(*symbol_get_past_external(
-                        ASR::down_cast<ASR::Var_t>(x.m_args[i].m_value)->m_v))) {
-                    ASR::Variable_t *arg = EXPR2VAR(x.m_args[i].m_value);
-                    uint32_t h = get_hash((ASR::asr_t*)arg);
-                    if (llvm_symtab.find(h) != llvm_symtab.end()) {
-                        tmp = llvm_symtab[h];
-                        bool is_data_only_array = false;
-                        ASR::dimension_t* dims_arg = nullptr;
-                        size_t n_arg = ASRUtils::extract_dimensions_from_ttype(arg->m_type, dims_arg);
-                        if( ASRUtils::is_arg_dummy(arg->m_intent) &&
-                            !ASRUtils::is_dimension_empty(dims_arg, n_arg) ) {
-                            is_data_only_array = true;
-                        }
-                        if( x_abi == ASR::abiType::Source &&
-                            arr_descr->is_array(arg->m_type) &&
-                            !is_data_only_array ) {
-                            llvm::Type* new_arr_type = arr_arg_type_cache[m_h][orig_arg_name];
-                            ASR::dimension_t* dims;
-                            size_t n;
-                            n = ASRUtils::extract_dimensions_from_ttype(orig_arg->m_type, dims);
-                            tmp = arr_descr->convert_to_argument(tmp, arg->m_type, new_arr_type,
-                                                                (!ASRUtils::is_dimension_empty(dims, n)));
-                        } else if (x_abi == ASR::abiType::Source && ASR::is_a<ASR::CPtr_t>(*arg->m_type)) {
-                                if (arg->m_intent == intent_local) {
-                                    // Local variable of type
-                                    // CPtr is a void**, so we
-                                    // have to load it
-                                    tmp = CreateLoad(tmp);
-                                }
-                        } else if ( x_abi == ASR::abiType::BindC ) {
-                            if( arr_descr->is_array(ASRUtils::get_contained_type(arg->m_type)) ) {
-                                // TODO: we need a dedicated and robust
-                                // function that determines from ASR only
-                                // if a given array is represented by
-                                // a descriptor or with just a pointer.
-                                // Until then we use the following heuristic:
-                                bool arg_is_using_descriptor = true;
-                                if (LLVMArrUtils::is_explicit_shape(arg)) {
-                                    if (arg->m_intent != intent_local) {
-                                        arg_is_using_descriptor = false;
-                                    }
-                                }
-                                if (arg_is_using_descriptor) {
-                                    tmp = CreateLoad(arr_descr->get_pointer_to_data(tmp));
-                                }
-                            } else {
-                                if (orig_arg->m_abi == ASR::abiType::BindC
-                                    && orig_arg->m_value_attr) {
-                                        ASR::ttype_t* arg_type = arg->m_type;
-                                        if( ASR::is_a<ASR::Const_t>(*arg_type) ) {
-                                            arg_type = ASR::down_cast<ASR::Const_t>(arg_type)->m_type;
-                                        }
-                                        if (is_a<ASR::Complex_t>(*arg_type)) {
-                                            int c_kind = ASRUtils::extract_kind_from_ttype_t(arg_type);
-                                            if (c_kind == 4) {
-                                                if (compiler_options.platform == Platform::Windows) {
-                                                    // tmp is {float, float}*
-                                                    // type_fx2p is i64*
-                                                    llvm::Type* type_fx2p = llvm::Type::getInt64PtrTy(context);
-                                                    // Convert {float,float}* to i64* using bitcast
-                                                    tmp = builder->CreateBitCast(tmp, type_fx2p);
-                                                    // Then convert i64* -> i64
-                                                    tmp = CreateLoad(tmp);
-                                                } else if (compiler_options.platform == Platform::macOS_ARM) {
-                                                    // tmp is {float, float}*
-                                                    // type_fx2p is [2 x float]*
-                                                    llvm::Type* type_fx2p = llvm::ArrayType::get(llvm::Type::getFloatTy(context), 2)->getPointerTo();
-                                                    // Convert {float,float}* to [2 x float]* using bitcast
-                                                    tmp = builder->CreateBitCast(tmp, type_fx2p);
-                                                    // Then convert [2 x float]* -> [2 x float]
-                                                    tmp = CreateLoad(tmp);
-                                                } else {
-                                                    // tmp is {float, float}*
-                                                    // type_fx2p is <2 x float>*
-                                                    llvm::Type* type_fx2p = FIXED_VECTOR_TYPE::get(llvm::Type::getFloatTy(context), 2)->getPointerTo();
-                                                    // Convert {float,float}* to <2 x float>* using bitcast
-                                                    tmp = builder->CreateBitCast(tmp, type_fx2p);
-                                                    // Then convert <2 x float>* -> <2 x float>
-                                                    tmp = CreateLoad(tmp);
-                                                }
-                                            } else {
-                                                LCOMPILERS_ASSERT(c_kind == 8)
-                                                if (compiler_options.platform == Platform::Windows) {
-                                                    // 128 bit aggregate type is passed by reference
-                                                } else {
-                                                    // Pass by value
-                                                    tmp = CreateLoad(tmp);
-                                                }
-                                            }
-                                        } else if (is_a<ASR::CPtr_t>(*arg_type)) {
-                                            if (arg->m_intent == intent_local) {
-                                                // Local variable of type
-                                                // CPtr is a void**, so we
-                                                // have to load it
-                                                tmp = CreateLoad(tmp);
-                                            }
-                                        } else {
-                                            if (!arg->m_value_attr) {
-                                                // Dereference the pointer argument (unless it is a CPtr)
-                                                // to pass by value
-                                                // E.g.:
-                                                // i32* -> i32
-                                                // {double,double}* -> {double,double}
-                                                tmp = CreateLoad(tmp);
-                                            }
-                                        }
-                                    }
-                                if (!orig_arg->m_value_attr && arg->m_value_attr) {
-                                    llvm::Type *target_type = tmp->getType();
-                                    // Create alloca to get a pointer, but do it
-                                    // at the beginning of the function to avoid
-                                    // using alloca inside a loop, which would
-                                    // run out of stack
-                                    llvm::BasicBlock &entry_block = builder->GetInsertBlock()->getParent()->getEntryBlock();
-                                    llvm::IRBuilder<> builder0(context);
-                                    builder0.SetInsertPoint(&entry_block, entry_block.getFirstInsertionPt());
-                                    llvm::AllocaInst *target = builder0.CreateAlloca(
-                                        target_type, nullptr, "call_arg_value_ptr");
-                                    builder->CreateStore(tmp, target);
-                                    tmp = target;
-                                }
-                            }
-                        }
-                    } else {
-                        auto finder = std::find(nested_globals.begin(),
-                                nested_globals.end(), h);
-                        if (finder == nested_globals.end()) {
-                            if (arg->m_value == nullptr) {
-                                throw CodeGenError(std::string(arg->m_name) + " isn't defined in any scope.");
-                            }
-                            this->visit_expr_wrapper(arg->m_value, true);
-                            if( x_abi != ASR::abiType::BindC ) {
-                                llvm::BasicBlock &entry_block = builder->GetInsertBlock()->getParent()->getEntryBlock();
-                                llvm::IRBuilder<> builder0(context);
-                                builder0.SetInsertPoint(&entry_block, entry_block.getFirstInsertionPt());
-                                llvm::AllocaInst *target = builder0.CreateAlloca(
-                                    get_type_from_ttype_t_util(arg->m_type), nullptr, "call_arg_value");
-                                builder->CreateStore(tmp, target);
-                                tmp = target;
-                            }
-                        } else {
-                            llvm::Value* ptr = module->getOrInsertGlobal(nested_desc_name,
-                                nested_global_struct);
-                            int idx = std::distance(nested_globals.begin(), finder);
-                            tmp = CreateLoad(llvm_utils->create_gep(ptr, idx));
-                        }
-                    }
-                } else if (is_a<ASR::Function_t>(*symbol_get_past_external(
-                    ASR::down_cast<ASR::Var_t>(x.m_args[i].m_value)->m_v))) {
-                    ASR::Function_t* fn = ASR::down_cast<ASR::Function_t>(
-                        symbol_get_past_external(ASR::down_cast<ASR::Var_t>(
-                        x.m_args[i].m_value)->m_v));
-                    uint32_t h = get_hash((ASR::asr_t*)fn);
-                    if (ASRUtils::get_FunctionType(fn)->m_deftype == ASR::deftypeType::Implementation) {
-                        tmp = llvm_symtab_fn[h];
-                    } else {
-                        // Must be an argument/chained procedure pass
-                        tmp = llvm_symtab_fn_arg[h];
-                    }
-                }
-            } else {
-                ASR::ttype_t* arg_type = expr_type(x.m_args[i].m_value);
-                int64_t ptr_loads_copy = ptr_loads;
-                ptr_loads = !LLVM::is_llvm_struct(arg_type);
-                this->visit_expr_wrapper(x.m_args[i].m_value);
-                if( x_abi == ASR::abiType::BindC ) {
-                    if( (ASR::is_a<ASR::ArrayItem_t>(*x.m_args[i].m_value) &&
-                         orig_arg_intent ==  ASR::intentType::In) ||
-                        ASR::is_a<ASR::StructInstanceMember_t>(*x.m_args[i].m_value) ||
-                        (ASR::is_a<ASR::CPtr_t>(*arg_type) &&
-                         ASR::is_a<ASR::StructInstanceMember_t>(*x.m_args[i].m_value)) ) {
-                        if( ASR::is_a<ASR::StructInstanceMember_t>(*x.m_args[i].m_value) &&
-                            ASRUtils::is_array(arg_type) ) {
-                            ASR::dimension_t* arg_m_dims = nullptr;
-                            size_t n_dims = ASRUtils::extract_dimensions_from_ttype(arg_type, arg_m_dims);
-                            if( !(ASRUtils::is_fixed_size_array(arg_m_dims, n_dims) &&
-                                  ASRUtils::expr_abi(x.m_args[i].m_value) == ASR::abiType::BindC) ) {
-                                tmp = LLVM::CreateLoad(*builder, arr_descr->get_pointer_to_data(tmp));
-                            } else {
-                                tmp = llvm_utils->create_gep(tmp, llvm::ConstantInt::get(
-                                        llvm::Type::getInt32Ty(context), llvm::APInt(32, 0)));
-                            }
-                        } else {
-                            tmp = LLVM::CreateLoad(*builder, tmp);
-                        }
-                    }
-                }
-                llvm::Value *value = tmp;
-                ptr_loads = ptr_loads_copy;
-                llvm::Type *target_type;
-                bool character_bindc = false;
-                switch (arg_type->type) {
-                    case (ASR::ttypeType::Integer) : {
-                        int a_kind = down_cast<ASR::Integer_t>(arg_type)->m_kind;
-                        target_type = getIntType(a_kind);
-                        break;
-                    }
-                    case (ASR::ttypeType::Real) : {
-                        int a_kind = down_cast<ASR::Real_t>(arg_type)->m_kind;
-                        target_type = getFPType(a_kind);
-                        break;
-                    }
-                    case (ASR::ttypeType::Complex) : {
-                        int a_kind = down_cast<ASR::Complex_t>(arg_type)->m_kind;
-                        target_type = getComplexType(a_kind);
-                        break;
-                    }
-                    case (ASR::ttypeType::Character) : {
-                        ASR::Variable_t *orig_arg = nullptr;
-                        if( func_subrout->type == ASR::symbolType::Function ) {
-                            ASR::Function_t* func = down_cast<ASR::Function_t>(func_subrout);
-                            orig_arg = EXPR2VAR(func->m_args[i]);
-                        } else {
-                            LCOMPILERS_ASSERT(false)
-                        }
-                        if (orig_arg->m_abi == ASR::abiType::BindC) {
-                            character_bindc = true;
-                        }
-
-                        target_type = character_type;
-                        break;
-                    }
-                    case (ASR::ttypeType::Logical) :
-                        target_type = llvm::Type::getInt1Ty(context);
-                        break;
-                    case (ASR::ttypeType::Enum) :
-                        target_type = llvm::Type::getInt32Ty(context);
-                        break;
-                    case (ASR::ttypeType::Struct) :
-                        break;
-                    case (ASR::ttypeType::CPtr) :
-                        target_type = llvm::Type::getVoidTy(context)->getPointerTo();
-                        break;
-                    case (ASR::ttypeType::Pointer) : {
-                        target_type = get_type_from_ttype_t_util(ASRUtils::get_contained_type(arg_type));
-                        target_type = target_type->getPointerTo();
-                        break;
-                    }
-                    case (ASR::ttypeType::List) : {
-                        target_type = get_type_from_ttype_t_util(arg_type);
-                        break ;
-                    }
-                    case (ASR::ttypeType::Tuple) : {
-                        target_type = get_type_from_ttype_t_util(arg_type);
-                        break ;
-                    }
-                    default :
-                        throw CodeGenError("Type " + ASRUtils::type_to_str(arg_type) + " not implemented yet.");
-                }
-                if( ASR::is_a<ASR::EnumValue_t>(*x.m_args[i].m_value) ) {
-                    target_type = llvm::Type::getInt32Ty(context);
-                }
-                switch(arg_type->type) {
-                    case ASR::ttypeType::Struct: {
-                        tmp = value;
-                        break;
-                    }
-                    default: {
-                        if (!character_bindc) {
-                            bool use_value = false;
-                            ASR::Variable_t *orig_arg = nullptr;
-                            if( func_subrout->type == ASR::symbolType::Function ) {
-                                ASR::Function_t* func = down_cast<ASR::Function_t>(func_subrout);
-                                orig_arg = EXPR2VAR(func->m_args[i]);
-                            } else {
-                                LCOMPILERS_ASSERT(false)
-                            }
-                            if (orig_arg->m_abi == ASR::abiType::BindC
-                                && orig_arg->m_value_attr) {
-                                use_value = true;
-                            }
-                            if (ASR::is_a<ASR::ArrayItem_t>(*x.m_args[i].m_value)) {
-                                use_value = true;
-                            }
-                            if (!use_value) {
-                                // Create alloca to get a pointer, but do it
-                                // at the beginning of the function to avoid
-                                // using alloca inside a loop, which would
-                                // run out of stack
-                                if( (ASR::is_a<ASR::ArrayItem_t>(*x.m_args[i].m_value) ||
-                                    ASR::is_a<ASR::StructInstanceMember_t>(*x.m_args[i].m_value))
-                                        && value->getType()->isPointerTy()) {
-                                    value = CreateLoad(value);
-                                }
-                                if( !ASR::is_a<ASR::CPtr_t>(*arg_type) ) {
-                                    llvm::BasicBlock &entry_block = builder->GetInsertBlock()->getParent()->getEntryBlock();
-                                    llvm::IRBuilder<> builder0(context);
-                                    builder0.SetInsertPoint(&entry_block, entry_block.getFirstInsertionPt());
-                                    llvm::AllocaInst *target = builder0.CreateAlloca(
-                                        target_type, nullptr, "call_arg_value");
-                                    if( ASR::is_a<ASR::Tuple_t>(*arg_type) ||
-                                        ASR::is_a<ASR::List_t>(*arg_type) ) {
-                                        llvm_utils->deepcopy(value, target, arg_type, module.get(), name2memidx);
-                                    } else {
-                                        builder->CreateStore(value, target);
-                                    }
-                                    tmp = target;
-                                } else {
-                                    tmp = value;
-                                }
-                            }
-                        }
-                    }
-                }
-            }
-            args.push_back(tmp);
-        }
-        return args;
-    }
-
-    void generate_flip_sign(ASR::call_arg_t* m_args) {
-        this->visit_expr_wrapper(m_args[0].m_value, true);
-        llvm::Value* signal = tmp;
-        LCOMPILERS_ASSERT(m_args[1].m_value->type == ASR::exprType::Var);
-        ASR::Var_t* asr_var = ASR::down_cast<ASR::Var_t>(m_args[1].m_value);
-        ASR::Variable_t* asr_variable = ASR::down_cast<ASR::Variable_t>(asr_var->m_v);
-        uint32_t x_h = get_hash((ASR::asr_t*)asr_variable);
-        llvm::Value* variable = llvm_symtab[x_h];
-        // variable = xor(shiftl(int(Nd), 63), variable)
-        ASR::ttype_t* signal_type = ASRUtils::expr_type(m_args[0].m_value);
-        int signal_kind = ASRUtils::extract_kind_from_ttype_t(signal_type);
-        llvm::Value* num_shifts = llvm::ConstantInt::get(context, llvm::APInt(32, signal_kind * 8 - 1));
-        llvm::Value* shifted_signal = builder->CreateShl(signal, num_shifts);
-        llvm::Value* int_var = builder->CreateBitCast(CreateLoad(variable), shifted_signal->getType());
-        tmp = builder->CreateXor(shifted_signal, int_var);
-        llvm::Type* variable_type = get_type_from_ttype_t_util(asr_variable->m_type);
-        builder->CreateStore(builder->CreateBitCast(tmp, variable_type->getPointerTo()), variable);
-    }
-
-    void generate_fma(ASR::call_arg_t* m_args) {
-        this->visit_expr_wrapper(m_args[0].m_value, true);
-        llvm::Value* a = tmp;
-        this->visit_expr_wrapper(m_args[1].m_value, true);
-        llvm::Value* b = tmp;
-        this->visit_expr_wrapper(m_args[2].m_value, true);
-        llvm::Value* c = tmp;
-        tmp = builder->CreateIntrinsic(llvm::Intrinsic::fma,
-                {a->getType()},
-                {b, c, a});
-    }
-
-    void generate_sign_from_value(ASR::call_arg_t* m_args) {
-        this->visit_expr_wrapper(m_args[0].m_value, true);
-        llvm::Value* arg0 = tmp;
-        this->visit_expr_wrapper(m_args[1].m_value, true);
-        llvm::Value* arg1 = tmp;
-        llvm::Type* common_llvm_type = arg0->getType();
-        ASR::ttype_t *arg1_type = ASRUtils::expr_type(m_args[1].m_value);
-        uint64_t kind = ASRUtils::extract_kind_from_ttype_t(arg1_type);
-        llvm::Value* num_shifts = llvm::ConstantInt::get(context, llvm::APInt(kind * 8, kind * 8 - 1));
-        llvm::Value* shifted_one = builder->CreateShl(llvm::ConstantInt::get(context, llvm::APInt(kind * 8, 1)), num_shifts);
-        arg1 = builder->CreateBitCast(arg1, shifted_one->getType());
-        arg0 = builder->CreateBitCast(arg0, shifted_one->getType());
-        tmp = builder->CreateXor(arg0, builder->CreateAnd(shifted_one, arg1));
-        tmp = builder->CreateBitCast(tmp, common_llvm_type);
-    }
-
-    template <typename T>
-    bool generate_optimization_instructions(const T* routine, ASR::call_arg_t* m_args) {
-        std::string routine_name = std::string(routine->m_name);
-        if( routine_name.find("flipsign") != std::string::npos ) {
-            generate_flip_sign(m_args);
-            return true;
-        } else if( routine_name.find("fma") != std::string::npos ) {
-            generate_fma(m_args);
-            return true;
-        } else if( routine_name.find("signfromvalue") != std::string::npos ) {
-            generate_sign_from_value(m_args);
-            return true;
-        }
-        return false;
-    }
-
-    void visit_SubroutineCall(const ASR::SubroutineCall_t &x) {
-        if (compiler_options.emit_debug_info) debug_emit_loc(x);
-        if( ASRUtils::is_intrinsic_optimization(x.m_name) ) {
-            ASR::Function_t* routine = ASR::down_cast<ASR::Function_t>(
-                        ASRUtils::symbol_get_past_external(x.m_name));
-            if( generate_optimization_instructions(routine, x.m_args) ) {
-                return ;
-            }
-        }
-        ASR::Function_t *s;
-        std::vector<llvm::Value*> args;
-        const ASR::symbol_t *proc_sym = symbol_get_past_external(x.m_name);
-        if (x.m_dt){
-            ASR::Variable_t *caller = EXPR2VAR(x.m_dt);
-            std::uint32_t h = get_hash((ASR::asr_t*)caller);
-            args.push_back(llvm_symtab[h]);
-        }
-        if (ASR::is_a<ASR::Function_t>(*proc_sym)) {
-            s = ASR::down_cast<ASR::Function_t>(proc_sym);
-        } else {
-            ASR::ClassProcedure_t *clss_proc = ASR::down_cast<
-                ASR::ClassProcedure_t>(proc_sym);
-            s = ASR::down_cast<ASR::Function_t>(clss_proc->m_proc);
-        }
-        if (parent_function){
-            push_nested_stack(parent_function);
-        }
-        uint32_t h;
-        ASR::FunctionType_t* s_func_type = ASR::down_cast<ASR::FunctionType_t>(s->m_function_signature);
-        if (s_func_type->m_abi == ASR::abiType::LFortranModule) {
-            throw CodeGenError("Subroutine LCompilers interfaces not implemented yet");
-        } else if (s_func_type->m_abi == ASR::abiType::Interactive) {
-            h = get_hash((ASR::asr_t*)s);
-        } else if (s_func_type->m_abi == ASR::abiType::Source) {
-            h = get_hash((ASR::asr_t*)s);
-        } else if (s_func_type->m_abi == ASR::abiType::BindC) {
-            h = get_hash((ASR::asr_t*)s);
-        } else if (s_func_type->m_abi == ASR::abiType::Intrinsic) {
-            h = get_hash((ASR::asr_t*)s);
-        } else {
-            throw CodeGenError("ABI type not implemented yet in SubroutineCall.");
-        }
-        if (llvm_symtab_fn_arg.find(h) != llvm_symtab_fn_arg.end()) {
-            // Check if this is a callback function
-            llvm::Value* fn = llvm_symtab_fn_arg[h];
-            llvm::FunctionType* fntype = llvm_symtab_fn[h]->getFunctionType();
-            std::string m_name = ASR::down_cast<ASR::Function_t>(x.m_name)->m_name;
-            args = convert_call_args(x);
-            tmp = builder->CreateCall(fntype, fn, args);
-        } else if (llvm_symtab_fn.find(h) == llvm_symtab_fn.end()) {
-            throw CodeGenError("Subroutine code not generated for '"
-                + std::string(s->m_name) + "'");
-        } else {
-            llvm::Function *fn = llvm_symtab_fn[h];
-            std::string m_name = ASRUtils::symbol_name(x.m_name);
-            std::vector<llvm::Value *> args2 = convert_call_args(x);
-            args.insert(args.end(), args2.begin(), args2.end());
-            builder->CreateCall(fn, args);
-        }
-        calling_function_hash = h;
-        pop_nested_stack(s);
-    }
-
-    void handle_bitwise_args(const ASR::FunctionCall_t& x, llvm::Value*& arg1,
-                             llvm::Value*& arg2) {
-        LCOMPILERS_ASSERT(x.n_args == 2);
-        tmp = nullptr;
-        this->visit_expr_wrapper(x.m_args[0].m_value, true);
-        arg1 = tmp;
-        tmp = nullptr;
-        this->visit_expr_wrapper(x.m_args[1].m_value, true);
-        arg2 = tmp;
-    }
-
-    void handle_bitwise_xor(const ASR::FunctionCall_t& x) {
-        llvm::Value *arg1 = nullptr, *arg2 = nullptr;
-        handle_bitwise_args(x, arg1, arg2);
-        tmp = builder->CreateXor(arg1, arg2);
-    }
-
-    void handle_bitwise_and(const ASR::FunctionCall_t& x) {
-        llvm::Value *arg1 = nullptr, *arg2 = nullptr;
-        handle_bitwise_args(x, arg1, arg2);
-        tmp = builder->CreateAnd(arg1, arg2);
-    }
-
-    void handle_bitwise_or(const ASR::FunctionCall_t& x) {
-        llvm::Value *arg1 = nullptr, *arg2 = nullptr;
-        handle_bitwise_args(x, arg1, arg2);
-        tmp = builder->CreateOr(arg1, arg2);
-    }
-
-    llvm::Value* CreatePointerToStructReturnValue(llvm::FunctionType* fnty,
-                                                  llvm::Value* return_value,
-                                                  ASR::ttype_t* asr_return_type) {
-        if( !LLVM::is_llvm_struct(asr_return_type) ) {
-            return return_value;
-        }
-
-        // Call to LLVM APIs not needed to fetch the return type of the function.
-        // We can use asr_return_type as well but anyways for compactness I did it here.
-        llvm::Value* pointer_to_struct = builder->CreateAlloca(fnty->getReturnType(), nullptr);
-        LLVM::CreateStore(*builder, return_value, pointer_to_struct);
-        return pointer_to_struct;
-    }
-
-    llvm::Value* CreateCallUtil(llvm::FunctionType* fnty, llvm::Function* fn,
-                                std::vector<llvm::Value*>& args,
-                                ASR::ttype_t* asr_return_type) {
-        llvm::Value* return_value = builder->CreateCall(fn, args);
-        return CreatePointerToStructReturnValue(fnty, return_value,
-                                                asr_return_type);
-    }
-
-    llvm::Value* CreateCallUtil(llvm::Function* fn, std::vector<llvm::Value*>& args,
-                                ASR::ttype_t* asr_return_type) {
-        return CreateCallUtil(fn->getFunctionType(), fn, args, asr_return_type);
-    }
-
-    void visit_FunctionCall(const ASR::FunctionCall_t &x) {
-        if( ASRUtils::is_intrinsic_optimization(x.m_name) ) {
-            ASR::Function_t* routine = ASR::down_cast<ASR::Function_t>(
-                        ASRUtils::symbol_get_past_external(x.m_name));
-            if( generate_optimization_instructions(routine, x.m_args) ) {
-                return ;
-            }
-        }
-        if (x.m_value) {
-            this->visit_expr_wrapper(x.m_value, true);
-            return;
-        }
-        ASR::Function_t *s = nullptr;
-        std::vector<llvm::Value*> args;
-        const ASR::symbol_t *proc_sym = symbol_get_past_external(x.m_name);
-        if (x.m_dt){
-            ASR::Variable_t *caller = EXPR2VAR(x.m_dt);
-            std::uint32_t h = get_hash((ASR::asr_t*)caller);
-            args.push_back(llvm_symtab[h]);
-        }
-        if (ASR::is_a<ASR::Function_t>(*proc_sym)) {
-            s = ASR::down_cast<ASR::Function_t>(proc_sym);
-        } else {
-            ASR::ClassProcedure_t *clss_proc = ASR::down_cast<
-                ASR::ClassProcedure_t>(proc_sym);
-            s = ASR::down_cast<ASR::Function_t>(clss_proc->m_proc);
-        }
-        if( s == nullptr ) {
-            s = ASR::down_cast<ASR::Function_t>(symbol_get_past_external(x.m_name));
-        }
-        if( ASRUtils::is_intrinsic_function2(s) ) {
-            std::string symbol_name = ASRUtils::symbol_name(x.m_name);
-            if( startswith(symbol_name, "_bitwise_xor") ) {
-                handle_bitwise_xor(x);
-                return ;
-            }
-            if( startswith(symbol_name, "_bitwise_and") ) {
-                handle_bitwise_and(x);
-                return ;
-            }
-            if( startswith(symbol_name, "_bitwise_or") ) {
-                handle_bitwise_or(x);
-                return ;
-            }
-        }
-        if (parent_function){
-            push_nested_stack(parent_function);
-        }
-        bool intrinsic_function = ASRUtils::is_intrinsic_function2(s);
-        uint32_t h;
-        ASR::FunctionType_t* s_func_type = ASR::down_cast<ASR::FunctionType_t>(s->m_function_signature);
-        if (s_func_type->m_abi == ASR::abiType::Source && !intrinsic_function) {
-            h = get_hash((ASR::asr_t*)s);
-        } else if (s_func_type->m_abi == ASR::abiType::LFortranModule) {
-            throw CodeGenError("Function LCompilers interfaces not implemented yet");
-        } else if (s_func_type->m_abi == ASR::abiType::Interactive) {
-            h = get_hash((ASR::asr_t*)s);
-        } else if (s_func_type->m_abi == ASR::abiType::BindC) {
-            h = get_hash((ASR::asr_t*)s);
-        } else if (s_func_type->m_abi == ASR::abiType::Intrinsic || intrinsic_function) {
-            std::string func_name = s->m_name;
-            if( fname2arg_type.find(func_name) != fname2arg_type.end() ) {
-                h = get_hash((ASR::asr_t*)s);
-            } else {
-                if (func_name == "len") {
-                    args = convert_call_args(x);
-                    LCOMPILERS_ASSERT(args.size() == 1)
-                    tmp = lfortran_str_len(args[0]);
-                    return;
-                }
-                if( s_func_type->m_deftype == ASR::deftypeType::Interface ) {
-                    throw CodeGenError("Intrinsic '" + func_name + "' not implemented yet and compile time value is not available.");
-                } else {
-                    h = get_hash((ASR::asr_t*)s);
-                }
-            }
-        } else {
-            throw CodeGenError("ABI type not implemented yet.");
-        }
-        if (llvm_symtab_fn_arg.find(h) != llvm_symtab_fn_arg.end()) {
-            // Check if this is a callback function
-            llvm::Value* fn = llvm_symtab_fn_arg[h];
-            llvm::FunctionType* fntype = llvm_symtab_fn[h]->getFunctionType();
-            std::string m_name = std::string(((ASR::Function_t*)(&(x.m_name->base)))->m_name);
-            args = convert_call_args(x);
-            tmp = builder->CreateCall(fntype, fn, args);
-        } else if (llvm_symtab_fn.find(h) == llvm_symtab_fn.end()) {
-            throw CodeGenError("Function code not generated for '"
-                + std::string(s->m_name) + "'");
-        } else {
-            llvm::Function *fn = llvm_symtab_fn[h];
-            std::string m_name = std::string(((ASR::Function_t*)(&(x.m_name->base)))->m_name);
-            std::vector<llvm::Value *> args2 = convert_call_args(x);
-            args.insert(args.end(), args2.begin(), args2.end());
-            ASR::ttype_t *return_var_type0 = EXPR2VAR(s->m_return_var)->m_type;
-            if (ASRUtils::get_FunctionType(s)->m_abi == ASR::abiType::BindC) {
-                if (is_a<ASR::Complex_t>(*return_var_type0)) {
-                    int a_kind = down_cast<ASR::Complex_t>(return_var_type0)->m_kind;
-                    if (a_kind == 8) {
-                        if (compiler_options.platform == Platform::Windows) {
-                            tmp = builder->CreateAlloca(complex_type_8, nullptr);
-                            args.insert(args.begin(), tmp);
-                            builder->CreateCall(fn, args);
-                            // Convert {double,double}* to {double,double}
-                            tmp = CreateLoad(tmp);
-                        } else {
-                            tmp = builder->CreateCall(fn, args);
-                        }
-                    } else {
-                        tmp = builder->CreateCall(fn, args);
-                    }
-                } else {
-                    tmp = builder->CreateCall(fn, args);
-                }
-            } else {
-                tmp = CreateCallUtil(fn, args, return_var_type0);
-            }
-        }
-        if (ASRUtils::get_FunctionType(s)->m_abi == ASR::abiType::BindC) {
-            ASR::ttype_t *return_var_type0 = EXPR2VAR(s->m_return_var)->m_type;
-            if (is_a<ASR::Complex_t>(*return_var_type0)) {
-                int a_kind = down_cast<ASR::Complex_t>(return_var_type0)->m_kind;
-                if (a_kind == 4) {
-                    if (compiler_options.platform == Platform::Windows) {
-                        // tmp is i64, have to convert to {float, float}
-
-                        // i64
-                        llvm::Type* type_fx2 = llvm::Type::getInt64Ty(context);
-                        // Convert i64 to i64*
-                        llvm::AllocaInst *p_fx2 = builder->CreateAlloca(type_fx2, nullptr);
-                        builder->CreateStore(tmp, p_fx2);
-                        // Convert i64* to {float,float}* using bitcast
-                        tmp = builder->CreateBitCast(p_fx2, complex_type_4->getPointerTo());
-                        // Convert {float,float}* to {float,float}
-                        tmp = CreateLoad(tmp);
-                    } else if (compiler_options.platform == Platform::macOS_ARM) {
-                        // pass
-                    } else {
-                        // tmp is <2 x float>, have to convert to {float, float}
-
-                        // <2 x float>
-                        llvm::Type* type_fx2 = FIXED_VECTOR_TYPE::get(llvm::Type::getFloatTy(context), 2);
-                        // Convert <2 x float> to <2 x float>*
-                        llvm::AllocaInst *p_fx2 = builder->CreateAlloca(type_fx2, nullptr);
-                        builder->CreateStore(tmp, p_fx2);
-                        // Convert <2 x float>* to {float,float}* using bitcast
-                        tmp = builder->CreateBitCast(p_fx2, complex_type_4->getPointerTo());
-                        // Convert {float,float}* to {float,float}
-                        tmp = CreateLoad(tmp);
-                    }
-                }
-            }
-        }
-        calling_function_hash = h;
-        pop_nested_stack(s);
-    }
-
-    void visit_ArraySize(const ASR::ArraySize_t& x) {
-        if( x.m_value ) {
-            visit_expr_wrapper(x.m_value, true);
-            return ;
-        }
-        int output_kind = ASRUtils::extract_kind_from_ttype_t(x.m_type);
-        int dim_kind = 4;
-        int64_t ptr_loads_copy = ptr_loads;
-        ptr_loads = 2 - // Sync: instead of 2 - , should this be ptr_loads_copy -
-                    (ASRUtils::expr_type(x.m_v)->type ==
-                     ASR::ttypeType::Pointer);
-        visit_expr_wrapper(x.m_v);
-        ptr_loads = ptr_loads_copy;
-        llvm::Value* llvm_arg = tmp;
-        llvm::Value* llvm_dim = nullptr;
-        if( x.m_dim ) {
-            visit_expr_wrapper(x.m_dim, true);
-            dim_kind = ASRUtils::extract_kind_from_ttype_t(ASRUtils::expr_type(x.m_dim));
-            llvm_dim = tmp;
-        }
-        tmp = arr_descr->get_array_size(llvm_arg, llvm_dim, output_kind, dim_kind);
-    }
-
-    void visit_ArrayBound(const ASR::ArrayBound_t& x) {
-        ASR::expr_t* array_value = ASRUtils::expr_value(x.m_v);
-        if( array_value && ASR::is_a<ASR::ArrayConstant_t>(*array_value) ) {
-            ASR::ArrayConstant_t* array_const = ASR::down_cast<ASR::ArrayConstant_t>(array_value);
-            int kind = ASRUtils::extract_kind_from_ttype_t(x.m_type);
-            size_t bound_value = 0;
-            if( x.m_bound == ASR::arrayboundType::LBound ) {
-                bound_value = 1;
-            } else if( x.m_bound == ASR::arrayboundType::UBound ) {
-                bound_value = array_const->n_args;
-            } else {
-                LCOMPILERS_ASSERT(false);
-            }
-            tmp = llvm::ConstantInt::get(context, llvm::APInt(kind * 8, bound_value));
-            return ;
-        }
-        int64_t ptr_loads_copy = ptr_loads;
-        ptr_loads = 2 - // Sync: instead of 2 - , should this be ptr_loads_copy -
-                    (ASRUtils::expr_type(x.m_v)->type ==
-                     ASR::ttypeType::Pointer);
-        visit_expr_wrapper(x.m_v);
-        ptr_loads = ptr_loads_copy;
-        llvm::Value* llvm_arg1 = tmp;
-        llvm::Value* dim_des_val = arr_descr->get_pointer_to_dimension_descriptor_array(llvm_arg1);
-        visit_expr_wrapper(x.m_dim, true);
-        llvm::Value* dim_val = tmp;
-        llvm::Value* const_1 = llvm::ConstantInt::get(context, llvm::APInt(32, 1));
-        dim_val = builder->CreateSub(dim_val, const_1);
-        llvm::Value* dim_struct = arr_descr->get_pointer_to_dimension_descriptor(dim_des_val, dim_val);
-        llvm::Value* res = nullptr;
-        if( x.m_bound == ASR::arrayboundType::LBound ) {
-            res = arr_descr->get_lower_bound(dim_struct);
-        } else if( x.m_bound == ASR::arrayboundType::UBound ) {
-            res = arr_descr->get_upper_bound(dim_struct);
-        }
-        tmp = res;
-    }
-
-};
-
-
-
-Result<std::unique_ptr<LLVMModule>> asr_to_llvm(ASR::TranslationUnit_t &asr,
-        diag::Diagnostics &diagnostics,
-        llvm::LLVMContext &context, Allocator &al,
-        LCompilers::PassManager& pass_manager,
-        CompilerOptions &co, const std::string &run_fn,
-        const std::string &infile)
-{
-#if LLVM_VERSION_MAJOR >= 15
-    context.setOpaquePointers(false);
-#endif
-    ASRToLLVMVisitor v(al, context, infile, co, diagnostics);
-    LCompilers::PassOptions pass_options;
-    pass_options.runtime_library_dir = co.runtime_library_dir;
-    pass_options.mod_files_dir = co.mod_files_dir;
-    pass_options.include_dirs = co.include_dirs;
-    pass_options.run_fun = run_fn;
-    pass_options.always_run = false;
-    pass_manager.rtlib = co.rtlib;
-    pass_manager.apply_passes(al, &asr, pass_options, diagnostics);
-
-    // Uncomment for debugging the ASR after the transformation
-    // std::cout << pickle(asr, true, true, true) << std::endl;
-
-    v.nested_func_types = pass_find_nested_vars(asr, context,
-        v.nested_globals, v.nested_call_out, v.nesting_map);
-    try {
-        v.visit_asr((ASR::asr_t&)asr);
-    } catch (const CodeGenError &e) {
-        Error error;
-        diagnostics.diagnostics.push_back(e.d);
-        return error;
-    } catch (const CodeGenAbort &) {
-        LCOMPILERS_ASSERT(diagnostics.has_error())
-        Error error;
-        return error;
-    }
-    std::string msg;
-    llvm::raw_string_ostream err(msg);
-    if (llvm::verifyModule(*v.module, &err)) {
-        std::string buf;
-        llvm::raw_string_ostream os(buf);
-        v.module->print(os, nullptr);
-        std::cout << os.str();
-        msg = "asr_to_llvm: module failed verification. Error:\n" + err.str();
-        diagnostics.diagnostics.push_back(diag::Diagnostic(msg,
-            diag::Level::Error, diag::Stage::CodeGen));
-        Error error;
-        return error;
-    };
-    return std::make_unique<LLVMModule>(std::move(v.module));
-}
-
-} // namespace LCompilers
diff --git a/src/libasr/codegen/asr_to_llvm.h b/src/libasr/codegen/asr_to_llvm.h
deleted file mode 100644
index a1e911e0c2..0000000000
--- a/src/libasr/codegen/asr_to_llvm.h
+++ /dev/null
@@ -1,20 +0,0 @@
-#ifndef LFORTRAN_ASR_TO_LLVM_H
-#define LFORTRAN_ASR_TO_LLVM_H
-
-#include <libasr/asr.h>
-#include <libasr/codegen/evaluator.h>
-#include <libasr/pass/pass_manager.h>
-
-namespace LCompilers {
-
-    Result<std::unique_ptr<LLVMModule>> asr_to_llvm(ASR::TranslationUnit_t &asr,
-            diag::Diagnostics &diagnostics,
-            llvm::LLVMContext &context, Allocator &al,
-            LCompilers::PassManager& pass_manager,
-            CompilerOptions &compiler_options,
-            const std::string &run_fn,
-            const std::string &infile);
-
-} // namespace LCompilers
-
-#endif // LFORTRAN_ASR_TO_LLVM_H
diff --git a/src/libasr/codegen/asr_to_py.cpp b/src/libasr/codegen/asr_to_py.cpp
deleted file mode 100644
index 06865b1e81..0000000000
--- a/src/libasr/codegen/asr_to_py.cpp
+++ /dev/null
@@ -1,473 +0,0 @@
-#include <iostream>
-#include <memory>
-#include <libasr/asr.h>
-#include <libasr/containers.h>
-#include <libasr/exception.h>
-#include <libasr/asr_utils.h>
-#include <libasr/string_utils.h>
-
-
-/*
- *
- * This back-end generates wrapper code that allows Fortran to automatically be called from Python.
- * It also generates a C header file, so I suppose it indirectly generates C wrappers as well.
- * Currently, it outputs Cython, rather than the Python C API directly - much easier to implement.
- * The actual output files are:
- *  - a .h file, containing C-language function declarations *
- *  - a .pxd file, basically containing the same information as the .h file, but in Cython's format.
- *  - a .pyx file, which is a Cython file that includes the actual python-callable wrapper functions.
- *
- *  Currently, this back-end only wraps functions that are marked "bind (c)" in the Fortran source.
- *  At some later point we will offer the functionality to generate bind (c) wrapper functions for
- *  normal Fortran subprograms, but for now, we don't offer this functionality.
- *
- *  --- H. Snyder, Aug 2021
- *
- * */
-
-
-/*
- * The following technique is called X-macros, if you don't recognize it.
- * You should be able to look it up under that name for an explanation.
- */
-
-#define CTYPELIST \
-    _X(ASR::Integer_t, 1, "int8_t" ) \
-    _X(ASR::Integer_t, 2, "int16_t" ) \
-    _X(ASR::Integer_t, 4, "int32_t" ) \
-    _X(ASR::Integer_t, 8, "int64_t" ) \
-    \
-    _X(ASR::Real_t,    4, "float" ) \
-    _X(ASR::Real_t,    8, "double" ) \
-    \
-    _X(ASR::Complex_t, 4, "float _Complex" ) \
-    _X(ASR::Complex_t, 8, "double _Complex" ) \
-    \
-    _X(ASR::Logical_t, 1,   "_Bool" ) \
-    _X(ASR::Character_t, 1, "char" )
-
-
-/*
- * We will use this list instead, once the ASR has symbolic kind information.
-
-#define CTYPELIST_FUTURE \
-    _X(ASR::Integer_t, "c_int",           "int"   ) \
-    _X(ASR::Integer_t, "c_short",         "short" ) \
-    _X(ASR::Integer_t, "c_long",          "long"  ) \
-    _X(ASR::Integer_t, "c_long_long",     "long long" ) \
-    _X(ASR::Integer_t, "c_signed_char",   "signed char" ) \
-    _X(ASR::Integer_t, "c_size_t",        "size_t" ) \
-    \
-    _X(ASR::Integer_t, "c_int8_t",        "int8_t" ) \
-    _X(ASR::Integer_t, "c_int16_t",       "int16_t" ) \
-    _X(ASR::Integer_t, "c_int32_t",       "int32_t" ) \
-    _X(ASR::Integer_t, "c_int64_t",       "int64_t" ) \
-    \
-    _X(ASR::Integer_t, "c_int_least8_t",  "int_least8_t" ) \
-    _X(ASR::Integer_t, "c_int_least16_t", "int_least16_t" ) \
-    _X(ASR::Integer_t, "c_int_least32_t", "int_least32_t" ) \
-    _X(ASR::Integer_t, "c_int_least64_t", "int_least64_t" ) \
-    \
-    _X(ASR::Integer_t, "c_int_fast8_t",   "int_fast8_t" ) \
-    _X(ASR::Integer_t, "c_int_fast16_t",  "int_fast16_t" ) \
-    _X(ASR::Integer_t, "c_int_fast32_t",  "int_fast32_t" ) \
-    _X(ASR::Integer_t, "c_int_fast64_t",  "int_fast64_t" ) \
-    \
-    _X(ASR::Integer_t, "c_intmax_t",      "intmax_t" ) \
-    _X(ASR::Integer_t, "c_intptr_t",      "intptr_t" ) \
-    _X(ASR::Integer_t, "c_ptrdiff_t",     "ptrdiff_t" ) \
-    \
-    _X(ASR::Real_t,    "c_float",         "float" ) \
-    _X(ASR::Real_t,    "c_double",        "double" ) \
-    _X(ASR::Real_t,    "c_long_double",   "long double" ) \
-    \
-    _X(ASR::Complex_t, "c_float_complex", "float _Complex" ) \
-    _X(ASR::Complex_t, "c_double_complex", "double _Complex" ) \
-    _X(ASR::Complex_t, "c_long_double_complex", "long double _Complex" ) \
-    \
-    _X(ASR::Logical_t, "c_bool",          "_Bool" ) \
-    _X(ASR::Character_t, "c_char",        "char" )
- */
-
-namespace LCompilers {
-
-namespace {
-
-    // Local exception that is only used in this file to exit the visitor
-    // pattern and caught later (not propagated outside)
-    class CodeGenError
-    {
-    public:
-        diag::Diagnostic d;
-    public:
-        CodeGenError(const std::string &msg)
-            : d{diag::Diagnostic(msg, diag::Level::Error, diag::Stage::CodeGen)}
-        { }
-    };
-
-}
-
-using ASR::is_a;
-using ASR::down_cast;
-using ASR::down_cast2;
-
-class ASRToPyVisitor : public ASR::BaseVisitor<ASRToPyVisitor>
-{
-public:
-    // These store the strings that will become the contents of the generated .h, .pxd, .pyx files
-    std::string chdr, pxd, pyx;
-
-    // Stores the name of the current module being visited.
-    // Value is meaningless after calling ASRToPyVisitor::visit_asr.
-    std::string cur_module;
-
-    // Are we assuming arrays to be in C order (row-major)? If not, assume Fortran order (column-major).
-    bool c_order;
-
-    // What's the file name of the C header file we're going to generate? (needed for the .pxd)
-    std::string chdr_filename;
-    // What's the name of the pxd file (minus the .pxd extension)
-    std::string pxdf;
-
-    ASRToPyVisitor(bool c_order_, std::string chdr_filename_) :
-            c_order(c_order_),
-            chdr_filename(chdr_filename_),
-            pxdf(chdr_filename_)
-    {
-        // we need to get get the pxd filename (minus extension), so we can import it in the pyx file
-        // knock off ".h" from the c header filename
-        pxdf.erase(--pxdf.end());
-        pxdf.erase(--pxdf.end());
-        // this is an unfortunate hack, but we have to add something so that the pxd and pyx filenames
-        // are different (beyond just their extensions). If we don't, the cython emits a warning.
-        // TODO we definitely need to change this somehow because right now this "append _pxd" trick
-        // exists in two places (bin/lfortran.cpp, and here), which could easily cause breakage.
-        pxdf += "_pxd";
-    }
-
-    std::tuple<std::string, std::string, std::string, std::string, std::string>
-    helper_visit_arguments(size_t n_args, ASR::expr_t ** args)
-    {
-
-        struct arg_info {
-            ASR::Variable_t*  asr_obj;
-            std::string       ctype;
-            int               ndims;
-
-            std::vector<std::string> ubound_varnames;
-            std::vector<std::pair<std::string,int> > i_am_ubound_of;
-        };
-
-        std::vector<arg_info> arg_infos;
-
-
-        /* get_arg_infos */ for (size_t i=0; i<n_args; i++) {
-
-            ASR::Variable_t *arg = ASRUtils::EXPR2VAR(args[i]);
-            LCOMPILERS_ASSERT(ASRUtils::is_arg_dummy(arg->m_intent));
-
-            // TODO add support for (or emit error on) assumed-shape arrays
-            // TODO add support for interoperable derived types
-
-            arg_info this_arg_info;
-
-            const char * errmsg1 = "pywrap does not yet support array dummy arguments with lower bounds other than 1.";
-            const char * errmsg2 = "pywrap can only generate wrappers for array dummy arguments "
-                                   "if the upper bound is a constant integer, or another (scalar) dummy argument.";
-
-            // Generate a sequence of if-blocks to determine the type, using the type list defined above
-            #define _X(ASR_TYPE, KIND, CTYPE_STR) \
-            if ( is_a<ASR_TYPE>(*arg->m_type) && (down_cast<ASR_TYPE>(arg->m_type)->m_kind == KIND) ) { \
-                this_arg_info.asr_obj = arg;                                                       \
-                this_arg_info.ctype   = CTYPE_STR;                                                 \
-                auto tmp_arg          = down_cast<ASR_TYPE>(arg->m_type);                          \
-                this_arg_info.ndims   = tmp_arg->n_dims;                                           \
-                for (int j = 0; j < this_arg_info.ndims; j++) {                                    \
-                    auto lbound_ptr = tmp_arg->m_dims[j].m_start;                                  \
-                    if (!is_a<ASR::IntegerConstant_t>(*lbound_ptr)) {                              \
-                        throw CodeGenError(errmsg1);                                               \
-                    }                                                                              \
-                    if (down_cast<ASR::IntegerConstant_t>(lbound_ptr)->m_n != 1) {                 \
-                        throw CodeGenError(errmsg1);                                               \
-                    }                                                                              \
-                    if (is_a<ASR::Var_t>(*tmp_arg->m_dims[j].m_length)) {                             \
-                        ASR::Variable_t *dimvar = ASRUtils::EXPR2VAR(tmp_arg->m_dims[j].m_length);    \
-                        this_arg_info.ubound_varnames.push_back(dimvar->m_name);                   \
-                    } else if (!is_a<ASR::IntegerConstant_t>(*lbound_ptr)) {                       \
-                        throw CodeGenError(errmsg2);                                               \
-                    }                                                                              \
-                }                                                                                  \
-            } else
-
-            CTYPELIST {
-                // We end up in this block if none of the above if-blocks were triggered
-                throw CodeGenError("Type not supported");
-            };
-            #undef _X
-
-            arg_infos.push_back(this_arg_info);
-
-        } /* get_arg_infos */
-
-
-        /* mark_array_bound_vars */ for(auto arg_iter = arg_infos.begin(); arg_iter != arg_infos.end(); arg_iter++) {
-
-            /* some dummy args might just be the sizes of other dummy args, e.g.:
-
-            subroutine foo(n,x)
-                integer :: n, x(n)
-            end subroutine
-
-            We don't actually want `n` in the python wrapper's arguments - the Python programmer
-            shouldn't need to explicitly pass sizes. From the get_arg_infos block, we already have
-            the mapping from `x` to `n`, but we also need the opposite - we need be able to look at
-            `n` and know that it's related to `x`. So let's do a pass over the arg_infos list and
-            assemble that information.
-
-            */
-
-            for (auto bound_iter =  arg_iter->ubound_varnames.begin();
-                      bound_iter != arg_iter->ubound_varnames.end();
-                      bound_iter++ ) {
-                for (unsigned int j = 0; j < arg_infos.size(); j++) {
-                    if (0 == std::string(arg_infos[j].asr_obj->m_name).compare(*bound_iter)) {
-                        arg_infos[j].i_am_ubound_of.push_back(std::make_pair(arg_iter->asr_obj->m_name, j));
-                    }
-                }
-            }
-
-        } /* mark_array_bound_vars */
-
-
-        /* apply_c_order */ if(c_order) {
-
-            for(auto arg_iter = arg_infos.begin(); arg_iter != arg_infos.end(); arg_iter++) {
-
-                for (auto bound =  arg_iter->i_am_ubound_of.begin();
-                          bound != arg_iter->i_am_ubound_of.end();
-                          bound++) {
-                    auto x = std::make_pair(bound->first, - bound->second -1);
-                    bound->swap(x);
-                }
-
-            }
-
-        } /* apply_c_order */
-
-        std::string c, cyargs, fargs, pyxbody, return_statement;
-
-        /* build_return_strings */ for(auto it = arg_infos.begin(); it != arg_infos.end(); it++) {
-
-            std::string c_wip, cyargs_wip, fargs_wip, rtn_wip;
-
-            c_wip = it->ctype;
-
-            // Get type for cython wrapper argument, from the C type name
-            if (it->ndims > 0) {
-                std::string mode     = c_order   ? ", mode=\"c\"" : ", mode=\"fortran\"";
-                std::string strndims = it->ndims > 1 ? ", ndim="+std::to_string(it->ndims) : "";
-                cyargs_wip += "ndarray[" + it->ctype + strndims + mode + "]";
-            } else {
-                cyargs_wip += it->ctype;
-            }
-
-            // Fortran defaults to pass-by-reference, so the C argument is a pointer, unless
-            // it is not an array AND it has the value type.
-            if (it->ndims > 0 || !it->asr_obj->m_value_attr) {
-                c_wip += " *";
-                fargs_wip = "&";
-                // If the argument is intent(in) and a pointer, it should be a ptr-to-const.
-                if (ASR::intentType::In == it->asr_obj->m_intent) c_wip = "const " + c_wip;
-            }
-
-            c_wip += " ";
-            c_wip += it->asr_obj->m_name;
-
-            cyargs_wip += " ";
-            cyargs_wip += it->asr_obj->m_name;
-
-            fargs_wip += it->asr_obj->m_name;
-            if(it->ndims > 0) {
-                fargs_wip += "[0";
-                for(int h = 1; h < it->ndims; h++)
-                    fargs_wip += ",0";
-                fargs_wip += "]";
-            }
-
-            if (ASR::intentType::Out == it->asr_obj->m_intent ||
-                ASR::intentType::InOut == it->asr_obj->m_intent) {
-                rtn_wip = it->asr_obj->m_name;
-            }
-
-
-            if(!it->i_am_ubound_of.empty()) {
-                cyargs_wip.clear();
-                auto& i_am_ubound_of = it->i_am_ubound_of[0];
-                pyxbody += "    cdef " + it->ctype + " ";
-                pyxbody += it->asr_obj->m_name;
-                pyxbody += " = ";
-                pyxbody += i_am_ubound_of.first + ".shape[" + std::to_string(i_am_ubound_of.second) + "]\n";
-                for(unsigned int k = 1; k < it->i_am_ubound_of.size(); k++) {
-                    auto& i_am_ubound_of_k = it->i_am_ubound_of[k];
-                    pyxbody += "    assert(" + i_am_ubound_of_k.first + ".shape[" + std::to_string(i_am_ubound_of_k.second) + "] == "
-                                             + i_am_ubound_of.first   + ".shape[" + std::to_string(i_am_ubound_of.second)   + "])\n";
-                }
-            }
-
-            if(!c.empty()       && !c_wip.empty())      c += ", ";
-            if(!fargs.empty()   && !fargs_wip.empty())  fargs += ", ";
-            if(!cyargs.empty()  && !cyargs_wip.empty()) cyargs += ", ";
-            if(!return_statement.empty() && !rtn_wip.empty()) return_statement += ", ";
-
-            c      += c_wip;
-            fargs  += fargs_wip;
-            cyargs += cyargs_wip;
-            return_statement += rtn_wip;
-
-
-        } /* build_return_strings */
-
-        return std::make_tuple(c, cyargs, fargs, pyxbody, return_statement);
-    }
-
-    void visit_TranslationUnit(const ASR::TranslationUnit_t &x) {
-        // All loose statements must be converted to a function, so the items
-        // must be empty:
-        LCOMPILERS_ASSERT(x.n_items == 0);
-
-        std::string chdr_tmp ;
-        std::string pxd_tmp  ;
-        std::string pyx_tmp  ;
-
-        chdr_tmp =  "// This file was automatically generated by the LCompilers compiler.\n";
-        chdr_tmp += "// Editing by hand is discouraged.\n\n";
-        chdr_tmp += "#include <stdint.h>\n\n";
-
-        pxd_tmp =   "# This file was automatically generated by the LCompilers compiler.\n";
-        pxd_tmp +=  "# Editing by hand is discouraged.\n\n";
-        pxd_tmp +=  "from libc.stdint cimport int8_t, int16_t, int32_t, int64_t\n";
-        pxd_tmp +=  "cdef extern from \"" + chdr_filename + "\":\n";
-
-
-        pyx_tmp =  "# This file was automatically generated by the LCompilers compiler.\n";
-        pyx_tmp += "# Editing by hand is discouraged.\n\n";
-        pyx_tmp += "from numpy cimport import_array, ndarray, int8_t, int16_t, int32_t, int64_t\n";
-        pyx_tmp += "from numpy import empty, int8, int16, int32, int64\n";
-        pyx_tmp += "cimport " + pxdf + " \n\n";
-
-        // Process loose procedures first
-        for (auto &item : x.m_global_scope->get_scope()) {
-            if (is_a<ASR::Function_t>(*item.second)) {
-                visit_symbol(*item.second);
-
-                chdr_tmp += chdr;
-                pxd_tmp  += pxd;
-                pyx_tmp  += pyx;
-            }
-        }
-
-        // Then do all the modules in the right order
-        std::vector<std::string> build_order
-            = ASRUtils::determine_module_dependencies(x);
-        for (auto &item : build_order) {
-            LCOMPILERS_ASSERT(x.m_global_scope->get_scope().find(item)
-                    != x.m_global_scope->get_scope().end());
-            if (!startswith(item, "lfortran_intrinsic")) {
-                ASR::symbol_t *mod = x.m_global_scope->get_symbol(item);
-                visit_symbol(*mod);
-
-                chdr_tmp += chdr;
-                pxd_tmp  += pxd;
-                pyx_tmp  += pyx;
-            }
-        }
-
-        // There's no need to process the `program` statement, which
-        // is the only other thing that can appear at the top level.
-
-        chdr = chdr_tmp;
-        pyx  = pyx_tmp;
-        pxd  = pxd_tmp;
-    }
-
-    void visit_Module(const ASR::Module_t &x) {
-        cur_module = x.m_name;
-
-        // Generate code for nested subroutines and functions first:
-        std::string chdr_tmp ;
-        std::string pxd_tmp  ;
-        std::string pyx_tmp  ;
-
-        for (auto &item : x.m_symtab->get_scope()) {
-            if (is_a<ASR::Function_t>(*item.second)) {
-                ASR::Function_t *s = ASR::down_cast<ASR::Function_t>(item.second);
-                visit_Function(*s);
-
-                chdr_tmp += chdr;
-                pxd_tmp  += pxd;
-                pyx_tmp  += pyx;
-            }
-        }
-
-
-        chdr = chdr_tmp;
-        pyx  = pyx_tmp;
-        pxd  = pxd_tmp;
-
-        cur_module.clear();
-    }
-
-    void visit_Function(const ASR::Function_t &x) {
-
-        // Only process bind(c) subprograms for now
-        if (ASRUtils::get_FunctionType(x)->m_abi != ASR::abiType::BindC) return;
-
-        // Return type and function name
-        bool bindc_name_not_given = (ASRUtils::get_FunctionType(x)->m_bindc_name == NULL ||
-                                     !strcmp("", ASRUtils::get_FunctionType(x)->m_bindc_name));
-        std::string effective_name = bindc_name_not_given ? x.m_name : ASRUtils::get_FunctionType(x)->m_bindc_name;
-
-        ASR::Variable_t *rtnvar = ASRUtils::EXPR2VAR(x.m_return_var);
-        std::string rtnvar_type;
-        #define _X(ASR_TYPE, KIND, CTYPE_STR) \
-        if ( is_a<ASR_TYPE>(*rtnvar->m_type) && (down_cast<ASR_TYPE>(rtnvar->m_type)->m_kind == KIND) ) { \
-            rtnvar_type = CTYPE_STR;                                                                     \
-        } else
-
-        CTYPELIST {
-            throw CodeGenError("Unrecognized or non-interoperable return type/kind");
-        }
-        #undef _X
-        std::string rtnvar_name = effective_name + "_rtnval__";
-
-        chdr = rtnvar_type + " " + effective_name + " (";
-
-        std::string c_args, cy_args, call_args, pyx_body, rtn_statement;
-        std::tie(c_args,cy_args,call_args,pyx_body,rtn_statement) = helper_visit_arguments(x.n_args, x.m_args);
-
-        std::string rtnarg_str =  rtnvar_name;
-        if(!rtn_statement.empty()) rtnarg_str += ", ";
-        rtn_statement = "    return " + rtnarg_str  + rtn_statement;
-
-        chdr += c_args + ")";
-        pxd = "    " + chdr + "\n";
-        chdr += ";\n" ;
-
-        pyx = "def " + effective_name + " (" + cy_args + "):\n";
-        pyx += pyx_body;
-        pyx += "    cdef " + rtnvar_type + " " + rtnvar_name  + " = " + pxdf +"."+ effective_name + " (" + call_args + ")\n";
-        pyx += rtn_statement + "\n\n";
-
-    }
-
-};
-
-std::tuple<std::string, std::string, std::string> asr_to_py(ASR::TranslationUnit_t &asr, bool c_order, std::string chdr_filename)
-{
-    ASRToPyVisitor v (c_order, chdr_filename);
-    v.visit_asr((ASR::asr_t &)asr);
-
-    return std::make_tuple(v.chdr, v.pxd, v.pyx);
-}
-
-} // namespace LCompilers
diff --git a/src/libasr/codegen/asr_to_py.h b/src/libasr/codegen/asr_to_py.h
deleted file mode 100644
index 750057f7ff..0000000000
--- a/src/libasr/codegen/asr_to_py.h
+++ /dev/null
@@ -1,13 +0,0 @@
-#ifndef LFORTRAN_ASR_TO_PY_H
-#define LFORTRAN_ASR_TO_PY_H
-
-#include <libasr/asr.h>
-#include <tuple>
-
-namespace LCompilers {
-
-    std::tuple<std::string, std::string, std::string> asr_to_py(ASR::TranslationUnit_t &asr, bool c_order, std::string chdr_filename);
-
-} // namespace LCompilers
-
-#endif // LFORTRAN_ASR_TO_PY_H
diff --git a/src/libasr/codegen/asr_to_wasm.cpp b/src/libasr/codegen/asr_to_wasm.cpp
deleted file mode 100644
index 1144036fc4..0000000000
--- a/src/libasr/codegen/asr_to_wasm.cpp
+++ /dev/null
@@ -1,2610 +0,0 @@
-#include <iostream>
-#include <memory>
-#include <chrono>
-#include <iomanip>
-#include <fstream>
-
-#include <libasr/asr.h>
-#include <libasr/containers.h>
-#include <libasr/codegen/asr_to_wasm.h>
-#include <libasr/codegen/wasm_assembler.h>
-#include <libasr/pass/do_loops.h>
-#include <libasr/pass/unused_functions.h>
-#include <libasr/pass/pass_array_by_data.h>
-#include <libasr/exception.h>
-#include <libasr/asr_utils.h>
-
-// #define SHOW_ASR
-
-#ifdef SHOW_ASR
-#include <lfortran/pickle.h>
-#endif
-
-namespace LCompilers {
-
-namespace {
-
-// This exception is used to abort the visitor pattern when an error occurs.
-class CodeGenAbort {};
-
-// Local exception that is only used in this file to exit the visitor
-// pattern and caught later (not propagated outside)
-class CodeGenError {
-   public:
-    diag::Diagnostic d;
-
-   public:
-    CodeGenError(const std::string &msg)
-        : d{diag::Diagnostic(msg, diag::Level::Error, diag::Stage::CodeGen)} {}
-
-    CodeGenError(const std::string &msg, const Location &loc)
-        : d{diag::Diagnostic(msg, diag::Level::Error, diag::Stage::CodeGen,
-                             {diag::Label("", {loc})})} {}
-};
-
-}  // namespace
-
-// Platform dependent fast unique hash:
-static uint64_t get_hash(ASR::asr_t *node) { return (uint64_t)node; }
-
-struct ImportFunc {
-    std::string name;
-    std::vector<std::pair<ASR::ttypeType, uint32_t>> param_types, result_types;
-};
-
-struct SymbolFuncInfo {
-    bool needs_declaration = true;
-    bool intrinsic_function = false;
-    uint32_t index = 0;
-    uint32_t no_of_variables = 0;
-    ASR::Variable_t *return_var = nullptr;
-    Vec<ASR::Variable_t *> referenced_vars;
-};
-
-class ASRToWASMVisitor : public ASR::BaseVisitor<ASRToWASMVisitor> {
-   public:
-    Allocator &m_al;
-    diag::Diagnostics &diag;
-
-    bool intrinsic_module;
-    SymbolTable *global_scope;
-    Location global_scope_loc;
-    SymbolFuncInfo *cur_sym_info;
-    uint32_t nesting_level;
-    uint32_t cur_loop_nesting_level;
-    bool is_prototype_only;
-
-    Vec<uint8_t> m_type_section;
-    Vec<uint8_t> m_import_section;
-    Vec<uint8_t> m_func_section;
-    Vec<uint8_t> m_memory_section;
-    Vec<uint8_t> m_global_section;
-    Vec<uint8_t> m_export_section;
-    Vec<uint8_t> m_code_section;
-    Vec<uint8_t> m_data_section;
-
-    uint32_t no_of_types;
-    uint32_t no_of_functions;
-    uint32_t no_of_memories;
-    uint32_t no_of_globals;
-    uint32_t no_of_exports;
-    uint32_t no_of_imports;
-    uint32_t no_of_data_segments;
-    uint32_t avail_mem_loc;
-    uint32_t digits_mem_loc;
-
-    uint32_t min_no_pages;
-    uint32_t max_no_pages;
-
-    std::map<uint64_t, uint32_t> m_var_name_idx_map;
-    std::map<uint64_t, SymbolFuncInfo *> m_func_name_idx_map;
-    std::map<std::string, ASR::asr_t *> m_import_func_asr_map;
-    std::map<std::string, uint32_t> m_string_to_iov_loc_map;
-
-   public:
-    ASRToWASMVisitor(Allocator &al, diag::Diagnostics &diagnostics)
-        : m_al(al), diag(diagnostics) {
-        intrinsic_module = false;
-        is_prototype_only = false;
-        nesting_level = 0;
-        cur_loop_nesting_level = 0;
-        no_of_types = 0;
-        avail_mem_loc = 0;
-        no_of_functions = 0;
-        no_of_memories = 0;
-        no_of_globals = 0;
-        no_of_exports = 0;
-        no_of_imports = 0;
-        no_of_data_segments = 0;
-
-        min_no_pages = 100;  // fixed 6.4 Mb memory currently
-        max_no_pages = 100;  // fixed 6.4 Mb memory currently
-
-        m_type_section.reserve(m_al, 1024 * 128);
-        m_import_section.reserve(m_al, 1024 * 128);
-        m_func_section.reserve(m_al, 1024 * 128);
-        m_memory_section.reserve(m_al, 1024 * 128);
-        m_global_section.reserve(m_al, 1024 * 128);
-        m_export_section.reserve(m_al, 1024 * 128);
-        m_code_section.reserve(m_al, 1024 * 128);
-        m_data_section.reserve(m_al, 1024 * 128);
-    }
-
-    void get_wasm(Vec<uint8_t> &code) {
-        code.reserve(m_al, 8U /* preamble size */ +
-                               8U /* (section id + section size) */ *
-                                   8U /* number of sections */
-                               + m_type_section.size() +
-                               m_import_section.size() + m_func_section.size() +
-                               m_memory_section.size() + m_global_section.size() +
-                               m_export_section.size() + m_code_section.size() +
-                               m_data_section.size());
-
-        wasm::emit_header(code, m_al);  // emit header and version
-        wasm::encode_section(
-            code, m_type_section, m_al, 1U,
-            no_of_types);  // no_of_types indicates total (imported + defined)
-                           // no of functions
-        wasm::encode_section(code, m_import_section, m_al, 2U, no_of_imports);
-        wasm::encode_section(code, m_func_section, m_al, 3U, no_of_functions);
-        wasm::encode_section(code, m_memory_section, m_al, 5U, no_of_memories);
-        wasm::encode_section(code, m_global_section, m_al, 6U, no_of_globals);
-        wasm::encode_section(code, m_export_section, m_al, 7U, no_of_exports);
-        wasm::encode_section(code, m_code_section, m_al, 10U, no_of_functions);
-        wasm::encode_section(code, m_data_section, m_al, 11U,
-                             no_of_data_segments);
-    }
-
-    ASR::asr_t *get_import_func_var_type(
-        std::pair<ASR::ttypeType, uint32_t> &type) {
-        switch (type.first) {
-            case ASR::ttypeType::Integer:
-                return ASR::make_Integer_t(m_al, global_scope_loc, type.second,
-                                           nullptr, 0);
-            case ASR::ttypeType::Real:
-                return ASR::make_Real_t(m_al, global_scope_loc, type.second,
-                                        nullptr, 0);
-            default:
-                throw CodeGenError("Unsupported Type in Import Function");
-        }
-        return nullptr;
-    }
-
-    void import_function(ImportFunc &import_func, const std::string &env) {
-        Vec<ASR::expr_t *> params;
-        params.reserve(m_al, import_func.param_types.size());
-        uint32_t var_idx;
-        for (var_idx = 0; var_idx < import_func.param_types.size(); var_idx++) {
-            auto param = import_func.param_types[var_idx];
-            auto type = get_import_func_var_type(param);
-            auto variable = ASR::make_Variable_t(
-                m_al, global_scope_loc, nullptr,
-                s2c(m_al, std::to_string(var_idx)), nullptr, 0, ASR::intentType::In,
-                nullptr, nullptr, ASR::storage_typeType::Default,
-                ASRUtils::TYPE(type), ASR::abiType::Source,
-                ASR::accessType::Public, ASR::presenceType::Required, false);
-            auto var = ASR::make_Var_t(m_al, global_scope_loc,
-                                       ASR::down_cast<ASR::symbol_t>(variable));
-            params.push_back(m_al, ASRUtils::EXPR(var));
-        }
-        ASR::expr_t* return_var = nullptr;
-        if (import_func.result_types.size() > 0) {
-            var_idx = 0;
-            auto param = import_func.result_types[var_idx];
-            auto type = get_import_func_var_type(param);
-            auto variable = ASR::make_Variable_t(
-                m_al, global_scope_loc, nullptr,
-                s2c(m_al, std::to_string(var_idx)), nullptr, 0, ASR::intentType::Out,
-                nullptr, nullptr, ASR::storage_typeType::Default,
-                ASRUtils::TYPE(type), ASR::abiType::Source,
-                ASR::accessType::Public, ASR::presenceType::Required, false);
-            auto var = ASR::make_Var_t(m_al, global_scope_loc,
-                                       ASR::down_cast<ASR::symbol_t>(variable));
-            return_var = ASRUtils::EXPR(var);
-        }
-        auto func = ASRUtils::make_Function_t_util(
-            m_al, global_scope_loc, global_scope, s2c(m_al, import_func.name),
-            nullptr, 0, params.data(), params.size(), nullptr, 0, return_var,
-            ASR::abiType::Source, ASR::accessType::Public,
-            ASR::deftypeType::Implementation, nullptr, false, false, false, false, false,
-            nullptr, 0, nullptr, 0, false, false, false);
-        m_import_func_asr_map[import_func.name] = func;
-
-        wasm::emit_import_fn(m_import_section, m_al, env, import_func.name,
-                             no_of_types);
-        emit_function_prototype(*((ASR::Function_t *)func));
-        no_of_imports++;
-    }
-
-    void emit_imports() {
-        std::vector<ImportFunc> import_funcs = {
-            {"print_i32", {{ASR::ttypeType::Integer, 4}}, {}},
-            {"print_i64", {{ASR::ttypeType::Integer, 8}}, {}},
-            {"print_f32", {{ASR::ttypeType::Real, 4}}, {}},
-            {"print_f64", {{ASR::ttypeType::Real, 8}}, {}},
-            {"print_str",
-             {{ASR::ttypeType::Integer, 4}, {ASR::ttypeType::Integer, 4}},
-             {}},
-            {"flush_buf", {}, {}},
-            {"set_exit_code", {{ASR::ttypeType::Integer, 4}}, {}}};
-
-
-        for (auto ImportFunc : import_funcs) {
-            import_function(ImportFunc, "js");
-        }
-
-        // In WASM: The indices of the imports precede the indices of other
-        // definitions in the same index space. Therefore, declare the import
-        // functions before defined functions
-        for (auto &item : global_scope->get_scope()) {
-            if (ASR::is_a<ASR::Program_t>(*item.second)) {
-                ASR::Program_t *p = ASR::down_cast<ASR::Program_t>(item.second);
-                for (auto &item : p->m_symtab->get_scope()) {
-                    if (ASR::is_a<ASR::Function_t>(*item.second)) {
-                        ASR::Function_t *fn =
-                            ASR::down_cast<ASR::Function_t>(item.second);
-                        if (ASRUtils::get_FunctionType(fn)->m_abi == ASR::abiType::BindC &&
-                            ASRUtils::get_FunctionType(fn)->m_deftype == ASR::deftypeType::Interface &&
-                            !ASRUtils::is_intrinsic_function2(fn)) {
-                            wasm::emit_import_fn(m_import_section, m_al, "js",
-                                                 fn->m_name, no_of_types);
-                            no_of_imports++;
-                            emit_function_prototype(*fn);
-                        }
-                    }
-                }
-            } else if (ASR::is_a<ASR::Function_t>(*item.second)) {
-                ASR::Function_t *fn =
-                    ASR::down_cast<ASR::Function_t>(item.second);
-                if (ASRUtils::get_FunctionType(fn)->m_abi == ASR::abiType::BindC &&
-                    ASRUtils::get_FunctionType(fn)->m_deftype == ASR::deftypeType::Interface &&
-                    !ASRUtils::is_intrinsic_function2(fn)) {
-                    wasm::emit_import_fn(m_import_section, m_al, "js",
-                                            fn->m_name, no_of_types);
-                    no_of_imports++;
-                    emit_function_prototype(*fn);
-                }
-            }
-        }
-
-        wasm::emit_import_mem(m_import_section, m_al, "js", "memory",
-                              min_no_pages, max_no_pages);
-        no_of_imports++;
-    }
-
-    void emit_wasi_imports() {
-        std::vector<ImportFunc> wasi_imports_funcs = {
-            {"proc_exit", {{ASR::ttypeType::Integer, 4}}, {}},
-            {"fd_write", {{ASR::ttypeType::Integer, 4}, {ASR::ttypeType::Integer, 4},
-            {ASR::ttypeType::Integer, 4}, {ASR::ttypeType::Integer, 4} }, {{ASR::ttypeType::Integer, 4}}}
-        };
-
-        for (auto wasi_func:wasi_imports_funcs) {
-            import_function(wasi_func, "wasi_snapshot_preview1");
-        }
-    }
-
-    void emit_if_else(std::function<void()> test_cond, std::function<void()> if_block, std::function<void()> else_block) {
-        test_cond();
-        wasm::emit_b8(m_code_section, m_al, 0x04);  // emit if start
-        wasm::emit_b8(m_code_section, m_al, 0x40);  // empty block type
-        nesting_level++;
-        if_block();
-        wasm::emit_b8(m_code_section, m_al, 0x05);  // starting of else
-        else_block();
-        nesting_level--;
-        wasm::emit_expr_end(m_code_section, m_al);  // emit if end
-    }
-
-    void emit_loop(std::function<void()> test_cond, std::function<void()> loop_block) {
-        uint32_t prev_cur_loop_nesting_level = cur_loop_nesting_level;
-        cur_loop_nesting_level = nesting_level;
-
-        wasm::emit_b8(m_code_section, m_al, 0x03);  // emit loop start
-        wasm::emit_b8(m_code_section, m_al, 0x40);  // empty block type
-
-        nesting_level++;
-
-        emit_if_else(test_cond, [&](){
-            loop_block();
-            wasm::emit_branch(m_code_section, m_al, nesting_level -
-                cur_loop_nesting_level - 1);  // emit_branch and label the loop
-        }, [&](){});
-
-        nesting_level--;
-        wasm::emit_expr_end(m_code_section, m_al);  // end loop
-        cur_loop_nesting_level = prev_cur_loop_nesting_level;
-    }
-
-    void emit_print_int() {
-        uint32_t func_idx = no_of_types;
-        { // type declaration
-            wasm::emit_b8(m_type_section, m_al, 0x60);
-            wasm::emit_u32(m_type_section, m_al, 1); // no of params
-            wasm::emit_b8(m_type_section, m_al, wasm::type::i64);
-            wasm::emit_u32(m_type_section, m_al, 0); // no of results
-            no_of_types++;
-        }
-        /*** Reference Function Prototype ***/
-        wasm::emit_u32(m_func_section, m_al, func_idx);
-
-        /*** Function Body Starts Here ***/
-        uint32_t len_idx_code_section_func_size =
-            wasm::emit_len_placeholder(m_code_section, m_al);
-        wasm::emit_u32(m_code_section, m_al, 4u); // no of local vars
-        for (int i = 0; i < 4; i++) {
-            wasm::emit_u32(m_code_section, m_al, 1u); // count of local vars of this type
-            wasm::emit_b8(m_code_section, m_al, wasm::type::i64);
-        }
-
-        // locals 0 is given parameter
-        // locals 1 is digits_cnt
-        // locals 2 is divisor (in powers of 10)
-        // locals 3 is loop counter (counts upto digits_cnt (which is decreasing))
-        // locals 4 is extra copy of given parameter
-
-        emit_if_else([&](){
-            wasm::emit_get_local(m_code_section, m_al, 0);
-            wasm::emit_i64_const(m_code_section, m_al, 0);
-            wasm::emit_i64_eq(m_code_section, m_al);
-        }, [&](){
-            emit_call_fd_write(1, "0", 1, 0);
-            wasm::emit_b8(m_code_section, m_al, 0x0F);  // emit wasm return instruction
-        }, [&](){});
-
-        emit_if_else([&](){
-            wasm::emit_get_local(m_code_section, m_al, 0);
-            wasm::emit_i64_const(m_code_section, m_al, 0);
-            wasm::emit_i64_lt_s(m_code_section, m_al);
-        }, [&](){
-            emit_call_fd_write(1, "-", 1, 0);
-            wasm::emit_get_local(m_code_section, m_al, 0);
-            wasm::emit_i64_const(m_code_section, m_al, -1);
-            wasm::emit_i64_mul(m_code_section, m_al);
-            wasm::emit_set_local(m_code_section, m_al, 0);
-        }, [&](){});
-
-        wasm::emit_get_local(m_code_section, m_al, 0);
-        wasm::emit_set_local(m_code_section, m_al, 4);
-        wasm::emit_i64_const(m_code_section, m_al, 0);
-        wasm::emit_set_local(m_code_section, m_al, 1);
-
-        emit_loop([&](){
-            wasm::emit_get_local(m_code_section, m_al, 0);
-            wasm::emit_i64_const(m_code_section, m_al, 0);
-            wasm::emit_i64_gt_s(m_code_section, m_al);
-        }, [&](){
-            wasm::emit_get_local(m_code_section, m_al, 1);
-            wasm::emit_i64_const(m_code_section, m_al, 1);
-            wasm::emit_i64_add(m_code_section, m_al);
-            wasm::emit_set_local(m_code_section, m_al, 1);
-            wasm::emit_get_local(m_code_section, m_al, 0);
-            wasm::emit_i64_const(m_code_section, m_al, 10);
-            wasm::emit_i64_div_s(m_code_section, m_al);
-            wasm::emit_set_local(m_code_section, m_al, 0);
-        });
-
-        emit_loop([&](){
-            wasm::emit_get_local(m_code_section, m_al, 1);
-            wasm::emit_i64_const(m_code_section, m_al, 0);
-            wasm::emit_i64_gt_s(m_code_section, m_al);
-        }, [&](){
-            wasm::emit_get_local(m_code_section, m_al, 1);
-            wasm::emit_i64_const(m_code_section, m_al, 1);
-            wasm::emit_i64_sub(m_code_section, m_al);
-            wasm::emit_set_local(m_code_section, m_al, 1);
-
-            wasm::emit_i64_const(m_code_section, m_al, 1);
-            wasm::emit_set_local(m_code_section, m_al, 2);
-            wasm::emit_i64_const(m_code_section, m_al, 0);
-            wasm::emit_set_local(m_code_section, m_al, 3);
-
-            emit_loop([&](){
-                wasm::emit_get_local(m_code_section, m_al, 3);
-                wasm::emit_get_local(m_code_section, m_al, 1);
-                wasm::emit_i64_lt_s(m_code_section, m_al);
-            }, [&](){
-                wasm::emit_get_local(m_code_section, m_al, 3);
-                wasm::emit_i64_const(m_code_section, m_al, 1);
-                wasm::emit_i64_add(m_code_section, m_al);
-                wasm::emit_set_local(m_code_section, m_al, 3);
-                wasm::emit_get_local(m_code_section, m_al, 2);
-                wasm::emit_i64_const(m_code_section, m_al, 10);
-                wasm::emit_i64_mul(m_code_section, m_al);
-                wasm::emit_set_local(m_code_section, m_al, 2);
-            });
-
-
-            wasm::emit_get_local(m_code_section, m_al, 4);
-            wasm::emit_get_local(m_code_section, m_al, 2);
-            wasm::emit_i64_div_s(m_code_section, m_al);
-            wasm::emit_i64_const(m_code_section, m_al, 10);
-            wasm::emit_i64_rem_s(m_code_section, m_al);
-
-            /* The digit is on stack */
-            wasm::emit_i64_const(m_code_section, m_al, 12 /* 4 + 4 + 4 (iov vec + str size)*/);
-            wasm::emit_i64_mul(m_code_section, m_al);
-            wasm::emit_i64_const(m_code_section, m_al, digits_mem_loc);
-            wasm::emit_i64_add(m_code_section, m_al);
-            wasm::emit_set_local(m_code_section, m_al, 0); // temporary save
-
-            {
-                wasm::emit_i32_const(m_code_section, m_al, 1); // file type: 1 for stdout
-                wasm::emit_get_local(m_code_section, m_al, 0); // use stored digit
-                wasm::emit_i32_wrap_i64(m_code_section, m_al);
-                wasm::emit_i32_const(m_code_section, m_al, 1); // size of iov vector
-                wasm::emit_i32_const(m_code_section, m_al, 0); // mem_loction to return no. of bytes written
-                // call WASI fd_write
-                wasm::emit_call(
-                    m_code_section, m_al,
-                    m_func_name_idx_map[get_hash(
-                                            m_import_func_asr_map["fd_write"])]
-                        ->index);
-                wasm::emit_drop(m_code_section, m_al);
-            }
-
-        });
-
-        wasm::emit_b8(m_code_section, m_al, 0x0F);  // emit wasm return instruction
-        wasm::emit_expr_end(m_code_section, m_al);
-        wasm::fixup_len(m_code_section, m_al, len_idx_code_section_func_size);
-
-        /*** Export the function ***/
-        wasm::emit_export_fn(m_export_section, m_al, "print_i64", func_idx);  //  add function to export
-        no_of_functions++;
-        no_of_exports++;
-    }
-
-    void emit_print_float() {
-        uint32_t func_idx = no_of_types;
-        { // type declaration
-            wasm::emit_b8(m_type_section, m_al, 0x60);
-            wasm::emit_u32(m_type_section, m_al, 1); // no of params
-            wasm::emit_b8(m_type_section, m_al, wasm::type::f64);
-            wasm::emit_u32(m_type_section, m_al, 0); // no of results
-            no_of_types++;
-        }
-        /*** Reference Function Prototype ***/
-        wasm::emit_u32(m_func_section, m_al, func_idx);
-
-        /*** Function Body Starts Here ***/
-        uint32_t len_idx_code_section_func_size =
-            wasm::emit_len_placeholder(m_code_section, m_al);
-        wasm::emit_u32(m_code_section, m_al, 3u); // no of local vars
-        for (int i = 0; i < 3; i++) {
-            wasm::emit_u32(m_code_section, m_al, 1u); // count of local vars of this type
-            wasm::emit_b8(m_code_section, m_al, wasm::type::i64);
-        }
-
-        emit_if_else([&](){
-            wasm::emit_get_local(m_code_section, m_al, 0);
-            wasm::emit_f64_const(m_code_section, m_al, 0);
-            wasm::emit_f64_lt(m_code_section, m_al);
-        }, [&](){
-            emit_call_fd_write(1, "-", 1, 0);
-            wasm::emit_get_local(m_code_section, m_al, 0);
-            wasm::emit_f64_const(m_code_section, m_al, -1);
-            wasm::emit_f64_mul(m_code_section, m_al);
-            wasm::emit_set_local(m_code_section, m_al, 0);
-        }, [&](){});
-
-        wasm::emit_get_local(m_code_section, m_al, 0);
-        wasm::emit_i64_trunc_f64_s(m_code_section, m_al);
-        wasm::emit_call(m_code_section, m_al, 2 /* print_i64 */);
-        emit_call_fd_write(1, ".", 1, 0);
-
-        wasm::emit_get_local(m_code_section, m_al, 0);
-        wasm::emit_get_local(m_code_section, m_al, 0);
-        wasm::emit_i64_trunc_f64_s(m_code_section, m_al);
-        wasm::emit_f64_convert_i64_s(m_code_section, m_al);
-        wasm::emit_f64_sub(m_code_section, m_al);
-        wasm::emit_f64_const(m_code_section, m_al, 1e8);
-        wasm::emit_f64_mul(m_code_section, m_al);
-        wasm::emit_i64_trunc_f64_s(m_code_section, m_al);
-        wasm::emit_set_local(m_code_section, m_al, 2); /* save the current fractional part value */
-        wasm::emit_get_local(m_code_section, m_al, 2);
-        wasm::emit_set_local(m_code_section, m_al, 3); /* save the another copy */
-
-        wasm::emit_i64_const(m_code_section, m_al, 0);
-        wasm::emit_set_local(m_code_section, m_al, 1); // digits_cnt
-
-        emit_loop([&](){
-            wasm::emit_get_local(m_code_section, m_al, 2);
-            wasm::emit_i64_const(m_code_section, m_al, 0);
-            wasm::emit_i64_gt_s(m_code_section, m_al);
-        }, [&](){
-            wasm::emit_get_local(m_code_section, m_al, 1);
-            wasm::emit_i64_const(m_code_section, m_al, 1);
-            wasm::emit_i64_add(m_code_section, m_al);
-            wasm::emit_set_local(m_code_section, m_al, 1);
-
-            wasm::emit_get_local(m_code_section, m_al, 2);
-            wasm::emit_f64_convert_i64_s(m_code_section, m_al);
-            wasm::emit_i64_const(m_code_section, m_al, 10);
-            wasm::emit_f64_convert_i64_s(m_code_section, m_al);
-            wasm::emit_f64_div(m_code_section, m_al);
-            wasm::emit_i64_trunc_f64_s(m_code_section, m_al);
-            wasm::emit_set_local(m_code_section, m_al, 2);
-        });
-
-        emit_loop([&](){
-            wasm::emit_get_local(m_code_section, m_al, 1);
-            wasm::emit_i64_const(m_code_section, m_al, 8);
-            wasm::emit_i64_lt_s(m_code_section, m_al);
-        }, [&](){
-            wasm::emit_get_local(m_code_section, m_al, 1);
-            wasm::emit_i64_const(m_code_section, m_al, 1);
-            wasm::emit_i64_add(m_code_section, m_al);
-            wasm::emit_set_local(m_code_section, m_al, 1);
-
-            emit_call_fd_write(1, "0", 1, 0);
-        });
-
-        wasm::emit_get_local(m_code_section, m_al, 3);
-        wasm::emit_call(m_code_section, m_al, 2 /* print_i64 */);
-
-        wasm::emit_b8(m_code_section, m_al, 0x0F);  // emit wasm return instruction
-        wasm::emit_expr_end(m_code_section, m_al);
-        wasm::fixup_len(m_code_section, m_al, len_idx_code_section_func_size);
-
-        /*** Export the function ***/
-        wasm::emit_export_fn(m_export_section, m_al, "print_f64", func_idx);  //  add function to export
-        no_of_functions++;
-        no_of_exports++;
-    }
-
-    void declare_global_vars() {
-        { // global variable to hold the available memory location
-            m_global_section.push_back(m_al, wasm::type::i32);
-            m_global_section.push_back(m_al, 0x01 /* mutable */);
-            wasm::emit_i32_const(m_global_section, m_al, 0);
-            wasm::emit_expr_end(m_global_section, m_al);  // end instructions
-            no_of_globals++;
-        }
-    }
-
-    void visit_TranslationUnit(const ASR::TranslationUnit_t &x) {
-        // All loose statements must be converted to a function, so the items
-        // must be empty:
-        LCOMPILERS_ASSERT(x.n_items == 0);
-
-        global_scope = x.m_global_scope;
-        global_scope_loc = x.base.base.loc;
-
-        avail_mem_loc += 4; /* initial 4 bytes to store return values of wasi funcs*/
-        emit_wasi_imports();
-
-        wasm::emit_declare_mem(m_memory_section, m_al, min_no_pages, max_no_pages);
-        no_of_memories++;
-        wasm::emit_export_mem(m_export_section, m_al, "memory", 0 /* mem_idx */);
-        no_of_exports++;
-
-        declare_global_vars();
-
-        emit_string(" ");
-        emit_string("\n");
-        emit_string("-");
-        emit_string(".");
-        digits_mem_loc = avail_mem_loc;
-        for (int i = 0; i < 10; i++) {
-            emit_string(std::to_string(i));
-        }
-        emit_print_int();
-        emit_print_float();
-
-        {
-            // Pre-declare all functions first, then generate code
-            // Otherwise some function might not be found.
-            is_prototype_only = true;
-            {
-                // Process intrinsic modules in the right order
-                std::vector<std::string> build_order =
-                    ASRUtils::determine_module_dependencies(x);
-                for (auto &item : build_order) {
-                    LCOMPILERS_ASSERT(x.m_global_scope->get_scope().find(item) !=
-                                    x.m_global_scope->get_scope().end());
-                    ASR::symbol_t *mod = x.m_global_scope->get_symbol(item);
-                    if (ASR::is_a<ASR::Module_t>(*mod)) {
-                        ASR::Module_t *m =
-                            ASR::down_cast<ASR::Module_t>(mod);
-                        declare_all_functions(*(m->m_symtab));
-                    }
-                }
-
-                // Process procedures first:
-                declare_all_functions(*x.m_global_scope);
-
-                // then the main program:
-                for (auto &item : x.m_global_scope->get_scope()) {
-                    if (ASR::is_a<ASR::Program_t>(*item.second)) {
-                        ASR::Program_t *p =
-                            ASR::down_cast<ASR::Program_t>(item.second);
-                        declare_all_functions(*(p->m_symtab));
-                    }
-                }
-            }
-            is_prototype_only = false;
-        }
-
-        {
-            // Process intrinsic modules in the right order
-            std::vector<std::string> build_order =
-                ASRUtils::determine_module_dependencies(x);
-            for (auto &item : build_order) {
-                LCOMPILERS_ASSERT(x.m_global_scope->get_scope().find(item) !=
-                                x.m_global_scope->get_scope().end());
-                ASR::symbol_t *mod = x.m_global_scope->get_symbol(item);
-                this->visit_symbol(*mod);
-            }
-        }
-
-        // Process procedures first:
-        declare_all_functions(*x.m_global_scope);
-
-        // // Then do all the modules in the right order
-        // std::vector<std::string> build_order
-        //     = LFortran::ASRUtils::determine_module_dependencies(x);
-        // for (auto &item : build_order) {
-        //     LCOMPILERS_ASSERT(x.m_global_scope->get_scope().find(item)
-        //         != x.m_global_scope->get_scope().end());
-        //     if (!startswith(item, "lfortran_intrinsic")) {
-        //         ASR::symbol_t *mod = x.m_global_scope->get_symbol(item);
-        //         visit_symbol(*mod);
-        //         // std::cout << "I am here -2: " << src << std::endl;
-        //     }
-        // }
-
-        // then the main program:
-        for (auto &item : x.m_global_scope->get_scope()) {
-            if (ASR::is_a<ASR::Program_t>(*item.second)) {
-                visit_symbol(*item.second);
-            }
-        }
-    }
-
-    void declare_all_functions(const SymbolTable &symtab) {
-        for (auto &item : symtab.get_scope()) {
-            if (ASR::is_a<ASR::Function_t>(*item.second)) {
-                ASR::Function_t *s =
-                    ASR::down_cast<ASR::Function_t>(item.second);
-                this->visit_Function(*s);
-            }
-        }
-    }
-
-    void visit_Module(const ASR::Module_t &x) {
-        if (startswith(x.m_name, "lfortran_intrinsic_")) {
-            intrinsic_module = true;
-        } else {
-            intrinsic_module = false;
-        }
-
-        // Generate the bodies of functions and subroutines
-        declare_all_functions(*x.m_symtab);
-        intrinsic_module = false;
-    }
-
-    void visit_Program(const ASR::Program_t &x) {
-        // Generate the bodies of functions and subroutines
-        declare_all_functions(*x.m_symtab);
-
-        // Generate main program code
-        auto main_func = ASRUtils::make_Function_t_util(
-            m_al, x.base.base.loc, x.m_symtab, s2c(m_al, "_start"),
-            nullptr, 0, nullptr, 0, x.m_body, x.n_body, nullptr,
-            ASR::abiType::Source, ASR::accessType::Public,
-            ASR::deftypeType::Implementation, nullptr, false, false, false, false, false,
-            nullptr, 0, nullptr, 0, false, false, false);
-        emit_function_prototype(*((ASR::Function_t *)main_func));
-        emit_function_body(*((ASR::Function_t *)main_func));
-    }
-
-    void emit_var_type(Vec<uint8_t> &code, ASR::Variable_t *v) {
-        // bool use_ref = (v->m_intent == ASRUtils::intent_out ||
-        //                 v->m_intent == ASRUtils::intent_inout);
-        bool is_array = ASRUtils::is_array(v->m_type);
-
-        if (ASRUtils::is_pointer(v->m_type)) {
-            ASR::ttype_t *t2 =
-                ASR::down_cast<ASR::Pointer_t>(v->m_type)->m_type;
-            if (ASRUtils::is_integer(*t2)) {
-                ASR::Integer_t *t = ASR::down_cast<ASR::Integer_t>(t2);
-                // size_t size;
-                diag.codegen_warning_label(
-                    "Pointers are not currently supported", {v->base.base.loc},
-                    "emitting integer for now");
-                if (t->m_kind == 4) {
-                    wasm::emit_b8(code, m_al, wasm::type::i32);
-                } else if (t->m_kind == 8) {
-                    wasm::emit_b8(code, m_al, wasm::type::i64);
-                } else {
-                    throw CodeGenError(
-                        "Integers of kind 4 and 8 only supported");
-                }
-            } else {
-                diag.codegen_error_label("Type number '" +
-                                             std::to_string(v->m_type->type) +
-                                             "' not supported",
-                                         {v->base.base.loc}, "");
-                throw CodeGenAbort();
-            }
-        } else {
-            if (ASRUtils::is_integer(*v->m_type)) {
-                ASR::Integer_t *v_int =
-                    ASR::down_cast<ASR::Integer_t>(v->m_type);
-                if (is_array) {
-                    wasm::emit_b8(code, m_al, wasm::type::i32);
-                } else {
-                    if (v_int->m_kind == 4) {
-                        wasm::emit_b8(code, m_al, wasm::type::i32);
-                    } else if (v_int->m_kind == 8) {
-                        wasm::emit_b8(code, m_al, wasm::type::i64);
-                    } else {
-                        throw CodeGenError(
-                            "Integers of kind 4 and 8 only supported");
-                    }
-                }
-            } else if (ASRUtils::is_real(*v->m_type)) {
-                ASR::Real_t *v_float = ASR::down_cast<ASR::Real_t>(v->m_type);
-
-                if (is_array) {
-                    wasm::emit_b8(code, m_al, wasm::type::i32);
-                } else {
-                    if (v_float->m_kind == 4) {
-                        wasm::emit_b8(code, m_al, wasm::type::f32);
-                    } else if (v_float->m_kind == 8) {
-                        wasm::emit_b8(code, m_al, wasm::type::f64);
-                    } else {
-                        throw CodeGenError(
-                            "Floating Points of kind 4 and 8 only supported");
-                    }
-                }
-            } else if (ASRUtils::is_logical(*v->m_type)) {
-                ASR::Logical_t *v_logical =
-                    ASR::down_cast<ASR::Logical_t>(v->m_type);
-
-                if (is_array) {
-                    wasm::emit_b8(code, m_al, wasm::type::i32);
-                } else {
-                    // All Logicals are represented as i32 in WASM
-                    if (v_logical->m_kind == 4) {
-                        wasm::emit_b8(code, m_al, wasm::type::i32);
-                    } else {
-                        throw CodeGenError("Logicals of kind 4 only supported");
-                    }
-                }
-            } else if (ASRUtils::is_character(*v->m_type)) {
-                ASR::Character_t *v_int =
-                    ASR::down_cast<ASR::Character_t>(v->m_type);
-
-                if (is_array) {
-                    wasm::emit_b8(code, m_al, wasm::type::i32);
-                } else {
-                    if (v_int->m_kind == 1) {
-                        /*  Character is stored as string in memory.
-                            The variable points to this location in memory
-                        */
-                        wasm::emit_b8(code, m_al, wasm::type::i32);
-                    } else {
-                        throw CodeGenError(
-                            "Characters of kind 1 only supported");
-                    }
-                }
-            } else {
-                // throw CodeGenError("Param, Result, Var Types other than
-                // integer, floating point and logical not yet supported");
-                diag.codegen_warning_label("Unsupported variable type: " +
-                                               ASRUtils::type_to_str(v->m_type),
-                                           {v->base.base.loc}, "here");
-            }
-        }
-    }
-
-    template <typename T>
-    void emit_local_vars(const T &x,
-                         int var_idx /* starting index for local vars */) {
-        /********************* Local Vars Types List *********************/
-        uint32_t len_idx_code_section_local_vars_list =
-            wasm::emit_len_placeholder(m_code_section, m_al);
-        int local_vars_cnt = 0;
-        for (auto &item : x.m_symtab->get_scope()) {
-            if (ASR::is_a<ASR::Variable_t>(*item.second)) {
-                ASR::Variable_t *v =
-                    ASR::down_cast<ASR::Variable_t>(item.second);
-                if (v->m_intent == ASRUtils::intent_local ||
-                    v->m_intent == ASRUtils::intent_return_var) {
-                    wasm::emit_u32(m_code_section, m_al,
-                                   1U);  // count of local vars of this type
-                    emit_var_type(m_code_section,
-                                  v);  // emit the type of this var
-                    m_var_name_idx_map[get_hash((ASR::asr_t *)v)] = var_idx++;
-                    local_vars_cnt++;
-                }
-            }
-        }
-        // fixup length of local vars list
-        wasm::emit_u32_b32_idx(m_code_section, m_al,
-                               len_idx_code_section_local_vars_list,
-                               local_vars_cnt);
-
-        // initialize the value for local variables if initialization exists
-        for (auto &item : x.m_symtab->get_scope()) {
-            if (ASR::is_a<ASR::Variable_t>(*item.second)) {
-                ASR::Variable_t *v =
-                    ASR::down_cast<ASR::Variable_t>(item.second);
-                if (v->m_intent == ASRUtils::intent_local ||
-                    v->m_intent == ASRUtils::intent_return_var) {
-                    if (v->m_symbolic_value) {
-                        this->visit_expr(*v->m_symbolic_value);
-                        // Todo: Checking for Array is currently omitted
-                        LCOMPILERS_ASSERT(m_var_name_idx_map.find(
-                                            get_hash((ASR::asr_t *)v)) !=
-                                        m_var_name_idx_map.end())
-                        wasm::emit_set_local(
-                            m_code_section, m_al,
-                            m_var_name_idx_map[get_hash((ASR::asr_t *)v)]);
-                    } else if (ASRUtils::is_array(v->m_type)) {
-                        uint32_t kind =
-                            ASRUtils::extract_kind_from_ttype_t(v->m_type);
-
-                        Vec<uint32_t> array_dims;
-                        get_array_dims(*v, array_dims);
-
-                        uint32_t total_array_size = 1;
-                        for (auto &dim : array_dims) {
-                            total_array_size *= dim;
-                        }
-
-                        LCOMPILERS_ASSERT(m_var_name_idx_map.find(
-                                            get_hash((ASR::asr_t *)v)) !=
-                                        m_var_name_idx_map.end());
-                        wasm::emit_i32_const(m_code_section, m_al,
-                                             avail_mem_loc);
-                        wasm::emit_set_local(
-                            m_code_section, m_al,
-                            m_var_name_idx_map[get_hash((ASR::asr_t *)v)]);
-                        avail_mem_loc += kind * total_array_size;
-                    }
-                }
-            }
-        }
-    }
-
-    void emit_function_prototype(const ASR::Function_t &x) {
-        SymbolFuncInfo *s = new SymbolFuncInfo;
-
-        /********************* New Type Declaration *********************/
-        wasm::emit_b8(m_type_section, m_al, 0x60);
-
-        /********************* Parameter Types List *********************/
-        s->referenced_vars.reserve(m_al, x.n_args);
-        wasm::emit_u32(m_type_section, m_al, x.n_args);
-        for (size_t i = 0; i < x.n_args; i++) {
-            ASR::Variable_t *arg = ASRUtils::EXPR2VAR(x.m_args[i]);
-            LCOMPILERS_ASSERT(ASRUtils::is_arg_dummy(arg->m_intent));
-            emit_var_type(m_type_section, arg);
-            m_var_name_idx_map[get_hash((ASR::asr_t *)arg)] =
-                s->no_of_variables++;
-            if (arg->m_intent == ASR::intentType::Out ||
-                arg->m_intent == ASR::intentType::InOut ||
-                arg->m_intent == ASR::intentType::Unspecified) {
-                s->referenced_vars.push_back(m_al, arg);
-            }
-        }
-
-        /********************* Result Types List *********************/
-        if (x.m_return_var) {  // It is a function
-            wasm::emit_u32(m_type_section, m_al,
-                           1U);  // there is just one return variable
-            s->return_var = ASRUtils::EXPR2VAR(x.m_return_var);
-            emit_var_type(m_type_section, s->return_var);
-        } else {  // It is a subroutine
-            uint32_t len_idx_type_section_return_types_list =
-                wasm::emit_len_placeholder(m_type_section, m_al);
-            for (size_t i = 0; i < x.n_args; i++) {
-                ASR::Variable_t *arg = ASRUtils::EXPR2VAR(x.m_args[i]);
-                if (arg->m_intent == ASR::intentType::Out ||
-                    arg->m_intent == ASR::intentType::InOut ||
-                    arg->m_intent == ASR::intentType::Unspecified) {
-                    emit_var_type(m_type_section, arg);
-                }
-            }
-            wasm::fixup_len(m_type_section, m_al,
-                            len_idx_type_section_return_types_list);
-        }
-
-        /********************* Add Type to Map *********************/
-        s->index = no_of_types++;
-        m_func_name_idx_map[get_hash((ASR::asr_t *)&x)] =
-            s;  // add function to map
-    }
-
-    void emit_function_body(const ASR::Function_t &x) {
-        LCOMPILERS_ASSERT(m_func_name_idx_map.find(get_hash((ASR::asr_t *)&x)) !=
-                        m_func_name_idx_map.end());
-
-        cur_sym_info = m_func_name_idx_map[get_hash((ASR::asr_t *)&x)];
-
-        /********************* Reference Function Prototype
-         * *********************/
-        wasm::emit_u32(m_func_section, m_al, cur_sym_info->index);
-
-        /********************* Function Body Starts Here *********************/
-        uint32_t len_idx_code_section_func_size =
-            wasm::emit_len_placeholder(m_code_section, m_al);
-
-        emit_local_vars(x, cur_sym_info->no_of_variables);
-        for (size_t i = 0; i < x.n_body; i++) {
-            this->visit_stmt(*x.m_body[i]);
-        }
-        if (strcmp(x.m_name, "_start") == 0) {
-            wasm::emit_i32_const(m_code_section, m_al, 0 /* zero exit code */);
-            wasm::emit_call(
-                m_code_section, m_al,
-                m_func_name_idx_map[get_hash(
-                                        m_import_func_asr_map["proc_exit"])]
-                    ->index);
-        }
-        if ((x.n_body == 0) ||
-            ((x.n_body > 0) &&
-             !ASR::is_a<ASR::Return_t>(*x.m_body[x.n_body - 1]))) {
-            handle_return();
-        }
-        wasm::emit_expr_end(m_code_section, m_al);
-
-        wasm::fixup_len(m_code_section, m_al, len_idx_code_section_func_size);
-
-        /********************* Export the function *********************/
-        wasm::emit_export_fn(m_export_section, m_al, x.m_name,
-                             cur_sym_info->index);  //  add function to export
-        no_of_functions++;
-        no_of_exports++;
-    }
-
-    bool is_unsupported_function(const ASR::Function_t &x) {
-        if (!x.n_body) {
-            return true;
-        }
-        if (ASRUtils::get_FunctionType(x)->m_abi == ASR::abiType::BindC &&
-            ASRUtils::get_FunctionType(x)->m_deftype == ASR::deftypeType::Interface) {
-            if (ASRUtils::is_intrinsic_function2(&x)) {
-                diag.codegen_warning_label(
-                    "WASM: C Intrinsic Functions not yet spported",
-                    {x.base.base.loc}, std::string(x.m_name));
-            }
-            return true;
-        }
-        for (size_t i = 0; i < x.n_body; i++) {
-            if (x.m_body[i]->type == ASR::stmtType::SubroutineCall) {
-                auto sub_call = (const ASR::SubroutineCall_t &)(*x.m_body[i]);
-                ASR::Function_t *s = ASR::down_cast<ASR::Function_t>(
-                    ASRUtils::symbol_get_past_external(sub_call.m_name));
-                if (ASRUtils::get_FunctionType(s)->m_abi == ASR::abiType::BindC &&
-                    ASRUtils::get_FunctionType(s)->m_deftype == ASR::deftypeType::Interface &&
-                    ASRUtils::is_intrinsic_function2(s)) {
-                    diag.codegen_warning_label(
-                        "WASM: Calls to C Intrinsic Functions are not yet "
-                        "supported",
-                        {x.m_body[i]->base.loc},
-                        "Function: calls " + std::string(s->m_name));
-                    return true;
-                }
-            }
-        }
-        return false;
-    }
-
-    void visit_Function(const ASR::Function_t &x) {
-        if (is_unsupported_function(x)) {
-            return;
-        }
-        if (is_prototype_only) {
-            emit_function_prototype(x);
-            return;
-        }
-        emit_function_body(x);
-    }
-
-    uint32_t emit_memory_store(ASR::expr_t *v) {
-        auto ttype = ASRUtils::expr_type(v);
-        auto kind = ASRUtils::extract_kind_from_ttype_t(ttype);
-        switch (ttype->type) {
-            case ASR::ttypeType::Integer: {
-                switch (kind) {
-                    case 4:
-                        wasm::emit_i32_store(m_code_section, m_al,
-                                             wasm::mem_align::b8, 0);
-                        break;
-                    case 8:
-                        wasm::emit_i64_store(m_code_section, m_al,
-                                             wasm::mem_align::b8, 0);
-                        break;
-                    default:
-                        throw CodeGenError(
-                            "MemoryStore: Unsupported Integer kind");
-                }
-                break;
-            }
-            case ASR::ttypeType::Real: {
-                switch (kind) {
-                    case 4:
-                        wasm::emit_f32_store(m_code_section, m_al,
-                                             wasm::mem_align::b8, 0);
-                        break;
-                    case 8:
-                        wasm::emit_f64_store(m_code_section, m_al,
-                                             wasm::mem_align::b8, 0);
-                        break;
-                    default:
-                        throw CodeGenError(
-                            "MemoryStore: Unsupported Real kind");
-                }
-                break;
-            }
-            case ASR::ttypeType::Logical: {
-                switch (kind) {
-                    case 4:
-                        wasm::emit_i32_store(m_code_section, m_al,
-                                             wasm::mem_align::b8, 0);
-                        break;
-                    default:
-                        throw CodeGenError(
-                            "MemoryStore: Unsupported Logical kind");
-                }
-                break;
-            }
-            case ASR::ttypeType::Character: {
-                switch (kind) {
-                    case 4:
-                        wasm::emit_i32_store(m_code_section, m_al,
-                                             wasm::mem_align::b8, 0);
-                        break;
-                    case 8:
-                        wasm::emit_i64_store(m_code_section, m_al,
-                                             wasm::mem_align::b8, 0);
-                        break;
-                    default:
-                        throw CodeGenError(
-                            "MemoryStore: Unsupported Character kind");
-                }
-                break;
-            }
-            default: {
-                throw CodeGenError("MemoryStore: Type " +
-                                   ASRUtils::type_to_str(ttype) +
-                                   " not yet supported");
-            }
-        }
-        return kind;
-    }
-
-    void emit_memory_load(ASR::expr_t *v) {
-        auto ttype = ASRUtils::expr_type(v);
-        auto kind = ASRUtils::extract_kind_from_ttype_t(ttype);
-        switch (ttype->type) {
-            case ASR::ttypeType::Integer: {
-                switch (kind) {
-                    case 4:
-                        wasm::emit_i32_load(m_code_section, m_al,
-                                            wasm::mem_align::b8, 0);
-                        break;
-                    case 8:
-                        wasm::emit_i64_load(m_code_section, m_al,
-                                            wasm::mem_align::b8, 0);
-                        break;
-                    default:
-                        throw CodeGenError(
-                            "MemoryLoad: Unsupported Integer kind");
-                }
-                break;
-            }
-            case ASR::ttypeType::Real: {
-                switch (kind) {
-                    case 4:
-                        wasm::emit_f32_load(m_code_section, m_al,
-                                            wasm::mem_align::b8, 0);
-                        break;
-                    case 8:
-                        wasm::emit_f64_load(m_code_section, m_al,
-                                            wasm::mem_align::b8, 0);
-                        break;
-                    default:
-                        throw CodeGenError("MemoryLoad: Unsupported Real kind");
-                }
-                break;
-            }
-            case ASR::ttypeType::Logical: {
-                switch (kind) {
-                    case 4:
-                        wasm::emit_i32_load(m_code_section, m_al,
-                                            wasm::mem_align::b8, 0);
-                        break;
-                    default:
-                        throw CodeGenError(
-                            "MemoryLoad: Unsupported Logical kind");
-                }
-                break;
-            }
-            case ASR::ttypeType::Character: {
-                switch (kind) {
-                    case 4:
-                        wasm::emit_i32_load(m_code_section, m_al,
-                                            wasm::mem_align::b8, 0);
-                        break;
-                    case 8:
-                        wasm::emit_i64_load(m_code_section, m_al,
-                                            wasm::mem_align::b8, 0);
-                        break;
-                    default:
-                        throw CodeGenError(
-                            "MemoryLoad: Unsupported Character kind");
-                }
-                break;
-            }
-            default: {
-                throw CodeGenError("MemoryLoad: Type " +
-                                   ASRUtils::type_to_str(ttype) +
-                                   " not yet supported");
-            }
-        }
-    }
-
-    void visit_Assignment(const ASR::Assignment_t &x) {
-        // this->visit_expr(*x.m_target);
-        if (ASR::is_a<ASR::Var_t>(*x.m_target)) {
-            this->visit_expr(*x.m_value);
-            ASR::Variable_t *asr_target = ASRUtils::EXPR2VAR(x.m_target);
-            LCOMPILERS_ASSERT(
-                m_var_name_idx_map.find(get_hash((ASR::asr_t *)asr_target)) !=
-                m_var_name_idx_map.end());
-            wasm::emit_set_local(
-                m_code_section, m_al,
-                m_var_name_idx_map[get_hash((ASR::asr_t *)asr_target)]);
-        } else if (ASR::is_a<ASR::ArrayItem_t>(*x.m_target)) {
-            emit_array_item_address_onto_stack(
-                *(ASR::down_cast<ASR::ArrayItem_t>(x.m_target)));
-            this->visit_expr(*x.m_value);
-            emit_memory_store(x.m_value);
-        } else {
-            LCOMPILERS_ASSERT(false)
-        }
-    }
-
-    void visit_IntegerBinOp(const ASR::IntegerBinOp_t &x) {
-        if (x.m_value) {
-            visit_expr(*x.m_value);
-            return;
-        }
-        this->visit_expr(*x.m_left);
-        this->visit_expr(*x.m_right);
-        ASR::Integer_t *i = ASR::down_cast<ASR::Integer_t>(x.m_type);
-        if (i->m_kind == 4) {
-            switch (x.m_op) {
-                case ASR::binopType::Add: {
-                    wasm::emit_i32_add(m_code_section, m_al);
-                    break;
-                };
-                case ASR::binopType::Sub: {
-                    wasm::emit_i32_sub(m_code_section, m_al);
-                    break;
-                };
-                case ASR::binopType::Mul: {
-                    wasm::emit_i32_mul(m_code_section, m_al);
-                    break;
-                };
-                case ASR::binopType::Div: {
-                    wasm::emit_i32_div_s(m_code_section, m_al);
-                    break;
-                };
-                case ASR::binopType::Pow: {
-                    ASR::expr_t *val = ASRUtils::expr_value(x.m_right);
-                    if (ASR::is_a<ASR::IntegerConstant_t>(*val)) {
-                        ASR::IntegerConstant_t *c =
-                            ASR::down_cast<ASR::IntegerConstant_t>(val);
-                        if (c->m_n == 2) {
-                            // drop the last stack item in the wasm stack
-                            wasm::emit_drop(m_code_section, m_al);
-                            this->visit_expr(*x.m_left);
-                            wasm::emit_i32_mul(m_code_section, m_al);
-                        } else {
-                            throw CodeGenError(
-                                "IntegerBinop kind 4: only x**2 implemented so "
-                                "far for powers");
-                        }
-                    } else {
-                        throw CodeGenError(
-                            "IntegerBinop kind 4: only x**2 implemented so far "
-                            "for powers");
-                    }
-                    break;
-                };
-                case ASR::binopType::BitAnd: {
-                    wasm::emit_i32_and(m_code_section, m_al);
-                    break;
-                };
-                case ASR::binopType::BitOr: {
-                    wasm::emit_i32_or(m_code_section, m_al);
-                    break;
-                };
-                case ASR::binopType::BitXor: {
-                    wasm::emit_i32_xor(m_code_section, m_al);
-                    break;
-                };
-                case ASR::binopType::BitLShift: {
-                    wasm::emit_i32_shl(m_code_section, m_al);
-                    break;
-                };
-                case ASR::binopType::BitRShift: {
-                    wasm::emit_i32_shr_s(m_code_section, m_al);
-                    break;
-                };
-                default: {
-                    throw CodeGenError(
-                        "ICE IntegerBinop kind 4: unknown operation");
-                }
-            }
-        } else if (i->m_kind == 8) {
-            switch (x.m_op) {
-                case ASR::binopType::Add: {
-                    wasm::emit_i64_add(m_code_section, m_al);
-                    break;
-                };
-                case ASR::binopType::Sub: {
-                    wasm::emit_i64_sub(m_code_section, m_al);
-                    break;
-                };
-                case ASR::binopType::Mul: {
-                    wasm::emit_i64_mul(m_code_section, m_al);
-                    break;
-                };
-                case ASR::binopType::Div: {
-                    wasm::emit_i64_div_s(m_code_section, m_al);
-                    break;
-                };
-                case ASR::binopType::Pow: {
-                    ASR::expr_t *val = ASRUtils::expr_value(x.m_right);
-                    if (ASR::is_a<ASR::IntegerConstant_t>(*val)) {
-                        ASR::IntegerConstant_t *c =
-                            ASR::down_cast<ASR::IntegerConstant_t>(val);
-                        if (c->m_n == 2) {
-                            // drop the last stack item in the wasm stack
-                            wasm::emit_drop(m_code_section, m_al);
-                            this->visit_expr(*x.m_left);
-                            wasm::emit_i64_mul(m_code_section, m_al);
-                        } else {
-                            throw CodeGenError(
-                                "IntegerBinop kind 8: only x**2 implemented so "
-                                "far for powers");
-                        }
-                    } else {
-                        throw CodeGenError(
-                            "IntegerBinop kind 8: only x**2 implemented so far "
-                            "for powers");
-                    }
-                    break;
-                };
-                case ASR::binopType::BitAnd: {
-                    wasm::emit_i64_and(m_code_section, m_al);
-                    break;
-                };
-                case ASR::binopType::BitOr: {
-                    wasm::emit_i64_or(m_code_section, m_al);
-                    break;
-                };
-                case ASR::binopType::BitXor: {
-                    wasm::emit_i64_xor(m_code_section, m_al);
-                    break;
-                };
-                case ASR::binopType::BitLShift: {
-                    wasm::emit_i64_shl(m_code_section, m_al);
-                    break;
-                };
-                case ASR::binopType::BitRShift: {
-                    wasm::emit_i64_shr_s(m_code_section, m_al);
-                    break;
-                };
-                default: {
-                    throw CodeGenError(
-                        "ICE IntegerBinop kind 8: unknown operation");
-                }
-            }
-        } else {
-            throw CodeGenError("IntegerBinop: Integer kind not supported");
-        }
-    }
-
-    void visit_IntegerBitNot(const ASR::IntegerBitNot_t &x) {
-        if (x.m_value) {
-            visit_expr(*x.m_value);
-            return;
-        }
-        this->visit_expr(*x.m_arg);
-        ASR::Integer_t *i = ASR::down_cast<ASR::Integer_t>(x.m_type);
-        // there is no direct bit-invert inst in wasm,
-        // so xor-ing with -1 (sequence of 32/64 1s)
-        if(i->m_kind == 4){
-            wasm::emit_i32_const(m_code_section, m_al, -1);
-            wasm::emit_i32_xor(m_code_section, m_al);
-        }
-        else if(i->m_kind == 8){
-            wasm::emit_i64_const(m_code_section, m_al, -1LL);
-            wasm::emit_i64_xor(m_code_section, m_al);
-        }
-        else{
-            throw CodeGenError("IntegerBitNot: Only kind 4 and 8 supported");
-        }
-    }
-
-    void visit_RealBinOp(const ASR::RealBinOp_t &x) {
-        if (x.m_value) {
-            visit_expr(*x.m_value);
-            return;
-        }
-        this->visit_expr(*x.m_left);
-        this->visit_expr(*x.m_right);
-        ASR::Real_t *f = ASR::down_cast<ASR::Real_t>(x.m_type);
-        if (f->m_kind == 4) {
-            switch (x.m_op) {
-                case ASR::binopType::Add: {
-                    wasm::emit_f32_add(m_code_section, m_al);
-                    break;
-                };
-                case ASR::binopType::Sub: {
-                    wasm::emit_f32_sub(m_code_section, m_al);
-                    break;
-                };
-                case ASR::binopType::Mul: {
-                    wasm::emit_f32_mul(m_code_section, m_al);
-                    break;
-                };
-                case ASR::binopType::Div: {
-                    wasm::emit_f32_div(m_code_section, m_al);
-                    break;
-                };
-                case ASR::binopType::Pow: {
-                    ASR::expr_t *val = ASRUtils::expr_value(x.m_right);
-                    if (ASR::is_a<ASR::RealConstant_t>(*val)) {
-                        ASR::RealConstant_t *c =
-                            ASR::down_cast<ASR::RealConstant_t>(val);
-                        if (c->m_r == 2.0) {
-                            // drop the last stack item in the wasm stack
-                            wasm::emit_drop(m_code_section, m_al);
-                            this->visit_expr(*x.m_left);
-                            wasm::emit_f32_mul(m_code_section, m_al);
-                        } else {
-                            throw CodeGenError(
-                                "RealBinop: only x**2 implemented so far for "
-                                "powers");
-                        }
-                    } else {
-                        throw CodeGenError(
-                            "RealBinop: only x**2 implemented so far for "
-                            "powers");
-                    }
-                    break;
-                };
-                default: {
-                    throw CodeGenError(
-                        "ICE RealBinop kind 4: unknown operation");
-                }
-            }
-        } else if (f->m_kind == 8) {
-            switch (x.m_op) {
-                case ASR::binopType::Add: {
-                    wasm::emit_f64_add(m_code_section, m_al);
-                    break;
-                };
-                case ASR::binopType::Sub: {
-                    wasm::emit_f64_sub(m_code_section, m_al);
-                    break;
-                };
-                case ASR::binopType::Mul: {
-                    wasm::emit_f64_mul(m_code_section, m_al);
-                    break;
-                };
-                case ASR::binopType::Div: {
-                    wasm::emit_f64_div(m_code_section, m_al);
-                    break;
-                };
-                case ASR::binopType::Pow: {
-                    ASR::expr_t *val = ASRUtils::expr_value(x.m_right);
-                    if (ASR::is_a<ASR::RealConstant_t>(*val)) {
-                        ASR::RealConstant_t *c =
-                            ASR::down_cast<ASR::RealConstant_t>(val);
-                        if (c->m_r == 2.0) {
-                            // drop the last stack item in the wasm stack
-                            wasm::emit_drop(m_code_section, m_al);
-                            this->visit_expr(*x.m_left);
-                            wasm::emit_f64_mul(m_code_section, m_al);
-                        } else {
-                            throw CodeGenError(
-                                "RealBinop: only x**2 implemented so far for "
-                                "powers");
-                        }
-                    } else {
-                        throw CodeGenError(
-                            "RealBinop: only x**2 implemented so far for "
-                            "powers");
-                    }
-                    break;
-                };
-                default: {
-                    throw CodeGenError("ICE RealBinop: unknown operation");
-                }
-            }
-        } else {
-            throw CodeGenError("RealBinop: Real kind not supported");
-        }
-    }
-
-    void visit_IntegerUnaryMinus(const ASR::IntegerUnaryMinus_t &x) {
-        if (x.m_value) {
-            visit_expr(*x.m_value);
-            return;
-        }
-        ASR::Integer_t *i = ASR::down_cast<ASR::Integer_t>(x.m_type);
-        // there seems no direct unary-minus inst in wasm, so subtracting from 0
-        if (i->m_kind == 4) {
-            wasm::emit_i32_const(m_code_section, m_al, 0);
-            this->visit_expr(*x.m_arg);
-            wasm::emit_i32_sub(m_code_section, m_al);
-        } else if (i->m_kind == 8) {
-            wasm::emit_i64_const(m_code_section, m_al, 0LL);
-            this->visit_expr(*x.m_arg);
-            wasm::emit_i64_sub(m_code_section, m_al);
-        } else {
-            throw CodeGenError(
-                "IntegerUnaryMinus: Only kind 4 and 8 supported");
-        }
-    }
-
-    void visit_RealUnaryMinus(const ASR::RealUnaryMinus_t &x) {
-        if (x.m_value) {
-            visit_expr(*x.m_value);
-            return;
-        }
-        ASR::Real_t *f = ASR::down_cast<ASR::Real_t>(x.m_type);
-        if (f->m_kind == 4) {
-            this->visit_expr(*x.m_arg);
-            wasm::emit_f32_neg(m_code_section, m_al);
-        } else if (f->m_kind == 8) {
-            this->visit_expr(*x.m_arg);
-            wasm::emit_f64_neg(m_code_section, m_al);
-        } else {
-            throw CodeGenError("RealUnaryMinus: Only kind 4 and 8 supported");
-        }
-    }
-
-    template <typename T>
-    int get_kind_from_operands(const T &x) {
-        ASR::ttype_t *left_ttype = ASRUtils::expr_type(x.m_left);
-        int left_kind = ASRUtils::extract_kind_from_ttype_t(left_ttype);
-
-        ASR::ttype_t *right_ttype = ASRUtils::expr_type(x.m_right);
-        int right_kind = ASRUtils::extract_kind_from_ttype_t(right_ttype);
-
-        if (left_kind != right_kind) {
-            diag.codegen_error_label("Operand kinds do not match",
-                                     {x.base.base.loc},
-                                     "WASM Type Mismatch Error");
-            throw CodeGenAbort();
-        }
-
-        return left_kind;
-    }
-
-    template <typename T>
-    void handle_integer_compare(const T &x) {
-        if (x.m_value) {
-            visit_expr(*x.m_value);
-            return;
-        }
-        this->visit_expr(*x.m_left);
-        this->visit_expr(*x.m_right);
-        // int a_kind = ASRUtils::extract_kind_from_ttype_t(x.m_type);
-        int a_kind = get_kind_from_operands(x);
-        if (a_kind == 4) {
-            switch (x.m_op) {
-                case (ASR::cmpopType::Eq): {
-                    wasm::emit_i32_eq(m_code_section, m_al);
-                    break;
-                }
-                case (ASR::cmpopType::Gt): {
-                    wasm::emit_i32_gt_s(m_code_section, m_al);
-                    break;
-                }
-                case (ASR::cmpopType::GtE): {
-                    wasm::emit_i32_ge_s(m_code_section, m_al);
-                    break;
-                }
-                case (ASR::cmpopType::Lt): {
-                    wasm::emit_i32_lt_s(m_code_section, m_al);
-                    break;
-                }
-                case (ASR::cmpopType::LtE): {
-                    wasm::emit_i32_le_s(m_code_section, m_al);
-                    break;
-                }
-                case (ASR::cmpopType::NotEq): {
-                    wasm::emit_i32_ne(m_code_section, m_al);
-                    break;
-                }
-                default:
-                    throw CodeGenError(
-                        "handle_integer_compare: Kind 4: Unhandled switch "
-                        "case");
-            }
-        } else if (a_kind == 8) {
-            switch (x.m_op) {
-                case (ASR::cmpopType::Eq): {
-                    wasm::emit_i64_eq(m_code_section, m_al);
-                    break;
-                }
-                case (ASR::cmpopType::Gt): {
-                    wasm::emit_i64_gt_s(m_code_section, m_al);
-                    break;
-                }
-                case (ASR::cmpopType::GtE): {
-                    wasm::emit_i64_ge_s(m_code_section, m_al);
-                    break;
-                }
-                case (ASR::cmpopType::Lt): {
-                    wasm::emit_i64_lt_s(m_code_section, m_al);
-                    break;
-                }
-                case (ASR::cmpopType::LtE): {
-                    wasm::emit_i64_le_s(m_code_section, m_al);
-                    break;
-                }
-                case (ASR::cmpopType::NotEq): {
-                    wasm::emit_i64_ne(m_code_section, m_al);
-                    break;
-                }
-                default:
-                    throw CodeGenError(
-                        "handle_integer_compare: Kind 8: Unhandled switch "
-                        "case");
-            }
-        } else {
-            throw CodeGenError("IntegerCompare: kind 4 and 8 supported only");
-        }
-    }
-
-    void handle_real_compare(const ASR::RealCompare_t &x) {
-        if (x.m_value) {
-            visit_expr(*x.m_value);
-            return;
-        }
-        this->visit_expr(*x.m_left);
-        this->visit_expr(*x.m_right);
-        // int a_kind = ASRUtils::extract_kind_from_ttype_t(x.m_type);
-        int a_kind = get_kind_from_operands(x);
-        if (a_kind == 4) {
-            switch (x.m_op) {
-                case (ASR::cmpopType::Eq): {
-                    wasm::emit_f32_eq(m_code_section, m_al);
-                    break;
-                }
-                case (ASR::cmpopType::Gt): {
-                    wasm::emit_f32_gt(m_code_section, m_al);
-                    break;
-                }
-                case (ASR::cmpopType::GtE): {
-                    wasm::emit_f32_ge(m_code_section, m_al);
-                    break;
-                }
-                case (ASR::cmpopType::Lt): {
-                    wasm::emit_f32_lt(m_code_section, m_al);
-                    break;
-                }
-                case (ASR::cmpopType::LtE): {
-                    wasm::emit_f32_le(m_code_section, m_al);
-                    break;
-                }
-                case (ASR::cmpopType::NotEq): {
-                    wasm::emit_f32_ne(m_code_section, m_al);
-                    break;
-                }
-                default:
-                    throw CodeGenError(
-                        "handle_real_compare: Kind 4: Unhandled switch case");
-            }
-        } else if (a_kind == 8) {
-            switch (x.m_op) {
-                case (ASR::cmpopType::Eq): {
-                    wasm::emit_f64_eq(m_code_section, m_al);
-                    break;
-                }
-                case (ASR::cmpopType::Gt): {
-                    wasm::emit_f64_gt(m_code_section, m_al);
-                    break;
-                }
-                case (ASR::cmpopType::GtE): {
-                    wasm::emit_f64_ge(m_code_section, m_al);
-                    break;
-                }
-                case (ASR::cmpopType::Lt): {
-                    wasm::emit_f64_lt(m_code_section, m_al);
-                    break;
-                }
-                case (ASR::cmpopType::LtE): {
-                    wasm::emit_f64_le(m_code_section, m_al);
-                    break;
-                }
-                case (ASR::cmpopType::NotEq): {
-                    wasm::emit_f64_ne(m_code_section, m_al);
-                    break;
-                }
-                default:
-                    throw CodeGenError(
-                        "handle_real_compare: Kind 8: Unhandled switch case");
-            }
-        } else {
-            throw CodeGenError("RealCompare: kind 4 and 8 supported only");
-        }
-    }
-
-    void visit_IntegerCompare(const ASR::IntegerCompare_t &x) {
-        handle_integer_compare(x);
-    }
-
-    void visit_RealCompare(const ASR::RealCompare_t &x) {
-        handle_real_compare(x);
-    }
-
-    void visit_ComplexCompare(const ASR::ComplexCompare_t & /*x*/) {
-        throw CodeGenError("Complex Types not yet supported");
-    }
-
-    void visit_LogicalCompare(const ASR::LogicalCompare_t &x) {
-        handle_integer_compare(x);
-    }
-
-    void visit_StringCompare(const ASR::StringCompare_t & /*x*/) {
-        throw CodeGenError("String Types not yet supported");
-    }
-
-    void visit_LogicalBinOp(const ASR::LogicalBinOp_t &x) {
-        if (x.m_value) {
-            visit_expr(*x.m_value);
-            return;
-        }
-        this->visit_expr(*x.m_left);
-        this->visit_expr(*x.m_right);
-        int a_kind = ASRUtils::extract_kind_from_ttype_t(x.m_type);
-        if (a_kind == 4) {
-            switch (x.m_op) {
-                case (ASR::logicalbinopType::And): {
-                    wasm::emit_i32_and(m_code_section, m_al);
-                    break;
-                }
-                case (ASR::logicalbinopType::Or): {
-                    wasm::emit_i32_or(m_code_section, m_al);
-                    break;
-                }
-                case ASR::logicalbinopType::Xor: {
-                    wasm::emit_i32_xor(m_code_section, m_al);
-                    break;
-                }
-                case (ASR::logicalbinopType::NEqv): {
-                    wasm::emit_i32_xor(m_code_section, m_al);
-                    break;
-                }
-                case (ASR::logicalbinopType::Eqv): {
-                    wasm::emit_i32_eq(m_code_section, m_al);
-                    break;
-                }
-                default:
-                    throw CodeGenError(
-                        "LogicalBinOp: Kind 4: Unhandled switch case");
-            }
-        } else {
-            throw CodeGenError("LogicalBinOp: kind 4 supported only");
-        }
-    }
-
-    void visit_LogicalNot(const ASR::LogicalNot_t &x) {
-        if (x.m_value) {
-            this->visit_expr(*x.m_value);
-            return;
-        }
-        this->visit_expr(*x.m_arg);
-        int a_kind = ASRUtils::extract_kind_from_ttype_t(x.m_type);
-        if (a_kind == 4) {
-            wasm::emit_i32_eqz(m_code_section, m_al);
-        } else if (a_kind == 8) {
-            wasm::emit_i64_eqz(m_code_section, m_al);
-        } else {
-            throw CodeGenError("LogicalNot: kind 4 and 8 supported only");
-        }
-    }
-
-    void visit_Var(const ASR::Var_t &x) {
-        const ASR::symbol_t *s = ASRUtils::symbol_get_past_external(x.m_v);
-        auto v = ASR::down_cast<ASR::Variable_t>(s);
-        switch (v->m_type->type) {
-            case ASR::ttypeType::Integer:
-            case ASR::ttypeType::Logical:
-            case ASR::ttypeType::Real:
-            case ASR::ttypeType::Character: {
-                LCOMPILERS_ASSERT(
-                    m_var_name_idx_map.find(get_hash((ASR::asr_t *)v)) !=
-                    m_var_name_idx_map.end());
-                wasm::emit_get_local(
-                    m_code_section, m_al,
-                    m_var_name_idx_map[get_hash((ASR::asr_t *)v)]);
-                break;
-            }
-
-            default:
-                throw CodeGenError(
-                    "Only Integer and Float Variable types currently "
-                    "supported");
-        }
-    }
-
-    void get_array_dims(const ASR::Variable_t &x, Vec<uint32_t> &dims) {
-        ASR::dimension_t *m_dims;
-        uint32_t n_dims =
-            ASRUtils::extract_dimensions_from_ttype(x.m_type, m_dims);
-        dims.reserve(m_al, n_dims);
-        for (uint32_t i = 0; i < n_dims; i++) {
-            ASR::expr_t *length_value =
-                ASRUtils::expr_value(m_dims[i].m_length);
-            uint64_t len_in_this_dim = -1;
-            ASRUtils::extract_value(length_value, len_in_this_dim);
-            dims.push_back(m_al, (uint32_t)len_in_this_dim);
-        }
-    }
-
-    // following function is useful for printing debug statements from
-    // webassembly
-    void print_wasm_debug_statement(std::string message, bool endline = true) {
-        static int debug_mem_space = 10000 + avail_mem_loc;
-        uint32_t avail_mem_loc_copy = avail_mem_loc;
-        avail_mem_loc = debug_mem_space;
-        emit_string(message);
-        avail_mem_loc = avail_mem_loc_copy;  // restore avail_mem_loc
-        // push string length on function stack
-        wasm::emit_i32_const(m_code_section, m_al, message.length());
-
-        // call JavaScript print_str
-        wasm::emit_call(
-            m_code_section, m_al,
-            m_func_name_idx_map[get_hash(m_import_func_asr_map["print_str"])]
-                ->index);
-
-        if (endline) {
-            // call JavaScript flush_buf
-            wasm::emit_call(
-                m_code_section, m_al,
-                m_func_name_idx_map[get_hash(
-                                        m_import_func_asr_map["flush_buf"])]
-                    ->index);
-        }
-    }
-
-    // following function is useful for debugging webassembly memory
-    // it prints the value present at a given location in memory
-    void print_mem_loc_value(uint32_t mem_loc) {
-        print_wasm_debug_statement("Memory Location =", false);
-        wasm::emit_i32_const(m_code_section, m_al, mem_loc);
-        wasm::emit_call(
-            m_code_section, m_al,
-            m_func_name_idx_map[get_hash(m_import_func_asr_map["print_i32"])]
-                ->index);
-        print_wasm_debug_statement(", value=", false);
-        wasm::emit_i32_const(m_code_section, m_al, mem_loc);
-        wasm::emit_i32_load(m_code_section, m_al, wasm::mem_align::b8, 0);
-        wasm::emit_call(
-            m_code_section, m_al,
-            m_func_name_idx_map[get_hash(m_import_func_asr_map["print_i32"])]
-                ->index);
-        wasm::emit_call(
-            m_code_section, m_al,
-            m_func_name_idx_map[get_hash(m_import_func_asr_map["flush_buf"])]
-                ->index);
-    }
-
-    void emit_array_item_address_onto_stack(const ASR::ArrayItem_t &x) {
-        this->visit_expr(*x.m_v);
-        ASR::ttype_t *ttype = ASRUtils::expr_type(x.m_v);
-        uint32_t kind = ASRUtils::extract_kind_from_ttype_t(ttype);
-        ASR::dimension_t *m_dims;
-        ASRUtils::extract_dimensions_from_ttype(ttype, m_dims);
-
-        wasm::emit_i32_const(m_code_section, m_al, 0);
-        for (uint32_t i = 0; i < x.n_args; i++) {
-            if (x.m_args[i].m_right) {
-                this->visit_expr(*x.m_args[i].m_right);
-                this->visit_expr(*m_dims[i].m_start);
-                wasm::emit_i32_sub(m_code_section, m_al);
-                size_t jmin, jmax;
-
-                if (x.m_storage_format == ASR::arraystorageType::ColMajor) {
-                    // Column-major order
-                    jmin = 0;
-                    jmax = i;
-                } else {
-                    // Row-major order
-                    jmin = i + 1;
-                    jmax = x.n_args;
-                }
-
-                for (size_t j = jmin; j < jmax; j++) {
-                    this->visit_expr(*m_dims[j].m_length);
-                    wasm::emit_i32_mul(m_code_section, m_al);
-                }
-
-                wasm::emit_i32_add(m_code_section, m_al);
-            } else {
-                diag.codegen_warning_label("/* FIXME right index */",
-                                           {x.base.base.loc}, "");
-            }
-        }
-        wasm::emit_i32_const(m_code_section, m_al, kind);
-        wasm::emit_i32_mul(m_code_section, m_al);
-        wasm::emit_i32_add(m_code_section, m_al);
-    }
-
-    void visit_ArrayItem(const ASR::ArrayItem_t &x) {
-        emit_array_item_address_onto_stack(x);
-        emit_memory_load(x.m_v);
-    }
-
-    void visit_ArraySize(const ASR::ArraySize_t &x) {
-        if (x.m_value) {
-            this->visit_expr(*x.m_value);
-            return;
-        }
-        ASR::dimension_t *m_dims;
-        int n_dims = ASRUtils::extract_dimensions_from_ttype(
-            ASRUtils::expr_type(x.m_v), m_dims);
-        if (x.m_dim) {
-            int dim_idx = -1;
-            ASRUtils::extract_value(ASRUtils::expr_value(x.m_dim), dim_idx);
-            if (dim_idx == -1) {
-                throw CodeGenError("Dimension index not available");
-            }
-            if (!m_dims[dim_idx - 1].m_length) {
-                throw CodeGenError("Dimension length for index " +
-                                   std::to_string(dim_idx) + " does not exist");
-            }
-            this->visit_expr(*(m_dims[dim_idx - 1].m_length));
-        } else {
-            if (!m_dims[0].m_length) {
-                throw CodeGenError(
-                    "Dimension length for index 0 does not exist");
-            }
-            this->visit_expr(*(m_dims[0].m_length));
-            for (int i = 1; i < n_dims; i++) {
-                this->visit_expr(*m_dims[i].m_length);
-                wasm::emit_i32_mul(m_code_section, m_al);
-            }
-        }
-
-        int kind = ASRUtils::extract_kind_from_ttype_t(x.m_type);
-        if (kind == 8) {
-            wasm::emit_i64_extend_i32_s(m_code_section, m_al);
-        }
-    }
-
-    void handle_return() {
-        if (cur_sym_info->return_var) {
-            LCOMPILERS_ASSERT(m_var_name_idx_map.find(get_hash(
-                                (ASR::asr_t *)cur_sym_info->return_var)) !=
-                            m_var_name_idx_map.end());
-            wasm::emit_get_local(m_code_section, m_al,
-                                 m_var_name_idx_map[get_hash(
-                                     (ASR::asr_t *)cur_sym_info->return_var)]);
-        } else {
-            for (auto return_var : cur_sym_info->referenced_vars) {
-                wasm::emit_get_local(
-                    m_code_section, m_al,
-                    m_var_name_idx_map[get_hash((ASR::asr_t *)(return_var))]);
-            }
-        }
-        wasm::emit_b8(m_code_section, m_al,
-                      0x0F);  // emit wasm return instruction
-    }
-
-    void visit_Return(const ASR::Return_t & /* x */) { handle_return(); }
-
-    void visit_IntegerConstant(const ASR::IntegerConstant_t &x) {
-        int64_t val = x.m_n;
-        int a_kind = ((ASR::Integer_t *)(&(x.m_type->base)))->m_kind;
-        switch (a_kind) {
-            case 4: {
-                wasm::emit_i32_const(m_code_section, m_al, val);
-                break;
-            }
-            case 8: {
-                wasm::emit_i64_const(m_code_section, m_al, val);
-                break;
-            }
-            default: {
-                throw CodeGenError(
-                    "Constant Integer: Only kind 4 and 8 supported");
-            }
-        }
-    }
-
-    void visit_RealConstant(const ASR::RealConstant_t &x) {
-        double val = x.m_r;
-        int a_kind = ((ASR::Real_t *)(&(x.m_type->base)))->m_kind;
-        switch (a_kind) {
-            case 4: {
-                wasm::emit_f32_const(m_code_section, m_al, val);
-                break;
-            }
-            case 8: {
-                wasm::emit_f64_const(m_code_section, m_al, val);
-                break;
-            }
-            default: {
-                throw CodeGenError(
-                    "Constant Real: Only kind 4 and 8 supported");
-            }
-        }
-    }
-
-    void visit_LogicalConstant(const ASR::LogicalConstant_t &x) {
-        bool val = x.m_value;
-        int a_kind = ((ASR::Logical_t *)(&(x.m_type->base)))->m_kind;
-        switch (a_kind) {
-            case 4: {
-                wasm::emit_i32_const(m_code_section, m_al, val);
-                break;
-            }
-            default: {
-                throw CodeGenError("Constant Logical: Only kind 4 supported");
-            }
-        }
-    }
-
-    std::string convert_int_to_bytes_string(int n) {
-        uint8_t bytes[sizeof(n)];
-        std::memcpy(&bytes, &n, sizeof(n));
-        std::string result = "";
-        for (size_t i = 0; i < sizeof(n); i++) {
-            result += char(bytes[i]);
-        }
-        return result;
-    }
-
-    void align_str_by_4_bytes(std::string &s) {
-        int n = s.length();
-        if (n % 4 == 0) return;
-        for (int i = 0; i < 4 - (n % 4); i++) {
-            s += " ";
-        }
-    }
-
-    void emit_string(std::string str) {
-        if (m_string_to_iov_loc_map.find(str) != m_string_to_iov_loc_map.end()) {
-            return;
-        }
-
-        // Todo: Add a check here if there is memory available to store the
-        // given string
-
-        m_string_to_iov_loc_map[str] = avail_mem_loc;
-
-        uint32_t string_loc = avail_mem_loc + 8U /* IOV_SIZE */;
-        std::string iov = convert_int_to_bytes_string(string_loc) + convert_int_to_bytes_string(str.length());
-        wasm::emit_str_const(m_data_section, m_al, avail_mem_loc, iov);
-        avail_mem_loc += iov.length();
-        no_of_data_segments++;
-
-        align_str_by_4_bytes(str);
-        wasm::emit_str_const(m_data_section, m_al, avail_mem_loc, str);
-        avail_mem_loc += str.length();
-        no_of_data_segments++;
-    }
-
-    void visit_StringConstant(const ASR::StringConstant_t &x) {
-        emit_string(x.m_s);
-        wasm::emit_i32_const(m_code_section, m_al, m_string_to_iov_loc_map[x.m_s]);
-    }
-
-    void visit_ArrayConstant(const ASR::ArrayConstant_t &x) {
-        // Todo: Add a check here if there is memory available to store the
-        // given string
-        uint32_t cur_mem_loc = avail_mem_loc;
-        for (size_t i = 0; i < x.n_args; i++) {
-            // emit memory location to store array element
-            wasm::emit_i32_const(m_code_section, m_al, avail_mem_loc);
-
-            this->visit_expr(*x.m_args[i]);
-            int element_size_in_bytes = emit_memory_store(x.m_args[i]);
-            avail_mem_loc += element_size_in_bytes;
-        }
-        // leave array location in memory on the stack
-        wasm::emit_i32_const(m_code_section, m_al, cur_mem_loc);
-    }
-
-    void visit_FunctionCall(const ASR::FunctionCall_t &x) {
-        if (x.m_value) {
-            this->visit_expr(*x.m_value);
-            return;
-        }
-
-        ASR::Function_t *fn = ASR::down_cast<ASR::Function_t>(
-            ASRUtils::symbol_get_past_external(x.m_name));
-
-        for (size_t i = 0; i < x.n_args; i++) {
-            visit_expr(*x.m_args[i].m_value);
-        }
-
-        LCOMPILERS_ASSERT(m_func_name_idx_map.find(get_hash((ASR::asr_t *)fn)) !=
-                        m_func_name_idx_map.end())
-        wasm::emit_call(m_code_section, m_al,
-                        m_func_name_idx_map[get_hash((ASR::asr_t *)fn)]->index);
-    }
-
-    void visit_SubroutineCall(const ASR::SubroutineCall_t &x) {
-        ASR::Function_t *s = ASR::down_cast<ASR::Function_t>(
-            ASRUtils::symbol_get_past_external(x.m_name));
-        // TODO: use a mapping with a hash(s) instead:
-        // std::string sym_name = s->m_name;
-        // if (sym_name == "exit") {
-        //     sym_name = "_xx_lcompilers_changed_exit_xx";
-        // }
-
-        Vec<ASR::expr_t *> vars_passed_by_refs;
-        vars_passed_by_refs.reserve(m_al, s->n_args);
-        if (x.n_args == s->n_args) {
-            for (size_t i = 0; i < x.n_args; i++) {
-                ASR::Variable_t *arg = ASRUtils::EXPR2VAR(s->m_args[i]);
-                if (arg->m_intent == ASRUtils::intent_out ||
-                    arg->m_intent == ASRUtils::intent_inout ||
-                    arg->m_intent == ASRUtils::intent_unspecified) {
-                    vars_passed_by_refs.push_back(m_al, x.m_args[i].m_value);
-                }
-                visit_expr(*x.m_args[i].m_value);
-            }
-        } else {
-            throw CodeGenError(
-                "visitSubroutineCall: Number of arguments passed do not match "
-                "the number of parameters");
-        }
-
-        LCOMPILERS_ASSERT(m_func_name_idx_map.find(get_hash((ASR::asr_t *)s)) !=
-                        m_func_name_idx_map.end())
-        wasm::emit_call(m_code_section, m_al,
-                        m_func_name_idx_map[get_hash((ASR::asr_t *)s)]->index);
-        for (auto return_expr : vars_passed_by_refs) {
-            if (ASR::is_a<ASR::Var_t>(*return_expr)) {
-                auto return_var = ASRUtils::EXPR2VAR(return_expr);
-                LCOMPILERS_ASSERT(
-                m_var_name_idx_map.find(get_hash((ASR::asr_t *)return_var)) !=
-                m_var_name_idx_map.end());
-                wasm::emit_set_local(
-                    m_code_section, m_al,
-                    m_var_name_idx_map[get_hash((ASR::asr_t *)return_var)]);
-            } else if (ASR::is_a<ASR::ArrayItem_t>(*return_expr)) {
-                // emit_memory_store(ASRUtils::EXPR(return_var));
-
-                throw CodeGenError(
-                    "Passing array elements as arguments (with intent out, "
-                    "inout, unspecified) to Subroutines is not yet supported");
-            } else {
-                LCOMPILERS_ASSERT(false);
-            }
-        }
-    }
-
-    inline ASR::ttype_t *extract_ttype_t_from_expr(ASR::expr_t *expr) {
-        return ASRUtils::expr_type(expr);
-    }
-
-    void extract_kinds(const ASR::Cast_t &x, int &arg_kind, int &dest_kind) {
-        dest_kind = ASRUtils::extract_kind_from_ttype_t(x.m_type);
-        ASR::ttype_t *curr_type = extract_ttype_t_from_expr(x.m_arg);
-        LCOMPILERS_ASSERT(curr_type != nullptr)
-        arg_kind = ASRUtils::extract_kind_from_ttype_t(curr_type);
-    }
-
-    void visit_Cast(const ASR::Cast_t &x) {
-        if (x.m_value) {
-            this->visit_expr(*x.m_value);
-            return;
-        }
-        this->visit_expr(*x.m_arg);
-        switch (x.m_kind) {
-            case (ASR::cast_kindType::IntegerToReal): {
-                int arg_kind = -1, dest_kind = -1;
-                extract_kinds(x, arg_kind, dest_kind);
-                if (arg_kind > 0 && dest_kind > 0) {
-                    if (arg_kind == 4 && dest_kind == 4) {
-                        wasm::emit_f32_convert_i32_s(m_code_section, m_al);
-                    } else if (arg_kind == 8 && dest_kind == 8) {
-                        wasm::emit_f64_convert_i64_s(m_code_section, m_al);
-                    } else if (arg_kind == 4 && dest_kind == 8) {
-                        wasm::emit_f64_convert_i32_s(m_code_section, m_al);
-                    } else if (arg_kind == 8 && dest_kind == 4) {
-                        wasm::emit_f32_convert_i64_s(m_code_section, m_al);
-                    } else {
-                        std::string msg = "Conversion from " +
-                                          std::to_string(arg_kind) + " to " +
-                                          std::to_string(dest_kind) +
-                                          " not implemented yet.";
-                        throw CodeGenError(msg);
-                    }
-                }
-                break;
-            }
-            case (ASR::cast_kindType::RealToInteger): {
-                int arg_kind = -1, dest_kind = -1;
-                extract_kinds(x, arg_kind, dest_kind);
-                if (arg_kind > 0 && dest_kind > 0) {
-                    if (arg_kind == 4 && dest_kind == 4) {
-                        wasm::emit_i32_trunc_f32_s(m_code_section, m_al);
-                    } else if (arg_kind == 8 && dest_kind == 8) {
-                        wasm::emit_i64_trunc_f64_s(m_code_section, m_al);
-                    } else if (arg_kind == 4 && dest_kind == 8) {
-                        wasm::emit_i64_trunc_f32_s(m_code_section, m_al);
-                    } else if (arg_kind == 8 && dest_kind == 4) {
-                        wasm::emit_i32_trunc_f64_s(m_code_section, m_al);
-                    } else {
-                        std::string msg = "Conversion from " +
-                                          std::to_string(arg_kind) + " to " +
-                                          std::to_string(dest_kind) +
-                                          " not implemented yet.";
-                        throw CodeGenError(msg);
-                    }
-                }
-                break;
-            }
-            case (ASR::cast_kindType::RealToComplex): {
-                throw CodeGenError("Complex types are not supported yet.");
-                break;
-            }
-            case (ASR::cast_kindType::IntegerToComplex): {
-                throw CodeGenError("Complex types are not supported yet.");
-                break;
-            }
-            case (ASR::cast_kindType::IntegerToLogical): {
-                int arg_kind = -1, dest_kind = -1;
-                extract_kinds(x, arg_kind, dest_kind);
-                if (arg_kind > 0 && dest_kind > 0) {
-                    if (arg_kind == 4 && dest_kind == 4) {
-                        wasm::emit_i32_eqz(m_code_section, m_al);
-                        wasm::emit_i32_eqz(m_code_section, m_al);
-                    } else if (arg_kind == 8 && dest_kind == 4) {
-                        wasm::emit_i64_eqz(m_code_section, m_al);
-                        wasm::emit_i64_eqz(m_code_section, m_al);
-                        wasm::emit_i32_wrap_i64(m_code_section, m_al);
-                    } else {
-                        std::string msg = "Conversion from kinds " +
-                                          std::to_string(arg_kind) + " to " +
-                                          std::to_string(dest_kind) +
-                                          " not supported";
-                        throw CodeGenError(msg);
-                    }
-                }
-                break;
-            }
-            case (ASR::cast_kindType::RealToLogical): {
-                int arg_kind = -1, dest_kind = -1;
-                extract_kinds(x, arg_kind, dest_kind);
-                if (arg_kind > 0 && dest_kind > 0) {
-                    if (arg_kind == 4 && dest_kind == 4) {
-                        wasm::emit_f32_const(m_code_section, m_al, 0.0);
-                        wasm::emit_f32_eq(m_code_section, m_al);
-                        wasm::emit_i32_eqz(m_code_section, m_al);
-                    } else if (arg_kind == 8 && dest_kind == 4) {
-                        wasm::emit_f64_const(m_code_section, m_al, 0.0);
-                        wasm::emit_f64_eq(m_code_section, m_al);
-                        wasm::emit_i64_eqz(m_code_section, m_al);
-                        wasm::emit_i32_wrap_i64(m_code_section, m_al);
-                    } else {
-                        std::string msg = "Conversion from kinds " +
-                                          std::to_string(arg_kind) + " to " +
-                                          std::to_string(dest_kind) +
-                                          " not supported";
-                        throw CodeGenError(msg);
-                    }
-                }
-                break;
-            }
-            case (ASR::cast_kindType::CharacterToLogical): {
-                throw CodeGenError(R"""(STrings are not supported yet)""",
-                                   x.base.base.loc);
-                break;
-            }
-            case (ASR::cast_kindType::ComplexToLogical): {
-                throw CodeGenError("Complex types are not supported yet.");
-                break;
-            }
-            case (ASR::cast_kindType::LogicalToInteger): {
-                int arg_kind = -1, dest_kind = -1;
-                extract_kinds(x, arg_kind, dest_kind);
-                if (arg_kind > 0 && dest_kind > 0) {
-                    if (arg_kind == 4 && dest_kind == 8) {
-                        wasm::emit_i64_extend_i32_s(m_code_section, m_al);
-                    } else if (arg_kind == 4 && dest_kind == 4) {
-                    } else {
-                        std::string msg = "Conversion from kinds " +
-                                          std::to_string(arg_kind) + " to " +
-                                          std::to_string(dest_kind) +
-                                          " not supported";
-                        throw CodeGenError(msg);
-                    }
-                }
-                break;
-                break;
-            }
-            case (ASR::cast_kindType::LogicalToReal): {
-                int arg_kind = -1, dest_kind = -1;
-                extract_kinds(x, arg_kind, dest_kind);
-                if (arg_kind > 0 && dest_kind > 0) {
-                    if (arg_kind == 4 && dest_kind == 4) {
-                        wasm::emit_f32_convert_i32_s(m_code_section, m_al);
-                    } else if (arg_kind == 4 && dest_kind == 8) {
-                        wasm::emit_f64_convert_i32_s(m_code_section, m_al);
-                    } else {
-                        std::string msg = "Conversion from kinds " +
-                                          std::to_string(arg_kind) + " to " +
-                                          std::to_string(dest_kind) +
-                                          " not supported";
-                        throw CodeGenError(msg);
-                    }
-                }
-                break;
-            }
-            case (ASR::cast_kindType::IntegerToInteger): {
-                int arg_kind = -1, dest_kind = -1;
-                extract_kinds(x, arg_kind, dest_kind);
-                if (arg_kind > 0 && dest_kind > 0 && arg_kind != dest_kind) {
-                    if (arg_kind == 4 && dest_kind == 8) {
-                        wasm::emit_i64_extend_i32_s(m_code_section, m_al);
-                    } else if (arg_kind == 8 && dest_kind == 4) {
-                        wasm::emit_i32_wrap_i64(m_code_section, m_al);
-                    } else {
-                        std::string msg = "Conversion from " +
-                                          std::to_string(arg_kind) + " to " +
-                                          std::to_string(dest_kind) +
-                                          " not implemented yet.";
-                        throw CodeGenError(msg);
-                    }
-                }
-                break;
-            }
-            case (ASR::cast_kindType::RealToReal): {
-                int arg_kind = -1, dest_kind = -1;
-                extract_kinds(x, arg_kind, dest_kind);
-                if (arg_kind > 0 && dest_kind > 0 && arg_kind != dest_kind) {
-                    if (arg_kind == 4 && dest_kind == 8) {
-                        wasm::emit_f64_promote_f32(m_code_section, m_al);
-                    } else if (arg_kind == 8 && dest_kind == 4) {
-                        wasm::emit_f32_demote_f64(m_code_section, m_al);
-                    } else {
-                        std::string msg = "Conversion from " +
-                                          std::to_string(arg_kind) + " to " +
-                                          std::to_string(dest_kind) +
-                                          " not implemented yet.";
-                        throw CodeGenError(msg);
-                    }
-                }
-                break;
-            }
-            case (ASR::cast_kindType::ComplexToComplex): {
-                throw CodeGenError("Complex types are not supported yet.");
-                break;
-            }
-            case (ASR::cast_kindType::ComplexToReal): {
-                throw CodeGenError("Complex types are not supported yet.");
-                break;
-            }
-            default:
-                throw CodeGenError("Cast kind not implemented");
-        }
-    }
-
-    void emit_call_fd_write(int filetype, const std::string &str, int iov_vec_len, int return_val_mem_loc) {
-        wasm::emit_i32_const(m_code_section, m_al, filetype); // file type: 1 for stdout
-        wasm::emit_i32_const(m_code_section, m_al, m_string_to_iov_loc_map[str]); // iov location
-        wasm::emit_i32_const(m_code_section, m_al, iov_vec_len); // size of iov vector
-        wasm::emit_i32_const(m_code_section, m_al, return_val_mem_loc); // mem_loction to return no. of bytes written
-        // call WASI fd_write
-        wasm::emit_call(
-            m_code_section, m_al,
-            m_func_name_idx_map[get_hash(
-                                    m_import_func_asr_map["fd_write"])]
-                ->index);
-        wasm::emit_drop(m_code_section, m_al);
-    }
-
-    template <typename T>
-    void handle_print(const T &x) {
-        for (size_t i = 0; i < x.n_values; i++) {
-            if (i > 0) {
-                // print " "
-                emit_call_fd_write(1, " ", 1, 0);
-            }
-            ASR::expr_t *v = x.m_values[i];
-            ASR::ttype_t *t = ASRUtils::expr_type(v);
-            int a_kind = ASRUtils::extract_kind_from_ttype_t(t);
-
-            if (ASRUtils::is_integer(*t) || ASRUtils::is_logical(*t)) {
-                this->visit_expr(*x.m_values[i]);
-                switch (a_kind) {
-                    case 4: {
-                        wasm::emit_i64_extend_i32_s(m_code_section, m_al);
-                        wasm::emit_call(m_code_section, m_al, 2 /* print_i64 */);
-                        break;
-                    }
-                    case 8: {
-                        wasm::emit_call(m_code_section, m_al, 2  /* print_i64 */);
-                        break;
-                    }
-                    default: {
-                        throw CodeGenError(
-                            R"""(Printing support is currently available only
-                                            for 32, and 64 bit integer kinds.)""");
-                    }
-                }
-            } else if (ASRUtils::is_real(*t)) {
-                this->visit_expr(*x.m_values[i]);
-                switch (a_kind) {
-                    case 4: {
-                        wasm::emit_f64_promote_f32(m_code_section, m_al);
-                        wasm::emit_call(m_code_section, m_al, 3  /* print_f64 */);
-                        break;
-                    }
-                    case 8: {
-                        wasm::emit_call(m_code_section, m_al, 3  /* print_f64 */);
-                        break;
-                    }
-                    default: {
-                        throw CodeGenError(
-                            R"""(Printing support is available only
-                                            for 32, and 64 bit real kinds.)""");
-                    }
-                }
-            } else if (t->type == ASR::ttypeType::Character) {
-                wasm::emit_i32_const(m_code_section, m_al, 1); // file type: 1 for stdout
-                this->visit_expr(*x.m_values[i]); // iov location
-                wasm::emit_i32_const(m_code_section, m_al, 1); // size of iov vector
-                wasm::emit_i32_const(m_code_section, m_al, 0); // mem_loction to return no. of bytes written
-
-                // call WASI fd_write
-                wasm::emit_call(
-                    m_code_section, m_al,
-                    m_func_name_idx_map[get_hash(
-                                            m_import_func_asr_map["fd_write"])]
-                        ->index);
-                wasm::emit_drop(m_code_section, m_al);
-            }
-        }
-
-        // print "\n" newline character
-        emit_call_fd_write(1, "\n", 1, 0);
-    }
-
-    void visit_Print(const ASR::Print_t &x) {
-        if (x.m_fmt != nullptr) {
-            diag.codegen_warning_label(
-                "format string in `print` is not implemented yet and it is "
-                "currently treated as '*'",
-                {x.m_fmt->base.loc}, "treated as '*'");
-        }
-        handle_print(x);
-    }
-
-    void visit_FileWrite(const ASR::FileWrite_t &x) {
-        if (x.m_fmt != nullptr) {
-            diag.codegen_warning_label(
-                "format string in `print` is not implemented yet and it is "
-                "currently treated as '*'",
-                {x.m_fmt->base.loc}, "treated as '*'");
-        }
-        if (x.m_unit != nullptr) {
-            diag.codegen_error_label("unit in write() is not implemented yet",
-                                     {x.m_unit->base.loc}, "not implemented");
-            throw CodeGenAbort();
-        }
-        handle_print(x);
-    }
-
-    void visit_FileRead(const ASR::FileRead_t &x) {
-        if (x.m_fmt != nullptr) {
-            diag.codegen_warning_label(
-                "format string in read() is not implemented yet and it is "
-                "currently treated as '*'",
-                {x.m_fmt->base.loc}, "treated as '*'");
-        }
-        if (x.m_unit != nullptr) {
-            diag.codegen_error_label("unit in read() is not implemented yet",
-                                     {x.m_unit->base.loc}, "not implemented");
-            throw CodeGenAbort();
-        }
-        diag.codegen_error_label(
-            "The intrinsic function read() is not implemented yet in the LLVM "
-            "backend",
-            {x.base.base.loc}, "not implemented");
-        throw CodeGenAbort();
-    }
-
-    void print_msg(std::string msg) {
-        msg += "\n";
-        emit_string(msg);
-        emit_call_fd_write(1, msg, 1, 0);
-    }
-
-    void exit() {
-        // exit_code would be on stack, so set this exit code using
-        // proc_exit(). this exit code would be read by JavaScript glue code
-        wasm::emit_call(
-            m_code_section, m_al,
-            m_func_name_idx_map[get_hash(
-                                    m_import_func_asr_map["proc_exit"])]
-                ->index);
-        wasm::emit_unreachable(m_code_section, m_al);  // raise trap/exception
-    }
-
-    void visit_Stop(const ASR::Stop_t &x) {
-        print_msg("STOP");
-        if (x.m_code &&
-            ASRUtils::expr_type(x.m_code)->type == ASR::ttypeType::Integer) {
-            this->visit_expr(*x.m_code);
-        } else {
-            wasm::emit_i32_const(m_code_section, m_al, 0);  // zero exit code
-        }
-        exit();
-    }
-
-    void visit_ErrorStop(const ASR::ErrorStop_t & /* x */) {
-        print_msg("ERROR STOP");
-        wasm::emit_i32_const(m_code_section, m_al, 1);  // non-zero exit code
-        exit();
-    }
-
-    void visit_If(const ASR::If_t &x) {
-        this->visit_expr(*x.m_test);
-        wasm::emit_b8(m_code_section, m_al, 0x04);  // emit if start
-        wasm::emit_b8(m_code_section, m_al, 0x40);  // empty block type
-        nesting_level++;
-        for (size_t i = 0; i < x.n_body; i++) {
-            this->visit_stmt(*x.m_body[i]);
-        }
-        wasm::emit_b8(m_code_section, m_al, 0x05);  // starting of else
-        for (size_t i = 0; i < x.n_orelse; i++) {
-            this->visit_stmt(*x.m_orelse[i]);
-        }
-        nesting_level--;
-        wasm::emit_expr_end(m_code_section, m_al);  // emit if end
-    }
-
-    void visit_WhileLoop(const ASR::WhileLoop_t &x) {
-        uint32_t prev_cur_loop_nesting_level = cur_loop_nesting_level;
-        cur_loop_nesting_level = nesting_level;
-
-        wasm::emit_b8(m_code_section, m_al, 0x03);  // emit loop start
-        wasm::emit_b8(m_code_section, m_al, 0x40);  // empty block type
-
-        nesting_level++;
-
-        this->visit_expr(*x.m_test);  // emit test condition
-
-        wasm::emit_b8(m_code_section, m_al, 0x04);  // emit if
-        wasm::emit_b8(m_code_section, m_al, 0x40);  // empty block type
-
-        for (size_t i = 0; i < x.n_body; i++) {
-            this->visit_stmt(*x.m_body[i]);
-        }
-
-        // From WebAssembly Docs:
-        // Unlike with other index spaces, indexing of labels is relative by
-        // nesting depth, that is, label 0 refers to the innermost structured
-        // control instruction enclosing the referring branch instruction, while
-        // increasing indices refer to those farther out.
-
-        wasm::emit_branch(
-            m_code_section, m_al,
-            nesting_level -
-                cur_loop_nesting_level);  // emit_branch and label the loop
-        wasm::emit_b8(m_code_section, m_al, 0x05);  // starting of else
-        wasm::emit_expr_end(m_code_section, m_al);  // end if
-
-        nesting_level--;
-        wasm::emit_expr_end(m_code_section, m_al);  // end loop
-        cur_loop_nesting_level = prev_cur_loop_nesting_level;
-    }
-
-    void visit_Exit(const ASR::Exit_t & /* x */) {
-        wasm::emit_branch(m_code_section, m_al,
-                          nesting_level - cur_loop_nesting_level -
-                              1U);  // branch to end of if
-    }
-
-    void visit_Cycle(const ASR::Cycle_t & /* x */) {
-        wasm::emit_branch(
-            m_code_section, m_al,
-            nesting_level - cur_loop_nesting_level);  // branch to start of loop
-    }
-
-    void visit_Assert(const ASR::Assert_t &x) {
-        this->visit_expr(*x.m_test);
-        wasm::emit_b8(m_code_section, m_al, 0x04);  // emit if start
-        wasm::emit_b8(m_code_section, m_al, 0x40);  // empty block type
-        wasm::emit_b8(m_code_section, m_al, 0x05);  // starting of else
-        if (x.m_msg) {
-            std::string msg =
-                ASR::down_cast<ASR::StringConstant_t>(x.m_msg)->m_s;
-            print_msg("AssertionError: " + msg);
-        } else {
-            print_msg("AssertionError");
-        }
-        wasm::emit_i32_const(m_code_section, m_al, 1);  // non-zero exit code
-        exit();
-        wasm::emit_expr_end(m_code_section, m_al);  // emit if end
-    }
-};
-
-Result<Vec<uint8_t>> asr_to_wasm_bytes_stream(ASR::TranslationUnit_t &asr,
-                                              Allocator &al,
-                                              diag::Diagnostics &diagnostics) {
-    ASRToWASMVisitor v(al, diagnostics);
-    Vec<uint8_t> wasm_bytes;
-
-    LCompilers::PassOptions pass_options;
-    pass_replace_do_loops(al, asr, pass_options);
-    pass_array_by_data(al, asr, pass_options);
-    pass_options.always_run = true;
-    pass_unused_functions(al, asr, pass_options);
-
-#ifdef SHOW_ASR
-    std::cout << pickle(asr, true /* use colors */, true /* indent */,
-                        true /* with_intrinsic_modules */)
-              << std::endl;
-#endif
-    try {
-        v.visit_asr((ASR::asr_t &)asr);
-    } catch (const CodeGenError &e) {
-        diagnostics.diagnostics.push_back(e.d);
-        return Error();
-    }
-
-    v.get_wasm(wasm_bytes);
-
-    return wasm_bytes;
-}
-
-Result<int> asr_to_wasm(ASR::TranslationUnit_t &asr, Allocator &al,
-                        const std::string &filename, bool time_report,
-                        diag::Diagnostics &diagnostics) {
-    int time_visit_asr = 0;
-    int time_save = 0;
-
-    auto t1 = std::chrono::high_resolution_clock::now();
-    Result<Vec<uint8_t>> wasm = asr_to_wasm_bytes_stream(asr, al, diagnostics);
-    auto t2 = std::chrono::high_resolution_clock::now();
-    time_visit_asr =
-        std::chrono::duration_cast<std::chrono::milliseconds>(t2 - t1).count();
-    if (!wasm.ok) {
-        return wasm.error;
-    }
-
-    {
-        auto t1 = std::chrono::high_resolution_clock::now();
-        wasm::save_bin(wasm.result, filename);
-        auto t2 = std::chrono::high_resolution_clock::now();
-        time_save =
-            std::chrono::duration_cast<std::chrono::milliseconds>(t2 - t1)
-                .count();
-    }
-
-    if (time_report) {
-        std::cout << "Codegen Time report:" << std::endl;
-        std::cout << "ASR -> wasm: " << std::setw(5) << time_visit_asr
-                  << std::endl;
-        std::cout << "Save:       " << std::setw(5) << time_save << std::endl;
-        int total = time_visit_asr + time_save;
-        std::cout << "Total:      " << std::setw(5) << total << std::endl;
-    }
-    return 0;
-}
-
-}  // namespace LCompilers
diff --git a/src/libasr/codegen/asr_to_wasm.h b/src/libasr/codegen/asr_to_wasm.h
deleted file mode 100644
index e6456f6737..0000000000
--- a/src/libasr/codegen/asr_to_wasm.h
+++ /dev/null
@@ -1,20 +0,0 @@
-#ifndef LFORTRAN_ASR_TO_WASM_H
-#define LFORTRAN_ASR_TO_WASM_H
-
-#include <libasr/asr.h>
-
-namespace LCompilers {
-
-// Generates a wasm binary stream from ASR
-Result<Vec<uint8_t>> asr_to_wasm_bytes_stream(ASR::TranslationUnit_t &asr,
-                                              Allocator &al,
-                                              diag::Diagnostics &diagnostics);
-
-// Generates a wasm binary to `filename`
-Result<int> asr_to_wasm(ASR::TranslationUnit_t &asr, Allocator &al,
-                        const std::string &filename, bool time_report,
-                        diag::Diagnostics &diagnostics);
-
-}  // namespace LCompilers
-
-#endif  // LFORTRAN_ASR_TO_WASM_H
diff --git a/src/libasr/codegen/asr_to_x86.cpp b/src/libasr/codegen/asr_to_x86.cpp
deleted file mode 100644
index 027b529005..0000000000
--- a/src/libasr/codegen/asr_to_x86.cpp
+++ /dev/null
@@ -1,614 +0,0 @@
-#include <iostream>
-#include <memory>
-#include <chrono>
-
-#include <libasr/asr.h>
-#include <libasr/containers.h>
-#include <libasr/codegen/asr_to_x86.h>
-#include <libasr/codegen/x86_assembler.h>
-#include <libasr/pass/do_loops.h>
-#include <libasr/pass/global_stmts.h>
-#include <libasr/exception.h>
-#include <libasr/asr_utils.h>
-
-
-namespace LCompilers {
-
-namespace {
-
-    // Local exception that is only used in this file to exit the visitor
-    // pattern and caught later (not propagated outside)
-    class CodeGenError
-    {
-    public:
-        diag::Diagnostic d;
-    public:
-        CodeGenError(const std::string &msg)
-            : d{diag::Diagnostic(msg, diag::Level::Error, diag::Stage::CodeGen)}
-        { }
-    };
-
-}
-
-using ASR::down_cast;
-using ASR::is_a;
-
-// Platform dependent fast unique hash:
-uint64_t static get_hash(ASR::asr_t *node)
-{
-    return (uint64_t)node;
-}
-
-class ASRToX86Visitor : public ASR::BaseVisitor<ASRToX86Visitor>
-{
-    struct Sym {
-        uint32_t stack_offset; // The local variable is [ebp-stack_offset]
-        std::string fn_label; // Subroutine / Function assembly label
-        bool pointer; // Is variable represented as a pointer (or value)
-    };
-public:
-    Allocator &m_al;
-    X86Assembler m_a;
-    std::map<std::string,std::string> m_global_strings;
-    std::map<uint64_t, Sym> x86_symtab;
-public:
-
-    ASRToX86Visitor(Allocator &al) : m_al{al}, m_a{al, false} {}
-
-    void visit_TranslationUnit(const ASR::TranslationUnit_t &x) {
-        // All loose statements must be converted to a function, so the items
-        // must be empty:
-        LCOMPILERS_ASSERT(x.n_items == 0);
-
-        emit_elf32_header(m_a);
-
-        emit_data_string(m_a, "string_neg", "-"); // - symbol for printing negative ints/floats
-        // Add runtime library functions
-        emit_print_int(m_a, "print_int");
-        emit_exit(m_a, "my_exit", 0);
-        emit_exit(m_a, "exit_error_stop", 1);
-
-
-        std::vector<std::string> global_func_order = ASRUtils::determine_function_definition_order(x.m_global_scope);
-        for (size_t i = 0; i < global_func_order.size(); i++) {
-            ASR::symbol_t* sym = x.m_global_scope->get_symbol(global_func_order[i]);
-            // Ignore external symbols because they are already defined by the loop above.
-            if( !sym || ASR::is_a<ASR::ExternalSymbol_t>(*sym) ) {
-                continue;
-            }
-            visit_symbol(*sym);
-        }
-
-        // Then the main program:
-        for (auto &item : x.m_global_scope->get_scope()) {
-            if (ASR::is_a<ASR::Program_t>(*item.second)) {
-                visit_symbol(*item.second);
-            }
-        }
-
-        emit_elf32_footer(m_a);
-    }
-
-    void visit_Program(const ASR::Program_t &x) {
-
-
-
-        std::vector<std::string> func_order = ASRUtils::determine_function_definition_order(x.m_symtab);
-        // Generate code for nested subroutines and functions first:
-        for (auto &item : func_order) {
-            ASR::symbol_t* sym = x.m_symtab->get_symbol(item);
-            ASR::Function_t *s = ASR::down_cast<ASR::Function_t>(sym);
-            visit_Function(*s);
-        }
-
-        // Generate code for the main program
-        m_a.add_label("_start");
-
-        // Initialize the stack
-        m_a.asm_push_r32(X86Reg::ebp);
-        m_a.asm_mov_r32_r32(X86Reg::ebp, X86Reg::esp);
-
-        // Allocate stack space for local variables
-        uint32_t total_offset = 0;
-        for (auto &item : x.m_symtab->get_scope()) {
-            if (is_a<ASR::Variable_t>(*item.second)) {
-                ASR::Variable_t *v = down_cast<ASR::Variable_t>(item.second);
-
-                if (v->m_type->type == ASR::ttypeType::Integer) {
-                    total_offset += 4;
-                    Sym s;
-                    s.stack_offset = total_offset;
-                    s.pointer = false;
-                    uint32_t h = get_hash((ASR::asr_t*)v);
-                    x86_symtab[h] = s;
-                } else {
-                    throw CodeGenError("Variable type not supported");
-                }
-            }
-        }
-        m_a.asm_sub_r32_imm8(X86Reg::esp, total_offset);
-
-        for (size_t i=0; i<x.n_body; i++) {
-            this->visit_stmt(*x.m_body[i]);
-        }
-
-        m_a.asm_call_label("my_exit");
-
-        // Restore stack
-        m_a.asm_mov_r32_r32(X86Reg::esp, X86Reg::ebp);
-        m_a.asm_pop_r32(X86Reg::ebp);
-        //m_a.asm_ret();
-
-        for (auto &s : m_global_strings) {
-            emit_data_string(m_a, s.first, s.second);
-        }
-
-    }
-
-    void visit_Function(const ASR::Function_t &x) {
-        uint32_t h = get_hash((ASR::asr_t*)&x);
-        std::string id = std::to_string(h);
-
-        // Generate code for the subroutine
-        Sym s;
-        s.stack_offset = 0;
-        s.pointer = false;
-        s.fn_label = x.m_name + id;
-        x86_symtab[h] = s;
-        m_a.add_label(s.fn_label);
-
-        // Add arguments to x86_symtab with their correct offset
-        for (size_t i=0; i<x.n_args; i++) {
-            ASR::Variable_t *arg = ASRUtils::EXPR2VAR(x.m_args[i]);
-            LCOMPILERS_ASSERT(ASRUtils::is_arg_dummy(arg->m_intent));
-            // TODO: we are assuming integer here:
-            LCOMPILERS_ASSERT(arg->m_type->type == ASR::ttypeType::Integer);
-            Sym s;
-            s.stack_offset = -(i*4+8); // TODO: reverse the sign of offset
-            // We pass intent(in) as value, otherwise as pointer
-            s.pointer = (arg->m_intent != ASR::intentType::In);
-            uint32_t h = get_hash((ASR::asr_t*)arg);
-            x86_symtab[h] = s;
-        }
-
-        // Initialize the stack
-        m_a.asm_push_r32(X86Reg::ebp);
-        m_a.asm_mov_r32_r32(X86Reg::ebp, X86Reg::esp);
-
-        // Allocate stack space for local variables
-        uint32_t total_offset = 0;
-        for (auto &item : x.m_symtab->get_scope()) {
-            if (is_a<ASR::Variable_t>(*item.second)) {
-                ASR::Variable_t *v = down_cast<ASR::Variable_t>(item.second);
-
-                if (v->m_intent == ASRUtils::intent_local ||
-                    v->m_intent == ASRUtils::intent_return_var) {
-                    if (v->m_type->type == ASR::ttypeType::Integer) {
-                        total_offset += 4;
-                        Sym s;
-                        s.stack_offset = total_offset;
-                        s.pointer = false;
-                        uint32_t h = get_hash((ASR::asr_t*)v);
-                        x86_symtab[h] = s;
-                    } else {
-                        throw CodeGenError("Variable type not supported");
-                    }
-                }
-            }
-        }
-        m_a.asm_sub_r32_imm8(X86Reg::esp, total_offset);
-
-        for (size_t i=0; i<x.n_body; i++) {
-            this->visit_stmt(*x.m_body[i]);
-        }
-
-        // Leave return value in eax
-        if (x.m_return_var) {
-            ASR::Variable_t *retv = ASRUtils::EXPR2VAR(x.m_return_var);
-
-            uint32_t h = get_hash((ASR::asr_t*)retv);
-            LCOMPILERS_ASSERT(x86_symtab.find(h) != x86_symtab.end());
-            Sym s = x86_symtab[h];
-            X86Reg base = X86Reg::ebp;
-            // mov eax, [ebp-s.stack_offset]
-            m_a.asm_mov_r32_m32(X86Reg::eax, &base, nullptr, 1, -s.stack_offset);
-            LCOMPILERS_ASSERT(!s.pointer);
-        }
-
-        // Restore stack
-        m_a.asm_mov_r32_r32(X86Reg::esp, X86Reg::ebp);
-        m_a.asm_pop_r32(X86Reg::ebp);
-        m_a.asm_ret();
-    }
-
-    void visit_Return(const ASR::Return_t &/*x*/) { }
-
-    // Expressions leave integer values in eax
-
-    void visit_IntegerConstant(const ASR::IntegerConstant_t &x) {
-        m_a.asm_mov_r32_imm32(X86Reg::eax, x.m_n);
-    }
-
-    void visit_LogicalConstant(const ASR::LogicalConstant_t &x) {
-        int val;
-        if (x.m_value == true) {
-            val = 1;
-        } else {
-            val = 0;
-        }
-        m_a.asm_mov_r32_imm32(X86Reg::eax, val);
-    }
-
-    void visit_Var(const ASR::Var_t &x) {
-        ASR::Variable_t *v = ASR::down_cast<ASR::Variable_t>(x.m_v);
-        uint32_t h = get_hash((ASR::asr_t*)v);
-        LCOMPILERS_ASSERT(x86_symtab.find(h) != x86_symtab.end());
-        Sym s = x86_symtab[h];
-        X86Reg base = X86Reg::ebp;
-        // mov eax, [ebp-s.stack_offset]
-        m_a.asm_mov_r32_m32(X86Reg::eax, &base, nullptr, 1, -s.stack_offset);
-        if (s.pointer) {
-            base = X86Reg::eax;
-            // Dereference a pointer
-            // mov eax, [eax]
-            m_a.asm_mov_r32_m32(X86Reg::eax, &base, nullptr, 1, 0);
-        }
-    }
-
-    void visit_IntegerBinOp(const ASR::IntegerBinOp_t &x) {
-        this->visit_expr(*x.m_right);
-        m_a.asm_push_r32(X86Reg::eax);
-        this->visit_expr(*x.m_left);
-        m_a.asm_pop_r32(X86Reg::ecx);
-        // The left operand is in eax, the right operand is in ecx
-        // Leave the result in eax.
-        switch (x.m_op) {
-            case ASR::binopType::Add: {
-                m_a.asm_add_r32_r32(X86Reg::eax, X86Reg::ecx);
-                break;
-            };
-            case ASR::binopType::Sub: {
-                m_a.asm_sub_r32_r32(X86Reg::eax, X86Reg::ecx);
-                break;
-            };
-            case ASR::binopType::Mul: {
-                m_a.asm_mov_r32_imm32(X86Reg::edx, 0);
-                m_a.asm_mul_r32(X86Reg::ecx);
-                break;
-            };
-            case ASR::binopType::Div: {
-                m_a.asm_mov_r32_imm32(X86Reg::edx, 0);
-                m_a.asm_div_r32(X86Reg::ecx);
-                break;
-            };
-            default: {
-                throw CodeGenError("Binary operator '" + ASRUtils::binop_to_str_python(x.m_op) + "' not supported yet");
-            }
-        }
-    }
-
-    void visit_IntegerUnaryMinus(const ASR::IntegerUnaryMinus_t &x) {
-        this->visit_expr(*x.m_arg);
-        m_a.asm_neg_r32(X86Reg::eax);
-    }
-
-    void visit_IntegerCompare(const ASR::IntegerCompare_t &x) {
-        std::string id = std::to_string(get_hash((ASR::asr_t*)&x));
-        this->visit_expr(*x.m_right);
-        m_a.asm_push_r32(X86Reg::eax);
-        this->visit_expr(*x.m_left);
-        m_a.asm_pop_r32(X86Reg::ecx);
-        // The left operand is in eax, the right operand is in ecx
-        // Leave the result in eax.
-        m_a.asm_cmp_r32_r32(X86Reg::eax, X86Reg::ecx);
-        switch (x.m_op) {
-            case (ASR::cmpopType::Eq) : {
-                m_a.asm_je_label(".compare1" + id);
-                break;
-            }
-            case (ASR::cmpopType::Gt) : {
-                m_a.asm_jg_label(".compare1" + id);
-                break;
-            }
-            case (ASR::cmpopType::GtE) : {
-                m_a.asm_jge_label(".compare1" + id);
-                break;
-            }
-            case (ASR::cmpopType::Lt) : {
-                m_a.asm_jl_label(".compare1" + id);
-                break;
-            }
-            case (ASR::cmpopType::LtE) : {
-                m_a.asm_jle_label(".compare1" + id);
-                break;
-            }
-            case (ASR::cmpopType::NotEq) : {
-                m_a.asm_jne_label(".compare1" + id);
-                break;
-            }
-            default : {
-                throw CodeGenError("Comparison operator not implemented");
-            }
-        }
-        m_a.asm_mov_r32_imm32(X86Reg::eax, 0);
-        m_a.asm_jmp_label(".compareend" + id);
-        m_a.add_label(".compare1" + id);
-        m_a.asm_mov_r32_imm32(X86Reg::eax, 1);
-        m_a.add_label(".compareend" + id);
-    }
-
-    void visit_Assignment(const ASR::Assignment_t &x) {
-        this->visit_expr(*x.m_value);
-        // RHS is in eax
-
-        ASR::Variable_t *v = ASRUtils::EXPR2VAR(x.m_target);
-        uint32_t h = get_hash((ASR::asr_t*)v);
-        LCOMPILERS_ASSERT(x86_symtab.find(h) != x86_symtab.end());
-        Sym s = x86_symtab[h];
-        X86Reg base = X86Reg::ebp;
-        if (s.pointer) {
-            // mov ecx, [ebp-s.stack_offset]
-            m_a.asm_mov_r32_m32(X86Reg::ecx, &base, nullptr, 1, -s.stack_offset);
-            // mov [ecx], eax
-            base = X86Reg::ecx;
-            m_a.asm_mov_m32_r32(&base, nullptr, 1, 0, X86Reg::eax);
-        } else {
-            // mov [ebp-s.stack_offset], eax
-            m_a.asm_mov_m32_r32(&base, nullptr, 1, -s.stack_offset, X86Reg::eax);
-        }
-    }
-
-    void visit_Print(const ASR::Print_t &x) {
-        LCOMPILERS_ASSERT(x.n_values == 1);
-        ASR::expr_t *e = x.m_values[0];
-        if (e->type == ASR::exprType::StringConstant) {
-            ASR::StringConstant_t *s = down_cast<ASR::StringConstant_t>(e);
-            std::string msg = s->m_s;
-            msg += "\n";
-            std::string id = "string" + std::to_string(get_hash((ASR::asr_t*)e));
-            emit_print(m_a, id, msg.size());
-            m_global_strings[id] = msg;
-        } else {
-            this->visit_expr(*e);
-            ASR::ttype_t *t = ASRUtils::expr_type(e);
-            if (t->type == ASR::ttypeType::Integer) {
-                m_a.asm_push_r32(X86Reg::eax);
-                m_a.asm_call_label("print_int");
-                m_a.asm_add_r32_imm8(X86Reg::esp, 4);
-            } else if (t->type == ASR::ttypeType::Real) {
-                throw LCompilersException("Type not implemented");
-            } else if (t->type == ASR::ttypeType::Character) {
-                throw LCompilersException("Type not implemented");
-            } else {
-                throw LCompilersException("Type not implemented");
-            }
-
-
-            std::string msg = "\n";
-            std::string id = "string" + std::to_string(get_hash((ASR::asr_t*)e));
-            emit_print(m_a, id, msg.size());
-            m_global_strings[id] = msg;
-        }
-    }
-
-    void visit_ErrorStop(const ASR::ErrorStop_t &x) {
-        std::string id = "err" + std::to_string(get_hash((ASR::asr_t*)&x));
-        std::string msg = "ERROR STOP\n";
-        emit_print(m_a, id, msg.size());
-        m_global_strings[id] = msg;
-
-        m_a.asm_call_label("exit_error_stop");
-    }
-
-    void visit_If(const ASR::If_t &x) {
-        std::string id = std::to_string(get_hash((ASR::asr_t*)&x));
-        this->visit_expr(*x.m_test);
-        // eax contains the logical value (true=1, false=0) of the if condition
-        m_a.asm_cmp_r32_imm8(X86Reg::eax, 1);
-        m_a.asm_je_label(".then" + id);
-        m_a.asm_jmp_label(".else" + id);
-        m_a.add_label(".then" + id);
-        for (size_t i=0; i<x.n_body; i++) {
-            this->visit_stmt(*x.m_body[i]);
-        }
-        m_a.asm_jmp_label(".endif" +id);
-        m_a.add_label(".else" + id);
-        for (size_t i=0; i<x.n_orelse; i++) {
-            this->visit_stmt(*x.m_orelse[i]);
-        }
-        m_a.add_label(".endif" + id);
-    }
-
-    void visit_WhileLoop(const ASR::WhileLoop_t &x) {
-        std::string id = std::to_string(get_hash((ASR::asr_t*)&x));
-
-        // head
-        m_a.add_label(".loop.head" + id);
-        this->visit_expr(*x.m_test);
-        // eax contains the logical value (true=1, false=0) of the while condition
-        m_a.asm_cmp_r32_imm8(X86Reg::eax, 1);
-        m_a.asm_je_label(".loop.body" + id);
-        m_a.asm_jmp_label(".loop.end" + id);
-
-        // body
-        m_a.add_label(".loop.body" + id);
-        for (size_t i=0; i<x.n_body; i++) {
-            this->visit_stmt(*x.m_body[i]);
-        }
-        m_a.asm_jmp_label(".loop.head" + id);
-
-        // end
-        m_a.add_label(".loop.end" + id);
-    }
-
-    // Push arguments to stack (last argument first)
-    template <typename T, typename T2>
-    uint8_t push_call_args(const T &x, const T2 &sub) {
-        LCOMPILERS_ASSERT(sub.n_args == x.n_args);
-        // Note: when counting down in a loop, we have to use signed ints
-        // for `i`, so that it can become negative and fail the i>=0 condition.
-        for (int i=x.n_args-1; i>=0; i--) {
-            bool pass_as_pointer;
-            {
-                ASR::Variable_t *arg = ASRUtils::EXPR2VAR(sub.m_args[i]);
-                LCOMPILERS_ASSERT(ASRUtils::is_arg_dummy(arg->m_intent));
-                // TODO: we are assuming integer here:
-                LCOMPILERS_ASSERT(arg->m_type->type == ASR::ttypeType::Integer);
-                uint32_t h = get_hash((ASR::asr_t*)arg);
-                Sym &s = x86_symtab[h];
-                pass_as_pointer = s.pointer;
-            }
-            if (x.m_args[i].m_value->type == ASR::exprType::Var) {
-                ASR::Variable_t *arg = ASRUtils::EXPR2VAR(x.m_args[i].m_value);
-                uint32_t h = get_hash((ASR::asr_t*)arg);
-                LCOMPILERS_ASSERT(x86_symtab.find(h) != x86_symtab.end());
-                Sym s = x86_symtab[h];
-                X86Reg base = X86Reg::ebp;
-                if (s.pointer) {
-                    if (pass_as_pointer) {
-                        // Copy over the stack variable (already a pointer)
-                        // mov eax, [ebp-s.stack_offset]
-                        m_a.asm_mov_r32_m32(X86Reg::eax, &base, nullptr, 1, -s.stack_offset);
-                    } else {
-                        // Copy and dereference the stack variable
-
-                        // Copy
-                        // mov eax, [ebp-s.stack_offset]
-                        m_a.asm_mov_r32_m32(X86Reg::eax, &base, nullptr, 1, -s.stack_offset);
-
-                        // Dereference a pointer
-                        // mov eax, [eax]
-                        m_a.asm_mov_r32_m32(X86Reg::eax, &base, nullptr, 1, 0);
-                    }
-                    m_a.asm_push_r32(X86Reg::eax);
-                } else {
-                    if (pass_as_pointer) {
-                        // Get a pointer to the stack variable
-                        // lea eax, [ebp-s.stack_offset]
-                        m_a.asm_lea_r32_m32(X86Reg::eax, &base, nullptr, 1, -s.stack_offset);
-                    } else {
-                        // Copy over the stack variable
-                        // mov eax, [ebp-s.stack_offset]
-                        m_a.asm_mov_r32_m32(X86Reg::eax, &base, nullptr, 1, -s.stack_offset);
-                    }
-                    m_a.asm_push_r32(X86Reg::eax);
-                }
-            } else {
-                LCOMPILERS_ASSERT(!pass_as_pointer);
-                this->visit_expr(*(x.m_args[i].m_value));
-                // The value of the argument is in eax, push it onto the stack
-                m_a.asm_push_r32(X86Reg::eax);
-            }
-        }
-        return x.n_args*4;
-    }
-
-    void visit_SubroutineCall(const ASR::SubroutineCall_t &x) {
-        ASR::Function_t *s = ASR::down_cast<ASR::Function_t>(x.m_name);
-
-        uint32_t h = get_hash((ASR::asr_t*)s);
-        if (x86_symtab.find(h) == x86_symtab.end()) {
-            throw CodeGenError("Subroutine code not generated for '"
-                + std::string(s->m_name) + "'");
-        }
-        Sym &sym = x86_symtab[h];
-        // Push arguments to stack (last argument first)
-        uint8_t arg_offset = push_call_args(x, *s);
-        // Call the subroutine
-        m_a.asm_call_label(sym.fn_label);
-        // Remove arguments from stack
-        m_a.asm_add_r32_imm8(X86Reg::esp, arg_offset);
-    }
-
-    void visit_FunctionCall(const ASR::FunctionCall_t &x) {
-        ASR::Function_t *s = ASR::down_cast<ASR::Function_t>(x.m_name);
-
-        uint32_t h = get_hash((ASR::asr_t*)s);
-        if (x86_symtab.find(h) == x86_symtab.end()) {
-            throw CodeGenError("Function code not generated for '"
-                + std::string(s->m_name) + "'");
-        }
-        Sym &sym = x86_symtab[h];
-        // Push arguments to stack (last argument first)
-        uint8_t arg_offset = push_call_args(x, *s);
-        // Call the function (the result is in eax, we leave it there)
-        m_a.asm_call_label(sym.fn_label);
-        // Remove arguments from stack
-        m_a.asm_add_r32_imm8(X86Reg::esp, arg_offset);
-    }
-
-};
-
-
-Result<int> asr_to_x86(ASR::TranslationUnit_t &asr, Allocator &al,
-        const std::string &filename, bool time_report,
-        diag::Diagnostics &diagnostics)
-{
-    int time_pass_global=0;
-    int time_pass_do_loops=0;
-    int time_visit_asr=0;
-    int time_verify=0;
-    int time_save=0;
-
-    ASRToX86Visitor v(al);
-
-    LCompilers::PassOptions pass_options;
-    pass_options.run_fun = "f";
-
-    {
-        auto t1 = std::chrono::high_resolution_clock::now();
-        pass_wrap_global_stmts_into_function(al, asr, pass_options);
-        auto t2 = std::chrono::high_resolution_clock::now();
-        time_pass_global = std::chrono::duration_cast<std::chrono::milliseconds>(t2 - t1).count();
-    }
-
-    {
-        auto t1 = std::chrono::high_resolution_clock::now();
-        pass_replace_do_loops(al, asr, pass_options);
-        auto t2 = std::chrono::high_resolution_clock::now();
-        time_pass_do_loops = std::chrono::duration_cast<std::chrono::milliseconds>(t2 - t1).count();
-    }
-
-    {
-        auto t1 = std::chrono::high_resolution_clock::now();
-        try {
-            v.visit_asr((ASR::asr_t &)asr);
-        } catch (const CodeGenError &e) {
-            diagnostics.diagnostics.push_back(e.d);
-            return Error();
-        }
-        auto t2 = std::chrono::high_resolution_clock::now();
-        time_visit_asr = std::chrono::duration_cast<std::chrono::milliseconds>(t2 - t1).count();
-    }
-
-    {
-        auto t1 = std::chrono::high_resolution_clock::now();
-        v.m_a.verify();
-        auto t2 = std::chrono::high_resolution_clock::now();
-        time_verify = std::chrono::duration_cast<std::chrono::milliseconds>(t2 - t1).count();
-    }
-
-    {
-        auto t1 = std::chrono::high_resolution_clock::now();
-        v.m_a.save_binary(filename);
-        auto t2 = std::chrono::high_resolution_clock::now();
-        time_save = std::chrono::duration_cast<std::chrono::milliseconds>(t2 - t1).count();
-    }
-
-    //! Helpful for debugging
-    // std::cout << v.m_a.get_asm() << std::endl;
-
-    if (time_report) {
-        std::cout << "Codegen Time report:" << std::endl;
-        std::cout << "Global:     " << std::setw(5) << time_pass_global << std::endl;
-        std::cout << "Do loops:   " << std::setw(5) << time_pass_do_loops << std::endl;
-        std::cout << "ASR -> x86: " << std::setw(5) << time_visit_asr << std::endl;
-        std::cout << "Verify:     " << std::setw(5) << time_verify << std::endl;
-        std::cout << "Save:       " << std::setw(5) << time_save << std::endl;
-        int total = time_pass_global + time_pass_do_loops + time_visit_asr + time_verify + time_verify + time_save;
-        std::cout << "Total:      " << std::setw(5) << total << std::endl;
-    }
-    return 0;
-}
-
-} // namespace LCompilers
diff --git a/src/libasr/codegen/asr_to_x86.h b/src/libasr/codegen/asr_to_x86.h
deleted file mode 100644
index 415e663a4e..0000000000
--- a/src/libasr/codegen/asr_to_x86.h
+++ /dev/null
@@ -1,15 +0,0 @@
-#ifndef LFORTRAN_ASR_TO_X86_H
-#define LFORTRAN_ASR_TO_X86_H
-
-#include <libasr/asr.h>
-
-namespace LCompilers {
-
-    // Generates a 32-bit x86 Linux executable binary `filename`
-    Result<int> asr_to_x86(ASR::TranslationUnit_t &asr, Allocator &al,
-            const std::string &filename, bool time_report,
-            diag::Diagnostics &diagnostics);
-
-} // namespace LCompilers
-
-#endif // LFORTRAN_ASR_TO_X86_H
diff --git a/src/libasr/codegen/c_utils.h b/src/libasr/codegen/c_utils.h
deleted file mode 100644
index c1b18be97f..0000000000
--- a/src/libasr/codegen/c_utils.h
+++ /dev/null
@@ -1,1127 +0,0 @@
-#ifndef LFORTRAN_C_UTILS_H
-#define LFORTRAN_C_UTILS_H
-
-#include <libasr/asr.h>
-#include <libasr/asr_utils.h>
-
-namespace LCompilers {
-
-    static inline std::string format_type_c(const std::string &dims, const std::string &type,
-        const std::string &name, bool use_ref, bool /*dummy*/)
-    {
-        std::string fmt;
-        std::string ref = "";
-        if (use_ref) ref = "*";
-        if( dims == "*" ) {
-            fmt = type + " " + dims + ref + name;
-        } else {
-            fmt = type + " " + ref + name + dims;
-        }
-        return fmt;
-    }
-
-    // Local exception that is only used in this file to exit the visitor
-    // pattern and caught later (not propagated outside)
-    class CodeGenError
-    {
-    public:
-        diag::Diagnostic d;
-    public:
-        CodeGenError(const std::string &msg)
-            : d{diag::Diagnostic(msg, diag::Level::Error, diag::Stage::CodeGen)}
-        { }
-
-        CodeGenError(const std::string &msg, const Location &loc)
-            : d{diag::Diagnostic(msg, diag::Level::Error, diag::Stage::CodeGen, {
-                diag::Label("", {loc})
-            })}
-        { }
-    };
-
-    class Abort {};
-
-namespace CUtils {
-
-    static inline bool is_non_primitive_DT(ASR::ttype_t *t) {
-        return ASR::is_a<ASR::List_t>(*t) || ASR::is_a<ASR::Tuple_t>(*t) || ASR::is_a<ASR::Struct_t>(*t);
-    }
-
-    class CUtilFunctions {
-
-        private:
-
-            SymbolTable* global_scope;
-            std::map<std::string, std::string> util2func;
-
-            int indentation_level, indentation_spaces;
-
-        public:
-
-            std::string util_func_decls;
-            std::string util_funcs;
-
-            CUtilFunctions() {
-                util2func.clear();
-                util_func_decls.clear();
-                util_funcs.clear();
-            }
-
-            void set_indentation(int indendation_level_, int indendation_space_) {
-                indentation_level = indendation_level_;
-                indentation_spaces = indendation_space_;
-            }
-
-            void set_global_scope(SymbolTable* global_scope_) {
-                global_scope = global_scope_;
-            }
-
-            std::string get_generated_code() {
-                return util_funcs;
-            }
-
-            std::string get_util_func_decls() {
-                return util_func_decls;
-            }
-
-            void array_size() {
-                std::string indent(indentation_level * indentation_spaces, ' ');
-                std::string tab(indentation_spaces, ' ');
-                std::string array_size_func;
-                if( util2func.find("array_size") == util2func.end() ) {
-                    array_size_func = global_scope->get_unique_name("array_size");
-                    util2func["array_size"] = array_size_func;
-                } else {
-                    return ;
-                }
-                array_size_func = util2func["array_size"];
-                std::string signature = "static inline int32_t " + array_size_func + "(struct dimension_descriptor dims[], size_t n)";
-                util_func_decls += indent + signature + ";\n";
-                std::string body = indent + signature + " {\n";
-                body += indent + tab + "int32_t size = 1;\n";
-                body += indent + tab + "for (size_t i = 0; i < n; i++) {\n";
-                body += indent + tab + tab + "size *= dims[i].length;\n";
-                body += indent + tab + "}\n";
-                body += indent + tab + "return size;\n";
-                body += indent + "}\n\n";
-                util_funcs += body;
-            }
-
-            void array_deepcopy(ASR::ttype_t* array_type_asr, std::string array_type_name,
-                                std::string array_encoded_type_name, std::string array_type_str) {
-                LCOMPILERS_ASSERT(!is_non_primitive_DT(array_type_asr));
-                std::string indent(indentation_level * indentation_spaces, ' ');
-                std::string tab(indentation_spaces, ' ');
-                std::string array_dc_func;
-                if( util2func.find("array_deepcopy_" + array_encoded_type_name) == util2func.end() ) {
-                    array_dc_func = global_scope->get_unique_name("array_deepcopy_" + array_encoded_type_name);
-                    util2func["array_deepcopy_" + array_encoded_type_name] = array_dc_func;
-                } else {
-                    return ;
-                }
-                array_dc_func = util2func["array_deepcopy_" + array_encoded_type_name];
-                std::string array_types_decls = "";
-                std::string signature = "void " + array_dc_func + "("
-                                    + array_type_str + " src, "
-                                    + array_type_str + " dest)";
-                util_func_decls += "inline " + signature + ";\n";
-                std::string body = indent + signature + " {\n";
-                body += indent + tab + "int32_t src_size = " + get_array_size() + "(src->dims, src->n_dims);\n";
-                body += indent + tab + "memcpy(dest->data, src->data, src_size * sizeof(" + array_type_name +"));\n";
-                body += indent + tab + "memcpy(dest->dims, src->dims, 32 * sizeof(struct dimension_descriptor));\n";
-                body += indent + tab + "dest->n_dims = src->n_dims;\n";
-                body += indent + tab + "dest->is_allocated = src->is_allocated;\n";
-                body += indent + "}\n\n";
-                util_funcs += body;
-            }
-
-            void array_reshape(std::string array_type, std::string shape_type,
-                std::string return_type, std::string element_type,
-                std::string array_type_code) {
-                std::string indent(indentation_level * indentation_spaces, ' ');
-                std::string tab(indentation_spaces, ' ');
-                std::string array_reshape_func;
-                if( util2func.find("array_reshape_" + array_type_code) == util2func.end() ) {
-                    array_reshape_func = global_scope->get_unique_name("array_reshape_" + array_type_code);
-                    util2func["array_reshape_" + array_type_code] = array_reshape_func;
-                } else {
-                    return ;
-                }
-                array_reshape_func = util2func["array_reshape_" + array_type_code];
-                std::string signature = "static inline " + return_type + "* " + array_reshape_func + "(" +
-                                        array_type + " array" + ", " + shape_type + " shape)";
-                util_func_decls += indent + signature + ";\n";
-                std::string body = indent + signature + " {\n";
-                body += indent + tab + "int32_t n = shape->dims[0].length;\n";
-                body += indent + tab + return_type + "* reshaped = (" + return_type + "*) malloc(sizeof(" + return_type + "));\n";
-                body += indent + tab + "int32_t array_size_ = " + get_array_size() + "(array->dims, array->n_dims);\n";
-                body += indent + tab + "int32_t shape_size_ = " + get_array_size() + "(shape->dims, shape->n_dims);\n";
-                body += indent + tab + "int32_t reshaped_size = 1;\n";
-                body += indent + tab + "for (int32_t i = 0; i < shape_size_; i++) {\n";
-                body += indent + tab + tab + "reshaped_size *= shape->data[i];\n";
-                body += indent + tab + "}\n";
-                body += indent + tab + "ASSERT(array_size_ == reshaped_size);\n";
-                body += indent + tab + "reshaped->data = (" + element_type + "*) malloc(sizeof(" + element_type + ")*array_size_);\n";
-                body += indent + tab + "reshaped->data = (" + element_type + "*) memcpy(reshaped->data, array->data, sizeof(" + element_type + ")*array_size_);\n";
-                body += indent + tab + "reshaped->n_dims = shape_size_;\n";
-                body += indent + tab + "for (int32_t i = 0; i < shape_size_; i++) {\n";
-                body += indent + tab + tab + "reshaped->dims[i].lower_bound = 0;\n";
-                body += indent + tab + tab + "reshaped->dims[i].length = shape->data[i];\n";
-                body += indent + tab + "}\n";
-                body += indent + tab + "return reshaped;\n";
-                body += indent + "}\n\n";
-                util_funcs += body;
-            }
-
-            void array_constant(std::string return_type, std::string element_type,
-                std::string array_type_code) {
-                std::string indent(indentation_level * indentation_spaces, ' ');
-                std::string tab(indentation_spaces, ' ');
-                std::string array_const_func;
-                if( util2func.find("array_constant_" + array_type_code) == util2func.end() ) {
-                    array_const_func = global_scope->get_unique_name("array_constant_" + array_type_code);
-                    util2func["array_constant_" + array_type_code] = array_const_func;
-                } else {
-                    return ;
-                }
-                array_const_func = util2func["array_constant_" + array_type_code];
-                std::string signature = "static inline " + return_type + "* " + array_const_func + "(int32_t n, ...)";
-                util_func_decls += indent + signature + ";\n";
-                std::string body = indent + signature + " {\n";
-                body += indent + tab + return_type + "* const_array  = (" + return_type + "*) malloc(sizeof(" + return_type + "));\n";
-                body += indent + tab + "va_list ap;\n";
-                body += indent + tab + "va_start(ap, n);\n";
-                body += indent + tab + "const_array->data = (" + element_type + "*) malloc(sizeof(" + element_type + ")*n);\n";
-                body += indent + tab + "const_array->n_dims = 1;\n";
-                body += indent + tab + "const_array->dims[0].lower_bound = 0;\n";
-                body += indent + tab + "const_array->dims[0].length = n;\n";
-                body += indent + tab + "for (int32_t i = 0; i < n; i++) {\n";
-                body += indent + tab + tab + "const_array->data[i] = va_arg(ap, " + element_type +");\n";
-                body += indent + tab + "}\n";
-                body += indent + tab + "va_end(ap);\n";
-                body += indent + tab + "return const_array;\n";
-                body += indent + "}\n\n";
-                util_funcs += body;
-            }
-
-            std::string get_array_size() {
-                array_size();
-                return util2func["array_size"];
-            }
-
-            std::string get_array_reshape(
-                std::string array_type, std::string shape_type,
-                std::string return_type, std::string element_type,
-                std::string array_type_code) {
-                array_reshape(array_type, shape_type,
-                            return_type, element_type,
-                            array_type_code);
-                return util2func["array_reshape_" + array_type_code];
-            }
-
-            std::string get_array_constant(std::string return_type,
-                std::string element_type, std::string encoded_type) {
-                array_constant(return_type, element_type, encoded_type);
-                return util2func["array_constant_" + encoded_type];
-            }
-
-            std::string get_array_deepcopy(ASR::ttype_t* array_type_asr,
-            std::string array_type_name, std::string array_encoded_type_name,
-            std::string array_type_str) {
-                array_deepcopy(array_type_asr, array_type_name,
-                               array_encoded_type_name, array_type_str);
-                return util2func["array_deepcopy_" + array_encoded_type_name];
-            }
-    };
-
-    static inline std::string get_tuple_type_code(ASR::Tuple_t *tup) {
-        std::string result = "tuple_";
-        for (size_t i = 0; i < tup->n_type; i++) {
-            result += ASRUtils::get_type_code(tup->m_type[i], true);
-            if (i + 1 != tup->n_type) {
-                result += "_";
-            }
-        }
-        return result;
-    }
-
-    static inline std::string get_struct_type_code(ASR::Struct_t* struct_t) {
-        return ASRUtils::symbol_name(struct_t->m_derived_type);
-    }
-
-    static inline std::string get_c_type_from_ttype_t(ASR::ttype_t* t,
-            bool is_c=true) {
-        int kind = ASRUtils::extract_kind_from_ttype_t(t);
-        std::string type_src = "";
-        switch( t->type ) {
-            case ASR::ttypeType::Integer: {
-                type_src = "int" + std::to_string(kind * 8) + "_t";
-                break;
-            }
-            case ASR::ttypeType::Logical: {
-                type_src = "bool";
-                break;
-            }
-            case ASR::ttypeType::Real: {
-                if( kind == 4 ) {
-                    type_src = "float";
-                } else if( kind == 8 ) {
-                    type_src = "double";
-                } else {
-                    throw CodeGenError(std::to_string(kind * 8) + "-bit floating points not yet supported.");
-                }
-                break;
-            }
-            case ASR::ttypeType::Character: {
-                type_src = "char*";
-                break;
-            }
-            case ASR::ttypeType::Pointer: {
-                ASR::Pointer_t* ptr_type = ASR::down_cast<ASR::Pointer_t>(t);
-                type_src = get_c_type_from_ttype_t(ptr_type->m_type) + "*";
-                break;
-            }
-            case ASR::ttypeType::CPtr: {
-                type_src = "void*";
-                break;
-            }
-            case ASR::ttypeType::Struct: {
-                ASR::Struct_t* der_type = ASR::down_cast<ASR::Struct_t>(t);
-                type_src = std::string("struct ") + ASRUtils::symbol_name(der_type->m_derived_type);
-                break;
-            }
-            case ASR::ttypeType::List: {
-                ASR::List_t* list_type = ASR::down_cast<ASR::List_t>(t);
-                std::string list_element_type = get_c_type_from_ttype_t(list_type->m_type);
-                std::string list_type_code = ASRUtils::get_type_code(list_type->m_type, true);
-                type_src = "struct list_" + list_type_code;
-                break;
-            }
-            case ASR::ttypeType::Tuple: {
-                ASR::Tuple_t* tup_type = ASR::down_cast<ASR::Tuple_t>(t);
-                type_src = "struct " + get_tuple_type_code(tup_type);
-                break;
-            }
-            case ASR::ttypeType::Complex: {
-                if( kind == 4 ) {
-                    if( is_c ) {
-                        type_src = "float complex";
-                    } else {
-                        type_src = "std::complex<float>";
-                    }
-                } else if( kind == 8 ) {
-                    if( is_c ) {
-                        type_src = "double complex";
-                    } else {
-                        type_src = "std::complex<double>";
-                    }
-                } else {
-                    throw CodeGenError(std::to_string(kind * 8) + "-bit floating points not yet supported.");
-                }
-                break;
-            }
-            default: {
-                throw CodeGenError("Type " + ASRUtils::type_to_str_python(t) + " not supported yet.");
-            }
-        }
-        return type_src;
-    }
-
-} // namespace CUtils
-
-
-class CCPPDSUtils {
-    private:
-
-        std::map<std::string, std::string> typecodeToDStype;
-        std::map<std::string, std::map<std::string, std::string>> typecodeToDSfuncs;
-        std::map<std::string, std::string> compareTwoDS;
-        std::map<std::string, std::string> printFuncs;
-        std::map<std::string, std::string> eltypedims2arraytype;
-        CUtils::CUtilFunctions* c_utils_functions;
-
-        int indentation_level, indentation_spaces;
-
-        std::string generated_code;
-        std::string func_decls;
-
-        SymbolTable* global_scope;
-        bool is_c;
-        Platform platform;
-
-    public:
-
-        CCPPDSUtils(bool is_c, Platform &platform): is_c{is_c}, platform{platform} {
-            generated_code.clear();
-            func_decls.clear();
-        }
-
-        void set_c_utils_functions(CUtils::CUtilFunctions* c_utils_functions_) {
-            c_utils_functions = c_utils_functions_;
-        }
-
-        void set_indentation(int indendation_level_, int indendation_space_) {
-            indentation_level = indendation_level_;
-            indentation_spaces = indendation_space_;
-        }
-
-        void set_global_scope(SymbolTable* global_scope_) {
-            global_scope = global_scope_;
-        }
-
-        std::string get_compare_func(ASR::ttype_t *t) {
-            std::string type_code = ASRUtils::get_type_code(t, true);
-            return compareTwoDS[type_code];
-        }
-
-        std::string get_print_func(ASR::ttype_t *t) {
-            std::string type_code = ASRUtils::get_type_code(t, true);
-            return printFuncs[type_code];
-        }
-
-        std::string get_deepcopy(ASR::ttype_t *t, std::string value, std::string target) {
-            std::string result;
-            switch (t->type) {
-                case ASR::ttypeType::List : {
-                    ASR::List_t* list_type = ASR::down_cast<ASR::List_t>(t);
-                    std::string list_type_code = ASRUtils::get_type_code(list_type->m_type, true);
-                    std::string func = typecodeToDSfuncs[list_type_code]["list_deepcopy"];
-                    result = func + "(&" + value + ", &" + target + ");";
-                    break;
-                }
-                case ASR::ttypeType::Tuple : {
-                    ASR::Tuple_t* tup_type = ASR::down_cast<ASR::Tuple_t>(t);
-                    std::string tup_type_code = CUtils::get_tuple_type_code(tup_type);
-                    std::string func = typecodeToDSfuncs[tup_type_code]["tuple_deepcopy"];
-                    result = func + "(" + value + ", &" + target + ");";
-                    break;
-                }
-                case ASR::ttypeType::Character : {
-                    if (is_c) {
-                        result = "_lfortran_strcpy(&" + target + ", " + value + ");";
-                    } else {
-                        result = target + " = " + value  + ";";
-                    }
-                    break;
-                }
-                case ASR::ttypeType::Struct: {
-                    std::string func = get_struct_deepcopy_func(t);
-                    result = func + "(" + value + ", " + target + ");";
-                    break;
-                }
-                case ASR::ttypeType::Integer:
-                case ASR::ttypeType::Real:
-                case ASR::ttypeType::Complex:
-                case ASR::ttypeType::Logical: {
-                    if( !ASRUtils::is_array(t) ) {
-                        result = target + " = " + value  + ";";
-                    } else {
-                        if( is_c ) {
-                            std::string func = get_array_deepcopy_func(t);
-                            result = func + "(" + value + ", " + target + ");";
-                        } else {
-                            result = target + " = " + value + ";";
-                        }
-                    }
-                    break;
-                }
-                default: {
-                    result = target + " = " + value  + ";";
-                }
-            }
-            return result;
-        }
-
-        std::string get_type(ASR::ttype_t *t) {
-            LCOMPILERS_ASSERT(CUtils::is_non_primitive_DT(t));
-            if (ASR::is_a<ASR::List_t>(*t)) {
-                ASR::List_t* list_type = ASR::down_cast<ASR::List_t>(t);
-                return get_list_type(list_type);
-            } else if (ASR::is_a<ASR::Tuple_t>(*t)) {
-                ASR::Tuple_t* tup_type = ASR::down_cast<ASR::Tuple_t>(t);
-                return get_tuple_type(tup_type);
-            }
-            LCOMPILERS_ASSERT(false);
-        }
-
-        std::string get_print_type(ASR::ttype_t *t, bool deref_ptr) {
-            switch (t->type) {
-                case ASR::ttypeType::Integer: {
-                    ASR::Integer_t *i = (ASR::Integer_t*)t;
-                    switch (i->m_kind) {
-                        case 1: { return "%d"; }
-                        case 2: { return "%d"; }
-                        case 4: { return "%d"; }
-                        case 8: {
-                            if (platform == Platform::Linux) {
-                                return "%li";
-                            } else {
-                                return "%lli";
-                            }
-                        }
-                        default: { throw LCompilersException("Integer kind not supported"); }
-                    }
-                }
-                case ASR::ttypeType::Real: {
-                    ASR::Real_t *r = (ASR::Real_t*)t;
-                    switch (r->m_kind) {
-                        case 4: { return "%f"; }
-                        case 8: { return "%lf"; }
-                        default: { throw LCompilersException("Float kind not supported"); }
-                    }
-                }
-                case ASR::ttypeType::Logical: {
-                    return "%d";
-                }
-                case ASR::ttypeType::Character: {
-                    return "%s";
-                }
-                case ASR::ttypeType::CPtr: {
-                    return "%p";
-                }
-                case ASR::ttypeType::Complex: {
-                    return "(%f, %f)";
-                }
-                case ASR::ttypeType::Pointer: {
-                    if( !deref_ptr ) {
-                        return "%p";
-                    } else {
-                        ASR::Pointer_t* type_ptr = ASR::down_cast<ASR::Pointer_t>(t);
-                        return get_print_type(type_ptr->m_type, false);
-                    }
-                }
-                case ASR::ttypeType::Enum: {
-                    ASR::ttype_t* enum_underlying_type = ASRUtils::get_contained_type(t);
-                    return get_print_type(enum_underlying_type, deref_ptr);
-                }
-                case ASR::ttypeType::Const: {
-                    ASR::ttype_t* const_underlying_type = ASRUtils::get_contained_type(t);
-                    return get_print_type(const_underlying_type, deref_ptr);
-                }
-                default : throw LCompilersException("Not implemented");
-            }
-        }
-
-        std::string get_array_type(std::string type_name, std::string encoded_type_name,
-                               std::string& array_types_decls, bool make_ptr=true,
-                               bool create_if_not_present=true) {
-            if( eltypedims2arraytype.find(encoded_type_name) != eltypedims2arraytype.end() ) {
-                if( make_ptr ) {
-                    return eltypedims2arraytype[encoded_type_name] + "*";
-                } else {
-                    return eltypedims2arraytype[encoded_type_name];
-                }
-            }
-
-            LCOMPILERS_ASSERT(create_if_not_present);
-
-            std::string struct_name;
-            std::string new_array_type;
-            struct_name = "struct " + encoded_type_name;
-            std::string array_data = format_type_c("*", type_name, "data", false, false);
-            new_array_type = struct_name + "\n{\n    " + array_data +
-                                ";\n    struct dimension_descriptor dims[32];\n" +
-                                "    int32_t n_dims;\n"
-                                "    bool is_allocated;\n};\n";
-            if( make_ptr ) {
-                type_name = struct_name + "*";
-            }
-            eltypedims2arraytype[encoded_type_name] = struct_name;
-            array_types_decls += "\n" + new_array_type + "\n";
-            return type_name;
-        }
-
-        std::string get_list_type(ASR::List_t* list_type) {
-            std::string list_element_type = CUtils::get_c_type_from_ttype_t(list_type->m_type);
-            if (CUtils::is_non_primitive_DT(list_type->m_type)) {
-                // Make sure the nested types work
-                get_type(list_type->m_type);
-            }
-            std::string list_type_code = ASRUtils::get_type_code(list_type->m_type, true);
-            if( typecodeToDStype.find(list_type_code) != typecodeToDStype.end() ) {
-                return typecodeToDStype[list_type_code];
-            }
-            std::string indent(indentation_level * indentation_spaces, ' ');
-            std::string tab(indentation_spaces, ' ');
-            std::string list_struct_type = "struct list_" + list_type_code;
-            typecodeToDStype[list_type_code] = list_struct_type;
-            func_decls += indent + list_struct_type + " {\n";
-            func_decls += indent + tab + "int32_t capacity;\n";
-            func_decls += indent + tab + "int32_t current_end_point;\n";
-            func_decls += indent + tab + list_element_type + "* data;\n";
-            func_decls += indent + "};\n\n";
-            generate_compare_funcs((ASR::ttype_t *)list_type);
-            generate_print_funcs((ASR::ttype_t *)list_type);
-            list_init(list_struct_type, list_type_code, list_element_type);
-            list_deepcopy(list_struct_type, list_type_code, list_element_type, list_type->m_type);
-            resize_if_needed(list_struct_type, list_type_code, list_element_type);
-            list_append(list_struct_type, list_type_code, list_element_type, list_type->m_type);
-            list_insert(list_struct_type, list_type_code, list_element_type, list_type->m_type);
-            list_find_item_position(list_struct_type, list_type_code, list_element_type, list_type->m_type);
-            list_remove(list_struct_type, list_type_code, list_element_type, list_type->m_type);
-            list_clear(list_struct_type, list_type_code, list_element_type);
-            list_concat(list_struct_type, list_type_code, list_element_type, list_type->m_type);
-            list_section(list_struct_type, list_type_code);
-            return list_struct_type;
-        }
-
-        std::string get_list_deepcopy_func(ASR::List_t* list_type) {
-            std::string list_type_code = ASRUtils::get_type_code(list_type->m_type, true);
-            return typecodeToDSfuncs[list_type_code]["list_deepcopy"];
-        }
-
-        std::string get_struct_deepcopy_func(ASR::ttype_t* struct_type_asr) {
-            ASR::Struct_t* struct_type = ASR::down_cast<ASR::Struct_t>(struct_type_asr);
-            std::string struct_type_code = CUtils::get_struct_type_code(struct_type);
-            if( typecodeToDSfuncs.find(struct_type_code) == typecodeToDSfuncs.end() ) {
-                struct_deepcopy(struct_type_asr);
-            }
-            return typecodeToDSfuncs[struct_type_code]["struct_deepcopy"];
-        }
-
-        std::string get_array_deepcopy_func(ASR::ttype_t* array_type_asr) {
-            LCOMPILERS_ASSERT(is_c);
-            std::string array_type_name = CUtils::get_c_type_from_ttype_t(array_type_asr);
-            std::string array_encoded_type_name = ASRUtils::get_type_code(array_type_asr, true, false, false);
-            std::string array_types_decls = "";
-            std::string array_type_str = get_array_type(array_type_name, array_encoded_type_name,
-                                                            array_types_decls, true, false);
-            return c_utils_functions->get_array_deepcopy(array_type_asr, array_type_name,
-                array_encoded_type_name, array_type_str);
-        }
-
-        std::string get_list_init_func(ASR::List_t* list_type) {
-            std::string list_type_code = ASRUtils::get_type_code(list_type->m_type, true);
-            return typecodeToDSfuncs[list_type_code]["list_init"];
-        }
-
-        std::string get_list_append_func(ASR::List_t* list_type) {
-            std::string list_type_code = ASRUtils::get_type_code(list_type->m_type, true);
-            return typecodeToDSfuncs[list_type_code]["list_append"];
-        }
-
-        std::string get_list_insert_func(ASR::List_t* list_type) {
-            std::string list_type_code = ASRUtils::get_type_code(list_type->m_type, true);
-            return typecodeToDSfuncs[list_type_code]["list_insert"];
-        }
-
-        std::string get_list_resize_func(std::string list_type_code) {
-            return typecodeToDSfuncs[list_type_code]["list_resize"];
-        }
-
-        std::string get_list_remove_func(ASR::List_t* list_type) {
-            std::string list_type_code = ASRUtils::get_type_code(list_type->m_type, true);
-            return typecodeToDSfuncs[list_type_code]["list_remove"];
-        }
-
-        std::string get_list_concat_func(ASR::List_t* list_type) {
-            std::string list_type_code = ASRUtils::get_type_code(list_type->m_type, true);
-            return typecodeToDSfuncs[list_type_code]["list_concat"];
-        }
-
-        std::string get_list_find_item_position_function(std::string list_type_code) {
-            return typecodeToDSfuncs[list_type_code]["list_find_item"];
-        }
-
-        std::string get_list_clear_func(ASR::List_t* list_type) {
-            std::string list_type_code = ASRUtils::get_type_code(list_type->m_type, true);
-            return typecodeToDSfuncs[list_type_code]["list_clear"];
-        }
-
-        std::string get_list_section_func(ASR::List_t* list_type) {
-            std::string list_type_code = ASRUtils::get_type_code(list_type->m_type, true);
-            return typecodeToDSfuncs[list_type_code]["list_section"];
-        }
-
-        std::string get_generated_code() {
-            return generated_code;
-        }
-
-        std::string get_func_decls() {
-            return func_decls;
-        }
-
-        void generate_print_funcs(ASR::ttype_t *t) {
-            std::string type_code = ASRUtils::get_type_code(t, true);
-            if (printFuncs.find(type_code) != printFuncs.end()) {
-                return;
-            }
-            std::string element_type = CUtils::get_c_type_from_ttype_t(t);
-            std::string indent(indentation_level * indentation_spaces, ' ');
-            std::string tab(indentation_spaces, ' ');
-            std::string p_func = global_scope->get_unique_name("print_" + type_code);
-            printFuncs[type_code] = p_func;
-            std::string tmp_gen = "";
-            std::string signature = "void " + p_func + "(" + element_type + " a)";
-            func_decls += indent + "inline " + signature + ";\n";
-            signature = indent + signature;
-            if (ASR::is_a<ASR::List_t>(*t)) {
-                ASR::ttype_t *tt = ASR::down_cast<ASR::List_t>(t)->m_type;
-                generate_print_funcs(tt);
-                std::string ele_func = printFuncs[ASRUtils::get_type_code(tt, true)];
-                tmp_gen += indent + signature + " {\n";
-                tmp_gen += indent + tab + "printf(\"[\");\n";
-                tmp_gen += indent + tab + "for (int i=0; i<a.current_end_point; i++) {\n";
-                tmp_gen += indent + tab + tab + ele_func + "(a.data[i]);\n";
-                tmp_gen += indent + tab + tab + "if (i+1!=a.current_end_point)\n";
-                tmp_gen += indent + tab + tab + tab + "printf(\", \");\n";
-                tmp_gen += indent + tab + "}\n";
-                tmp_gen += indent + tab + "printf(\"]\");\n";
-            } else if (ASR::is_a<ASR::Tuple_t>(*t)) {
-                ASR::Tuple_t *tt = ASR::down_cast<ASR::Tuple_t>(t);
-                tmp_gen += indent + signature + " {\n";
-                tmp_gen += indent + tab + "printf(\"(\");\n";
-                for (size_t i=0; i<tt->n_type; i++) {
-                    generate_print_funcs(tt->m_type[i]);
-                    std::string ele_func = printFuncs[ASRUtils::get_type_code(tt->m_type[i], true)];
-                    std::string num = std::to_string(i);
-                    tmp_gen += indent + tab + ele_func + "(a.element_" + num + ");\n";
-                    if (i+1 != tt->n_type)
-                        tmp_gen += indent + tab + "printf(\", \");\n";
-                }
-                tmp_gen += indent + tab + "printf(\")\");\n";
-            } else if (ASR::is_a<ASR::Complex_t>(*t)) {
-                tmp_gen += indent + signature + " {\n";
-                std::string print_type = get_print_type(t, false);
-                tmp_gen += indent + tab + "printf(\"" + print_type + "\", creal(a), cimag(a));\n";
-            } else if (ASR::is_a<ASR::Character_t>(*t)) {
-                tmp_gen += indent + signature + " {\n";
-                std::string print_type = get_print_type(t, false);
-                tmp_gen += indent + tab + "printf(\"'" + print_type + "'\", a);\n";
-            } else {
-                tmp_gen += indent + signature + " {\n";
-                std::string print_type = get_print_type(t, false);
-                tmp_gen += indent + tab + "printf(\"" + print_type + "\", a);\n";
-            }
-            tmp_gen += indent + "}\n\n";
-            generated_code += tmp_gen;
-        }
-
-        void generate_compare_funcs(ASR::ttype_t *t) {
-            std::string type_code = ASRUtils::get_type_code(t, true);
-            if (compareTwoDS.find(type_code) != compareTwoDS.end()) {
-                return;
-            }
-            std::string element_type = CUtils::get_c_type_from_ttype_t(t);
-            std::string indent(indentation_level * indentation_spaces, ' ');
-            std::string tab(indentation_spaces, ' ');
-            std::string cmp_func = global_scope->get_unique_name("compare_" + type_code);
-            compareTwoDS[type_code] = cmp_func;
-            std::string tmp_gen = "";
-            if (ASR::is_a<ASR::List_t>(*t)) {
-                std::string signature = "bool " + cmp_func + "(" + element_type + " a, " + element_type + " b)";
-                func_decls += indent + "inline " + signature + ";\n";
-                signature = indent + signature;
-                tmp_gen += indent + signature + " {\n";
-                ASR::ttype_t *tt = ASR::down_cast<ASR::List_t>(t)->m_type;
-                generate_compare_funcs(tt);
-                std::string ele_func = compareTwoDS[ASRUtils::get_type_code(tt, true)];
-                tmp_gen += indent + tab + "if (a.current_end_point != b.current_end_point)\n";
-                tmp_gen += indent + tab + tab + "return false;\n";
-                tmp_gen += indent + tab + "for (int i=0; i<a.current_end_point; i++) {\n";
-                tmp_gen += indent + tab + tab + "if (!" + ele_func + "(a.data[i], b.data[i]))\n";
-                tmp_gen += indent + tab + tab + tab + "return false;\n";
-                tmp_gen += indent + tab + "}\n";
-                tmp_gen += indent + tab + "return true;\n";
-
-            } else if (ASR::is_a<ASR::Tuple_t>(*t)) {
-                ASR::Tuple_t *tt = ASR::down_cast<ASR::Tuple_t>(t);
-                std::string signature = "bool " + cmp_func + "(" + element_type + " a, " + element_type+ " b)";
-                func_decls += indent + "inline " + signature + ";\n";
-                signature = indent + signature;
-                tmp_gen += indent + signature + " {\n";
-                tmp_gen += indent + tab + "if (a.length != b.length)\n";
-                tmp_gen += indent + tab + tab + "return false;\n";
-                tmp_gen += indent + tab + "bool ans = true;\n";
-                for (size_t i=0; i<tt->n_type; i++) {
-                    generate_compare_funcs(tt->m_type[i]);
-                    std::string ele_func = compareTwoDS[ASRUtils::get_type_code(tt->m_type[i], true)];
-                    std::string num = std::to_string(i);
-                    tmp_gen += indent + tab + "ans &= " + ele_func + "(a.element_" +
-                                num + ", " + "b.element_" + num + ");\n";
-                }
-                tmp_gen += indent + tab + "return ans;\n";
-            } else if (ASR::is_a<ASR::Character_t>(*t)) {
-                std::string signature = "bool " + cmp_func + "(" + element_type + " a, " + element_type + " b)";
-                func_decls += indent + "inline " + signature + ";\n";
-                signature = indent + signature;
-                tmp_gen += indent + signature + " {\n";
-                tmp_gen += indent + tab + "return strcmp(a, b) == 0;\n";
-            } else {
-                std::string signature = "bool " + cmp_func + "(" + element_type + " a, " + element_type + " b)";
-                func_decls += indent + "inline " + signature + ";\n";
-                signature = indent + signature;
-                tmp_gen += indent + signature + " {\n";
-                tmp_gen += indent + tab + "return a == b;\n";
-            }
-            tmp_gen += indent + "}\n\n";
-            generated_code += tmp_gen;
-        }
-
-        void list_init(std::string list_struct_type,
-            std::string list_type_code,
-            std::string list_element_type) {
-            std::string indent(indentation_level * indentation_spaces, ' ');
-            std::string tab(indentation_spaces, ' ');
-            std::string list_init_func = global_scope->get_unique_name("list_init_" + list_type_code);
-            typecodeToDSfuncs[list_type_code]["list_init"] = list_init_func;
-            std::string signature = "void " + list_init_func + "(" + list_struct_type + "* x, int32_t capacity)";
-            func_decls += indent + "inline " + signature + ";\n";
-            signature = indent + signature;
-            generated_code += indent + signature + " {\n";
-            generated_code += indent + tab + "x->capacity = capacity;\n";
-            generated_code += indent + tab + "x->current_end_point = 0;\n";
-            generated_code += indent + tab + "x->data = (" + list_element_type + "*) " +
-                              "malloc(capacity * sizeof(" + list_element_type + "));\n";
-            generated_code += indent + "}\n\n";
-        }
-
-        void list_clear(std::string list_struct_type,
-            std::string list_type_code,
-            std::string list_element_type) {
-            std::string indent(indentation_level * indentation_spaces, ' ');
-            std::string tab(indentation_spaces, ' ');
-            std::string list_init_func = global_scope->get_unique_name("list_clear_" + list_type_code);
-            typecodeToDSfuncs[list_type_code]["list_clear"] = list_init_func;
-            std::string signature = "void " + list_init_func + "(" + list_struct_type + "* x)";
-            func_decls += indent + "inline " + signature + ";\n";
-            signature = indent + signature;
-            generated_code += indent + signature + " {\n";
-            generated_code += indent + tab + "free(x->data);\n";
-            generated_code += indent + tab + "x->capacity = 4;\n";
-            generated_code += indent + tab + "x->current_end_point = 0;\n";
-            generated_code += indent + tab + "x->data = (" + list_element_type + "*) " +
-                              "malloc(x->capacity * sizeof(" + list_element_type + "));\n";
-            generated_code += indent + "}\n\n";
-        }
-
-        void struct_deepcopy(ASR::ttype_t* struct_type_asr) {
-            ASR::Struct_t* struct_type = ASR::down_cast<ASR::Struct_t>(struct_type_asr);
-            ASR::StructType_t* struct_type_t = ASR::down_cast<ASR::StructType_t>(
-                ASRUtils::symbol_get_past_external(struct_type->m_derived_type));
-            std::string struct_type_code = CUtils::get_struct_type_code(struct_type);
-            std::string indent(indentation_level * indentation_spaces, ' ');
-            std::string tab(indentation_spaces, ' ');
-            std::string struct_dc_func = global_scope->get_unique_name("struct_deepcopy_" + struct_type_code);
-            typecodeToDSfuncs[struct_type_code]["struct_deepcopy"] = struct_dc_func;
-            std::string struct_type_str = CUtils::get_c_type_from_ttype_t(struct_type_asr);
-            std::string signature = "void " + struct_dc_func + "("
-                                + struct_type_str + "* src, "
-                                + struct_type_str + "* dest)";
-            func_decls += "inline " + signature + ";\n";
-            generated_code += indent + signature + " {\n";
-            for( auto item: struct_type_t->m_symtab->get_scope() ) {
-                ASR::ttype_t* member_type_asr = ASRUtils::symbol_type(item.second);
-                if( CUtils::is_non_primitive_DT(member_type_asr) ||
-                    ASR::is_a<ASR::Character_t>(*member_type_asr) ) {
-                    generated_code += indent + tab + get_deepcopy(member_type_asr, "&(src->" + item.first + ")",
-                                 "&(dest->" + item.first + ")") + ";\n";
-                } else if( ASRUtils::is_array(member_type_asr) ) {
-                    ASR::dimension_t* m_dims = nullptr;
-                    size_t n_dims = ASRUtils::extract_dimensions_from_ttype(member_type_asr, m_dims);
-                    if( ASRUtils::is_fixed_size_array(m_dims, n_dims) ) {
-                        std::string array_size = std::to_string(ASRUtils::get_fixed_size_of_array(m_dims, n_dims));
-                        array_size += "*sizeof(" + CUtils::get_c_type_from_ttype_t(member_type_asr) + ")";
-                        generated_code += indent + tab + "memcpy(dest->" + item.first + ", src->" + item.first +
-                                            ", " + array_size + ");\n";
-                    } else {
-                        generated_code += indent + tab + get_deepcopy(member_type_asr, "src->" + item.first,
-                                            "dest->" + item.first) + ";\n";
-                    }
-                } else {
-                    generated_code += indent + tab + "dest->" + item.first + " = " + " src->" + item.first + ";\n";
-                }
-            }
-            generated_code += indent + "}\n\n";
-        }
-
-        void list_deepcopy(std::string list_struct_type,
-            std::string list_type_code,
-            std::string list_element_type, ASR::ttype_t *m_type) {
-            std::string indent(indentation_level * indentation_spaces, ' ');
-            std::string tab(indentation_spaces, ' ');
-            std::string list_dc_func = global_scope->get_unique_name("list_deepcopy_" + list_type_code);
-            typecodeToDSfuncs[list_type_code]["list_deepcopy"] = list_dc_func;
-            std::string signature = "void " + list_dc_func + "("
-                                + list_struct_type + "* src, "
-                                + list_struct_type + "* dest)";
-            func_decls += "inline " + signature + ";\n";
-            generated_code += indent + signature + " {\n";
-            generated_code += indent + tab + "dest->capacity = src->capacity;\n";
-            generated_code += indent + tab + "dest->current_end_point = src->current_end_point;\n";
-            generated_code += indent + tab + "dest->data = (" + list_element_type + "*) " +
-                              "malloc(src->capacity * sizeof(" + list_element_type + "));\n";
-            generated_code += indent + tab + "memcpy(dest->data, src->data, " +
-                                "src->capacity * sizeof(" + list_element_type + "));\n";
-            if (ASR::is_a<ASR::List_t>(*m_type)) {
-                ASR::ttype_t *tt = ASR::down_cast<ASR::List_t>(m_type)->m_type;
-                std::string deep_copy_func = typecodeToDSfuncs[ASRUtils::get_type_code(tt, true)]["list_deepcopy"];
-                LCOMPILERS_ASSERT(deep_copy_func.size() > 0);
-                generated_code += indent + tab + "for(int i=0; i<src->current_end_point; i++)\n";
-                generated_code += indent + tab + tab + deep_copy_func + "(&src->data[i], &dest->data[i]);\n";
-            }
-            generated_code += indent + "}\n\n";
-        }
-
-        void list_concat(std::string list_struct_type,
-            std::string list_type_code,
-            std::string list_element_type, ASR::ttype_t *m_type) {
-            std::string indent(indentation_level * indentation_spaces, ' ');
-            std::string tab(indentation_spaces, ' ');
-            std::string list_con_func = global_scope->get_unique_name("list_concat_" + list_type_code);
-            typecodeToDSfuncs[list_type_code]["list_concat"] = list_con_func;
-            std::string init_func = typecodeToDSfuncs[list_type_code]["list_init"];
-            std::string signature = list_struct_type + "* " + list_con_func + "("
-                                + list_struct_type + "* left, "
-                                + list_struct_type + "* right)";
-            func_decls += "inline " + signature + ";\n";
-            generated_code += indent + signature + " {\n";
-            generated_code += indent + tab + list_struct_type + " *result = (" + list_struct_type + "*)malloc(sizeof(" +
-                                list_struct_type + "));\n";
-            generated_code += indent + tab + init_func + "(result, left->current_end_point + right->current_end_point);\n";
-            if (ASR::is_a<ASR::List_t>(*m_type)) {
-                ASR::ttype_t *tt = ASR::down_cast<ASR::List_t>(m_type)->m_type;
-                std::string deep_copy_func = typecodeToDSfuncs[ASRUtils::get_type_code(tt, true)]["list_deepcopy"];
-                LCOMPILERS_ASSERT(deep_copy_func.size() > 0);
-                generated_code += indent + tab + "for(int i=0; i<left->current_end_point; i++)\n";
-                generated_code += indent + tab + tab + deep_copy_func + "(&left->data[i], &result->data[i]);\n";
-                generated_code += indent + tab + "for(int i=0; i<right->current_end_point; i++)\n";
-                generated_code += indent + tab + tab + deep_copy_func + "(&right->data[i], &result->data[i+left->current_end_point]);\n";
-            } else {
-                generated_code += indent + tab + "memcpy(result->data, left->data, " +
-                                    "left->current_end_point * sizeof(" + list_element_type + "));\n";
-                generated_code += indent + tab + "memcpy(result->data + left->current_end_point, right->data, " +
-                                    "right->current_end_point * sizeof(" + list_element_type + "));\n";
-            }
-            generated_code += indent + tab + "result->current_end_point = left->current_end_point + right->current_end_point;\n";
-            generated_code += indent + tab + "return result;\n";
-            generated_code += indent + "}\n\n";
-        }
-
-        void resize_if_needed(std::string list_struct_type,
-            std::string list_type_code,
-            std::string list_element_type) {
-            std::string indent(indentation_level * indentation_spaces, ' ');
-            std::string tab(indentation_spaces, ' ');
-            std::string list_resize_func = global_scope->get_unique_name("resize_if_needed_" + list_type_code);
-            typecodeToDSfuncs[list_type_code]["list_resize"] = list_resize_func;
-            std::string signature = "void " + list_resize_func + "(" + list_struct_type + "* x)";
-            func_decls += indent + "inline " + signature + ";\n";
-            signature = indent + signature;
-            generated_code += indent + signature + " {\n";
-            generated_code += indent + tab + "if (x->capacity == x->current_end_point) {\n";
-            generated_code += indent + tab + tab + "x->capacity = 2 * x->capacity + 1;\n";
-            generated_code += indent + tab + tab + "x->data = (" + list_element_type + "*) " +
-                              "realloc(x->data, x->capacity * sizeof(" + list_element_type + "));\n";
-            generated_code += indent + tab + "}\n";
-            generated_code += indent + "}\n\n";
-        }
-
-        void list_append(std::string list_struct_type,
-            std::string list_type_code,
-            std::string list_element_type, ASR::ttype_t* m_type) {
-            std::string indent(indentation_level * indentation_spaces, ' ');
-            std::string tab(indentation_spaces, ' ');
-            std::string list_append_func = global_scope->get_unique_name("list_append_" + list_type_code);
-            typecodeToDSfuncs[list_type_code]["list_append"] = list_append_func;
-            std::string signature = "void " + list_append_func + "("
-                                + list_struct_type + "* x, "
-                                + list_element_type + " element)";
-            func_decls += "inline " + signature + ";\n";
-            generated_code += indent + signature + " {\n";
-            std::string list_resize_func = get_list_resize_func(list_type_code);
-            generated_code += indent + tab + list_resize_func + "(x);\n";
-            if( ASR::is_a<ASR::Character_t>(*m_type) ) {
-                generated_code += indent + tab + "x->data[x->current_end_point] = NULL;\n";
-            }
-            generated_code += indent + tab + \
-                        get_deepcopy(m_type, "element", "x->data[x->current_end_point]") + "\n";
-            generated_code += indent + tab + "x->current_end_point += 1;\n";
-            generated_code += indent + "}\n\n";
-        }
-
-        void list_insert(std::string list_struct_type,
-            std::string list_type_code, std::string list_element_type,
-            ASR::ttype_t* m_type) {
-            std::string indent(indentation_level * indentation_spaces, ' ');
-            std::string tab(indentation_spaces, ' ');
-            std::string list_insert_func = global_scope->get_unique_name("list_insert_" + list_type_code);
-            typecodeToDSfuncs[list_type_code]["list_insert"] = list_insert_func;
-            std::string signature = "void " + list_insert_func + "("
-                                + list_struct_type + "* x, "
-                                + "int pos, "
-                                + list_element_type + " element)";
-            func_decls += "inline " + signature + ";\n";
-            generated_code += indent + signature + " {\n";
-            std::string list_resize_func = get_list_resize_func(list_type_code);
-            generated_code += indent + tab + list_resize_func + "(x);\n";
-            generated_code += indent + tab + "int pos_ptr = pos;\n";
-            generated_code += indent + tab + list_element_type + " tmp_ptr = x->data[pos];\n";
-            generated_code += indent + tab + list_element_type + " tmp;\n";
-
-            generated_code += indent + tab + "while (x->current_end_point > pos_ptr) {\n";
-            generated_code += indent + tab + tab + "tmp = x->data[pos_ptr + 1];\n";
-            generated_code += indent + tab + tab + "x->data[pos_ptr + 1] = tmp_ptr;\n";
-            generated_code += indent + tab + tab + "tmp_ptr = tmp;\n";
-            generated_code += indent + tab + tab + "pos_ptr++;\n";
-            generated_code += indent + tab + "}\n\n";
-
-            if( ASR::is_a<ASR::Character_t>(*m_type) ) {
-                generated_code += indent + tab + "x->data[pos] = NULL;\n";
-            }
-            generated_code += indent + tab + get_deepcopy(m_type, "element", "x->data[pos]") + "\n";
-            generated_code += indent + tab + "x->current_end_point += 1;\n";
-            generated_code += indent + "}\n\n";
-        }
-
-        void list_find_item_position(std::string list_struct_type,
-            std::string list_type_code, std::string list_element_type,
-            ASR::ttype_t* /*m_type*/) {
-            std::string indent(indentation_level * indentation_spaces, ' ');
-            std::string tab(indentation_spaces, ' ');
-            std::string list_find_item_pos_func = global_scope->get_unique_name("list_find_item_" + list_type_code);
-            typecodeToDSfuncs[list_type_code]["list_find_item"] = list_find_item_pos_func;
-            std::string signature = "int " + list_find_item_pos_func + "("
-                                + list_struct_type + "* x, "
-                                + list_element_type + " element)";
-            std::string cmp_func = compareTwoDS[list_type_code];
-            func_decls += "inline " + signature + ";\n";
-            generated_code += indent + signature + " {\n";
-            generated_code += indent + tab + "int el_pos = 0;\n";
-            generated_code += indent + tab + "while (x->current_end_point > el_pos) {\n";
-            generated_code += indent + tab + tab + "if (" + cmp_func + "(x->data[el_pos], element)) return el_pos;\n";
-            generated_code += indent + tab + tab + "el_pos++;\n";
-            generated_code += indent + tab + "}\n";
-            generated_code += indent + tab + "return -1;\n";
-            generated_code += indent + "}\n\n";
-        }
-
-        void list_remove(std::string list_struct_type,
-            std::string list_type_code, std::string list_element_type,
-            ASR::ttype_t* /*m_type*/) {
-            std::string indent(indentation_level * indentation_spaces, ' ');
-            std::string tab(indentation_spaces, ' ');
-            std::string list_remove_func = global_scope->get_unique_name("list_remove_" + list_type_code);
-            typecodeToDSfuncs[list_type_code]["list_remove"] = list_remove_func;
-            std::string signature = "void " + list_remove_func + "("
-                                + list_struct_type + "* x, "
-                                + list_element_type + " element)";
-            func_decls += "inline " + signature + ";\n";
-            generated_code += indent + signature + " {\n";
-            std::string find_item_pos_func = get_list_find_item_position_function(list_type_code);
-            generated_code += indent + tab + "int el_pos = " + find_item_pos_func + "(x, element);\n";
-            generated_code += indent + tab + "while (x->current_end_point > el_pos) {\n";
-            generated_code += indent + tab + tab + "int tmp = el_pos + 1;\n";
-            generated_code += indent + tab + tab + "x->data[el_pos] = x->data[tmp];\n";
-            generated_code += indent + tab + tab + "el_pos = tmp;\n";
-            generated_code += indent + tab + "}\n";
-
-            generated_code += indent + tab + "x->current_end_point -= 1;\n";
-            generated_code += indent + "}\n\n";
-        }
-
-        void list_section(std::string list_struct_type, std::string list_type_code) {
-            std::string indent(indentation_level * indentation_spaces, ' ');
-            std::string tab(indentation_spaces, ' ');
-            std::string list_section_func = global_scope->get_unique_name("list_section_" + list_type_code);
-            typecodeToDSfuncs[list_type_code]["list_section"] = list_section_func;
-            std::string signature = list_struct_type + "* " + list_section_func + "("
-                                + list_struct_type + "* x, "
-                                + "int32_t idx1, int32_t idx2, int32_t step, bool i1_present, bool i2_present)";
-            func_decls += "inline " + signature + ";\n";
-            std::string tmp_gen = "";
-            tmp_gen += indent + signature + " {\n";
-            tmp_gen += indent + tab + "int s_len = x->current_end_point;\n";
-            tmp_gen += indent + tab + "if (step == 0) {\n";
-            tmp_gen += indent + tab + tab + "printf(\"slice step cannot be zero\");\n";
-            tmp_gen += indent + tab + tab + "exit(1);\n" + tab + "}\n";
-            tmp_gen += indent + tab + "idx1 = idx1 < 0 ? idx1 + s_len : idx1;\n";
-            tmp_gen += indent + tab + "idx2 = idx2 < 0 ? idx2 + s_len : idx2;\n";
-            tmp_gen += indent + tab + "idx1 = i1_present ? idx1 : (step > 0 ? 0 : s_len-1);\n";
-            tmp_gen += indent + tab + "idx2 = i2_present ? idx2 : (step > 0 ? s_len : -1);\n";
-            tmp_gen += indent + tab + "idx2 = step > 0 ? (idx2 > s_len ? s_len : idx2) : idx2;\n";
-            tmp_gen += indent + tab + "idx1 = step < 0 ? (idx1 >= s_len ? s_len-1 : idx1) : idx1;\n";
-            tmp_gen += indent + tab + list_struct_type + " *__tmp = (" +
-                    list_struct_type + "*) malloc(sizeof(" + list_struct_type + "));\n";
-            std::string list_init_func = typecodeToDSfuncs[list_type_code]["list_init"];
-            tmp_gen += indent + tab + list_init_func + "(__tmp, 4);\n";
-            tmp_gen += indent + tab + "int s_i = idx1;\n";
-            tmp_gen += indent + tab + "while((step > 0 && s_i >= idx1 && s_i < idx2) ||\n";
-            tmp_gen += indent + tab + "    (step < 0 && s_i <= idx1 && s_i > idx2)) {\n";
-            std::string list_append_func  = typecodeToDSfuncs[list_type_code]["list_append"];
-            tmp_gen += indent + tab + list_append_func + "(__tmp, x->data[s_i]);\n";
-            tmp_gen += indent + tab + "s_i+=step;\n" + indent + tab + "}\n";
-            tmp_gen += indent + tab + "return __tmp;\n}\n\n";
-            generated_code += tmp_gen;
-        }
-
-        std::string get_tuple_deepcopy_func(ASR::Tuple_t* tup_type) {
-            std::string tuple_type_code = CUtils::get_tuple_type_code(tup_type);
-            return typecodeToDSfuncs[tuple_type_code]["tuple_deepcopy"];
-        }
-
-
-        std::string get_tuple_type(ASR::Tuple_t* tuple_type) {
-            std::string tuple_type_code = CUtils::get_tuple_type_code(tuple_type);
-            if (typecodeToDStype.find(tuple_type_code) != typecodeToDStype.end()) {
-                return typecodeToDStype[tuple_type_code];
-            }
-            std::string indent(indentation_level * indentation_spaces, ' ');
-            std::string tab(indentation_spaces, ' ');
-            std::string tuple_struct_type = "struct " + tuple_type_code;
-            typecodeToDStype[tuple_type_code] = tuple_struct_type;
-            std::string tmp_gen = "";
-            tmp_gen += indent + tuple_struct_type + " {\n";
-            tmp_gen += indent + tab + "int32_t length;\n";
-            for (size_t i = 0; i < tuple_type->n_type; i++) {
-                if (CUtils::is_non_primitive_DT(tuple_type->m_type[i])) {
-                    // Make sure the nested types work
-                    get_type(tuple_type->m_type[i]);
-                }
-                tmp_gen += indent + tab + \
-                    CUtils::get_c_type_from_ttype_t(tuple_type->m_type[i]) + " element_" + std::to_string(i) + ";\n";
-            }
-            tmp_gen += indent + "};\n\n";
-            func_decls += tmp_gen;
-            generate_compare_funcs((ASR::ttype_t *)tuple_type);
-            generate_print_funcs((ASR::ttype_t *)tuple_type);
-            tuple_deepcopy(tuple_type, tuple_type_code);
-            return tuple_struct_type;
-        }
-
-        void tuple_deepcopy(ASR::Tuple_t *t, std::string tuple_type_code) {
-            std::string indent(indentation_level * indentation_spaces, ' ');
-            std::string tab(indentation_spaces, ' ');
-            std::string tup_dc_func = global_scope->get_unique_name("tuple_deepcopy_" + tuple_type_code);
-            typecodeToDSfuncs[tuple_type_code]["tuple_deepcopy"] = tup_dc_func;
-            std::string tuple_struct_type = typecodeToDStype[tuple_type_code];
-            std::string signature = "void " + tup_dc_func + "("
-                                + tuple_struct_type + " src, "
-                                + tuple_struct_type + "* dest)";
-            std::string tmp_def = "", tmp_gen = "";
-            tmp_def += "inline " + signature + ";\n";
-            tmp_gen += indent + signature + " {\n";
-            for (size_t i=0; i<t->n_type; i++) {
-                std::string n = std::to_string(i);
-                if (ASR::is_a<ASR::Character_t>(*t->m_type[i])) {
-                    tmp_gen += indent + tab + "dest->element_" + n + " = " + \
-                                "NULL;\n";
-                }
-                tmp_gen += indent + tab + get_deepcopy(t->m_type[i], "src.element_" + n,
-                                "dest->element_" + n) + "\n";
-            }
-            tmp_gen += indent + tab + "dest->length = src.length;\n";
-            tmp_gen += indent + "}\n\n";
-            func_decls += tmp_def;
-            generated_code += tmp_gen;
-        }
-
-        ~CCPPDSUtils() {
-            typecodeToDStype.clear();
-            generated_code.clear();
-            compareTwoDS.clear();
-        }
-};
-
-} // namespace LCompilers
-
-#endif // LFORTRAN_C_UTILS_H
diff --git a/src/libasr/codegen/evaluator.cpp b/src/libasr/codegen/evaluator.cpp
deleted file mode 100644
index 1068f1216a..0000000000
--- a/src/libasr/codegen/evaluator.cpp
+++ /dev/null
@@ -1,441 +0,0 @@
-#include <iostream>
-#include <fstream>
-
-#include <llvm/IR/LLVMContext.h>
-#include <llvm/ADT/STLExtras.h>
-#include <llvm/Analysis/Passes.h>
-#include <llvm/Analysis/TargetTransformInfo.h>
-#include <llvm/Analysis/TargetLibraryInfo.h>
-#include <llvm/ExecutionEngine/ExecutionEngine.h>
-#include <llvm/ExecutionEngine/GenericValue.h>
-#include <llvm/ExecutionEngine/MCJIT.h>
-#include <llvm/IR/Argument.h>
-#include <llvm/IR/Attributes.h>
-#include <llvm/IR/BasicBlock.h>
-#include <llvm/IR/Constants.h>
-#include <llvm/IR/DerivedTypes.h>
-#include <llvm/IR/Function.h>
-#include <llvm/IR/IRBuilder.h>
-#include <llvm/IR/Instructions.h>
-#include <llvm/IR/Intrinsics.h>
-#include <llvm/IR/LegacyPassManager.h>
-#include <llvm/IR/Module.h>
-#include <llvm/IR/Type.h>
-#include <llvm/Support/Casting.h>
-#include <llvm/Support/ManagedStatic.h>
-#include <llvm/Support/TargetSelect.h>
-#include <llvm/Support/raw_ostream.h>
-#include <llvm/ADT/APFloat.h>
-#include <llvm/ADT/STLExtras.h>
-#include <llvm/IR/Verifier.h>
-#include <llvm/Support/TargetSelect.h>
-#include <llvm/Target/TargetMachine.h>
-#include <llvm/Transforms/Scalar.h>
-#include <llvm/Transforms/Scalar/GVN.h>
-#include <llvm/Transforms/Scalar/InstSimplifyPass.h>
-#include <llvm/Transforms/Vectorize.h>
-#include <llvm/Transforms/IPO.h>
-#include <llvm/Transforms/IPO/AlwaysInliner.h>
-#include <llvm/Transforms/IPO/PassManagerBuilder.h>
-#include <llvm/Transforms/Instrumentation/AddressSanitizer.h>
-#include <llvm/Transforms/Instrumentation/ThreadSanitizer.h>
-#include <llvm/Transforms/InstCombine/InstCombine.h>
-#include <llvm/ExecutionEngine/ObjectCache.h>
-#include <llvm/Support/CommandLine.h>
-#include <llvm/Support/FileSystem.h>
-#include <llvm/Support/Path.h>
-#include <llvm/AsmParser/Parser.h>
-#include <llvm/Support/SourceMgr.h>
-#include <llvm/ADT/StringRef.h>
-#include <llvm/Target/TargetOptions.h>
-#if LLVM_VERSION_MAJOR >= 14
-#    include <llvm/MC/TargetRegistry.h>
-#else
-#    include <llvm/Support/TargetRegistry.h>
-#endif
-#include <llvm/Support/Host.h>
-#include <libasr/codegen/KaleidoscopeJIT.h>
-
-#include <libasr/codegen/evaluator.h>
-#include <libasr/codegen/asr_to_llvm.h>
-#include <libasr/codegen/asr_to_cpp.h>
-#include <libasr/exception.h>
-#include <libasr/asr.h>
-#include <libasr/string_utils.h>
-
-
-namespace LCompilers {
-
-// Extracts the integer from APInt.
-// APInt does not seem to have this functionality, so we implement it here.
-uint64_t APInt_getint(const llvm::APInt &i) {
-    // The APInt::isSingleWord() is private, but we can emulate it:
-    bool isSingleWord = !i.needsCleanup();
-    if (isSingleWord) {
-        return *i.getRawData();
-    } else {
-        throw std::runtime_error("APInt too large to fit uint64_t");
-    }
-}
-
-LLVMModule::LLVMModule(std::unique_ptr<llvm::Module> m)
-{
-    m_m = std::move(m);
-}
-
-LLVMModule::~LLVMModule() = default;
-
-std::string LLVMModule::str()
-{
-    return LLVMEvaluator::module_to_string(*m_m);
-}
-
-std::string LLVMModule::get_return_type(const std::string &fn_name)
-{
-    llvm::Module *m = m_m.get();
-    llvm::Function *fn = m->getFunction(fn_name);
-    if (!fn) {
-        return "none";
-    }
-    llvm::Type *type = fn->getReturnType();
-    if (type->isFloatTy()) {
-        return "real4";
-    } else if (type->isDoubleTy()) {
-        return "real8";
-    } else if (type->isIntegerTy(32)) {
-        return "integer4";
-    } else if (type->isIntegerTy(64)) {
-        return "integer8";
-    } else if (type->isStructTy()) {
-        llvm::StructType *st = llvm::cast<llvm::StructType>(type);
-        if (st->hasName()) {
-            if (startswith(std::string(st->getName()), "complex_4")) {
-                return "complex4";
-            } else if (startswith(std::string(st->getName()), "complex_8")) {
-                return "complex8";
-            } else {
-                throw LCompilersException("LLVMModule::get_return_type(): Struct return type `" + std::string(st->getName()) + "` not supported");
-            }
-        } else {
-            throw LCompilersException("LLVMModule::get_return_type(): Noname struct return type not supported");
-        }
-    } else if (type->isVectorTy()) {
-        // Used for passing complex_4 on some platforms
-        return "complex4";
-    } else if (type->isVoidTy()) {
-        return "void";
-    } else {
-        throw LCompilersException("LLVMModule::get_return_type(): Return type not supported");
-    }
-}
-
-extern "C" {
-
-float _lfortran_stan(float x);
-
-}
-
-LLVMEvaluator::LLVMEvaluator(const std::string &t)
-{
-    llvm::InitializeNativeTarget();
-    llvm::InitializeNativeTargetAsmPrinter();
-    llvm::InitializeNativeTargetAsmParser();
-
-#ifdef HAVE_TARGET_AARCH64
-    LLVMInitializeAArch64Target();
-    LLVMInitializeAArch64TargetInfo();
-    LLVMInitializeAArch64TargetMC();
-    LLVMInitializeAArch64AsmPrinter();
-    LLVMInitializeAArch64AsmParser();
-#endif
-#ifdef HAVE_TARGET_X86
-    LLVMInitializeX86Target();
-    LLVMInitializeX86TargetInfo();
-    LLVMInitializeX86TargetMC();
-    LLVMInitializeX86AsmPrinter();
-    LLVMInitializeX86AsmParser();
-#endif
-#ifdef HAVE_TARGET_WASM
-    LLVMInitializeWebAssemblyTarget();
-    LLVMInitializeWebAssemblyTargetInfo();
-    LLVMInitializeWebAssemblyTargetMC();
-    LLVMInitializeWebAssemblyAsmPrinter();
-    LLVMInitializeWebAssemblyAsmParser();
-#endif
-
-    context = std::make_unique<llvm::LLVMContext>();
-
-    if (t != "")
-        target_triple = t;
-    else
-        target_triple = LLVMGetDefaultTargetTriple();
-
-    std::string Error;
-    const llvm::Target *target = llvm::TargetRegistry::lookupTarget(target_triple, Error);
-    if (!target) {
-        throw LCompilersException(Error);
-    }
-    std::string CPU = "generic";
-    std::string features = "";
-    llvm::TargetOptions opt;
-    llvm::Optional<llvm::Reloc::Model> RM = llvm::Reloc::Model::PIC_;
-    TM = target->createTargetMachine(target_triple, CPU, features, opt, RM);
-
-    // For some reason the JIT requires a different TargetMachine
-    jit = cantFail(llvm::orc::KaleidoscopeJIT::Create());
-
-    _lfortran_stan(0.5);
-}
-
-LLVMEvaluator::~LLVMEvaluator()
-{
-    jit.reset();
-    context.reset();
-}
-
-std::unique_ptr<llvm::Module> LLVMEvaluator::parse_module(const std::string &source)
-{
-    llvm::SMDiagnostic err;
-    std::unique_ptr<llvm::Module> module
-        = llvm::parseAssemblyString(source, err, *context);
-    if (!module) {
-        throw LCompilersException("parse_module(): Invalid LLVM IR");
-    }
-    bool v = llvm::verifyModule(*module);
-    if (v) {
-        throw LCompilersException("parse_module(): module failed verification.");
-    };
-    module->setTargetTriple(target_triple);
-    module->setDataLayout(jit->getTargetMachine().createDataLayout());
-    return module;
-}
-
-void LLVMEvaluator::add_module(const std::string &source) {
-    std::unique_ptr<llvm::Module> module = parse_module(source);
-    // TODO: apply LLVM optimizations here
-    // Uncomment the below code to print the module to stdout:
-    /*
-    std::cout << "---------------------------------------------" << std::endl;
-    std::cout << "LLVM Module IR:" << std::endl;
-    std::cout << module_to_string(*module);
-    std::cout << "---------------------------------------------" << std::endl;
-    */
-    add_module(std::move(module));
-}
-
-void LLVMEvaluator::add_module(std::unique_ptr<llvm::Module> mod) {
-    // These are already set in parse_module(), but we set it here again for
-    // cases when the Module was constructed directly, not via parse_module().
-    mod->setTargetTriple(target_triple);
-    mod->setDataLayout(jit->getDataLayout());
-    llvm::Error err = jit->addModule(std::move(mod));
-    if (err) {
-        llvm::SmallVector<char, 128> buf;
-        llvm::raw_svector_ostream dest(buf);
-        llvm::logAllUnhandledErrors(std::move(err), dest, "");
-        std::string msg = std::string(dest.str().data(), dest.str().size());
-        if (msg[msg.size()-1] == '\n') msg = msg.substr(0, msg.size()-1);
-        throw LCompilersException("addModule() returned an error: " + msg);
-    }
-
-}
-
-void LLVMEvaluator::add_module(std::unique_ptr<LLVMModule> m) {
-    add_module(std::move(m->m_m));
-}
-
-intptr_t LLVMEvaluator::get_symbol_address(const std::string &name) {
-    llvm::Expected<llvm::JITEvaluatedSymbol> s = jit->lookup(name);
-    if (!s) {
-        llvm::Error e = s.takeError();
-        llvm::SmallVector<char, 128> buf;
-        llvm::raw_svector_ostream dest(buf);
-        llvm::logAllUnhandledErrors(std::move(e), dest, "");
-        std::string msg = std::string(dest.str().data(), dest.str().size());
-        if (msg[msg.size()-1] == '\n') msg = msg.substr(0, msg.size()-1);
-        throw LCompilersException("lookup() failed to find the symbol '"
-            + name + "', error: " + msg);
-    }
-    llvm::Expected<uint64_t> addr0 = s->getAddress();
-    if (!addr0) {
-        llvm::Error e = addr0.takeError();
-        llvm::SmallVector<char, 128> buf;
-        llvm::raw_svector_ostream dest(buf);
-        llvm::logAllUnhandledErrors(std::move(e), dest, "");
-        std::string msg = std::string(dest.str().data(), dest.str().size());
-        if (msg[msg.size()-1] == '\n') msg = msg.substr(0, msg.size()-1);
-        throw LCompilersException("JITSymbol::getAddress() returned an error: " + msg);
-    }
-    return (intptr_t)cantFail(std::move(addr0));
-}
-
-int32_t LLVMEvaluator::int32fn(const std::string &name) {
-    intptr_t addr = get_symbol_address(name);
-    int32_t (*f)() = (int32_t (*)())addr;
-    return f();
-}
-
-int64_t LLVMEvaluator::int64fn(const std::string &name) {
-    intptr_t addr = get_symbol_address(name);
-    int64_t (*f)() = (int64_t (*)())addr;
-    return f();
-}
-
-bool LLVMEvaluator::boolfn(const std::string &name) {
-    intptr_t addr = get_symbol_address(name);
-    bool (*f)() = (bool (*)())addr;
-    return f();
-}
-
-float LLVMEvaluator::floatfn(const std::string &name) {
-    intptr_t addr = get_symbol_address(name);
-    float (*f)() = (float (*)())addr;
-    return f();
-}
-
-double LLVMEvaluator::doublefn(const std::string &name) {
-    intptr_t addr = get_symbol_address(name);
-    double (*f)() = (double (*)())addr;
-    return f();
-}
-
-std::complex<float> LLVMEvaluator::complex4fn(const std::string &name) {
-    intptr_t addr = get_symbol_address(name);
-    std::complex<float> (*f)() = (std::complex<float> (*)())addr;
-    return f();
-}
-
-std::complex<double> LLVMEvaluator::complex8fn(const std::string &name) {
-    intptr_t addr = get_symbol_address(name);
-    std::complex<double> (*f)() = (std::complex<double> (*)())addr;
-    return f();
-}
-
-void LLVMEvaluator::voidfn(const std::string &name) {
-    intptr_t addr = get_symbol_address(name);
-    void (*f)() = (void (*)())addr;
-    f();
-}
-
-void write_file(const std::string &filename, const std::string &contents)
-{
-    std::ofstream out;
-    out.open(filename);
-    out << contents << std::endl;
-}
-
-std::string LLVMEvaluator::get_asm(llvm::Module &m)
-{
-    llvm::legacy::PassManager pass;
-    llvm::CodeGenFileType ft = llvm::CGFT_AssemblyFile;
-    llvm::SmallVector<char, 128> buf;
-    llvm::raw_svector_ostream dest(buf);
-    if (jit->getTargetMachine().addPassesToEmitFile(pass, dest, nullptr, ft)) {
-        throw std::runtime_error("TargetMachine can't emit a file of this type");
-    }
-    pass.run(m);
-    return std::string(dest.str().data(), dest.str().size());
-}
-
-void LLVMEvaluator::save_asm_file(llvm::Module &m, const std::string &filename)
-{
-    write_file(filename, get_asm(m));
-}
-
-void LLVMEvaluator::save_object_file(llvm::Module &m, const std::string &filename) {
-    m.setTargetTriple(target_triple);
-    m.setDataLayout(TM->createDataLayout());
-
-    llvm::legacy::PassManager pass;
-    llvm::CodeGenFileType ft = llvm::CGFT_ObjectFile;
-    std::error_code EC;
-    llvm::raw_fd_ostream dest(filename, EC, llvm::sys::fs::OF_None);
-    if (EC) {
-        throw std::runtime_error("raw_fd_ostream failed");
-    }
-    if (TM->addPassesToEmitFile(pass, dest, nullptr, ft)) {
-        throw std::runtime_error("TargetMachine can't emit a file of this type");
-    }
-    pass.run(m);
-    dest.flush();
-}
-
-void LLVMEvaluator::create_empty_object_file(const std::string &filename) {
-    std::string source;
-    std::unique_ptr<llvm::Module> module = parse_module(source);
-    save_object_file(*module, filename);
-}
-
-void LLVMEvaluator::opt(llvm::Module &m) {
-    m.setTargetTriple(target_triple);
-    m.setDataLayout(TM->createDataLayout());
-
-    llvm::legacy::PassManager mpm;
-    mpm.add(new llvm::TargetLibraryInfoWrapperPass(TM->getTargetTriple()));
-    mpm.add(llvm::createTargetTransformInfoWrapperPass(TM->getTargetIRAnalysis()));
-    llvm::legacy::FunctionPassManager fpm(&m);
-    fpm.add(llvm::createTargetTransformInfoWrapperPass(TM->getTargetIRAnalysis()));
-
-    int optLevel = 3;
-    int sizeLevel = 0;
-    llvm::PassManagerBuilder builder;
-    builder.OptLevel = optLevel;
-    builder.SizeLevel = sizeLevel;
-    builder.Inliner = llvm::createFunctionInliningPass(optLevel, sizeLevel,
-        false);
-    builder.DisableUnrollLoops = false;
-    builder.LoopVectorize = true;
-    builder.SLPVectorize = true;
-    builder.populateFunctionPassManager(fpm);
-    builder.populateModulePassManager(mpm);
-
-    fpm.doInitialization();
-    for (llvm::Function &func : m) {
-        fpm.run(func);
-    }
-    fpm.doFinalization();
-
-    mpm.add(llvm::createVerifierPass());
-    mpm.run(m);
-}
-
-std::string LLVMEvaluator::module_to_string(llvm::Module &m) {
-    std::string buf;
-    llvm::raw_string_ostream os(buf);
-    m.print(os, nullptr);
-    os.flush();
-    return buf;
-}
-
-void LLVMEvaluator::print_version_message()
-{
-    llvm::cl::PrintVersionMessage();
-}
-
-llvm::LLVMContext &LLVMEvaluator::get_context()
-{
-    return *context;
-}
-
-void LLVMEvaluator::print_targets()
-{
-    llvm::InitializeNativeTarget();
-#ifdef HAVE_TARGET_AARCH64
-    LLVMInitializeAArch64TargetInfo();
-#endif
-#ifdef HAVE_TARGET_X86
-    LLVMInitializeX86TargetInfo();
-#endif
-#ifdef HAVE_TARGET_WASM
-    LLVMInitializeWebAssemblyTargetInfo();
-#endif
-    llvm::raw_ostream &os = llvm::outs();
-    llvm::TargetRegistry::printRegisteredTargetsForVersion(os);
-}
-
-std::string LLVMEvaluator::get_default_target_triple()
-{
-    return llvm::sys::getDefaultTargetTriple();
-}
-
-} // namespace LCompilers
diff --git a/src/libasr/codegen/evaluator.h b/src/libasr/codegen/evaluator.h
deleted file mode 100644
index 9c8e1a21c7..0000000000
--- a/src/libasr/codegen/evaluator.h
+++ /dev/null
@@ -1,78 +0,0 @@
-#ifndef LFORTRAN_EVALUATOR_H
-#define LFORTRAN_EVALUATOR_H
-
-#include <complex>
-#include <iostream>
-#include <memory>
-
-#include <libasr/alloc.h>
-#include <libasr/asr_scopes.h>
-#include <libasr/asr.h>
-#include <libasr/utils.h>
-
-// Forward declare all needed LLVM classes without importing any LLVM header
-// files. Those are only imported in evaluator.cpp and nowhere else, to speed
-// up compilation.
-namespace llvm {
-    class ExecutionEngine;
-    class LLVMContext;
-    class Module;
-    class Function;
-    class TargetMachine;
-    namespace orc {
-        class KaleidoscopeJIT;
-    }
-}
-
-namespace LCompilers {
-
-class LLVMModule
-{
-public:
-    std::unique_ptr<llvm::Module> m_m;
-    LLVMModule(std::unique_ptr<llvm::Module> m);
-    ~LLVMModule();
-    std::string str();
-    // Return a function return type as a string (real / integer)
-    std::string get_return_type(const std::string &fn_name);
-};
-
-class LLVMEvaluator
-{
-private:
-    std::unique_ptr<llvm::orc::KaleidoscopeJIT> jit;
-    std::unique_ptr<llvm::LLVMContext> context;
-    std::string target_triple;
-    llvm::TargetMachine *TM;
-public:
-    LLVMEvaluator(const std::string &t = "");
-    ~LLVMEvaluator();
-    std::unique_ptr<llvm::Module> parse_module(const std::string &source);
-    void add_module(const std::string &source);
-    void add_module(std::unique_ptr<llvm::Module> mod);
-    void add_module(std::unique_ptr<LLVMModule> m);
-    intptr_t get_symbol_address(const std::string &name);
-    int32_t int32fn(const std::string &name);
-    int64_t int64fn(const std::string &name);
-    bool boolfn(const std::string &name);
-    float floatfn(const std::string &name);
-    double doublefn(const std::string &name);
-    std::complex<float> complex4fn(const std::string &name);
-    std::complex<double> complex8fn(const std::string &name);
-    void voidfn(const std::string &name);
-    std::string get_asm(llvm::Module &m);
-    void save_asm_file(llvm::Module &m, const std::string &filename);
-    void save_object_file(llvm::Module &m, const std::string &filename);
-    void create_empty_object_file(const std::string &filename);
-    void opt(llvm::Module &m);
-    static std::string module_to_string(llvm::Module &m);
-    static void print_version_message();
-    llvm::LLVMContext &get_context();
-    static void print_targets();
-    static std::string get_default_target_triple();
-};
-
-
-} // namespace LCompilers
-
-#endif // LFORTRAN_EVALUATOR_H
diff --git a/src/libasr/codegen/llvm_array_utils.cpp b/src/libasr/codegen/llvm_array_utils.cpp
deleted file mode 100644
index 2d52e81444..0000000000
--- a/src/libasr/codegen/llvm_array_utils.cpp
+++ /dev/null
@@ -1,664 +0,0 @@
-#include <libasr/codegen/llvm_array_utils.h>
-#include <libasr/codegen/llvm_utils.h>
-#include <libasr/asr_utils.h>
-
-namespace LCompilers {
-
-    namespace LLVMArrUtils {
-
-        llvm::Value* lfortran_malloc(llvm::LLVMContext &context, llvm::Module &module,
-                llvm::IRBuilder<> &builder, llvm::Value* arg_size) {
-            std::string func_name = "_lfortran_malloc";
-            llvm::Function *fn = module.getFunction(func_name);
-            if (!fn) {
-                llvm::FunctionType *function_type = llvm::FunctionType::get(
-                        llvm::Type::getInt8PtrTy(context), {
-                            llvm::Type::getInt32Ty(context)
-                        }, true);
-                fn = llvm::Function::Create(function_type,
-                        llvm::Function::ExternalLinkage, func_name, module);
-            }
-            std::vector<llvm::Value*> args = {arg_size};
-            return builder.CreateCall(fn, args);
-        }
-
-        bool compile_time_dimensions_t(ASR::dimension_t* m_dims, int n_dims) {
-            if( n_dims <= 0 ) {
-                return false;
-            }
-            bool is_ok = true;
-            for( int r = 0; r < n_dims; r++ ) {
-                if( m_dims[r].m_length == nullptr &&
-                    m_dims[r].m_start == nullptr ) {
-                    is_ok = false;
-                    break;
-                }
-                if( m_dims[r].m_length == nullptr ) {
-                    is_ok = false;
-                    break;
-                }
-            }
-            return is_ok;
-        }
-
-        bool is_explicit_shape(ASR::Variable_t* v) {
-            ASR::dimension_t* m_dims;
-            int n_dims;
-            switch( v->m_type->type ) {
-                case ASR::ttypeType::Integer: {
-                    ASR::Integer_t* v_type = ASR::down_cast<ASR::Integer_t>(v->m_type);
-                    m_dims = v_type->m_dims;
-                    n_dims = v_type->n_dims;
-                    break;
-                }
-                case ASR::ttypeType::Real: {
-                    ASR::Real_t* v_type = ASR::down_cast<ASR::Real_t>(v->m_type);
-                    m_dims = v_type->m_dims;
-                    n_dims = v_type->n_dims;
-                    break;
-                }
-                case ASR::ttypeType::Complex: {
-                    ASR::Complex_t* v_type = ASR::down_cast<ASR::Complex_t>(v->m_type);
-                    m_dims = v_type->m_dims;
-                    n_dims = v_type->n_dims;
-                    break;
-                }
-                case ASR::ttypeType::Logical: {
-                    ASR::Logical_t* v_type = ASR::down_cast<ASR::Logical_t>(v->m_type);
-                    m_dims = v_type->m_dims;
-                    n_dims = v_type->n_dims;
-                    break;
-                }
-                case ASR::ttypeType::Struct: {
-                    ASR::Struct_t* v_type = ASR::down_cast<ASR::Struct_t>(v->m_type);
-                    m_dims = v_type->m_dims;
-                    n_dims = v_type->n_dims;
-                    break;
-                }
-                default: {
-                    throw LCompilersException("Explicit shape checking supported only for integer, real, complex, logical and derived types.");
-                }
-            }
-            return compile_time_dimensions_t(m_dims, n_dims);
-        }
-
-        std::unique_ptr<Descriptor>
-        Descriptor::get_descriptor
-        (llvm::LLVMContext& context,
-         llvm::IRBuilder<>* builder,
-         LLVMUtils* llvm_utils,
-         DESCR_TYPE descr_type) {
-            switch( descr_type ) {
-                case DESCR_TYPE::_SimpleCMODescriptor: {
-                    return std::make_unique<SimpleCMODescriptor>(context, builder, llvm_utils);
-                }
-            }
-            return nullptr;
-        }
-
-        SimpleCMODescriptor::SimpleCMODescriptor(llvm::LLVMContext& _context,
-            llvm::IRBuilder<>* _builder,
-            LLVMUtils* _llvm_utils):
-        context(_context),
-        llvm_utils(std::move(_llvm_utils)),
-        builder(std::move(_builder)),
-        dim_des(llvm::StructType::create(
-            context,
-            std::vector<llvm::Type*>(
-                {llvm::Type::getInt32Ty(context),
-                 llvm::Type::getInt32Ty(context),
-                 llvm::Type::getInt32Ty(context)}),
-                 "dimension_descriptor")
-        ) {
-        }
-
-        bool SimpleCMODescriptor::is_array(ASR::ttype_t* asr_type) {
-            std::string asr_type_code = ASRUtils::get_type_code(asr_type, false, false);
-            return tkr2array.find(asr_type_code) != tkr2array.end();
-        }
-
-        llvm::Value* SimpleCMODescriptor::
-        convert_to_argument(llvm::Value* tmp, ASR::ttype_t* asr_arg_type,
-                            llvm::Type* arg_type, bool data_only) {
-            if( data_only ) {
-                return LLVM::CreateLoad(*builder, get_pointer_to_data(tmp));
-            }
-            llvm::Value* arg_struct = builder->CreateAlloca(arg_type, nullptr);
-            llvm::Value* first_ele_ptr = nullptr;
-            std::string asr_arg_type_code = ASRUtils::get_type_code(ASRUtils::get_contained_type(asr_arg_type), false, false);
-            llvm::StructType* tmp_struct_type = tkr2array[asr_arg_type_code].first;
-            if( tmp_struct_type->getElementType(0)->isArrayTy() ) {
-                first_ele_ptr = llvm_utils->create_gep(get_pointer_to_data(tmp), 0);
-            } else if( tmp_struct_type->getNumElements() < 5 ) {
-                first_ele_ptr = LLVM::CreateLoad(*builder, get_pointer_to_data(tmp));
-            } else if( tmp_struct_type->getNumElements() == 5 ) {
-                return tmp;
-            }
-            llvm::Value* first_arg_ptr = llvm_utils->create_gep(arg_struct, 0);
-            builder->CreateStore(first_ele_ptr, first_arg_ptr);
-            llvm::Value* sec_ele_ptr = get_offset(tmp);
-            llvm::Value* sec_arg_ptr = llvm_utils->create_gep(arg_struct, 1);
-            builder->CreateStore(sec_ele_ptr, sec_arg_ptr);
-            llvm::Value* third_ele_ptr = LLVM::CreateLoad(*builder,
-                get_pointer_to_dimension_descriptor_array(tmp));
-            llvm::Value* third_arg_ptr = llvm_utils->create_gep(arg_struct, 2);
-            builder->CreateStore(third_ele_ptr, third_arg_ptr);
-            return arg_struct;
-        }
-
-        llvm::Type* SimpleCMODescriptor::get_argument_type(llvm::Type* type,
-        std::uint32_t m_h, std::string arg_name,
-        std::unordered_map<std::uint32_t, std::unordered_map<std::string, llvm::Type*>>& arr_arg_type_cache) {
-            llvm::StructType* type_struct = static_cast<llvm::StructType*>(type);
-            llvm::Type* first_ele_ptr_type = nullptr;
-            if( type_struct->getElementType(0)->isArrayTy() ) {
-                llvm::ArrayType* arr_type = static_cast<llvm::ArrayType*>(type_struct->getElementType(0));
-                llvm::Type* ele_type = arr_type->getElementType();
-                first_ele_ptr_type = ele_type->getPointerTo();
-            } else if( type_struct->getElementType(0)->isPointerTy() &&
-                       type_struct->getNumElements() < 5 ) {
-                first_ele_ptr_type = type_struct->getElementType(0);
-            } else if( type_struct->getElementType(0)->isPointerTy() &&
-                       type_struct->getNumElements() == 5 ) {
-                arr_arg_type_cache[m_h][std::string(arg_name)] = type;
-                return type->getPointerTo();
-            }
-            llvm::Type* new_arr_type = nullptr;
-
-            if( arr_arg_type_cache.find(m_h) == arr_arg_type_cache.end() || (
-                arr_arg_type_cache.find(m_h) != arr_arg_type_cache.end() &&
-                arr_arg_type_cache[m_h].find(std::string(arg_name)) == arr_arg_type_cache[m_h].end() ) ) {
-                std::vector<llvm::Type*> arg_des = {first_ele_ptr_type};
-                for( size_t i = 1; i < type_struct->getNumElements(); i++ ) {
-                    arg_des.push_back(static_cast<llvm::StructType*>(type)->getElementType(i));
-                }
-                new_arr_type = llvm::StructType::create(context, arg_des, "array_call");
-                arr_arg_type_cache[m_h][std::string(arg_name)] = new_arr_type;
-            } else {
-                new_arr_type = arr_arg_type_cache[m_h][std::string(arg_name)];
-            }
-            return new_arr_type->getPointerTo();
-        }
-
-        llvm::Type* SimpleCMODescriptor::get_array_type
-        (ASR::ttype_t* m_type_, llvm::Type* el_type,
-        bool get_pointer) {
-            std::string array_key = ASRUtils::get_type_code(m_type_, false, false);
-            if( tkr2array.find(array_key) != tkr2array.end() ) {
-                if( get_pointer ) {
-                    return tkr2array[array_key].first->getPointerTo();
-                }
-                return tkr2array[array_key].first;
-            }
-            llvm::Type* dim_des_array = create_dimension_descriptor_array_type();
-            std::vector<llvm::Type*> array_type_vec;
-            array_type_vec = {  el_type->getPointerTo(),
-                                llvm::Type::getInt32Ty(context),
-                                dim_des_array,
-                                llvm::Type::getInt1Ty(context),
-                                llvm::Type::getInt32Ty(context)  };
-            llvm::StructType* new_array_type = llvm::StructType::create(context, array_type_vec, "array");
-            tkr2array[array_key] = std::make_pair(new_array_type, el_type);
-            if( get_pointer ) {
-                return tkr2array[array_key].first->getPointerTo();
-            }
-            return (llvm::Type*) tkr2array[array_key].first;
-        }
-
-        llvm::Type* SimpleCMODescriptor::create_dimension_descriptor_array_type() {
-            return dim_des->getPointerTo();
-        }
-
-        llvm::Type* SimpleCMODescriptor::get_malloc_array_type
-        (ASR::ttype_t* m_type_, llvm::Type* el_type, bool get_pointer) {
-            std::string array_key = ASRUtils::get_type_code(m_type_, false, false);
-            if( tkr2array.find(array_key) != tkr2array.end() ) {
-                if( get_pointer ) {
-                    return tkr2array[array_key].first->getPointerTo();
-                }
-                return tkr2array[array_key].first;
-            }
-            llvm::Type* dim_des_array = create_dimension_descriptor_array_type();
-            std::vector<llvm::Type*> array_type_vec = {
-                el_type->getPointerTo(),
-                llvm::Type::getInt32Ty(context),
-                dim_des_array,
-                llvm::Type::getInt1Ty(context),
-                llvm::Type::getInt32Ty(context)};
-            llvm::StructType* new_array_type = llvm::StructType::create(context, array_type_vec, "array");
-            tkr2array[array_key] = std::make_pair(new_array_type, el_type);
-            if( get_pointer ) {
-                return tkr2array[array_key].first->getPointerTo();
-            }
-            return (llvm::Type*) tkr2array[array_key].first;
-        }
-
-        llvm::Type* SimpleCMODescriptor::get_dimension_descriptor_type
-        (bool get_pointer) {
-            if( !get_pointer ) {
-                return dim_des;
-            }
-            return dim_des->getPointerTo();
-        }
-
-        llvm::Value* SimpleCMODescriptor::
-        get_pointer_to_dimension_descriptor_array(llvm::Value* arr, bool load) {
-            llvm::Value* dim_des_arr_ptr = llvm_utils->create_gep(arr, 2);
-            if( !load ) {
-                return dim_des_arr_ptr;
-            }
-            return LLVM::CreateLoad(*builder, dim_des_arr_ptr);
-        }
-
-        llvm::Value* SimpleCMODescriptor::
-        get_rank(llvm::Value* arr, bool get_pointer) {
-            llvm::Value* rank_ptr = llvm_utils->create_gep(arr, 4);
-            if( get_pointer ) {
-                return rank_ptr;
-            }
-            return LLVM::CreateLoad(*builder, rank_ptr);
-        }
-
-        void SimpleCMODescriptor::
-        set_rank(llvm::Value* arr, llvm::Value* rank) {
-            llvm::Value* rank_ptr = llvm_utils->create_gep(arr, 4);
-            LLVM::CreateStore(*builder, rank, rank_ptr);
-        }
-
-        llvm::Value* SimpleCMODescriptor::
-        get_dimension_size(llvm::Value* dim_des_arr, llvm::Value* dim, bool load) {
-            llvm::Value* dim_size = llvm_utils->create_gep(llvm_utils->create_ptr_gep(dim_des_arr, dim), 2);
-            if( !load ) {
-                return dim_size;
-            }
-            return LLVM::CreateLoad(*builder, dim_size);
-        }
-
-        void SimpleCMODescriptor::fill_array_details(
-        llvm::Value* arr, llvm::Type* llvm_data_type, int n_dims,
-        std::vector<std::pair<llvm::Value*, llvm::Value*>>& llvm_dims) {
-            llvm::Value* offset_val = llvm_utils->create_gep(arr, 1);
-            builder->CreateStore(llvm::ConstantInt::get(context, llvm::APInt(32, 0)), offset_val);
-            llvm::Value* dim_des_val = llvm_utils->create_gep(arr, 2);
-            llvm::Value* llvm_ndims = builder->CreateAlloca(llvm::Type::getInt32Ty(context), nullptr);
-            builder->CreateStore(llvm::ConstantInt::get(context, llvm::APInt(32, n_dims)), llvm_ndims);
-            llvm::Value* dim_des_first = builder->CreateAlloca(dim_des,
-                                                               LLVM::CreateLoad(*builder, llvm_ndims));
-            builder->CreateStore(llvm::ConstantInt::get(context, llvm::APInt(32, n_dims)), get_rank(arr, true));
-            builder->CreateStore(dim_des_first, dim_des_val);
-            dim_des_val = LLVM::CreateLoad(*builder, dim_des_val);
-            for( int r = 0; r < n_dims; r++ ) {
-                llvm::Value* dim_val = llvm_utils->create_ptr_gep(dim_des_val, r);
-                llvm::Value* s_val = llvm_utils->create_gep(dim_val, 0);
-                llvm::Value* l_val = llvm_utils->create_gep(dim_val, 1);
-                llvm::Value* dim_size_ptr = llvm_utils->create_gep(dim_val, 2);
-                builder->CreateStore(llvm::ConstantInt::get(context, llvm::APInt(32, 1)), s_val);
-                builder->CreateStore(llvm_dims[r].first, l_val);
-                llvm::Value* dim_size = llvm_dims[r].second;
-                builder->CreateStore(dim_size, dim_size_ptr);
-            }
-
-            llvm::Value* llvm_size = builder->CreateAlloca(llvm::Type::getInt32Ty(context), nullptr);
-            llvm::Value* const_1 = llvm::ConstantInt::get(context, llvm::APInt(32, 1));
-            llvm::Value* prod = const_1;
-            for( int r = 0; r < n_dims; r++ ) {
-                llvm::Value* dim_size = llvm_dims[r].second;
-                prod = builder->CreateMul(prod, dim_size);
-            }
-            builder->CreateStore(prod, llvm_size);
-            llvm::Value* first_ptr = get_pointer_to_data(arr);
-            llvm::Value* arr_first = builder->CreateAlloca(llvm_data_type,
-                                        LLVM::CreateLoad(*builder, llvm_size));
-            builder->CreateStore(arr_first, first_ptr);
-        }
-
-        void SimpleCMODescriptor::fill_malloc_array_details(
-        llvm::Value* arr, llvm::Type* llvm_data_type, int n_dims,
-        std::vector<std::pair<llvm::Value*, llvm::Value*>>& llvm_dims,
-        llvm::Module* module) {
-            llvm::Value* num_elements = llvm::ConstantInt::get(context, llvm::APInt(32, 1));
-            llvm::Value* offset_val = llvm_utils->create_gep(arr, 1);
-            builder->CreateStore(llvm::ConstantInt::get(context, llvm::APInt(32, 0)),
-                                    offset_val);
-            set_is_allocated_flag(arr, 1);
-            llvm::Value* dim_des_val = LLVM::CreateLoad(*builder, llvm_utils->create_gep(arr, 2));
-            for( int r = 0; r < n_dims; r++ ) {
-                llvm::Value* dim_val = llvm_utils->create_ptr_gep(dim_des_val, r);
-                llvm::Value* s_val = llvm_utils->create_gep(dim_val, 0);
-                llvm::Value* l_val = llvm_utils->create_gep(dim_val, 1);
-                llvm::Value* dim_size_ptr = llvm_utils->create_gep(dim_val, 2);
-                builder->CreateStore(llvm::ConstantInt::get(context, llvm::APInt(32, 1)), s_val);
-                builder->CreateStore(llvm_dims[r].first, l_val);
-                llvm::Value* dim_size = llvm_dims[r].second;
-                num_elements = builder->CreateMul(num_elements, dim_size);
-                builder->CreateStore(dim_size, dim_size_ptr);
-            }
-            llvm::Value* ptr2firstptr = get_pointer_to_data(arr);
-            llvm::AllocaInst *arg_size = builder->CreateAlloca(llvm::Type::getInt32Ty(context), nullptr);
-            llvm::DataLayout data_layout(module);
-            llvm::Type* ptr_type = llvm_data_type->getPointerTo();
-            uint64_t size = data_layout.getTypeAllocSize(llvm_data_type);
-            llvm::Value* llvm_size = llvm::ConstantInt::get(context, llvm::APInt(32, size));
-            num_elements = builder->CreateMul(num_elements, llvm_size);
-            builder->CreateStore(num_elements, arg_size);
-            llvm::Value* ptr_as_char_ptr = lfortran_malloc(context, *module, *builder, LLVM::CreateLoad(*builder, arg_size));
-            llvm::Value* first_ptr = builder->CreateBitCast(ptr_as_char_ptr, ptr_type);
-            builder->CreateStore(first_ptr, ptr2firstptr);
-        }
-
-        void SimpleCMODescriptor::fill_dimension_descriptor(
-            llvm::Value* arr, int n_dims) {
-            llvm::Value* dim_des_val = llvm_utils->create_gep(arr, 2);
-            llvm::Value* llvm_ndims = builder->CreateAlloca(llvm::Type::getInt32Ty(context), nullptr);
-            builder->CreateStore(llvm::ConstantInt::get(context, llvm::APInt(32, n_dims)), llvm_ndims);
-            llvm::Value* dim_des_first = builder->CreateAlloca(dim_des,
-                                                               LLVM::CreateLoad(*builder, llvm_ndims));
-            builder->CreateStore(dim_des_first, dim_des_val);
-            builder->CreateStore(llvm::ConstantInt::get(context, llvm::APInt(32, n_dims)), get_rank(arr, true));
-        }
-
-        llvm::Value* SimpleCMODescriptor::get_pointer_to_dimension_descriptor(llvm::Value* dim_des_arr,
-            llvm::Value* dim) {
-            return llvm_utils->create_ptr_gep(dim_des_arr, dim);
-        }
-
-        llvm::Value* SimpleCMODescriptor::get_pointer_to_data(llvm::Value* arr) {
-            return llvm_utils->create_gep(arr, 0);
-        }
-
-        llvm::Value* SimpleCMODescriptor::get_offset(llvm::Value* arr) {
-            return LLVM::CreateLoad(*builder, llvm_utils->create_gep(arr, 1));
-        }
-
-        llvm::Value* SimpleCMODescriptor::get_lower_bound(llvm::Value* dim_des, bool load) {
-            llvm::Value* lb = llvm_utils->create_gep(dim_des, 1);
-            if( !load ) {
-                return lb;
-            }
-            return LLVM::CreateLoad(*builder, lb);
-        }
-
-        llvm::Value* SimpleCMODescriptor::get_upper_bound(llvm::Value* dim_des) {
-            llvm::Value* lb = LLVM::CreateLoad(*builder, llvm_utils->create_gep(dim_des, 1));
-            llvm::Value* dim_size = LLVM::CreateLoad(*builder, llvm_utils->create_gep(dim_des, 2));
-            return builder->CreateSub(builder->CreateAdd(dim_size, lb),
-                                      llvm::ConstantInt::get(context, llvm::APInt(32, 1)));
-        }
-
-        llvm::Value* SimpleCMODescriptor::get_stride(llvm::Value*) {
-            return nullptr;
-        }
-
-        // TODO: Uncomment and implement later
-        // void check_single_element(llvm::Value* curr_idx, llvm::Value* arr) {
-        // }
-
-        llvm::Value* SimpleCMODescriptor::cmo_convertor_single_element(
-            llvm::Value* arr, std::vector<llvm::Value*>& m_args,
-            int n_args, bool check_for_bounds) {
-            llvm::Value* dim_des_arr_ptr = LLVM::CreateLoad(*builder, llvm_utils->create_gep(arr, 2));
-            llvm::Value* prod = llvm::ConstantInt::get(context, llvm::APInt(32, 1));
-            llvm::Value* idx = llvm::ConstantInt::get(context, llvm::APInt(32, 0));
-            for( int r = 0; r < n_args; r++ ) {
-                llvm::Value* curr_llvm_idx = m_args[r];
-                llvm::Value* dim_des_ptr = llvm_utils->create_ptr_gep(dim_des_arr_ptr, r);
-                llvm::Value* lval = LLVM::CreateLoad(*builder, llvm_utils->create_gep(dim_des_ptr, 1));
-                curr_llvm_idx = builder->CreateSub(curr_llvm_idx, lval);
-                if( check_for_bounds ) {
-                    // check_single_element(curr_llvm_idx, arr); TODO: To be implemented
-                }
-                idx = builder->CreateAdd(idx, builder->CreateMul(prod, curr_llvm_idx));
-                llvm::Value* dim_size = LLVM::CreateLoad(*builder, llvm_utils->create_gep(dim_des_ptr, 2));
-                prod = builder->CreateMul(prod, dim_size);
-            }
-            return idx;
-        }
-
-        llvm::Value* SimpleCMODescriptor::cmo_convertor_single_element_data_only(
-            llvm::Value** llvm_diminfo, std::vector<llvm::Value*>& m_args,
-            int n_args, bool check_for_bounds) {
-            llvm::Value* prod = llvm::ConstantInt::get(context, llvm::APInt(32, 1));
-            llvm::Value* idx = llvm::ConstantInt::get(context, llvm::APInt(32, 0));
-            for( int r = 0, r1 = 0; r < n_args; r++ ) {
-                llvm::Value* curr_llvm_idx = m_args[r];
-                llvm::Value* lval = llvm_diminfo[r1];
-                curr_llvm_idx = builder->CreateSub(curr_llvm_idx, lval);
-                if( check_for_bounds ) {
-                    // check_single_element(curr_llvm_idx, arr); TODO: To be implemented
-                }
-                idx = builder->CreateAdd(idx, builder->CreateMul(prod, curr_llvm_idx));
-                llvm::Value* dim_size = llvm_diminfo[r1 + 1];
-                r1 += 2;
-                prod = builder->CreateMul(prod, dim_size);
-            }
-            return idx;
-        }
-
-        llvm::Value* SimpleCMODescriptor::get_single_element(llvm::Value* array,
-            std::vector<llvm::Value*>& m_args, int n_args, bool data_only,
-            bool is_fixed_size, llvm::Value** llvm_diminfo) {
-            llvm::Value* tmp = nullptr;
-            // TODO: Uncomment later
-            // bool check_for_bounds = is_explicit_shape(v);
-            bool check_for_bounds = false;
-            llvm::Value* idx = nullptr;
-            if( data_only ) {
-                LCOMPILERS_ASSERT(llvm_diminfo);
-                idx = cmo_convertor_single_element_data_only(llvm_diminfo, m_args, n_args, check_for_bounds);
-                if( is_fixed_size ) {
-                    tmp = llvm_utils->create_gep(array, idx);
-                } else {
-                    tmp = llvm_utils->create_ptr_gep(array, idx);
-                }
-            } else {
-                idx = cmo_convertor_single_element(array, m_args, n_args, check_for_bounds);
-                llvm::Value* full_array = get_pointer_to_data(array);
-                tmp = llvm_utils->create_ptr_gep(LLVM::CreateLoad(*builder, full_array), idx);
-            }
-            return tmp;
-        }
-
-        llvm::Value* SimpleCMODescriptor::get_is_allocated_flag(llvm::Value* array) {
-            return LLVM::CreateLoad(*builder, llvm_utils->create_gep(array, 3));
-        }
-
-        void SimpleCMODescriptor::set_is_allocated_flag(llvm::Value* array, uint64_t status) {
-            llvm::Value* is_allocated_flag = llvm_utils->create_gep(array, 3);
-            builder->CreateStore(llvm::ConstantInt::get(context, llvm::APInt(1, status)),
-                                    is_allocated_flag);
-        }
-
-        llvm::Value* SimpleCMODescriptor::get_array_size(llvm::Value* array, llvm::Value* dim, int kind, int dim_kind) {
-            llvm::Value* dim_des_val = this->get_pointer_to_dimension_descriptor_array(array);
-            llvm::Value* tmp = nullptr;
-            if( dim ) {
-                tmp = builder->CreateSub(dim, llvm::ConstantInt::get(context, llvm::APInt(dim_kind * 8, 1)));
-                tmp = this->get_dimension_size(dim_des_val, tmp);
-                tmp = builder->CreateSExt(tmp, llvm_utils->getIntType(kind));
-                return tmp;
-            }
-            llvm::Value* rank = this->get_rank(array);
-            llvm::Value* llvm_size = builder->CreateAlloca(llvm_utils->getIntType(kind), nullptr);
-            builder->CreateStore(llvm::ConstantInt::get(context, llvm::APInt(kind * 8, 1)), llvm_size);
-
-            llvm::BasicBlock *loophead = llvm::BasicBlock::Create(context, "loop.head");
-            llvm::BasicBlock *loopbody = llvm::BasicBlock::Create(context, "loop.body");
-            llvm::BasicBlock *loopend = llvm::BasicBlock::Create(context, "loop.end");
-
-            llvm::Value* r = builder->CreateAlloca(llvm_utils->getIntType(4), nullptr);
-            builder->CreateStore(llvm::ConstantInt::get(context, llvm::APInt(32, 0)), r);
-            // head
-            llvm_utils->start_new_block(loophead);
-            llvm::Value *cond = builder->CreateICmpSLT(LLVM::CreateLoad(*builder, r), rank);
-            builder->CreateCondBr(cond, loopbody, loopend);
-
-            // body
-            llvm_utils->start_new_block(loopbody);
-            llvm::Value* r_val = LLVM::CreateLoad(*builder, r);
-            llvm::Value* ret_val = LLVM::CreateLoad(*builder, llvm_size);
-            llvm::Value* dim_size = this->get_dimension_size(dim_des_val, r_val);
-            dim_size = builder->CreateSExt(dim_size, llvm_utils->getIntType(kind));
-            ret_val = builder->CreateMul(ret_val, dim_size);
-            builder->CreateStore(ret_val, llvm_size);
-            r_val = builder->CreateAdd(r_val, llvm::ConstantInt::get(context, llvm::APInt(32, 1)));
-            builder->CreateStore(r_val, r);
-            builder->CreateBr(loophead);
-
-            // end
-            llvm_utils->start_new_block(loopend);
-
-            tmp = LLVM::CreateLoad(*builder, llvm_size);
-            return tmp;
-        }
-
-        llvm::Value* SimpleCMODescriptor::reshape(llvm::Value* array, llvm::Type* llvm_data_type,
-                                                  llvm::Value* shape, ASR::ttype_t* asr_shape_type,
-                                                  llvm::Module* module) {
-            llvm::Value* reshaped = builder->CreateAlloca(array->getType()->getContainedType(0), nullptr, "reshaped");
-
-            // Deep copy data from array to reshaped.
-            llvm::Value* num_elements = this->get_array_size(array, nullptr, 4);
-
-            llvm::Value* first_ptr = this->get_pointer_to_data(reshaped);
-            llvm::Value* arr_first = builder->CreateAlloca(llvm_data_type, num_elements);
-            builder->CreateStore(arr_first, first_ptr);
-
-            llvm::Value* ptr2firstptr = this->get_pointer_to_data(array);
-            llvm::DataLayout data_layout(module);
-            uint64_t size = data_layout.getTypeAllocSize(llvm_data_type);
-            llvm::Value* llvm_size = llvm::ConstantInt::get(context, llvm::APInt(32, size));
-            num_elements = builder->CreateMul(num_elements, llvm_size);
-            builder->CreateMemCpy(LLVM::CreateLoad(*builder, first_ptr), llvm::MaybeAlign(),
-                                  LLVM::CreateLoad(*builder, ptr2firstptr), llvm::MaybeAlign(),
-                                  num_elements);
-
-            if( this->is_array(asr_shape_type) ) {
-                llvm::Value* n_dims = this->get_array_size(shape, nullptr, 4);
-                llvm::Value* shape_data = LLVM::CreateLoad(*builder, this->get_pointer_to_data(shape));
-                llvm::Value* dim_des_val = llvm_utils->create_gep(reshaped, 2);
-                llvm::Value* dim_des_first = builder->CreateAlloca(dim_des, n_dims);
-                builder->CreateStore(n_dims, this->get_rank(reshaped, true));
-                builder->CreateStore(dim_des_first, dim_des_val);
-                dim_des_val = LLVM::CreateLoad(*builder, dim_des_val);
-                llvm::BasicBlock *loophead = llvm::BasicBlock::Create(context, "loop.head");
-                llvm::BasicBlock *loopbody = llvm::BasicBlock::Create(context, "loop.body");
-                llvm::BasicBlock *loopend = llvm::BasicBlock::Create(context, "loop.end");
-
-                llvm::Value* r = builder->CreateAlloca(llvm_utils->getIntType(4), nullptr);
-                builder->CreateStore(llvm::ConstantInt::get(context, llvm::APInt(32, 0)), r);
-                // head
-                llvm_utils->start_new_block(loophead);
-                llvm::Value *cond = builder->CreateICmpSLT(LLVM::CreateLoad(*builder, r), n_dims);
-                builder->CreateCondBr(cond, loopbody, loopend);
-
-                // body
-                llvm_utils->start_new_block(loopbody);
-                llvm::Value* r_val = LLVM::CreateLoad(*builder, r);
-                llvm::Value* dim_val = llvm_utils->create_ptr_gep(dim_des_val, r_val);
-                llvm::Value* s_val = llvm_utils->create_gep(dim_val, 0);
-                llvm::Value* dim_size_ptr = llvm_utils->create_gep(dim_val, 2);
-                builder->CreateStore(llvm::ConstantInt::get(context, llvm::APInt(32, 1)), s_val);
-                llvm::Value* dim_size = LLVM::CreateLoad(*builder, llvm_utils->create_ptr_gep(shape_data, r_val));
-                builder->CreateStore(dim_size, dim_size_ptr);
-                r_val = builder->CreateAdd(r_val, llvm::ConstantInt::get(context, llvm::APInt(32, 1)));
-                builder->CreateStore(r_val, r);
-                builder->CreateBr(loophead);
-
-                // end
-                llvm_utils->start_new_block(loopend);
-            }
-            return reshaped;
-        }
-
-        // Shallow copies source array descriptor to destination descriptor
-        void SimpleCMODescriptor::copy_array(llvm::Value* src, llvm::Value* dest,
-            llvm::Module* module, ASR::ttype_t* asr_data_type, bool create_dim_des_array,
-            bool reserve_memory) {
-            llvm::Value* num_elements = this->get_array_size(src, nullptr, 4);
-
-            llvm::Value* first_ptr = this->get_pointer_to_data(dest);
-            llvm::Type* llvm_data_type = tkr2array[ASRUtils::get_type_code(asr_data_type, false, false)].second;
-            if( reserve_memory ) {
-                llvm::Value* arr_first = builder->CreateAlloca(llvm_data_type, num_elements);
-                builder->CreateStore(arr_first, first_ptr);
-            }
-
-            llvm::Value* ptr2firstptr = this->get_pointer_to_data(src);
-            llvm::DataLayout data_layout(module);
-            uint64_t size = data_layout.getTypeAllocSize(llvm_data_type);
-            llvm::Value* llvm_size = llvm::ConstantInt::get(context, llvm::APInt(32, size));
-            num_elements = builder->CreateMul(num_elements, llvm_size);
-            builder->CreateMemCpy(LLVM::CreateLoad(*builder, first_ptr), llvm::MaybeAlign(),
-                                  LLVM::CreateLoad(*builder, ptr2firstptr), llvm::MaybeAlign(),
-                                  num_elements);
-
-            llvm::Value* src_offset_ptr = LLVM::CreateLoad(*builder, llvm_utils->create_gep(src, 1));
-            builder->CreateStore(src_offset_ptr, llvm_utils->create_gep(dest, 1));
-            llvm::Value* src_dim_des_val = this->get_pointer_to_dimension_descriptor_array(src, true);
-            llvm::Value* n_dims = this->get_rank(src, false);
-            llvm::Value* dest_dim_des_val = nullptr;
-            if( !create_dim_des_array ) {
-                dest_dim_des_val = this->get_pointer_to_dimension_descriptor_array(dest, true);
-            } else {
-                llvm::Value* dest_dim_des_ptr = this->get_pointer_to_dimension_descriptor_array(dest, false);
-                dest_dim_des_val = builder->CreateAlloca(dim_des, n_dims);
-                builder->CreateStore(dest_dim_des_val, dest_dim_des_ptr);
-            }
-            llvm::BasicBlock *loophead = llvm::BasicBlock::Create(context, "loop.head");
-            llvm::BasicBlock *loopbody = llvm::BasicBlock::Create(context, "loop.body");
-            llvm::BasicBlock *loopend = llvm::BasicBlock::Create(context, "loop.end");
-
-            llvm::Value* r = builder->CreateAlloca(llvm_utils->getIntType(4), nullptr);
-            builder->CreateStore(llvm::ConstantInt::get(context, llvm::APInt(32, 0)), r);
-            // head
-            llvm_utils->start_new_block(loophead);
-            llvm::Value *cond = builder->CreateICmpSLT(LLVM::CreateLoad(*builder, r), n_dims);
-            builder->CreateCondBr(cond, loopbody, loopend);
-
-            // body
-            llvm_utils->start_new_block(loopbody);
-            llvm::Value* r_val = LLVM::CreateLoad(*builder, r);
-            llvm::Value* src_dim_val = llvm_utils->create_ptr_gep(src_dim_des_val, r_val);
-            llvm::Value* src_s_val = llvm_utils->create_gep(src_dim_val, 0);
-            llvm::Value* src_l_val = nullptr;
-            if( create_dim_des_array ) {
-                src_l_val = llvm_utils->create_gep(src_dim_val, 1);
-            }
-            llvm::Value* src_dim_size_ptr = llvm_utils->create_gep(src_dim_val, 2);
-            llvm::Value* dest_dim_val = llvm_utils->create_ptr_gep(dest_dim_des_val, r_val);
-            llvm::Value* dest_s_val = llvm_utils->create_gep(dest_dim_val, 0);
-            llvm::Value* dest_l_val = nullptr;
-            if( create_dim_des_array ) {
-                dest_l_val = llvm_utils->create_gep(dest_dim_val, 1);
-            }
-            llvm::Value* dest_dim_size_ptr = llvm_utils->create_gep(dest_dim_val, 2);
-            builder->CreateStore(LLVM::CreateLoad(*builder, src_s_val), dest_s_val);
-            if( create_dim_des_array ) {
-                builder->CreateStore(LLVM::CreateLoad(*builder, src_l_val), dest_l_val);
-            }
-            builder->CreateStore(LLVM::CreateLoad(*builder, src_dim_size_ptr), dest_dim_size_ptr);
-            r_val = builder->CreateAdd(r_val, llvm::ConstantInt::get(context, llvm::APInt(32, 1)));
-            builder->CreateStore(r_val, r);
-            builder->CreateBr(loophead);
-
-            // end
-            llvm_utils->start_new_block(loopend);
-
-            llvm::Value* src_is_allocated_ptr = this->get_is_allocated_flag(src);
-            builder->CreateStore(src_is_allocated_ptr, llvm_utils->create_gep(src, 3));
-            builder->CreateStore(n_dims, this->get_rank(dest, true));
-        }
-
-        void SimpleCMODescriptor::copy_array_data_only(llvm::Value* src, llvm::Value* dest,
-            llvm::Module* module, ASR::ttype_t* asr_data_type, llvm::Value* num_elements) {
-            llvm::Type* llvm_data_type = tkr2array[ASRUtils::get_type_code(asr_data_type, false, false)].second;
-            llvm::DataLayout data_layout(module);
-            uint64_t size = data_layout.getTypeAllocSize(llvm_data_type);
-            llvm::Value* llvm_size = llvm::ConstantInt::get(context, llvm::APInt(32, size));
-            num_elements = builder->CreateMul(num_elements, llvm_size);
-            builder->CreateMemCpy(src, llvm::MaybeAlign(), dest, llvm::MaybeAlign(), num_elements);
-        }
-
-    } // LLVMArrUtils
-
-} // namespace LCompilers
diff --git a/src/libasr/codegen/llvm_array_utils.h b/src/libasr/codegen/llvm_array_utils.h
deleted file mode 100644
index f9216824c9..0000000000
--- a/src/libasr/codegen/llvm_array_utils.h
+++ /dev/null
@@ -1,421 +0,0 @@
-#ifndef LFORTRAN_LLVM_ARR_UTILS_H
-#define LFORTRAN_LLVM_ARR_UTILS_H
-
-#include <map>
-#include <memory>
-#include <string>
-#include <unordered_map>
-
-#include <llvm/IR/Type.h>
-#include <llvm/IR/Value.h>
-#include <llvm/IR/DerivedTypes.h>
-#include <llvm/IR/IRBuilder.h>
-
-#include <libasr/alloc.h>
-#include <libasr/asr.h>
-#include <libasr/codegen/llvm_utils.h>
-
-namespace LCompilers {
-
-    namespace LLVMArrUtils {
-
-        llvm::Value* lfortran_malloc(llvm::LLVMContext &context, llvm::Module &module,
-                llvm::IRBuilder<> &builder, llvm::Value* arg_size);
-
-        /*
-        * This function checks whether the
-        * dimensions are available at compile time.
-        * Returns true if all the dimensions reduce
-        * to constant integers and false otherwise.
-        */
-        bool compile_time_dimensions_t(
-        ASR::dimension_t* m_dims, int n_dims);
-
-        /*
-        * This function checks if the given
-        * an variable is an array and all the
-        * dimensions are available at compile time.
-        */
-        bool is_explicit_shape(ASR::Variable_t* v);
-
-        /*
-        * Available descriptors are listed
-        * under this enum.
-        */
-        enum DESCR_TYPE
-        {
-            _SimpleCMODescriptor
-        };
-
-        /*
-        * Abstract class which defines the interface
-        * to be followed by any subclass intending
-        * to implement a specific array descriptor.
-        */
-        class Descriptor {
-
-            public:
-
-                virtual ~Descriptor() {}
-
-                /*
-                * Factory method which creates
-                * new descriptors and returns a
-                * pointer to it. It accepts one of
-                * the members DESCR_TYPE enum
-                * to create a new descriptor.
-                */
-                static
-                std::unique_ptr<Descriptor>
-                get_descriptor(
-                    llvm::LLVMContext& context,
-                    llvm::IRBuilder<>* builder,
-                    LLVMUtils* llvm_utils,
-                    DESCR_TYPE descr_type);
-
-                /*
-                * Checks whether the given ASR::ttype_t* is an
-                * array and follows the same structure as
-                * the current descriptor.
-                */
-                virtual
-                bool is_array(ASR::ttype_t* asr_type) = 0;
-
-                /*
-                * Converts a given array llvm::Value*
-                * into an argument of the specified type.
-                */
-                virtual
-                llvm::Value* convert_to_argument(llvm::Value* tmp,
-                    ASR::ttype_t* asr_arg_type, llvm::Type* arg_type,
-                    bool data_only=false) = 0;
-
-                /*
-                * Returns the type of the argument to be
-                * used in LLVM functions for passing an array
-                * following the current descriptor structure.
-                */
-                virtual
-                llvm::Type* get_argument_type(llvm::Type* type,
-                    std::uint32_t, std::string,
-                    std::unordered_map
-                    <std::uint32_t, std::unordered_map
-                                    <std::string, llvm::Type*>>&
-                                    arr_arg_type_cache) = 0;
-
-                /*
-                * Creates an array llvm::Type* following
-                * the same structure as the current descriptor.
-                * Uses element type, kind, rank and dimensions
-                * to create the array llvm::Type*.
-                */
-                virtual
-                llvm::Type* get_array_type(
-                    ASR::ttype_t* m_type_,
-                    llvm::Type* el_type,
-                    bool get_pointer=false) = 0;
-
-                /*
-                * Same as get_array_type but for allocatable
-                * arrays. It doesn't require dimensions for
-                * creating array llvm::Type*.
-                */
-                virtual
-                llvm::Type* get_malloc_array_type(
-                    ASR::ttype_t* m_type_,
-                    llvm::Type* el_type,
-                    bool get_pointer=false) = 0;
-
-                /*
-                * Creates an array of dimension descriptors
-                * whose each element describes structure
-                * of a dimension's information.
-                */
-                virtual
-                llvm::Type* create_dimension_descriptor_array_type() = 0;
-
-                /*
-                * Fills the elements of the input array descriptor
-                * for arrays on stack memory.
-                */
-                virtual
-                void fill_array_details(
-                    llvm::Value* arr, llvm::Type* llvm_data_type, int n_dims,
-                    std::vector<std::pair<llvm::Value*, llvm::Value*>>& llvm_dims) = 0;
-
-                /*
-                * Fills the elements of the input array descriptor
-                * for allocatable arrays.
-                */
-                virtual
-                void fill_malloc_array_details(
-                    llvm::Value* arr, llvm::Type* llvm_data_type, int n_dims,
-                    std::vector<std::pair<llvm::Value*, llvm::Value*>>& llvm_dims,
-                    llvm::Module* module) = 0;
-
-                virtual
-                void fill_dimension_descriptor(
-                    llvm::Value* arr, int n_dims) = 0;
-
-                /*
-                * Returns the llvm::Type* associated with the
-                * dimension descriptor used by the current class.
-                */
-                virtual
-                llvm::Type* get_dimension_descriptor_type(bool get_pointer=false) = 0;
-
-                /*
-                * Returns pointer to data in the input
-                * array descriptor according to the rules
-                * implemented by current class.
-                */
-                virtual
-                llvm::Value* get_pointer_to_data(llvm::Value* arr) = 0;
-
-                /*
-                * Returns offset in the input
-                * array descriptor according to the rules
-                * implemented by current class).
-                */
-                virtual
-                llvm::Value* get_offset(llvm::Value* dim_des) = 0;
-
-                /*
-                * Returns lower bound in the input
-                * dimension descriptor according to the rules
-                * implemented by current class).
-                */
-                virtual
-                llvm::Value* get_lower_bound(llvm::Value* dim_des, bool load=true) = 0;
-
-                /*
-                * Returns upper bound in the input
-                * dimension descriptor according to the rules
-                * implemented by current class.
-                */
-                virtual
-                llvm::Value* get_upper_bound(llvm::Value* dim_des) = 0;
-
-                /*
-                * Returns stride in the input
-                * dimension descriptor according to the rules
-                * implemented by current class.
-                */
-                virtual
-                llvm::Value* get_stride(llvm::Value* dim_des) = 0;
-
-                /*
-                * Returns dimension size in the input
-                * dimension descriptor according to the rules
-                * implemented by current class.
-                */
-                virtual
-                llvm::Value* get_dimension_size(llvm::Value* dim_des_arr,
-                    llvm::Value* dim, bool load=true) = 0;
-
-                virtual
-                llvm::Value* get_rank(llvm::Value* arr, bool get_pointer=false) = 0;
-
-                virtual
-                void set_rank(llvm::Value* arr, llvm::Value* rank) = 0;
-
-                /*
-                * Returns pointer to dimension descriptor array
-                * in the input array descriptor according to the rules
-                * implemented by current class.
-                */
-                virtual
-                llvm::Value* get_pointer_to_dimension_descriptor_array(llvm::Value* arr, bool load=true) = 0;
-
-                /*
-                * Returns pointer to the dimension descriptor
-                * in the input dimension descriptor array according
-                * to the rules implemented by current class.
-                */
-                virtual
-                llvm::Value* get_pointer_to_dimension_descriptor(llvm::Value* dim_des_arr,
-                    llvm::Value* dim) = 0;
-
-                /*
-                * Returns the indexed element
-                * in the input dimension descriptor array according
-                * to the rules implemented by current class.
-                */
-                virtual
-                llvm::Value* get_single_element(llvm::Value* array,
-                    std::vector<llvm::Value*>& m_args, int n_args,
-                    bool data_only=false, bool is_fixed_size=false,
-                    llvm::Value** llvm_diminfo=nullptr) = 0;
-
-                virtual
-                llvm::Value* get_is_allocated_flag(llvm::Value* array) = 0;
-
-                virtual
-                void set_is_allocated_flag(llvm::Value* array, uint64_t status) = 0;
-
-                virtual
-                llvm::Value* reshape(llvm::Value* array, llvm::Type* llvm_data_type,
-                                     llvm::Value* shape, ASR::ttype_t* asr_shape_type,
-                                     llvm::Module* module) = 0;
-
-                virtual
-                void copy_array(llvm::Value* src, llvm::Value* dest,
-                                llvm::Module* module, ASR::ttype_t* asr_data_type,
-                                bool create_dim_des_array, bool reserve_memory) = 0;
-
-                virtual
-                void copy_array_data_only(llvm::Value* src, llvm::Value* dest,
-                                          llvm::Module* module, ASR::ttype_t* asr_data_type,
-                                          llvm::Value* num_elements) = 0;
-
-                virtual
-                llvm::Value* get_array_size(llvm::Value* array, llvm::Value* dim,
-                                            int output_kind, int dim_kind=4) = 0;
-
-        };
-
-        class SimpleCMODescriptor: public Descriptor {
-
-            private:
-
-                llvm::LLVMContext& context;
-                LLVMUtils* llvm_utils;
-                llvm::IRBuilder<>* builder;
-
-                llvm::StructType* dim_des;
-
-                std::map<std::string, std::pair<llvm::StructType*, llvm::Type*>> tkr2array;
-
-                llvm::Value* cmo_convertor_single_element(
-                    llvm::Value* arr, std::vector<llvm::Value*>& m_args,
-                    int n_args, bool check_for_bounds);
-
-                llvm::Value* cmo_convertor_single_element_data_only(
-                    llvm::Value** llvm_diminfo, std::vector<llvm::Value*>& m_args,
-                    int n_args, bool check_for_bounds);
-
-            public:
-
-                SimpleCMODescriptor(llvm::LLVMContext& _context,
-                    llvm::IRBuilder<>* _builder,
-                    LLVMUtils* _llvm_utils);
-
-                virtual
-                bool is_array(ASR::ttype_t* asr_type);
-
-                virtual
-                llvm::Value* convert_to_argument(llvm::Value* tmp,
-                    ASR::ttype_t* asr_arg_type, llvm::Type* arg_type,
-                    bool data_only=false);
-
-                virtual
-                llvm::Type* get_argument_type(llvm::Type* type,
-                    std::uint32_t m_h, std::string arg_name,
-                    std::unordered_map
-                    <std::uint32_t, std::unordered_map
-                                    <std::string, llvm::Type*>>&
-                        arr_arg_type_cache);
-
-                virtual
-                llvm::Type* get_array_type(
-                    ASR::ttype_t* m_type_,
-                    llvm::Type* el_type,
-                    bool get_pointer=false);
-
-                virtual
-                llvm::Type* get_malloc_array_type(
-                    ASR::ttype_t* m_type_,
-                    llvm::Type* el_type,
-                    bool get_pointer=false);
-
-                virtual
-                llvm::Type* create_dimension_descriptor_array_type();
-
-                virtual
-                void fill_array_details(
-                    llvm::Value* arr, llvm::Type* llvm_data_type, int n_dims,
-                    std::vector<std::pair<llvm::Value*, llvm::Value*>>& llvm_dims);
-
-                virtual
-                void fill_malloc_array_details(
-                    llvm::Value* arr, llvm::Type* llvm_data_type, int n_dims,
-                    std::vector<std::pair<llvm::Value*, llvm::Value*>>& llvm_dims,
-                    llvm::Module* module);
-
-                virtual
-                void fill_dimension_descriptor(
-                    llvm::Value* arr, int n_dims);
-
-                virtual
-                llvm::Type* get_dimension_descriptor_type(bool get_pointer=false);
-
-                virtual
-                llvm::Value* get_pointer_to_data(llvm::Value* arr);
-
-                virtual
-                llvm::Value* get_rank(llvm::Value* arr, bool get_pointer=false);
-
-                virtual
-                void set_rank(llvm::Value* arr, llvm::Value* rank);
-
-                virtual
-                llvm::Value* get_offset(llvm::Value* dim_des);
-
-                virtual
-                llvm::Value* get_lower_bound(llvm::Value* dim_des, bool load=true);
-
-                virtual
-                llvm::Value* get_upper_bound(llvm::Value* dim_des);
-
-                virtual
-                llvm::Value* get_dimension_size(llvm::Value* dim_des_arr,
-                    llvm::Value* dim, bool load=true);
-
-                virtual
-                llvm::Value* get_pointer_to_dimension_descriptor_array(llvm::Value* arr, bool load=true);
-
-                virtual
-                llvm::Value* get_pointer_to_dimension_descriptor(llvm::Value* dim_des_arr,
-                    llvm::Value* dim);
-
-                virtual
-                llvm::Value* get_stride(llvm::Value* dim_des);
-
-                virtual
-                llvm::Value* get_single_element(llvm::Value* array,
-                    std::vector<llvm::Value*>& m_args, int n_args,
-                    bool data_only=false, bool is_fixed_size=false,
-                    llvm::Value** llvm_diminfo=nullptr);
-
-                virtual
-                llvm::Value* get_is_allocated_flag(llvm::Value* array);
-
-                virtual
-                void set_is_allocated_flag(llvm::Value* array, uint64_t status);
-
-                virtual
-                llvm::Value* reshape(llvm::Value* array, llvm::Type* llvm_data_type,
-                                     llvm::Value* shape, ASR::ttype_t* asr_shape_type,
-                                     llvm::Module* module);
-
-                virtual
-                void copy_array(llvm::Value* src, llvm::Value* dest,
-                                llvm::Module* module, ASR::ttype_t* asr_data_type,
-                                bool create_dim_des_array, bool reserve_memory);
-
-                virtual
-                void copy_array_data_only(llvm::Value* src, llvm::Value* dest,
-                                          llvm::Module* module, ASR::ttype_t* asr_data_type,
-                                          llvm::Value* num_elements);
-
-                virtual
-                llvm::Value* get_array_size(llvm::Value* array, llvm::Value* dim,
-                                            int output_kind, int dim_kind=4);
-
-        };
-
-    } // LLVMArrUtils
-
-} // namespace LCompilers
-
-#endif // LFORTRAN_LLVM_ARR_UTILS_H
diff --git a/src/libasr/codegen/llvm_utils.cpp b/src/libasr/codegen/llvm_utils.cpp
deleted file mode 100644
index bc790d5974..0000000000
--- a/src/libasr/codegen/llvm_utils.cpp
+++ /dev/null
@@ -1,2700 +0,0 @@
-#include <libasr/assert.h>
-#include <libasr/codegen/llvm_utils.h>
-#include <libasr/codegen/llvm_array_utils.h>
-#include <libasr/asr_utils.h>
-
-namespace LCompilers {
-
-    namespace LLVM {
-
-        llvm::Value* CreateLoad(llvm::IRBuilder<> &builder, llvm::Value *x) {
-            llvm::Type *t = x->getType();
-            LCOMPILERS_ASSERT(t->isPointerTy());
-            llvm::Type *t2 = t->getContainedType(0);
-            return builder.CreateLoad(t2, x);
-        }
-
-        llvm::Value* CreateStore(llvm::IRBuilder<> &builder, llvm::Value *x, llvm::Value *y) {
-            LCOMPILERS_ASSERT(y->getType()->isPointerTy());
-            return builder.CreateStore(x, y);
-        }
-
-
-        llvm::Value* CreateGEP(llvm::IRBuilder<> &builder, llvm::Value *x, std::vector<llvm::Value *> &idx) {
-            llvm::Type *t = x->getType();
-            LCOMPILERS_ASSERT(t->isPointerTy());
-            llvm::Type *t2 = t->getContainedType(0);
-            return builder.CreateGEP(t2, x, idx);
-        }
-
-        llvm::Value* CreateInBoundsGEP(llvm::IRBuilder<> &builder, llvm::Value *x, std::vector<llvm::Value *> &idx) {
-            llvm::Type *t = x->getType();
-            LCOMPILERS_ASSERT(t->isPointerTy());
-            llvm::Type *t2 = t->getContainedType(0);
-            return builder.CreateInBoundsGEP(t2, x, idx);
-        }
-
-        llvm::Value* lfortran_malloc(llvm::LLVMContext &context, llvm::Module &module,
-                llvm::IRBuilder<> &builder, llvm::Value* arg_size) {
-            std::string func_name = "_lfortran_malloc";
-            llvm::Function *fn = module.getFunction(func_name);
-            if (!fn) {
-                llvm::FunctionType *function_type = llvm::FunctionType::get(
-                        llvm::Type::getInt8PtrTy(context), {
-                            llvm::Type::getInt32Ty(context)
-                        }, true);
-                fn = llvm::Function::Create(function_type,
-                        llvm::Function::ExternalLinkage, func_name, module);
-            }
-            std::vector<llvm::Value*> args = {arg_size};
-            return builder.CreateCall(fn, args);
-        }
-
-        llvm::Value* lfortran_calloc(llvm::LLVMContext &context, llvm::Module &module,
-                llvm::IRBuilder<> &builder, llvm::Value* count, llvm::Value* type_size) {
-            std::string func_name = "_lfortran_calloc";
-            llvm::Function *fn = module.getFunction(func_name);
-            if (!fn) {
-                llvm::FunctionType *function_type = llvm::FunctionType::get(
-                        llvm::Type::getInt8PtrTy(context), {
-                            llvm::Type::getInt32Ty(context),
-                            llvm::Type::getInt32Ty(context)
-                        }, true);
-                fn = llvm::Function::Create(function_type,
-                        llvm::Function::ExternalLinkage, func_name, module);
-            }
-            std::vector<llvm::Value*> args = {count, type_size};
-            return builder.CreateCall(fn, args);
-        }
-
-        llvm::Value* lfortran_realloc(llvm::LLVMContext &context, llvm::Module &module,
-                llvm::IRBuilder<> &builder, llvm::Value* ptr, llvm::Value* arg_size) {
-            std::string func_name = "_lfortran_realloc";
-            llvm::Function *fn = module.getFunction(func_name);
-            if (!fn) {
-                llvm::FunctionType *function_type = llvm::FunctionType::get(
-                        llvm::Type::getInt8PtrTy(context), {
-                            llvm::Type::getInt8PtrTy(context),
-                            llvm::Type::getInt32Ty(context)
-                        }, true);
-                fn = llvm::Function::Create(function_type,
-                        llvm::Function::ExternalLinkage, func_name, module);
-            }
-            std::vector<llvm::Value*> args = {
-                builder.CreateBitCast(ptr, llvm::Type::getInt8PtrTy(context)),
-                arg_size
-            };
-            return builder.CreateCall(fn, args);
-        }
-
-        llvm::Value* lfortran_free(llvm::LLVMContext &context, llvm::Module &module,
-                                   llvm::IRBuilder<> &builder, llvm::Value* ptr) {
-            std::string func_name = "_lfortran_free";
-            llvm::Function *fn = module.getFunction(func_name);
-            if (!fn) {
-                llvm::FunctionType *function_type = llvm::FunctionType::get(
-                        llvm::Type::getVoidTy(context), {
-                            llvm::Type::getInt8PtrTy(context)
-                        }, true);
-                fn = llvm::Function::Create(function_type,
-                        llvm::Function::ExternalLinkage, func_name, module);
-            }
-            std::vector<llvm::Value*> args = {
-                builder.CreateBitCast(ptr, llvm::Type::getInt8PtrTy(context)),
-            };
-            return builder.CreateCall(fn, args);
-        }
-    } // namespace LLVM
-
-    LLVMUtils::LLVMUtils(llvm::LLVMContext& context,
-        llvm::IRBuilder<>* _builder):
-        context(context),
-        builder(std::move(_builder)),
-        str_cmp_itr(nullptr),
-        are_iterators_set(false) {
-        }
-
-    llvm::Value* LLVMUtils::create_gep(llvm::Value* ds, int idx) {
-        std::vector<llvm::Value*> idx_vec = {
-        llvm::ConstantInt::get(context, llvm::APInt(32, 0)),
-        llvm::ConstantInt::get(context, llvm::APInt(32, idx))};
-        return LLVM::CreateGEP(*builder, ds, idx_vec);
-    }
-
-    llvm::Value* LLVMUtils::create_gep(llvm::Value* ds, llvm::Value* idx) {
-        std::vector<llvm::Value*> idx_vec = {
-        llvm::ConstantInt::get(context, llvm::APInt(32, 0)),
-        idx};
-        return LLVM::CreateGEP(*builder, ds, idx_vec);
-    }
-
-    llvm::Value* LLVMUtils::create_ptr_gep(llvm::Value* ptr, int idx) {
-        std::vector<llvm::Value*> idx_vec = {
-        llvm::ConstantInt::get(context, llvm::APInt(32, idx))};
-        return LLVM::CreateInBoundsGEP(*builder, ptr, idx_vec);
-    }
-
-    llvm::Value* LLVMUtils::create_ptr_gep(llvm::Value* ptr, llvm::Value* idx) {
-        std::vector<llvm::Value*> idx_vec = {idx};
-        return LLVM::CreateInBoundsGEP(*builder, ptr, idx_vec);
-    }
-
-    llvm::Type* LLVMUtils::getIntType(int a_kind, bool get_pointer) {
-        llvm::Type* type_ptr = nullptr;
-        if( get_pointer ) {
-            switch(a_kind)
-            {
-                case 1:
-                    type_ptr = llvm::Type::getInt8PtrTy(context);
-                    break;
-                case 2:
-                    type_ptr = llvm::Type::getInt16PtrTy(context);
-                    break;
-                case 4:
-                    type_ptr = llvm::Type::getInt32PtrTy(context);
-                    break;
-                case 8:
-                    type_ptr = llvm::Type::getInt64PtrTy(context);
-                    break;
-                default:
-                    LCOMPILERS_ASSERT(false);
-            }
-        } else {
-            switch(a_kind)
-            {
-                case 1:
-                    type_ptr = llvm::Type::getInt8Ty(context);
-                    break;
-                case 2:
-                    type_ptr = llvm::Type::getInt16Ty(context);
-                    break;
-                case 4:
-                    type_ptr = llvm::Type::getInt32Ty(context);
-                    break;
-                case 8:
-                    type_ptr = llvm::Type::getInt64Ty(context);
-                    break;
-                default:
-                    LCOMPILERS_ASSERT(false);
-            }
-        }
-        return type_ptr;
-    }
-
-    void LLVMUtils::start_new_block(llvm::BasicBlock *bb) {
-        llvm::BasicBlock *last_bb = builder->GetInsertBlock();
-        llvm::Function *fn = last_bb->getParent();
-        llvm::Instruction *block_terminator = last_bb->getTerminator();
-        if (block_terminator == nullptr) {
-            // The previous block is not terminated --- terminate it by jumping
-            // to our new block
-            builder->CreateBr(bb);
-        }
-        fn->getBasicBlockList().push_back(bb);
-        builder->SetInsertPoint(bb);
-    }
-
-    void LLVMUtils::set_iterators() {
-        if( are_iterators_set ) {
-            return ;
-        }
-        str_cmp_itr = builder->CreateAlloca(llvm::Type::getInt32Ty(context), nullptr, "str_cmp_itr");
-        LLVM::CreateStore(*builder, llvm::ConstantInt::get(llvm::Type::getInt32Ty(context),
-            llvm::APInt(32, 0)), str_cmp_itr);
-        are_iterators_set = true;
-    }
-
-    void LLVMUtils::reset_iterators() {
-        str_cmp_itr = nullptr;
-        are_iterators_set = false;
-    }
-
-    llvm::Value* LLVMUtils::lfortran_str_cmp(llvm::Value* left_arg, llvm::Value* right_arg,
-                                             std::string runtime_func_name, llvm::Module& module)
-    {
-        llvm::Type* character_type = llvm::Type::getInt8PtrTy(context);
-        llvm::Function *fn = module.getFunction(runtime_func_name);
-        if(!fn) {
-            llvm::FunctionType *function_type = llvm::FunctionType::get(
-                    llvm::Type::getInt1Ty(context), {
-                        character_type->getPointerTo(),
-                        character_type->getPointerTo()
-                    }, false);
-            fn = llvm::Function::Create(function_type,
-                    llvm::Function::ExternalLinkage, runtime_func_name, module);
-        }
-        llvm::AllocaInst *pleft_arg = builder->CreateAlloca(character_type, nullptr);
-        LLVM::CreateStore(*builder, left_arg, pleft_arg);
-        llvm::AllocaInst *pright_arg = builder->CreateAlloca(character_type, nullptr);
-        LLVM::CreateStore(*builder, right_arg, pright_arg);
-        std::vector<llvm::Value*> args = {pleft_arg, pright_arg};
-        return builder->CreateCall(fn, args);
-    }
-
-    llvm::Value* LLVMUtils::is_equal_by_value(llvm::Value* left, llvm::Value* right,
-                                              llvm::Module& module, ASR::ttype_t* asr_type) {
-        switch( asr_type->type ) {
-            case ASR::ttypeType::Integer: {
-                return builder->CreateICmpEQ(left, right);
-            }
-            case ASR::ttypeType::Logical: {
-                return builder->CreateICmpEQ(left, right);
-            }
-            case ASR::ttypeType::Real: {
-                return builder->CreateFCmpOEQ(left, right);
-            }
-            case ASR::ttypeType::Character: {
-                if( !are_iterators_set ) {
-                    str_cmp_itr = builder->CreateAlloca(llvm::Type::getInt32Ty(context), nullptr);
-                }
-                llvm::Value* null_char = llvm::ConstantInt::get(llvm::Type::getInt8Ty(context),
-                                                            llvm::APInt(8, '\0'));
-                llvm::Value* idx = str_cmp_itr;
-                LLVM::CreateStore(*builder,
-                    llvm::ConstantInt::get(llvm::Type::getInt32Ty(context), llvm::APInt(32, 0)),
-                    idx);
-                llvm::BasicBlock *loophead = llvm::BasicBlock::Create(context, "loop.head");
-                llvm::BasicBlock *loopbody = llvm::BasicBlock::Create(context, "loop.body");
-                llvm::BasicBlock *loopend = llvm::BasicBlock::Create(context, "loop.end");
-
-                // head
-                start_new_block(loophead);
-                {
-                    llvm::Value* i = LLVM::CreateLoad(*builder, idx);
-                    llvm::Value* l = LLVM::CreateLoad(*builder, create_ptr_gep(left, i));
-                    llvm::Value* r = LLVM::CreateLoad(*builder, create_ptr_gep(right, i));
-                    llvm::Value *cond = builder->CreateAnd(
-                        builder->CreateICmpNE(l, null_char),
-                        builder->CreateICmpNE(r, null_char)
-                    );
-                    cond = builder->CreateAnd(cond, builder->CreateICmpEQ(l, r));
-                    builder->CreateCondBr(cond, loopbody, loopend);
-                }
-
-                // body
-                start_new_block(loopbody);
-                {
-                    llvm::Value* i = LLVM::CreateLoad(*builder, idx);
-                    i = builder->CreateAdd(i, llvm::ConstantInt::get(llvm::Type::getInt32Ty(context),
-                                            llvm::APInt(32, 1)));
-                    LLVM::CreateStore(*builder, i, idx);
-                }
-
-                builder->CreateBr(loophead);
-
-                // end
-                start_new_block(loopend);
-                llvm::Value* i = LLVM::CreateLoad(*builder, idx);
-                llvm::Value* l = LLVM::CreateLoad(*builder, create_ptr_gep(left, i));
-                llvm::Value* r = LLVM::CreateLoad(*builder, create_ptr_gep(right, i));
-                return builder->CreateICmpEQ(l, r);
-            }
-            case ASR::ttypeType::Tuple: {
-                ASR::Tuple_t* tuple_type = ASR::down_cast<ASR::Tuple_t>(asr_type);
-                return tuple_api->check_tuple_equality(left, right, tuple_type, context,
-                                                       builder, module);
-            }
-            case ASR::ttypeType::List: {
-                ASR::List_t* list_type = ASR::down_cast<ASR::List_t>(asr_type);
-                return list_api->check_list_equality(left, right, list_type->m_type,
-                                                     context, builder, module);
-            }
-            default: {
-                throw LCompilersException("LLVMUtils::is_equal_by_value isn't implemented for " +
-                                          ASRUtils::type_to_str_python(asr_type));
-            }
-        }
-    }
-
-    void LLVMUtils::deepcopy(llvm::Value* src, llvm::Value* dest,
-                             ASR::ttype_t* asr_type, llvm::Module* module,
-                             std::map<std::string, std::map<std::string, int>>& name2memidx) {
-        switch( asr_type->type ) {
-            case ASR::ttypeType::Integer:
-            case ASR::ttypeType::Real:
-            case ASR::ttypeType::Logical:
-            case ASR::ttypeType::Complex: {
-                if( ASRUtils::is_array(asr_type) ) {
-                    arr_api->copy_array(src, dest, module, asr_type, false, false);
-                } else {
-                    LLVM::CreateStore(*builder, src, dest);
-                }
-                break ;
-            };
-            case ASR::ttypeType::Character:
-            case ASR::ttypeType::CPtr: {
-                LLVM::CreateStore(*builder, src, dest);
-                break ;
-            }
-            case ASR::ttypeType::Tuple: {
-                ASR::Tuple_t* tuple_type = ASR::down_cast<ASR::Tuple_t>(asr_type);
-                tuple_api->tuple_deepcopy(src, dest, tuple_type, module, name2memidx);
-                break ;
-            }
-            case ASR::ttypeType::List: {
-                ASR::List_t* list_type = ASR::down_cast<ASR::List_t>(asr_type);
-                list_api->list_deepcopy(src, dest, list_type, module, name2memidx);
-                break ;
-            }
-            case ASR::ttypeType::Struct: {
-                ASR::Struct_t* struct_t = ASR::down_cast<ASR::Struct_t>(asr_type);
-                ASR::StructType_t* struct_type_t = ASR::down_cast<ASR::StructType_t>(
-                    ASRUtils::symbol_get_past_external(struct_t->m_derived_type));
-                std::string der_type_name = std::string(struct_type_t->m_name);
-                for( auto item: struct_type_t->m_symtab->get_scope() ) {
-                    std::string mem_name = item.first;
-                    int mem_idx = name2memidx[der_type_name][mem_name];
-                    llvm::Value* src_member = create_gep(src, mem_idx);
-                    if( !LLVM::is_llvm_struct(ASRUtils::symbol_type(item.second)) &&
-                        !ASRUtils::is_array(ASRUtils::symbol_type(item.second)) ) {
-                        src_member = LLVM::CreateLoad(*builder, src_member);
-                    }
-                    llvm::Value* dest_member = create_gep(dest, mem_idx);
-                    deepcopy(src_member, dest_member,
-                        ASRUtils::symbol_type(item.second),
-                        module, name2memidx);
-                }
-                break ;
-            }
-            default: {
-                throw LCompilersException("LLVMUtils::deepcopy isn't implemented for " +
-                                          ASRUtils::type_to_str_python(asr_type));
-            }
-        }
-    }
-
-    LLVMList::LLVMList(llvm::LLVMContext& context_,
-        LLVMUtils* llvm_utils_,
-        llvm::IRBuilder<>* builder_):
-        context(context_),
-        llvm_utils(std::move(llvm_utils_)),
-        builder(std::move(builder_)) {}
-
-    LLVMDictInterface::LLVMDictInterface(llvm::LLVMContext& context_,
-        LLVMUtils* llvm_utils_,
-        llvm::IRBuilder<>* builder_):
-        context(context_),
-        llvm_utils(std::move(llvm_utils_)),
-        builder(std::move(builder_)),
-        pos_ptr(nullptr), is_key_matching_var(nullptr),
-        idx_ptr(nullptr), hash_iter(nullptr),
-        hash_value(nullptr), polynomial_powers(nullptr),
-        chain_itr(nullptr), chain_itr_prev(nullptr),
-        old_capacity(nullptr), old_key_value_pairs(nullptr),
-        old_key_mask(nullptr), are_iterators_set(false),
-        is_dict_present_(false) {
-    }
-
-    LLVMDict::LLVMDict(llvm::LLVMContext& context_,
-        LLVMUtils* llvm_utils_,
-        llvm::IRBuilder<>* builder_):
-        LLVMDictInterface(context_, llvm_utils_, builder_) {
-    }
-
-    LLVMDictSeparateChaining::LLVMDictSeparateChaining(
-        llvm::LLVMContext& context_,
-        LLVMUtils* llvm_utils_,
-        llvm::IRBuilder<>* builder_):
-        LLVMDictInterface(context_, llvm_utils_, builder_) {
-    }
-
-    LLVMDictOptimizedLinearProbing::LLVMDictOptimizedLinearProbing(
-        llvm::LLVMContext& context_,
-        LLVMUtils* llvm_utils_,
-        llvm::IRBuilder<>* builder_):
-        LLVMDict(context_, llvm_utils_, builder_) {
-        }
-
-    llvm::Type* LLVMList::get_list_type(llvm::Type* el_type, std::string& type_code,
-                                        int32_t type_size) {
-        if( typecode2listtype.find(type_code) != typecode2listtype.end() ) {
-            return std::get<0>(typecode2listtype[type_code]);
-        }
-        std::vector<llvm::Type*> list_type_vec = {llvm::Type::getInt32Ty(context),
-                                                  llvm::Type::getInt32Ty(context),
-                                                  el_type->getPointerTo()};
-        llvm::StructType* list_desc = llvm::StructType::create(context, list_type_vec, "list");
-        typecode2listtype[type_code] = std::make_tuple(list_desc, type_size, el_type);
-        return list_desc;
-    }
-
-    llvm::Type* LLVMDict::get_dict_type(std::string key_type_code, std::string value_type_code,
-        int32_t key_type_size, int32_t value_type_size,
-        llvm::Type* key_type, llvm::Type* value_type) {
-        is_dict_present_ = true;
-        std::pair<std::string, std::string> llvm_key = std::make_pair(key_type_code, value_type_code);
-        if( typecode2dicttype.find(llvm_key) != typecode2dicttype.end() ) {
-            return std::get<0>(typecode2dicttype[llvm_key]);
-        }
-
-        llvm::Type* key_list_type = llvm_utils->list_api->get_list_type(key_type,
-                                        key_type_code, key_type_size);
-        llvm::Type* value_list_type = llvm_utils->list_api->get_list_type(value_type,
-                                        value_type_code, value_type_size);
-        std::vector<llvm::Type*> dict_type_vec = {llvm::Type::getInt32Ty(context),
-                                                  key_list_type, value_list_type,
-                                                  llvm::Type::getInt8PtrTy(context)};
-        llvm::Type* dict_desc = llvm::StructType::create(context, dict_type_vec, "dict");
-        typecode2dicttype[llvm_key] = std::make_tuple(dict_desc,
-                                        std::make_pair(key_type_size, value_type_size),
-                                        std::make_pair(key_type, value_type));
-        return dict_desc;
-    }
-
-    llvm::Type* LLVMDictSeparateChaining::get_key_value_pair_type(
-        std::string key_type_code, std::string value_type_code) {
-        std::pair<std::string, std::string> llvm_key = std::make_pair(key_type_code, value_type_code);
-        return typecode2kvstruct[llvm_key];
-    }
-
-    llvm::Type* LLVMDictSeparateChaining::get_key_value_pair_type(
-        ASR::ttype_t* key_asr_type, ASR::ttype_t* value_asr_type) {
-        std::string key_type_code = ASRUtils::get_type_code(key_asr_type);
-        std::string value_type_code = ASRUtils::get_type_code(value_asr_type);
-        return get_key_value_pair_type(key_type_code, value_type_code);
-    }
-
-    llvm::Type* LLVMDictSeparateChaining::get_dict_type(
-        std::string key_type_code, std::string value_type_code,
-        int32_t key_type_size, int32_t value_type_size,
-        llvm::Type* key_type, llvm::Type* value_type) {
-        is_dict_present_ = true;
-        std::pair<std::string, std::string> llvm_key = std::make_pair(key_type_code, value_type_code);
-        if( typecode2dicttype.find(llvm_key) != typecode2dicttype.end() ) {
-            return std::get<0>(typecode2dicttype[llvm_key]);
-        }
-
-        std::vector<llvm::Type*> key_value_vec = {key_type, value_type,
-                                                  llvm::Type::getInt8PtrTy(context)};
-        llvm::Type* key_value_pair = llvm::StructType::create(context, key_value_vec, "key_value");
-        std::vector<llvm::Type*> dict_type_vec = {llvm::Type::getInt32Ty(context),
-                                                  llvm::Type::getInt32Ty(context),
-                                                  llvm::Type::getInt32Ty(context),
-                                                  key_value_pair->getPointerTo(),
-                                                  llvm::Type::getInt8PtrTy(context),
-                                                  llvm::Type::getInt1Ty(context)};
-        llvm::Type* dict_desc = llvm::StructType::create(context, dict_type_vec, "dict");
-        typecode2dicttype[llvm_key] = std::make_tuple(dict_desc,
-                                        std::make_pair(key_type_size, value_type_size),
-                                        std::make_pair(key_type, value_type));
-        typecode2kvstruct[llvm_key] = key_value_pair;
-        return dict_desc;
-    }
-
-    llvm::Value* LLVMList::get_pointer_to_list_data(llvm::Value* list) {
-        return llvm_utils->create_gep(list, 2);
-    }
-
-    llvm::Value* LLVMList::get_pointer_to_current_end_point(llvm::Value* list) {
-        return llvm_utils->create_gep(list, 0);
-    }
-
-    llvm::Value* LLVMList::get_pointer_to_current_capacity(llvm::Value* list) {
-        return llvm_utils->create_gep(list, 1);
-    }
-
-    void LLVMList::list_init(std::string& type_code, llvm::Value* list,
-                   llvm::Module& module, int32_t initial_capacity, int32_t n) {
-        if( typecode2listtype.find(type_code) == typecode2listtype.end() ) {
-            throw LCompilersException("list for " + type_code + " not declared yet.");
-        }
-        int32_t type_size = std::get<1>(typecode2listtype[type_code]);
-        llvm::Value* arg_size = llvm::ConstantInt::get(context,
-                                    llvm::APInt(32, type_size * initial_capacity));
-
-        llvm::Value* list_data = LLVM::lfortran_malloc(context, module, *builder,
-                                                       arg_size);
-        llvm::Type* el_type = std::get<2>(typecode2listtype[type_code]);
-        list_data = builder->CreateBitCast(list_data, el_type->getPointerTo());
-        llvm::Value* list_data_ptr = get_pointer_to_list_data(list);
-        builder->CreateStore(list_data, list_data_ptr);
-        llvm::Value* current_end_point = llvm::ConstantInt::get(context, llvm::APInt(32, n));
-        llvm::Value* current_capacity = llvm::ConstantInt::get(context, llvm::APInt(32, initial_capacity));
-        builder->CreateStore(current_end_point, get_pointer_to_current_end_point(list));
-        builder->CreateStore(current_capacity, get_pointer_to_current_capacity(list));
-    }
-
-    void LLVMList::list_init(std::string& type_code, llvm::Value* list,
-                             llvm::Module& module, llvm::Value* initial_capacity,
-                             llvm::Value* n) {
-        if( typecode2listtype.find(type_code) == typecode2listtype.end() ) {
-            throw LCompilersException("list for " + type_code + " not declared yet.");
-        }
-        int32_t type_size = std::get<1>(typecode2listtype[type_code]);
-        llvm::Value* llvm_type_size = llvm::ConstantInt::get(context, llvm::APInt(32, type_size));
-        llvm::Value* arg_size = builder->CreateMul(llvm_type_size, initial_capacity);
-        llvm::Value* list_data = LLVM::lfortran_malloc(context, module, *builder, arg_size);
-
-        llvm::Type* el_type = std::get<2>(typecode2listtype[type_code]);
-        list_data = builder->CreateBitCast(list_data, el_type->getPointerTo());
-        llvm::Value* list_data_ptr = get_pointer_to_list_data(list);
-        builder->CreateStore(list_data, list_data_ptr);
-        builder->CreateStore(n, get_pointer_to_current_end_point(list));
-        builder->CreateStore(initial_capacity, get_pointer_to_current_capacity(list));
-    }
-
-    llvm::Value* LLVMDict::get_key_list(llvm::Value* dict) {
-        return llvm_utils->create_gep(dict, 1);
-    }
-
-    llvm::Value* LLVMDictSeparateChaining::get_pointer_to_key_value_pairs(llvm::Value* dict) {
-        return llvm_utils->create_gep(dict, 3);
-    }
-
-    llvm::Value* LLVMDictSeparateChaining::get_key_list(llvm::Value* /*dict*/) {
-        return nullptr;
-    }
-
-    llvm::Value* LLVMDict::get_value_list(llvm::Value* dict) {
-        return llvm_utils->create_gep(dict, 2);
-    }
-
-    llvm::Value* LLVMDictSeparateChaining::get_value_list(llvm::Value* /*dict*/) {
-        return nullptr;
-    }
-
-    llvm::Value* LLVMDict::get_pointer_to_occupancy(llvm::Value* dict) {
-        return llvm_utils->create_gep(dict, 0);
-    }
-
-    llvm::Value* LLVMDictSeparateChaining::get_pointer_to_occupancy(llvm::Value* dict) {
-        return llvm_utils->create_gep(dict, 0);
-    }
-
-    llvm::Value* LLVMDictSeparateChaining::get_pointer_to_rehash_flag(llvm::Value* dict) {
-        return llvm_utils->create_gep(dict, 5);
-    }
-
-    llvm::Value* LLVMDictSeparateChaining::get_pointer_to_number_of_filled_buckets(llvm::Value* dict) {
-        return llvm_utils->create_gep(dict, 1);
-    }
-
-    llvm::Value* LLVMDict::get_pointer_to_capacity(llvm::Value* dict) {
-        return llvm_utils->list_api->get_pointer_to_current_capacity(
-                    get_value_list(dict));
-    }
-
-    llvm::Value* LLVMDictSeparateChaining::get_pointer_to_capacity(llvm::Value* dict) {
-        return llvm_utils->create_gep(dict, 2);
-    }
-
-    void LLVMDict::dict_init(std::string key_type_code, std::string value_type_code,
-                             llvm::Value* dict, llvm::Module* module, size_t initial_capacity) {
-        llvm::Value* n_ptr = get_pointer_to_occupancy(dict);
-        LLVM::CreateStore(*builder, llvm::ConstantInt::get(llvm::Type::getInt32Ty(context),
-                                                           llvm::APInt(32, 0)), n_ptr);
-        llvm::Value* key_list = get_key_list(dict);
-        llvm::Value* value_list = get_value_list(dict);
-        llvm_utils->list_api->list_init(key_type_code, key_list, *module,
-                                        initial_capacity, initial_capacity);
-        llvm_utils->list_api->list_init(value_type_code, value_list, *module,
-                                        initial_capacity, initial_capacity);
-        llvm::DataLayout data_layout(module);
-        size_t mask_size = data_layout.getTypeAllocSize(llvm::Type::getInt8Ty(context));
-        llvm::Value* llvm_capacity = llvm::ConstantInt::get(llvm::Type::getInt32Ty(context),
-                                            llvm::APInt(32, initial_capacity));
-        llvm::Value* llvm_mask_size = llvm::ConstantInt::get(llvm::Type::getInt32Ty(context),
-                                            llvm::APInt(32, mask_size));
-        llvm::Value* key_mask = LLVM::lfortran_calloc(context, *module, *builder, llvm_capacity,
-                                                      llvm_mask_size);
-        LLVM::CreateStore(*builder, key_mask, get_pointer_to_keymask(dict));
-    }
-
-    void LLVMDictSeparateChaining::dict_init(std::string key_type_code, std::string value_type_code,
-        llvm::Value* dict, llvm::Module* module, size_t initial_capacity) {
-        llvm::Value* llvm_capacity = llvm::ConstantInt::get(llvm::Type::getInt32Ty(context), llvm::APInt(32, initial_capacity + 1));
-        llvm::Value* rehash_flag_ptr = get_pointer_to_rehash_flag(dict);
-        LLVM::CreateStore(*builder, llvm::ConstantInt::get(llvm::Type::getInt1Ty(context), llvm::APInt(1, 1)), rehash_flag_ptr);
-        dict_init_given_initial_capacity(key_type_code, value_type_code, dict, module, llvm_capacity);
-    }
-
-    void LLVMDictSeparateChaining::dict_init_given_initial_capacity(
-        std::string key_type_code, std::string value_type_code,
-        llvm::Value* dict, llvm::Module* module, llvm::Value* llvm_capacity) {
-        llvm::Value* rehash_flag_ptr = get_pointer_to_rehash_flag(dict);
-        llvm::Value* rehash_flag = LLVM::CreateLoad(*builder, rehash_flag_ptr);
-        llvm::Value* llvm_zero = llvm::ConstantInt::get(llvm::Type::getInt32Ty(context), llvm::APInt(32, 0));
-        llvm::Value* occupancy_ptr = get_pointer_to_occupancy(dict);
-        LLVM::CreateStore(*builder, llvm_zero, occupancy_ptr);
-        llvm::Value* num_buckets_filled_ptr = get_pointer_to_number_of_filled_buckets(dict);
-        LLVM::CreateStore(*builder, llvm_zero, num_buckets_filled_ptr);
-
-        llvm::DataLayout data_layout(module);
-        llvm::Type* key_value_pair_type = get_key_value_pair_type(key_type_code, value_type_code);
-        size_t key_value_type_size = data_layout.getTypeAllocSize(key_value_pair_type);
-        llvm::Value* llvm_key_value_size = llvm::ConstantInt::get(llvm::Type::getInt32Ty(context), llvm::APInt(32, key_value_type_size));
-        llvm::Value* malloc_size = builder->CreateMul(llvm_capacity, llvm_key_value_size);
-        llvm::Value* key_value_ptr = LLVM::lfortran_malloc(context, *module, *builder, malloc_size);
-        rehash_flag = builder->CreateAnd(rehash_flag,
-                        builder->CreateICmpNE(key_value_ptr,
-                        llvm::ConstantPointerNull::get(llvm::Type::getInt8PtrTy(context)))
-                    );
-        key_value_ptr = builder->CreateBitCast(key_value_ptr, key_value_pair_type->getPointerTo());
-        LLVM::CreateStore(*builder, key_value_ptr, get_pointer_to_key_value_pairs(dict));
-
-        size_t mask_size = data_layout.getTypeAllocSize(llvm::Type::getInt8Ty(context));
-        llvm::Value* llvm_mask_size = llvm::ConstantInt::get(llvm::Type::getInt32Ty(context),
-                                            llvm::APInt(32, mask_size));
-        llvm::Value* key_mask = LLVM::lfortran_calloc(context, *module, *builder, llvm_capacity,
-                                                      llvm_mask_size);
-        rehash_flag = builder->CreateAnd(rehash_flag,
-                        builder->CreateICmpNE(key_mask,
-                        llvm::ConstantPointerNull::get(llvm::Type::getInt8PtrTy(context)))
-                    );
-        LLVM::CreateStore(*builder, key_mask, get_pointer_to_keymask(dict));
-
-        llvm::Value* capacity_ptr = get_pointer_to_capacity(dict);
-        LLVM::CreateStore(*builder, llvm_capacity, capacity_ptr);
-        LLVM::CreateStore(*builder, rehash_flag, rehash_flag_ptr);
-    }
-
-    void LLVMList::list_deepcopy(llvm::Value* src, llvm::Value* dest,
-        ASR::List_t* list_type, llvm::Module* module,
-        std::map<std::string, std::map<std::string, int>>& name2memidx) {
-        list_deepcopy(src, dest, list_type->m_type, module, name2memidx);
-    }
-
-    void LLVMList::list_deepcopy(llvm::Value* src, llvm::Value* dest,
-                                 ASR::ttype_t* element_type, llvm::Module* module,
-                                 std::map<std::string, std::map<std::string, int>>& name2memidx) {
-        LCOMPILERS_ASSERT(src->getType() == dest->getType());
-        std::string src_type_code = ASRUtils::get_type_code(element_type);
-        llvm::Value* src_end_point = LLVM::CreateLoad(*builder, get_pointer_to_current_end_point(src));
-        llvm::Value* src_capacity = LLVM::CreateLoad(*builder, get_pointer_to_current_capacity(src));
-        llvm::Value* dest_end_point_ptr = get_pointer_to_current_end_point(dest);
-        llvm::Value* dest_capacity_ptr = get_pointer_to_current_capacity(dest);
-        builder->CreateStore(src_end_point, dest_end_point_ptr);
-        builder->CreateStore(src_capacity, dest_capacity_ptr);
-        llvm::Value* src_data = LLVM::CreateLoad(*builder, get_pointer_to_list_data(src));
-        int32_t type_size = std::get<1>(typecode2listtype[src_type_code]);
-        llvm::Value* arg_size = builder->CreateMul(llvm::ConstantInt::get(context,
-                                                   llvm::APInt(32, type_size)), src_capacity);
-        llvm::Value* copy_data = LLVM::lfortran_malloc(context, *module, *builder,
-                                                       arg_size);
-        llvm::Type* el_type = std::get<2>(typecode2listtype[src_type_code]);
-        copy_data = builder->CreateBitCast(copy_data, el_type->getPointerTo());
-
-        // We consider the case when the element type of a list is defined by a struct
-        // which may also contain non-trivial structs (such as in case of list[list[f64]],
-        // list[tuple[f64]]). We need to make sure that all the data inside those structs
-        // is deepcopied and not just the address of the first element of those structs.
-        // Hence we dive deeper into the lowest level of nested types and deepcopy everything
-        // properly. If we don't consider this case then the data only from first level of nested types
-        // will be deep copied and rest will be shallow copied. The importance of this case
-        // can be figured out by goind through, integration_tests/test_list_06.py and
-        // integration_tests/test_list_07.py.
-        if( LLVM::is_llvm_struct(element_type) ) {
-            builder->CreateStore(copy_data, get_pointer_to_list_data(dest));
-            // TODO: Should be created outside the user loop and not here.
-            // LLVMList should treat them as data members and create them
-            // only if they are NULL
-            llvm::AllocaInst *pos_ptr = builder->CreateAlloca(llvm::Type::getInt32Ty(context),
-                                                              nullptr);
-            LLVM::CreateStore(*builder, llvm::ConstantInt::get(llvm::Type::getInt32Ty(context),
-                                                               llvm::APInt(32, 0)), pos_ptr);
-
-            llvm::BasicBlock *loophead = llvm::BasicBlock::Create(context, "loop.head");
-            llvm::BasicBlock *loopbody = llvm::BasicBlock::Create(context, "loop.body");
-            llvm::BasicBlock *loopend = llvm::BasicBlock::Create(context, "loop.end");
-
-            // head
-            llvm_utils->start_new_block(loophead);
-            {
-                llvm::Value *cond = builder->CreateICmpSGT(
-                                            src_end_point,
-                                            LLVM::CreateLoad(*builder, pos_ptr));
-                builder->CreateCondBr(cond, loopbody, loopend);
-            }
-
-            // body
-            llvm_utils->start_new_block(loopbody);
-            {
-                llvm::Value* pos = LLVM::CreateLoad(*builder, pos_ptr);
-                llvm::Value* srci = read_item(src, pos, false, *module, true);
-                llvm::Value* desti = read_item(dest, pos, false, *module, true);
-                llvm_utils->deepcopy(srci, desti, element_type, module, name2memidx);
-                llvm::Value* tmp = builder->CreateAdd(
-                            pos,
-                            llvm::ConstantInt::get(context, llvm::APInt(32, 1)));
-                LLVM::CreateStore(*builder, tmp, pos_ptr);
-            }
-
-            builder->CreateBr(loophead);
-
-            // end
-            llvm_utils->start_new_block(loopend);
-        } else {
-            builder->CreateMemCpy(copy_data, llvm::MaybeAlign(), src_data,
-                                  llvm::MaybeAlign(), arg_size);
-            builder->CreateStore(copy_data, get_pointer_to_list_data(dest));
-        }
-    }
-
-    void LLVMDict::dict_deepcopy(llvm::Value* src, llvm::Value* dest,
-                                 ASR::Dict_t* dict_type, llvm::Module* module,
-                                 std::map<std::string, std::map<std::string, int>>& name2memidx) {
-        LCOMPILERS_ASSERT(src->getType() == dest->getType());
-        llvm::Value* src_occupancy = LLVM::CreateLoad(*builder, get_pointer_to_occupancy(src));
-        llvm::Value* dest_occupancy_ptr = get_pointer_to_occupancy(dest);
-        LLVM::CreateStore(*builder, src_occupancy, dest_occupancy_ptr);
-
-        llvm::Value* src_key_list = get_key_list(src);
-        llvm::Value* dest_key_list = get_key_list(dest);
-        llvm_utils->list_api->list_deepcopy(src_key_list, dest_key_list,
-                                            dict_type->m_key_type, module,
-                                            name2memidx);
-
-        llvm::Value* src_value_list = get_value_list(src);
-        llvm::Value* dest_value_list = get_value_list(dest);
-        llvm_utils->list_api->list_deepcopy(src_value_list, dest_value_list,
-                                            dict_type->m_value_type, module, name2memidx);
-
-        llvm::Value* src_key_mask = LLVM::CreateLoad(*builder, get_pointer_to_keymask(src));
-        llvm::Value* dest_key_mask_ptr = get_pointer_to_keymask(dest);
-        llvm::DataLayout data_layout(module);
-        size_t mask_size = data_layout.getTypeAllocSize(llvm::Type::getInt8Ty(context));
-        llvm::Value* llvm_mask_size = llvm::ConstantInt::get(llvm::Type::getInt32Ty(context),
-                                            llvm::APInt(32, mask_size));
-        llvm::Value* src_capacity = LLVM::CreateLoad(*builder, get_pointer_to_capacity(src));
-        llvm::Value* dest_key_mask = LLVM::lfortran_calloc(context, *module, *builder, src_capacity,
-                                                      llvm_mask_size);
-        builder->CreateMemCpy(dest_key_mask, llvm::MaybeAlign(), src_key_mask,
-                              llvm::MaybeAlign(), builder->CreateMul(src_capacity, llvm_mask_size));
-        LLVM::CreateStore(*builder, dest_key_mask, dest_key_mask_ptr);
-    }
-
-    void LLVMDictSeparateChaining::deepcopy_key_value_pair_linked_list(
-        llvm::Value* srci, llvm::Value* desti, llvm::Value* dest_key_value_pairs,
-        llvm::Value* src_capacity, ASR::Dict_t* dict_type, llvm::Module* module,
-        std::map<std::string, std::map<std::string, int>>& name2memidx) {
-        if( !are_iterators_set ) {
-            src_itr = builder->CreateAlloca(llvm::Type::getInt8PtrTy(context), nullptr);
-            dest_itr = builder->CreateAlloca(llvm::Type::getInt8PtrTy(context), nullptr);
-            next_ptr = builder->CreateAlloca(llvm::Type::getInt32Ty(context), nullptr);
-        }
-        llvm::Type* key_value_pair_type = get_key_value_pair_type(dict_type->m_key_type, dict_type->m_value_type)->getPointerTo();
-        LLVM::CreateStore(*builder,
-            builder->CreateBitCast(srci, llvm::Type::getInt8PtrTy(context)),
-            src_itr);
-        LLVM::CreateStore(*builder,
-            builder->CreateBitCast(desti, llvm::Type::getInt8PtrTy(context)),
-            dest_itr);
-        LLVM::CreateStore(*builder, src_capacity, next_ptr);
-        llvm::BasicBlock *loophead = llvm::BasicBlock::Create(context, "loop.head");
-        llvm::BasicBlock *loopbody = llvm::BasicBlock::Create(context, "loop.body");
-        llvm::BasicBlock *loopend = llvm::BasicBlock::Create(context, "loop.end");
-        // head
-        llvm_utils->start_new_block(loophead);
-        {
-            llvm::Value *cond = builder->CreateICmpNE(
-                LLVM::CreateLoad(*builder, src_itr),
-                llvm::ConstantPointerNull::get(llvm::Type::getInt8PtrTy(context))
-            );
-            builder->CreateCondBr(cond, loopbody, loopend);
-        }
-
-        // body
-        llvm_utils->start_new_block(loopbody);
-        {
-            llvm::Value* curr_src = builder->CreateBitCast(LLVM::CreateLoad(*builder, src_itr),
-                key_value_pair_type);
-            llvm::Value* curr_dest = builder->CreateBitCast(LLVM::CreateLoad(*builder, dest_itr),
-                key_value_pair_type);
-            llvm::Value* src_key_ptr = llvm_utils->create_gep(curr_src, 0);
-            llvm::Value* src_value_ptr = llvm_utils->create_gep(curr_src, 1);
-            llvm::Value *src_key = src_key_ptr, *src_value = src_value_ptr;
-            if( !LLVM::is_llvm_struct(dict_type->m_key_type) ) {
-                src_key = LLVM::CreateLoad(*builder, src_key_ptr);
-            }
-            if( !LLVM::is_llvm_struct(dict_type->m_value_type) ) {
-                src_value = LLVM::CreateLoad(*builder, src_value_ptr);
-            }
-            llvm::Value* dest_key_ptr = llvm_utils->create_gep(curr_dest, 0);
-            llvm::Value* dest_value_ptr = llvm_utils->create_gep(curr_dest, 1);
-            llvm_utils->deepcopy(src_key, dest_key_ptr, dict_type->m_key_type, module, name2memidx);
-            llvm_utils->deepcopy(src_value, dest_value_ptr, dict_type->m_value_type, module, name2memidx);
-
-            llvm::Value* src_next_ptr = LLVM::CreateLoad(*builder, llvm_utils->create_gep(curr_src, 2));
-            llvm::Value* curr_dest_next_ptr = llvm_utils->create_gep(curr_dest, 2);
-            LLVM::CreateStore(*builder, src_next_ptr, src_itr);
-            llvm::Function *fn = builder->GetInsertBlock()->getParent();
-            llvm::BasicBlock *thenBB = llvm::BasicBlock::Create(context, "then", fn);
-            llvm::BasicBlock *elseBB = llvm::BasicBlock::Create(context, "else");
-            llvm::BasicBlock *mergeBB = llvm::BasicBlock::Create(context, "ifcont");
-            llvm::Value* src_next_exists = builder->CreateICmpNE(src_next_ptr,
-                llvm::ConstantPointerNull::get(llvm::Type::getInt8PtrTy(context)));
-            builder->CreateCondBr(src_next_exists, thenBB, elseBB);
-            builder->SetInsertPoint(thenBB);
-            {
-                llvm::Value* next_idx = LLVM::CreateLoad(*builder, next_ptr);
-                llvm::Value* dest_next_ptr = llvm_utils->create_ptr_gep(dest_key_value_pairs, next_idx);
-                dest_next_ptr = builder->CreateBitCast(dest_next_ptr, llvm::Type::getInt8PtrTy(context));
-                LLVM::CreateStore(*builder, dest_next_ptr, curr_dest_next_ptr);
-                LLVM::CreateStore(*builder, dest_next_ptr, dest_itr);
-                next_idx = builder->CreateAdd(next_idx, llvm::ConstantInt::get(llvm::Type::getInt32Ty(context),
-                                              llvm::APInt(32, 1)));
-                LLVM::CreateStore(*builder, next_idx, next_ptr);
-            }
-            builder->CreateBr(mergeBB);
-            llvm_utils->start_new_block(elseBB);
-            {
-                LLVM::CreateStore(*builder,
-                    llvm::ConstantPointerNull::get(llvm::Type::getInt8PtrTy(context)),
-                    curr_dest_next_ptr
-                );
-            }
-            llvm_utils->start_new_block(mergeBB);
-        }
-
-        builder->CreateBr(loophead);
-
-        // end
-        llvm_utils->start_new_block(loopend);
-    }
-
-    void LLVMDictSeparateChaining::write_key_value_pair_linked_list(
-        llvm::Value* kv_ll, llvm::Value* dict, llvm::Value* capacity,
-        ASR::ttype_t* m_key_type, ASR::ttype_t* m_value_type, llvm::Module* module,
-        std::map<std::string, std::map<std::string, int>>& name2memidx) {
-        if( !are_iterators_set ) {
-            src_itr = builder->CreateAlloca(llvm::Type::getInt8PtrTy(context), nullptr);
-        }
-        llvm::Type* key_value_pair_type = get_key_value_pair_type(m_key_type, m_value_type)->getPointerTo();
-        LLVM::CreateStore(*builder,
-            builder->CreateBitCast(kv_ll, llvm::Type::getInt8PtrTy(context)),
-            src_itr);
-        llvm::BasicBlock *loophead = llvm::BasicBlock::Create(context, "loop.head");
-        llvm::BasicBlock *loopbody = llvm::BasicBlock::Create(context, "loop.body");
-        llvm::BasicBlock *loopend = llvm::BasicBlock::Create(context, "loop.end");
-        // head
-        llvm_utils->start_new_block(loophead);
-        {
-            llvm::Value *cond = builder->CreateICmpNE(
-                LLVM::CreateLoad(*builder, src_itr),
-                llvm::ConstantPointerNull::get(llvm::Type::getInt8PtrTy(context))
-            );
-            builder->CreateCondBr(cond, loopbody, loopend);
-        }
-
-        // body
-        llvm_utils->start_new_block(loopbody);
-        {
-            llvm::Value* curr_src = builder->CreateBitCast(LLVM::CreateLoad(*builder, src_itr),
-                key_value_pair_type);
-            llvm::Value* src_key_ptr = llvm_utils->create_gep(curr_src, 0);
-            llvm::Value* src_value_ptr = llvm_utils->create_gep(curr_src, 1);
-            llvm::Value *src_key = src_key_ptr, *src_value = src_value_ptr;
-            if( !LLVM::is_llvm_struct(m_key_type) ) {
-                src_key = LLVM::CreateLoad(*builder, src_key_ptr);
-            }
-            if( !LLVM::is_llvm_struct(m_value_type) ) {
-                src_value = LLVM::CreateLoad(*builder, src_value_ptr);
-            }
-            llvm::Value* key_hash = get_key_hash(capacity, src_key, m_key_type, *module);
-            resolve_collision_for_write(
-                dict, key_hash, src_key,
-                src_value, module,
-                m_key_type, m_value_type,
-                name2memidx);
-
-            llvm::Value* src_next_ptr = LLVM::CreateLoad(*builder, llvm_utils->create_gep(curr_src, 2));
-            LLVM::CreateStore(*builder, src_next_ptr, src_itr);
-        }
-
-        builder->CreateBr(loophead);
-
-        // end
-        llvm_utils->start_new_block(loopend);
-    }
-
-    void LLVMDictSeparateChaining::dict_deepcopy(
-        llvm::Value* src, llvm::Value* dest,
-        ASR::Dict_t* dict_type, llvm::Module* module,
-        std::map<std::string, std::map<std::string, int>>& name2memidx) {
-        llvm::Value* src_occupancy = LLVM::CreateLoad(*builder, get_pointer_to_occupancy(src));
-        llvm::Value* src_filled_buckets = LLVM::CreateLoad(*builder, get_pointer_to_number_of_filled_buckets(src));
-        llvm::Value* src_capacity = LLVM::CreateLoad(*builder, get_pointer_to_capacity(src));
-        llvm::Value* src_key_mask = LLVM::CreateLoad(*builder, get_pointer_to_keymask(src));
-        llvm::Value* src_rehash_flag = LLVM::CreateLoad(*builder, get_pointer_to_rehash_flag(src));
-        LLVM::CreateStore(*builder, src_occupancy, get_pointer_to_occupancy(dest));
-        LLVM::CreateStore(*builder, src_filled_buckets, get_pointer_to_number_of_filled_buckets(dest));
-        LLVM::CreateStore(*builder, src_capacity, get_pointer_to_capacity(dest));
-        LLVM::CreateStore(*builder, src_rehash_flag, get_pointer_to_rehash_flag(dest));
-        llvm::DataLayout data_layout(module);
-        size_t mask_size = data_layout.getTypeAllocSize(llvm::Type::getInt8Ty(context));
-        llvm::Value* llvm_mask_size = llvm::ConstantInt::get(llvm::Type::getInt32Ty(context),
-                                            llvm::APInt(32, mask_size));
-        llvm::Value* malloc_size = builder->CreateMul(src_capacity, llvm_mask_size);
-        llvm::Value* dest_key_mask = LLVM::lfortran_malloc(context, *module, *builder, malloc_size);
-        LLVM::CreateStore(*builder, dest_key_mask, get_pointer_to_keymask(dest));
-
-        malloc_size = builder->CreateSub(src_occupancy, src_filled_buckets);
-        malloc_size = builder->CreateAdd(src_capacity, malloc_size);
-        size_t kv_struct_size = data_layout.getTypeAllocSize(get_key_value_pair_type(dict_type->m_key_type,
-                                dict_type->m_value_type));
-        llvm::Value* llvm_kv_struct_size = llvm::ConstantInt::get(llvm::Type::getInt32Ty(context), llvm::APInt(32, kv_struct_size));
-        malloc_size = builder->CreateMul(malloc_size, llvm_kv_struct_size);
-        llvm::Value* dest_key_value_pairs = LLVM::lfortran_malloc(context, *module, *builder, malloc_size);
-        dest_key_value_pairs = builder->CreateBitCast(
-            dest_key_value_pairs,
-            get_key_value_pair_type(dict_type->m_key_type, dict_type->m_value_type)->getPointerTo());
-        if( !are_iterators_set ) {
-            copy_itr = builder->CreateAlloca(llvm::Type::getInt32Ty(context), nullptr);
-        }
-        llvm::Value* llvm_zero = llvm::ConstantInt::get(llvm::Type::getInt32Ty(context), llvm::APInt(32, 0));
-        LLVM::CreateStore(*builder, llvm_zero, copy_itr);
-
-        llvm::Value* src_key_value_pairs = LLVM::CreateLoad(*builder, get_pointer_to_key_value_pairs(src));
-        llvm::BasicBlock *loophead = llvm::BasicBlock::Create(context, "loop.head");
-        llvm::BasicBlock *loopbody = llvm::BasicBlock::Create(context, "loop.body");
-        llvm::BasicBlock *loopend = llvm::BasicBlock::Create(context, "loop.end");
-
-        // head
-        llvm_utils->start_new_block(loophead);
-        {
-            llvm::Value *cond = builder->CreateICmpSGT(
-                                        src_capacity,
-                                        LLVM::CreateLoad(*builder, copy_itr));
-            builder->CreateCondBr(cond, loopbody, loopend);
-        }
-
-        // body
-        llvm_utils->start_new_block(loopbody);
-        {
-            llvm::Value* itr = LLVM::CreateLoad(*builder, copy_itr);
-            llvm::Value* key_mask_value = LLVM::CreateLoad(*builder,
-                llvm_utils->create_ptr_gep(src_key_mask, itr));
-            LLVM::CreateStore(*builder, key_mask_value,
-                llvm_utils->create_ptr_gep(dest_key_mask, itr));
-            llvm::Function *fn = builder->GetInsertBlock()->getParent();
-            llvm::BasicBlock *thenBB = llvm::BasicBlock::Create(context, "then", fn);
-            llvm::BasicBlock *elseBB = llvm::BasicBlock::Create(context, "else");
-            llvm::BasicBlock *mergeBB = llvm::BasicBlock::Create(context, "ifcont");
-            llvm::Value* is_key_set = builder->CreateICmpEQ(key_mask_value,
-                llvm::ConstantInt::get(llvm::Type::getInt8Ty(context), llvm::APInt(8, 1)));
-            builder->CreateCondBr(is_key_set, thenBB, elseBB);
-            builder->SetInsertPoint(thenBB);
-            {
-
-                llvm::Value* srci = llvm_utils->create_ptr_gep(src_key_value_pairs, itr);
-                llvm::Value* desti = llvm_utils->create_ptr_gep(dest_key_value_pairs, itr);
-                deepcopy_key_value_pair_linked_list(srci, desti, dest_key_value_pairs,
-                    src_capacity, dict_type, module, name2memidx);
-            }
-            builder->CreateBr(mergeBB);
-            llvm_utils->start_new_block(elseBB);
-            llvm_utils->start_new_block(mergeBB);
-            llvm::Value* tmp = builder->CreateAdd(
-                        itr,
-                        llvm::ConstantInt::get(context, llvm::APInt(32, 1)));
-            LLVM::CreateStore(*builder, tmp, copy_itr);
-        }
-
-        builder->CreateBr(loophead);
-
-        // end
-        llvm_utils->start_new_block(loopend);
-        LLVM::CreateStore(*builder, dest_key_value_pairs, get_pointer_to_key_value_pairs(dest));
-    }
-
-    void LLVMList::check_index_within_bounds(llvm::Value* list,
-                                    llvm::Value* pos, llvm::Module& module) {
-        llvm::Value* end_point = LLVM::CreateLoad(*builder,
-                                    get_pointer_to_current_end_point(list));
-        llvm::Value* zero = llvm::ConstantInt::get(llvm::Type::getInt32Ty(context),
-                                                   llvm::APInt(32, 0));
-
-        llvm::Function *fn = builder->GetInsertBlock()->getParent();
-        llvm::BasicBlock *thenBB = llvm::BasicBlock::Create(context, "then", fn);
-        llvm::BasicBlock *elseBB = llvm::BasicBlock::Create(context, "else");
-        llvm::BasicBlock *mergeBB = llvm::BasicBlock::Create(context, "ifcont");
-
-        llvm::Value* cond = builder->CreateOr(
-                                builder->CreateICmpSGE(pos, end_point),
-                                builder->CreateICmpSLT(pos, zero));
-        builder->CreateCondBr(cond, thenBB, elseBB);
-        builder->SetInsertPoint(thenBB);
-        {
-            std::string index_error = "IndexError: %s%d%s%d\n",
-            message1 = "List index is out of range. Index range is (0, ",
-            message2 = "), but the given index is ";
-            llvm::Value *fmt_ptr = builder->CreateGlobalStringPtr(index_error);
-            llvm::Value *fmt_ptr1 = builder->CreateGlobalStringPtr(message1);
-            llvm::Value *fmt_ptr2 = builder->CreateGlobalStringPtr(message2);
-            llvm::Value *end_minus_one = builder->CreateSub(end_point,
-                llvm::ConstantInt::get(context, llvm::APInt(32, 1)));
-            print_error(context, module, *builder, {fmt_ptr, fmt_ptr1,
-                end_minus_one, fmt_ptr2, pos});
-            int exit_code_int = 1;
-            llvm::Value *exit_code = llvm::ConstantInt::get(context,
-                    llvm::APInt(32, exit_code_int));
-            exit(context, module, *builder, exit_code);
-        }
-        builder->CreateBr(mergeBB);
-
-        llvm_utils->start_new_block(elseBB);
-        llvm_utils->start_new_block(mergeBB);
-    }
-
-    void LLVMList::write_item(llvm::Value* list, llvm::Value* pos,
-                              llvm::Value* item, ASR::ttype_t* asr_type,
-                              bool enable_bounds_checking, llvm::Module* module,
-                              std::map<std::string, std::map<std::string, int>>& name2memidx) {
-        if( enable_bounds_checking ) {
-            check_index_within_bounds(list, pos, *module);
-        }
-        llvm::Value* list_data = LLVM::CreateLoad(*builder, get_pointer_to_list_data(list));
-        llvm::Value* element_ptr = llvm_utils->create_ptr_gep(list_data, pos);
-        llvm_utils->deepcopy(item, element_ptr, asr_type, module, name2memidx);
-    }
-
-    void LLVMList::write_item(llvm::Value* list, llvm::Value* pos,
-                              llvm::Value* item, bool enable_bounds_checking,
-                              llvm::Module& module) {
-        if( enable_bounds_checking ) {
-            check_index_within_bounds(list, pos, module);
-        }
-        llvm::Value* list_data = LLVM::CreateLoad(*builder, get_pointer_to_list_data(list));
-        llvm::Value* element_ptr = llvm_utils->create_ptr_gep(list_data, pos);
-        LLVM::CreateStore(*builder, item, element_ptr);
-    }
-
-    llvm::Value* LLVMDict::get_pointer_to_keymask(llvm::Value* dict) {
-        return llvm_utils->create_gep(dict, 3);
-    }
-
-    llvm::Value* LLVMDictSeparateChaining::get_pointer_to_keymask(llvm::Value* dict) {
-        return llvm_utils->create_gep(dict, 4);
-    }
-
-    void LLVMDictInterface::set_iterators() {
-        if( are_iterators_set || !is_dict_present_ ) {
-            return ;
-        }
-        llvm_utils->set_iterators();
-        pos_ptr = builder->CreateAlloca(llvm::Type::getInt32Ty(context), nullptr, "pos_ptr");
-        LLVM::CreateStore(*builder, llvm::ConstantInt::get(llvm::Type::getInt32Ty(context),
-            llvm::APInt(32, 0)), pos_ptr);
-        is_key_matching_var = builder->CreateAlloca(llvm::Type::getInt1Ty(context), nullptr,
-                                "is_key_matching_var");
-        LLVM::CreateStore(*builder, llvm::ConstantInt::get(llvm::Type::getInt1Ty(context),
-            llvm::APInt(1, 0)), is_key_matching_var);
-        idx_ptr = builder->CreateAlloca(llvm::Type::getInt32Ty(context), nullptr, "idx_ptr");
-        LLVM::CreateStore(*builder, llvm::ConstantInt::get(llvm::Type::getInt32Ty(context),
-            llvm::APInt(32, 0)), idx_ptr);
-        hash_value = builder->CreateAlloca(llvm::Type::getInt64Ty(context), nullptr, "hash_value");
-        LLVM::CreateStore(*builder, llvm::ConstantInt::get(llvm::Type::getInt64Ty(context),
-            llvm::APInt(64, 0)), hash_value);
-        hash_iter = builder->CreateAlloca(llvm::Type::getInt64Ty(context), nullptr, "hash_iter");
-        LLVM::CreateStore(*builder, llvm::ConstantInt::get(llvm::Type::getInt64Ty(context),
-            llvm::APInt(64, 0)), hash_iter);
-        polynomial_powers = builder->CreateAlloca(llvm::Type::getInt64Ty(context), nullptr, "p_pow");
-        LLVM::CreateStore(*builder, llvm::ConstantInt::get(llvm::Type::getInt64Ty(context),
-            llvm::APInt(64, 1)), polynomial_powers);
-        chain_itr = builder->CreateAlloca(llvm::Type::getInt8PtrTy(context), nullptr);
-        LLVM::CreateStore(*builder,
-            llvm::ConstantPointerNull::get(llvm::Type::getInt8PtrTy(context)), chain_itr);
-        chain_itr_prev = builder->CreateAlloca(llvm::Type::getInt8PtrTy(context), nullptr);
-        LLVM::CreateStore(*builder,
-            llvm::ConstantPointerNull::get(llvm::Type::getInt8PtrTy(context)), chain_itr_prev);
-        old_capacity = builder->CreateAlloca(llvm::Type::getInt32Ty(context), nullptr);
-        LLVM::CreateStore(*builder, llvm::ConstantInt::get(llvm::Type::getInt32Ty(context),
-            llvm::APInt(32, 0)), old_capacity);
-        old_occupancy = builder->CreateAlloca(llvm::Type::getInt32Ty(context), nullptr);
-        LLVM::CreateStore(*builder, llvm::ConstantInt::get(llvm::Type::getInt32Ty(context),
-            llvm::APInt(32, 0)), old_occupancy);
-        old_number_of_buckets_filled = builder->CreateAlloca(llvm::Type::getInt32Ty(context), nullptr);
-        LLVM::CreateStore(*builder, llvm::ConstantInt::get(llvm::Type::getInt32Ty(context),
-            llvm::APInt(32, 0)), old_number_of_buckets_filled);
-        old_key_value_pairs = builder->CreateAlloca(llvm::Type::getInt8PtrTy(context), nullptr);
-        LLVM::CreateStore(*builder,
-            llvm::ConstantPointerNull::get(llvm::Type::getInt8PtrTy(context)), old_key_value_pairs);
-        old_key_mask = builder->CreateAlloca(llvm::Type::getInt8PtrTy(context), nullptr);
-        LLVM::CreateStore(*builder,
-            llvm::ConstantPointerNull::get(llvm::Type::getInt8PtrTy(context)), old_key_mask);
-        src_itr = builder->CreateAlloca(llvm::Type::getInt8PtrTy(context), nullptr);
-        LLVM::CreateStore(*builder,
-            llvm::ConstantPointerNull::get(llvm::Type::getInt8PtrTy(context)), src_itr);
-        dest_itr = builder->CreateAlloca(llvm::Type::getInt8PtrTy(context), nullptr);
-        LLVM::CreateStore(*builder,
-            llvm::ConstantPointerNull::get(llvm::Type::getInt8PtrTy(context)), dest_itr);
-        next_ptr = builder->CreateAlloca(llvm::Type::getInt32Ty(context), nullptr);
-        LLVM::CreateStore(*builder, llvm::ConstantInt::get(llvm::Type::getInt32Ty(context),
-            llvm::APInt(32, 0)), next_ptr);
-        copy_itr = builder->CreateAlloca(llvm::Type::getInt32Ty(context), nullptr);
-        LLVM::CreateStore(*builder, llvm::ConstantInt::get(llvm::Type::getInt32Ty(context),
-            llvm::APInt(32, 0)), copy_itr);
-        tmp_value_ptr = builder->CreateAlloca(llvm::Type::getInt8Ty(context), nullptr);
-        are_iterators_set = true;
-    }
-
-    void LLVMDictInterface::reset_iterators() {
-        llvm_utils->reset_iterators();
-        pos_ptr = nullptr;
-        is_key_matching_var = nullptr;
-        idx_ptr = nullptr;
-        hash_iter = nullptr;
-        hash_value = nullptr;
-        polynomial_powers = nullptr;
-        chain_itr = nullptr;
-        chain_itr_prev = nullptr;
-        old_capacity = nullptr;
-        old_occupancy = nullptr;
-        old_number_of_buckets_filled = nullptr;
-        old_key_value_pairs = nullptr;
-        old_key_mask = nullptr;
-        src_itr = nullptr;
-        dest_itr = nullptr;
-        next_ptr = nullptr;
-        copy_itr = nullptr;
-        tmp_value_ptr = nullptr;
-        are_iterators_set = false;
-    }
-
-    void LLVMDict::resolve_collision(
-        llvm::Value* capacity, llvm::Value* key_hash,
-        llvm::Value* key, llvm::Value* key_list,
-        llvm::Value* key_mask, llvm::Module& module,
-        ASR::ttype_t* key_asr_type, bool for_read) {
-        if( !are_iterators_set ) {
-            pos_ptr = builder->CreateAlloca(llvm::Type::getInt32Ty(context), nullptr);
-            is_key_matching_var = builder->CreateAlloca(llvm::Type::getInt1Ty(context), nullptr);
-        }
-        LLVM::CreateStore(*builder, key_hash, pos_ptr);
-
-
-        llvm::BasicBlock *loophead = llvm::BasicBlock::Create(context, "loop.head");
-        llvm::BasicBlock *loopbody = llvm::BasicBlock::Create(context, "loop.body");
-        llvm::BasicBlock *loopend = llvm::BasicBlock::Create(context, "loop.end");
-
-
-        // head
-        llvm_utils->start_new_block(loophead);
-        {
-            llvm::Value* pos = LLVM::CreateLoad(*builder, pos_ptr);
-            llvm::Value* key_mask_value = LLVM::CreateLoad(*builder,
-                llvm_utils->create_ptr_gep(key_mask, pos));
-            llvm::Value* is_key_skip = builder->CreateICmpEQ(key_mask_value,
-                llvm::ConstantInt::get(llvm::Type::getInt8Ty(context), llvm::APInt(8, 3)));
-            llvm::Value* is_key_set = builder->CreateICmpNE(key_mask_value,
-                llvm::ConstantInt::get(llvm::Type::getInt8Ty(context), llvm::APInt(8, 0)));
-            llvm::Value* is_key_matching = llvm::ConstantInt::get(llvm::Type::getInt1Ty(context),
-                                                                  llvm::APInt(1, 0));
-            LLVM::CreateStore(*builder, is_key_matching, is_key_matching_var);
-            llvm::Function *fn = builder->GetInsertBlock()->getParent();
-            llvm::BasicBlock *thenBB = llvm::BasicBlock::Create(context, "then", fn);
-            llvm::BasicBlock *elseBB = llvm::BasicBlock::Create(context, "else");
-            llvm::BasicBlock *mergeBB = llvm::BasicBlock::Create(context, "ifcont");
-            llvm::Value* compare_keys = builder->CreateAnd(is_key_set,
-                                            builder->CreateNot(is_key_skip));
-            builder->CreateCondBr(compare_keys, thenBB, elseBB);
-            builder->SetInsertPoint(thenBB);
-            {
-                llvm::Value* original_key = llvm_utils->list_api->read_item(key_list, pos,
-                                    false, module, LLVM::is_llvm_struct(key_asr_type));
-                is_key_matching = llvm_utils->is_equal_by_value(key, original_key, module,
-                                                                key_asr_type);
-                LLVM::CreateStore(*builder, is_key_matching, is_key_matching_var);
-            }
-            builder->CreateBr(mergeBB);
-
-
-            llvm_utils->start_new_block(elseBB);
-            llvm_utils->start_new_block(mergeBB);
-            // TODO: Allow safe exit if pos becomes key_hash again.
-            // Ideally should not happen as dict will be resized once
-            // load factor touches a threshold (which will always be less than 1)
-            // so there will be some key which will not be set. However for safety
-            // we can add an exit from the loop with a error message.
-            llvm::Value *cond = nullptr;
-            if( for_read ) {
-                cond = builder->CreateAnd(is_key_set, builder->CreateNot(
-                            LLVM::CreateLoad(*builder, is_key_matching_var)));
-                cond = builder->CreateOr(is_key_skip, cond);
-            } else {
-                cond = builder->CreateAnd(is_key_set, builder->CreateNot(is_key_skip));
-                cond = builder->CreateAnd(cond, builder->CreateNot(
-                            LLVM::CreateLoad(*builder, is_key_matching_var)));
-            }
-            builder->CreateCondBr(cond, loopbody, loopend);
-        }
-
-
-        // body
-        llvm_utils->start_new_block(loopbody);
-        {
-            llvm::Value* pos = LLVM::CreateLoad(*builder, pos_ptr);
-            pos = builder->CreateAdd(pos, llvm::ConstantInt::get(llvm::Type::getInt32Ty(context),
-                                                                 llvm::APInt(32, 1)));
-            pos = builder->CreateSRem(pos, capacity);
-            LLVM::CreateStore(*builder, pos, pos_ptr);
-        }
-
-
-        builder->CreateBr(loophead);
-
-
-        // end
-        llvm_utils->start_new_block(loopend);
-    }
-
-    void LLVMDictOptimizedLinearProbing::resolve_collision(
-        llvm::Value* capacity, llvm::Value* key_hash,
-        llvm::Value* key, llvm::Value* key_list,
-        llvm::Value* key_mask, llvm::Module& module,
-        ASR::ttype_t* key_asr_type, bool for_read) {
-        if( !are_iterators_set ) {
-            if( !for_read ) {
-                pos_ptr = builder->CreateAlloca(llvm::Type::getInt32Ty(context), nullptr);
-            }
-            is_key_matching_var = builder->CreateAlloca(llvm::Type::getInt1Ty(context), nullptr);
-        }
-
-        LLVM::CreateStore(*builder, key_hash, pos_ptr);
-
-        llvm::BasicBlock *loophead = llvm::BasicBlock::Create(context, "loop.head");
-        llvm::BasicBlock *loopbody = llvm::BasicBlock::Create(context, "loop.body");
-        llvm::BasicBlock *loopend = llvm::BasicBlock::Create(context, "loop.end");
-
-        // head
-        llvm_utils->start_new_block(loophead);
-        {
-            llvm::Value* pos = LLVM::CreateLoad(*builder, pos_ptr);
-            llvm::Value* key_mask_value = LLVM::CreateLoad(*builder,
-                llvm_utils->create_ptr_gep(key_mask, pos));
-            llvm::Value* is_key_skip = builder->CreateICmpEQ(key_mask_value,
-                llvm::ConstantInt::get(llvm::Type::getInt8Ty(context), llvm::APInt(8, 3)));
-            llvm::Value* is_key_set = builder->CreateICmpNE(key_mask_value,
-                llvm::ConstantInt::get(llvm::Type::getInt8Ty(context), llvm::APInt(8, 0)));
-            llvm::Value* is_key_matching = llvm::ConstantInt::get(llvm::Type::getInt1Ty(context),
-                                                                llvm::APInt(1, 0));
-            LLVM::CreateStore(*builder, is_key_matching, is_key_matching_var);
-            llvm::Function *fn = builder->GetInsertBlock()->getParent();
-            llvm::BasicBlock *thenBB = llvm::BasicBlock::Create(context, "then", fn);
-            llvm::BasicBlock *elseBB = llvm::BasicBlock::Create(context, "else");
-            llvm::BasicBlock *mergeBB = llvm::BasicBlock::Create(context, "ifcont");
-            llvm::Value* compare_keys = builder->CreateAnd(is_key_set,
-                                            builder->CreateNot(is_key_skip));
-            builder->CreateCondBr(compare_keys, thenBB, elseBB);
-            builder->SetInsertPoint(thenBB);
-            {
-                llvm::Value* original_key = llvm_utils->list_api->read_item(key_list, pos,
-                                false, module, LLVM::is_llvm_struct(key_asr_type));
-                is_key_matching = llvm_utils->is_equal_by_value(key, original_key, module,
-                                                                key_asr_type);
-                LLVM::CreateStore(*builder, is_key_matching, is_key_matching_var);
-            }
-            builder->CreateBr(mergeBB);
-
-            llvm_utils->start_new_block(elseBB);
-            llvm_utils->start_new_block(mergeBB);
-            // TODO: Allow safe exit if pos becomes key_hash again.
-            // Ideally should not happen as dict will be resized once
-            // load factor touches a threshold (which will always be less than 1)
-            // so there will be some key which will not be set. However for safety
-            // we can add an exit from the loop with a error message.
-            llvm::Value *cond = nullptr;
-            if( for_read ) {
-                cond = builder->CreateAnd(is_key_set, builder->CreateNot(
-                            LLVM::CreateLoad(*builder, is_key_matching_var)));
-                cond = builder->CreateOr(is_key_skip, cond);
-            } else {
-                cond = builder->CreateAnd(is_key_set, builder->CreateNot(is_key_skip));
-                cond = builder->CreateAnd(cond, builder->CreateNot(
-                            LLVM::CreateLoad(*builder, is_key_matching_var)));
-            }
-            builder->CreateCondBr(cond, loopbody, loopend);
-        }
-
-        // body
-        llvm_utils->start_new_block(loopbody);
-        {
-            llvm::Value* pos = LLVM::CreateLoad(*builder, pos_ptr);
-            pos = builder->CreateAdd(pos, llvm::ConstantInt::get(llvm::Type::getInt32Ty(context),
-                                                                llvm::APInt(32, 1)));
-            pos = builder->CreateSRem(pos, capacity);
-            LLVM::CreateStore(*builder, pos, pos_ptr);
-        }
-
-        builder->CreateBr(loophead);
-
-        // end
-        llvm_utils->start_new_block(loopend);
-    }
-
-    void LLVMDictSeparateChaining::resolve_collision(
-        llvm::Value* /*capacity*/, llvm::Value* key_hash,
-        llvm::Value* key, llvm::Value* key_value_pair_linked_list,
-        llvm::Type* kv_pair_type, llvm::Value* key_mask,
-        llvm::Module& module, ASR::ttype_t* key_asr_type) {
-        if( !are_iterators_set ) {
-            chain_itr = builder->CreateAlloca(llvm::Type::getInt8PtrTy(context), nullptr);
-            chain_itr_prev = builder->CreateAlloca(llvm::Type::getInt8PtrTy(context), nullptr);
-            is_key_matching_var = builder->CreateAlloca(llvm::Type::getInt1Ty(context), nullptr);
-        }
-
-        LLVM::CreateStore(*builder,
-                llvm::ConstantPointerNull::get(llvm::Type::getInt8PtrTy(context)), chain_itr_prev);
-        llvm::Value* kv_ll_i8 = builder->CreateBitCast(key_value_pair_linked_list, llvm::Type::getInt8PtrTy(context));
-        LLVM::CreateStore(*builder, kv_ll_i8, chain_itr);
-        llvm::Value* key_mask_value = LLVM::CreateLoad(*builder,
-            llvm_utils->create_ptr_gep(key_mask, key_hash));
-        LLVM::CreateStore(*builder,
-            builder->CreateICmpEQ(key_mask_value, llvm::ConstantInt::get(llvm::Type::getInt8Ty(context), llvm::APInt(8, 1))),
-            is_key_matching_var
-        );
-        llvm::BasicBlock *loophead = llvm::BasicBlock::Create(context, "loop.head");
-        llvm::BasicBlock *loopbody = llvm::BasicBlock::Create(context, "loop.body");
-        llvm::BasicBlock *loopend = llvm::BasicBlock::Create(context, "loop.end");
-
-        // head
-        llvm_utils->start_new_block(loophead);
-        {
-            llvm::Value *cond = builder->CreateICmpNE(
-                LLVM::CreateLoad(*builder, chain_itr),
-                llvm::ConstantPointerNull::get(llvm::Type::getInt8PtrTy(context))
-            );
-            cond = builder->CreateAnd(cond, LLVM::CreateLoad(*builder, is_key_matching_var));
-            builder->CreateCondBr(cond, loopbody, loopend);
-        }
-
-        // body
-        llvm_utils->start_new_block(loopbody);
-        {
-            llvm::Value* kv_struct_i8 = LLVM::CreateLoad(*builder, chain_itr);
-            LLVM::CreateStore(*builder, kv_struct_i8, chain_itr_prev);
-            llvm::Value* kv_struct = builder->CreateBitCast(kv_struct_i8, kv_pair_type->getPointerTo());
-            llvm::Value* kv_key = llvm_utils->create_gep(kv_struct, 0);
-            if( !LLVM::is_llvm_struct(key_asr_type) ) {
-                kv_key = LLVM::CreateLoad(*builder, kv_key);
-            }
-            llvm::Value* break_signal = llvm_utils->is_equal_by_value(key, kv_key, module, key_asr_type);
-            break_signal = builder->CreateNot(break_signal);
-            LLVM::CreateStore(*builder, break_signal, is_key_matching_var);
-            llvm::Function *fn = builder->GetInsertBlock()->getParent();
-            llvm::BasicBlock *thenBB = llvm::BasicBlock::Create(context, "then", fn);
-            llvm::BasicBlock *elseBB = llvm::BasicBlock::Create(context, "else");
-            llvm::BasicBlock *mergeBB = llvm::BasicBlock::Create(context, "ifcont");
-            builder->CreateCondBr(break_signal, thenBB, elseBB);
-            builder->SetInsertPoint(thenBB);
-            {
-                llvm::Value* next_kv_struct = LLVM::CreateLoad(*builder, llvm_utils->create_gep(kv_struct, 2));
-                LLVM::CreateStore(*builder, next_kv_struct, chain_itr);
-            }
-            builder->CreateBr(mergeBB);
-
-            llvm_utils->start_new_block(elseBB);
-            llvm_utils->start_new_block(mergeBB);
-        }
-
-        builder->CreateBr(loophead);
-
-        // end
-        llvm_utils->start_new_block(loopend);
-
-    }
-
-    void LLVMDict::resolve_collision_for_write(
-        llvm::Value* dict, llvm::Value* key_hash,
-        llvm::Value* key, llvm::Value* value,
-        llvm::Module* module, ASR::ttype_t* key_asr_type,
-        ASR::ttype_t* value_asr_type,
-        std::map<std::string, std::map<std::string, int>>& name2memidx) {
-        llvm::Value* key_list = get_key_list(dict);
-        llvm::Value* value_list = get_value_list(dict);
-        llvm::Value* key_mask = LLVM::CreateLoad(*builder, get_pointer_to_keymask(dict));
-        llvm::Value* capacity = LLVM::CreateLoad(*builder, get_pointer_to_capacity(dict));
-        this->resolve_collision(capacity, key_hash, key, key_list, key_mask, *module, key_asr_type);
-        llvm::Value* pos = LLVM::CreateLoad(*builder, pos_ptr);
-        llvm_utils->list_api->write_item(key_list, pos, key,
-                                         key_asr_type, false, module, name2memidx);
-        llvm_utils->list_api->write_item(value_list, pos, value,
-                                         value_asr_type, false, module, name2memidx);
-        llvm::Value* key_mask_value = LLVM::CreateLoad(*builder,
-            llvm_utils->create_ptr_gep(key_mask, pos));
-        llvm::Value* is_slot_empty = builder->CreateICmpEQ(key_mask_value,
-            llvm::ConstantInt::get(llvm::Type::getInt8Ty(context), llvm::APInt(8, 0)));
-        llvm::Value* occupancy_ptr = get_pointer_to_occupancy(dict);
-        is_slot_empty = builder->CreateZExt(is_slot_empty, llvm::Type::getInt32Ty(context));
-        llvm::Value* occupancy = LLVM::CreateLoad(*builder, occupancy_ptr);
-        LLVM::CreateStore(*builder, builder->CreateAdd(occupancy, is_slot_empty),
-                          occupancy_ptr);
-        LLVM::CreateStore(*builder,
-                          llvm::ConstantInt::get(llvm::Type::getInt8Ty(context), llvm::APInt(8, 1)),
-                          llvm_utils->create_ptr_gep(key_mask, pos));
-    }
-
-    void LLVMDictOptimizedLinearProbing::resolve_collision_for_write(
-        llvm::Value* dict, llvm::Value* key_hash,
-        llvm::Value* key, llvm::Value* value,
-        llvm::Module* module, ASR::ttype_t* key_asr_type,
-        ASR::ttype_t* value_asr_type,
-        std::map<std::string, std::map<std::string, int>>& name2memidx) {
-        llvm::Value* key_list = get_key_list(dict);
-        llvm::Value* value_list = get_value_list(dict);
-        llvm::Value* key_mask = LLVM::CreateLoad(*builder, get_pointer_to_keymask(dict));
-        llvm::Value* capacity = LLVM::CreateLoad(*builder, get_pointer_to_capacity(dict));
-        this->resolve_collision(capacity, key_hash, key, key_list, key_mask, *module, key_asr_type);
-        llvm::Value* pos = LLVM::CreateLoad(*builder, pos_ptr);
-        llvm_utils->list_api->write_item(key_list, pos, key,
-                                         key_asr_type, false, module, name2memidx);
-        llvm_utils->list_api->write_item(value_list, pos, value,
-                                         value_asr_type, false, module, name2memidx);
-
-        llvm::Value* key_mask_value = LLVM::CreateLoad(*builder,
-            llvm_utils->create_ptr_gep(key_mask, pos));
-        llvm::Value* is_slot_empty = builder->CreateICmpEQ(key_mask_value,
-            llvm::ConstantInt::get(llvm::Type::getInt8Ty(context), llvm::APInt(8, 0)));
-        llvm::Value* occupancy_ptr = get_pointer_to_occupancy(dict);
-        is_slot_empty = builder->CreateZExt(is_slot_empty, llvm::Type::getInt32Ty(context));
-        llvm::Value* occupancy = LLVM::CreateLoad(*builder, occupancy_ptr);
-        LLVM::CreateStore(*builder, builder->CreateAdd(occupancy, is_slot_empty),
-                          occupancy_ptr);
-
-        llvm::Value* linear_prob_happened = builder->CreateICmpNE(key_hash, pos);
-        linear_prob_happened = builder->CreateOr(linear_prob_happened,
-            builder->CreateICmpEQ(
-                LLVM::CreateLoad(*builder, llvm_utils->create_ptr_gep(key_mask, key_hash)),
-                llvm::ConstantInt::get(llvm::Type::getInt8Ty(context), llvm::APInt(8, 2)
-            ))
-        );
-        llvm::Value* set_max_2 = builder->CreateSelect(linear_prob_happened,
-            llvm::ConstantInt::get(llvm::Type::getInt8Ty(context), llvm::APInt(8, 2)),
-            llvm::ConstantInt::get(llvm::Type::getInt8Ty(context), llvm::APInt(8, 1)));
-        LLVM::CreateStore(*builder, set_max_2, llvm_utils->create_ptr_gep(key_mask, key_hash));
-        LLVM::CreateStore(*builder, set_max_2, llvm_utils->create_ptr_gep(key_mask, pos));
-    }
-
-    void LLVMDictSeparateChaining::resolve_collision_for_write(
-        llvm::Value* dict, llvm::Value* key_hash,
-        llvm::Value* key, llvm::Value* value,
-        llvm::Module* module, ASR::ttype_t* key_asr_type,
-        ASR::ttype_t* value_asr_type,
-        std::map<std::string, std::map<std::string, int>>& name2memidx) {
-        llvm::Value* capacity = LLVM::CreateLoad(*builder, get_pointer_to_capacity(dict));
-        llvm::Value* key_value_pairs = LLVM::CreateLoad(*builder, get_pointer_to_key_value_pairs(dict));
-        llvm::Value* key_value_pair_linked_list = llvm_utils->create_ptr_gep(key_value_pairs, key_hash);
-        llvm::Value* key_mask = LLVM::CreateLoad(*builder, get_pointer_to_keymask(dict));
-        llvm::Type* kv_struct_type = get_key_value_pair_type(key_asr_type, value_asr_type);
-        this->resolve_collision(capacity, key_hash, key, key_value_pair_linked_list,
-                                kv_struct_type, key_mask, *module, key_asr_type);
-        llvm::Value* kv_struct_i8 = LLVM::CreateLoad(*builder, chain_itr);
-        llvm::Function *fn = builder->GetInsertBlock()->getParent();
-        llvm::BasicBlock *thenBB = llvm::BasicBlock::Create(context, "then", fn);
-        llvm::BasicBlock *elseBB = llvm::BasicBlock::Create(context, "else");
-        llvm::BasicBlock *mergeBB = llvm::BasicBlock::Create(context, "ifcont");
-        llvm::Value* do_insert = builder->CreateICmpEQ(kv_struct_i8,
-            llvm::ConstantPointerNull::get(llvm::Type::getInt8PtrTy(context)));
-        builder->CreateCondBr(do_insert, thenBB, elseBB);
-        builder->SetInsertPoint(thenBB);
-        {
-            llvm::DataLayout data_layout(module);
-            size_t kv_struct_size = data_layout.getTypeAllocSize(kv_struct_type);
-            llvm::Value* malloc_size = llvm::ConstantInt::get(llvm::Type::getInt32Ty(context), kv_struct_size);
-            llvm::Value* new_kv_struct_i8 = LLVM::lfortran_malloc(context, *module, *builder, malloc_size);
-            llvm::Value* new_kv_struct = builder->CreateBitCast(new_kv_struct_i8, kv_struct_type->getPointerTo());
-            llvm_utils->deepcopy(key, llvm_utils->create_gep(new_kv_struct, 0), key_asr_type, module, name2memidx);
-            llvm_utils->deepcopy(value, llvm_utils->create_gep(new_kv_struct, 1), value_asr_type, module, name2memidx);
-            LLVM::CreateStore(*builder,
-                llvm::ConstantPointerNull::get(llvm::Type::getInt8PtrTy(context)),
-                llvm_utils->create_gep(new_kv_struct, 2));
-            llvm::Value* kv_struct_prev_i8 = LLVM::CreateLoad(*builder, chain_itr_prev);
-            llvm::Value* kv_struct_prev = builder->CreateBitCast(kv_struct_prev_i8, kv_struct_type->getPointerTo());
-            LLVM::CreateStore(*builder, new_kv_struct_i8, llvm_utils->create_gep(kv_struct_prev, 2));
-        }
-        builder->CreateBr(mergeBB);
-        llvm_utils->start_new_block(elseBB);
-        {
-            llvm::Value* kv_struct = builder->CreateBitCast(kv_struct_i8, kv_struct_type->getPointerTo());
-            llvm_utils->deepcopy(key, llvm_utils->create_gep(kv_struct, 0), key_asr_type, module, name2memidx);
-            llvm_utils->deepcopy(value, llvm_utils->create_gep(kv_struct, 1), value_asr_type, module, name2memidx);
-        }
-        llvm_utils->start_new_block(mergeBB);
-        llvm::Value* occupancy_ptr = get_pointer_to_occupancy(dict);
-        llvm::Value* buckets_filled_ptr = get_pointer_to_number_of_filled_buckets(dict);
-        llvm::Value* occupancy = LLVM::CreateLoad(*builder, occupancy_ptr);
-        occupancy = builder->CreateAdd(occupancy,
-            llvm::ConstantInt::get(llvm::Type::getInt32Ty(context), llvm::APInt(32, 1)));
-        LLVM::CreateStore(*builder, occupancy, occupancy_ptr);
-        llvm::Value* key_mask_value_ptr = llvm_utils->create_ptr_gep(key_mask, key_hash);
-        llvm::Value* key_mask_value = LLVM::CreateLoad(*builder, key_mask_value_ptr);
-        llvm::Value* buckets_filled_delta = builder->CreateICmpEQ(key_mask_value,
-            llvm::ConstantInt::get(llvm::Type::getInt8Ty(context), llvm::APInt(8, 0)));
-        llvm::Value* buckets_filled = LLVM::CreateLoad(*builder, buckets_filled_ptr);
-        buckets_filled = builder->CreateAdd(
-            buckets_filled,
-            builder->CreateZExt(buckets_filled_delta, llvm::Type::getInt32Ty(context))
-        );
-        LLVM::CreateStore(*builder, buckets_filled, buckets_filled_ptr);
-        LLVM::CreateStore(*builder,
-            llvm::ConstantInt::get(llvm::Type::getInt8Ty(context), llvm::APInt(8, 1)),
-            key_mask_value_ptr);
-    }
-
-    llvm::Value* LLVMDict::resolve_collision_for_read(
-        llvm::Value* dict, llvm::Value* key_hash,
-        llvm::Value* key, llvm::Module& module,
-        ASR::ttype_t* key_asr_type, ASR::ttype_t* /*value_asr_type*/) {
-        llvm::Value* key_list = get_key_list(dict);
-        llvm::Value* value_list = get_value_list(dict);
-        llvm::Value* key_mask = LLVM::CreateLoad(*builder, get_pointer_to_keymask(dict));
-        llvm::Value* capacity = LLVM::CreateLoad(*builder, get_pointer_to_capacity(dict));
-        this->resolve_collision(capacity, key_hash, key, key_list, key_mask, module, key_asr_type, true);
-        llvm::Value* pos = LLVM::CreateLoad(*builder, pos_ptr);
-        llvm::Value* item = llvm_utils->list_api->read_item(value_list, pos, false, module, true);
-        return item;
-    }
-
-    llvm::Value* LLVMDictOptimizedLinearProbing::resolve_collision_for_read(
-        llvm::Value* dict, llvm::Value* key_hash,
-        llvm::Value* key, llvm::Module& module,
-        ASR::ttype_t* key_asr_type, ASR::ttype_t* /*value_asr_type*/) {
-        llvm::Value* key_list = get_key_list(dict);
-        llvm::Value* value_list = get_value_list(dict);
-        llvm::Value* key_mask = LLVM::CreateLoad(*builder, get_pointer_to_keymask(dict));
-        llvm::Value* capacity = LLVM::CreateLoad(*builder, get_pointer_to_capacity(dict));
-        if( !are_iterators_set ) {
-            pos_ptr = builder->CreateAlloca(llvm::Type::getInt32Ty(context), nullptr);
-        }
-        llvm::Function *fn = builder->GetInsertBlock()->getParent();
-        llvm::BasicBlock *thenBB = llvm::BasicBlock::Create(context, "then", fn);
-        llvm::BasicBlock *elseBB = llvm::BasicBlock::Create(context, "else");
-        llvm::BasicBlock *mergeBB = llvm::BasicBlock::Create(context, "ifcont");
-        llvm::Value* key_mask_value = LLVM::CreateLoad(*builder,
-                                        llvm_utils->create_ptr_gep(key_mask, key_hash));
-        llvm::Value* is_prob_not_neeeded = builder->CreateICmpEQ(key_mask_value,
-            llvm::ConstantInt::get(llvm::Type::getInt8Ty(context), llvm::APInt(8, 1)));
-        builder->CreateCondBr(is_prob_not_neeeded, thenBB, elseBB);
-        builder->SetInsertPoint(thenBB);
-        {
-            // A single by value comparison is needed even though
-            // we don't need to do linear probing. This is because
-            // the user can provide a key which is absent in the dict
-            // but is giving the same hash value as one of the keys present in the dict.
-            // In the above case we will end up returning value for a key
-            // which is not present in the dict. Instead we should return an error
-            // which is done in the below code.
-            llvm::Function *fn_single_match = builder->GetInsertBlock()->getParent();
-            llvm::BasicBlock *thenBB_single_match = llvm::BasicBlock::Create(context, "then", fn_single_match);
-            llvm::BasicBlock *elseBB_single_match = llvm::BasicBlock::Create(context, "else");
-            llvm::BasicBlock *mergeBB_single_match = llvm::BasicBlock::Create(context, "ifcont");
-            llvm::Value* is_key_matching = llvm_utils->is_equal_by_value(key,
-                llvm_utils->list_api->read_item(key_list, key_hash, false, module,
-                    LLVM::is_llvm_struct(key_asr_type)), module, key_asr_type);
-            builder->CreateCondBr(is_key_matching, thenBB_single_match, elseBB_single_match);
-            builder->SetInsertPoint(thenBB_single_match);
-            LLVM::CreateStore(*builder, key_hash, pos_ptr);
-            builder->CreateBr(mergeBB_single_match);
-            llvm_utils->start_new_block(elseBB_single_match);
-            {
-                std::string message = "The dict does not contain the specified key";
-                llvm::Value *fmt_ptr = builder->CreateGlobalStringPtr("KeyError: %s\n");
-                llvm::Value *fmt_ptr2 = builder->CreateGlobalStringPtr(message);
-                print_error(context, module, *builder, {fmt_ptr, fmt_ptr2});
-                int exit_code_int = 1;
-                llvm::Value *exit_code = llvm::ConstantInt::get(context,
-                        llvm::APInt(32, exit_code_int));
-                exit(context, module, *builder, exit_code);
-            }
-            llvm_utils->start_new_block(mergeBB_single_match);
-        }
-        builder->CreateBr(mergeBB);
-        llvm_utils->start_new_block(elseBB);
-        {
-            this->resolve_collision(capacity, key_hash, key, key_list, key_mask,
-                           module, key_asr_type, true);
-        }
-        llvm_utils->start_new_block(mergeBB);
-        llvm::Value* pos = LLVM::CreateLoad(*builder, pos_ptr);
-        llvm::Value* item = llvm_utils->list_api->read_item(value_list, pos,
-                                                        false, module, true);
-        return item;
-    }
-
-    llvm::Value* LLVMDictSeparateChaining::resolve_collision_for_read(
-        llvm::Value* dict, llvm::Value* key_hash,
-        llvm::Value* key, llvm::Module& module,
-        ASR::ttype_t* key_asr_type, ASR::ttype_t* value_asr_type) {
-        llvm::Value* capacity = LLVM::CreateLoad(*builder, get_pointer_to_capacity(dict));
-        llvm::Value* key_value_pairs = LLVM::CreateLoad(*builder, get_pointer_to_key_value_pairs(dict));
-        llvm::Value* key_value_pair_linked_list = llvm_utils->create_ptr_gep(key_value_pairs, key_hash);
-        llvm::Value* key_mask = LLVM::CreateLoad(*builder, get_pointer_to_keymask(dict));
-        llvm::Type* kv_struct_type = get_key_value_pair_type(key_asr_type, value_asr_type);
-        this->resolve_collision(capacity, key_hash, key, key_value_pair_linked_list,
-                                kv_struct_type, key_mask, module, key_asr_type);
-        std::pair<std::string, std::string> llvm_key = std::make_pair(
-            ASRUtils::get_type_code(key_asr_type),
-            ASRUtils::get_type_code(value_asr_type)
-        );
-        llvm::Type* value_type = std::get<2>(typecode2dicttype[llvm_key]).second;
-        llvm::Value* tmp_value_ptr_local = nullptr;
-        if( !are_iterators_set ) {
-            tmp_value_ptr = builder->CreateAlloca(value_type, nullptr);
-            tmp_value_ptr_local = tmp_value_ptr;
-        } else {
-            tmp_value_ptr_local = builder->CreateBitCast(tmp_value_ptr, value_type->getPointerTo());
-        }
-        llvm::Function *fn_single_match = builder->GetInsertBlock()->getParent();
-        llvm::BasicBlock *thenBB_single_match = llvm::BasicBlock::Create(context, "then", fn_single_match);
-        llvm::BasicBlock *elseBB_single_match = llvm::BasicBlock::Create(context, "else");
-        llvm::BasicBlock *mergeBB_single_match = llvm::BasicBlock::Create(context, "ifcont");
-        llvm::Value* key_mask_value = LLVM::CreateLoad(*builder,
-            llvm_utils->create_ptr_gep(key_mask, key_hash));
-        llvm::Value* does_kv_exists = builder->CreateICmpEQ(key_mask_value,
-            llvm::ConstantInt::get(llvm::Type::getInt8Ty(context), llvm::APInt(8, 1)));
-        does_kv_exists = builder->CreateAnd(does_kv_exists,
-            builder->CreateICmpNE(LLVM::CreateLoad(*builder, chain_itr),
-            llvm::ConstantPointerNull::get(llvm::Type::getInt8PtrTy(context)))
-        );
-        builder->CreateCondBr(does_kv_exists, thenBB_single_match, elseBB_single_match);
-        builder->SetInsertPoint(thenBB_single_match);
-        {
-            llvm::Value* kv_struct_i8 = LLVM::CreateLoad(*builder, chain_itr);
-            llvm::Value* kv_struct = builder->CreateBitCast(kv_struct_i8, kv_struct_type->getPointerTo());
-            llvm::Value* value = LLVM::CreateLoad(*builder, llvm_utils->create_gep(kv_struct, 1));
-            LLVM::CreateStore(*builder, value, tmp_value_ptr_local);
-
-        }
-        builder->CreateBr(mergeBB_single_match);
-        llvm_utils->start_new_block(elseBB_single_match);
-        {
-            std::string message = "The dict does not contain the specified key";
-            llvm::Value *fmt_ptr = builder->CreateGlobalStringPtr("KeyError: %s\n");
-            llvm::Value *fmt_ptr2 = builder->CreateGlobalStringPtr(message);
-            print_error(context, module, *builder, {fmt_ptr, fmt_ptr2});
-            int exit_code_int = 1;
-            llvm::Value *exit_code = llvm::ConstantInt::get(context,
-                    llvm::APInt(32, exit_code_int));
-            exit(context, module, *builder, exit_code);
-        }
-        llvm_utils->start_new_block(mergeBB_single_match);
-        return tmp_value_ptr;
-    }
-
-    llvm::Value* LLVMDictInterface::get_key_hash(llvm::Value* capacity, llvm::Value* key,
-        ASR::ttype_t* key_asr_type, llvm::Module& module) {
-        // Write specialised hash functions for intrinsic types
-        // This is to avoid unnecessary calls to C-runtime and do
-        // as much as possible in LLVM directly.
-        switch( key_asr_type->type ) {
-            case ASR::ttypeType::Integer: {
-                // Simple modulo with the capacity of the dict.
-                // We can update it later to do a better hash function
-                // which produces lesser collisions.
-
-                llvm::Value* int_hash = builder->CreateZExtOrTrunc(
-                    builder->CreateURem(key,
-                    builder->CreateZExtOrTrunc(capacity, key->getType())),
-                    capacity->getType()
-                );
-                return int_hash;
-            }
-            case ASR::ttypeType::Character: {
-                // Polynomial rolling hash function for strings
-                llvm::Value* null_char = llvm::ConstantInt::get(llvm::Type::getInt8Ty(context),
-                                                                llvm::APInt(8, '\0'));
-                llvm::Value* p = llvm::ConstantInt::get(llvm::Type::getInt64Ty(context), llvm::APInt(64, 31));
-                llvm::Value* m = llvm::ConstantInt::get(llvm::Type::getInt64Ty(context), llvm::APInt(64, 100000009));
-                if( !are_iterators_set ) {
-                    hash_value = builder->CreateAlloca(llvm::Type::getInt64Ty(context), nullptr, "hash_value");
-                    hash_iter = builder->CreateAlloca(llvm::Type::getInt64Ty(context), nullptr, "hash_iter");
-                    polynomial_powers = builder->CreateAlloca(llvm::Type::getInt64Ty(context), nullptr, "p_pow");
-                }
-                LLVM::CreateStore(*builder,
-                    llvm::ConstantInt::get(llvm::Type::getInt64Ty(context), llvm::APInt(64, 0)),
-                    hash_value);
-                LLVM::CreateStore(*builder,
-                    llvm::ConstantInt::get(llvm::Type::getInt64Ty(context), llvm::APInt(64, 1)),
-                    polynomial_powers);
-                LLVM::CreateStore(*builder,
-                    llvm::ConstantInt::get(llvm::Type::getInt64Ty(context), llvm::APInt(64, 0)),
-                    hash_iter);
-                llvm::BasicBlock *loophead = llvm::BasicBlock::Create(context, "loop.head");
-                llvm::BasicBlock *loopbody = llvm::BasicBlock::Create(context, "loop.body");
-                llvm::BasicBlock *loopend = llvm::BasicBlock::Create(context, "loop.end");
-
-                // head
-                llvm_utils->start_new_block(loophead);
-                {
-                    llvm::Value* i = LLVM::CreateLoad(*builder, hash_iter);
-                    llvm::Value* c = LLVM::CreateLoad(*builder, llvm_utils->create_ptr_gep(key, i));
-                    llvm::Value *cond = builder->CreateICmpNE(c, null_char);
-                    builder->CreateCondBr(cond, loopbody, loopend);
-                }
-
-                // body
-                llvm_utils->start_new_block(loopbody);
-                {
-                    // for c in key:
-                    //     hash_value = (hash_value + (ord(c) + 1) * p_pow) % m
-                    //     p_pow = (p_pow * p) % m
-                    llvm::Value* i = LLVM::CreateLoad(*builder, hash_iter);
-                    llvm::Value* c = LLVM::CreateLoad(*builder, llvm_utils->create_ptr_gep(key, i));
-                    llvm::Value* p_pow = LLVM::CreateLoad(*builder, polynomial_powers);
-                    llvm::Value* hash = LLVM::CreateLoad(*builder, hash_value);
-                    c = builder->CreateZExt(c, llvm::Type::getInt64Ty(context));
-                    c = builder->CreateAdd(c, llvm::ConstantInt::get(llvm::Type::getInt64Ty(context), llvm::APInt(64, 1)));
-                    c = builder->CreateMul(c, p_pow);
-                    c = builder->CreateSRem(c, m);
-                    hash = builder->CreateAdd(hash, c);
-                    hash = builder->CreateSRem(hash, m);
-                    LLVM::CreateStore(*builder, hash, hash_value);
-                    p_pow = builder->CreateMul(p_pow, p);
-                    p_pow = builder->CreateSRem(p_pow, m);
-                    LLVM::CreateStore(*builder, p_pow, polynomial_powers);
-                    i = builder->CreateAdd(i, llvm::ConstantInt::get(llvm::Type::getInt64Ty(context), llvm::APInt(64, 1)));
-                    LLVM::CreateStore(*builder, i, hash_iter);
-                }
-
-                builder->CreateBr(loophead);
-
-                // end
-                llvm_utils->start_new_block(loopend);
-                llvm::Value* hash = LLVM::CreateLoad(*builder, hash_value);
-                hash = builder->CreateTrunc(hash, llvm::Type::getInt32Ty(context));
-                return builder->CreateSRem(hash, capacity);
-            }
-            case ASR::ttypeType::Tuple: {
-                llvm::Value* tuple_hash = llvm::ConstantInt::get(llvm::Type::getInt32Ty(context), llvm::APInt(32, 0));
-                ASR::Tuple_t* asr_tuple = ASR::down_cast<ASR::Tuple_t>(key_asr_type);
-                for( size_t i = 0; i < asr_tuple->n_type; i++ ) {
-                    llvm::Value* llvm_tuple_i = llvm_utils->tuple_api->read_item(key, i,
-                                                    LLVM::is_llvm_struct(asr_tuple->m_type[i]));
-                    tuple_hash = builder->CreateAdd(tuple_hash, get_key_hash(capacity, llvm_tuple_i,
-                                                                             asr_tuple->m_type[i], module));
-                    tuple_hash = builder->CreateSRem(tuple_hash, capacity);
-                }
-                return tuple_hash;
-            }
-            default: {
-                throw LCompilersException("Hashing " + ASRUtils::type_to_str_python(key_asr_type) +
-                                          " isn't implemented yet.");
-            }
-        }
-    }
-
-    void LLVMDict::rehash(llvm::Value* dict, llvm::Module* module,
-        ASR::ttype_t* key_asr_type,
-        ASR::ttype_t* value_asr_type,
-        std::map<std::string, std::map<std::string, int>>& name2memidx) {
-        llvm::Value* capacity_ptr = get_pointer_to_capacity(dict);
-        llvm::Value* old_capacity = LLVM::CreateLoad(*builder, capacity_ptr);
-        llvm::Value* capacity = builder->CreateMul(old_capacity, llvm::ConstantInt::get(llvm::Type::getInt32Ty(context),
-                                                                       llvm::APInt(32, 2)));
-        capacity = builder->CreateAdd(capacity, llvm::ConstantInt::get(llvm::Type::getInt32Ty(context),
-                                                                       llvm::APInt(32, 1)));
-        LLVM::CreateStore(*builder, capacity, capacity_ptr);
-
-        std::string key_type_code = ASRUtils::get_type_code(key_asr_type);
-        std::string value_type_code = ASRUtils::get_type_code(value_asr_type);
-        std::pair<std::string, std::string> dict_type_key = std::make_pair(key_type_code, value_type_code);
-        llvm::Type* key_llvm_type = std::get<2>(typecode2dicttype[dict_type_key]).first;
-        llvm::Type* value_llvm_type = std::get<2>(typecode2dicttype[dict_type_key]).second;
-        int32_t key_type_size = std::get<1>(typecode2dicttype[dict_type_key]).first;
-        int32_t value_type_size = std::get<1>(typecode2dicttype[dict_type_key]).second;
-
-        llvm::Value* key_list = get_key_list(dict);
-        llvm::Value* new_key_list = builder->CreateAlloca(llvm_utils->list_api->get_list_type(key_llvm_type,
-                                                          key_type_code, key_type_size), nullptr);
-        llvm_utils->list_api->list_init(key_type_code, new_key_list, *module, capacity, capacity);
-
-        llvm::Value* value_list = get_value_list(dict);
-        llvm::Value* new_value_list = builder->CreateAlloca(llvm_utils->list_api->get_list_type(value_llvm_type,
-                                                            value_type_code, value_type_size), nullptr);
-        llvm_utils->list_api->list_init(value_type_code, new_value_list, *module, capacity, capacity);
-
-        llvm::Value* key_mask = LLVM::CreateLoad(*builder, get_pointer_to_keymask(dict));
-        llvm::DataLayout data_layout(module);
-        size_t mask_size = data_layout.getTypeAllocSize(llvm::Type::getInt8Ty(context));
-        llvm::Value* llvm_mask_size = llvm::ConstantInt::get(llvm::Type::getInt32Ty(context),
-                                            llvm::APInt(32, mask_size));
-        llvm::Value* new_key_mask = LLVM::lfortran_calloc(context, *module, *builder, capacity,
-                                                          llvm_mask_size);
-
-        llvm::Value* current_capacity = LLVM::CreateLoad(*builder, get_pointer_to_capacity(dict));
-        if( !are_iterators_set ) {
-            idx_ptr = builder->CreateAlloca(llvm::Type::getInt32Ty(context), nullptr);
-        }
-        LLVM::CreateStore(*builder, llvm::ConstantInt::get(llvm::Type::getInt32Ty(context),
-            llvm::APInt(32, 0)), idx_ptr);
-
-        llvm::BasicBlock *loophead = llvm::BasicBlock::Create(context, "loop.head");
-        llvm::BasicBlock *loopbody = llvm::BasicBlock::Create(context, "loop.body");
-        llvm::BasicBlock *loopend = llvm::BasicBlock::Create(context, "loop.end");
-
-        // head
-        llvm_utils->start_new_block(loophead);
-        {
-            llvm::Value *cond = builder->CreateICmpSGT(old_capacity, LLVM::CreateLoad(*builder, idx_ptr));
-            builder->CreateCondBr(cond, loopbody, loopend);
-        }
-
-        // body
-        llvm_utils->start_new_block(loopbody);
-        {
-            llvm::Value* idx = LLVM::CreateLoad(*builder, idx_ptr);
-            llvm::Function *fn = builder->GetInsertBlock()->getParent();
-            llvm::BasicBlock *thenBB = llvm::BasicBlock::Create(context, "then", fn);
-            llvm::BasicBlock *elseBB = llvm::BasicBlock::Create(context, "else");
-            llvm::BasicBlock *mergeBB = llvm::BasicBlock::Create(context, "ifcont");
-            llvm::Value* is_key_set = LLVM::CreateLoad(*builder, llvm_utils->create_ptr_gep(key_mask, idx));
-            is_key_set = builder->CreateICmpNE(is_key_set,
-                llvm::ConstantInt::get(llvm::Type::getInt8Ty(context), llvm::APInt(8, 0)));
-            builder->CreateCondBr(is_key_set, thenBB, elseBB);
-            builder->SetInsertPoint(thenBB);
-            {
-                llvm::Value* key = llvm_utils->list_api->read_item(key_list, idx,
-                        false, *module, LLVM::is_llvm_struct(key_asr_type));
-                llvm::Value* value = llvm_utils->list_api->read_item(value_list,
-                    idx, false, *module, LLVM::is_llvm_struct(value_asr_type));
-                llvm::Value* key_hash = get_key_hash(current_capacity, key, key_asr_type, *module);
-                this->resolve_collision(current_capacity, key_hash, key, new_key_list,
-                               new_key_mask, *module, key_asr_type);
-                llvm::Value* pos = LLVM::CreateLoad(*builder, pos_ptr);
-                llvm::Value* key_dest = llvm_utils->list_api->read_item(
-                                    new_key_list, pos, false, *module, true);
-                llvm_utils->deepcopy(key, key_dest, key_asr_type, module, name2memidx);
-                llvm::Value* value_dest = llvm_utils->list_api->read_item(
-                                    new_value_list, pos, false, *module, true);
-                llvm_utils->deepcopy(value, value_dest, value_asr_type, module, name2memidx);
-
-                llvm::Value* linear_prob_happened = builder->CreateICmpNE(key_hash, pos);
-                llvm::Value* set_max_2 = builder->CreateSelect(linear_prob_happened,
-                    llvm::ConstantInt::get(llvm::Type::getInt8Ty(context), llvm::APInt(8, 2)),
-                    llvm::ConstantInt::get(llvm::Type::getInt8Ty(context), llvm::APInt(8, 1)));
-                LLVM::CreateStore(*builder, set_max_2, llvm_utils->create_ptr_gep(new_key_mask, key_hash));
-                LLVM::CreateStore(*builder, set_max_2, llvm_utils->create_ptr_gep(new_key_mask, pos));
-            }
-            builder->CreateBr(mergeBB);
-
-            llvm_utils->start_new_block(elseBB);
-            llvm_utils->start_new_block(mergeBB);
-            idx = builder->CreateAdd(idx, llvm::ConstantInt::get(
-                    llvm::Type::getInt32Ty(context), llvm::APInt(32, 1)));
-            LLVM::CreateStore(*builder, idx, idx_ptr);
-        }
-
-        builder->CreateBr(loophead);
-
-        // end
-        llvm_utils->start_new_block(loopend);
-
-        // TODO: Free key_list, value_list and key_mask
-        llvm_utils->list_api->free_data(key_list, *module);
-        llvm_utils->list_api->free_data(value_list, *module);
-        LLVM::lfortran_free(context, *module, *builder, key_mask);
-        LLVM::CreateStore(*builder, LLVM::CreateLoad(*builder, new_key_list), key_list);
-        LLVM::CreateStore(*builder, LLVM::CreateLoad(*builder, new_value_list), value_list);
-        LLVM::CreateStore(*builder, new_key_mask, get_pointer_to_keymask(dict));
-    }
-
-    void LLVMDictSeparateChaining::rehash(
-        llvm::Value* dict, llvm::Module* module,
-        ASR::ttype_t* key_asr_type,
-        ASR::ttype_t* value_asr_type,
-        std::map<std::string, std::map<std::string, int>>& name2memidx) {
-        if( !are_iterators_set ) {
-            old_capacity = builder->CreateAlloca(llvm::Type::getInt32Ty(context), nullptr);
-            old_occupancy = builder->CreateAlloca(llvm::Type::getInt32Ty(context), nullptr);
-            old_number_of_buckets_filled = builder->CreateAlloca(llvm::Type::getInt32Ty(context), nullptr);
-            idx_ptr = builder->CreateAlloca(llvm::Type::getInt32Ty(context), nullptr);
-            old_key_value_pairs = builder->CreateAlloca(llvm::Type::getInt8PtrTy(context), nullptr);
-            old_key_mask = builder->CreateAlloca(llvm::Type::getInt8PtrTy(context), nullptr);
-        }
-        llvm::Value* capacity_ptr = get_pointer_to_capacity(dict);
-        llvm::Value* occupancy_ptr = get_pointer_to_occupancy(dict);
-        llvm::Value* number_of_buckets_filled_ptr = get_pointer_to_number_of_filled_buckets(dict);
-        llvm::Value* old_capacity_value = LLVM::CreateLoad(*builder, capacity_ptr);
-        LLVM::CreateStore(*builder, old_capacity_value, old_capacity);
-        LLVM::CreateStore(*builder,
-            LLVM::CreateLoad(*builder, occupancy_ptr),
-            old_occupancy
-        );
-        LLVM::CreateStore(*builder,
-            LLVM::CreateLoad(*builder, number_of_buckets_filled_ptr),
-            old_number_of_buckets_filled
-        );
-        llvm::Value* old_key_mask_value = LLVM::CreateLoad(*builder, get_pointer_to_keymask(dict));
-        llvm::Value* old_key_value_pairs_value = LLVM::CreateLoad(*builder, get_pointer_to_key_value_pairs(dict));
-        old_key_value_pairs_value = builder->CreateBitCast(old_key_value_pairs_value, llvm::Type::getInt8PtrTy(context));
-        LLVM::CreateStore(*builder, old_key_mask_value, old_key_mask);
-        LLVM::CreateStore(*builder, old_key_value_pairs_value, old_key_value_pairs);
-
-        llvm::Value* capacity = builder->CreateMul(old_capacity_value, llvm::ConstantInt::get(llvm::Type::getInt32Ty(context),
-                                                                       llvm::APInt(32, 3)));
-        capacity = builder->CreateAdd(capacity, llvm::ConstantInt::get(llvm::Type::getInt32Ty(context),
-                                                                       llvm::APInt(32, 1)));
-        dict_init_given_initial_capacity(ASRUtils::get_type_code(key_asr_type),
-                                         ASRUtils::get_type_code(value_asr_type),
-                                         dict, module, capacity);
-        llvm::Function *fn = builder->GetInsertBlock()->getParent();
-        llvm::BasicBlock *thenBB_rehash = llvm::BasicBlock::Create(context, "then", fn);
-        llvm::BasicBlock *elseBB_rehash = llvm::BasicBlock::Create(context, "else");
-        llvm::BasicBlock *mergeBB_rehash = llvm::BasicBlock::Create(context, "ifcont");
-        llvm::Value* rehash_flag = LLVM::CreateLoad(*builder, get_pointer_to_rehash_flag(dict));
-        builder->CreateCondBr(rehash_flag, thenBB_rehash, elseBB_rehash);
-        builder->SetInsertPoint(thenBB_rehash);
-        old_key_value_pairs_value = LLVM::CreateLoad(*builder, old_key_value_pairs);
-        old_key_value_pairs_value = builder->CreateBitCast(old_key_value_pairs_value,
-            get_key_value_pair_type(key_asr_type, value_asr_type)->getPointerTo());
-        old_key_mask_value = LLVM::CreateLoad(*builder, old_key_mask);
-        old_capacity_value = LLVM::CreateLoad(*builder, old_capacity);
-        capacity = LLVM::CreateLoad(*builder, get_pointer_to_capacity(dict));
-        LLVM::CreateStore(*builder, llvm::ConstantInt::get(llvm::Type::getInt32Ty(context), llvm::APInt(32, 0)), idx_ptr);
-        llvm::BasicBlock *loophead = llvm::BasicBlock::Create(context, "loop.head");
-        llvm::BasicBlock *loopbody = llvm::BasicBlock::Create(context, "loop.body");
-        llvm::BasicBlock *loopend = llvm::BasicBlock::Create(context, "loop.end");
-
-        // head
-        llvm_utils->start_new_block(loophead);
-        {
-            llvm::Value *cond = builder->CreateICmpSGT(
-                                        old_capacity_value,
-                                        LLVM::CreateLoad(*builder, idx_ptr));
-            builder->CreateCondBr(cond, loopbody, loopend);
-        }
-
-        // body
-        llvm_utils->start_new_block(loopbody);
-        {
-            llvm::Value* itr = LLVM::CreateLoad(*builder, idx_ptr);
-            llvm::Value* key_mask_value = LLVM::CreateLoad(*builder,
-                llvm_utils->create_ptr_gep(old_key_mask_value, itr));
-            llvm::Function *fn = builder->GetInsertBlock()->getParent();
-            llvm::BasicBlock *thenBB = llvm::BasicBlock::Create(context, "then", fn);
-            llvm::BasicBlock *elseBB = llvm::BasicBlock::Create(context, "else");
-            llvm::BasicBlock *mergeBB = llvm::BasicBlock::Create(context, "ifcont");
-            llvm::Value* is_key_set = builder->CreateICmpEQ(key_mask_value,
-                llvm::ConstantInt::get(llvm::Type::getInt8Ty(context), llvm::APInt(8, 1)));
-            builder->CreateCondBr(is_key_set, thenBB, elseBB);
-            builder->SetInsertPoint(thenBB);
-            {
-
-                llvm::Value* srci = llvm_utils->create_ptr_gep(old_key_value_pairs_value, itr);
-                write_key_value_pair_linked_list(srci, dict, capacity, key_asr_type, value_asr_type, module, name2memidx);
-            }
-            builder->CreateBr(mergeBB);
-            llvm_utils->start_new_block(elseBB);
-            llvm_utils->start_new_block(mergeBB);
-            llvm::Value* tmp = builder->CreateAdd(
-                        itr,
-                        llvm::ConstantInt::get(context, llvm::APInt(32, 1)));
-            LLVM::CreateStore(*builder, tmp, idx_ptr);
-        }
-
-        builder->CreateBr(loophead);
-
-        // end
-        llvm_utils->start_new_block(loopend);
-        builder->CreateBr(mergeBB_rehash);
-        llvm_utils->start_new_block(elseBB_rehash);
-        {
-            LLVM::CreateStore(*builder,
-                LLVM::CreateLoad(*builder, old_capacity),
-                get_pointer_to_capacity(dict)
-            );
-            LLVM::CreateStore(*builder,
-                LLVM::CreateLoad(*builder, old_occupancy),
-                get_pointer_to_occupancy(dict)
-            );
-            LLVM::CreateStore(*builder,
-                LLVM::CreateLoad(*builder, old_number_of_buckets_filled),
-                get_pointer_to_number_of_filled_buckets(dict)
-            );
-            LLVM::CreateStore(*builder,
-                builder->CreateBitCast(
-                    LLVM::CreateLoad(*builder, old_key_value_pairs),
-                    get_key_value_pair_type(key_asr_type, value_asr_type)->getPointerTo()
-                ),
-                get_pointer_to_key_value_pairs(dict)
-            );
-            LLVM::CreateStore(*builder,
-                LLVM::CreateLoad(*builder, old_key_mask),
-                get_pointer_to_keymask(dict)
-            );
-        }
-        llvm_utils->start_new_block(mergeBB_rehash);
-    }
-
-    void LLVMDict::rehash_all_at_once_if_needed(llvm::Value* dict, llvm::Module* module,
-        ASR::ttype_t* key_asr_type, ASR::ttype_t* value_asr_type,
-        std::map<std::string, std::map<std::string, int>>& name2memidx) {
-        llvm::Function *fn = builder->GetInsertBlock()->getParent();
-        llvm::BasicBlock *thenBB = llvm::BasicBlock::Create(context, "then", fn);
-        llvm::BasicBlock *elseBB = llvm::BasicBlock::Create(context, "else");
-        llvm::BasicBlock *mergeBB = llvm::BasicBlock::Create(context, "ifcont");
-
-        llvm::Value* occupancy = LLVM::CreateLoad(*builder, get_pointer_to_occupancy(dict));
-        llvm::Value* capacity = LLVM::CreateLoad(*builder, get_pointer_to_capacity(dict));
-        llvm::Value* rehash_condition = builder->CreateICmpEQ(capacity,
-            llvm::ConstantInt::get(llvm::Type::getInt32Ty(context), llvm::APInt(32, 0)));
-        occupancy = builder->CreateAdd(occupancy, llvm::ConstantInt::get(llvm::Type::getInt32Ty(context),
-                                                                         llvm::APInt(32, 1)));
-        occupancy = builder->CreateSIToFP(occupancy, llvm::Type::getFloatTy(context));
-        capacity = builder->CreateSIToFP(capacity, llvm::Type::getFloatTy(context));
-        llvm::Value* load_factor = builder->CreateFDiv(occupancy, capacity);
-        // Threshold hash is chosen from https://en.wikipedia.org/wiki/Hash_table#Load_factor
-        llvm::Value* load_factor_threshold = llvm::ConstantFP::get(llvm::Type::getFloatTy(context),
-                                                                   llvm::APFloat((float) 0.6));
-        rehash_condition = builder->CreateOr(rehash_condition, builder->CreateFCmpOGE(load_factor, load_factor_threshold));
-        builder->CreateCondBr(rehash_condition, thenBB, elseBB);
-        builder->SetInsertPoint(thenBB);
-        {
-            rehash(dict, module, key_asr_type, value_asr_type, name2memidx);
-        }
-        builder->CreateBr(mergeBB);
-
-        llvm_utils->start_new_block(elseBB);
-        llvm_utils->start_new_block(mergeBB);
-    }
-
-    void LLVMDictSeparateChaining::rehash_all_at_once_if_needed(
-        llvm::Value* dict, llvm::Module* module,
-        ASR::ttype_t* key_asr_type, ASR::ttype_t* value_asr_type,
-        std::map<std::string, std::map<std::string, int>>& name2memidx) {
-        llvm::Function *fn = builder->GetInsertBlock()->getParent();
-        llvm::BasicBlock *thenBB = llvm::BasicBlock::Create(context, "then", fn);
-        llvm::BasicBlock *elseBB = llvm::BasicBlock::Create(context, "else");
-        llvm::BasicBlock *mergeBB = llvm::BasicBlock::Create(context, "ifcont");
-
-        llvm::Value* occupancy = LLVM::CreateLoad(*builder, get_pointer_to_occupancy(dict));
-        llvm::Value* buckets_filled = LLVM::CreateLoad(*builder, get_pointer_to_number_of_filled_buckets(dict));
-        llvm::Value* rehash_condition = LLVM::CreateLoad(*builder, get_pointer_to_rehash_flag(dict));
-        rehash_condition = builder->CreateAnd(rehash_condition, builder->CreateICmpNE(buckets_filled,
-            llvm::ConstantInt::get(llvm::Type::getInt32Ty(context), llvm::APInt(32, 0))));
-        occupancy = builder->CreateSIToFP(occupancy, llvm::Type::getFloatTy(context));
-        buckets_filled = builder->CreateSIToFP(buckets_filled, llvm::Type::getFloatTy(context));
-        llvm::Value* avg_ll_length = builder->CreateFDiv(occupancy, buckets_filled);
-        llvm::Value* avg_ll_length_threshold = llvm::ConstantFP::get(llvm::Type::getFloatTy(context),
-                                                                   llvm::APFloat((float) 2.0));
-        rehash_condition = builder->CreateAnd(rehash_condition,
-            builder->CreateFCmpOGE(avg_ll_length, avg_ll_length_threshold));
-        builder->CreateCondBr(rehash_condition, thenBB, elseBB);
-        builder->SetInsertPoint(thenBB);
-        {
-            rehash(dict, module, key_asr_type, value_asr_type, name2memidx);
-        }
-        builder->CreateBr(mergeBB);
-
-        llvm_utils->start_new_block(elseBB);
-        llvm_utils->start_new_block(mergeBB);
-    }
-
-    void LLVMDict::write_item(llvm::Value* dict, llvm::Value* key,
-                              llvm::Value* value, llvm::Module* module,
-                              ASR::ttype_t* key_asr_type, ASR::ttype_t* value_asr_type,
-                              std::map<std::string, std::map<std::string, int>>& name2memidx) {
-        rehash_all_at_once_if_needed(dict, module, key_asr_type, value_asr_type, name2memidx);
-        llvm::Value* current_capacity = LLVM::CreateLoad(*builder, get_pointer_to_capacity(dict));
-        llvm::Value* key_hash = get_key_hash(current_capacity, key, key_asr_type, *module);
-        this->resolve_collision_for_write(dict, key_hash, key, value, module,
-                                          key_asr_type, value_asr_type, name2memidx);
-    }
-
-    void LLVMDictSeparateChaining::write_item(llvm::Value* dict, llvm::Value* key,
-        llvm::Value* value, llvm::Module* module,
-        ASR::ttype_t* key_asr_type, ASR::ttype_t* value_asr_type,
-        std::map<std::string, std::map<std::string, int>>& name2memidx) {
-        rehash_all_at_once_if_needed(dict, module, key_asr_type, value_asr_type, name2memidx);
-        llvm::Value* current_capacity = LLVM::CreateLoad(*builder, get_pointer_to_capacity(dict));
-        llvm::Value* key_hash = get_key_hash(current_capacity, key, key_asr_type, *module);
-        this->resolve_collision_for_write(dict, key_hash, key, value, module,
-                                          key_asr_type, value_asr_type, name2memidx);
-    }
-
-    llvm::Value* LLVMDict::read_item(llvm::Value* dict, llvm::Value* key,
-                             llvm::Module& module, ASR::Dict_t* dict_type,
-                             bool get_pointer) {
-        llvm::Value* current_capacity = LLVM::CreateLoad(*builder, get_pointer_to_capacity(dict));
-        llvm::Value* key_hash = get_key_hash(current_capacity, key, dict_type->m_key_type, module);
-        llvm::Value* value_ptr = this->resolve_collision_for_read(dict, key_hash, key, module,
-                                                                  dict_type->m_key_type, dict_type->m_value_type);
-        if( get_pointer ) {
-            return value_ptr;
-        }
-        return LLVM::CreateLoad(*builder, value_ptr);
-    }
-
-    llvm::Value* LLVMDictSeparateChaining::read_item(llvm::Value* dict, llvm::Value* key,
-        llvm::Module& module, ASR::Dict_t* dict_type, bool get_pointer) {
-        llvm::Value* current_capacity = LLVM::CreateLoad(*builder, get_pointer_to_capacity(dict));
-        llvm::Value* key_hash = get_key_hash(current_capacity, key, dict_type->m_key_type, module);
-        llvm::Value* value_ptr = this->resolve_collision_for_read(dict, key_hash, key, module,
-                                                                  dict_type->m_key_type, dict_type->m_value_type);
-        std::pair<std::string, std::string> llvm_key = std::make_pair(
-            ASRUtils::get_type_code(dict_type->m_key_type),
-            ASRUtils::get_type_code(dict_type->m_value_type)
-        );
-        llvm::Type* value_type = std::get<2>(typecode2dicttype[llvm_key]).second;
-        value_ptr = builder->CreateBitCast(value_ptr, value_type->getPointerTo());
-        if( get_pointer ) {
-            return value_ptr;
-        }
-        return LLVM::CreateLoad(*builder, value_ptr);
-    }
-
-    llvm::Value* LLVMDict::pop_item(llvm::Value* dict, llvm::Value* key,
-        llvm::Module& module, ASR::Dict_t* dict_type,
-        bool get_pointer) {
-        llvm::Value* current_capacity = LLVM::CreateLoad(*builder, get_pointer_to_capacity(dict));
-        llvm::Value* key_hash = get_key_hash(current_capacity, key, dict_type->m_key_type, module);
-        llvm::Value* value_ptr = this->resolve_collision_for_read(dict, key_hash, key, module,
-                                                                  dict_type->m_key_type, dict_type->m_value_type);
-        llvm::Value* pos = LLVM::CreateLoad(*builder, pos_ptr);
-        llvm::Value* key_mask = LLVM::CreateLoad(*builder, get_pointer_to_keymask(dict));
-        llvm::Value* key_mask_i = llvm_utils->create_ptr_gep(key_mask, pos);
-        llvm::Value* tombstone_marker = llvm::ConstantInt::get(llvm::Type::getInt8Ty(context), llvm::APInt(8, 3));
-        LLVM::CreateStore(*builder, tombstone_marker, key_mask_i);
-
-        llvm::Value* occupancy_ptr = get_pointer_to_occupancy(dict);
-        llvm::Value* occupancy = LLVM::CreateLoad(*builder, occupancy_ptr);
-        occupancy = builder->CreateSub(occupancy, llvm::ConstantInt::get(
-                        llvm::Type::getInt32Ty(context), llvm::APInt(32, 1)));
-        LLVM::CreateStore(*builder, occupancy, occupancy_ptr);
-
-        if( get_pointer ) {
-            std::string key_type_code = ASRUtils::get_type_code(dict_type->m_key_type);
-            std::string value_type_code = ASRUtils::get_type_code(dict_type->m_value_type);
-            llvm::Type* llvm_value_type = std::get<2>(typecode2dicttype[std::make_pair(
-                key_type_code, value_type_code)]).second;
-            llvm::Value* return_ptr = builder->CreateAlloca(llvm_value_type, nullptr);
-            LLVM::CreateStore(*builder, LLVM::CreateLoad(*builder, value_ptr), return_ptr);
-            return return_ptr;
-        }
-
-        return LLVM::CreateLoad(*builder, value_ptr);
-    }
-
-    llvm::Value* LLVMDictSeparateChaining::pop_item(
-        llvm::Value* dict, llvm::Value* key,
-        llvm::Module& module, ASR::Dict_t* dict_type,
-        bool get_pointer) {
-        llvm::Value* current_capacity = LLVM::CreateLoad(*builder, get_pointer_to_capacity(dict));
-        llvm::Value* key_hash = get_key_hash(current_capacity, key, dict_type->m_key_type, module);
-        llvm::Value* value_ptr = this->resolve_collision_for_read(dict, key_hash, key, module,
-                                                                  dict_type->m_key_type, dict_type->m_value_type);
-        std::pair<std::string, std::string> llvm_key = std::make_pair(
-            ASRUtils::get_type_code(dict_type->m_key_type),
-            ASRUtils::get_type_code(dict_type->m_value_type)
-        );
-        llvm::Type* value_type = std::get<2>(typecode2dicttype[llvm_key]).second;
-        value_ptr = builder->CreateBitCast(value_ptr, value_type->getPointerTo());
-        llvm::Value* prev = LLVM::CreateLoad(*builder, chain_itr_prev);
-        llvm::Value* found = LLVM::CreateLoad(*builder, chain_itr);
-
-        llvm::Function *fn = builder->GetInsertBlock()->getParent();
-        llvm::BasicBlock *thenBB = llvm::BasicBlock::Create(context, "then", fn);
-        llvm::BasicBlock *elseBB = llvm::BasicBlock::Create(context, "else");
-        llvm::BasicBlock *mergeBB = llvm::BasicBlock::Create(context, "ifcont");
-
-        builder->CreateCondBr(
-            builder->CreateICmpNE(prev, llvm::ConstantPointerNull::get(llvm::Type::getInt8PtrTy(context))),
-            thenBB, elseBB
-        );
-        builder->SetInsertPoint(thenBB);
-        {
-            llvm::Type* kv_struct_type = get_key_value_pair_type(dict_type->m_key_type, dict_type->m_value_type);
-            found = builder->CreateBitCast(found, kv_struct_type->getPointerTo());
-            llvm::Value* found_next = LLVM::CreateLoad(*builder, llvm_utils->create_gep(found, 2));
-            prev = builder->CreateBitCast(prev, kv_struct_type->getPointerTo());
-            LLVM::CreateStore(*builder, found_next, llvm_utils->create_gep(prev, 2));
-        }
-        builder->CreateBr(mergeBB);
-        llvm_utils->start_new_block(elseBB);
-        {
-            llvm::Value* key_mask = LLVM::CreateLoad(*builder, get_pointer_to_keymask(dict));
-            LLVM::CreateStore(
-                *builder,
-                llvm::ConstantInt::get(llvm::Type::getInt8Ty(context), llvm::APInt(8, 0)),
-                llvm_utils->create_ptr_gep(key_mask, key_hash)
-            );
-            llvm::Value* num_buckets_filled_ptr = get_pointer_to_number_of_filled_buckets(dict);
-            llvm::Value* num_buckets_filled = LLVM::CreateLoad(*builder, num_buckets_filled_ptr);
-            num_buckets_filled = builder->CreateSub(num_buckets_filled, llvm::ConstantInt::get(
-                        llvm::Type::getInt32Ty(context), llvm::APInt(32, 1)));
-            LLVM::CreateStore(*builder, num_buckets_filled, num_buckets_filled_ptr);
-        }
-        llvm_utils->start_new_block(mergeBB);
-
-        llvm::Value* occupancy_ptr = get_pointer_to_occupancy(dict);
-        llvm::Value* occupancy = LLVM::CreateLoad(*builder, occupancy_ptr);
-        occupancy = builder->CreateSub(occupancy, llvm::ConstantInt::get(
-                        llvm::Type::getInt32Ty(context), llvm::APInt(32, 1)));
-        LLVM::CreateStore(*builder, occupancy, occupancy_ptr);
-
-        if( get_pointer ) {
-            std::string key_type_code = ASRUtils::get_type_code(dict_type->m_key_type);
-            std::string value_type_code = ASRUtils::get_type_code(dict_type->m_value_type);
-            llvm::Type* llvm_value_type = std::get<2>(typecode2dicttype[std::make_pair(
-                key_type_code, value_type_code)]).second;
-            llvm::Value* return_ptr = builder->CreateAlloca(llvm_value_type, nullptr);
-            LLVM::CreateStore(*builder, LLVM::CreateLoad(*builder, value_ptr), return_ptr);
-            return return_ptr;
-        }
-
-        return LLVM::CreateLoad(*builder, value_ptr);
-    }
-
-    llvm::Value* LLVMList::read_item(llvm::Value* list, llvm::Value* pos,
-                                     bool enable_bounds_checking,
-                                     llvm::Module& module, bool get_pointer) {
-        if( enable_bounds_checking ) {
-            check_index_within_bounds(list, pos, module);
-        }
-        llvm::Value* list_data = LLVM::CreateLoad(*builder, get_pointer_to_list_data(list));
-        llvm::Value* element_ptr = llvm_utils->create_ptr_gep(list_data, pos);
-        if( get_pointer ) {
-            return element_ptr;
-        }
-        return LLVM::CreateLoad(*builder, element_ptr);
-    }
-
-    llvm::Value* LLVMList::len(llvm::Value* list) {
-        return LLVM::CreateLoad(*builder, get_pointer_to_current_end_point(list));
-    }
-
-    llvm::Value* LLVMDict::len(llvm::Value* dict) {
-        return LLVM::CreateLoad(*builder, get_pointer_to_occupancy(dict));
-    }
-
-    llvm::Value* LLVMDictSeparateChaining::len(llvm::Value* dict) {
-        return LLVM::CreateLoad(*builder, get_pointer_to_occupancy(dict)) ;
-    }
-
-    bool LLVMDictInterface::is_dict_present() {
-        return is_dict_present_;
-    }
-
-    void LLVMDictInterface::set_is_dict_present(bool value) {
-        is_dict_present_ = value;
-    }
-
-    LLVMDictInterface::~LLVMDictInterface() {
-        typecode2dicttype.clear();
-    }
-
-    LLVMDict::~LLVMDict() {
-    }
-
-    LLVMDictSeparateChaining::~LLVMDictSeparateChaining() {
-    }
-
-    LLVMDictOptimizedLinearProbing::~LLVMDictOptimizedLinearProbing() {}
-
-    void LLVMList::resize_if_needed(llvm::Value* list, llvm::Value* n,
-                                    llvm::Value* capacity, int32_t type_size,
-                                    llvm::Type* el_type, llvm::Module* module) {
-        llvm::Value *cond = builder->CreateICmpEQ(n, capacity);
-        llvm::Function *fn = builder->GetInsertBlock()->getParent();
-        llvm::BasicBlock *thenBB = llvm::BasicBlock::Create(context, "then", fn);
-        llvm::BasicBlock *elseBB = llvm::BasicBlock::Create(context, "else");
-        llvm::BasicBlock *mergeBB = llvm::BasicBlock::Create(context, "ifcont");
-        builder->CreateCondBr(cond, thenBB, elseBB);
-        builder->SetInsertPoint(thenBB);
-        llvm::Value* new_capacity = builder->CreateMul(llvm::ConstantInt::get(context,
-                                                       llvm::APInt(32, 2)), capacity);
-        new_capacity = builder->CreateAdd(new_capacity, llvm::ConstantInt::get(context,
-                                                        llvm::APInt(32, 1)));
-        llvm::Value* arg_size = builder->CreateMul(llvm::ConstantInt::get(context,
-                                                   llvm::APInt(32, type_size)),
-                                                   new_capacity);
-        llvm::Value* copy_data_ptr = get_pointer_to_list_data(list);
-        llvm::Value* copy_data = LLVM::CreateLoad(*builder, copy_data_ptr);
-        copy_data = LLVM::lfortran_realloc(context, *module, *builder,
-                                           copy_data, arg_size);
-        copy_data = builder->CreateBitCast(copy_data, el_type->getPointerTo());
-        builder->CreateStore(copy_data, copy_data_ptr);
-        builder->CreateStore(new_capacity, get_pointer_to_current_capacity(list));
-        builder->CreateBr(mergeBB);
-        llvm_utils->start_new_block(elseBB);
-        llvm_utils->start_new_block(mergeBB);
-    }
-
-    void LLVMList::shift_end_point_by_one(llvm::Value* list) {
-        llvm::Value* end_point_ptr = get_pointer_to_current_end_point(list);
-        llvm::Value* end_point = LLVM::CreateLoad(*builder, end_point_ptr);
-        end_point = builder->CreateAdd(end_point, llvm::ConstantInt::get(context, llvm::APInt(32, 1)));
-        builder->CreateStore(end_point, end_point_ptr);
-    }
-
-    void LLVMList::append(llvm::Value* list, llvm::Value* item,
-                          ASR::ttype_t* asr_type, llvm::Module* module,
-                          std::map<std::string, std::map<std::string, int>>& name2memidx) {
-        llvm::Value* current_end_point = LLVM::CreateLoad(*builder, get_pointer_to_current_end_point(list));
-        llvm::Value* current_capacity = LLVM::CreateLoad(*builder, get_pointer_to_current_capacity(list));
-        std::string type_code = ASRUtils::get_type_code(asr_type);
-        int type_size = std::get<1>(typecode2listtype[type_code]);
-        llvm::Type* el_type = std::get<2>(typecode2listtype[type_code]);
-        resize_if_needed(list, current_end_point, current_capacity,
-                         type_size, el_type, module);
-        write_item(list, current_end_point, item, asr_type, false, module, name2memidx);
-        shift_end_point_by_one(list);
-    }
-
-    void LLVMList::insert_item(llvm::Value* list, llvm::Value* pos,
-                               llvm::Value* item, ASR::ttype_t* asr_type,
-                               llvm::Module* module,
-                               std::map<std::string, std::map<std::string, int>>& name2memidx) {
-        std::string type_code = ASRUtils::get_type_code(asr_type);
-        llvm::Value* current_end_point = LLVM::CreateLoad(*builder,
-                                        get_pointer_to_current_end_point(list));
-        llvm::Value* current_capacity = LLVM::CreateLoad(*builder,
-                                        get_pointer_to_current_capacity(list));
-        int type_size = std::get<1>(typecode2listtype[type_code]);
-        llvm::Type* el_type = std::get<2>(typecode2listtype[type_code]);
-        resize_if_needed(list, current_end_point, current_capacity,
-                         type_size, el_type, module);
-
-        /* While loop equivalent in C++:
-         *  end_point         // nth index of list
-         *  pos               // ith index to insert the element
-         *  pos_ptr = pos;
-         *  tmp_ptr = list[pos];
-         *  tmp = 0;
-         *
-         * while(end_point > pos_ptr) {
-         *      tmp           = list[pos + 1];
-         *      list[pos + 1] = tmp_ptr;
-         *      tmp_ptr       = tmp;
-         *      pos_ptr++;
-         *  }
-         *
-         * list[pos] = item;
-         */
-
-        // TODO: Should be created outside the user loop and not here.
-        // LLVMList should treat them as data members and create them
-        // only if they are NULL
-        llvm::AllocaInst *tmp_ptr = builder->CreateAlloca(el_type, nullptr);
-        LLVM::CreateStore(*builder, read_item(list, pos, false, *module, false), tmp_ptr);
-        llvm::Value* tmp = nullptr;
-
-        // TODO: Should be created outside the user loop and not here.
-        // LLVMList should treat them as data members and create them
-        // only if they are NULL
-        llvm::AllocaInst *pos_ptr = builder->CreateAlloca(
-                                    llvm::Type::getInt32Ty(context), nullptr);
-        LLVM::CreateStore(*builder, pos, pos_ptr);
-
-        llvm::BasicBlock *loophead = llvm::BasicBlock::Create(context, "loop.head");
-        llvm::BasicBlock *loopbody = llvm::BasicBlock::Create(context, "loop.body");
-        llvm::BasicBlock *loopend = llvm::BasicBlock::Create(context, "loop.end");
-
-        // head
-        llvm_utils->start_new_block(loophead);
-        {
-            llvm::Value *cond = builder->CreateICmpSGT(
-                                        current_end_point,
-                                        LLVM::CreateLoad(*builder, pos_ptr));
-            builder->CreateCondBr(cond, loopbody, loopend);
-        }
-
-        // body
-        llvm_utils->start_new_block(loopbody);
-        {
-            llvm::Value* next_index = builder->CreateAdd(
-                            LLVM::CreateLoad(*builder, pos_ptr),
-                            llvm::ConstantInt::get(context, llvm::APInt(32, 1)));
-            tmp = read_item(list, next_index, false, *module, false);
-            write_item(list, next_index, LLVM::CreateLoad(*builder, tmp_ptr), false, *module);
-            LLVM::CreateStore(*builder, tmp, tmp_ptr);
-
-            tmp = builder->CreateAdd(
-                        LLVM::CreateLoad(*builder, pos_ptr),
-                        llvm::ConstantInt::get(context, llvm::APInt(32, 1)));
-            LLVM::CreateStore(*builder, tmp, pos_ptr);
-        }
-        builder->CreateBr(loophead);
-
-        // end
-        llvm_utils->start_new_block(loopend);
-
-        write_item(list, pos, item, asr_type, false, module, name2memidx);
-        shift_end_point_by_one(list);
-    }
-
-    llvm::Value* LLVMList::find_item_position(llvm::Value* list,
-        llvm::Value* item, ASR::ttype_t* item_type, llvm::Module& module) {
-        llvm::Type* pos_type = llvm::Type::getInt32Ty(context);
-        llvm::Value* current_end_point = LLVM::CreateLoad(*builder,
-                                        get_pointer_to_current_end_point(list));
-        // TODO: Should be created outside the user loop and not here.
-        // LLVMList should treat them as data members and create them
-        // only if they are NULL
-        llvm::AllocaInst *i = builder->CreateAlloca(pos_type, nullptr);
-        LLVM::CreateStore(*builder, llvm::ConstantInt::get(
-                                    context, llvm::APInt(32, 0)), i);
-        llvm::Value* tmp = nullptr;
-
-        /* Equivalent in C++:
-         * int i = 0;
-         * while(list[i] != item && end_point > i) {
-         *     i++;
-         * }
-         *
-         * if (i == end_point) {
-         *    std::cout << "The list does not contain the element";
-         * }
-         */
-
-        llvm::BasicBlock *loophead = llvm::BasicBlock::Create(context, "loop.head");
-        llvm::BasicBlock *loopbody = llvm::BasicBlock::Create(context, "loop.body");
-        llvm::BasicBlock *loopend = llvm::BasicBlock::Create(context, "loop.end");
-
-        // head
-        llvm_utils->start_new_block(loophead);
-        {
-            llvm::Value* left_arg = read_item(list, LLVM::CreateLoad(*builder, i),
-                false, module, LLVM::is_llvm_struct(item_type));
-            llvm::Value* is_item_not_equal = builder->CreateNot(
-                                                llvm_utils->is_equal_by_value(
-                                                    left_arg, item,
-                                                    module, item_type)
-                                            );
-            llvm::Value *cond = builder->CreateAnd(is_item_not_equal,
-                                                   builder->CreateICmpSGT(current_end_point,
-                                                    LLVM::CreateLoad(*builder, i)));
-            builder->CreateCondBr(cond, loopbody, loopend);
-        }
-
-        // body
-        llvm_utils->start_new_block(loopbody);
-        {
-            tmp = builder->CreateAdd(
-                        LLVM::CreateLoad(*builder, i),
-                        llvm::ConstantInt::get(context, llvm::APInt(32, 1)));
-            LLVM::CreateStore(*builder, tmp, i);
-        }
-        builder->CreateBr(loophead);
-
-        // end
-        llvm_utils->start_new_block(loopend);
-
-
-        llvm::Function *fn = builder->GetInsertBlock()->getParent();
-        llvm::BasicBlock *thenBB = llvm::BasicBlock::Create(context, "then", fn);
-        llvm::BasicBlock *elseBB = llvm::BasicBlock::Create(context, "else");
-        llvm::BasicBlock *mergeBB = llvm::BasicBlock::Create(context, "ifcont");
-
-        llvm::Value* cond = builder->CreateICmpEQ(
-                              LLVM::CreateLoad(*builder, i), current_end_point);
-        builder->CreateCondBr(cond, thenBB, elseBB);
-        builder->SetInsertPoint(thenBB);
-        {
-            std::string message = "The list does not contain the element: ";
-            llvm::Value *fmt_ptr = builder->CreateGlobalStringPtr("ValueError: %s%d\n");
-            llvm::Value *fmt_ptr2 = builder->CreateGlobalStringPtr(message);
-            print_error(context, module, *builder, {fmt_ptr, fmt_ptr2, item});
-            int exit_code_int = 1;
-            llvm::Value *exit_code = llvm::ConstantInt::get(context,
-                    llvm::APInt(32, exit_code_int));
-            exit(context, module, *builder, exit_code);
-        }
-        builder->CreateBr(mergeBB);
-
-        llvm_utils->start_new_block(elseBB);
-        llvm_utils->start_new_block(mergeBB);
-
-        return LLVM::CreateLoad(*builder, i);
-    }
-
-    void LLVMList::remove(llvm::Value* list, llvm::Value* item,
-                          ASR::ttype_t* item_type, llvm::Module& module) {
-        llvm::Type* pos_type = llvm::Type::getInt32Ty(context);
-        llvm::Value* current_end_point = LLVM::CreateLoad(*builder,
-                                        get_pointer_to_current_end_point(list));
-        // TODO: Should be created outside the user loop and not here.
-        // LLVMList should treat them as data members and create them
-        // only if they are NULL
-        llvm::AllocaInst *item_pos = builder->CreateAlloca(pos_type, nullptr);
-        llvm::Value* tmp = LLVMList::find_item_position(list, item, item_type, module);
-        LLVM::CreateStore(*builder, tmp, item_pos);
-
-        /* While loop equivalent in C++:
-         * item_pos = find_item_position();
-         * while(end_point > item_pos) {
-         *     tmp = item_pos + 1;
-         *     list[item_pos] = list[tmp];
-         *     item_pos = tmp;
-         * }
-         */
-
-        llvm::BasicBlock *loophead = llvm::BasicBlock::Create(context, "loop.head");
-        llvm::BasicBlock *loopbody = llvm::BasicBlock::Create(context, "loop.body");
-        llvm::BasicBlock *loopend = llvm::BasicBlock::Create(context, "loop.end");
-
-        // head
-        llvm_utils->start_new_block(loophead);
-        {
-            llvm::Value *cond = builder->CreateICmpSGT(current_end_point,
-                                         LLVM::CreateLoad(*builder, item_pos));
-            builder->CreateCondBr(cond, loopbody, loopend);
-        }
-
-        // body
-        llvm_utils->start_new_block(loopbody);
-        {
-            tmp = builder->CreateAdd(
-                        LLVM::CreateLoad(*builder, item_pos),
-                        llvm::ConstantInt::get(context, llvm::APInt(32, 1)));
-            write_item(list, LLVM::CreateLoad(*builder, item_pos),
-                read_item(list, tmp, false, module, false), false, module);
-            LLVM::CreateStore(*builder, tmp, item_pos);
-        }
-        builder->CreateBr(loophead);
-
-        // end
-        llvm_utils->start_new_block(loopend);
-
-        // Decrement end point by one
-        llvm::Value* end_point_ptr = get_pointer_to_current_end_point(list);
-        llvm::Value* end_point = LLVM::CreateLoad(*builder, end_point_ptr);
-        end_point = builder->CreateSub(end_point, llvm::ConstantInt::get(
-                                       context, llvm::APInt(32, 1)));
-        builder->CreateStore(end_point, end_point_ptr);
-    }
-
-    void LLVMList::list_clear(llvm::Value* list) {
-        llvm::Value* end_point_ptr = get_pointer_to_current_end_point(list);
-        llvm::Value* zero = llvm::ConstantInt::get(llvm::Type::getInt32Ty(context),
-                                                   llvm::APInt(32, 0));
-        LLVM::CreateStore(*builder, zero, end_point_ptr);
-    }
-
-    void LLVMList::free_data(llvm::Value* list, llvm::Module& module) {
-        llvm::Value* data = LLVM::CreateLoad(*builder, get_pointer_to_list_data(list));
-        LLVM::lfortran_free(context, module, *builder, data);
-    }
-
-    llvm::Value* LLVMList::check_list_equality(llvm::Value* l1, llvm::Value* l2,
-                                                ASR::ttype_t* item_type,
-                                                 llvm::LLVMContext& context,
-                                                 llvm::IRBuilder<>* builder,
-                                                 llvm::Module& module) {
-        llvm::AllocaInst *is_equal = builder->CreateAlloca(llvm::Type::getInt1Ty(context), nullptr);
-        LLVM::CreateStore(*builder, llvm::ConstantInt::get(context, llvm::APInt(1, 1)), is_equal);
-        llvm::Value *a_len = llvm_utils->list_api->len(l1);
-        llvm::Value *b_len = llvm_utils->list_api->len(l2);
-        llvm::Value *cond = builder->CreateICmpEQ(a_len, b_len);
-        llvm::Function *fn = builder->GetInsertBlock()->getParent();
-        llvm::BasicBlock *thenBB = llvm::BasicBlock::Create(context, "then", fn);
-        llvm::BasicBlock *elseBB = llvm::BasicBlock::Create(context, "else");
-        llvm::BasicBlock *mergeBB = llvm::BasicBlock::Create(context, "ifcont");
-        builder->CreateCondBr(cond, thenBB, elseBB);
-        builder->SetInsertPoint(thenBB);
-        llvm::AllocaInst *idx = builder->CreateAlloca(llvm::Type::getInt32Ty(context), nullptr);
-        LLVM::CreateStore(*builder, llvm::ConstantInt::get(
-                                    context, llvm::APInt(32, 0)), idx);
-        llvm::BasicBlock *loophead = llvm::BasicBlock::Create(context, "loop.head");
-        llvm::BasicBlock *loopbody = llvm::BasicBlock::Create(context, "loop.body");
-        llvm::BasicBlock *loopend = llvm::BasicBlock::Create(context, "loop.end");
-
-            // head
-           llvm_utils->start_new_block(loophead);
-            {
-                llvm::Value* i = LLVM::CreateLoad(*builder, idx);
-                llvm::Value* cnd = builder->CreateICmpSLT(i, a_len);
-                builder->CreateCondBr(cnd, loopbody, loopend);
-            }
-
-            // body
-            llvm_utils->start_new_block(loopbody);
-            {
-                llvm::Value* i = LLVM::CreateLoad(*builder, idx);
-                llvm::Value* left_arg = llvm_utils->list_api->read_item(l1, i,
-                        false, module, LLVM::is_llvm_struct(item_type));
-                llvm::Value* right_arg = llvm_utils->list_api->read_item(l2, i,
-                        false, module, LLVM::is_llvm_struct(item_type));
-                llvm::Value* res = llvm_utils->is_equal_by_value(left_arg, right_arg, module,
-                                        item_type);
-                res = builder->CreateAnd(LLVM::CreateLoad(*builder, is_equal), res);
-                LLVM::CreateStore(*builder, res, is_equal);
-                i = builder->CreateAdd(i, llvm::ConstantInt::get(llvm::Type::getInt32Ty(context),
-                                        llvm::APInt(32, 1)));
-                LLVM::CreateStore(*builder, i, idx);
-            }
-
-            builder->CreateBr(loophead);
-
-            // end
-            llvm_utils->start_new_block(loopend);
-
-        builder->CreateBr(mergeBB);
-        llvm_utils->start_new_block(elseBB);
-        LLVM::CreateStore(*builder, llvm::ConstantInt::get(context, llvm::APInt(1, 0)), is_equal);
-        llvm_utils->start_new_block(mergeBB);
-        return LLVM::CreateLoad(*builder, is_equal);
-    }
-
-    LLVMTuple::LLVMTuple(llvm::LLVMContext& context_,
-                         LLVMUtils* llvm_utils_,
-                         llvm::IRBuilder<>* builder_) :
-    context(context_), llvm_utils(llvm_utils_), builder(builder_) {}
-
-    llvm::Type* LLVMTuple::get_tuple_type(std::string& type_code,
-                                          std::vector<llvm::Type*>& el_types) {
-        if( typecode2tupletype.find(type_code) != typecode2tupletype.end() ) {
-            return typecode2tupletype[type_code].first;
-        }
-
-        llvm::Type* llvm_tuple_type = llvm::StructType::create(context, el_types, "tuple");
-        typecode2tupletype[type_code] = std::make_pair(llvm_tuple_type, el_types.size());
-        return llvm_tuple_type;
-    }
-
-    llvm::Value* LLVMTuple::read_item(llvm::Value* llvm_tuple, llvm::Value* pos,
-                                      bool get_pointer) {
-        llvm::Value* item = llvm_utils->create_gep(llvm_tuple, pos);
-        if( get_pointer ) {
-            return item;
-        }
-        return LLVM::CreateLoad(*builder, item);
-    }
-
-    llvm::Value* LLVMTuple::read_item(llvm::Value* llvm_tuple, size_t pos,
-                                      bool get_pointer) {
-        llvm::Value* llvm_pos = llvm::ConstantInt::get(context, llvm::APInt(32, pos));
-        return read_item(llvm_tuple, llvm_pos, get_pointer);
-    }
-
-    void LLVMTuple::tuple_init(llvm::Value* llvm_tuple,
-                               std::vector<llvm::Value*>& values) {
-        for( size_t i = 0; i < values.size(); i++ ) {
-            llvm::Value* item_ptr = read_item(llvm_tuple, i, true);
-            builder->CreateStore(values[i], item_ptr);
-        }
-    }
-
-    void LLVMTuple::tuple_deepcopy(llvm::Value* src, llvm::Value* dest,
-        ASR::Tuple_t* tuple_type, llvm::Module* module,
-        std::map<std::string, std::map<std::string, int>>& name2memidx) {
-        LCOMPILERS_ASSERT(src->getType() == dest->getType());
-        for( size_t i = 0; i < tuple_type->n_type; i++ ) {
-            llvm::Value* src_item = read_item(src, i, LLVM::is_llvm_struct(
-                                              tuple_type->m_type[i]));
-            llvm::Value* dest_item_ptr = read_item(dest, i, true);
-            llvm_utils->deepcopy(src_item, dest_item_ptr,
-                                 tuple_type->m_type[i], module,
-                                 name2memidx);
-        }
-    }
-
-    llvm::Value* LLVMTuple::check_tuple_equality(llvm::Value* t1, llvm::Value* t2,
-                                                 ASR::Tuple_t* tuple_type,
-                                                 llvm::LLVMContext& context,
-                                                 llvm::IRBuilder<>* builder,
-                                                 llvm::Module& module) {
-        llvm::Value* is_equal = llvm::ConstantInt::get(context, llvm::APInt(1, 1));
-        for( size_t i = 0; i < tuple_type->n_type; i++ ) {
-            llvm::Value* t1i = llvm_utils->tuple_api->read_item(t1, i, LLVM::is_llvm_struct(
-                                              tuple_type->m_type[i]));
-            llvm::Value* t2i = llvm_utils->tuple_api->read_item(t2, i, LLVM::is_llvm_struct(
-                                              tuple_type->m_type[i]));
-            llvm::Value* is_t1_eq_t2 = llvm_utils->is_equal_by_value(t1i, t2i, module,
-                                        tuple_type->m_type[i]);
-            is_equal = builder->CreateAnd(is_equal, is_t1_eq_t2);
-        }
-        return is_equal;
-    }
-
-} // namespace LCompilers
diff --git a/src/libasr/codegen/llvm_utils.h b/src/libasr/codegen/llvm_utils.h
deleted file mode 100644
index 5a35bac52f..0000000000
--- a/src/libasr/codegen/llvm_utils.h
+++ /dev/null
@@ -1,597 +0,0 @@
-#ifndef LFORTRAN_LLVM_UTILS_H
-#define LFORTRAN_LLVM_UTILS_H
-
-#include <memory>
-
-#include <llvm/IR/Value.h>
-#include <llvm/IR/IRBuilder.h>
-#include <libasr/asr.h>
-
-#include <map>
-#include <tuple>
-
-namespace LCompilers {
-
-    namespace LLVMArrUtils {
-        class Descriptor;
-    }
-
-    static inline void printf(llvm::LLVMContext &context, llvm::Module &module,
-        llvm::IRBuilder<> &builder, const std::vector<llvm::Value*> &args)
-    {
-        llvm::Function *fn_printf = module.getFunction("_lfortran_printf");
-        if (!fn_printf) {
-            llvm::FunctionType *function_type = llvm::FunctionType::get(
-                    llvm::Type::getVoidTy(context), {llvm::Type::getInt8PtrTy(context)}, true);
-            fn_printf = llvm::Function::Create(function_type,
-                    llvm::Function::ExternalLinkage, "_lfortran_printf", &module);
-        }
-        builder.CreateCall(fn_printf, args);
-    }
-
-    static inline void print_error(llvm::LLVMContext &context, llvm::Module &module,
-        llvm::IRBuilder<> &builder, const std::vector<llvm::Value*> &args)
-    {
-        llvm::Function *fn_printf = module.getFunction("_lcompilers_print_error");
-        if (!fn_printf) {
-            llvm::FunctionType *function_type = llvm::FunctionType::get(
-                    llvm::Type::getVoidTy(context), {llvm::Type::getInt8PtrTy(context)}, true);
-            fn_printf = llvm::Function::Create(function_type,
-                    llvm::Function::ExternalLinkage, "_lcompilers_print_error", &module);
-        }
-        builder.CreateCall(fn_printf, args);
-    }
-
-    static inline void exit(llvm::LLVMContext &context, llvm::Module &module,
-        llvm::IRBuilder<> &builder, llvm::Value* exit_code)
-    {
-        llvm::Function *fn_exit = module.getFunction("exit");
-        if (!fn_exit) {
-            llvm::FunctionType *function_type = llvm::FunctionType::get(
-                    llvm::Type::getVoidTy(context), {llvm::Type::getInt32Ty(context)},
-                    false);
-            fn_exit = llvm::Function::Create(function_type,
-                    llvm::Function::ExternalLinkage, "exit", &module);
-        }
-        builder.CreateCall(fn_exit, {exit_code});
-    }
-
-    // Insert the following anywhere inside the LLVM backend to print
-    // addresses at runtime:
-    // call_print_stacktrace_addresses(context, *module, *builder, {filename, use_colors});
-    static inline void call_print_stacktrace_addresses(llvm::LLVMContext &context,
-            llvm::Module &module, llvm::IRBuilder<> &builder,
-            const std::vector<llvm::Value*> &args)
-    {
-        llvm::Function *fn = module.getFunction("print_stacktrace_addresses");
-        if (!fn) {
-            llvm::FunctionType *function_type = llvm::FunctionType::get(
-                llvm::Type::getVoidTy(context), {
-                    llvm::Type::getInt8PtrTy(context),
-                    llvm::Type::getInt1Ty(context)
-                }, true);
-            fn = llvm::Function::Create(function_type,
-                llvm::Function::ExternalLinkage, "print_stacktrace_addresses",
-                &module);
-        }
-        builder.CreateCall(fn, args);
-    }
-
-    namespace LLVM {
-
-        llvm::Value* CreateLoad(llvm::IRBuilder<> &builder, llvm::Value *x);
-        llvm::Value* CreateStore(llvm::IRBuilder<> &builder, llvm::Value *x, llvm::Value *y);
-        llvm::Value* CreateGEP(llvm::IRBuilder<> &builder, llvm::Value *x, std::vector<llvm::Value *> &idx);
-        llvm::Value* CreateInBoundsGEP(llvm::IRBuilder<> &builder, llvm::Value *x, std::vector<llvm::Value *> &idx);
-        llvm::Value* lfortran_malloc(llvm::LLVMContext &context, llvm::Module &module,
-                llvm::IRBuilder<> &builder, llvm::Value* arg_size);
-        llvm::Value* lfortran_realloc(llvm::LLVMContext &context, llvm::Module &module,
-                llvm::IRBuilder<> &builder, llvm::Value* ptr, llvm::Value* arg_size);
-        llvm::Value* lfortran_calloc(llvm::LLVMContext &context, llvm::Module &module,
-                llvm::IRBuilder<> &builder, llvm::Value* count, llvm::Value* type_size);
-        llvm::Value* lfortran_free(llvm::LLVMContext &context, llvm::Module &module,
-                llvm::IRBuilder<> &builder, llvm::Value* ptr);
-        static inline bool is_llvm_struct(ASR::ttype_t* asr_type) {
-            return ASR::is_a<ASR::Tuple_t>(*asr_type) ||
-                   ASR::is_a<ASR::List_t>(*asr_type) ||
-                   ASR::is_a<ASR::Struct_t>(*asr_type) ||
-                   ASR::is_a<ASR::Class_t>(*asr_type);
-        }
-    }
-
-    class LLVMList;
-    class LLVMTuple;
-    class LLVMDictInterface;
-
-    class LLVMUtils {
-
-        private:
-
-            llvm::LLVMContext& context;
-            llvm::IRBuilder<>* builder;
-            llvm::AllocaInst *str_cmp_itr;
-
-            bool are_iterators_set;
-
-        public:
-
-            LLVMTuple* tuple_api;
-            LLVMList* list_api;
-            LLVMDictInterface* dict_api;
-            LLVMArrUtils::Descriptor* arr_api;
-
-            LLVMUtils(llvm::LLVMContext& context,
-                llvm::IRBuilder<>* _builder);
-
-            llvm::Value* create_gep(llvm::Value* ds, int idx);
-
-            llvm::Value* create_gep(llvm::Value* ds, llvm::Value* idx);
-
-            llvm::Value* create_ptr_gep(llvm::Value* ptr, int idx);
-
-            llvm::Value* create_ptr_gep(llvm::Value* ptr, llvm::Value* idx);
-
-            llvm::Type* getIntType(int a_kind, bool get_pointer=false);
-
-            void start_new_block(llvm::BasicBlock *bb);
-
-            llvm::Value* lfortran_str_cmp(llvm::Value* left_arg, llvm::Value* right_arg,
-                                          std::string runtime_func_name, llvm::Module& module);
-
-            llvm::Value* is_equal_by_value(llvm::Value* left, llvm::Value* right,
-                                           llvm::Module& module, ASR::ttype_t* asr_type);
-
-            void set_iterators();
-
-            void reset_iterators();
-
-            void deepcopy(llvm::Value* src, llvm::Value* dest,
-                ASR::ttype_t* asr_type, llvm::Module* module,
-                std::map<std::string, std::map<std::string, int>>& name2memidx);
-
-    }; // LLVMUtils
-
-    class LLVMList {
-        private:
-
-            llvm::LLVMContext& context;
-            LLVMUtils* llvm_utils;
-            llvm::IRBuilder<>* builder;
-
-            std::map<std::string, std::tuple<llvm::Type*, int32_t, llvm::Type*>> typecode2listtype;
-
-            void resize_if_needed(llvm::Value* list, llvm::Value* n,
-                                  llvm::Value* capacity, int32_t type_size,
-                                  llvm::Type* el_type, llvm::Module* module);
-
-            void shift_end_point_by_one(llvm::Value* list);
-
-        public:
-
-            LLVMList(llvm::LLVMContext& context_, LLVMUtils* llvm_utils,
-                     llvm::IRBuilder<>* builder);
-
-            llvm::Type* get_list_type(llvm::Type* el_type, std::string& type_code,
-                                        int32_t type_size);
-
-            void list_init(std::string& type_code, llvm::Value* list,
-                           llvm::Module& module, llvm::Value* initial_capacity,
-                           llvm::Value* n);
-
-            void list_init(std::string& type_code, llvm::Value* list,
-                            llvm::Module& module, int32_t initial_capacity=1,
-                            int32_t n=0);
-
-            llvm::Value* get_pointer_to_list_data(llvm::Value* list);
-
-            llvm::Value* get_pointer_to_current_end_point(llvm::Value* list);
-
-            llvm::Value* get_pointer_to_current_capacity(llvm::Value* list);
-
-            void list_deepcopy(llvm::Value* src, llvm::Value* dest,
-                ASR::List_t* list_type, llvm::Module* module,
-                std::map<std::string, std::map<std::string, int>>& name2memidx);
-
-            void list_deepcopy(llvm::Value* src, llvm::Value* dest,
-                ASR::ttype_t* element_type, llvm::Module* module,
-                std::map<std::string, std::map<std::string, int>>& name2memidx);
-
-            llvm::Value* read_item(llvm::Value* list, llvm::Value* pos,
-                                   bool enable_bounds_checking,
-                                   llvm::Module& module, bool get_pointer=false);
-
-            llvm::Value* len(llvm::Value* list);
-
-            void check_index_within_bounds(llvm::Value* list, llvm::Value* pos,
-                                           llvm::Module& module);
-
-            void write_item(llvm::Value* list, llvm::Value* pos,
-                llvm::Value* item, ASR::ttype_t* asr_type,
-                bool enable_bounds_checking, llvm::Module* module,
-                std::map<std::string, std::map<std::string, int>>& name2memidx);
-
-            void write_item(llvm::Value* list, llvm::Value* pos,
-                            llvm::Value* item, bool enable_bounds_checking,
-                            llvm::Module& module);
-
-            void append(llvm::Value* list, llvm::Value* item,
-                        ASR::ttype_t* asr_type, llvm::Module* module,
-                        std::map<std::string, std::map<std::string, int>>& name2memidx);
-
-            void insert_item(llvm::Value* list, llvm::Value* pos,
-                            llvm::Value* item, ASR::ttype_t* asr_type,
-                            llvm::Module* module,
-                            std::map<std::string, std::map<std::string, int>>& name2memidx);
-
-            void remove(llvm::Value* list, llvm::Value* item,
-                        ASR::ttype_t* item_type, llvm::Module& module);
-
-            void list_clear(llvm::Value* list);
-
-            llvm::Value* find_item_position(llvm::Value* list,
-                llvm::Value* item, ASR::ttype_t* item_type,
-                llvm::Module& module);
-
-            void free_data(llvm::Value* list, llvm::Module& module);
-
-            llvm::Value* check_list_equality(llvm::Value* l1, llvm::Value* l2, ASR::ttype_t *item_type,
-                llvm::LLVMContext& context, llvm::IRBuilder<>* builder, llvm::Module& module);
-    };
-
-    class LLVMTuple {
-        private:
-
-            llvm::LLVMContext& context;
-            LLVMUtils* llvm_utils;
-            llvm::IRBuilder<>* builder;
-
-            std::map<std::string, std::pair<llvm::Type*, size_t>> typecode2tupletype;
-
-        public:
-
-            LLVMTuple(llvm::LLVMContext& context_,
-                      LLVMUtils* llvm_utils,
-                      llvm::IRBuilder<>* builder);
-
-            llvm::Type* get_tuple_type(std::string& type_code,
-                                       std::vector<llvm::Type*>& el_types);
-
-            void tuple_init(llvm::Value* llvm_tuple, std::vector<llvm::Value*>& values);
-
-            llvm::Value* read_item(llvm::Value* llvm_tuple, llvm::Value* pos,
-                                   bool get_pointer=false);
-
-            llvm::Value* read_item(llvm::Value* llvm_tuple, size_t pos,
-                                   bool get_pointer=false);
-
-            void tuple_deepcopy(llvm::Value* src, llvm::Value* dest,
-                                ASR::Tuple_t* type_code, llvm::Module* module,
-                                std::map<std::string, std::map<std::string, int>>& name2memidx);
-
-            llvm::Value* check_tuple_equality(llvm::Value* t1, llvm::Value* t2,
-                ASR::Tuple_t* tuple_type, llvm::LLVMContext& context,
-                llvm::IRBuilder<>* builder, llvm::Module& module);
-    };
-
-    class LLVMDictInterface {
-
-        protected:
-
-            llvm::LLVMContext& context;
-            LLVMUtils* llvm_utils;
-            llvm::IRBuilder<>* builder;
-            llvm::AllocaInst *pos_ptr, *is_key_matching_var;
-            llvm::AllocaInst *idx_ptr, *hash_iter, *hash_value;
-            llvm::AllocaInst *polynomial_powers;
-            llvm::AllocaInst *chain_itr, *chain_itr_prev;
-            llvm::AllocaInst *old_capacity, *old_key_value_pairs, *old_key_mask;
-            llvm::AllocaInst *old_occupancy, *old_number_of_buckets_filled;
-            llvm::AllocaInst *src_itr, *dest_itr, *next_ptr, *copy_itr;
-            llvm::Value *tmp_value_ptr;
-            bool are_iterators_set;
-
-            std::map<std::pair<std::string, std::string>,
-                     std::tuple<llvm::Type*, std::pair<int32_t, int32_t>,
-                                std::pair<llvm::Type*, llvm::Type*>>> typecode2dicttype;
-
-        public:
-
-            bool is_dict_present_;
-
-            LLVMDictInterface(
-                llvm::LLVMContext& context_,
-                LLVMUtils* llvm_utils,
-                llvm::IRBuilder<>* builder);
-
-            virtual
-            llvm::Type* get_dict_type(std::string key_type_code, std::string value_type_code,
-                int32_t key_type_size, int32_t value_type_size,
-                llvm::Type* key_type, llvm::Type* value_type) = 0;
-
-            virtual
-            void dict_init(std::string key_type_code, std::string value_type_code,
-                llvm::Value* dict, llvm::Module* module, size_t initial_capacity) = 0;
-
-            virtual
-            llvm::Value* get_key_list(llvm::Value* dict) = 0;
-
-            virtual
-            llvm::Value* get_value_list(llvm::Value* dict) = 0;
-
-            virtual
-            llvm::Value* get_pointer_to_occupancy(llvm::Value* dict) = 0;
-
-            virtual
-            llvm::Value* get_pointer_to_capacity(llvm::Value* dict) = 0;
-
-            virtual
-            llvm::Value* get_key_hash(llvm::Value* capacity, llvm::Value* key,
-                ASR::ttype_t* key_asr_type, llvm::Module& module);
-
-            virtual
-            void resolve_collision_for_write(llvm::Value* dict, llvm::Value* key_hash,
-                llvm::Value* key, llvm::Value* value,
-                llvm::Module* module, ASR::ttype_t* key_asr_type,
-                ASR::ttype_t* value_asr_type,
-                std::map<std::string, std::map<std::string, int>>& name2memidx) = 0;
-
-            virtual
-            llvm::Value* resolve_collision_for_read(llvm::Value* dict, llvm::Value* key_hash,
-                llvm::Value* key, llvm::Module& module,
-                ASR::ttype_t* key_asr_type, ASR::ttype_t* value_asr_type) = 0;
-
-            virtual
-            void rehash(llvm::Value* dict, llvm::Module* module,
-                ASR::ttype_t* key_asr_type, ASR::ttype_t* value_asr_type,
-                std::map<std::string, std::map<std::string, int>>& name2memidx) = 0;
-
-            virtual
-            void rehash_all_at_once_if_needed(llvm::Value* dict,
-                llvm::Module* module,
-                ASR::ttype_t* key_asr_type,
-                ASR::ttype_t* value_asr_type,
-                std::map<std::string, std::map<std::string, int>>& name2memidx) = 0;
-
-            virtual
-            void write_item(llvm::Value* dict, llvm::Value* key,
-                llvm::Value* value, llvm::Module* module,
-                ASR::ttype_t* key_asr_type, ASR::ttype_t* value_asr_type,
-                std::map<std::string, std::map<std::string, int>>& name2memidx) = 0;
-
-            virtual
-            llvm::Value* read_item(llvm::Value* dict, llvm::Value* key,
-                llvm::Module& module, ASR::Dict_t* dict_type,
-                bool get_pointer=false) = 0;
-
-            virtual
-            llvm::Value* pop_item(llvm::Value* dict, llvm::Value* key,
-                llvm::Module& module, ASR::Dict_t* dict_type,
-                bool get_pointer=false) = 0;
-
-            virtual
-            void set_iterators();
-
-            virtual
-            void reset_iterators();
-
-            virtual
-            void dict_deepcopy(llvm::Value* src, llvm::Value* dest,
-                ASR::Dict_t* dict_type, llvm::Module* module,
-                std::map<std::string, std::map<std::string, int>>& name2memidx) = 0;
-
-            virtual
-            llvm::Value* len(llvm::Value* dict) = 0;
-
-            virtual
-            bool is_dict_present();
-
-            virtual
-            void set_is_dict_present(bool value);
-
-            virtual ~LLVMDictInterface() = 0;
-
-    };
-
-    class LLVMDict: public LLVMDictInterface {
-
-        public:
-
-            LLVMDict(llvm::LLVMContext& context_,
-                     LLVMUtils* llvm_utils,
-                     llvm::IRBuilder<>* builder);
-
-            llvm::Type* get_dict_type(std::string key_type_code, std::string value_type_code,
-                int32_t key_type_size, int32_t value_type_size,
-                llvm::Type* key_type, llvm::Type* value_type);
-
-            void dict_init(std::string key_type_code, std::string value_type_code,
-                llvm::Value* dict, llvm::Module* module, size_t initial_capacity);
-
-            llvm::Value* get_key_list(llvm::Value* dict);
-
-            llvm::Value* get_value_list(llvm::Value* dict);
-
-            llvm::Value* get_pointer_to_occupancy(llvm::Value* dict);
-
-            llvm::Value* get_pointer_to_capacity(llvm::Value* dict);
-
-            virtual
-            void resolve_collision(llvm::Value* capacity, llvm::Value* key_hash,
-                                llvm::Value* key, llvm::Value* key_list,
-                                llvm::Value* key_mask, llvm::Module& module,
-                                ASR::ttype_t* key_asr_type, bool for_read=false);
-
-            void resolve_collision_for_write(llvm::Value* dict, llvm::Value* key_hash,
-                                          llvm::Value* key, llvm::Value* value,
-                                          llvm::Module* module, ASR::ttype_t* key_asr_type,
-                                          ASR::ttype_t* value_asr_type,
-                                          std::map<std::string, std::map<std::string, int>>& name2memidx);
-
-            llvm::Value* resolve_collision_for_read(llvm::Value* dict, llvm::Value* key_hash,
-                                                 llvm::Value* key, llvm::Module& module,
-                                                 ASR::ttype_t* key_asr_type, ASR::ttype_t* value_asr_type);
-
-            void rehash(llvm::Value* dict, llvm::Module* module,
-                        ASR::ttype_t* key_asr_type, ASR::ttype_t* value_asr_type,
-                        std::map<std::string, std::map<std::string, int>>& name2memidx);
-
-            void rehash_all_at_once_if_needed(llvm::Value* dict,
-                                              llvm::Module* module,
-                                              ASR::ttype_t* key_asr_type,
-                                              ASR::ttype_t* value_asr_type,
-                                              std::map<std::string, std::map<std::string, int>>& name2memidx);
-
-            void write_item(llvm::Value* dict, llvm::Value* key,
-                            llvm::Value* value, llvm::Module* module,
-                            ASR::ttype_t* key_asr_type, ASR::ttype_t* value_asr_type,
-                            std::map<std::string, std::map<std::string, int>>& name2memidx);
-
-            llvm::Value* read_item(llvm::Value* dict, llvm::Value* key,
-                                   llvm::Module& module, ASR::Dict_t* key_asr_type,
-                                   bool get_pointer=false);
-
-            llvm::Value* pop_item(llvm::Value* dict, llvm::Value* key,
-                                   llvm::Module& module, ASR::Dict_t* dict_type,
-                                   bool get_pointer=false);
-
-            virtual
-            llvm::Value* get_pointer_to_keymask(llvm::Value* dict);
-
-            void dict_deepcopy(llvm::Value* src, llvm::Value* dest,
-                ASR::Dict_t* dict_type, llvm::Module* module,
-                std::map<std::string, std::map<std::string, int>>& name2memidx);
-
-            llvm::Value* len(llvm::Value* dict);
-
-            virtual ~LLVMDict();
-    };
-
-    class LLVMDictOptimizedLinearProbing: public LLVMDict {
-
-        public:
-
-            LLVMDictOptimizedLinearProbing(llvm::LLVMContext& context_,
-                                    LLVMUtils* llvm_utils,
-                                    llvm::IRBuilder<>* builder);
-
-            void resolve_collision(llvm::Value* capacity, llvm::Value* key_hash,
-                                llvm::Value* key, llvm::Value* key_list,
-                                llvm::Value* key_mask, llvm::Module& module,
-                                ASR::ttype_t* key_asr_type, bool for_read=false);
-
-            void resolve_collision_for_write(llvm::Value* dict, llvm::Value* key_hash,
-                                            llvm::Value* key, llvm::Value* value,
-                                            llvm::Module* module, ASR::ttype_t* key_asr_type,
-                                            ASR::ttype_t* value_asr_type,
-                                            std::map<std::string, std::map<std::string, int>>& name2memidx);
-
-            llvm::Value* resolve_collision_for_read(llvm::Value* dict, llvm::Value* key_hash,
-                                                    llvm::Value* key, llvm::Module& module,
-                                                    ASR::ttype_t* key_asr_type, ASR::ttype_t* value_asr_type);
-
-            virtual ~LLVMDictOptimizedLinearProbing();
-
-    };
-
-    class LLVMDictSeparateChaining: public LLVMDictInterface {
-
-        protected:
-
-            std::map<std::pair<std::string, std::string>, llvm::Type*> typecode2kvstruct;
-
-            llvm::Value* get_pointer_to_number_of_filled_buckets(llvm::Value* dict);
-
-            llvm::Value* get_pointer_to_key_value_pairs(llvm::Value* dict);
-
-            llvm::Value* get_pointer_to_rehash_flag(llvm::Value* dict);
-
-            void deepcopy_key_value_pair_linked_list(llvm::Value* srci, llvm::Value* desti,
-                llvm::Value* dest_key_value_pairs, llvm::Value* src_capacity, ASR::Dict_t* dict_type,
-                llvm::Module* module, std::map<std::string, std::map<std::string, int>>& name2memidx);
-
-            void write_key_value_pair_linked_list(llvm::Value* kv_ll, llvm::Value* dict,
-                llvm::Value* capacity, ASR::ttype_t* key_asr_type, ASR::ttype_t* value_asr_type,
-                llvm::Module* module, std::map<std::string, std::map<std::string, int>>& name2memidx);
-
-            void resolve_collision(llvm::Value* capacity, llvm::Value* key_hash,
-                llvm::Value* key, llvm::Value* key_value_pair_linked_list,
-                llvm::Type* kv_pair_type, llvm::Value* key_mask,
-                llvm::Module& module, ASR::ttype_t* key_asr_type);
-
-            llvm::Type* get_key_value_pair_type(std::string key_type_code, std::string value_type_code);
-
-            llvm::Type* get_key_value_pair_type(ASR::ttype_t* key_asr_type, ASR::ttype_t* value_pair_type);
-
-            void dict_init_given_initial_capacity(std::string key_type_code, std::string value_type_code,
-                llvm::Value* dict, llvm::Module* module, llvm::Value* initial_capacity);
-
-        public:
-
-            LLVMDictSeparateChaining(
-                llvm::LLVMContext& context_,
-                LLVMUtils* llvm_utils_,
-                llvm::IRBuilder<>* builder_);
-
-            llvm::Type* get_dict_type(std::string key_type_code, std::string value_type_code,
-                int32_t key_type_size, int32_t value_type_size,
-                llvm::Type* key_type, llvm::Type* value_type);
-
-            void dict_init(std::string key_type_code, std::string value_type_code,
-                llvm::Value* dict, llvm::Module* module, size_t initial_capacity);
-
-            llvm::Value* get_key_list(llvm::Value* dict);
-
-            llvm::Value* get_value_list(llvm::Value* dict);
-
-            llvm::Value* get_pointer_to_occupancy(llvm::Value* dict);
-
-            llvm::Value* get_pointer_to_capacity(llvm::Value* dict);
-
-            void resolve_collision_for_write(llvm::Value* dict, llvm::Value* key_hash,
-                llvm::Value* key, llvm::Value* value,
-                llvm::Module* module, ASR::ttype_t* key_asr_type,
-                ASR::ttype_t* value_asr_type,
-                std::map<std::string, std::map<std::string, int>>& name2memidx);
-
-            llvm::Value* resolve_collision_for_read(llvm::Value* dict, llvm::Value* key_hash,
-                llvm::Value* key, llvm::Module& module,
-                ASR::ttype_t* key_asr_type, ASR::ttype_t* value_asr_type);
-
-            void rehash(llvm::Value* dict, llvm::Module* module,
-                ASR::ttype_t* key_asr_type, ASR::ttype_t* value_asr_type,
-                std::map<std::string, std::map<std::string, int>>& name2memidx);
-
-            void rehash_all_at_once_if_needed(llvm::Value* dict,
-                llvm::Module* module,
-                ASR::ttype_t* key_asr_type,
-                ASR::ttype_t* value_asr_type,
-                std::map<std::string, std::map<std::string, int>>& name2memidx);
-
-            void write_item(llvm::Value* dict, llvm::Value* key,
-                llvm::Value* value, llvm::Module* module,
-                ASR::ttype_t* key_asr_type, ASR::ttype_t* value_asr_type,
-                std::map<std::string, std::map<std::string, int>>& name2memidx);
-
-            llvm::Value* read_item(llvm::Value* dict, llvm::Value* key,
-                llvm::Module& module, ASR::Dict_t* dict_type,
-                bool get_pointer=false);
-
-            llvm::Value* pop_item(llvm::Value* dict, llvm::Value* key,
-                llvm::Module& module, ASR::Dict_t* dict_type,
-                bool get_pointer=false);
-
-            llvm::Value* get_pointer_to_keymask(llvm::Value* dict);
-
-            void dict_deepcopy(llvm::Value* src, llvm::Value* dest,
-                ASR::Dict_t* dict_type, llvm::Module* module,
-                std::map<std::string, std::map<std::string, int>>& name2memidx);
-
-            llvm::Value* len(llvm::Value* dict);
-
-            virtual ~LLVMDictSeparateChaining();
-
-    };
-
-} // namespace LCompilers
-
-#endif // LFORTRAN_LLVM_UTILS_H
diff --git a/src/libasr/codegen/wasm_assembler.h b/src/libasr/codegen/wasm_assembler.h
deleted file mode 100644
index d183edd9e7..0000000000
--- a/src/libasr/codegen/wasm_assembler.h
+++ /dev/null
@@ -1,1243 +0,0 @@
-#include <cassert>
-
-#include <libasr/alloc.h>
-#include <libasr/containers.h>
-
-namespace LCompilers {
-
-namespace wasm {
-
-enum type { i32 = 0x7F, i64 = 0x7E, f32 = 0x7D, f64 = 0x7C };
-
-enum mem_align { b8 = 0, b16 = 1, b32 = 2, b64 = 3 };
-
-void emit_leb128_u32(Vec<uint8_t> &code, Allocator &al,
-                     uint32_t n) {  // for u32
-    do {
-        uint8_t byte = n & 0x7f;
-        n >>= 7;
-        if (n != 0) {
-            byte |= 0x80;
-        }
-        code.push_back(al, byte);
-    } while (n != 0);
-}
-
-void emit_leb128_i32(Vec<uint8_t> &code, Allocator &al, int32_t n) {  // for i32
-    bool more = true;
-    do {
-        uint8_t byte = n & 0x7f;
-        n >>= 7;
-        more = !((((n == 0) && ((byte & 0x40) == 0)) ||
-                  ((n == -1) && ((byte & 0x40) != 0))));
-        if (more) {
-            byte |= 0x80;
-        }
-        code.push_back(al, byte);
-    } while (more);
-}
-
-void emit_leb128_i64(Vec<uint8_t> &code, Allocator &al, int64_t n) {  // for i64
-    bool more = true;
-    do {
-        uint8_t byte = n & 0x7f;
-        n >>= 7;
-        more = !((((n == 0) && ((byte & 0x40) == 0)) ||
-                  ((n == -1) && ((byte & 0x40) != 0))));
-        if (more) {
-            byte |= 0x80;
-        }
-        code.push_back(al, byte);
-    } while (more);
-}
-
-void emit_ieee754_f32(Vec<uint8_t> &code, Allocator &al, float z) {  // for f32
-    uint8_t encoded_float[sizeof(z)];
-    std::memcpy(&encoded_float, &z, sizeof(z));
-    for (auto &byte : encoded_float) {
-        code.push_back(al, byte);
-    }
-}
-
-void emit_ieee754_f64(Vec<uint8_t> &code, Allocator &al, double z) {  // for f64
-    uint8_t encoded_float[sizeof(z)];
-    std::memcpy(&encoded_float, &z, sizeof(z));
-    for (auto &byte : encoded_float) {
-        code.push_back(al, byte);
-    }
-}
-
-// function to emit header of Wasm Binary Format
-void emit_header(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x00);
-    code.push_back(al, 0x61);
-    code.push_back(al, 0x73);
-    code.push_back(al, 0x6D);
-    code.push_back(al, 0x01);
-    code.push_back(al, 0x00);
-    code.push_back(al, 0x00);
-    code.push_back(al, 0x00);
-}
-
-// function to append a given bytecode to the end of the code
-void emit_b8(Vec<uint8_t> &code, Allocator &al, uint8_t x) {
-    code.push_back(al, x);
-}
-
-// function to emit unsigned 32 bit integer
-void emit_u32(Vec<uint8_t> &code, Allocator &al, uint32_t x) {
-    emit_leb128_u32(code, al, x);
-}
-
-// function to emit signed 32 bit integer
-void emit_i32(Vec<uint8_t> &code, Allocator &al, int32_t x) {
-    emit_leb128_i32(code, al, x);
-}
-
-// function to emit signed 64 bit integer
-void emit_i64(Vec<uint8_t> &code, Allocator &al, int64_t x) {
-    emit_leb128_i64(code, al, x);
-}
-
-// function to emit 32 bit float
-void emit_f32(Vec<uint8_t> &code, Allocator &al, float x) {
-    emit_ieee754_f32(code, al, x);
-}
-
-// function to emit 64 bit float
-void emit_f64(Vec<uint8_t> &code, Allocator &al, double x) {
-    emit_ieee754_f64(code, al, x);
-}
-
-// function to emit string
-void emit_str(Vec<uint8_t> &code, Allocator &al, std::string text) {
-    std::vector<uint8_t> text_bytes(text.size());
-    std::memcpy(text_bytes.data(), text.data(), text.size());
-    emit_u32(code, al, text_bytes.size());
-    for (auto &byte : text_bytes) emit_b8(code, al, byte);
-}
-
-void emit_u32_b32_idx(Vec<uint8_t> &code, Allocator &al, uint32_t idx,
-                      uint32_t section_size) {
-    /*
-    Encodes the integer `i` using LEB128 and adds trailing zeros to always
-    occupy 4 bytes. Stores the int `i` at the index `idx` in `code`.
-    */
-    Vec<uint8_t> num;
-    num.reserve(al, 4);
-    emit_leb128_u32(num, al, section_size);
-    std::vector<uint8_t> num_4b = {0x80, 0x80, 0x80, 0x00};
-    assert(num.size() <= 4);
-    for (uint32_t i = 0; i < num.size(); i++) {
-        num_4b[i] |= num[i];
-    }
-    for (uint32_t i = 0; i < 4u; i++) {
-        code.p[idx + i] = num_4b[i];
-    }
-}
-
-// function to fixup length at the given length index
-void fixup_len(Vec<uint8_t> &code, Allocator &al, uint32_t len_idx) {
-    uint32_t section_len = code.size() - len_idx - 4u;
-    emit_u32_b32_idx(code, al, len_idx, section_len);
-}
-
-// function to emit length placeholder
-uint32_t emit_len_placeholder(Vec<uint8_t> &code, Allocator &al) {
-    uint32_t len_idx = code.size();
-    code.push_back(al, 0x00);
-    code.push_back(al, 0x00);
-    code.push_back(al, 0x00);
-    code.push_back(al, 0x00);
-    return len_idx;
-}
-
-void emit_export_fn(Vec<uint8_t> &code, Allocator &al, const std::string &name,
-                    uint32_t idx) {
-    emit_str(code, al, name);
-    emit_b8(code, al, 0x00);  // for exporting function
-    emit_u32(code, al, idx);
-}
-
-void emit_import_fn(Vec<uint8_t> &code, Allocator &al,
-                    const std::string &mod_name, const std::string &fn_name,
-                    uint32_t type_idx) {
-    emit_str(code, al, mod_name);
-    emit_str(code, al, fn_name);
-    emit_b8(code, al, 0x00);  // for importing function
-    emit_u32(code, al, type_idx);
-}
-
-void emit_declare_mem(Vec<uint8_t> &code, Allocator &al,
-                     uint32_t min_no_pages, uint32_t max_no_pages = 0) {
-    if (max_no_pages > 0) {
-        emit_b8(code, al,
-                0x01);  // for specifying min and max page limits of memory
-        emit_u32(code, al, min_no_pages);
-        emit_u32(code, al, max_no_pages);
-    } else {
-        emit_b8(code, al,
-                0x00);  // for specifying only min page limit of memory
-        emit_u32(code, al, min_no_pages);
-    }
-}
-
-void emit_import_mem(Vec<uint8_t> &code, Allocator &al,
-                     const std::string &mod_name, const std::string &mem_name,
-                     uint32_t min_no_pages, uint32_t max_no_pages = 0) {
-    emit_str(code, al, mod_name);
-    emit_str(code, al, mem_name);
-    emit_b8(code, al, 0x02);  // for importing memory
-    if (max_no_pages > 0) {
-        emit_b8(code, al,
-                0x01);  // for specifying min and max page limits of memory
-        emit_u32(code, al, min_no_pages);
-        emit_u32(code, al, max_no_pages);
-    } else {
-        emit_b8(code, al,
-                0x00);  // for specifying only min page limit of memory
-        emit_u32(code, al, min_no_pages);
-    }
-}
-
-void emit_export_mem(Vec<uint8_t> &code, Allocator &al, const std::string &name,
-                    uint32_t idx) {
-    emit_str(code, al, name);
-    emit_b8(code, al, 0x02);  // for exporting memory
-    emit_u32(code, al, idx);
-}
-
-void encode_section(Vec<uint8_t> &des, Vec<uint8_t> &section_content,
-                    Allocator &al, uint32_t section_id,
-                    uint32_t no_of_elements) {
-    // every section in WebAssembly is encoded by adding its section id,
-    // followed by the content size and lastly the contents
-    emit_u32(des, al, section_id);
-    emit_u32(des, al, 4U /* size of no_of_elements */ + section_content.size());
-    uint32_t len_idx = emit_len_placeholder(des, al);
-    emit_u32_b32_idx(des, al, len_idx, no_of_elements);
-    for (auto &byte : section_content) {
-        des.push_back(al, byte);
-    }
-}
-
-// function to emit drop instruction (it throws away a single operand on stack)
-void emit_drop(Vec<uint8_t> &code, Allocator &al) { code.push_back(al, 0x1A); }
-
-// function to emit get local variable at given index
-void emit_get_local(Vec<uint8_t> &code, Allocator &al, uint32_t idx) {
-    code.push_back(al, 0x20);
-    emit_u32(code, al, idx);
-}
-
-// function to emit set local variable at given index
-void emit_set_local(Vec<uint8_t> &code, Allocator &al, uint32_t idx) {
-    code.push_back(al, 0x21);
-    emit_u32(code, al, idx);
-}
-
-// function to emit get global variable at given index
-void emit_get_global(Vec<uint8_t> &code, Allocator &al, uint32_t idx) {
-    code.push_back(al, 0x23);
-    emit_u32(code, al, idx);
-}
-
-// function to emit set global variable at given index
-void emit_set_global(Vec<uint8_t> &code, Allocator &al, uint32_t idx) {
-    code.push_back(al, 0x24);
-    emit_u32(code, al, idx);
-}
-
-// function to emit call instruction
-void emit_call(Vec<uint8_t> &code, Allocator &al, uint32_t idx) {
-    code.push_back(al, 0x10);
-    emit_u32(code, al, idx);
-}
-
-// function to emit end of wasm expression
-void emit_expr_end(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x0B);
-}
-
-/**************************** Integer Operations ****************************/
-
-// function to emit a i32.const instruction
-void emit_i32_const(Vec<uint8_t> &code, Allocator &al, int32_t x) {
-    code.push_back(al, 0x41);
-    emit_i32(code, al, x);
-}
-
-// function to emit i32.clz instruction
-void emit_i32_clz(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x67);
-}
-
-// function to emit i32.ctz instruction
-void emit_i32_ctz(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x68);
-}
-
-// function to emit i32.popcnt instruction
-void emit_i32_popcnt(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x69);
-}
-
-// function to emit i32.add instruction
-void emit_i32_add(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x6A);
-}
-
-// function to emit i32.sub instruction
-void emit_i32_sub(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x6B);
-}
-
-// function to emit i32.mul instruction
-void emit_i32_mul(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x6C);
-}
-
-// function to emit i32.div_s instruction
-void emit_i32_div_s(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x6D);
-}
-
-// function to emit i32.div_u instruction
-void emit_i32_div_u(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x6E);
-}
-
-// function to emit i32.rem_s instruction
-void emit_i32_rem_s(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x6F);
-}
-
-// function to emit i32.rem_u instruction
-void emit_i32_rem_u(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x70);
-}
-
-// function to emit i32.and instruction
-void emit_i32_and(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x71);
-}
-
-// function to emit i32.or instruction
-void emit_i32_or(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x72);
-}
-
-// function to emit i32.xor instruction
-void emit_i32_xor(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x73);
-}
-
-// function to emit i32.shl instruction
-void emit_i32_shl(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x74);
-}
-
-// function to emit i32.shr_s instruction
-void emit_i32_shr_s(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x75);
-}
-
-// function to emit i32.shr_u instruction
-void emit_i32_shr_u(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x76);
-}
-
-// function to emit i32.rotl instruction
-void emit_i32_rotl(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x77);
-}
-
-// function to emit i32.rotr instruction
-void emit_i32_rotr(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x78);
-}
-
-// function to emit a i64.const instruction
-void emit_i64_const(Vec<uint8_t> &code, Allocator &al, int64_t x) {
-    code.push_back(al, 0x42);
-    emit_i64(code, al, x);
-}
-
-// function to emit i64.clz instruction
-void emit_i64_clz(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x79);
-}
-
-// function to emit i64.ctz instruction
-void emit_i64_ctz(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x7A);
-}
-
-// function to emit i64.popcnt instruction
-void emit_i64_popcnt(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x7B);
-}
-
-// function to emit i64.add instruction
-void emit_i64_add(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x7C);
-}
-
-// function to emit i64.sub instruction
-void emit_i64_sub(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x7D);
-}
-
-// function to emit i64.mul instruction
-void emit_i64_mul(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x7E);
-}
-
-// function to emit i64.div_s instruction
-void emit_i64_div_s(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x7F);
-}
-
-// function to emit i64.div_u instruction
-void emit_i64_div_u(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x80);
-}
-
-// function to emit i64.rem_s instruction
-void emit_i64_rem_s(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x81);
-}
-
-// function to emit i64.rem_u instruction
-void emit_i64_rem_u(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x82);
-}
-
-// function to emit i64.and instruction
-void emit_i64_and(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x83);
-}
-
-// function to emit i64.or instruction
-void emit_i64_or(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x84);
-}
-
-// function to emit i64.xor instruction
-void emit_i64_xor(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x85);
-}
-
-// function to emit i64.shl instruction
-void emit_i64_shl(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x86);
-}
-
-// function to emit i64.shr_s instruction
-void emit_i64_shr_s(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x87);
-}
-
-// function to emit i64.shr_u instruction
-void emit_i64_shr_u(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x88);
-}
-
-// function to emit i64.rotl instruction
-void emit_i64_rotl(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x89);
-}
-
-// function to emit i64.rotr instruction
-void emit_i64_rotr(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x8A);
-}
-
-/******** Integer Relational Operations ********/
-
-// function to emit i32.eqz instruction
-void emit_i32_eqz(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x45);
-}
-
-// function to emit i32.eq instruction
-void emit_i32_eq(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x46);
-}
-
-// function to emit i32.ne instruction
-void emit_i32_ne(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x47);
-}
-
-// function to emit i32.lt_s instruction
-void emit_i32_lt_s(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x48);
-}
-
-// function to emit i32.lt_u instruction
-void emit_i32_lt_u(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x49);
-}
-
-// function to emit i32.gt_s instruction
-void emit_i32_gt_s(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x4A);
-}
-
-// function to emit i32.gt_u instruction
-void emit_i32_gt_u(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x4B);
-}
-
-// function to emit i32.le_s instruction
-void emit_i32_le_s(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x4C);
-}
-
-// function to emit i32.le_u instruction
-void emit_i32_le_u(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x4D);
-}
-
-// function to emit i32.ge_s instruction
-void emit_i32_ge_s(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x4E);
-}
-
-// function to emit i32.ge_u instruction
-void emit_i32_ge_u(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x4F);
-}
-
-// function to emit i64.eqz instruction
-void emit_i64_eqz(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x50);
-}
-
-// function to emit i64.eq instruction
-void emit_i64_eq(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x51);
-}
-
-// function to emit i64.ne instruction
-void emit_i64_ne(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x52);
-}
-
-// function to emit i64.lt_s instruction
-void emit_i64_lt_s(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x53);
-}
-
-// function to emit i64.lt_u instruction
-void emit_i64_lt_u(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x54);
-}
-
-// function to emit i64.gt_s instruction
-void emit_i64_gt_s(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x55);
-}
-
-// function to emit i64.gt_u instruction
-void emit_i64_gt_u(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x56);
-}
-
-// function to emit i64.le_s instruction
-void emit_i64_le_s(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x57);
-}
-
-// function to emit i64.le_u instruction
-void emit_i64_le_u(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x58);
-}
-
-// function to emit i64.ge_s instruction
-void emit_i64_ge_s(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x59);
-}
-
-// function to emit i64.ge_u instruction
-void emit_i64_ge_u(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x5A);
-}
-
-/**************************** Floating Point Operations
- * ****************************/
-
-// function to emit a f32.const instruction
-void emit_f32_const(Vec<uint8_t> &code, Allocator &al, float x) {
-    code.push_back(al, 0x43);
-    emit_f32(code, al, x);
-}
-
-// function to emit f32.abs instruction
-void emit_f32_abs(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x8B);
-}
-
-// function to emit f32.neg instruction
-void emit_f32_neg(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x8C);
-}
-
-// function to emit f32.ceil instruction
-void emit_f32_ceil(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x8D);
-}
-
-// function to emit f32.floor instruction
-void emit_f32_floor(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x8E);
-}
-
-// function to emit f32.trunc instruction
-void emit_f32_trunc(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x8F);
-}
-
-// function to emit f32.nearest instruction
-void emit_f32_nearest(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x90);
-}
-
-// function to emit f32.sqrt instruction
-void emit_f32_sqrt(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x91);
-}
-
-// function to emit f32.add instruction
-void emit_f32_add(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x92);
-}
-
-// function to emit f32.sub instruction
-void emit_f32_sub(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x93);
-}
-
-// function to emit f32.mul instruction
-void emit_f32_mul(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x94);
-}
-
-// function to emit f32.div instruction
-void emit_f32_div(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x95);
-}
-
-// function to emit f32.min instruction
-void emit_f32_min(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x96);
-}
-
-// function to emit f32.max instruction
-void emit_f32_max(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x97);
-}
-
-// function to emit f32.copysign instruction
-void emit_f32_copysign(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x98);
-}
-
-// function to emit a f64.const instruction
-void emit_f64_const(Vec<uint8_t> &code, Allocator &al, double x) {
-    code.push_back(al, 0x44);
-    emit_f64(code, al, x);
-}
-
-// function to emit f64.abs instruction
-void emit_f64_abs(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x99);
-}
-
-// function to emit f64.neg instruction
-void emit_f64_neg(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x9A);
-}
-
-// function to emit f64.ceil instruction
-void emit_f64_ceil(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x9B);
-}
-
-// function to emit f64.floor instruction
-void emit_f64_floor(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x9C);
-}
-
-// function to emit f64.trunc instruction
-void emit_f64_trunc(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x9D);
-}
-
-// function to emit f64.nearest instruction
-void emit_f64_nearest(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x9E);
-}
-
-// function to emit f64.sqrt instruction
-void emit_f64_sqrt(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x9F);
-}
-
-// function to emit f64.add instruction
-void emit_f64_add(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0xA0);
-}
-
-// function to emit f64.sub instruction
-void emit_f64_sub(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0xA1);
-}
-
-// function to emit f64.mul instruction
-void emit_f64_mul(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0xA2);
-}
-
-// function to emit f64.div instruction
-void emit_f64_div(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0xA3);
-}
-
-// function to emit f64.min instruction
-void emit_f64_min(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0xA4);
-}
-
-// function to emit f64.max instruction
-void emit_f64_max(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0xA5);
-}
-
-// function to emit f64.copysign instruction
-void emit_f64_copysign(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0xA6);
-}
-
-/******** Float Relational Operations ********/
-
-// function to emit f32.eq instruction
-void emit_f32_eq(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x5B);
-}
-
-// function to emit f32.ne instruction
-void emit_f32_ne(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x5C);
-}
-
-// function to emit f32.lt instruction
-void emit_f32_lt(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x5D);
-}
-
-// function to emit f32.gt instruction
-void emit_f32_gt(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x5E);
-}
-
-// function to emit f32.le instruction
-void emit_f32_le(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x5F);
-}
-
-// function to emit f32.ge instruction
-void emit_f32_ge(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x60);
-}
-
-// function to emit f64.eq instruction
-void emit_f64_eq(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x61);
-}
-
-// function to emit f64.ne instruction
-void emit_f64_ne(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x62);
-}
-
-// function to emit f64.lt instruction
-void emit_f64_lt(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x63);
-}
-
-// function to emit f64.gt instruction
-void emit_f64_gt(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x64);
-}
-
-// function to emit f64.le instruction
-void emit_f64_le(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x65);
-}
-
-// function to emit f64.ge instruction
-void emit_f64_ge(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x66);
-}
-
-// function to emit string
-void emit_str_const(Vec<uint8_t> &code, Allocator &al, uint32_t mem_idx,
-                    const std::string &text) {
-    emit_u32(code, al,
-             0U);  // for active mode of memory with default mem_idx of 0
-    emit_i32_const(
-        code, al,
-        (int32_t)mem_idx);    // specifying memory location as instructions
-    emit_expr_end(code, al);  // end instructions
-    emit_str(code, al, text);
-}
-
-void emit_unreachable(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0x00);
-}
-
-void emit_branch(Vec<uint8_t> &code, Allocator &al, uint32_t label_idx) {
-    code.push_back(al, 0x0C);
-    emit_u32(code, al, label_idx);
-}
-
-void emit_branch_if(Vec<uint8_t> &code, Allocator &al, uint32_t label_idx) {
-    code.push_back(al, 0x0D);
-    emit_u32(code, al, label_idx);
-}
-
-void save_js_glue(std::string filename) {
-    std::string js_glue =
-        R"(function define_imports(memory, outputBuffer, exit_code, stdout_print) {
-    const printNum = (num) => outputBuffer.push(num.toString());
-    const printStr = (startIdx, strSize) => outputBuffer.push(
-        new TextDecoder("utf8").decode(new Uint8Array(memory.buffer, startIdx, strSize)));
-    const flushBuffer = () => {
-        stdout_print(outputBuffer.join(" ") + "\n");
-        outputBuffer.length = 0;
-    }
-    const set_exit_code = (exit_code_val) => exit_code.val = exit_code_val;
-    const cpu_time = (time) => (Date.now() / 1000); // Date.now() returns milliseconds, so divide by 1000
-    var imports = {
-        js: {
-            memory: memory,
-            /* functions */
-            print_i32: printNum,
-            print_i64: printNum,
-            print_f32: printNum,
-            print_f64: printNum,
-            print_str: printStr,
-            flush_buf: flushBuffer,
-            set_exit_code: set_exit_code,
-            cpu_time: cpu_time
-        },
-    };
-    return imports;
-}
-
-async function run_wasm(bytes, imports) {
-    try {
-        var res = await WebAssembly.instantiate(bytes, imports);
-        const { _lcompilers_main } = res.instance.exports;
-        _lcompilers_main();
-    } catch(e) { console.log(e); }
-}
-
-async function execute_code(bytes, stdout_print) {
-    var exit_code = {val: 1}; /* non-zero exit code */
-    var outputBuffer = [];
-    var memory = new WebAssembly.Memory({ initial: 100, maximum: 100 }); // fixed 6.4 Mb memory currently
-    var imports = define_imports(memory, outputBuffer, exit_code, stdout_print);
-    await run_wasm(bytes, imports);
-    return exit_code.val;
-}
-
-function main() {
-    const fs = require("fs");
-    const wasmBuffer = fs.readFileSync(")" +
-        filename + R"(");
-    execute_code(wasmBuffer, (text) => process.stdout.write(text))
-        .then((exit_code) => {
-            process.exit(exit_code);
-        })
-        .catch((e) => console.log(e))
-}
-
-main();
-)";
-    filename += ".js";
-    std::ofstream out(filename);
-    out << js_glue;
-    out.close();
-}
-
-void save_js_glue_wasi(std::string filename) {
-    std::string js_glue =
-R"(async function main() {
-    const fs = require("fs");
-    const { WASI } = require("wasi");
-    const wasi = new WASI();
-    const importObject = { wasi_snapshot_preview1: wasi.wasiImport };
-    const wasm = await WebAssembly.compile(fs.readFileSync(")" + filename + R"("));
-    const instance = await WebAssembly.instantiate(wasm, importObject);
-    wasi.start(instance);
-}
-main();
-)";
-    filename += ".js";
-    std::ofstream out(filename);
-    out << js_glue;
-    out.close();
-}
-
-void save_bin(Vec<uint8_t> &code, std::string filename) {
-    std::ofstream out(filename);
-    out.write((const char *)code.p, code.size());
-    out.close();
-    save_js_glue_wasi(filename);
-}
-
-/**************************** Type Conversion Operations
- * ****************************/
-
-// function to emit i32.wrap_i64 instruction
-void emit_i32_wrap_i64(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0xA7);
-}
-
-// function to emit i32.trunc_f32_s instruction
-void emit_i32_trunc_f32_s(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0xA8);
-}
-
-// function to emit i32.trunc_f32_u instruction
-void emit_i32_trunc_f32_u(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0xA9);
-}
-
-// function to emit i32.trunc_f64_s instruction
-void emit_i32_trunc_f64_s(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0xAA);
-}
-
-// function to emit i32.trunc_f64_u instruction
-void emit_i32_trunc_f64_u(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0xAB);
-}
-
-// function to emit i64.extend_i32_s instruction
-void emit_i64_extend_i32_s(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0xAC);
-}
-
-// function to emit i64.extend_i32_u instruction
-void emit_i64_extend_i32_u(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0xAD);
-}
-
-// function to emit i64.trunc_f32_s instruction
-void emit_i64_trunc_f32_s(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0xAE);
-}
-
-// function to emit i64.trunc_f32_u instruction
-void emit_i64_trunc_f32_u(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0xAF);
-}
-
-// function to emit i64.trunc_f64_s instruction
-void emit_i64_trunc_f64_s(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0xB0);
-}
-
-// function to emit i64.trunc_f64_u instruction
-void emit_i64_trunc_f64_u(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0xB1);
-}
-
-// function to emit f32.convert_i32_s instruction
-void emit_f32_convert_i32_s(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0xB2);
-}
-
-// function to emit f32.convert_i32_u instruction
-void emit_f32_convert_i32_u(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0xB3);
-}
-
-// function to emit f32.convert_i64_s instruction
-void emit_f32_convert_i64_s(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0xB4);
-}
-
-// function to emit f32.convert_i64_u instruction
-void emit_f32_convert_i64_u(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0xB5);
-}
-
-// function to emit f32.demote_f64 instruction
-void emit_f32_demote_f64(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0xB6);
-}
-
-// function to emit f64.convert_i32_s instruction
-void emit_f64_convert_i32_s(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0xB7);
-}
-
-// function to emit f64.convert_i32_u instruction
-void emit_f64_convert_i32_u(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0xB8);
-}
-
-// function to emit f64.convert_i64_s instruction
-void emit_f64_convert_i64_s(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0xB9);
-}
-
-// function to emit f64.convert_i64_u instruction
-void emit_f64_convert_i64_u(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0xBA);
-}
-
-// function to emit f64.promote_f32 instruction
-void emit_f64_promote_f32(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0xBB);
-}
-
-// function to emit i32.reinterpret_f32 instruction
-void emit_i32_reinterpret_f32(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0xBC);
-}
-
-// function to emit i64.reinterpret_f64 instruction
-void emit_i64_reinterpret_f64(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0xBD);
-}
-
-// function to emit f32.reinterpret_i32 instruction
-void emit_f32_reinterpret_i32(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0xBE);
-}
-
-// function to emit f64.reinterpret_i64 instruction
-void emit_f64_reinterpret_i64(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0xBF);
-}
-
-// function to emit i32.extend8_s instruction
-void emit_i32_extend8_s(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0xC0);
-}
-
-// function to emit i32.extend16_s instruction
-void emit_i32_extend16_s(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0xC1);
-}
-
-// function to emit i64.extend8_s instruction
-void emit_i64_extend8_s(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0xC2);
-}
-
-// function to emit i64.extend16_s instruction
-void emit_i64_extend16_s(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0xC3);
-}
-
-// function to emit i64.extend32_s instruction
-void emit_i64_extend32_s(Vec<uint8_t> &code, Allocator &al) {
-    code.push_back(al, 0xC4);
-}
-
-/**************************** Memory Instructions ****************************/
-
-// function to emit i32.load instruction
-void emit_i32_load(Vec<uint8_t> &code, Allocator &al, uint32_t mem_align,
-                   uint32_t mem_offset) {
-    emit_b8(code, al, 0x28);
-    emit_u32(code, al, mem_align);
-    emit_u32(code, al, mem_offset);
-}
-
-// function to emit i64.load instruction
-void emit_i64_load(Vec<uint8_t> &code, Allocator &al, uint32_t mem_align,
-                   uint32_t mem_offset) {
-    emit_b8(code, al, 0x29);
-    emit_u32(code, al, mem_align);
-    emit_u32(code, al, mem_offset);
-}
-
-// function to emit f32.load instruction
-void emit_f32_load(Vec<uint8_t> &code, Allocator &al, uint32_t mem_align,
-                   uint32_t mem_offset) {
-    emit_b8(code, al, 0x2A);
-    emit_u32(code, al, mem_align);
-    emit_u32(code, al, mem_offset);
-}
-
-// function to emit f64.load instruction
-void emit_f64_load(Vec<uint8_t> &code, Allocator &al, uint32_t mem_align,
-                   uint32_t mem_offset) {
-    emit_b8(code, al, 0x2B);
-    emit_u32(code, al, mem_align);
-    emit_u32(code, al, mem_offset);
-}
-
-// function to emit i32.load8_s instruction
-void emit_i32_load8_s(Vec<uint8_t> &code, Allocator &al, uint32_t mem_align,
-                      uint32_t mem_offset) {
-    emit_b8(code, al, 0x2C);
-    emit_u32(code, al, mem_align);
-    emit_u32(code, al, mem_offset);
-}
-
-// function to emit i32.load8_u instruction
-void emit_i32_load8_u(Vec<uint8_t> &code, Allocator &al, uint32_t mem_align,
-                      uint32_t mem_offset) {
-    emit_b8(code, al, 0x2D);
-    emit_u32(code, al, mem_align);
-    emit_u32(code, al, mem_offset);
-}
-
-// function to emit i32.load16_s instruction
-void emit_i32_load16_s(Vec<uint8_t> &code, Allocator &al, uint32_t mem_align,
-                       uint32_t mem_offset) {
-    emit_b8(code, al, 0x2E);
-    emit_u32(code, al, mem_align);
-    emit_u32(code, al, mem_offset);
-}
-
-// function to emit i32.load16_u instruction
-void emit_i32_load16_u(Vec<uint8_t> &code, Allocator &al, uint32_t mem_align,
-                       uint32_t mem_offset) {
-    emit_b8(code, al, 0x2F);
-    emit_u32(code, al, mem_align);
-    emit_u32(code, al, mem_offset);
-}
-
-// function to emit i64.load8_s instruction
-void emit_i64_load8_s(Vec<uint8_t> &code, Allocator &al, uint32_t mem_align,
-                      uint32_t mem_offset) {
-    emit_b8(code, al, 0x30);
-    emit_u32(code, al, mem_align);
-    emit_u32(code, al, mem_offset);
-}
-
-// function to emit i64.load8_u instruction
-void emit_i64_load8_u(Vec<uint8_t> &code, Allocator &al, uint32_t mem_align,
-                      uint32_t mem_offset) {
-    emit_b8(code, al, 0x31);
-    emit_u32(code, al, mem_align);
-    emit_u32(code, al, mem_offset);
-}
-
-// function to emit i64.load16_s instruction
-void emit_i64_load16_s(Vec<uint8_t> &code, Allocator &al, uint32_t mem_align,
-                       uint32_t mem_offset) {
-    emit_b8(code, al, 0x32);
-    emit_u32(code, al, mem_align);
-    emit_u32(code, al, mem_offset);
-}
-
-// function to emit i64.load16_u instruction
-void emit_i64_load16_u(Vec<uint8_t> &code, Allocator &al, uint32_t mem_align,
-                       uint32_t mem_offset) {
-    emit_b8(code, al, 0x33);
-    emit_u32(code, al, mem_align);
-    emit_u32(code, al, mem_offset);
-}
-
-// function to emit i64.load32_s instruction
-void emit_i64_load32_s(Vec<uint8_t> &code, Allocator &al, uint32_t mem_align,
-                       uint32_t mem_offset) {
-    emit_b8(code, al, 0x34);
-    emit_u32(code, al, mem_align);
-    emit_u32(code, al, mem_offset);
-}
-
-// function to emit i64.load32_u instruction
-void emit_i64_load32_u(Vec<uint8_t> &code, Allocator &al, uint32_t mem_align,
-                       uint32_t mem_offset) {
-    emit_b8(code, al, 0x35);
-    emit_u32(code, al, mem_align);
-    emit_u32(code, al, mem_offset);
-}
-
-// function to emit i32.store instruction
-void emit_i32_store(Vec<uint8_t> &code, Allocator &al, uint32_t mem_align,
-                    uint32_t mem_offset) {
-    emit_b8(code, al, 0x36);
-    emit_u32(code, al, mem_align);
-    emit_u32(code, al, mem_offset);
-}
-
-// function to emit i64.store instruction
-void emit_i64_store(Vec<uint8_t> &code, Allocator &al, uint32_t mem_align,
-                    uint32_t mem_offset) {
-    emit_b8(code, al, 0x37);
-    emit_u32(code, al, mem_align);
-    emit_u32(code, al, mem_offset);
-}
-
-// function to emit f32.store instruction
-void emit_f32_store(Vec<uint8_t> &code, Allocator &al, uint32_t mem_align,
-                    uint32_t mem_offset) {
-    emit_b8(code, al, 0x38);
-    emit_u32(code, al, mem_align);
-    emit_u32(code, al, mem_offset);
-}
-
-// function to emit f64.store instruction
-void emit_f64_store(Vec<uint8_t> &code, Allocator &al, uint32_t mem_align,
-                    uint32_t mem_offset) {
-    emit_b8(code, al, 0x39);
-    emit_u32(code, al, mem_align);
-    emit_u32(code, al, mem_offset);
-}
-
-// function to emit i32.store8 instruction
-void emit_i32_store8(Vec<uint8_t> &code, Allocator &al, uint32_t mem_align,
-                     uint32_t mem_offset) {
-    emit_b8(code, al, 0x3A);
-    emit_u32(code, al, mem_align);
-    emit_u32(code, al, mem_offset);
-}
-
-// function to emit i32.store16 instruction
-void emit_i32_store16(Vec<uint8_t> &code, Allocator &al, uint32_t mem_align,
-                      uint32_t mem_offset) {
-    emit_b8(code, al, 0x3B);
-    emit_u32(code, al, mem_align);
-    emit_u32(code, al, mem_offset);
-}
-
-// function to emit i64.store8 instruction
-void emit_i64_store8(Vec<uint8_t> &code, Allocator &al, uint32_t mem_align,
-                     uint32_t mem_offset) {
-    emit_b8(code, al, 0x3C);
-    emit_u32(code, al, mem_align);
-    emit_u32(code, al, mem_offset);
-}
-
-// function to emit i64.store16 instruction
-void emit_i64_store16(Vec<uint8_t> &code, Allocator &al, uint32_t mem_align,
-                      uint32_t mem_offset) {
-    emit_b8(code, al, 0x3D);
-    emit_u32(code, al, mem_align);
-    emit_u32(code, al, mem_offset);
-}
-
-// function to emit i64.store32 instruction
-void emit_i64_store32(Vec<uint8_t> &code, Allocator &al, uint32_t mem_align,
-                      uint32_t mem_offset) {
-    emit_b8(code, al, 0x3E);
-    emit_u32(code, al, mem_align);
-    emit_u32(code, al, mem_offset);
-}
-
-}  // namespace wasm
-
-}  // namespace LCompilers
diff --git a/src/libasr/codegen/wasm_decoder.h b/src/libasr/codegen/wasm_decoder.h
deleted file mode 100644
index 69afe6854a..0000000000
--- a/src/libasr/codegen/wasm_decoder.h
+++ /dev/null
@@ -1,392 +0,0 @@
-#ifndef LFORTRAN_WASM_DECODER_H
-#define LFORTRAN_WASM_DECODER_H
-
-#include <fstream>
-
-#include <libasr/assert.h>
-#include <libasr/alloc.h>
-#include <libasr/containers.h>
-#include <libasr/codegen/wasm_utils.h>
-
-// #define WAT_DEBUG
-
-#ifdef WAT_DEBUG
-#define DEBUG(s) std::cout << s << std::endl
-#else
-#define DEBUG(s)
-#endif
-
-namespace LCompilers {
-
-namespace {
-
-// This exception is used to abort the visitor pattern when an error occurs.
-class CodeGenAbort {};
-
-// Local exception that is only used in this file to exit the visitor
-// pattern and caught later (not propagated outside)
-class CodeGenError {
-   public:
-    diag::Diagnostic d;
-
-   public:
-    CodeGenError(const std::string &msg)
-        : d{diag::Diagnostic(msg, diag::Level::Error, diag::Stage::CodeGen)} {}
-
-    CodeGenError(const std::string &msg, const Location &loc)
-        : d{diag::Diagnostic(msg, diag::Level::Error, diag::Stage::CodeGen,
-                             {diag::Label("", {loc})})} {}
-};
-
-}  // namespace
-
-namespace wasm {
-
-template <class Struct>
-class WASMDecoder {
-   private:
-    Struct &self() { return static_cast<Struct &>(*this); }
-
-   public:
-    std::unordered_map<uint8_t, std::string> var_type_to_string;
-    std::unordered_map<uint8_t, std::string> kind_to_string;
-
-    Allocator &al;
-    diag::Diagnostics &diag;
-    Vec<uint8_t> wasm_bytes;
-    size_t PREAMBLE_SIZE;
-
-    Vec<wasm::FuncType> func_types;
-    Vec<wasm::Import> imports;
-    Vec<uint32_t> type_indices;
-    Vec<std::pair<uint32_t, uint32_t>> memories;
-    Vec<wasm::Global> globals;
-    Vec<wasm::Export> exports;
-    Vec<wasm::Code> codes;
-    Vec<wasm::Data> data_segments;
-
-    WASMDecoder(Allocator &al, diag::Diagnostics &diagonostics)
-        : al(al), diag(diagonostics) {
-        var_type_to_string = {
-            {0x7F, "i32"}, {0x7E, "i64"}, {0x7D, "f32"}, {0x7C, "f64"}};
-        kind_to_string = {
-            {0x00, "func"}, {0x01, "table"}, {0x02, "memory"}, {0x03, "global"}};
-
-        PREAMBLE_SIZE = 8 /* BYTES */;
-        // wasm_bytes.reserve(al, 1024 * 128);
-        // func_types.reserve(al, 1024 * 128);
-        // type_indices.reserve(al, 1024 * 128);
-        // exports.reserve(al, 1024 * 128);
-        // codes.reserve(al, 1024 * 128);
-    }
-
-    void load_file(std::string filename) {
-        std::ifstream file(filename, std::ios::binary);
-        file.seekg(0, std::ios::end);
-        size_t size = file.tellg();
-        file.seekg(0, std::ios::beg);
-        wasm_bytes.reserve(al, size);
-        file.read((char *)wasm_bytes.data(), size);
-        file.close();
-    }
-
-    bool is_preamble_ok(uint32_t offset) {
-        uint8_t expected_preamble[] = {0x00, 0x61, 0x73, 0x6D,
-                                       0x01, 0x00, 0x00, 0x00};
-        for (size_t i = 0; i < PREAMBLE_SIZE; i++) {
-            uint8_t cur_byte = read_b8(wasm_bytes, offset);
-            if (cur_byte != expected_preamble[i]) {
-                return false;
-            }
-        }
-        return true;
-    }
-
-    void decode_type_section(uint32_t offset) {
-        // read type section contents
-        uint32_t no_of_func_types = read_u32(wasm_bytes, offset);
-        DEBUG("no_of_func_types: " + std::to_string(no_of_func_types));
-        func_types.resize(al, no_of_func_types);
-
-        for (uint32_t i = 0; i < no_of_func_types; i++) {
-            if (wasm_bytes[offset] != 0x60) {
-                throw CodeGenError("Invalid type section");
-            }
-            offset++;
-
-            // read result type 1
-            uint32_t no_of_params = read_u32(wasm_bytes, offset);
-            func_types.p[i].param_types.resize(al, no_of_params);
-
-            for (uint32_t j = 0; j < no_of_params; j++) {
-                func_types.p[i].param_types.p[j] = read_b8(wasm_bytes, offset);
-            }
-
-            uint32_t no_of_results = read_u32(wasm_bytes, offset);
-            func_types.p[i].result_types.resize(al, no_of_results);
-
-            for (uint32_t j = 0; j < no_of_results; j++) {
-                func_types.p[i].result_types.p[j] = read_b8(wasm_bytes, offset);
-            }
-        }
-    }
-
-    void decode_imports_section(uint32_t offset) {
-        // read imports section contents
-        uint32_t no_of_imports = read_u32(wasm_bytes, offset);
-        DEBUG("no_of_imports: " + std::to_string(no_of_imports));
-        imports.resize(al, no_of_imports);
-
-        for (uint32_t i = 0; i < no_of_imports; i++) {
-            uint32_t mod_name_size = read_u32(wasm_bytes, offset);
-            imports.p[i].mod_name.resize(
-                mod_name_size);  // do not pass al to this resize as it is
-                                 // std::string.resize()
-            for (uint32_t j = 0; j < mod_name_size; j++) {
-                imports.p[i].mod_name[j] = read_b8(wasm_bytes, offset);
-            }
-
-            uint32_t name_size = read_u32(wasm_bytes, offset);
-            imports.p[i].name.resize(
-                name_size);  // do not pass al to this resize as it is
-                             // std::string.resize()
-            for (uint32_t j = 0; j < name_size; j++) {
-                imports.p[i].name[j] = read_b8(wasm_bytes, offset);
-            }
-
-            imports.p[i].kind = read_b8(wasm_bytes, offset);
-
-            switch (imports.p[i].kind) {
-                case 0x00: {
-                    imports.p[i].type_idx = read_u32(wasm_bytes, offset);
-                    break;
-                }
-                case 0x02: {
-                    uint8_t byte = read_b8(wasm_bytes, offset);
-                    if (byte == 0x00) {
-                        imports.p[i].mem_page_size_limits.first =
-                            read_u32(wasm_bytes, offset);
-                        imports.p[i].mem_page_size_limits.second =
-                            imports.p[i].mem_page_size_limits.first;
-                    } else {
-                        LCOMPILERS_ASSERT(byte == 0x01);
-                        imports.p[i].mem_page_size_limits.first =
-                            read_u32(wasm_bytes, offset);
-                        imports.p[i].mem_page_size_limits.second =
-                            read_u32(wasm_bytes, offset);
-                    }
-                    break;
-                }
-
-                default: {
-                    throw CodeGenError(
-                        "Only importing functions and memory are currently "
-                        "supported");
-                }
-            }
-        }
-    }
-
-    void decode_function_section(uint32_t offset) {
-        // read function section contents
-        uint32_t no_of_indices = read_u32(wasm_bytes, offset);
-        DEBUG("no_of_indices: " + std::to_string(no_of_indices));
-        type_indices.resize(al, no_of_indices);
-
-        for (uint32_t i = 0; i < no_of_indices; i++) {
-            type_indices.p[i] = read_u32(wasm_bytes, offset);
-        }
-    }
-
-    void decode_memory_section(uint32_t offset) {
-        // read memory section contents
-        uint32_t no_of_memories = read_u32(wasm_bytes, offset);
-        DEBUG("no_of_memories: " + std::to_string(no_of_memories));
-        memories.resize(al, no_of_memories);
-
-        for (uint32_t i = 0; i < no_of_memories; i++) {
-            uint8_t flag = read_b8(wasm_bytes, offset);
-            switch (flag) {
-                case 0x00: {
-                    memories.p[i].first = read_u32(wasm_bytes, offset);
-                    memories.p[i].second = 0;
-                    break;
-                }
-                case 0x01: {
-                    memories.p[i].first = read_u32(wasm_bytes, offset);
-                    memories.p[i].second = read_u32(wasm_bytes, offset);
-                    break;
-                }
-                default: {
-                    throw CodeGenError("Incorrect memory flag received.");
-                }
-            }
-        }
-    }
-
-    void decode_global_section(uint32_t offset) {
-        // read global section contents
-        uint32_t no_of_globals = read_u32(wasm_bytes, offset);
-        DEBUG("no_of_globals: " + std::to_string(no_of_globals));
-        globals.resize(al, no_of_globals);
-
-        for (uint32_t i = 0; i < no_of_globals; i++) {
-            globals.p[i].type = read_b8(wasm_bytes, offset);
-            globals.p[i].mut = read_b8(wasm_bytes, offset);
-            globals.p[i].insts_start_idx = offset;
-        }
-    }
-
-    void decode_export_section(uint32_t offset) {
-        // read export section contents
-        uint32_t no_of_exports = read_u32(wasm_bytes, offset);
-        DEBUG("no_of_exports: " + std::to_string(no_of_exports));
-        exports.resize(al, no_of_exports);
-
-        for (uint32_t i = 0; i < no_of_exports; i++) {
-            uint32_t name_size = read_u32(wasm_bytes, offset);
-            exports.p[i].name.resize(
-                name_size);  // do not pass al to this resize as it is
-                             // std::string.resize()
-            for (uint32_t j = 0; j < name_size; j++) {
-                exports.p[i].name[j] = read_b8(wasm_bytes, offset);
-            }
-            DEBUG("export name: " + exports.p[i].name);
-            exports.p[i].kind = read_b8(wasm_bytes, offset);
-            DEBUG("export kind: " + std::to_string(exports.p[i].kind));
-            exports.p[i].index = read_u32(wasm_bytes, offset);
-            DEBUG("export index: " + std::to_string(exports.p[i].index));
-        }
-    }
-
-    void decode_code_section(uint32_t offset) {
-        // read code section contents
-        uint32_t no_of_codes = read_u32(wasm_bytes, offset);
-        DEBUG("no_of_codes: " + std::to_string(no_of_codes));
-        codes.resize(al, no_of_codes);
-
-        for (uint32_t i = 0; i < no_of_codes; i++) {
-            codes.p[i].size = read_u32(wasm_bytes, offset);
-            uint32_t code_start_offset = offset;
-            uint32_t no_of_locals = read_u32(wasm_bytes, offset);
-            DEBUG("no_of_locals: " + std::to_string(no_of_locals));
-            codes.p[i].locals.resize(al, no_of_locals);
-
-            DEBUG("Entering loop");
-            for (uint32_t j = 0U; j < no_of_locals; j++) {
-                codes.p[i].locals.p[j].count = read_u32(wasm_bytes, offset);
-                DEBUG("count: " + std::to_string(codes.p[i].locals.p[j].count));
-                codes.p[i].locals.p[j].type = read_b8(wasm_bytes, offset);
-                DEBUG("type: " + std::to_string(codes.p[i].locals.p[j].type));
-            }
-            DEBUG("Exiting loop");
-
-            codes.p[i].insts_start_index = offset;
-
-            // skip offset to directly the end of instructions
-            offset = code_start_offset + codes.p[i].size;
-        }
-    }
-
-    void decode_data_section(uint32_t offset) {
-        // read code section contents
-        uint32_t no_of_data_segments = read_u32(wasm_bytes, offset);
-        DEBUG("no_of_data_segments: " + std::to_string(no_of_data_segments));
-        data_segments.resize(al, no_of_data_segments);
-
-        for (uint32_t i = 0; i < no_of_data_segments; i++) {
-            uint32_t num = read_u32(wasm_bytes, offset);
-            if (num != 0) {
-                throw CodeGenError(
-                    "Only active default memory (index = 0) is currently "
-                    "supported");
-            }
-
-            data_segments.p[i].insts_start_index = offset;
-
-            // read i32.const
-            if (read_b8(wasm_bytes, offset) != 0x41) {
-                throw CodeGenError("DecodeDataSection: Invalid byte for i32.const");
-            }
-            // read the integer (memory location)
-            read_i32(wasm_bytes, offset);
-            // read expr end
-            if (read_b8(wasm_bytes, offset) != 0x0B) {
-                throw CodeGenError("DecodeDataSection: Invalid byte for expr end");
-            }
-
-            uint32_t text_size = read_u32(wasm_bytes, offset);
-            data_segments.p[i].text.resize(
-                text_size);  // do not pass al to this resize as it is
-                             // std::string.resize()
-            for (uint32_t j = 0; j < text_size; j++) {
-                data_segments.p[i].text[j] = read_b8(wasm_bytes, offset);
-            }
-        }
-    }
-    void decode_wasm() {
-        // first 8 bytes are magic number and wasm version number
-        uint32_t index = 0;
-        if (!is_preamble_ok(index)) {
-            std::cerr << "Unexpected Preamble: ";
-            for (size_t i = 0; i < PREAMBLE_SIZE; i++) {
-                fprintf(stderr, "0x%.02X, ", wasm_bytes[i]);
-            }
-            throw CodeGenError(
-                "Expected: 0x00, 0x61, 0x73, 0x6D, 0x01, 0x00, 0x00, 0x00");
-        }
-        index += PREAMBLE_SIZE;
-        while (index < wasm_bytes.size()) {
-            uint32_t section_id = read_u32(wasm_bytes, index);
-            uint32_t section_size = read_u32(wasm_bytes, index);
-            switch (section_id) {
-                case 1U:
-                    decode_type_section(index);
-                    // exit(0);
-                    break;
-                case 2U:
-                    decode_imports_section(index);
-                    // exit(0);
-                    break;
-                case 3U:
-                    decode_function_section(index);
-                    // exit(0);
-                    break;
-                case 5U:
-                    decode_memory_section(index);
-                    // exit(0);
-                    break;
-                case 6U:
-                    decode_global_section(index);
-                    // exit(0);
-                    break;
-                case 7U:
-                    decode_export_section(index);
-                    // exit(0);
-                    break;
-                case 10U:
-                    decode_code_section(index);
-                    // exit(0)
-                    break;
-                case 11U:
-                    decode_data_section(index);
-                    // exit(0)
-                    break;
-                default:
-                    std::cout << "Unknown section id: " << section_id
-                              << std::endl;
-                    break;
-            }
-            index += section_size;
-        }
-
-        LCOMPILERS_ASSERT(index == wasm_bytes.size());
-        LCOMPILERS_ASSERT(type_indices.size() == codes.size());
-    }
-};
-
-}  // namespace wasm
-
-}  // namespace LCompilers
-
-#endif  // LFORTRAN_WASM_DECODER_H
diff --git a/src/libasr/codegen/wasm_to_wat.cpp b/src/libasr/codegen/wasm_to_wat.cpp
deleted file mode 100644
index 67e63a76c9..0000000000
--- a/src/libasr/codegen/wasm_to_wat.cpp
+++ /dev/null
@@ -1,447 +0,0 @@
-#include <fstream>
-
-#include <libasr/assert.h>
-#include <libasr/codegen/wasm_decoder.h>
-#include <libasr/codegen/wasm_to_wat.h>
-
-namespace LCompilers {
-
-namespace wasm {
-
-class WATVisitor : public WASMDecoder<WATVisitor>,
-                     public WASM_INSTS_VISITOR::BaseWASMVisitor<WATVisitor> {
-
-    std::string src, indent;
-
-   public:
-    WATVisitor(Allocator &al, diag::Diagnostics &diagonostics, Vec<uint8_t> &code)
-        : WASMDecoder(al, diagonostics), BaseWASMVisitor(code, 0U /* temporary offset */),
-         src(""), indent("") {
-            // We are currently maintaining the two copies of code
-            // one is wasm_bytes and the other is code
-            // TODO: Use only single copy throughout
-            wasm_bytes.from_pointer_n(code.data(), code.size());
-         }
-
-    void visit_Unreachable() { src += indent + "unreachable"; }
-    void visit_Return() { src += indent + "return"; }
-    void visit_Call(uint32_t func_index) {
-        src += indent + "call " + std::to_string(func_index);
-    }
-    void visit_Br(uint32_t label_index) {
-        src += indent + "br " + std::to_string(label_index);
-    }
-    void visit_BrIf(uint32_t label_index) {
-        src += indent + "br_if " + std::to_string(label_index);
-    }
-    void visit_Drop() { src += indent + "drop"; }
-    void visit_LocalGet(uint32_t localidx) {
-        src += indent + "local.get " + std::to_string(localidx);
-    }
-    void visit_LocalSet(uint32_t localidx) {
-        src += indent + "local.set " + std::to_string(localidx);
-    }
-    void visit_GlobalGet(uint32_t globalidx) {
-        src += indent + "global.get " + std::to_string(globalidx);
-    }
-    void visit_GlobalSet(uint32_t globalidx) {
-        src += indent + "global.set " + std::to_string(globalidx);
-    }
-    void visit_EmtpyBlockType() {}
-    void visit_If() {
-        src += indent + "if";
-        {
-            indent += "    ";
-            decode_instructions();
-            indent.resize(indent.length() - 4U);
-        }
-        src += indent + "end";
-    }
-    void visit_Else() {
-        src += indent.substr(0, indent.length() - 4U) + "else";
-    }
-    void visit_Loop() {
-        src += indent + "loop";
-        {
-            indent += "    ";
-            decode_instructions();
-            indent.resize(indent.length() - 4U);
-        }
-        src += indent + "end";
-    }
-
-    void visit_I32Const(int32_t value) {
-        src += indent + "i32.const " + std::to_string(value);
-    }
-    void visit_I32Clz() { src += indent + "i32.clz"; }
-    void visit_I32Ctz() { src += indent + "i32.ctz"; }
-    void visit_I32Popcnt() { src += indent + "i32.popcnt"; }
-    void visit_I32Add() { src += indent + "i32.add"; }
-    void visit_I32Sub() { src += indent + "i32.sub"; }
-    void visit_I32Mul() { src += indent + "i32.mul"; }
-    void visit_I32DivS() { src += indent + "i32.div_s"; }
-    void visit_I32DivU() { src += indent + "i32.div_u"; }
-    void visit_I32RemS() { src += indent + "i32.rem_s"; }
-    void visit_I32RemU() { src += indent + "i32.rem_u"; }
-    void visit_I32And() { src += indent + "i32.and"; }
-    void visit_I32Or() { src += indent + "i32.or"; }
-    void visit_I32Xor() { src += indent + "i32.xor"; }
-    void visit_I32Shl() { src += indent + "i32.shl"; }
-    void visit_I32ShrS() { src += indent + "i32.shr_s"; }
-    void visit_I32ShrU() { src += indent + "i32.shr_u"; }
-    void visit_I32Rotl() { src += indent + "i32.rotl"; }
-    void visit_I32Rotr() { src += indent + "i32.rotr"; }
-    void visit_I32Eqz() { src += indent + "i32.eqz"; }
-    void visit_I32Eq() { src += indent + "i32.eq"; }
-    void visit_I32Ne() { src += indent + "i32.ne"; }
-    void visit_I32LtS() { src += indent + "i32.lt_s"; }
-    void visit_I32LtU() { src += indent + "i32.lt_u"; }
-    void visit_I32GtS() { src += indent + "i32.gt_s"; }
-    void visit_I32GtU() { src += indent + "i32.gt_u"; }
-    void visit_I32LeS() { src += indent + "i32.le_s"; }
-    void visit_I32LeU() { src += indent + "i32.le_u"; }
-    void visit_I32GeS() { src += indent + "i32.ge_s"; }
-    void visit_I32GeU() { src += indent + "i32.ge_u"; }
-
-    void visit_I64Const(int64_t value) {
-        src += indent + "i64.const " + std::to_string(value);
-    }
-    void visit_I64Clz() { src += indent + "i64.clz"; }
-    void visit_I64Ctz() { src += indent + "i64.ctz"; }
-    void visit_I64Popcnt() { src += indent + "i64.popcnt"; }
-    void visit_I64Add() { src += indent + "i64.add"; }
-    void visit_I64Sub() { src += indent + "i64.sub"; }
-    void visit_I64Mul() { src += indent + "i64.mul"; }
-    void visit_I64DivS() { src += indent + "i64.div_s"; }
-    void visit_I64DivU() { src += indent + "i64.div_u"; }
-    void visit_I64RemS() { src += indent + "i64.rem_s"; }
-    void visit_I64RemU() { src += indent + "i64.rem_u"; }
-    void visit_I64And() { src += indent + "i64.and"; }
-    void visit_I64Or() { src += indent + "i64.or"; }
-    void visit_I64Xor() { src += indent + "i64.xor"; }
-    void visit_I64Shl() { src += indent + "i64.shl"; }
-    void visit_I64ShrS() { src += indent + "i64.shr_s"; }
-    void visit_I64ShrU() { src += indent + "i64.shr_u"; }
-    void visit_I64Rotl() { src += indent + "i64.rotl"; }
-    void visit_I64Rotr() { src += indent + "i64.rotr"; }
-    void visit_I64Eqz() { src += indent + "i64.eqz"; }
-    void visit_I64Eq() { src += indent + "i64.eq"; }
-    void visit_I64Ne() { src += indent + "i64.ne"; }
-    void visit_I64LtS() { src += indent + "i64.lt_s"; }
-    void visit_I64LtU() { src += indent + "i64.lt_u"; }
-    void visit_I64GtS() { src += indent + "i64.gt_s"; }
-    void visit_I64GtU() { src += indent + "i64.gt_u"; }
-    void visit_I64LeS() { src += indent + "i64.le_s"; }
-    void visit_I64LeU() { src += indent + "i64.le_u"; }
-    void visit_I64GeS() { src += indent + "i64.ge_s"; }
-    void visit_I64GeU() { src += indent + "i64.ge_u"; }
-
-    void visit_F32Const(float value) {
-        src += indent + "f32.const " + std::to_string(value);
-    }
-    void visit_F32Add() { src += indent + "f32.add"; }
-    void visit_F32Sub() { src += indent + "f32.sub"; }
-    void visit_F32Mul() { src += indent + "f32.mul"; }
-    void visit_F32Div() { src += indent + "f32.div"; }
-    void visit_F32DivS() { src += indent + "f32.div_s"; }
-    void visit_F32Eq() { src += indent + "f32.eq"; }
-    void visit_F32Ne() { src += indent + "f32.ne"; }
-    void visit_F32Lt() { src += indent + "f32.lt"; }
-    void visit_F32Gt() { src += indent + "f32.gt"; }
-    void visit_F32Le() { src += indent + "f32.le"; }
-    void visit_F32Ge() { src += indent + "f32.ge"; }
-    void visit_F32Abs() { src += indent + "f32.abs"; }
-    void visit_F32Neg() { src += indent + "f32.neg"; }
-    void visit_F32Ceil() { src += indent + "f32.ceil"; }
-    void visit_F32Floor() { src += indent + "f32.floor"; }
-    void visit_F32Trunc() { src += indent + "f32.trunc"; }
-    void visit_F32Nearest() { src += indent + "f32.nearest"; }
-    void visit_F32Sqrt() { src += indent + "f32.sqrt"; }
-    void visit_F32Min() { src += indent + "f32.min"; }
-    void visit_F32Max() { src += indent + "f32.max"; }
-    void visit_F32Copysign() { src += indent + "f32.copysign"; }
-
-    void visit_F64Const(double value) {
-        src += indent + "f64.const " + std::to_string(value);
-    }
-    void visit_F64Add() { src += indent + "f64.add"; }
-    void visit_F64Sub() { src += indent + "f64.sub"; }
-    void visit_F64Mul() { src += indent + "f64.mul"; }
-    void visit_F64Div() { src += indent + "f64.div"; }
-    void visit_F64Eq() { src += indent + "f64.eq"; }
-    void visit_F64Ne() { src += indent + "f64.ne"; }
-    void visit_F64Lt() { src += indent + "f64.lt"; }
-    void visit_F64Gt() { src += indent + "f64.gt"; }
-    void visit_F64Le() { src += indent + "f64.le"; }
-    void visit_F64Ge() { src += indent + "f64.ge"; }
-    void visit_F64Abs() { src += indent + "f64.abs"; }
-    void visit_F64Neg() { src += indent + "f64.neg"; }
-    void visit_F64Ceil() { src += indent + "f64.ceil"; }
-    void visit_F64Floor() { src += indent + "f64.floor"; }
-    void visit_F64Trunc() { src += indent + "f64.trunc"; }
-    void visit_F64Nearest() { src += indent + "f64.nearest"; }
-    void visit_F64Sqrt() { src += indent + "f64.sqrt"; }
-    void visit_F64Min() { src += indent + "f64.min"; }
-    void visit_F64Max() { src += indent + "f64.max"; }
-    void visit_F64Copysign() { src += indent + "f64.copysign"; }
-
-    void visit_I32WrapI64() { src += indent + "i32.wrap_i64"; }
-    void visit_I32TruncF32S() { src += indent + "i32.trunc_f32_s"; }
-    void visit_I32TruncF64S() { src += indent + "i32.trunc_f64_s"; }
-    void visit_I64ExtendI32S() { src += indent + "i64.extend_i32_s"; }
-    void visit_I64TruncF32S() { src += indent + "i64.trunc_f32_s"; }
-    void visit_I64TruncF64S() { src += indent + "i64.trunc_f64_s"; }
-    void visit_F32ConvertI32S() { src += indent + "f32.convert_i32_s"; }
-    void visit_F32ConvertI64S() { src += indent + "f32.convert_i64_s"; }
-    void visit_F32DemoteF64() { src += indent + "f32.demote_f64"; }
-    void visit_F64ConvertI32S() { src += indent + "f64.convert_i32_s"; }
-    void visit_F64ConvertI64S() { src += indent + "f64.convert_i64_s"; }
-    void visit_F64PromoteF32() { src += indent + "f64.promote_f32"; }
-    void visit_F64DivS() { src += indent + "f64.div_s"; }
-
-    void visit_I32Load(uint32_t mem_align, uint32_t mem_offset) {
-        src += indent + "i32.load offset=" + std::to_string(mem_offset) +
-               " align=" + std::to_string(1U << mem_align);
-    }
-    void visit_I64Load(uint32_t mem_align, uint32_t mem_offset) {
-        src += indent + "i64.load offset=" + std::to_string(mem_offset) +
-               " align=" + std::to_string(1U << mem_align);
-    }
-    void visit_F32Load(uint32_t mem_align, uint32_t mem_offset) {
-        src += indent + "f32.load offset=" + std::to_string(mem_offset) +
-               " align=" + std::to_string(1U << mem_align);
-    }
-    void visit_F64Load(uint32_t mem_align, uint32_t mem_offset) {
-        src += indent + "f64.load offset=" + std::to_string(mem_offset) +
-               " align=" + std::to_string(1U << mem_align);
-    }
-    void visit_I32Load8S(uint32_t mem_align, uint32_t mem_offset) {
-        src += indent + "i32.load8_s offset=" + std::to_string(mem_offset) +
-               " align=" + std::to_string(1U << mem_align);
-    }
-    void visit_I32Load8U(uint32_t mem_align, uint32_t mem_offset) {
-        src += indent + "i32.load8_u offset=" + std::to_string(mem_offset) +
-               " align=" + std::to_string(1U << mem_align);
-    }
-    void visit_I32Load16S(uint32_t mem_align, uint32_t mem_offset) {
-        src += indent + "i32.load16_s offset=" + std::to_string(mem_offset) +
-               " align=" + std::to_string(1U << mem_align);
-    }
-    void visit_I32Load16U(uint32_t mem_align, uint32_t mem_offset) {
-        src += indent + "i32.load16_u offset=" + std::to_string(mem_offset) +
-               " align=" + std::to_string(1U << mem_align);
-    }
-    void visit_I64Load8S(uint32_t mem_align, uint32_t mem_offset) {
-        src += indent + "i64.load8_s offset=" + std::to_string(mem_offset) +
-               " align=" + std::to_string(1U << mem_align);
-    }
-    void visit_I64Load8U(uint32_t mem_align, uint32_t mem_offset) {
-        src += indent + "i64.load8_u offset=" + std::to_string(mem_offset) +
-               " align=" + std::to_string(1U << mem_align);
-    }
-    void visit_I64Load16S(uint32_t mem_align, uint32_t mem_offset) {
-        src += indent + "i64.load16_s offset=" + std::to_string(mem_offset) +
-               " align=" + std::to_string(1U << mem_align);
-    }
-    void visit_I64Load16U(uint32_t mem_align, uint32_t mem_offset) {
-        src += indent + "i64.load16_u offset=" + std::to_string(mem_offset) +
-               " align=" + std::to_string(1U << mem_align);
-    }
-    void visit_I64Load32S(uint32_t mem_align, uint32_t mem_offset) {
-        src += indent + "i64.load32_s offset=" + std::to_string(mem_offset) +
-               " align=" + std::to_string(1U << mem_align);
-    }
-    void visit_I64Load32U(uint32_t mem_align, uint32_t mem_offset) {
-        src += indent + "i64.load32_u offset=" + std::to_string(mem_offset) +
-               " align=" + std::to_string(1U << mem_align);
-    }
-    void visit_I32Store(uint32_t mem_align, uint32_t mem_offset) {
-        src += indent + "i32.store offset=" + std::to_string(mem_offset) +
-               " align=" + std::to_string(1U << mem_align);
-    }
-    void visit_I64Store(uint32_t mem_align, uint32_t mem_offset) {
-        src += indent + "i64.store offset=" + std::to_string(mem_offset) +
-               " align=" + std::to_string(1U << mem_align);
-    }
-    void visit_F32Store(uint32_t mem_align, uint32_t mem_offset) {
-        src += indent + "f32.store offset=" + std::to_string(mem_offset) +
-               " align=" + std::to_string(1U << mem_align);
-    }
-    void visit_F64Store(uint32_t mem_align, uint32_t mem_offset) {
-        src += indent + "f64.store offset=" + std::to_string(mem_offset) +
-               " align=" + std::to_string(1U << mem_align);
-    }
-    void visit_I32Store8(uint32_t mem_align, uint32_t mem_offset) {
-        src += indent + "i32.store8 offset=" + std::to_string(mem_offset) +
-               " align=" + std::to_string(1U << mem_align);
-    }
-    void visit_I32Store16(uint32_t mem_align, uint32_t mem_offset) {
-        src += indent + "i32.store16 offset=" + std::to_string(mem_offset) +
-               " align=" + std::to_string(1U << mem_align);
-    }
-    void visit_I64Store8(uint32_t mem_align, uint32_t mem_offset) {
-        src += indent + "i64.store8 offset=" + std::to_string(mem_offset) +
-               " align=" + std::to_string(1U << mem_align);
-    }
-    void visit_I64Store16(uint32_t mem_align, uint32_t mem_offset) {
-        src += indent + "i64.store16 offset=" + std::to_string(mem_offset) +
-               " align=" + std::to_string(1U << mem_align);
-    }
-    void visit_I64Store32(uint32_t mem_align, uint32_t mem_offset) {
-        src += indent + "i64.store32 offset=" + std::to_string(mem_offset) +
-               " align=" + std::to_string(1U << mem_align);
-    }
-
-    std::string get_escaped_str(const std::string &s, bool is_iov) {
-        std::string escaped_str = "";
-        for (auto ch:s) {
-            if (!is_iov && ch >= 32) {
-                escaped_str += ch;
-            } else {
-                std::string byte(2, ' ');
-                snprintf(byte.data(), 3, "%02x", uint8_t(ch));
-                escaped_str += "\\" + byte;
-            }
-        }
-        return escaped_str;
-    }
-
-    std::string gen_wat() {
-        std::string result = "(module";
-        std::string indent = "\n    ";
-        for (uint32_t i = 0U; i < func_types.size(); i++) {
-            result +=
-                indent + "(type (;" + std::to_string(i) + ";) (func (param";
-            for (uint32_t j = 0; j < func_types[i].param_types.size(); j++) {
-                result +=
-                    " " + var_type_to_string[func_types[i].param_types.p[j]];
-            }
-            result += ") (result";
-            for (uint32_t j = 0; j < func_types[i].result_types.size(); j++) {
-                result +=
-                    " " + var_type_to_string[func_types[i].result_types.p[j]];
-            }
-            result += ")))";
-        }
-
-        for (uint32_t i = 0; i < imports.size(); i++) {
-            result += indent + "(import \"" + imports[i].mod_name + "\" \"" +
-                      imports[i].name + "\" ";
-            if (imports[i].kind == 0x00) {
-                result += "(func (;" + std::to_string(imports[i].type_idx) +
-                          ";) (type " + std::to_string(imports[i].type_idx) +
-                          ")))";
-            } else if (imports[i].kind == 0x02) {
-                result +=
-                    "(memory (;0;) " +
-                    std::to_string(imports[i].mem_page_size_limits.first) +
-                    " " +
-                    std::to_string(imports[i].mem_page_size_limits.second) +
-                    "))";
-            }
-        }
-
-        for (uint32_t i = 0; i < globals.size(); i++) {
-            std::string global_initialization_insts = "";
-            {
-                this->offset = globals.p[i].insts_start_idx;
-                this->indent = "";
-                this->src = "";
-                decode_instructions();
-                global_initialization_insts = this->src;
-            }
-            result += indent + "(global $" + std::to_string(i);
-            result += " " + var_type_to_string[globals[i].type];
-            result += " (" + global_initialization_insts + "))";
-        }
-
-        for (uint32_t i = 0; i < type_indices.size(); i++) {
-            uint32_t func_index = type_indices.p[i];
-            result += indent + "(func $" + std::to_string(func_index);
-            result += " (type " + std::to_string(func_index) + ") (param";
-            for (uint32_t j = 0; j < func_types[func_index].param_types.size();
-                 j++) {
-                result +=
-                    " " +
-                    var_type_to_string[func_types[func_index].param_types.p[j]];
-            }
-            result += ") (result";
-            for (uint32_t j = 0; j < func_types[func_index].result_types.size();
-                 j++) {
-                result += " " + var_type_to_string[func_types[func_index]
-                                                       .result_types.p[j]];
-            }
-            result += ")";
-            result += indent + "    (local";
-            for (uint32_t j = 0; j < codes.p[i].locals.size(); j++) {
-                for (uint32_t k = 0; k < codes.p[i].locals.p[j].count; k++) {
-                    result +=
-                        " " + var_type_to_string[codes.p[i].locals.p[j].type];
-                }
-            }
-            result += ")";
-
-            {
-                this->offset = codes.p[i].insts_start_index;
-                this->indent = indent + "    ";
-                this->src = "";
-                decode_instructions();
-                result += this->src;
-            }
-
-            result += indent + ")";
-        }
-
-        for (uint32_t i = 0; i < memories.size(); i++) {
-            result += indent + "(memory (;" + std::to_string(i) + ";) " +
-                      std::to_string(memories[i].first) + " " +
-                      ((memories[i].second > 0) ?
-                      std::to_string(memories[i].second) : "") + ")";
-        }
-
-        for (uint32_t i = 0; i < exports.size(); i++) {
-            result += indent + "(export \"" + exports.p[i].name + "\" (" +
-                      kind_to_string[exports.p[i].kind] + " " +
-                      std::to_string(exports.p[i].index) + "))";
-        }
-
-        for (uint32_t i = 0; i < data_segments.size(); i++) {
-            std::string date_segment_insts;
-            {
-                this->offset = data_segments.p[i].insts_start_index;
-                this->indent = "";
-                this->src = "";
-                decode_instructions();
-                date_segment_insts = this->src;
-            }
-            result += indent + "(data (;" + std::to_string(i) + ";) (" +
-                      date_segment_insts + ") \"" +
-                      get_escaped_str(data_segments[i].text, (i % 2 == 0)) + "\")";
-        }
-
-        result += "\n)\n";
-
-        return result;
-    }
-};
-
-}  // namespace wasm
-
-Result<std::string> wasm_to_wat(Vec<uint8_t> &wasm_bytes, Allocator &al,
-                                diag::Diagnostics &diagnostics) {
-    wasm::WATVisitor wasm_generator(al, diagnostics, wasm_bytes);
-    std::string wat;
-
-    try {
-        wasm_generator.decode_wasm();
-    } catch (const CodeGenError &e) {
-        diagnostics.diagnostics.push_back(e.d);
-        return Error();
-    }
-
-    wat = wasm_generator.gen_wat();
-
-    return wat;
-}
-
-}  // namespace LCompilers
diff --git a/src/libasr/codegen/wasm_to_wat.h b/src/libasr/codegen/wasm_to_wat.h
deleted file mode 100644
index 51f1183f30..0000000000
--- a/src/libasr/codegen/wasm_to_wat.h
+++ /dev/null
@@ -1,13 +0,0 @@
-#ifndef LFORTRAN_WASM_TO_WAT_H
-#define LFORTRAN_WASM_TO_WAT_H
-
-#include <libasr/wasm_visitor.h>
-
-namespace LCompilers {
-
-Result<std::string> wasm_to_wat(Vec<uint8_t> &wasm_bytes, Allocator &al,
-                                diag::Diagnostics &diagnostics);
-
-}  // namespace LCompilers
-
-#endif  // LFORTRAN_WASM_TO_WAT_H
diff --git a/src/libasr/codegen/wasm_to_x64.cpp b/src/libasr/codegen/wasm_to_x64.cpp
deleted file mode 100644
index 6068e0f92a..0000000000
--- a/src/libasr/codegen/wasm_to_x64.cpp
+++ /dev/null
@@ -1,695 +0,0 @@
-#include <fstream>
-#include <chrono>
-#include <iomanip>
-
-#include <libasr/assert.h>
-#include <libasr/codegen/wasm_decoder.h>
-#include <libasr/codegen/wasm_to_x64.h>
-#include <libasr/codegen/x86_assembler.h>
-
-namespace LCompilers {
-
-namespace wasm {
-
-/*
-
-This X64Visitor uses stack to pass arguments and return values from functions.
-Since in X64, instructions operate on registers (and not on stack),
-for every instruction we pop elements from top of stack and store them into
-registers. After operating on the registers, the result value is then
-pushed back onto the stack.
-
-One of the reasons to use stack to pass function arguments is that,
-it allows us to define and call functions with any number of parameters.
-As registers are limited in number, if we use them to pass function arguments,
-the number of arguments we could pass to a function would get limited by
-the number of registers available with the CPU.
-
-*/
-enum Block {
-    LOOP = 0,
-    IF = 1
-};
-
-class X64Visitor : public WASMDecoder<X64Visitor>,
-                   public WASM_INSTS_VISITOR::BaseWASMVisitor<X64Visitor> {
-   public:
-    X86Assembler &m_a;
-    uint32_t cur_func_idx;
-    uint32_t block_id;
-    uint32_t NO_OF_IMPORTS;
-    std::vector<std::pair<uint32_t, Block>> blocks;
-    std::map<std::string, std::string> label_to_str;
-    std::map<std::string, double> double_consts;
-
-    X64Visitor(X86Assembler &m_a, Allocator &al,
-               diag::Diagnostics &diagonostics, Vec<uint8_t> &code)
-        : WASMDecoder(al, diagonostics),
-          BaseWASMVisitor(code, 0U /* temporary offset */),
-          m_a(m_a) {
-        wasm_bytes.from_pointer_n(code.data(), code.size());
-        block_id = 1;
-        NO_OF_IMPORTS = 0;
-    }
-
-    void visit_Return() {
-        // Restore stack
-        m_a.asm_mov_r64_r64(X64Reg::rsp, X64Reg::rbp);
-        m_a.asm_pop_r64(X64Reg::rbp);
-        m_a.asm_ret();
-    }
-
-    void visit_Unreachable() {}
-
-    void visit_EmtpyBlockType() {}
-
-    void visit_Drop() { m_a.asm_pop_r64(X64Reg::rax); }
-
-    void call_imported_function(uint32_t func_idx) {
-
-        switch (func_idx) {
-            case 0: {  // proc_exit
-            /*
-                TODO: This way increases the number of intructions.
-                There is a possibility that we can wrap these statements
-                with some add label and then just jump/call to that label
-            */
-                m_a.asm_pop_r64(X64Reg::rdi); // get exit code from stack top
-                m_a.asm_mov_r64_imm64(X64Reg::rax, 60); // sys_exit
-                m_a.asm_syscall(); // syscall
-                break;
-            }
-            case 1: {  // fd_write
-            /*
-                TODO: This way increases the number of intructions.
-                There is a possibility that we can wrap these statements
-                with some add label and then just jump/call to that label
-            */
-
-                m_a.asm_pop_r64(X64Reg::r11); // mem_loc to write return value (not usefull for us currently)
-                m_a.asm_pop_r64(X64Reg::r12); // no of iov vectors (always emitted 1 by wasm, not usefull for us currently)
-                m_a.asm_pop_r64(X64Reg::r13); // mem_loc to string iov vector
-                m_a.asm_pop_r64(X64Reg::r14); // filetypes (1 for stdout, not usefull for us currently)
-
-                m_a.asm_mov_r64_label(X64Reg::rbx, "base_memory");
-                m_a.asm_add_r64_r64(X64Reg::rbx, X64Reg::r13);
-
-                m_a.asm_mov_r64_imm64(X64Reg::rax, 0);
-                m_a.asm_mov_r64_imm64(X64Reg::rdx, 0);
-                // TODO: Currently this uses a combination of i32 and i64 registers. Fix it in upcoming PRs.
-                X86Reg base = X86Reg::ebx;
-                m_a.asm_mov_r32_m32(X86Reg::eax, &base, nullptr, 1, 0); // location
-                m_a.asm_mov_r32_m32(X86Reg::edx, &base, nullptr, 1, 4); // length
-
-                {
-                    // write system call
-                    m_a.asm_mov_r64_label(X64Reg::rsi, "base_memory");
-                    m_a.asm_add_r64_r64(X64Reg::rsi, X64Reg::rax); // base_memory + location
-                    m_a.asm_mov_r64_imm64(X64Reg::rax, 1); // system call no (1 for write)
-                    m_a.asm_mov_r64_imm64(X64Reg::rdi, 1); // stdout_file no
-                    // rsi stores location, length is already stored in rdx
-                    m_a.asm_syscall();
-
-                    m_a.asm_push_r64(X64Reg::rax); // push return value onto stack
-                }
-                break;
-            }
-            default: {
-                std::cerr << "Unsupported func_idx\n";
-            }
-        }
-    }
-
-    void visit_Call(uint32_t func_idx) {
-        if (func_idx < NO_OF_IMPORTS) {
-            call_imported_function(func_idx);
-            return;
-        }
-
-        func_idx -= NO_OF_IMPORTS; // adjust function index as per imports
-        m_a.asm_call_label(exports[func_idx + 1 /* offset by 1 becaz of mem export */].name);
-
-        // Pop the passed function arguments
-        wasm::FuncType func_type = func_types[type_indices[func_idx]];
-        m_a.asm_add_r64_imm32(X64Reg::rsp, 8 * func_type.param_types.size()); // pop the passed argument
-
-        // Adjust the return values of the called function
-        X64Reg base = X64Reg::rsp;
-        for (uint32_t i = 0; i < func_type.result_types.size(); i++) {
-            // take value into eax
-            m_a.asm_mov_r64_m64(X64Reg::rax, &base, nullptr, 1,
-                -8 * (func_type.param_types.size() + 2 +
-                       codes[func_idx].locals.size() + 1));
-
-            // push eax value onto stack
-            m_a.asm_push_r64(X64Reg::rax);
-        }
-    }
-
-    void visit_Loop() {
-        std::string label = std::to_string(block_id);
-        blocks.push_back({block_id++, Block::LOOP});
-        /*
-        The loop statement starts with `loop.head`. The `loop.body` and
-        `loop.branch` are enclosed within the `if.block`. If the condition
-        fails, the loop is exited through `else.block`.
-        .head
-            .If
-                # Statements
-                .Br to loop head
-            .Else
-            .endIf
-        .end
-        */
-        m_a.add_label(".loop.head_" + label);
-        {
-            decode_instructions();
-        }
-        // end
-        m_a.add_label(".loop.end_" + label);
-        blocks.pop_back();
-    }
-
-    void visit_Br(uint32_t labelidx) {
-        // Branch is used to jump to the `loop.head` or `loop.end`.
-
-        uint32_t b_id;
-        Block block_type;
-        std::tie(b_id, block_type) = blocks[blocks.size() - 1 - labelidx];
-        std::string label = std::to_string(b_id);
-        switch (block_type) {
-            /*
-            From WebAssembly Docs:
-                The exact effect of branch depends on that control construct.
-                In case of block or if, it is a forward jump, resuming execution after the matching end.
-                In case of loop, it is a backward jump to the beginning of the loop.
-            */
-            case Block::LOOP: m_a.asm_jmp_label(".loop.head_" + label); break;
-            case Block::IF: m_a.asm_jmp_label(".endif_" + label); break;
-        }
-    }
-
-    void visit_If() {
-        std::string label = std::to_string(block_id);
-        blocks.push_back({block_id++, Block::IF});
-        m_a.asm_pop_r64(X64Reg::rax); // now `rax` contains the logical value (true = 1, false = 0) of the if condition
-        m_a.asm_cmp_r64_imm8(X64Reg::rax, 1);
-        m_a.asm_je_label(".then_" + label);
-        m_a.asm_jmp_label(".else_" + label);
-        m_a.add_label(".then_" + label);
-        {
-            decode_instructions();
-        }
-        m_a.add_label(".endif_" + label);
-        blocks.pop_back();
-    }
-
-    void visit_Else() {
-        std::string label = std::to_string(blocks.back().first);
-        m_a.asm_jmp_label(".endif_" + label);
-        m_a.add_label(".else_" + label);
-    }
-
-    void visit_LocalGet(uint32_t localidx) {
-        X64Reg base = X64Reg::rbp;
-        auto cur_func_param_type = func_types[type_indices[cur_func_idx]];
-        int no_of_params = (int)cur_func_param_type.param_types.size();
-        if ((int)localidx < no_of_params) {
-            std::string var_type = var_type_to_string[cur_func_param_type.param_types[localidx]];
-            if (var_type == "i32") {
-                m_a.asm_mov_r64_m64(X64Reg::rax, &base, nullptr, 1, 8 * (2 + no_of_params - (int)localidx - 1));
-                m_a.asm_push_r64(X64Reg::rax);
-            } else if (var_type == "i64") {
-                m_a.asm_mov_r64_m64(X64Reg::rax, &base, nullptr, 1, 8 * (2 + no_of_params - (int)localidx - 1));
-                m_a.asm_push_r64(X64Reg::rax);
-            } else if (var_type == "f64") {
-                m_a.asm_sub_r64_imm32(X64Reg::rsp,  8); // create space for value to be fetched
-                m_a.asm_movsd_r64_m64(X64FReg::xmm0, &base, nullptr, 1, 8 * (2 + no_of_params - (int)localidx - 1));
-                X64Reg stack_top = X64Reg::rsp;
-                m_a.asm_movsd_m64_r64(&stack_top, nullptr, 1, 0, X64FReg::xmm0);
-            } else {
-                throw AssemblerError("WASM_X64: Var type not supported");
-            }
-        } else {
-            localidx -= no_of_params;
-            std::string var_type = var_type_to_string[codes[cur_func_idx].locals[localidx].type];
-            if (var_type == "i32") {
-                m_a.asm_mov_r64_m64(X64Reg::rax, &base, nullptr, 1, -8 * (1 + (int)localidx));
-                m_a.asm_push_r64(X64Reg::rax);
-            } else if (var_type == "i64") {
-                m_a.asm_mov_r64_m64(X64Reg::rax, &base, nullptr, 1, -8 * (1 + (int)localidx));
-                m_a.asm_push_r64(X64Reg::rax);
-            } else if (var_type == "f64") {
-                m_a.asm_sub_r64_imm32(X64Reg::rsp,  8); // create space for value to be fetched
-                m_a.asm_movsd_r64_m64(X64FReg::xmm0, &base, nullptr, 1, -8 * (1 + (int)localidx));
-                X64Reg stack_top = X64Reg::rsp;
-                m_a.asm_movsd_m64_r64(&stack_top, nullptr, 1, 0, X64FReg::xmm0);
-            } else {
-                throw AssemblerError("WASM_X64: Var type not supported");
-            }
-        }
-    }
-
-    void visit_LocalSet(uint32_t localidx) {
-        X64Reg base = X64Reg::rbp;
-        auto cur_func_param_type = func_types[type_indices[cur_func_idx]];
-        int no_of_params = (int)cur_func_param_type.param_types.size();
-        if ((int)localidx < no_of_params) {
-            std::string var_type = var_type_to_string[cur_func_param_type.param_types[localidx]];
-            if (var_type == "i32") {
-                m_a.asm_pop_r64(X64Reg::rax);
-                m_a.asm_mov_m64_r64(&base, nullptr, 1, 8 * (2 + no_of_params - (int)localidx - 1), X64Reg::rax);
-            } else if (var_type == "i64") {
-                m_a.asm_pop_r64(X64Reg::rax);
-                m_a.asm_mov_m64_r64(&base, nullptr, 1, 8 * (2 + no_of_params - (int)localidx - 1), X64Reg::rax);
-            } else if (var_type == "f64") {
-                X64Reg stack_top = X64Reg::rsp;
-                m_a.asm_movsd_r64_m64(X64FReg::xmm0, &stack_top, nullptr, 1, 0);
-                m_a.asm_movsd_m64_r64(&base, nullptr, 1, 8 * (2 + no_of_params - (int)localidx - 1), X64FReg::xmm0);
-                m_a.asm_add_r64_imm32(X64Reg::rsp, 8); // remove from stack top
-            } else {
-                throw AssemblerError("WASM_X64: Var type not supported");
-            }
-        } else {
-            localidx -= no_of_params;
-            std::string var_type = var_type_to_string[codes[cur_func_idx].locals[localidx].type];
-            if (var_type == "i32") {
-                m_a.asm_pop_r64(X64Reg::rax);
-                m_a.asm_mov_m64_r64(&base, nullptr, 1, -8 * (1 + (int)localidx), X64Reg::rax);
-            } else if (var_type == "i64") {
-                m_a.asm_pop_r64(X64Reg::rax);
-                m_a.asm_mov_m64_r64(&base, nullptr, 1, -8 * (1 + (int)localidx), X64Reg::rax);
-            } else if (var_type == "f64") {
-                X64Reg stack_top = X64Reg::rsp;
-                m_a.asm_movsd_r64_m64(X64FReg::xmm0, &stack_top, nullptr, 1, 0);
-                m_a.asm_movsd_m64_r64(&base, nullptr, 1, -8 * (1 + (int)localidx), X64FReg::xmm0);
-                m_a.asm_add_r64_imm32(X64Reg::rsp, 8); // remove from stack top
-            } else {
-                throw AssemblerError("WASM_X64: Var type not supported");
-            }
-        }
-    }
-
-    void visit_I32Const(int32_t value) {
-        m_a.asm_mov_r64_imm64(X64Reg::rax, labs((int64_t)value));
-        if (value < 0) m_a.asm_neg_r64(X64Reg::rax);
-        m_a.asm_push_r64(X64Reg::rax);
-    }
-
-    template<typename F>
-    void handleI32Opt(F && f) {
-        m_a.asm_pop_r64(X64Reg::rbx);
-        m_a.asm_pop_r64(X64Reg::rax);
-        f();
-        m_a.asm_push_r64(X64Reg::rax);
-    }
-
-    void visit_I32Add() {
-        handleI32Opt([&](){ m_a.asm_add_r64_r64(X64Reg::rax, X64Reg::rbx);});
-    }
-    void visit_I32Sub() {
-        handleI32Opt([&](){ m_a.asm_sub_r64_r64(X64Reg::rax, X64Reg::rbx);});
-    }
-    void visit_I32Mul() {
-        handleI32Opt([&](){ m_a.asm_mul_r64(X64Reg::rbx);});
-    }
-    void visit_I32DivS() {
-        handleI32Opt([&](){
-            m_a.asm_mov_r64_imm64(X64Reg::rdx, 0);
-            m_a.asm_div_r64(X64Reg::rbx);
-        });
-    }
-
-    void visit_I32And() {
-        handleI32Opt([&](){ m_a.asm_and_r64_r64(X64Reg::rax, X64Reg::rbx);});
-    }
-
-    void visit_I32Or() {
-        handleI32Opt([&](){ m_a.asm_or_r64_r64(X64Reg::rax, X64Reg::rbx);});
-    }
-
-    void visit_I32Xor() {
-        handleI32Opt([&](){ m_a.asm_xor_r64_r64(X64Reg::rax, X64Reg::rbx);});
-    }
-
-    void visit_I32Shl() {
-        m_a.asm_pop_r64(X64Reg::rcx);
-        m_a.asm_pop_r64(X64Reg::rax);
-        m_a.asm_shl_r64_cl(X64Reg::rax);
-        m_a.asm_push_r64(X64Reg::rax);
-    }
-    void visit_I32ShrS() {
-        m_a.asm_pop_r64(X64Reg::rcx);
-        m_a.asm_pop_r64(X64Reg::rax);
-        m_a.asm_sar_r64_cl(X64Reg::rax);
-        m_a.asm_push_r64(X64Reg::rax);
-     }
-
-    void visit_I32Eqz() {
-        m_a.asm_mov_r64_imm64(X64Reg::rax, 0);
-        m_a.asm_push_r64(X64Reg::rax);
-        handle_I32Compare<&X86Assembler::asm_je_label>();
-    }
-
-    using JumpFn = void(X86Assembler::*)(const std::string&);
-    template<JumpFn T>
-    void handle_I32Compare() {
-        std::string label = std::to_string(offset);
-        m_a.asm_pop_r64(X64Reg::rbx);
-        m_a.asm_pop_r64(X64Reg::rax);
-        // `rax` and `rbx` contain the left and right operands, respectively
-        m_a.asm_cmp_r64_r64(X64Reg::rax, X64Reg::rbx);
-
-        (m_a.*T)(".compare_1" + label);
-
-        // if the `compare` condition in `true`, jump to compare_1
-        // and assign `1` else assign `0`
-        m_a.asm_push_imm8(0);
-        m_a.asm_jmp_label(".compare.end_" + label);
-        m_a.add_label(".compare_1" + label);
-        m_a.asm_push_imm8(1);
-        m_a.add_label(".compare.end_" + label);
-    }
-
-    void visit_I32Eq() { handle_I32Compare<&X86Assembler::asm_je_label>(); }
-    void visit_I32GtS() { handle_I32Compare<&X86Assembler::asm_jg_label>(); }
-    void visit_I32GeS() { handle_I32Compare<&X86Assembler::asm_jge_label>(); }
-    void visit_I32LtS() { handle_I32Compare<&X86Assembler::asm_jl_label>(); }
-    void visit_I32LeS() { handle_I32Compare<&X86Assembler::asm_jle_label>(); }
-    void visit_I32Ne() { handle_I32Compare<&X86Assembler::asm_jne_label>(); }
-
-    void visit_I64Const(int32_t value) {
-        m_a.asm_mov_r64_imm64(X64Reg::rax, labs((int64_t)value));
-        if (value < 0) m_a.asm_neg_r64(X64Reg::rax);
-        m_a.asm_push_r64(X64Reg::rax);
-    }
-
-    template<typename F>
-    void handleI64Opt(F && f) {
-        m_a.asm_pop_r64(X64Reg::rbx);
-        m_a.asm_pop_r64(X64Reg::rax);
-        f();
-        m_a.asm_push_r64(X64Reg::rax);
-    }
-
-    void visit_I64Add() {
-        handleI64Opt([&](){ m_a.asm_add_r64_r64(X64Reg::rax, X64Reg::rbx);});
-    }
-    void visit_I64Sub() {
-        handleI64Opt([&](){ m_a.asm_sub_r64_r64(X64Reg::rax, X64Reg::rbx);});
-    }
-    void visit_I64Mul() {
-        handleI64Opt([&](){ m_a.asm_mul_r64(X64Reg::rbx);});
-    }
-    void visit_I64DivS() {
-        handleI64Opt([&](){
-            m_a.asm_mov_r64_imm64(X64Reg::rdx, 0);
-            m_a.asm_div_r64(X64Reg::rbx);});
-    }
-
-    void visit_I64And() {
-        handleI64Opt([&](){ m_a.asm_and_r64_r64(X64Reg::rax, X64Reg::rbx);});
-    }
-
-    void visit_I64Or() {
-        handleI64Opt([&](){ m_a.asm_or_r64_r64(X64Reg::rax, X64Reg::rbx);});
-    }
-
-    void visit_I64Xor() {
-        handleI64Opt([&](){ m_a.asm_xor_r64_r64(X64Reg::rax, X64Reg::rbx);});
-    }
-
-    void visit_I64RemS() {
-        m_a.asm_pop_r64(X64Reg::rbx);
-        m_a.asm_pop_r64(X64Reg::rax);
-        m_a.asm_mov_r64_imm64(X64Reg::rdx, 0);
-        m_a.asm_div_r64(X64Reg::rbx);
-        m_a.asm_push_r64(X64Reg::rdx);
-    }
-
-    void visit_I32WrapI64() {
-        // empty, since i32's and i64's are considered similar currently.
-    }
-
-    void visit_I64Store(uint32_t /*mem_align*/, uint32_t /*mem_offset*/) {
-        m_a.asm_pop_r64(X64Reg::rbx);
-        m_a.asm_pop_r64(X64Reg::rax);
-        // Store value rbx at location rax
-        X64Reg base = X64Reg::rax;
-        m_a.asm_mov_m64_r64(&base, nullptr, 1, 0, X64Reg::rbx);
-    }
-
-    void visit_I64Shl() {
-        m_a.asm_pop_r64(X64Reg::rcx);
-        m_a.asm_pop_r64(X64Reg::rax);
-        m_a.asm_shl_r64_cl(X64Reg::rax);
-        m_a.asm_push_r64(X64Reg::rax);
-    }
-    void visit_I64ShrS() {
-        m_a.asm_pop_r64(X64Reg::rcx);
-        m_a.asm_pop_r64(X64Reg::rax);
-        m_a.asm_sar_r64_cl(X64Reg::rax);
-        m_a.asm_push_r64(X64Reg::rax);
-     }
-
-    void visit_I64Eqz() {
-        m_a.asm_mov_r64_imm64(X64Reg::rax, 0);
-        m_a.asm_push_r64(X64Reg::rax);
-        handle_I64Compare<&X86Assembler::asm_je_label>();
-    }
-
-    template<JumpFn T>
-    void handle_I64Compare() {
-        std::string label = std::to_string(offset);
-        m_a.asm_pop_r64(X64Reg::rbx);
-        m_a.asm_pop_r64(X64Reg::rax);
-        // `rax` and `rbx` contain the left and right operands, respectively
-        m_a.asm_cmp_r64_r64(X64Reg::rax, X64Reg::rbx);
-
-        (m_a.*T)(".compare_1" + label);
-
-        // if the `compare` condition in `true`, jump to compare_1
-        // and assign `1` else assign `0`
-        m_a.asm_push_imm8(0);
-        m_a.asm_jmp_label(".compare.end_" + label);
-        m_a.add_label(".compare_1" + label);
-        m_a.asm_push_imm8(1);
-        m_a.add_label(".compare.end_" + label);
-    }
-
-    void visit_I64Eq() { handle_I64Compare<&X86Assembler::asm_je_label>(); }
-    void visit_I64GtS() { handle_I64Compare<&X86Assembler::asm_jg_label>(); }
-    void visit_I64GeS() { handle_I64Compare<&X86Assembler::asm_jge_label>(); }
-    void visit_I64LtS() { handle_I64Compare<&X86Assembler::asm_jl_label>(); }
-    void visit_I64LeS() { handle_I64Compare<&X86Assembler::asm_jle_label>(); }
-    void visit_I64Ne() { handle_I64Compare<&X86Assembler::asm_jne_label>(); }
-
-    void visit_I64TruncF64S() {
-        X64Reg stack_top = X64Reg::rsp;
-        m_a.asm_movsd_r64_m64(X64FReg::xmm0, &stack_top, nullptr, 1, 0); // load into floating-point register
-        m_a.asm_add_r64_imm32(X64Reg::rsp, 8); // increment stack and deallocate space
-        m_a.asm_cvttsd2si_r64_r64(X64Reg::rax, X64FReg::xmm0); // rax now contains value int(xmm0)
-        m_a.asm_push_r64(X64Reg::rax);
-    }
-
-    void visit_I64ExtendI32S() {
-        // empty, since all i32's are already considered as i64's currently.
-    }
-
-    std::string float_to_str(double z) {
-        std::string float_str = "";
-        for (auto ch:std::to_string(z)) {
-            if (ch == '-') {
-                float_str += "neg_";
-            } else if (ch == '.') {
-                float_str += "_dot_";
-            } else {
-                float_str += ch;
-            }
-        }
-        return float_str;
-    }
-
-    void visit_F64Const(double z) {
-        std::string label = "float_" + float_to_str(z);
-        double_consts[label] = z;
-        m_a.asm_mov_r64_label(X64Reg::rax, label);
-        X64Reg label_reg = X64Reg::rax;
-        m_a.asm_movsd_r64_m64(X64FReg::xmm0, &label_reg, nullptr, 1, 0); // load into floating-point register
-        m_a.asm_sub_r64_imm32(X64Reg::rsp, 8); // decrement stack and create space
-        X64Reg stack_top = X64Reg::rsp;
-        m_a.asm_movsd_m64_r64(&stack_top, nullptr, 1, 0, X64FReg::xmm0); // store float on integer stack top;
-    }
-
-    using F64OptFn = void(X86Assembler::*)(X64FReg, X64FReg);
-    template<F64OptFn T>
-    void handleF64Operations() {
-        X64Reg stack_top = X64Reg::rsp;
-        // load second operand into floating-point register
-        m_a.asm_movsd_r64_m64(X64FReg::xmm1, &stack_top, nullptr, 1, 0);
-        m_a.asm_add_r64_imm32(X64Reg::rsp, 8); // pop the argument
-        // load first operand into floating-point register
-        m_a.asm_movsd_r64_m64(X64FReg::xmm0, &stack_top, nullptr, 1, 0);
-        m_a.asm_add_r64_imm32(X64Reg::rsp, 8); // pop the argument
-
-        (m_a.*T)(X64FReg::xmm0, X64FReg::xmm1);
-
-        m_a.asm_sub_r64_imm32(X64Reg::rsp, 8); // decrement stack and create space
-        // store float result back on stack top;
-        m_a.asm_movsd_m64_r64(&stack_top, nullptr, 1, 0, X64FReg::xmm0);
-    }
-
-    void visit_F64Add() { handleF64Operations<&X86Assembler::asm_addsd_r64_r64>(); }
-    void visit_F64Sub() { handleF64Operations<&X86Assembler::asm_subsd_r64_r64>(); }
-    void visit_F64Mul() { handleF64Operations<&X86Assembler::asm_mulsd_r64_r64>(); }
-    void visit_F64Div() { handleF64Operations<&X86Assembler::asm_divsd_r64_r64>(); }
-
-    void handleF64Compare(Fcmp cmp) {
-        X64Reg stack_top = X64Reg::rsp;
-        // load second operand into floating-point register
-        m_a.asm_movsd_r64_m64(X64FReg::xmm1, &stack_top, nullptr, 1, 0);
-        m_a.asm_add_r64_imm32(X64Reg::rsp, 8); // pop the argument
-        // load first operand into floating-point register
-        m_a.asm_movsd_r64_m64(X64FReg::xmm0, &stack_top, nullptr, 1, 0);
-        m_a.asm_add_r64_imm32(X64Reg::rsp, 8); // pop the argument
-
-        m_a.asm_cmpsd_r64_r64(X64FReg::xmm0, X64FReg::xmm1, cmp);
-        /* From Assembly Docs:
-            The result of the compare is a 64-bit value of all 1s (TRUE) or all 0s (FALSE).
-        */
-        m_a.asm_pmovmskb_r32_r64(X86Reg::eax, X64FReg::xmm0);
-        m_a.asm_and_r64_imm8(X64Reg::rax, 1);
-        m_a.asm_push_r64(X64Reg::rax);
-    }
-
-    void visit_F64Eq() { handleF64Compare(Fcmp::eq); }
-    void visit_F64Gt() { handleF64Compare(Fcmp::gt); }
-    void visit_F64Ge() { handleF64Compare(Fcmp::ge); }
-    void visit_F64Lt() { handleF64Compare(Fcmp::lt); }
-    void visit_F64Le() { handleF64Compare(Fcmp::le); }
-    void visit_F64Ne() { handleF64Compare(Fcmp::ne); }
-
-    void visit_F64ConvertI64S() {
-        m_a.asm_pop_r64(X64Reg::rax);
-        m_a.asm_cvtsi2sd_r64_r64(X64FReg::xmm0, X64Reg::rax);
-        m_a.asm_sub_r64_imm32(X64Reg::rsp, 8); // decrement stack and create space
-        X64Reg stack_top = X64Reg::rsp;
-        m_a.asm_movsd_m64_r64(&stack_top, nullptr, 1, 0, X64FReg::xmm0); // store float on integer stack top;
-    }
-
-    void gen_x64_bytes() {
-        emit_elf64_header(m_a);
-
-        // declare compile-time strings
-        std::string base_memory = "    "; /* in wasm backend, memory starts after 4 bytes*/
-        for (uint32_t i = 0; i < data_segments.size(); i++) {
-            base_memory += data_segments[i].text;
-        }
-        label_to_str["base_memory"] = base_memory;
-
-        NO_OF_IMPORTS = imports.size();
-        for (uint32_t idx = 0; idx < type_indices.size(); idx++) {
-            m_a.add_label(exports[idx + 1].name);
-            {
-                // Initialize the stack
-                m_a.asm_push_r64(X64Reg::rbp);
-                m_a.asm_mov_r64_r64(X64Reg::rbp, X64Reg::rsp);
-
-                // Allocate space for local variables
-                // TODO: locals is an array where every element has a count (currently wasm emits count = 1 always)
-                m_a.asm_sub_r64_imm32(X64Reg::rsp, 8 * codes[idx].locals.size());
-
-                offset = codes[idx].insts_start_index;
-                cur_func_idx = idx;
-                decode_instructions();
-            }
-
-        }
-
-        for (auto &s : label_to_str) {
-            emit_data_string(m_a, s.first, s.second);
-        }
-
-        for (auto &d : double_consts) {
-            emit_double_const(m_a, d.first, d.second);
-        }
-
-        emit_elf64_footer(m_a);
-    }
-};
-
-}  // namespace wasm
-
-Result<int> wasm_to_x64(Vec<uint8_t> &wasm_bytes, Allocator &al,
-                        const std::string &filename, bool time_report,
-                        diag::Diagnostics &diagnostics) {
-    int time_decode_wasm = 0;
-    int time_gen_x64_bytes = 0;
-    int time_save = 0;
-    int time_verify = 0;
-
-    X86Assembler m_a(al, true /* bits 64 */);
-
-    wasm::X64Visitor x64_visitor(m_a, al, diagnostics, wasm_bytes);
-
-    {
-        auto t1 = std::chrono::high_resolution_clock::now();
-        try {
-            x64_visitor.decode_wasm();
-        } catch (const CodeGenError &e) {
-            diagnostics.diagnostics.push_back(e.d);
-            return Error();
-        }
-        auto t2 = std::chrono::high_resolution_clock::now();
-        time_decode_wasm =
-            std::chrono::duration_cast<std::chrono::milliseconds>(t2 - t1)
-                .count();
-    }
-
-    {
-        auto t1 = std::chrono::high_resolution_clock::now();
-        x64_visitor.gen_x64_bytes();
-        auto t2 = std::chrono::high_resolution_clock::now();
-        time_gen_x64_bytes =
-            std::chrono::duration_cast<std::chrono::milliseconds>(t2 - t1)
-                .count();
-    }
-
-    {
-        auto t1 = std::chrono::high_resolution_clock::now();
-        m_a.verify();
-        auto t2 = std::chrono::high_resolution_clock::now();
-        time_verify =
-            std::chrono::duration_cast<std::chrono::milliseconds>(t2 - t1)
-                .count();
-    }
-
-    {
-        auto t1 = std::chrono::high_resolution_clock::now();
-        m_a.save_binary(filename);
-        auto t2 = std::chrono::high_resolution_clock::now();
-        time_save =
-            std::chrono::duration_cast<std::chrono::milliseconds>(t2 - t1)
-                .count();
-    }
-
-    //! Helpful for debugging
-    // std::cout << x64_visitor.m_a.get_asm() << std::endl;
-
-    if (time_report) {
-        std::cout << "Codegen Time report:" << std::endl;
-        std::cout << "Decode wasm: " << std::setw(5) << time_decode_wasm
-                  << std::endl;
-        std::cout << "Generate asm: " << std::setw(5) << time_gen_x64_bytes
-                  << std::endl;
-        std::cout << "Verify:       " << std::setw(5) << time_verify
-                  << std::endl;
-        std::cout << "Save:       " << std::setw(5) << time_save << std::endl;
-        int total =
-            time_decode_wasm + time_gen_x64_bytes + time_verify + time_save;
-        std::cout << "Total:      " << std::setw(5) << total << std::endl;
-    }
-    return 0;
-}
-
-}  // namespace LCompilers
diff --git a/src/libasr/codegen/wasm_to_x64.h b/src/libasr/codegen/wasm_to_x64.h
deleted file mode 100644
index ab19a4929c..0000000000
--- a/src/libasr/codegen/wasm_to_x64.h
+++ /dev/null
@@ -1,14 +0,0 @@
-#ifndef LFORTRAN_WASM_TO_X64_H
-#define LFORTRAN_WASM_TO_X64_H
-
-#include <libasr/wasm_visitor.h>
-
-namespace LCompilers {
-
-Result<int> wasm_to_x64(Vec<uint8_t> &wasm_bytes, Allocator &al,
-                        const std::string &filename, bool time_report,
-                        diag::Diagnostics &diagnostics);
-
-}  // namespace LCompilers
-
-#endif  // LFORTRAN_WASM_TO_X64_H
diff --git a/src/libasr/codegen/wasm_to_x86.cpp b/src/libasr/codegen/wasm_to_x86.cpp
deleted file mode 100644
index 1c51cef3e3..0000000000
--- a/src/libasr/codegen/wasm_to_x86.cpp
+++ /dev/null
@@ -1,570 +0,0 @@
-#include <fstream>
-#include <chrono>
-#include <iomanip>
-
-#include <libasr/assert.h>
-#include <libasr/codegen/wasm_decoder.h>
-#include <libasr/codegen/wasm_to_x86.h>
-#include <libasr/codegen/x86_assembler.h>
-
-namespace LCompilers {
-
-namespace wasm {
-
-/*
-
-This X86Visitor uses stack to pass arguments and return values from functions.
-Since in X86, instructions operate on registers (and not on stack),
-for every instruction we pop elements from top of stack and store them into
-registers. After operating on the registers, the result value is then
-pushed back onto the stack.
-
-One of the reasons to use stack to pass function arguments is that,
-it allows us to define and call functions with any number of parameters.
-As registers are limited in number, if we use them to pass function arguments,
-the number of arguments we could pass to a function would get limited by
-the number of registers available with the CPU.
-
-*/
-
-enum Block {
-    LOOP = 0,
-    IF = 1
-};
-
-class X86Visitor : public WASMDecoder<X86Visitor>,
-                   public WASM_INSTS_VISITOR::BaseWASMVisitor<X86Visitor> {
-   public:
-    X86Assembler &m_a;
-    uint32_t cur_func_idx;
-    uint32_t block_id;
-    uint32_t NO_OF_IMPORTS;
-    std::vector<std::pair<uint32_t, Block>> blocks;
-    std::map<std::string, std::string> label_to_str;
-    std::map<std::string, float> float_consts;
-
-    X86Visitor(X86Assembler &m_a, Allocator &al,
-               diag::Diagnostics &diagonostics, Vec<uint8_t> &code)
-        : WASMDecoder(al, diagonostics),
-          BaseWASMVisitor(code, 0U /* temporary offset */),
-          m_a(m_a) {
-        wasm_bytes.from_pointer_n(code.data(), code.size());
-        block_id = 1;
-        NO_OF_IMPORTS = 0;
-    }
-
-    void visit_Unreachable() {}
-
-    void visit_EmtpyBlockType() {}
-
-    void visit_Drop() { m_a.asm_pop_r32(X86Reg::eax); }
-
-    void visit_Return() {
-        // Restore stack
-        m_a.asm_mov_r32_r32(X86Reg::esp, X86Reg::ebp);
-        m_a.asm_pop_r32(X86Reg::ebp);
-        m_a.asm_ret();
-    }
-
-    void call_imported_function(uint32_t func_index) {
-        switch (func_index) {
-            case 0: {  // proc_exit
-                m_a.asm_jmp_label("my_exit");
-                break;
-            }
-            case 1: {  // fd_write
-            /*
-                TODO: This way increases the number of intructions.
-                There is a possibility that we can wrap these statements
-                with some add label and then just jump/call to that label
-            */
-
-                m_a.asm_pop_r32(X86Reg::eax); // mem_loc to write return value (not usefull for us currently)
-                m_a.asm_pop_r32(X86Reg::eax); // no of iov vectors (always emitted 1 by wasm, not usefull for us currently)
-                m_a.asm_pop_r32(X86Reg::eax); // mem_loc to string iov vector
-                m_a.asm_pop_r32(X86Reg::ebx); // filetypes (1 for stdout)
-
-                m_a.asm_mov_r32_label(X86Reg::esi, "base_memory");
-                m_a.asm_add_r32_r32(X86Reg::esi, X86Reg::eax);
-
-                X86Reg base = X86Reg::esi;
-                m_a.asm_mov_r32_m32(X86Reg::eax, &base, nullptr, 1, 0); // location
-                m_a.asm_mov_r32_m32(X86Reg::edx, &base, nullptr, 1, 4); // length
-
-                {
-                    // ssize_t write(int fd, const void *buf, size_t count);
-                    m_a.asm_mov_r32_imm32(X86Reg::ebx, 1); // fd (stdout)
-                    m_a.asm_mov_r32_label(X86Reg::ecx, "base_memory");
-                    m_a.asm_add_r32_r32(X86Reg::ecx, X86Reg::eax);
-                    m_a.asm_mov_r32_imm32(X86Reg::eax, 4); // sys_write
-                    // ecx stores location, length is already stored in edx
-                    m_a.asm_int_imm8(0x80);
-
-                    m_a.asm_push_r32(X86Reg::eax); // push return value onto stack
-                }
-
-
-                break;
-            }
-            default: {
-                std::cerr << "Unsupported func_index: " << func_index << std::endl;
-            }
-        }
-    }
-
-    void visit_Call(uint32_t func_index) {
-        if (func_index < NO_OF_IMPORTS) {
-            call_imported_function(func_index);
-            return;
-        }
-
-        func_index -= NO_OF_IMPORTS;
-        m_a.asm_call_label(exports[func_index + 1 /* offset by 1 becaz of mem export */].name);
-
-        // Pop the passed function arguments
-        wasm::FuncType func_type =
-            func_types[type_indices[func_index]];
-        m_a.asm_add_r32_imm32(X86Reg::esp, 4 * func_type.param_types.size()); // pop the passed arguments
-
-        // Adjust the return values of the called function
-        X86Reg base = X86Reg::esp;
-        for (uint32_t i = 0; i < func_type.result_types.size(); i++) {
-            // take value into eax
-            m_a.asm_mov_r32_m32(
-                X86Reg::eax, &base, nullptr, 1,
-                -(4 * (func_type.param_types.size() + 2 +
-                       codes[func_index].locals.size() + 1)));
-
-            // push eax value onto stack
-            m_a.asm_push_r32(X86Reg::eax);
-        }
-    }
-
-
-    void visit_Br(uint32_t labelidx) {
-        // Branch is used to jump to the `loop.head` or `loop.end`.
-        uint32_t b_id;
-        Block block_type;
-        std::tie(b_id, block_type) = blocks[blocks.size() - 1 - labelidx];
-        std::string label = std::to_string(b_id);
-        switch (block_type) {
-            /*
-            From WebAssembly Docs:
-                The exact effect of branch depends on that control construct.
-                In case of block or if, it is a forward jump, resuming execution after the matching end.
-                In case of loop, it is a backward jump to the beginning of the loop.
-            */
-            case Block::LOOP: m_a.asm_jmp_label(".loop.head_" + label); break;
-            case Block::IF: m_a.asm_jmp_label(".else_" + label); break;
-        }
-    }
-
-    void visit_Loop() {
-        std::string label = std::to_string(block_id);
-        blocks.push_back({block_id++, Block::LOOP});
-        /*
-        The loop statement starts with `loop.head`. The `loop.body` and
-        `loop.branch` are enclosed within the `if.block`. If the condition
-        fails, the loop is exited through `else.block`.
-        .head
-            .If
-                # Statements
-                .Br
-            .Else
-            .endIf
-        .end
-        */
-        m_a.add_label(".loop.head_" + label);
-        {
-            decode_instructions();
-        }
-        // end
-        m_a.add_label(".loop.end_" + label);
-        blocks.pop_back();
-    }
-
-    void visit_If() {
-        std::string label = std::to_string(block_id);
-        blocks.push_back({block_id++, Block::IF});
-        m_a.asm_pop_r32(X86Reg::eax); // now `eax` contains the logical value (true = 1, false = 0) of the if condition
-        m_a.asm_cmp_r32_imm8(X86Reg::eax, 1);
-        m_a.asm_je_label(".then_" + label);
-        m_a.asm_jmp_label(".else_" + label);
-        m_a.add_label(".then_" + label);
-        {
-            decode_instructions();
-        }
-        m_a.add_label(".endif_" + label);
-        blocks.pop_back();
-    }
-
-    void visit_Else() {
-        std::string label = std::to_string(blocks.back().first);
-        m_a.asm_jmp_label(".endif_" + label);
-        m_a.add_label(".else_" + label);
-    }
-
-    void visit_LocalGet(uint32_t localidx) {
-        X86Reg base = X86Reg::ebp;
-        auto cur_func_param_type = func_types[type_indices[cur_func_idx]];
-        int no_of_params = (int)cur_func_param_type.param_types.size();
-        if ((int)localidx < no_of_params) {
-            std::string var_type = var_type_to_string[cur_func_param_type.param_types[localidx]];
-            if (var_type == "i32") {
-                m_a.asm_mov_r32_m32(X86Reg::eax, &base, nullptr, 1, 4 * (2 + no_of_params - (int)localidx - 1));
-                m_a.asm_push_r32(X86Reg::eax);
-            } else if (var_type == "i64") {
-                m_a.asm_mov_r32_m32(X86Reg::eax, &base, nullptr, 1, 4 * (2 + no_of_params - (int)localidx - 1));
-                m_a.asm_push_r32(X86Reg::eax);
-            } else if (var_type == "f64") {
-                m_a.asm_sub_r32_imm32(X86Reg::esp,  4); // create space for value to be fetched
-                X86Reg stack_top = X86Reg::esp;
-                m_a.asm_fld_m32(&base, nullptr, 1, 4 * (2 + no_of_params - (int)localidx - 1));
-                m_a.asm_fstp_m32(&stack_top, nullptr, 1, 0);
-            } else {
-                throw AssemblerError("WASM_X86: Var type not supported");
-            }
-
-        } else {
-            localidx -= no_of_params;
-            std::string var_type = var_type_to_string[codes[cur_func_idx].locals[localidx].type];
-            if (var_type == "i32") {
-                m_a.asm_mov_r32_m32(X86Reg::eax, &base, nullptr, 1, -4 * (1 + localidx));
-                m_a.asm_push_r32(X86Reg::eax);
-            } else if (var_type == "i64") {
-                m_a.asm_mov_r32_m32(X86Reg::eax, &base, nullptr, 1, -4 * (1 + localidx));
-                m_a.asm_push_r32(X86Reg::eax);
-            } else if (var_type == "f64") {
-                m_a.asm_sub_r32_imm32(X86Reg::esp,  4); // create space for value to be fetched
-                X86Reg stack_top = X86Reg::esp;
-                m_a.asm_fld_m32(&base, nullptr, 1, -4 * (1 + localidx));
-                m_a.asm_fstp_m32(&stack_top, nullptr, 1, 0);
-            } else {
-                throw AssemblerError("WASM_X86: Var type not supported");
-            }
-        }
-    }
-    void visit_LocalSet(uint32_t localidx) {
-        X86Reg base = X86Reg::ebp;
-        auto cur_func_param_type = func_types[type_indices[cur_func_idx]];
-        int no_of_params = (int)cur_func_param_type.param_types.size();
-        if ((int)localidx < no_of_params) {
-            std::string var_type = var_type_to_string[cur_func_param_type.param_types[localidx]];
-            if (var_type == "i32") {
-                m_a.asm_pop_r32(X86Reg::eax);
-                m_a.asm_mov_m32_r32(&base, nullptr, 1, 4 * (2 + no_of_params - (int)localidx - 1), X86Reg::eax);
-            } else if (var_type == "i64") {
-                m_a.asm_pop_r32(X86Reg::eax);
-                m_a.asm_mov_m32_r32(&base, nullptr, 1, 4 * (2 + no_of_params - (int)localidx - 1), X86Reg::eax);
-            } else if (var_type == "f64") {
-                X86Reg stack_top = X86Reg::esp;
-                m_a.asm_fld_m32(&stack_top, nullptr, 1, 0); // load stack top into floating register stack
-                m_a.asm_fstp_m32(&base, nullptr, 1, 4 * (2 + no_of_params - (int)localidx - 1)); // store float at variable location
-                m_a.asm_add_r32_imm32(X86Reg::esp, 4); // increment stack top and thus pop the value to be set
-            } else {
-                throw AssemblerError("WASM_X86: Var type not supported");
-            }
-
-        } else {
-            localidx -= no_of_params;
-            std::string var_type = var_type_to_string[codes[cur_func_idx].locals[localidx].type];
-            if (var_type == "i32") {
-                m_a.asm_pop_r32(X86Reg::eax);
-                m_a.asm_mov_m32_r32(&base, nullptr, 1, -4 * (1 + (int)localidx), X86Reg::eax);
-            } else if (var_type == "i64") {
-                m_a.asm_pop_r32(X86Reg::eax);
-                m_a.asm_mov_m32_r32(&base, nullptr, 1, -4 * (1 + (int)localidx), X86Reg::eax);
-            } else if (var_type == "f64") {
-                X86Reg stack_top = X86Reg::esp;
-                m_a.asm_fld_m32(&stack_top, nullptr, 1, 0); // load stack top into floating register stack
-                m_a.asm_fstp_m32(&base, nullptr, 1, -4 * (1 + (int)localidx)); // store float at variable location
-                m_a.asm_add_r32_imm32(X86Reg::esp, 4); // increment stack top and thus pop the value to be set
-            } else {
-                throw AssemblerError("WASM_X86: Var type not supported");
-            }
-        }
-    }
-
-    void visit_I32Eqz() {
-        m_a.asm_push_imm32(0U);
-        handle_I32Compare<&X86Assembler::asm_je_label>();
-    }
-
-    void visit_I32Const(int32_t value) {
-        m_a.asm_push_imm32(value);
-    }
-
-    void visit_I32WrapI64() {
-        // empty, since i32's and i64's are considered similar currently.
-    }
-
-    template<typename F>
-    void handleI32Opt(F && f) {
-        m_a.asm_pop_r32(X86Reg::ebx);
-        m_a.asm_pop_r32(X86Reg::eax);
-        f();
-        m_a.asm_push_r32(X86Reg::eax);
-    }
-
-    void visit_I32Add() {
-        handleI32Opt([&](){ m_a.asm_add_r32_r32(X86Reg::eax, X86Reg::ebx);});
-    }
-    void visit_I32Sub() {
-        handleI32Opt([&](){ m_a.asm_sub_r32_r32(X86Reg::eax, X86Reg::ebx);});
-    }
-    void visit_I32Mul() {
-        handleI32Opt([&](){ m_a.asm_mul_r32(X86Reg::ebx);});
-    }
-    void visit_I32DivS() {
-        handleI32Opt([&](){
-            m_a.asm_mov_r32_imm32(X86Reg::edx, 0);
-            m_a.asm_div_r32(X86Reg::ebx);
-        });
-    }
-
-    using JumpFn = void(X86Assembler::*)(const std::string&);
-    template<JumpFn T>
-    void handle_I32Compare() {
-        std::string label = std::to_string(offset);
-        m_a.asm_pop_r32(X86Reg::ebx);
-        m_a.asm_pop_r32(X86Reg::eax);
-        // `eax` and `ebx` contain the left and right operands, respectively
-        m_a.asm_cmp_r32_r32(X86Reg::eax, X86Reg::ebx);
-
-        (m_a.*T)(".compare_1" + label);
-        // if the `compare` condition in `true`, jump to compare_1
-        // and assign `1` else assign `0`
-        m_a.asm_push_imm8(0);
-        m_a.asm_jmp_label(".compare.end_" + label);
-        m_a.add_label(".compare_1" + label);
-        m_a.asm_push_imm8(1);
-        m_a.add_label(".compare.end_" + label);
-    }
-
-    void visit_I32Eq() { handle_I32Compare<&X86Assembler::asm_je_label>(); }
-    void visit_I32GtS() { handle_I32Compare<&X86Assembler::asm_jg_label>(); }
-    void visit_I32GeS() { handle_I32Compare<&X86Assembler::asm_jge_label>(); }
-    void visit_I32LtS() { handle_I32Compare<&X86Assembler::asm_jl_label>(); }
-    void visit_I32LeS() { handle_I32Compare<&X86Assembler::asm_jle_label>(); }
-    void visit_I32Ne() { handle_I32Compare<&X86Assembler::asm_jne_label>(); }
-
-    void visit_I64Const(int64_t value) {
-        m_a.asm_push_imm32(value);
-    }
-
-    void visit_I64ExtendI32S() {
-        // empty, since all i32's are already considered as i64's currently.
-    }
-
-    template<typename F>
-    void handleI64Opt(F && f) {
-        m_a.asm_pop_r32(X86Reg::ebx);
-        m_a.asm_pop_r32(X86Reg::eax);
-        f();
-        m_a.asm_push_r32(X86Reg::eax);
-    }
-
-    void visit_I64Add() {
-        handleI64Opt([&](){ m_a.asm_add_r32_r32(X86Reg::eax, X86Reg::ebx);});
-    }
-    void visit_I64Sub() {
-        handleI64Opt([&](){ m_a.asm_sub_r32_r32(X86Reg::eax, X86Reg::ebx);});
-    }
-    void visit_I64Mul() {
-        handleI64Opt([&](){ m_a.asm_mul_r32(X86Reg::ebx);});
-    }
-    void visit_I64DivS() {
-        handleI64Opt([&](){
-            m_a.asm_mov_r32_imm32(X86Reg::edx, 0);
-            m_a.asm_div_r32(X86Reg::ebx);
-        });
-    }
-
-    void visit_I64RemS() {
-        m_a.asm_pop_r32(X86Reg::ebx);
-        m_a.asm_pop_r32(X86Reg::eax);
-        m_a.asm_mov_r32_imm32(X86Reg::edx, 0);
-        m_a.asm_div_r32(X86Reg::ebx);
-        m_a.asm_push_r32(X86Reg::edx);
-    }
-
-    template<JumpFn T>
-    void handle_I64Compare() {
-        std::string label = std::to_string(offset);
-        m_a.asm_pop_r32(X86Reg::ebx);
-        m_a.asm_pop_r32(X86Reg::eax);
-        // `eax` and `ebx` contain the left and right operands, respectively
-        m_a.asm_cmp_r32_r32(X86Reg::eax, X86Reg::ebx);
-
-        (m_a.*T)(".compare_1" + label);
-        // if the `compare` condition in `true`, jump to compare_1
-        // and assign `1` else assign `0`
-        m_a.asm_push_imm8(0);
-        m_a.asm_jmp_label(".compare.end_" + label);
-        m_a.add_label(".compare_1" + label);
-        m_a.asm_push_imm8(1);
-        m_a.add_label(".compare.end_" + label);
-    }
-
-    void visit_I64Eq() { handle_I64Compare<&X86Assembler::asm_je_label>(); }
-    void visit_I64GtS() { handle_I64Compare<&X86Assembler::asm_jg_label>(); }
-    void visit_I64GeS() { handle_I64Compare<&X86Assembler::asm_jge_label>(); }
-    void visit_I64LtS() { handle_I64Compare<&X86Assembler::asm_jl_label>(); }
-    void visit_I64LeS() { handle_I64Compare<&X86Assembler::asm_jle_label>(); }
-    void visit_I64Ne() { handle_I64Compare<&X86Assembler::asm_jne_label>(); }
-
-     void visit_I64Eqz() {
-        m_a.asm_push_imm32(0U);
-        handle_I64Compare<&X86Assembler::asm_je_label>();
-    }
-
-    std::string float_to_str(float z) {
-        std::string float_str = "";
-        for (auto ch:std::to_string(z)) {
-            if (ch == '-') {
-                float_str += "neg_";
-            } else if (ch == '.') {
-                float_str += "_dot_";
-            } else {
-                float_str += ch;
-            }
-        }
-        return float_str;
-    }
-
-    void visit_F64Const(double z) {
-        std::string label = "float_" + float_to_str(z);
-        float_consts[label] = z;
-        m_a.asm_mov_r32_label(X86Reg::eax, label);
-        X86Reg label_reg = X86Reg::eax;
-        m_a.asm_fld_m32(&label_reg, nullptr, 1, 0); // loads into floating register stack
-        m_a.asm_sub_r32_imm32(X86Reg::esp,  4); // decrement stack and create space
-        X86Reg stack_top = X86Reg::esp;
-        m_a.asm_fstp_m32(&stack_top, nullptr, 1, 0); // store float on integer stack top;
-    }
-
-    void gen_x86_bytes() {
-        emit_elf32_header(m_a);
-
-        // Add runtime library functions
-        emit_exit2(m_a, "my_exit");
-
-        // declare compile-time strings
-         std::string base_memory = "    "; /* in wasm backend, memory starts after 4 bytes*/
-        for (uint32_t i = 0; i < data_segments.size(); i++) {
-            base_memory += data_segments[i].text;
-        }
-        label_to_str["base_memory"] = base_memory;
-
-        NO_OF_IMPORTS = imports.size();
-        for (uint32_t i = 0; i < type_indices.size(); i++) {
-            std::string func = exports[i + 1 /* offset by 1 becaz of mem export */].name;
-            if (func == "print_f64") {
-                // "print_f64" needs floating-point comparison support, which is
-                // not yet supported in the wasm_x86 backend, hence skipping it.
-                continue;
-            }
-            m_a.add_label(func);
-
-            {
-                // Initialize the stack
-                m_a.asm_push_r32(X86Reg::ebp);
-                m_a.asm_mov_r32_r32(X86Reg::ebp, X86Reg::esp);
-
-                 // Allocate space for local variables
-                // TODO: locals is an array where every element has a count (currently wasm emits count = 1 always)
-                m_a.asm_sub_r32_imm32(X86Reg::esp, 4 * codes[i].locals.size());
-
-                offset = codes.p[i].insts_start_index;
-                cur_func_idx = i;
-                decode_instructions();
-            }
-        }
-
-        for (auto &s : label_to_str) {
-            emit_data_string(m_a, s.first, s.second);
-        }
-
-        for (auto &f : float_consts) {
-            emit_float_const(m_a, f.first, f.second);
-        }
-
-        emit_elf32_footer(m_a);
-    }
-};
-
-}  // namespace wasm
-
-Result<int> wasm_to_x86(Vec<uint8_t> &wasm_bytes, Allocator &al,
-                        const std::string &filename, bool time_report,
-                        diag::Diagnostics &diagnostics) {
-    int time_decode_wasm = 0;
-    int time_gen_x86_bytes = 0;
-    int time_save = 0;
-    int time_verify = 0;
-
-    X86Assembler m_a(al, false /* bits 64 */);
-
-    wasm::X86Visitor x86_visitor(m_a, al, diagnostics, wasm_bytes);
-
-    {
-        auto t1 = std::chrono::high_resolution_clock::now();
-        try {
-            x86_visitor.decode_wasm();
-        } catch (const CodeGenError &e) {
-            diagnostics.diagnostics.push_back(e.d);
-            return Error();
-        }
-        auto t2 = std::chrono::high_resolution_clock::now();
-        time_decode_wasm =
-            std::chrono::duration_cast<std::chrono::milliseconds>(t2 - t1)
-                .count();
-    }
-
-    {
-        auto t1 = std::chrono::high_resolution_clock::now();
-        x86_visitor.gen_x86_bytes();
-        auto t2 = std::chrono::high_resolution_clock::now();
-        time_gen_x86_bytes =
-            std::chrono::duration_cast<std::chrono::milliseconds>(t2 - t1)
-                .count();
-    }
-
-    {
-        auto t1 = std::chrono::high_resolution_clock::now();
-        m_a.verify();
-        auto t2 = std::chrono::high_resolution_clock::now();
-        time_verify =
-            std::chrono::duration_cast<std::chrono::milliseconds>(t2 - t1)
-                .count();
-    }
-
-    {
-        auto t1 = std::chrono::high_resolution_clock::now();
-        m_a.save_binary(filename);
-        auto t2 = std::chrono::high_resolution_clock::now();
-        time_save =
-            std::chrono::duration_cast<std::chrono::milliseconds>(t2 - t1)
-                .count();
-    }
-
-    //! Helpful for debugging
-    // std::cout << x86_visitor.m_a.get_asm() << std::endl;
-
-    if (time_report) {
-        std::cout << "Codegen Time report:" << std::endl;
-        std::cout << "Decode wasm: " << std::setw(5) << time_decode_wasm
-                  << std::endl;
-        std::cout << "Generate asm: " << std::setw(5) << time_gen_x86_bytes
-                  << std::endl;
-        std::cout << "Verify:       " << std::setw(5) << time_verify
-                  << std::endl;
-        std::cout << "Save:       " << std::setw(5) << time_save << std::endl;
-        int total =
-            time_decode_wasm + time_gen_x86_bytes + time_verify + time_save;
-        std::cout << "Total:      " << std::setw(5) << total << std::endl;
-    }
-    return 0;
-}
-
-}  // namespace LCompilers
diff --git a/src/libasr/codegen/wasm_to_x86.h b/src/libasr/codegen/wasm_to_x86.h
deleted file mode 100644
index 11c456ab27..0000000000
--- a/src/libasr/codegen/wasm_to_x86.h
+++ /dev/null
@@ -1,14 +0,0 @@
-#ifndef LFORTRAN_WASM_TO_X86_H
-#define LFORTRAN_WASM_TO_X86_H
-
-#include <libasr/wasm_visitor.h>
-
-namespace LCompilers {
-
-Result<int> wasm_to_x86(Vec<uint8_t> &wasm_bytes, Allocator &al,
-                        const std::string &filename, bool time_report,
-                        diag::Diagnostics &diagnostics);
-
-}  // namespace LCompilers
-
-#endif  // LFORTRAN_WASM_TO_X86_H
diff --git a/src/libasr/codegen/wasm_utils.cpp b/src/libasr/codegen/wasm_utils.cpp
deleted file mode 100644
index c4ddb8739b..0000000000
--- a/src/libasr/codegen/wasm_utils.cpp
+++ /dev/null
@@ -1,124 +0,0 @@
-#include <libasr/codegen/wasm_utils.h>
-
-namespace LCompilers {
-
-namespace wasm {
-
-uint32_t decode_leb128_u32(Vec<uint8_t> &code, uint32_t &offset) {
-    uint32_t result = 0U;
-    uint32_t shift = 0U;
-    while (true) {
-        uint8_t byte = read_b8(code, offset);
-        uint32_t slice = byte & 0x7f;
-        result |= slice << shift;
-        if ((byte & 0x80) == 0) {
-            return result;
-        }
-        shift += 7;
-    }
-}
-
-int32_t decode_leb128_i32(Vec<uint8_t> &code, uint32_t &offset) {
-    int32_t result = 0;
-    uint32_t shift = 0U;
-    uint8_t byte;
-
-    do {
-        byte = read_b8(code, offset);
-        uint32_t slice = byte & 0x7f;
-        result |= slice << shift;
-        shift += 7;
-    } while (byte & 0x80);
-
-    // Sign extend negative numbers if needed.
-    if ((shift < 32U) && (byte & 0x40)) {
-        result |= (-1U << shift);
-    }
-
-    return result;
-}
-
-int64_t decode_leb128_i64(Vec<uint8_t> &code, uint32_t &offset) {
-    int64_t result = 0;
-    uint32_t shift = 0U;
-    uint8_t byte;
-
-    do {
-        byte = read_b8(code, offset);
-        uint64_t slice = byte & 0x7f;
-        result |= slice << shift;
-        shift += 7;
-    } while (byte & 0x80);
-
-    // Sign extend negative numbers if needed.
-    if ((shift < 64U) && (byte & 0x40)) {
-        result |= (-1ULL << shift);
-    }
-
-    return result;
-}
-
-float decode_ieee754_f32(Vec<uint8_t> &code, uint32_t &offset) {
-    float value = 0.0;
-    std::memcpy(&value, &code.p[offset], sizeof(value));
-    offset += sizeof(value);
-    return value;
-}
-
-double decode_ieee754_f64(Vec<uint8_t> &code, uint32_t &offset) {
-    double value = 0.0;
-    std::memcpy(&value, &code.p[offset], sizeof(value));
-    offset += sizeof(value);
-    return value;
-}
-
-uint8_t read_b8(Vec<uint8_t> &code, uint32_t &offset) {
-    LCOMPILERS_ASSERT(offset < code.size());
-    return code.p[offset++];
-}
-
-float read_f32(Vec<uint8_t> &code, uint32_t &offset) {
-    LCOMPILERS_ASSERT(offset + sizeof(float) <= code.size());
-    return decode_ieee754_f32(code, offset);
-}
-
-double read_f64(Vec<uint8_t> &code, uint32_t &offset) {
-    LCOMPILERS_ASSERT(offset + sizeof(double) <= code.size());
-    return decode_ieee754_f64(code, offset);
-}
-
-uint32_t read_u32(Vec<uint8_t> &code, uint32_t &offset) {
-    return decode_leb128_u32(code, offset);
-}
-
-int32_t read_i32(Vec<uint8_t> &code, uint32_t &offset) {
-    return decode_leb128_i32(code, offset);
-}
-
-int64_t read_i64(Vec<uint8_t> &code, uint32_t &offset) {
-    return decode_leb128_i64(code, offset);
-}
-
-void hexdump(void *ptr, int buflen) {
-    unsigned char *buf = (unsigned char *)ptr;
-    int i, j;
-    for (i = 0; i < buflen; i += 16) {
-        printf("%06x: ", i);
-        for (j = 0; j < 16; j++) {
-            if (i + j < buflen)
-                printf("%02x ", buf[i + j]);
-            else
-                printf("   ");
-        }
-        printf(" ");
-        for (j = 0; j < 16; j++) {
-            if (i + j < buflen)
-                printf("%c", isprint(buf[i + j]) ? buf[i + j] : '.');
-        }
-        printf("\n");
-    }
-}
-
-}  // namespace wasm
-
-}  // namespace LCompilers
diff --git a/src/libasr/codegen/wasm_utils.h b/src/libasr/codegen/wasm_utils.h
deleted file mode 100644
index c7e41cf002..0000000000
--- a/src/libasr/codegen/wasm_utils.h
+++ /dev/null
@@ -1,79 +0,0 @@
-#ifndef LFORTRAN_WASM_UTILS_H
-#define LFORTRAN_WASM_UTILS_H
-
-#include <iostream>
-#include <unordered_map>
-
-#include <libasr/alloc.h>
-#include <libasr/containers.h>
-
-namespace LCompilers {
-
-namespace wasm {
-
-struct FuncType {
-    Vec<uint8_t> param_types;
-    Vec<uint8_t> result_types;
-};
-
-struct Global {
-    uint8_t type;
-    uint8_t mut;
-    uint32_t insts_start_idx;
-};
-
-struct Export {
-    std::string name;
-    uint8_t kind;
-    uint32_t index;
-};
-
-struct Local {
-    uint32_t count;
-    uint8_t type;
-};
-
-struct Code {
-    int size;
-    Vec<Local> locals;
-    uint32_t insts_start_index;
-};
-
-struct Import {
-    std::string mod_name;
-    std::string name;
-    uint8_t kind;
-    union {
-        uint32_t type_idx;
-        std::pair<uint32_t, uint32_t> mem_page_size_limits;
-    };
-};
-
-struct Data {
-    uint32_t insts_start_index;
-    std::string text;
-};
-
-uint32_t decode_leb128_u32(Vec<uint8_t> &code, uint32_t &offset);
-int32_t decode_leb128_i32(Vec<uint8_t> &code, uint32_t &offset);
-int64_t decode_leb128_i64(Vec<uint8_t> &code, uint32_t &offset);
-
-uint8_t read_b8(Vec<uint8_t> &code, uint32_t &offset);
-
-float read_f32(Vec<uint8_t> &code, uint32_t &offset);
-
-double read_f64(Vec<uint8_t> &code, uint32_t &offset);
-
-uint32_t read_u32(Vec<uint8_t> &code, uint32_t &offset);
-
-int32_t read_i32(Vec<uint8_t> &code, uint32_t &offset);
-
-int64_t read_i64(Vec<uint8_t> &code, uint32_t &offset);
-
-void hexdump(void *ptr, int buflen);
-
-}  // namespace wasm
-
-}  // namespace LCompilers
-
-#endif  // LFORTRAN_WASM_UTILS_H
diff --git a/src/libasr/codegen/x86_assembler.cpp b/src/libasr/codegen/x86_assembler.cpp
deleted file mode 100644
index 5cea544abb..0000000000
--- a/src/libasr/codegen/x86_assembler.cpp
+++ /dev/null
@@ -1,505 +0,0 @@
-#ifdef __unix__
-#define LFORTRAN_LINUX
-#endif
-
-#ifdef LFORTRAN_LINUX
-#include <sys/stat.h>
-#endif
-
-#include <libasr/codegen/x86_assembler.h>
-
-namespace LCompilers {
-
-void X86Assembler::save_binary(const std::string &filename) {
-    {
-        std::ofstream out;
-        out.open(filename);
-        out.write((const char*) m_code.p, m_code.size());
-    }
-#ifdef LFORTRAN_LINUX
-    std::string mode = "0755";
-    int mod = strtol(mode.c_str(), 0, 8);
-    if (chmod(filename.c_str(),mod) < 0) {
-        throw AssemblerError("chmod failed");
-    }
-#endif
-}
-
-void emit_elf32_header(X86Assembler &a, uint32_t p_flags) {
-    /* Elf32_Ehdr */
-    a.add_label("ehdr");
-    // e_ident
-    a.asm_db_imm8(0x7F);
-    a.asm_db_imm8('E');
-    a.asm_db_imm8('L');
-    a.asm_db_imm8('F');
-    a.asm_db_imm8(1);
-    a.asm_db_imm8(1);
-    a.asm_db_imm8(1);
-    a.asm_db_imm8(0);
-
-    a.asm_db_imm8(0);
-    a.asm_db_imm8(0);
-    a.asm_db_imm8(0);
-    a.asm_db_imm8(0);
-
-    a.asm_db_imm8(0);
-    a.asm_db_imm8(0);
-    a.asm_db_imm8(0);
-    a.asm_db_imm8(0);
-
-    a.asm_dw_imm16(2);  // e_type
-    a.asm_dw_imm16(3);  // e_machine
-    a.asm_dd_imm32(1);  // e_version
-    a.asm_dd_label("_start");  // e_entry
-    a.asm_dd_label("e_phoff");  // e_phoff
-    a.asm_dd_imm32(0);  // e_shoff
-    a.asm_dd_imm32(0);  // e_flags
-    a.asm_dw_label("ehdrsize");  // e_ehsize
-    a.asm_dw_label("phdrsize");  // e_phentsize
-    a.asm_dw_imm16(1);  // e_phnum
-    a.asm_dw_imm16(0);  // e_shentsize
-    a.asm_dw_imm16(0);  // e_shnum
-    a.asm_dw_imm16(0);  // e_shstrndx
-
-    a.add_var("ehdrsize", a.pos()-a.get_defined_symbol("ehdr").value);
-
-    /* Elf32_Phdr */
-    a.add_label("phdr");
-    a.asm_dd_imm32(1);        // p_type
-    a.asm_dd_imm32(0);        // p_offset
-    a.asm_dd_imm32(a.origin());   // p_vaddr
-    a.asm_dd_imm32(a.origin());   // p_paddr
-    a.asm_dd_label("filesize"); // p_filesz
-    a.asm_dd_label("filesize"); // p_memsz
-    a.asm_dd_imm32(p_flags);        // p_flags
-    a.asm_dd_imm32(0x1000);   // p_align
-
-    a.add_var("phdrsize", a.pos()-a.get_defined_symbol("phdr").value);
-    a.add_var("e_phoff", a.get_defined_symbol("phdr").value-a.origin());
-}
-
-void emit_elf32_footer(X86Assembler &a) {
-    a.add_var_size("filesize");
-}
-
-void emit_exit(X86Assembler &a, const std::string &name,
-    uint32_t exit_code)
-{
-    a.add_label(name);
-    // void exit(int status);
-    a.asm_mov_r32_imm32(X86Reg::eax, 1); // sys_exit
-    a.asm_mov_r32_imm32(X86Reg::ebx, exit_code); // exit code
-    a.asm_int_imm8(0x80); // syscall
-}
-
-void emit_exit2(X86Assembler &a, const std::string &name)
-{
-    a.add_label(name);
-    // void exit();
-    a.asm_mov_r32_imm32(X86Reg::eax, 1); // sys_exit
-    a.asm_pop_r32(X86Reg::ebx); // exit code on stack, move to register
-    a.asm_int_imm8(0x80); // syscall
-}
-
-void emit_data_string(X86Assembler &a, const std::string &label,
-    const std::string &s)
-{
-    a.add_label(label);
-    a.asm_db_imm8(s.c_str(), s.size());
-}
-
-void emit_float_const(X86Assembler &a, const std::string &label,
-    const float z) {
-    uint8_t encoded_float[sizeof(z)];
-    std::memcpy(&encoded_float, &z, sizeof(z));
-    a.add_label(label);
-    a.asm_db_imm8(encoded_float, sizeof(z));
-}
-
-void emit_double_const(X86Assembler &a, const std::string &label,
-    const double z) {
-    uint8_t encoded_double[sizeof(z)];
-    std::memcpy(&encoded_double, &z, sizeof(z));
-    a.add_label(label);
-    a.asm_db_imm8(encoded_double, sizeof(z));
-}
-
-void emit_print(X86Assembler &a, const std::string &msg_label,
-    uint32_t size)
-{
-    // ssize_t write(int fd, const void *buf, size_t count);
-    a.asm_mov_r32_imm32(X86Reg::eax, 4); // sys_write
-    a.asm_mov_r32_imm32(X86Reg::ebx, 1); // fd (stdout)
-    a.asm_mov_r32_label(X86Reg::ecx, msg_label); // buf
-    a.asm_mov_r32_imm32(X86Reg::edx, size); // count
-    a.asm_int_imm8(0x80);
-}
-
-void emit_print_int(X86Assembler &a, const std::string &name)
-{
-    // void print_int(uint32_t i);
-    a.add_label(name);
-
-    // Initialize stack
-    a.asm_push_r32(X86Reg::ebp);
-    a.asm_mov_r32_r32(X86Reg::ebp, X86Reg::esp);
-
-    X86Reg base = X86Reg::ebp;
-    // mov eax, [ebp+8]  // argument "i"
-    a.asm_mov_r32_m32(X86Reg::eax, &base, nullptr, 1, 8);
-
-    a.asm_mov_r32_r32(X86Reg::ecx, X86Reg::eax); // make a copy in ecx
-    a.asm_mov_r32_imm32(X86Reg::ebx, 0);
-    a.asm_cmp_r32_r32(X86Reg::eax, X86Reg::ebx);
-    a.asm_jge_label(".print_int_"); // if num >= 0 then print it
-
-    // print "-" and then negate the integer
-    emit_print(a, "string_neg", 1U);
-    // ecx value changed during print so fetch back
-    a.asm_mov_r32_m32(X86Reg::ecx, &base, nullptr, 1, 8);
-    a.asm_neg_r32(X86Reg::ecx);
-
-    a.add_label(".print_int_");
-
-    a.asm_mov_r32_r32(X86Reg::eax, X86Reg::ecx); // fetch the val in ecx back to eax
-    a.asm_xor_r32_r32(X86Reg::esi, X86Reg::esi);
-
-    a.add_label(".loop");
-//    mov edx, 0
-    a.asm_mov_r32_imm32(X86Reg::edx, 0);
-//    mov ebx, 10
-    a.asm_mov_r32_imm32(X86Reg::ebx, 10);
-//    div ebx
-    a.asm_div_r32(X86Reg::ebx);
-//    add edx, 48
-    a.asm_add_r32_imm32(X86Reg::edx, 48);
-//    push edx
-    a.asm_push_r32(X86Reg::edx);
-//    inc esi
-    a.asm_inc_r32(X86Reg::esi);
-//    cmp eax, 0
-    a.asm_cmp_r32_imm8(X86Reg::eax, 0);
-//    jz .print
-    a.asm_je_label(".print");
-//    jmp .loop
-    a.asm_jmp_label(".loop");
-
-    a.add_label(".print");
-//    cmp esi, 0
-    a.asm_cmp_r32_imm8(X86Reg::esi, 0);
-//    jz end
-    a.asm_je_label(".end");
-//    dec esi
-    a.asm_dec_r32(X86Reg::esi);
-//    mov eax, 4
-    a.asm_mov_r32_imm32(X86Reg::eax, 4);
-//    mov ecx, esp
-    a.asm_mov_r32_r32(X86Reg::ecx, X86Reg::esp);
-//    mov ebx, 1
-    a.asm_mov_r32_imm32(X86Reg::ebx, 1);
-//    mov edx, 1
-    a.asm_mov_r32_imm32(X86Reg::edx, 1);
-//    int 0x80
-    a.asm_int_imm8(0x80);
-//    add esp, 4
-    a.asm_add_r32_imm32(X86Reg::esp, 4);
-//    jmp .print
-    a.asm_jmp_label(".print");
-
-    a.add_label(".end");
-
-    // Restore stack
-    a.asm_mov_r32_r32(X86Reg::esp, X86Reg::ebp);
-    a.asm_pop_r32(X86Reg::ebp);
-    a.asm_ret();
-}
-
-void emit_print_float(X86Assembler &a, const std::string &name) {
-    // void print_float(float z);
-    a.add_label(name);
-
-    // Initialize stack
-    a.asm_push_r32(X86Reg::ebp);
-    a.asm_mov_r32_r32(X86Reg::ebp, X86Reg::esp);
-
-    X86Reg base = X86Reg::ebp;
-    a.asm_fld_m32(&base, nullptr, 1, 8); // load argument into floating register stack
-    a.asm_push_imm32(0); // decrement stack pointer and create space
-    X86Reg stack_top = X86Reg::esp;
-    a.asm_fistp_m32(&stack_top, nullptr, 1, 0);
-
-    // print the integral part
-    {
-        a.asm_call_label("print_i32");
-        a.asm_add_r32_imm32(X86Reg::esp, 4); // increment stack top and thus pop the value to be set
-    }
-
-    // print dot
-    emit_print(a, "string_dot", 1U);
-
-    // print fractional part
-    {
-        a.asm_fld_m32(&base, nullptr, 1, 8); // load argument into floating register stack
-        a.asm_fld_m32(&base, nullptr, 1, 8); // load another copy of argument into floating register stack
-        a.asm_frndint(); // round st(0) to integral part
-        a.asm_fsubp();
-
-        // st(0) now contains only the fractional part
-
-        a.asm_push_imm32(100000000);
-        a.asm_fimul_m32int(&stack_top, nullptr, 1, 0);
-        a.asm_fistp_m32(&stack_top, nullptr, 1, 0);
-        // print the fractional part
-        {
-            a.asm_call_label("print_i32");
-            a.asm_add_r32_imm32(X86Reg::esp, 4); // increment stack top and thus pop the value to be set
-        }
-    }
-
-    // Restore stack
-    a.asm_mov_r32_r32(X86Reg::esp, X86Reg::ebp);
-    a.asm_pop_r32(X86Reg::ebp);
-    a.asm_ret();
-}
-
-/************************* 64-bit functions **************************/
-
-void emit_elf64_header(X86Assembler &a, uint32_t p_flags) {
-    /* Elf32_Ehdr */
-    a.add_label("ehdr");
-    // e_ident
-    a.asm_db_imm8(0x7F);
-    a.asm_db_imm8('E');
-    a.asm_db_imm8('L');
-    a.asm_db_imm8('F');
-    a.asm_db_imm8(2);
-    a.asm_db_imm8(1);
-    a.asm_db_imm8(1);
-    a.asm_db_imm8(0);
-
-    a.asm_db_imm8(0);
-    a.asm_db_imm8(0);
-    a.asm_db_imm8(0);
-    a.asm_db_imm8(0);
-
-    a.asm_db_imm8(0);
-    a.asm_db_imm8(0);
-    a.asm_db_imm8(0);
-    a.asm_db_imm8(0);
-
-    a.asm_dw_imm16(2);  // e_type
-    a.asm_dw_imm16(0x3e);  // e_machine
-    a.asm_dd_imm32(1);  // e_version
-    a.asm_dq_label("_start");  // e_entry
-    a.asm_dq_label("e_phoff");  // e_phoff
-    a.asm_dq_imm64(0);  // e_shoff
-    a.asm_dd_imm32(0);  // e_flags
-    a.asm_dw_label("ehdrsize");  // e_ehsize
-    a.asm_dw_label("phdrsize");  // e_phentsize
-    a.asm_dw_imm16(1);  // e_phnum
-    a.asm_dw_imm16(0);  // e_shentsize
-    a.asm_dw_imm16(0);  // e_shnum
-    a.asm_dw_imm16(0);  // e_shstrndx
-
-    a.add_var("ehdrsize", a.pos()-a.get_defined_symbol("ehdr").value);
-
-    /* Elf32_Phdr */
-    a.add_label("phdr");
-    a.asm_dd_imm32(1);        // p_type
-    a.asm_dd_imm32(p_flags);  // p_flags
-    a.asm_dq_imm64(0);        // p_offset
-    a.asm_dq_imm64(a.origin());   // p_vaddr
-    a.asm_dq_imm64(a.origin());   // p_paddr
-    a.asm_dq_label("filesize"); // p_filesz
-    a.asm_dq_label("filesize"); // p_memsz
-    a.asm_dq_imm64(0x1000);   // p_align
-
-    a.add_var("phdrsize", a.pos()-a.get_defined_symbol("phdr").value);
-    a.add_var64("e_phoff", a.get_defined_symbol("phdr").value-a.origin());
-}
-
-void emit_elf64_footer(X86Assembler &a) {
-    a.add_var_size("filesize");
-}
-
-void emit_exit_64(X86Assembler &a, std::string name, int exit_code) {
-    a.add_label(name);
-    // void exit(int status);
-    a.asm_mov_r64_imm64(LCompilers::X64Reg::rax, 60); // sys_exit
-    a.asm_mov_r64_imm64(LCompilers::X64Reg::rdi, exit_code); // exit code
-    a.asm_syscall(); // syscall
-}
-
-void emit_print_64(X86Assembler &a, const std::string &msg_label, uint64_t size)
-{
-    // mov rax, 1        ; write(
-    // mov rdi, 1        ;   STDOUT_FILENO,
-    // mov rsi, msg      ;   "Hello, world!\n",
-    // mov rdx, msglen   ;   sizeof("Hello, world!\n")
-    // syscall           ; );
-
-    a.asm_mov_r64_imm64(X64Reg::rax, 1);
-    a.asm_mov_r64_imm64(X64Reg::rdi, 1);
-    a.asm_mov_r64_label(X64Reg::rsi, msg_label); // buf
-    a.asm_mov_r64_imm64(X64Reg::rdx, size);
-    a.asm_syscall();
-}
-
-void emit_print_int_64(X86Assembler &a, const std::string &name)
-{
-    // void print_int_64(uint64_t i);
-    a.add_label(name);
-        // Initialize stack
-        a.asm_push_r64(X64Reg::rbp);
-        a.asm_mov_r64_r64(X64Reg::rbp, X64Reg::rsp);
-
-        X64Reg base = X64Reg::rbp;
-        a.asm_mov_r64_m64(X64Reg::r8, &base, nullptr, 1, 16); // mov r8, [rbp+16]  // argument "i"
-        a.asm_mov_r64_imm64(X64Reg::r9, 0); // r9 holds count of digits
-
-        // if num >= 0 then print it
-        a.asm_cmp_r64_imm8(X64Reg::r8, 0);
-        a.asm_jge_label("_print_i64_loop_initialize");
-
-        // print "-" and then negate the integer
-        emit_print_64(a, "string_neg", 1);
-        a.asm_neg_r64(X64Reg::r8);
-
-    a.add_label("_print_i64_loop_initialize");
-        a.asm_mov_r64_r64(X64Reg::rax, X64Reg::r8); // rax as quotient
-        a.asm_mov_r64_imm64(X64Reg::r10, 10); // 10 as divisor
-
-    a.add_label("_print_i64_loop");
-        a.asm_mov_r64_imm64(X64Reg::rdx, 0);
-        a.asm_div_r64(X64Reg::r10);
-        a.asm_add_r64_imm32(X64Reg::rdx, 48);
-        a.asm_push_r64(X64Reg::rdx);
-        a.asm_inc_r64(X64Reg::r9);
-        a.asm_cmp_r64_imm8(X64Reg::rax, 0);
-        a.asm_je_label("_print_i64_digit");
-        a.asm_jmp_label("_print_i64_loop");
-
-    a.add_label("_print_i64_digit");
-        a.asm_cmp_r64_imm8(X64Reg::r9, 0);
-        a.asm_je_label("_print_i64_end");
-        a.asm_dec_r64(X64Reg::r9);
-        { // write() syscall
-            a.asm_mov_r64_imm64(X64Reg::rax, 1);
-            a.asm_mov_r64_imm64(X64Reg::rdi, 1);
-            a.asm_mov_r64_r64(X64Reg::rsi, X64Reg::rsp);
-            a.asm_mov_r64_imm64(X64Reg::rdx, 1);
-            a.asm_syscall();
-        }
-        a.asm_add_r64_imm32(X64Reg::rsp, 8); // pop and increment stack pointer
-        a.asm_jmp_label("_print_i64_digit");
-
-    a.add_label("_print_i64_end");
-        // Restore stack
-        a.asm_mov_r64_r64(X64Reg::rsp, X64Reg::rbp);
-        a.asm_pop_r64(X64Reg::rbp);
-        a.asm_ret();
-}
-
-void emit_print_double(X86Assembler &a, const std::string &name) {
-    // void print_double(double z);
-    a.add_label(name);
-
-    // Initialize stack
-    a.asm_push_r64(X64Reg::rbp);
-    a.asm_mov_r64_r64(X64Reg::rbp, X64Reg::rsp);
-
-    X64Reg base = X64Reg::rbp;
-    a.asm_movsd_r64_m64(X64FReg::xmm0, &base, nullptr, 1, 16); // load argument into floating-point register
-
-    // if z >= 0 then print it
-    a.asm_mov_r64_imm64(X64Reg::rax, 0);
-    a.asm_cvtsi2sd_r64_r64(X64FReg::xmm1, X64Reg::rax);
-    a.asm_cmpsd_r64_r64(X64FReg::xmm0, X64FReg::xmm1, Fcmp::ge);
-    a.asm_pmovmskb_r32_r64(X86Reg::eax, X64FReg::xmm0);
-    a.asm_and_r64_imm8(X64Reg::rax, 1);
-    a.asm_movsd_r64_m64(X64FReg::xmm0, &base, nullptr, 1, 16); // load argument back into floating-point register
-    a.asm_cmp_r64_imm8(X64Reg::rax, 1);
-    a.asm_je_label("_print_float_int_part");
-
-    {
-        // the float to be printed is < 0, so print '-' symbol and
-        // multiply the float with -1
-        emit_print_64(a, "string_neg", 1);
-
-        a.asm_mov_r64_imm64(X64Reg::rax, 1);
-        a.asm_neg_r64(X64Reg::rax);
-        a.asm_cvtsi2sd_r64_r64(X64FReg::xmm1, X64Reg::rax);
-        a.asm_mulsd_r64_r64(X64FReg::xmm0, X64FReg::xmm1);
-    }
-
-    a.add_label("_print_float_int_part");
-    a.asm_cvttsd2si_r64_r64(X64Reg::rax, X64FReg::xmm0);
-    a.asm_push_r64(X64Reg::rax);
-
-    // print the integral part
-    {
-        a.asm_call_label("print_i64");
-        a.asm_add_r64_imm32(X64Reg::rsp, 8); // pop and increment stack pointer
-    }
-
-    // print dot
-    emit_print_64(a, "string_dot", 1U);
-
-    // print fractional part
-    {
-        a.asm_cvttsd2si_r64_r64(X64Reg::rax, X64FReg::xmm0); // rax now contains value int(xmm0)
-        a.asm_cvtsi2sd_r64_r64(X64FReg::xmm1, X64Reg::rax);
-        a.asm_subsd_r64_r64(X64FReg::xmm0, X64FReg::xmm1);
-        a.asm_mov_r64_imm64(X64Reg::rax, 100000000); // to multiply by 10^8
-        a.asm_cvtsi2sd_r64_r64(X64FReg::xmm1, X64Reg::rax);
-        a.asm_mulsd_r64_r64(X64FReg::xmm0, X64FReg::xmm1);
-        a.asm_cvttsd2si_r64_r64(X64Reg::rax, X64FReg::xmm0);
-
-        a.asm_mov_r64_r64(X64Reg::r15, X64Reg::rax); // keep a safe copy in r15
-        a.asm_mov_r64_imm64(X64Reg::r8, 8); // 8 digits after decimal point to be printed
-        a.asm_mov_r64_imm64(X64Reg::r10, 10); // 10 as divisor
-
-        // count the number of digits available in the fractional part
-        a.add_label("_count_fract_part_digits_loop");
-            a.asm_mov_r64_imm64(X64Reg::rdx, 0);
-            a.asm_div_r64(X64Reg::r10);
-            a.asm_dec_r64(X64Reg::r8);
-            a.asm_cmp_r64_imm8(X64Reg::rax, 0);
-            a.asm_je_label("_print_fract_part_initial_zeroes_loop_head");
-            a.asm_jmp_label("_count_fract_part_digits_loop");
-
-        a.add_label("_print_fract_part_initial_zeroes_loop_head");
-            a.asm_mov_r64_imm64(X64Reg::rax, 48);
-            a.asm_push_r64(X64Reg::rax); // push zero ascii value on stack top
-
-        a.add_label("_print_fract_part_initial_zeroes_loop");
-            a.asm_cmp_r64_imm8(X64Reg::r8, 0);
-            a.asm_je_label("_print_fract_part");
-            {
-                // write() syscall
-                a.asm_mov_r64_imm64(X64Reg::rax, 1);
-                a.asm_mov_r64_imm64(X64Reg::rdi, 1);
-                a.asm_mov_r64_r64(X64Reg::rsi, X64Reg::rsp);
-                a.asm_mov_r64_imm64(X64Reg::rdx, 1);
-                a.asm_syscall();
-            }
-            a.asm_dec_r64(X64Reg::r8);
-            a.asm_jmp_label("_print_fract_part_initial_zeroes_loop");
-
-        a.add_label("_print_fract_part");
-            a.asm_pop_r64(X64Reg::rax); // pop the zero ascii value from stack top
-            a.asm_push_r64(X64Reg::r15);
-            // print the fractional part
-            {
-                a.asm_call_label("print_i64");
-                a.asm_add_r64_imm32(X64Reg::rsp, 8); // pop and increment stack pointer
-            }
-    }
-
-    // Restore stack
-    a.asm_mov_r64_r64(X64Reg::rsp, X64Reg::rbp);
-    a.asm_pop_r64(X64Reg::rbp);
-    a.asm_ret();
-}
-} // namespace LFortran
diff --git a/src/libasr/codegen/x86_assembler.h b/src/libasr/codegen/x86_assembler.h
deleted file mode 100644
index 2b2d37e5ff..0000000000
--- a/src/libasr/codegen/x86_assembler.h
+++ /dev/null
@@ -1,1538 +0,0 @@
-#ifndef LFORTRAN_CODEGEN_X86_ASSEMBER_H
-#define LFORTRAN_CODEGEN_X86_ASSEMBER_H
-
-/*
-
-X86 Assembler implementation in the X86Assembler class.
-
-The goal of the X86Assembler class is to emit machine code as quickly as
-possible. For that reason the assembler is implemented as a two pass assembler:
-in the first pass it emits all the instructions as fixed size byte code, and in
-the second pass it fixes all references to labels (jumps). As a result, the
-final machine code is not the shortest possible, because jumps could possibly be
-encoded shorter if the final relative address is shorter, but it would require
-more passes and thus slower compilation.
-
-For debugging purposes, one can enable the macro LFORTRAN_ASM_PRINT and one can
-then obtain a human readable assembly printout of all instructions. Disable the
-macro for best performance.
-
-References:
-
-[1] Intel 64 and IA-32 Architectures Software Developer's Manual
-Link: https://www.intel.com/content/dam/www/public/us/en/documents/manuals/64-ia-32-architectures-software-developer-instruction-set-reference-manual-325383.pdf
-
-Old Link: https://www.systutorials.com/go/intel-x86-64-reference-manual/
-
-*/
-
-#include <iomanip>
-#include <sstream>
-#include <fstream>
-#include <map>
-
-#include <libasr/alloc.h>
-#include <libasr/containers.h>
-
-// Define to allow the Assembler print the asm instructions
-#define LFORTRAN_ASM_PRINT
-
-#ifdef LFORTRAN_ASM_PRINT
-#    define EMIT(s) emit("    ", s)
-#    define EMIT_LABEL(s) emit("", s)
-#    define EMIT_VAR(a, b) emit("\n", a + " equ " + i2s(b) + "\n")
-#    define EMIT_VAR_SIZE(a) emit("\n", a + " equ $ - $$\n") // $ is current addr, $$ is start addr
-#else
-#    define EMIT(s)
-#    define EMIT_LABEL(s)
-#    define EMIT_VAR(a, b)
-#    define EMIT_VAR_SIZE(a)
-#endif
-
-namespace LCompilers {
-
-enum X86Reg : uint8_t {
-    eax = 0,
-    ecx = 1,
-    edx = 2,
-    ebx = 3,
-    esp = 4,
-    ebp = 5,
-    esi = 6,
-    edi = 7,
-};
-
-static std::string r2s(X86Reg r32) {
-    switch (r32) {
-        case (X86Reg::eax) : return "eax";
-        case (X86Reg::ecx) : return "ecx";
-        case (X86Reg::edx) : return "edx";
-        case (X86Reg::ebx) : return "ebx";
-        case (X86Reg::esp) : return "esp";
-        case (X86Reg::ebp) : return "ebp";
-        case (X86Reg::esi) : return "esi";
-        case (X86Reg::edi) : return "edi";
-        default : throw AssemblerError("Unknown instruction");
-    }
-}
-
-enum X64Reg : uint8_t {
-    rax =  0,
-    rcx =  1,
-    rdx =  2,
-    rbx =  3,
-    rsp =  4,
-    rbp =  5,
-    rsi =  6,
-    rdi =  7,
-    r8 =   8,
-    r9 =   9,
-    r10 = 10,
-    r11 = 11,
-    r12 = 12,
-    r13 = 13,
-    r14 = 14,
-    r15 = 15,
-};
-
-static std::string r2s(X64Reg r64) {
-    switch (r64) {
-        case (X64Reg::rax) : return "rax";
-        case (X64Reg::rcx) : return "rcx";
-        case (X64Reg::rdx) : return "rdx";
-        case (X64Reg::rbx) : return "rbx";
-        case (X64Reg::rsp) : return "rsp";
-        case (X64Reg::rbp) : return "rbp";
-        case (X64Reg::rsi) : return "rsi";
-        case (X64Reg::rdi) : return "rdi";
-        case (X64Reg::r8 ) : return "r8" ;
-        case (X64Reg::r9 ) : return "r9" ;
-        case (X64Reg::r10) : return "r10";
-        case (X64Reg::r11) : return "r11";
-        case (X64Reg::r12) : return "r12";
-        case (X64Reg::r13) : return "r13";
-        case (X64Reg::r14) : return "r14";
-        case (X64Reg::r15) : return "r15";
-        default : throw AssemblerError("Unknown instruction");
-    }
-}
-// Not sure if this numbering is correct. Numbering info
-// about these registers does not seem easily available.
-enum X86FReg : uint8_t {
-    st0 = 0,
-    st1 = 1,
-    st2 = 2,
-    st3 = 3,
-    st4 = 4,
-    st5 = 5,
-    st6 = 6,
-    st7 = 7,
-};
-
-
-static std::string r2s(X86FReg st) {
-    switch (st) {
-        case (X86FReg::st0) : return "st0";
-        case (X86FReg::st1) : return "st1";
-        case (X86FReg::st2) : return "st2";
-        case (X86FReg::st3) : return "st3";
-        case (X86FReg::st4) : return "st4";
-        case (X86FReg::st5) : return "st5";
-        case (X86FReg::st6) : return "st6";
-        case (X86FReg::st7) : return "st7";
-        default : throw AssemblerError("Unknown instruction");
-    }
-}
-
-enum X64FReg : uint8_t {
-    xmm0 = 0,
-    xmm1 = 1,
-    xmm2 = 2,
-    xmm3 = 3,
-    xmm4 = 4,
-    xmm5 = 5,
-    xmm6 = 6,
-    xmm7 = 7,
-    xmm8 = 8,
-    xmm9 = 9,
-    xmm10 = 10,
-    xmm11 = 11,
-    xmm12 = 12,
-    xmm13 = 13,
-    xmm14 = 14,
-    xmm15 = 15,
-};
-
-
-static std::string r2s(X64FReg xmm) {
-    switch (xmm) {
-        case (X64FReg::xmm0) : return "xmm0";
-        case (X64FReg::xmm1) : return "xmm1";
-        case (X64FReg::xmm2) : return "xmm2";
-        case (X64FReg::xmm3) : return "xmm3";
-        case (X64FReg::xmm4) : return "xmm4";
-        case (X64FReg::xmm5) : return "xmm5";
-        case (X64FReg::xmm6) : return "xmm6";
-        case (X64FReg::xmm7) : return "xmm7";
-        case (X64FReg::xmm8) : return "xmm8";
-        case (X64FReg::xmm9) : return "xmm9";
-        case (X64FReg::xmm10) : return "xmm10";
-        case (X64FReg::xmm11) : return "xmm11";
-        case (X64FReg::xmm12) : return "xmm12";
-        case (X64FReg::xmm13) : return "xmm13";
-        case (X64FReg::xmm14) : return "xmm14";
-        case (X64FReg::xmm15) : return "xmm15";
-        default : throw AssemblerError("Unknown instruction");
-    }
-}
-
-enum Fcmp : uint8_t {
-    eq = 0,
-    gt = 6, // (NLE in docs)
-    ge = 5, // (NLT in docs)
-    lt = 1,
-    le = 2,
-    ne = 4
-};
-
-static std::string m2s(X64Reg *base, X64Reg *index, uint8_t scale, int64_t disp) {
-    std::string r;
-    r = "[";
-    if (base) r += r2s(*base);
-    if (index) {
-        if (base) r += "+";
-        if (scale == 1) {
-            r += r2s(*index);
-        } else {
-            r += std::to_string(scale) + "*" + r2s(*index);
-        }
-    }
-    if (disp) {
-        if ((base || index) && (disp > 0)) r += "+";
-        r += std::to_string(disp);
-    }
-    r += "]";
-    return r;
-}
-
-static std::string m2s(X86Reg *base, X86Reg *index, uint8_t scale, int32_t disp) {
-    std::string r;
-    r = "[";
-    if (base) r += r2s(*base);
-    if (index) {
-        if (base) r += "+";
-        if (scale == 1) {
-            r += r2s(*index);
-        } else {
-            r += std::to_string(scale) + "*" + r2s(*index);
-        }
-    }
-    if (disp) {
-        if ((base || index) && (disp > 0)) r += "+";
-        r += std::to_string(disp);
-    }
-    r += "]";
-    return r;
-}
-
-template< typename T >
-static std::string hexify(T i)
-{
-    std::stringbuf buf;
-    std::ostream os(&buf);
-    os << std::setfill('0') << std::setw(sizeof(T) * 2) << std::hex << i;
-    return buf.str();
-}
-
-static std::string i2s(uint64_t imm64) {
-    return "0x" + hexify(imm64);
-}
-
-static std::string i2s(uint32_t imm32) {
-    return "0x" + hexify(imm32);
-}
-
-static std::string i2s(uint16_t imm16) {
-    return "0x" + hexify(imm16);
-}
-
-static std::string i2s(uint8_t imm8) {
-    // hexify() for some reason does not work with uint8_t, only with longer
-    // integers
-    std::string s = hexify((uint16_t)imm8);
-    // Strip the two leading zeros
-    return "0x" + s.substr(2,4);
-}
-
-static void push_back_uint64(Vec<uint8_t> &code, Allocator &al, uint32_t i64) {
-    for (size_t i = 0u; i < 8u; i++) {
-        code.push_back(al, i64 & 0xFF);
-        i64 >>= 8;
-    }
-}
-
-static void push_back_uint32(Vec<uint8_t> &code, Allocator &al, uint32_t i32) {
-    code.push_back(al, (i32      ) & 0xFF);
-    code.push_back(al, (i32 >>  8) & 0xFF);
-    code.push_back(al, (i32 >> 16) & 0xFF);
-    code.push_back(al, (i32 >> 24) & 0xFF);
-}
-
-static void insert_uint64(Vec<uint8_t> &code, size_t pos, uint64_t i64) {
-    for (size_t i = 0u; i < 8u; i++) {
-        code.p[pos + i] = (i64 & 0xFF);
-        i64 >>= 8;
-    }
-}
-
-static void insert_uint32(Vec<uint8_t> &code, size_t pos, uint32_t i32) {
-    code.p[pos  ] = (i32      ) & 0xFF;
-    code.p[pos+1] = (i32 >>  8) & 0xFF;
-    code.p[pos+2] = (i32 >> 16) & 0xFF;
-    code.p[pos+3] = (i32 >> 24) & 0xFF;
-}
-
-static void push_back_uint16(Vec<uint8_t> &code, Allocator &al, uint16_t i16) {
-    code.push_back(al, (i16      ) & 0xFF);
-    code.push_back(al, (i16 >>  8) & 0xFF);
-}
-
-static void insert_uint16(Vec<uint8_t> &code, size_t pos, uint16_t i16) {
-    code.p[pos  ] = (i16      ) & 0xFF;
-    code.p[pos+1] = (i16 >>  8) & 0xFF;
-}
-
-// Implements table 2-2 in [1].
-static uint8_t ModRM_byte(uint8_t mode, uint8_t reg, uint8_t rm) {
-    LCOMPILERS_ASSERT(mode <= 3);
-    LCOMPILERS_ASSERT(reg <= 7);
-    LCOMPILERS_ASSERT(rm <= 7);
-    return (mode << 6) | (reg << 3) | rm;
-}
-
-// Implements table 2-3 in [1].
-static uint8_t SIB_byte(uint8_t base, uint8_t index, uint8_t scale_index) {
-    LCOMPILERS_ASSERT(base <= 7);
-    LCOMPILERS_ASSERT(index <= 7);
-    LCOMPILERS_ASSERT(scale_index <= 3);
-    return (scale_index << 6) | (index << 3) | base;
-}
-
-// Implements the logic of tables 2-2 and 2-3 in [1] and correctly appends the
-// SIB and displacement bytes as appropriate.
-static void ModRM_SIB_disp_bytes(Vec<uint8_t> &code, Allocator &al,
-        uint8_t mod, uint8_t reg, uint8_t rm,
-        uint8_t base, uint8_t index, uint8_t scale_index, int32_t disp) {
-    code.push_back(al, ModRM_byte(mod, reg, rm));
-    if (rm == 0b100 && (mod == 0b00 || mod == 0b01 || mod == 0b10)) {
-        // SIB byte is present
-        code.push_back(al, SIB_byte(base, index, scale_index));
-    }
-    if (mod == 0b01) {
-        // disp8 is present
-        LCOMPILERS_ASSERT(-128 <= disp && disp < 128);
-        uint8_t disp8 = disp;
-        code.push_back(al, disp8);
-    } else if ((mod == 0b00 && (rm==0b101 || base==0b101)) || (mod == 0b10)) {
-        // disp32 is present
-        uint32_t disp32 = disp;
-        push_back_uint32(code, al, disp32);
-    }
-}
-
-static void modrm_sib_disp(Vec<uint8_t> &code, Allocator &al,
-        X86Reg reg,
-        X86Reg *base_opt, // nullptr if None
-        X86Reg *index_opt, // nullptr if None
-        uint8_t scale, // 1 if None
-        int32_t disp, // 0 if None
-        bool mem) {
-    uint8_t mod, rm, base, index, scale_index;
-
-    if (mem) {
-        // Determine mod
-        if (!base_opt || (disp == 0 && *base_opt != 0b101)) {
-            mod = 0b00;
-        } else if (-128 <= disp && disp < 128) {
-            mod = 0b01;
-        } else {
-            mod = 0b10;
-        }
-
-        // Determine rm
-        if (index_opt) {
-            rm = 0b100;
-        } else if (!base_opt) {
-            rm = 0b101;
-        } else {
-            rm = *base_opt;
-        }
-
-        // Determine base
-        if (base_opt) {
-            base = *base_opt;
-        } else if (index_opt) {
-            base = 0b101;
-        } else {
-            throw AssemblerError("base_opt or index_opt must be supplied if mem=true");
-        }
-
-        // Determine index
-        if (index_opt) {
-            index = *index_opt;
-        } else if (base == 0b100) {
-            index = 0b100;
-        } else {
-            // index will not be used, but silence a compiler warning:
-            index = 0;
-        }
-    } else {
-        mod = 0b11;
-        if (base_opt) {
-            base = *base_opt;
-        } else {
-            throw AssemblerError("base_opt must be supplied if mem=false");
-        }
-        rm = base;
-        // index will not be used, but silence a compiler warning:
-        index = 0;
-    }
-
-    switch (scale) {
-        case (1) : scale_index = 0b00; break;
-        case (2) : scale_index = 0b01; break;
-        case (4) : scale_index = 0b10; break;
-        case (8) : scale_index = 0b11; break;
-        default : throw AssemblerError("Scale must be one of [1, 2, 4, 8]");
-    }
-
-    ModRM_SIB_disp_bytes(code, al, mod, reg, rm,
-            base, index, scale_index, disp);
-}
-
-struct Symbol {
-    std::string name;
-    uint32_t value;
-    bool defined;
-    Vec<uint32_t> undefined_positions;
-    Vec<uint32_t> undefined_positions_imm16;
-    Vec<uint32_t> undefined_positions_rel;
-    Vec<uint64_t> undefined_positions_64_bit;
-};
-
-class X86Assembler {
-    Allocator &m_al;
-    Vec<uint8_t> m_code;
-    std::map<std::string,Symbol> m_symbols;
-    uint32_t m_origin;
-#ifdef LFORTRAN_ASM_PRINT
-    std::string m_asm_code;
-    void emit(const std::string &indent, const std::string &s) {
-        m_asm_code += indent + s + "\n";
-    }
-#endif
-public:
-    X86Assembler(Allocator &al, bool bits64) : m_al{al} {
-        m_code.reserve(m_al, 1024*128);
-        m_origin = 0x08048000;
-#ifdef LFORTRAN_ASM_PRINT
-        if (bits64) {
-            m_asm_code = "BITS 64\n";
-            emit("    ", "org " + i2s((uint64_t)m_origin) + "\n"); // specify origin info
-        } else {
-            m_asm_code = "BITS 32\n";
-            emit("    ", "org " + i2s(m_origin) + "\n"); // specify origin info
-        }
-#endif
-    }
-
-#ifdef LFORTRAN_ASM_PRINT
-    std::string get_asm() {
-        return m_asm_code;
-    }
-
-    // Saves the generated assembly into a file
-    // Can be compiled with:
-    // nasm -f bin filename.asm
-    void save_asm(const std::string &filename) {
-        std::ofstream out;
-        out.open(filename);
-        out << get_asm();
-    }
-#endif
-
-    Vec<uint8_t>& get_machine_code() {
-        return m_code;
-    }
-
-    void define_symbol(const std::string &name, uint32_t value) {
-        if (m_symbols.find(name) == m_symbols.end()) {
-            Symbol s;
-            s.defined = true;
-            s.value = value;
-            s.name = name;
-            m_symbols[name] = s;
-        } else {
-            Symbol &s = m_symbols[name];
-            s.defined = true;
-            s.value = value;
-            // Fix previous undefined positions
-            for (size_t i=0; i < s.undefined_positions.size(); i++) {
-                uint32_t pos = s.undefined_positions[i];
-                insert_uint32(m_code, pos, s.value);
-            }
-            for (size_t i=0; i < s.undefined_positions_rel.size(); i++) {
-                uint32_t pos = s.undefined_positions_rel[i];
-                insert_uint32(m_code, pos, s.value-pos-m_origin-4);
-            }
-            for (size_t i=0; i < s.undefined_positions_imm16.size(); i++) {
-                uint32_t pos = s.undefined_positions_imm16[i];
-                insert_uint16(m_code, pos, s.value);
-            }
-            for (size_t i=0; i < s.undefined_positions_64_bit.size(); i++) {
-                uint64_t pos = s.undefined_positions_64_bit[i];
-                insert_uint64(m_code, pos, s.value);
-            }
-        }
-    }
-
-    // Adds to undefined_positions, creates a symbol if needed
-    // type = 0 imm32
-    // type = 1 imm16
-    // type = 2 relative
-    Symbol &reference_symbol(const std::string &name, int type=0) {
-        if (m_symbols.find(name) == m_symbols.end()) {
-            Symbol s;
-            s.defined = false;
-            s.value = 0;
-            s.name = name;
-            s.undefined_positions.reserve(m_al, 8);
-            s.undefined_positions_imm16.reserve(m_al, 8);
-            s.undefined_positions_rel.reserve(m_al, 8);
-            s.undefined_positions_64_bit.reserve(m_al, 8);
-            m_symbols[name] = s;
-        }
-        Symbol &s = m_symbols[name];
-        if (!s.defined) {
-            switch (type) {
-                case (0) :
-                    s.undefined_positions.push_back(m_al, pos()-m_origin);
-                    break;
-                case (1) :
-                    s.undefined_positions_imm16.push_back(m_al, pos()-m_origin);
-                    break;
-                case (2) :
-                    s.undefined_positions_rel.push_back(m_al, pos()-m_origin);
-                    break;
-                case (3) : // for 64-bit label
-                    s.undefined_positions_64_bit.push_back(m_al, pos()-m_origin);
-                    break;
-                default : throw AssemblerError("Unknown label type");
-            }
-        }
-        return s;
-    }
-
-    uint32_t relative_symbol(const std::string &name) {
-        return reference_symbol(name, 2).value-pos()-4;
-    }
-
-    // Does not touch undefined_positions, symbol must be defined
-    Symbol &get_defined_symbol(const std::string &name) {
-        LCOMPILERS_ASSERT(m_symbols.find(name) != m_symbols.end());
-        return m_symbols[name];
-    }
-
-    void add_label(const std::string &label) {
-        define_symbol(label, pos());
-        EMIT_LABEL(label + ":");
-    }
-
-    void add_var_size(const std::string &var) {
-        uint64_t val = pos() - origin();
-        // TODO: Support 64-bit or 8 byte parameter val in define_symbol()
-        define_symbol(var, val);
-        EMIT_VAR_SIZE(var);
-    }
-
-    void add_var64(const std::string &var, uint64_t val) {
-        // TODO: Support 64-bit or 8 byte parameter val in define_symbol()
-        define_symbol(var, val);
-        EMIT_VAR(var, val);
-    }
-
-    void add_var(const std::string &var, uint32_t val) {
-        define_symbol(var, val);
-        EMIT_VAR(var, val);
-    }
-
-    uint32_t pos() {
-        return m_origin + m_code.size();
-    }
-
-    uint32_t origin() {
-        return m_origin;
-    }
-
-    // Verifies that all symbols are defined (and thus resolved).
-    void verify() {
-        for (auto &s : m_symbols) {
-            if (!s.second.defined) {
-                throw AssemblerError("The symbol '" + s.first + "' is undefined.");
-            }
-        }
-    }
-
-    // Saves the generated machine code into a binary file
-    void save_binary(const std::string &filename);
-
-    void asm_pop_r64(X64Reg r64) {
-        X86Reg r32 = X86Reg(r64 & 7);
-        m_code.push_back(m_al, rex(1, 0, 0, r64 >> 3));
-        m_code.push_back(m_al, 0x58 + r32);
-        EMIT("pop " + r2s(r64));
-    }
-
-    void asm_pop_r32(X86Reg r32) {
-        m_code.push_back(m_al, 0x58 + r32);
-        EMIT("pop " + r2s(r32));
-    }
-
-    void asm_pop_r16(X86Reg r16) {
-        m_code.push_back(m_al, 0x66);
-        m_code.push_back(m_al, 0x58 + r16);
-        EMIT("popl " + r2s(r16));
-    }
-
-    void asm_push_r64(X64Reg r64) {
-        X86Reg r32 = X86Reg(r64 & 7);
-        m_code.push_back(m_al, rex(1, 0, 0, r64 >> 3));
-        m_code.push_back(m_al, 0x50 + r32);
-        EMIT("push " + r2s(r64));
-    }
-
-    void asm_push_r32(X86Reg r32) {
-        m_code.push_back(m_al, 0x50 + r32);
-        EMIT("push " + r2s(r32));
-    }
-
-    void asm_push_r16(X86Reg r16) {
-        m_code.push_back(m_al, 0x66);
-        m_code.push_back(m_al, 0x50 + r16);
-        EMIT("pushl " + r2s(r16));
-    }
-
-    void asm_push_imm8(uint8_t imm8) {
-        m_code.push_back(m_al, 0x6a);
-        m_code.push_back(m_al, imm8);
-        EMIT("push " + i2s(imm8));
-    }
-
-    void asm_push_imm32(uint32_t imm32) {
-        m_code.push_back(m_al, 0x68);
-        push_back_uint32(m_code, m_al, imm32);
-        EMIT("push " + i2s(imm32));
-    }
-
-    void asm_jz_imm8(uint8_t imm8) {
-        m_code.push_back(m_al, 0x74);
-        m_code.push_back(m_al, imm8);
-        EMIT("jz " + i2s(imm8));
-    }
-
-    void asm_jnz_imm8(uint8_t imm8) {
-        m_code.push_back(m_al, 0x75);
-        m_code.push_back(m_al, imm8);
-        EMIT("jnz " + i2s(imm8));
-    }
-
-    void asm_jle_imm8(uint8_t imm8) {
-        m_code.push_back(m_al, 0x7e);
-        m_code.push_back(m_al, imm8);
-        EMIT("jle " + i2s(imm8));
-    }
-
-    void asm_jl_imm8(uint8_t imm8) {
-        m_code.push_back(m_al, 0x7c);
-        m_code.push_back(m_al, imm8);
-        EMIT("jl " + i2s(imm8));
-    }
-
-    void asm_jne_imm8(uint8_t imm8) {
-        asm_jnz_imm8(imm8);
-    }
-
-    void asm_jge_imm8(uint8_t imm8) {
-        m_code.push_back(m_al, 0x7d);
-        m_code.push_back(m_al, imm8);
-        EMIT("jge " + i2s(imm8));
-    }
-
-    void asm_jge_imm32(uint32_t imm32) {
-        m_code.push_back(m_al, 0x0F);
-        m_code.push_back(m_al, 0x8D);
-        push_back_uint32(m_code, m_al, imm32);
-        EMIT("jge " + i2s(imm32));
-    }
-
-    // Jump if ==
-    void asm_je_label(const std::string &label) {
-        m_code.push_back(m_al, 0x0F);
-        m_code.push_back(m_al, 0x84);
-        uint32_t imm32 = relative_symbol(label);
-        push_back_uint32(m_code, m_al, imm32);
-        EMIT("je " + label);
-    }
-
-    // Jump if !=
-    void asm_jne_label(const std::string &label) {
-        m_code.push_back(m_al, 0x0F);
-        m_code.push_back(m_al, 0x85);
-        uint32_t imm32 = relative_symbol(label);
-        push_back_uint32(m_code, m_al, imm32);
-        EMIT("jne " + label);
-    }
-
-    // Jump if <
-    void asm_jl_label(const std::string &label) {
-        m_code.push_back(m_al, 0x0F);
-        m_code.push_back(m_al, 0x8C);
-        uint32_t imm32 = relative_symbol(label);
-        push_back_uint32(m_code, m_al, imm32);
-        EMIT("jl " + label);
-    }
-
-    // Jump if <=
-    void asm_jle_label(const std::string &label) {
-        m_code.push_back(m_al, 0x0F);
-        m_code.push_back(m_al, 0x8E);
-        uint32_t imm32 = relative_symbol(label);
-        push_back_uint32(m_code, m_al, imm32);
-        EMIT("jle " + label);
-    }
-
-    // Jump if >
-    void asm_jg_label(const std::string &label) {
-        m_code.push_back(m_al, 0x0F);
-        m_code.push_back(m_al, 0x8F);
-        uint32_t imm32 = relative_symbol(label);
-        push_back_uint32(m_code, m_al, imm32);
-        EMIT("jg " + label);
-    }
-
-    // Jump if >=
-    void asm_jge_label(const std::string &label) {
-        m_code.push_back(m_al, 0x0F);
-        m_code.push_back(m_al, 0x8D);
-        uint32_t imm32 = relative_symbol(label);
-        push_back_uint32(m_code, m_al, imm32);
-        EMIT("jge " + label);
-    }
-
-    void asm_inc_r64(X64Reg r64) {
-        X86Reg r32 = X86Reg(r64 & 7);
-        m_code.push_back(m_al, rex(1, 0, 0, r64 >> 3));
-        m_code.push_back(m_al, 0xFF);
-        modrm_sib_disp(m_code, m_al,
-            X86Reg::eax, &r32, nullptr, 1, 0, false);
-        EMIT("inc " + r2s(r64));
-    }
-
-    void asm_inc_r32(X86Reg r32) {
-        m_code.push_back(m_al, 0x40+r32);
-        EMIT("inc " + r2s(r32));
-    }
-
-    void asm_dec_r64(X64Reg r64) {
-        X86Reg r32 = X86Reg(r64 & 7);
-        m_code.push_back(m_al, rex(1, 0, 0, r64 >> 3));
-        m_code.push_back(m_al, 0xFF);
-        modrm_sib_disp(m_code, m_al,
-            X86Reg::ecx, &r32, nullptr, 1, 0, false);
-        EMIT("dec " + r2s(r64));
-    }
-
-    void asm_dec_r32(X86Reg r32) {
-        m_code.push_back(m_al, 0x48+r32);
-        EMIT("dec " + r2s(r32));
-    }
-
-    void asm_inc_m32(X86Reg *base, X86Reg *index, uint8_t scale, int32_t disp) {
-        m_code.push_back(m_al, 0xff);
-        modrm_sib_disp(m_code, m_al,
-                X86Reg::eax, base, index, scale, disp, true);
-        EMIT("inc " + m2s(base, index, scale, disp));
-    }
-
-    void asm_int_imm8(uint8_t imm8) {
-        m_code.push_back(m_al, 0xcd);
-        m_code.push_back(m_al, imm8);
-        EMIT("int " + i2s(imm8));
-    }
-
-    void asm_ret() {
-        m_code.push_back(m_al, 0xc3);
-        EMIT("ret");
-    }
-
-    void asm_mov_r32_imm32(X86Reg r32, uint32_t imm32) {
-        m_code.push_back(m_al, 0xb8 + r32);
-        push_back_uint32(m_code, m_al, imm32);
-        EMIT("mov " + r2s(r32) + ", " + i2s(imm32));
-    }
-
-    uint8_t rex(uint8_t W, uint8_t R, uint8_t X, uint8_t B) {
-        LCOMPILERS_ASSERT(W <= 1);
-        LCOMPILERS_ASSERT(R <= 1);
-        LCOMPILERS_ASSERT(X <= 1);
-        LCOMPILERS_ASSERT(B <= 1);
-        return (0b01000000 | (W << 3) | (R << 2) | (X << 1) | B);
-    }
-
-    void asm_mov_r64_imm64(X64Reg r64, uint64_t imm64) {
-        X86Reg r32 = X86Reg(r64 & 7);
-        m_code.push_back(m_al, rex(1, 0, 0, r64 >> 3));
-        m_code.push_back(m_al, 0xb8 + r32);
-        push_back_uint64(m_code, m_al, imm64);
-        EMIT("mov " + r2s(r64) + ", " + i2s(imm64));
-    }
-
-    void asm_mov_r64_label(X64Reg r64, const std::string &label) {
-        X86Reg r32 = X86Reg(r64 & 7);
-        m_code.push_back(m_al, rex(1, 0, 0, r64 >> 3));
-        m_code.push_back(m_al, 0xb8 + r32);
-        // TODO: reference_symbol().value should return 64-bit value
-        uint64_t imm64 = reference_symbol(label).value;
-        push_back_uint64(m_code, m_al, imm64);
-        EMIT("mov " + r2s(r64) + ", " + label);
-    }
-
-    void asm_mov_r32_label(X86Reg r32, const std::string &label) {
-        m_code.push_back(m_al, 0xb8 + r32);
-        uint32_t imm32 = reference_symbol(label).value;
-        push_back_uint32(m_code, m_al, imm32);
-        EMIT("mov " + r2s(r32) + ", " + label);
-    }
-
-    void asm_mov_r64_r64(X64Reg r64, X64Reg s64) {
-        X86Reg r32 = X86Reg(r64 & 7), s32 = X86Reg(s64 & 7);
-        m_code.push_back(m_al, rex(1, s64 >> 3, 0, r64 >> 3));
-        m_code.push_back(m_al, 0x89);
-        modrm_sib_disp(m_code, m_al,
-                s32, &r32, nullptr, 1, 0, false);
-        EMIT("mov " + r2s(r64) + ", " + r2s(s64));
-    }
-
-    void asm_mov_r32_r32(X86Reg r32, X86Reg s32) {
-        m_code.push_back(m_al, 0x89);
-        modrm_sib_disp(m_code, m_al,
-                s32, &r32, nullptr, 1, 0, false);
-        EMIT("mov " + r2s(r32) + ", " + r2s(s32));
-    }
-
-    void asm_mov_r64_m64(X64Reg r64, X64Reg *base, X64Reg *index,
-                uint8_t scale, int64_t disp) {
-        X86Reg r32 = X86Reg(r64 & 7);
-        m_code.push_back(m_al, rex(1, r64 >> 3, (index ? (*index >> 3) : 0), (base ? (*base >> 3) : 0)));
-        m_code.push_back(m_al, 0x8b);
-        X86Reg base32, index32;
-        if (base) base32 = X86Reg(*base & 7);
-        if (index) index32 = X86Reg(*index & 7);
-        modrm_sib_disp(m_code, m_al, r32, (base ? &base32 : nullptr),
-                (index ? &index32 : nullptr),  scale, (int32_t)disp, true);
-        EMIT("mov " + r2s(r64) + ", " + m2s(base, index, scale, disp));
-    }
-
-    void asm_mov_r32_m32(X86Reg r32, X86Reg *base, X86Reg *index,
-                uint8_t scale, int32_t disp) {
-        if (r32 == X86Reg::eax && !base && !index) {
-            m_code.push_back(m_al, 0xa1);
-            uint32_t disp32 = disp;
-            push_back_uint32(m_code, m_al, disp32);
-        } else {
-            m_code.push_back(m_al, 0x8b);
-            modrm_sib_disp(m_code, m_al,
-                    r32, base, index, scale, disp, true);
-        }
-        EMIT("mov " + r2s(r32) + ", " + m2s(base, index, scale, disp));
-    }
-
-    void asm_mov_m64_r64(X64Reg *base, X64Reg *index,
-                uint8_t scale, int64_t disp, X64Reg r64) {
-        X86Reg r32 = X86Reg(r64 & 7);
-        m_code.push_back(m_al, rex(1, r64 >> 3, (index ? (*index >> 3) : 0), (base ? (*base >> 3) : 0)));
-        m_code.push_back(m_al, 0x89);
-        X86Reg base32, index32;
-        if (base) base32 = X86Reg(*base & 7);
-        if (index) index32 = X86Reg(*index & 7);
-        modrm_sib_disp(m_code, m_al, r32, (base ? &base32 : nullptr),
-                (index ? &index32 : nullptr),  scale, (int32_t)disp, true);
-        EMIT("mov " + m2s(base, index, scale, disp) + ", " + r2s(r64));
-    }
-
-    void asm_mov_m32_r32(X86Reg *base, X86Reg *index,
-                uint8_t scale, int32_t disp, X86Reg r32) {
-        if (r32 == X86Reg::eax && !base && !index) {
-            m_code.push_back(m_al, 0xa3);
-            uint32_t disp32 = disp;
-            push_back_uint32(m_code, m_al, disp32);
-        } else {
-            m_code.push_back(m_al, 0x89);
-            modrm_sib_disp(m_code, m_al,
-                    r32, base, index, scale, disp, true);
-        }
-        EMIT("mov " + m2s(base, index, scale, disp) + ", " + r2s(r32));
-    }
-
-    void asm_test_r32_r32(X86Reg r32, X86Reg s32) {
-        m_code.push_back(m_al, 0x85);
-        modrm_sib_disp(m_code, m_al,
-                s32, &r32, nullptr, 1, 0, false);
-        EMIT("test " + r2s(r32) + ", " + r2s(s32));
-    }
-
-    void asm_sub_r32_imm8(X86Reg r32, uint8_t imm8) {
-        m_code.push_back(m_al, 0x83);
-        modrm_sib_disp(m_code, m_al,
-                X86Reg::ebp, &r32, nullptr, 1, 0, false);
-        m_code.push_back(m_al, imm8);
-        EMIT("sub " + r2s(r32) + ", " + i2s(imm8));
-    }
-
-    void asm_sub_r32_imm32(X86Reg r32, uint32_t imm32) {
-        m_code.push_back(m_al, 0x81);
-        modrm_sib_disp(m_code, m_al,
-                X86Reg::ebp, &r32, nullptr, 1, 0, false);
-        push_back_uint32(m_code, m_al, imm32);
-        EMIT("sub " + r2s(r32) + ", " + i2s(imm32));
-    }
-
-    void asm_sub_r64_imm32(X64Reg r64, uint32_t imm32) {
-        X86Reg r32 = X86Reg(r64 & 7);
-        m_code.push_back(m_al, rex(1, 0, 0, r64 >> 3));
-        m_code.push_back(m_al, 0x81);
-        modrm_sib_disp(m_code, m_al,
-                X86Reg::ebp, &r32, nullptr, 1, 0, false);
-        push_back_uint32(m_code, m_al, imm32);
-        EMIT("sub " + r2s(r64) + ", " + i2s(imm32));
-    }
-
-    void asm_sub_r64_r64(X64Reg r64, X64Reg s64) {
-        X86Reg r32 = X86Reg(r64 & 7), s32 = X86Reg(s64 & 7);
-        m_code.push_back(m_al, rex(1, s64 >> 3, 0, r64 >> 3));
-        m_code.push_back(m_al, 0x29);
-        modrm_sib_disp(m_code, m_al,
-                s32, &r32, nullptr, 1, 0, false);
-        EMIT("sub " + r2s(r64) + ", " + r2s(s64));
-    }
-
-    void asm_sub_r32_r32(X86Reg r32, X86Reg s32) {
-        m_code.push_back(m_al, 0x29);
-        modrm_sib_disp(m_code, m_al,
-                s32, &r32, nullptr, 1, 0, false);
-        EMIT("sub " + r2s(r32) + ", " + r2s(s32));
-    }
-
-    void asm_sar_r32_imm8(X86Reg r32, uint8_t imm8) {
-        if (r32 == X86Reg::eax) {
-            m_code.push_back(m_al, 0xc1);
-            m_code.push_back(m_al, 0xf8);
-            m_code.push_back(m_al, imm8);
-        } else {
-            throw AssemblerError("Not implemented.");
-        }
-        EMIT("sar " + r2s(r32) + ", " + i2s(imm8));
-    }
-
-    void asm_cmp_r64_imm8(X64Reg r64, uint8_t imm8) {
-        X86Reg r32 = X86Reg(r64 & 7);
-        m_code.push_back(m_al, rex(1, 0, 0, r64 >> 3));
-        m_code.push_back(m_al, 0x83);
-        modrm_sib_disp(m_code, m_al,
-                X86Reg::edi, &r32, nullptr, 1, 0, false);
-        m_code.push_back(m_al, imm8);
-        EMIT("cmp " + r2s(r64) + ", " + i2s(imm8));
-    }
-
-    void asm_cmp_r32_imm8(X86Reg r32, uint8_t imm8) {
-        m_code.push_back(m_al, 0x83);
-        modrm_sib_disp(m_code, m_al,
-                X86Reg::edi, &r32, nullptr, 1, 0, false);
-        m_code.push_back(m_al, imm8);
-        EMIT("cmp " + r2s(r32) + ", " + i2s(imm8));
-    }
-
-    void asm_cmp_r64_r64(X64Reg r64, X64Reg s64) {
-        X86Reg r32 = X86Reg(r64 & 7), s32 = X86Reg(s64 & 7);
-        m_code.push_back(m_al, rex(1, s64 >> 3, 0, r64 >> 3));
-        m_code.push_back(m_al, 0x39);
-        modrm_sib_disp(m_code, m_al,
-                s32, &r32, nullptr, 1, 0, false);
-        EMIT("cmp " + r2s(r64) + ", " + r2s(s64));
-    }
-
-    void asm_cmp_r32_r32(X86Reg r32, X86Reg s32) {
-        m_code.push_back(m_al, 0x39);
-        modrm_sib_disp(m_code, m_al,
-                s32, &r32, nullptr, 1, 0, false);
-        EMIT("cmp " + r2s(r32) + ", " + r2s(s32));
-    }
-
-    // CMPSD—Compare Scalar Double Precision Floating-Point Value
-    void asm_cmpsd_r64_r64(X64FReg r64, X64FReg s64, uint8_t imm8) {
-        X86Reg r32 = X86Reg(r64 & 7), s32 = X86Reg(s64 & 7);
-        m_code.push_back(m_al, 0xf2);
-        m_code.push_back(m_al, rex(1, r64 >> 3, 0, s64 >> 3));
-        m_code.push_back(m_al, 0x0f);
-        m_code.push_back(m_al, 0xc2);
-        modrm_sib_disp(m_code, m_al,
-                r32, &s32, nullptr, 1, 0, false);
-        m_code.push_back(m_al, imm8);
-        EMIT("cmpsd " + r2s(r64) + ", " + r2s(s64) + ", " + i2s(imm8));
-    }
-
-    void asm_jmp_imm8(uint8_t imm8) {
-        m_code.push_back(m_al, 0xeb);
-        m_code.push_back(m_al, imm8);
-        EMIT("jmp " + i2s(imm8));
-    }
-
-    void asm_jmp_imm32(uint32_t imm32) {
-        m_code.push_back(m_al, 0xe9);
-        push_back_uint32(m_code, m_al, imm32);
-        EMIT("jmp " + i2s(imm32));
-    }
-
-    void asm_jmp_label(const std::string &label) {
-        m_code.push_back(m_al, 0xe9);
-        uint32_t imm32 = relative_symbol(label);
-        push_back_uint32(m_code, m_al, imm32);
-        EMIT("jmp " + label);
-    }
-
-    void asm_call_imm32(uint32_t imm32) {
-        m_code.push_back(m_al, 0xe8);
-        push_back_uint32(m_code, m_al, imm32);
-        EMIT("call " + i2s(imm32));
-    }
-
-    void asm_call_label(const std::string &label) {
-        m_code.push_back(m_al, 0xe8);
-        uint32_t imm32 = relative_symbol(label);
-        push_back_uint32(m_code, m_al, imm32);
-        EMIT("call " + label);
-    }
-
-    void asm_shl_r32_imm8(X86Reg r32, uint8_t imm8) {
-        if (r32 == X86Reg::eax) {
-            m_code.push_back(m_al, 0xc1);
-            m_code.push_back(m_al, 0xe0);
-            m_code.push_back(m_al, imm8);
-        } else {
-            throw AssemblerError("Not implemented.");
-        }
-        EMIT("shl " + r2s(r32) + ", " + i2s(imm8));
-    }
-
-    void asm_db_imm8(uint8_t imm8) {
-        m_code.push_back(m_al, imm8);
-        EMIT("db " + i2s(imm8));
-    }
-
-    void asm_db_imm8(const void *data, size_t size) {
-        const uint8_t *data_char=(const uint8_t*)data;
-        for (size_t i=0; i < size; i++) {
-            asm_db_imm8(data_char[i]);
-        }
-    }
-
-    void asm_dw_imm16(uint16_t imm16) {
-        push_back_uint16(m_code, m_al, imm16);
-        EMIT("dw " + i2s(imm16));
-    }
-
-    void asm_dd_imm32(uint32_t imm32) {
-        push_back_uint32(m_code, m_al, imm32);
-        EMIT("dd " + i2s(imm32));
-    }
-
-    void asm_dq_imm64(uint64_t imm64) {
-        push_back_uint64(m_code, m_al, imm64);
-        EMIT("dq " + i2s(imm64));
-    }
-
-    void asm_dw_label(const std::string &label) {
-        uint32_t imm16 = reference_symbol(label, 1).value;
-        push_back_uint16(m_code, m_al, imm16);
-        EMIT("dw " + label);
-    }
-
-    void asm_dd_label(const std::string &label) {
-        uint32_t imm32 = reference_symbol(label).value;
-        push_back_uint32(m_code, m_al, imm32);
-        EMIT("dd " + label);
-    }
-
-    void asm_dq_label(const std::string &label) {
-        uint64_t imm64 = reference_symbol(label, 3).value;
-        push_back_uint64(m_code, m_al, imm64);
-        EMIT("dq " + label);
-    }
-
-    void asm_add_m32_r32(X86Reg *base, X86Reg *index,
-                uint8_t scale, int32_t disp, X86Reg r32) {
-        m_code.push_back(m_al, 0x01);
-        modrm_sib_disp(m_code, m_al,
-                r32, base, index, scale, disp, true);
-        EMIT("add " + m2s(base, index, scale, disp) + ", " + r2s(r32));
-    }
-
-    void asm_add_r64_r64(X64Reg s64, X64Reg r64) {
-        X86Reg r32 = X86Reg(r64 & 7), s32 = X86Reg(s64 & 7);
-        m_code.push_back(m_al, rex(1, r64 >> 3, 0, s64 >> 3));
-        m_code.push_back(m_al, 0x01);
-        modrm_sib_disp(m_code, m_al,
-                r32, &s32, nullptr, 1, 0, false);
-        EMIT("add " + r2s(s64) + ", " + r2s(r64));
-    }
-
-    void asm_add_r32_r32(X86Reg s32, X86Reg r32) {
-        m_code.push_back(m_al, 0x01);
-        modrm_sib_disp(m_code, m_al,
-                r32, &s32, nullptr, 1, 0, false);
-        EMIT("add " + r2s(s32) + ", " + r2s(r32));
-    }
-
-    void asm_add_r32_imm8(X86Reg r32, uint8_t imm8) {
-        m_code.push_back(m_al, 0x83);
-        modrm_sib_disp(m_code, m_al,
-                X86Reg::eax, &r32, nullptr, 1, 0, false);
-        m_code.push_back(m_al, imm8);
-        EMIT("add " + r2s(r32) + ", " + i2s(imm8));
-    }
-
-    // Only 'ADD r/m64, imm32' is available in assembly
-    void asm_add_r64_imm32(X64Reg r64, uint32_t imm32) {
-        X86Reg r32 = X86Reg(r64 & 7);
-        m_code.push_back(m_al, rex(1, 0, 0, r64 >> 3));
-        m_code.push_back(m_al, 0x81);
-        modrm_sib_disp(m_code, m_al,
-                X86Reg::eax, &r32, nullptr, 1, 0, false);
-        push_back_uint32(m_code, m_al, imm32);
-        EMIT("add " + r2s(r64) + ", " + i2s(imm32));
-    }
-
-    void asm_add_r32_imm32(X86Reg r32, uint32_t imm32) {
-        m_code.push_back(m_al, 0x81);
-        modrm_sib_disp(m_code, m_al,
-                X86Reg::eax, &r32, nullptr, 1, 0, false);
-        push_back_uint32(m_code, m_al, imm32);
-        EMIT("add " + r2s(r32) + ", " + i2s(imm32));
-    }
-
-    void asm_mul_r64(X64Reg r64) {
-        X86Reg r32 = X86Reg(r64 & 7);
-        m_code.push_back(m_al, rex(1, 0, 0, r64 >> 3));
-        m_code.push_back(m_al, 0xF7);
-        modrm_sib_disp(m_code, m_al,
-                X86Reg::esp, &r32, nullptr, 1, 0, false);
-        EMIT("mul " + r2s(r64));
-    }
-
-    void asm_mul_r32(X86Reg r32) {
-        m_code.push_back(m_al, 0xF7);
-        modrm_sib_disp(m_code, m_al,
-                X86Reg::esp, &r32, nullptr, 1, 0, false);
-        EMIT("mul " + r2s(r32));
-    }
-
-    void asm_div_r64(X64Reg r64) {
-        X86Reg r32 = X86Reg(r64 & 7);
-        m_code.push_back(m_al, rex(1, 0, 0, r64 >> 3));
-        m_code.push_back(m_al, 0xF7);
-        modrm_sib_disp(m_code, m_al,
-                X86Reg::esi, &r32, nullptr, 1, 0, false);
-        EMIT("div " + r2s(r64));
-    }
-
-    void asm_div_r32(X86Reg r32) {
-        m_code.push_back(m_al, 0xF7);
-        modrm_sib_disp(m_code, m_al,
-                X86Reg::esi, &r32, nullptr, 1, 0, false);
-        EMIT("div " + r2s(r32));
-    }
-
-    void asm_neg_r64(X64Reg r64) {
-        X86Reg r32 = X86Reg(r64 & 7);
-        m_code.push_back(m_al, rex(1, 0, 0, r64 >> 3));
-        m_code.push_back(m_al, 0xF7);
-        modrm_sib_disp(m_code, m_al,
-                X86Reg::ebx, &r32, nullptr, 1, 0, false);
-        EMIT("neg " + r2s(r64));
-    }
-
-    void asm_neg_r32(X86Reg r32) {
-        m_code.push_back(m_al, 0xF7);
-        modrm_sib_disp(m_code, m_al,
-                X86Reg::ebx, &r32, nullptr, 1, 0, false);
-        EMIT("neg " + r2s(r32));
-    }
-
-    void asm_lea_r32_m32(X86Reg r32, X86Reg *base, X86Reg *index,
-                uint8_t scale, int32_t disp) {
-        m_code.push_back(m_al, 0x8d);
-        modrm_sib_disp(m_code, m_al,
-                r32, base, index, scale, disp, true);
-        EMIT("lea " + r2s(r32) + ", " + m2s(base, index, scale, disp));
-    }
-
-    void asm_and_r64_imm8(X64Reg r64, uint8_t imm8) {
-        X86Reg r32 = X86Reg(r64 & 7);
-        m_code.push_back(m_al, rex(1, 0, 0, r64 >> 3));
-        m_code.push_back(m_al, 0x83);
-        modrm_sib_disp(m_code, m_al, X86Reg::esp, &r32, nullptr, 1, 0, false);
-        m_code.push_back(m_al, imm8);
-        EMIT("and " + r2s(r32) + ", " + i2s(imm8));
-    }
-
-    void asm_and_r32_imm32(X86Reg r32, uint32_t imm32) {
-        if (r32 == X86Reg::eax) {
-            m_code.push_back(m_al, 0x25);
-            push_back_uint32(m_code, m_al, imm32);
-        } else {
-            throw AssemblerError("Not implemented.");
-        }
-        EMIT("and " + r2s(r32) + ", " + i2s(imm32));
-    }
-
-    void asm_and_r64_r64(X64Reg r64, X64Reg s64) {
-        X86Reg r32 = X86Reg(r64 & 7), s32 = X86Reg(s64 & 7);
-        m_code.push_back(m_al, rex(1, r64 >> 3, 0, s64 >> 3));
-        m_code.push_back(m_al, 0x23);
-        modrm_sib_disp(m_code, m_al, r32, &s32, nullptr, 1, 0, false);
-        EMIT("and " + r2s(r64) + ", " + r2s(s64));
-    }
-
-    void asm_and_r32_r32(X86Reg r32, X86Reg s32) {
-        m_code.push_back(m_al, 0x23);
-        modrm_sib_disp(m_code, m_al, r32, &s32, nullptr, 1, 0, false);
-        EMIT("and " + r2s(r32) + ", " + r2s(r32));
-    }
-
-    void asm_or_r64_r64(X64Reg r64, X64Reg s64) {
-        X86Reg r32 = X86Reg(r64 & 7), s32 = X86Reg(s64 & 7);
-        m_code.push_back(m_al, rex(1, r64 >> 3, 0, s64 >> 3));
-        m_code.push_back(m_al, 0x0B);
-        modrm_sib_disp(m_code, m_al, r32, &s32, nullptr, 1, 0, false);
-        EMIT("or " + r2s(r64) + ", " + r2s(s64));
-    }
-
-    void asm_or_r32_r32(X86Reg r32, X86Reg s32) {
-        m_code.push_back(m_al, 0x0B);
-        modrm_sib_disp(m_code, m_al, r32, &s32, nullptr, 1, 0, false);
-        EMIT("or " + r2s(r32) + ", " + r2s(r32));
-    }
-
-    void asm_xor_r64_r64(X64Reg r64, X64Reg s64) {
-        X86Reg r32 = X86Reg(r64 & 7), s32 = X86Reg(s64 & 7);
-        m_code.push_back(m_al, rex(1, r64 >> 3, 0, s64 >> 3));
-        m_code.push_back(m_al, 0x33);
-        modrm_sib_disp(m_code, m_al, r32, &s32, nullptr, 1, 0, false);
-        EMIT("xor " + r2s(r64) + ", " + r2s(s64));
-    }
-
-    void asm_xor_r32_r32(X86Reg r32, X86Reg s32) {
-        m_code.push_back(m_al, 0x31);
-        modrm_sib_disp(m_code, m_al,
-                s32, &r32, nullptr, 1, 0, false);
-        EMIT("xor " + r2s(r32) + ", " + r2s(s32));
-    }
-
-    void asm_syscall() {
-        m_code.push_back(m_al, 0x0F);
-        m_code.push_back(m_al, 0x05);
-        EMIT("syscall");
-    }
-
-    // SHL - Shift Logical/Unsigned Left
-    void asm_shl_r64_cl(X64Reg r64) {
-        X86Reg r32 = X86Reg(r64 & 7);
-        m_code.push_back(m_al, rex(1, 0, 0, r64 >> 3));
-        m_code.push_back(m_al, 0xD3);
-        modrm_sib_disp(m_code, m_al, X86Reg::esp, &r32, nullptr, 1, 0, false);
-        EMIT("shl " + r2s(r64) + ", cl");
-    }
-
-    // SHL - Shift Logical/Unsigned Left
-    void asm_shl_r32_cl(X86Reg r32) {
-        m_code.push_back(m_al, 0xD3);
-        modrm_sib_disp(m_code, m_al, X86Reg::esp, &r32, nullptr, 1, 0, false);
-        EMIT("shl " + r2s(r32) + ", cl");
-    }
-
-    // SAR - Shift Arithmetic/Signed Right
-    void asm_sar_r64_cl(X64Reg r64) {
-        X86Reg r32 = X86Reg(r64 & 7);
-        m_code.push_back(m_al, rex(1, 0, 0, r64 >> 3));
-        m_code.push_back(m_al, 0xD3);
-        modrm_sib_disp(m_code, m_al, X86Reg::edi, &r32, nullptr, 1, 0, false);
-        EMIT("sar " + r2s(r64) + ", cl");
-    }
-
-    // SAR - Shift Arithmetic/Signed Right
-    void asm_sar_r32_cl(X86Reg r32) {
-        m_code.push_back(m_al, 0xD3);
-        modrm_sib_disp(m_code, m_al, X86Reg::edi, &r32, nullptr, 1, 0, false);
-        EMIT("sar " + r2s(r32) + ", cl");
-    }
-
-    void asm_fld_m32(X86Reg *base, X86Reg *index,
-                uint8_t scale, int32_t disp) {
-        m_code.push_back(m_al, 0xd9);
-        modrm_sib_disp(m_code, m_al,
-            X86Reg::eax, base, index, scale, disp, true);
-        EMIT("fld dword " + m2s(base, index, scale, disp));
-    }
-
-    void asm_fst_m32(X86Reg *base, X86Reg *index,
-                uint8_t scale, int32_t disp) {
-        m_code.push_back(m_al, 0xd9);
-        modrm_sib_disp(m_code, m_al,
-            X86Reg::edx, base, index, scale, disp, true);
-        EMIT("fst dword " + m2s(base, index, scale, disp));
-    }
-
-    void asm_fstp_m32(X86Reg *base, X86Reg *index,
-                uint8_t scale, int32_t disp) {
-        m_code.push_back(m_al, 0xd9);
-        modrm_sib_disp(m_code, m_al,
-            X86Reg::ebx, base, index, scale, disp, true);
-        EMIT("fstp dword " + m2s(base, index, scale, disp));
-    }
-
-    void asm_fist_m32(X86Reg *base, X86Reg *index,
-                uint8_t scale, int32_t disp) {
-        m_code.push_back(m_al, 0xdb);
-        modrm_sib_disp(m_code, m_al,
-            X86Reg::edx, base, index, scale, disp, true);
-        EMIT("fist dword " + m2s(base, index, scale, disp));
-    }
-
-    void asm_fistp_m32(X86Reg *base, X86Reg *index,
-                uint8_t scale, int32_t disp) {
-        m_code.push_back(m_al, 0xdb);
-        modrm_sib_disp(m_code, m_al,
-            X86Reg::ebx, base, index, scale, disp, true);
-        EMIT("fistp dword " + m2s(base, index, scale, disp));
-    }
-
-    void asm_frndint() {
-        m_code.push_back(m_al, 0xd9);
-        m_code.push_back(m_al, 0xfc);
-        EMIT("frndint");
-    }
-
-    void asm_fsub(X86FReg st) {
-        m_code.push_back(m_al, 0xd8);
-        m_code.push_back(m_al, 0xe0 + st);
-        EMIT("fsub " + r2s(X86FReg::st0) + ", " + r2s(st));
-    }
-
-    void asm_fsubp() {
-        m_code.push_back(m_al, 0xde);
-        m_code.push_back(m_al, 0xe9);
-        EMIT("fsubp");
-    }
-
-    void asm_fimul_m32int(X86Reg *base, X86Reg *index,
-                uint8_t scale, int32_t disp) {
-        m_code.push_back(m_al, 0xda);
-        modrm_sib_disp(m_code, m_al,
-            X86Reg::ecx, base, index, scale, disp, true);
-        EMIT("fimul dword " + m2s(base, index, scale, disp));
-    }
-
-    // Move or Merge Scalar Double Precision Floating-Point Value
-    void asm_movsd_r64_m64(X64FReg r64, X64Reg *base, X64Reg *index,
-                uint8_t scale, int64_t disp) {
-        X86Reg r32 = X86Reg(r64 & 7);
-        m_code.push_back(m_al, 0xf2);
-        m_code.push_back(m_al, rex(1, r64 >> 3, (index ? (*index >> 3) : 0), (base ? (*base >> 3) : 0)));
-        m_code.push_back(m_al, 0x0f);
-        m_code.push_back(m_al, 0x10);
-        X86Reg base32, index32;
-        if (base) base32 = X86Reg(*base & 7);
-        if (index) index32 = X86Reg(*index & 7);
-        modrm_sib_disp(m_code, m_al, r32, (base ? &base32 : nullptr),
-                (index ? &index32 : nullptr),  scale, (int32_t)disp, true);
-        EMIT("movsd " + r2s(r64) + ", " + m2s(base, index, scale, disp));
-    }
-
-    // Move or Merge Scalar Double Precision Floating-Point Value
-    void asm_movsd_m64_r64(X64Reg *base, X64Reg *index,
-                uint8_t scale, int64_t disp, X64FReg r64) {
-        X86Reg r32 = X86Reg(r64 & 7);
-        m_code.push_back(m_al, 0xf2);
-        m_code.push_back(m_al, rex(1, r64 >> 3, (index ? (*index >> 3) : 0), (base ? (*base >> 3) : 0)));
-        m_code.push_back(m_al, 0x0f);
-        m_code.push_back(m_al, 0x11);
-        X86Reg base32, index32;
-        if (base) base32 = X86Reg(*base & 7);
-        if (index) index32 = X86Reg(*index & 7);
-        modrm_sib_disp(m_code, m_al, r32, (base ? &base32 : nullptr),
-                (index ? &index32 : nullptr),  scale, (int32_t)disp, true);
-        EMIT("movsd " + m2s(base, index, scale, disp) + ", " + r2s(r64));
-    }
-
-    // ADDSD—Add Scalar Double Precision Floating-Point Values
-    void asm_addsd_r64_r64(X64FReg r64, X64FReg s64) {
-        X86Reg r32 = X86Reg(r64 & 7), s32 = X86Reg(s64 & 7);
-        m_code.push_back(m_al, 0xf2);
-        m_code.push_back(m_al, rex(1, r64 >> 3, 0, s64 >> 3));
-        m_code.push_back(m_al, 0x0f);
-        m_code.push_back(m_al, 0x58);
-        modrm_sib_disp(m_code, m_al,
-                r32, &s32, nullptr, 1, 0, false);
-        EMIT("addsd " + r2s(r64) + ", " + r2s(s64));
-    }
-
-    // Subtract Scalar Double Precision Floating-Point Value
-    void asm_subsd_r64_r64(X64FReg r64, X64FReg s64) {
-        X86Reg r32 = X86Reg(r64 & 7), s32 = X86Reg(s64 & 7);
-        m_code.push_back(m_al, 0xf2);
-        m_code.push_back(m_al, rex(1, r64 >> 3, 0, s64 >> 3));
-        m_code.push_back(m_al, 0x0f);
-        m_code.push_back(m_al, 0x5c);
-        modrm_sib_disp(m_code, m_al,
-                r32, &s32, nullptr, 1, 0, false);
-        EMIT("subsd " + r2s(r64) + ", " + r2s(s64));
-    }
-
-    // Multiply Scalar Double Precision Floating-Point Value
-    void asm_mulsd_r64_r64(X64FReg r64, X64FReg s64) {
-        X86Reg r32 = X86Reg(r64 & 7), s32 = X86Reg(s64 & 7);
-        m_code.push_back(m_al, 0xf2);
-        m_code.push_back(m_al, rex(1, r64 >> 3, 0, s64 >> 3));
-        m_code.push_back(m_al, 0x0f);
-        m_code.push_back(m_al, 0x59);
-        modrm_sib_disp(m_code, m_al,
-                r32, &s32, nullptr, 1, 0, false);
-        EMIT("mulsd " + r2s(r64) + ", " + r2s(s64));
-    }
-
-    // Divide Scalar Double Precision Floating-Point Value
-    void asm_divsd_r64_r64(X64FReg r64, X64FReg s64) {
-        X86Reg r32 = X86Reg(r64 & 7), s32 = X86Reg(s64 & 7);
-        m_code.push_back(m_al, 0xf2);
-        m_code.push_back(m_al, rex(1, r64 >> 3, 0, s64 >> 3));
-        m_code.push_back(m_al, 0x0f);
-        m_code.push_back(m_al, 0x5e);
-        modrm_sib_disp(m_code, m_al,
-                r32, &s32, nullptr, 1, 0, false);
-        EMIT("divsd " + r2s(r64) + ", " + r2s(s64));
-    }
-
-    // Convert Doubleword Integer to Scalar Double Precision Floating-Point Value
-    void asm_cvtsi2sd_r64_r64(X64FReg r64, X64Reg s64) {
-        X86Reg r32 = X86Reg(r64 & 7), s32 = X86Reg(s64 & 7);
-        m_code.push_back(m_al, 0xf2);
-        m_code.push_back(m_al, rex(1, r64 >> 3, 0, s64 >> 3));
-        m_code.push_back(m_al, 0x0f);
-        m_code.push_back(m_al, 0x2a);
-        modrm_sib_disp(m_code, m_al,
-                r32, &s32, nullptr, 1, 0, false);
-        EMIT("cvtsi2sd " + r2s(r64) + ", " + r2s(s64));
-    }
-
-    // Convert With Truncation Scalar Double Precision Floating-Point Value to Signed Integer
-    void asm_cvttsd2si_r64_r64(X64Reg r64, X64FReg s64) {
-        X86Reg r32 = X86Reg(r64 & 7), s32 = X86Reg(s64 & 7);
-        m_code.push_back(m_al, 0xf2);
-        m_code.push_back(m_al, rex(1, r64 >> 3, 0, s64 >> 3));
-        m_code.push_back(m_al, 0x0f);
-        m_code.push_back(m_al, 0x2c);
-        modrm_sib_disp(m_code, m_al,
-                r32, &s32, nullptr, 1, 0, false);
-        EMIT("cvttsd2si " + r2s(r64) + ", " + r2s(s64));
-    }
-
-    // PMOVMSKB—Move Byte Mask
-    // Creates a mask made up of the most significant bit of each byte
-    // of the source operand (second operand) and stores the result in the low byte
-    // or word of the destination operand (first operand)
-    void asm_pmovmskb_r32_r64(X86Reg r32, X64FReg s64) {
-        X86Reg s32 = X86Reg(s64 & 7);
-        m_code.push_back(m_al, rex(1, 0, 0, s64 >> 3));
-        m_code.push_back(m_al, 0x66);
-        m_code.push_back(m_al, 0x0f);
-        m_code.push_back(m_al, 0xd7);
-        modrm_sib_disp(m_code, m_al, r32, &s32, nullptr, 1, 0, false);
-        EMIT("pmovmskb " + r2s(r32) + ", " + r2s(s64));
-    }
-
-    // UCOMISD—Unordered Compare Scalar Double Precision Floating-Point Values and Set EFLAGS
-    void asm_ucomisd_r64_r64(X64FReg r64, X64FReg s64) {
-        X86Reg r32 = X86Reg(r64 & 7), s32 = X86Reg(s64 & 7);
-        m_code.push_back(m_al, rex(1, r64 >> 3, 0, s64 >> 3));
-        m_code.push_back(m_al, 0x66);
-        m_code.push_back(m_al, 0x0f);
-        m_code.push_back(m_al, 0x2e);
-        modrm_sib_disp(m_code, m_al, r32, &s32, nullptr, 1, 0, false);
-        EMIT("ucomisd " + r2s(r64) + ", " + r2s(s64));
-    }
-
-    // COMISD—Compare Scalar Ordered Double Precision Floating-Point Values and Set EFLAGS
-    void asm_comisd_r64_r64(X64FReg r64, X64FReg s64) {
-        X86Reg r32 = X86Reg(r64 & 7), s32 = X86Reg(s64 & 7);
-        m_code.push_back(m_al, rex(1, r64 >> 3, 0, s64 >> 3));
-        m_code.push_back(m_al, 0x66);
-        m_code.push_back(m_al, 0x0f);
-        m_code.push_back(m_al, 0x2f);
-        modrm_sib_disp(m_code, m_al, r32, &s32, nullptr, 1, 0, false);
-        EMIT("comisd " + r2s(r64) + ", " + r2s(s64));
-    }
-};
-
-
-// Generate an ELF 32 bit header and footer
-// With these two functions, one only has to generate a `_start` assembly
-// function to have a working binary on Linux.
-void emit_elf32_header(X86Assembler &a, uint32_t p_flags=5);
-void emit_elf32_footer(X86Assembler &a);
-
-void emit_exit(X86Assembler &a, const std::string &name,
-    uint32_t exit_code);
-
-// this is similar to emit_exit() but takes the argument (i.e. exit code)
-// from top of stack. To call this exit2, one needs to jump to it
-// instead of call it. (Because calling pushes the instruction address and
-// base pointer value (ebp) of previous function and thus makes the
-// exit code parameter less reachable)
-void emit_exit2(X86Assembler &a, const std::string &name);
-
-void emit_data_string(X86Assembler &a, const std::string &label,
-    const std::string &s);
-void emit_float_const(X86Assembler &a, const std::string &label,
-    const float z);
-void emit_double_const(X86Assembler &a, const std::string &label,
-    const double z);
-void emit_print(X86Assembler &a, const std::string &msg_label,
-    uint32_t size);
-void emit_print_int(X86Assembler &a, const std::string &name);
-void emit_print_float(X86Assembler &a, const std::string &name);
-
-// Generate an ELF 64 bit header and footer
-// With these two functions, one only has to generate a `_start` assembly
-// function to have a working binary on Linux.
-void emit_elf64_header(X86Assembler &a, uint32_t p_flags=5);
-void emit_elf64_footer(X86Assembler &a);
-
-void emit_exit_64(X86Assembler &a, std::string label, int exit_code);
-
-void emit_print_64(X86Assembler &a, const std::string &msg_label, uint64_t size);
-void emit_print_int_64(X86Assembler &a, const std::string &name);
-void emit_print_double(X86Assembler &a, const std::string &name);
-
-} // namespace LFortran
-
-#endif // LFORTRAN_CODEGEN_X86_ASSEMBER_H
diff --git a/src/libasr/colors.h b/src/libasr/colors.h
deleted file mode 100644
index b5bf260086..0000000000
--- a/src/libasr/colors.h
+++ /dev/null
@@ -1,75 +0,0 @@
-#ifndef LFORTRAN_COLORS_H
-#define LFORTRAN_COLORS_H
-
-namespace LCompilers {
-
-enum class style {
-    reset     = 0,
-    bold      = 1,
-    dim       = 2,
-    italic    = 3,
-    underline = 4,
-    blink     = 5,
-    rblink    = 6,
-    reversed  = 7,
-    conceal   = 8,
-    crossed   = 9
-};
-
-enum class fg {
-    black   = 30,
-    red     = 31,
-    green   = 32,
-    yellow  = 33,
-    blue    = 34,
-    magenta = 35,
-    cyan    = 36,
-    gray    = 37,
-    reset   = 39
-};
-
-enum class bg {
-    black   = 40,
-    red     = 41,
-    green   = 42,
-    yellow  = 43,
-    blue    = 44,
-    magenta = 45,
-    cyan    = 46,
-    gray    = 47,
-    reset   = 49
-};
-
-enum class fgB {
-    black   = 90,
-    red     = 91,
-    green   = 92,
-    yellow  = 93,
-    blue    = 94,
-    magenta = 95,
-    cyan    = 96,
-    gray    = 97
-};
-
-enum class bgB {
-    black   = 100,
-    red     = 101,
-    green   = 102,
-    yellow  = 103,
-    blue    = 104,
-    magenta = 105,
-    cyan    = 106,
-    gray    = 107
-};
-
-
-template <typename T>
-std::string color(T const value)
-{
-    return "\033[" + std::to_string(static_cast<int>(value)) + "m";
-}
-
-
-} // namespace LCompilers
-
-#endif // LFORTRAN_COLORS_H
diff --git a/src/libasr/compiler_tester/tester.py b/src/libasr/compiler_tester/tester.py
deleted file mode 100644
index 9b4f404abb..0000000000
--- a/src/libasr/compiler_tester/tester.py
+++ /dev/null
@@ -1,441 +0,0 @@
-import argparse
-from concurrent.futures import ThreadPoolExecutor
-from functools import partial
-import hashlib
-import itertools
-import json
-import logging
-import os
-import re
-import pathlib
-import pprint
-import shutil
-import subprocess
-import sys
-import toml
-from typing import Any, Mapping, List, Union
-
-level = logging.DEBUG
-log = logging.getLogger(__name__)
-handler = logging.StreamHandler(sys.stdout)
-handler.setFormatter(logging.Formatter('%(message)s'))
-handler.setLevel(level)
-log.addHandler(handler)
-log.setLevel(level)
-
-
-TESTER_DIR = os.path.abspath(os.path.join(os.path.dirname(__file__)))
-LIBASR_DIR = os.path.dirname(TESTER_DIR)
-SRC_DIR = os.path.dirname(LIBASR_DIR)
-ROOT_DIR = os.path.dirname(SRC_DIR)
-
-no_color = False
-
-class RunException(Exception):
-    pass
-
-
-class ExecuteException(Exception):
-    pass
-
-
-class style:
-    reset = 0
-    bold = 1
-    dim = 2
-    italic = 3
-    underline = 4
-    blink = 5
-    rblink = 6
-    reversed = 7
-    conceal = 8
-    crossed = 9
-
-
-class fg:
-    black = 30
-    red = 31
-    green = 32
-    yellow = 33
-    blue = 34
-    magenta = 35
-    cyan = 36
-    gray = 37
-    reset = 39
-
-
-def color(value):
-    return "\033[" + str(int(value)) + "m"
-
-
-def check():
-    return f"{(color(fg.green)+color(style.bold))}✓ {color(fg.reset)+color(style.reset)}"
-
-
-def bname(base, cmd, filename):
-    hstring = cmd
-    if filename:
-        hstring += filename
-    h = hashlib.sha224(hstring.encode()).hexdigest()[:7]
-    if filename:
-        bname = os.path.basename(filename)
-        bname, _ = os.path.splitext(bname)
-        return f"{base}-{bname}-{h}"
-    else:
-        return f"{base}-{h}"
-
-
-def _compare_eq_dict(
-    left: Mapping[Any, Any], right: Mapping[Any, Any], verbose: int = 0
-) -> List[str]:
-    explanation: List[str] = []
-    set_left = set(left)
-    set_right = set(right)
-    common = set_left.intersection(set_right)
-    same = {k: left[k] for k in common if left[k] == right[k]}
-    if same and verbose < 2:
-        explanation += ["Omitting %s identical items" % len(same)]
-    elif same:
-        explanation += ["Common items:"]
-        explanation += pprint.pformat(same).splitlines()
-    diff = {k for k in common if left[k] != right[k]}
-    if diff:
-        explanation += ["Differing items:"]
-        for k in diff:
-            explanation += [repr({k: left[k]}) + " != " + repr({k: right[k]})]
-    extra_left = set_left - set_right
-    len_extra_left = len(extra_left)
-    if len_extra_left:
-        explanation.append(
-            "Left contains %d more item%s:"
-            % (len_extra_left, "" if len_extra_left == 1 else "s")
-        )
-        explanation.extend(
-            pprint.pformat({k: left[k] for k in extra_left}).splitlines()
-        )
-    extra_right = set_right - set_left
-    len_extra_right = len(extra_right)
-    if len_extra_right:
-        explanation.append(
-            "Right contains %d more item%s:"
-            % (len_extra_right, "" if len_extra_right == 1 else "s")
-        )
-        explanation.extend(
-            pprint.pformat({k: right[k] for k in extra_right}).splitlines()
-        )
-    return explanation
-
-
-def fixdir(s: bytes) -> bytes:
-    local_dir = os.getcwd()
-    return s.replace(local_dir.encode(), "$DIR".encode())
-
-
-def unl_loop_del(b):
-    return b.replace(bytes('\r\n', encoding='utf-8'),
-                     bytes('\n', encoding='utf-8'))
-
-
-def run(basename: str, cmd: Union[pathlib.Path, str],
-        out_dir: Union[pathlib.Path, str], infile=None, extra_args=None):
-    """
-    Runs the `cmd` and collects stdout, stderr, exit code.
-
-    The stdout, stderr and outfile are saved in the `out_dir` directory and
-    all metadata is saved in a json file, whose path is returned from the
-    function.
-
-    The idea is to use this function to test the compiler by running it with
-    an option to save the AST, ASR or LLVM IR or binary, and then ensure that
-    the output does not change.
-
-    Arguments:
-
-    basename ... name of the run
-    cmd ........ command to run, can use {infile} and {outfile}
-    out_dir .... output directory to store output
-    infile ..... optional input file. If present, it will check that it exists
-                 and hash it.
-    extra_args . extra arguments, not part of the hash
-
-    Examples:
-
-    >>> run("cat2", "cat tests/cat.txt > {outfile}", "output", "tests/cat.txt")
-    >>> run("ls4", "ls --wrong-option", "output")
-
-    """
-    assert basename is not None and basename != ""
-    pathlib.Path(out_dir).mkdir(parents=True, exist_ok=True)
-    if infile and not os.path.exists(infile):
-        raise RunException("The input file does not exist")
-    outfile = os.path.join(out_dir, basename + "." + "out")
-
-    infile = infile.replace("\\\\", "\\").replace("\\", "/")
-
-    cmd2 = cmd.format(infile=infile, outfile=outfile)
-    if extra_args:
-        cmd2 += " " + extra_args
-    r = subprocess.run(cmd2, shell=True,
-                       stdout=subprocess.PIPE,
-                       stderr=subprocess.PIPE)
-    if not os.path.exists(outfile):
-        outfile = None
-    if len(r.stdout):
-        stdout_file = os.path.join(out_dir, basename + "." + "stdout")
-        open(stdout_file, "wb").write(fixdir(r.stdout))
-    else:
-        stdout_file = None
-    if len(r.stderr):
-        stderr_file = os.path.join(out_dir, basename + "." + "stderr")
-        open(stderr_file, "wb").write(fixdir(r.stderr))
-    else:
-        stderr_file = None
-
-    if infile:
-        temp = unl_loop_del(open(infile, "rb").read())
-        infile_hash = hashlib.sha224(temp).hexdigest()
-    else:
-        infile_hash = None
-    if outfile:
-        temp = unl_loop_del(open(outfile, "rb").read())
-        outfile_hash = hashlib.sha224(temp).hexdigest()
-        outfile = os.path.basename(outfile)
-    else:
-        outfile_hash = None
-    if stdout_file:
-        temp = unl_loop_del(open(stdout_file, "rb").read())
-        stdout_hash = hashlib.sha224(temp).hexdigest()
-        stdout_file = os.path.basename(stdout_file)
-    else:
-        stdout_hash = None
-    if stderr_file:
-        temp = unl_loop_del(open(stderr_file, "rb").read())
-        stderr_hash = hashlib.sha224(temp).hexdigest()
-        stderr_file = os.path.basename(stderr_file)
-    else:
-        stderr_hash = None
-    data = {
-        "basename": basename,
-        "cmd": cmd,
-        "infile": infile,
-        "infile_hash": infile_hash,
-        "outfile": outfile,
-        "outfile_hash": outfile_hash,
-        "stdout": stdout_file,
-        "stdout_hash": stdout_hash,
-        "stderr": stderr_file,
-        "stderr_hash": stderr_hash,
-        "returncode": r.returncode,
-    }
-    json_file = os.path.join(out_dir, basename + "." + "json")
-    json.dump(data, open(json_file, "w"), indent=4)
-    return json_file
-
-
-def get_error_diff(reference_file, output_file, full_err_str) -> str:
-    diff_list = subprocess.Popen(
-        f"diff {reference_file} {output_file}",
-        stdout=subprocess.PIPE,
-        shell=True,
-        encoding='utf-8')
-    diff_str = ""
-    diffs = diff_list.stdout.readlines()
-    for d in diffs:
-        diff_str += d
-    full_err_str += f"\nDiff against: {reference_file}\n"
-    full_err_str += diff_str
-    return full_err_str
-
-
-def do_update_reference(jo, jr, do):
-    shutil.copyfile(jo, jr)
-    for f in ["outfile", "stdout", "stderr"]:
-        if do[f]:
-            f_o = os.path.join(os.path.dirname(jo), do[f])
-            f_r = os.path.join(os.path.dirname(jr), do[f])
-            shutil.copyfile(f_o, f_r)
-
-
-def run_test(testname, basename, cmd, infile, update_reference=False,
-             extra_args=None):
-    """
-    Runs the test `cmd` and compare against reference results.
-
-    The `cmd` is executed via `run` (passing in `basename` and `infile`) and
-    the output is saved in the `output` directory. The generated json file is
-    then compared against reference results and if it differs, the
-    RunException is thrown.
-
-    Arguments:
-
-    basename ........... name of the run
-    cmd ................ command to run, can use {infile} and {outfile}
-    infile ............. optional input file. If present, it will check that
-                         it exists and hash it.
-    update_reference ... if True, it will copy the output into the reference
-                         directory as reference results, overwriting old ones
-    extra_args ......... Extra arguments to append to the command that are not
-                         part of the hash
-
-    Examples:
-
-    >>> run_test("cat12", "cat {infile} > {outfile}", "cat.txt",
-    ...     update_reference=True)
-    >>> run_test("cat12", "cat {infile} > {outfile}", "cat.txt")
-    """
-    s = f"{testname} * {basename}"
-    basename = bname(basename, cmd, infile)
-    infile = os.path.join("tests", infile)
-    jo = run(basename, cmd, os.path.join("tests", "output"), infile=infile,
-             extra_args=extra_args)
-    jr = os.path.join("tests", "reference", os.path.basename(jo))
-    if not os.path.exists(jo):
-        raise FileNotFoundError(
-            f"The output json file '{jo}' for {testname} does not exist")
-
-    do = json.load(open(jo))
-    if update_reference:
-        do_update_reference(jo, jr, do)
-        return
-
-    if not os.path.exists(jr):
-        raise FileNotFoundError(
-            f"The reference json file '{jr}' for {testname} does not exist")
-
-    dr = json.load(open(jr))
-    if do != dr:
-        # This string builds up the error message. Print test name in red in the beginning.
-        # More information is added afterwards.
-        full_err_str = f"\n{(color(fg.red)+color(style.bold))}{s}{color(fg.reset)+color(style.reset)}\n"
-        e = _compare_eq_dict(do, dr)
-        full_err_str += "The JSON metadata differs against reference results\n"
-        full_err_str += "Reference JSON: " + jr + "\n"
-        full_err_str += "Output JSON:    " + jo + "\n"
-        full_err_str += "\n".join(e)
-
-        for field in ["outfile", "stdout", "stderr"]:
-            hash_field = field + "_hash"
-            if not do[hash_field] and dr[hash_field]:
-                full_err_str += f"No output {hash_field} available for {testname}\n"
-                break
-            if not dr[hash_field] and do[hash_field]:
-                full_err_str += f"No reference {hash_field} available for {testname}\n"
-                break
-            if do[hash_field] != dr[hash_field]:
-                output_file = os.path.join("tests", "output", do[field])
-                reference_file = os.path.join("tests", "reference", dr[field])
-                full_err_str = get_error_diff(
-                    reference_file, output_file, full_err_str)
-                break
-        raise RunException(
-            "Testing with reference output failed." +
-            full_err_str)
-    if no_color:
-        log.debug(s + " PASS")
-    else:
-        log.debug(s + " " + check())
-
-
-def tester_main(compiler, single_test):
-    parser = argparse.ArgumentParser(description=f"{compiler} Test Suite")
-    parser.add_argument("-u", "--update", action="store_true",
-                        help="update all reference results")
-    parser.add_argument("-l", "--list", action="store_true",
-                        help="list all tests")
-    parser.add_argument("-t", "--test",
-                        action="append", nargs="*",
-                        help="Run specific tests")
-    parser.add_argument("-b", "--backend",
-                        action="append", nargs="*",
-                        help="Run specific backends")
-    parser.add_argument("-v", "--verbose", action="store_true",
-                        help="increase test verbosity")
-    parser.add_argument("--exclude-test", metavar="TEST",
-                        action="append", nargs="*",
-                        help="Exclude specific tests"),
-    parser.add_argument("--exclude-backend", metavar="BACKEND",
-                        action="append", nargs="*",
-                        help="Exclude specific backends, only works when -b is not specified"),
-    parser.add_argument("--no-llvm", action="store_true",
-                        help="Skip LLVM tests")
-    parser.add_argument("--skip-run-with-dbg", action="store_true",
-                        help="Skip runtime tests with debugging information enabled")
-    parser.add_argument("-s", "--sequential", action="store_true",
-                        help="Run all tests sequentially")
-    parser.add_argument("--no-color", action="store_true",
-                    help="Turn off colored tests output")
-    args = parser.parse_args()
-    update_reference = args.update
-    list_tests = args.list
-    specific_tests = list(
-        itertools.chain.from_iterable(
-            args.test)) if args.test else None
-    specific_backends = set(
-        itertools.chain.from_iterable(
-            args.backend)) if args.backend else None
-    excluded_tests = list(itertools.chain.from_iterable(
-        args.exclude_test)) if args.exclude_test else None
-    excluded_backends = set(itertools.chain.from_iterable(
-        args.exclude_backend)) if args.exclude_backend and specific_backends is None else None
-    verbose = args.verbose
-    no_llvm = args.no_llvm
-    skip_run_with_dbg = args.skip_run_with_dbg
-    global no_color
-    no_color = args.no_color
-
-    # So that the tests find the `lcompiler` executable
-    os.environ["PATH"] = os.path.join(SRC_DIR, "bin") \
-        + os.pathsep + os.environ["PATH"]
-    test_data = toml.load(open(os.path.join(ROOT_DIR, "tests", "tests.toml")))
-    filtered_tests = test_data["test"]
-    if specific_tests:
-        filtered_tests = [test for test in filtered_tests if any(
-            re.search(t, test["filename"]) for t in specific_tests)]
-    if excluded_tests:
-        filtered_tests = [test for test in filtered_tests if not any(
-            re.search(t, test["filename"]) for t in excluded_tests)]
-    if specific_backends:
-        filtered_tests = [
-            test for test in filtered_tests if any(
-                b in test for b in specific_backends)]
-    if excluded_backends:
-        filtered_tests = [test for test in filtered_tests if any(
-            b not in excluded_backends and b != "filename" for b in test)]
-    if args.sequential:
-        for test in filtered_tests:
-            single_test(test,
-                        update_reference=update_reference,
-                        specific_backends=specific_backends,
-                        excluded_backends=excluded_backends,
-                        verbose=verbose,
-                        no_llvm=no_llvm,
-                        skip_run_with_dbg=skip_run_with_dbg,
-                        no_color=no_color)
-    # run in parallel
-    else:
-        single_tester_partial_args = partial(
-            single_test,
-            update_reference=update_reference,
-            specific_backends=specific_backends,
-            excluded_backends=excluded_backends,
-            verbose=verbose,
-            no_llvm=no_llvm,
-            skip_run_with_dbg=skip_run_with_dbg,
-            no_color=no_color)
-        with ThreadPoolExecutor() as ex:
-            futures = ex.map(single_tester_partial_args, filtered_tests)
-            for f in futures:
-                if not f:
-                    ex.shutdown(wait=False)
-    if list_tests:
-        return
-
-    if update_reference:
-        log.info("Test references updated.")
-    else:
-        if no_color:
-            log.info("TESTS PASSED")
-        else:
-            log.info(
-                f"{(color(fg.green) + color(style.bold))}TESTS PASSED"
-                f"{color(fg.reset) + color(style.reset)}")
diff --git a/src/libasr/config.h.in b/src/libasr/config.h.in
deleted file mode 100644
index 292b593bb4..0000000000
--- a/src/libasr/config.h.in
+++ /dev/null
@@ -1,34 +0,0 @@
-#ifndef LFORTRAN_CONFIG_H
-#define LFORTRAN_CONFIG_H
-
-/* Define if you want to enable ASSERT testing in LFortran */
-#cmakedefine WITH_LFORTRAN_ASSERT
-
-/* LFortran version */
-#cmakedefine LFORTRAN_VERSION "@LFORTRAN_VERSION@"
-
-/* Define if LLVM is enabled */
-#cmakedefine HAVE_LFORTRAN_LLVM
-
-/* Define if RAPIDJSON is found */
-#cmakedefine HAVE_LFORTRAN_RAPIDJSON
-
-/* Define if stacktrace is enabled */
-#cmakedefine HAVE_LFORTRAN_STACKTRACE
-#cmakedefine HAVE_RUNTIME_STACKTRACE
-#cmakedefine HAVE_LFORTRAN_BFD
-#cmakedefine HAVE_LFORTRAN_DWARFDUMP
-#cmakedefine HAVE_LFORTRAN_LINK
-#cmakedefine HAVE_LFORTRAN_MACHO
-#cmakedefine HAVE_LFORTRAN_UNWIND
-
-/* Define if cxxabi.h is present */
-#cmakedefine HAVE_LFORTRAN_DEMANGLE
-
-/* Define if XEUS is enabled */
-#cmakedefine HAVE_LFORTRAN_XEUS
-
-/* Define if we should use binary modfiles */
-#cmakedefine WITH_LFORTRAN_BINARY_MODFILES
-
-#endif // LFORTRAN_CONFIG_H
diff --git a/src/libasr/containers.h b/src/libasr/containers.h
deleted file mode 100644
index 40b5292990..0000000000
--- a/src/libasr/containers.h
+++ /dev/null
@@ -1,204 +0,0 @@
-#ifndef LFORTRAN_CONTAINERS_H
-#define LFORTRAN_CONTAINERS_H
-
-#include <cstring>
-#include <libasr/alloc.h>
-
-namespace LCompilers {
-
-// Vector implementation
-
-template <typename T>
-struct Vec;
-
-template <typename T>
-class VecIterator
-{
-public:
-    VecIterator(const Vec<T>& c, size_t idx=0)
-        : m_container(c), m_index(idx) {}
-
-    bool operator!=(const VecIterator& other) {
-        return (m_index != other.m_index);
-    }
-
-    const VecIterator& operator++() {
-        m_index++;
-        return *this;
-    }
-
-    const T& operator*() const {
-        return m_container[m_index];
-    }
-private:
-    const Vec<T>& m_container;
-    size_t m_index;
-};
-
-#ifdef WITH_LFORTRAN_ASSERT
-static int vec_called_const = 0xdeadbeef;
-#endif
-
-template <typename T>
-struct Vec {
-    size_t n, max;
-    T* p;
-#ifdef WITH_LFORTRAN_ASSERT
-    int reserve_called;
-#endif
-
-    // reserve() must be called before calling push_back()
-    void reserve(Allocator &al, size_t max) {
-        n = 0;
-        if (max == 0) max++;
-        LCOMPILERS_ASSERT(max > 0)
-        this->max = max;
-        p = al.allocate<T>(max);
-#ifdef WITH_LFORTRAN_ASSERT
-        reserve_called = vec_called_const;
-#endif
-    }
-
-    void push_back(Allocator &al, T x) {
-        // This can pass by accident even if reserve() is not called (if
-        // reserve_called happens to be equal to vec_called_const when Vec is
-        // allocated in memory), but the chance is small. It catches such bugs
-        // in practice.
-        LCOMPILERS_ASSERT(reserve_called == vec_called_const);
-        if (n == max) {
-            size_t max2 = 2*max;
-            T* p2 = al.allocate<T>(max2);
-            std::memcpy(p2, p, sizeof(T) * max);
-            p = p2;
-            max = max2;
-        }
-        p[n] = x;
-        n++;
-    }
-
-    size_t size() const {
-        return n;
-    }
-
-    void resize(Allocator &al, size_t max){
-        reserve(al, max);
-        n = max;
-    }
-
-    size_t capacity() const {
-        return max;
-    }
-
-    // return a direct access to the underlying array
-    T* data() const {
-        return p;
-    }
-
-    T& back() const {
-        return p[n - 1];
-    }
-
-    const T& operator[](size_t pos) const {
-        return p[pos];
-    }
-
-    // Returns a copy of the data as std::vector
-    std::vector<T> as_vector() const {
-        return std::vector<T>(p, p+n);
-    }
-
-    void from_pointer_n(T* p, size_t n) {
-        this->p = p;
-        this->n = n;
-        this->max = n;
-#ifdef WITH_LFORTRAN_ASSERT
-        reserve_called = vec_called_const;
-#endif
-    }
-
-    void from_pointer_n_copy(Allocator &al, T* p, size_t n) {
-        this->reserve(al, n);
-        for (size_t i=0; i<n; i++) {
-            this->push_back(al, p[i]);
-        }
-    }
-
-    VecIterator<T> begin() const {
-        return VecIterator<T>(*this, 0);
-    }
-
-    VecIterator<T> end() const {
-        return VecIterator<T>(*this, n);
-    }
-};
-
-static_assert(std::is_standard_layout<Vec<int>>::value);
-static_assert(std::is_trivial<Vec<int>>::value);
-
-// String implementation (not null-terminated)
-struct Str {
-    size_t n;
-    char* p;
-
-    // Returns a copy of the string as a NULL terminated std::string
-    std::string str() const { return std::string(p, n); }
-
-    // Initializes Str from std::string by making a copy excluding the null char
-    void from_str(Allocator &al, const std::string &s) {
-        n = s.size();
-        p = al.allocate<char>(n);
-        std::memcpy(p, &s[0], sizeof(char) * n);
-    }
-
-    // Initializes Str from std::string by setting the pointer to point
-    // to the std::string (no copy), and the length excluding the null char.
-    // The original std::string cannot go out of scope if you are still using
-    // Str. This function is helpful if you want to allocate a null terminated
-    // C string using Allocator as follows:
-    //
-    //    std::string s
-    //    ...
-    //    Str a;
-    //    a.from_str_view(s);
-    //    char *s2 = a.c_str(al);
-    void from_str_view(const std::string &s) {
-        n = s.size();
-        p = const_cast<char*>(&s[0]);
-    }
-
-    // Returns a copy of the string as a NULL terminated C string,
-    // allocated using Allocator
-    char* c_str(Allocator &al) const {
-        char *s = al.allocate<char>(n+1);
-        std::memcpy(s, p, sizeof(char) * n);
-        s[n] = '\0';
-        return s;
-    }
-
-    size_t size() const {
-        return n;
-    }
-};
-
-static_assert(std::is_standard_layout<Str>::value);
-static_assert(std::is_trivial<Str>::value);
-
-template <typename ...Args>
-std::string string_format(const std::string& format, Args && ...args)
-{
-    auto size = std::snprintf(nullptr, 0, format.c_str(), std::forward<Args>(args)...);
-    std::string output(size, '\0');
-    std::snprintf(&output[0], size + 1, format.c_str(), std::forward<Args>(args)...);
-    return output;
-}
-
-static inline std::string double_to_scientific(double x) {
-    return string_format("%25.17e", x);
-}
-
-} // namespace LCompilers
-
-
-
-
-#endif
diff --git a/src/libasr/diagnostics.cpp b/src/libasr/diagnostics.cpp
deleted file mode 100644
index c85239003c..0000000000
--- a/src/libasr/diagnostics.cpp
+++ /dev/null
@@ -1,401 +0,0 @@
-#include <iomanip>
-#include <sstream>
-
-#include <libasr/diagnostics.h>
-#include <libasr/assert.h>
-#include <libasr/exception.h>
-#include <libasr/utils.h>
-
-namespace LCompilers::diag {
-
-const static std::string redon  = ColorsANSI::RED;
-const static std::string redoff = ColorsANSI::RESET;
-
-std::string highlight_line(const std::string &line,
-        const size_t first_column,
-        const size_t last_column,
-        bool use_colors)
-{
-    if (first_column == 0 || last_column == 0) return "";
-    if (last_column > line.size()+1) {
-        throw LCompilersException("The `last_column` in highlight_line is longer than the source line");
-    }
-    LCOMPILERS_ASSERT(first_column >= 1)
-    LCOMPILERS_ASSERT(first_column <= last_column)
-    LCOMPILERS_ASSERT(last_column <= line.size()+1)
-    std::stringstream out;
-    if (line.size() > 0) {
-        out << line.substr(0, first_column-1);
-        if(use_colors) out << redon;
-        if (last_column <= line.size()) {
-            out << line.substr(first_column-1,
-                    last_column-first_column+1);
-        } else {
-            // `last_column` points to the \n character
-            out << line.substr(first_column-1,
-                    last_column-first_column+1-1);
-        }
-        if(use_colors) out << redoff;
-        if (last_column < line.size()) out << line.substr(last_column);
-    }
-    out << std::endl;
-    if (first_column > 0) {
-        for (size_t i=0; i < first_column-1; i++) {
-            out << " ";
-        }
-    }
-    if(use_colors) out << redon << "^";
-    else out << "^";
-    for (size_t i=first_column; i < last_column; i++) {
-        out << "~";
-    }
-    if(use_colors) out << redoff;
-    out << std::endl;
-    return out.str();
-}
-
-bool Diagnostics::has_error() const {
-    for (auto &d : this->diagnostics) {
-        if (d.level == Level::Error) return true;
-    }
-    return false;
-}
-
-std::string Diagnostics::render(LocationManager &lm,
-        const CompilerOptions &compiler_options) {
-    std::string out;
-    for (auto &d : this->diagnostics) {
-        if (compiler_options.no_warnings && d.level != Level::Error) {
-            continue;
-        }
-        if (compiler_options.error_format == "human") {
-            out += render_diagnostic_human(d, lm, compiler_options.use_colors,
-                compiler_options.show_stacktrace);
-            if (&d != &this->diagnostics.back()) out += "\n";
-        } else if (compiler_options.error_format == "short") {
-            out += render_diagnostic_short(d, lm);
-        } else {
-            throw LCompilersException("Error format not supported.");
-        }
-    }
-    if (compiler_options.error_format == "human") {
-        if (this->diagnostics.size() > 0 && !compiler_options.no_error_banner) {
-            if (!compiler_options.no_warnings || has_error()) {
-                std::string bold  = ColorsANSI::BOLD;
-                std::string reset = ColorsANSI::RESET;
-                if (!compiler_options.use_colors) {
-                    bold = "";
-                    reset = "";
-                }
-                out += "\n\n";
-                out += bold + "Note" + reset
-                    + ": if any of the above error or warning messages are not clear or are lacking\n";
-                out += "context please report it to us (we consider that a bug that needs to be fixed).\n";
-            }
-        }
-    }
-    return out;
-}
-
-std::string render_diagnostic_short_nospan(const Diagnostic &d);
-
-std::string Diagnostics::render2() {
-    std::string out;
-    for (auto &d : this->diagnostics) {
-        out += render_diagnostic_short_nospan(d);
-        if (&d != &this->diagnostics.back()) out += "\n";
-    }
-    return out;
-}
-
-std::string get_line(std::string str, int n)
-{
-    std::string line;
-    std::stringstream s(str);
-    for (int i=0; i < n; i++) {
-        std::getline(s, line);
-    }
-    return line;
-}
-
-void populate_span(diag::Span &s, const LocationManager &lm) {
-    lm.pos_to_linecol(lm.output_to_input_pos(s.loc.first, false),
-        s.first_line, s.first_column, s.filename);
-    lm.pos_to_linecol(lm.output_to_input_pos(s.loc.last, true),
-        s.last_line, s.last_column, s.filename);
-    std::string input;
-    read_file(s.filename, input);
-    for (uint32_t i = s.first_line; i <= s.last_line; i++) {
-        s.source_code.push_back(get_line(input, i));
-    }
-    LCOMPILERS_ASSERT(s.source_code.size() > 0)
-}
-
-// Loop over all labels and their spans, populate all of them
-void populate_spans(diag::Diagnostic &d, const LocationManager &lm) {
-    for (auto &l : d.labels) {
-        for (auto &s : l.spans) {
-            populate_span(s, lm);
-        }
-    }
-}
-
-// Fills Diagnostic with span details and renders it
-std::string render_diagnostic_human(Diagnostic &d, const LocationManager &lm,
-        bool use_colors, bool show_stacktrace) {
-    std::string out;
-    if (show_stacktrace) {
-        out += error_stacktrace(d.stacktrace);
-    }
-    // Convert to line numbers and get source code strings
-    populate_spans(d, lm);
-    // Render the message
-    out += render_diagnostic_human(d, use_colors);
-    return out;
-}
-
-// Fills Diagnostic with span details and renders it
-std::string render_diagnostic_short(Diagnostic &d, const LocationManager &lm) {
-    std::string out;
-    // Convert to line numbers and get source code strings
-    populate_spans(d, lm);
-    // Render the message
-    out += render_diagnostic_short(d);
-    return out;
-}
-
-std::string render_diagnostic_human(const Diagnostic &d, bool use_colors) {
-    std::string bold  = ColorsANSI::BOLD;
-    std::string red_bold  = ColorsANSI::BOLDCYAN;
-    std::string yellow_bold  = ColorsANSI::BOLDYELLOW;
-    std::string green_bold  = ColorsANSI::BOLDGREEN;
-    std::string blue_bold  = ColorsANSI::BOLDBLUE;
-    std::string reset = ColorsANSI::RESET;
-    if (!use_colors) {
-        bold = "";
-        red_bold = "";
-        yellow_bold = "";
-        green_bold = "";
-        blue_bold = "";
-        reset = "";
-    }
-    std::stringstream out;
-
-    auto [message_type, primary_color, type_color] = diag_level_to_str(d, use_colors);
-    out << type_color << message_type << reset << bold << ": " << d.message << reset << std::endl;
-
-    if (d.labels.size() > 0) {
-        Label l = d.labels[0];
-        Span s = l.spans[0];
-        int line_num_width = 1;
-        if (s.last_line >= 10000) {
-            line_num_width = 5;
-        } else if (s.last_line >= 1000) {
-            line_num_width = 4;
-        } else if (s.last_line >= 100) {
-            line_num_width = 3;
-        } else if (s.last_line >= 10) {
-            line_num_width = 2;
-        }
-        // TODO: print the primary line+column here, not the first label:
-        out << std::string(line_num_width, ' ') << blue_bold << "-->" << reset << " " << s.filename << ":" << s.first_line << ":" << s.first_column;
-        if (s.first_line != s.last_line) {
-            out << " - " << s.last_line << ":" << s.last_column;
-        }
-        out << std::endl;
-        for (auto &l : d.labels) {
-            if (l.spans.size() == 0) {
-                throw LCompilersException("ICE: Label does not have a span");
-            }
-            std::string color;
-            char symbol;
-            if (l.primary) {
-                color = primary_color;
-                symbol = '^';
-            } else {
-                color = blue_bold;
-                symbol = '~';
-            }
-            Span s0 = l.spans[0];
-            for (size_t i=0; i < l.spans.size(); i++) {
-                Span s2=l.spans[i];
-                // If the span is on the same line as the last span and to
-                // the right, we add it to the same line. Otherwise we start
-                // a new line.
-                if (i >= 1) {
-                    if (s0.first_line == s0.last_line) {
-                        // Previous span was single line
-                        if (s2.first_line == s2.last_line && s2.first_line == s0.first_line)  {
-                            // Current span is single line and on the same line
-                            if (s2.first_column > s0.last_column+1) {
-                                // And it comes after the previous span
-                                // Append the span and continue
-                                out << std::string(s2.first_column-s0.last_column-1, ' ');
-                                out << std::string(s2.last_column-s2.first_column+1, symbol);
-                                s0 = s2;
-                                continue;
-                            }
-                        }
-                        // Otherwise finish the line
-                        out << " " << l.message << reset << std::endl;
-                    }
-                }
-                // and start a new one:
-                s0 = s2;
-                if (s0.filename != s.filename) {
-                    out << std::endl;
-                    // TODO: print the primary line+column here, not the first label:
-                    out << std::string(line_num_width, ' ') << blue_bold;
-                    out << "-->" << reset << " " << s0.filename << ":";
-                    out << s0.first_line << ":" << s0.first_column;
-                    if (s0.first_line != s0.last_line) {
-                        out << " - " << s0.last_line << ":" << s0.last_column;
-                    }
-                    out << std::endl;
-                }
-
-                if (s0.first_line == s0.last_line) {
-                    out << std::string(line_num_width+1, ' ') << blue_bold << "|"
-                        << reset << std::endl;
-                    std::string line = s0.source_code[0];
-                    std::replace(std::begin(line), std::end(line), '\t', ' ');
-                    line.erase(std::remove(line.begin(), line.end(), '\r'), line.end());
-                    out << blue_bold << std::setw(line_num_width)
-                        << std::to_string(s0.first_line) << " |" << reset << " "
-                        << line << std::endl;
-                    out << std::string(line_num_width+1, ' ') << blue_bold << "|"
-                        << reset << " ";
-                    out << std::string(s0.first_column-1, ' ');
-                    out << color << std::string(s0.last_column-s0.first_column+1, symbol);
-                } else {
-                    if (s0.first_line < s0.last_line) {
-                        out << std::string(line_num_width+1, ' ') << blue_bold << "|"
-                            << reset << std::endl;
-                        std::string line = s0.source_code[0];
-                        std::replace(std::begin(line), std::end(line), '\t', ' ');
-                        line.erase(std::remove(line.begin(), line.end(), '\r'), line.end());
-                        out << blue_bold << std::setw(line_num_width)
-                            << std::to_string(s0.first_line) << " |" << reset << " "
-                            << "   " + line << std::endl;
-                        out << std::string(line_num_width+1, ' ') << blue_bold << "|"
-                            << reset << " ";
-                        out << "   " + std::string(s0.first_column-1, ' ');
-                        int64_t repeat = (int64_t)line.size()-(int64_t)s0.first_column+1;
-                        if (repeat > 0) {
-                            out << color << std::string(repeat, symbol);
-                        }
-                        out << "..." << reset << std::endl;
-
-                        out << "..." << std::endl;
-
-                        out << std::string(line_num_width+1, ' ') << blue_bold << "|"
-                            << reset << std::endl;
-                        line = s0.source_code[s0.source_code.size()-1];
-                        std::replace(std::begin(line), std::end(line), '\t', ' ');
-                        line.erase(std::remove(line.begin(), line.end(), '\r'), line.end());
-                        out << blue_bold << std::setw(line_num_width)
-                            << std::to_string(s0.last_line) << " |" << reset << " "
-                            << "   " + line << std::endl;
-                        out << std::string(line_num_width+1, ' ') << blue_bold << "|"
-                            << reset << " ";
-                        out << color << "..." + std::string(s0.last_column-1+1, symbol);
-                        out << " " << l.message << reset << std::endl;
-                    } else {
-                        throw LCompilersException("location last_line < first_line");
-                    }
-                }
-            }
-            if (s0.first_line == s0.last_line) {
-                out << " " << l.message << reset << std::endl;
-            }
-        } // Labels
-    }
-    return out.str();
-}
-
-std::string render_diagnostic_short(const Diagnostic &d) {
-    std::stringstream out;
-
-    // Message anatomy:
-    // <filename>:<line start>-<end>:<column start>-<end>: <severity>: <message>
-    if (d.labels.size() > 0) {
-        Label l = d.labels[0];
-        Span s = l.spans[0];
-        // TODO: print the primary line+column here, not the first label:
-        out << s.filename << ":" << s.first_line << "-" << s.last_line << ":";
-        out << s.first_column << "-" << s.last_column << ": ";
-    }
-    auto [message_type, primary, type] = diag_level_to_str(d, false);
-    out << message_type << ": " << d.message << std::endl;
-
-    return out.str();
-}
-
-std::string render_diagnostic_short_nospan(const Diagnostic &d) {
-    std::stringstream out;
-    auto [message_type, primary, type] = diag_level_to_str(d, false);
-    out << message_type << ": " << d.message << std::endl;
-    return out.str();
-}
-
-std::tuple<std::string, std::string, std::string> diag_level_to_str(
-    const Diagnostic &d, const bool use_color) {
-    std::string message_type = "";
-    std::string primary_color = "";
-    std::string type_color = "";
-    switch (d.level) {
-        case (Level::Error):
-            primary_color = use_color ? ColorsANSI::BOLDRED : "";
-            type_color = primary_color;
-            switch (d.stage) {
-                case (Stage::CPreprocessor):
-                    message_type = "C preprocessor error";
-                    break;
-                case (Stage::Prescanner):
-                    message_type = "prescanner error";
-                    break;
-                case (Stage::Tokenizer):
-                    message_type = "tokenizer error";
-                    break;
-                case (Stage::Parser):
-                    message_type = "syntax error";
-                    break;
-                case (Stage::Semantic):
-                    message_type = "semantic error";
-                    break;
-                case (Stage::ASRPass):
-                    message_type = "ASR pass error";
-                    break;
-                case (Stage::ASRVerify):
-                    message_type = "ASR verify pass error";
-                    break;
-                case (Stage::CodeGen):
-                    message_type = "code generation error";
-                    break;
-            }
-            break;
-        case (Level::Warning):
-            primary_color = use_color ? ColorsANSI::BOLDYELLOW : "";
-            type_color = primary_color;
-            message_type = "warning";
-            break;
-        case (Level::Note):
-            primary_color = use_color ? ColorsANSI::BOLD : "";
-            type_color = primary_color;
-            message_type = "note";
-            break;
-        case (Level::Help):
-            primary_color = use_color ? ColorsANSI::BOLD : "";
-            type_color = primary_color;
-            message_type = "help";
-            break;
-        case (Level::Style):
-            primary_color = use_color ? ColorsANSI::BOLDGREEN : "";
-            type_color = use_color ? ColorsANSI::BOLDYELLOW : "";
-            message_type = "style suggestion";
-            break;
-    }
-    return std::make_tuple(message_type, primary_color, type_color);
-}
-
-} // namespace LCompilers::diag
diff --git a/src/libasr/diagnostics.h b/src/libasr/diagnostics.h
deleted file mode 100644
index 63e1d832c3..0000000000
--- a/src/libasr/diagnostics.h
+++ /dev/null
@@ -1,259 +0,0 @@
-#ifndef LFORTRAN_DIAGNOSTICS_H
-#define LFORTRAN_DIAGNOSTICS_H
-
-#include <tuple>
-#include <libasr/location.h>
-#include <libasr/stacktrace.h>
-
-namespace LCompilers {
-
-struct LocationManager;
-struct CompilerOptions;
-
-namespace diag {
-
-struct Span {
-    Location loc; // Linear location (span), must be filled out
-
-    // Later the `loc` is used to populate these:
-    // Converted to line+columns
-    uint32_t first_line, first_column, last_line, last_column;
-    // Filename:
-    std::string filename;
-    // Lines of source code from first_line to last_line
-    std::vector<std::string> source_code;
-
-    Span(const Location &loc) : loc{loc} {}
-};
-
-/*
- * Labels can be primary or secondary.
- *
- * An optional message can be attached to the label.
- *
- *   * Primary: brief, but approachable description of *what* went wrong
- *   * Secondary: description of *why* the error happened
- *
- * Primary label uses ^^^, secondary uses ~~~ (or ---)
- *
- * There is one or more spans (Locations) attached to a label.
- *
- * Colors:
- *
- *   * Error message: primary is red, secondary is blue
- *   * Warning message: primary is yellow
- */
-struct Label {
-    bool primary; // primary or secondary label
-    std::string message; // message attached to the label
-    std::vector<Span> spans; // one or more spans
-
-    Label(const std::string &message, const std::vector<Location> &locations,
-            bool primary=true) : primary{primary}, message{message} {
-        for (auto &loc : locations) {
-            spans.push_back(Span(loc));
-        }
-    }
-};
-
-/*
- * The diagnostic level is the type of the message.
- *
- * We can have errors, warnings, notes and help messages.
- */
-enum Level {
-    Error, Warning, Note, Help, Style
-};
-
-/*
- * Which stage of the compiler the error is coming from
- */
-enum Stage {
-    CPreprocessor, Prescanner, Tokenizer, Parser, Semantic, ASRPass,
-    ASRVerify, CodeGen
-};
-
-/*
- * A diagnostic message has a level and message and labels.
- *
- * Errors have zero or more primary and zero or more secondary labels.
- * Help uses primary to show what should change.
- * Notes may not have any labels attached.
- *
- * The message describes the overall error/warning/note. Labels are used
- * to briefly but approachably describe what went wrong (primary label) and why
- * it happened (secondary label).
- *
- * A progression of error messages:
- *   * a message with no label
- *   * a message with a primary label, no attached message
- *   * a message with a primary label and attached message
- *   * a message with a primary label and attached message and secondary labels
- *   * ...
- * If there are labels attached, there must be at least one primary.
- *
- * The main diagnostic message is the parent. It can have children that can
- * attach notes, help, etc. to the main error or warning message.
- */
-struct Diagnostic {
-    Level level;
-    Stage stage;
-    std::string message;
-    std::vector<Label> labels;
-    std::vector<Diagnostic> children;
-    std::vector<StacktraceItem> stacktrace = get_stacktrace_addresses();
-
-    Diagnostic(const std::string &message, const Level &level,
-        const Stage &stage) : level{level}, stage{stage}, message{message} {}
-
-    Diagnostic(const std::string &message, const Level &level,
-        const Stage &stage,
-        const std::vector<Label> &labels
-        ) : level{level}, stage{stage}, message{message}, labels{labels} {}
-};
-
-struct Diagnostics {
-    std::vector<Diagnostic> diagnostics;
-
-    std::string render(LocationManager &lm, const CompilerOptions &compiler_options);
-
-    // Renders the error message using only the information in Diagnostics
-    std::string render2();
-
-    // Returns true iff diagnostics contains at least one error message
-    bool has_error() const;
-
-    void add(const Diagnostic &d) {
-        diagnostics.push_back(d);
-    }
-
-    void message_label(const std::string &message,
-            const std::vector<Location> &locations,
-            const std::string &error_label,
-            const Level &level,
-            const Stage &stage
-            ) {
-        diagnostics.push_back(
-            Diagnostic(message, level, stage, {Label(error_label, locations)})
-        );
-    }
-
-    void semantic_warning_label(const std::string &message,
-            const std::vector<Location> &locations, const std::string &error_label) {
-        message_label(message, locations, error_label,
-            Level::Warning, Stage::Semantic);
-    }
-
-    void semantic_error_label(const std::string &message,
-            const std::vector<Location> &locations, const std::string &error_label) {
-        message_label(message, locations, error_label,
-            Level::Error, Stage::Semantic);
-    }
-
-    void tokenizer_warning_label(const std::string &message,
-            const std::vector<Location> &locations, const std::string &error_label) {
-        message_label(message, locations, error_label,
-            Level::Warning, Stage::Tokenizer);
-    }
-
-    void parser_warning_label(const std::string &message,
-            const std::vector<Location> &locations, const std::string &error_label) {
-        message_label(message, locations, error_label,
-            Level::Warning, Stage::Parser);
-    }
-
-    void codegen_warning_label(const std::string &message,
-            const std::vector<Location> &locations, const std::string &error_label) {
-        message_label(message, locations, error_label,
-            Level::Warning, Stage::CodeGen);
-    }
-
-    void codegen_error_label(const std::string &message,
-            const std::vector<Location> &locations, const std::string &error_label) {
-        message_label(message, locations, error_label,
-            Level::Error, Stage::CodeGen);
-    }
-
-    void tokenizer_style_label(const std::string &message,
-            const std::vector<Location> &locations, const std::string &error_label) {
-        message_label(message, locations, error_label,
-            Level::Style, Stage::Tokenizer);
-    }
-
-    void parser_style_label(const std::string &message,
-            const std::vector<Location> &locations, const std::string &error_label) {
-        message_label(message, locations, error_label,
-            Level::Style, Stage::Parser);
-    }
-};
-
-struct ColorsANSI {
-    inline static const std::string RESET       = "\033[0;0m";
-    inline static const std::string BLACK       = "\033[0;30m";    /* Black */
-    inline static const std::string RED         = "\033[0;31m";    /* Red */
-    inline static const std::string GREEN       = "\033[0;32m";    /* Green */
-    inline static const std::string YELLOW      = "\033[0;33m";    /* Yellow */
-    inline static const std::string BLUE        = "\033[0;34m";    /* Blue */
-    inline static const std::string MAGENTA     = "\033[0;35m";    /* Magenta */
-    inline static const std::string CYAN        = "\033[0;36m";    /* Cyan */
-    inline static const std::string WHITE       = "\033[0;37m";    /* White */
-    inline static const std::string BOLD        = "\033[0;1m";     /* Bold */
-    inline static const std::string BOLDBLACK   = "\033[0;30;1m";  /* Bold Black */
-    inline static const std::string BOLDRED     = "\033[0;31;1m";  /* Bold Red */
-    inline static const std::string BOLDGREEN   = "\033[0;32;1m";  /* Bold Green */
-    inline static const std::string BOLDYELLOW  = "\033[0;33;1m";  /* Bold Yellow */
-    inline static const std::string BOLDBLUE    = "\033[0;34;1m";  /* Bold Blue */
-    inline static const std::string BOLDMAGENTA = "\033[0;35;1m";  /* Bold Magenta */
-    inline static const std::string BOLDCYAN    = "\033[0;36;1m";  /* Bold Cyan */
-    inline static const std::string BOLDWHITE   = "\033[0;37;1m";  /* Bold White */
-};
-
-std::string render_diagnostic_human(const Diagnostic &d, bool use_colors);
-std::string render_diagnostic_short(const Diagnostic &d);
-
-// Fills Diagnostic with span details and renders it
-std::string render_diagnostic_human(Diagnostic &d, const LocationManager &lm,
-    bool use_colors, bool show_stacktrace);
-std::string render_diagnostic_short(Diagnostic &d, const LocationManager &lm);
-/**
- * @brief Convert diagnostic `Level` i.e. severity to string and color accordingly.
- *
- * This method defines the Severity part of the REGEX linters must implement.
- * Any changes to this method must be reflected in the linters.
- *
- * @param d Diagnostic object.
- * @param use_colors Include ANSI color codes in the return tuple.
- * @return std::tuple<std::string, std::string, std::string>
- * message_type, primary color & type color
- *
- * Possible `messages_types` and their severities are:
- * - Severity: Error
- *    + C preprocessor error
- *    + prescanner error
- *    + tokenizer error
- *    + syntax error
- *    + semantic error
- *    + ASR pass error
- *    + ASR verify pass error
- *    + code generation error
- *
- * - Severity: Warning
- *    + warning
- *
- * - Severity: Note
- *    + note
- *
- * - Severity: Help
- *    + help
- *
- * - Severity: Style
- *    + style suggestion
- */
-std::tuple<std::string, std::string, std::string> diag_level_to_str(const Diagnostic &d,
-        const bool use_colors = true);
-
-} // namespace diag
-
-} // namespace LCompilers
-
-#endif // LFORTRAN_DIAGNOSTICS_H
diff --git a/src/libasr/exception.h b/src/libasr/exception.h
deleted file mode 100644
index 1ca9d02a77..0000000000
--- a/src/libasr/exception.h
+++ /dev/null
@@ -1,172 +0,0 @@
-#ifndef LFORTRAN_EXCEPTION_H
-#define LFORTRAN_EXCEPTION_H
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-typedef enum {
-    LFORTRAN_NO_EXCEPTION    = 0,
-    LFORTRAN_RUNTIME_ERROR   = 1,
-    LFORTRAN_EXCEPTION       = 2,
-    LFORTRAN_PARSER_ERROR    = 4,
-    LFORTRAN_ASSERT_FAILED   = 7,
-    LFORTRAN_ASSEMBLER_ERROR = 8,
-} lfortran_exceptions_t;
-
-#ifdef __cplusplus
-}
-#endif
-
-
-#ifdef __cplusplus
-
-#include <exception>
-#include <string>
-#include <libasr/location.h>
-#include <libasr/config.h>
-#include <libasr/stacktrace.h>
-#include <libasr/diagnostics.h>
-
-namespace LCompilers {
-
-/*
-    This Error structure is returned in Result when failure happens.
-
-    The diagnostic messages contain warnings and error(s). In the past when
-    just one error was returned, it made sense to return it as part of the
-    Error structure in Result. However now when warnings are also reported,
-    those we want to return in any case. Also since multiple errors can be
-    reported, they are now storted independently of the exception that is
-    internally used to abort the analysis (typically a visitor pattern).
-
-    For the above reasons the diagnostic messages are now returned as an
-    argument, independently of the Result<T>, and they can contain messages on
-    success also. On failure they contain at least one error message (and in
-    addition can contain warnings and more error messages).
-
-    Consequently, we do not currently store anything in the Error structure
-    below.
-*/
-struct Error {
-};
-
-template<typename T>
-struct Result {
-    bool ok;
-    union {
-        T result;
-        Error error;
-    };
-    // Default constructor
-    Result() = delete;
-    // Success result constructor
-    Result(const T &result) : ok{true}, result{result} {}
-    // Error result constructor
-    Result(const Error &error) : ok{false}, error{error} {}
-    // Destructor
-    ~Result() {
-        if (!ok) {
-            error.~Error();
-        }
-    }
-    // Copy constructor
-    Result(const Result<T> &other) : ok{other.ok} {
-        if (ok) {
-            new(&result) T(other.result);
-        } else {
-            new(&error) Error(other.error);
-        }
-    }
-    // Copy assignment
-    Result<T>& operator=(const Result<T> &other) {
-        ok = other.ok;
-        if (ok) {
-            new(&result) T(other.result);
-        } else {
-            new(&error) Error(other.error);
-        }
-        return *this;
-    }
-    // Move constructor
-    Result(T &&result) : ok{true}, result{std::move(result)} {}
-    // Move assignment
-    Result<T>&& operator=(T &&other) = delete;
-};
-
-
-const int stacktrace_depth = 4;
-
-class LCompilersException : public std::exception
-{
-    std::string m_msg;
-    lfortran_exceptions_t ec;
-    std::vector<StacktraceItem> m_stacktrace_addresses;
-public:
-    LCompilersException(const std::string &msg, lfortran_exceptions_t error)
-        : m_msg{msg}, ec{error}, m_stacktrace_addresses{get_stacktrace_addresses()}
-    { }
-    LCompilersException(const std::string &msg)
-        : LCompilersException(msg, LFORTRAN_EXCEPTION)
-    {
-    }
-    const char *what() const throw()
-    {
-        return m_msg.c_str();
-    }
-    std::string msg() const
-    {
-        return m_msg;
-    }
-    std::string name() const
-    {
-        switch (ec) {
-            case (lfortran_exceptions_t::LFORTRAN_EXCEPTION) :
-                return "LCompilersException";
-            case (lfortran_exceptions_t::LFORTRAN_ASSERT_FAILED) :
-                return "AssertFailed";
-            default : return "Unknown Exception";
-        }
-    }
-    std::vector<StacktraceItem> stacktrace_addresses() const
-    {
-        return m_stacktrace_addresses;
-    }
-    lfortran_exceptions_t error_code()
-    {
-        return ec;
-    }
-};
-
-class AssertFailed : public LCompilersException
-{
-public:
-    AssertFailed(const std::string &msg)
-        : LCompilersException(msg, LFORTRAN_ASSERT_FAILED)
-    {
-    }
-};
-
-class AssemblerError : public LCompilersException
-{
-public:
-    AssemblerError(const std::string &msg)
-        : LCompilersException(msg, LFORTRAN_ASSEMBLER_ERROR)
-    {
-    }
-};
-
-template<typename T>
-static inline T TRY(Result<T> result) {
-    if (result.ok) {
-        return result.result;
-    } else {
-        throw LCompilersException("Internal Compiler Error: TRY failed, error was not handled explicitly");
-    }
-}
-
-
-} // namespace LCompilers
-
-#endif // __cplusplus
-#endif // LFORTRAN_EXCEPTION_H
diff --git a/src/libasr/location.h b/src/libasr/location.h
deleted file mode 100644
index fa3a684178..0000000000
--- a/src/libasr/location.h
+++ /dev/null
@@ -1,213 +0,0 @@
-#ifndef LFORTRAN_PARSER_LOCATION_H
-#define LFORTRAN_PARSER_LOCATION_H
-
-#include <cstdint>
-#include <vector>
-
-namespace LCompilers {
-
-struct Location
-{
-  uint32_t first;
-  uint32_t last;
-};
-
-static inline uint32_t bisection(const std::vector<uint32_t> &vec, uint32_t i) {
-    if (vec.size() == 0) return 0;
-    if (i < vec[0]) return 0;
-    if (i >= vec[vec.size()-1]) return vec.size();
-    uint32_t i1 = 0, i2 = vec.size()-1;
-    while (i1 < i2-1) {
-        uint32_t imid = (i1+i2)/2;
-        if (i < vec[imid]) {
-            i2 = imid;
-        } else {
-            i1 = imid;
-        }
-    }
-    return i1+1;
-}
-
-struct LocationManager {
-    // The index into these vectors is the interval ID, starting from 0
-    //
-    // The output code is partitioned into consecutive (non-overlapping)
-    // interval by a single array `out_start` of the starting points: interval N
-    // is (out_start[N], out_start[N+1]). Each interval has an ID (starting from
-    // 0), and each interval corresponds to some interval in the original code.
-    //
-    // There are two types of intervals, stored in `interval_type`:
-    //
-    // 0 ... 1:1 interval. One to one intervals have the same lengths in both in
-    //       and out codes and they correspond to just copying text from in to
-    //       out. The length of the interval N is out_start[N+1]-out_start[N],
-    //       and it starts at in_start[N] in input code and out_start[N] in
-    //       output code. Every character in output code can be mapped to a
-    //       character in input code and vice versa.
-    // 1 ... Many to many interval: This type happens for example in a macro
-    //       expansion, e.g.:
-    //           #define X(a,b) -> sin(a*x)+cos(b*y)
-    //           X(1.5, 3.5)
-    //       gets expanded to:
-    //           sin(1.5*x)+cos(3.5*y)
-    //       So the single input code interval `X(1.5, 3.5)` corresponds to an interval
-    //       `sin(1.5*x)+cos(3.5*y)`, but we do not specify any more detailed
-    //       correspondence on a character basis. If for example `x` is defined
-    //       but `y` is undefined, then the compiler error message can for
-    //       example look like this:
-    //           Semantic error: `y` is undefined:
-    //           sin(1.5*x)+cos(3.5*y)
-    //                              ^
-    //           Note: In a macro expansion:
-    //           X(1.5, 3.5)
-    //           ^~~~~~~~~~~
-    //           Note: the macro was defined at:
-    //           #define X(a,b) -> sin(a*x)+cos(b*y)
-    //                   ^~~~~~
-    //       The last part can be inferred from a Preprocessor symbol table: The
-    //       error message of undefined `y` leads to line with the macro `X`, so
-    //       we can lookup `X` in a macro symbol table and find its definition.
-    //
-    // # Handling of include files
-    //
-    // Example of input file `A.cpp`:
-    //     #include "B.h"
-    //     void f(const MyType &x);
-    // Expands to the output file:
-    //     struct MyType {
-    //         int i;
-    //     }
-    //     void f(const MyType &x);
-    // Here `f` from the output file maps using interval type 0 to `f` in A.cpp.
-    // The `struct MyType` maps using interval type 0 to `struct MyType` in B.h.
-    // In addition, for this interval we store a list of files+positions
-    // of all recursive include lines.
-    //
-    // Note: even for macro expansion we can use intervals type 0 to point to
-    // the copied text, such as `cos(` can point directly into the macro
-    // definition, `3.5` can point to `b` using interval 1 (but can also point
-    // to `3.5` in `X(1.5, 3.5)` using interval 0), `*y)` can again use interval
-    // 0.
-    // Macros are recursive, so the same idea: one interval of type 0, and a
-    // list of files+positions.
-    //
-    //
-    //
-    struct FileLocations {
-        std::vector<uint32_t> out_start; // consecutive intervals in the output code
-        std::vector<uint32_t> in_start; // start + size in the original code
-        std::vector<uint32_t> in_newlines; // position of all \n in the original code
-
-        // For preprocessor (if preprocessor==true).
-        // TODO: design a common structure, that also works with #include, that
-        // has these mappings for each file
-        bool preprocessor = false;
-        std::string in_filename;
-        uint32_t current_line=0;
-        std::vector<uint32_t> out_start0; // consecutive intervals in the output code
-        std::vector<uint32_t> in_start0; // start + size in the original code
-        std::vector<uint32_t> in_size0; // Size of the `in` interval
-        std::vector<uint32_t> interval_type0; // 0 .... 1:1; 1 ... many to many;
-        std::vector<uint32_t> in_newlines0; // position of all \n in the original code
-    };
-    std::vector<FileLocations> files;
-    // Location is continued for the imported files, i.e.,if the new file is
-    // imported then the location starts from the size of the previous file.
-    // For example: file_ends = [120, 200, 350]
-    std::vector<uint32_t> file_ends; // position of all ends of files
-    // For a given Location, we use the `file_ends` and `bisection` to determine
-    // the file (files' index), which the location is from. Then we use this index into
-    // the `files` vector and use `in_newlines` and other information to
-    // determine the line and column inside this file, and the `in_filename`
-    // field to determine the filename. This happens when the diagnostic is
-    // printed.
-
-    // Converts a position in the output code to a position in the original code
-    // Every character in the output code has a corresponding location in the
-    // original code, so this function always succeeds
-    uint32_t output_to_input_pos(uint32_t out_pos, bool show_last) const {
-        // Determine where the error is from using position, i.e., loc
-        uint32_t index = bisection(file_ends, out_pos);
-        if (index == file_ends.size()) index -= 1;
-        if (files[index].out_start.size() == 0) return 0;
-        uint32_t interval = bisection(files[index].out_start, out_pos)-1;
-        uint32_t rel_pos = out_pos - files[index].out_start[interval];
-        uint32_t in_pos = files[index].in_start[interval] + rel_pos;
-        if (files[index].preprocessor) {
-            // If preprocessor was used, do one more remapping
-            uint32_t interval0 = bisection(files[index].out_start0, in_pos)-1;
-            if (files[index].interval_type0[interval0] == 0) {
-                // 1:1 interval
-                uint32_t rel_pos0 = in_pos - files[index].out_start0[interval0];
-                uint32_t in_pos0 = files[index].in_start0[interval0] + rel_pos0;
-                return in_pos0;
-            } else {
-                // many to many interval
-                uint32_t in_pos0;
-                if (in_pos == files[index].out_start0[interval0+1]-1 || show_last) {
-                    // The end of the interval in "out" code
-                    // Return the end of the interval in "in" code
-                    in_pos0 = files[index].in_start0[interval0]+files[index].in_size0[interval0]-1;
-                } else {
-                    // Otherwise return the beginning of the interval in "in"
-                    in_pos0 = files[index].in_start0[interval0];
-                }
-                return in_pos0;
-            }
-        } else {
-            return in_pos;
-        }
-    }
-
-    // Converts a linear position `position` to a (line, col) tuple
-    // `position` starts from 0
-    // `line` and `col` starts from 1
-    // `in_newlines` starts from 0
-    void pos_to_linecol(uint32_t position, uint32_t &line, uint32_t &col,
-            std::string &filename) const {
-        // Determine where the error is from using position, i.e., loc
-        uint32_t index = bisection(file_ends, position);
-        if (index == file_ends.size()) index -= 1;
-        filename = files[index].in_filename;
-        // Get the actual location by subtracting the previous file size.
-        if (index > 0) position -= file_ends[index - 1];
-        const std::vector<uint32_t> *newlines;
-        if (files[index].preprocessor) {
-            newlines = &files[index].in_newlines0;
-        } else {
-            newlines = &files[index].in_newlines;
-        }
-        int32_t interval = bisection(*newlines, position);
-        if (interval >= 1 && position == (*newlines)[interval-1]) {
-            // position is exactly the \n character, make sure `line` is
-            // the line with \n, and `col` points to the position of \n
-            interval -= 1;
-        }
-        line = interval+1;
-        if (line == 1) {
-            col = position+1;
-        } else {
-            col = position-(*newlines)[interval-1];
-        }
-    }
-
-    void get_newlines(const std::string &s, std::vector<uint32_t> &newlines) {
-        for (uint32_t pos=0; pos < s.size(); pos++) {
-            if (s[pos] == '\n') newlines.push_back(pos);
-        }
-    }
-
-    void init_simple(const std::string &input) {
-        uint32_t n = input.size();
-        files.back().out_start = {0, n};
-        files.back().in_start = {0, n};
-        get_newlines(input, files.back().in_newlines);
-    }
-
-};
-
-
-} // namespace LCompilers
-
-
-#endif
diff --git a/src/libasr/lsp_interface.h b/src/libasr/lsp_interface.h
deleted file mode 100644
index fdb35ad7ec..0000000000
--- a/src/libasr/lsp_interface.h
+++ /dev/null
@@ -1,28 +0,0 @@
-#ifndef MESSAGE_HANDLER_HPP
-#define MESSAGE_HANDLER_HPP
-
-#include <string>
-
-namespace LCompilers {
-
-       struct error_highlight {
-              std::string message;
-              uint32_t first_line;
-              uint32_t first_column;
-              uint32_t last_line;
-              uint32_t last_column;
-              std::string filename;
-              uint32_t severity;
-       };
-       struct document_symbols {
-              std::string symbol_name;
-              uint32_t first_line;
-              uint32_t first_column;
-              uint32_t last_line;
-              uint32_t last_column;
-              std::string filename;
-       };
-
-} // namespace LCompilers
-
-#endif
diff --git a/src/libasr/modfile.cpp b/src/libasr/modfile.cpp
deleted file mode 100644
index 7adced26d7..0000000000
--- a/src/libasr/modfile.cpp
+++ /dev/null
@@ -1,110 +0,0 @@
-#include <string>
-
-#include <libasr/config.h>
-#include <libasr/asr_utils.h>
-#include <libasr/asr_verify.h>
-#include <libasr/modfile.h>
-#include <libasr/serialization.h>
-#include <libasr/bwriter.h>
-
-
-namespace LCompilers {
-
-const std::string lfortran_modfile_type_string = "LCompilers Modfile";
-
-inline void save_asr(const ASR::TranslationUnit_t &m, std::string& asr_string) {
-    #ifdef WITH_LFORTRAN_BINARY_MODFILES
-    BinaryWriter b;
-#else
-    TextWriter b;
-#endif
-    // Header
-    b.write_string(lfortran_modfile_type_string);
-    b.write_string(LFORTRAN_VERSION);
-
-    // AST section: Original module source code:
-    // Currently empty.
-    // Note: in the future we can save here:
-    // * A path to the original source code
-    // * Hash of the orig source code
-    // * AST binary export of it (this AST only changes if the hash changes)
-
-    // ASR section:
-
-    // Export ASR:
-    // Currently empty.
-
-    // Full ASR:
-    b.write_string(serialize(m));
-
-    asr_string = b.get_str();
-}
-
-// The save_modfile() and load_modfile() must stay consistent. What is saved
-// must be loaded in exactly the same order.
-
-/*
-    Saves the module into a binary stream.
-
-    That stream can be saved to a mod file by the caller.
-    The sections in the file/stream are saved using write_string(), so they
-    can be efficiently read by the loader and ignored if needed.
-
-    Comments below show some possible future improvements to the mod format.
-*/
-std::string save_modfile(const ASR::TranslationUnit_t &m) {
-    LCOMPILERS_ASSERT(m.m_global_scope->get_scope().size()== 1);
-    for (auto &a : m.m_global_scope->get_scope()) {
-        LCOMPILERS_ASSERT(ASR::is_a<ASR::Module_t>(*a.second));
-        if ((bool&)a) { } // Suppress unused warning in Release mode
-    }
-
-    std::string asr_string;
-    save_asr(m, asr_string);
-    return asr_string;
-}
-
-std::string save_pycfile(const ASR::TranslationUnit_t &m) {
-    std::string asr_string;
-    save_asr(m, asr_string);
-    return asr_string;
-}
-
-inline void load_serialised_asr(const std::string &s, std::string& asr_binary) {
-#ifdef WITH_LFORTRAN_BINARY_MODFILES
-    BinaryReader b(s);
-#else
-    TextReader b(s);
-#endif
-    std::string file_type = b.read_string();
-    if (file_type != lfortran_modfile_type_string) {
-        throw LCompilersException("LCompilers Modfile format not recognized");
-    }
-    std::string version = b.read_string();
-    if (version != LFORTRAN_VERSION) {
-        throw LCompilersException("Incompatible format: LFortran Modfile was generated using version '" + version + "', but current LFortran version is '" + LFORTRAN_VERSION + "'");
-    }
-    asr_binary = b.read_string();
-}
-
-ASR::TranslationUnit_t* load_modfile(Allocator &al, const std::string &s,
-        bool load_symtab_id, SymbolTable &symtab) {
-    std::string asr_binary;
-    load_serialised_asr(s, asr_binary);
-    ASR::asr_t *asr = deserialize_asr(al, asr_binary, load_symtab_id, symtab);
-
-    ASR::TranslationUnit_t *tu = ASR::down_cast2<ASR::TranslationUnit_t>(asr);
-    return tu;
-}
-
-ASR::TranslationUnit_t* load_pycfile(Allocator &al, const std::string &s,
-        bool load_symtab_id) {
-    std::string asr_binary;
-    load_serialised_asr(s, asr_binary);
-    ASR::asr_t *asr = deserialize_asr(al, asr_binary, load_symtab_id);
-
-    ASR::TranslationUnit_t *tu = ASR::down_cast2<ASR::TranslationUnit_t>(asr);
-    return tu;
-}
-
-} // namespace LCompilers
diff --git a/src/libasr/modfile.h b/src/libasr/modfile.h
deleted file mode 100644
index b331af42c9..0000000000
--- a/src/libasr/modfile.h
+++ /dev/null
@@ -1,22 +0,0 @@
-#ifndef LFORTRAN_MODFILE_H
-#define LFORTRAN_MODFILE_H
-
-#include <libasr/asr.h>
-
-namespace LCompilers {
-
-    // Save a module to a modfile
-    std::string save_modfile(const ASR::TranslationUnit_t &m);
-
-    std::string save_pycfile(const ASR::TranslationUnit_t &m);
-
-    // Load a module from a modfile
-    ASR::TranslationUnit_t* load_modfile(Allocator &al, const std::string &s,
-        bool load_symtab_id, SymbolTable &symtab);
-
-    ASR::TranslationUnit_t* load_pycfile(Allocator &al, const std::string &s,
-        bool load_symtab_id);
-
-} // namespace LCompilers
-
-#endif // LFORTRAN_MODFILE_H
diff --git a/src/libasr/pass/arr_slice.cpp b/src/libasr/pass/arr_slice.cpp
deleted file mode 100644
index dd49584f64..0000000000
--- a/src/libasr/pass/arr_slice.cpp
+++ /dev/null
@@ -1,214 +0,0 @@
-#include <libasr/asr.h>
-#include <libasr/containers.h>
-#include <libasr/exception.h>
-#include <libasr/asr_utils.h>
-#include <libasr/asr_verify.h>
-#include <libasr/pass/pass_utils.h>
-#include <libasr/pass/arr_slice.h>
-
-#include <vector>
-#include <utility>
-
-
-namespace LCompilers {
-
-/*
-This ASR pass replaces array slice with do loops and array expression assignments.
-The function `pass_replace_arr_slice` transforms the ASR tree in-place.
-
-Converts:
-
-    x = y(1:3)
-
-to:
-
-    do i = 1, 3
-        x(i) = y(i)
-    end do
-*/
-
-class ReplaceArraySection: public ASR::BaseExprReplacer<ReplaceArraySection> {
-
-    private:
-
-    Allocator& al;
-    Vec<ASR::stmt_t*>& pass_result;
-    size_t slice_counter;
-
-    public:
-
-    SymbolTable* current_scope;
-
-    ReplaceArraySection(Allocator& al_, Vec<ASR::stmt_t*>& pass_result_) :
-    al(al_), pass_result(pass_result_), slice_counter(0), current_scope(nullptr) {}
-
-    ASR::ttype_t* get_array_from_slice(ASR::ArraySection_t* x, ASR::expr_t* arr_var) {
-        Vec<ASR::dimension_t> m_dims;
-        m_dims.reserve(al, x->n_args);
-        ASR::ttype_t* int32_type = ASRUtils::TYPE(ASR::make_Integer_t(al, x->base.base.loc, 4, nullptr, 0));
-        ASR::expr_t* const_1 = ASRUtils::EXPR(ASR::make_IntegerConstant_t(al, x->base.base.loc, 1, int32_type));
-        for( size_t i = 0; i < x->n_args; i++ ) {
-            if( x->m_args[i].m_step != nullptr ) {
-                ASR::expr_t *start = nullptr, *end = nullptr, *step = nullptr;
-                if( x->m_args[i].m_left == nullptr ) {
-                    start = PassUtils::get_bound(arr_var, i + 1, "lbound", al);
-                } else {
-                    start = x->m_args[i].m_left;
-                }
-
-                if( x->m_args[i].m_right == nullptr ) {
-                    end = PassUtils::get_bound(arr_var, i + 1, "ubound", al);
-                } else {
-                    end = x->m_args[i].m_right;
-                }
-
-                if( x->m_args[i].m_step == nullptr ) {
-                    step = const_1;
-                } else {
-                    step = x->m_args[i].m_step;
-                }
-
-                start = PassUtils::to_int32(start, int32_type, al);
-                end = PassUtils::to_int32(end, int32_type, al);
-                step = PassUtils::to_int32(step, int32_type, al);
-
-                ASR::expr_t* gap = ASRUtils::EXPR(ASR::make_IntegerBinOp_t(al, x->base.base.loc,
-                                                        end, ASR::binopType::Sub, start, int32_type, nullptr));
-                ASR::expr_t* slice_size = ASRUtils::EXPR(ASR::make_IntegerBinOp_t(al, x->base.base.loc,
-                                                        gap, ASR::binopType::Div, step, int32_type, nullptr));
-                ASR::expr_t* actual_size = ASRUtils::EXPR(ASR::make_IntegerBinOp_t(al, x->base.base.loc,
-                                                        slice_size, ASR::binopType::Add, const_1, int32_type, nullptr));
-                ASR::dimension_t curr_dim;
-                curr_dim.loc = x->base.base.loc;
-                curr_dim.m_start = const_1;
-                curr_dim.m_length = actual_size;
-                m_dims.push_back(al, curr_dim);
-            } else {
-                ASR::dimension_t curr_dim;
-                curr_dim.loc = x->base.base.loc;
-                curr_dim.m_start = const_1;
-                curr_dim.m_length = const_1;
-                m_dims.push_back(al, curr_dim);
-            }
-        }
-
-        ASR::ttype_t* t2 = ASRUtils::type_get_past_pointer(x->m_type);
-        ASR::ttype_t* new_type = ASRUtils::duplicate_type(al, t2, &m_dims);
-        if (ASR::is_a<ASR::Pointer_t>(*x->m_type)) {
-            new_type = ASRUtils::TYPE(ASR::make_Pointer_t(al, x->base.base.loc, new_type));
-        }
-
-        return new_type;
-    }
-
-    void replace_ArraySection(ASR::ArraySection_t* x) {
-        LCOMPILERS_ASSERT(current_scope != nullptr);
-        ASR::expr_t* x_arr_var = x->m_v;
-        std::string new_name = "~" + std::to_string(slice_counter) + "_slice";
-        slice_counter += 1;
-        char* new_var_name = s2c(al, new_name);
-        ASR::asr_t* slice_asr = ASR::make_Variable_t(al, x->base.base.loc, current_scope, new_var_name, nullptr, 0,
-                                                    ASR::intentType::Local, nullptr, nullptr, ASR::storage_typeType::Default,
-                                                    get_array_from_slice(x, x_arr_var), ASR::abiType::Source, ASR::accessType::Public,
-                                                    ASR::presenceType::Required, false);
-        ASR::symbol_t* slice_sym = ASR::down_cast<ASR::symbol_t>(slice_asr);
-        current_scope->add_symbol(std::string(new_var_name), slice_sym);
-        *current_expr = ASRUtils::EXPR(ASR::make_Var_t(al, x->base.base.loc, slice_sym));
-        Vec<ASR::expr_t*> idx_vars_target, idx_vars_value;
-        PassUtils::create_idx_vars(idx_vars_target, x->n_args, x->base.base.loc, al, current_scope, "_t");
-        PassUtils::create_idx_vars(idx_vars_value, x->n_args, x->base.base.loc, al, current_scope, "_v");
-        ASR::stmt_t* doloop = nullptr;
-        int a_kind = ASRUtils::extract_kind_from_ttype_t(ASRUtils::expr_type(x->m_v));
-        ASR::ttype_t* int_type = ASRUtils::TYPE(ASR::make_Integer_t(al, x->base.base.loc, a_kind, nullptr, 0));
-        ASR::expr_t* const_1 = ASRUtils::EXPR(ASR::make_IntegerConstant_t(al, x->base.base.loc, 1, int_type));
-        for( int i = (int) x->n_args - 1; i >= 0; i-- ) {
-            ASR::do_loop_head_t head;
-            head.m_v = idx_vars_value[i];
-            if( x->m_args[i].m_step != nullptr ) {
-                if( x->m_args[i].m_left == nullptr ) {
-                    head.m_start = PassUtils::get_bound(x_arr_var, i + 1, "lbound", al);
-                } else {
-                    head.m_start = x->m_args[i].m_left;
-                }
-                if( x->m_args[i].m_right == nullptr ) {
-                    head.m_end = PassUtils::get_bound(x_arr_var, i + 1, "ubound", al);
-                } else {
-                    head.m_end = x->m_args[i].m_right;
-                }
-            } else {
-                head.m_start = x->m_args[i].m_right;
-                head.m_end = x->m_args[i].m_right;
-            }
-            head.m_increment = x->m_args[i].m_step;
-            head.loc = head.m_v->base.loc;
-            Vec<ASR::stmt_t*> doloop_body;
-            doloop_body.reserve(al, 1);
-            if( doloop == nullptr ) {
-                ASR::expr_t* target_ref = PassUtils::create_array_ref(slice_sym, idx_vars_target, al, x->base.base.loc, x->m_type);
-                ASR::expr_t* value_ref = PassUtils::create_array_ref(x->m_v, idx_vars_value, al);
-                ASR::stmt_t* assign_stmt = ASRUtils::STMT(ASR::make_Assignment_t(al, x->base.base.loc, target_ref, value_ref, nullptr));
-                doloop_body.push_back(al, assign_stmt);
-            } else {
-                ASR::stmt_t* set_to_one = ASRUtils::STMT(ASR::make_Assignment_t(al, x->base.base.loc, idx_vars_target[i+1], const_1, nullptr));
-                doloop_body.push_back(al, set_to_one);
-                doloop_body.push_back(al, doloop);
-            }
-            ASR::expr_t* inc_expr = ASRUtils::EXPR(ASR::make_IntegerBinOp_t(al, x->base.base.loc, idx_vars_target[i], ASR::binopType::Add, const_1, int_type, nullptr));
-            ASR::stmt_t* assign_stmt = ASRUtils::STMT(ASR::make_Assignment_t(al, x->base.base.loc, idx_vars_target[i], inc_expr, nullptr));
-            doloop_body.push_back(al, assign_stmt);
-            doloop = ASRUtils::STMT(ASR::make_DoLoop_t(al, x->base.base.loc, head, doloop_body.p, doloop_body.size()));
-        }
-        ASR::stmt_t* set_to_one = ASRUtils::STMT(ASR::make_Assignment_t(al, x->base.base.loc, idx_vars_target[0], const_1, nullptr));
-        pass_result.push_back(al, set_to_one);
-        pass_result.push_back(al, doloop);
-    }
-
-};
-
-class ArraySectionVisitor : public ASR::CallReplacerOnExpressionsVisitor<ArraySectionVisitor>
-{
-    private:
-
-        Allocator& al;
-        ReplaceArraySection replacer;
-        Vec<ASR::stmt_t*> pass_result;
-
-    public:
-
-        ArraySectionVisitor(Allocator& al_) :
-        al(al_), replacer(al_, pass_result) {
-            pass_result.reserve(al_, 1);
-        }
-
-        void call_replacer() {
-            replacer.current_expr = current_expr;
-            replacer.replace_expr(*current_expr);
-            replacer.current_scope = current_scope;
-        }
-
-        void transform_stmts(ASR::stmt_t **&m_body, size_t &n_body) {
-            Vec<ASR::stmt_t*> body;
-            body.reserve(al, n_body);
-            for (size_t i=0; i<n_body; i++) {
-                pass_result.n = 0;
-                visit_stmt(*m_body[i]);
-                for (size_t j=0; j < pass_result.size(); j++) {
-                    body.push_back(al, pass_result[j]);
-                }
-                body.push_back(al, m_body[i]);
-            }
-            m_body = body.p;
-            n_body = body.size();
-        }
-
-};
-
-void pass_replace_arr_slice(Allocator &al, ASR::TranslationUnit_t &unit,
-                            const LCompilers::PassOptions& /*pass_options*/) {
-    ArraySectionVisitor v(al);
-    v.visit_TranslationUnit(unit);
-    PassUtils::UpdateDependenciesVisitor u(al);
-    u.visit_TranslationUnit(unit);
-}
-
-} // namespace LCompilers
diff --git a/src/libasr/pass/arr_slice.h b/src/libasr/pass/arr_slice.h
deleted file mode 100644
index a2ab04bd18..0000000000
--- a/src/libasr/pass/arr_slice.h
+++ /dev/null
@@ -1,14 +0,0 @@
-#ifndef LFORTRAN_PASS_ARR_SLICE_H
-#define LFORTRAN_PASS_ARR_SLICE_H
-
-#include <libasr/asr.h>
-#include <libasr/utils.h>
-
-namespace LCompilers {
-
-    void pass_replace_arr_slice(Allocator &al, ASR::TranslationUnit_t &unit,
-                                const LCompilers::PassOptions& pass_options);
-
-} // namespace LCompilers
-
-#endif // LFORTRAN_PASS_ARR_SLICE_H
diff --git a/src/libasr/pass/array_op.cpp b/src/libasr/pass/array_op.cpp
deleted file mode 100644
index 8c1a51e131..0000000000
--- a/src/libasr/pass/array_op.cpp
+++ /dev/null
@@ -1,986 +0,0 @@
-#include <libasr/asr.h>
-#include <libasr/containers.h>
-#include <libasr/exception.h>
-#include <libasr/asr_utils.h>
-#include <libasr/asr_verify.h>
-#include <libasr/pass/array_op.h>
-#include <libasr/pass/pass_utils.h>
-
-#include <vector>
-#include <utility>
-
-
-namespace LCompilers {
-
-using ASR::down_cast;
-using ASR::is_a;
-
-/*
-This ASR pass replaces operations over arrays with do loops.
-The function `pass_replace_array_op` transforms the ASR tree in-place.
-
-Converts:
-
-    c = a + b
-
-to:
-
-    do i = lbound(a), ubound(a)
-        c(i) = a(i) + b(i)
-    end do
-
-The code below might seem intriguing because of minor but crucial
-details. Generally for any node, first, its children are visited.
-If any child contains operations over arrays then, the do loop
-pass is added for performing the operation element wise. For storing
-the result, either a new variable is created or a result variable
-available from the parent node is used. Once done, this result variable
-is used by the parent node in place of the child node from which it was
-made available. Consider the example below for better understanding.
-
-Say, BinOp(BinOp(Arr1 Add Arr2) Add Arr3) is the expression we want
-to visit. Then, first BinOp(Arr1 Add Arr2) will be visited and its
-result will be stored (not actually, just extra ASR do loop node will be added)
-in a new variable, Say Result1. Then this Result1 will be used as follows,
-BinOp(Result1 Add Arr3). Imagine, this overall expression is further
-assigned to some Fortran variable as, Assign(Var1, BinOp(Result1 Add Arr3)).
-In this case a new variable will not be created to store the result of RHS, just Var1
-will be used as the final destination and a do loop pass will be added as follows,
-do i = lbound(Var1), ubound(Var1)
-
-Var1(i) = Result1(i) + Arr3(i)
-
-end do
-
-Note that once the control will reach the above loop, the loop for
-Result1 would have already been executed.
-
-All the nodes should be implemented using the above logic to track
-array operations and perform the do loop pass. As of now, some of the
-nodes are implemented and more are yet to be implemented with time.
-*/
-
-class ArrayOpVisitor : public PassUtils::PassVisitor<ArrayOpVisitor>
-{
-private:
-
-    /*
-        This pointer stores the result of a node.
-        Specifically if a node or its child contains
-        operations performed over arrays then it points
-        to the new variable which will store the result
-        of that operation once the code is compiled.
-    */
-    ASR::expr_t *tmp_val;
-
-    /*
-        This pointer is intened to be a signal for the current
-        node to create a new variable for storing the result of
-        array operation or store it in a variable available from
-        the parent node. For example, if BinOp is a child of the
-        Assignment node then, the following will point to the target
-        attribute of the assignment node. This helps in avoiding
-        unnecessary do loop passes.
-    */
-    ASR::expr_t *result_var;
-    Vec<ASR::expr_t*> result_lbound, result_ubound, result_inc;
-    bool use_custom_loop_params;
-
-    /*
-        This integer just maintains the count of new result
-        variables created. It helps in uniquely identifying
-        the variables and avoids clash with already existing
-        variables defined by the user.
-    */
-    int result_var_num;
-
-    std::string rl_path;
-
-public:
-    ArrayOpVisitor(Allocator &al,
-        const std::string &rl_path) : PassVisitor(al, nullptr),
-    tmp_val(nullptr), result_var(nullptr), use_custom_loop_params(false),
-    result_var_num(0), rl_path(rl_path)
-    {
-        pass_result.reserve(al, 1);
-        result_lbound.reserve(al, 1);
-        result_ubound.reserve(al, 1);
-        result_inc.reserve(al, 1);
-    }
-
-    ASR::symbol_t* create_subroutine_from_function(ASR::Function_t* s) {
-        for( auto& s_item: s->m_symtab->get_scope() ) {
-            ASR::symbol_t* curr_sym = s_item.second;
-            if( curr_sym->type == ASR::symbolType::Variable ) {
-                ASR::Variable_t* var = ASR::down_cast<ASR::Variable_t>(curr_sym);
-                if( var->m_intent == ASR::intentType::Unspecified ) {
-                    var->m_intent = ASR::intentType::In;
-                } else if( var->m_intent == ASR::intentType::ReturnVar ) {
-                    var->m_intent = ASR::intentType::Out;
-                }
-            }
-        }
-        Vec<ASR::expr_t*> a_args;
-        a_args.reserve(al, s->n_args + 1);
-        for( size_t i = 0; i < s->n_args; i++ ) {
-            a_args.push_back(al, s->m_args[i]);
-        }
-        LCOMPILERS_ASSERT(s->m_return_var)
-        a_args.push_back(al, s->m_return_var);
-        ASR::FunctionType_t* s_func_type = ASR::down_cast<ASR::FunctionType_t>(s->m_function_signature);
-        ASR::asr_t* s_sub_asr = ASRUtils::make_Function_t_util(al, s->base.base.loc,
-            s->m_symtab, s->m_name, s->m_dependencies, s->n_dependencies,
-            a_args.p, a_args.size(), s->m_body, s->n_body,
-            nullptr, s_func_type->m_abi, s->m_access, s_func_type->m_deftype,
-            nullptr, false, false, false, s_func_type->m_inline, s_func_type->m_static,
-            s_func_type->m_type_params, s_func_type->n_type_params, s_func_type->m_restrictions,
-            s_func_type->n_restrictions, s_func_type->m_is_restriction, s->m_deterministic,
-            s->m_side_effect_free);
-        ASR::symbol_t* s_sub = ASR::down_cast<ASR::symbol_t>(s_sub_asr);
-        return s_sub;
-    }
-
-    // TODO: Only Program and While is processed, we need to process all calls
-    // to visit_stmt().
-    // TODO: Only TranslationUnit's and Program's symbol table is processed
-    // for transforming function->subroutine if they return arrays
-
-    void visit_TranslationUnit(const ASR::TranslationUnit_t &x) {
-        std::vector<std::pair<std::string, ASR::symbol_t*>> replace_vec;
-        // Transform functions returning arrays to subroutines
-        for (auto &item : x.m_global_scope->get_scope()) {
-            if (is_a<ASR::Function_t>(*item.second)) {
-                ASR::Function_t *s = down_cast<ASR::Function_t>(item.second);
-                if (s->m_return_var) {
-                    /*
-                    * A function which returns an array will be converted
-                    * to a subroutine with the destination array as the last
-                    * argument. This helps in avoiding deep copies and the
-                    * destination memory directly gets filled inside the subroutine.
-                    */
-                    if( PassUtils::is_array(s->m_return_var) ) {
-                        ASR::symbol_t* s_sub = create_subroutine_from_function(s);
-                        replace_vec.push_back(std::make_pair(item.first, s_sub));
-                    }
-                }
-            }
-        }
-
-        // FIXME: this is a hack, we need to pass in a non-const `x`,
-        // which requires to generate a TransformVisitor.
-        ASR::TranslationUnit_t &xx = const_cast<ASR::TranslationUnit_t&>(x);
-        // Updating the symbol table so that now the name
-        // of the function (which returned array) now points
-        // to the newly created subroutine.
-        for( auto& item: replace_vec ) {
-            xx.m_global_scope->add_symbol(item.first, item.second);
-        }
-
-        // Now visit everything else
-        for (auto &item : x.m_global_scope->get_scope()) {
-            this->visit_symbol(*item.second);
-        }
-    }
-
-    void visit_Program(const ASR::Program_t &x) {
-        std::vector<std::pair<std::string, ASR::symbol_t*> > replace_vec;
-        // FIXME: this is a hack, we need to pass in a non-const `x`,
-        // which requires to generate a TransformVisitor.
-        ASR::Program_t &xx = const_cast<ASR::Program_t&>(x);
-        current_scope = xx.m_symtab;
-
-        for (auto &item : x.m_symtab->get_scope()) {
-            if (is_a<ASR::Function_t>(*item.second)) {
-                ASR::Function_t *s = ASR::down_cast<ASR::Function_t>(item.second);
-                if (s->m_return_var) {
-                    /*
-                    * A function which returns an array will be converted
-                    * to a subroutine with the destination array as the last
-                    * argument. This helps in avoiding deep copies and the
-                    * destination memory directly gets filled inside the subroutine.
-                    */
-                    if( PassUtils::is_array(s->m_return_var) ) {
-                        ASR::symbol_t* s_sub = create_subroutine_from_function(s);
-                        replace_vec.push_back(std::make_pair(item.first, s_sub));
-                    }
-                }
-            }
-        }
-
-        // Updating the symbol table so that now the name
-        // of the function (which returned array) now points
-        // to the newly created subroutine.
-        for( auto& item: replace_vec ) {
-            current_scope->add_symbol(item.first, item.second);
-        }
-
-        for (auto &item : x.m_symtab->get_scope()) {
-            if (is_a<ASR::AssociateBlock_t>(*item.second)) {
-                ASR::AssociateBlock_t *s = ASR::down_cast<ASR::AssociateBlock_t>(item.second);
-                visit_AssociateBlock(*s);
-            }
-            if (is_a<ASR::Function_t>(*item.second)) {
-                ASR::Function_t *s = ASR::down_cast<ASR::Function_t>(item.second);
-                visit_Function(*s);
-            }
-        }
-
-        current_scope = xx.m_symtab;
-        transform_stmts(xx.m_body, xx.n_body);
-
-    }
-
-    void visit_Assignment(const ASR::Assignment_t& x) {
-        if( (ASR::is_a<ASR::Pointer_t>(*ASRUtils::expr_type(x.m_target)) &&
-             ASR::is_a<ASR::GetPointer_t>(*x.m_value)) ) {
-            return ;
-        }
-        if( ASR::is_a<ASR::ArrayReshape_t>(*x.m_value) ) {
-            this->visit_expr(*x.m_value);
-            return ;
-        }
-        if( PassUtils::is_array(x.m_target) ) {
-            result_var = x.m_target;
-            this->visit_expr(*(x.m_value));
-        } else if( ASR::is_a<ASR::ArraySection_t>(*x.m_target) ) {
-            ASR::ArraySection_t* array_ref = ASR::down_cast<ASR::ArraySection_t>(x.m_target);
-            result_var = array_ref->m_v;
-            result_lbound.reserve(al, array_ref->n_args);
-            result_ubound.reserve(al, array_ref->n_args);
-            result_inc.reserve(al, array_ref->n_args);
-            ASR::expr_t *m_start, *m_end, *m_increment;
-            m_start = m_end = m_increment = nullptr;
-            for( int i = 0; i < (int) array_ref->n_args; i++ ) {
-                if( array_ref->m_args[i].m_step != nullptr ) {
-                    if( array_ref->m_args[i].m_left == nullptr ) {
-                        m_start = PassUtils::get_bound(result_var, i + 1, "lbound", al);
-                    } else {
-                        m_start = array_ref->m_args[i].m_left;
-                    }
-                    if( array_ref->m_args[i].m_right == nullptr ) {
-                        m_end = PassUtils::get_bound(result_var, i + 1, "ubound", al);
-                    } else {
-                        m_end = array_ref->m_args[i].m_right;
-                    }
-                } else {
-                    m_start = array_ref->m_args[i].m_right;
-                    m_end = array_ref->m_args[i].m_right;
-                }
-                m_increment = array_ref->m_args[i].m_step;
-                result_lbound.push_back(al, m_start);
-                result_ubound.push_back(al, m_end);
-                result_inc.push_back(al, m_increment);
-            }
-            use_custom_loop_params = true;
-            this->visit_expr(*(x.m_value));
-        }
-        result_var = nullptr;
-    }
-
-    void visit_ArrayReshape(const ASR::ArrayReshape_t& x) {
-        tmp_val = const_cast<ASR::expr_t*>(&(x.base));
-        if( ASRUtils::is_array(ASRUtils::expr_type(x.m_array)) &&
-            !ASR::is_a<ASR::Var_t>(*x.m_array)) {
-            result_var = nullptr;
-            this->visit_expr(*x.m_array);
-            if( tmp_val ) {
-                ASR::ArrayReshape_t& xx = const_cast<ASR::ArrayReshape_t&>(x);
-                xx.m_array = tmp_val;
-                retain_original_stmt = true;
-                remove_original_stmt = false;
-            }
-        }
-    }
-
-    ASR::ttype_t* get_matching_type(ASR::expr_t* sibling) {
-        ASR::ttype_t* sibling_type = ASRUtils::expr_type(sibling);
-        if( sibling->type != ASR::exprType::Var ) {
-            return sibling_type;
-        }
-        ASR::dimension_t* m_dims;
-        int ndims;
-        PassUtils::get_dim_rank(sibling_type, m_dims, ndims);
-        for( int i = 0; i < ndims; i++ ) {
-            if( m_dims[i].m_start != nullptr ||
-                m_dims[i].m_length != nullptr ) {
-                return sibling_type;
-            }
-        }
-        Vec<ASR::dimension_t> new_m_dims;
-        new_m_dims.reserve(al, ndims);
-        for( int i = 0; i < ndims; i++ ) {
-            ASR::dimension_t new_m_dim;
-            new_m_dim.loc = m_dims[i].loc;
-            new_m_dim.m_start = PassUtils::get_bound(sibling, i + 1, "lbound", al);
-            new_m_dim.m_length = ASRUtils::compute_length_from_start_end(al, new_m_dim.m_start,
-                                     PassUtils::get_bound(sibling, i + 1, "ubound", al));
-            new_m_dims.push_back(al, new_m_dim);
-        }
-        return PassUtils::set_dim_rank(sibling_type, new_m_dims.p, ndims, true, &al);
-    }
-
-    ASR::expr_t* create_var(int counter, std::string suffix, const Location& loc,
-                            ASR::ttype_t* var_type) {
-        ASR::expr_t* idx_var = nullptr;
-        Str str_name;
-        str_name.from_str(al, "~" + std::to_string(counter) + suffix);
-        const char* const_idx_var_name = str_name.c_str(al);
-        char* idx_var_name = (char*)const_idx_var_name;
-
-        if( current_scope->get_symbol(std::string(idx_var_name)) == nullptr ) {
-            ASR::asr_t* idx_sym = ASR::make_Variable_t(al, loc, current_scope, idx_var_name, nullptr, 0,
-                                                    ASR::intentType::Local, nullptr, nullptr, ASR::storage_typeType::Default,
-                                                    var_type, ASR::abiType::Source, ASR::accessType::Public, ASR::presenceType::Required,
-                                                    false);
-            current_scope->add_symbol(std::string(idx_var_name), ASR::down_cast<ASR::symbol_t>(idx_sym));
-            idx_var = ASRUtils::EXPR(ASR::make_Var_t(al, loc, ASR::down_cast<ASR::symbol_t>(idx_sym)));
-        } else {
-            ASR::symbol_t* idx_sym = current_scope->get_symbol(std::string(idx_var_name));
-            idx_var = ASRUtils::EXPR(ASR::make_Var_t(al, loc, idx_sym));
-        }
-
-        return idx_var;
-    }
-
-    ASR::expr_t* create_var(int counter, std::string suffix, const Location& loc,
-                            ASR::expr_t* sibling) {
-        ASR::ttype_t* var_type = get_matching_type(sibling);
-        return create_var(counter, suffix, loc, var_type);
-    }
-
-    void visit_IntegerConstant(const ASR::IntegerConstant_t& x) {
-        tmp_val = const_cast<ASR::expr_t*>(&(x.base));
-    }
-
-    void visit_ComplexConstant(const ASR::ComplexConstant_t& x) {
-        tmp_val = const_cast<ASR::expr_t*>(&(x.base));
-    }
-
-    void visit_RealConstant(const ASR::RealConstant_t& x) {
-        tmp_val = const_cast<ASR::expr_t*>(&(x.base));
-    }
-
-    void visit_LogicalConstant(const ASR::LogicalConstant_t& x) {
-        tmp_val = const_cast<ASR::expr_t*>(&(x.base));
-    }
-
-    void fix_dimension(const ASR::Cast_t& x, ASR::expr_t* arg_expr) {
-        ASR::ttype_t* x_type = const_cast<ASR::ttype_t*>(x.m_type);
-        ASR::ttype_t* arg_type = ASRUtils::expr_type(arg_expr);
-        ASR::dimension_t* m_dims;
-        int ndims;
-        PassUtils::get_dim_rank(arg_type, m_dims, ndims);
-        PassUtils::set_dim_rank(x_type, m_dims, ndims);
-    }
-
-    void visit_Cast(const ASR::Cast_t& x) {
-        ASR::expr_t* result_var_copy = result_var;
-        result_var = nullptr;
-        this->visit_expr(*(x.m_arg));
-        result_var = result_var_copy;
-        if( tmp_val != nullptr && PassUtils::is_array(tmp_val) ) {
-            if( result_var == nullptr ) {
-                fix_dimension(x, tmp_val);
-                result_var = create_var(result_var_num, std::string("_implicit_cast_res"), x.base.base.loc, const_cast<ASR::expr_t*>(&(x.base)));
-                result_var_num += 1;
-            }
-            int n_dims = PassUtils::get_rank(result_var);
-            Vec<ASR::expr_t*> idx_vars;
-            PassUtils::create_idx_vars(idx_vars, n_dims, x.base.base.loc, al, current_scope);
-            ASR::stmt_t* doloop = nullptr;
-            for( int i = n_dims - 1; i >= 0; i-- ) {
-                ASR::do_loop_head_t head;
-                head.m_v = idx_vars[i];
-                head.m_start = PassUtils::get_bound(result_var, i + 1, "lbound", al);
-                head.m_end = PassUtils::get_bound(result_var, i + 1, "ubound", al);
-                head.m_increment = nullptr;
-                head.loc = head.m_v->base.loc;
-                Vec<ASR::stmt_t*> doloop_body;
-                doloop_body.reserve(al, 1);
-                if( doloop == nullptr ) {
-                    ASR::expr_t* ref = PassUtils::create_array_ref(tmp_val, idx_vars, al);
-                    ASR::expr_t* res = PassUtils::create_array_ref(result_var, idx_vars, al);
-                    ASR::expr_t* impl_cast_el_wise = ASRUtils::EXPR(ASR::make_Cast_t(al, x.base.base.loc, ref, x.m_kind, x.m_type, nullptr));
-                    ASR::stmt_t* assign = ASRUtils::STMT(ASR::make_Assignment_t(al, x.base.base.loc, res, impl_cast_el_wise, nullptr));
-                    doloop_body.push_back(al, assign);
-                } else {
-                    doloop_body.push_back(al, doloop);
-                }
-                doloop = ASRUtils::STMT(ASR::make_DoLoop_t(al, x.base.base.loc, head, doloop_body.p, doloop_body.size()));
-            }
-            pass_result.push_back(al, doloop);
-            tmp_val = result_var;
-        } else {
-            tmp_val = const_cast<ASR::expr_t*>(&(x.base));
-        }
-    }
-
-    void visit_Var(const ASR::Var_t& x) {
-        tmp_val = const_cast<ASR::expr_t*>(&(x.base));
-        if( result_var != nullptr && PassUtils::is_array(result_var) ) {
-            int rank_var = PassUtils::get_rank(tmp_val);
-            int n_dims = rank_var;
-            Vec<ASR::expr_t*> idx_vars;
-            PassUtils::create_idx_vars(idx_vars, n_dims, x.base.base.loc, al, current_scope);
-            ASR::stmt_t* doloop = nullptr;
-            for( int i = n_dims - 1; i >= 0; i-- ) {
-                // TODO: Add an If debug node to check if the lower and upper bounds of both the arrays are same.
-                ASR::do_loop_head_t head;
-                head.m_v = idx_vars[i];
-                head.m_start = PassUtils::get_bound(result_var, i + 1, "lbound", al);
-                head.m_end = PassUtils::get_bound(result_var, i + 1, "ubound", al);
-                head.m_increment = nullptr;
-                head.loc = head.m_v->base.loc;
-                Vec<ASR::stmt_t*> doloop_body;
-                doloop_body.reserve(al, 1);
-                if( doloop == nullptr ) {
-                    ASR::expr_t* ref = nullptr;
-                    if( rank_var > 0 ) {
-                        ref = PassUtils::create_array_ref(tmp_val, idx_vars, al);
-                    } else {
-                        ref = tmp_val;
-                    }
-                    ASR::expr_t* res = PassUtils::create_array_ref(result_var, idx_vars, al);
-                    ASR::stmt_t* assign = ASRUtils::STMT(ASR::make_Assignment_t(al, x.base.base.loc, res, ref, nullptr));
-                    doloop_body.push_back(al, assign);
-                } else {
-                    doloop_body.push_back(al, doloop);
-                }
-                doloop = ASRUtils::STMT(ASR::make_DoLoop_t(al, x.base.base.loc, head, doloop_body.p, doloop_body.size()));
-            }
-            pass_result.push_back(al, doloop);
-            tmp_val = nullptr;
-        }
-    }
-
-    void visit_IntegerUnaryMinus(const ASR::IntegerUnaryMinus_t &x) {
-        handle_UnaryOp(x, 0);
-    }
-    void visit_RealUnaryMinus(const ASR::RealUnaryMinus_t &x) {
-        handle_UnaryOp(x, 1);
-    }
-    void visit_ComplexUnaryMinus(const ASR::ComplexUnaryMinus_t &x) {
-        handle_UnaryOp(x, 2);
-    }
-    void visit_IntegerBitNot(const ASR::IntegerBitNot_t &x) {
-        handle_UnaryOp(x, 3);
-    }
-    void visit_LogicalNot(const ASR::LogicalNot_t &x) {
-        handle_UnaryOp(x, 4);
-    }
-
-    template<typename T>
-    void handle_UnaryOp(const T& x, int unary_type) {
-        std::string res_prefix = "_unary_op_res";
-        ASR::expr_t* result_var_copy = result_var;
-        result_var = nullptr;
-        this->visit_expr(*(x.m_arg));
-        ASR::expr_t* operand = tmp_val;
-        int rank_operand = PassUtils::get_rank(operand);
-        if( rank_operand == 0 ) {
-            tmp_val = const_cast<ASR::expr_t*>(&(x.base));
-            return ;
-        }
-        if( rank_operand > 0 ) {
-            result_var = result_var_copy;
-            if( result_var == nullptr ) {
-                result_var = create_var(result_var_num, res_prefix,
-                                        x.base.base.loc, operand);
-                result_var_num += 1;
-            }
-            tmp_val = result_var;
-
-            int n_dims = rank_operand;
-            Vec<ASR::expr_t*> idx_vars;
-            PassUtils::create_idx_vars(idx_vars, n_dims, x.base.base.loc, al, current_scope);
-            ASR::stmt_t* doloop = nullptr;
-            for( int i = n_dims - 1; i >= 0; i-- ) {
-                // TODO: Add an If debug node to check if the lower and upper bounds of both the arrays are same.
-                ASR::do_loop_head_t head;
-                head.m_v = idx_vars[i];
-                head.m_start = PassUtils::get_bound(result_var, i + 1, "lbound", al);
-                head.m_end = PassUtils::get_bound(result_var, i + 1, "ubound", al);
-                head.m_increment = nullptr;
-                head.loc = head.m_v->base.loc;
-                Vec<ASR::stmt_t*> doloop_body;
-                doloop_body.reserve(al, 1);
-                if( doloop == nullptr ) {
-                    ASR::expr_t* ref = PassUtils::create_array_ref(operand, idx_vars, al);
-                    ASR::expr_t* res = PassUtils::create_array_ref(result_var, idx_vars, al);
-                    ASR::expr_t* op_el_wise = nullptr;
-                    if (unary_type == 0) {
-                        op_el_wise = ASRUtils::EXPR(ASR::make_IntegerUnaryMinus_t(al, x.base.base.loc,
-                            ref, x.m_type, nullptr));
-                    } else if (unary_type == 1) {
-                        op_el_wise = ASRUtils::EXPR(ASR::make_RealUnaryMinus_t(al, x.base.base.loc,
-                            ref, x.m_type, nullptr));
-                    } else if (unary_type == 2) {
-                        op_el_wise = ASRUtils::EXPR(ASR::make_ComplexUnaryMinus_t(al, x.base.base.loc,
-                            ref, x.m_type, nullptr));
-                    } else if (unary_type == 3) {
-                        op_el_wise = ASRUtils::EXPR(ASR::make_IntegerBitNot_t(al, x.base.base.loc,
-                            ref, x.m_type, nullptr));
-                    } else if (unary_type == 4) {
-                        op_el_wise = ASRUtils::EXPR(ASR::make_LogicalNot_t(al, x.base.base.loc,
-                            ref, x.m_type, nullptr));
-                    }
-                    ASR::stmt_t* assign = ASRUtils::STMT(ASR::make_Assignment_t(al, x.base.base.loc, res, op_el_wise, nullptr));
-                    doloop_body.push_back(al, assign);
-                } else {
-                    doloop_body.push_back(al, doloop);
-                }
-                doloop = ASRUtils::STMT(ASR::make_DoLoop_t(al, x.base.base.loc, head, doloop_body.p, doloop_body.size()));
-            }
-            pass_result.push_back(al, doloop);
-        }
-    }
-
-    bool is_elemental(ASR::symbol_t* x) {
-        x = ASRUtils::symbol_get_past_external(x);
-        if( !ASR::is_a<ASR::Function_t>(*x) ) {
-            return false;
-        }
-        return ASRUtils::get_FunctionType(
-            ASR::down_cast<ASR::Function_t>(x))->m_elemental;
-    }
-
-    template <typename T>
-    void visit_ArrayOpCommon(const T& x, std::string res_prefix) {
-        bool current_status = use_custom_loop_params;
-        use_custom_loop_params = false;
-        ASR::expr_t* result_var_copy = result_var;
-        result_var = nullptr;
-        this->visit_expr(*(x.m_left));
-        ASR::expr_t* left = tmp_val;
-        result_var = nullptr;
-        this->visit_expr(*(x.m_right));
-        ASR::expr_t* right = tmp_val;
-        use_custom_loop_params = current_status;
-        int rank_left = PassUtils::get_rank(left);
-        int rank_right = PassUtils::get_rank(right);
-        if( rank_left == 0 && rank_right == 0 ) {
-            tmp_val = const_cast<ASR::expr_t*>(&(x.base));
-            return ;
-        }
-        if( rank_left > 0 && rank_right > 0 ) {
-            if( rank_left != rank_right ) {
-                // This should be checked by verify() and thus should not happen
-                throw LCompilersException("Cannot generate loop for operands of different shapes");
-            }
-            result_var = result_var_copy;
-            if( result_var == nullptr ) {
-                result_var = create_var(result_var_num, res_prefix, x.base.base.loc, left);
-                result_var_num += 1;
-            }
-            tmp_val = result_var;
-
-            int n_dims = rank_left;
-            Vec<ASR::expr_t*> idx_vars, idx_vars_value;
-            PassUtils::create_idx_vars(idx_vars, n_dims, x.base.base.loc, al, current_scope, "_t");
-            PassUtils::create_idx_vars(idx_vars_value, n_dims, x.base.base.loc, al, current_scope, "_v");
-            ASR::ttype_t* int32_type = ASRUtils::TYPE(ASR::make_Integer_t(al, x.base.base.loc, 4, nullptr, 0));
-            ASR::expr_t* const_1 = ASRUtils::EXPR(ASR::make_IntegerConstant_t(al, x.base.base.loc, 1, int32_type));
-            ASR::stmt_t* doloop = nullptr;
-            for( int i = n_dims - 1; i >= 0; i-- ) {
-                // TODO: Add an If debug node to check if the lower and upper bounds of both the arrays are same.
-                ASR::do_loop_head_t head;
-                head.m_v = idx_vars[i];
-                if( use_custom_loop_params ) {
-                    head.m_start = result_lbound[i];
-                    head.m_end = result_ubound[i];
-                    head.m_increment = result_inc[i];
-                } else {
-                    head.m_start = PassUtils::get_bound(result_var, i + 1, "lbound", al);
-                    head.m_end = PassUtils::get_bound(result_var, i + 1, "ubound", al);
-                    head.m_increment = nullptr;
-                }
-                head.loc = head.m_v->base.loc;
-                Vec<ASR::stmt_t*> doloop_body;
-                doloop_body.reserve(al, 1);
-                if( doloop == nullptr ) {
-                    ASR::expr_t* ref_1 = PassUtils::create_array_ref(left, idx_vars_value, al);
-                    ASR::expr_t* ref_2 = PassUtils::create_array_ref(right, idx_vars_value, al);
-                    ASR::expr_t* res = PassUtils::create_array_ref(result_var, idx_vars, al);
-                    ASR::expr_t* op_el_wise = nullptr;
-                    switch( x.class_type ) {
-                        case ASR::exprType::IntegerBinOp:
-                            op_el_wise = ASRUtils::EXPR(ASR::make_IntegerBinOp_t(
-                                                al, x.base.base.loc,
-                                                ref_1, (ASR::binopType)x.m_op, ref_2, x.m_type, nullptr));
-                            break;
-                        case ASR::exprType::RealBinOp:
-                            op_el_wise = ASRUtils::EXPR(ASR::make_RealBinOp_t(
-                                                al, x.base.base.loc,
-                                                ref_1, (ASR::binopType)x.m_op, ref_2, x.m_type, nullptr));
-                            break;
-                        case ASR::exprType::ComplexBinOp:
-                            op_el_wise = ASRUtils::EXPR(ASR::make_ComplexBinOp_t(
-                                                al, x.base.base.loc,
-                                                ref_1, (ASR::binopType)x.m_op, ref_2, x.m_type, nullptr));
-                            break;
-                        case ASR::exprType::LogicalBinOp:
-                            op_el_wise = ASRUtils::EXPR(ASR::make_LogicalBinOp_t(
-                                                al, x.base.base.loc,
-                                                ref_1, (ASR::logicalbinopType)x.m_op, ref_2, x.m_type, nullptr));
-                            break;
-                       case ASR::exprType::IntegerCompare:
-                            op_el_wise = ASRUtils::EXPR(ASR::make_IntegerCompare_t(
-                                                    al, x.base.base.loc,
-                                                    ref_1, (ASR::cmpopType)x.m_op, ref_2, x.m_type, nullptr));
-                            break;
-                        case ASR::exprType::RealCompare:
-                            op_el_wise = ASRUtils::EXPR(ASR::make_RealCompare_t(
-                                                    al, x.base.base.loc,
-                                                    ref_1, (ASR::cmpopType)x.m_op, ref_2, x.m_type, nullptr));
-                            break;
-                        case ASR::exprType::ComplexCompare:
-                            op_el_wise = ASRUtils::EXPR(ASR::make_ComplexCompare_t(
-                                                    al, x.base.base.loc,
-                                                    ref_1, (ASR::cmpopType)x.m_op, ref_2, x.m_type, nullptr));
-                            break;
-                        case ASR::exprType::LogicalCompare:
-                            op_el_wise = ASRUtils::EXPR(ASR::make_LogicalCompare_t(
-                                                    al, x.base.base.loc,
-                                                    ref_1, (ASR::cmpopType)x.m_op, ref_2, x.m_type, nullptr));
-                            break;
-                        default:
-                            throw LCompilersException("The desired operation is not supported yet for arrays.");
-                    }
-                    ASR::stmt_t* assign = ASRUtils::STMT(ASR::make_Assignment_t(al, x.base.base.loc, res, op_el_wise, nullptr));
-                    doloop_body.push_back(al, assign);
-                } else {
-                    ASR::expr_t* idx_lb = PassUtils::get_bound(left, i + 1, "lbound", al);
-                    ASR::stmt_t* set_to_one = ASRUtils::STMT(ASR::make_Assignment_t(al, x.base.base.loc, idx_vars_value[i+1], idx_lb, nullptr));
-                    doloop_body.push_back(al, set_to_one);
-                    doloop_body.push_back(al, doloop);
-                }
-                ASR::expr_t* inc_expr = ASRUtils::EXPR(ASR::make_IntegerBinOp_t(al, x.base.base.loc, idx_vars_value[i],
-                                                                ASR::binopType::Add, const_1, int32_type, nullptr));
-                ASR::stmt_t* assign_stmt = ASRUtils::STMT(ASR::make_Assignment_t(al, x.base.base.loc, idx_vars_value[i], inc_expr, nullptr));
-                doloop_body.push_back(al, assign_stmt);
-                doloop = ASRUtils::STMT(ASR::make_DoLoop_t(al, x.base.base.loc, head, doloop_body.p, doloop_body.size()));
-            }
-            ASR::expr_t* idx_lb = PassUtils::get_bound(right, 1, "lbound", al);
-            ASR::stmt_t* set_to_one = ASRUtils::STMT(ASR::make_Assignment_t(al, x.base.base.loc, idx_vars_value[0], idx_lb, nullptr));
-            pass_result.push_back(al, set_to_one);
-            pass_result.push_back(al, doloop);
-        } else if( (rank_left == 0 && rank_right > 0) ||
-                   (rank_right == 0 && rank_left > 0) ) {
-            result_var = result_var_copy;
-            ASR::expr_t *arr_expr = nullptr, *other_expr = nullptr;
-            int n_dims = 0;
-            if( rank_left > 0 ) {
-                arr_expr = left;
-                other_expr = right;
-                n_dims = rank_left;
-            } else {
-                arr_expr = right;
-                other_expr = left;
-                n_dims = rank_right;
-            }
-            if( result_var == nullptr ) {
-                result_var = create_var(result_var_num, res_prefix, x.base.base.loc, arr_expr);
-                result_var_num += 1;
-            }
-            tmp_val = result_var;
-
-            Vec<ASR::expr_t*> idx_vars, idx_vars_value;
-            PassUtils::create_idx_vars(idx_vars, n_dims, x.base.base.loc, al, current_scope, "_t");
-            PassUtils::create_idx_vars(idx_vars_value, n_dims, x.base.base.loc, al, current_scope, "_v");
-            ASR::ttype_t* int32_type = ASRUtils::TYPE(ASR::make_Integer_t(al, x.base.base.loc, 4, nullptr, 0));
-            ASR::expr_t* const_1 = ASRUtils::EXPR(ASR::make_IntegerConstant_t(al, x.base.base.loc, 1, int32_type));
-            ASR::stmt_t* doloop = nullptr;
-            for( int i = n_dims - 1; i >= 0; i-- ) {
-                // TODO: Add an If debug node to check if the lower and upper bounds of both the arrays are same.
-                ASR::do_loop_head_t head;
-                head.m_v = idx_vars[i];
-                if( use_custom_loop_params ) {
-                    head.m_start = result_lbound[i];
-                    head.m_end = result_ubound[i];
-                    head.m_increment = result_inc[i];
-                } else {
-                    head.m_start = PassUtils::get_bound(result_var, i + 1, "lbound", al);
-                    head.m_end = PassUtils::get_bound(result_var, i + 1, "ubound", al);
-                    head.m_increment = nullptr;
-                }
-                head.loc = head.m_v->base.loc;
-                Vec<ASR::stmt_t*> doloop_body;
-                doloop_body.reserve(al, 1);
-                if( doloop == nullptr ) {
-                    ASR::expr_t* ref = PassUtils::create_array_ref(arr_expr, idx_vars_value, al);
-                    ASR::expr_t* res = PassUtils::create_array_ref(result_var, idx_vars, al);
-                    ASR::expr_t *lexpr = nullptr, *rexpr = nullptr;
-                    if( rank_left > 0 ) {
-                        lexpr = ref;
-                        rexpr = other_expr;
-                    } else {
-                        rexpr = ref;
-                        lexpr = other_expr;
-                    }
-                    ASR::expr_t* op_el_wise = nullptr;
-                    switch( x.class_type ) {
-                        case ASR::exprType::IntegerBinOp:
-                            op_el_wise = ASRUtils::EXPR(ASR::make_IntegerBinOp_t(
-                                                    al, x.base.base.loc,
-                                                    lexpr, (ASR::binopType)x.m_op, rexpr, x.m_type, nullptr));
-                            break;
-                        case ASR::exprType::RealBinOp:
-                            op_el_wise = ASRUtils::EXPR(ASR::make_RealBinOp_t(
-                                                    al, x.base.base.loc,
-                                                    lexpr, (ASR::binopType)x.m_op, rexpr, x.m_type, nullptr));
-                            break;
-                        case ASR::exprType::ComplexBinOp:
-                            op_el_wise = ASRUtils::EXPR(ASR::make_ComplexBinOp_t(
-                                                    al, x.base.base.loc,
-                                                    lexpr, (ASR::binopType)x.m_op, rexpr, x.m_type, nullptr));
-                            break;
-                        case ASR::exprType::LogicalBinOp:
-                            op_el_wise = ASRUtils::EXPR(ASR::make_LogicalBinOp_t(
-                                                    al, x.base.base.loc,
-                                                    lexpr, (ASR::logicalbinopType)x.m_op, rexpr, x.m_type, nullptr));
-                            break;
-                        case ASR::exprType::IntegerCompare:
-                            op_el_wise = ASRUtils::EXPR(ASR::make_IntegerCompare_t(
-                                                    al, x.base.base.loc,
-                                                    lexpr, (ASR::cmpopType)x.m_op, rexpr, x.m_type, nullptr));
-                            break;
-                        case ASR::exprType::RealCompare:
-                            op_el_wise = ASRUtils::EXPR(ASR::make_RealCompare_t(
-                                                    al, x.base.base.loc,
-                                                    lexpr, (ASR::cmpopType)x.m_op, rexpr, x.m_type, nullptr));
-                            break;
-                        case ASR::exprType::ComplexCompare:
-                            op_el_wise = ASRUtils::EXPR(ASR::make_ComplexCompare_t(
-                                                    al, x.base.base.loc,
-                                                    lexpr, (ASR::cmpopType)x.m_op, rexpr, x.m_type, nullptr));
-                            break;
-                        case ASR::exprType::LogicalCompare:
-                            op_el_wise = ASRUtils::EXPR(ASR::make_LogicalCompare_t(
-                                                    al, x.base.base.loc,
-                                                    lexpr, (ASR::cmpopType)x.m_op, rexpr, x.m_type, nullptr));
-                            break;
-                        default:
-                            throw LCompilersException("The desired operation is not supported yet for arrays.");
-                    }
-                    ASR::stmt_t* assign = ASRUtils::STMT(ASR::make_Assignment_t(al, x.base.base.loc, res, op_el_wise, nullptr));
-                    doloop_body.push_back(al, assign);
-                } else {
-                    ASR::expr_t* op_expr = nullptr;
-                    if( rank_left > 0 ) {
-                        op_expr = left;
-                    } else {
-                        op_expr = right;
-                    }
-                    ASR::expr_t* idx_lb = PassUtils::get_bound(op_expr, i + 2, "lbound", al);
-                    ASR::stmt_t* set_to_one = ASRUtils::STMT(ASR::make_Assignment_t(al, x.base.base.loc,
-                                                idx_vars_value[i + 1], idx_lb, nullptr));
-                    doloop_body.push_back(al, set_to_one);
-                    doloop_body.push_back(al, doloop);
-                }
-                ASR::expr_t* inc_expr = ASRUtils::EXPR(ASR::make_IntegerBinOp_t(al, x.base.base.loc, idx_vars_value[i],
-                                                                ASR::binopType::Add, const_1, int32_type, nullptr));
-                ASR::stmt_t* assign_stmt = ASRUtils::STMT(ASR::make_Assignment_t(al, x.base.base.loc, idx_vars_value[i], inc_expr, nullptr));
-                doloop_body.push_back(al, assign_stmt);
-                doloop = ASRUtils::STMT(ASR::make_DoLoop_t(al, x.base.base.loc, head, doloop_body.p, doloop_body.size()));
-            }
-            ASR::expr_t* op_expr = nullptr;
-            if( rank_left > 0 ) {
-                op_expr = left;
-            } else {
-                op_expr = right;
-            }
-            ASR::expr_t* idx_lb = PassUtils::get_bound(op_expr, 1, "lbound", al);
-            ASR::stmt_t* set_to_one = ASRUtils::STMT(ASR::make_Assignment_t(al, x.base.base.loc,
-                                        idx_vars_value[0], idx_lb, nullptr));
-            pass_result.push_back(al, set_to_one);
-            pass_result.push_back(al, doloop);
-        }
-        result_var = nullptr;
-    }
-
-    void visit_IntegerBinOp(const ASR::IntegerBinOp_t &x) {
-        visit_ArrayOpCommon<ASR::IntegerBinOp_t>(x, "_bin_op_res");
-    }
-
-    void visit_RealBinOp(const ASR::RealBinOp_t &x) {
-        visit_ArrayOpCommon<ASR::RealBinOp_t>(x, "_bin_op_res");
-    }
-
-    void visit_ComplexBinOp(const ASR::ComplexBinOp_t &x) {
-        visit_ArrayOpCommon<ASR::ComplexBinOp_t>(x, "_bin_op_res");
-    }
-
-    void visit_LogicalBinOp(const ASR::LogicalBinOp_t &x) {
-        visit_ArrayOpCommon<ASR::LogicalBinOp_t>(x, "_bool_op_res");
-    }
-
-    void visit_IntegerCompare(const ASR::IntegerCompare_t &x) {
-        visit_ArrayOpCommon<ASR::IntegerCompare_t>(x, "_comp_op_res");
-    }
-
-    void visit_RealCompare(const ASR::RealCompare_t &x) {
-        visit_ArrayOpCommon<ASR::RealCompare_t>(x, "_comp_op_res");
-    }
-
-    void visit_ComplexCompare(const ASR::ComplexCompare_t &x) {
-        visit_ArrayOpCommon<ASR::ComplexCompare_t>(x, "_comp_op_res");
-    }
-
-    void visit_LogicalCompare(const ASR::LogicalCompare_t &x) {
-        visit_ArrayOpCommon<ASR::LogicalCompare_t>(x, "_comp_op_res");
-    }
-
-    void visit_ArraySize(const ASR::ArraySize_t& x) {
-        tmp_val = const_cast<ASR::expr_t*>(&(x.base));
-    }
-
-    void visit_FunctionCall(const ASR::FunctionCall_t& x) {
-        tmp_val = const_cast<ASR::expr_t*>(&(x.base));
-        std::string x_name;
-        if( x.m_name->type == ASR::symbolType::ExternalSymbol ) {
-            x_name = down_cast<ASR::ExternalSymbol_t>(x.m_name)->m_name;
-        } else if( x.m_name->type == ASR::symbolType::Function ) {
-            x_name = down_cast<ASR::Function_t>(x.m_name)->m_name;
-        }
-        // The following checks if the name of a function actually
-        // points to a subroutine. If true this would mean that the
-        // original function returned an array and is now a subroutine.
-        // So the current function call will be converted to a subroutine
-        // call. In short, this check acts as a signal whether to convert
-        // a function call to a subroutine call.
-        if (current_scope == nullptr) {
-            return ;
-        }
-
-        ASR::symbol_t *sub = current_scope->resolve_symbol(x_name);
-        if (sub && ASR::is_a<ASR::Function_t>(*sub)
-            && ASR::down_cast<ASR::Function_t>(sub)->m_return_var == nullptr) {
-            if( result_var == nullptr ) {
-                result_var = create_var(result_var_num, "_func_call_res",
-                    x.base.base.loc, x.m_type);
-                result_var_num += 1;
-            }
-            Vec<ASR::call_arg_t> s_args;
-            s_args.reserve(al, x.n_args + 1);
-            for( size_t i = 0; i < x.n_args; i++ ) {
-                s_args.push_back(al, x.m_args[i]);
-            }
-            ASR::call_arg_t result_arg;
-            result_arg.loc = result_var->base.loc;
-            result_arg.m_value = result_var;
-            s_args.push_back(al, result_arg);
-            tmp_val = result_var;
-            ASR::stmt_t* subrout_call = ASRUtils::STMT(ASR::make_SubroutineCall_t(al, x.base.base.loc,
-                                                sub, nullptr,
-                                                s_args.p, s_args.size(), nullptr));
-            pass_result.push_back(al, subrout_call);
-        } else if( is_elemental(x.m_name) ) {
-            std::vector<bool> array_mask(x.n_args, false);
-            bool at_least_one_array = false;
-            for( size_t iarg = 0; iarg < x.n_args; iarg++ ) {
-                array_mask[iarg] = ASRUtils::is_array(
-                    ASRUtils::expr_type(x.m_args[iarg].m_value));
-                at_least_one_array = at_least_one_array || array_mask[iarg];
-            }
-            if (!at_least_one_array) {
-                return ;
-            }
-            std::string res_prefix = "_elemental_func_call_res";
-            ASR::expr_t* result_var_copy = result_var;
-            bool is_all_rank_0 = true;
-            std::vector<ASR::expr_t*> operands;
-            ASR::expr_t* operand = nullptr;
-            int common_rank = 0;
-            bool are_all_rank_same = true;
-            for( size_t iarg = 0; iarg < x.n_args; iarg++ ) {
-                result_var = nullptr;
-                this->visit_expr(*(x.m_args[iarg].m_value));
-                operand = tmp_val;
-                operands.push_back(operand);
-                int rank_operand = PassUtils::get_rank(operand);
-                if( common_rank == 0 ) {
-                    common_rank = rank_operand;
-                }
-                if( common_rank != rank_operand &&
-                    rank_operand > 0 ) {
-                    are_all_rank_same = false;
-                }
-                array_mask[iarg] = (rank_operand > 0);
-                is_all_rank_0 = is_all_rank_0 && (rank_operand <= 0);
-            }
-            if( is_all_rank_0 ) {
-                tmp_val = const_cast<ASR::expr_t*>(&(x.base));
-                return ;
-            }
-            if( !are_all_rank_same ) {
-                throw LCompilersException("Broadcasting support not yet available "
-                                          "for different shape arrays.");
-            }
-            result_var = result_var_copy;
-            if( result_var == nullptr ) {
-                result_var = create_var(result_var_num, res_prefix,
-                                        x.base.base.loc, operand);
-                result_var_num += 1;
-            }
-            tmp_val = result_var;
-
-            int n_dims = common_rank;
-            Vec<ASR::expr_t*> idx_vars;
-            PassUtils::create_idx_vars(idx_vars, n_dims, x.base.base.loc, al, current_scope);
-            ASR::stmt_t* doloop = nullptr;
-            for( int i = n_dims - 1; i >= 0; i-- ) {
-                // TODO: Add an If debug node to check if the lower and upper bounds of both the arrays are same.
-                ASR::do_loop_head_t head;
-                head.m_v = idx_vars[i];
-                head.m_start = PassUtils::get_bound(result_var, i + 1, "lbound", al);
-                head.m_end = PassUtils::get_bound(result_var, i + 1, "ubound", al);
-                head.m_increment = nullptr;
-                head.loc = head.m_v->base.loc;
-                Vec<ASR::stmt_t*> doloop_body;
-                doloop_body.reserve(al, 1);
-                if( doloop == nullptr ) {
-                    Vec<ASR::call_arg_t> ref_args;
-                    ref_args.reserve(al, x.n_args);
-                    for( size_t iarg = 0; iarg < x.n_args; iarg++ ) {
-                        ASR::expr_t* ref = operands[iarg];
-                        if( array_mask[iarg] ) {
-                            ref = PassUtils::create_array_ref(operands[iarg], idx_vars, al);
-                        }
-                        ASR::call_arg_t ref_arg;
-                        ref_arg.loc = ref->base.loc;
-                        ref_arg.m_value = ref;
-                        ref_args.push_back(al, ref_arg);
-                    }
-                    Vec<ASR::dimension_t> empty_dim;
-                    empty_dim.reserve(al, 1);
-                    ASR::ttype_t* dim_less_type = ASRUtils::duplicate_type(al, x.m_type, &empty_dim);
-                    ASR::expr_t* op_el_wise = nullptr;
-                    op_el_wise = ASRUtils::EXPR(ASR::make_FunctionCall_t(al, x.base.base.loc,
-                                    x.m_name, x.m_original_name, ref_args.p, ref_args.size(), dim_less_type,
-                                    nullptr, x.m_dt));
-                    ASR::expr_t* res = PassUtils::create_array_ref(result_var, idx_vars, al);
-                    ASR::stmt_t* assign = ASRUtils::STMT(ASR::make_Assignment_t(al, x.base.base.loc, res, op_el_wise, nullptr));
-                    doloop_body.push_back(al, assign);
-                } else {
-                    doloop_body.push_back(al, doloop);
-                }
-                doloop = ASRUtils::STMT(ASR::make_DoLoop_t(al, x.base.base.loc, head, doloop_body.p, doloop_body.size()));
-            }
-            pass_result.push_back(al, doloop);
-        }
-        result_var = nullptr;
-    }
-
-};
-
-void pass_replace_array_op(Allocator &al, ASR::TranslationUnit_t &unit,
-                           const LCompilers::PassOptions& pass_options) {
-    std::string rl_path = pass_options.runtime_library_dir;
-    ArrayOpVisitor v(al, rl_path);
-    v.visit_TranslationUnit(unit);
-    PassUtils::UpdateDependenciesVisitor u(al);
-    u.visit_TranslationUnit(unit);
-}
-
-
-} // namespace LCompilers
diff --git a/src/libasr/pass/array_op.h b/src/libasr/pass/array_op.h
deleted file mode 100644
index 33d13bf1aa..0000000000
--- a/src/libasr/pass/array_op.h
+++ /dev/null
@@ -1,14 +0,0 @@
-#ifndef LFORTRAN_PASS_ARRAY_OP_H
-#define LFORTRAN_PASS_ARRAY_OP_H
-
-#include <libasr/asr.h>
-#include <libasr/utils.h>
-
-namespace LCompilers {
-
-    void pass_replace_array_op(Allocator &al, ASR::TranslationUnit_t &unit,
-                               const LCompilers::PassOptions& pass_options);
-
-} // namespace LCompilers
-
-#endif // LFORTRAN_PASS_ARRAY_OP_H
diff --git a/src/libasr/pass/class_constructor.cpp b/src/libasr/pass/class_constructor.cpp
deleted file mode 100644
index 936741f35c..0000000000
--- a/src/libasr/pass/class_constructor.cpp
+++ /dev/null
@@ -1,90 +0,0 @@
-#include <libasr/asr.h>
-#include <libasr/containers.h>
-#include <libasr/exception.h>
-#include <libasr/asr_utils.h>
-#include <libasr/asr_verify.h>
-#include <libasr/pass/pass_utils.h>
-#include <libasr/pass/class_constructor.h>
-
-#include <cstring>
-
-
-namespace LCompilers {
-
-using ASR::down_cast;
-using ASR::is_a;
-
-class ClassConstructorVisitor : public PassUtils::PassVisitor<ClassConstructorVisitor>
-{
-private:
-    ASR::expr_t* result_var;
-
-public:
-
-    bool is_constructor_present;
-
-    ClassConstructorVisitor(Allocator &al) : PassVisitor(al, nullptr),
-    result_var(nullptr), is_constructor_present(false) {
-        pass_result.reserve(al, 0);
-    }
-
-    void visit_Assignment(const ASR::Assignment_t& x) {
-        ASR::Assignment_t& xx = const_cast<ASR::Assignment_t&>(x);
-        if( x.m_value->type == ASR::exprType::StructTypeConstructor ) {
-            is_constructor_present = true;
-            if( x.m_overloaded == nullptr ) {
-                result_var = x.m_target;
-                visit_expr(*x.m_value);
-            } else {
-                std::string result_var_name = current_scope->get_unique_name("temp_struct_var__");
-                result_var = PassUtils::create_auxiliary_variable(x.m_value->base.loc, result_var_name,
-                                al, current_scope, ASRUtils::expr_type(x.m_target));
-                visit_expr(*x.m_value);
-                ASR::stmt_t* x_m_overloaded = x.m_overloaded;
-                if( ASR::is_a<ASR::SubroutineCall_t>(*x.m_overloaded) ) {
-                    ASR::SubroutineCall_t* assign_call = ASR::down_cast<ASR::SubroutineCall_t>(xx.m_overloaded);
-                    Vec<ASR::call_arg_t> assign_call_args;
-                    assign_call_args.reserve(al, 2);
-                    assign_call_args.push_back(al, assign_call->m_args[0]);
-                    ASR::call_arg_t arg_1;
-                    arg_1.loc = assign_call->m_args[1].loc;
-                    arg_1.m_value = result_var;
-                    assign_call_args.push_back(al, arg_1);
-                    x_m_overloaded = ASRUtils::STMT(ASR::make_SubroutineCall_t(al, x_m_overloaded->base.loc,
-                                        assign_call->m_name, assign_call->m_original_name, assign_call_args.p,
-                                        assign_call_args.size(), assign_call->m_dt));
-                }
-                pass_result.push_back(al, ASRUtils::STMT(ASR::make_Assignment_t(al, x.base.base.loc, x.m_target,
-                                                result_var, x_m_overloaded)));
-            }
-        }
-
-    }
-
-    void visit_StructTypeConstructor(const ASR::StructTypeConstructor_t &x) {
-        if( x.n_args == 0 ) {
-            remove_original_stmt = true;
-        }
-        ASR::Struct_t* dt_der = down_cast<ASR::Struct_t>(x.m_type);
-        ASR::StructType_t* dt_dertype = ASR::down_cast<ASR::StructType_t>(
-                                         ASRUtils::symbol_get_past_external(dt_der->m_derived_type));
-        for( size_t i = 0; i < std::min(dt_dertype->n_members, x.n_args); i++ ) {
-            ASR::symbol_t* member = dt_dertype->m_symtab->resolve_symbol(std::string(dt_dertype->m_members[i], strlen(dt_dertype->m_members[i])));
-            ASR::expr_t* derived_ref = ASRUtils::EXPR(ASRUtils::getStructInstanceMember_t(al, x.base.base.loc, (ASR::asr_t*)result_var, member, current_scope));
-            ASR::stmt_t* assign = ASRUtils::STMT(ASR::make_Assignment_t(al, x.base.base.loc, derived_ref, x.m_args[i], nullptr));
-            pass_result.push_back(al, assign);
-        }
-    }
-};
-
-void pass_replace_class_constructor(Allocator &al, ASR::TranslationUnit_t &unit,
-                                    const LCompilers::PassOptions& /*pass_options*/) {
-    ClassConstructorVisitor v(al);
-    do {
-        v.is_constructor_present = false;
-        v.visit_TranslationUnit(unit);
-    } while( v.is_constructor_present );
-}
-
-
-} // namespace LCompilers
diff --git a/src/libasr/pass/class_constructor.h b/src/libasr/pass/class_constructor.h
deleted file mode 100644
index d46b286d0d..0000000000
--- a/src/libasr/pass/class_constructor.h
+++ /dev/null
@@ -1,14 +0,0 @@
-#ifndef LFORTRAN_PASS_CLASS_CONSTRUCTOR_H
-#define LFORTRAN_PASS_CLASS_CONSTRUCTOR_H
-
-#include <libasr/asr.h>
-#include <libasr/utils.h>
-
-namespace LCompilers {
-
-    void pass_replace_class_constructor(Allocator &al, ASR::TranslationUnit_t &unit,
-                                        const LCompilers::PassOptions& pass_options);
-
-} // namespace LCompilers
-
-#endif // LFORTRAN_PASS_CLASS_CONSTRUCTOR_H
diff --git a/src/libasr/pass/dead_code_removal.cpp b/src/libasr/pass/dead_code_removal.cpp
deleted file mode 100644
index 491bf967c7..0000000000
--- a/src/libasr/pass/dead_code_removal.cpp
+++ /dev/null
@@ -1,109 +0,0 @@
-#include <libasr/asr.h>
-#include <libasr/containers.h>
-#include <libasr/exception.h>
-#include <libasr/asr_utils.h>
-#include <libasr/asr_verify.h>
-#include <libasr/pass/dead_code_removal.h>
-#include <libasr/pass/pass_utils.h>
-
-#include <vector>
-#include <map>
-#include <utility>
-
-
-namespace LCompilers {
-
-using ASR::down_cast;
-using ASR::is_a;
-
-
-class DeadCodeRemovalVisitor : public PassUtils::PassVisitor<DeadCodeRemovalVisitor>
-{
-private:
-
-    std::string rl_path;
-
-public:
-
-    bool dead_code_removed;
-
-    DeadCodeRemovalVisitor(Allocator &al_, const std::string& rl_path_) : PassVisitor(al_, nullptr),
-    rl_path(rl_path_), dead_code_removed(false)
-    {
-        pass_result.reserve(al, 1);
-    }
-
-    void visit_If(const ASR::If_t& x) {
-        ASR::If_t& xx = const_cast<ASR::If_t&>(x);
-        transform_stmts(xx.m_body, xx.n_body);
-        transform_stmts(xx.m_orelse, xx.n_orelse);
-        ASR::expr_t* m_test_value = ASRUtils::expr_value(x.m_test);
-        bool m_test_bool;
-        if( ASRUtils::is_value_constant(m_test_value, m_test_bool) ) {
-            ASR::stmt_t** selected_part = nullptr;
-            size_t n_selected_part = 0;
-            if( m_test_bool ) {
-                selected_part = x.m_body;
-                n_selected_part = x.n_body;
-            } else {
-                selected_part = x.m_orelse;
-                n_selected_part = x.n_orelse;
-            }
-            for( size_t i = 0; i < n_selected_part; i++ ) {
-                pass_result.push_back(al, selected_part[i]);
-            }
-            dead_code_removed = true;
-        }
-    }
-
-    void visit_Select(const ASR::Select_t& x) {
-        ASR::Select_t& xx = const_cast<ASR::Select_t&>(x);
-        ASR::expr_t* m_test_value = ASRUtils::expr_value(x.m_test);
-        if( !ASRUtils::is_value_constant(m_test_value) ) {
-            return ;
-        }
-
-        for( size_t i = 0; i < x.n_body; i++ ) {
-            ASR::case_stmt_t* case_body = x.m_body[i];
-            switch (case_body->type) {
-                case ASR::case_stmtType::CaseStmt: {
-                    ASR::CaseStmt_t* casestmt = ASR::down_cast<ASR::CaseStmt_t>(case_body);
-                    transform_stmts(casestmt->m_body, casestmt->n_body);
-                    xx.m_body[i] = (ASR::case_stmt_t*)(&(casestmt->base));
-                    for( size_t j = 0; j < casestmt->n_test; j++ ) {
-                        if( ASRUtils::is_value_equal(casestmt->m_test[j], x.m_test) ) {
-                            for( size_t k = 0; k < casestmt->n_body; k++ ) {
-                                pass_result.push_back(al, casestmt->m_body[k]);
-                            }
-                            return ;
-                        }
-                    }
-                    break;
-                }
-                case ASR::case_stmtType::CaseStmt_Range: {
-                    ASR::CaseStmt_Range_t* casestmt_range = ASR::down_cast<ASR::CaseStmt_Range_t>(case_body);
-                    transform_stmts(casestmt_range->m_body, casestmt_range->n_body);
-                    xx.m_body[i] = (ASR::case_stmt_t*)(&(casestmt_range->base));
-                    if( ASRUtils::is_value_in_range(casestmt_range->m_start, casestmt_range->m_end, x.m_test) ) {
-                        for( size_t k = 0; k < casestmt_range->n_body; k++ ) {
-                            pass_result.push_back(al, casestmt_range->m_body[k]);
-                        }
-                        return ;
-                    }
-                    break;
-                }
-            }
-        }
-    }
-
-};
-
-void pass_dead_code_removal(Allocator &al, ASR::TranslationUnit_t &unit,
-                            const LCompilers::PassOptions& pass_options) {
-    std::string rl_path = pass_options.runtime_library_dir;
-    DeadCodeRemovalVisitor v(al, rl_path);
-    v.visit_TranslationUnit(unit);
-}
-
-
-} // namespace LCompilers
diff --git a/src/libasr/pass/dead_code_removal.h b/src/libasr/pass/dead_code_removal.h
deleted file mode 100644
index 10c0100fe6..0000000000
--- a/src/libasr/pass/dead_code_removal.h
+++ /dev/null
@@ -1,14 +0,0 @@
-#ifndef LIBASR_PASS_DEAD_CODE_REMOVAL_H
-#define LIBASR_PASS_DEAD_CODE_REMOVAL_H
-
-#include <libasr/asr.h>
-#include <libasr/utils.h>
-
-namespace LCompilers {
-
-    void pass_dead_code_removal(Allocator &al, ASR::TranslationUnit_t &unit,
-                                const LCompilers::PassOptions& pass_options);
-
-} // namespace LCompilers
-
-#endif
diff --git a/src/libasr/pass/div_to_mul.cpp b/src/libasr/pass/div_to_mul.cpp
deleted file mode 100644
index 9efe17b649..0000000000
--- a/src/libasr/pass/div_to_mul.cpp
+++ /dev/null
@@ -1,88 +0,0 @@
-#include <libasr/asr.h>
-#include <libasr/containers.h>
-#include <libasr/exception.h>
-#include <libasr/asr_utils.h>
-#include <libasr/asr_verify.h>
-#include <libasr/pass/div_to_mul.h>
-#include <libasr/pass/pass_utils.h>
-
-#include <vector>
-#include <utility>
-
-
-namespace LCompilers {
-
-using ASR::down_cast;
-using ASR::is_a;
-
-/*
-
-This ASR pass replaces division operation with multiplication
-if the divisor can be evaluated to a constant at compile time.
-
-Converts:
-
-    real :: x
-    real, parameter :: divisor = 2.0
-    print *, x/divisor
-
-to:
-
-    real :: x
-    real, parameter :: divisor = 2.0
-    print *, x * 0.5
-
-*/
-class DivToMulVisitor : public PassUtils::PassVisitor<DivToMulVisitor>
-{
-private:
-
-    std::string rl_path;
-
-public:
-    DivToMulVisitor(Allocator &al_, const std::string& rl_path_) : PassVisitor(al_, nullptr),
-    rl_path(rl_path_)
-    {
-        pass_result.reserve(al, 1);
-    }
-
-    void visit_RealBinOp(const ASR::RealBinOp_t& x) {
-        visit_expr(*x.m_left);
-        visit_expr(*x.m_right);
-        if( x.m_op == ASR::binopType::Div ) {
-            ASR::expr_t* right_value = ASRUtils::expr_value(x.m_right);
-            if( right_value ) {
-                double value;
-                if( ASRUtils::extract_value<double>(right_value, value) ) {
-                    bool is_feasible = false;
-                    ASR::expr_t* right_inverse = nullptr;
-                    switch( x.m_type->type ) {
-                        case ASR::ttypeType::Real: {
-                            is_feasible = true;
-                            right_inverse = ASRUtils::EXPR(ASR::make_RealConstant_t(al, x.m_right->base.loc, 1.0/value, x.m_type));
-                            break;
-                        }
-                        default:
-                            break;
-                    }
-                    if( is_feasible ) {
-                        ASR::RealBinOp_t& xx = const_cast<ASR::RealBinOp_t&>(x);
-                        xx.m_op = ASR::binopType::Mul;
-                        xx.m_right = right_inverse;
-                    }
-                }
-            }
-        }
-    }
-
-};
-
-void pass_replace_div_to_mul(Allocator &al, ASR::TranslationUnit_t &unit,
-                             const LCompilers::PassOptions& pass_options) {
-    std::string rl_path = pass_options.runtime_library_dir;
-    DivToMulVisitor v(al, rl_path);
-    v.visit_TranslationUnit(unit);
-}
-
-
-} // namespace LCompilers
diff --git a/src/libasr/pass/div_to_mul.h b/src/libasr/pass/div_to_mul.h
deleted file mode 100644
index 0b2f1205f5..0000000000
--- a/src/libasr/pass/div_to_mul.h
+++ /dev/null
@@ -1,14 +0,0 @@
-#ifndef LIBASR_PASS_DIV_TO_MUL_H
-#define LIBASR_PASS_DIV_TO_MUL_H
-
-#include <libasr/asr.h>
-#include <libasr/utils.h>
-
-namespace LCompilers {
-
-    void pass_replace_div_to_mul(Allocator &al, ASR::TranslationUnit_t &unit,
-                                 const LCompilers::PassOptions& pass_options);
-
-} // namespace LCompilers
-
-#endif // LIBASR_PASS_DIV_TO_MUL_H
diff --git a/src/libasr/pass/do_loops.cpp b/src/libasr/pass/do_loops.cpp
deleted file mode 100644
index 82dc96408e..0000000000
--- a/src/libasr/pass/do_loops.cpp
+++ /dev/null
@@ -1,60 +0,0 @@
-#include <libasr/asr.h>
-#include <libasr/containers.h>
-#include <libasr/exception.h>
-#include <libasr/asr_utils.h>
-#include <libasr/asr_verify.h>
-#include <libasr/pass/do_loops.h>
-#include <libasr/pass/stmt_walk_visitor.h>
-#include <libasr/pass/pass_utils.h>
-
-namespace LCompilers {
-
-using ASR::down_cast;
-using ASR::is_a;
-
-/*
-
-This ASR pass replaces do loops with while loops. The function
-`pass_replace_do_loops` transforms the ASR tree in-place.
-
-Converts:
-
-    do i = a, b, c
-        ...
-    end do
-
-to:
-
-    i = a-c
-    do while (i+c <= b)
-        i = i+c
-        ...
-    end do
-
-The comparison is >= for c<0.
-*/
-class DoLoopVisitor : public ASR::StatementWalkVisitor<DoLoopVisitor>
-{
-public:
-    DoLoopVisitor(Allocator &al) : StatementWalkVisitor(al) {
-    }
-
-    void visit_DoLoop(const ASR::DoLoop_t &x) {
-        pass_result = PassUtils::replace_doloop(al, x);
-    }
-};
-
-void pass_replace_do_loops(Allocator &al, ASR::TranslationUnit_t &unit,
-                           const LCompilers::PassOptions& /*pass_options*/) {
-    DoLoopVisitor v(al);
-    // Each call transforms only one layer of nested loops, so we call it twice
-    // to transform doubly nested loops:
-    v.asr_changed = true;
-    while( v.asr_changed ) {
-        v.asr_changed = false;
-        v.visit_TranslationUnit(unit);
-    }
-}
-
-
-} // namespace LCompilers
diff --git a/src/libasr/pass/do_loops.h b/src/libasr/pass/do_loops.h
deleted file mode 100644
index 7806cb9122..0000000000
--- a/src/libasr/pass/do_loops.h
+++ /dev/null
@@ -1,14 +0,0 @@
-#ifndef LFORTRAN_PASS_DO_LOOPS_H
-#define LFORTRAN_PASS_DO_LOOPS_H
-
-#include <libasr/asr.h>
-#include <libasr/utils.h>
-
-namespace LCompilers {
-
-    void pass_replace_do_loops(Allocator &al, ASR::TranslationUnit_t &unit,
-                               const LCompilers::PassOptions& pass_options);
-
-} // namespace LCompilers
-
-#endif // LFORTRAN_PASS_DO_LOOPS_H
diff --git a/src/libasr/pass/flip_sign.cpp b/src/libasr/pass/flip_sign.cpp
deleted file mode 100644
index 6e6d909b89..0000000000
--- a/src/libasr/pass/flip_sign.cpp
+++ /dev/null
@@ -1,218 +0,0 @@
-#include <libasr/asr.h>
-#include <libasr/containers.h>
-#include <libasr/exception.h>
-#include <libasr/asr_utils.h>
-#include <libasr/asr_verify.h>
-#include <libasr/pass/flip_sign.h>
-#include <libasr/pass/pass_utils.h>
-
-#include <vector>
-#include <utility>
-
-
-namespace LCompilers {
-
-using ASR::down_cast;
-using ASR::is_a;
-
-/*
-
-This ASR replaces flip sign operation with bit shifts for enhancing efficiency.
-
-Converts:
-
-    if (modulo(number, 2) == 1 ) x = -x
-
-to:
-
-    x = xor(shiftl(int(number), 31), x)
-
-For 64 bit `number`, 31 is replaced with 63.
-
-The algorithm contains two components,
-
-1. Detecting Flip Signs - This is achieved by looking for the existence
-    of a specific subtree in the complete ASR tree. In this case, we are
-    looking for a subtree which has an `If` node as the parent node. The
-    `Compare` attribute of that `If` node should contain a `FunctionCall`
-    to `modulo` (with second argument as `2`) and a `IntegerConstant`, `1`.
-    The statement attribute of `If` node should contain only 1 and that too
-    an `Assignment` statement. The right should be a `UnaryOp` expression
-    with operand as the left hand side of that expression.
-
-    For achieving this `FlipSignVisitor` has attributes which are
-    set to True only when the above properties are satisfied in an
-    order. For example, `is_function_call_present` will be set to `True`
-    only when we have visited `Compare` which means `is_compare_present`
-    is already `True` at that point.
-
-2. Replacing Flip Sign with bit shifts - This phase is executed only
-    when the above one is a success. Here, we replace the subtree
-    detected above with a call to a generic procedure defined in
-    `lfortran_intrinsic_optimization`. This is just a dummy call
-    anyways to keep things backend agnostic. The actual implementation
-    will be generated in the backend specified.
-
-
-*/
-class FlipSignVisitor : public PassUtils::SkipOptimizationFunctionVisitor<FlipSignVisitor>
-{
-private:
-    ASR::TranslationUnit_t &unit;
-
-    LCompilers::PassOptions pass_options;
-
-    ASR::expr_t *flip_sign_signal_variable, *flip_sign_variable;
-
-    bool is_if_present;
-    bool is_compare_present;
-    bool is_function_call_present, is_function_modulo, is_divisor_2;
-    bool is_one_present;
-    bool is_unary_op_present, is_operand_same_as_input;
-    bool is_flip_sign_present;
-
-public:
-    FlipSignVisitor(Allocator &al_, ASR::TranslationUnit_t &unit_,
-                    const LCompilers::PassOptions& pass_options_) : SkipOptimizationFunctionVisitor(al_),
-    unit(unit_), pass_options(pass_options_)
-    {
-        pass_result.reserve(al, 1);
-    }
-
-    void visit_If(const ASR::If_t& x) {
-        is_if_present = true;
-        is_compare_present = false;
-        is_function_call_present = false;
-        is_function_modulo = false, is_divisor_2 = false;
-        is_one_present = false;
-        is_unary_op_present = false;
-        is_operand_same_as_input = false;
-        flip_sign_signal_variable = flip_sign_variable = nullptr;
-        visit_expr(*(x.m_test));
-        if( x.n_body == 1 && x.n_orelse == 0 ) {
-            if( x.m_body[0]->type == ASR::stmtType::Assignment ) {
-                visit_stmt(*(x.m_body[0]));
-            }
-        }
-        set_flip_sign();
-        if( is_flip_sign_present ) {
-            // xi = xor(shiftl(int(Nd),63), xi)
-            LCOMPILERS_ASSERT(flip_sign_signal_variable);
-            LCOMPILERS_ASSERT(flip_sign_variable);
-            ASR::stmt_t* flip_sign_call = PassUtils::get_flipsign(flip_sign_signal_variable,
-                                            flip_sign_variable, al, unit, pass_options, current_scope,
-                                            [&](const std::string &msg, const Location &) { throw LCompilersException(msg); });
-            pass_result.push_back(al, flip_sign_call);
-        }
-    }
-
-    void set_flip_sign() {
-        is_flip_sign_present = (is_if_present &&
-                                is_compare_present &&
-                                is_function_call_present &&
-                                is_function_modulo &&
-                                is_divisor_2 &&
-                                is_one_present &&
-                                is_unary_op_present &&
-                                is_operand_same_as_input);
-    }
-
-    void visit_Assignment(const ASR::Assignment_t& x) {
-        if( x.m_value->type == ASR::exprType::RealUnaryMinus ) {
-            is_unary_op_present = true;
-            ASR::symbol_t* sym = nullptr;
-            ASR::RealUnaryMinus_t* negation = ASR::down_cast<ASR::RealUnaryMinus_t>(x.m_value);
-            if( negation->m_arg->type == ASR::exprType::Var ) {
-                ASR::Var_t* var = ASR::down_cast<ASR::Var_t>(negation->m_arg);
-                sym = var->m_v;
-            }
-            if( x.m_target->type == ASR::exprType::Var ) {
-                ASR::Var_t* var = ASR::down_cast<ASR::Var_t>(x.m_target);
-                is_operand_same_as_input = sym == var->m_v;
-                flip_sign_variable = x.m_target;
-            }
-        }
-    }
-
-    void visit_IntegerCompare(const ASR::IntegerCompare_t& x) {
-        handle_Compare(x);
-    }
-
-    void visit_RealCompare(const ASR::RealCompare_t &x) {
-        handle_Compare(x);
-    }
-
-    void visit_ComplexCompare(const ASR::ComplexCompare_t &x) {
-        handle_Compare(x);
-    }
-
-    void visit_LogicalCompare(const ASR::LogicalCompare_t &x) {
-        handle_Compare(x);
-    }
-
-    void visit_StringCompare(const ASR::StringCompare_t &x) {
-        handle_Compare(x);
-    }
-
-    template <typename T>
-    void handle_Compare(const T& x) {
-        is_compare_present = true;
-        ASR::expr_t* potential_one = nullptr;
-        ASR::expr_t* potential_func_call = nullptr;
-        if( x.m_left->type == ASR::exprType::FunctionCall ) {
-            potential_one = x.m_right;
-            potential_func_call = x.m_left;
-        } else if( x.m_right->type == ASR::exprType::FunctionCall ) {
-            potential_one = x.m_left;
-            potential_func_call = x.m_right;
-        }
-        if( potential_one &&
-            potential_one->type == ASR::exprType::IntegerConstant ) {
-            ASR::IntegerConstant_t* const_int = ASR::down_cast<ASR::IntegerConstant_t>(potential_one);
-            is_one_present = const_int->m_n == 1;
-        }
-        if( potential_func_call && is_one_present ) {
-            visit_expr(*potential_func_call);
-        }
-    }
-
-    void visit_FunctionCall(const ASR::FunctionCall_t& x) {
-        is_function_call_present = true;
-        ASR::symbol_t* func_name = nullptr;
-        if( x.m_original_name ) {
-            func_name = x.m_original_name;
-        } else if( x.m_name ) {
-            func_name = x.m_name;
-        }
-        if( func_name && func_name->type == ASR::symbolType::ExternalSymbol ) {
-            ASR::ExternalSymbol_t* ext_sym = ASR::down_cast<ASR::ExternalSymbol_t>(func_name);
-            if( std::string(ext_sym->m_original_name) == "modulo" &&
-                std::string(ext_sym->m_module_name) == "lfortran_intrinsic_math2" ) {
-                is_function_modulo = true;
-            }
-        }
-        if( is_function_modulo && x.n_args == 2) {
-            ASR::expr_t* arg0 = x.m_args[0].m_value;
-            ASR::expr_t* arg1 = x.m_args[1].m_value;
-            bool cond_for_arg0 = false, cond_for_arg1 = false;
-            ASR::ttype_t* arg0_ttype = ASRUtils::expr_type(arg0);
-            cond_for_arg0 = arg0_ttype->type == ASR::ttypeType::Integer;
-            if( arg1->type == ASR::exprType::IntegerConstant ) {
-                ASR::IntegerConstant_t* const_int = ASR::down_cast<ASR::IntegerConstant_t>(arg1);
-                cond_for_arg1 = const_int->m_n == 2;
-            }
-            is_divisor_2 = cond_for_arg0 && cond_for_arg1;
-            flip_sign_signal_variable = arg0;
-        }
-    }
-
-};
-
-void pass_replace_flip_sign(Allocator &al, ASR::TranslationUnit_t &unit,
-                            const LCompilers::PassOptions& pass_options) {
-    FlipSignVisitor v(al, unit, pass_options);
-    v.visit_TranslationUnit(unit);
-}
-
-
-} // namespace LCompilers
diff --git a/src/libasr/pass/flip_sign.h b/src/libasr/pass/flip_sign.h
deleted file mode 100644
index 37b7c5507a..0000000000
--- a/src/libasr/pass/flip_sign.h
+++ /dev/null
@@ -1,14 +0,0 @@
-#ifndef LIBASR_PASS_FLIP_SIGN_H
-#define LIBASR_PASS_FLIP_SIGN_H
-
-#include <libasr/asr.h>
-#include <libasr/utils.h>
-
-namespace LCompilers {
-
-    void pass_replace_flip_sign(Allocator &al, ASR::TranslationUnit_t &unit,
-                                const LCompilers::PassOptions& pass_options);
-
-} // namespace LCompilers
-
-#endif // LIBASR_PASS_FLIP_SIGN_H
diff --git a/src/libasr/pass/fma.cpp b/src/libasr/pass/fma.cpp
deleted file mode 100644
index 45ad29f079..0000000000
--- a/src/libasr/pass/fma.cpp
+++ /dev/null
@@ -1,176 +0,0 @@
-#include <libasr/asr.h>
-#include <libasr/containers.h>
-#include <libasr/exception.h>
-#include <libasr/asr_utils.h>
-#include <libasr/asr_verify.h>
-#include <libasr/pass/fma.h>
-#include <libasr/pass/pass_utils.h>
-
-#include <vector>
-#include <utility>
-
-
-namespace LCompilers {
-
-using ASR::down_cast;
-using ASR::is_a;
-
-/*
-
-This ASR pass converts fused multiplication and addition (FMA) expressions
-with a call to internal optimization routine for FMA. This allows
-backend specific code generation for FMA expressions resulting in optimized
-code.
-
-Converts:
-
-    real :: a, b, c, d
-    d = a + b * c
-
-to:
-
-    d = fma(a, b, c)
-
-*/
-class FMAVisitor : public PassUtils::SkipOptimizationFunctionVisitor<FMAVisitor>
-{
-private:
-    ASR::TranslationUnit_t &unit;
-
-    LCompilers::PassOptions pass_options;
-
-    ASR::expr_t* fma_var;
-
-    // To make sure that FMA is applied only for
-    // the nodes implemented in this class
-    bool from_fma;
-
-public:
-    FMAVisitor(Allocator &al_, ASR::TranslationUnit_t &unit_,
-               const LCompilers::PassOptions& pass_options_) : SkipOptimizationFunctionVisitor(al_),
-    unit(unit_), pass_options(pass_options_), fma_var(nullptr), from_fma(false)
-    {
-        pass_result.reserve(al, 1);
-    }
-
-    bool is_BinOpMul(ASR::expr_t* expr) {
-        if (ASR::is_a<ASR::RealBinOp_t>(*expr)) {
-            ASR::RealBinOp_t* expr_binop = ASR::down_cast<ASR::RealBinOp_t>(expr);
-            return expr_binop->m_op == ASR::binopType::Mul;
-        }
-        return false;
-    }
-
-    void visit_IntegerBinOp(const ASR::IntegerBinOp_t& /*x*/) { }
-    void visit_ComplexBinOp(const ASR::ComplexBinOp_t& /*x*/) { }
-    void visit_LogicalBinOp(const ASR::LogicalBinOp_t& /*x*/) { }
-
-    void visit_RealBinOp(const ASR::RealBinOp_t& x_const) {
-        if( !from_fma ) {
-            return ;
-        }
-
-        from_fma = true;
-        LCOMPILERS_ASSERT(ASRUtils::is_real(*x_const.m_type))
-        ASR::RealBinOp_t& x = const_cast<ASR::RealBinOp_t&>(x_const);
-
-        fma_var = nullptr;
-        visit_expr(*x.m_left);
-        if( fma_var ) {
-            x.m_left = fma_var;
-        }
-
-        fma_var = nullptr;
-        visit_expr(*x.m_right);
-        if( fma_var ) {
-            x.m_right = fma_var;
-        }
-        fma_var = nullptr;
-
-        if( x.m_op != ASR::binopType::Add && x.m_op != ASR::binopType::Sub ) {
-            return ;
-        }
-        ASR::expr_t *mul_expr = nullptr, *other_expr = nullptr;
-        bool is_mul_expr_negative = false, is_other_expr_negative = false;
-        if( is_BinOpMul(x.m_right) ) {
-            mul_expr = x.m_right;
-            other_expr = x.m_left;
-            is_mul_expr_negative = (x.m_op == ASR::binopType::Sub);
-        } else if( is_BinOpMul(x.m_left) ) {
-            mul_expr = x.m_left;
-            other_expr = x.m_right;
-            is_other_expr_negative = (x.m_op == ASR::binopType::Sub);
-        } else {
-            return ;
-        }
-
-        if( is_other_expr_negative ) {
-            other_expr = ASRUtils::EXPR(ASR::make_RealUnaryMinus_t(al, other_expr->base.loc, other_expr,
-                ASRUtils::expr_type(other_expr), nullptr));
-        }
-
-        ASR::RealBinOp_t* mul_binop = ASR::down_cast<ASR::RealBinOp_t>(mul_expr);
-        ASR::expr_t *first_arg = mul_binop->m_left, *second_arg = mul_binop->m_right;
-
-        if( is_mul_expr_negative ) {
-            first_arg = ASRUtils::EXPR(ASR::make_RealUnaryMinus_t(al, first_arg->base.loc, first_arg,
-                ASRUtils::expr_type(first_arg), nullptr));
-        }
-
-        fma_var = PassUtils::get_fma(other_expr, first_arg, second_arg,
-                                     al, unit, pass_options, current_scope, x.base.base.loc,
-                                     [&](const std::string &msg, const Location &) { throw LCompilersException(msg); });
-        from_fma = false;
-    }
-
-    void visit_Assignment(const ASR::Assignment_t& x) {
-        from_fma = true;
-        ASR::Assignment_t& xx = const_cast<ASR::Assignment_t&>(x);
-        fma_var = nullptr;
-        visit_expr(*x.m_value);
-        if( fma_var ) {
-            xx.m_value = fma_var;
-        }
-        fma_var = nullptr;
-        from_fma = false;
-    }
-
-    void visit_IntegerUnaryMinus(const ASR::IntegerUnaryMinus_t &x) {
-        visit_UnaryOp(x);
-    }
-    void visit_RealUnaryMinus(const ASR::RealUnaryMinus_t &x) {
-        visit_UnaryOp(x);
-    }
-    void visit_ComplexUnaryMinus(const ASR::ComplexUnaryMinus_t &x) {
-        visit_UnaryOp(x);
-    }
-    void visit_IntegerBitNot(const ASR::IntegerBitNot_t &x) {
-        visit_UnaryOp(x);
-    }
-    void visit_LogicalNot(const ASR::LogicalNot_t &x) {
-        visit_UnaryOp(x);
-    }
-
-    template<typename T>
-    void visit_UnaryOp(const T& x) {
-        from_fma = true;
-        T& xx = const_cast<T&>(x);
-        fma_var = nullptr;
-        visit_expr(*x.m_arg);
-        if( fma_var ) {
-            xx.m_arg = fma_var;
-        }
-        fma_var = nullptr;
-        from_fma = false;
-    }
-
-};
-
-void pass_replace_fma(Allocator &al, ASR::TranslationUnit_t &unit,
-                      const LCompilers::PassOptions& pass_options) {
-    FMAVisitor v(al, unit, pass_options);
-    v.visit_TranslationUnit(unit);
-}
-
-
-} // namespace LCompilers
diff --git a/src/libasr/pass/fma.h b/src/libasr/pass/fma.h
deleted file mode 100644
index 1b698e84bb..0000000000
--- a/src/libasr/pass/fma.h
+++ /dev/null
@@ -1,14 +0,0 @@
-#ifndef LIBASR_PASS_FMA_H
-#define LIBASR_PASS_FMA_H
-
-#include <libasr/asr.h>
-#include <libasr/utils.h>
-
-namespace LCompilers {
-
-    void pass_replace_fma(Allocator &al, ASR::TranslationUnit_t &unit,
-                          const LCompilers::PassOptions& pass_options);
-
-} // namespace LCompilers
-
-#endif // LIBASR_PASS_FMA_H
diff --git a/src/libasr/pass/for_all.cpp b/src/libasr/pass/for_all.cpp
deleted file mode 100644
index 2f2ec3628e..0000000000
--- a/src/libasr/pass/for_all.cpp
+++ /dev/null
@@ -1,52 +0,0 @@
-#include <libasr/asr.h>
-#include <libasr/containers.h>
-#include <libasr/exception.h>
-#include <libasr/asr_utils.h>
-#include <libasr/asr_verify.h>
-#include <libasr/pass/for_all.h>
-#include <libasr/pass/stmt_walk_visitor.h>
-
-namespace LCompilers {
-
-/*
- * This ASR pass replaces forall statement with Do Concurrent.
- *
- * Converts:
- *      forall(i=start:end:inc) array(i) = i
- *
- * to:
- *      do concurrent (i=start:end:inc)
- *          array(i) = i
- *      end do
- */
-
-class ForAllVisitor : public ASR::StatementWalkVisitor<ForAllVisitor>
-{
-public:
-    ForAllVisitor(Allocator &al) : StatementWalkVisitor(al) {
-    }
-
-    void visit_ForAllSingle(const ASR::ForAllSingle_t &x) {
-        Location loc = x.base.base.loc;
-        ASR::stmt_t *assign_stmt = x.m_assign_stmt;
-        Vec<ASR::stmt_t*> body;
-        body.reserve(al, 1);
-        body.push_back(al, assign_stmt);
-
-        ASR::stmt_t *stmt = ASRUtils::STMT(
-            ASR::make_DoConcurrentLoop_t(al, loc, x.m_head, body.p, body.size())
-        );
-        Vec<ASR::stmt_t*> result;
-        result.reserve(al, 1);
-        result.push_back(al, stmt);
-        pass_result = result;
-    }
-};
-
-void pass_replace_forall(Allocator &al, ASR::TranslationUnit_t &unit,
-                         const LCompilers::PassOptions& /*pass_options*/) {
-    ForAllVisitor v(al);
-    v.visit_TranslationUnit(unit);
-}
-
-} // namespace LCompilers
diff --git a/src/libasr/pass/for_all.h b/src/libasr/pass/for_all.h
deleted file mode 100644
index 47fa99587f..0000000000
--- a/src/libasr/pass/for_all.h
+++ /dev/null
@@ -1,14 +0,0 @@
-#ifndef LFORTRAN_PASS_FOR_ALL
-#define LFORTRAN_PASS_FOR_ALL
-
-#include <libasr/asr.h>
-#include <libasr/utils.h>
-
-namespace LCompilers {
-
-    void pass_replace_forall(Allocator &al, ASR::TranslationUnit_t &unit,
-                             const LCompilers::PassOptions& pass_options);
-
-} // namespace LCompilers
-
-#endif // LFORTRAN_PASS_FOR_ALL
diff --git a/src/libasr/pass/global_stmts.cpp b/src/libasr/pass/global_stmts.cpp
deleted file mode 100644
index a524830e3d..0000000000
--- a/src/libasr/pass/global_stmts.cpp
+++ /dev/null
@@ -1,165 +0,0 @@
-#include <libasr/asr.h>
-#include <libasr/containers.h>
-#include <libasr/exception.h>
-#include <libasr/asr_utils.h>
-#include <libasr/asr_verify.h>
-#include <libasr/pass/global_stmts.h>
-#include <libasr/pass/pass_utils.h>
-
-
-namespace LCompilers {
-
-using ASR::down_cast;
-
-using ASRUtils::EXPR;
-
-/*
- * This ASR pass transforms (in-place) the ASR tree and wras all global
- * statements and expressions into a function.
- *
- */
-void pass_wrap_global_stmts_into_function(Allocator &al,
-            ASR::TranslationUnit_t &unit, const LCompilers::PassOptions& pass_options) {
-    std::string fn_name_s = pass_options.run_fun;
-    if (unit.n_items > 0) {
-        // Add an anonymous function
-        Str s;
-        s.from_str_view(fn_name_s);
-        char *fn_name = s.c_str(al);
-        SymbolTable *fn_scope = al.make_new<SymbolTable>(unit.m_global_scope);
-
-        ASR::ttype_t *type;
-        Location loc = unit.base.base.loc;
-        ASR::asr_t *return_var=nullptr;
-        ASR::expr_t *return_var_ref=nullptr;
-        char *var_name;
-        int idx = 1;
-
-        Vec<ASR::stmt_t*> body;
-        body.reserve(al, unit.n_items);
-        for (size_t i=0; i<unit.n_items; i++) {
-            if (unit.m_items[i]->type == ASR::asrType::expr) {
-                ASR::expr_t *target;
-                ASR::expr_t *value = EXPR(unit.m_items[i]);
-                // Create a new variable with the right type
-                if (ASRUtils::expr_type(value)->type == ASR::ttypeType::Integer) {
-                    s.from_str(al, fn_name_s + std::to_string(idx));
-                    var_name = s.c_str(al);
-
-                    int a_kind = down_cast<ASR::Integer_t>(ASRUtils::expr_type(value))->m_kind;
-
-                    type = ASRUtils::TYPE(ASR::make_Integer_t(al, loc, a_kind, nullptr, 0));
-                    return_var = ASR::make_Variable_t(al, loc,
-                        fn_scope, var_name, nullptr, 0, ASRUtils::intent_local, nullptr, nullptr,
-                        ASR::storage_typeType::Default, type,
-                        ASR::abiType::BindC,
-                        ASR::Public, ASR::presenceType::Required, false);
-                    return_var_ref = EXPR(ASR::make_Var_t(al, loc,
-                        down_cast<ASR::symbol_t>(return_var)));
-                    fn_scope->add_symbol(std::string(var_name), down_cast<ASR::symbol_t>(return_var));
-                    target = return_var_ref;
-                    idx++;
-                } else if (ASRUtils::expr_type(value)->type == ASR::ttypeType::Real) {
-                    s.from_str(al, fn_name_s + std::to_string(idx));
-                    var_name = s.c_str(al);
-                    type = ASRUtils::expr_type(value);
-                    return_var = ASR::make_Variable_t(al, loc,
-                        fn_scope, var_name, nullptr, 0, ASRUtils::intent_local, nullptr, nullptr,
-                        ASR::storage_typeType::Default, type,
-                        ASR::abiType::BindC,
-                        ASR::Public, ASR::presenceType::Required, false);
-                    return_var_ref = EXPR(ASR::make_Var_t(al, loc,
-                        down_cast<ASR::symbol_t>(return_var)));
-                    fn_scope->add_symbol(std::string(var_name), down_cast<ASR::symbol_t>(return_var));
-                    target = return_var_ref;
-                    idx++;
-                } else if (ASRUtils::expr_type(value)->type == ASR::ttypeType::Complex) {
-                    s.from_str(al, fn_name_s + std::to_string(idx));
-                    var_name = s.c_str(al);
-                    type = ASRUtils::expr_type(value);
-                    return_var = ASR::make_Variable_t(al, loc,
-                        fn_scope, var_name, nullptr, 0, ASRUtils::intent_local, nullptr, nullptr,
-                        ASR::storage_typeType::Default, type,
-                        ASR::abiType::BindC,
-                        ASR::Public, ASR::presenceType::Required, false);
-                    return_var_ref = EXPR(ASR::make_Var_t(al, loc,
-                        down_cast<ASR::symbol_t>(return_var)));
-                    fn_scope->add_symbol(std::string(var_name), down_cast<ASR::symbol_t>(return_var));
-                    target = return_var_ref;
-                    idx++;
-                } else {
-                    throw LCompilersException("Return type not supported in interactive mode");
-                }
-                ASR::stmt_t* asr_stmt = ASRUtils::STMT(ASR::make_Assignment_t(al, loc, target, value, nullptr));
-                body.push_back(al, asr_stmt);
-            } else if (unit.m_items[i]->type == ASR::asrType::stmt) {
-                ASR::stmt_t* asr_stmt = ASRUtils::STMT(unit.m_items[i]);
-                body.push_back(al, asr_stmt);
-                return_var = nullptr;
-            } else {
-                throw LCompilersException("Unsupported type of global scope node");
-            }
-        }
-
-        if (return_var) {
-            // The last item was an expression, create a function returning it
-
-            // The last defined `return_var` is the actual return value
-            ASR::down_cast2<ASR::Variable_t>(return_var)->m_intent = ASRUtils::intent_return_var;
-
-
-            ASR::asr_t *fn = ASRUtils::make_Function_t_util(
-                al, loc,
-                /* a_symtab */ fn_scope,
-                /* a_name */ fn_name,
-                nullptr, 0,
-                /* a_args */ nullptr,
-                /* n_args */ 0,
-                /* a_body */ body.p,
-                /* n_body */ body.size(),
-                /* a_return_var */ return_var_ref,
-                ASR::abiType::BindC,
-                ASR::Public, ASR::Implementation,
-                nullptr,
-                false, false, false, false, false,
-                nullptr, 0,
-                nullptr, 0,
-                false, false, false);
-            std::string sym_name = fn_name;
-            if (unit.m_global_scope->get_symbol(sym_name) != nullptr) {
-                throw LCompilersException("Function already defined");
-            }
-            unit.m_global_scope->add_symbol(sym_name, down_cast<ASR::symbol_t>(fn));
-        } else {
-            // The last item was a statement, create a subroutine (returning
-            // nothing)
-            ASR::asr_t *fn = ASRUtils::make_Function_t_util(
-                al, loc,
-                /* a_symtab */ fn_scope,
-                /* a_name */ fn_name,
-                nullptr, 0,
-                /* a_args */ nullptr,
-                /* n_args */ 0,
-                /* a_body */ body.p,
-                /* n_body */ body.size(),
-                nullptr,
-                ASR::abiType::Source,
-                ASR::Public, ASR::Implementation, nullptr,
-                false, false, false, false, false,
-                nullptr, 0,
-                nullptr, 0,
-                false, false, false);
-            std::string sym_name = fn_name;
-            if (unit.m_global_scope->get_symbol(sym_name) != nullptr) {
-                throw LCompilersException("Function already defined");
-            }
-            unit.m_global_scope->add_symbol(sym_name, down_cast<ASR::symbol_t>(fn));
-        }
-        unit.m_items = nullptr;
-        unit.n_items = 0;
-        PassUtils::UpdateDependenciesVisitor v(al);
-        v.visit_TranslationUnit(unit);
-    }
-}
-
-} // namespace LCompilers
diff --git a/src/libasr/pass/global_stmts.h b/src/libasr/pass/global_stmts.h
deleted file mode 100644
index ac3bfbbeaa..0000000000
--- a/src/libasr/pass/global_stmts.h
+++ /dev/null
@@ -1,14 +0,0 @@
-#ifndef LFORTRAN_PASS_GLOBAL_STMTS_H
-#define LFORTRAN_PASS_GLOBAL_STMTS_H
-
-#include <libasr/asr.h>
-#include <libasr/utils.h>
-
-namespace LCompilers {
-
-    void pass_wrap_global_stmts_into_function(Allocator &al, ASR::TranslationUnit_t &unit,
-                                              const LCompilers::PassOptions& pass_options);
-
-} // namespace LCompilers
-
-#endif // LFORTRAN_PASS_GLOBAL_STMTS_H
diff --git a/src/libasr/pass/global_stmts_program.cpp b/src/libasr/pass/global_stmts_program.cpp
deleted file mode 100644
index ffb2e6ca82..0000000000
--- a/src/libasr/pass/global_stmts_program.cpp
+++ /dev/null
@@ -1,53 +0,0 @@
-#include <libasr/asr.h>
-#include <libasr/containers.h>
-#include <libasr/exception.h>
-#include <libasr/asr_utils.h>
-#include <libasr/asr_verify.h>
-#include <libasr/pass/global_stmts.h>
-
-
-namespace LCompilers {
-
-using ASR::down_cast;
-
-using ASRUtils::EXPR;
-
-/*
- * This ASR pass transforms (in-place) the ASR tree and wraps all global
- * statements and expressions into a program.
- *
- */
-void pass_wrap_global_stmts_into_program(Allocator &al,
-            ASR::TranslationUnit_t &unit, const LCompilers::PassOptions& pass_options) {
-    std::string program_fn_name = pass_options.run_fun;
-    SymbolTable *current_scope = al.make_new<SymbolTable>(unit.m_global_scope);
-    std::string prog_name = "main_program";
-    Vec<ASR::stmt_t*> prog_body;
-    prog_body.reserve(al, 1);
-    if (unit.n_items > 0) {
-        pass_wrap_global_stmts_into_function(al, unit, pass_options);
-        ASR::symbol_t *fn = unit.m_global_scope->get_symbol(program_fn_name);
-        if (ASR::is_a<ASR::Function_t>(*fn)
-            && ASR::down_cast<ASR::Function_t>(fn)->m_return_var == nullptr) {
-            ASR::asr_t *stmt = ASR::make_SubroutineCall_t(
-                    al, unit.base.base.loc,
-                    fn, nullptr,
-                    nullptr, 0,
-                    nullptr);
-            prog_body.push_back(al, ASR::down_cast<ASR::stmt_t>(stmt));
-        } else {
-            throw LCompilersException("Return type not supported yet");
-        }
-    }
-    ASR::asr_t *prog = ASR::make_Program_t(
-        al, unit.base.base.loc,
-        /* a_symtab */ current_scope,
-        /* a_name */ s2c(al, prog_name),
-        nullptr,
-        0,
-        /* a_body */ prog_body.p,
-        /* n_body */ prog_body.n);
-    unit.m_global_scope->add_symbol(prog_name, ASR::down_cast<ASR::symbol_t>(prog));
-}
-
-} // namespace LCompilers
diff --git a/src/libasr/pass/global_stmts_program.h b/src/libasr/pass/global_stmts_program.h
deleted file mode 100644
index cc45d0ade1..0000000000
--- a/src/libasr/pass/global_stmts_program.h
+++ /dev/null
@@ -1,14 +0,0 @@
-#ifndef LIBASR_PASS_GLOBAL_STMTS_PROGRAM_H
-#define LIBASR_PASS_GLOBAL_STMTS_PROGRAM_H
-
-#include <libasr/asr.h>
-#include <libasr/utils.h>
-
-namespace LCompilers {
-
-    void pass_wrap_global_stmts_into_program(Allocator &al, ASR::TranslationUnit_t &unit,
-                                             const LCompilers::PassOptions& pass_options);
-
-} // namespace LCompilers
-
-#endif // LIBASR_PASS_GLOBAL_STMTS_PROGRAM_H
diff --git a/src/libasr/pass/implied_do_loops.cpp b/src/libasr/pass/implied_do_loops.cpp
deleted file mode 100644
index 59a7caf8cd..0000000000
--- a/src/libasr/pass/implied_do_loops.cpp
+++ /dev/null
@@ -1,256 +0,0 @@
-#include <libasr/asr.h>
-#include <libasr/containers.h>
-#include <libasr/exception.h>
-#include <libasr/asr_utils.h>
-#include <libasr/asr_verify.h>
-#include <libasr/pass/implied_do_loops.h>
-#include <libasr/pass/pass_utils.h>
-
-
-namespace LCompilers {
-
-using ASR::down_cast;
-using ASR::is_a;
-
-/*
-This ASR pass replaces implied do loops with do loops in array initialiser expressions.
-The function `pass_replace_implied_do_loops` transforms the ASR tree in-place.
-
-Converts:
-
-    x = [(i*2, i = 1, 6)]
-
-to:
-
-    do i = 1, 6
-        x(i) = i*2
-    end do
-*/
-
-class ImpliedDoLoopVisitor : public PassUtils::PassVisitor<ImpliedDoLoopVisitor>
-{
-private:
-    bool contains_array;
-    std::string rl_path;
-public:
-    // Public to suppress a warning
-    ASR::TranslationUnit_t &unit;
-
-    ImpliedDoLoopVisitor(Allocator &al, ASR::TranslationUnit_t& unit,
-        const std::string &rl_path) :
-             PassVisitor(al, nullptr), contains_array{false}, rl_path{rl_path},
-             unit{unit} {
-        pass_result.reserve(al, 1);
-    }
-
-    void visit_Var(const ASR::Var_t& x) {
-        ASR::expr_t* x_expr = (ASR::expr_t*)(&(x.base));
-        contains_array = PassUtils::is_array(x_expr);
-    }
-
-    void visit_IntegerConstant(const ASR::IntegerConstant_t&) {
-        contains_array = false;
-    }
-
-    void visit_RealConstant(const ASR::RealConstant_t&) {
-        contains_array = false;
-    }
-
-    void visit_ComplexConstant(const ASR::ComplexConstant_t&) {
-        contains_array = false;
-    }
-
-    void visit_LogicalConstant(const ASR::LogicalConstant_t&) {
-        contains_array = false;
-    }
-
-    void visit_IntegerBinOp(const ASR::IntegerBinOp_t& x) {
-        handle_BinOp(x);
-    }
-
-    void visit_RealBinOp(const ASR::RealBinOp_t& x) {
-        handle_BinOp(x);
-    }
-
-    void visit_ComplexBinOp(const ASR::ComplexBinOp_t& x) {
-        handle_BinOp(x);
-    }
-
-    void visit_LogicalBinOp(const ASR::LogicalBinOp_t& x) {
-        handle_BinOp(x);
-    }
-
-    template <typename T>
-    void handle_BinOp(const T& x) {
-        if( contains_array ) {
-            return ;
-        }
-        bool left_array, right_array;
-        visit_expr(*(x.m_left));
-        left_array = contains_array;
-        visit_expr(*(x.m_right));
-        right_array = contains_array;
-        contains_array = left_array || right_array;
-    }
-
-    void create_do_loop(ASR::ImpliedDoLoop_t* idoloop, ASR::Var_t* arr_var, ASR::expr_t* arr_idx=nullptr) {
-        ASR::do_loop_head_t head;
-        head.m_v = idoloop->m_var;
-        head.m_start = idoloop->m_start;
-        head.m_end = idoloop->m_end;
-        head.m_increment = idoloop->m_increment;
-        head.loc = head.m_v->base.loc;
-        Vec<ASR::stmt_t*> doloop_body;
-        doloop_body.reserve(al, 1);
-        ASR::ttype_t *_type = ASRUtils::expr_type(idoloop->m_start);
-        ASR::expr_t* const_1 = ASRUtils::EXPR(ASR::make_IntegerConstant_t(al, arr_var->base.base.loc, 1, _type));
-        ASR::expr_t *const_n, *offset, *num_grps, *grp_start;
-        const_n = offset = num_grps = grp_start = nullptr;
-        if( arr_idx == nullptr ) {
-            const_n = ASRUtils::EXPR(ASR::make_IntegerConstant_t(al, arr_var->base.base.loc, idoloop->n_values, _type));
-            offset = ASRUtils::EXPR(ASR::make_IntegerBinOp_t(al, arr_var->base.base.loc, idoloop->m_var, ASR::binopType::Sub, idoloop->m_start, _type, nullptr));
-            num_grps = ASRUtils::EXPR(ASR::make_IntegerBinOp_t(al, arr_var->base.base.loc, offset, ASR::binopType::Mul, const_n, _type, nullptr));
-            grp_start = ASRUtils::EXPR(ASR::make_IntegerBinOp_t(al, arr_var->base.base.loc, num_grps, ASR::binopType::Add, const_1, _type, nullptr));
-        }
-        for( size_t i = 0; i < idoloop->n_values; i++ ) {
-            Vec<ASR::array_index_t> args;
-            ASR::array_index_t ai;
-            ai.loc = arr_var->base.base.loc;
-            ai.m_left = nullptr;
-            if( arr_idx == nullptr ) {
-                ASR::expr_t* const_i = ASRUtils::EXPR(ASR::make_IntegerConstant_t(al, arr_var->base.base.loc, i, _type));
-                ASR::expr_t* idx = ASRUtils::EXPR(ASR::make_IntegerBinOp_t(al, arr_var->base.base.loc,
-                                                            grp_start, ASR::binopType::Add, const_i, _type, nullptr));
-                ai.m_right = idx;
-            } else {
-                ai.m_right = arr_idx;
-            }
-            ai.m_step = nullptr;
-            args.reserve(al, 1);
-            args.push_back(al, ai);
-            ASR::ttype_t* array_ref_type = ASRUtils::expr_type(ASRUtils::EXPR((ASR::asr_t*)arr_var));
-            Vec<ASR::dimension_t> empty_dims;
-            empty_dims.reserve(al, 1);
-            array_ref_type = ASRUtils::duplicate_type(al, array_ref_type, &empty_dims);
-            ASR::expr_t* array_ref = ASRUtils::EXPR(ASR::make_ArrayItem_t(al, arr_var->base.base.loc,
-                                                              ASRUtils::EXPR((ASR::asr_t*)arr_var),
-                                                              args.p, args.size(),
-                                                              array_ref_type, ASR::arraystorageType::RowMajor,
-                                                              nullptr));
-            if( idoloop->m_values[i]->type == ASR::exprType::ImpliedDoLoop ) {
-                throw LCompilersException("Pass for nested ImpliedDoLoop nodes isn't implemented yet."); // idoloop->m_values[i]->base.loc
-            }
-            ASR::stmt_t* doloop_stmt = ASRUtils::STMT(ASR::make_Assignment_t(al, arr_var->base.base.loc, array_ref, idoloop->m_values[i], nullptr));
-            doloop_body.push_back(al, doloop_stmt);
-            if( arr_idx != nullptr ) {
-                ASR::expr_t* increment = ASRUtils::EXPR(ASR::make_IntegerBinOp_t(al, arr_var->base.base.loc, arr_idx, ASR::binopType::Add, const_1, ASRUtils::expr_type(arr_idx), nullptr));
-                ASR::stmt_t* assign_stmt = ASRUtils::STMT(ASR::make_Assignment_t(al, arr_var->base.base.loc, arr_idx, increment, nullptr));
-                doloop_body.push_back(al, assign_stmt);
-            }
-        }
-        ASR::stmt_t* doloop = ASRUtils::STMT(ASR::make_DoLoop_t(al, arr_var->base.base.loc, head, doloop_body.p, doloop_body.size()));
-        pass_result.push_back(al, doloop);
-    }
-
-    void visit_Assignment(const ASR::Assignment_t &x) {
-        if( (ASR::is_a<ASR::Pointer_t>(*ASRUtils::expr_type(x.m_target)) &&
-            ASR::is_a<ASR::GetPointer_t>(*x.m_value)) ||
-            ASR::is_a<ASR::ArrayReshape_t>(*x.m_value) ) {
-            return ;
-        }
-
-        if( ASR::is_a<ASR::ArrayConstant_t>(*x.m_value) ) {
-            ASR::ArrayConstant_t* arr_init = ASR::down_cast<ASR::ArrayConstant_t>(x.m_value);
-            if( arr_init->n_args == 0 ) {
-                remove_original_stmt = true;
-                return ;
-            }
-
-            LCOMPILERS_ASSERT_MSG(PassUtils::get_rank(x.m_target) == 1,
-                                "Initialisation using ArrayConstant is "
-                                "supported only for single dimensional arrays.")
-            ASR::Var_t* arr_var = ASR::down_cast<ASR::Var_t>(x.m_target);
-            Vec<ASR::expr_t*> idx_vars;
-            PassUtils::create_idx_vars(idx_vars, 1, x.base.base.loc, al, current_scope);
-            ASR::expr_t* idx_var = idx_vars[0];
-            ASR::expr_t* lb = PassUtils::get_bound(x.m_target, 1, "lbound", al);
-            ASR::expr_t* const_1 = ASRUtils::EXPR(ASR::make_IntegerConstant_t(al, x.base.base.loc, 1,
-                                        ASRUtils::expr_type(idx_var)));
-            ASR::stmt_t* assign_stmt = ASRUtils::STMT(ASR::make_Assignment_t(al,
-                                            arr_var->base.base.loc, idx_var, lb, nullptr));
-            pass_result.push_back(al, assign_stmt);
-            for( size_t k = 0; k < arr_init->n_args; k++ ) {
-                ASR::expr_t* curr_init = arr_init->m_args[k];
-                if( ASR::is_a<ASR::ImpliedDoLoop_t>(*curr_init) ) {
-                    ASR::ImpliedDoLoop_t* idoloop = ASR::down_cast<ASR::ImpliedDoLoop_t>(curr_init);
-                    create_do_loop(idoloop, arr_var, idx_var);
-                } else {
-                    Vec<ASR::array_index_t> args;
-                    ASR::array_index_t ai;
-                    ai.loc = arr_var->base.base.loc;
-                    ai.m_left = nullptr;
-                    ai.m_right = idx_var;
-                    ai.m_step = nullptr;
-                    args.reserve(al, 1);
-                    args.push_back(al, ai);
-                    ASR::ttype_t* array_ref_type = ASRUtils::expr_type(ASRUtils::EXPR((ASR::asr_t*)arr_var));
-                    Vec<ASR::dimension_t> empty_dims;
-                    empty_dims.reserve(al, 1);
-                    array_ref_type = ASRUtils::duplicate_type(al, array_ref_type, &empty_dims);
-                    ASR::expr_t* array_ref = ASRUtils::EXPR(ASR::make_ArrayItem_t(al, arr_var->base.base.loc,
-                                                                        ASRUtils::EXPR((ASR::asr_t*)arr_var),
-                                                                        args.p, args.size(),
-                                                                        array_ref_type, ASR::arraystorageType::RowMajor,
-                                                                        nullptr));
-                    ASR::stmt_t* assign_stmt = ASRUtils::STMT(ASR::make_Assignment_t(al, arr_var->base.base.loc, array_ref, arr_init->m_args[k], nullptr));
-                    pass_result.push_back(al, assign_stmt);
-                    ASR::expr_t* increment = ASRUtils::EXPR(ASR::make_IntegerBinOp_t(al, arr_var->base.base.loc, idx_var, ASR::binopType::Add, const_1, ASRUtils::expr_type(idx_var), nullptr));
-                    assign_stmt = ASRUtils::STMT(ASR::make_Assignment_t(al, arr_var->base.base.loc, idx_var, increment, nullptr));
-                    pass_result.push_back(al, assign_stmt);
-                }
-            }
-        } else if( !ASR::is_a<ASR::ArrayConstant_t>(*x.m_value) &&
-                   !ASR::is_a<ASR::FunctionCall_t>(*x.m_value) && // This will be converted to SubroutineCall in array_op.cpp
-                   PassUtils::is_array(x.m_target)) {
-            contains_array = true;
-            visit_expr(*(x.m_value)); // TODO: Add support for updating contains array in all types of expressions
-            if( contains_array ) {
-                return ;
-            }
-
-            int n_dims = PassUtils::get_rank(x.m_target);
-            Vec<ASR::expr_t*> idx_vars;
-            PassUtils::create_idx_vars(idx_vars, n_dims, x.base.base.loc, al, current_scope);
-            ASR::stmt_t* doloop = nullptr;
-            for( int i = n_dims - 1; i >= 0; i-- ) {
-                ASR::do_loop_head_t head;
-                head.m_v = idx_vars[i];
-                head.m_start = PassUtils::get_bound(x.m_target, n_dims, "lbound", al);
-                head.m_end = PassUtils::get_bound(x.m_target, n_dims, "ubound", al);
-                head.m_increment = nullptr;
-                head.loc = head.m_v->base.loc;
-                Vec<ASR::stmt_t*> doloop_body;
-                doloop_body.reserve(al, 1);
-                if( doloop == nullptr ) {
-                    ASR::expr_t* ref = PassUtils::create_array_ref(x.m_target, idx_vars, al);
-                    ASR::stmt_t* assign = ASRUtils::STMT(ASR::make_Assignment_t(al, x.base.base.loc, ref, x.m_value, nullptr));
-                    doloop_body.push_back(al, assign);
-                } else {
-                    doloop_body.push_back(al, doloop);
-                }
-                doloop = ASRUtils::STMT(ASR::make_DoLoop_t(al, x.base.base.loc, head, doloop_body.p, doloop_body.size()));
-            }
-            pass_result.push_back(al, doloop);
-        }
-    }
-};
-
-void pass_replace_implied_do_loops(Allocator &al, ASR::TranslationUnit_t &unit,
-                                   const LCompilers::PassOptions& pass_options) {
-    std::string rl_path = pass_options.runtime_library_dir;
-    ImpliedDoLoopVisitor v(al, unit, rl_path);
-    v.visit_TranslationUnit(unit);
-}
-
-
-} // namespace LCompilers
diff --git a/src/libasr/pass/implied_do_loops.h b/src/libasr/pass/implied_do_loops.h
deleted file mode 100644
index 0c611a363b..0000000000
--- a/src/libasr/pass/implied_do_loops.h
+++ /dev/null
@@ -1,14 +0,0 @@
-#ifndef LFORTRAN_PASS_IMPLIED_DO_LOOPS_H
-#define LFORTRAN_PASS_IMPLIED_DO_LOOPS_H
-
-#include <libasr/asr.h>
-#include <libasr/utils.h>
-
-namespace LCompilers {
-
-    void pass_replace_implied_do_loops(Allocator &al, ASR::TranslationUnit_t &unit,
-                                       const LCompilers::PassOptions& pass_options);
-
-} // namespace LCompilers
-
-#endif // LFORTRAN_PASS_IMPLIED_DO_LOOPS_H
diff --git a/src/libasr/pass/inline_function_calls.cpp b/src/libasr/pass/inline_function_calls.cpp
deleted file mode 100644
index a3259d2bed..0000000000
--- a/src/libasr/pass/inline_function_calls.cpp
+++ /dev/null
@@ -1,469 +0,0 @@
-#include <libasr/asr.h>
-#include <libasr/containers.h>
-#include <libasr/exception.h>
-#include <libasr/asr_utils.h>
-#include <libasr/asr_verify.h>
-#include <libasr/pass/inline_function_calls.h>
-#include <libasr/pass/pass_utils.h>
-
-#include <vector>
-#include <map>
-#include <utility>
-
-
-namespace LCompilers {
-
-using ASR::down_cast;
-using ASR::is_a;
-
-/*
-
-This ASR pass replaces function calls expressions with the body of the function
-itself. This helps in avoiding function call overhead in the backend code.
-
-Converts:
-
-    complex(4) function f(a) result(b)
-    complex(4), intent(in) :: a
-    b = a + 5
-    end function
-
-    c = f(a)
-
-to:
-
-    c = a + 5
-
-*/
-class InlineFunctionCallVisitor : public PassUtils::PassVisitor<InlineFunctionCallVisitor>
-{
-private:
-
-    std::string rl_path;
-
-    ASR::expr_t* function_result_var;
-
-    bool from_inline_function_call, inlining_function;
-    bool fixed_duplicated_expr_stmt;
-    bool is_fast;
-
-    // Stores the local variables corresponding to the ones
-    // present in function symbol table.
-    std::map<std::string, ASR::symbol_t*> arg2value;
-
-    std::string current_routine;
-
-    bool inline_external_symbol_calls;
-
-
-    ASRUtils::ExprStmtDuplicator node_duplicator;
-
-    SymbolTable* current_routine_scope;
-    ASRUtils::LabelGenerator* label_generator;
-    ASR::symbol_t* empty_block;
-    ASRUtils::ReplaceReturnWithGotoVisitor return_replacer;
-
-public:
-
-    bool function_inlined;
-
-    InlineFunctionCallVisitor(Allocator &al_, const std::string& rl_path_,
-                              bool inline_external_symbol_calls_, bool is_fast_)
-    : PassVisitor(al_, nullptr),
-    rl_path(rl_path_), function_result_var(nullptr),
-    from_inline_function_call(false), inlining_function(false), fixed_duplicated_expr_stmt(false),
-    is_fast(is_fast_),
-    current_routine(""), inline_external_symbol_calls(inline_external_symbol_calls_),
-    node_duplicator(al_), current_routine_scope(nullptr),
-    label_generator(ASRUtils::LabelGenerator::get_instance()),
-    empty_block(nullptr), return_replacer(al_, 0),
-    function_inlined(false)
-    {
-        pass_result.reserve(al, 1);
-    }
-
-    void configure_node_duplicator(bool allow_procedure_calls_) {
-        node_duplicator.allow_procedure_calls = allow_procedure_calls_;
-    }
-
-    void visit_Function(const ASR::Function_t &x) {
-        // FIXME: this is a hack, we need to pass in a non-const `x`,
-        // which requires to generate a TransformVisitor.
-        ASR::Function_t &xx = const_cast<ASR::Function_t&>(x);
-        current_routine = std::string(xx.m_name);
-        PassUtils::PassVisitor<InlineFunctionCallVisitor>::visit_Function(x);
-        current_routine.clear();
-    }
-
-    void visit_Var(const ASR::Var_t& x) {
-        ASR::Var_t& xx = const_cast<ASR::Var_t&>(x);
-        std::string x_var_name = std::string(ASRUtils::symbol_name(x.m_v));
-
-        // If anything is not local to a function being inlined
-        // then do not inline the function by setting
-        // fixed_duplicated_expr_stmt to false.
-        // To be supported later.
-        if( current_routine_scope &&
-            current_routine_scope->get_symbol(x_var_name) == nullptr ) {
-            fixed_duplicated_expr_stmt = false;
-            return ;
-        }
-        if( x.m_v->type == ASR::symbolType::Variable ) {
-            ASR::Variable_t* x_var = ASR::down_cast<ASR::Variable_t>(x.m_v);
-            if( arg2value.find(x_var_name) != arg2value.end() ) {
-                x_var = ASR::down_cast<ASR::Variable_t>(arg2value[x_var_name]);
-                if( current_scope->get_symbol(std::string(x_var->m_name)) != nullptr ) {
-                    xx.m_v = arg2value[x_var_name];
-                }
-                x_var = ASR::down_cast<ASR::Variable_t>(x.m_v);
-            }
-        } else {
-            fixed_duplicated_expr_stmt = false;
-        }
-    }
-
-    void set_empty_block(SymbolTable* scope, const Location& loc) {
-        std::string empty_block_name = scope->get_unique_name("~empty_block");
-        if( empty_block_name != "~empty_block" ) {
-            empty_block = scope->get_symbol("~empty_block");
-        } else {
-            SymbolTable* empty_symtab = al.make_new<SymbolTable>(scope);
-            empty_block = ASR::down_cast<ASR::symbol_t>(ASR::make_Block_t(al, loc,
-                                empty_symtab,
-                                s2c(al, empty_block_name), nullptr, 0));
-            scope->add_symbol(empty_block_name, empty_block);
-        }
-    }
-
-    void remove_empty_block(SymbolTable* scope) {
-        scope->erase_symbol("~empty_block");
-    }
-
-    void visit_FunctionCall(const ASR::FunctionCall_t& x) {
-        // If this node is visited by any other visitor
-        // or it is being visited while inlining another function call
-        // then return. To ensure that only one function call is inlined
-        // at a time.
-        if( !from_inline_function_call || inlining_function ) {
-            if( !inlining_function ) {
-                return ;
-            }
-            // TODO: Handle type later
-            if( ASR::is_a<ASR::ExternalSymbol_t>(*x.m_name) ) {
-                ASR::ExternalSymbol_t* called_sym_ext = ASR::down_cast<ASR::ExternalSymbol_t>(x.m_name);
-                ASR::symbol_t* f_sym = ASRUtils::symbol_get_past_external(called_sym_ext->m_external);
-                ASR::Function_t* f = ASR::down_cast<ASR::Function_t>(f_sym);
-
-                // Never inline intrinsic functions
-                if( ASRUtils::is_intrinsic_function2(f) ) {
-                    return ;
-                }
-
-                ASR::symbol_t* called_sym = x.m_name;
-
-                // TODO: Handle later
-                // ASR::symbol_t* called_sym_original = x.m_original_name;
-
-                ASR::FunctionCall_t& xx = const_cast<ASR::FunctionCall_t&>(x);
-                std::string called_sym_name = std::string(called_sym_ext->m_name);
-                std::string new_sym_name_str = current_scope->get_unique_name(called_sym_name);
-                char* new_sym_name = s2c(al, new_sym_name_str);
-                if( current_scope->get_symbol(new_sym_name_str) == nullptr ) {
-                    ASR::Module_t *m = ASR::down_cast2<ASR::Module_t>(f->m_symtab->parent->asr_owner);
-                    char *modname = m->m_name;
-                    ASR::symbol_t* new_sym = ASR::down_cast<ASR::symbol_t>(ASR::make_ExternalSymbol_t(
-                                                al, called_sym->base.loc, current_scope, new_sym_name,
-                                                f_sym, modname, nullptr, 0,
-                                                f->m_name, ASR::accessType::Private));
-                    current_scope->add_symbol(new_sym_name_str, new_sym);
-                }
-                xx.m_name = current_scope->get_symbol(new_sym_name_str);
-            }
-
-            for( size_t i = 0; i < x.n_args; i++ ) {
-                visit_expr(*x.m_args[i].m_value);
-            }
-            return ;
-        }
-
-        // Clear up any local variables present in arg2value map
-        // due to inlining other function calls
-        arg2value.clear();
-
-        // Stores the result temporarily to avoid corrupting
-        // the actual pass result due to failure of inlining function
-        // calls
-        Vec<ASR::stmt_t*> pass_result_local;
-        pass_result_local.reserve(al, 1);
-
-        // Avoid external symbols for now.
-        ASR::symbol_t* routine = x.m_name;
-        if( !ASR::is_a<ASR::Function_t>(*routine) ) {
-            if( ASR::is_a<ASR::ExternalSymbol_t>(*routine) &&
-                inline_external_symbol_calls) {
-                routine = ASRUtils::symbol_get_past_external(x.m_name);
-            } else {
-                return ;
-            }
-        }
-
-        // Avoid inlining current function call if its a recursion.
-        ASR::Function_t* func = ASR::down_cast<ASR::Function_t>(routine);
-        if( ASRUtils::is_intrinsic_function2(func) ||
-            std::string(func->m_name) == current_routine ) {
-            return ;
-        }
-
-        if( !is_fast && !ASRUtils::get_FunctionType(func)->m_inline ) {
-            return ;
-        }
-
-        current_routine_scope = func->m_symtab;
-
-        ASR::expr_t* return_var = nullptr;
-        // The following prepares arg2value map for inlining the
-        // current function call. Variables are created in the current
-        // scope for the arguments. These local variables are then initialised
-        // as well with the argument value.
-        for( size_t i = 0; i < func->n_args + 1; i++ ) {
-            ASR::expr_t *func_margs_i = nullptr, *x_m_args_i = nullptr;
-            if( i < func->n_args ) {
-                func_margs_i = func->m_args[i];
-                x_m_args_i = x.m_args[i].m_value;
-            } else {
-                func_margs_i = func->m_return_var;
-                x_m_args_i = nullptr;
-            }
-            if( !ASR::is_a<ASR::Var_t>(*func_margs_i) ) {
-                arg2value.clear();
-                return ;
-            }
-            ASR::Var_t* arg_var = ASR::down_cast<ASR::Var_t>(func_margs_i);
-            // TODO: Expand to other symbol types, Function, Subroutine, ExternalSymbol
-            if( !ASR::is_a<ASR::Variable_t>(*(arg_var->m_v)) ) {
-                arg2value.clear();
-                return ;
-            }
-            ASR::Variable_t* arg_variable = ASR::down_cast<ASR::Variable_t>(arg_var->m_v);
-            std::string arg_variable_name = std::string(arg_variable->m_name);
-            std::string arg_name = current_scope->get_unique_name(arg_variable_name + "_" + std::string(func->m_name));
-            ASR::stmt_t* assign_stmt = nullptr;
-            ASR::expr_t* call_arg_var = nullptr;
-            if( x_m_args_i ) {
-                call_arg_var = PassUtils::create_auxiliary_variable_for_expr(x_m_args_i, arg_name, al, current_scope, assign_stmt);
-            } else {
-                call_arg_var = PassUtils::create_auxiliary_variable(func_margs_i->base.loc, arg_name, al, current_scope, ASRUtils::expr_type(func_margs_i));
-                return_var = call_arg_var;
-            }
-            if( assign_stmt ) {
-                pass_result_local.push_back(al, assign_stmt);
-            }
-            arg2value[arg_variable_name] = ASR::down_cast<ASR::Var_t>(call_arg_var)->m_v;
-        }
-
-        bool success = true;
-        // Stores the initialisation expression for function's local variables
-        // i.e., other than the argument variables.
-        std::vector<std::pair<ASR::expr_t*, ASR::symbol_t*>> exprs_to_be_visited;
-
-        // The following loop inserts the function's local symbols i.e.,
-        // the ones other than the arguments.
-        // exprs_to_be_visited temporarily stores the initialisation expression as well.
-        for( auto& itr : func->m_symtab->get_scope() ) {
-            if( startswith(itr.first, "~empty_block") ) {
-                set_empty_block(current_scope, func->base.base.loc);
-                continue;
-            }
-            ASR::Variable_t* func_var = ASR::down_cast<ASR::Variable_t>(itr.second);
-            std::string func_var_name = itr.first;
-            if( arg2value.find(func_var_name) == arg2value.end() ) {
-                std::string local_var_name = current_scope->get_unique_name(func_var_name + "_" + std::string(func->m_name));
-                node_duplicator.success = true;
-                ASR::expr_t *m_symbolic_value = node_duplicator.duplicate_expr(func_var->m_symbolic_value);
-                if( !node_duplicator.success ) {
-                    success = false;
-                    break;
-                }
-                node_duplicator.success = true;
-                ASR::expr_t *m_value = node_duplicator.duplicate_expr(func_var->m_value);
-                if( !node_duplicator.success ) {
-                    success = false;
-                    break;
-                }
-                ASR::ttype_t* local_var_type = func_var->m_type;
-                ASR::symbol_t* local_var = (ASR::symbol_t*) ASR::make_Variable_t(
-                                                al, func_var->base.base.loc, current_scope,
-                                                s2c(al, local_var_name), nullptr, 0, ASR::intentType::Local,
-                                                nullptr, nullptr, ASR::storage_typeType::Default,
-                                                local_var_type, ASR::abiType::Source, ASR::accessType::Public,
-                                                ASR::presenceType::Required, false);
-                current_scope->add_symbol(local_var_name, local_var);
-                arg2value[func_var_name] = local_var;
-                if( m_symbolic_value && !ASR::is_a<ASR::Const_t>(*local_var_type) ) {
-                    exprs_to_be_visited.push_back(std::make_pair(m_symbolic_value, local_var));
-                }
-                if( m_value && !ASR::is_a<ASR::Const_t>(*local_var_type) ) {
-                    exprs_to_be_visited.push_back(std::make_pair(m_value, local_var));
-                }
-            }
-        }
-
-        // At this point arg2value map is ready with all the variables.
-        // Now, we visit the initialisation expression of the local variables
-        // and replace the variables present in those expressions with the ones
-        // in the current scope. See, `visit_Var` to know how replacement occurs.
-        for( size_t i = 0; i < exprs_to_be_visited.size() && success; i++ ) {
-            ASR::expr_t* value = exprs_to_be_visited[i].first;
-            fixed_duplicated_expr_stmt = true;
-            visit_expr(*value);
-            if( !fixed_duplicated_expr_stmt ) {
-                success = false;
-                break;
-            }
-            ASR::symbol_t* variable = exprs_to_be_visited[i].second;
-            ASR::expr_t* var = ASRUtils::EXPR(ASR::make_Var_t(al, variable->base.loc, variable));
-            ASR::stmt_t* assign_stmt = ASRUtils::STMT(ASR::make_Assignment_t(al, var->base.loc, var, value, nullptr));
-            pass_result_local.push_back(al, assign_stmt);
-        }
-
-        Vec<ASR::stmt_t*> func_copy;
-        func_copy.reserve(al, func->n_body);
-        // Duplicate each and every statement of the function body.
-        for( size_t i = 0; i < func->n_body && success; i++ ) {
-            node_duplicator.success = true;
-            ASR::stmt_t* m_body_copy = node_duplicator.duplicate_stmt(func->m_body[i]);
-            if( node_duplicator.success ) {
-                func_copy.push_back(al, m_body_copy);
-            } else {
-                success = false;
-            }
-        }
-
-        if( success ) {
-            // Set inlining_function to true so that we inline
-            // only one function at a time.
-            inlining_function = true;
-            for( size_t i = 0; i < func->n_body && success; i++ ) {
-                fixed_duplicated_expr_stmt = true;
-                visit_stmt(*func_copy[i]);
-                success = success && fixed_duplicated_expr_stmt;
-            }
-
-            if( success ) {
-                set_empty_block(current_scope, func->base.base.loc);
-                uint64_t block_call_label = label_generator->get_unique_label();
-                ASR::stmt_t* block_call = ASRUtils::STMT(ASR::make_BlockCall_t(al, x.base.base.loc,
-                                                        block_call_label, empty_block));
-                label_generator->add_node_with_unique_label((ASR::asr_t*) block_call,
-                                                            block_call_label);
-                return_replacer.set_goto_label(block_call_label);
-                // If duplication is successful then fill the
-                // pass result with assignment statements
-                // (for local variables in the loop just below)
-                // and the function body (the next loop).
-                for( size_t i = 0; i < pass_result_local.size(); i++ ) {
-                    pass_result.push_back(al, pass_result_local[i]);
-                }
-
-                bool is_goto_added = false;
-                for( size_t i = 0; i < func->n_body; i++ ) {
-                    return_replacer.current_stmt = &func_copy.p[i];
-                    return_replacer.has_replacement_happened = false;
-                    return_replacer.replace_stmt(func_copy[i]);
-                    is_goto_added = is_goto_added || return_replacer.has_replacement_happened;
-                    pass_result.push_back(al, func_copy[i]);
-                }
-                if( is_goto_added ) {
-                    pass_result.push_back(al, block_call);
-                } else {
-                    remove_empty_block(current_scope);
-                }
-            }
-            inlining_function = false;
-            current_routine_scope = nullptr;
-            function_result_var = return_var;
-        }
-
-        if (!success) {
-            // If not successful then delete all the local variables
-            // created for the purpose of inlining the current function call.
-            for( auto& itr : arg2value ) {
-                ASR::Variable_t* auxiliary_var = ASR::down_cast<ASR::Variable_t>(itr.second);
-                current_scope->erase_symbol(std::string(auxiliary_var->m_name));
-            }
-            function_result_var = nullptr;
-        }
-        // At least one function is inlined
-        function_inlined = success;
-        success = false;
-        // Clear up the arg2value to avoid corruption
-        // of any kind.
-        arg2value.clear();
-    }
-
-    void visit_IntegerBinOp(const ASR::IntegerBinOp_t& x) {
-        handle_BinOp(x);
-    }
-
-    void visit_RealBinOp(const ASR::RealBinOp_t& x) {
-        handle_BinOp(x);
-    }
-
-    void visit_ComplexBinOp(const ASR::ComplexBinOp_t& x) {
-        handle_BinOp(x);
-    }
-
-    void visit_LogicalBinOp(const ASR::LogicalBinOp_t& x) {
-        handle_BinOp(x);
-    }
-
-    template <typename T>
-    void handle_BinOp(const T& x) {
-        T& xx = const_cast<T&>(x);
-        from_inline_function_call = true;
-        function_result_var = nullptr;
-        visit_expr(*x.m_left);
-        if( function_result_var ) {
-            xx.m_left = function_result_var;
-        }
-        function_result_var = nullptr;
-        visit_expr(*x.m_right);
-        if( function_result_var ) {
-            xx.m_right = function_result_var;
-        }
-        function_result_var = nullptr;
-        from_inline_function_call = false;
-    }
-
-    void visit_Assignment(const ASR::Assignment_t& x) {
-        from_inline_function_call = true;
-        retain_original_stmt = true;
-        ASR::Assignment_t& xx = const_cast<ASR::Assignment_t&>(x);
-        function_result_var = nullptr;
-        visit_expr(*x.m_target);
-        function_result_var = nullptr;
-        visit_expr(*x.m_value);
-        if( function_result_var ) {
-            xx.m_value = function_result_var;
-        }
-        function_result_var = nullptr;
-        from_inline_function_call = false;
-    }
-
-};
-
-void pass_inline_function_calls(Allocator &al, ASR::TranslationUnit_t &unit,
-                                const LCompilers::PassOptions& pass_options) {
-    std::string rl_path = pass_options.runtime_library_dir;
-    bool inline_external_symbol_calls = pass_options.inline_external_symbol_calls;
-    InlineFunctionCallVisitor v(al, rl_path, inline_external_symbol_calls, pass_options.fast);
-    v.configure_node_duplicator(false);
-    v.visit_TranslationUnit(unit);
-    v.configure_node_duplicator(true);
-    v.visit_TranslationUnit(unit);
-    PassUtils::UpdateDependenciesVisitor u(al);
-    u.visit_TranslationUnit(unit);
-}
-
-
-} // namespace LCompilers
diff --git a/src/libasr/pass/inline_function_calls.h b/src/libasr/pass/inline_function_calls.h
deleted file mode 100644
index 89319356f1..0000000000
--- a/src/libasr/pass/inline_function_calls.h
+++ /dev/null
@@ -1,14 +0,0 @@
-#ifndef LIBASR_PASS_INLINE_FUNCTION_CALLS_H
-#define LIBASR_PASS_INLINE_FUNCTION_CALLS_H
-
-#include <libasr/asr.h>
-#include <libasr/utils.h>
-
-namespace LCompilers {
-
-    void pass_inline_function_calls(Allocator &al, ASR::TranslationUnit_t &unit,
-                                    const LCompilers::PassOptions& pass_options);
-
-} // namespace LCompilers
-
-#endif // LIBASR_PASS_FMA_H
diff --git a/src/libasr/pass/instantiate_template.cpp b/src/libasr/pass/instantiate_template.cpp
deleted file mode 100644
index 328aea84de..0000000000
--- a/src/libasr/pass/instantiate_template.cpp
+++ /dev/null
@@ -1,402 +0,0 @@
-#include <cmath>
-
-#include <libasr/asr_utils.h>
-#include <libasr/asr.h>
-#include <libasr/pass/pass_utils.h>
-#include <libasr/semantic_exception.h>
-
-namespace LCompilers {
-
-class FunctionInstantiator : public ASR::BaseExprStmtDuplicator<FunctionInstantiator>
-{
-public:
-    SymbolTable *func_scope;
-    SymbolTable *current_scope;
-    std::map<std::string, ASR::ttype_t*> subs;
-    std::map<std::string, ASR::symbol_t*> rt_subs;
-    std::string new_func_name;
-    std::vector<ASR::Function_t*> rts;
-    std::set<std::string> dependencies;
-
-    FunctionInstantiator(Allocator &al, std::map<std::string, ASR::ttype_t*> subs,
-            std::map<std::string, ASR::symbol_t*> rt_subs, SymbolTable *func_scope,
-            std::string new_func_name):
-        BaseExprStmtDuplicator(al),
-        func_scope{func_scope},
-        subs{subs},
-        rt_subs{rt_subs},
-        new_func_name{new_func_name}
-        {}
-
-    ASR::asr_t* instantiate_Function(ASR::Function_t *x) {
-        dependencies.clear();
-        current_scope = al.make_new<SymbolTable>(func_scope);
-
-        Vec<ASR::expr_t*> args;
-        args.reserve(al, x->n_args);
-        for (size_t i=0; i<x->n_args; i++) {
-            ASR::Variable_t *param_var = ASR::down_cast<ASR::Variable_t>(
-                (ASR::down_cast<ASR::Var_t>(x->m_args[i]))->m_v);
-            ASR::ttype_t *param_type = ASRUtils::expr_type(x->m_args[i]);
-            ASR::ttype_t *arg_type = substitute_type(param_type);
-
-            Location loc = param_var->base.base.loc;
-            std::string var_name = param_var->m_name;
-            ASR::intentType s_intent = param_var->m_intent;
-            ASR::expr_t *init_expr = nullptr;
-            ASR::expr_t *value = nullptr;
-            ASR::storage_typeType storage_type = param_var->m_storage;
-            ASR::abiType abi_type = param_var->m_abi;
-            ASR::accessType s_access = param_var->m_access;
-            ASR::presenceType s_presence = param_var->m_presence;
-            bool value_attr = param_var->m_value_attr;
-
-            // TODO: Copying variable can be abstracted into a function
-            Vec<char*> variable_dependencies_vec;
-            variable_dependencies_vec.reserve(al, 1);
-            ASRUtils::collect_variable_dependencies(al, variable_dependencies_vec, arg_type);
-            ASR::asr_t *v = ASR::make_Variable_t(al, loc, current_scope,
-                s2c(al, var_name), variable_dependencies_vec.p, variable_dependencies_vec.size(),
-                s_intent, init_expr, value, storage_type, arg_type,
-                abi_type, s_access, s_presence, value_attr);
-
-            current_scope->add_symbol(var_name, ASR::down_cast<ASR::symbol_t>(v));
-
-            ASR::symbol_t *var = current_scope->get_symbol(var_name);
-            args.push_back(al, ASRUtils::EXPR(ASR::make_Var_t(al, x->base.base.loc, var)));
-        }
-
-        ASR::expr_t *new_return_var_ref = nullptr;
-        if (x->m_return_var != nullptr) {
-            ASR::Variable_t *return_var = ASR::down_cast<ASR::Variable_t>(
-                (ASR::down_cast<ASR::Var_t>(x->m_return_var))->m_v);
-            std::string return_var_name = return_var->m_name;
-            ASR::ttype_t *return_param_type = ASRUtils::expr_type(x->m_return_var);
-            ASR::ttype_t *return_type = substitute_type(return_param_type);
-            Vec<char*> variable_dependencies_vec;
-            variable_dependencies_vec.reserve(al, 1);
-            ASRUtils::collect_variable_dependencies(al, variable_dependencies_vec, return_type);
-            ASR::asr_t *new_return_var = ASR::make_Variable_t(al, return_var->base.base.loc,
-                current_scope, s2c(al, return_var_name),
-                variable_dependencies_vec.p,
-                variable_dependencies_vec.size(),
-                return_var->m_intent, nullptr, nullptr,
-                return_var->m_storage, return_type,
-                return_var->m_abi, return_var->m_access,
-                return_var->m_presence, return_var->m_value_attr);
-            current_scope->add_symbol(return_var_name, ASR::down_cast<ASR::symbol_t>(new_return_var));
-            new_return_var_ref = ASRUtils::EXPR(ASR::make_Var_t(al, x->base.base.loc,
-                current_scope->get_symbol(return_var_name)));
-        }
-
-        // Rebuild the symbol table
-        for (auto const &sym_pair: x->m_symtab->get_scope()) {
-            if (current_scope->resolve_symbol(sym_pair.first) == nullptr) {
-                ASR::symbol_t *sym = sym_pair.second;
-                if (ASR::is_a<ASR::Variable_t>(*sym)) {
-                    ASR::ttype_t *new_sym_type = substitute_type(ASRUtils::symbol_type(sym));
-                    ASR::Variable_t *var_sym = ASR::down_cast<ASR::Variable_t>(sym);
-                    std::string var_sym_name = var_sym->m_name;
-                    Vec<char*> variable_dependencies_vec;
-                    variable_dependencies_vec.reserve(al, 1);
-                    ASRUtils::collect_variable_dependencies(al, variable_dependencies_vec, new_sym_type);
-                    ASR::asr_t *new_var = ASR::make_Variable_t(al, var_sym->base.base.loc,
-                        current_scope, s2c(al, var_sym_name), variable_dependencies_vec.p,
-                        variable_dependencies_vec.size(), var_sym->m_intent, nullptr, nullptr,
-                        var_sym->m_storage, new_sym_type, var_sym->m_abi, var_sym->m_access,
-                        var_sym->m_presence, var_sym->m_value_attr);
-                    current_scope->add_symbol(var_sym_name, ASR::down_cast<ASR::symbol_t>(new_var));
-                }
-            }
-        }
-
-        for (size_t i=0; i<ASRUtils::get_FunctionType(x)->n_restrictions; i++) {
-            rts.push_back(ASR::down_cast<ASR::Function_t>(ASRUtils::get_FunctionType(x)->m_restrictions[i]));
-        }
-
-        Vec<ASR::stmt_t*> body;
-        body.reserve(al, x->n_body);
-        for (size_t i=0; i<x->n_body; i++) {
-            ASR::stmt_t *new_body = this->duplicate_stmt(x->m_body[i]);
-            if (new_body != nullptr) {
-                body.push_back(al, new_body);
-            }
-        }
-
-        ASR::abiType func_abi = ASRUtils::get_FunctionType(x)->m_abi;
-        ASR::accessType func_access = x->m_access;
-        ASR::deftypeType func_deftype = ASRUtils::get_FunctionType(x)->m_deftype;
-        char *bindc_name = ASRUtils::get_FunctionType(x)->m_bindc_name;
-
-        bool func_elemental = ASRUtils::get_FunctionType(x)->m_elemental;
-        bool func_pure = ASRUtils::get_FunctionType(x)->m_pure;
-        bool func_module = ASRUtils::get_FunctionType(x)->m_module;
-
-        Vec<char*> deps_vec;
-        deps_vec.reserve(al, dependencies.size());
-        for( auto& dep: dependencies ) {
-            deps_vec.push_back(al, s2c(al, dep));
-        }
-
-        ASR::asr_t *result = ASRUtils::make_Function_t_util(
-            al, x->base.base.loc,
-            current_scope, s2c(al, new_func_name),
-            deps_vec.p, deps_vec.size(),
-            args.p, args.size(),
-            body.p, body.size(),
-            new_return_var_ref,
-            func_abi, func_access, func_deftype, bindc_name,
-            func_elemental, func_pure, func_module, ASRUtils::get_FunctionType(x)->m_inline,
-            ASRUtils::get_FunctionType(x)->m_static, nullptr, 0, nullptr, 0, false, false, false);
-
-        ASR::symbol_t *t = ASR::down_cast<ASR::symbol_t>(result);
-        func_scope->add_symbol(new_func_name, t);
-
-        return result;
-    }
-
-    ASR::asr_t* duplicate_Var(ASR::Var_t *x) {
-        std::string sym_name = ASRUtils::symbol_name(x->m_v);
-        ASR::symbol_t *sym = current_scope->get_symbol(sym_name);
-        return ASR::make_Var_t(al, x->base.base.loc, sym);
-    }
-
-    ASR::asr_t* duplicate_ArrayItem(ASR::ArrayItem_t *x) {
-        ASR::expr_t *m_v = duplicate_expr(x->m_v);
-        ASR::expr_t *m_value = duplicate_expr(x->m_value);
-
-        Vec<ASR::array_index_t> args;
-        args.reserve(al, x->n_args);
-        for (size_t i=0; i<x->n_args; i++) {
-            args.push_back(al, duplicate_array_index(x->m_args[i]));
-        }
-
-        ASR::ttype_t *type = substitute_type(x->m_type);
-
-        return ASR::make_ArrayItem_t(al, x->base.base.loc, m_v, args.p, x->n_args, type, ASR::arraystorageType::RowMajor, m_value);
-    }
-
-    ASR::asr_t* duplicate_ListItem(ASR::ListItem_t *x) {
-        ASR::expr_t *m_a = duplicate_expr(x->m_a);
-        ASR::expr_t *m_pos = duplicate_expr(x->m_pos);
-        ASR::ttype_t *type = substitute_type(x->m_type);
-        ASR::expr_t *m_value = duplicate_expr(x->m_value);
-
-        return ASR::make_ListItem_t(al, x->base.base.loc,
-            m_a, m_pos, type, m_value);
-    }
-
-    ASR::array_index_t duplicate_array_index(ASR::array_index_t x) {
-        ASR::expr_t *left = duplicate_expr(x.m_left);
-        ASR::expr_t *right = duplicate_expr(x.m_right);
-        ASR::expr_t *step = duplicate_expr(x.m_step);
-        ASR::array_index_t result;
-        result.m_left = left;
-        result.m_right = right;
-        result.m_step = step;
-        return result;
-    }
-
-    ASR::asr_t* duplicate_Assignment(ASR::Assignment_t *x) {
-        ASR::expr_t *target = duplicate_expr(x->m_target);
-        ASR::expr_t *value = duplicate_expr(x->m_value);
-        ASR::stmt_t *overloaded = duplicate_stmt(x->m_overloaded);
-        return ASR::make_Assignment_t(al, x->base.base.loc, target, value, overloaded);
-    }
-
-    ASR::asr_t* duplicate_DoLoop(ASR::DoLoop_t *x) {
-        Vec<ASR::stmt_t*> m_body;
-        m_body.reserve(al, x->n_body);
-        for (size_t i=0; i<x->n_body; i++) {
-            m_body.push_back(al, duplicate_stmt(x->m_body[i]));
-        }
-        ASR::do_loop_head_t head;
-        head.m_v = duplicate_expr(x->m_head.m_v);
-        head.m_start = duplicate_expr(x->m_head.m_start);
-        head.m_end = duplicate_expr(x->m_head.m_end);
-        head.m_increment = duplicate_expr(x->m_head.m_increment);
-        head.loc = x->m_head.m_v->base.loc;
-        return ASR::make_DoLoop_t(al, x->base.base.loc, head, m_body.p, x->n_body);
-    }
-
-    ASR::asr_t* duplicate_Cast(ASR::Cast_t *x) {
-        ASR::expr_t *arg = duplicate_expr(x->m_arg);
-        ASR::ttype_t *type = substitute_type(ASRUtils::expr_type(x->m_arg));
-        if (ASRUtils::is_real(*type)) {
-            return (ASR::asr_t*) arg;
-        }
-        return ASRUtils::make_Cast_t_value(al, x->base.base.loc, arg, ASR::cast_kindType::IntegerToReal, x->m_type);
-    }
-
-    ASR::asr_t* duplicate_FunctionCall(ASR::FunctionCall_t *x) {
-        std::string sym_name = ASRUtils::symbol_name(x->m_name);
-        ASR::symbol_t *name = func_scope->get_symbol(sym_name);
-        Vec<ASR::call_arg_t> args;
-        args.reserve(al, x->n_args);
-        for (size_t i=0; i<x->n_args; i++) {
-            ASR::call_arg_t new_arg;
-            new_arg.loc = x->m_args[i].loc;
-            new_arg.m_value = duplicate_expr(x->m_args[i].m_value);
-            args.push_back(al, new_arg);
-        }
-        ASR::ttype_t* type = substitute_type(x->m_type);
-        ASR::expr_t* value = duplicate_expr(x->m_value);
-        ASR::expr_t* dt = duplicate_expr(x->m_dt);
-        std::string call_name = ASRUtils::symbol_name(x->m_name);
-        if (ASRUtils::is_restriction_function(name)) {
-            name = rt_subs[call_name];
-        } else if (ASRUtils::is_generic_function(name)) {
-            std::string nested_func_name = "__asr_generic_" + sym_name;
-            ASR::symbol_t* name2 = ASRUtils::symbol_get_past_external(name);
-            ASR::Function_t* func = ASR::down_cast<ASR::Function_t>(name2);
-            FunctionInstantiator nested_tf(al, subs, rt_subs, func_scope, nested_func_name);
-            ASR::asr_t* nested_generic_func = nested_tf.instantiate_Function(func);
-            name = ASR::down_cast<ASR::symbol_t>(nested_generic_func);
-        }
-        dependencies.insert(std::string(ASRUtils::symbol_name(name)));
-        return ASR::make_FunctionCall_t(al, x->base.base.loc, name, x->m_original_name,
-            args.p, args.size(), type, value, dt);
-    }
-
-    ASR::ttype_t* substitute_type(ASR::ttype_t *param_type) {
-        if (ASR::is_a<ASR::List_t>(*param_type)) {
-            ASR::List_t *tlist = ASR::down_cast<ASR::List_t>(param_type);
-            return ASRUtils::TYPE(ASR::make_List_t(al, param_type->base.loc,
-                substitute_type(tlist->m_type)));
-        }
-        if (ASR::is_a<ASR::TypeParameter_t>(*param_type)) {
-            ASR::TypeParameter_t *param = ASR::down_cast<ASR::TypeParameter_t>(param_type);
-            Vec<ASR::dimension_t> new_dims;
-            new_dims.reserve(al, param->n_dims);
-            for (size_t i=0; i<param->n_dims; i++) {
-                ASR::dimension_t old_dim = param->m_dims[i];
-                ASR::dimension_t new_dim;
-                new_dim.loc = old_dim.loc;
-                new_dim.m_start = duplicate_expr(old_dim.m_start);
-                new_dim.m_length = duplicate_expr(old_dim.m_length);
-                new_dims.push_back(al, new_dim);
-            }
-            ASR::ttype_t *t = subs[param->m_param];
-            switch (t->type) {
-                case ASR::ttypeType::Integer: {
-                    ASR::Integer_t* tnew = ASR::down_cast<ASR::Integer_t>(t);
-                    return ASRUtils::TYPE(ASR::make_Integer_t(al, t->base.loc,
-                            tnew->m_kind, new_dims.p, new_dims.size()));
-                }
-                case ASR::ttypeType::Real: {
-                    ASR::Real_t* tnew = ASR::down_cast<ASR::Real_t>(t);
-                    return ASRUtils::TYPE(ASR::make_Real_t(al, t->base.loc,
-                            tnew->m_kind, new_dims.p, new_dims.size()));
-                }
-                case ASR::ttypeType::Character: {
-                    ASR::Character_t* tnew = ASR::down_cast<ASR::Character_t>(t);
-                    return ASRUtils::TYPE(ASR::make_Character_t(al, t->base.loc,
-                                tnew->m_kind, tnew->m_len, tnew->m_len_expr,
-                                new_dims.p, new_dims.size()));
-                }
-                default: return subs[param->m_param];
-            }
-        }
-        return param_type;
-    }
-
-    ASR::asr_t* make_BinOp_helper(ASR::expr_t *left, ASR::expr_t *right,
-            ASR::binopType op, const Location &loc) {
-        ASR::ttype_t *left_type = ASRUtils::expr_type(left);
-        ASR::ttype_t *right_type = ASRUtils::expr_type(right);
-        ASR::ttype_t *dest_type = nullptr;
-        ASR::expr_t *value = nullptr;
-
-        if (op == ASR::binopType::Div) {
-            dest_type = ASRUtils::TYPE(ASR::make_Real_t(al, loc, 8, nullptr, 0));
-            if (ASRUtils::is_integer(*left_type)) {
-                left = ASR::down_cast<ASR::expr_t>(ASRUtils::make_Cast_t_value(
-                    al, left->base.loc, left, ASR::cast_kindType::IntegerToReal, dest_type));
-            }
-            if (ASRUtils::is_integer(*right_type)) {
-                if (ASRUtils::expr_value(right) != nullptr) {
-                    int64_t val = ASR::down_cast<ASR::IntegerConstant_t>(ASRUtils::expr_value(right))->m_n;
-                    if (val == 0) {
-                        throw SemanticError("division by zero is not allowed", right->base.loc);
-                    }
-                }
-                right = ASR::down_cast<ASR::expr_t>(ASRUtils::make_Cast_t_value(
-                    al, right->base.loc, right, ASR::cast_kindType::IntegerToReal, dest_type));
-            } else if (ASRUtils::is_real(*right_type)) {
-                if (ASRUtils::expr_value(right) != nullptr) {
-                    double val = ASR::down_cast<ASR::RealConstant_t>(ASRUtils::expr_value(right))->m_r;
-                    if (val == 0.0) {
-                        throw SemanticError("float division by zero is not allowed", right->base.loc);
-                    }
-                }
-            }
-        }
-
-        if ((ASRUtils::is_integer(*left_type) || ASRUtils::is_real(*left_type)) &&
-                (ASRUtils::is_integer(*right_type) || ASRUtils::is_real(*right_type))) {
-            left = cast_helper(ASRUtils::expr_type(right), left);
-            right = cast_helper(ASRUtils::expr_type(left), right);
-            dest_type = substitute_type(ASRUtils::expr_type(left));
-        }
-
-        if (ASRUtils::is_integer(*dest_type)) {
-            if (ASRUtils::expr_value(left) != nullptr && ASRUtils::expr_value(right) != nullptr) {
-                int64_t left_value = ASR::down_cast<ASR::IntegerConstant_t>(ASRUtils::expr_value(left))->m_n;
-                int64_t right_value = ASR::down_cast<ASR::IntegerConstant_t>(ASRUtils::expr_value(right))->m_n;
-                int64_t result;
-                switch (op) {
-                    case (ASR::binopType::Add): { result = left_value + right_value; break; }
-                    case (ASR::binopType::Div): { result = left_value / right_value; break; }
-                    default: { LCOMPILERS_ASSERT(false); } // should never happen
-                }
-                value = ASR::down_cast<ASR::expr_t>(ASR::make_IntegerConstant_t(al, loc, result, dest_type));
-            }
-            return ASR::make_IntegerBinOp_t(al, loc, left, op, right, dest_type, value);
-        } else if (ASRUtils::is_real(*dest_type)) {
-            right = cast_helper(left_type, right);
-            dest_type = ASRUtils::expr_type(right);
-            if (ASRUtils::expr_value(left) != nullptr && ASRUtils::expr_value(right) != nullptr) {
-                double left_value = ASR::down_cast<ASR::RealConstant_t>(ASRUtils::expr_value(left))->m_r;
-                double right_value = ASR::down_cast<ASR::RealConstant_t>(ASRUtils::expr_value(right))->m_r;
-                double result;
-                switch (op) {
-                    case (ASR::binopType::Add): { result = left_value + right_value; break; }
-                    case (ASR::binopType::Div): { result = left_value / right_value; break; }
-                    default: { LCOMPILERS_ASSERT(false); }
-                }
-                value = ASR::down_cast<ASR::expr_t>(ASR::make_RealConstant_t(al, loc, result, dest_type));
-            }
-            return ASR::make_RealBinOp_t(al, loc, left, op, right, dest_type, value);
-        }
-
-        return nullptr;
-    }
-
-    ASR::expr_t *cast_helper(ASR::ttype_t *left_type, ASR::expr_t *right,
-            bool is_assign=false) {
-        ASR::ttype_t *right_type = ASRUtils::type_get_past_pointer(ASRUtils::expr_type(right));
-        if (ASRUtils::is_integer(*left_type) && ASRUtils::is_integer(*right_type)) {
-            int lkind = ASR::down_cast<ASR::Integer_t>(left_type)->m_kind;
-            int rkind = ASR::down_cast<ASR::Integer_t>(right_type)->m_kind;
-            if ((is_assign && (lkind != rkind)) || (lkind > rkind)) {
-                return ASR::down_cast<ASR::expr_t>(ASRUtils::make_Cast_t_value(
-                    al, right->base.loc, right, ASR::cast_kindType::IntegerToInteger,
-                    left_type));
-            }
-        }
-        return right;
-    }
-
-};
-
-ASR::symbol_t* pass_instantiate_generic_function(Allocator &al, std::map<std::string, ASR::ttype_t*> subs,
-        std::map<std::string, ASR::symbol_t*> rt_subs, SymbolTable *current_scope,
-        std::string new_func_name, ASR::symbol_t *sym) {
-    ASR::symbol_t* sym2 = ASRUtils::symbol_get_past_external(sym);
-    ASR::Function_t* func = ASR::down_cast<ASR::Function_t>(sym2);
-    FunctionInstantiator tf(al, subs, rt_subs, current_scope, new_func_name);
-    ASR::asr_t *new_function = tf.instantiate_Function(func);
-    return ASR::down_cast<ASR::symbol_t>(new_function);
-}
-
-} // namespace LCompilers
diff --git a/src/libasr/pass/instantiate_template.h b/src/libasr/pass/instantiate_template.h
deleted file mode 100644
index a914a8c963..0000000000
--- a/src/libasr/pass/instantiate_template.h
+++ /dev/null
@@ -1,18 +0,0 @@
-#ifndef LFORTRAN_PASS_TEMPLATE_VISITOR_H
-#define LFORTRAN_PASS_TEMPLATE_VISITOR_H
-
-#include <libasr/asr.h>
-
-namespace LCompilers {
-
-    /**
-     * @brief Instantiate a generic function into a function that does not
-     *        contain any type parameters and restrictions. No type checking
-     *        is executed here
-     */
-    ASR::symbol_t* pass_instantiate_generic_function(Allocator &al,
-        std::map<std::string, ASR::ttype_t*> subs, std::map<std::string, ASR::symbol_t*> rt_subs,
-        SymbolTable *current_scope, std::string new_func_name, ASR::symbol_t *sym);
-}
-
-#endif // LFORTRAN_PASS_TEMPLATE_VISITOR_H
diff --git a/src/libasr/pass/loop_unroll.cpp b/src/libasr/pass/loop_unroll.cpp
deleted file mode 100644
index 2e9e1c4678..0000000000
--- a/src/libasr/pass/loop_unroll.cpp
+++ /dev/null
@@ -1,118 +0,0 @@
-#include <libasr/asr.h>
-#include <libasr/containers.h>
-#include <libasr/exception.h>
-#include <libasr/asr_utils.h>
-#include <libasr/asr_verify.h>
-#include <libasr/pass/loop_unroll.h>
-#include <libasr/pass/pass_utils.h>
-
-#include <vector>
-#include <map>
-#include <utility>
-#include <cmath>
-
-
-namespace LCompilers {
-
-using ASR::down_cast;
-using ASR::is_a;
-
-class LoopUnrollVisitor : public PassUtils::PassVisitor<LoopUnrollVisitor>
-{
-private:
-
-    std::string rl_path;
-
-    int64_t unroll_factor;
-
-    ASRUtils::ExprStmtDuplicator node_duplicator;
-
-public:
-
-    LoopUnrollVisitor(Allocator &al_, const std::string& rl_path_,
-                      size_t unroll_factor_) :
-    PassVisitor(al_, nullptr), rl_path(rl_path_),
-    unroll_factor(unroll_factor_), node_duplicator(al_)
-    {
-        pass_result.reserve(al, 1);
-    }
-
-    void visit_DoLoop(const ASR::DoLoop_t& x) {
-        ASR::DoLoop_t& xx = const_cast<ASR::DoLoop_t&>(x);
-        ASR::do_loop_head_t x_head = x.m_head;
-        ASR::expr_t* x_start = ASRUtils::expr_value(x_head.m_start);
-        ASR::expr_t* x_end = ASRUtils::expr_value(x_head.m_end);
-        ASR::expr_t* x_inc = nullptr;
-        if( x_head.m_increment ) {
-            x_inc = ASRUtils::expr_value(x_head.m_increment);
-        } else {
-            ASR::ttype_t* int32_type = ASRUtils::TYPE(ASR::make_Integer_t(al, x.base.base.loc, 4, nullptr, 0));
-            x_inc = ASRUtils::EXPR(ASR::make_IntegerConstant_t(al, x_head.m_end->base.loc, 1, int32_type));
-        }
-
-        int64_t _start, _end, _inc;
-        if( !ASRUtils::is_value_constant(x_start, _start) ||
-            !ASRUtils::is_value_constant(x_end, _end) ||
-            !ASRUtils::is_value_constant(x_inc, _inc) ) {
-            return ;
-        }
-        int64_t loop_size = (_end - _start)/_inc + 1;
-        int64_t unroll_factor_ = std::min(unroll_factor, loop_size);
-        bool create_unrolled_loop = unroll_factor_ < loop_size;
-        // Avoid unnecessary loop unrolling
-        if( !create_unrolled_loop ) {
-            return ;
-        }
-        int64_t groups = loop_size / unroll_factor_;
-        int64_t new_end = _start + (groups - 1) * _inc * unroll_factor_ + (unroll_factor_ - 1) * _inc;
-        int64_t remaining_part = loop_size % unroll_factor_;
-        ASR::ttype_t *int32_type = ASRUtils::TYPE(ASR::make_Integer_t(al, x.base.base.loc,
-                                                            4, nullptr, 0));
-        xx.m_head.m_end = ASRUtils::EXPR(ASR::make_IntegerConstant_t(al, x_end->base.loc, new_end, int32_type));
-
-        Vec<ASR::stmt_t*> init_and_whileloop = PassUtils::replace_doloop(al, x);
-        ASR::stmt_t* whileloop_stmt = init_and_whileloop[1];
-        ASR::WhileLoop_t* whileloop = ASR::down_cast<ASR::WhileLoop_t>(whileloop_stmt);
-        ASR::stmt_t* init_stmt = init_and_whileloop[0];
-
-        Vec<ASR::stmt_t*> unrolled_loop;
-        unrolled_loop.reserve(al, whileloop->n_body * unroll_factor_);
-        for( size_t i = 0; i < whileloop->n_body; i++ ) {
-            unrolled_loop.push_back(al, whileloop->m_body[i]);
-        }
-
-        for( int64_t j = 1; j < unroll_factor_; j++ ) {
-            for( size_t i = 0; i < whileloop->n_body; i++ ) {
-                node_duplicator.success = true;
-                ASR::stmt_t* m_body_copy = node_duplicator.duplicate_stmt(whileloop->m_body[i]);
-                if( !node_duplicator.success ) {
-                    return ;
-                }
-                unrolled_loop.push_back(al, m_body_copy);
-            }
-        }
-
-        pass_result.push_back(al, init_stmt);
-        ASR::stmt_t* unrolled_whileloop = ASRUtils::STMT(ASR::make_WhileLoop_t(al, x.base.base.loc,
-                                                            whileloop->m_test, unrolled_loop.p, unrolled_loop.size()));
-        pass_result.push_back(al, unrolled_whileloop);
-        for( int64_t i = 0; i < remaining_part; i++ ) {
-            for( size_t i = 0; i < whileloop->n_body; i++ ) {
-                ASR::stmt_t* m_body_copy = node_duplicator.duplicate_stmt(whileloop->m_body[i]);
-                pass_result.push_back(al, m_body_copy);
-            }
-        }
-    }
-
-};
-
-void pass_loop_unroll(Allocator &al, ASR::TranslationUnit_t &unit,
-                      const LCompilers::PassOptions& pass_options) {
-    std::string rl_path = pass_options.runtime_library_dir;
-    int64_t unroll_factor = pass_options.unroll_factor;
-    LoopUnrollVisitor v(al, rl_path, unroll_factor);
-    v.visit_TranslationUnit(unit);
-}
-
-
-} // namespace LCompilers
diff --git a/src/libasr/pass/loop_unroll.h b/src/libasr/pass/loop_unroll.h
deleted file mode 100644
index 37eddf1355..0000000000
--- a/src/libasr/pass/loop_unroll.h
+++ /dev/null
@@ -1,14 +0,0 @@
-#ifndef LIBASR_PASS_LOOP_UNROLL_H
-#define LIBASR_PASS_LOOP_UNROLL_H
-
-#include <libasr/asr.h>
-#include <libasr/utils.h>
-
-namespace LCompilers {
-
-    void pass_loop_unroll(Allocator &al, ASR::TranslationUnit_t &unit,
-                          const LCompilers::PassOptions& pass_options);
-
-} // namespace LCompilers
-
-#endif // LIBASR_PASS_LOOP_UNROLL_H
diff --git a/src/libasr/pass/loop_vectorise.cpp b/src/libasr/pass/loop_vectorise.cpp
deleted file mode 100644
index d6e4533488..0000000000
--- a/src/libasr/pass/loop_vectorise.cpp
+++ /dev/null
@@ -1,201 +0,0 @@
-#include <libasr/asr.h>
-#include <libasr/containers.h>
-#include <libasr/exception.h>
-#include <libasr/asr_utils.h>
-#include <libasr/asr_verify.h>
-#include <libasr/pass/loop_vectorise.h>
-#include <libasr/pass/pass_utils.h>
-
-#include <vector>
-#include <utility>
-#include <cmath>
-
-
-namespace LCompilers {
-
-using ASR::down_cast;
-using ASR::is_a;
-
-/*
-
-This ASR pass converts loops over arrays with a call to internal
-optimization routine for loop vectorisation. This allows backend
-specific code generation for vector operations resulting in optimized
-code.
-
-Converts:
-
-    i: i32
-    for i in range(9216):
-        a[i] = b[i]
-
-to:
-
-    for i in range(0, 9216, 8):
-        vector_copy(8, a[i*8:(i+1)*8], b[i*8:(i+1)*8])
-
-*/
-class LoopVectoriseVisitor : public PassUtils::SkipOptimizationFunctionVisitor<LoopVectoriseVisitor>
-{
-private:
-    ASR::TranslationUnit_t &unit;
-
-    std::string rl_path;
-
-    // To make sure that FMA is applied only for
-    // the nodes implemented in this class
-    bool from_loop_vectorise;
-
-    const int64_t avx512 = 512;
-
-public:
-    LoopVectoriseVisitor(Allocator &al_, ASR::TranslationUnit_t &unit_,
-                         const std::string& rl_path_) : SkipOptimizationFunctionVisitor(al_),
-    unit(unit_), rl_path(rl_path_), from_loop_vectorise(false)
-    {
-        pass_result.reserve(al, 1);
-    }
-
-    bool is_loop(const ASR::stmt_t& x) {
-        return (ASR::is_a<ASR::DoLoop_t>(x) ||
-                ASR::is_a<ASR::WhileLoop_t>(x));
-    }
-
-    bool is_vector_copy(ASR::stmt_t* x, Vec<ASR::expr_t*>& arrays) {
-        if( !ASR::is_a<ASR::Assignment_t>(*x) ) {
-            return false;
-        }
-        ASR::Assignment_t* x_assignment = ASR::down_cast<ASR::Assignment_t>(x);
-        ASR::expr_t* target = x_assignment->m_target;
-        ASR::expr_t* value = x_assignment->m_value;
-        if( !ASR::is_a<ASR::ArrayItem_t>(*target) ||
-            !ASR::is_a<ASR::ArrayItem_t>(*value) ) {
-            return false;
-        }
-        ASR::ArrayItem_t* target_array_ref = ASR::down_cast<ASR::ArrayItem_t>(target);
-        ASR::ArrayItem_t* value_array_ref = ASR::down_cast<ASR::ArrayItem_t>(value);
-        if( target_array_ref->m_args->m_left ||
-            target_array_ref->m_args->m_step ||
-            value_array_ref->m_args->m_left ||
-            value_array_ref->m_args->m_step ) {
-            return false;
-        }
-        arrays.push_back(al, target_array_ref->m_v);
-        arrays.push_back(al, value_array_ref->m_v);
-        return true;
-    }
-
-    int64_t select_vector_instruction_size() {
-        return avx512;
-    }
-
-    int64_t get_vector_length(ASR::ttype_t* type) {
-        int kind = ASRUtils::extract_kind_from_ttype_t(type);
-        int64_t instruction_length = select_vector_instruction_size();
-        // TODO: Add check for divisibility and raise error if needed.
-        return instruction_length/(kind * 8);
-    }
-
-    void get_vector_intrinsic(ASR::stmt_t* loop_stmt, ASR::expr_t* index,
-                              ASR::expr_t*& vector_length,
-                              Vec<ASR::stmt_t*>& vectorised_loop_body) {
-        LCOMPILERS_ASSERT(vectorised_loop_body.reserve_called);
-        Vec<ASR::expr_t*> arrays;
-        arrays.reserve(al, 2);
-        if( is_vector_copy(loop_stmt, arrays) ) {
-            ASR::expr_t *target_sym = arrays[0], *value_sym = arrays[1];
-            ASR::ttype_t* target_type = ASRUtils::expr_type(target_sym);
-            int64_t vector_length_int = get_vector_length(target_type);
-            vector_length = ASRUtils::EXPR(ASR::make_IntegerConstant_t(al, loop_stmt->base.loc,
-                                vector_length_int, ASRUtils::expr_type(index)));
-            ASR::expr_t* start = ASRUtils::EXPR(ASR::make_IntegerBinOp_t(al, loop_stmt->base.loc, index, ASR::binopType::Mul,
-                                        vector_length, ASRUtils::expr_type(index), nullptr));
-            ASR::expr_t* one = ASRUtils::EXPR(ASR::make_IntegerConstant_t(al, loop_stmt->base.loc,
-                                    1, ASRUtils::expr_type(index)));
-            ASR::expr_t* next_index = ASRUtils::EXPR(ASR::make_IntegerBinOp_t(al, loop_stmt->base.loc, index, ASR::binopType::Add,
-                                            one, ASRUtils::expr_type(index), nullptr));
-            ASR::expr_t* end = ASRUtils::EXPR(ASR::make_IntegerBinOp_t(al, loop_stmt->base.loc, next_index, ASR::binopType::Mul,
-                                        vector_length, ASRUtils::expr_type(index), nullptr));
-            vectorised_loop_body.push_back(al, PassUtils::get_vector_copy(target_sym, value_sym, start,
-                end, one, vector_length,
-                al, unit,
-                current_scope, loop_stmt->base.loc));
-            return ;
-        }
-    }
-
-    void vectorise_loop(const ASR::DoLoop_t& x) {
-        // Do Vectorisation of Loop inside this function
-        ASR::expr_t* loop_start = x.m_head.m_start;
-        ASR::expr_t* loop_end = x.m_head.m_end;
-        ASR::expr_t* loop_inc = x.m_head.m_increment;
-        ASR::expr_t* loop_start_value = ASRUtils::expr_value(loop_start);
-        ASR::expr_t* loop_end_value = ASRUtils::expr_value(loop_end);
-        ASR::expr_t* loop_inc_value = ASRUtils::expr_value(loop_inc);
-        if( !ASRUtils::is_value_constant(loop_start_value) ||
-            !ASRUtils::is_value_constant(loop_end_value) ||
-            !ASRUtils::is_value_constant(loop_inc_value) ) {
-            // Skip vectorisation of variable sized loops
-            return ;
-        }
-        ASR::stmt_t* loop_stmt = x.m_body[0];
-        int64_t loop_start_int = -1, loop_end_int = -1, loop_inc_int = -1;
-        ASRUtils::extract_value(loop_start_value, loop_start_int);
-        ASRUtils::extract_value(loop_end_value, loop_end_int);
-        ASRUtils::extract_value(loop_inc_value, loop_inc_int);
-        int64_t loop_size = (loop_end_int - loop_start_int) / loop_inc_int + 1;
-        ASR::expr_t* vector_length = nullptr;
-        Vec<ASR::stmt_t*> vectorised_loop_body;
-        vectorised_loop_body.reserve(al, x.n_body);
-        get_vector_intrinsic(loop_stmt, x.m_head.m_v,
-                             vector_length, vectorised_loop_body);
-        if( !vector_length ) {
-            return ;
-        }
-        ASR::do_loop_head_t vectorised_loop_head;
-        vectorised_loop_head.m_start = loop_start;
-        int64_t vector_length_int = -1;
-        ASRUtils::extract_value(vector_length, vector_length_int);
-        // TODO: Add tests for loop sizes not divisible by vector_length.
-        vectorised_loop_head.m_end = ASRUtils::EXPR(ASR::make_IntegerConstant_t(al, x.m_head.m_v->base.loc,
-                                        loop_size/vector_length_int - 1, ASRUtils::expr_type(x.m_head.m_v)));
-        // TODO: Update this for increments other 1.
-        ASR::expr_t* one = ASRUtils::EXPR(ASR::make_IntegerConstant_t(al, loop_stmt->base.loc,
-                                    1, ASRUtils::expr_type(x.m_head.m_v)));
-        vectorised_loop_head.m_increment = one;
-        vectorised_loop_head.m_v = x.m_head.m_v;
-        vectorised_loop_head.loc = x.m_head.loc;
-
-        ASR::stmt_t* vectorised_loop = ASRUtils::STMT(ASR::make_DoLoop_t(al, x.base.base.loc,
-                                            vectorised_loop_head, vectorised_loop_body.p,
-                                            vectorised_loop_body.size()));
-        pass_result.push_back(al, vectorised_loop);
-    }
-
-    void visit_DoLoop(const ASR::DoLoop_t& x) {
-        from_loop_vectorise = true;
-        if( x.n_body == 1 ) {
-            // Vectorise
-            if( is_loop(*x.m_body[0]) ) {
-                from_loop_vectorise = false;
-                visit_stmt(*x.m_body[0]);
-                return ;
-            }
-            vectorise_loop(x);
-        }
-        from_loop_vectorise = false;
-    }
-
-};
-
-void pass_loop_vectorise(Allocator &al, ASR::TranslationUnit_t &unit,
-                         const LCompilers::PassOptions& pass_options) {
-    std::string rl_path = pass_options.runtime_library_dir;
-    LoopVectoriseVisitor v(al, unit, rl_path);
-    v.visit_TranslationUnit(unit);
-    PassUtils::UpdateDependenciesVisitor u(al);
-    u.visit_TranslationUnit(unit);
-}
-
-
-} // namespace LCompilers
diff --git a/src/libasr/pass/loop_vectorise.h b/src/libasr/pass/loop_vectorise.h
deleted file mode 100644
index 2391446068..0000000000
--- a/src/libasr/pass/loop_vectorise.h
+++ /dev/null
@@ -1,14 +0,0 @@
-#ifndef LIBASR_PASS_LOOP_VECTORISE_H
-#define LIBASR_PASS_LOOP_VECTORISE_H
-
-#include <libasr/asr.h>
-#include <libasr/utils.h>
-
-namespace LCompilers {
-
-    void pass_loop_vectorise(Allocator &al, ASR::TranslationUnit_t &unit,
-                             const LCompilers::PassOptions& pass_options);
-
-} // namespace LCompilers
-
-#endif // LIBASR_PASS_LOOP_VECTORISE_H
diff --git a/src/libasr/pass/nested_vars.cpp b/src/libasr/pass/nested_vars.cpp
deleted file mode 100644
index 88c10668e5..0000000000
--- a/src/libasr/pass/nested_vars.cpp
+++ /dev/null
@@ -1,330 +0,0 @@
-#include <libasr/asr.h>
-#include <libasr/containers.h>
-#include <libasr/exception.h>
-#include <libasr/asr_utils.h>
-#include <libasr/asr_verify.h>
-#include <libasr/pass/nested_vars.h>
-#include <llvm/IR/Verifier.h>
-#include <unordered_map>
-
-namespace LCompilers {
-
-using ASR::down_cast;
-
-/*
-
-This ASR pass is solely an analysis pass to determine if nested procedures
-need access to variables from an outer scope. Such variables get hashed
-and later compared to variable declarations while emitting IR. If we get a
-hash match, that variable is placed in a global struct where it can be accessed
-from the inner scope
-
-*/
-
-uint64_t static get_hash(ASR::asr_t *node)
-{
-    return (uint64_t)node;
-}
-
-class NestedVarVisitor : public ASR::BaseWalkVisitor<NestedVarVisitor>
-{
-private:
-    size_t nesting_depth = 0;
-    SymbolTable* current_scope;
-    llvm::LLVMContext &context;
-    std::vector<uint64_t> &needed_globals;
-    std::vector<uint64_t> &nested_call_out;
-    std::map<uint64_t, std::vector<uint64_t>> &nesting_map;
-
-public:
-
-    NestedVarVisitor(llvm::LLVMContext &context, std::vector<uint64_t>
-        &needed_globals, std::vector<uint64_t> &nested_call_out,
-        std::map<uint64_t, std::vector<uint64_t>>&nesting_map) :
-        context{context},
-        needed_globals{needed_globals},
-        nested_call_out{nested_call_out}, nesting_map{nesting_map} { };
-    // Basically want to store a hash for each procedure and a hash for the
-    // needed global types
-    //std::map<uint64_t, std::vector<llvm::Type*>> nested_func_types;
-    uint32_t cur_func_hash;
-    uint32_t par_func_hash;
-    std::vector<llvm::Type*> proc_types;
-    std::map<uint64_t, std::vector<llvm::Type*>> nested_func_types;
-    std::vector<uint64_t> calls_to;
-    bool calls_out = false;
-
-    inline llvm::Type* getIntType(int a_kind, bool get_pointer=false) {
-        llvm::Type* type_ptr = nullptr;
-        if( get_pointer ) {
-            switch(a_kind)
-            {
-                case 4:
-                    type_ptr = llvm::Type::getInt32PtrTy(context);
-                    break;
-                case 8:
-                    type_ptr = llvm::Type::getInt64PtrTy(context);
-                    break;
-                default:
-                    throw LCompilersException("Only 32 and 64 bits integer kinds are supported.");
-            }
-        } else {
-            switch(a_kind)
-            {
-                case 4:
-                    type_ptr = llvm::Type::getInt32Ty(context);
-                    break;
-                case 8:
-                    type_ptr = llvm::Type::getInt64Ty(context);
-                    break;
-                default:
-                    throw LCompilersException("Only 32 and 64 bits integer kinds are supported.");
-            }
-        }
-        return type_ptr;
-    }
-
-    inline llvm::Type* getFPType(int a_kind, bool get_pointer=false) {
-        llvm::Type* type_ptr = nullptr;
-        if( get_pointer ) {
-            switch(a_kind)
-            {
-                case 4:
-                    type_ptr = llvm::Type::getFloatPtrTy(context);
-                    break;
-                case 8:
-                    type_ptr =  llvm::Type::getDoublePtrTy(context);
-                    break;
-                default:
-                    throw LCompilersException("Only 32 and 64 bits real kinds are supported.");
-            }
-        } else {
-            switch(a_kind)
-            {
-                case 4:
-                    type_ptr = llvm::Type::getFloatTy(context);
-                    break;
-                case 8:
-                    type_ptr = llvm::Type::getDoubleTy(context);
-                    break;
-                default:
-                    throw LCompilersException("Only 32 and 64 bits real kinds are supported.");
-            }
-        }
-        return type_ptr;
-    }
-
-    inline llvm::Type* getLogicalType(int /*a_kind*/, bool get_pointer=false) {
-        llvm::Type* type_ptr = nullptr;
-        if (get_pointer) {
-            type_ptr = llvm::Type::getInt1PtrTy(context);
-        } else {
-            type_ptr = llvm::Type::getInt1Ty(context);
-        }
-        return type_ptr;
-    }
-
-    template<typename T>
-    void visit_procedure(const T &x) {
-        nesting_depth++;
-        if (nesting_depth == 1) {
-            for (auto &item : x.m_symtab->get_scope()) {
-                if (ASR::is_a<ASR::Function_t>(*item.second)) {
-                    par_func_hash = cur_func_hash;
-                    ASR::Function_t *s = ASR::down_cast<ASR::Function_t>(
-                        item.second);
-                    for (size_t i = 0; i < x.n_body; i++) {
-                        visit_stmt(*x.m_body[i]);
-                    }
-                    visit_Function(*s);
-                }
-            }
-        } else {
-            nesting_map[par_func_hash].push_back(cur_func_hash);
-            std::vector<llvm::Type*> proc_types_i;
-            nested_func_types.insert({cur_func_hash, proc_types_i});
-            current_scope = x.m_symtab;
-            if (calls_out && ASRUtils::get_FunctionType(x)->m_deftype == ASR::Implementation){
-                if (std::find(calls_to.begin(), calls_to.end(), cur_func_hash)
-                    == calls_to.end() && calls_to.size() >= 1){
-                    /* Parent function does not call the nested function - if
-                       the function makes any external calls, we must save the
-                       context  */
-                    nested_call_out.push_back(par_func_hash);
-                } else if (std::find(calls_to.begin(), calls_to.end(),
-                    cur_func_hash) != calls_to.end() && calls_to.size() >= 2 ){
-                    /* Parent function does call the nested function - if the
-                       function makes any other external calls, we must save the
-                       context  */
-                    nested_call_out.push_back(par_func_hash);
-                }
-            }
-            for (size_t i = 0; i < x.n_body; i++) {
-                visit_stmt(*x.m_body[i]);
-            }
-        }
-        nesting_depth--;
-        if (nesting_depth == 0){
-            calls_out = false;
-            calls_to.clear();
-        }
-    }
-
-
-    void visit_procedure(const ASR::Program_t &x) {
-        nesting_depth++;
-        if (nesting_depth == 1) {
-            for (auto &item : x.m_symtab->get_scope()) {
-                if (ASR::is_a<ASR::Function_t>(*item.second)) {
-                    par_func_hash = cur_func_hash;
-                    ASR::Function_t *s = ASR::down_cast<ASR::Function_t>(
-                        item.second);
-                    for (size_t i = 0; i < x.n_body; i++) {
-                        visit_stmt(*x.m_body[i]);
-                    }
-                    visit_Function(*s);
-                }
-            }
-        } else {
-            nesting_map[par_func_hash].push_back(cur_func_hash);
-            std::vector<llvm::Type*> proc_types_i;
-            nested_func_types.insert({cur_func_hash, proc_types_i});
-            current_scope = x.m_symtab;
-            if (calls_out){
-                if (std::find(calls_to.begin(), calls_to.end(), cur_func_hash)
-                    == calls_to.end() && calls_to.size() >= 1){
-                    /* Parent function does not call the nested function - if
-                       the function makes any external calls, we must save the
-                       context  */
-                    nested_call_out.push_back(par_func_hash);
-                } else if (std::find(calls_to.begin(), calls_to.end(),
-                    cur_func_hash) != calls_to.end() && calls_to.size() >= 2 ){
-                    /* Parent function does call the nested function - if the
-                       function makes any other external calls, we must save the
-                       context  */
-                    nested_call_out.push_back(par_func_hash);
-                }
-            }
-            for (size_t i = 0; i < x.n_body; i++) {
-                visit_stmt(*x.m_body[i]);
-            }
-        }
-        nesting_depth--;
-        if (nesting_depth == 0){
-            calls_out = false;
-            calls_to.clear();
-        }
-    }
-
-
-    void visit_Program(const ASR::Program_t &x) {
-        cur_func_hash = get_hash((ASR::asr_t*)&x);
-        visit_procedure(x);
-    }
-
-    void visit_Function(const ASR::Function_t &x) {
-        cur_func_hash = get_hash((ASR::asr_t*)&x);
-        visit_procedure(x);
-    }
-
-    void visit_FunctionCall(const ASR::FunctionCall_t &x) {
-        if (nesting_depth) {
-            // Have to save all the calls out and make sure they are not solely
-            // to the nested function
-            ASR::Function_t *s = ASR::down_cast<ASR::Function_t>(
-                ASRUtils::symbol_get_past_external(x.m_name));
-            uint32_t call_hash = get_hash((ASR::asr_t*)s);
-            if (std::find(calls_to.begin(), calls_to.end(), call_hash) ==
-                calls_to.end()){
-                calls_to.push_back(call_hash);
-            }
-            for (size_t i=0; i<x.n_args; i++) {
-                if (ASR::is_a<ASR::Var_t>(*x.m_args[i].m_value)) {
-                    visit_Var(*ASR::down_cast<ASR::Var_t>(x.m_args[i].m_value));
-                }
-            }
-            calls_out = true;
-        }
-    }
-
-    void visit_SubroutineCall(const ASR::SubroutineCall_t &x) {
-        if (nesting_depth) {
-            ASR::Function_t *s = ASR::down_cast<ASR::Function_t>(
-                ASRUtils::symbol_get_past_external(x.m_name));
-            uint32_t call_hash = get_hash((ASR::asr_t*)s);
-            if (std::find(calls_to.begin(), calls_to.end(), call_hash) ==
-                calls_to.end()){
-                calls_to.push_back(call_hash);
-            }
-            for (size_t i=0; i<x.n_args; i++) {
-                if (ASR::is_a<ASR::Var_t>(*x.m_args[i].m_value)) {
-                    visit_Var(*ASR::down_cast<ASR::Var_t>(x.m_args[i].m_value));
-                }
-            }
-            calls_out = true;
-        }
-    }
-
-    void visit_Var(const ASR::Var_t &x) {
-        // Only attempt if we are actually in a nested function
-        if (nesting_depth > 1) {
-            ASR::Variable_t *v = ASR::down_cast<ASR::Variable_t>(
-                    ASRUtils::symbol_get_past_external(x.m_v));
-            // If the variable is not defined in the current scope, it is a
-            // "needed global" since we need to be able to access it from the
-            // nested procedure.
-            if (current_scope->get_symbol(v->m_name) ==
-                        nullptr) {
-                uint32_t h = get_hash((ASR::asr_t*)v);
-                llvm::Type* rel_type;
-                auto finder = std::find(needed_globals.begin(),
-                        needed_globals.end(), h);
-
-                if (finder == needed_globals.end()) {
-                    needed_globals.push_back(h);
-                    switch(v->m_type->type){
-                        case ASR::ttypeType::Integer: {
-                            int a_kind = down_cast<ASR::Integer_t>(v->m_type)->
-                                m_kind;
-                            rel_type = getIntType(a_kind)->getPointerTo();
-                            break;
-                        }
-                        case ASR::ttypeType::Real: {
-                            int a_kind = down_cast<ASR::Real_t>(v->m_type)->
-                                m_kind;
-                            rel_type = getFPType(a_kind)->getPointerTo();
-                            break;
-                        }
-                        case ASR::ttypeType::Logical: {
-                            int a_kind = down_cast<ASR::Logical_t>(v->m_type)->
-                                m_kind;
-                            rel_type = getLogicalType(a_kind)->getPointerTo();
-                            break;
-                        }
-                        default: {
-                            throw LCompilersException("Variable type not supported in nested functions");
-                            break;
-                        }
-                    }
-                    proc_types.push_back(rel_type);
-                    nested_func_types[par_func_hash].push_back(rel_type);
-                }
-            }
-        }
-    }
-
-
-};
-
-std::map<uint64_t, std::vector<llvm::Type*>> pass_find_nested_vars(
-        const ASR::TranslationUnit_t &unit, llvm::LLVMContext &context,
-        std::vector<uint64_t> &needed_globals,
-        std::vector<uint64_t> &nested_call_out,
-        std::map<uint64_t, std::vector<uint64_t>> &nesting_map) {
-    NestedVarVisitor v(context, needed_globals, nested_call_out, nesting_map);
-    v.visit_TranslationUnit(unit);
-    return v.nested_func_types;
-}
-
-
-} // namespace LCompilers
diff --git a/src/libasr/pass/nested_vars.h b/src/libasr/pass/nested_vars.h
deleted file mode 100644
index e669e6fd7d..0000000000
--- a/src/libasr/pass/nested_vars.h
+++ /dev/null
@@ -1,17 +0,0 @@
-#ifndef LFORTRAN_PASS_NESTED_VARS_H
-#define LFORTRAN_PASS_NESTED_VARS_H
-
-#include <libasr/asr.h>
-#include <llvm/IR/Type.h>
-
-namespace LCompilers {
-
-     std::map<uint64_t, std::vector<llvm::Type*>> pass_find_nested_vars(
-             const ASR::TranslationUnit_t &unit, llvm::LLVMContext &context,
-             std::vector<uint64_t> &needed_globals,
-             std::vector<uint64_t> &nested_call_out,
-             std::map<uint64_t, std::vector<uint64_t>> &nesting_map);
-
-} // namespace LCompilers
-
-#endif // LFORTRAN_PASS_NESTED_VARS_H
diff --git a/src/libasr/pass/param_to_const.cpp b/src/libasr/pass/param_to_const.cpp
deleted file mode 100644
index 37df2ea701..0000000000
--- a/src/libasr/pass/param_to_const.cpp
+++ /dev/null
@@ -1,204 +0,0 @@
-#include <libasr/asr.h>
-#include <libasr/containers.h>
-#include <libasr/exception.h>
-#include <libasr/asr_utils.h>
-#include <libasr/asr_verify.h>
-#include <libasr/pass/param_to_const.h>
-
-
-namespace LCompilers {
-
-using ASR::down_cast;
-using ASR::is_a;
-
-/*
-
-This ASR pass replaces initializer expressions with evaluated values. The function
-`pass_replace_param_to_const` transforms the ASR tree in-place.
-
-Converts:
-
-    integer, parameter :: i = 20
-    integer :: a = i**2 + i
-
-to:
-
-    integer, parameter :: i = 20
-    integer :: a = 20**2 + 20
-
-*/
-
-class VarVisitor : public ASR::BaseWalkVisitor<VarVisitor>
-{
-private:
-    ASR::expr_t* asr;
-
-public:
-    // Currently `al` is not used, but we might need it in the future:
-    Allocator &al;
-
-    VarVisitor(Allocator &al) : asr{nullptr}, al{al} {
-    }
-
-    void visit_Program(const ASR::Program_t &x) {
-        for (auto &item : x.m_symtab->get_scope()) {
-            if (is_a<ASR::Variable_t>(*item.second)) {
-                ASR::Variable_t *v = down_cast<ASR::Variable_t>(item.second);
-                visit_Variable(*v);
-            }
-        }
-    }
-
-    void visit_IntegerUnaryMinus(const ASR::IntegerUnaryMinus_t &x) {
-        visit_UnaryOp(x);
-    }
-    void visit_RealUnaryMinus(const ASR::RealUnaryMinus_t &x) {
-        visit_UnaryOp(x);
-    }
-    void visit_ComplexUnaryMinus(const ASR::ComplexUnaryMinus_t &x) {
-        visit_UnaryOp(x);
-    }
-    void visit_IntegerBitNot(const ASR::IntegerBitNot_t &x) {
-        visit_UnaryOp(x);
-    }
-    void visit_LogicalNot(const ASR::LogicalNot_t &x) {
-        visit_UnaryOp(x);
-    }
-
-    template<typename T>
-    void visit_UnaryOp(const T& x) {
-        T& x_unconst = const_cast<T&>(x);
-        asr = nullptr;
-        this->visit_expr(*x.m_arg);
-        if( asr != nullptr ) {
-            x_unconst.m_arg = asr;
-        }
-        asr = const_cast<ASR::expr_t*>(&(x.base));
-    }
-
-    void visit_IntegerCompare(const ASR::IntegerCompare_t& x) {
-        handle_Compare(x);
-    }
-
-    void visit_RealCompare(const ASR::RealCompare_t &x) {
-        handle_Compare(x);
-    }
-
-    void visit_ComplexCompare(const ASR::ComplexCompare_t &x) {
-        handle_Compare(x);
-    }
-
-    void visit_LogicalCompare(const ASR::LogicalCompare_t &x) {
-        handle_Compare(x);
-    }
-
-    void visit_StringCompare(const ASR::StringCompare_t &x) {
-        handle_Compare(x);
-    }
-
-    template <typename T>
-    void handle_Compare(const T& x) {
-        T& x_unconst = const_cast<T&>(x);
-        asr = nullptr;
-        this->visit_expr(*x.m_left);
-        if( asr != nullptr ) {
-            x_unconst.m_left = asr;
-        }
-        asr = nullptr;
-        this->visit_expr(*x.m_right);
-        if( asr != nullptr ) {
-            x_unconst.m_right = asr;
-        }
-        asr = const_cast<ASR::expr_t*>(&(x.base));
-    }
-
-    void visit_IntegerBinOp(const ASR::IntegerBinOp_t& x) {
-        handle_BinOp(x);
-    }
-
-    void visit_RealBinOp(const ASR::RealBinOp_t& x) {
-        handle_BinOp(x);
-    }
-
-    void visit_ComplexBinOp(const ASR::ComplexBinOp_t& x) {
-        handle_BinOp(x);
-    }
-
-    void visit_LogicalBinOp(const ASR::LogicalBinOp_t& x) {
-        handle_BinOp(x);
-    }
-
-    template <typename T>
-    void handle_BinOp(const T& x) {
-        T& x_unconst = const_cast<T&>(x);
-        asr = nullptr;
-        this->visit_expr(*x.m_left);
-        if( asr != nullptr ) {
-            x_unconst.m_left = asr;
-        }
-        asr = nullptr;
-        this->visit_expr(*x.m_right);
-        if( asr != nullptr ) {
-            x_unconst.m_right = asr;
-        }
-        asr = const_cast<ASR::expr_t*>(&(x.base));
-    }
-
-    void visit_Cast(const ASR::Cast_t& x) {
-        /*
-        asr = nullptr;
-        this->visit_expr(*x.m_arg);
-        ASR::Cast_t& x_unconst = const_cast<ASR::Cast_t&>(x);
-        if( asr != nullptr ) {
-            x_unconst.m_arg = asr;
-        }
-        */
-        asr = const_cast<ASR::expr_t*>(&(x.base));
-    }
-
-    void visit_Var(const ASR::Var_t& x) {
-        if (is_a<ASR::Variable_t>(*ASRUtils::symbol_get_past_external(x.m_v))) {
-            ASR::Variable_t *init_var = ASR::down_cast<ASR::Variable_t>(ASRUtils::symbol_get_past_external(x.m_v));
-            if( init_var->m_storage == ASR::storage_typeType::Parameter ) {
-                if( init_var->m_symbolic_value == nullptr ) {
-                    asr = init_var->m_symbolic_value;
-                } else {
-                    switch( init_var->m_symbolic_value->type ) {
-                        case ASR::exprType::IntegerConstant:
-                        case ASR::exprType::RealConstant:
-                        case ASR::exprType::ComplexConstant:
-                        case ASR::exprType::LogicalConstant:
-                        case ASR::exprType::StringConstant: {
-                            asr = init_var->m_symbolic_value;
-                            break;
-                        }
-                        default: {
-                            this->visit_expr(*(init_var->m_symbolic_value));
-                        }
-                    }
-                }
-            }
-        }
-    }
-
-    void visit_Variable(const ASR::Variable_t& x) {
-        ASR::Variable_t& x_unconst = const_cast<ASR::Variable_t&>(x);
-        if( x.m_symbolic_value != nullptr ) {
-            asr = nullptr;
-            visit_expr(*(x.m_symbolic_value));
-            if( asr != nullptr ) {
-                x_unconst.m_symbolic_value = asr;
-                asr = nullptr;
-            }
-        }
-    }
-};
-
-void pass_replace_param_to_const(Allocator &al, ASR::TranslationUnit_t &unit,
-                                 const LCompilers::PassOptions &/*pass_options*/
-                                 ) {
-    VarVisitor v(al);
-    v.visit_TranslationUnit(unit);
-}
-
-} // namespace LCompilers
diff --git a/src/libasr/pass/param_to_const.h b/src/libasr/pass/param_to_const.h
deleted file mode 100644
index 8b2c70ac56..0000000000
--- a/src/libasr/pass/param_to_const.h
+++ /dev/null
@@ -1,15 +0,0 @@
-#ifndef LFORTRAN_PASS_PARAM_TO_CONST_H
-#define LFORTRAN_PASS_PARAM_TO_CONST_H
-
-#include <libasr/asr.h>
-#include <libasr/utils.h>
-
-namespace LCompilers {
-
-    void pass_replace_param_to_const(Allocator &al, ASR::TranslationUnit_t &unit,
-                                     const LCompilers::PassOptions& pass_options
-                                     );
-
-} // namespace LCompilers
-
-#endif // LFORTRAN_PASS_PARAM_TO_CONST_H
diff --git a/src/libasr/pass/pass_array_by_data.cpp b/src/libasr/pass/pass_array_by_data.cpp
deleted file mode 100644
index 1cf5376145..0000000000
--- a/src/libasr/pass/pass_array_by_data.cpp
+++ /dev/null
@@ -1,429 +0,0 @@
-#include <libasr/asr.h>
-#include <libasr/containers.h>
-#include <libasr/exception.h>
-#include <libasr/asr_utils.h>
-#include <libasr/asr_verify.h>
-#include <libasr/pass/pass_utils.h>
-#include <libasr/pass/pass_array_by_data.h>
-
-#include <vector>
-#include <utility>
-
-
-namespace LCompilers {
-
-/*
-The following visitor converts function/subroutines (a.k.a procedures)
-with array arguments having empty dimensions to arrays having dimensional
-information available from function arguments. See example below,
-
-    subroutine f(array1, array2)
-        integer, intent(in) :: array1(:)
-        integer, intent(out) :: array2(:)
-    end subroutine
-
-gets converted to,
-
-    subroutine f_array1_array2(array1, m1, n1, array2, m2, n2)
-        integer, intent(in) :: m1, m2, n1, n2
-        integer, intent(in) :: array1(m1:n1)
-        integer, intent(out) :: array2(m2:n2)
-    end subroutine
- */
-class PassArrayByDataProcedureVisitor : public PassUtils::PassVisitor<PassArrayByDataProcedureVisitor>
-{
-    private:
-
-        ASRUtils::ExprStmtDuplicator node_duplicator;
-        SymbolTable* current_proc_scope;
-        bool is_editing_procedure;
-
-    public:
-
-        std::map< ASR::symbol_t*, std::pair<ASR::symbol_t*, std::vector<size_t>> > proc2newproc;
-
-        PassArrayByDataProcedureVisitor(Allocator& al_) : PassVisitor(al_, nullptr),
-        node_duplicator(al_), current_proc_scope(nullptr), is_editing_procedure(false)
-        {}
-
-        void visit_Var(const ASR::Var_t& x) {
-            if( !is_editing_procedure ) {
-                return ;
-            }
-            ASR::Var_t& xx = const_cast<ASR::Var_t&>(x);
-            ASR::symbol_t* x_sym = xx.m_v;
-            std::string x_sym_name = std::string(ASRUtils::symbol_name(x_sym));
-            if( current_proc_scope->get_symbol(x_sym_name) != x_sym ) {
-                xx.m_v = current_proc_scope->get_symbol(x_sym_name);
-            }
-        }
-
-        void visit_alloc_arg(const ASR::alloc_arg_t& x) {
-            PassVisitor::visit_alloc_arg(x);
-            if( !is_editing_procedure ) {
-                return ;
-            }
-            ASR::alloc_arg_t& xx = const_cast<ASR::alloc_arg_t&>(x);
-            ASR::symbol_t* x_sym = xx.m_a;
-            std::string x_sym_name = std::string(ASRUtils::symbol_name(x_sym));
-            if( current_proc_scope->get_symbol(x_sym_name) != x_sym ) {
-                xx.m_a = current_proc_scope->get_symbol(x_sym_name);
-            }
-        }
-
-        void visit_FunctionCall(const ASR::FunctionCall_t& x) {
-            PassVisitor::visit_FunctionCall(x);
-            if( !is_editing_procedure ) {
-                return ;
-            }
-            ASR::FunctionCall_t& xx = const_cast<ASR::FunctionCall_t&>(x);
-            ASR::symbol_t* x_sym = xx.m_name;
-            std::string x_sym_name = std::string(ASRUtils::symbol_name(x_sym));
-            if( current_proc_scope->get_symbol(x_sym_name) != x_sym ) {
-                xx.m_name = current_proc_scope->get_symbol(x_sym_name);
-            }
-        }
-
-        ASR::symbol_t* insert_new_procedure(ASR::Function_t* x, std::vector<size_t>& indices) {
-            Vec<ASR::stmt_t*> new_body;
-            new_body.reserve(al, x->n_body);
-            node_duplicator.allow_procedure_calls = true;
-            node_duplicator.allow_reshape = false;
-            for( size_t i = 0; i < x->n_body; i++ ) {
-                node_duplicator.success = true;
-                ASR::stmt_t* new_stmt = node_duplicator.duplicate_stmt(x->m_body[i]);
-                if( !node_duplicator.success ) {
-                    return nullptr;
-                }
-                new_body.push_back(al, new_stmt);
-            }
-            SymbolTable* new_symtab = al.make_new<SymbolTable>(current_scope);
-            for( auto& item: x->m_symtab->get_scope() ) {
-                ASR::symbol_t* new_arg = nullptr;
-                if( ASR::is_a<ASR::Variable_t>(*item.second) ) {
-                    ASR::Variable_t* arg = ASR::down_cast<ASR::Variable_t>(item.second);
-                    new_arg = ASR::down_cast<ASR::symbol_t>(ASR::make_Variable_t(al,
-                                                arg->base.base.loc, new_symtab, s2c(al, item.first),
-                                                nullptr, 0, arg->m_intent, arg->m_symbolic_value, arg->m_value,
-                                                arg->m_storage, arg->m_type, arg->m_abi, arg->m_access,
-                                                arg->m_presence, arg->m_value_attr));
-                } else if( ASR::is_a<ASR::ExternalSymbol_t>(*item.second) ) {
-                    ASR::ExternalSymbol_t* arg = ASR::down_cast<ASR::ExternalSymbol_t>(item.second);
-                    new_arg = ASR::down_cast<ASR::symbol_t>(ASR::make_ExternalSymbol_t(al, arg->base.base.loc,
-                                    new_symtab, s2c(al, item.first), arg->m_external, arg->m_module_name,
-                                    arg->m_scope_names, arg->n_scope_names, arg->m_original_name, arg->m_access));
-                }
-                new_symtab->add_symbol(item.first, new_arg);
-            }
-            Vec<ASR::expr_t*> new_args;
-            std::string suffix = "";
-            new_args.reserve(al, x->n_args);
-            ASR::expr_t* return_var = nullptr;
-            for( size_t i = 0; i < x->n_args + 1; i++ ) {
-                ASR::Variable_t* arg = nullptr;
-                if( i < x->n_args ) {
-                    arg = ASRUtils::EXPR2VAR(x->m_args[i]);
-                } else if( x->m_return_var ) {
-                    arg = ASRUtils::EXPR2VAR(x->m_return_var);
-                } else {
-                    break ;
-                }
-                if( std::find(indices.begin(), indices.end(), i) !=
-                    indices.end() ) {
-                    suffix += "_" + std::string(arg->m_name);
-                }
-                ASR::expr_t* new_arg = ASRUtils::EXPR(ASR::make_Var_t(al,
-                                        arg->base.base.loc, new_symtab->get_symbol(
-                                                        std::string(arg->m_name))));
-                if( i < x->n_args ) {
-                    new_args.push_back(al, new_arg);
-                } else {
-                    return_var = new_arg;
-                }
-            }
-            ASR::symbol_t* new_symbol = nullptr;
-            std::string new_name = std::string(x->m_name) + suffix;
-            if( ASR::is_a<ASR::Function_t>( *((ASR::symbol_t*) x) ) ) {
-                ASR::FunctionType_t* x_func_type = ASRUtils::get_FunctionType(x);
-                std::string new_bindc_name = "";
-                if( x_func_type->m_bindc_name ) {
-                    new_bindc_name = std::string(x_func_type->m_bindc_name) + suffix;
-                }
-                ASR::asr_t* new_subrout = ASRUtils::make_Function_t_util(al, x->base.base.loc,
-                                            new_symtab, s2c(al, new_name), x->m_dependencies, x->n_dependencies,
-                                            new_args.p, new_args.size(),  new_body.p, new_body.size(),
-                                            return_var, x_func_type->m_abi, x->m_access, x_func_type->m_deftype,
-                                            s2c(al, new_bindc_name), x_func_type->m_elemental,
-                                            x_func_type->m_pure, x_func_type->m_module, x_func_type->m_inline,
-                                            x_func_type->m_static, nullptr, 0, nullptr, 0, false, false, false);
-                new_symbol = ASR::down_cast<ASR::symbol_t>(new_subrout);
-            }
-            current_scope->add_symbol(new_name, new_symbol);
-            proc2newproc[(ASR::symbol_t*) x] = std::make_pair(new_symbol, indices);
-            return new_symbol;
-        }
-
-        void edit_new_procedure(ASR::Function_t* x, std::vector<size_t>& indices) {
-            Vec<ASR::expr_t*> new_args;
-            new_args.reserve(al, x->n_args);
-            for( size_t i = 0; i < x->n_args; i++ ) {
-                new_args.push_back(al, x->m_args[i]);
-                if( std::find(indices.begin(), indices.end(), i) !=
-                    indices.end() ) {
-                    ASR::Variable_t* arg = ASRUtils::EXPR2VAR(x->m_args[i]);
-                    ASR::dimension_t* dims = nullptr;
-                    int n_dims = ASRUtils::extract_dimensions_from_ttype(arg->m_type, dims);
-                    Vec<ASR::expr_t*> dim_variables;
-                    std::string arg_name = std::string(arg->m_name);
-                    PassUtils::create_vars(dim_variables, 2 * n_dims, arg->base.base.loc, al,
-                                           x->m_symtab, arg_name, ASR::intentType::In);
-                    Vec<ASR::dimension_t> new_dims;
-                    new_dims.reserve(al, n_dims);
-                    for( int j = 0, k = 0; j < n_dims; j++ ) {
-                        ASR::dimension_t new_dim;
-                        new_dim.loc = dims[j].loc;
-                        new_dim.m_start = dim_variables[k];
-                        new_dim.m_length = dim_variables[k + 1];
-                        new_dims.push_back(al, new_dim);
-                        k += 2;
-                    }
-                    ASR::ttype_t* new_type = ASRUtils::duplicate_type(al, arg->m_type, &new_dims);
-                    arg->m_type = new_type;
-                    for( int k = 0; k < 2 * n_dims; k++ ) {
-                        new_args.push_back(al, dim_variables[k]);
-                    }
-                }
-            }
-
-            x->m_args = new_args.p;
-            x->n_args = new_args.size();
-
-            is_editing_procedure = true;
-            current_proc_scope = x->m_symtab;
-            for( size_t i = 0; i < x->n_body; i++ ) {
-                visit_stmt(*x->m_body[i]);
-            }
-            is_editing_procedure = false;
-            current_proc_scope = nullptr;
-        }
-
-        void visit_Program(const ASR::Program_t& x) {
-            ASR::Program_t& xx = const_cast<ASR::Program_t&>(x);
-            current_scope = xx.m_symtab;
-            for( auto& item: xx.m_symtab->get_scope() ) {
-                if( ASR::is_a<ASR::Function_t>(*item.second) ) {
-                    ASR::Function_t* subrout = ASR::down_cast<ASR::Function_t>(item.second);
-                    std::vector<size_t> arg_indices;
-                    if( ASRUtils::is_pass_array_by_data_possible(subrout, arg_indices) ) {
-                        ASR::symbol_t* sym = insert_new_procedure(subrout, arg_indices);
-                        if( sym != nullptr ) {
-                            ASR::Function_t* new_subrout = ASR::down_cast<ASR::Function_t>(sym);
-                            edit_new_procedure(new_subrout, arg_indices);
-                        }
-                    }
-                }
-            }
-        }
-};
-
-/*
-    The following visitor replaces subroutine calls with arrays as arguments
-    to subroutine calls having dimensional information passed as arguments. See example below,
-
-        call f(array1, array2)
-
-    gets converted to,
-
-        call f_array1_array2(array1, m1, n1, array2, m2, n2)
-
-    As can be seen dimensional information, m1, n1 is passed along
-    with array1 and similarly m2, n2 is passed along with array2.
- */
-class ReplaceSubroutineCallsVisitor : public PassUtils::PassVisitor<ReplaceSubroutineCallsVisitor>
-{
-    private:
-
-        PassArrayByDataProcedureVisitor& v;
-
-    public:
-
-        ReplaceSubroutineCallsVisitor(Allocator& al_, PassArrayByDataProcedureVisitor& v_): PassVisitor(al_, nullptr),
-        v(v_) {
-            pass_result.reserve(al, 1);
-        }
-
-        void visit_SubroutineCall(const ASR::SubroutineCall_t& x) {
-            ASR::symbol_t* subrout_sym = x.m_name;
-            if( v.proc2newproc.find(subrout_sym) == v.proc2newproc.end() ) {
-                return ;
-            }
-
-            ASR::symbol_t* new_subrout_sym = v.proc2newproc[subrout_sym].first;
-            std::vector<size_t>& indices = v.proc2newproc[subrout_sym].second;
-
-            Vec<ASR::call_arg_t> new_args;
-            new_args.reserve(al, x.n_args);
-            for( size_t i = 0; i < x.n_args; i++ ) {
-                new_args.push_back(al, x.m_args[i]);
-                if( std::find(indices.begin(), indices.end(), i) == indices.end() ) {
-                    continue ;
-                }
-
-                Vec<ASR::expr_t*> dim_vars;
-                dim_vars.reserve(al, 2);
-                ASRUtils::get_dimensions(x.m_args[i].m_value, dim_vars, al);
-                for( size_t j = 0; j < dim_vars.size(); j++ ) {
-                    ASR::call_arg_t dim_var;
-                    dim_var.loc = dim_vars[j]->base.loc;
-                    dim_var.m_value = dim_vars[j];
-                    new_args.push_back(al, dim_var);
-                }
-            }
-
-            ASR::stmt_t* new_call = ASRUtils::STMT(ASR::make_SubroutineCall_t(al,
-                                        x.base.base.loc, new_subrout_sym, new_subrout_sym,
-                                        new_args.p, new_args.size(), x.m_dt));
-            pass_result.push_back(al, new_call);
-        }
-};
-
-
-/*
-
-The following replacer replaces all the function call expressions with arrays
-as arguments to function call expressions having dimensional information of
-array arguments passed along. See example below,
-
-    sum = f(array) + g(array)
-
-gets converted to,
-
-    sum = f_array(array, m, n) + g_array(array, m, n)
-
-*/
-class ReplaceFunctionCalls: public ASR::BaseExprReplacer<ReplaceFunctionCalls> {
-
-    private:
-
-    Allocator& al;
-    PassArrayByDataProcedureVisitor& v;
-
-    public:
-
-    ReplaceFunctionCalls(Allocator& al_, PassArrayByDataProcedureVisitor& v_) : al(al_), v(v_)
-    {}
-
-    void replace_FunctionCall(ASR::FunctionCall_t* x) {
-        ASR::symbol_t* subrout_sym = x->m_name;
-        if( v.proc2newproc.find(subrout_sym) == v.proc2newproc.end() ) {
-            return ;
-        }
-
-        ASR::symbol_t* new_func_sym = v.proc2newproc[subrout_sym].first;
-        std::vector<size_t>& indices = v.proc2newproc[subrout_sym].second;
-
-        Vec<ASR::call_arg_t> new_args;
-        new_args.reserve(al, x->n_args);
-        for( size_t i = 0; i < x->n_args; i++ ) {
-            new_args.push_back(al, x->m_args[i]);
-            if( std::find(indices.begin(), indices.end(), i) == indices.end() ) {
-                continue ;
-            }
-
-            Vec<ASR::expr_t*> dim_vars;
-            dim_vars.reserve(al, 2);
-            ASRUtils::get_dimensions(x->m_args[i].m_value, dim_vars, al);
-            for( size_t j = 0; j < dim_vars.size(); j++ ) {
-                ASR::call_arg_t dim_var;
-                dim_var.loc = dim_vars[j]->base.loc;
-                dim_var.m_value = dim_vars[j];
-                new_args.push_back(al, dim_var);
-            }
-        }
-
-        ASR::expr_t* new_call = ASRUtils::EXPR(ASR::make_FunctionCall_t(al,
-                                    x->base.base.loc, new_func_sym, new_func_sym,
-                                    new_args.p, new_args.size(), x->m_type, nullptr,
-                                    x->m_dt));
-        *current_expr = new_call;
-    }
-
-};
-
-/*
-The following visitor calls the above replacer i.e., ReplaceFunctionCalls
-on expressions present in ASR so that FunctionCall get replaced everywhere
-and we don't end up with false positives.
-*/
-class ReplaceFunctionCallsVisitor : public ASR::CallReplacerOnExpressionsVisitor<ReplaceFunctionCallsVisitor>
-{
-    private:
-
-        ReplaceFunctionCalls replacer;
-
-    public:
-
-        ReplaceFunctionCallsVisitor(Allocator& al_,
-            PassArrayByDataProcedureVisitor& v_) : replacer(al_, v_) {}
-
-        void call_replacer() {
-            replacer.current_expr = current_expr;
-            replacer.replace_expr(*current_expr);
-        }
-
-};
-
-/*
-Since the above visitors have replaced procedure and calls to those procedures
-with arrays as arguments, we don't need the original ones anymore. So we remove
-them from the ASR. The reason to do this is that some backends like WASM don't
-have support for accepting and returning arrays via array descriptors. Therefore,
-they cannot generate code for such functions. To avoid backends like WASM from failing
-we remove those functions by implementing and calling the following visitor.
-*/
-class RemoveArrayByDescriptorProceduresVisitor : public PassUtils::PassVisitor<RemoveArrayByDescriptorProceduresVisitor>
-{
-    private:
-
-        PassArrayByDataProcedureVisitor& v;
-
-    public:
-
-        RemoveArrayByDescriptorProceduresVisitor(Allocator& al_, PassArrayByDataProcedureVisitor& v_):
-            PassVisitor(al_, nullptr), v(v_) {}
-
-        void visit_Program(const ASR::Program_t& x) {
-            ASR::Program_t& xx = const_cast<ASR::Program_t&>(x);
-            current_scope = xx.m_symtab;
-
-            std::vector<std::string> to_be_erased;
-
-            for( auto& item: current_scope->get_scope() ) {
-                if( v.proc2newproc.find(item.second) != v.proc2newproc.end() ) {
-                    LCOMPILERS_ASSERT(item.first == ASRUtils::symbol_name(item.second))
-                    to_be_erased.push_back(item.first);
-                }
-            }
-
-            for (auto &item: to_be_erased) {
-                current_scope->erase_symbol(item);
-            }
-        }
-
-};
-
-void pass_array_by_data(Allocator &al, ASR::TranslationUnit_t &unit,
-                        const LCompilers::PassOptions& /*pass_options*/) {
-    PassArrayByDataProcedureVisitor v(al);
-    v.visit_TranslationUnit(unit);
-    ReplaceSubroutineCallsVisitor u(al, v);
-    u.visit_TranslationUnit(unit);
-    ReplaceFunctionCallsVisitor w(al, v);
-    w.visit_TranslationUnit(unit);
-    RemoveArrayByDescriptorProceduresVisitor x(al,v);
-    x.visit_TranslationUnit(unit);
-    PassUtils::UpdateDependenciesVisitor y(al);
-    y.visit_TranslationUnit(unit);
-}
-
-} // namespace LCompilers
diff --git a/src/libasr/pass/pass_array_by_data.h b/src/libasr/pass/pass_array_by_data.h
deleted file mode 100644
index 6b7fc49b16..0000000000
--- a/src/libasr/pass/pass_array_by_data.h
+++ /dev/null
@@ -1,14 +0,0 @@
-#ifndef LFORTRAN_PASS_ARRAY_BY_DATA_H
-#define LFORTRAN_PASS_ARRAY_BY_DATA_H
-
-#include <libasr/asr.h>
-#include <libasr/utils.h>
-
-namespace LCompilers {
-
-    void pass_array_by_data(Allocator &al, ASR::TranslationUnit_t &unit,
-                            const LCompilers::PassOptions& pass_options);
-
-} // namespace LCompilers
-
-#endif // LFORTRAN_PASS_ARRAY_BY_DATA_H
diff --git a/src/libasr/pass/pass_compare.cpp b/src/libasr/pass/pass_compare.cpp
deleted file mode 100644
index c5f252a477..0000000000
--- a/src/libasr/pass/pass_compare.cpp
+++ /dev/null
@@ -1,500 +0,0 @@
-#include <libasr/asr.h>
-#include <libasr/containers.h>
-#include <libasr/exception.h>
-#include <libasr/asr_utils.h>
-#include <libasr/asr_verify.h>
-#include <libasr/pass/pass_compare.h>
-#include <libasr/pass/pass_utils.h>
-
-#include <vector>
-#include <utility>
-
-
-namespace LCompilers {
-
-using ASR::down_cast;
-
-/*
- * This ASR pass handles TupleCompare and ListCompare Nodes.
- * Converts:
- *      a: tuple[T1, T2]
- *      b: tuple[T1, T2]
- *      assert a == b
- *
- *  to:
- *      a: tuple[T1, T2]
- *      b: tuple[T1, T2]
- *      # Replaces with as FunctionCall
- *      assert _lcompilers_tuple_compare_tuple[T1,T2](a, b)
- *
- *
- * Similarly,
- *
- * Converts:
- *       a: list[T]
- *       b: list[T]
- *       assert a == b
- *
- *   to:
- *       a: list[T]
- *       b: list[T]
- *       # Replaces with as FunctionCall
- *       assert _lcompilers_list_compare_list[T](a, b)
- */
-
-
-class CompareExprReplacer : public ASR::BaseExprReplacer<CompareExprReplacer>
-{
-private:
-
-    Allocator& al;
-    ASR::TranslationUnit_t &unit;
-    std::map<std::string, ASR::symbol_t*> &compare_func_map;
-
-public:
-    CompareExprReplacer(Allocator &al_, ASR::TranslationUnit_t &unit_,
-                      std::map<std::string, ASR::symbol_t*> &compare_func_map_) :
-        al(al_), unit(unit_),
-        compare_func_map(compare_func_map_)
-        { }
-
-
-    #define create_args(x, type, symtab, vec_exprs) { \
-        ASR::symbol_t* arg = ASR::down_cast<ASR::symbol_t>( \
-            ASR::make_Variable_t(al, loc, symtab, \
-            s2c(al, x), nullptr, 0, ASR::intentType::In, nullptr, nullptr, \
-            ASR::storage_typeType::Default, type, \
-            ASR::abiType::Source, ASR::accessType::Public, \
-            ASR::presenceType::Required, false)); \
-        ASR::expr_t* arg_expr = ASRUtils::EXPR(ASR::make_Var_t(al, loc, arg)); \
-        vec_exprs.push_back(al, arg_expr); \
-        symtab->add_symbol(x, arg); \
-    }
-
-    ASR::symbol_t* get_tuple_compare_func(Location& loc,
-                SymbolTable*& scope, ASR::ttype_t *t) {
-        std::string type_name = ASRUtils::type_to_str_python(t);
-        if (compare_func_map.find(type_name) == compare_func_map.end()) {
-            create_tuple_compare(loc, scope, t);
-        }
-        return compare_func_map[type_name];
-    }
-
-    ASR::symbol_t* get_list_compare_func(Location& loc,
-                SymbolTable*& scope, ASR::ttype_t *t) {
-        std::string type_name = ASRUtils::type_to_str_python(t);
-        if (compare_func_map.find(type_name) == compare_func_map.end()) {
-            create_list_compare(loc, scope, t);
-        }
-        return compare_func_map[type_name];
-    }
-
-    ASR::expr_t* compare_helper(Location& loc,
-                    SymbolTable*& global_scope, ASR::expr_t *left, ASR::expr_t *rig,
-                    ASR::ttype_t *type) {
-        ASR::ttype_t* bool_type = ASRUtils::TYPE(ASR::make_Logical_t(
-            al, loc, 4, nullptr, 0));
-        switch (type->type) {
-            case ASR::ttypeType::Integer: {
-                return ASRUtils::EXPR(ASR::make_IntegerCompare_t(al,
-                    loc, left, ASR::cmpopType::Eq, rig, bool_type, nullptr));
-            }
-            case ASR::ttypeType::Real: {
-                return ASRUtils::EXPR(ASR::make_RealCompare_t(al,
-                    loc, left, ASR::cmpopType::Eq, rig, bool_type, nullptr));
-            }
-            case ASR::ttypeType::Character: {
-                return ASRUtils::EXPR(ASR::make_StringCompare_t(al,
-                    loc, left, ASR::cmpopType::Eq, rig, bool_type, nullptr));
-            }
-            case ASR::ttypeType::Complex: {
-                return ASRUtils::EXPR(ASR::make_ComplexCompare_t(al,
-                    loc, left, ASR::cmpopType::Eq, rig, bool_type, nullptr));
-            }
-            case ASR::ttypeType::Logical: {
-                return ASRUtils::EXPR(ASR::make_LogicalCompare_t(al,
-                    loc, left, ASR::cmpopType::Eq, rig, bool_type, nullptr));
-            }
-            case ASR::ttypeType::Tuple: {
-                ASR::symbol_t *fn = get_tuple_compare_func(loc, global_scope, type);
-                Vec<ASR::call_arg_t> args;
-                args.reserve(al, 2);
-                ASR::call_arg_t call_arg;
-                call_arg.loc = left->base.loc;
-                call_arg.m_value = left;
-                args.push_back(al, call_arg);
-                call_arg.loc = rig->base.loc;
-                call_arg.m_value = rig;
-                args.push_back(al, call_arg);
-
-                return ASRUtils::EXPR(ASR::make_FunctionCall_t(al, loc,
-                    fn, nullptr, args.p, args.n,
-                    bool_type, nullptr, nullptr));
-            }
-            case ASR::ttypeType::List: {
-                ASR::symbol_t *fn = get_list_compare_func(loc, global_scope, type);
-                Vec<ASR::call_arg_t> args;
-                args.reserve(al, 2);
-                ASR::call_arg_t call_arg;
-                call_arg.loc = left->base.loc;
-                call_arg.m_value = left;
-                args.push_back(al, call_arg);
-                call_arg.loc = rig->base.loc;
-                call_arg.m_value = rig;
-                args.push_back(al, call_arg);
-
-                return ASRUtils::EXPR(ASR::make_FunctionCall_t(al, loc,
-                    fn, nullptr, args.p, args.n,
-                    bool_type, nullptr, nullptr));
-            }
-            default: {
-                LCOMPILERS_ASSERT(false);
-            }
-        }
-    }
-
-    void create_tuple_compare(Location& loc,
-                SymbolTable*& global_scope, ASR::ttype_t* type) {
-        /*
-            def _lcompilers_tuple_compare(a: tuple[], b: tuple[]) -> bool:
-                res: bool = True
-                for i in range(len(a)):
-                    res &= a[i]==b[i]
-                return res
-        */
-        SymbolTable* tup_compare_symtab = al.make_new<SymbolTable>(global_scope);
-        std::string tuple_type_name = ASRUtils::type_to_str_python(type);
-        ASR::Tuple_t *tuple_type = ASR::down_cast<ASR::Tuple_t>(type);
-
-        std::string fn_name = global_scope->get_unique_name("_lcompilers_tuple_compare_" + tuple_type_name);
-        ASR::ttype_t* int_type = ASRUtils::TYPE(ASR::make_Integer_t(
-            al, loc, 4, nullptr, 0));
-        ASR::ttype_t* bool_type = ASRUtils::TYPE(ASR::make_Logical_t(
-            al, loc, 4, nullptr, 0));
-
-        Vec<ASR::expr_t*> arg_exprs;
-        arg_exprs.reserve(al, 2);
-
-        Vec<ASR::stmt_t*> body;
-        body.reserve(al, 2 + tuple_type->n_type);
-
-        // Declare arguments
-        create_args("a", type, tup_compare_symtab, arg_exprs)
-        create_args("b", type, tup_compare_symtab, arg_exprs)
-
-        // Declare `result`
-        ASR::symbol_t* arg = ASR::down_cast<ASR::symbol_t>(
-            ASR::make_Variable_t(al, loc, tup_compare_symtab,
-            s2c(al, "result"), nullptr, 0, ASR::intentType::ReturnVar, nullptr, nullptr,
-            ASR::storage_typeType::Default, bool_type,
-            ASR::abiType::Source, ASR::accessType::Public,
-            ASR::presenceType::Required, false));
-        ASR::expr_t* result = ASRUtils::EXPR(ASR::make_Var_t(al, loc, arg));
-        tup_compare_symtab->add_symbol("result", arg);
-
-
-        ASR::expr_t* value = ASRUtils::EXPR(ASR::make_LogicalConstant_t(al,
-                        loc, true, bool_type));
-        // Initialize `result` with `True`
-        ASR::stmt_t* init_stmt = ASRUtils::STMT(ASR::make_Assignment_t(al, loc,
-                        result, value, nullptr));
-        body.push_back(al, init_stmt);
-
-        for (size_t i=0; i<tuple_type->n_type; i++) {
-            ASR::expr_t *pos_i = ASRUtils::EXPR(ASR::make_IntegerConstant_t(al, loc, i, int_type));
-            ASR::expr_t *a_i = ASRUtils::EXPR(ASR::make_TupleItem_t(al, loc, arg_exprs[0], pos_i,
-                tuple_type->m_type[i], nullptr));
-            ASR::expr_t *b_i = ASRUtils::EXPR(ASR::make_TupleItem_t(al, loc, arg_exprs[1], pos_i,
-                tuple_type->m_type[i], nullptr));
-            ASR::expr_t *cmp_i = compare_helper(loc, global_scope, a_i, b_i, tuple_type->m_type[i]);
-            ASR::expr_t *cmp_and = ASRUtils::EXPR(ASR::make_LogicalBinOp_t(al, loc,
-                    result, ASR::logicalbinopType::And, cmp_i, bool_type, nullptr));
-            ASR::stmt_t *t = ASRUtils::STMT(ASR::make_Assignment_t(al, loc,
-                        result, cmp_and, nullptr));
-            body.push_back(al, t);
-        }
-
-        // Return
-        body.push_back(al, ASRUtils::STMT(ASR::make_Return_t(al, loc)));
-
-        ASR::asr_t *fn = ASRUtils::make_Function_t_util(
-            al, loc,
-            /* a_symtab */ tup_compare_symtab,
-            /* a_name */ s2c(al, fn_name),
-            nullptr, 0,
-            /* a_args */ arg_exprs.p,
-            /* n_args */ arg_exprs.n,
-            /* a_body */ body.p,
-            /* n_body */ body.n,
-            /* a_return_var */ result,
-            ASR::abiType::Source,
-            ASR::accessType::Public, ASR::deftypeType::Implementation,
-            nullptr,
-            false, false, false, false, false,
-            nullptr, 0,
-            nullptr, 0,
-            false, false, false);
-        ASR::symbol_t *fn_sym = ASR::down_cast<ASR::symbol_t>(fn);
-        global_scope->add_symbol(fn_name, fn_sym);
-        compare_func_map[tuple_type_name] = fn_sym;
-    }
-
-    /*
-    This function replaces `TupleCompare` with a `FunctionCall` which returns
-    the True if both the Tuples are equal or else returns False.
-    Converts:
-        a: tuple[i32, i32]
-        b: tuple[i32, i32]
-        assert a == b
-
-    to:
-        a: tuple[i32, i32]
-        b: tuple[i32, i32]
-        assert _lcompilers_tuple_compare(a, b)
-    */
-    void replace_TupleCompare(const ASR::TupleCompare_t* x) {
-        Location loc = x->base.base.loc;
-        ASR::ttype_t* bool_type = ASRUtils::TYPE(ASR::make_Logical_t(
-            al, loc, 4, nullptr, 0));
-        Vec<ASR::call_arg_t> args;
-        args.reserve(al, 2);
-        ASR::call_arg_t call_arg;
-        call_arg.loc = x->m_left->base.loc;
-        call_arg.m_value = x->m_left;
-        args.push_back(al, call_arg);
-        call_arg.loc = x->m_right->base.loc;
-        call_arg.m_value = x->m_right;
-        args.push_back(al, call_arg);
-        ASR::symbol_t *fn_sym = get_tuple_compare_func(unit.base.base.loc,
-                unit.m_global_scope, ASRUtils::expr_type(x->m_left));
-        *current_expr = ASRUtils::EXPR(ASR::make_FunctionCall_t(al, loc,
-            fn_sym, nullptr, args.p, args.n, bool_type, nullptr, nullptr));
-        if (x->m_op == ASR::cmpopType::NotEq) {
-            *current_expr = ASRUtils::EXPR(ASR::make_LogicalNot_t(al, loc,
-                        *current_expr, bool_type, nullptr));
-        }
-    }
-
-
-    void _create_list_compare_while_loop(Location &loc, SymbolTable* symtab,
-                           ASR::expr_t* a, ASR::expr_t *b, ASR::expr_t *len,
-                           ASR::expr_t* result,
-                           Vec<ASR::stmt_t*>& body, ASR::ttype_t* item_type) {
-        Vec<ASR::expr_t*> idx_vars;
-        PassUtils::create_idx_vars(idx_vars, 1, loc, al, symtab);
-        ASR::ttype_t* bool_type = ASRUtils::TYPE(ASR::make_Logical_t(
-            al, loc, 4, nullptr, 0));
-        ASR::ttype_t* int_type = ASRUtils::TYPE(ASR::make_Integer_t(
-            al, loc, 4, nullptr, 0));
-        ASR::expr_t *const_zero = ASRUtils::EXPR(ASR::make_IntegerConstant_t(
-                        al, loc, 0, int_type));
-        ASR::expr_t *const_one = ASRUtils::EXPR(ASR::make_IntegerConstant_t(
-                        al, loc, 1, int_type));
-        ASR::stmt_t* _tmp = ASRUtils::STMT(ASR::make_Assignment_t(
-            al, loc, idx_vars[0], const_zero, nullptr));
-        body.push_back(al, _tmp);
-
-
-        ASR::expr_t* loop_test = ASRUtils::EXPR(ASR::make_IntegerCompare_t(
-            al, loc, len, ASR::cmpopType::Gt, idx_vars[0], bool_type, nullptr));
-
-        Vec<ASR::stmt_t*> loop_body;
-        loop_body.reserve(al, 2);
-
-        ASR::expr_t *a_i = ASRUtils::EXPR(ASR::make_ListItem_t(al, loc, a, idx_vars[0],
-            item_type, nullptr));
-        ASR::expr_t *b_i = ASRUtils::EXPR(ASR::make_ListItem_t(al, loc, b, idx_vars[0],
-            item_type, nullptr));
-        ASR::expr_t *cmp_i = compare_helper(loc, symtab, a_i, b_i, item_type);
-        ASR::expr_t *cmp_and = ASRUtils::EXPR(ASR::make_LogicalBinOp_t(al, loc,
-                result, ASR::logicalbinopType::And, cmp_i, bool_type, nullptr));
-        _tmp = ASRUtils::STMT(ASR::make_Assignment_t(al, loc,
-                    result, cmp_and, nullptr));
-        loop_body.push_back(al, _tmp);
-
-        _tmp = ASRUtils::STMT(ASR::make_Assignment_t(
-            al, loc, idx_vars[0], ASRUtils::EXPR(ASR::make_IntegerBinOp_t(
-                al, loc, idx_vars[0], ASR::binopType::Add, const_one,
-                int_type, nullptr)), nullptr));
-        loop_body.push_back(al, _tmp);
-
-        _tmp = ASRUtils::STMT(ASR::make_WhileLoop_t(
-            al, loc, loop_test, loop_body.p, loop_body.n));
-        body.push_back(al, _tmp);
-    }
-
-    void create_list_compare(Location& loc,
-                SymbolTable*& global_scope, ASR::ttype_t* type) {
-        /*
-            def _lcompilers_list_compare(a: list[], b: list[]) -> bool:
-                res: bool = True
-                a_len = len(a)
-                b_len = len(b)
-                if a_len != b_len:
-                    return False
-                i: i32
-                for i in range(len(a)):
-                    res &= a[i]==b[i]
-                return res
-        */
-        SymbolTable* list_compare_symtab = al.make_new<SymbolTable>(global_scope);
-        std::string list_type_name = ASRUtils::type_to_str_python(type);
-        ASR::List_t *list_type = ASR::down_cast<ASR::List_t>(type);
-
-        std::string fn_name = global_scope->get_unique_name("_lcompilers_list_compare_" + list_type_name);
-        ASR::ttype_t* int_type = ASRUtils::TYPE(ASR::make_Integer_t(
-            al, loc, 4, nullptr, 0));
-        ASR::ttype_t* bool_type = ASRUtils::TYPE(ASR::make_Logical_t(
-            al, loc, 4, nullptr, 0));
-
-        Vec<ASR::expr_t*> arg_exprs;
-        arg_exprs.reserve(al, 2);
-
-        Vec<ASR::stmt_t*> body;
-        body.reserve(al, 5);
-
-        // Declare arguments
-        create_args("a", type, list_compare_symtab, arg_exprs)
-        create_args("b", type, list_compare_symtab, arg_exprs)
-
-        ASR::expr_t *a_len = ASRUtils::EXPR(ASR::make_ListLen_t(al, loc,
-                    arg_exprs[0], int_type, nullptr));
-        ASR::expr_t *b_len = ASRUtils::EXPR(ASR::make_ListLen_t(al, loc,
-                    arg_exprs[1], int_type, nullptr));
-
-        // Declare `result`
-        ASR::symbol_t* res_arg = ASR::down_cast<ASR::symbol_t>(
-            ASR::make_Variable_t(al, loc, list_compare_symtab,
-            s2c(al, "result"), nullptr, 0, ASR::intentType::ReturnVar, nullptr, nullptr,
-            ASR::storage_typeType::Default, bool_type,
-            ASR::abiType::Source, ASR::accessType::Public,
-            ASR::presenceType::Required, false));
-        ASR::expr_t* result = ASRUtils::EXPR(ASR::make_Var_t(al, loc, res_arg));
-        list_compare_symtab->add_symbol("result", res_arg);
-
-        ASR::expr_t* value = ASRUtils::EXPR(ASR::make_LogicalConstant_t(al,
-                        loc, true, bool_type));
-
-        // Initialize `result` with `True`
-        ASR::stmt_t* _tmp = ASRUtils::STMT(ASR::make_Assignment_t(al, loc,
-                        result, value, nullptr));
-        body.push_back(al, _tmp);
-
-        {
-            ASR::expr_t* a_test = ASRUtils::EXPR(ASR::make_IntegerCompare_t(
-                al, loc, a_len, ASR::cmpopType::NotEq, b_len,
-                bool_type, nullptr));
-
-            Vec<ASR::stmt_t*> if_body;
-            if_body.reserve(al, 2);
-            value = ASRUtils::EXPR(ASR::make_LogicalConstant_t(al,
-                        loc, false, bool_type));
-            ASR::stmt_t* if_body_stmt = ASRUtils::STMT(ASR::make_Assignment_t(
-                al, loc, result, value, nullptr));
-            if_body.push_back(al, if_body_stmt);
-
-            // Return
-            if_body.push_back(al, ASRUtils::STMT(ASR::make_Return_t(al, loc)));
-
-            _tmp = ASRUtils::STMT(ASR::make_If_t(al, loc, a_test,
-                if_body.p, if_body.n, nullptr, 0));
-            body.push_back(al, _tmp);
-        }
-
-        _create_list_compare_while_loop(loc, global_scope,
-                    arg_exprs[0], arg_exprs[1], a_len, result,
-                    body, list_type->m_type);
-
-        // Return
-        body.push_back(al, ASRUtils::STMT(ASR::make_Return_t(al, loc)));
-
-        ASR::asr_t *fn = ASRUtils::make_Function_t_util(
-            al, loc,
-            /* a_symtab */ list_compare_symtab,
-            /* a_name */ s2c(al, fn_name),
-            nullptr, 0,
-            /* a_args */ arg_exprs.p,
-            /* n_args */ arg_exprs.n,
-            /* a_body */ body.p,
-            /* n_body */ body.n,
-            /* a_return_var */ result,
-            ASR::abiType::Source,
-            ASR::accessType::Public, ASR::deftypeType::Implementation,
-            nullptr,
-            false, false, false, false, false,
-            nullptr, 0,
-            nullptr, 0,
-            false, false, false);
-        ASR::symbol_t *fn_sym = ASR::down_cast<ASR::symbol_t>(fn);
-        global_scope->add_symbol(fn_name, fn_sym);
-        compare_func_map[list_type_name] = fn_sym;
-    }
-
-    /*
-    This function replaces `ListCompare` with a `FunctionCall` which returns
-    the True if both the lists are equal or else returns False.
-    Converts:
-        a: list[i32]
-        b: list[i32]
-        assert a == b
-
-    to:
-        a: list[i32]
-        b: list[i32]
-        assert _lcompilers_list_compare(a, b)
-    */
-    void replace_ListCompare(const ASR::ListCompare_t* x) {
-        Location loc = x->base.base.loc;
-        ASR::ttype_t* bool_type = ASRUtils::TYPE(ASR::make_Logical_t(
-            al, loc, 4, nullptr, 0));
-        Vec<ASR::call_arg_t> args;
-        args.reserve(al, 2);
-        ASR::call_arg_t call_arg;
-        call_arg.loc = x->m_left->base.loc;
-        call_arg.m_value = x->m_left;
-        args.push_back(al, call_arg);
-        call_arg.loc = x->m_right->base.loc;
-        call_arg.m_value = x->m_right;
-        args.push_back(al, call_arg);
-        ASR::symbol_t *fn_sym = get_list_compare_func(unit.base.base.loc,
-                unit.m_global_scope, ASRUtils::expr_type(x->m_left));
-        *current_expr = ASRUtils::EXPR(ASR::make_FunctionCall_t(al, loc,
-            fn_sym, nullptr, args.p, args.n, bool_type, nullptr, nullptr));
-        if (x->m_op == ASR::cmpopType::NotEq) {
-            *current_expr = ASRUtils::EXPR(ASR::make_LogicalNot_t(al, loc,
-                        *current_expr, bool_type, nullptr));
-        }
-    }
-
-};
-
-class CompareExprVisitor : public ASR::CallReplacerOnExpressionsVisitor<CompareExprVisitor>
-{
-private:
-
-    CompareExprReplacer replacer;
-    std::map<std::string, ASR::symbol_t *> compare_func_map;
-
-public:
-
-    CompareExprVisitor(Allocator& al_, ASR::TranslationUnit_t &unit_) :
-        replacer(al_, unit_, compare_func_map)
-        { }
-
-    void call_replacer() {
-        replacer.current_expr = current_expr;
-        replacer.replace_expr(*current_expr);
-    }
-
-};
-
-void pass_compare(Allocator &al, ASR::TranslationUnit_t &unit,
-                        const LCompilers::PassOptions& /*pass_options*/) {
-    CompareExprVisitor v(al, unit);
-    v.visit_TranslationUnit(unit);
-    PassUtils::UpdateDependenciesVisitor u(al);
-    u.visit_TranslationUnit(unit);
-}
-
-
-} // namespace LCompilers
diff --git a/src/libasr/pass/pass_compare.h b/src/libasr/pass/pass_compare.h
deleted file mode 100644
index 0e2508be6b..0000000000
--- a/src/libasr/pass/pass_compare.h
+++ /dev/null
@@ -1,14 +0,0 @@
-#ifndef LIBASR_PASS_COMPARE_H
-#define LIBASR_PASS_COMPARE_H
-
-#include <libasr/asr.h>
-#include <libasr/utils.h>
-
-namespace LCompilers {
-
-    void pass_compare(Allocator &al, ASR::TranslationUnit_t &unit,
-                        const LCompilers::PassOptions& /*pass_options*/);
-
-} // namespace LCompilers
-
-#endif // LIBASR_PASS_COMPARE_H
diff --git a/src/libasr/pass/pass_list_expr.cpp b/src/libasr/pass/pass_list_expr.cpp
deleted file mode 100644
index efabbd28ab..0000000000
--- a/src/libasr/pass/pass_list_expr.cpp
+++ /dev/null
@@ -1,579 +0,0 @@
-#include <libasr/asr.h>
-#include <libasr/containers.h>
-#include <libasr/exception.h>
-#include <libasr/asr_utils.h>
-#include <libasr/asr_verify.h>
-#include <libasr/pass/pass_list_expr.h>
-#include <libasr/pass/pass_utils.h>
-
-#include <vector>
-#include <utility>
-
-
-namespace LCompilers {
-
-using ASR::down_cast;
-
-/*
- * This ASR pass handles all the high level list features.
- */
-
-
-class ListExprReplacer : public ASR::BaseExprReplacer<ListExprReplacer>
-{
-private:
-
-    Allocator& al;
-    ASR::TranslationUnit_t &unit;
-    std::map<std::string, ASR::symbol_t*> &list_concat_func_map;
-    std::map<std::string, ASR::symbol_t*> &list_section_func_map;
-
-public:
-    ListExprReplacer(Allocator &al_, ASR::TranslationUnit_t &unit_,
-                      std::map<std::string, ASR::symbol_t*> &list_concat_func_map_,
-                      std::map<std::string, ASR::symbol_t*> &list_section_func_map_) :
-        al(al_), unit(unit_),
-        list_concat_func_map(list_concat_func_map_),
-        list_section_func_map(list_section_func_map_)
-        { }
-
-    void create_while_loop(Location &loc, SymbolTable* symtab,
-                           ASR::expr_t* a_list, ASR::expr_t* start,
-                           ASR::expr_t* end, ASR::expr_t* step,
-                           ASR::expr_t* res_list,
-                           Vec<ASR::stmt_t*>& body, ASR::ttype_t* item_type) {
-        Vec<ASR::expr_t*> idx_vars;
-        PassUtils::create_idx_vars(idx_vars, 1, loc, al, symtab);
-        ASR::stmt_t* loop_stmt = ASRUtils::STMT(ASR::make_Assignment_t(
-            al, loc, idx_vars[0], start, nullptr));
-        body.push_back(al, loop_stmt);
-
-        ASR::ttype_t* bool_type = ASRUtils::TYPE(ASR::make_Logical_t(
-            al, loc, 4, nullptr, 0));
-        ASR::ttype_t* int_type = ASRUtils::TYPE(ASR::make_Integer_t(
-            al, loc, 4, nullptr, 0));
-        ASR::expr_t *const_zero = ASRUtils::EXPR(
-                    ASR::make_IntegerConstant_t(al, loc, 0, int_type));
-
-        ASR::expr_t* loop_test_1 = ASRUtils::EXPR(ASR::make_IntegerCompare_t(
-            al, loc, step, ASR::cmpopType::Gt, const_zero, bool_type, nullptr));
-        ASR::expr_t* loop_test_2 = ASRUtils::EXPR(ASR::make_IntegerCompare_t(
-            al, loc, idx_vars[0], ASR::cmpopType::GtE, start, bool_type, nullptr));
-        ASR::expr_t* loop_test_3 = ASRUtils::EXPR(ASR::make_IntegerCompare_t(
-            al, loc, idx_vars[0], ASR::cmpopType::Lt, end, bool_type, nullptr));
-        ASR::expr_t *loop_test_11 = ASRUtils::EXPR(ASR::make_LogicalBinOp_t(al,
-                loc, loop_test_1, ASR::logicalbinopType::And, loop_test_2, bool_type, nullptr));
-        loop_test_11 = ASRUtils::EXPR(ASR::make_LogicalBinOp_t(al,
-                loc, loop_test_11, ASR::logicalbinopType::And, loop_test_3, bool_type, nullptr));
-
-        ASR::expr_t* loop_test_4 = ASRUtils::EXPR(ASR::make_IntegerCompare_t(
-            al, loc, step, ASR::cmpopType::Lt, const_zero, bool_type, nullptr));
-        ASR::expr_t* loop_test_5 = ASRUtils::EXPR(ASR::make_IntegerCompare_t(
-            al, loc, idx_vars[0], ASR::cmpopType::LtE, start, bool_type, nullptr));
-        ASR::expr_t* loop_test_6 = ASRUtils::EXPR(ASR::make_IntegerCompare_t(
-            al, loc, idx_vars[0], ASR::cmpopType::Gt, end, bool_type, nullptr));
-        ASR::expr_t *loop_test_22 = ASRUtils::EXPR(ASR::make_LogicalBinOp_t(al,
-                loc, loop_test_4, ASR::logicalbinopType::And, loop_test_5, bool_type, nullptr));
-        loop_test_22 = ASRUtils::EXPR(ASR::make_LogicalBinOp_t(al,
-                loc, loop_test_22, ASR::logicalbinopType::And, loop_test_6, bool_type, nullptr));
-
-        ASR::expr_t *loop_test = ASRUtils::EXPR(ASR::make_LogicalBinOp_t(al,
-                loc, loop_test_11, ASR::logicalbinopType::Or, loop_test_22, bool_type, nullptr));
-
-        Vec<ASR::stmt_t*> loop_body;
-        loop_body.reserve(al, 2);
-        loop_stmt = ASRUtils::STMT(ASR::make_ListAppend_t(
-            al, loc, res_list, ASRUtils::EXPR(ASR::make_ListItem_t(
-                al, loc, a_list, idx_vars[0], item_type, nullptr))));
-        loop_body.push_back(al, loop_stmt);
-
-        loop_stmt = ASRUtils::STMT(ASR::make_Assignment_t(
-            al, loc, idx_vars[0], ASRUtils::EXPR(ASR::make_IntegerBinOp_t(
-                al, loc, idx_vars[0], ASR::binopType::Add, step,
-                int_type, nullptr)), nullptr));
-        loop_body.push_back(al, loop_stmt);
-
-        loop_stmt = ASRUtils::STMT(ASR::make_WhileLoop_t(
-            al, loc, loop_test, loop_body.p, loop_body.n));
-        body.push_back(al, loop_stmt);
-    }
-
-    #define create_args(x, type, symtab) { \
-        ASR::symbol_t* arg = ASR::down_cast<ASR::symbol_t>( \
-            ASR::make_Variable_t(al, loc, symtab, \
-            s2c(al, x), nullptr, 0, ASR::intentType::In, nullptr, nullptr, \
-            ASR::storage_typeType::Default, type, \
-            ASR::abiType::Source, ASR::accessType::Public, \
-            ASR::presenceType::Required, false)); \
-        ASR::expr_t* arg_expr = ASRUtils::EXPR(ASR::make_Var_t(al, loc, arg)); \
-        arg_exprs.push_back(al, arg_expr); \
-        symtab->add_symbol(x, arg); \
-    }
-
-    void create_list_section_func(Location& loc,
-                SymbolTable*& global_scope, ASR::ttype_t* list_type) {
-        /*
-            def _lcompilers_list_section(a_list: list[i32], start: i32,
-                    end: i32, step: i32, is_start_present: bool,
-                    is_end_present: bool): -> list[i32]:
-                result_list: list[i32]
-                result_list = []
-
-                a_len = len(a)
-                if start < 0:
-                    start += a_len
-                if end < 0:
-                    end += a_len
-
-                if not is_start_present:
-                    if step > 0:
-                        start = 0
-                    else:
-                        start = a_len - 1
-
-                if not is_end_present:
-                    if step > 0:
-                        end = a_len
-                    else:
-                        end = -1
-
-                if step > 0:
-                    if end > a_len:
-                        end = a_len
-                else:
-                    if start >= a_len:
-                        start = a_len - 1
-                __1_k: i32 = start
-                while ((step > 0 and __1_k >= start and __1_k < end) or
-                    (step < 0 and __1_k <= start and __1_k > end)):
-                    result_list.append(a_list[__1_k])
-                    __1_k = __1_k + step
-                return result_list
-        */
-
-        SymbolTable* list_section_symtab = al.make_new<SymbolTable>(global_scope);
-        std::string list_type_name = ASRUtils::type_to_str_python(list_type);
-        std::string fn_name = global_scope->get_unique_name("_lcompilers_list_section_" + list_type_name);
-        ASR::ttype_t* item_type = ASR::down_cast<ASR::List_t>(list_type)->m_type;
-        ASR::ttype_t* int_type = ASRUtils::TYPE(ASR::make_Integer_t(
-            al, loc, 4, nullptr, 0));
-        ASR::ttype_t* bool_type = ASRUtils::TYPE(ASR::make_Logical_t(
-            al, loc, 4, nullptr, 0));
-
-        Vec<ASR::expr_t*> arg_exprs;
-        arg_exprs.reserve(al, 4);
-
-        Vec<ASR::stmt_t*> body;
-        body.reserve(al, 4);
-
-        // Declare `a_list`, `start`, `end` and `step`
-        create_args("a_list", list_type, list_section_symtab)
-        create_args("start", int_type, list_section_symtab)
-        create_args("end", int_type, list_section_symtab)
-        create_args("step", int_type, list_section_symtab)
-        create_args("is_start_present", bool_type, list_section_symtab)
-        create_args("is_end_present", bool_type, list_section_symtab)
-
-        // Declare `result_list`
-        ASR::symbol_t* arg = ASR::down_cast<ASR::symbol_t>(
-            ASR::make_Variable_t(al, loc, list_section_symtab,
-            s2c(al, "result_list"), nullptr, 0, ASR::intentType::Local, nullptr, nullptr,
-            ASR::storage_typeType::Default, list_type,
-            ASR::abiType::Source, ASR::accessType::Public,
-            ASR::presenceType::Required, false));
-        ASR::expr_t* res_list = ASRUtils::EXPR(ASR::make_Var_t(al, loc, arg));
-        list_section_symtab->add_symbol("result_list", arg);
-
-        // Empty List
-        ASR::expr_t* value = ASRUtils::EXPR(ASR::make_ListConstant_t(
-            al, loc, nullptr, 0, list_type));
-        // Initialize `result_list` with `empty value`
-        ASR::stmt_t* list_section_stmt = ASRUtils::STMT(ASR::make_Assignment_t(
-            al, loc, res_list, value, nullptr));
-        body.push_back(al, list_section_stmt);
-
-        ASR::expr_t *a_len = ASRUtils::EXPR(ASR::make_ListLen_t(
-                            al, loc, arg_exprs[0], int_type, nullptr));
-        ASR::expr_t *const_one = ASRUtils::EXPR(
-                    ASR::make_IntegerConstant_t(al, loc, 1, int_type));
-        ASR::expr_t *const_zero = ASRUtils::EXPR(
-                    ASR::make_IntegerConstant_t(al, loc, 0, int_type));
-        ASR::expr_t *a_len_1 = ASRUtils::EXPR(ASR::make_IntegerBinOp_t(al,
-                    loc, a_len, ASR::binopType::Sub, const_one, int_type, nullptr));
-        ASR::expr_t *minus_one = ASRUtils::EXPR(
-                    ASR::make_IntegerConstant_t(al, loc, -1, int_type));
-
-        for (int i=1; i<3; i++)
-        {
-            ASR::expr_t* a_test = ASRUtils::EXPR(ASR::make_IntegerCompare_t(
-                al, loc, arg_exprs[i], ASR::cmpopType::Lt, const_zero,
-                bool_type, nullptr));
-
-            Vec<ASR::stmt_t*> if_body;
-            if_body.reserve(al, 1);
-            ASR::stmt_t* if_body_stmt = ASRUtils::STMT(ASR::make_Assignment_t(
-                al, loc, arg_exprs[i], ASRUtils::EXPR(ASR::make_IntegerBinOp_t(al,
-                loc, arg_exprs[i], ASR::binopType::Add, a_len,
-                int_type, nullptr)), nullptr));
-            if_body.push_back(al, if_body_stmt);
-
-            list_section_stmt = ASRUtils::STMT(ASR::make_If_t(al, loc, a_test,
-                if_body.p, if_body.n, nullptr, 0));
-            body.push_back(al, list_section_stmt);
-        }
-
-        // If statement
-        {
-            ASR::expr_t* a_test = ASRUtils::EXPR(ASR::make_LogicalNot_t(al,
-                loc, arg_exprs[4], bool_type, nullptr));
-
-            Vec<ASR::stmt_t*> if_body, if_body_1, else_body_1;
-            if_body_1.reserve(al, 1);
-            if_body.reserve(al, 1);
-            else_body_1.reserve(al, 1);
-            ASR::expr_t* a_test_1 = ASRUtils::EXPR(ASR::make_IntegerCompare_t(al, loc,
-                    arg_exprs[3], ASR::cmpopType::Gt, const_zero, bool_type, nullptr));
-            ASR::stmt_t* if_body_stmt_1 = ASRUtils::STMT(ASR::make_Assignment_t(
-                al, loc, arg_exprs[1], const_zero, nullptr));
-            if_body_1.push_back(al, if_body_stmt_1);
-
-            ASR::stmt_t* else_body_stmt_1 = ASRUtils::STMT(ASR::make_Assignment_t(
-                al, loc, arg_exprs[1], a_len_1, nullptr));
-            else_body_1.push_back(al, else_body_stmt_1);
-
-            list_section_stmt = ASRUtils::STMT(ASR::make_If_t(al, loc, a_test_1,
-                if_body_1.p, if_body_1.n, else_body_1.p, else_body_1.n));
-            if_body.push_back(al, list_section_stmt);
-            list_section_stmt = ASRUtils::STMT(ASR::make_If_t(al, loc, a_test,
-                if_body.p, if_body.n, nullptr, 0));
-            body.push_back(al, list_section_stmt);
-        }
-
-        // If statement
-        {
-            ASR::expr_t* a_test = ASRUtils::EXPR(ASR::make_LogicalNot_t(al,
-                loc, arg_exprs[5], bool_type, nullptr));
-
-            Vec<ASR::stmt_t*> if_body, if_body_1, else_body_1;
-            if_body_1.reserve(al, 1);
-            if_body.reserve(al, 1);
-            else_body_1.reserve(al, 1);
-            ASR::expr_t* a_test_1 = ASRUtils::EXPR(ASR::make_IntegerCompare_t(al, loc,
-                    arg_exprs[3], ASR::cmpopType::Gt, const_zero, bool_type, nullptr));
-            ASR::stmt_t* if_body_stmt_1 = ASRUtils::STMT(ASR::make_Assignment_t(
-                al, loc, arg_exprs[2], a_len, nullptr));
-            if_body_1.push_back(al, if_body_stmt_1);
-
-            ASR::stmt_t* else_body_stmt_1 = ASRUtils::STMT(ASR::make_Assignment_t(
-                al, loc, arg_exprs[2], minus_one, nullptr));
-            else_body_1.push_back(al, else_body_stmt_1);
-
-            list_section_stmt = ASRUtils::STMT(ASR::make_If_t(al, loc, a_test_1,
-                if_body_1.p, if_body_1.n, else_body_1.p, else_body_1.n));
-            if_body.push_back(al, list_section_stmt);
-            list_section_stmt = ASRUtils::STMT(ASR::make_If_t(al, loc, a_test,
-                if_body.p, if_body.n, nullptr, 0));
-            body.push_back(al, list_section_stmt);
-        }
-
-        // If statement
-        {
-            ASR::expr_t* a_test = ASRUtils::EXPR(ASR::make_IntegerCompare_t(al, loc,
-                    arg_exprs[3], ASR::cmpopType::Gt, const_zero, bool_type, nullptr));
-
-            Vec<ASR::stmt_t*> if_body, if_body_1, else_body, if_body_2;
-            if_body_1.reserve(al, 1);
-            if_body_2.reserve(al, 1);
-            if_body.reserve(al, 1);
-            else_body.reserve(al, 1);
-            ASR::expr_t* a_test_1 = ASRUtils::EXPR(ASR::make_IntegerCompare_t(al, loc,
-                    arg_exprs[2], ASR::cmpopType::Gt, a_len, bool_type, nullptr));
-            ASR::stmt_t* if_body_stmt_1 = ASRUtils::STMT(ASR::make_Assignment_t(
-                al, loc, arg_exprs[2], a_len, nullptr));
-            if_body_1.push_back(al, if_body_stmt_1);
-            list_section_stmt = ASRUtils::STMT(ASR::make_If_t(al, loc, a_test_1,
-                if_body_1.p, if_body_1.n, nullptr, 0));
-            if_body.push_back(al, list_section_stmt);
-
-            ASR::expr_t* a_test_2 = ASRUtils::EXPR(ASR::make_IntegerCompare_t(al, loc,
-                    arg_exprs[1], ASR::cmpopType::GtE, a_len, bool_type, nullptr));
-            ASR::stmt_t* if_body_stmt_2 = ASRUtils::STMT(ASR::make_Assignment_t(
-                al, loc, arg_exprs[1], a_len_1, nullptr));
-            if_body_2.push_back(al, if_body_stmt_2);
-            list_section_stmt = ASRUtils::STMT(ASR::make_If_t(al, loc, a_test_2,
-                if_body_2.p, if_body_2.n, nullptr, 0));
-            else_body.push_back(al, list_section_stmt);
-
-            list_section_stmt = ASRUtils::STMT(ASR::make_If_t(al, loc, a_test,
-                if_body.p, if_body.n, else_body.p, else_body.n));
-            body.push_back(al, list_section_stmt);
-        }
-
-
-        // Copy a section from the list
-        // Declare `__1_k` for iterations and assign `start` value
-        create_while_loop(loc, list_section_symtab, arg_exprs[0], arg_exprs[1],
-            arg_exprs[2], arg_exprs[3], res_list, body, item_type);
-
-        // Return
-        list_section_stmt = ASRUtils::STMT(ASR::make_Return_t(al, loc));
-        body.push_back(al, list_section_stmt);
-
-        ASR::asr_t *fn = ASRUtils::make_Function_t_util(
-            al, loc,
-            /* a_symtab */ list_section_symtab,
-            /* a_name */ s2c(al, fn_name),
-            nullptr, 0,
-            /* a_args */ arg_exprs.p,
-            /* n_args */ arg_exprs.n,
-            /* a_body */ body.p,
-            /* n_body */ body.n,
-            /* a_return_var */ res_list,
-            ASR::abiType::Source,
-            ASR::accessType::Public, ASR::deftypeType::Implementation,
-            nullptr,
-            false, false, false, false, false,
-            nullptr, 0,
-            nullptr, 0,
-            false, false, false);
-        ASR::symbol_t *fn_sym = ASR::down_cast<ASR::symbol_t>(fn);
-        global_scope->add_symbol(fn_name, fn_sym);
-        list_section_func_map[list_type_name] = fn_sym;
-    }
-
-/*
-    This function replaces `ListSection` with a `FunctionCall` where
-    the a list along with left, right and step of the `array_index` node
-    are passed as arguments to the function.
-    Then, the function returns the section of the list as a result.
-
-    Converts:
-        y = x[1:3] // lists
-
-    to:
-        y = _lcompilers_list_section(x, 1, 3, 1)
-*/
-
-    void replace_ListSection(const ASR::ListSection_t* x) {
-        Location loc = x->base.base.loc;
-        ASR::ttype_t* int_type = ASRUtils::TYPE(ASR::make_Integer_t(
-            al, loc, 4, nullptr, 0));
-        ASR::ttype_t* bool_type = ASRUtils::TYPE(ASR::make_Logical_t(
-            al, loc, 4, nullptr, 0));
-        Vec<ASR::call_arg_t> args;
-        args.reserve(al, 4);
-        ASR::call_arg_t call_arg;
-        call_arg.loc = x->m_a->base.loc;
-        call_arg.m_value = x->m_a;
-        args.push_back(al, call_arg);
-        ASR::expr_t *is_start_present, *is_end_present;
-        if (x->m_section.m_left != nullptr) {
-            call_arg.loc = x->m_section.m_left->base.loc;
-            call_arg.m_value = x->m_section.m_left;
-            is_start_present = ASRUtils::EXPR(ASR::make_LogicalConstant_t(al,
-                    loc, true, bool_type));
-        } else {
-            call_arg.loc = loc;
-            call_arg.m_value = ASRUtils::EXPR(make_IntegerConstant_t(
-                al, loc, 0, int_type));
-            is_start_present = ASRUtils::EXPR(ASR::make_LogicalConstant_t(al,
-                    loc, false, bool_type));
-        }
-        args.push_back(al, call_arg);
-        if (x->m_section.m_right != nullptr) {
-            call_arg.loc = x->m_section.m_right->base.loc;
-            call_arg.m_value = x->m_section.m_right;
-            is_end_present = ASRUtils::EXPR(ASR::make_LogicalConstant_t(al,
-                    loc, true, bool_type));
-        } else {
-            call_arg.loc = loc;
-            call_arg.m_value = ASRUtils::EXPR(ASR::make_ListLen_t(
-                al, loc, x->m_a, int_type, nullptr));
-            is_end_present = ASRUtils::EXPR(ASR::make_LogicalConstant_t(al,
-                    loc, false, bool_type));
-        }
-        args.push_back(al, call_arg);
-        if (x->m_section.m_step != nullptr) {
-            call_arg.loc = x->m_section.m_step->base.loc;
-            call_arg.m_value = x->m_section.m_step;
-        } else {
-            call_arg.loc = loc;
-            call_arg.m_value = ASRUtils::EXPR(make_IntegerConstant_t(
-                al, loc, 1, int_type));
-        }
-        args.push_back(al, call_arg);
-        call_arg.loc = x->m_a->base.loc;
-        call_arg.m_value = is_start_present;
-        args.push_back(al, call_arg);
-        call_arg.loc = x->m_a->base.loc;
-        call_arg.m_value = is_end_present;
-        args.push_back(al, call_arg);
-
-        std::string list_type_name = ASRUtils::type_to_str_python(x->m_type);
-        if (list_section_func_map.find(list_type_name) == list_section_func_map.end()) {
-            create_list_section_func(unit.base.base.loc,
-                unit.m_global_scope, x->m_type);
-        }
-        ASR::symbol_t *fn_sym = list_section_func_map[list_type_name];
-        *current_expr = ASRUtils::EXPR(ASR::make_FunctionCall_t(al, loc,
-            fn_sym, nullptr, args.p, args.n, x->m_type, nullptr, nullptr));
-    }
-
-    void create_concat_function(Location& loc,
-            SymbolTable*& global_scope, ASR::ttype_t* list_type) {
-        /*
-            def _lcompilers_list_concat(left_list: list[i32],
-                    right_list: list[i32]) -> list[i32]:
-                result_list: list[i32]
-                result_list = []
-                __1_k: i32 = 0
-                while len(left_list) > __1_k:
-                    result_list.append(left_list[__1_k])
-                    __1_k += 1
-                __1_k = 0
-                while len(right_list) > __1_k:
-                    result_list.append(right_list[__1_k])
-                    __1_k += 1
-                return result_list
-        */
-        SymbolTable* list_concat_symtab = al.make_new<SymbolTable>(global_scope);
-        std::string list_type_name = ASRUtils::type_to_str_python(list_type);
-        std::string fn_name = global_scope->get_unique_name("_lcompilers_list_concat_" + list_type_name);
-
-        Vec<ASR::expr_t*> arg_exprs;
-        arg_exprs.reserve(al, 2);
-
-        Vec<ASR::stmt_t*> body;
-        body.reserve(al, 4);
-
-        // Declare `left_list` and `right_list`
-        create_args("left_list", list_type, list_concat_symtab)
-        create_args("right_list", list_type, list_concat_symtab)
-
-        // Declare `result_list`
-        ASR::symbol_t* arg = ASR::down_cast<ASR::symbol_t>(
-            ASR::make_Variable_t(al, loc, list_concat_symtab,
-            s2c(al, "result_list"), nullptr, 0, ASR::intentType::Local, nullptr, nullptr,
-            ASR::storage_typeType::Default, list_type,
-            ASR::abiType::Source, ASR::accessType::Public,
-            ASR::presenceType::Required, false));
-        ASR::expr_t* res_list = ASRUtils::EXPR(ASR::make_Var_t(al, loc, arg));
-        list_concat_symtab->add_symbol("result_list", arg);
-
-        // Empty List
-        ASR::expr_t* value = ASRUtils::EXPR(ASR::make_ListConstant_t(
-            al, loc, nullptr, 0, list_type));
-        // Initialize `result_list` with `empty value`
-        ASR::stmt_t* list_concat_stmt = ASRUtils::STMT(ASR::make_Assignment_t(
-            al, loc, res_list, value, nullptr));
-        body.push_back(al, list_concat_stmt);
-        ASR::ttype_t* int_type = ASRUtils::TYPE(ASR::make_Integer_t(
-            al, loc, 4, nullptr, 0));
-        ASR::ttype_t* item_type = ASR::down_cast<ASR::List_t>(list_type)->m_type;
-
-        // Declare `__1_k` for iterations and assign `0`
-        // Copy `left_list` contents
-        create_while_loop(loc, list_concat_symtab, arg_exprs[0], ASRUtils::EXPR(
-            make_IntegerConstant_t(al, loc, 0, int_type)), ASRUtils::EXPR(
-                ASR::make_ListLen_t(al, loc, arg_exprs[0], int_type, nullptr)
-            ), ASRUtils::EXPR(make_IntegerConstant_t(al, loc, 1, int_type)),
-            res_list, body, item_type);
-
-        // Copy `right_list` contents
-        create_while_loop(loc, list_concat_symtab, arg_exprs[1], ASRUtils::EXPR(
-            make_IntegerConstant_t(al, loc, 0, int_type)), ASRUtils::EXPR(
-                ASR::make_ListLen_t(al, loc, arg_exprs[1], int_type, nullptr)
-            ), ASRUtils::EXPR(make_IntegerConstant_t(al, loc, 1, int_type)),
-            res_list, body, item_type);
-
-        // Return
-        list_concat_stmt = ASRUtils::STMT(ASR::make_Return_t(al, loc));
-        body.push_back(al, list_concat_stmt);
-
-        ASR::asr_t *fn = ASRUtils::make_Function_t_util(
-            al, loc,
-            /* a_symtab */ list_concat_symtab,
-            /* a_name */ s2c(al, fn_name),
-            nullptr, 0,
-            /* a_args */ arg_exprs.p,
-            /* n_args */ arg_exprs.n,
-            /* a_body */ body.p,
-            /* n_body */ body.n,
-            /* a_return_var */ res_list,
-            ASR::abiType::Source,
-            ASR::accessType::Public, ASR::deftypeType::Implementation,
-            nullptr,
-            false, false, false, false, false,
-            nullptr, 0,
-            nullptr, 0,
-            false, false, false);
-        ASR::symbol_t *fn_sym = ASR::down_cast<ASR::symbol_t>(fn);
-        global_scope->add_symbol(fn_name, fn_sym);
-        list_concat_func_map[list_type_name] = fn_sym;
-    }
-
-/*
-    This function replaces ListConcat with a FunctionCall where
-    the two lists are passed as arguments to the function.
-    Then, the function returns the concatenated list as a result.
-
-    Converts:
-        x = i + j // lists
-
-    to:
-        x = _lcompilers_list_concat(i, j)
-*/
-
-    void replace_ListConcat(const ASR::ListConcat_t* x) {
-        Location loc = x->base.base.loc;
-        Vec<ASR::call_arg_t> args;
-        args.reserve(al, 2);
-        ASR::call_arg_t left_list, right_list;
-        left_list.loc = x->m_left->base.loc;
-        left_list.m_value = x->m_left;
-        args.push_back(al, left_list);
-        right_list.loc = x->m_right->base.loc;
-        right_list.m_value = x->m_right;
-        args.push_back(al, right_list);
-        std::string list_type_name = ASRUtils::type_to_str_python(x->m_type);
-        if (list_concat_func_map.find(list_type_name) == list_concat_func_map.end()) {
-            create_concat_function(unit.base.base.loc,
-                unit.m_global_scope, x->m_type);
-        }
-        ASR::symbol_t *fn_sym = list_concat_func_map[list_type_name];
-        *current_expr = ASRUtils::EXPR(ASR::make_FunctionCall_t(al, loc,
-            fn_sym, nullptr, args.p, 2, x->m_type, nullptr, nullptr));
-    }
-
-};
-
-class ListExprVisitor : public ASR::CallReplacerOnExpressionsVisitor<ListExprVisitor>
-{
-private:
-
-    ListExprReplacer replacer;
-    std::map<std::string, ASR::symbol_t*> list_concat_func_map, list_section_func_map;
-
-public:
-
-    ListExprVisitor(Allocator& al_, ASR::TranslationUnit_t &unit_) :
-        replacer(al_, unit_, list_concat_func_map, list_section_func_map)
-        { }
-
-    void call_replacer() {
-        replacer.current_expr = current_expr;
-        replacer.replace_expr(*current_expr);
-    }
-
-};
-
-void pass_list_expr(Allocator &al, ASR::TranslationUnit_t &unit,
-                        const LCompilers::PassOptions& /*pass_options*/) {
-    ListExprVisitor v(al, unit);
-    v.visit_TranslationUnit(unit);
-    PassUtils::UpdateDependenciesVisitor u(al);
-    u.visit_TranslationUnit(unit);
-}
-
-
-} // namespace LCompilers
diff --git a/src/libasr/pass/pass_list_expr.h b/src/libasr/pass/pass_list_expr.h
deleted file mode 100644
index 9ee5f380c6..0000000000
--- a/src/libasr/pass/pass_list_expr.h
+++ /dev/null
@@ -1,14 +0,0 @@
-#ifndef LIBASR_PASS_LIST_EXPR_H
-#define LIBASR_PASS_LIST_EXPR_H
-
-#include <libasr/asr.h>
-#include <libasr/utils.h>
-
-namespace LCompilers {
-
-    void pass_list_expr(Allocator &al, ASR::TranslationUnit_t &unit,
-                        const LCompilers::PassOptions& /*pass_options*/);
-
-} // namespace LCompilers
-
-#endif // LIBASR_PASS_LIST_EXPR_H
diff --git a/src/libasr/pass/pass_manager.h b/src/libasr/pass/pass_manager.h
deleted file mode 100644
index 37f0c1114c..0000000000
--- a/src/libasr/pass/pass_manager.h
+++ /dev/null
@@ -1,237 +0,0 @@
-#ifndef LCOMPILERS_PASS_MANAGER_H
-#define LCOMPILERS_PASS_MANAGER_H
-
-#include <libasr/asr.h>
-#include <libasr/string_utils.h>
-#include <libasr/alloc.h>
-
-// TODO: Remove lpython/lfortran includes, make it compiler agnostic
-#if __has_include(<lfortran/utils.h>)
-    #include <lfortran/utils.h>
-#endif
-
-#if __has_include(<lpython/utils.h>)
-    #include <lpython/utils.h>
-#endif
-
-#include <libasr/pass/do_loops.h>
-#include <libasr/pass/for_all.h>
-#include <libasr/pass/implied_do_loops.h>
-#include <libasr/pass/array_op.h>
-#include <libasr/pass/select_case.h>
-#include <libasr/pass/global_stmts.h>
-#include <libasr/pass/param_to_const.h>
-#include <libasr/pass/print_arr.h>
-#include <libasr/pass/print_list.h>
-#include <libasr/pass/arr_slice.h>
-#include <libasr/pass/flip_sign.h>
-#include <libasr/pass/div_to_mul.h>
-#include <libasr/pass/fma.h>
-#include <libasr/pass/loop_unroll.h>
-#include <libasr/pass/sign_from_value.h>
-#include <libasr/pass/class_constructor.h>
-#include <libasr/pass/unused_functions.h>
-#include <libasr/pass/inline_function_calls.h>
-#include <libasr/pass/dead_code_removal.h>
-#include <libasr/pass/for_all.h>
-#include <libasr/pass/select_case.h>
-#include <libasr/pass/loop_vectorise.h>
-#include <libasr/pass/update_array_dim_intrinsic_calls.h>
-#include <libasr/pass/pass_array_by_data.h>
-#include <libasr/pass/pass_list_expr.h>
-#include <libasr/pass/pass_compare.h>
-#include <libasr/pass/subroutine_from_function.h>
-#include <libasr/asr_verify.h>
-
-#include <map>
-#include <vector>
-#include <algorithm>
-
-namespace LCompilers {
-
-    typedef void (*pass_function)(Allocator&, ASR::TranslationUnit_t&,
-                                  const LCompilers::PassOptions&);
-
-    class PassManager {
-        private:
-
-        std::vector<std::string> _passes;
-        std::vector<std::string> _with_optimization_passes;
-        std::vector<std::string> _user_defined_passes;
-        std::vector<std::string> _skip_passes;
-        std::map<std::string, pass_function> _passes_db = {
-            {"do_loops", &pass_replace_do_loops},
-            {"global_stmts", &pass_wrap_global_stmts_into_function},
-            {"implied_do_loops", &pass_replace_implied_do_loops},
-            {"array_op", &pass_replace_array_op},
-            {"arr_slice", &pass_replace_arr_slice},
-            {"print_arr", &pass_replace_print_arr},
-            {"print_list", &pass_replace_print_list},
-            {"class_constructor", &pass_replace_class_constructor},
-            {"unused_functions", &pass_unused_functions},
-            {"flip_sign", &pass_replace_flip_sign},
-            {"div_to_mul", &pass_replace_div_to_mul},
-            {"fma", &pass_replace_fma},
-            {"sign_from_value", &pass_replace_sign_from_value},
-            {"inline_function_calls", &pass_inline_function_calls},
-            {"loop_unroll", &pass_loop_unroll},
-            {"dead_code_removal", &pass_dead_code_removal},
-            {"forall", &pass_replace_forall},
-            {"select_case", &pass_replace_select_case},
-            {"loop_vectorise", &pass_loop_vectorise},
-            {"array_dim_intrinsics_update", &pass_update_array_dim_intrinsic_calls},
-            {"pass_list_expr", &pass_list_expr},
-            {"pass_array_by_data", &pass_array_by_data},
-            {"subroutine_from_function", &pass_create_subroutine_from_function},
-            {"pass_compare", &pass_compare}
-        };
-
-        bool is_fast;
-        bool apply_default_passes;
-
-        void _apply_passes(Allocator& al, ASR::TranslationUnit_t* asr,
-                           std::vector<std::string>& passes, PassOptions &pass_options,
-                           diag::Diagnostics &diagnostics) {
-            for (size_t i = 0; i < passes.size(); i++) {
-                // TODO: rework the whole pass manager: construct the passes
-                // ahead of time (not at the last minute), and remove this much
-                // earlier
-                // Note: this is not enough for rtlib, we also need to include
-                // it
-                if (rtlib && passes[i] == "unused_functions") continue;
-                if( std::find(_skip_passes.begin(), _skip_passes.end(), passes[i]) != _skip_passes.end())
-                    continue;
-                _passes_db[passes[i]](al, *asr, pass_options);
-            #if defined(WITH_LFORTRAN_ASSERT)
-                if (!asr_verify(*asr, true, diagnostics)) {
-                    std::cerr << diagnostics.render2();
-                    throw LCompilersException("Verify failed");
-                };
-            #endif
-            }
-        }
-
-        void _parse_pass_arg(std::string& arg, std::vector<std::string>& passes) {
-            if (arg == "") return;
-
-            std::string current_pass = "";
-            for( size_t i = 0; i < arg.size(); i++ ) {
-                char ch = arg[i];
-                if (ch != ' ' && ch != ',') {
-                    current_pass.push_back(ch);
-                }
-                if (ch == ',' || i == arg.size() - 1) {
-                    current_pass = to_lower(current_pass);
-                    if( _passes_db.find(current_pass) == _passes_db.end() ) {
-                        std::cerr << current_pass << " isn't supported yet.";
-                        std::cerr << " Only the following passes are supported:- "<<std::endl;
-                        for( auto it: _passes_db ) {
-                            std::cerr << it.first << std::endl;
-                        }
-                        exit(1);
-                    }
-                    passes.push_back(current_pass);
-                    current_pass.clear();
-                }
-            }
-        }
-
-        public:
-
-        bool rtlib=false;
-
-        PassManager(): is_fast{false}, apply_default_passes{false} {
-            _passes = {
-                "global_stmts",
-                "class_constructor",
-                "implied_do_loops",
-                "pass_array_by_data",
-                "pass_list_expr",
-                "arr_slice",
-                "subroutine_from_function",
-                "array_op",
-                "print_arr",
-                "print_list",
-                "array_dim_intrinsics_update",
-                "do_loops",
-                "forall",
-                "select_case",
-                "inline_function_calls",
-                "unused_functions"
-            };
-
-            _with_optimization_passes = {
-                "global_stmts",
-                "class_constructor",
-                "implied_do_loops",
-                "pass_array_by_data",
-                "arr_slice",
-                "subroutine_from_function",
-                "array_op",
-                "print_arr",
-                "print_list",
-                "loop_vectorise",
-                "loop_unroll",
-                "array_dim_intrinsics_update",
-                "do_loops",
-                "forall",
-                "dead_code_removal",
-                "select_case",
-                "unused_functions",
-                "flip_sign",
-                "sign_from_value",
-                "div_to_mul",
-                "fma",
-                "inline_function_calls"
-            };
-
-            _user_defined_passes.clear();
-            _skip_passes.clear();
-        }
-
-        void parse_pass_arg(std::string& arg_pass, std::string& skip_pass) {
-            _user_defined_passes.clear();
-            _skip_passes.clear();
-
-            _parse_pass_arg(arg_pass, _user_defined_passes);
-            _parse_pass_arg(skip_pass, _skip_passes);
-        }
-
-        void apply_passes(Allocator& al, ASR::TranslationUnit_t* asr,
-                          PassOptions& pass_options,
-                          diag::Diagnostics &diagnostics) {
-            if( !_user_defined_passes.empty() ) {
-                pass_options.fast = true;
-                _apply_passes(al, asr, _user_defined_passes, pass_options,
-                    diagnostics);
-            } else if( apply_default_passes ) {
-                pass_options.fast = is_fast;
-                if( is_fast ) {
-                    _apply_passes(al, asr, _with_optimization_passes, pass_options,
-                        diagnostics);
-                } else {
-                    _apply_passes(al, asr, _passes, pass_options, diagnostics);
-                }
-            }
-        }
-
-        void use_optimization_passes() {
-            is_fast = true;
-        }
-
-        void do_not_use_optimization_passes() {
-            is_fast = false;
-        }
-
-        void use_default_passes() {
-            apply_default_passes = true;
-        }
-
-        void do_not_use_default_passes() {
-            apply_default_passes = false;
-        }
-
-    };
-
-}
-#endif
diff --git a/src/libasr/pass/pass_utils.cpp b/src/libasr/pass/pass_utils.cpp
deleted file mode 100644
index f650ef7a27..0000000000
--- a/src/libasr/pass/pass_utils.cpp
+++ /dev/null
@@ -1,746 +0,0 @@
-#include <libasr/asr.h>
-#include <libasr/containers.h>
-#include <libasr/exception.h>
-#include <libasr/asr_utils.h>
-#include <libasr/asr_verify.h>
-#include <libasr/pass/pass_utils.h>
-
-namespace LCompilers {
-
-    namespace PassUtils {
-
-        void get_dim_rank(ASR::ttype_t* x_type, ASR::dimension_t*& m_dims, int& n_dims) {
-            ASR::ttype_t* t2 = ASRUtils::type_get_past_pointer(x_type);
-            switch( t2->type ) {
-                case ASR::ttypeType::Integer: {
-                    ASR::Integer_t* x_type_ref = ASR::down_cast<ASR::Integer_t>(t2);
-                    n_dims = x_type_ref->n_dims;
-                    m_dims = x_type_ref->m_dims;
-                    break;
-                }
-                case ASR::ttypeType::Real: {
-                    ASR::Real_t* x_type_ref = ASR::down_cast<ASR::Real_t>(t2);
-                    n_dims = x_type_ref->n_dims;
-                    m_dims = x_type_ref->m_dims;
-                    break;
-                }
-                case ASR::ttypeType::Complex: {
-                    ASR::Complex_t* x_type_ref = ASR::down_cast<ASR::Complex_t>(t2);
-                    n_dims = x_type_ref->n_dims;
-                    m_dims = x_type_ref->m_dims;
-                    break;
-                }
-                case ASR::ttypeType::Struct: {
-                    ASR::Struct_t* x_type_ref = ASR::down_cast<ASR::Struct_t>(t2);
-                    n_dims = x_type_ref->n_dims;
-                    m_dims = x_type_ref->m_dims;
-                    break;
-                }
-                case ASR::ttypeType::Logical: {
-                    ASR::Logical_t* x_type_ref = ASR::down_cast<ASR::Logical_t>(t2);
-                    n_dims = x_type_ref->n_dims;
-                    m_dims = x_type_ref->m_dims;
-                    break;
-                }
-                case ASR::ttypeType::Character: {
-                    ASR::Character_t* x_type_ref = ASR::down_cast<ASR::Character_t>(t2);
-                    n_dims = x_type_ref->n_dims;
-                    m_dims = x_type_ref->m_dims;
-                    break;
-                }
-                default:
-                    break;
-            }
-        }
-
-        ASR::ttype_t* set_dim_rank(ASR::ttype_t* x_type, ASR::dimension_t*& m_dims, int& n_dims,
-                                    bool create_new, Allocator* al) {
-            ASR::ttype_t* new_type = nullptr;
-            ASR::ttype_t* t2 = ASRUtils::type_get_past_pointer(x_type);
-            switch( t2->type ) {
-                case ASR::ttypeType::Integer: {
-                    ASR::Integer_t* x_type_ref = ASR::down_cast<ASR::Integer_t>(t2);
-                    if( create_new ) {
-                        new_type = ASRUtils::TYPE(ASR::make_Integer_t(*al, x_type->base.loc, x_type_ref->m_kind,
-                                                            m_dims, n_dims));
-                    } else {
-                        x_type_ref->n_dims = n_dims;
-                        x_type_ref->m_dims = m_dims;
-                    }
-                    break;
-                }
-                case ASR::ttypeType::Real: {
-                    ASR::Real_t* x_type_ref = ASR::down_cast<ASR::Real_t>(t2);
-                    if( create_new ) {
-                        new_type = ASRUtils::TYPE(ASR::make_Real_t(*al, x_type->base.loc, x_type_ref->m_kind,
-                                                            m_dims, n_dims));
-                    } else {
-                        x_type_ref->n_dims = n_dims;
-                        x_type_ref->m_dims = m_dims;
-                    }
-                    break;
-                }
-                case ASR::ttypeType::Complex: {
-                    ASR::Complex_t* x_type_ref = ASR::down_cast<ASR::Complex_t>(t2);
-                    if( create_new ) {
-                        new_type = ASRUtils::TYPE(ASR::make_Complex_t(*al, x_type->base.loc, x_type_ref->m_kind,
-                                                            m_dims, n_dims));
-                    } else {
-                        x_type_ref->n_dims = n_dims;
-                        x_type_ref->m_dims = m_dims;
-                    }
-                    break;
-                }
-                case ASR::ttypeType::Struct: {
-                    ASR::Struct_t* x_type_ref = ASR::down_cast<ASR::Struct_t>(t2);
-                    if( create_new ) {
-                        new_type = ASRUtils::TYPE(ASR::make_Struct_t(*al, x_type->base.loc, x_type_ref->m_derived_type,
-                                                            m_dims, n_dims));
-                    } else {
-                        x_type_ref->n_dims = n_dims;
-                        x_type_ref->m_dims = m_dims;
-                    }
-                    break;
-                }
-                case ASR::ttypeType::Logical: {
-                    ASR::Logical_t* x_type_ref = ASR::down_cast<ASR::Logical_t>(t2);
-                    if( create_new ) {
-                        new_type = ASRUtils::TYPE(ASR::make_Logical_t(*al, x_type->base.loc, x_type_ref->m_kind,
-                                                            m_dims, n_dims));
-                    } else {
-                        x_type_ref->n_dims = n_dims;
-                        x_type_ref->m_dims = m_dims;
-                    }
-                    break;
-                }
-                case ASR::ttypeType::Character: {
-                    ASR::Character_t* x_type_ref = ASR::down_cast<ASR::Character_t>(t2);
-                    if( create_new ) {
-                        new_type = ASRUtils::TYPE(ASR::make_Character_t(*al, x_type->base.loc, x_type_ref->m_kind,
-                            x_type_ref->m_len, nullptr,
-                                                            m_dims, n_dims));
-                    } else {
-                        x_type_ref->n_dims = n_dims;
-                        x_type_ref->m_dims = m_dims;
-                    }
-                    break;
-                }
-                default:
-                    break;
-            }
-
-            if (ASR::is_a<ASR::Pointer_t>(*x_type)) {
-                new_type = ASRUtils::TYPE(ASR::make_Pointer_t(*al, x_type->base.loc, new_type));
-            }
-
-            return new_type;
-        }
-
-        int get_rank(ASR::expr_t* x) {
-            int n_dims = 0;
-            if( x->type == ASR::exprType::Var ) {
-                const ASR::symbol_t* x_sym = ASRUtils::symbol_get_past_external(
-                                                ASR::down_cast<ASR::Var_t>(x)->m_v);
-                if( x_sym->type == ASR::symbolType::Variable ) {
-                    ASR::Variable_t *v = ASR::down_cast<ASR::Variable_t>(x_sym);
-                    ASR::ttype_t* x_type = v->m_type;
-                    ASR::dimension_t* m_dims;
-                    get_dim_rank(x_type, m_dims, n_dims);
-                }
-            }
-            return n_dims;
-        }
-
-        bool is_array(ASR::expr_t* x) {
-            return get_rank(x) > 0;
-        }
-
-        ASR::expr_t* create_array_ref(ASR::expr_t* arr_expr, Vec<ASR::expr_t*>& idx_vars, Allocator& al) {
-            Vec<ASR::array_index_t> args;
-            args.reserve(al, 1);
-            for( size_t i = 0; i < idx_vars.size(); i++ ) {
-                ASR::array_index_t ai;
-                ai.loc = arr_expr->base.loc;
-                ai.m_left = nullptr;
-                ai.m_right = idx_vars[i];
-                ai.m_step = nullptr;
-                args.push_back(al, ai);
-            }
-            Vec<ASR::dimension_t> empty_dims;
-            empty_dims.reserve(al, 1);
-            ASR::ttype_t* _type = ASRUtils::expr_type(arr_expr);
-            _type = ASRUtils::duplicate_type(al, _type, &empty_dims);
-            ASR::expr_t* array_ref = ASRUtils::EXPR(ASR::make_ArrayItem_t(al,
-                                                              arr_expr->base.loc, arr_expr,
-                                                              args.p, args.size(),
-                                                              _type, ASR::arraystorageType::RowMajor,
-                                                              nullptr));
-            return array_ref;
-        }
-
-        ASR::expr_t* create_array_ref(ASR::symbol_t* arr, Vec<ASR::expr_t*>& idx_vars, Allocator& al,
-                                      const Location& loc, ASR::ttype_t* _type) {
-            Vec<ASR::array_index_t> args;
-            args.reserve(al, 1);
-            for( size_t i = 0; i < idx_vars.size(); i++ ) {
-                ASR::array_index_t ai;
-                ai.loc = loc;
-                ai.m_left = nullptr;
-                ai.m_right = idx_vars[i];
-                ai.m_step = nullptr;
-                args.push_back(al, ai);
-            }
-            Vec<ASR::dimension_t> empty_dims;
-            empty_dims.reserve(al, 1);
-            _type = ASRUtils::duplicate_type(al, _type, &empty_dims);
-            ASR::expr_t* arr_var = ASRUtils::EXPR(ASR::make_Var_t(al, loc, arr));
-            ASR::expr_t* array_ref = ASRUtils::EXPR(ASR::make_ArrayItem_t(al, loc, arr_var,
-                                                                args.p, args.size(),
-                                                                _type, ASR::arraystorageType::RowMajor,
-                                                                nullptr));
-            return array_ref;
-        }
-
-        void create_vars(Vec<ASR::expr_t*>& vars, int n_vars, const Location& loc,
-                         Allocator& al, SymbolTable*& current_scope, std::string suffix,
-                         ASR::intentType intent) {
-            vars.reserve(al, n_vars);
-            for (int i = 1; i <= n_vars; i++) {
-                std::string idx_var_name = "__" + std::to_string(i) + suffix;
-                ASR::ttype_t* int32_type = ASRUtils::TYPE(ASR::make_Integer_t(al, loc, 4, nullptr, 0));
-                if( current_scope->get_symbol(idx_var_name) != nullptr ) {
-                    ASR::symbol_t* idx_sym = current_scope->get_symbol(idx_var_name);
-                    if( ASR::is_a<ASR::Variable_t>(*idx_sym) ) {
-                        ASR::Variable_t* idx_var = ASR::down_cast<ASR::Variable_t>(idx_sym);
-                        if( !(ASRUtils::check_equal_type(idx_var->m_type, int32_type) &&
-                              idx_var->m_symbolic_value == nullptr) ) {
-                            idx_var_name = current_scope->get_unique_name(idx_var_name);
-                        }
-                    } else {
-                        idx_var_name = current_scope->get_unique_name(idx_var_name);
-                    }
-                }
-                char* var_name = s2c(al, idx_var_name);;
-                ASR::expr_t* var = nullptr;
-                if( current_scope->get_symbol(idx_var_name) == nullptr ) {
-                    ASR::asr_t* idx_sym = ASR::make_Variable_t(al, loc, current_scope, var_name, nullptr, 0,
-                                                            intent, nullptr, nullptr, ASR::storage_typeType::Default,
-                                                            int32_type, ASR::abiType::Source, ASR::accessType::Public,
-                                                            ASR::presenceType::Required, false);
-                    current_scope->add_symbol(idx_var_name, ASR::down_cast<ASR::symbol_t>(idx_sym));
-                    var = ASRUtils::EXPR(ASR::make_Var_t(al, loc, ASR::down_cast<ASR::symbol_t>(idx_sym)));
-                } else {
-                    ASR::symbol_t* idx_sym = current_scope->get_symbol(idx_var_name);
-                    var = ASRUtils::EXPR(ASR::make_Var_t(al, loc, idx_sym));
-                }
-                vars.push_back(al, var);
-            }
-        }
-
-        void create_idx_vars(Vec<ASR::expr_t*>& idx_vars, int n_dims, const Location& loc,
-                             Allocator& al, SymbolTable*& current_scope, std::string suffix) {
-            create_vars(idx_vars, n_dims, loc, al, current_scope, suffix);
-        }
-
-        ASR::symbol_t* import_generic_procedure(std::string func_name, std::string module_name,
-                                       Allocator& al, ASR::TranslationUnit_t& unit,
-                                       LCompilers::PassOptions& pass_options,
-                                       SymbolTable*& current_scope, Location& loc) {
-            ASR::symbol_t *v;
-            std::string remote_sym = func_name;
-            SymbolTable* current_scope_copy = current_scope;
-            current_scope = unit.m_global_scope;
-            // We tell `load_module` not to run verify, since the ASR might
-            // not be in valid state. We run verify at the end of this pass
-            // anyway, so verify will be run no matter what.
-            ASR::Module_t *m = ASRUtils::load_module(al, current_scope,
-                                            module_name, loc, true,
-                                            pass_options, false,
-                                            [&](const std::string &msg, const Location &) { throw LCompilersException(msg); }
-                                            );
-            ASR::symbol_t *t = m->m_symtab->resolve_symbol(remote_sym);
-
-            std::string sym = remote_sym;
-            if( current_scope->get_symbol(sym) != nullptr ) {
-                v = current_scope->get_symbol(sym);
-                if( !ASRUtils::is_intrinsic_optimization<ASR::symbol_t>(v) ) {
-                    sym += "@IntrinsicOptimization";
-                } else {
-                    current_scope = current_scope_copy;
-                    return v;
-                }
-            }
-            ASR::asr_t *fn = ASR::make_ExternalSymbol_t(al, t->base.loc, current_scope,
-                                                        s2c(al, sym), t,
-                                                        s2c(al, module_name), nullptr, 0, s2c(al, remote_sym),
-                                                        ASR::accessType::Private);
-            current_scope->add_symbol(sym, ASR::down_cast<ASR::symbol_t>(fn));
-            v = ASR::down_cast<ASR::symbol_t>(fn);
-            current_scope = current_scope_copy;
-            return v;
-        }
-
-        ASR::symbol_t* import_function(std::string func_name, std::string module_name,
-                                       Allocator& al, ASR::TranslationUnit_t& unit,
-                                       LCompilers::PassOptions& pass_options,
-                                       SymbolTable*& current_scope, Location& loc) {
-            ASR::symbol_t *v;
-            std::string remote_sym = func_name;
-            SymbolTable* current_scope_copy = current_scope;
-            current_scope = unit.m_global_scope;
-            // We tell `load_module` not to run verify, since the ASR might
-            // not be in valid state. We run verify at the end of this pass
-            // anyway, so verify will be run no matter what.
-            ASR::Module_t *m = ASRUtils::load_module(al, current_scope,
-                                            module_name, loc, true,
-                                            pass_options, false,
-                                            [&](const std::string &msg, const Location &) { throw LCompilersException(msg); });
-
-            ASR::symbol_t *t = m->m_symtab->resolve_symbol(remote_sym);
-            ASR::Function_t *mfn = ASR::down_cast<ASR::Function_t>(t);
-            ASR::asr_t *fn = ASR::make_ExternalSymbol_t(al, mfn->base.base.loc, current_scope,
-                                                        mfn->m_name, (ASR::symbol_t*)mfn,
-                                                        m->m_name, nullptr, 0, mfn->m_name, ASR::accessType::Private);
-            std::string sym = mfn->m_name;
-            if( current_scope->get_symbol(sym) != nullptr ) {
-                v = current_scope->get_symbol(sym);
-            } else {
-                current_scope->add_symbol(sym, ASR::down_cast<ASR::symbol_t>(fn));
-                v = ASR::down_cast<ASR::symbol_t>(fn);
-            }
-            current_scope = current_scope_copy;
-            return v;
-        }
-
-        // Imports the function from an already loaded ASR module
-        ASR::symbol_t* import_function2(std::string func_name, std::string module_name,
-                                       Allocator& al, ASR::TranslationUnit_t& unit,
-                                       SymbolTable*& current_scope) {
-            ASR::symbol_t *v;
-            std::string remote_sym = func_name;
-            SymbolTable* current_scope_copy = current_scope;
-            SymbolTable* current_scope2 = unit.m_global_scope;
-
-            ASR::Module_t *m;
-            if (current_scope2->get_symbol(module_name) != nullptr) {
-                ASR::symbol_t *sm = current_scope2->get_symbol(module_name);
-                if (ASR::is_a<ASR::Module_t>(*sm)) {
-                    m = ASR::down_cast<ASR::Module_t>(sm);
-                } else {
-                    // The symbol `module_name` is not a module
-                    return nullptr;
-                }
-            } else {
-                // The module `module_name` is not in ASR
-                return nullptr;
-            }
-            ASR::symbol_t *t = m->m_symtab->resolve_symbol(remote_sym);
-            if (!t) return nullptr;
-            ASR::Function_t *mfn = ASR::down_cast<ASR::Function_t>(t);
-            ASR::asr_t *fn = ASR::make_ExternalSymbol_t(al, mfn->base.base.loc, current_scope2,
-                                                        mfn->m_name, (ASR::symbol_t*)mfn,
-                                                        m->m_name, nullptr, 0, mfn->m_name, ASR::accessType::Private);
-            std::string sym = mfn->m_name;
-            if( current_scope2->get_symbol(sym) != nullptr ) {
-                v = current_scope2->get_symbol(sym);
-            } else {
-                current_scope2->add_symbol(sym, ASR::down_cast<ASR::symbol_t>(fn));
-                v = ASR::down_cast<ASR::symbol_t>(fn);
-            }
-            current_scope2 = current_scope_copy;
-            return v;
-        }
-
-        ASR::expr_t* create_compare_helper(Allocator &al, const Location &loc, ASR::expr_t* left, ASR::expr_t* right,
-                                                ASR::cmpopType op) {
-            ASR::ttype_t* type = ASRUtils::expr_type(left);
-            // TODO: compute `value`:
-            if (ASRUtils::is_integer(*type)) {
-                return ASRUtils::EXPR(ASR::make_IntegerCompare_t(al, loc, left, op, right, type, nullptr));
-            } else if (ASRUtils::is_real(*type)) {
-                return ASRUtils::EXPR(ASR::make_RealCompare_t(al, loc, left, op, right, type, nullptr));
-            } else if (ASRUtils::is_complex(*type)) {
-                return ASRUtils::EXPR(ASR::make_ComplexCompare_t(al, loc, left, op, right, type, nullptr));
-            } else if (ASRUtils::is_logical(*type)) {
-                return ASRUtils::EXPR(ASR::make_LogicalCompare_t(al, loc, left, op, right, type, nullptr));
-            } else if (ASRUtils::is_character(*type)) {
-                return ASRUtils::EXPR(ASR::make_StringCompare_t(al, loc, left, op, right, type, nullptr));
-            } else {
-                throw LCompilersException("Type not supported");
-            }
-        }
-
-        ASR::expr_t* create_binop_helper(Allocator &al, const Location &loc, ASR::expr_t* left, ASR::expr_t* right,
-                                                ASR::binopType op) {
-            ASR::ttype_t* type = ASRUtils::expr_type(left);
-            // TODO: compute `value`:
-            if (ASRUtils::is_integer(*type)) {
-                return ASRUtils::EXPR(ASR::make_IntegerBinOp_t(al, loc, left, op, right, type, nullptr));
-            } else if (ASRUtils::is_real(*type)) {
-                return ASRUtils::EXPR(ASR::make_RealBinOp_t(al, loc, left, op, right, type, nullptr));
-            } else if (ASRUtils::is_complex(*type)) {
-                return ASRUtils::EXPR(ASR::make_ComplexBinOp_t(al, loc, left, op, right, type, nullptr));
-            } else {
-                throw LCompilersException("Type not supported");
-            }
-        }
-
-        ASR::expr_t* get_bound(ASR::expr_t* arr_expr, int dim, std::string bound,
-                                Allocator& al) {
-            ASR::ttype_t* int32_type = ASRUtils::TYPE(ASR::make_Integer_t(al, arr_expr->base.loc, 4, nullptr, 0));
-            ASR::expr_t* dim_expr = ASRUtils::EXPR(ASR::make_IntegerConstant_t(al, arr_expr->base.loc, dim, int32_type));
-            ASR::arrayboundType bound_type = ASR::arrayboundType::LBound;
-            if( bound == "ubound" ) {
-                bound_type = ASR::arrayboundType::UBound;
-            }
-            return ASRUtils::EXPR(ASR::make_ArrayBound_t(al, arr_expr->base.loc, arr_expr, dim_expr,
-                        int32_type, bound_type, nullptr));
-        }
-
-
-        ASR::stmt_t* get_flipsign(ASR::expr_t* arg0, ASR::expr_t* arg1,
-                              Allocator& al, ASR::TranslationUnit_t& unit,
-                              LCompilers::PassOptions& pass_options,
-                              SymbolTable*& current_scope,
-                              const std::function<void (const std::string &, const Location &)> err) {
-            ASR::symbol_t *v = import_generic_procedure("flipsign", "lfortran_intrinsic_optimization",
-                                                        al, unit, pass_options, current_scope, arg0->base.loc);
-            Vec<ASR::call_arg_t> args;
-            args.reserve(al, 2);
-            ASR::call_arg_t arg0_, arg1_;
-            arg0_.loc = arg0->base.loc, arg0_.m_value = arg0;
-            args.push_back(al, arg0_);
-            arg1_.loc = arg1->base.loc, arg1_.m_value = arg1;
-            args.push_back(al, arg1_);
-            return ASRUtils::STMT(
-                    ASRUtils::symbol_resolve_external_generic_procedure_without_eval(
-                        arg0->base.loc, v, args, current_scope, al,
-                        err));
-        }
-
-        ASR::expr_t* to_int32(ASR::expr_t* x, ASR::ttype_t* int64type, Allocator& al) {
-            int cast_kind = -1;
-            switch( ASRUtils::expr_type(x)->type ) {
-                case ASR::ttypeType::Integer: {
-                    cast_kind = ASR::cast_kindType::IntegerToInteger;
-                    break;
-                }
-
-                case ASR::ttypeType::Real: {
-                    cast_kind = ASR::cast_kindType::RealToInteger;
-                    break;
-                }
-
-                default: {
-                    break;
-                }
-            }
-            if( cast_kind > 0 ) {
-                return ASRUtils::EXPR(ASR::make_Cast_t(al, x->base.loc, x, (ASR::cast_kindType)cast_kind, int64type, nullptr));
-            } else {
-                throw LCompilersException("Array indices can only be of type real or integer.");
-            }
-            return nullptr;
-        }
-
-        ASR::expr_t* create_auxiliary_variable_for_expr(ASR::expr_t* expr, std::string& name,
-            Allocator& al, SymbolTable*& current_scope, ASR::stmt_t*& assign_stmt) {
-            ASR::asr_t* expr_sym = ASR::make_Variable_t(al, expr->base.loc, current_scope, s2c(al, name), nullptr, 0,
-                                                    ASR::intentType::Local, nullptr, nullptr, ASR::storage_typeType::Default,
-                                                    ASRUtils::expr_type(expr), ASR::abiType::Source, ASR::accessType::Public,
-                                                    ASR::presenceType::Required, false);
-            if( current_scope->get_symbol(name) == nullptr ) {
-                current_scope->add_symbol(name, ASR::down_cast<ASR::symbol_t>(expr_sym));
-            } else {
-                throw LCompilersException("Symbol with " + name + " is already present in " + std::to_string(current_scope->counter));
-            }
-            ASR::expr_t* var = ASRUtils::EXPR(ASR::make_Var_t(al, expr->base.loc, ASR::down_cast<ASR::symbol_t>(expr_sym)));
-            assign_stmt = ASRUtils::STMT(ASR::make_Assignment_t(al, var->base.loc, var, expr, nullptr));
-            return var;
-        }
-
-        ASR::expr_t* create_auxiliary_variable(const Location& loc, std::string& name,
-            Allocator& al, SymbolTable*& current_scope, ASR::ttype_t* var_type) {
-            ASR::asr_t* expr_sym = ASR::make_Variable_t(al, loc, current_scope, s2c(al, name), nullptr, 0,
-                                                    ASR::intentType::Local, nullptr, nullptr, ASR::storage_typeType::Default,
-                                                    var_type, ASR::abiType::Source, ASR::accessType::Public,
-                                                    ASR::presenceType::Required, false);
-            if( current_scope->get_symbol(name) == nullptr ) {
-                current_scope->add_symbol(name, ASR::down_cast<ASR::symbol_t>(expr_sym));
-            } else {
-                throw LCompilersException("Symbol with " + name + " is already present in " + std::to_string(current_scope->counter));
-            }
-            ASR::expr_t* var = ASRUtils::EXPR(ASR::make_Var_t(al, loc, ASR::down_cast<ASR::symbol_t>(expr_sym)));
-            return var;
-        }
-
-        ASR::expr_t* get_fma(ASR::expr_t* arg0, ASR::expr_t* arg1, ASR::expr_t* arg2,
-            Allocator& al, ASR::TranslationUnit_t& unit, LCompilers::PassOptions& pass_options,
-            SymbolTable*& current_scope, Location& loc,
-            const std::function<void (const std::string &, const Location &)> err) {
-            ASR::symbol_t *v = import_generic_procedure("fma", "lfortran_intrinsic_optimization",
-                                                        al, unit, pass_options, current_scope, arg0->base.loc);
-            Vec<ASR::call_arg_t> args;
-            args.reserve(al, 3);
-            ASR::call_arg_t arg0_, arg1_, arg2_;
-            arg0_.loc = arg0->base.loc, arg0_.m_value = arg0;
-            args.push_back(al, arg0_);
-            arg1_.loc = arg1->base.loc, arg1_.m_value = arg1;
-            args.push_back(al, arg1_);
-            arg2_.loc = arg2->base.loc, arg2_.m_value = arg2;
-            args.push_back(al, arg2_);
-            return ASRUtils::EXPR(
-                        ASRUtils::symbol_resolve_external_generic_procedure_without_eval(
-                        loc, v, args, current_scope, al, err));
-        }
-
-        ASR::symbol_t* insert_fallback_vector_copy(Allocator& al, ASR::TranslationUnit_t& unit,
-            SymbolTable*& global_scope, std::vector<ASR::ttype_t*>& types,
-            std::string prefix) {
-            const int num_args = 6;
-            std::string vector_copy_name = prefix;
-            for( ASR::ttype_t*& type: types ) {
-                vector_copy_name += ASRUtils::type_to_str_python(type, false);
-            }
-            vector_copy_name += "@IntrinsicOptimization";
-            if( global_scope->resolve_symbol(vector_copy_name) ) {
-                return global_scope->resolve_symbol(vector_copy_name);
-            }
-            Vec<ASR::expr_t*> arg_exprs;
-            arg_exprs.reserve(al, num_args);
-            SymbolTable* vector_copy_symtab = al.make_new<SymbolTable>(global_scope);
-            for( int i = 0; i < num_args; i++ ) {
-                std::string arg_name = "arg" + std::to_string(i);
-                ASR::symbol_t* arg = ASR::down_cast<ASR::symbol_t>(ASR::make_Variable_t(al, unit.base.base.loc, vector_copy_symtab,
-                                        s2c(al, arg_name), nullptr, 0, ASR::intentType::In, nullptr, nullptr, ASR::storage_typeType::Default,
-                                        types[std::min(i, (int) types.size() - 1)], ASR::abiType::Source, ASR::accessType::Public,
-                                        ASR::presenceType::Required, false));
-                ASR::expr_t* arg_expr = ASRUtils::EXPR(ASR::make_Var_t(al, arg->base.loc, arg));
-                arg_exprs.push_back(al, arg_expr);
-                vector_copy_symtab->add_symbol(arg_name, arg);
-            }
-            Vec<ASR::stmt_t*> body;
-            body.reserve(al, 1);
-            ASR::do_loop_head_t do_loop_head;
-            do_loop_head.m_start = arg_exprs[2];
-            do_loop_head.m_end = arg_exprs[3];
-            do_loop_head.m_increment = arg_exprs[4];
-            do_loop_head.loc = arg_exprs[2]->base.loc;
-            Vec<ASR::expr_t*> idx_vars;
-            create_idx_vars(idx_vars, 1, arg_exprs[2]->base.loc,
-                            al, vector_copy_symtab);
-            do_loop_head.m_v = idx_vars[0];
-            Vec<ASR::stmt_t*> loop_body;
-            loop_body.reserve(al, 1);
-            ASR::expr_t* target = create_array_ref(arg_exprs[0], idx_vars, al);
-            ASR::expr_t* value = create_array_ref(arg_exprs[1], idx_vars, al);
-            ASR::stmt_t* copy_stmt = ASRUtils::STMT(ASR::make_Assignment_t(al, target->base.loc,
-                                        target, value, nullptr));
-            loop_body.push_back(al, copy_stmt);
-            ASR::stmt_t* fallback_loop = ASRUtils::STMT(ASR::make_DoLoop_t(al, do_loop_head.loc,
-                                            do_loop_head, loop_body.p, loop_body.size()));
-            Vec<ASR::stmt_t*> fallback_while_loop = replace_doloop(al, *ASR::down_cast<ASR::DoLoop_t>(fallback_loop),
-                                                                  (int) ASR::cmpopType::Lt);
-            for( size_t i = 0; i < fallback_while_loop.size(); i++ ) {
-                body.push_back(al, fallback_while_loop[i]);
-            }
-            ASR::asr_t* vector_copy_asr = ASRUtils::make_Function_t_util(al,
-                unit.base.base.loc,
-                vector_copy_symtab,
-                s2c(al, vector_copy_name), nullptr, 0, arg_exprs.p, arg_exprs.size(),
-                /* nullptr, 0, */ body.p, body.size(), nullptr,
-                ASR::abiType::Source, ASR::accessType::Public,
-                ASR::deftypeType::Implementation,
-                nullptr, false, false, false, false, false,
-                nullptr, 0, nullptr, 0, false, false, false);
-            global_scope->add_symbol(vector_copy_name, ASR::down_cast<ASR::symbol_t>(vector_copy_asr));
-            return ASR::down_cast<ASR::symbol_t>(vector_copy_asr);
-        }
-
-        ASR::stmt_t* get_vector_copy(ASR::expr_t* array0, ASR::expr_t* array1, ASR::expr_t* start,
-            ASR::expr_t* end, ASR::expr_t* step, ASR::expr_t* vector_length,
-            Allocator& al, ASR::TranslationUnit_t& unit,
-            SymbolTable*& global_scope, Location& loc) {
-            ASR::ttype_t* array0_type = ASRUtils::expr_type(array0);
-            ASR::ttype_t* array1_type = ASRUtils::expr_type(array1);
-            ASR::ttype_t* index_type = ASRUtils::expr_type(start);
-            std::vector<ASR::ttype_t*> types = {array0_type, array1_type, index_type};
-            ASR::symbol_t *v = insert_fallback_vector_copy(al, unit, global_scope,
-                                                           types,
-                                                           "vector_copy_");
-            Vec<ASR::call_arg_t> args;
-            args.reserve(al, 6);
-            ASR::call_arg_t arg0_, arg1_, arg2_, arg3_, arg4_, arg5_;
-            ASR::expr_t* array0_expr = array0;
-            arg0_.loc = array0->base.loc, arg0_.m_value = array0_expr;
-            args.push_back(al, arg0_);
-            ASR::expr_t* array1_expr = array1;
-            arg1_.loc = array1->base.loc, arg1_.m_value = array1_expr;
-            args.push_back(al, arg1_);
-            arg2_.loc = start->base.loc, arg2_.m_value = start;
-            args.push_back(al, arg2_);
-            arg3_.loc = end->base.loc, arg3_.m_value = end;
-            args.push_back(al, arg3_);
-            arg4_.loc = step->base.loc, arg4_.m_value = step;
-            args.push_back(al, arg4_);
-            arg5_.loc = vector_length->base.loc, arg5_.m_value = vector_length;
-            args.push_back(al, arg5_);
-            return ASRUtils::STMT(ASR::make_SubroutineCall_t(al, loc, v,
-                                                             nullptr, args.p, args.size(),
-                                                             nullptr));
-        }
-
-        ASR::expr_t* get_sign_from_value(ASR::expr_t* arg0, ASR::expr_t* arg1,
-            Allocator& al, ASR::TranslationUnit_t& unit, LCompilers::PassOptions& pass_options,
-            SymbolTable*& current_scope, Location& loc,
-            const std::function<void (const std::string &, const Location &)> err) {
-            ASR::symbol_t *v = import_generic_procedure("sign_from_value", "lfortran_intrinsic_optimization",
-                                                        al, unit, pass_options, current_scope, arg0->base.loc);
-            Vec<ASR::call_arg_t> args;
-            args.reserve(al, 2);
-            ASR::call_arg_t arg0_, arg1_;
-            arg0_.loc = arg0->base.loc, arg0_.m_value = arg0;
-            args.push_back(al, arg0_);
-            arg1_.loc = arg1->base.loc, arg1_.m_value = arg1;
-            args.push_back(al, arg1_);
-            return ASRUtils::EXPR(
-                        ASRUtils::symbol_resolve_external_generic_procedure_without_eval(
-                        loc, v, args, current_scope, al, err));
-        }
-
-        Vec<ASR::stmt_t*> replace_doloop(Allocator &al, const ASR::DoLoop_t &loop,
-                                         int comp) {
-            Location loc = loop.base.base.loc;
-            ASR::expr_t *a=loop.m_head.m_start;
-            ASR::expr_t *b=loop.m_head.m_end;
-            ASR::expr_t *c=loop.m_head.m_increment;
-            ASR::expr_t *cond = nullptr;
-            ASR::stmt_t *inc_stmt = nullptr;
-            ASR::stmt_t *stmt1 = nullptr;
-            if( !a && !b && !c ) {
-                int a_kind = 4;
-                if( loop.m_head.m_v ) {
-                    a_kind = ASRUtils::extract_kind_from_ttype_t(ASRUtils::expr_type(loop.m_head.m_v));
-                }
-                ASR::ttype_t *cond_type = ASRUtils::TYPE(ASR::make_Logical_t(al, loc, a_kind, nullptr, 0));
-                cond = ASRUtils::EXPR(ASR::make_LogicalConstant_t(al, loc, true, cond_type));
-            } else {
-                LCOMPILERS_ASSERT(a);
-                LCOMPILERS_ASSERT(b);
-                if (!c) {
-                    int a_kind = ASRUtils::extract_kind_from_ttype_t(ASRUtils::expr_type(loop.m_head.m_v));
-                    ASR::ttype_t *type = ASRUtils::TYPE(ASR::make_Integer_t(al, loc, a_kind, nullptr, 0));
-                    c = ASRUtils::EXPR(ASR::make_IntegerConstant_t(al, loc, 1, type));
-                }
-                LCOMPILERS_ASSERT(c);
-                ASR::cmpopType cmp_op;
-
-                if( comp == -1 ) {
-                    int increment;
-                    bool not_constant_inc = false;
-                    if (!ASRUtils::is_integer(*ASRUtils::expr_type(c))) {
-                        throw LCompilersException("Do loop increment type should be an integer");
-                    }
-                    if (c->type == ASR::exprType::IntegerConstant) {
-                        increment = ASR::down_cast<ASR::IntegerConstant_t>(c)->m_n;
-                    } else if (c->type == ASR::exprType::IntegerUnaryMinus) {
-                        ASR::IntegerUnaryMinus_t *u = ASR::down_cast<ASR::IntegerUnaryMinus_t>(c);
-                        increment = - ASR::down_cast<ASR::IntegerConstant_t>(u->m_arg)->m_n;
-                    } else {
-                        // This is the case when increment operator is not a
-                        // constant, and so we need some conditions to check
-                        // in the backend and generate while loop according
-                        // to avoid infinite loops.
-                        not_constant_inc = true;
-                    }
-
-                    if (not_constant_inc) {
-                        ASR::expr_t *target = loop.m_head.m_v;
-                        int a_kind = ASRUtils::extract_kind_from_ttype_t(ASRUtils::expr_type(target));
-                        ASR::ttype_t *int_type = ASRUtils::TYPE(ASR::make_Integer_t(al, loc, a_kind, nullptr, 0));
-
-                        ASR::ttype_t *log_type = ASRUtils::TYPE(
-                            ASR::make_Logical_t(al, loc, 4, nullptr, 0));
-                        ASR::expr_t *const_zero = ASRUtils::EXPR(ASR::make_IntegerConstant_t(al,
-                                    loc, 0, int_type));
-
-                        // test1: c > 0
-                        ASR::expr_t *test1 = ASRUtils::EXPR(ASR::make_IntegerCompare_t(al, loop.base.base.loc,
-                            c, ASR::cmpopType::Gt, const_zero, log_type, nullptr));
-                        // test2: c <= 0
-                        ASR::expr_t *test2 = ASRUtils::EXPR(ASR::make_IntegerCompare_t(al, loop.base.base.loc,
-                            c, ASR::cmpopType::LtE, const_zero, log_type, nullptr));
-
-                        // test11: target + c <= b
-                        ASR::expr_t *test11 = ASRUtils::EXPR(ASR::make_IntegerCompare_t(al, loc,
-                            ASRUtils::EXPR(ASR::make_IntegerBinOp_t(al, loc, target,
-                            ASR::binopType::Add, c, int_type, nullptr)), ASR::cmpopType::LtE, b, log_type, nullptr));
-
-                        // test22: target + c >= b
-                        ASR::expr_t *test22 = ASRUtils::EXPR(ASR::make_IntegerCompare_t(al, loc,
-                            ASRUtils::EXPR(ASR::make_IntegerBinOp_t(al, loc, target,
-                            ASR::binopType::Add, c, int_type, nullptr)), ASR::cmpopType::GtE, b, log_type, nullptr));
-
-                        // cond1: test1 && test11
-                        ASR::expr_t *cond1 = ASRUtils::EXPR(make_LogicalBinOp_t(al, loc,
-                            test1, ASR::logicalbinopType::And, test11, log_type, nullptr));
-
-                        // cond2: test2 && test22
-                        ASR::expr_t *cond2 = ASRUtils::EXPR(make_LogicalBinOp_t(al, loc,
-                            test2, ASR::logicalbinopType::And, test22, log_type, nullptr));
-
-                        // cond: cond1 || cond2
-                        cond = ASRUtils::EXPR(make_LogicalBinOp_t(al, loc,
-                            cond1, ASR::logicalbinopType::Or, cond2, log_type, nullptr));
-                    } else if (increment > 0) {
-                        cmp_op = ASR::cmpopType::LtE;
-                    } else {
-                        cmp_op = ASR::cmpopType::GtE;
-                    }
-                } else {
-                    cmp_op = (ASR::cmpopType) comp;
-                }
-
-                ASR::expr_t *target = loop.m_head.m_v;
-                int a_kind = ASRUtils::extract_kind_from_ttype_t(ASRUtils::expr_type(target));
-                ASR::ttype_t *type = ASRUtils::TYPE(ASR::make_Integer_t(al, loc,
-                            a_kind, nullptr, 0));
-
-                stmt1 = ASRUtils::STMT(ASR::make_Assignment_t(al, loc, target,
-                    ASRUtils::EXPR(ASR::make_IntegerBinOp_t(al, loc, a,
-                            ASR::binopType::Sub, c, type, nullptr)), nullptr));
-
-                inc_stmt = ASRUtils::STMT(ASR::make_Assignment_t(al, loc, target,
-                            ASRUtils::EXPR(ASR::make_IntegerBinOp_t(al, loc, target,
-                                ASR::binopType::Add, c, type, nullptr)), nullptr));
-                if (cond == nullptr) {
-                    ASR::ttype_t *log_type = ASRUtils::TYPE(
-                        ASR::make_Logical_t(al, loc, 4, nullptr, 0));
-                    cond = ASRUtils::EXPR(ASR::make_IntegerCompare_t(al, loc,
-                        ASRUtils::EXPR(ASR::make_IntegerBinOp_t(al, loc, target,
-                            ASR::binopType::Add, c, type, nullptr)), cmp_op, b, log_type, nullptr));
-                }
-            }
-            Vec<ASR::stmt_t*> body;
-            body.reserve(al, loop.n_body + (inc_stmt != nullptr));
-            if( inc_stmt ) {
-                body.push_back(al, inc_stmt);
-            }
-            for (size_t i=0; i<loop.n_body; i++) {
-                body.push_back(al, loop.m_body[i]);
-            }
-            ASR::stmt_t *stmt2 = ASRUtils::STMT(ASR::make_WhileLoop_t(al, loc, cond,
-                body.p, body.size()));
-            Vec<ASR::stmt_t*> result;
-            result.reserve(al, 2);
-            if( stmt1 ) {
-                result.push_back(al, stmt1);
-            }
-            result.push_back(al, stmt2);
-
-            return result;
-        }
-
-    } // namespace PassUtils
-
-} // namespace LCompilers
diff --git a/src/libasr/pass/pass_utils.h b/src/libasr/pass/pass_utils.h
deleted file mode 100644
index 6b8bb3301b..0000000000
--- a/src/libasr/pass/pass_utils.h
+++ /dev/null
@@ -1,342 +0,0 @@
-#ifndef LFORTRAN_PASS_UTILS_H
-#define LFORTRAN_PASS_UTILS_H
-
-#include <libasr/asr.h>
-#include <libasr/containers.h>
-
-namespace LCompilers {
-
-    namespace PassUtils {
-
-        bool is_array(ASR::expr_t* x);
-
-        void get_dim_rank(ASR::ttype_t* x_type, ASR::dimension_t*& m_dims, int& n_dims);
-
-        ASR::ttype_t* set_dim_rank(ASR::ttype_t* x_type, ASR::dimension_t*& m_dims, int& n_dims,
-                                    bool create_new=false, Allocator* al=nullptr);
-
-        int get_rank(ASR::expr_t* x);
-
-        ASR::expr_t* create_array_ref(ASR::expr_t* arr_expr, Vec<ASR::expr_t*>& idx_vars, Allocator& al);
-
-        ASR::expr_t* create_array_ref(ASR::symbol_t* arr, Vec<ASR::expr_t*>& idx_vars, Allocator& al,
-                                      const Location& loc, ASR::ttype_t* _type);
-
-        void create_vars(Vec<ASR::expr_t*>& vars, int n_vars, const Location& loc,
-                         Allocator& al, SymbolTable*& current_scope, std::string suffix="_k",
-                         ASR::intentType intent=ASR::intentType::Local);
-
-        void create_idx_vars(Vec<ASR::expr_t*>& idx_vars, int n_dims, const Location& loc,
-                             Allocator& al, SymbolTable*& current_scope, std::string suffix="_k");
-
-        ASR::expr_t* create_compare_helper(Allocator &al, const Location &loc, ASR::expr_t* left, ASR::expr_t* right,
-                                            ASR::cmpopType op);
-
-        ASR::expr_t* create_binop_helper(Allocator &al, const Location &loc, ASR::expr_t* left, ASR::expr_t* right,
-                                            ASR::binopType op);
-
-        ASR::expr_t* get_bound(ASR::expr_t* arr_expr, int dim, std::string bound,
-                                Allocator& al);
-
-
-        ASR::stmt_t* get_flipsign(ASR::expr_t* arg0, ASR::expr_t* arg1,
-                                  Allocator& al, ASR::TranslationUnit_t& unit,
-                                  LCompilers::PassOptions& pass_options,
-                                  SymbolTable*& current_scope,
-                                  const std::function<void (const std::string &, const Location &)> err);
-
-        ASR::expr_t* to_int32(ASR::expr_t* x, ASR::ttype_t* int32type, Allocator& al);
-
-        ASR::expr_t* create_auxiliary_variable_for_expr(ASR::expr_t* expr, std::string& name,
-            Allocator& al, SymbolTable*& current_scope, ASR::stmt_t*& assign_stmt);
-
-        ASR::expr_t* create_auxiliary_variable(const Location& loc, std::string& name,
-            Allocator& al, SymbolTable*& current_scope, ASR::ttype_t* var_type);
-
-        ASR::expr_t* get_fma(ASR::expr_t* arg0, ASR::expr_t* arg1, ASR::expr_t* arg2,
-                             Allocator& al, ASR::TranslationUnit_t& unit, LCompilers::PassOptions& pass_options,
-                             SymbolTable*& current_scope,Location& loc,
-                             const std::function<void (const std::string &, const Location &)> err);
-
-        ASR::expr_t* get_sign_from_value(ASR::expr_t* arg0, ASR::expr_t* arg1,
-                                         Allocator& al, ASR::TranslationUnit_t& unit,
-                                         LCompilers::PassOptions& pass_options,
-                                         SymbolTable*& current_scope, Location& loc,
-                                         const std::function<void (const std::string &, const Location &)> err);
-
-        ASR::stmt_t* get_vector_copy(ASR::expr_t* array0, ASR::expr_t* array1, ASR::expr_t* start,
-            ASR::expr_t* end, ASR::expr_t* step, ASR::expr_t* vector_length,
-            Allocator& al, ASR::TranslationUnit_t& unit,
-            SymbolTable*& global_scope, Location& loc);
-
-        Vec<ASR::stmt_t*> replace_doloop(Allocator &al, const ASR::DoLoop_t &loop,
-                                         int comp=-1);
-
-        static inline bool is_aggregate_type(ASR::expr_t* var) {
-            return ASR::is_a<ASR::Struct_t>(*ASRUtils::expr_type(var));
-        }
-
-        template <class Struct>
-        class PassVisitor: public ASR::BaseWalkVisitor<Struct> {
-
-            private:
-
-                Struct& self() { return static_cast<Struct&>(*this); }
-
-            public:
-
-                bool asr_changed, retain_original_stmt, remove_original_stmt;
-                Allocator& al;
-                Vec<ASR::stmt_t*> pass_result;
-                SymbolTable* current_scope;
-
-                PassVisitor(Allocator& al_, SymbolTable* current_scope_): al{al_},
-                current_scope{current_scope_} {
-                    pass_result.n = 0;
-                }
-
-                void transform_stmts(ASR::stmt_t **&m_body, size_t &n_body) {
-                    Vec<ASR::stmt_t*> body;
-                    body.reserve(al, n_body);
-                    if (pass_result.size() > 0) {
-                        asr_changed = true;
-                        for (size_t j=0; j < pass_result.size(); j++) {
-                            body.push_back(al, pass_result[j]);
-                        }
-                        pass_result.n = 0;
-                    }
-                    for (size_t i=0; i<n_body; i++) {
-                        // Not necessary after we check it after each visit_stmt in every
-                        // visitor method:
-                        pass_result.n = 0;
-                        retain_original_stmt = false;
-                        remove_original_stmt = false;
-                        self().visit_stmt(*m_body[i]);
-                        if (pass_result.size() > 0) {
-                            asr_changed = true;
-                            for (size_t j=0; j < pass_result.size(); j++) {
-                                body.push_back(al, pass_result[j]);
-                            }
-                            if( retain_original_stmt ) {
-                                body.push_back(al, m_body[i]);
-                                retain_original_stmt = false;
-                            }
-                            pass_result.n = 0;
-                        } else if(!remove_original_stmt) {
-                            body.push_back(al, m_body[i]);
-                        }
-                    }
-                    m_body = body.p;
-                    n_body = body.size();
-                }
-
-                void visit_Program(const ASR::Program_t &x) {
-                    // FIXME: this is a hack, we need to pass in a non-const `x`,
-                    // which requires to generate a TransformVisitor.
-                    ASR::Program_t &xx = const_cast<ASR::Program_t&>(x);
-                    current_scope = xx.m_symtab;
-                    transform_stmts(xx.m_body, xx.n_body);
-
-                    // Transform nested functions and subroutines
-                    for (auto &item : x.m_symtab->get_scope()) {
-                        if (ASR::is_a<ASR::Function_t>(*item.second)) {
-                            ASR::Function_t *s = ASR::down_cast<ASR::Function_t>(item.second);
-                            self().visit_Function(*s);
-                        }
-                        if (ASR::is_a<ASR::AssociateBlock_t>(*item.second)) {
-                            ASR::AssociateBlock_t *s = ASR::down_cast<ASR::AssociateBlock_t>(item.second);
-                            self().visit_AssociateBlock(*s);
-                        }
-                        if (ASR::is_a<ASR::Block_t>(*item.second)) {
-                            ASR::Block_t *s = ASR::down_cast<ASR::Block_t>(item.second);
-                            self().visit_Block(*s);
-                        }
-                    }
-                }
-
-                void visit_Function(const ASR::Function_t &x) {
-                    // FIXME: this is a hack, we need to pass in a non-const `x`,
-                    // which requires to generate a TransformVisitor.
-                    ASR::Function_t &xx = const_cast<ASR::Function_t&>(x);
-                    current_scope = xx.m_symtab;
-                    transform_stmts(xx.m_body, xx.n_body);
-
-                    for (auto &item : x.m_symtab->get_scope()) {
-                        if (ASR::is_a<ASR::Block_t>(*item.second)) {
-                            ASR::Block_t *s = ASR::down_cast<ASR::Block_t>(item.second);
-                            self().visit_Block(*s);
-                        }
-                    }
-                }
-
-                void visit_AssociateBlock(const ASR::AssociateBlock_t& x) {
-                    ASR::AssociateBlock_t &xx = const_cast<ASR::AssociateBlock_t&>(x);
-                    current_scope = xx.m_symtab;
-                    transform_stmts(xx.m_body, xx.n_body);
-                }
-
-                void visit_Block(const ASR::Block_t& x) {
-                    ASR::Block_t &xx = const_cast<ASR::Block_t&>(x);
-                    current_scope = xx.m_symtab;
-                    transform_stmts(xx.m_body, xx.n_body);
-
-                    for (auto &item : x.m_symtab->get_scope()) {
-                        self().visit_symbol(*item.second);
-                    }
-                }
-
-                void visit_DoLoop(const ASR::DoLoop_t& x) {
-                    self().visit_do_loop_head(x.m_head);
-                    ASR::DoLoop_t& xx = const_cast<ASR::DoLoop_t&>(x);
-                    transform_stmts(xx.m_body, xx.n_body);
-                }
-
-                void visit_If(const ASR::If_t& x) {
-                    ASR::If_t &xx = const_cast<ASR::If_t&>(x);
-                    self().visit_expr(*xx.m_test);
-                    transform_stmts(xx.m_body, xx.n_body);
-                    transform_stmts(xx.m_orelse, xx.n_orelse);
-                }
-
-                void visit_CaseStmt(const ASR::CaseStmt_t& x) {
-                    ASR::CaseStmt_t &xx = const_cast<ASR::CaseStmt_t&>(x);
-                    for (size_t i=0; i<xx.n_test; i++) {
-                        self().visit_expr(*xx.m_test[i]);
-                    }
-                    transform_stmts(xx.m_body, xx.n_body);
-                }
-
-                void visit_CaseStmt_Range(const ASR::CaseStmt_Range_t& x) {
-                    ASR::CaseStmt_Range_t &xx = const_cast<ASR::CaseStmt_Range_t&>(x);
-                    if (xx.m_start)
-                        self().visit_expr(*xx.m_start);
-                    if (xx.m_end)
-                        self().visit_expr(*xx.m_end);
-                    transform_stmts(xx.m_body, xx.n_body);
-                }
-
-                void visit_Select(const ASR::Select_t& x) {
-                    ASR::Select_t &xx = const_cast<ASR::Select_t&>(x);
-                    self().visit_expr(*xx.m_test);
-                    for (size_t i=0; i<xx.n_body; i++) {
-                        self().visit_case_stmt(*xx.m_body[i]);
-                    }
-                    transform_stmts(xx.m_default, xx.n_default);
-                }
-
-        };
-
-        template <class Struct>
-        class SkipOptimizationFunctionVisitor: public PassVisitor<Struct> {
-
-            public:
-
-                SkipOptimizationFunctionVisitor(Allocator& al_): PassVisitor<Struct>(al_, nullptr) {
-                }
-
-                void visit_Function(const ASR::Function_t &x) {
-                    if( ASRUtils::is_intrinsic_optimization<ASR::Function_t>(&x) ) {
-                        return ;
-                    }
-                    PassUtils::PassVisitor<Struct>::visit_Function(x);
-                }
-
-        };
-
-        class UpdateDependenciesVisitor : public ASR::BaseWalkVisitor<UpdateDependenciesVisitor> {
-
-            private:
-
-                Vec<char*> function_dependencies;
-                Vec<char*> module_dependencies;
-                Vec<char*> variable_dependencies;
-                Allocator& al;
-                bool fill_function_dependencies;
-                bool fill_module_dependencies;
-                bool fill_variable_dependencies;
-
-            public:
-
-                UpdateDependenciesVisitor(Allocator &al_)
-                : al(al_), fill_function_dependencies(false),
-                fill_module_dependencies(false),
-                fill_variable_dependencies(false)
-                {}
-
-                void visit_Function(const ASR::Function_t& x) {
-                    ASR::Function_t& xx = const_cast<ASR::Function_t&>(x);
-                    function_dependencies.n = 0;
-                    function_dependencies.reserve(al, 1);
-                    bool fill_function_dependencies_copy = fill_function_dependencies;
-                    fill_function_dependencies = true;
-                    BaseWalkVisitor<UpdateDependenciesVisitor>::visit_Function(x);
-                    xx.m_dependencies = function_dependencies.p;
-                    xx.n_dependencies = function_dependencies.size();
-                    fill_function_dependencies = fill_function_dependencies_copy;
-                }
-
-                void visit_Module(const ASR::Module_t& x) {
-                    ASR::Module_t& xx = const_cast<ASR::Module_t&>(x);
-                    module_dependencies.n = 0;
-                    module_dependencies.reserve(al, 1);
-                    bool fill_module_dependencies_copy = fill_module_dependencies;
-                    fill_module_dependencies = true;
-                    BaseWalkVisitor<UpdateDependenciesVisitor>::visit_Module(x);
-                    for( size_t i = 0; i < xx.n_dependencies; i++ ) {
-                        if( !present(module_dependencies, xx.m_dependencies[i]) ) {
-                            module_dependencies.push_back(al, xx.m_dependencies[i]);
-                        }
-                    }
-                    xx.n_dependencies = module_dependencies.size();
-                    xx.m_dependencies = module_dependencies.p;
-                    fill_module_dependencies = fill_module_dependencies_copy;
-                }
-
-                void visit_Variable(const ASR::Variable_t& x) {
-                    ASR::Variable_t& xx = const_cast<ASR::Variable_t&>(x);
-                    variable_dependencies.n = 0;
-                    variable_dependencies.reserve(al, 1);
-                    bool fill_variable_dependencies_copy = fill_variable_dependencies;
-                    fill_variable_dependencies = true;
-                    BaseWalkVisitor<UpdateDependenciesVisitor>::visit_Variable(x);
-                    xx.n_dependencies = variable_dependencies.size();
-                    xx.m_dependencies = variable_dependencies.p;
-                    fill_variable_dependencies = fill_variable_dependencies_copy;
-                }
-
-                void visit_Var(const ASR::Var_t& x) {
-                    if( fill_variable_dependencies ) {
-                        variable_dependencies.push_back(al, ASRUtils::symbol_name(x.m_v));
-                    }
-                }
-
-                void visit_FunctionCall(const ASR::FunctionCall_t& x) {
-                    if( fill_function_dependencies ) {
-                        function_dependencies.push_back(al, ASRUtils::symbol_name(x.m_name));
-                    }
-                    if( ASR::is_a<ASR::ExternalSymbol_t>(*x.m_name) &&
-                        fill_module_dependencies ) {
-                        ASR::ExternalSymbol_t* x_m_name = ASR::down_cast<ASR::ExternalSymbol_t>(x.m_name);
-                        module_dependencies.push_back(al, x_m_name->m_module_name);
-                    }
-                    BaseWalkVisitor<UpdateDependenciesVisitor>::visit_FunctionCall(x);
-                }
-
-                void visit_SubroutineCall(const ASR::SubroutineCall_t& x) {
-                    if( fill_function_dependencies ) {
-                        function_dependencies.push_back(al, ASRUtils::symbol_name(x.m_name));
-                    }
-                    if( ASR::is_a<ASR::ExternalSymbol_t>(*x.m_name) &&
-                        fill_module_dependencies ) {
-                        ASR::ExternalSymbol_t* x_m_name = ASR::down_cast<ASR::ExternalSymbol_t>(x.m_name);
-                        module_dependencies.push_back(al, x_m_name->m_module_name);
-                    }
-                    BaseWalkVisitor<UpdateDependenciesVisitor>::visit_SubroutineCall(x);
-                }
-        };
-
-    } // namespace PassUtils
-
-} // namespace LCompilers
-
-#endif // LFORTRAN_PASS_UTILS_H
diff --git a/src/libasr/pass/print_arr.cpp b/src/libasr/pass/print_arr.cpp
deleted file mode 100644
index 6b81bc8c96..0000000000
--- a/src/libasr/pass/print_arr.cpp
+++ /dev/null
@@ -1,141 +0,0 @@
-#include <libasr/asr.h>
-#include <libasr/containers.h>
-#include <libasr/exception.h>
-#include <libasr/asr_utils.h>
-#include <libasr/asr_verify.h>
-#include <libasr/pass/pass_utils.h>
-#include <libasr/pass/print_arr.h>
-
-
-namespace LCompilers {
-
-using ASR::down_cast;
-using ASR::is_a;
-
-/*
-This ASR pass replaces array slice with do loops and array expression assignments.
-The function `pass_replace_print_arr` transforms the ASR tree in-place.
-
-Converts:
-
-    print*, y(1:3)
-
-to:
-
-    do i = 1, 3
-        print *, y(i)
-    end do
-
-
-Converts:
-    a: not_array
-    b: array
-    c: not_array
-    d: not_array
-    print *, a, b(1:10), c, d
-
-to:
-    print *, a
-    do i = 1, 10
-        print *, b(i)
-    end do
-    print *, c, d
-*/
-
-class PrintArrVisitor : public PassUtils::PassVisitor<PrintArrVisitor>
-{
-private:
-    std::string rl_path;
-public:
-    PrintArrVisitor(Allocator &al, const std::string &rl_path_) : PassVisitor(al, nullptr),
-    rl_path(rl_path_) {
-        pass_result.reserve(al, 1);
-
-    }
-
-    ASR::stmt_t* print_array_using_doloop(ASR::expr_t *arr_expr, const Location &loc) {
-        int n_dims = PassUtils::get_rank(arr_expr);
-        Vec<ASR::expr_t*> idx_vars;
-        PassUtils::create_idx_vars(idx_vars, n_dims, loc, al, current_scope);
-        ASR::stmt_t* doloop = nullptr;
-        ASR::stmt_t* empty_print_endl = ASRUtils::STMT(ASR::make_Print_t(al, loc,
-                                            nullptr, nullptr, 0, nullptr, nullptr));
-        for( int i = n_dims - 1; i >= 0; i-- ) {
-            ASR::do_loop_head_t head;
-            head.m_v = idx_vars[i];
-            head.m_start = PassUtils::get_bound(arr_expr, i + 1, "lbound", al);
-            head.m_end = PassUtils::get_bound(arr_expr, i + 1, "ubound", al);
-            head.m_increment = nullptr;
-            head.loc = head.m_v->base.loc;
-            Vec<ASR::stmt_t*> doloop_body;
-            doloop_body.reserve(al, 1);
-            if( doloop == nullptr ) {
-                ASR::expr_t* ref = PassUtils::create_array_ref(arr_expr, idx_vars, al);
-                Vec<ASR::expr_t*> print_args;
-                print_args.reserve(al, 1);
-                print_args.push_back(al, ref);
-                ASR::stmt_t* print_stmt = ASRUtils::STMT(ASR::make_Print_t(al, loc, nullptr,
-                                                                print_args.p, print_args.size(), nullptr, nullptr));
-                doloop_body.push_back(al, print_stmt);
-            } else {
-                doloop_body.push_back(al, doloop);
-                doloop_body.push_back(al, empty_print_endl);
-            }
-            doloop = ASRUtils::STMT(ASR::make_DoLoop_t(al, loc, head, doloop_body.p, doloop_body.size()));
-        }
-        return doloop;
-    }
-
-    void visit_Print(const ASR::Print_t& x) {
-        std::vector<ASR::expr_t*> print_body;
-        ASR::stmt_t* empty_print_endl = ASRUtils::STMT(ASR::make_Print_t(al, x.base.base.loc,
-                                            nullptr, nullptr, 0, nullptr, nullptr));
-        ASR::stmt_t* print_stmt;
-        for (size_t i=0; i<x.n_values; i++) {
-            if (!ASR::is_a<ASR::Pointer_t>(*ASRUtils::expr_type(x.m_values[i])) &&
-                PassUtils::is_array(x.m_values[i])) {
-                if (print_body.size() > 0) {
-                    Vec<ASR::expr_t*> body;
-                    body.reserve(al, print_body.size());
-                    for (size_t j=0; j<print_body.size(); j++) {
-                        body.push_back(al, print_body[j]);
-                    }
-                    print_stmt = ASRUtils::STMT(ASR::make_Print_t(
-                        al, x.base.base.loc, nullptr, body.p, body.size(),
-                        nullptr, nullptr));
-                    pass_result.push_back(al, print_stmt);
-                    pass_result.push_back(al, empty_print_endl);
-                    print_body.clear();
-                }
-                print_stmt = print_array_using_doloop(x.m_values[i], x.base.base.loc);
-                pass_result.push_back(al, print_stmt);
-                pass_result.push_back(al, empty_print_endl);
-            } else {
-                print_body.push_back(x.m_values[i]);
-            }
-        }
-        if (print_body.size() > 0) {
-            Vec<ASR::expr_t*> body;
-            body.reserve(al, print_body.size());
-            for (size_t j=0; j<print_body.size(); j++) {
-                body.push_back(al, print_body[j]);
-            }
-            print_stmt = ASRUtils::STMT(ASR::make_Print_t(
-                al, x.base.base.loc, nullptr, body.p, body.size(),
-                nullptr, nullptr));
-            pass_result.push_back(al, print_stmt);
-            print_body.clear();
-        }
-    }
-
-};
-
-void pass_replace_print_arr(Allocator &al, ASR::TranslationUnit_t &unit,
-                            const LCompilers::PassOptions& pass_options) {
-    std::string rl_path = pass_options.runtime_library_dir;
-    PrintArrVisitor v(al, rl_path);
-    v.visit_TranslationUnit(unit);
-}
-
-
-} // namespace LCompilers
diff --git a/src/libasr/pass/print_arr.h b/src/libasr/pass/print_arr.h
deleted file mode 100644
index e3914ac31c..0000000000
--- a/src/libasr/pass/print_arr.h
+++ /dev/null
@@ -1,14 +0,0 @@
-#ifndef LFORTRAN_PASS_PRINT_ARR_H
-#define LFORTRAN_PASS_PRINT_ARR_H
-
-#include <libasr/asr.h>
-#include <libasr/utils.h>
-
-namespace LCompilers {
-
-    void pass_replace_print_arr(Allocator &al, ASR::TranslationUnit_t &unit,
-                                const LCompilers::PassOptions& pass_options);
-
-} // namespace LCompilers
-
-#endif // LFORTRAN_PASS_PRINT_ARR_H
diff --git a/src/libasr/pass/print_list.cpp b/src/libasr/pass/print_list.cpp
deleted file mode 100644
index a4000f059d..0000000000
--- a/src/libasr/pass/print_list.cpp
+++ /dev/null
@@ -1,352 +0,0 @@
-#include <libasr/asr.h>
-#include <libasr/containers.h>
-#include <libasr/exception.h>
-#include <libasr/asr_utils.h>
-#include <libasr/asr_verify.h>
-#include <libasr/pass/pass_utils.h>
-#include <libasr/pass/print_list.h>
-
-namespace LCompilers {
-
-/*
-This ASR pass replaces print list or print tuple with print every value,
-comma_space, brackets and newline. The function
-`pass_replace_print_list` transforms the ASR tree in-place.
-
-Converts:
-
-    print(a, b, l, sep="pqr", end="xyz") # l is a list (but not a & b)
-
-to:
-    print(a, b, sep="pqr")
-    print("[", end="")
-    for i in range(len(l)):
-        print(l[i], end="")
-        if i < len(l) - 1:
-            print(", ", end="")
-    print("]", sep="pqr", end="xyz")
-
-for nested lists it transforms to:
-
-    print("[", end="")
-    for i in range(len(l)):
-        # print(l[i], end="") is replaced by the following code
-
-        print("[", end="")
-        for i1 in range(len(l[i])):
-            print(l[i][i1], end="")
-            if i1 < len(l[i]) - 1:
-                print(", ", end="")
-        print("]")
-
-        if i < len(l) - 1:
-            print(", ", end="")
-    print("]", sep="pqr", end="xyz")
-
-Note: In code, the variable `i` is named as `__list_iterator`
-
-For tuples:
-
-Converts:
-    a: tuple[i32, str, f32] = (10, 'lpython', 24.04)
-    print(a, sep="pqr", end="xyz")
-
-to:
-    print("(", end="")
-    for i in range(3):
-        print(a[i], end="")
-        if i < len(a) - 1:
-            print(", ", end="")
-    print(")", sep="pqr", end="xyz")
-
-It also works the same way for nested lists/tuples using recursion.
-*/
-
-class PrintListVisitor
-    : public PassUtils::PassVisitor<PrintListVisitor> {
-   private:
-    std::string rl_path;
-
-   public:
-   Vec<ASR::stmt_t*> print_pass_result_tmp;
-    PrintListVisitor(Allocator &al, const std::string &rl_path_)
-        : PassVisitor(al, nullptr), rl_path(rl_path_) {
-        pass_result.reserve(al, 1);
-        print_pass_result_tmp.reserve(al, 1);
-    }
-
-    void print_list_helper(ASR::expr_t *list_expr, ASR::expr_t *sep_expr,
-                ASR::expr_t *end_expr, const Location &loc) {
-        ASR::List_t *listC =
-                ASR::down_cast<ASR::List_t>(ASRUtils::expr_type(list_expr));
-        ASR::ttype_t *int_type = ASRUtils::TYPE(
-                ASR::make_Integer_t(al, loc, 4, nullptr, 0));
-        ASR::ttype_t *bool_type = ASRUtils::TYPE(
-            ASR::make_Logical_t(al, loc, 4, nullptr, 0));
-        ASR::ttype_t *str_type_len_0 = ASRUtils::TYPE(ASR::make_Character_t(
-            al, loc, 1, 0, nullptr, nullptr, 0));
-        ASR::ttype_t *str_type_len_1 = ASRUtils::TYPE(ASR::make_Character_t(
-            al, loc, 1, 1, nullptr, nullptr, 0));
-        ASR::ttype_t *str_type_len_2 = ASRUtils::TYPE(ASR::make_Character_t(
-            al, loc, 1, 2, nullptr, nullptr, 0));
-        ASR::expr_t *comma_space =
-            ASRUtils::EXPR(ASR::make_StringConstant_t(
-                al, loc, s2c(al, ", "), str_type_len_2));
-        ASR::expr_t *single_quote =
-            ASRUtils::EXPR(ASR::make_StringConstant_t(
-                al, loc, s2c(al, "'"), str_type_len_1));
-        ASR::expr_t *empty_str = ASRUtils::EXPR(ASR::make_StringConstant_t(
-            al, loc, s2c(al, ""), str_type_len_0));
-        ASR::expr_t *open_bracket =
-            ASRUtils::EXPR(ASR::make_StringConstant_t(
-                al, loc, s2c(al, "["), str_type_len_1));
-        ASR::expr_t *close_bracket =
-            ASRUtils::EXPR(ASR::make_StringConstant_t(
-                al, loc, s2c(al, "]"), str_type_len_1));
-
-        std::string list_iter_var_name;
-        ASR::expr_t *list_iter_var;
-        {
-            list_iter_var_name =
-                current_scope->get_unique_name("__list_iterator");
-            list_iter_var = PassUtils::create_auxiliary_variable(loc,
-                list_iter_var_name, al, current_scope, int_type);
-        }
-
-        ASR::expr_t *list_item = ASRUtils::EXPR(
-            ASR::make_ListItem_t(al, loc, list_expr,
-                                    list_iter_var, listC->m_type, nullptr));
-        ASR::expr_t *list_len = ASRUtils::EXPR(ASR::make_ListLen_t(
-            al, loc, list_expr, int_type, nullptr));
-        ASR::expr_t *constant_one = ASRUtils::EXPR(
-            ASR::make_IntegerConstant_t(al, loc, 1, int_type));
-        ASR::expr_t *list_len_minus_one =
-            ASRUtils::EXPR(ASR::make_IntegerBinOp_t(
-                al, loc, list_len, ASR::binopType::Sub,
-                constant_one, int_type, nullptr));
-        ASR::expr_t *compare_cond =
-            ASRUtils::EXPR(ASR::make_IntegerCompare_t(
-                al, loc, list_iter_var, ASR::cmpopType::Lt,
-                list_len_minus_one, bool_type, nullptr));
-
-        Vec<ASR::expr_t *> v1, v2, v3, v4;
-        v1.reserve(al, 1);
-        v3.reserve(al, 1);
-        v4.reserve(al, 1);
-        v1.push_back(al, open_bracket);
-        v3.push_back(al, close_bracket);
-        v4.push_back(al, comma_space);
-
-        if (ASR::is_a<ASR::Character_t>(*listC->m_type)) {
-            v2.reserve(al, 3);
-            v2.push_back(al, single_quote);
-            v2.push_back(al, list_item);
-            v2.push_back(al, single_quote);
-        } else {
-            v2.reserve(al, 1);
-            v2.push_back(al, list_item);
-        }
-
-        ASR::stmt_t *print_open_bracket = ASRUtils::STMT(
-            ASR::make_Print_t(al, loc, nullptr, v1.p, v1.size(),
-                                nullptr, empty_str));
-        ASR::stmt_t *print_comma_space = ASRUtils::STMT(
-            ASR::make_Print_t(al, loc, nullptr, v4.p, v4.size(),
-                                empty_str, empty_str));
-        ASR::stmt_t *print_item = ASRUtils::STMT(
-            ASR::make_Print_t(al, loc, nullptr, v2.p, v2.size(),
-                                empty_str, empty_str));
-        ASR::stmt_t *print_close_bracket = ASRUtils::STMT(
-            ASR::make_Print_t(al, loc, nullptr, v3.p, v3.size(),
-                                sep_expr, end_expr));
-
-        Vec<ASR::stmt_t *> if_body;
-        if_body.reserve(al, 1);
-        if_body.push_back(al, print_comma_space);
-
-        ASR::stmt_t *if_cond = ASRUtils::STMT(
-            ASR::make_If_t(al, loc, compare_cond, if_body.p,
-                            if_body.size(), nullptr, 0));
-
-        ASR::do_loop_head_t loop_head;
-        Vec<ASR::stmt_t *> loop_body;
-        {
-            loop_head.loc = loc;
-            loop_head.m_v = list_iter_var;
-            loop_head.m_start = ASRUtils::EXPR(ASR::make_IntegerConstant_t(
-                al, loc, 0, int_type));
-            loop_head.m_end = list_len_minus_one;
-            loop_head.m_increment =
-                ASRUtils::EXPR(ASR::make_IntegerConstant_t(
-                    al, loc, 1, int_type));
-            if (ASR::is_a<ASR::List_t>(*listC->m_type)){
-                print_list_helper(list_item, nullptr, empty_str, loc);
-                loop_body.from_pointer_n_copy(al, print_pass_result_tmp.p, print_pass_result_tmp.size());
-                print_pass_result_tmp.n = 0;
-            } else if (ASR::is_a<ASR::Tuple_t>(*listC->m_type)) {
-                print_tuple_helper(list_item, nullptr, empty_str, loc);
-                loop_body.from_pointer_n_copy(al, print_pass_result_tmp.p, print_pass_result_tmp.size());
-                print_pass_result_tmp.n = 0;
-            } else {
-                loop_body.reserve(al, 2);
-                loop_body.push_back(al, print_item);
-            }
-            loop_body.push_back(al, if_cond);
-        }
-
-        ASR::stmt_t *loop = ASRUtils::STMT(ASR::make_DoLoop_t(
-            al, loc, loop_head, loop_body.p, loop_body.size()));
-
-        {
-            print_pass_result_tmp.push_back(al, print_open_bracket);
-            print_pass_result_tmp.push_back(al, loop);
-            print_pass_result_tmp.push_back(al, print_close_bracket);
-        }
-    }
-
-    void print_tuple_helper(ASR::expr_t *tup_expr, ASR::expr_t *sep_expr,
-                ASR::expr_t *end_expr, const Location &loc) {
-        ASR::Tuple_t *tup =
-                ASR::down_cast<ASR::Tuple_t>(ASRUtils::expr_type(tup_expr));
-        ASR::ttype_t *int_type = ASRUtils::TYPE(
-                ASR::make_Integer_t(al, loc, 4, nullptr, 0));
-        ASR::ttype_t *str_type_len_0 = ASRUtils::TYPE(ASR::make_Character_t(
-            al, loc, 1, 0, nullptr, nullptr, 0));
-        ASR::ttype_t *str_type_len_1 = ASRUtils::TYPE(ASR::make_Character_t(
-            al, loc, 1, 1, nullptr, nullptr, 0));
-        ASR::ttype_t *str_type_len_2 = ASRUtils::TYPE(ASR::make_Character_t(
-            al, loc, 1, 2, nullptr, nullptr, 0));
-        ASR::expr_t *comma_space =
-            ASRUtils::EXPR(ASR::make_StringConstant_t(
-                al, loc, s2c(al, ", "), str_type_len_2));
-        ASR::expr_t *single_quote =
-            ASRUtils::EXPR(ASR::make_StringConstant_t(
-                al, loc, s2c(al, "'"), str_type_len_1));
-        ASR::expr_t *empty_str = ASRUtils::EXPR(ASR::make_StringConstant_t(
-            al, loc, s2c(al, ""), str_type_len_0));
-        ASR::expr_t *open_bracket =
-            ASRUtils::EXPR(ASR::make_StringConstant_t(
-                al, loc, s2c(al, "("), str_type_len_1));
-        ASR::expr_t *close_bracket =
-            ASRUtils::EXPR(ASR::make_StringConstant_t(
-                al, loc, s2c(al, ")"), str_type_len_1));
-
-        std::string tup_iter_var_name;
-        ASR::expr_t *tup_iter_var, *tup_item;
-        Vec<ASR::expr_t *> v1, v3, v4;
-        v1.reserve(al, 1);
-        v3.reserve(al, 1);
-        v4.reserve(al, 1);
-        v1.push_back(al, open_bracket);
-        v3.push_back(al, close_bracket);
-        v4.push_back(al, comma_space);
-
-        Vec<ASR::stmt_t*> tmp_vec;
-        tmp_vec.reserve(al, 3);
-        ASR::stmt_t *print_open_bracket = ASRUtils::STMT(
-            ASR::make_Print_t(al, loc, nullptr, v1.p, v1.size(),
-                                nullptr, empty_str));
-        ASR::stmt_t *print_comma_space = ASRUtils::STMT(
-            ASR::make_Print_t(al, loc, nullptr, v4.p, v4.size(),
-                                empty_str, empty_str));
-        ASR::stmt_t *print_close_bracket = ASRUtils::STMT(
-            ASR::make_Print_t(al, loc, nullptr, v3.p, v3.size(),
-                                sep_expr, end_expr));
-
-        tmp_vec.push_back(al, print_open_bracket);
-        for (size_t i=0; i<tup->n_type; i++) {
-            tup_iter_var = ASRUtils::EXPR(
-                ASR::make_IntegerConstant_t(al, loc, i, int_type));
-            tup_item = ASRUtils::EXPR(ASR::make_TupleItem_t(al, loc, tup_expr,
-                                    tup_iter_var, tup->m_type[i], nullptr));
-            if (ASR::is_a<ASR::List_t>(*tup->m_type[i])) {
-                print_pass_result_tmp.n = 0;
-                print_list_helper(tup_item, nullptr, empty_str, loc);
-                for (size_t j=0; j<print_pass_result_tmp.n; j++) {
-                    tmp_vec.push_back(al, print_pass_result_tmp[j]);
-                }
-                print_pass_result_tmp.n = 0;
-            } else if (ASR::is_a<ASR::Tuple_t>(*tup->m_type[i])) {
-                print_pass_result_tmp.n = 0;
-                print_tuple_helper(tup_item, nullptr, empty_str, loc);
-                for (size_t j=0; j<print_pass_result_tmp.n; j++) {
-                    tmp_vec.push_back(al, print_pass_result_tmp[j]);
-                }
-                print_pass_result_tmp.n = 0;
-            } else {
-                Vec<ASR::expr_t *> v2;
-                if (ASR::is_a<ASR::Character_t>(*tup->m_type[i])) {
-                    v2.reserve(al, 3);
-                    v2.push_back(al, single_quote);
-                    v2.push_back(al, tup_item);
-                    v2.push_back(al, single_quote);
-                } else {
-                    v2.reserve(al, 1);
-                    v2.push_back(al, tup_item);
-                }
-                ASR::stmt_t *print_item = ASRUtils::STMT(
-                    ASR::make_Print_t(al, loc, nullptr, v2.p, v2.size(),
-                                empty_str, empty_str));
-                tmp_vec.push_back(al, print_item);
-            }
-            if (i != tup->n_type - 1) {
-                tmp_vec.push_back(al, print_comma_space);
-            }
-        }
-        tmp_vec.push_back(al, print_close_bracket);
-        print_pass_result_tmp.from_pointer_n_copy(al, tmp_vec.p, tmp_vec.size());
-    }
-
-    void visit_Print(const ASR::Print_t &x) {
-        std::vector<ASR::expr_t*> print_tmp;
-        for (size_t i=0; i<x.n_values; i++) {
-            if (ASR::is_a<ASR::List_t>(*ASRUtils::expr_type(x.m_values[i])) ||
-                ASR::is_a<ASR::Tuple_t>(*ASRUtils::expr_type(x.m_values[i]))) {
-                if (!print_tmp.empty()) {
-                    Vec<ASR::expr_t*> tmp_vec;
-                    tmp_vec.reserve(al, print_tmp.size());
-                    for (auto &e: print_tmp) {
-                        tmp_vec.push_back(al, e);
-                    }
-                    ASR::stmt_t *print_stmt = ASRUtils::STMT(
-                        ASR::make_Print_t(al, x.base.base.loc, nullptr, tmp_vec.p, tmp_vec.size(),
-                                    x.m_separator, nullptr));
-                    print_tmp.clear();
-                    pass_result.push_back(al, print_stmt);
-
-                }
-                if (ASR::is_a<ASR::List_t>(*ASRUtils::expr_type(x.m_values[i])))
-                    print_list_helper(x.m_values[i], x.m_separator, nullptr, x.base.base.loc);
-                else
-                    print_tuple_helper(x.m_values[i], x.m_separator, nullptr, x.base.base.loc);
-                for (size_t j=0; j<print_pass_result_tmp.n; j++)
-                    pass_result.push_back(al, print_pass_result_tmp[j]);
-                print_pass_result_tmp.n = 0;
-            } else {
-                print_tmp.push_back(x.m_values[i]);
-            }
-        }
-        if (!print_tmp.empty()) {
-            Vec<ASR::expr_t*> tmp_vec;
-            tmp_vec.reserve(al, print_tmp.size());
-            for (auto &e: print_tmp) {
-                tmp_vec.push_back(al, e);
-            }
-            ASR::stmt_t *print_stmt = ASRUtils::STMT(
-                ASR::make_Print_t(al, x.base.base.loc, nullptr, tmp_vec.p, tmp_vec.size(),
-                            x.m_separator, x.m_end));
-            print_tmp.clear();
-            pass_result.push_back(al, print_stmt);
-        }
-    }
-};
-
-void pass_replace_print_list(
-    Allocator &al, ASR::TranslationUnit_t &unit,
-    const LCompilers::PassOptions &pass_options) {
-    std::string rl_path = pass_options.runtime_library_dir;
-    PrintListVisitor v(al, rl_path);
-    v.visit_TranslationUnit(unit);
-}
-
-}  // namespace LCompilers
diff --git a/src/libasr/pass/print_list.h b/src/libasr/pass/print_list.h
deleted file mode 100644
index f7180584ea..0000000000
--- a/src/libasr/pass/print_list.h
+++ /dev/null
@@ -1,15 +0,0 @@
-#ifndef LFORTRAN_PASS_PRINT_LIST_H
-#define LFORTRAN_PASS_PRINT_LIST_H
-
-#include <libasr/asr.h>
-#include <libasr/utils.h>
-
-namespace LCompilers {
-
-    void pass_replace_print_list(
-    Allocator &al, ASR::TranslationUnit_t &unit,
-    const LCompilers::PassOptions &pass_options);
-
-} // namespace LCompilers
-
-#endif // LFORTRAN_PASS_PRINT_LIST_H
diff --git a/src/libasr/pass/select_case.cpp b/src/libasr/pass/select_case.cpp
deleted file mode 100644
index 138dd1cb4f..0000000000
--- a/src/libasr/pass/select_case.cpp
+++ /dev/null
@@ -1,178 +0,0 @@
-#include <libasr/asr.h>
-#include <libasr/containers.h>
-#include <libasr/exception.h>
-#include <libasr/asr_utils.h>
-#include <libasr/asr_verify.h>
-#include <libasr/pass/pass_utils.h>
-#include <libasr/pass/select_case.h>
-
-
-namespace LCompilers {
-
-using ASR::down_cast;
-using ASR::is_a;
-
-/*
-
-This ASR pass replaces select-case construct with if-then-else-if statements. The function
-`pass_replace_select_case` transforms the ASR tree in-place.
-
-Converts:
-
-    select case (a)
-
-       case (b:c)
-          ...
-
-       case (d:e)
-          ...
-      case (f)
-          ...
-
-       case default
-          ...
-
-    end select
-
-to:
-
-    if ( b <= a && a <= c ) then
-        ...
-    else if ( d <= a && a <= e ) then
-        ...
-    else if (f) then
-        ...
-    else
-        ...
-    end if
-
-*/
-
-inline ASR::expr_t* gen_test_expr_CaseStmt(Allocator& al, const Location& loc, ASR::CaseStmt_t* Case_Stmt, ASR::expr_t* a_test) {
-    ASR::expr_t* test_expr = nullptr;
-    if( Case_Stmt->n_test == 1 ) {
-        test_expr = PassUtils::create_compare_helper(al, loc, a_test, Case_Stmt->m_test[0], ASR::cmpopType::Eq);
-    } else if( Case_Stmt->n_test == 2 ) {
-        ASR::expr_t* left = PassUtils::create_compare_helper(al, loc, a_test, Case_Stmt->m_test[0], ASR::cmpopType::Eq);
-        ASR::expr_t* right = PassUtils::create_compare_helper(al, loc, a_test, Case_Stmt->m_test[1], ASR::cmpopType::Eq);
-        test_expr = PassUtils::create_binop_helper(al, loc, left, right, ASR::binopType::Add);
-    } else {
-        ASR::expr_t* left = PassUtils::create_compare_helper(al, loc, a_test, Case_Stmt->m_test[0], ASR::cmpopType::Eq);
-        ASR::expr_t* right = PassUtils::create_compare_helper(al, loc, a_test, Case_Stmt->m_test[1], ASR::cmpopType::Eq);
-        test_expr = PassUtils::create_binop_helper(al, loc, left, right, ASR::binopType::Add);
-        for( std::uint32_t j = 2; j < Case_Stmt->n_test; j++ ) {
-            ASR::expr_t* newExpr = PassUtils::create_compare_helper(al, loc, a_test, Case_Stmt->m_test[j], ASR::cmpopType::Eq);
-            test_expr = PassUtils::create_binop_helper(al, loc, test_expr, newExpr, ASR::binopType::Add);
-        }
-    }
-    return test_expr;
-}
-
-inline ASR::expr_t* gen_test_expr_CaseStmt_Range(Allocator& al, const Location& loc, ASR::CaseStmt_Range_t* Case_Stmt, ASR::expr_t* a_test) {
-    ASR::expr_t* test_expr = nullptr;
-    if( Case_Stmt->m_start != nullptr && Case_Stmt->m_end == nullptr ) {
-        test_expr = PassUtils::create_compare_helper(al, loc, Case_Stmt->m_start, a_test, ASR::cmpopType::LtE);
-    } else if( Case_Stmt->m_start == nullptr && Case_Stmt->m_end != nullptr ) {
-        test_expr = PassUtils::create_compare_helper(al, loc, a_test, Case_Stmt->m_end, ASR::cmpopType::LtE);
-    } else if( Case_Stmt->m_start != nullptr && Case_Stmt->m_end != nullptr ) {
-        ASR::expr_t* left = PassUtils::create_compare_helper(al, loc, Case_Stmt->m_start, a_test, ASR::cmpopType::LtE);
-        ASR::expr_t* right = PassUtils::create_compare_helper(al, loc, a_test, Case_Stmt->m_end, ASR::cmpopType::LtE);
-        test_expr = PassUtils::create_binop_helper(al, loc, left, right, ASR::binopType::Mul);
-    }
-    return test_expr;
-}
-
-void case_to_if(Allocator& al, const ASR::Select_t& x, ASR::expr_t* a_test, Vec<ASR::stmt_t*>& body) {
-    int idx = (int) x.n_body - 1;
-    ASR::case_stmt_t* case_body = x.m_body[idx];
-    ASR::stmt_t* last_if_else = nullptr;
-    switch(case_body->type) {
-        case ASR::case_stmtType::CaseStmt: {
-            ASR::CaseStmt_t* Case_Stmt = (ASR::CaseStmt_t*)(&(case_body->base));
-            ASR::expr_t* test_expr = gen_test_expr_CaseStmt(al, x.base.base.loc, Case_Stmt, a_test);
-            last_if_else = ASRUtils::STMT(ASR::make_If_t(al, x.base.base.loc, test_expr, Case_Stmt->m_body, Case_Stmt->n_body, x.m_default, x.n_default));
-            break;
-        }
-        case ASR::case_stmtType::CaseStmt_Range: {
-            ASR::CaseStmt_Range_t* Case_Stmt = (ASR::CaseStmt_Range_t*)(&(case_body->base));
-            ASR::expr_t* test_expr = gen_test_expr_CaseStmt_Range(al, x.base.base.loc, Case_Stmt, a_test);
-            last_if_else = ASRUtils::STMT(ASR::make_If_t(al, x.base.base.loc, test_expr, Case_Stmt->m_body, Case_Stmt->n_body, x.m_default, x.n_default));
-            break;
-        }
-    }
-
-    for( idx = (int) x.n_body - 2; idx >= 0; idx-- ) {
-        ASR::case_stmt_t* case_body = x.m_body[idx];
-        ASR::expr_t* test_expr = nullptr;
-        ASR::stmt_t** m_body = nullptr;
-        size_t n_body = 0;
-        switch(case_body->type) {
-            case ASR::case_stmtType::CaseStmt: {
-                ASR::CaseStmt_t* Case_Stmt = (ASR::CaseStmt_t*)(&(case_body->base));
-                test_expr = gen_test_expr_CaseStmt(al, x.base.base.loc, Case_Stmt, a_test);
-                m_body = Case_Stmt->m_body;
-                n_body = Case_Stmt->n_body;
-                break;
-            }
-            case ASR::case_stmtType::CaseStmt_Range: {
-                ASR::CaseStmt_Range_t* Case_Stmt = (ASR::CaseStmt_Range_t*)(&(case_body->base));
-                test_expr = gen_test_expr_CaseStmt_Range(al, x.base.base.loc, Case_Stmt, a_test);
-                m_body = Case_Stmt->m_body;
-                n_body = Case_Stmt->n_body;
-                break;
-            }
-        }
-        Vec<ASR::stmt_t*> if_body_vec;
-        if_body_vec.reserve(al, 1);
-        if_body_vec.push_back(al, last_if_else);
-        last_if_else = ASRUtils::STMT(ASR::make_If_t(al, x.base.base.loc, test_expr, m_body, n_body, if_body_vec.p, if_body_vec.size()));
-    }
-    body.reserve(al, 1);
-    body.push_back(al, last_if_else);
-}
-
-Vec<ASR::stmt_t*> replace_selectcase(Allocator &al, const ASR::Select_t &select_case) {
-    ASR::expr_t *a = select_case.m_test;
-    Vec<ASR::stmt_t*> body;
-    case_to_if(al, select_case, a, body);
-    /*
-    std::cout << "Input:" << std::endl;
-    std::cout << pickle((ASR::asr_t&)loop);
-    std::cout << "Output:" << std::endl;
-    std::cout << pickle((ASR::asr_t&)*stmt1);
-    std::cout << pickle((ASR::asr_t&)*stmt2);
-    std::cout << "--------------" << std::endl;
-    */
-    return body;
-}
-
-class SelectCaseVisitor : public PassUtils::PassVisitor<SelectCaseVisitor>
-{
-
-public:
-    SelectCaseVisitor(Allocator &al) : PassVisitor(al, nullptr) {
-    }
-
-    void visit_WhileLoop(const ASR::WhileLoop_t &x) {
-        // FIXME: this is a hack, we need to pass in a non-const `x`,
-        // which requires to generate a TransformVisitor.
-        ASR::WhileLoop_t &xx = const_cast<ASR::WhileLoop_t&>(x);
-        transform_stmts(xx.m_body, xx.n_body);
-    }
-
-    void visit_Select(const ASR::Select_t &x) {
-        pass_result = replace_selectcase(al, x);
-    }
-};
-
-void pass_replace_select_case(Allocator &al, ASR::TranslationUnit_t &unit,
-                              const LCompilers::PassOptions& /*pass_options*/) {
-    SelectCaseVisitor v(al);
-    // Each call transforms only one layer of nested loops, so we call it twice
-    // to transform doubly nested loops:
-    v.visit_TranslationUnit(unit);
-    v.visit_TranslationUnit(unit);
-}
-
-
-} // namespace LCompilers
diff --git a/src/libasr/pass/select_case.h b/src/libasr/pass/select_case.h
deleted file mode 100644
index c560af5ff9..0000000000
--- a/src/libasr/pass/select_case.h
+++ /dev/null
@@ -1,14 +0,0 @@
-#ifndef LFORTRAN_PASS_SELECT_CASE_H
-#define LFORTRAN_PASS_SELECT_CASE_H
-
-#include <libasr/asr.h>
-#include <libasr/utils.h>
-
-namespace LCompilers {
-
-    void pass_replace_select_case(Allocator &al, ASR::TranslationUnit_t &unit,
-                                  const LCompilers::PassOptions& pass_options);
-
-} // namespace LCompilers
-
-#endif // LFORTRAN_PASS_SELECT_CASE_H
diff --git a/src/libasr/pass/sign_from_value.cpp b/src/libasr/pass/sign_from_value.cpp
deleted file mode 100644
index 141ce60c0c..0000000000
--- a/src/libasr/pass/sign_from_value.cpp
+++ /dev/null
@@ -1,162 +0,0 @@
-#include <libasr/asr.h>
-#include <libasr/containers.h>
-#include <libasr/exception.h>
-#include <libasr/asr_utils.h>
-#include <libasr/asr_verify.h>
-#include <libasr/pass/sign_from_value.h>
-#include <libasr/pass/pass_utils.h>
-
-#include <vector>
-#include <string>
-
-
-namespace LCompilers {
-
-using ASR::down_cast;
-using ASR::is_a;
-
-/*
-
-This ASR pass converts assigning of sign from a value to
-different value with a call to internal optimization routine.
-This allows backend specific code generation for better performance.
-
-Converts:
-
-    real :: a, b, c
-    c = a*sign(1.0, b)
-
-to:
-
-    c = sign_from_value(a, b)
-
-*/
-class SignFromValueVisitor : public PassUtils::SkipOptimizationFunctionVisitor<SignFromValueVisitor>
-{
-private:
-    ASR::TranslationUnit_t &unit;
-
-    LCompilers::PassOptions pass_options;
-
-    ASR::expr_t* sign_from_value_var;
-
-    // To make sure that SignFromValue is applied only for
-    // the nodes implemented in this class
-    bool from_sign_from_value;
-
-public:
-    SignFromValueVisitor(Allocator &al_, ASR::TranslationUnit_t &unit_,
-                         const LCompilers::PassOptions& pass_options_) : SkipOptimizationFunctionVisitor(al_),
-    unit(unit_), pass_options(pass_options_), sign_from_value_var(nullptr), from_sign_from_value(false)
-    {
-        pass_result.reserve(al, 1);
-    }
-
-    bool is_value_one(ASR::expr_t* expr) {
-        double value;
-        if( ASRUtils::is_value_constant(expr, value) ) {
-            return value == 1.0;
-        }
-        return false;
-    }
-
-    ASR::expr_t* is_extract_sign(ASR::expr_t* expr) {
-        if( !ASR::is_a<ASR::FunctionCall_t>(*expr) ) {
-            return nullptr;
-        }
-        ASR::FunctionCall_t* func_call = ASR::down_cast<ASR::FunctionCall_t>(expr);
-        ASR::symbol_t* func_sym = ASRUtils::symbol_get_past_external(func_call->m_name);
-        if( !ASR::is_a<ASR::Function_t>(*func_sym) ) {
-            return nullptr;
-        }
-        ASR::Function_t* func = ASR::down_cast<ASR::Function_t>(func_sym);
-        if( ASRUtils::is_intrinsic_procedure(func) &&
-            std::string(func->m_name).find("sign") == std::string::npos ) {
-            return nullptr;
-        }
-        ASR::expr_t *arg0 = func_call->m_args[0].m_value, *arg1 = func_call->m_args[1].m_value;
-        if( !is_value_one(arg0) ) {
-            return nullptr;
-        }
-        return arg1;
-    }
-
-    void visit_IntegerBinOp(const ASR::IntegerBinOp_t& x) {
-        handle_BinOp(x);
-    }
-
-    void visit_RealBinOp(const ASR::RealBinOp_t& x) {
-        handle_BinOp(x);
-    }
-
-    void visit_ComplexBinOp(const ASR::ComplexBinOp_t& x) {
-        handle_BinOp(x);
-    }
-
-    template <typename T>
-    void handle_BinOp(const T& x_const) {
-        if( !from_sign_from_value ) {
-            return ;
-        }
-
-        from_sign_from_value = true;
-        T& x = const_cast<T&>(x_const);
-
-        sign_from_value_var = nullptr;
-        visit_expr(*x.m_left);
-        if( sign_from_value_var ) {
-            x.m_left = sign_from_value_var;
-        }
-
-        sign_from_value_var = nullptr;
-        visit_expr(*x.m_right);
-        if( sign_from_value_var ) {
-            x.m_right = sign_from_value_var;
-        }
-        sign_from_value_var = nullptr;
-
-        if( x.m_op != ASR::binopType::Mul ) {
-            return ;
-        }
-
-        ASR::expr_t *first_arg = nullptr, *second_arg = nullptr;
-
-        first_arg = is_extract_sign(x.m_left);
-        second_arg = is_extract_sign(x.m_right);
-
-        if( second_arg ) {
-            first_arg = x.m_left;
-        } else if( first_arg ) {
-            second_arg = x.m_right;
-        } else {
-            return ;
-        }
-
-        sign_from_value_var = PassUtils::get_sign_from_value(first_arg, second_arg,
-                                     al, unit, pass_options, current_scope, x.base.base.loc,
-                                     [&](const std::string &msg, const Location &) { throw LCompilersException(msg); });
-        from_sign_from_value = false;
-    }
-
-    void visit_Assignment(const ASR::Assignment_t& x) {
-        from_sign_from_value = true;
-        ASR::Assignment_t& xx = const_cast<ASR::Assignment_t&>(x);
-        sign_from_value_var = nullptr;
-        visit_expr(*x.m_value);
-        if( sign_from_value_var ) {
-            xx.m_value = sign_from_value_var;
-        }
-        sign_from_value_var = nullptr;
-        from_sign_from_value = false;
-    }
-
-};
-
-void pass_replace_sign_from_value(Allocator &al, ASR::TranslationUnit_t &unit,
-                                  const LCompilers::PassOptions& pass_options) {
-    SignFromValueVisitor v(al, unit, pass_options);
-    v.visit_TranslationUnit(unit);
-}
-
-
-} // namespace LCompilers
diff --git a/src/libasr/pass/sign_from_value.h b/src/libasr/pass/sign_from_value.h
deleted file mode 100644
index 28ead18159..0000000000
--- a/src/libasr/pass/sign_from_value.h
+++ /dev/null
@@ -1,14 +0,0 @@
-#ifndef LIBASR_PASS_SIGN_FROM_VALUE_H
-#define LIBASR_PASS_SIGN_FROM_VALUE_H
-
-#include <libasr/asr.h>
-#include <libasr/utils.h>
-
-namespace LCompilers {
-
-    void pass_replace_sign_from_value(Allocator &al, ASR::TranslationUnit_t &unit,
-                                      const LCompilers::PassOptions& pass_options);
-
-} // namespace LCompilers
-
-#endif // LIBASR_PASS_SIGN_FROM_VALUE_H
diff --git a/src/libasr/pass/stmt_walk_visitor.h b/src/libasr/pass/stmt_walk_visitor.h
deleted file mode 100644
index efa131ee2f..0000000000
--- a/src/libasr/pass/stmt_walk_visitor.h
+++ /dev/null
@@ -1,31 +0,0 @@
-#include <libasr/pass/pass_utils.h>
-
-namespace LCompilers {
-
-namespace ASR {
-    template <class Struct>
-    class StatementWalkVisitor : public PassUtils::PassVisitor<Struct>
-    {
-
-    public:
-
-        StatementWalkVisitor(Allocator &al_) : PassUtils::PassVisitor<Struct>(al_, nullptr) {
-        }
-
-        void visit_WhileLoop(const ASR::WhileLoop_t &x) {
-            // FIXME: this is a hack, we need to pass in a non-const `x`,
-            // which requires to generate a TransformVisitor.
-            ASR::WhileLoop_t &xx = const_cast<ASR::WhileLoop_t&>(x);
-            PassUtils::PassVisitor<Struct>::transform_stmts(xx.m_body, xx.n_body);
-        }
-
-        void visit_DoLoop(const ASR::DoLoop_t &x) {
-            // FIXME: this is a hack, we need to pass in a non-const `x`,
-            // which requires to generate a TransformVisitor.
-            ASR::DoLoop_t &xx = const_cast<ASR::DoLoop_t&>(x);
-            PassUtils::PassVisitor<Struct>::transform_stmts(xx.m_body, xx.n_body);
-        }
-    };
-} // namespace ASR
-
-} // namespace LCompilers
diff --git a/src/libasr/pass/subroutine_from_function.cpp b/src/libasr/pass/subroutine_from_function.cpp
deleted file mode 100644
index d6ffd935a4..0000000000
--- a/src/libasr/pass/subroutine_from_function.cpp
+++ /dev/null
@@ -1,218 +0,0 @@
-#include <libasr/asr.h>
-#include <libasr/containers.h>
-#include <libasr/exception.h>
-#include <libasr/asr_utils.h>
-#include <libasr/asr_verify.h>
-#include <libasr/pass/subroutine_from_function.h>
-#include <libasr/pass/pass_utils.h>
-
-#include <vector>
-#include <string>
-
-
-namespace LCompilers {
-
-using ASR::down_cast;
-using ASR::is_a;
-
-class CreateFunctionFromSubroutine: public PassUtils::PassVisitor<CreateFunctionFromSubroutine> {
-
-    public:
-
-        CreateFunctionFromSubroutine(Allocator &al_) :
-        PassVisitor(al_, nullptr)
-        {
-            pass_result.reserve(al, 1);
-        }
-
-        ASR::symbol_t* create_subroutine_from_function(ASR::Function_t* s) {
-            for( auto& s_item: s->m_symtab->get_scope() ) {
-                ASR::symbol_t* curr_sym = s_item.second;
-                if( curr_sym->type == ASR::symbolType::Variable ) {
-                    ASR::Variable_t* var = ASR::down_cast<ASR::Variable_t>(curr_sym);
-                    if( var->m_intent == ASR::intentType::Unspecified ) {
-                        var->m_intent = ASR::intentType::In;
-                    } else if( var->m_intent == ASR::intentType::ReturnVar ) {
-                        var->m_intent = ASR::intentType::Out;
-                    }
-                }
-            }
-            Vec<ASR::expr_t*> a_args;
-            a_args.reserve(al, s->n_args + 1);
-            for( size_t i = 0; i < s->n_args; i++ ) {
-                a_args.push_back(al, s->m_args[i]);
-            }
-            LCOMPILERS_ASSERT(s->m_return_var)
-            a_args.push_back(al, s->m_return_var);
-            ASR::FunctionType_t* s_func_type = ASR::down_cast<ASR::FunctionType_t>(s->m_function_signature);
-            ASR::asr_t* s_sub_asr = ASRUtils::make_Function_t_util(al, s->base.base.loc,
-                s->m_symtab, s->m_name, s->m_dependencies, s->n_dependencies,
-                a_args.p, a_args.size(), s->m_body, s->n_body,
-                nullptr, s_func_type->m_abi, s->m_access, s_func_type->m_deftype,
-                nullptr, false, false, false, s_func_type->m_inline, s_func_type->m_static,
-                s_func_type->m_type_params, s_func_type->n_type_params,
-                s_func_type->m_restrictions, s_func_type->n_restrictions,
-                s_func_type->m_is_restriction, s->m_deterministic, s->m_side_effect_free);
-            ASR::symbol_t* s_sub = ASR::down_cast<ASR::symbol_t>(s_sub_asr);
-            return s_sub;
-        }
-
-        void visit_TranslationUnit(const ASR::TranslationUnit_t &x) {
-            std::vector<std::pair<std::string, ASR::symbol_t*>> replace_vec;
-            // Transform functions returning arrays to subroutines
-            for (auto &item : x.m_global_scope->get_scope()) {
-                if (is_a<ASR::Function_t>(*item.second)) {
-                    ASR::Function_t *s = down_cast<ASR::Function_t>(item.second);
-                    if (s->m_return_var) {
-                        /*
-                        * A function which returns a aggregate type like array, struct will be converted
-                        * to a subroutine with the destination array as the last
-                        * argument. This helps in avoiding deep copies and the
-                        * destination memory directly gets filled inside the subroutine.
-                        */
-                        if( PassUtils::is_aggregate_type(s->m_return_var) ) {
-                            ASR::symbol_t* s_sub = create_subroutine_from_function(s);
-                            replace_vec.push_back(std::make_pair(item.first, s_sub));
-                        }
-                    }
-                }
-            }
-
-            // FIXME: this is a hack, we need to pass in a non-const `x`,
-            // which requires to generate a TransformVisitor.
-            ASR::TranslationUnit_t &xx = const_cast<ASR::TranslationUnit_t&>(x);
-            // Updating the symbol table so that now the name
-            // of the function (which returned array) now points
-            // to the newly created subroutine.
-            for( auto& item: replace_vec ) {
-                xx.m_global_scope->add_symbol(item.first, item.second);
-            }
-
-            // Now visit everything else
-            for (auto &item : x.m_global_scope->get_scope()) {
-                this->visit_symbol(*item.second);
-            }
-        }
-
-        void visit_Program(const ASR::Program_t &x) {
-            std::vector<std::pair<std::string, ASR::symbol_t*> > replace_vec;
-            // FIXME: this is a hack, we need to pass in a non-const `x`,
-            // which requires to generate a TransformVisitor.
-            ASR::Program_t &xx = const_cast<ASR::Program_t&>(x);
-            current_scope = xx.m_symtab;
-
-            for (auto &item : x.m_symtab->get_scope()) {
-                if (is_a<ASR::Function_t>(*item.second)) {
-                    ASR::Function_t *s = ASR::down_cast<ASR::Function_t>(item.second);
-                    if (s->m_return_var) {
-                        /*
-                        * A function which returns an array will be converted
-                        * to a subroutine with the destination array as the last
-                        * argument. This helps in avoiding deep copies and the
-                        * destination memory directly gets filled inside the subroutine.
-                        */
-                        if( PassUtils::is_aggregate_type(s->m_return_var) ) {
-                            ASR::symbol_t* s_sub = create_subroutine_from_function(s);
-                            replace_vec.push_back(std::make_pair(item.first, s_sub));
-                        }
-                    }
-                }
-            }
-
-            // Updating the symbol table so that now the name
-            // of the function (which returned array) now points
-            // to the newly created subroutine.
-            for( auto& item: replace_vec ) {
-                current_scope->add_symbol(item.first, item.second);
-            }
-
-            for (auto &item : x.m_symtab->get_scope()) {
-                if (is_a<ASR::AssociateBlock_t>(*item.second)) {
-                    ASR::AssociateBlock_t *s = ASR::down_cast<ASR::AssociateBlock_t>(item.second);
-                    visit_AssociateBlock(*s);
-                }
-                if (is_a<ASR::Function_t>(*item.second)) {
-                    ASR::Function_t *s = ASR::down_cast<ASR::Function_t>(item.second);
-                    visit_Function(*s);
-                }
-            }
-
-            current_scope = xx.m_symtab;
-            transform_stmts(xx.m_body, xx.n_body);
-
-        }
-
-};
-
-class ReplaceFunctionCallWithSubroutineCall: public PassUtils::PassVisitor<ReplaceFunctionCallWithSubroutineCall> {
-
-    private:
-
-        ASR::expr_t *result_var;
-
-    public:
-
-        ReplaceFunctionCallWithSubroutineCall(Allocator& al_):
-        PassVisitor(al_, nullptr), result_var(nullptr)
-        {
-            pass_result.reserve(al, 1);
-        }
-
-        void visit_Assignment(const ASR::Assignment_t& x) {
-            if( PassUtils::is_aggregate_type(x.m_target) ) {
-                result_var = x.m_target;
-                this->visit_expr(*(x.m_value));
-            }
-            result_var = nullptr;
-        }
-
-        void visit_FunctionCall(const ASR::FunctionCall_t& x) {
-            std::string x_name;
-            if( x.m_name->type == ASR::symbolType::ExternalSymbol ) {
-                x_name = down_cast<ASR::ExternalSymbol_t>(x.m_name)->m_name;
-            } else if( x.m_name->type == ASR::symbolType::Function ) {
-                x_name = down_cast<ASR::Function_t>(x.m_name)->m_name;
-            }
-            // The following checks if the name of a function actually
-            // points to a subroutine. If true this would mean that the
-            // original function returned an array and is now a subroutine.
-            // So the current function call will be converted to a subroutine
-            // call. In short, this check acts as a signal whether to convert
-            // a function call to a subroutine call.
-            if (current_scope == nullptr) {
-                return ;
-            }
-
-            ASR::symbol_t *sub = current_scope->resolve_symbol(x_name);
-            if (sub && ASR::is_a<ASR::Function_t>(*sub)
-                && ASR::down_cast<ASR::Function_t>(sub)->m_return_var == nullptr) {
-                LCOMPILERS_ASSERT(result_var != nullptr);
-                Vec<ASR::call_arg_t> s_args;
-                s_args.reserve(al, x.n_args + 1);
-                for( size_t i = 0; i < x.n_args; i++ ) {
-                    s_args.push_back(al, x.m_args[i]);
-                }
-                ASR::call_arg_t result_arg;
-                result_arg.loc = result_var->base.loc;
-                result_arg.m_value = result_var;
-                s_args.push_back(al, result_arg);
-                ASR::stmt_t* subrout_call = ASRUtils::STMT(ASR::make_SubroutineCall_t(al, x.base.base.loc,
-                                                    sub, nullptr,
-                                                    s_args.p, s_args.size(), nullptr));
-                pass_result.push_back(al, subrout_call);
-            }
-            result_var = nullptr;
-        }
-
-};
-
-void pass_create_subroutine_from_function(Allocator &al, ASR::TranslationUnit_t &unit,
-                                          const LCompilers::PassOptions& /*pass_options*/) {
-    CreateFunctionFromSubroutine v(al);
-    v.visit_TranslationUnit(unit);
-    ReplaceFunctionCallWithSubroutineCall u(al);
-    u.visit_TranslationUnit(unit);
-}
-
-
-} // namespace LCompilers
diff --git a/src/libasr/pass/subroutine_from_function.h b/src/libasr/pass/subroutine_from_function.h
deleted file mode 100644
index ee3789462c..0000000000
--- a/src/libasr/pass/subroutine_from_function.h
+++ /dev/null
@@ -1,14 +0,0 @@
-#ifndef LIBASR_PASS_SUBROUTINE_FROM_FUNCTION_H
-#define LIBASR_PASS_SUBROUTINE_FROM_FUNCTION_H
-
-#include <libasr/asr.h>
-#include <libasr/utils.h>
-
-namespace LCompilers {
-
-    void pass_create_subroutine_from_function(Allocator &al, ASR::TranslationUnit_t &unit,
-                                              const LCompilers::PassOptions& pass_options);
-
-} // namespace LCompilers
-
-#endif // LIBASR_PASS_SUBROUTINE_FROM_FUNCTION_H
diff --git a/src/libasr/pass/unused_functions.cpp b/src/libasr/pass/unused_functions.cpp
deleted file mode 100644
index d56e9b4348..0000000000
--- a/src/libasr/pass/unused_functions.cpp
+++ /dev/null
@@ -1,270 +0,0 @@
-#include <libasr/asr.h>
-#include <libasr/containers.h>
-#include <libasr/exception.h>
-#include <libasr/asr_utils.h>
-#include <libasr/asr_verify.h>
-#include <libasr/pass/unused_functions.h>
-
-#include <cstring>
-
-
-namespace LCompilers {
-
-// Platform dependent fast unique hash:
-uint64_t static get_hash(ASR::asr_t *node)
-{
-    return (uint64_t)node;
-}
-
-class CollectUnusedFunctionsVisitor :
-    public ASR::BaseWalkVisitor<CollectUnusedFunctionsVisitor>
-{
-public:
-    std::map<uint64_t, std::string> fn_declarations;
-    std::map<uint64_t, std::string> fn_used;
-
-    // TODO: Do subroutines just like Functions:
-
-    void visit_Function(const ASR::Function_t &x) {
-        if (x.m_return_var) {
-            uint64_t h = get_hash((ASR::asr_t*)&x);
-            if (ASRUtils::get_FunctionType(x)->m_abi != ASR::abiType::BindC) {
-                fn_declarations[h] = x.m_name;
-            }
-        }
-        for (auto &a : x.m_symtab->get_scope()) {
-            this->visit_symbol(*a.second);
-        }
-        for (size_t i=0; i<x.n_body; i++) {
-            visit_stmt(*x.m_body[i]);
-        }
-    }
-
-    void visit_GenericProcedure(const ASR::GenericProcedure_t &x) {
-        uint64_t h = get_hash((ASR::asr_t*)&x);
-        fn_declarations[h] = x.m_name;
-    }
-
-    void visit_ExternalSymbol(const ASR::ExternalSymbol_t &x) {
-        if (ASR::is_a<ASR::Function_t>(*x.m_external) &&
-                ASR::down_cast<ASR::Function_t>(x.m_external)->m_return_var) {
-            uint64_t h = get_hash((ASR::asr_t*)&x);
-            fn_declarations[h] = x.m_name;
-            h = get_hash((ASR::asr_t*)x.m_external);
-            fn_used[h] = x.m_name;
-        }
-        if (ASR::is_a<ASR::GenericProcedure_t>(*x.m_external)) {
-            uint64_t h = get_hash((ASR::asr_t*)&x);
-            fn_declarations[h] = x.m_name;
-            h = get_hash((ASR::asr_t*)x.m_external);
-            fn_used[h] = x.m_name;
-        }
-    }
-
-
-    void visit_FunctionCall(const ASR::FunctionCall_t &x) {
-        {
-            const ASR::symbol_t *s = ASRUtils::symbol_get_past_external(x.m_name);
-            if (ASR::is_a<ASR::Function_t>(*s)) {
-                ASR::Function_t *f = ASR::down_cast<ASR::Function_t>(s);
-                std::string name = f->m_name;
-                uint64_t h = get_hash((ASR::asr_t*)f);
-                fn_used[h] = name;
-                h = get_hash((ASR::asr_t*)x.m_name);
-                fn_used[h] = name;
-            }
-            if (ASR::is_a<ASR::GenericProcedure_t>(*s)) {
-                ASR::GenericProcedure_t *g = ASR::down_cast<ASR::GenericProcedure_t>(s);
-                std::string name = g->m_name;
-                uint64_t h = get_hash((ASR::asr_t*)g);
-                fn_used[h] = name;
-                h = get_hash((ASR::asr_t*)x.m_name);
-                fn_used[h] = name;
-            }
-        }
-        if (x.m_original_name) {
-            const ASR::symbol_t *s = ASRUtils::symbol_get_past_external(x.m_original_name);
-            if (ASR::is_a<ASR::Function_t>(*s)) {
-                ASR::Function_t *f = ASR::down_cast<ASR::Function_t>(s);
-                std::string name = f->m_name;
-                uint64_t h = get_hash((ASR::asr_t*)f);
-                fn_used[h] = name;
-                h = get_hash((ASR::asr_t*)x.m_original_name);
-                fn_used[h] = name;
-            }
-            if (ASR::is_a<ASR::GenericProcedure_t>(*s)) {
-                ASR::GenericProcedure_t *g = ASR::down_cast<ASR::GenericProcedure_t>(s);
-                std::string name = g->m_name;
-                uint64_t h = get_hash((ASR::asr_t*)g);
-                fn_used[h] = name;
-                h = get_hash((ASR::asr_t*)x.m_original_name);
-                fn_used[h] = name;
-            }
-        }
-        for (size_t i=0; i<x.n_args; i++) {
-            if( x.m_args[i].m_value ) {
-                visit_expr(*(x.m_args[i].m_value));
-            }
-        }
-        visit_ttype(*x.m_type);
-        if (x.m_value)
-            visit_expr(*x.m_value);
-        if (x.m_dt)
-            visit_expr(*x.m_dt);
-    }
-
-    void visit_Var(const ASR::Var_t &x) {
-        const ASR::symbol_t *s = ASRUtils::symbol_get_past_external(x.m_v);
-        if (ASR::is_a<ASR::Function_t>(*s)) {
-            ASR::Function_t *f = ASR::down_cast<ASR::Function_t>(s);
-            std::string name = f->m_name;
-            uint64_t h = get_hash((ASR::asr_t*)f);
-            fn_used[h] = name;
-        }
-        if (ASR::is_a<ASR::GenericProcedure_t>(*s)) {
-            ASR::GenericProcedure_t *g = ASR::down_cast<ASR::GenericProcedure_t>(s);
-            std::string name = g->m_name;
-            uint64_t h = get_hash((ASR::asr_t*)g);
-            fn_used[h] = name;
-        }
-    }
-
-    void visit_ClassProcedure(const ASR::ClassProcedure_t &x) {
-        const ASR::symbol_t *s = ASRUtils::symbol_get_past_external(x.m_proc);
-        if (ASR::is_a<ASR::Function_t>(*s)) {
-            ASR::Function_t *f = ASR::down_cast<ASR::Function_t>(s);
-            std::string name = f->m_name;
-            uint64_t h = get_hash((ASR::asr_t*)f);
-            fn_used[h] = name;
-            h = get_hash((ASR::asr_t*)x.m_proc);
-            fn_used[h] = name;
-        }
-        if (ASR::is_a<ASR::GenericProcedure_t>(*s)) {
-            ASR::GenericProcedure_t *g = ASR::down_cast<ASR::GenericProcedure_t>(s);
-            std::string name = g->m_name;
-            uint64_t h = get_hash((ASR::asr_t*)g);
-            fn_used[h] = name;
-            h = get_hash((ASR::asr_t*)x.m_proc);
-            fn_used[h] = name;
-        }
-    }
-
-};
-
-// Returns a list of unused functions by their hash.
-// The corresponding std::string is not needed, but for now we included
-// it for easier debugging.
-std::map<uint64_t, std::string> collect_unused_functions(ASR::TranslationUnit_t &unit) {
-    CollectUnusedFunctionsVisitor v;
-    v.visit_TranslationUnit(unit);
-    std::map<uint64_t, std::string> fn_unused;
-    for (auto &a : v.fn_declarations) {
-        uint64_t h = a.first;
-        if (v.fn_used.find(h) == v.fn_used.end()) {
-            fn_unused[h] = a.second;
-        }
-    }
-    return fn_unused;
-}
-
-class ProgramVisitor :
-    public ASR::BaseWalkVisitor<ProgramVisitor> {
-public:
-    bool program_present=false;
-
-    void visit_Program(const ASR::Program_t &/*x*/) {
-        program_present = true;
-    }
-};
-
-// Is the main program present in ASR? (true/false)
-bool is_program_present(ASR::TranslationUnit_t &unit) {
-    ProgramVisitor v;
-    v.visit_TranslationUnit(unit);
-    return v.program_present;
-}
-
-class UnusedFunctionsVisitor : public ASR::BaseWalkVisitor<UnusedFunctionsVisitor>
-{
-private:
-    Allocator &al;
-public:
-    std::map<uint64_t, std::string> fn_unused;
-
-    UnusedFunctionsVisitor(Allocator &al) : al{al} { }
-
-    void remove_unused_fn(SymbolTable* symtab) {
-        std::vector<std::string> to_be_erased;
-        for (auto it = symtab->get_scope().begin(); it != symtab->get_scope().end(); ++it) {
-            uint64_t h = get_hash((ASR::asr_t*)it->second);
-            if (fn_unused.find(h) != fn_unused.end()) {
-                to_be_erased.push_back(it->first);
-            } else {
-                this->visit_symbol(*it->second);
-            }
-        }
-
-        for (std::string& sym_name: to_be_erased) {
-            symtab->erase_symbol(sym_name);
-        }
-    }
-
-    void visit_TranslationUnit(const ASR::TranslationUnit_t &x) {
-        remove_unused_fn(x.m_global_scope);
-    }
-    void visit_Program(const ASR::Program_t &x) {
-        remove_unused_fn(x.m_symtab);
-    }
-    void visit_Module(const ASR::Module_t &x) {
-        remove_unused_fn(x.m_symtab);
-    }
-    void visit_Function(const ASR::Function_t &x) {
-        remove_unused_fn(x.m_symtab);
-    }
-    void visit_GenericProcedure(const ASR::GenericProcedure_t &x) {
-        Vec<ASR::symbol_t*> v;
-        v.reserve(al, x.n_procs);
-        for (size_t i=0; i<x.n_procs; i++) {
-            const ASR::symbol_t *s = ASRUtils::symbol_get_past_external(x.m_procs[i]);
-            uint64_t h = get_hash((ASR::asr_t*)s);
-            if (fn_unused.find(h) != fn_unused.end()) {
-                //std::cout << "GP: erase proc #" << i << " / " << x.n_procs << std::endl;
-            } else {
-                v.push_back(al, x.m_procs[i]);
-            }
-        }
-        if (v.size() < x.n_procs) {
-            // FIXME: this is a hack, we need to pass in a non-const `x`,
-            // which requires to generate a TransformVisitor.
-            ASR::GenericProcedure_t &xx = const_cast<ASR::GenericProcedure_t&>(x);
-            xx.m_procs = v.p;
-            xx.n_procs = v.n;
-        }
-    }
-
-};
-
-void pass_unused_functions(Allocator &al, ASR::TranslationUnit_t &unit,
-                           const LCompilers::PassOptions& pass_options) {
-    bool always_run = pass_options.always_run;
-    if (is_program_present(unit) || always_run) {
-        for (int i=0; i < 4; i++)
-        {
-            std::map<uint64_t, std::string> fn_unused;
-            fn_unused = collect_unused_functions(unit);
-    /*
-            std::cout << "Unused functions:" << std::endl;
-            for (auto &a : fn_unused) {
-                std::cout << a.second << " ";
-            }
-            std::cout << std::endl;
-    */
-            UnusedFunctionsVisitor v(al);
-            v.fn_unused = fn_unused;
-            v.visit_TranslationUnit(unit);
-        }
-    }
-}
-
-
-} // namespace LCompilers
diff --git a/src/libasr/pass/unused_functions.h b/src/libasr/pass/unused_functions.h
deleted file mode 100644
index 788932539b..0000000000
--- a/src/libasr/pass/unused_functions.h
+++ /dev/null
@@ -1,14 +0,0 @@
-#ifndef LFORTRAN_PASS_UNUSED_FUNCTIONS_H
-#define LFORTRAN_PASS_UNUSED_FUNCTIONS_H
-
-#include <libasr/asr.h>
-#include <libasr/utils.h>
-
-namespace LCompilers {
-
-    void pass_unused_functions(Allocator &al, ASR::TranslationUnit_t &unit,
-                               const LCompilers::PassOptions& pass_options);
-
-} // namespace LCompilers
-
-#endif // LFORTRAN_PASS_UNUSED_FUNCTIONS_H
diff --git a/src/libasr/pass/update_array_dim_intrinsic_calls.cpp b/src/libasr/pass/update_array_dim_intrinsic_calls.cpp
deleted file mode 100644
index a5fc72a12b..0000000000
--- a/src/libasr/pass/update_array_dim_intrinsic_calls.cpp
+++ /dev/null
@@ -1,152 +0,0 @@
-#include <libasr/asr.h>
-#include <libasr/containers.h>
-#include <libasr/exception.h>
-#include <libasr/asr_utils.h>
-#include <libasr/asr_verify.h>
-#include <libasr/pass/pass_utils.h>
-#include <libasr/pass/update_array_dim_intrinsic_calls.h>
-
-#include <vector>
-#include <utility>
-
-
-namespace LCompilers {
-
-/*
-
-The following class implements replacer methods for replacing
-calls to intrinsic functions (which provide dimensional information
-of arrays like size) with the actual result. This happens only for arrays
-which are input arguments to a procedure, and the dimensional information
-in their type is not empty. See the example below,
-
-subrotuine copy(x, y, n)
-    integer, intent(in) :: n
-    integer, intent(in) :: x(n)
-    integer, intent(in) :: y(n)
-    do i = 1, size(x)
-        do j  = 1, size(y)
-            print *, x(i) + y(j)
-        end do
-    end do
-end subroutine
-
-converted to,
-
-subrotuine copy(x, y, n)
-    integer, intent(in) :: n
-    integer, intent(in) :: x(n)
-    integer, intent(in) :: y(n)
-    do i = 1, n
-        do j  = 1, n
-            print *, x(i) + y(j)
-        end do
-    end do
-end subroutine
-
-*/
-class ReplaceArrayDimIntrinsicCalls: public ASR::BaseExprReplacer<ReplaceArrayDimIntrinsicCalls> {
-
-    private:
-
-    Allocator& al;
-
-    public:
-
-    ReplaceArrayDimIntrinsicCalls(Allocator& al_) : al(al_)
-    {}
-
-    void replace_ArraySize(ASR::ArraySize_t* x) {
-        if( !ASR::is_a<ASR::Var_t>(*x->m_v) ||
-            (x->m_dim != nullptr && !ASRUtils::is_value_constant(x->m_dim)) ) {
-            return ;
-        }
-
-        ASR::Variable_t* v = ASRUtils::EXPR2VAR(x->m_v);
-        ASR::ttype_t* array_type = ASRUtils::expr_type(x->m_v);
-        ASR::dimension_t* dims = nullptr;
-        int n = ASRUtils::extract_dimensions_from_ttype(array_type, dims);
-        bool is_argument = v->m_intent == ASRUtils::intent_in || v->m_intent == ASRUtils::intent_out;
-        if( !(n > 0 && is_argument &&
-              !ASRUtils::is_dimension_empty(dims, n)) ) {
-            return ;
-        }
-        if( x->m_dim != nullptr ) {
-            int64_t dim = -1;
-            ASRUtils::extract_value(x->m_dim, dim);
-            *current_expr = dims[dim - 1].m_length;
-            return ;
-        }
-
-        ASR::expr_t* array_size = ASRUtils::EXPR(ASR::make_IntegerConstant_t(
-                                    al, x->base.base.loc, 1, x->m_type));
-        for( int i = 0; i < n; i++ ) {
-            array_size = ASRUtils::EXPR(ASR::make_IntegerBinOp_t(al, x->base.base.loc,
-                            array_size, ASR::binopType::Mul, dims[i].m_length, x->m_type,
-                            nullptr));
-        }
-        *current_expr = array_size;
-    }
-
-    void replace_ArrayBound(ASR::ArrayBound_t* x) {
-        if( !ASR::is_a<ASR::Var_t>(*x->m_v) ||
-            !ASRUtils::is_value_constant(x->m_dim) ) {
-            return ;
-        }
-
-        ASR::Variable_t* v = ASRUtils::EXPR2VAR(x->m_v);
-        ASR::ttype_t* array_type = ASRUtils::expr_type(x->m_v);
-        ASR::dimension_t* dims = nullptr;
-        int n = ASRUtils::extract_dimensions_from_ttype(array_type, dims);
-        bool is_argument = ASRUtils::is_arg_dummy(v->m_intent);
-        if( !(n > 0 && is_argument &&
-              !ASRUtils::is_dimension_empty(dims, n)) ) {
-            return ;
-        }
-        int64_t dim = -1;
-        ASRUtils::extract_value(x->m_dim, dim);
-        if( x->m_bound == ASR::arrayboundType::LBound ) {
-            *current_expr = dims[dim - 1].m_start;
-        } else {
-            ASR::expr_t* ub = ASRUtils::EXPR(ASR::make_IntegerBinOp_t(al,
-                                x->base.base.loc, dims[dim - 1].m_length,
-                                ASR::binopType::Add, dims[dim - 1].m_start,
-                                x->m_type, nullptr));
-            ASR::expr_t* const_1 = ASRUtils::EXPR(ASR::make_IntegerConstant_t(al,
-                                        x->base.base.loc, 1, x->m_type));
-            *current_expr = ASRUtils::EXPR(ASR::make_IntegerBinOp_t(al, x->base.base.loc,
-                                ub, ASR::binopType::Sub, const_1, x->m_type, nullptr));
-        }
-    }
-
-};
-
-/*
-This class implements call_replacer method which calls the
-ReplaceArrayDimIntrinsicCalls.replace_expr method on all the expressions
-present in the ASR.
-*/
-class ArrayDimIntrinsicCallsVisitor : public ASR::CallReplacerOnExpressionsVisitor<ArrayDimIntrinsicCallsVisitor>
-{
-    private:
-
-        ReplaceArrayDimIntrinsicCalls replacer;
-
-    public:
-
-        ArrayDimIntrinsicCallsVisitor(Allocator& al_) : replacer(al_) {}
-
-        void call_replacer() {
-            replacer.current_expr = current_expr;
-            replacer.replace_expr(*current_expr);
-        }
-
-};
-
-void pass_update_array_dim_intrinsic_calls(Allocator &al, ASR::TranslationUnit_t &unit,
-                                           const LCompilers::PassOptions& /*pass_options*/) {
-    ArrayDimIntrinsicCallsVisitor v(al);
-    v.visit_TranslationUnit(unit);
-}
-
-} // namespace LCompilers
diff --git a/src/libasr/pass/update_array_dim_intrinsic_calls.h b/src/libasr/pass/update_array_dim_intrinsic_calls.h
deleted file mode 100644
index 0e6df1ad80..0000000000
--- a/src/libasr/pass/update_array_dim_intrinsic_calls.h
+++ /dev/null
@@ -1,14 +0,0 @@
-#ifndef LFORTRAN_PASS_UPDATE_ARRAY_DIM_H
-#define LFORTRAN_PASS_UPDATE_ARRAY_DIM_H
-
-#include <libasr/asr.h>
-#include <libasr/utils.h>
-
-namespace LCompilers {
-
-    void pass_update_array_dim_intrinsic_calls(Allocator &al, ASR::TranslationUnit_t &unit,
-                                               const LCompilers::PassOptions& pass_options);
-
-} // namespace LCompilers
-
-#endif // LFORTRAN_PASS_UPDATE_ARRAY_DIM_H
diff --git a/src/libasr/runtime/lfortran_intrinsics.c b/src/libasr/runtime/lfortran_intrinsics.c
deleted file mode 100644
index 256c81433c..0000000000
--- a/src/libasr/runtime/lfortran_intrinsics.c
+++ /dev/null
@@ -1,1558 +0,0 @@
-#include <stdarg.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <math.h>
-#include <complex.h>
-#include <string.h>
-#include <inttypes.h>
-#include <time.h>
-#include <float.h>
-#include <limits.h>
-#include <ctype.h>
-
-#include <libasr/runtime/lfortran_intrinsics.h>
-#include <libasr/config.h>
-
-#ifdef HAVE_RUNTIME_STACKTRACE
-
-#ifdef HAVE_LFORTRAN_LINK
-// For dl_iterate_phdr() functionality
-#  include <link.h>
-struct dl_phdr_info {
-    ElfW(Addr) dlpi_addr;
-    const char *dlpi_name;
-    const ElfW(Phdr) *dlpi_phdr;
-    ElfW(Half) dlpi_phnum;
-};
-extern int dl_iterate_phdr (int (*__callback) (struct dl_phdr_info *,
-    size_t, void *), void *__data);
-#endif
-
-#ifdef HAVE_LFORTRAN_UNWIND
-// For _Unwind_Backtrace() function
-#  include <unwind.h>
-#endif
-
-#ifdef HAVE_LFORTRAN_MACHO
-#  include <mach-o/dyld.h>
-#endif
-
-// Runtime Stacktrace
-#define LCOMPILERS_MAX_STACKTRACE_LENGTH 200
-char *source_filename;
-char *binary_executable_path = "/proc/self/exe";
-
-struct Stacktrace {
-    uintptr_t pc[LCOMPILERS_MAX_STACKTRACE_LENGTH];
-    uint64_t pc_size;
-    uintptr_t current_pc;
-
-    uintptr_t local_pc[LCOMPILERS_MAX_STACKTRACE_LENGTH];
-    char *binary_filename[LCOMPILERS_MAX_STACKTRACE_LENGTH];
-    uint64_t local_pc_size;
-
-    uint64_t addresses[LCOMPILERS_MAX_STACKTRACE_LENGTH];
-    uint64_t line_numbers[LCOMPILERS_MAX_STACKTRACE_LENGTH];
-    uint64_t stack_size;
-};
-
-// Styles and Colors
-#define DIM "\033[2m"
-#define BOLD "\033[1m"
-#define S_RESET "\033[0m"
-#define MAGENTA "\033[35m"
-#define C_RESET "\033[39m"
-
-#endif // HAVE_RUNTIME_STACKTRACE
-
-LFORTRAN_API double _lfortran_sum(int n, double *v)
-{
-    int i, r;
-    r = 0;
-    for (i=0; i < n; i++) {
-        r += v[i];
-    }
-    return r;
-}
-
-LFORTRAN_API void _lfortran_random_number(int n, double *v)
-{
-    int i;
-    for (i=0; i < n; i++) {
-        v[i] = rand() / (double) RAND_MAX;
-    }
-}
-
-LFORTRAN_API double _lfortran_random()
-{
-    return (rand() / (double) RAND_MAX);
-}
-
-LFORTRAN_API int _lfortran_randrange(int lower, int upper)
-{
-    int rr = lower + (rand() % (upper - lower));
-    return rr;
-}
-
-LFORTRAN_API int _lfortran_random_int(int lower, int upper)
-{
-    int randint = lower + (rand() % (upper - lower + 1));
-    return randint;
-}
-
-LFORTRAN_API void _lfortran_printf(const char* format, ...)
-{
-    va_list args;
-    va_start(args, format);
-    vfprintf(stdout, format, args);
-    fflush(stdout);
-    va_end(args);
-}
-
-LFORTRAN_API void _lcompilers_print_error(const char* format, ...)
-{
-    va_list args;
-    va_start(args, format);
-    vfprintf(stderr, format, args);
-    fflush(stderr);
-    va_end(args);
-}
-
-LFORTRAN_API void _lfortran_complex_add_32(struct _lfortran_complex_32* a,
-        struct _lfortran_complex_32* b, struct _lfortran_complex_32 *result)
-{
-    result->re = a->re + b->re;
-    result->im = a->im + b->im;
-}
-
-LFORTRAN_API void _lfortran_complex_add_64(struct _lfortran_complex_64* a,
-        struct _lfortran_complex_64* b, struct _lfortran_complex_64 *result)
-{
-    result->re = a->re + b->re;
-    result->im = a->im + b->im;
-}
-
-LFORTRAN_API void _lfortran_complex_sub_32(struct _lfortran_complex_32* a,
-        struct _lfortran_complex_32* b, struct _lfortran_complex_32 *result)
-{
-    result->re = a->re - b->re;
-    result->im = a->im - b->im;
-}
-
-LFORTRAN_API void _lfortran_complex_sub_64(struct _lfortran_complex_64* a,
-        struct _lfortran_complex_64* b, struct _lfortran_complex_64 *result)
-{
-    result->re = a->re - b->re;
-    result->im = a->im - b->im;
-}
-
-LFORTRAN_API void _lfortran_complex_mul_32(struct _lfortran_complex_32* a,
-        struct _lfortran_complex_32* b, struct _lfortran_complex_32 *result)
-{
-    float p = a->re, q = a->im;
-    float r = b->re, s = b->im;
-    result->re = (p*r - q*s);
-    result->im = (p*s + q*r);
-}
-
-LFORTRAN_API void _lfortran_complex_mul_64(struct _lfortran_complex_64* a,
-        struct _lfortran_complex_64* b, struct _lfortran_complex_64 *result)
-{
-    double p = a->re, q = a->im;
-    double r = b->re, s = b->im;
-    result->re = (p*r - q*s);
-    result->im = (p*s + q*r);
-}
-
-LFORTRAN_API void _lfortran_complex_div_32(struct _lfortran_complex_32* a,
-        struct _lfortran_complex_32* b, struct _lfortran_complex_32 *result)
-{
-    float p = a->re, q = a->im;
-    float r = b->re, s = -(b->im);
-    float mod_b = r*r + s*s;
-    result->re = (p*r - q*s)/mod_b;
-    result->im = (p*s + q*r)/mod_b;
-}
-
-LFORTRAN_API void _lfortran_complex_div_64(struct _lfortran_complex_64* a,
-        struct _lfortran_complex_64* b, struct _lfortran_complex_64 *result)
-{
-    double p = a->re, q = a->im;
-    double r = b->re, s = -(b->im);
-    double mod_b = r*r + s*s;
-    result->re = (p*r - q*s)/mod_b;
-    result->im = (p*s + q*r)/mod_b;
-}
-
-#undef CMPLX
-#undef CMPLXF
-#undef CMPLXL
-#undef _Imaginary_I
-
-#define _Imaginary_I (I)
-#define CMPLX(x, y) ((double complex)((double)(x) + _Imaginary_I * (double)(y)))
-#define CMPLXF(x, y) ((float complex)((float)(x) + _Imaginary_I * (float)(y)))
-#define CMPLXL(x, y) ((long double complex)((long double)(x) + \
-                      _Imaginary_I * (long double)(y)))
-#define BITS_32 32
-#define BITS_64 64
-
-LFORTRAN_API void _lfortran_complex_pow_32(struct _lfortran_complex_32* a,
-        struct _lfortran_complex_32* b, struct _lfortran_complex_32 *result)
-{
-    #ifdef _MSC_VER
-        _Fcomplex ca = _FCOMPLEX_(a->re, a->im);
-        _Fcomplex cb = _FCOMPLEX_(b->re, b->im);
-        _Fcomplex cr = cpowf(ca, cb);
-    #else
-        float complex ca = CMPLXF(a->re, a->im);
-        float complex cb = CMPLXF(b->re, b->im);
-        float complex cr = cpowf(ca, cb);
-    #endif
-        result->re = crealf(cr);
-        result->im = cimagf(cr);
-
-}
-
-LFORTRAN_API void _lfortran_complex_pow_64(struct _lfortran_complex_64* a,
-        struct _lfortran_complex_64* b, struct _lfortran_complex_64 *result)
-{
-    #ifdef _MSC_VER
-        _Dcomplex ca = _DCOMPLEX_(a->re, a->im);
-        _Dcomplex cb = _DCOMPLEX_(b->re, b->im);
-        _Dcomplex cr = cpow(ca, cb);
-    #else
-        double complex ca = CMPLX(a->re, a->im);
-        double complex cb = CMPLX(b->re, b->im);
-        double complex cr = cpow(ca, cb);
-    #endif
-        result->re = creal(cr);
-        result->im = cimag(cr);
-
-}
-
-// sqrt ------------------------------------------------------------------------
-
-LFORTRAN_API float_complex_t _lfortran_csqrt(float_complex_t x)
-{
-    return csqrtf(x);
-}
-
-LFORTRAN_API double_complex_t _lfortran_zsqrt(double_complex_t x)
-{
-    return csqrt(x);
-}
-
-// aimag -----------------------------------------------------------------------
-
-LFORTRAN_API float _lfortran_caimag(float_complex_t x)
-{
-    return cimagf(x);
-}
-
-LFORTRAN_API double _lfortran_zaimag(double_complex_t x)
-{
-    return cimag(x);
-}
-
-LFORTRAN_API void _lfortran_complex_aimag_32(struct _lfortran_complex_32 *x, float *res)
-{
-    *res = x->im;
-}
-
-LFORTRAN_API void _lfortran_complex_aimag_64(struct _lfortran_complex_64 *x, double *res)
-{
-    *res = x->im;
-}
-
-// exp -------------------------------------------------------------------------
-
-LFORTRAN_API float _lfortran_sexp(float x)
-{
-    return expf(x);
-}
-
-LFORTRAN_API double _lfortran_dexp(double x)
-{
-    return exp(x);
-}
-
-LFORTRAN_API float_complex_t _lfortran_cexp(float_complex_t x)
-{
-    return cexpf(x);
-}
-
-LFORTRAN_API double_complex_t _lfortran_zexp(double_complex_t x)
-{
-    return cexp(x);
-}
-
-// log -------------------------------------------------------------------------
-
-LFORTRAN_API float _lfortran_slog(float x)
-{
-    return logf(x);
-}
-
-LFORTRAN_API double _lfortran_dlog(double x)
-{
-    return log(x);
-}
-
-LFORTRAN_API float_complex_t _lfortran_clog(float_complex_t x)
-{
-    return clogf(x);
-}
-
-LFORTRAN_API double_complex_t _lfortran_zlog(double_complex_t x)
-{
-    return clog(x);
-}
-
-// erf -------------------------------------------------------------------------
-
-LFORTRAN_API float _lfortran_serf(float x)
-{
-    return erff(x);
-}
-
-LFORTRAN_API double _lfortran_derf(double x)
-{
-    return erf(x);
-}
-
-// erfc ------------------------------------------------------------------------
-
-LFORTRAN_API float _lfortran_serfc(float x)
-{
-    return erfcf(x);
-}
-
-LFORTRAN_API double _lfortran_derfc(double x)
-{
-    return erfc(x);
-}
-
-// log10 -----------------------------------------------------------------------
-
-LFORTRAN_API float _lfortran_slog10(float x)
-{
-    return log10f(x);
-}
-
-LFORTRAN_API double _lfortran_dlog10(double x)
-{
-    return log10(x);
-}
-
-// gamma -----------------------------------------------------------------------
-
-LFORTRAN_API float _lfortran_sgamma(float x)
-{
-    return tgammaf(x);
-}
-
-LFORTRAN_API double _lfortran_dgamma(double x)
-{
-    return tgamma(x);
-}
-
-// gamma -----------------------------------------------------------------------
-
-LFORTRAN_API float _lfortran_slog_gamma(float x)
-{
-    return lgammaf(x);
-}
-
-LFORTRAN_API double _lfortran_dlog_gamma(double x)
-{
-    return lgamma(x);
-}
-
-// sin -------------------------------------------------------------------------
-
-LFORTRAN_API float _lfortran_ssin(float x)
-{
-    return sinf(x);
-}
-
-LFORTRAN_API double _lfortran_dsin(double x)
-{
-    return sin(x);
-}
-
-LFORTRAN_API float_complex_t _lfortran_csin(float_complex_t x)
-{
-    return csinf(x);
-}
-
-LFORTRAN_API double_complex_t _lfortran_zsin(double_complex_t x)
-{
-    return csin(x);
-}
-
-// cos -------------------------------------------------------------------------
-
-LFORTRAN_API float _lfortran_scos(float x)
-{
-    return cosf(x);
-}
-
-LFORTRAN_API double _lfortran_dcos(double x)
-{
-    return cos(x);
-}
-
-LFORTRAN_API float_complex_t _lfortran_ccos(float_complex_t x)
-{
-    return ccosf(x);
-}
-
-LFORTRAN_API double_complex_t _lfortran_zcos(double_complex_t x)
-{
-    return ccos(x);
-}
-
-// tan -------------------------------------------------------------------------
-
-LFORTRAN_API float _lfortran_stan(float x)
-{
-    return tanf(x);
-}
-
-LFORTRAN_API double _lfortran_dtan(double x)
-{
-    return tan(x);
-}
-
-LFORTRAN_API float_complex_t _lfortran_ctan(float_complex_t x)
-{
-    return ctanf(x);
-}
-
-LFORTRAN_API double_complex_t _lfortran_ztan(double_complex_t x)
-{
-    return ctan(x);
-}
-
-// sinh ------------------------------------------------------------------------
-
-LFORTRAN_API float _lfortran_ssinh(float x)
-{
-    return sinhf(x);
-}
-
-LFORTRAN_API double _lfortran_dsinh(double x)
-{
-    return sinh(x);
-}
-
-LFORTRAN_API float_complex_t _lfortran_csinh(float_complex_t x)
-{
-    return csinhf(x);
-}
-
-LFORTRAN_API double_complex_t _lfortran_zsinh(double_complex_t x)
-{
-    return csinh(x);
-}
-
-// cosh ------------------------------------------------------------------------
-
-
-LFORTRAN_API float _lfortran_scosh(float x)
-{
-    return coshf(x);
-}
-
-LFORTRAN_API double _lfortran_dcosh(double x)
-{
-    return cosh(x);
-}
-
-LFORTRAN_API float_complex_t _lfortran_ccosh(float_complex_t x)
-{
-    return ccoshf(x);
-}
-
-LFORTRAN_API double_complex_t _lfortran_zcosh(double_complex_t x)
-{
-    return ccosh(x);
-}
-
-// tanh ------------------------------------------------------------------------
-
-LFORTRAN_API float _lfortran_stanh(float x)
-{
-    return tanhf(x);
-}
-
-LFORTRAN_API double _lfortran_dtanh(double x)
-{
-    return tanh(x);
-}
-
-LFORTRAN_API float_complex_t _lfortran_ctanh(float_complex_t x)
-{
-    return ctanhf(x);
-}
-
-LFORTRAN_API double_complex_t _lfortran_ztanh(double_complex_t x)
-{
-    return ctanh(x);
-}
-
-// asin ------------------------------------------------------------------------
-
-LFORTRAN_API float _lfortran_sasin(float x)
-{
-    return asinf(x);
-}
-
-LFORTRAN_API double _lfortran_dasin(double x)
-{
-    return asin(x);
-}
-
-LFORTRAN_API float_complex_t _lfortran_casin(float_complex_t x)
-{
-    return casinf(x);
-}
-
-LFORTRAN_API double_complex_t _lfortran_zasin(double_complex_t x)
-{
-    return casin(x);
-}
-
-// acos ------------------------------------------------------------------------
-
-LFORTRAN_API float _lfortran_sacos(float x)
-{
-    return acosf(x);
-}
-
-LFORTRAN_API double _lfortran_dacos(double x)
-{
-    return acos(x);
-}
-
-LFORTRAN_API float_complex_t _lfortran_cacos(float_complex_t x)
-{
-    return cacosf(x);
-}
-
-LFORTRAN_API double_complex_t _lfortran_zacos(double_complex_t x)
-{
-    return cacos(x);
-}
-
-// atan ------------------------------------------------------------------------
-
-LFORTRAN_API float _lfortran_satan(float x)
-{
-    return atanf(x);
-}
-
-LFORTRAN_API double _lfortran_datan(double x)
-{
-    return atan(x);
-}
-
-LFORTRAN_API float_complex_t _lfortran_catan(float_complex_t x)
-{
-    return catanf(x);
-}
-
-LFORTRAN_API double_complex_t _lfortran_zatan(double_complex_t x)
-{
-    return catan(x);
-}
-
-// atan2 -----------------------------------------------------------------------
-
-LFORTRAN_API float _lfortran_satan2(float y, float x)
-{
-    return atan2f(y, x);
-}
-
-LFORTRAN_API double _lfortran_datan2(double y, double x)
-{
-    return atan2(y, x);
-}
-
-// asinh -----------------------------------------------------------------------
-
-LFORTRAN_API float _lfortran_sasinh(float x)
-{
-    return asinhf(x);
-}
-
-LFORTRAN_API double _lfortran_dasinh(double x)
-{
-    return asinh(x);
-}
-
-LFORTRAN_API float_complex_t _lfortran_casinh(float_complex_t x)
-{
-    return casinhf(x);
-}
-
-LFORTRAN_API double_complex_t _lfortran_zasinh(double_complex_t x)
-{
-    return casinh(x);
-}
-
-// acosh -----------------------------------------------------------------------
-
-LFORTRAN_API float _lfortran_sacosh(float x)
-{
-    return acoshf(x);
-}
-
-LFORTRAN_API double _lfortran_dacosh(double x)
-{
-    return acosh(x);
-}
-
-LFORTRAN_API float_complex_t _lfortran_cacosh(float_complex_t x)
-{
-    return cacoshf(x);
-}
-
-LFORTRAN_API double_complex_t _lfortran_zacosh(double_complex_t x)
-{
-    return cacosh(x);
-}
-
-// fmod -----------------------------------------------------------------------
-
-LFORTRAN_API double _lfortran_dfmod(double x, double y)
-{
-    return fmod(x, y);
-}
-
-// atanh -----------------------------------------------------------------------
-
-LFORTRAN_API float _lfortran_satanh(float x)
-{
-    return atanhf(x);
-}
-
-LFORTRAN_API double _lfortran_datanh(double x)
-{
-    return atanh(x);
-}
-
-LFORTRAN_API float_complex_t _lfortran_catanh(float_complex_t x)
-{
-    return catanhf(x);
-}
-
-LFORTRAN_API double_complex_t _lfortran_zatanh(double_complex_t x)
-{
-    return catanh(x);
-}
-
-
-// strcat  --------------------------------------------------------------------
-
-LFORTRAN_API void _lfortran_strcat(char** s1, char** s2, char** dest)
-{
-    int cntr = 0;
-    char trmn = '\0';
-    int s1_len = strlen(*s1);
-    int s2_len = strlen(*s2);
-    int trmn_size = sizeof(trmn);
-    char* dest_char = (char*)malloc(s1_len+s2_len+trmn_size);
-    for (int i = 0; i < s1_len; i++) {
-        dest_char[cntr] = (*s1)[i];
-        cntr++;
-    }
-    for (int i = 0; i < s2_len; i++) {
-        dest_char[cntr] = (*s2)[i];
-        cntr++;
-    }
-    dest_char[cntr] = trmn;
-    *dest = &(dest_char[0]);
-}
-
-// strcpy -----------------------------------------------------------
-
-LFORTRAN_API void _lfortran_strcpy(char** x, char *y)
-{
-    if (*x) free((void *)*x);
-    *x = (char*) malloc((strlen(y) + 1) * sizeof(char));
-    strcpy(*x, y);
-}
-
-#define MIN(x, y) ((x < y) ? x : y)
-
-int str_compare(char **s1, char **s2)
-{
-    int s1_len = strlen(*s1);
-    int s2_len = strlen(*s2);
-    int lim = MIN(s1_len, s2_len);
-    int res = 0;
-    int i ;
-    for (i = 0; i < lim; i++) {
-        if ((*s1)[i] != (*s2)[i]) {
-            res = (*s1)[i] - (*s2)[i];
-            break;
-        }
-    }
-    res = (i == lim)? s1_len - s2_len : res;
-    return res;
-}
-LFORTRAN_API bool _lpython_str_compare_eq(char **s1, char **s2)
-{
-    return str_compare(s1, s2) == 0;
-}
-
-LFORTRAN_API bool _lpython_str_compare_noteq(char **s1, char **s2)
-{
-    return str_compare(s1, s2) != 0;
-}
-
-LFORTRAN_API bool _lpython_str_compare_gt(char **s1, char **s2)
-{
-    return str_compare(s1, s2) > 0;
-}
-
-LFORTRAN_API bool _lpython_str_compare_lte(char **s1, char **s2)
-{
-    return str_compare(s1, s2) <= 0;
-}
-
-LFORTRAN_API bool _lpython_str_compare_lt(char **s1, char **s2)
-{
-    return str_compare(s1, s2) < 0;
-}
-
-LFORTRAN_API bool _lpython_str_compare_gte(char **s1, char **s2)
-{
-    return str_compare(s1, s2) >= 0;
-}
-
-LFORTRAN_API char* _lfortran_float_to_str4(float num)
-{
-    char* res = (char*)malloc(40);
-    sprintf(res, "%f", num);
-    return res;
-}
-
-LFORTRAN_API char* _lfortran_float_to_str8(double num)
-{
-    char* res = (char*)malloc(40);
-    sprintf(res, "%f", num);
-    return res;
-}
-
-LFORTRAN_API char* _lfortran_int_to_str1(int8_t num)
-{
-    char* res = (char*)malloc(40);
-    sprintf(res, "%d", num);
-    return res;
-}
-
-LFORTRAN_API char* _lfortran_int_to_str2(int16_t num)
-{
-    char* res = (char*)malloc(40);
-    sprintf(res, "%d", num);
-    return res;
-}
-
-LFORTRAN_API char* _lfortran_int_to_str4(int32_t num)
-{
-    char* res = (char*)malloc(40);
-    sprintf(res, "%d", num);
-    return res;
-}
-
-LFORTRAN_API char* _lfortran_int_to_str8(int64_t num)
-{
-    char* res = (char*)malloc(40);
-    long long num2 = num;
-    sprintf(res, "%lld", num2);
-    return res;
-}
-
-LFORTRAN_API int32_t _lpython_bit_length1(int8_t num)
-{
-    int32_t res = 0;
-    num = abs(num);
-    for(; num; num >>= 1, res++);
-    return res;
-}
-
-LFORTRAN_API int32_t _lpython_bit_length2(int16_t num)
-{
-    int32_t res = 0;
-    num = abs(num);
-    for(; num; num >>= 1, res++);
-    return res;
-}
-
-LFORTRAN_API int32_t _lpython_bit_length4(int32_t num)
-{
-    int32_t res = 0;
-    num = abs(num);
-    for(; num; num >>= 1, res++);
-    return res;
-}
-
-LFORTRAN_API int32_t _lpython_bit_length8(int64_t num)
-{
-    int32_t res = 0;
-    num = llabs(num);
-    for(; num; num >>= 1, res++);
-    return res;
-}
-
-//repeat str for n time
-LFORTRAN_API void _lfortran_strrepeat(char** s, int32_t n, char** dest)
-{
-    int cntr = 0;
-    char trmn = '\0';
-    int s_len = strlen(*s);
-    int trmn_size = sizeof(trmn);
-    int f_len = s_len*n;
-    if (f_len < 0)
-        f_len = 0;
-    char* dest_char = (char*)malloc(f_len+trmn_size);
-    for (int i = 0; i < n; i++) {
-        for (int j = 0; j < s_len; j++) {
-            dest_char[cntr] = (*s)[j];
-            cntr++;
-        }
-    }
-    dest_char[cntr] = trmn;
-    *dest = &(dest_char[0]);
-}
-
-LFORTRAN_API char* _lfortran_strrepeat_c(char* s, int32_t n)
-{
-    int cntr = 0;
-    char trmn = '\0';
-    int s_len = strlen(s);
-    int trmn_size = sizeof(trmn);
-    int f_len = s_len*n;
-    if (f_len < 0)
-        f_len = 0;
-    char* dest_char = (char*)malloc(f_len+trmn_size);
-    for (int i = 0; i < n; i++) {
-        for (int j = 0; j < s_len; j++) {
-            dest_char[cntr] = s[j];
-            cntr++;
-        }
-    }
-    dest_char[cntr] = trmn;
-    return dest_char;
-}
-
-// idx1 and idx2 both start from 1
-LFORTRAN_API char* _lfortran_str_copy(char* s, int32_t idx1, int32_t idx2) {
-
-    int s_len = strlen(s);
-    if(idx1 > s_len || idx1 <= (-1*s_len)){
-        printf("String index out of Bounds\n");
-        exit(1);
-    }
-    if(idx1 <= 0) {
-        idx1 = s_len + idx1;
-    }
-    if(idx2 <= 0) {
-        idx2 = s_len + idx2;
-    }
-    char* dest_char = (char*)malloc(idx2-idx1+2);
-    for (int i=idx1; i <= idx2; i++)
-    {
-        dest_char[i-idx1] = s[i-1];
-    }
-    dest_char[idx2-idx1+1] = '\0';
-    return dest_char;
-}
-
-LFORTRAN_API char* _lfortran_str_slice(char* s, int32_t idx1, int32_t idx2, int32_t step,
-                        bool idx1_present, bool idx2_present) {
-    int s_len = strlen(s);
-    if (step == 0) {
-        printf("slice step cannot be zero\n");
-        exit(1);
-    }
-    idx1 = idx1 < 0 ? idx1 + s_len : idx1;
-    idx2 = idx2 < 0 ? idx2 + s_len : idx2;
-    if (!idx1_present) {
-        if (step > 0) {
-            idx1 = 0;
-        } else {
-            idx1 = s_len - 1;
-        }
-    }
-    if (!idx2_present) {
-        if (step > 0) {
-            idx2 = s_len;
-        } else {
-            idx2 = -1;
-        }
-    }
-    if (idx1 == idx2 ||
-        (step > 0 && (idx1 > idx2 || idx1 >= s_len)) ||
-        (step < 0 && (idx1 < idx2 || idx2 >= s_len-1)))
-        return "";
-    int dest_len = 0;
-    if (step > 0) {
-        idx2 = idx2 > s_len ? s_len : idx2;
-        dest_len = (idx2-idx1+step-1)/step + 1;
-    } else {
-        idx1 = idx1 >= s_len ? s_len-1 : idx1;
-        dest_len = (idx2-idx1+step+1)/step + 1;
-    }
-
-    char* dest_char = (char*)malloc(dest_len);
-    int s_i = idx1, d_i = 0;
-    while((step > 0 && s_i >= idx1 && s_i < idx2) ||
-        (step < 0 && s_i <= idx1 && s_i > idx2)) {
-        dest_char[d_i++] = s[s_i];
-        s_i+=step;
-    }
-    dest_char[d_i] = '\0';
-    return dest_char;
-}
-
-LFORTRAN_API int _lfortran_str_len(char** s)
-{
-    return strlen(*s);
-}
-
-LFORTRAN_API int _lfortran_str_to_int(char** s)
-{
-    char *ptr;
-    return strtol(*s, &ptr, 10);
-}
-
-LFORTRAN_API int _lfortran_str_ord(char** s)
-{
-    return (*s)[0];
-}
-
-LFORTRAN_API int _lfortran_str_ord_c(char* s)
-{
-    return s[0];
-}
-
-LFORTRAN_API char* _lfortran_str_chr(int val)
-{
-    char* dest_char = (char*)malloc(2);
-    dest_char[0] = val;
-    dest_char[1] = '\0';
-    return dest_char;
-}
-
-LFORTRAN_API void _lfortran_memset(void* s, int32_t c, int32_t size) {
-    memset(s, c, size);
-}
-
-LFORTRAN_API void* _lfortran_malloc(int32_t size) {
-    return malloc(size);
-}
-
-LFORTRAN_API int8_t* _lfortran_realloc(int8_t* ptr, int32_t size) {
-    return (int8_t*) realloc(ptr, size);
-}
-
-LFORTRAN_API int8_t* _lfortran_calloc(int32_t count, int32_t size) {
-    return (int8_t*) calloc(count, size);
-}
-
-LFORTRAN_API void _lfortran_free(char* ptr) {
-    free((void*)ptr);
-}
-
-// size_plus_one is the size of the string including the null character
-LFORTRAN_API void _lfortran_string_init(int size_plus_one, char *s) {
-    int size = size_plus_one-1;
-    for (int i=0; i < size; i++) {
-        s[i] = ' ';
-    }
-    s[size] = '\0';
-}
-
-// bit  ------------------------------------------------------------------------
-
-LFORTRAN_API int32_t _lfortran_iand32(int32_t x, int32_t y) {
-    return x & y;
-}
-
-LFORTRAN_API int64_t _lfortran_iand64(int64_t x, int64_t y) {
-    return x & y;
-}
-
-LFORTRAN_API int32_t _lfortran_not32(int32_t x) {
-    return ~ x;
-}
-
-LFORTRAN_API int64_t _lfortran_not64(int64_t x) {
-    return ~ x;
-}
-
-LFORTRAN_API int32_t _lfortran_ior32(int32_t x, int32_t y) {
-    return x | y;
-}
-
-LFORTRAN_API int64_t _lfortran_ior64(int64_t x, int64_t y) {
-    return x | y;
-}
-
-LFORTRAN_API int32_t _lfortran_ieor32(int32_t x, int32_t y) {
-    return x ^ y;
-}
-
-LFORTRAN_API int64_t _lfortran_ieor64(int64_t x, int64_t y) {
-    return x ^ y;
-}
-
-LFORTRAN_API int32_t _lfortran_ibclr32(int32_t i, int pos) {
-    return i & ~(1 << pos);
-}
-
-LFORTRAN_API int64_t _lfortran_ibclr64(int64_t i, int pos) {
-    return i & ~(1LL << pos);
-}
-
-LFORTRAN_API int32_t _lfortran_ibset32(int32_t i, int pos) {
-    return i | (1 << pos);
-}
-
-LFORTRAN_API int64_t _lfortran_ibset64(int64_t i, int pos) {
-    return i | (1LL << pos);
-}
-
-LFORTRAN_API int32_t _lfortran_btest32(int32_t i, int pos) {
-    return i & (1 << pos);
-}
-
-LFORTRAN_API int64_t _lfortran_btest64(int64_t i, int pos) {
-    return i & (1LL << pos);
-}
-
-LFORTRAN_API int32_t _lfortran_ishft32(int32_t i, int32_t shift) {
-    if(shift > 0) {
-        return i << shift;
-    } else if(shift < 0) {
-        return i >> abs(shift);
-    } else {
-        return i;
-    }
-}
-
-LFORTRAN_API int64_t _lfortran_ishft64(int64_t i, int64_t shift) {
-    if(shift > 0) {
-        return i << shift;
-    } else if(shift < 0) {
-        return i >> llabs(shift);
-    } else {
-        return i;
-    }
-}
-
-LFORTRAN_API int32_t _lfortran_mvbits32(int32_t from, int32_t frompos,
-                                        int32_t len, int32_t to, int32_t topos) {
-    uint32_t all_ones = ~0;
-    uint32_t ufrom = from;
-    uint32_t uto = to;
-    all_ones <<= (BITS_32 - frompos - len);
-    all_ones >>= (BITS_32 - len);
-    all_ones <<= topos;
-    ufrom <<= (BITS_32 - frompos - len);
-    ufrom >>= (BITS_32 - len);
-    ufrom <<= topos;
-    return (~all_ones & uto) | ufrom;
-}
-
-LFORTRAN_API int64_t _lfortran_mvbits64(int64_t from, int32_t frompos,
-                                        int32_t len, int64_t to, int32_t topos) {
-    uint64_t all_ones = ~0;
-    uint64_t ufrom = from;
-    uint64_t uto = to;
-    all_ones <<= (BITS_64 - frompos - len);
-    all_ones >>= (BITS_64 - len);
-    all_ones <<= topos;
-    ufrom <<= (BITS_64 - frompos - len);
-    ufrom >>= (BITS_64 - len);
-    ufrom <<= topos;
-    return (~all_ones & uto) | ufrom;
-}
-
-LFORTRAN_API int32_t _lfortran_bgt32(int32_t i, int32_t j) {
-    uint32_t ui = i, uj = j;
-    return ui > uj;
-}
-
-LFORTRAN_API int32_t _lfortran_bgt64(int64_t i, int64_t j) {
-    uint64_t ui = i, uj = j;
-    return ui > uj;
-}
-
-LFORTRAN_API int32_t _lfortran_bge32(int32_t i, int32_t j) {
-    uint32_t ui = i, uj = j;
-    return ui >= uj;
-}
-
-LFORTRAN_API int32_t _lfortran_bge64(int64_t i, int64_t j) {
-    uint64_t ui = i, uj = j;
-    return ui >= uj;
-}
-
-LFORTRAN_API int32_t _lfortran_ble32(int32_t i, int32_t j) {
-    uint32_t ui = i, uj = j;
-    return ui <= uj;
-}
-
-LFORTRAN_API int32_t _lfortran_ble64(int64_t i, int64_t j) {
-    uint64_t ui = i, uj = j;
-    return ui <= uj;
-}
-
-LFORTRAN_API int32_t _lfortran_blt32(int32_t i, int32_t j) {
-    uint32_t ui = i, uj = j;
-    return ui < uj;
-}
-
-LFORTRAN_API int32_t _lfortran_blt64(int64_t i, int64_t j) {
-    uint64_t ui = i, uj = j;
-    return ui < uj;
-}
-
-LFORTRAN_API int32_t _lfortran_ibits32(int32_t i, int32_t pos, int32_t len) {
-    uint32_t ui = i;
-    return ((ui << (BITS_32 - pos - len)) >> (BITS_32 - len));
-}
-
-LFORTRAN_API int64_t _lfortran_ibits64(int64_t i, int32_t pos, int32_t len) {
-    uint64_t ui = i;
-    return ((ui << (BITS_64 - pos - len)) >> (BITS_64 - len));
-}
-
-// cpu_time  -------------------------------------------------------------------
-
-LFORTRAN_API void _lfortran_cpu_time(double *t) {
-    *t = ((double) clock()) / CLOCKS_PER_SEC;
-}
-
-// system_time -----------------------------------------------------------------
-
-LFORTRAN_API void _lfortran_i32sys_clock(
-        int32_t *count, int32_t *rate, int32_t *max) {
-#if defined(_MSC_VER) || defined(__MACH__)
-        *count = - INT_MAX;
-        *rate = 0;
-        *max = 0;
-#else
-    struct timespec ts;
-    if(clock_gettime(CLOCK_MONOTONIC, &ts) == -1) {
-        *count = (int32_t)(ts.tv_nsec / 1000000) + ((int32_t)ts.tv_sec * 1000);
-        *rate = 1e3; // milliseconds
-        *max = INT_MAX;
-    } else {
-        *count = - INT_MAX;
-        *rate = 0;
-        *max = 0;
-    }
-#endif
-}
-
-LFORTRAN_API void _lfortran_i64sys_clock(
-        uint64_t *count, int64_t *rate, int64_t *max) {
-#if defined(_MSC_VER) || defined(__MACH__)
-        *count = - INT_MAX;
-        *rate = 0;
-        *max = 0;
-#else
-    struct timespec ts;
-    if(clock_gettime(CLOCK_MONOTONIC, &ts) == -1) {
-        *count = (uint64_t)(ts.tv_nsec) + ((uint64_t)ts.tv_sec * 1000000000);
-        // FIXME: Rate can be in microseconds or nanoseconds depending on
-        //          resolution of the underlying platform clock.
-        *rate = 1e9; // nanoseconds
-        *max = LLONG_MAX;
-    } else {
-        *count = - LLONG_MAX;
-        *rate = 0;
-        *max = 0;
-    }
-#endif
-}
-
-LFORTRAN_API void _lfortran_sp_rand_num(float *x) {
-    srand(time(0));
-    *x = rand() / (float) RAND_MAX;
-}
-
-LFORTRAN_API void _lfortran_dp_rand_num(double *x) {
-    srand(time(0));
-    *x = rand() / (double) RAND_MAX;
-}
-
-LFORTRAN_API int64_t _lpython_open(char *path, char *flags)
-{
-    FILE *fd;
-    fd = fopen(path, flags);
-    if (!fd)
-    {
-        printf("Error in opening the file!\n");
-        perror(path);
-        exit(1);
-    }
-    return (int64_t)fd;
-}
-
-LFORTRAN_API char* _lpython_read(int64_t fd, int64_t n)
-{
-    char *c = (char *) calloc(n, sizeof(char));
-    if (fd < 0)
-    {
-        printf("Error in reading the file!\n");
-        exit(1);
-    }
-    int x = fread(c, 1, n, (FILE*)fd);
-    c[x] = '\0';
-    return c;
-}
-
-LFORTRAN_API void _lpython_close(int64_t fd)
-{
-    if (fclose((FILE*)fd) != 0)
-    {
-        printf("Error in closing the file!\n");
-        exit(1);
-    }
-}
-
-LFORTRAN_API int32_t _lfortran_ichar(char *c) {
-    return (int32_t) c[0];
-}
-
-LFORTRAN_API int32_t _lfortran_iachar(char *c) {
-    return (int32_t) c[0];
-}
-
-// >> Command line arguments >> ------------------------------------------------
-int32_t argc;
-char **argv;
-
-LFORTRAN_API void _lpython_set_argv(int32_t argc_1, char *argv_1[]) {
-    argv = malloc(argc_1 * sizeof(char *));
-    for (size_t i = 0; i < argc_1; i++) {
-        argv[i] = strdup(argv_1[i]);
-    }
-    argc = argc_1;
-}
-
-LFORTRAN_API int32_t _lpython_get_argc() {
-    return argc;
-}
-
-LFORTRAN_API char *_lpython_get_argv(int32_t index) {
-    return argv[index];
-}
-
-// << Command line arguments << ------------------------------------------------
-
-// >> Runtime Stacktrace >> ----------------------------------------------------
-#ifdef HAVE_RUNTIME_STACKTRACE
-#ifdef HAVE_LFORTRAN_UNWIND
-static _Unwind_Reason_Code unwind_callback(struct _Unwind_Context *context,
-        void *vdata) {
-    struct Stacktrace *d = (struct Stacktrace *) vdata;
-    uintptr_t pc = _Unwind_GetIP(context);
-    if (pc != 0) {
-        pc--;
-        if (d->pc_size < LCOMPILERS_MAX_STACKTRACE_LENGTH) {
-            d->pc[d->pc_size] = pc;
-            d->pc_size++;
-        } else {
-            printf("The stacktrace length is out of range.\nAborting...");
-            abort();
-        }
-    }
-    return _URC_NO_REASON;
-}
-#endif // HAVE_LFORTRAN_UNWIND
-
-struct Stacktrace get_stacktrace_addresses() {
-    struct Stacktrace d;
-    d.pc_size = 0;
-#ifdef HAVE_LFORTRAN_UNWIND
-    _Unwind_Backtrace(unwind_callback, &d);
-#endif
-    return d;
-}
-
-char *get_base_name(char *filename) {
-    size_t start = strrchr(filename, '/')-filename+1;
-    size_t end = strrchr(filename, '.')-filename-1;
-    int nos_of_chars = end - start + 1;
-    char *base_name;
-    if (nos_of_chars < 0) {
-        return NULL;
-    }
-    base_name = malloc (sizeof (char) * (nos_of_chars + 1));
-    base_name[nos_of_chars] = '\0';
-    strncpy (base_name, filename + start, nos_of_chars);
-    return base_name;
-}
-
-#ifdef HAVE_LFORTRAN_LINK
-int shared_lib_callback(struct dl_phdr_info *info,
-        size_t size, void *_data) {
-    struct Stacktrace *d = (struct Stacktrace *) _data;
-    for (int i = 0; i < info->dlpi_phnum; i++) {
-        if (info->dlpi_phdr[i].p_type == PT_LOAD) {
-            ElfW(Addr) min_addr = info->dlpi_addr + info->dlpi_phdr[i].p_vaddr;
-            ElfW(Addr) max_addr = min_addr + info->dlpi_phdr[i].p_memsz;
-            if ((d->current_pc >= min_addr) && (d->current_pc < max_addr)) {
-                d->binary_filename[d->local_pc_size] = (char *)info->dlpi_name;
-                if (d->binary_filename[d->local_pc_size][0] == '\0') {
-                    d->binary_filename[d->local_pc_size] = binary_executable_path;
-                    d->local_pc[d->local_pc_size] = d->current_pc - info->dlpi_addr;
-                    d->local_pc_size++;
-                }
-                // We found a match, return a non-zero value
-                return 1;
-            }
-        }
-    }
-    // We didn't find a match, return a zero value
-    return 0;
-}
-#endif // HAVE_LFORTRAN_LINK
-
-#ifdef HAVE_LFORTRAN_MACHO
-void get_local_address_mac(struct Stacktrace *d) {
-    for (uint32_t i = 0; i < _dyld_image_count(); i++) {
-        const struct mach_header *header = _dyld_get_image_header(i);
-        intptr_t offset = _dyld_get_image_vmaddr_slide(i);
-        struct load_command* cmd = (struct load_command*)((char *)header + sizeof(struct mach_header));
-        if(header->magic == MH_MAGIC_64) {
-            cmd = (struct load_command*)((char *)header + sizeof(struct mach_header_64));
-        }
-        for (uint32_t j = 0; j < header->ncmds; j++) {
-            if (cmd->cmd == LC_SEGMENT) {
-                struct segment_command* seg = (struct segment_command*)cmd;
-                if (((intptr_t)d->current_pc >= (seg->vmaddr+offset)) &&
-                    ((intptr_t)d->current_pc < (seg->vmaddr+offset + seg->vmsize))) {
-                    int check_filename = strcmp(get_base_name(
-                        (char *)_dyld_get_image_name(i)),
-                        get_base_name(source_filename));
-                    if ( check_filename != 0 ) return;
-                    d->local_pc[d->local_pc_size] = d->current_pc - offset;
-                    d->binary_filename[d->local_pc_size] = (char *)_dyld_get_image_name(i);
-                    // Resolve symlinks to a real path:
-                    char buffer[PATH_MAX];
-                    char* resolved;
-                    resolved = realpath(d->binary_filename[d->local_pc_size], buffer);
-                    if (resolved) d->binary_filename[d->local_pc_size] = resolved;
-                    d->local_pc_size++;
-                    return;
-                }
-            }
-            if (cmd->cmd == LC_SEGMENT_64) {
-                struct segment_command_64* seg = (struct segment_command_64*)cmd;
-                if ((d->current_pc >= (seg->vmaddr + offset)) &&
-                    (d->current_pc < (seg->vmaddr + offset + seg->vmsize))) {
-                    int check_filename = strcmp(get_base_name(
-                        (char *)_dyld_get_image_name(i)),
-                        get_base_name(source_filename));
-                    if ( check_filename != 0 ) return;
-                    d->local_pc[d->local_pc_size] = d->current_pc - offset;
-                    d->binary_filename[d->local_pc_size] = (char *)_dyld_get_image_name(i);
-                    // Resolve symlinks to a real path:
-                    char buffer[PATH_MAX];
-                    char* resolved;
-                    resolved = realpath(d->binary_filename[d->local_pc_size], buffer);
-                    if (resolved) d->binary_filename[d->local_pc_size] = resolved;
-                    d->local_pc_size++;
-                    return;
-                }
-            }
-            cmd = (struct load_command*)((char*)cmd + cmd->cmdsize);
-        }
-    }
-    printf("The stack address was not found in any shared library or"
-        " the main program, the stack is probably corrupted.\n"
-        "Aborting...\n");
-    abort();
-}
-#endif // HAVE_LFORTRAN_MACHO
-
-// Fills in `local_pc` and `binary_filename`
-void get_local_address(struct Stacktrace *d) {
-    d->local_pc_size = 0;
-    for (int32_t i=0; i < d->pc_size; i++) {
-        d->current_pc = d->pc[i];
-#ifdef HAVE_LFORTRAN_LINK
-        // Iterates over all loaded shared libraries
-        // See `stacktrace.cpp` to get more information
-        if (dl_iterate_phdr(shared_lib_callback, d) == 0) {
-            printf("The stack address was not found in any shared library or"
-                " the main program, the stack is probably corrupted.\n"
-                "Aborting...\n");
-            abort();
-        }
-#else
-#ifdef HAVE_LFORTRAN_MACHO
-        get_local_address_mac(& *d);
-#else
-    d->local_pc[d->local_pc_size] = 0;
-    d->local_pc_size++;
-#endif // HAVE_LFORTRAN_MACHO
-#endif // HAVE_LFORTRAN_LINK
-    }
-}
-
-uint32_t get_file_size(int64_t fp) {
-    FILE *fp_ = (FILE *)fp;
-    int prev = ftell(fp_);
-    fseek(fp_, 0, SEEK_END);
-    int size = ftell(fp_);
-    fseek(fp_, prev, SEEK_SET);
-    return size;
-}
-
-/*
- * `lines_dat.txt` file must be created before calling this function,
- * The file can be created using the command:
- *     ./src/bin/dat_convert.py lines.dat
- * This function fills in the `addresses` and `line_numbers`
- * from the `lines_dat.txt` file.
- */
-void get_local_info_dwarfdump(struct Stacktrace *d) {
-    // TODO: Read the contents of lines.dat from here itself.
-    char *base_name = get_base_name(source_filename);
-    char *filename = malloc(strlen(base_name) + 14);
-    strcpy(filename, base_name);
-    strcat(filename, "_lines.dat.txt");
-    int64_t fd = _lpython_open(filename, "r");
-    uint32_t size = get_file_size(fd);
-    char *file_contents = _lpython_read(fd, size);
-    _lpython_close(fd);
-    free(filename);
-
-    char s[LCOMPILERS_MAX_STACKTRACE_LENGTH];
-    bool address = true;
-    uint32_t j = 0;
-    d->stack_size = 0;
-    for (uint32_t i = 0; i < size; i++) {
-        if (file_contents[i] == '\n') {
-            memset(s, '\0', sizeof(s));
-            j = 0;
-            d->stack_size++;
-            continue;
-        } else if (file_contents[i] == ' ') {
-            s[j] = '\0';
-            j = 0;
-            if (address) {
-                d->addresses[d->stack_size] = strtol(s, NULL, 10);
-                address = false;
-            } else {
-                d->line_numbers[d->stack_size] = strtol(s, NULL, 10);
-                address = true;
-            }
-            memset(s, '\0', sizeof(s));
-            continue;
-        }
-        s[j++] = file_contents[i];
-    }
-}
-
-char *read_line_from_file(char *filename, uint32_t line_number) {
-    FILE *fp;
-    char *line = NULL;
-    size_t len = 0, n = 0;
-
-    fp = fopen(filename, "r");
-    if (fp == NULL) exit(1);
-    while (n < line_number && (getline(&line, &len, fp) != -1)) n++;
-    fclose(fp);
-
-    return line;
-}
-
-static inline uint64_t bisection(const uint64_t vec[],
-        uint64_t size, uint64_t i) {
-    if (i < vec[0]) return 0;
-    if (i >= vec[size-1]) return size;
-    uint64_t i1 = 0, i2 = size-1;
-    while (i1 < i2-1) {
-        uint64_t imid = (i1+i2)/2;
-        if (i < vec[imid]) {
-            i2 = imid;
-        } else {
-            i1 = imid;
-        }
-    }
-    return i1;
-}
-
-char *remove_whitespace(char *str) {
-    if (str == NULL || str[0] == '\0') {
-        return "(null)";
-    }
-    char *end;
-    // remove leading space
-    while(isspace((unsigned char)*str)) str++;
-    if(*str == 0) // All spaces?
-        return str;
-    // remove trailing space
-    end = str + strlen(str) - 1;
-    while(end > str && isspace((unsigned char)*end)) end--;
-    // Write new null terminator character
-    end[1] = '\0';
-    return str;
-}
-#endif // HAVE_RUNTIME_STACKTRACE
-
-LFORTRAN_API void print_stacktrace_addresses(char *filename, bool use_colors) {
-#ifdef HAVE_RUNTIME_STACKTRACE
-    source_filename = filename;
-    struct Stacktrace d = get_stacktrace_addresses();
-    get_local_address(&d);
-    get_local_info_dwarfdump(&d);
-
-#ifdef HAVE_LFORTRAN_MACHO
-    for (int32_t i = d.local_pc_size-2; i >= 0; i--) {
-#else
-    for (int32_t i = d.local_pc_size-3; i >= 0; i--) {
-#endif
-        uint64_t index = bisection(d.addresses, d.stack_size, d.local_pc[i]);
-        if(use_colors) {
-            fprintf(stderr, DIM "  File " S_RESET
-                BOLD MAGENTA "\"%s\"" C_RESET S_RESET
-#ifdef HAVE_LFORTRAN_MACHO
-                DIM ", line %lld\n" S_RESET
-#else
-                DIM ", line %ld\n" S_RESET
-#endif
-                "    %s\n", source_filename, d.line_numbers[index],
-                remove_whitespace(read_line_from_file(source_filename,
-                d.line_numbers[index])));
-        } else {
-            fprintf(stderr, "  File \"%s\", "
-#ifdef HAVE_LFORTRAN_MACHO
-                "line %lld\n    %s\n",
-#else
-                "line %ld\n    %s\n",
-#endif
-                source_filename, d.line_numbers[index],
-                remove_whitespace(read_line_from_file(source_filename,
-                d.line_numbers[index])));
-        }
-#ifdef HAVE_LFORTRAN_MACHO
-    }
-#else
-    }
-#endif
-#endif // HAVE_RUNTIME_STACKTRACE
-}
-
-// << Runtime Stacktrace << ----------------------------------------------------
diff --git a/src/libasr/runtime/lfortran_intrinsics.h b/src/libasr/runtime/lfortran_intrinsics.h
deleted file mode 100644
index f62cf844d6..0000000000
--- a/src/libasr/runtime/lfortran_intrinsics.h
+++ /dev/null
@@ -1,224 +0,0 @@
-#ifndef LFORTRAN_INTRINSICS_H
-#define LFORTRAN_INTRINSICS_H
-
-#include <stdarg.h>
-#include <complex.h>
-#include <inttypes.h>
-#include <stdbool.h>
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-struct _lfortran_complex_32 {
-    float re, im;
-};
-
-struct _lfortran_complex_64 {
-    double re, im;
-};
-
-#ifdef _MSC_VER
-typedef _Fcomplex float_complex_t;
-typedef _Dcomplex double_complex_t;
-#else
-typedef float _Complex float_complex_t;
-typedef double _Complex double_complex_t;
-#endif
-
-#ifdef _WIN32
-#define LFORTRAN_API __declspec(dllexport)
-#elif defined(__linux__)
-#define LFORTRAN_API __attribute__((visibility("default")))
-#else
-#define LFORTRAN_API /* Nothing */
-#endif
-
-LFORTRAN_API double _lfortran_sum(int n, double *v);
-LFORTRAN_API void _lfortran_random_number(int n, double *v);
-LFORTRAN_API double _lfortran_random();
-LFORTRAN_API int _lfortran_randrange(int lower, int upper);
-LFORTRAN_API int _lfortran_random_int(int lower, int upper);
-LFORTRAN_API void _lfortran_printf(const char* format, ...);
-LFORTRAN_API void _lcompilers_print_error(const char* format, ...);
-LFORTRAN_API void _lfortran_complex_add_32(struct _lfortran_complex_32* a,
-        struct _lfortran_complex_32* b, struct _lfortran_complex_32 *result);
-LFORTRAN_API void _lfortran_complex_sub(struct _lfortran_complex_32* a,
-        struct _lfortran_complex_32* b, struct _lfortran_complex_32 *result);
-LFORTRAN_API void _lfortran_complex_mul(struct _lfortran_complex_32* a,
-        struct _lfortran_complex_32* b, struct _lfortran_complex_32 *result);
-LFORTRAN_API void _lfortran_complex_div(struct _lfortran_complex_32* a,
-        struct _lfortran_complex_32* b, struct _lfortran_complex_32* result);
-LFORTRAN_API void _lfortran_complex_pow(struct _lfortran_complex_32* a,
-        struct _lfortran_complex_32* b, struct _lfortran_complex_32* result);
-
-LFORTRAN_API void _lfortran_complex_add_64(struct _lfortran_complex_64* a,
-        struct _lfortran_complex_64* b, struct _lfortran_complex_64 *result);
-LFORTRAN_API void _lfortran_complex_sub_64(struct _lfortran_complex_64* a,
-        struct _lfortran_complex_64* b, struct _lfortran_complex_64 *result);
-LFORTRAN_API void _lfortran_complex_mul_64(struct _lfortran_complex_64* a,
-        struct _lfortran_complex_64* b, struct _lfortran_complex_64 *result);
-LFORTRAN_API void _lfortran_complex_div_64(struct _lfortran_complex_64* a,
-        struct _lfortran_complex_64* b, struct _lfortran_complex_64 *result);
-LFORTRAN_API void _lfortran_complex_pow_64(struct _lfortran_complex_64* a,
-        struct _lfortran_complex_64* b, struct _lfortran_complex_64 *result);
-LFORTRAN_API void _lfortran_complex_aimag_32(struct _lfortran_complex_32 *x, float *res);
-LFORTRAN_API void _lfortran_complex_aimag_64(struct _lfortran_complex_64 *x, double *res);
-LFORTRAN_API float_complex_t _lfortran_csqrt(float_complex_t x);
-LFORTRAN_API double_complex_t _lfortran_zsqrt(double_complex_t x);
-LFORTRAN_API float _lfortran_caimag(float_complex_t x);
-LFORTRAN_API double _lfortran_zaimag(double_complex_t x);
-LFORTRAN_API float _lfortran_sexp(float x);
-LFORTRAN_API double _lfortran_dexp(double x);
-LFORTRAN_API float_complex_t _lfortran_cexp(float_complex_t x);
-LFORTRAN_API double_complex_t _lfortran_zexp(double_complex_t x);
-LFORTRAN_API float _lfortran_slog(float x);
-LFORTRAN_API double _lfortran_dlog(double x);
-LFORTRAN_API float_complex_t _lfortran_clog(float_complex_t x);
-LFORTRAN_API double_complex_t _lfortran_zlog(double_complex_t x);
-LFORTRAN_API float _lfortran_serf(float x);
-LFORTRAN_API double _lfortran_derf(double x);
-LFORTRAN_API float _lfortran_serfc(float x);
-LFORTRAN_API double _lfortran_derfc(double x);
-LFORTRAN_API float _lfortran_slog10(float x);
-LFORTRAN_API double _lfortran_dlog10(double x);
-LFORTRAN_API float _lfortran_sgamma(float x);
-LFORTRAN_API double _lfortran_dgamma(double x);
-LFORTRAN_API float _lfortran_slog_gamma(float x);
-LFORTRAN_API double _lfortran_dlog_gamma(double x);
-LFORTRAN_API float _lfortran_ssin(float x);
-LFORTRAN_API double _lfortran_dsin(double x);
-LFORTRAN_API float_complex_t _lfortran_csin(float_complex_t x);
-LFORTRAN_API double_complex_t _lfortran_zsin(double_complex_t x);
-LFORTRAN_API float _lfortran_scos(float x);
-LFORTRAN_API double _lfortran_dcos(double x);
-LFORTRAN_API float_complex_t _lfortran_ccos(float_complex_t x);
-LFORTRAN_API double_complex_t _lfortran_zcos(double_complex_t x);
-LFORTRAN_API float _lfortran_stan(float x);
-LFORTRAN_API double _lfortran_dtan(double x);
-LFORTRAN_API float_complex_t _lfortran_ctan(float_complex_t x);
-LFORTRAN_API double_complex_t _lfortran_ztan(double_complex_t x);
-LFORTRAN_API float _lfortran_ssinh(float x);
-LFORTRAN_API double _lfortran_dsinh(double x);
-LFORTRAN_API float_complex_t _lfortran_csinh(float_complex_t x);
-LFORTRAN_API double_complex_t _lfortran_zsinh(double_complex_t x);
-LFORTRAN_API float _lfortran_scosh(float x);
-LFORTRAN_API double _lfortran_dcosh(double x);
-LFORTRAN_API float_complex_t _lfortran_ccosh(float_complex_t x);
-LFORTRAN_API double_complex_t _lfortran_zcosh(double_complex_t x);
-LFORTRAN_API float _lfortran_stanh(float x);
-LFORTRAN_API double _lfortran_dtanh(double x);
-LFORTRAN_API float_complex_t _lfortran_ctanh(float_complex_t x);
-LFORTRAN_API double_complex_t _lfortran_ztanh(double_complex_t x);
-LFORTRAN_API float _lfortran_sasin(float x);
-LFORTRAN_API double _lfortran_dasin(double x);
-LFORTRAN_API float_complex_t _lfortran_casin(float_complex_t x);
-LFORTRAN_API double_complex_t _lfortran_zasin(double_complex_t x);
-LFORTRAN_API float _lfortran_sacos(float x);
-LFORTRAN_API double _lfortran_dacos(double x);
-LFORTRAN_API float_complex_t _lfortran_cacos(float_complex_t x);
-LFORTRAN_API double_complex_t _lfortran_zacos(double_complex_t x);
-LFORTRAN_API float _lfortran_satan(float x);
-LFORTRAN_API double _lfortran_datan(double x);
-LFORTRAN_API float_complex_t _lfortran_catan(float_complex_t x);
-LFORTRAN_API double_complex_t _lfortran_zatan(double_complex_t x);
-LFORTRAN_API float _lfortran_satan2(float y, float x);
-LFORTRAN_API double _lfortran_datan2(double y, double x);
-LFORTRAN_API float _lfortran_sasinh(float x);
-LFORTRAN_API double _lfortran_dasinh(double x);
-LFORTRAN_API float_complex_t _lfortran_casinh(float_complex_t x);
-LFORTRAN_API double_complex_t _lfortran_zasinh(double_complex_t x);
-LFORTRAN_API float _lfortran_sacosh(float x);
-LFORTRAN_API double _lfortran_dacosh(double x);
-LFORTRAN_API float_complex_t _lfortran_cacosh(float_complex_t x);
-LFORTRAN_API double _lfortran_dfmod(double x, double y);
-LFORTRAN_API double_complex_t _lfortran_zacosh(double_complex_t x);
-LFORTRAN_API float _lfortran_satanh(float x);
-LFORTRAN_API double _lfortran_datanh(double x);
-LFORTRAN_API float_complex_t _lfortran_catanh(float_complex_t x);
-LFORTRAN_API double_complex_t _lfortran_zatanh(double_complex_t x);
-LFORTRAN_API bool _lpython_str_compare_eq(char** s1, char** s2);
-LFORTRAN_API bool _lpython_str_compare_noteq(char** s1, char** s2);
-LFORTRAN_API bool _lpython_str_compare_gt(char** s1, char** s2);
-LFORTRAN_API bool _lpython_str_compare_lte(char** s1, char** s2);
-LFORTRAN_API bool _lpython_str_compare_lt(char** s1, char** s2);
-LFORTRAN_API bool _lpython_str_compare_gte(char** s1, char** s2);
-LFORTRAN_API char* _lfortran_float_to_str8(double num);
-LFORTRAN_API char* _lfortran_float_to_str4(float num);
-LFORTRAN_API char* _lfortran_int_to_str1(int8_t num);
-LFORTRAN_API char* _lfortran_int_to_str2(int16_t num);
-LFORTRAN_API char* _lfortran_int_to_str4(int32_t num);
-LFORTRAN_API char* _lfortran_int_to_str8(int64_t num);
-LFORTRAN_API int32_t _lpython_bit_length1(int8_t num);
-LFORTRAN_API int32_t _lpython_bit_length2(int16_t num);
-LFORTRAN_API int32_t _lpython_bit_length4(int32_t num);
-LFORTRAN_API int32_t _lpython_bit_length8(int64_t num);
-LFORTRAN_API void _lfortran_strrepeat(char** s, int32_t n, char** dest);
-LFORTRAN_API char* _lfortran_strrepeat_c(char* s, int32_t n);
-LFORTRAN_API void _lfortran_strcat(char** s1, char** s2, char** dest);
-LFORTRAN_API void _lfortran_strcpy(char** x, char *y);
-LFORTRAN_API int _lfortran_str_len(char** s);
-LFORTRAN_API int _lfortran_str_ord(char** s);
-LFORTRAN_API int _lfortran_str_ord_c(char* s);
-LFORTRAN_API char* _lfortran_str_chr(int c);
-LFORTRAN_API int _lfortran_str_to_int(char** s);
-LFORTRAN_API void* _lfortran_malloc(int32_t size);
-LFORTRAN_API void _lfortran_memset(void* s, int32_t c, int32_t size);
-LFORTRAN_API int8_t* _lfortran_realloc(int8_t* ptr, int32_t size);
-LFORTRAN_API int8_t* _lfortran_calloc(int32_t count, int32_t size);
-LFORTRAN_API void _lfortran_free(char* ptr);
-LFORTRAN_API void _lfortran_string_init(int size_plus_one, char *s);
-LFORTRAN_API char* _lfortran_str_slice(char* s, int32_t idx1, int32_t idx2, int32_t step,
-                        bool idx1_present, bool idx2_present);
-LFORTRAN_API int32_t _lfortran_iand32(int32_t x, int32_t y);
-LFORTRAN_API int64_t _lfortran_iand64(int64_t x, int64_t y);
-LFORTRAN_API int32_t _lfortran_not32(int32_t x);
-LFORTRAN_API int64_t _lfortran_not64(int64_t x);
-LFORTRAN_API int32_t _lfortran_ior32(int32_t x, int32_t y);
-LFORTRAN_API int64_t _lfortran_ior64(int64_t x, int64_t y);
-LFORTRAN_API int32_t _lfortran_ieor32(int32_t x, int32_t y);
-LFORTRAN_API int64_t _lfortran_ieor64(int64_t x, int64_t y);
-LFORTRAN_API int32_t _lfortran_ibclr32(int32_t i, int pos);
-LFORTRAN_API int64_t _lfortran_ibclr64(int64_t i, int pos);
-LFORTRAN_API int32_t _lfortran_ibset32(int32_t i, int pos);
-LFORTRAN_API int64_t _lfortran_ibset64(int64_t i, int pos);
-LFORTRAN_API int32_t _lfortran_btest32(int32_t i, int pos);
-LFORTRAN_API int64_t _lfortran_btest64(int64_t i, int pos);
-LFORTRAN_API int32_t _lfortran_ishft32(int32_t i, int32_t shift);
-LFORTRAN_API int64_t _lfortran_ishft64(int64_t i, int64_t shift);
-LFORTRAN_API int32_t _lfortran_mvbits32(int32_t from, int32_t frompos,
-                                        int32_t len, int32_t to, int32_t topos);
-LFORTRAN_API int64_t _lfortran_mvbits64(int64_t from, int32_t frompos,
-                                        int32_t len, int64_t to, int32_t topos);
-LFORTRAN_API int32_t _lfortran_bgt32(int32_t i, int32_t j);
-LFORTRAN_API int32_t _lfortran_bgt64(int64_t i, int64_t j);
-LFORTRAN_API int32_t _lfortran_bge32(int32_t i, int32_t j);
-LFORTRAN_API int32_t _lfortran_bge64(int64_t i, int64_t j);
-LFORTRAN_API int32_t _lfortran_ble32(int32_t i, int32_t j);
-LFORTRAN_API int32_t _lfortran_ble64(int64_t i, int64_t j);
-LFORTRAN_API int32_t _lfortran_blt32(int32_t i, int32_t j);
-LFORTRAN_API int32_t _lfortran_blt64(int64_t i, int64_t j);
-LFORTRAN_API int32_t _lfortran_ibits32(int32_t i, int32_t pos, int32_t len);
-LFORTRAN_API int64_t _lfortran_ibits64(int64_t i, int32_t pos, int32_t len);
-LFORTRAN_API void _lfortran_cpu_time(double *t);
-LFORTRAN_API void _lfortran_i32sys_clock(
-        int32_t *count, int32_t *rate, int32_t *max);
-LFORTRAN_API void _lfortran_i64sys_clock(
-        uint64_t *count, int64_t *rate, int64_t *max);
-LFORTRAN_API void _lfortran_sp_rand_num(float *x);
-LFORTRAN_API void _lfortran_dp_rand_num(double *x);
-LFORTRAN_API int64_t _lpython_open(char *path, char *flags);
-LFORTRAN_API char* _lpython_read(int64_t fd, int64_t n);
-LFORTRAN_API void _lpython_close(int64_t fd);
-LFORTRAN_API int32_t _lfortran_ichar(char *c);
-LFORTRAN_API int32_t _lfortran_iachar(char *c);
-LFORTRAN_API void _lpython_set_argv(int32_t argc_1, char *argv_1[]);
-LFORTRAN_API int32_t _lpython_get_argc();
-LFORTRAN_API char *_lpython_get_argv(int32_t index);
-LFORTRAN_API void print_stacktrace_addresses(char *filename, bool use_colors);
-
-#ifdef __cplusplus
-}
-#endif
-
-#endif
diff --git a/src/libasr/semantic_exception.h b/src/libasr/semantic_exception.h
deleted file mode 100644
index 9a4d4fd299..0000000000
--- a/src/libasr/semantic_exception.h
+++ /dev/null
@@ -1,32 +0,0 @@
-#ifndef LFORTRAN_SEMANTICS_SEMANTIC_EXCEPTION_H
-#define LFORTRAN_SEMANTICS_SEMANTIC_EXCEPTION_H
-
-#include <libasr/exception.h>
-
-namespace LCompilers {
-
-// This exception is only used internally in the lfortran/semantics/ directory
-// and in lfortran/asr_utils.h/cpp. Nowhere else.
-
-class SemanticError
-{
-public:
-    diag::Diagnostic d;
-public:
-    SemanticError(const std::string &msg, const Location &loc)
-        : d{diag::Diagnostic(msg, diag::Level::Error, diag::Stage::Semantic, {
-            diag::Label("", {loc})
-        })}
-    { }
-
-    SemanticError(const diag::Diagnostic &d) : d{d} { }
-};
-
-class SemanticAbort
-{
-};
-
-} // namespace LCompilers
-
-
-#endif
diff --git a/src/libasr/serialization.cpp b/src/libasr/serialization.cpp
deleted file mode 100644
index 6ef886107e..0000000000
--- a/src/libasr/serialization.cpp
+++ /dev/null
@@ -1,331 +0,0 @@
-#include <string>
-
-#include <libasr/config.h>
-#include <libasr/serialization.h>
-#include <libasr/asr_utils.h>
-#include <libasr/asr_verify.h>
-#include <libasr/bwriter.h>
-#include <libasr/string_utils.h>
-
-using LCompilers::ASRUtils::symbol_parent_symtab;
-using LCompilers::ASRUtils::symbol_name;
-
-namespace LCompilers {
-
-
-class ASRSerializationVisitor :
-#ifdef WITH_LFORTRAN_BINARY_MODFILES
-        public BinaryWriter,
-#else
-        public TextWriter,
-#endif
-        public ASR::SerializationBaseVisitor<ASRSerializationVisitor>
-{
-public:
-    void write_bool(bool b) {
-        if (b) {
-            write_int8(1);
-        } else {
-            write_int8(0);
-        }
-    }
-
-    void write_symbol(const ASR::symbol_t &x) {
-        write_int64(symbol_parent_symtab(&x)->counter);
-        write_int8(x.type);
-        write_string(symbol_name(&x));
-    }
-};
-
-std::string serialize(const ASR::asr_t &asr) {
-    ASRSerializationVisitor v;
-    v.write_int8(asr.type);
-    v.visit_asr(asr);
-    return v.get_str();
-}
-
-std::string serialize(const ASR::TranslationUnit_t &unit) {
-    return serialize((ASR::asr_t&)(unit));
-}
-
-class ASRDeserializationVisitor :
-#ifdef WITH_LFORTRAN_BINARY_MODFILES
-        public BinaryReader,
-#else
-        public TextReader,
-#endif
-        public ASR::DeserializationBaseVisitor<ASRDeserializationVisitor>
-{
-public:
-    ASRDeserializationVisitor(Allocator &al, const std::string &s,
-        bool load_symtab_id) :
-#ifdef WITH_LFORTRAN_BINARY_MODFILES
-            BinaryReader(s),
-#else
-            TextReader(s),
-#endif
-            DeserializationBaseVisitor(al, load_symtab_id) {}
-
-    bool read_bool() {
-        uint8_t b = read_int8();
-        return (b == 1);
-    }
-
-    char* read_cstring() {
-        std::string s = read_string();
-        LCompilers::Str cs;
-        cs.from_str_view(s);
-        char* p = cs.c_str(al);
-        return p;
-    }
-
-#define READ_SYMBOL_CASE(x)                                \
-    case (ASR::symbolType::x) : {                          \
-        s = (ASR::symbol_t*)al.make_new<ASR::x##_t>();     \
-        s->type = ASR::symbolType::x;                      \
-        s->base.type = ASR::asrType::symbol;               \
-        s->base.loc.first = 0;                             \
-        s->base.loc.last = 0;                              \
-        break;                                             \
-    }
-
-#define INSERT_SYMBOL_CASE(x)                              \
-    case (ASR::symbolType::x) : {                          \
-        memcpy(sym2, sym, sizeof(ASR::x##_t));             \
-        break;                                             \
-    }
-
-    ASR::symbol_t *read_symbol() {
-        uint64_t symtab_id = read_int64();
-        // TODO: read the symbol's location information here, after saving
-        // it in write_symbol() above
-        uint64_t symbol_type = read_int8();
-        std::string symbol_name  = read_string();
-        LCOMPILERS_ASSERT(id_symtab_map.find(symtab_id) != id_symtab_map.end());
-        SymbolTable *symtab = id_symtab_map[symtab_id];
-        if (symtab->get_symbol(symbol_name) == nullptr) {
-            // Symbol is not in the symbol table yet. We construct an empty
-            // symbol of the correct type and put it in the symbol table.
-            // Later when constructing the symbol table, we will check for this
-            // and fill it in correctly.
-            ASR::symbolType ty = static_cast<ASR::symbolType>(symbol_type);
-            ASR::symbol_t *s;
-            switch (ty) {
-                READ_SYMBOL_CASE(Program)
-                READ_SYMBOL_CASE(Module)
-                READ_SYMBOL_CASE(Function)
-                READ_SYMBOL_CASE(GenericProcedure)
-                READ_SYMBOL_CASE(ExternalSymbol)
-                READ_SYMBOL_CASE(StructType)
-                READ_SYMBOL_CASE(Variable)
-                READ_SYMBOL_CASE(ClassProcedure)
-                default : throw LCompilersException("Symbol type not supported");
-            }
-            symtab->add_symbol(symbol_name, s);
-        }
-        ASR::symbol_t *sym = symtab->get_symbol(symbol_name);
-        return sym;
-    }
-
-    void symtab_insert_symbol(SymbolTable &symtab, const std::string &name,
-        ASR::symbol_t *sym) {
-        if (symtab.get_symbol(name) == nullptr) {
-            symtab.add_symbol(name, sym);
-        } else {
-            // We have to copy the contents of `sym` into `sym2` without
-            // changing the `sym2` pointer already in the table
-            ASR::symbol_t *sym2 = symtab.get_symbol(name);
-            switch (sym->type) {
-                INSERT_SYMBOL_CASE(Program)
-                INSERT_SYMBOL_CASE(Module)
-                INSERT_SYMBOL_CASE(Function)
-                INSERT_SYMBOL_CASE(GenericProcedure)
-                INSERT_SYMBOL_CASE(ExternalSymbol)
-                INSERT_SYMBOL_CASE(StructType)
-                INSERT_SYMBOL_CASE(Variable)
-                INSERT_SYMBOL_CASE(ClassProcedure)
-                default : throw LCompilersException("Symbol type not supported");
-            }
-        }
-    }
-};
-
-namespace ASR {
-
-class FixParentSymtabVisitor : public BaseWalkVisitor<FixParentSymtabVisitor>
-{
-private:
-    SymbolTable *current_symtab;
-public:
-    void visit_TranslationUnit(const TranslationUnit_t &x) {
-        current_symtab = x.m_global_scope;
-        x.m_global_scope->asr_owner = (asr_t*)&x;
-        for (auto &a : x.m_global_scope->get_scope()) {
-            this->visit_symbol(*a.second);
-        }
-    }
-
-    void visit_Program(const Program_t &x) {
-        SymbolTable *parent_symtab = current_symtab;
-        current_symtab = x.m_symtab;
-        x.m_symtab->parent = parent_symtab;
-        x.m_symtab->asr_owner = (asr_t*)&x;
-        for (auto &a : x.m_symtab->get_scope()) {
-            this->visit_symbol(*a.second);
-        }
-        current_symtab = parent_symtab;
-    }
-
-    void visit_Module(const Module_t &x) {
-        SymbolTable *parent_symtab = current_symtab;
-        current_symtab = x.m_symtab;
-        x.m_symtab->parent = parent_symtab;
-        x.m_symtab->asr_owner = (asr_t*)&x;
-        for (auto &a : x.m_symtab->get_scope()) {
-            this->visit_symbol(*a.second);
-        }
-        current_symtab = parent_symtab;
-    }
-
-    void visit_AssociateBlock(const AssociateBlock_t &x) {
-        SymbolTable *parent_symtab = current_symtab;
-        current_symtab = x.m_symtab;
-        x.m_symtab->parent = parent_symtab;
-        x.m_symtab->asr_owner = (asr_t*)&x;
-        for (auto &a : x.m_symtab->get_scope()) {
-            this->visit_symbol(*a.second);
-        }
-        current_symtab = parent_symtab;
-    }
-
-    void visit_Block(const Block_t &x) {
-        SymbolTable *parent_symtab = current_symtab;
-        current_symtab = x.m_symtab;
-        x.m_symtab->parent = parent_symtab;
-        x.m_symtab->asr_owner = (asr_t*)&x;
-        for (auto &a : x.m_symtab->get_scope()) {
-            this->visit_symbol(*a.second);
-        }
-        current_symtab = parent_symtab;
-    }
-
-    void visit_Function(const Function_t &x) {
-        SymbolTable *parent_symtab = current_symtab;
-        current_symtab = x.m_symtab;
-        x.m_symtab->parent = parent_symtab;
-        x.m_symtab->asr_owner = (asr_t*)&x;
-        for (auto &a : x.m_symtab->get_scope()) {
-            this->visit_symbol(*a.second);
-        }
-        current_symtab = parent_symtab;
-    }
-
-    void visit_StructType(const StructType_t &x) {
-        SymbolTable *parent_symtab = current_symtab;
-        current_symtab = x.m_symtab;
-        x.m_symtab->parent = parent_symtab;
-        x.m_symtab->asr_owner = (asr_t*)&x;
-        for (auto &a : x.m_symtab->get_scope()) {
-            this->visit_symbol(*a.second);
-        }
-        current_symtab = parent_symtab;
-    }
-
-};
-
-class FixExternalSymbolsVisitor : public BaseWalkVisitor<FixExternalSymbolsVisitor>
-{
-private:
-    SymbolTable *global_symtab;
-    SymbolTable *external_symtab;
-public:
-    FixExternalSymbolsVisitor(SymbolTable &symtab) : external_symtab{&symtab} {}
-
-    void visit_TranslationUnit(const TranslationUnit_t &x) {
-        global_symtab = x.m_global_scope;
-        for (auto &a : x.m_global_scope->get_scope()) {
-            this->visit_symbol(*a.second);
-        }
-    }
-
-    void visit_ExternalSymbol(const ExternalSymbol_t &x) {
-        if (x.m_external != nullptr) {
-            // Nothing to do, the external symbol is already resolved
-            return;
-        }
-        LCOMPILERS_ASSERT(x.m_external == nullptr);
-        if (x.m_module_name == nullptr) {
-            throw LCompilersException("The ExternalSymbol was referenced in some ASR node, but it was not loaded as part of the SymbolTable");
-        }
-        std::string module_name = x.m_module_name;
-        std::string original_name = x.m_original_name;
-        if (startswith(module_name, "lfortran_intrinsic_iso")) {
-            module_name = module_name.substr(19);
-        }
-        if (global_symtab->get_symbol(module_name) != nullptr) {
-            Module_t *m = down_cast<Module_t>(global_symtab->get_symbol(module_name));
-            symbol_t *sym = m->m_symtab->find_scoped_symbol(original_name, x.n_scope_names, x.m_scope_names);
-            if (sym) {
-                // FIXME: this is a hack, we need to pass in a non-const `x`.
-                ExternalSymbol_t &xx = const_cast<ExternalSymbol_t&>(x);
-                xx.m_external = sym;
-            } else {
-                throw LCompilersException("ExternalSymbol cannot be resolved, the symbol '"
-                    + original_name + "' was not found in the module '"
-                    + module_name + "' (but the module was found)");
-            }
-        } else if (external_symtab->get_symbol(module_name) != nullptr) {
-            Module_t *m = down_cast<Module_t>(external_symtab->get_symbol(module_name));
-            symbol_t *sym = m->m_symtab->find_scoped_symbol(original_name, x.n_scope_names, x.m_scope_names);
-            if (sym) {
-                // FIXME: this is a hack, we need to pass in a non-const `x`.
-                ExternalSymbol_t &xx = const_cast<ExternalSymbol_t&>(x);
-                xx.m_external = sym;
-            } else {
-                throw LCompilersException("ExternalSymbol cannot be resolved, the symbol '"
-                    + original_name + "' was not found in the module '"
-                    + module_name + "' (but the module was found)");
-            }
-        } else {
-            throw LCompilersException("ExternalSymbol cannot be resolved, the module '"
-                + module_name + "' was not found, so the symbol '"
-                + original_name + "' could not be resolved");
-        }
-    }
-
-
-};
-
-} // namespace ASR
-
-// Fix ExternalSymbol's symbol to point to symbols from `external_symtab`
-// or from `unit`.
-void fix_external_symbols(ASR::TranslationUnit_t &unit,
-        SymbolTable &external_symtab) {
-    ASR::FixExternalSymbolsVisitor e(external_symtab);
-    e.visit_TranslationUnit(unit);
-}
-
-ASR::asr_t* deserialize_asr(Allocator &al, const std::string &s,
-        bool load_symtab_id, SymbolTable & /*external_symtab*/) {
-    return deserialize_asr(al, s, load_symtab_id);
-}
-
-ASR::asr_t* deserialize_asr(Allocator &al, const std::string &s,
-        bool load_symtab_id) {
-    ASRDeserializationVisitor v(al, s, load_symtab_id);
-    ASR::asr_t *node = v.deserialize_node();
-    ASR::TranslationUnit_t *tu = ASR::down_cast2<ASR::TranslationUnit_t>(node);
-
-    // Connect the `parent` member of symbol tables
-    // Also set the `asr_owner` member correctly for all symbol tables
-    ASR::FixParentSymtabVisitor p;
-    p.visit_TranslationUnit(*tu);
-
-    diag::Diagnostics diagnostics;
-    LCOMPILERS_ASSERT(asr_verify(*tu, false, diagnostics));
-
-    return node;
-}
-
-} // namespace LCompilers
diff --git a/src/libasr/serialization.h b/src/libasr/serialization.h
deleted file mode 100644
index 70f895c681..0000000000
--- a/src/libasr/serialization.h
+++ /dev/null
@@ -1,19 +0,0 @@
-#ifndef LIBASR_SERIALIZATION_H
-#define LIBASR_SERIALIZATION_H
-
-#include <libasr/asr.h>
-
-namespace LCompilers {
-
-    std::string serialize(const ASR::asr_t &asr);
-    std::string serialize(const ASR::TranslationUnit_t &unit);
-    ASR::asr_t* deserialize_asr(Allocator &al, const std::string &s,
-            bool load_symtab_id, SymbolTable &symtab);
-    ASR::asr_t* deserialize_asr(Allocator &al, const std::string &s,
-            bool load_symtab_id);
-
-    void fix_external_symbols(ASR::TranslationUnit_t &unit,
-            SymbolTable &external_symtab);
-} // namespace LCompilers
-
-#endif // LIBASR_SERIALIZATION_H
diff --git a/src/libasr/stacktrace.cpp b/src/libasr/stacktrace.cpp
deleted file mode 100644
index 220d76fd7e..0000000000
--- a/src/libasr/stacktrace.cpp
+++ /dev/null
@@ -1,650 +0,0 @@
-#include <libasr/stacktrace.h>
-#include <libasr/config.h>
-#include <libasr/colors.h>
-#include <libasr/exception.h>
-
-#include <fstream>
-#include <iostream>
-#include <sstream>
-#include <string>
-#include <vector>
-
-// free() and abort() functions
-#include <cstdlib>
-
-// For registering SIGSEGV callbacks
-#include <csignal>
-
-
-// The following C headers are needed for some specific C functionality (see
-// the comments), which is not available in C++:
-
-#ifdef HAVE_LFORTRAN_UNWIND
-// For _Unwind_Backtrace() function
-#  include <unwind.h>
-#endif
-
-#if defined(HAVE_LFORTRAN_DEMANGLE)
-// For demangling function names
-#  include <cxxabi.h>
-#endif
-
-#ifdef HAVE_LFORTRAN_LINK
-// For dl_iterate_phdr() functionality
-#  include <link.h>
-#endif
-
-#ifdef HAVE_LFORTRAN_MACHO
-#  include <mach-o/dyld.h>
-#endif
-
-#ifdef HAVE_LFORTRAN_BFD
-// For bfd_* family of functions for loading debugging symbols from the binary
-// This is the only nonstandard header file and the binary needs to be linked
-// with "-lbfd".
-// Note: on macOS, one must call `dsymutil` on any binary in order for BFD to
-// be able to find line number information. Example:
-//
-//     $ dsymutil ./test_stacktrace
-//
-// This is done automatically by our CMake build system for the `lfortran`
-// binary.
-//
-// The bfd.h header file sometimes requires the PACKAGE define to be defined:
-#  define PACKAGE 1
-#  include <bfd.h>
-#endif
-
-namespace LCompilers {
-
-std::string binary_executable_path = "/proc/self/exe";
-
-#ifdef HAVE_LFORTRAN_UNWIND
-
-static _Unwind_Reason_Code unwind_callback(struct _Unwind_Context *context,
-  void *vdata)
-{
-  std::vector<StacktraceItem> &d = *(std::vector<StacktraceItem> *)vdata;
-  uintptr_t pc;
-  pc = _Unwind_GetIP(context);
-  if (pc != 0) {
-    pc--;
-    StacktraceItem i;
-    i.pc = pc;
-    d.push_back(i);
-  }
-  return _URC_NO_REASON;
-}
-
-#endif // HAVE_LFORTRAN_UNWIND
-
-
-
-#ifdef HAVE_LFORTRAN_LINK
-
-/* Tries to find the 'data.addr' in the current shared lib (as passed in
-   'info'). If it succeeds, returns (in the 'data') the full path to the shared
-   lib and the local address in the file.
-*/
-int shared_lib_callback(struct dl_phdr_info *info,
-  size_t /* size */, void *_data)
-{
-  StacktraceItem &item = *(StacktraceItem *)_data;
-  for (int i=0; i < info->dlpi_phnum; i++) {
-    if (info->dlpi_phdr[i].p_type == PT_LOAD) {
-      ElfW(Addr) min_addr = info->dlpi_addr + info->dlpi_phdr[i].p_vaddr;
-      ElfW(Addr) max_addr = min_addr + info->dlpi_phdr[i].p_memsz;
-      if ((item.pc >= min_addr) && (item.pc < max_addr)) {
-        item.binary_filename = info->dlpi_name;
-        if (item.binary_filename == "") {
-            item.binary_filename = binary_executable_path;
-        }
-        item.local_pc = item.pc - info->dlpi_addr;
-        // We found a match, return a non-zero value
-        return 1;
-      }
-    }
-  }
-  // We didn't find a match, return a zero value
-  return 0;
-}
-
-#endif // HAVE_LFORTRAN_LINK
-
-
-// Fills in `local_pc` and `binary_filename` of `item`
-void get_local_address(StacktraceItem &item)
-{
-#ifdef HAVE_LFORTRAN_LINK
-    // Iterate over all loaded shared libraries (see dl_iterate_phdr(3) -
-    // Linux man page for more documentation)
-    if (dl_iterate_phdr(shared_lib_callback, &item) == 0) {
-      // `dl_iterate_phdr` returns the last value returned by our
-      // `shared_lib_callback`. It will only be 0 if no shared library
-      // (including the main program) contains the address `match.addr`. Given
-      // that the addresses are collected from a stacktrace, this should only
-      // happen if the stacktrace is somehow corrupted. In that case, we simply
-      // abort here.
-      // `dl_iterate_phdr` returns the last value returned by our
-      // `shared_lib_callback`. It will only be 0 if no shared library
-      // `dl_iterate_phdr` returns the last value returned by our
-      // `shared_lib_callback`. It will only be 0 if no shared library
-      // (including the main program) contains the address `match.addr`. Given
-      // that the addresses are collected from a stacktrace, this should only
-      // happen if the stacktrace is somehow corrupted. In that case, we simply
-      // abort here.
-      std::cout << "The stack address was not found in any shared library or the main program, the stack is probably corrupted. Aborting." << std::endl;
-      abort();
-    }
-#else
-#ifdef HAVE_LFORTRAN_MACHO
-    for (uint32_t i = 0; i < _dyld_image_count(); i++) {
-        const struct mach_header *header = _dyld_get_image_header(i);
-        intptr_t offset = _dyld_get_image_vmaddr_slide(i);
-        struct load_command* cmd = (struct load_command*)((char *)header + sizeof(struct mach_header));
-        if(header->magic == MH_MAGIC_64) {
-            cmd = (struct load_command*)((char *)header + sizeof(struct mach_header_64));
-        }
-        for (uint32_t j = 0; j < header->ncmds; j++) {
-            if (cmd->cmd == LC_SEGMENT) {
-                struct segment_command* seg = (struct segment_command*)cmd;
-                if (((intptr_t)item.pc >= (seg->vmaddr+offset)) &&
-                    ((intptr_t)item.pc < (seg->vmaddr+offset + seg->vmsize))) {
-                    item.local_pc = item.pc - offset;
-                    item.binary_filename = _dyld_get_image_name(i);
-                    // Resolve symlinks to a real path:
-                    char buffer[PATH_MAX];
-                    char* resolved;
-                    resolved = realpath(item.binary_filename.c_str(), buffer);
-                    if (resolved) item.binary_filename = resolved;
-                    return;
-                }
-            }
-            if (cmd->cmd == LC_SEGMENT_64) {
-                struct segment_command_64* seg = (struct segment_command_64*)cmd;
-                if ((item.pc >= (seg->vmaddr + offset)) &&
-                    (item.pc < (seg->vmaddr + offset + seg->vmsize))) {
-                    item.local_pc = item.pc - offset;
-                    item.binary_filename = _dyld_get_image_name(i);
-                    // Resolve symlinks to a real path:
-                    char buffer[PATH_MAX];
-                    char* resolved;
-                    resolved = realpath(item.binary_filename.c_str(), buffer);
-                    if (resolved) item.binary_filename = resolved;
-                    return;
-                }
-            }
-            cmd = (struct load_command*)((char*)cmd + cmd->cmdsize);
-        }
-    }
-    std::cout << "The stack address was not found in any shared library or the main program, the stack is probably corrupted. Aborting." << std::endl;
-    abort();
-#else
-    item.local_pc=0;
-#endif // HAVE_LFORTRAN_MACHO
-#endif // HAVE_LFORTRAN_LINK
-}
-
-
-
-
-/* Demangles the function name if needed (if the 'name' is coming from C, it
-   doesn't have to be demangled, if it's coming from C++, it needs to be).
-
-   Makes sure that it ends with (), which is automatic in C++, but it has to be
-   added by hand in C.
-*/
-std::string demangle_function_name(std::string name)
-{
-  std::string s;
-
-  if (name.length() == 0) {
-    s = "??";
-  } else {
-    char *d = 0;
-#if defined(HAVE_LFORTRAN_DEMANGLE)
-    int status = 0;
-    d = abi::__cxa_demangle(name.c_str(), 0, 0, &status);
-#endif
-    if (d) {
-      s = d;
-      free(d);
-    } else {
-      s = name + "()";
-    }
-  }
-
-  return s;
-}
-
-
-#ifdef HAVE_LFORTRAN_BFD
-
-/* This struct is used to pass information into process_section().
-*/
-struct line_data {
-  asymbol **symbol_table;     /* Symbol table.  */
-  uintptr_t addr;
-  std::string filename;
-  std::string function_name;
-  unsigned int line;
-  int line_found;
-};
-
-
-/* Look for an address in a section.  This is called via
-   bfd_map_over_sections over all sections in abfd.
-
-   If the correct line is found, store the result in 'data' and set
-   data->line_found, so that subsequent calls to process_section exit
-   immediately.
-*/
-void process_section(bfd *abfd, asection *section, void *_data)
-{
-  line_data *data = (line_data*)_data;
-  if (data->line_found) {
-    // If we already found the line, exit
-    return;
-  }
-  if ((section->flags & SEC_ALLOC) == 0) {
-    return;
-  }
-
-  bfd_vma section_vma = section->vma;
-  if (data->addr < section_vma) {
-    // If the addr lies above the section, exit
-    return;
-  }
-
-  bfd_size_type section_size = section->size * 8;
-  if (data->addr >= section_vma + section_size) {
-    // If the addr lies below the section, exit
-    return;
-  }
-
-  // Calculate the correct offset of our line in the section
-  bfd_vma offset = data->addr - section_vma;
-
-  // Finds the line corresponding to the offset
-
-  const char *filename=NULL, *function_name=NULL;
-  data->line_found = bfd_find_nearest_line(abfd, section, data->symbol_table,
-    offset, &filename, &function_name, &data->line);
-
-  if (filename == NULL)
-    data->filename = "";
-  else
-    data->filename = filename;
-
-  if (function_name == NULL)
-    data->function_name = "";
-  else
-    data->function_name = function_name;
-}
-
-
-/* Loads the symbol table into 'data->symbol_table'.  */
-int load_symbol_table(bfd *abfd, line_data *data)
-{
-  if ((bfd_get_file_flags(abfd) & HAS_SYMS) == 0)
-    // If we don't have any symbols, return
-    return 0;
-
-  void **symbol_table_ptr = reinterpret_cast<void **>(&data->symbol_table);
-  long n_symbols;
-  unsigned int symbol_size;
-  n_symbols = bfd_read_minisymbols(abfd, false, symbol_table_ptr, &symbol_size);
-  if (n_symbols == 0) {
-    // If the bfd_read_minisymbols() already allocated the table, we need
-    // to free it first:
-    if (data->symbol_table != NULL)
-      free(data->symbol_table);
-    // dynamic
-    n_symbols = bfd_read_minisymbols(abfd, true, symbol_table_ptr, &symbol_size);
-  }
-
-  if (n_symbols < 0) {
-    // bfd_read_minisymbols() failed
-    return 1;
-  }
-
-  return 0;
-}
-
-void get_symbol_info_bfd(std::string binary_filename, uintptr_t addr,
-  std::string &source_filename, std::string &function_name,
-  int &line_number)
-{
-  line_data data;
-  data.addr = addr;
-  data.line_found = 0;
-  // Initialize 'abfd' and do some sanity checks
-  bfd *abfd;
-  abfd = bfd_openr(binary_filename.c_str(), NULL);
-  if (abfd == NULL) {
-    std::cout << "Cannot open the binary file '" + binary_filename + "'\n";
-    abort();
-  }
-  if (bfd_check_format(abfd, bfd_archive)) {
-#ifdef __APPLE__
-    // On macOS this happens for a dynamic library such as
-    // /usr/lib/system/libsystem_c.dylib
-    // We simply exit, which will skip gathering symbol information for this
-    // file.
-    return;
-#else
-    // On Linux this should work for any file, so we generate an error
-    std::cout << "Cannot get addresses from the archive '" + binary_filename + "'\n";
-    abort();
-#endif
-  }
-  char **matching;
-  if (!bfd_check_format_matches(abfd, bfd_object, &matching)) {
-    std::cout << "Unknown format of the binary file '" + binary_filename + "'\n";
-    abort();
-  }
-  data.symbol_table = NULL;
-  // This allocates the symbol_table:
-  if (load_symbol_table(abfd, &data) == 1) {
-    std::cout << "Failed to load the symbol table from '" + binary_filename + "'\n";
-    abort();
-  }
-  // Loops over all sections and try to find the line
-  bfd_map_over_sections(abfd, process_section, &data);
-  // Deallocates the symbol table
-  if (data.symbol_table != NULL) free(data.symbol_table);
-  bfd_close(abfd);
-
-  if (data.line_found) {
-    std::string name = demangle_function_name(data.function_name);
-    function_name = name;
-    if (data.filename.length() > 0) {
-      source_filename = data.filename;
-      line_number = data.line;
-    }
-  }
-}
-
-#endif // HAVE_LFORTRAN_BFD
-
-
-
-/* Return if given char is whitespace or not. */
-bool is_whitespace_char(const char c)
-{
-  return c == ' ' || c == '\t';
-}
-
-
-/* Removes the leading whitespace from a string and returns the new
- * string.
- */
-std::string remove_leading_whitespace(const std::string &str)
-{
-  if (str.length() && is_whitespace_char(str[0])) {
-    int first_nonwhitespace_index = 0;
-    for (int i = 0; i < static_cast<int>(str.length()); ++i) {
-      if (!is_whitespace_char(str[i])) {
-        first_nonwhitespace_index = i;
-        break;
-      }
-    }
-    return str.substr(first_nonwhitespace_index);
-  }
-  return str;
-}
-
-
-/* Reads the 'line_number'th line from the file filename. */
-std::string read_line_from_file(std::string filename, unsigned int line_number)
-{
-  std::ifstream in(filename.c_str());
-  if (!in.is_open()) {
-    return "";
-  }
-  if (line_number == 0) {
-    return "Line number must be positive";
-  }
-  unsigned int n = 0;
-  std::string line;
-  while (n < line_number) {
-    if (in.eof())
-      return "Line not found";
-    getline(in, line);
-    n += 1; // loop update
-  }
-  return line;
-}
-
-
-
-
-/* Returns a string of 2 lines for the function with address 'addr' in the file
-   'file_name'.
-
-   Example:
-
-   File "/home/ondrej/repos/rcp/src/Teuchos_RCP.hpp", line 428, in Teuchos::RCP<A>::assert_not_null() const
-   throw_null_ptr_error(typeName(*this));
-*/
-std::string addr2str(const StacktraceItem &i)
-{
-  std::ostringstream s;
-  // Do the printing --- print as much information as we were able to
-  // find out
-  if (i.function_name == "") {
-    // If we didn't find the line, at least print the address itself
-    if (i.local_pc == 0) {
-        s << color(style::dim);
-        s << "  File unknown, absolute address: " << (void*) i.pc;
-        s << color(style::reset);
-    } else {
-        if (i.source_filename == "") {
-            s << color(style::dim);
-            s << "  Binary file \"";
-            s << color(style::reset);
-            s << color(style::bold) << color(fg::magenta);
-            s << i.binary_filename;
-            s << color(fg::reset) << color(style::reset);
-            s << color(style::dim);
-            s << "\", local address: " << (void*) i.local_pc;
-            s << color(style::reset);
-        } else {
-          // Nicely format the filename + line
-          s << color(style::dim) << "  File \"" << color(style::reset)
-            << color(style::bold) << color(fg::magenta) << i.source_filename
-            << color(fg::reset) << color(style::reset)
-            << color(style::dim) << "\", line " << i.line_number
-            << color(style::reset);
-          const std::string line_text = remove_leading_whitespace(
-            read_line_from_file(i.source_filename, i.line_number));
-          if (line_text != "") {
-            s << "\n    " << line_text;
-          }
-        }
-    }
-  } else if (i.source_filename == "") {
-      // The file is unknown (and data.line == 0 in this case), so the
-      // only meaningful thing to print is the function name:
-      s << color(style::dim) << "  Binary file \"" + color(style::reset)
-        << color(style::bold) << color(fg::magenta) << i.binary_filename
-        << color(fg::reset) << color(style::reset)
-        << color(style::dim) << "\", in " << i.function_name
-        << color(style::reset);
-  } else {
-      // Nicely format the filename + function name + line
-      s << color(style::dim) << "  File \"" << color(style::reset)
-        << color(style::bold) << color(fg::magenta) << i.source_filename
-        << color(fg::reset) << color(style::reset)
-        << color(style::dim) << "\", line " << i.line_number
-        << ", in " << i.function_name << color(style::reset);
-      const std::string line_text = remove_leading_whitespace(
-        read_line_from_file(i.source_filename, i.line_number));
-      if (line_text != "") {
-        s << "\n    " << line_text;
-      }
-  }
-  s << "\n";
-  return s.str();
-}
-
-
-/*
-  Returns a std::string with the stacktrace corresponding to the
-  list of addresses (of functions on the stack) in `d`.
-*/
-std::string stacktrace2str(const std::vector<StacktraceItem> &d, int skip)
-{
-  std::string full_stacktrace_str("Traceback (most recent call last):\n");
-
-  // Loop over the stack
-  for (int i=d.size()-1; i >= skip; i--) {
-    full_stacktrace_str += addr2str(d[i]);
-  }
-
-  return full_stacktrace_str;
-}
-
-
-void loc_segfault_callback_print_stack(int /* sig_num */)
-{
-  std::cerr << get_stacktrace(3);
-  std::cerr << "Segfault: Signal SIGSEGV (segmentation fault) received\n";
-  exit(1);
-}
-
-
-void loc_abort_callback_print_stack(int /* sig_num */)
-{
-  std::cerr << get_stacktrace(3);
-  std::cerr << "Abort: Signal SIGABRT (abort) received\n\n";
-}
-
-void print_stack_on_segfault()
-{
-  signal(SIGSEGV, loc_segfault_callback_print_stack);
-  signal(SIGABRT, loc_abort_callback_print_stack);
-}
-
-std::string get_stacktrace(int skip)
-{
-  std::vector<StacktraceItem> d = get_stacktrace_addresses();
-  get_local_addresses(d);
-  get_local_info(d);
-  return stacktrace2str(d, skip);
-}
-
-
-void show_stacktrace()
-{
-  std::cout << get_stacktrace(3);
-}
-
-
-std::vector<StacktraceItem> get_stacktrace_addresses()
-{
-  std::vector<StacktraceItem> d;
-#ifdef HAVE_LFORTRAN_UNWIND
-  _Unwind_Backtrace(unwind_callback, &d);
-#endif
-  return d;
-}
-
-void get_local_addresses(std::vector<StacktraceItem> &d)
-{
-  for (size_t i=0; i < d.size(); i++) {
-    get_local_address(d[i]);
-  }
-}
-
-void address_to_line_number(const std::vector<std::string> &filenames,
-          const std::vector<uint64_t> &addresses,
-          uintptr_t address,
-          std::string &filename,
-          int &line_number) {
-    uintptr_t actual_address = address-16;
-    int n = addresses.size() / 3;
-    // Bisection-Search
-    int start_ind = 0, end_ind = n-1;
-    if (addresses[3*start_ind] > actual_address) {
-      line_number = addresses[3*start_ind+1];
-      filename = filenames[addresses[3*start_ind+2]];
-      return;
-    }
-    if (addresses[3*end_ind] < actual_address) {
-      line_number = -1;
-      filename = "";
-      return;
-    }
-    while (start_ind+1 < end_ind) {
-      int mid = (start_ind + end_ind)/2;
-      if (addresses[3*mid] > actual_address) {
-        end_ind = mid;
-      } else {
-        start_ind = mid;
-      }
-    }
-    line_number = addresses[3*end_ind+1];
-    filename = filenames[addresses[3*end_ind+2]];
-}
-
-
-void get_local_info_dwarfdump(std::vector<StacktraceItem> &d)
-{
-  std::vector<std::string> filenames;
-  std::vector<uint64_t> addresses;
-  {
-    std::string filename = binary_executable_path + ".dSYM/lines.txt";
-    std::ifstream in;
-    in.open(filename);
-    if (!in.is_open()) {
-        return;
-    }
-    std::string s;
-    std::getline(in, s);
-    int n = std::stoi(s);
-    for (int i=0; i < n; i++) {
-      std::getline(in, s);
-      filenames.push_back(s);
-    }
-    std::getline(in, s);
-    n = std::stoi(s);
-
-    filename = binary_executable_path + ".dSYM/lines.dat";
-    std::ifstream in2;
-    in2.open(filename, std::ios::binary);
-    addresses.resize(3*n);
-    in2.read((char*)&addresses[0], 3*n*sizeof(uint64_t));
-  }
-  for (size_t i=0; i < d.size(); i++) {
-    address_to_line_number(filenames, addresses, d[i].local_pc,
-      d[i].source_filename, d[i].line_number);
-  }
-}
-
-void get_local_info(std::vector<StacktraceItem> &d)
-{
-#ifdef HAVE_LFORTRAN_DWARFDUMP
-  get_local_info_dwarfdump(d);
-#else
-#  ifdef HAVE_LFORTRAN_BFD
-  bfd_init();
-#  endif
-  for (size_t i=0; i < d.size(); i++) {
-#  ifdef HAVE_LFORTRAN_BFD
-    get_symbol_info_bfd(d[i].binary_filename, d[i].local_pc,
-      d[i].source_filename, d[i].function_name, d[i].line_number);
-#  endif
-  }
-#endif
-}
-
-std::string error_stacktrace(const std::vector<StacktraceItem> &stacktrace)
-{
-    std::vector<StacktraceItem> d = stacktrace;
-    get_local_addresses(d);
-    get_local_info(d);
-    return stacktrace2str(d, stacktrace_depth-1);
-}
-
-} // namespace LCompilers
diff --git a/src/libasr/stacktrace.h b/src/libasr/stacktrace.h
deleted file mode 100644
index b90edfe70f..0000000000
--- a/src/libasr/stacktrace.h
+++ /dev/null
@@ -1,68 +0,0 @@
-#ifndef LFORTRAN_STACKTRACE_H
-#define LFORTRAN_STACKTRACE_H
-
-#include <string>
-#include <vector>
-
-namespace LCompilers {
-
-/* Returns the current stacktrace as a string.
- *
- * impl_stacktrace_depth ... The stacktrace depth to remove from the stacktrace
- *     printout to avoid showing users implementation functions in the
- *     stacktrace.
- */
-std::string get_stacktrace(int impl_stacktrace_depth=0);
-
-// Prints the current stacktrace to stdout.
-void show_stacktrace();
-
-//  Prints the current stacktrace to stdout on segfault.
-void print_stack_on_segfault();
-
-// Path to the binary executable
-extern std::string binary_executable_path;
-
-struct StacktraceItem
-{
-  // Always found
-  uintptr_t pc;
-
-  // The following two are either both found, or not found
-  uintptr_t local_pc=0; // 0 if not found
-  std::string binary_filename; // "" if not found
-
-  // This can be found or not
-  std::string function_name; // "" if not found
-
-  // The following two are either both found, or not found
-  std::string source_filename; // "" if not found
-  int line_number=-1; // -1 if not found
-};
-
-// Returns the stacktrace, fills in the `pc` member
-std::vector<StacktraceItem> get_stacktrace_addresses();
-
-// Fills in the `local_pc` and `binary_filename` members
-void get_local_addresses(std::vector<StacktraceItem> &d);
-
-// Fills in the `function_name` if available, and if so, also fills in
-// `source_filename` and `line_number` if available
-void get_local_info(std::vector<StacktraceItem> &d);
-
-// Converts the information stored in `d` into a string
-std::string stacktrace2str(const std::vector<StacktraceItem> &d,
-    int skip);
-
-// Returns line number information from address
-void address_to_line_number(const std::vector<std::string> &filenames,
-          const std::vector<uint64_t> &addresses,
-          uintptr_t address,
-          std::string &filename,
-          int &line_number);
-
-std::string error_stacktrace(const std::vector<StacktraceItem> &stacktrace);
-
-} // namespace LCompilers
-
-#endif // LFORTRAN_STACKTRACE_H
diff --git a/src/libasr/string_utils.cpp b/src/libasr/string_utils.cpp
deleted file mode 100644
index 3f609ee115..0000000000
--- a/src/libasr/string_utils.cpp
+++ /dev/null
@@ -1,133 +0,0 @@
-#include <cctype>
-#include <regex>
-#include <algorithm>
-#include <string>
-#include <iostream>
-#include <fstream>
-
-#include <libasr/string_utils.h>
-#include <libasr/containers.h>
-
-namespace LCompilers {
-
-
-bool startswith(const std::string &s, const std::string &e)
-{
-    if (s.size() < e.size()) return false;
-    return s.substr(0, e.size()) == e;
-}
-
-bool endswith(const std::string &s, const std::string &e)
-{
-    if (s.size() < e.size()) return false;
-    return s.substr(s.size()-e.size()) == e;
-}
-
-std::string to_lower(const std::string &s) {
-    std::string res = s;
-    std::transform(res.begin(), res.end(), res.begin(),
-        [](unsigned char c){ return std::tolower(c); });
-    return res;
-}
-
-char *s2c(Allocator &al, const std::string &s) {
-    Str x; x.from_str_view(s);
-    return x.c_str(al);
-}
-
-std::vector<std::string> split(const std::string &s)
-{
-    std::vector<std::string> result;
-    std::string split_chars = " \n";
-    size_t old_pos = 0;
-    size_t new_pos;
-    while ((new_pos = s.find_first_of(split_chars, old_pos)) != std::string::npos) {
-        std::string substr = s.substr(old_pos, new_pos-old_pos);
-        if (substr.size() > 0) result.push_back(substr);
-        old_pos = new_pos+1;
-    }
-    result.push_back(s.substr(old_pos));
-    return result;
-}
-
-std::string join(const std::string j, const std::vector<std::string> &l)
-{
-    std::string result;
-    for (size_t i=0; i<l.size(); i++) {
-        result += l[i];
-        if (i < l.size()-1) result += j;
-    }
-    return result;
-}
-
-std::vector<std::string> slice(const std::vector<std::string>& v, int start, int end)
-{
-    int oldlen = v.size();
-    int newlen;
-
-    if ((end == -1) || (end >= oldlen)) {
-        newlen = oldlen-start;
-    } else {
-        newlen = end-start;
-    }
-
-    std::vector<std::string> nv(newlen);
-
-    for (int i=0; i<newlen; i++) {
-        nv[i] = v[start+i];
-    }
-    return nv;
-}
-
-std::string replace(const std::string &s,
-    const std::string &regex, const std::string &replace)
-{
-    return std::regex_replace(s, std::regex(regex), replace);
-}
-
-std::string read_file(const std::string &filename)
-{
-    std::ifstream ifs(filename.c_str(), std::ios::in | std::ios::binary
-            | std::ios::ate);
-
-    std::ifstream::pos_type filesize = ifs.tellg();
-    if (filesize < 0) return std::string();
-
-    ifs.seekg(0, std::ios::beg);
-
-    std::vector<char> bytes(filesize);
-    ifs.read(&bytes[0], filesize);
-
-    return std::string(&bytes[0], filesize);
-}
-
-std::string parent_path(const std::string &path) {
-    int pos = path.size()-1;
-    while (pos >= 0 && path[pos] != '/') pos--;
-    if (pos == -1) {
-        return "";
-    } else {
-        return path.substr(0, pos);
-    }
-}
-
-bool is_relative_path(const std::string &path) {
-    return !startswith(path, "/");
-}
-
-std::string join_paths(const std::vector<std::string> &paths) {
-    std::string p;
-    std::string delim = "/";
-    for (auto &path : paths) {
-        if (path.size() > 0) {
-            if (p.size() > 0 && !endswith(p, delim)) {
-                p.append(delim);
-            }
-            p.append(path);
-        }
-    }
-    return p;
-}
-
-
-} // namespace LCompilers
diff --git a/src/libasr/string_utils.h b/src/libasr/string_utils.h
deleted file mode 100644
index 44eac01151..0000000000
--- a/src/libasr/string_utils.h
+++ /dev/null
@@ -1,38 +0,0 @@
-#ifndef LFORTRAN_STRING_UTILS_H
-#define LFORTRAN_STRING_UTILS_H
-
-#include <string>
-#include <vector>
-#include <cctype>
-
-#include <libasr/alloc.h>
-
-namespace LCompilers {
-
-
-bool startswith(const std::string &s, const std::string &e);
-bool endswith(const std::string &s, const std::string &e);
-std::string to_lower(const std::string &s);
-std::vector<std::string> split(const std::string &s);
-std::string join(const std::string j, const std::vector<std::string> &v);
-std::vector<std::string> slice(const std::vector<std::string> &v,
-        int start=0, int end=-1);
-char *s2c(Allocator &al, const std::string &s);
-
-// Replaces all occurrences of `regex` (a regular expression, must escape
-// special characters) with `replace`
-std::string replace(const std::string &s,
-    const std::string &regex, const std::string &replace);
-
-std::string read_file(const std::string &filename);
-
-// Returns the parent path to the given path
-std::string parent_path(const std::string &path);
-// Returns true if the path is relative
-bool is_relative_path(const std::string &path);
-// Joins paths (paths can be empty)
-std::string join_paths(const std::vector<std::string> &paths);
-
-} // namespace LCompilers
-
-#endif // LFORTRAN_STRING_UTILS_H
diff --git a/src/libasr/utils.h b/src/libasr/utils.h
deleted file mode 100644
index 3cad362ee7..0000000000
--- a/src/libasr/utils.h
+++ /dev/null
@@ -1,85 +0,0 @@
-#ifndef LIBASR_UTILS_H
-#define LIBASR_UTILS_H
-
-#include <string>
-#include <vector>
-#include <filesystem>
-#include <libasr/containers.h>
-
-namespace LCompilers {
-
-enum Platform {
-    Linux,
-    macOS_Intel,
-    macOS_ARM,
-    Windows,
-    FreeBSD,
-    OpenBSD,
-};
-
-Platform get_platform();
-
-struct CompilerOptions {
-    std::filesystem::path mod_files_dir;
-    std::vector<std::filesystem::path> include_dirs;
-
-    // TODO: Convert to std::filesystem::path (also change find_and_load_module())
-    std::string runtime_library_dir;
-
-    bool fixed_form = false;
-    bool c_preprocessor = false;
-    std::vector<std::string> c_preprocessor_defines;
-    bool prescan = true;
-    bool disable_main = false;
-    bool symtab_only = false;
-    bool show_stacktrace = false;
-    bool use_colors = true;
-    bool indent = false;
-    bool json = false;
-    bool tree = false;
-    bool fast = false;
-    bool openmp = false;
-    bool generate_object_code = false;
-    bool no_warnings = false;
-    bool no_error_banner = false;
-    bool enable_bounds_checking = false;
-    std::string error_format = "human";
-    bool new_parser = false;
-    bool implicit_typing = false;
-    bool implicit_interface = false;
-    bool rtlib = false;
-    std::string target = "";
-    std::string arg_o = "";
-    bool emit_debug_info = false;
-    bool emit_debug_line_column = false;
-    std::string import_path = "";
-    Platform platform;
-
-    CompilerOptions () : platform{get_platform()} {};
-};
-
-bool read_file(const std::string &filename, std::string &text);
-bool present(Vec<char*> &v, const char* name);
-bool present(char** const v, size_t n, const std::string name);
-int initialize();
-
-} // namespace LCompilers
-
-namespace LCompilers {
-
-    struct PassOptions {
-        std::filesystem::path mod_files_dir;
-        std::vector<std::filesystem::path> include_dirs;
-
-        std::string run_fun; // for global_stmts pass
-        // TODO: Convert to std::filesystem::path (also change find_and_load_module())
-        std::string runtime_library_dir;
-        bool always_run = false; // for unused_functions pass
-        bool inline_external_symbol_calls = true; // for inline_function_calls pass
-        int64_t unroll_factor = 32; // for loop_unroll pass
-        bool fast = false; // is fast flag enabled.
-    };
-
-}
-
-#endif // LIBASR_UTILS_H
diff --git a/src/libasr/utils2.cpp b/src/libasr/utils2.cpp
deleted file mode 100644
index 2c4f52ac80..0000000000
--- a/src/libasr/utils2.cpp
+++ /dev/null
@@ -1,92 +0,0 @@
-#ifdef _WIN32
-#define NOMINMAX
-#include <windows.h>
-#endif
-
-#include <fstream>
-
-#include <libasr/exception.h>
-#include <libasr/utils.h>
-#include <libasr/string_utils.h>
-
-namespace LCompilers {
-
-bool read_file(const std::string &filename, std::string &text)
-{
-    std::ifstream ifs(filename.c_str(), std::ios::in | std::ios::binary
-            | std::ios::ate);
-
-    std::ifstream::pos_type filesize = ifs.tellg();
-    if (filesize < 0) return false;
-
-    ifs.seekg(0, std::ios::beg);
-
-    std::vector<char> bytes(filesize);
-    ifs.read(&bytes[0], filesize);
-
-    text = std::string(&bytes[0], filesize);
-    return true;
-}
-
-bool present(Vec<char*> &v, const char* name) {
-    for (auto &a : v) {
-        if (std::string(a) == std::string(name)) {
-            return true;
-        }
-    }
-    return false;
-}
-
-bool present(char** const v, size_t n, const std::string name) {
-    for (size_t i = 0; i < n; i++) {
-        if (std::string(v[i]) == name) {
-            return true;
-        }
-    }
-    return false;
-}
-
-Platform get_platform()
-{
-#if defined(_WIN32)
-    return Platform::Windows;
-#elif defined(__APPLE__)
-#    ifdef __aarch64__
-    return Platform::macOS_ARM;
-#    else
-    return Platform::macOS_Intel;
-#    endif
-#elif defined(__FreeBSD__)
-    return Platform::FreeBSD;
-#elif defined(__OpenBSD__)
-    return Platform::OpenBSD;
-#else
-    return Platform::Linux;
-#endif
-}
-
-// Platform-specific initialization
-// On Windows, enable colors in terminal. On other systems, do nothing.
-// Return value: 0 on success, negative number on failure.
-int initialize()
-{
-#ifdef _WIN32
-    HANDLE h_stdout = GetStdHandle(STD_OUTPUT_HANDLE);
-    if (h_stdout == INVALID_HANDLE_VALUE)
-        return -1;
-
-    DWORD mode;
-    if (! GetConsoleMode(h_stdout, &mode))
-        return -2;
-
-    mode |= ENABLE_VIRTUAL_TERMINAL_PROCESSING;
-    if (! SetConsoleMode(h_stdout, mode))
-        return -3;
-
-    return 0;
-#else
-    return 0;
-#endif
-}
-
-}
diff --git a/src/libasr/wasm_instructions.txt b/src/libasr/wasm_instructions.txt
deleted file mode 100644
index f75aa311d6..0000000000
--- a/src/libasr/wasm_instructions.txt
+++ /dev/null
@@ -1,437 +0,0 @@
-0x40 ⇒ emtpy_block_type
-0x00 ⇒ unreachable
-0x01 ⇒ nop
--- 0x02 bt:blocktype (in:instr)* 0x0B ⇒ block bt in* end
-0x03 ⇒ loop
-0x04 ⇒ if
-0x05 ⇒ else
-0x0C u32:labelidx:𝑙 ⇒ br 𝑙
-0x0D u32:labelidx:𝑙 ⇒ br_if 𝑙
--- 0x0E 𝑙*:vec(labelidx) 𝑙𝑁:labelidx ⇒ br_table 𝑙* 𝑙𝑁
-0x0F ⇒ return
-0x10 u32:funcidx:𝑥 ⇒ call 𝑥
-0x11 u32:typeidx:𝑥 u32:tableidx:𝑦 ⇒ call_indirect 𝑥 𝑦
-0xD0 u8:reftype:𝑡 ⇒ ref.null 𝑡
-0xD1 ⇒ ref.is_null
-0xD2 u32:funcidx:𝑥 ⇒ ref.func 𝑥
-0x1A ⇒ drop
-0x1B ⇒ select
--- 0x1C 𝑡*:vec(valtype) ⇒ select 𝑡*
-0x20 u32:localidx:𝑥 ⇒ local.get 𝑥
-0x21 u32:localidx:𝑥 ⇒ local.set 𝑥
-0x22 u32:localidx:𝑥 ⇒ local.tee 𝑥
-0x23 u32:globalidx:𝑥 ⇒ global.get 𝑥
-0x24 u32:globalidx:𝑥 ⇒ global.set 𝑥
-0x25 u32:tableidx:𝑥 ⇒ table.get 𝑥
-0x26 u32:tableidx:𝑥 ⇒ table.set 𝑥
-0xFC u32:num:12 u32:elemidx:𝑥 u32:tableidx:𝑦 ⇒ table.init 𝑥 𝑦
-0xFC u32:num:13 u32:elemidx:𝑥 ⇒ elem.drop 𝑥
-0xFC u32:num:14 u32:des_tableidx:𝑥 u32:src_tableidx:𝑦 ⇒ table.copy 𝑥 𝑦
-0xFC u32:num:15 u32:tableidx:𝑥 ⇒ table.grow 𝑥
-0xFC u32:num:16 u32:tableidx:𝑥 ⇒ table.size 𝑥
-0xFC u32:num:17 u32:tableidx:𝑥 ⇒ table.fill 𝑥
-0x28 u32:mem_align:𝒶 u32:mem_offset:𝑜 ⇒ i32.load 𝑚
-0x29 u32:mem_align:𝒶 u32:mem_offset:𝑜 ⇒ i64.load 𝑚
-0x2A u32:mem_align:𝒶 u32:mem_offset:𝑜 ⇒ f32.load 𝑚
-0x2B u32:mem_align:𝒶 u32:mem_offset:𝑜 ⇒ f64.load 𝑚
-0x2C u32:mem_align:𝒶 u32:mem_offset:𝑜 ⇒ i32.load8_s 𝑚
-0x2D u32:mem_align:𝒶 u32:mem_offset:𝑜 ⇒ i32.load8_u 𝑚
-0x2E u32:mem_align:𝒶 u32:mem_offset:𝑜 ⇒ i32.load16_s 𝑚
-0x2F u32:mem_align:𝒶 u32:mem_offset:𝑜 ⇒ i32.load16_u 𝑚
-0x30 u32:mem_align:𝒶 u32:mem_offset:𝑜 ⇒ i64.load8_s 𝑚
-0x31 u32:mem_align:𝒶 u32:mem_offset:𝑜 ⇒ i64.load8_u 𝑚
-0x32 u32:mem_align:𝒶 u32:mem_offset:𝑜 ⇒ i64.load16_s 𝑚
-0x33 u32:mem_align:𝒶 u32:mem_offset:𝑜 ⇒ i64.load16_u 𝑚
-0x34 u32:mem_align:𝒶 u32:mem_offset:𝑜 ⇒ i64.load32_s 𝑚
-0x35 u32:mem_align:𝒶 u32:mem_offset:𝑜 ⇒ i64.load32_u 𝑚
-0x36 u32:mem_align:𝒶 u32:mem_offset:𝑜 ⇒ i32.store 𝑚
-0x37 u32:mem_align:𝒶 u32:mem_offset:𝑜 ⇒ i64.store 𝑚
-0x38 u32:mem_align:𝒶 u32:mem_offset:𝑜 ⇒ f32.store 𝑚
-0x39 u32:mem_align:𝒶 u32:mem_offset:𝑜 ⇒ f64.store 𝑚
-0x3A u32:mem_align:𝒶 u32:mem_offset:𝑜 ⇒ i32.store8 𝑚
-0x3B u32:mem_align:𝒶 u32:mem_offset:𝑜 ⇒ i32.store16 𝑚
-0x3C u32:mem_align:𝒶 u32:mem_offset:𝑜 ⇒ i64.store8 𝑚
-0x3D u32:mem_align:𝒶 u32:mem_offset:𝑜 ⇒ i64.store16 𝑚
-0x3E u32:mem_align:𝒶 u32:mem_offset:𝑜 ⇒ i64.store32 𝑚
--- 0x3F u8:temp_byte:0x00 ⇒ memory.size
--- 0x40 u8:temp_byte:0x00 ⇒ memory.grow
--- 0xFC u32:num:8 u32:dataidx:𝑥 u8:temp_byte:0x00 ⇒ memory.init 𝑥
-0xFC u32:num:9 u32:dataidx:𝑥 ⇒ data.drop 𝑥
--- 0xFC u32:num:10 u8:temp_byte1:0x00 u8:temp_byte2:0x00 ⇒ memory.copy
--- 0xFC u32:num:11 u8:temp_byte:0x00 ⇒ memory.fill
-0x41 i32:n:𝑛 ⇒ i32.const 𝑛
-0x42 i64:n:𝑛 ⇒ i64.const 𝑛
-0x43 f32:z:𝑧 ⇒ f32.const 𝑧
-0x44 f64:z:𝑧 ⇒ f64.const 𝑧
-0x45 ⇒ i32.eqz
-0x46 ⇒ i32.eq
-0x47 ⇒ i32.ne
-0x48 ⇒ i32.lt_s
-0x49 ⇒ i32.lt_u
-0x4A ⇒ i32.gt_s
-0x4B ⇒ i32.gt_u
-0x4C ⇒ i32.le_s
-0x4D ⇒ i32.le_u
-0x4E ⇒ i32.ge_s
-0x4F ⇒ i32.ge_u
-0x50 ⇒ i64.eqz
-0x51 ⇒ i64.eq
-0x52 ⇒ i64.ne
-0x53 ⇒ i64.lt_s
-0x54 ⇒ i64.lt_u
-0x55 ⇒ i64.gt_s
-0x56 ⇒ i64.gt_u
-0x57 ⇒ i64.le_s
-0x58 ⇒ i64.le_u
-0x59 ⇒ i64.ge_s
-0x5A ⇒ i64.ge_u
-0x5B ⇒ f32.eq
-0x5C ⇒ f32.ne
-0x5D ⇒ f32.lt
-0x5E ⇒ f32.gt
-0x5F ⇒ f32.le
-0x60 ⇒ f32.ge
-0x61 ⇒ f64.eq
-0x62 ⇒ f64.ne
-0x63 ⇒ f64.lt
-0x64 ⇒ f64.gt
-0x65 ⇒ f64.le
-0x66 ⇒ f64.ge
-0x67 ⇒ i32.clz
-0x68 ⇒ i32.ctz
-0x69 ⇒ i32.popcnt
-0x6A ⇒ i32.add
-0x6B ⇒ i32.sub
-0x6C ⇒ i32.mul
-0x6D ⇒ i32.div_s
-0x6E ⇒ i32.div_u
-0x6F ⇒ i32.rem_s
-0x70 ⇒ i32.rem_u
-0x71 ⇒ i32.and
-0x72 ⇒ i32.or
-0x73 ⇒ i32.xor
-0x74 ⇒ i32.shl
-0x75 ⇒ i32.shr_s
-0x76 ⇒ i32.shr_u
-0x77 ⇒ i32.rotl
-0x78 ⇒ i32.rotr
-0x79 ⇒ i64.clz
-0x7A ⇒ i64.ctz
-0x7B ⇒ i64.popcnt
-0x7C ⇒ i64.add
-0x7D ⇒ i64.sub
-0x7E ⇒ i64.mul
-0x7F ⇒ i64.div_s
-0x80 ⇒ i64.div_u
-0x81 ⇒ i64.rem_s
-0x82 ⇒ i64.rem_u
-0x83 ⇒ i64.and
-0x84 ⇒ i64.or
-0x85 ⇒ i64.xor
-0x86 ⇒ i64.shl
-0x87 ⇒ i64.shr_s
-0x88 ⇒ i64.shr_u
-0x89 ⇒ i64.rotl
-0x8A ⇒ i64.rotr
-0x8B ⇒ f32.abs
-0x8C ⇒ f32.neg
-0x8D ⇒ f32.ceil
-0x8E ⇒ f32.floor
-0x8F ⇒ f32.trunc
-0x90 ⇒ f32.nearest
-0x91 ⇒ f32.sqrt
-0x92 ⇒ f32.add
-0x93 ⇒ f32.sub
-0x94 ⇒ f32.mul
-0x95 ⇒ f32.div
-0x96 ⇒ f32.min
-0x97 ⇒ f32.max
-0x98 ⇒ f32.copysign
-0x99 ⇒ f64.abs
-0x9A ⇒ f64.neg
-0x9B ⇒ f64.ceil
-0x9C ⇒ f64.floor
-0x9D ⇒ f64.trunc
-0x9E ⇒ f64.nearest
-0x9F ⇒ f64.sqrt
-0xA0 ⇒ f64.add
-0xA1 ⇒ f64.sub
-0xA2 ⇒ f64.mul
-0xA3 ⇒ f64.div
-0xA4 ⇒ f64.min
-0xA5 ⇒ f64.max
-0xA6 ⇒ f64.copysign
-0xA7 ⇒ i32.wrap_i64
-0xA8 ⇒ i32.trunc_f32_s
-0xA9 ⇒ i32.trunc_f32_u
-0xAA ⇒ i32.trunc_f64_s
-0xAB ⇒ i32.trunc_f64_u
-0xAC ⇒ i64.extend_i32_s
-0xAD ⇒ i64.extend_i32_u
-0xAE ⇒ i64.trunc_f32_s
-0xAF ⇒ i64.trunc_f32_u
-0xB0 ⇒ i64.trunc_f64_s
-0xB1 ⇒ i64.trunc_f64_u
-0xB2 ⇒ f32.convert_i32_s
-0xB3 ⇒ f32.convert_i32_u
-0xB4 ⇒ f32.convert_i64_s
-0xB5 ⇒ f32.convert_i64_u
-0xB6 ⇒ f32.demote_f64
-0xB7 ⇒ f64.convert_i32_s
-0xB8 ⇒ f64.convert_i32_u
-0xB9 ⇒ f64.convert_i64_s
-0xBA ⇒ f64.convert_i64_u
-0xBB ⇒ f64.promote_f32
-0xBC ⇒ i32.reinterpret_f32
-0xBD ⇒ i64.reinterpret_f64
-0xBE ⇒ f32.reinterpret_i32
-0xBF ⇒ f64.reinterpret_i64
-0xC0 ⇒ i32.extend8_s
-0xC1 ⇒ i32.extend16_s
-0xC2 ⇒ i64.extend8_s
-0xC3 ⇒ i64.extend16_s
-0xC4 ⇒ i64.extend32_s
-0xFC u32:num:0 ⇒ i32.trunc_sat_f32_s
-0xFC u32:num:1 ⇒ i32.trunc_sat_f32_u
-0xFC u32:num:2 ⇒ i32.trunc_sat_f64_s
-0xFC u32:num:3 ⇒ i32.trunc_sat_f64_u
-0xFC u32:num:4 ⇒ i64.trunc_sat_f32_s
-0xFC u32:num:5 ⇒ i64.trunc_sat_f32_u
-0xFC u32:num:6 ⇒ i64.trunc_sat_f64_s
-0xFC u32:num:7 ⇒ i64.trunc_sat_f64_u
-0xFD u32:num:0 u32:mem_align:𝒶 u32:mem_offset:𝑜 ⇒ v128.load 𝑚
-0xFD u32:num:1 u32:mem_align:𝒶 u32:mem_offset:𝑜 ⇒ v128.load8x8_s 𝑚
-0xFD u32:num:2 u32:mem_align:𝒶 u32:mem_offset:𝑜 ⇒ v128.load8x8_u 𝑚
-0xFD u32:num:3 u32:mem_align:𝒶 u32:mem_offset:𝑜 ⇒ v128.load16x4_s 𝑚
-0xFD u32:num:4 u32:mem_align:𝒶 u32:mem_offset:𝑜 ⇒ v128.load16x4_u 𝑚
-0xFD u32:num:5 u32:mem_align:𝒶 u32:mem_offset:𝑜 ⇒ v128.load32x2_s 𝑚
-0xFD u32:num:6 u32:mem_align:𝒶 u32:mem_offset:𝑜 ⇒ v128.load32x2_u 𝑚
-0xFD u32:num:7 u32:mem_align:𝒶 u32:mem_offset:𝑜 ⇒ v128.load8_splat 𝑚
-0xFD u32:num:8 u32:mem_align:𝒶 u32:mem_offset:𝑜 ⇒ v128.load16_splat 𝑚
-0xFD u32:num:9 u32:mem_align:𝒶 u32:mem_offset:𝑜 ⇒ v128.load32_splat 𝑚
-0xFD u32:num:10 u32:mem_align:𝒶 u32:mem_offset:𝑜 ⇒ v128.load64_splat 𝑚
-0xFD u32:num:92 u32:mem_align:𝒶 u32:mem_offset:𝑜 ⇒ v128.load32_zero 𝑚
-0xFD u32:num:93 u32:mem_align:𝒶 u32:mem_offset:𝑜 ⇒ v128.load64_zero 𝑚
-0xFD u32:num:11 u32:mem_align:𝒶 u32:mem_offset:𝑜 ⇒ v128.store 𝑚
-0xFD u32:num:84 u32:mem_align:𝒶 u32:mem_offset:𝑜 u8:laneidx:𝑙 ⇒ v128.load8_lane 𝑚 𝑙
-0xFD u32:num:85 u32:mem_align:𝒶 u32:mem_offset:𝑜 u8:laneidx:𝑙 ⇒ v128.load16_lane 𝑚 𝑙
-0xFD u32:num:86 u32:mem_align:𝒶 u32:mem_offset:𝑜 u8:laneidx:𝑙 ⇒ v128.load32_lane 𝑚 𝑙
-0xFD u32:num:87 u32:mem_align:𝒶 u32:mem_offset:𝑜 u8:laneidx:𝑙 ⇒ v128.load64_lane 𝑚 𝑙
-0xFD u32:num:88 u32:mem_align:𝒶 u32:mem_offset:𝑜 u8:laneidx:𝑙 ⇒ v128.store8_lane 𝑚 𝑙
-0xFD u32:num:89 u32:mem_align:𝒶 u32:mem_offset:𝑜 u8:laneidx:𝑙 ⇒ v128.store16_lane 𝑚 𝑙
-0xFD u32:num:90 u32:mem_align:𝒶 u32:mem_offset:𝑜 u8:laneidx:𝑙 ⇒ v128.store32_lane 𝑚 𝑙
-0xFD u32:num:91 u32:mem_align:𝒶 u32:mem_offset:𝑜 u8:laneidx:𝑙 ⇒ v128.store64_lane 𝑚 𝑙
--- 0xFD u32:num:12 (𝑏:byte)16 ⇒ v128.const bytes−1 i128(𝑏0 . . . 𝑏15)
--- 0xFD u32:num:13 (u8:laneidx:𝑙)16 ⇒ i8x16.shuffle 𝑙16
-0xFD u32:num:21 u8:laneidx:𝑙 ⇒ i8x16.extract_lane_s 𝑙
-0xFD u32:num:22 u8:laneidx:𝑙 ⇒ i8x16.extract_lane_u 𝑙
-0xFD u32:num:23 u8:laneidx:𝑙 ⇒ i8x16.replace_lane 𝑙
-0xFD u32:num:24 u8:laneidx:𝑙 ⇒ i16x8.extract_lane_s 𝑙
-0xFD u32:num:25 u8:laneidx:𝑙 ⇒ i16x8.extract_lane_u 𝑙
-0xFD u32:num:26 u8:laneidx:𝑙 ⇒ i16x8.replace_lane 𝑙
-0xFD u32:num:27 u8:laneidx:𝑙 ⇒ i32x4.extract_lane 𝑙
-0xFD u32:num:28 u8:laneidx:𝑙 ⇒ i32x4.replace_lane 𝑙
-0xFD u32:num:29 u8:laneidx:𝑙 ⇒ i64x2.extract_lane 𝑙
-0xFD u32:num:30 u8:laneidx:𝑙 ⇒ i64x2.replace_lane 𝑙
-0xFD u32:num:31 u8:laneidx:𝑙 ⇒ f32x4.extract_lane 𝑙
-0xFD u32:num:32 u8:laneidx:𝑙 ⇒ f32x4.replace_lane 𝑙
-0xFD u32:num:33 u8:laneidx:𝑙 ⇒ f64x2.extract_lane 𝑙
-0xFD u32:num:34 u8:laneidx:𝑙 ⇒ f64x2.replace_lane 𝑙
-0xFD u32:num:14 ⇒ i8x16.swizzle
-0xFD u32:num:15 ⇒ i8x16.splat
-0xFD u32:num:16 ⇒ i16x8.splat
-0xFD u32:num:17 ⇒ i32x4.splat
-0xFD u32:num:18 ⇒ i64x2.splat
-0xFD u32:num:19 ⇒ f32x4.splat
-0xFD u32:num:20 ⇒ f64x2.splat
-0xFD u32:num:35 ⇒ i8x16.eq
-0xFD u32:num:36 ⇒ i8x16.ne
-0xFD u32:num:37 ⇒ i8x16.lt_s
-0xFD u32:num:38 ⇒ i8x16.lt_u
-0xFD u32:num:39 ⇒ i8x16.gt_s
-0xFD u32:num:40 ⇒ i8x16.gt_u
-0xFD u32:num:41 ⇒ i8x16.le_s
-0xFD u32:num:42 ⇒ i8x16.le_u
-0xFD u32:num:43 ⇒ i8x16.ge_s
-0xFD u32:num:44 ⇒ i8x16.ge_u
-0xFD u32:num:45 ⇒ i16x8.eq
-0xFD u32:num:46 ⇒ i16x8.ne
-0xFD u32:num:47 ⇒ i16x8.lt_s
-0xFD u32:num:48 ⇒ i16x8.lt_u
-0xFD u32:num:49 ⇒ i16x8.gt_s
-0xFD u32:num:50 ⇒ i16x8.gt_u
-0xFD u32:num:51 ⇒ i16x8.le_s
-0xFD u32:num:52 ⇒ i16x8.le_u
-0xFD u32:num:53 ⇒ i16x8.ge_s
-0xFD u32:num:54 ⇒ i16x8.ge_u
-0xFD u32:num:55 ⇒ i32x4.eq
-0xFD u32:num:56 ⇒ i32x4.ne
-0xFD u32:num:57 ⇒ i32x4.lt_s
-0xFD u32:num:58 ⇒ i32x4.lt_u
-0xFD u32:num:59 ⇒ i32x4.gt_s
-0xFD u32:num:60 ⇒ i32x4.gt_u
-0xFD u32:num:61 ⇒ i32x4.le_s
-0xFD u32:num:62 ⇒ i32x4.le_u
-0xFD u32:num:63 ⇒ i32x4.ge_s
-0xFD u32:num:64 ⇒ i32x4.ge_u
-0xFD u32:num:214 ⇒ i64x2.eq
-0xFD u32:num:215 ⇒ i64x2.ne
-0xFD u32:num:216 ⇒ i64x2.lt_s
-0xFD u32:num:217 ⇒ i64x2.gt_s
-0xFD u32:num:218 ⇒ i64x2.le_s
-0xFD u32:num:219 ⇒ i64x2.ge_s
-0xFD u32:num:65 ⇒ f32x4.eq
-0xFD u32:num:66 ⇒ f32x4.ne
-0xFD u32:num:67 ⇒ f32x4.lt
-0xFD u32:num:68 ⇒ f32x4.gt
-0xFD u32:num:69 ⇒ f32x4.le
-0xFD u32:num:70 ⇒ f32x4.ge
-0xFD u32:num:71 ⇒ f64x2.eq
-0xFD u32:num:72 ⇒ f64x2.ne
-0xFD u32:num:73 ⇒ f64x2.lt
-0xFD u32:num:74 ⇒ f64x2.gt
-0xFD u32:num:75 ⇒ f64x2.le
-0xFD u32:num:76 ⇒ f64x2.ge
-0xFD u32:num:77 ⇒ v128.not
-0xFD u32:num:78 ⇒ v128.and
-0xFD u32:num:79 ⇒ v128.andnot
-0xFD u32:num:80 ⇒ v128.or
-0xFD u32:num:81 ⇒ v128.xor
-0xFD u32:num:82 ⇒ v128.bitselect
-0xFD u32:num:83 ⇒ v128.any_true
-0xFD u32:num:96 ⇒ i8x16.abs
-0xFD u32:num:97 ⇒ i8x16.neg
-0xFD u32:num:98 ⇒ i8x16.popcnt
-0xFD u32:num:99 ⇒ i8x16.all_true
-0xFD u32:num:100 ⇒ i8x16.bitmask
-0xFD u32:num:101 ⇒ i8x16.narrow_i16x8_s
-0xFD u32:num:102 ⇒ i8x16.narrow_i16x8_u
-0xFD u32:num:107 ⇒ i8x16.shl
-0xFD u32:num:108 ⇒ i8x16.shr_s
-0xFD u32:num:109 ⇒ i8x16.shr_u
-0xFD u32:num:110 ⇒ i8x16.add
-0xFD u32:num:111 ⇒ i8x16.add_sat_s
-0xFD u32:num:112 ⇒ i8x16.add_sat_u
-0xFD u32:num:113 ⇒ i8x16.sub
-0xFD u32:num:114 ⇒ i8x16.sub_sat_s
-0xFD u32:num:115 ⇒ i8x16.sub_sat_u
-0xFD u32:num:118 ⇒ i8x16.min_s
-0xFD u32:num:119 ⇒ i8x16.min_u
-0xFD u32:num:120 ⇒ i8x16.max_s
-0xFD u32:num:121 ⇒ i8x16.max_u
-0xFD u32:num:123 ⇒ i8x16.avgr_u
-0xFD u32:num:124 ⇒ i16x8.extadd_pairwise_i8x16_s
-0xFD u32:num:125 ⇒ i16x8.extadd_pairwise_i8x16_u
-0xFD u32:num:128 ⇒ i16x8.abs
-0xFD u32:num:129 ⇒ i16x8.neg
-0xFD u32:num:130 ⇒ i16x8.q15mulr_sat_s
-0xFD u32:num:131 ⇒ i16x8.all_true
-0xFD u32:num:132 ⇒ i16x8.bitmask
-0xFD u32:num:133 ⇒ i16x8.narrow_i32x4_s
-0xFD u32:num:134 ⇒ i16x8.narrow_i32x4_u
-0xFD u32:num:135 ⇒ i16x8.extend_low_i8x16_s
-0xFD u32:num:136 ⇒ i16x8.extend_high_i8x16_s
-0xFD u32:num:137 ⇒ i16x8.extend_low_i8x16_u
-0xFD u32:num:138 ⇒ i16x8.extend_high_i8x16_u
-0xFD u32:num:139 ⇒ i16x8.shl
-0xFD u32:num:140 ⇒ i16x8.shr_s
-0xFD u32:num:141 ⇒ i16x8.shr_u
-0xFD u32:num:142 ⇒ i16x8.add
-0xFD u32:num:143 ⇒ i16x8.add_sat_s
-0xFD u32:num:144 ⇒ i16x8.add_sat_u
-0xFD u32:num:145 ⇒ i16x8.sub
-0xFD u32:num:146 ⇒ i16x8.sub_sat_s
-0xFD u32:num:147 ⇒ i16x8.sub_sat_u
-0xFD u32:num:149 ⇒ i16x8.mul
-0xFD u32:num:150 ⇒ i16x8.min_s
-0xFD u32:num:151 ⇒ i16x8.min_u
-0xFD u32:num:152 ⇒ i16x8.max_s
-0xFD u32:num:153 ⇒ i16x8.max_u
-0xFD u32:num:155 ⇒ i16x8.avgr_u
-0xFD u32:num:156 ⇒ i16x8.extmul_low_i8x16_s
-0xFD u32:num:157 ⇒ i16x8.extmul_high_i8x16_s
-0xFD u32:num:158 ⇒ i16x8.extmul_low_i8x16_u
-0xFD u32:num:159 ⇒ i16x8.extmul_high_i8x16_u
-0xFD u32:num:126 ⇒ i32x4.extadd_pairwise_i16x8_s
-0xFD u32:num:127 ⇒ i32x4.extadd_pairwise_i16x8_u
-0xFD u32:num:160 ⇒ i32x4.abs
-0xFD u32:num:161 ⇒ i32x4.neg
-0xFD u32:num:163 ⇒ i32x4.all_true
-0xFD u32:num:164 ⇒ i32x4.bitmask
-0xFD u32:num:167 ⇒ i32x4.extend_low_i16x8_s
-0xFD u32:num:168 ⇒ i32x4.extend_high_i16x8_s
-0xFD u32:num:169 ⇒ i32x4.extend_low_i16x8_u
-0xFD u32:num:170 ⇒ i32x4.extend_high_i16x8_u
-0xFD u32:num:171 ⇒ i32x4.shl
-0xFD u32:num:172 ⇒ i32x4.shr_s
-0xFD u32:num:173 ⇒ i32x4.shr_u
-0xFD u32:num:174 ⇒ i32x4.add
-0xFD u32:num:177 ⇒ i32x4.sub
-0xFD u32:num:181 ⇒ i32x4.mul
-0xFD u32:num:182 ⇒ i32x4.min_s
-0xFD u32:num:183 ⇒ i32x4.min_u
-0xFD u32:num:184 ⇒ i32x4.max_s
-0xFD u32:num:185 ⇒ i32x4.max_u
-0xFD u32:num:186 ⇒ i32x4.dot_i16x8_s
-0xFD u32:num:188 ⇒ i32x4.extmul_low_i16x8_s
-0xFD u32:num:189 ⇒ i32x4.extmul_high_i16x8_s
-0xFD u32:num:190 ⇒ i32x4.extmul_low_i16x8_u
-0xFD u32:num:191 ⇒ i32x4.extmul_high_i16x8_u
-0xFD u32:num:192 ⇒ i64x2.abs
-0xFD u32:num:193 ⇒ i64x2.neg
-0xFD u32:num:195 ⇒ i64x2.all_true
-0xFD u32:num:196 ⇒ i64x2.bitmask
-0xFD u32:num:199 ⇒ i64x2.extend_low_i32x4_s
-0xFD u32:num:200 ⇒ i64x2.extend_high_i32x4_s
-0xFD u32:num:201 ⇒ i64x2.extend_low_i32x4_u
-0xFD u32:num:202 ⇒ i64x2.extend_high_i32x4_u
-0xFD u32:num:203 ⇒ i64x2.shl
-0xFD u32:num:204 ⇒ i64x2.shr_s
-0xFD u32:num:205 ⇒ i64x2.shr_u
-0xFD u32:num:206 ⇒ i64x2.add
-0xFD u32:num:209 ⇒ i64x2.sub
-0xFD u32:num:213 ⇒ i64x2.mul
-0xFD u32:num:220 ⇒ i64x2.extmul_low_i32x4_s
-0xFD u32:num:221 ⇒ i64x2.extmul_high_i32x4_s
-0xFD u32:num:222 ⇒ i64x2.extmul_low_i32x4_u
-0xFD u32:num:223 ⇒ i64x2.extmul_high_i32x4_u
-0xFD u32:num:103 ⇒ f32x4.ceil
-0xFD u32:num:104 ⇒ f32x4.floor
-0xFD u32:num:105 ⇒ f32x4.trunc
-0xFD u32:num:106 ⇒ f32x4.nearest
-0xFD u32:num:224 ⇒ f32x4.abs
-0xFD u32:num:225 ⇒ f32x4.neg
-0xFD u32:num:227 ⇒ f32x4.sqrt
-0xFD u32:num:228 ⇒ f32x4.add
-0xFD u32:num:229 ⇒ f32x4.sub
-0xFD u32:num:230 ⇒ f32x4.mul
-0xFD u32:num:231 ⇒ f32x4.div
-0xFD u32:num:232 ⇒ f32x4.min
-0xFD u32:num:233 ⇒ f32x4.max
-0xFD u32:num:234 ⇒ f32x4.pmin
-0xFD u32:num:235 ⇒ f32x4.pmax
-0xFD u32:num:116 ⇒ f64x2.ceil
-0xFD u32:num:117 ⇒ f64x2.floor
-0xFD u32:num:122 ⇒ f64x2.trunc
-0xFD u32:num:148 ⇒ f64x2.nearest
-0xFD u32:num:236 ⇒ f64x2.abs
-0xFD u32:num:237 ⇒ f64x2.neg
-0xFD u32:num:239 ⇒ f64x2.sqrt
-0xFD u32:num:240 ⇒ f64x2.add
-0xFD u32:num:241 ⇒ f64x2.sub
-0xFD u32:num:242 ⇒ f64x2.mul
-0xFD u32:num:243 ⇒ f64x2.div
-0xFD u32:num:244 ⇒ f64x2.min
-0xFD u32:num:245 ⇒ f64x2.max
-0xFD u32:num:246 ⇒ f64x2.pmin
-0xFD u32:num:247 ⇒ f64x2.pmax
-0xFD u32:num:248 ⇒ i32x4.trunc_sat_f32x4_s
-0xFD u32:num:249 ⇒ i32x4.trunc_sat_f32x4_u
-0xFD u32:num:250 ⇒ f32x4.convert_i32x4_s
-0xFD u32:num:251 ⇒ f32x4.convert_i32x4_u
-0xFD u32:num:252 ⇒ i32x4.trunc_sat_f64x2_s_zero
-0xFD u32:num:253 ⇒ i32x4.trunc_sat_f64x2_u_zero
-0xFD u32:num:254 ⇒ f64x2.convert_low_i32x4_s
-0xFD u32:num:255 ⇒ f64x2.convert_low_i32x4_u
-0xFD u32:num:94 ⇒ f32x4.demote_f64x2_zero
-0xFD u32:num:95 ⇒ f64x2.promote_low_f32x4
diff --git a/src/libasr/wasm_instructions_visitor.py b/src/libasr/wasm_instructions_visitor.py
deleted file mode 100644
index 8d94d42f32..0000000000
--- a/src/libasr/wasm_instructions_visitor.py
+++ /dev/null
@@ -1,200 +0,0 @@
-import sys
-import os
-import re
-
-HEAD = r"""#ifndef LFORTRAN_%(MOD)s_H
-#define LFORTRAN_%(MOD)s_H
-
-// Generated by grammar/wasm_instructions_visitor.py
-
-#include <libasr/alloc.h>
-#include <libasr/location.h>
-#include <libasr/colors.h>
-#include <libasr/containers.h>
-#include <libasr/exception.h>
-#include <libasr/asr_scopes.h>
-#include <libasr/codegen/wasm_utils.h>
-
-
-namespace LCompilers {
-
-namespace %(MOD)s {
-
-"""
-
-FOOT = r"""
-} // namespace %(MOD)s
-
-} // namespace LCompilers
-
-#endif // LFORTRAN_%(MOD)s_H
-"""
-
-class WASMInstructionsVisitor():
-    def __init__(self, stream, data):
-        self.stream = stream
-        self.data = data
-
-    def visitWASMInstructions(self, mod, *args):
-        self.emit("template <class Struct>", 0)
-        self.emit("class BaseWASMVisitor {", 0)
-        self.emit("private:", 0)
-        self.emit(    "Struct& self() { return static_cast<Struct&>(*this); }", 1)
-        self.emit("public:", 0)
-        self.emit(    "Vec<uint8_t> &code;", 1)
-        self.emit(    "uint32_t offset;\n", 1)
-
-        self.emit(    "BaseWASMVisitor(Vec<uint8_t> &code, uint32_t offset): code(code), offset(offset) {}", 1)
-
-        for inst in mod["instructions"]:
-            self.emit("void visit_%s(%s) {throw LCompilersException(\"visit_%s() not implemented\");}\n" % (inst["func"], make_param_list(inst["params"]), inst["func"]), 1)
-
-        self.emit(    "void decode_instructions() {", 1)
-        self.emit(        "uint8_t cur_byte = wasm::read_b8(code, offset);", 2)
-        self.emit(        "while (cur_byte != 0x0B) {", 2)
-        self.emit(            "switch (cur_byte) {", 3)
-        for inst in filter(lambda i: i["opcode"] not in ["0xFC", "0xFD"], mod["instructions"]):
-            self.emit(            "case %s: {" % (inst["opcode"]), 4)
-            for param in inst["params"]:
-                self.emit(            "%s %s = %s(code, offset);" % (param["type"], param["name"], param["read_func"]), 5)
-            self.emit(                "self().visit_%s(%s);" % (inst["func"], make_param_list(inst["params"], call=True)), 5)
-            self.emit(                "break;", 5)
-            self.emit(            "}", 4)
-
-        self.emit(                "case 0xFC: {", 4)
-        self.emit(                    "uint32_t num = wasm::read_u32(code, offset);", 5)
-        self.emit(                    "switch(num) {", 5)
-        for inst in filter(lambda i: i["opcode"] == "0xFC", mod["instructions"]):
-            self.emit(                    "case %sU: {" % (inst["params"][0]["val"]), 6)
-            for param in inst["params"][1:]: # first param is already read right at the start of case 0xFC
-                self.emit(                    "%s %s = %s(code, offset);" % (param["type"], param["name"], param["read_func"]), 7)
-            self.emit(                        "self().visit_%s(%s);" % (inst["func"], make_param_list(inst["params"], call=True)), 7)
-            self.emit(                        "break;", 7)
-            self.emit(                    "}", 6)
-        self.emit(                        "default: {", 6)
-        self.emit(                            "throw LCompilersException(\"Unknown num for opcode 0xFC\");", 7)
-        self.emit(                        "}", 6)
-        self.emit(                    "}", 5)
-        self.emit(                    "break;", 5)
-        self.emit(                "}", 4)
-
-        self.emit(                "case 0xFD: {", 4)
-        self.emit(                    "uint32_t num = wasm::read_u32(code, offset);", 5)
-        self.emit(                    "switch(num) {", 5)
-        for inst in filter(lambda i: i["opcode"] == "0xFD", mod["instructions"]):
-            self.emit(                    "case %sU: {" % (inst["params"][0]["val"]), 6)
-            for param in inst["params"][1:]:  # first param is already read right at the start of case 0xFD
-                self.emit(                    "%s %s = %s(code, offset);" % (param["type"], param["name"], param["read_func"]), 7)
-            self.emit(                        "self().visit_%s(%s);" % (inst["func"], make_param_list(inst["params"], call=True)), 7)
-            self.emit(                        "break;", 7)
-            self.emit(                    "}", 6)
-        self.emit(                        "default: {", 6)
-        self.emit(                            "throw LCompilersException(\"Unknown num for opcode 0xFD\");", 7)
-        self.emit(                        "}", 6)
-        self.emit(                    "}", 5)
-        self.emit(                    "break;", 5)
-        self.emit(                "}", 4)
-
-        self.emit(                "default: {", 4)
-        self.emit(                    "throw LCompilersException(\"Unknown opcode\");", 5)
-        self.emit(                "}", 4)
-        self.emit(            "}", 3)
-        self.emit(            "cur_byte = wasm::read_b8(code, offset);", 3)
-        self.emit(        "}", 2)
-        self.emit(    "}", 1)
-        self.emit("};", 0)
-
-
-    def emit(self, line, level=0):
-        indent = "    "*level
-        self.stream.write(indent + line + "\n")
-
-def make_param_list(params, call = False):
-    params = list(filter(lambda param: param["val"] != "0x00" and param["name"] != "num", params))
-    if call:
-        return ", ".join(map(lambda param: param["name"], params))
-    return ", ".join(map(lambda param: param["type"] + " /*" + param["name"] + "*/", params))
-
-def read_file(path):
-    with open(path, encoding="utf-8") as fp:
-        return fp.read()
-
-def process_raw_instructions(instructions_raw):
-    instructions = []
-    for line in instructions_raw.splitlines():
-        if line.startswith("--"):
-            continue
-        if len(instructions) > 0 and line.startswith(" "):
-            instructions[-1].append(line.strip())
-        else:
-            instructions.append(line.strip())
-    return instructions
-
-def get_func_name(func):
-    splitted_name = re.split("[\._]", func)
-    return "".join(map(lambda name_sub_part: name_sub_part.capitalize(), splitted_name))
-
-param_read_function = {
-    "uint8_t": "wasm::read_b8",
-    "uint32_t": "wasm::read_u32",
-    "int32_t": "wasm::read_i32",
-    "int64_t": "wasm::read_i64",
-    "float": "wasm::read_f32",
-    "double": "wasm::read_f64"
-}
-
-param_type = {
-    "u8": "uint8_t",
-    "u32": "uint32_t",
-    "i32": "int32_t",
-    "i64": "int64_t",
-    "f32": "float",
-    "f64": "double",
-}
-
-def parse_param_info(param_info):
-    type_info, name, val = param_info.split(":")
-    type = param_type[type_info]
-    read_func = param_read_function[type]
-    return {"type": type, "read_func": read_func, "name": name, "val": val}
-
-def parse_instructions(instructions):
-    instructions_info = []
-    for inst in instructions:
-        binary_info, text_info = inst.split(" ⇒ ")
-        binary_info = binary_info.strip().split(" ")
-        opcode = binary_info[0]
-        params_info = binary_info[1:]
-        text_info = text_info.strip().split(" ")
-        func = get_func_name(text_info[0]) # first parameter is the function name
-        text_params = text_info[1:] # text_params are currently not needed and hence not used further
-        params = list(map(lambda param_info: parse_param_info(param_info), params_info))
-        instructions_info.append({"opcode": opcode, "func": func, "params": params})
-    return instructions_info
-
-def main(argv):
-    if len(argv) == 3:
-        def_file, out_file = argv[1:]
-    elif len(argv) == 1:
-        print("Assuming default values of wasm_instructions.txt and wasm_visitor.h")
-        here = os.path.dirname(__file__)
-        def_file = os.path.join(here, "wasm_instructions.txt")
-        out_file = os.path.join(here, "wasm_visitor.h")
-    else:
-        print("invalid arguments")
-        return 2
-    instructions_raw = read_file(def_file)
-    instructions = process_raw_instructions(instructions_raw)
-    instructions_info = parse_instructions(instructions)
-    subs = {"MOD": "WASM_INSTS_VISITOR"}
-    fp = open(out_file, "w", encoding="utf-8")
-    try:
-        fp.write(HEAD % subs)
-        wasm_instructions_visitor = WASMInstructionsVisitor(fp, None)
-        wasm_instructions_visitor.visitWASMInstructions({"instructions": instructions_info})
-        fp.write(FOOT % subs)
-    finally:
-        fp.close()
-
-if __name__ == "__main__":
-    sys.exit(main(sys.argv))
diff --git a/src/lpython/CMakeLists.txt b/src/lpython/CMakeLists.txt
index df49f1d44c..545fb592e9 100644
--- a/src/lpython/CMakeLists.txt
+++ b/src/lpython/CMakeLists.txt
@@ -12,13 +12,17 @@ set(SRC
     utils.cpp
 )
 
+if (CMAKE_BUILD_TYPE STREQUAL "Debug")
+    set_source_files_properties(parser/parser.tab.cc PROPERTIES COMPILE_FLAGS -Wno-free-nonheap-object)
+endif()
+
 if (WITH_WHEREAMI)
     set(SRC ${SRC} ../bin/tpl/whereami/whereami.cpp)
 endif()
 
 if (WITH_XEUS)
     set(SRC ${SRC}
-#        fortran_kernel.cpp
+       python_kernel.cpp
     )
 endif()
 add_library(lpython_lib ${SRC})
@@ -31,7 +35,7 @@ endif()
 target_include_directories(lpython_lib BEFORE PUBLIC ${lpython_SOURCE_DIR}/src)
 target_include_directories(lpython_lib BEFORE PUBLIC ${lpython_BINARY_DIR}/src)
 if (WITH_XEUS)
-    target_link_libraries(lpython_lib xeus)
+    target_link_libraries(lpython_lib xeus xeus-zmq)
 endif()
 if (WITH_BFD)
     target_link_libraries(lpython_lib p::bfd)
diff --git a/src/lpython/parser/parser.cpp b/src/lpython/parser/parser.cpp
index 381b7c5587..0459bbdbce 100644
--- a/src/lpython/parser/parser.cpp
+++ b/src/lpython/parser/parser.cpp
@@ -117,12 +117,12 @@ Result<LPython::AST::ast_t*> parse_python_file(Allocator &al,
         const std::string &infile,
         diag::Diagnostics &diagnostics,
         uint32_t prev_loc,
-        bool new_parser) {
+        [[maybe_unused]] bool new_parser) {
     LPython::AST::ast_t* ast;
     // We will be using the new parser from now on
     new_parser = true;
     LCOMPILERS_ASSERT(new_parser)
-    std::string input = read_file(infile);
+    std::string input = read_file_ok(infile);
     Result<LPython::AST::Module_t*> res = parse(al, input, prev_loc, diagnostics);
     if (res.ok) {
         ast = (LPython::AST::ast_t*)res.result;
diff --git a/src/lpython/parser/parser.h b/src/lpython/parser/parser.h
index e9f6b92cba..2e1c18eda8 100644
--- a/src/lpython/parser/parser.h
+++ b/src/lpython/parser/parser.h
@@ -1,6 +1,7 @@
 #ifndef LPYTHON_PARSER_PARSER_H
 #define LPYTHON_PARSER_PARSER_H
 
+#include "lpython/python_ast.h"
 #include <libasr/containers.h>
 #include <libasr/diagnostics.h>
 #include <lpython/parser/tokenizer.h>
diff --git a/src/lpython/parser/parser.yy b/src/lpython/parser/parser.yy
index ce55e91496..6658c3eac7 100644
--- a/src/lpython/parser/parser.yy
+++ b/src/lpython/parser/parser.yy
@@ -179,6 +179,9 @@ void yyerror(YYLTYPE *yyloc, LCompilers::LPython::Parser &p, const std::string &
 %token KW_MATCH
 %token KW_CASE
 
+%token KW_STR_PREFIX
+%type <string> KW_STR_PREFIX
+
 // Nonterminal tokens
 
 %type <ast> script_unit
@@ -490,7 +493,7 @@ augassign_op
 
 ann_assignment_statement
     : expr ":" expr { $$ = ANNASSIGN_01($1, $3, @$); }
-    | expr ":" expr "=" expr { $$ = ANNASSIGN_02($1, $3, $5, @$); }
+    | expr ":" expr "=" tuple_list { $$ = ANNASSIGN_02($1, $3, $5, @$); }
     ;
 
 delete_statement
@@ -1102,9 +1105,9 @@ subscript
 
 string
     : string TK_STRING { $$ = STRING2($1, $2, @$); } // TODO
-    | string id TK_STRING { $$ = STRING4($1, STRING3($2, $3, @$), @$); }
+    | string KW_STR_PREFIX TK_STRING { $$ = STRING4($1, STRING3($2, $3, @$), @$); }
     | TK_STRING { $$ = STRING1($1, @$); }
-    | id TK_STRING { $$ = STRING3($1, $2, @$); }
+    | KW_STR_PREFIX TK_STRING { $$ = STRING3($1, $2, @$); }
     ;
 
 lambda_parameter
@@ -1225,8 +1228,9 @@ expr
     | expr ">=" expr { $$ = COMPARE($1, GtE, $3, @$); }
     | expr "is" expr { $$ = COMPARE($1, Is, $3, @$); }
     | expr "is not" expr { $$ = COMPARE($1, IsNot, $3, @$); }
-    | expr "in" expr { $$ = COMPARE($1, In, $3, @$); }
-    | expr "not in" expr { $$ = COMPARE($1, NotIn, $3, @$); }
+
+    | expr "in" expr { $$ = MEMBERSHIP($1, In, $3, @$); }
+    | expr "not in" expr { $$ = MEMBERSHIP($1, NotIn, $3, @$); }
 
     | expr "and" expr { $$ = BOOLOP($1, And, $3, @$); }
     | expr "or" expr { $$ = BOOLOP($1, Or, $3, @$); }
diff --git a/src/lpython/parser/parser_stype.h b/src/lpython/parser/parser_stype.h
index 16585248db..8bd733379d 100644
--- a/src/lpython/parser/parser_stype.h
+++ b/src/lpython/parser/parser_stype.h
@@ -110,9 +110,12 @@ union YYSTYPE {
 static_assert(std::is_standard_layout<YYSTYPE>::value);
 static_assert(std::is_trivial<YYSTYPE>::value);
 // Ensure the YYSTYPE size is equal to Vec<AST::ast_t*>, which is a required member, so
-// YYSTYPE has to be at least as big, but it should not be bigger, otherwise it
+// YYSTYPE must be at least as big, but it should not be bigger, otherwise it
 // would reduce performance.
-static_assert(sizeof(YYSTYPE) == sizeof(Vec<LPython::AST::ast_t*>));
+// A temporary fix for PowerPC 32-bit, where the following assert fails with (16 == 12).
+#if !defined(HAVE_BUILD_TO_WASM) && !defined(__ppc__)
+static_assert(sizeof(YYSTYPE) == sizeof(Vec<AST::ast_t*>));
+#endif
 
 static_assert(std::is_standard_layout<Location>::value);
 static_assert(std::is_trivial<Location>::value);
diff --git a/src/lpython/parser/semantics.h b/src/lpython/parser/semantics.h
index d2befc1f46..7fd17cc566 100644
--- a/src/lpython/parser/semantics.h
+++ b/src/lpython/parser/semantics.h
@@ -719,6 +719,8 @@ static inline ast_t* BOOLOP_01(Allocator &al, Location &loc,
 #define UNARY(x, op, l) make_UnaryOp_t(p.m_a, l, unaryopType::op, EXPR(x))
 #define COMPARE(x, op, y, l) make_Compare_t(p.m_a, l, \
         EXPR(x), cmpopType::op, EXPRS(A2LIST(p.m_a, y)), 1)
+#define MEMBERSHIP(x, op, y, l) make_Membership_t(p.m_a, l, \
+        EXPR(x), membershipopType::op, EXPR(y))
 
 static inline ast_t* concat_string(Allocator &al, Location &l,
         expr_t *string, std::string str, expr_t *string_literal) {
@@ -794,29 +796,13 @@ static inline ast_t* concat_string(Allocator &al, Location &l,
     return tmp;
 }
 
-char* unescape(Allocator &al, LCompilers::Str &s) {
-    std::string x;
-    for (size_t idx=0; idx < s.size(); idx++) {
-        if (s.p[idx] == '\\' && s.p[idx+1] == 'n') {
-            x += "\n";
-            idx++;
-        } else if (s.p[idx] == '\\' && s.p[idx+1] == '\'') {
-            x += "'";
-            idx++;
-        } else {
-            x += s.p[idx];
-        }
-    }
-    return LCompilers::s2c(al, x);
-}
-
 #define SYMBOL(x, l) make_Name_t(p.m_a, l, \
         x.c_str(p.m_a), expr_contextType::Load)
 // `x.int_n` is of type BigInt but we store the int64_t directly in AST
 #define INTEGER(x, l) make_ConstantInt_t(p.m_a, l, x, nullptr)
-#define STRING1(x, l) make_ConstantStr_t(p.m_a, l, unescape(p.m_a, x), nullptr)
-#define STRING2(x, y, l) concat_string(p.m_a, l, EXPR(x), y.str(), nullptr)
-#define STRING3(id, x, l) PREFIX_STRING(p.m_a, l, name2char(id), x.c_str(p.m_a))
+#define STRING1(x, l) make_ConstantStr_t(p.m_a, l, str_unescape_c(p.m_a, x), nullptr)
+#define STRING2(x, y, l) concat_string(p.m_a, l, EXPR(x), str_unescape_c(p.m_a, y), nullptr)
+#define STRING3(prefix, x, l) PREFIX_STRING(p.m_a, l, prefix.c_str(p.m_a), x.c_str(p.m_a))
 #define STRING4(x, s, l) concat_string(p.m_a, l, EXPR(x), "", EXPR(s))
 #define FLOAT(x, l) make_ConstantFloat_t(p.m_a, l, x, nullptr)
 #define COMPLEX(x, l) make_ConstantComplex_t(p.m_a, l, 0, x, nullptr)
@@ -877,14 +863,14 @@ static inline ast_t *PREFIX_STRING(Allocator &al, Location &l, char *prefix, cha
             }
         }
         tmp = make_JoinedStr_t(al, l, exprs.p, exprs.size());
-    } else if (strcmp(prefix, "b") == 0 || strcmp(prefix, "br") == 0
-            || strcmp(prefix, "rb") == 0) {
+    } else if (strcmp(prefix, "b") == 0) {
+        LCompilers::Str s_;
+        s_.from_str(al, std::string(s));
+        std::string str = std::string(str_unescape_c(al, s_));
+        str = "b'" + str + "'";
+        tmp = make_ConstantBytes_t(al, l, LCompilers::s2c(al, str), nullptr);
+    } else if ( strcmp(prefix, "br") == 0 || strcmp(prefix, "rb") == 0) {
         std::string str = std::string(s);
-        size_t start_pos = 0;
-        while((start_pos = str.find("\n", start_pos)) != std::string::npos) {
-                str.replace(start_pos, 1, "\\n");
-                start_pos += 2;
-        }
         str = "b'" + str + "'";
         tmp = make_ConstantBytes_t(al, l, LCompilers::s2c(al, str), nullptr);
     } else if (strcmp(prefix, "r") == 0 ) {
diff --git a/src/lpython/parser/tokenizer.re b/src/lpython/parser/tokenizer.re
index 6b35216247..85d572752b 100644
--- a/src/lpython/parser/tokenizer.re
+++ b/src/lpython/parser/tokenizer.re
@@ -89,13 +89,17 @@ void lex_int(Allocator &al, const unsigned char *s,
         s = s + 2;
         uint64_t n = get_value((char*)s, 2, loc);
         u.from_smallint(n);
-    } else if ((std::tolower(s[1]) == 'o')) {
+    } else if (std::tolower(s[1]) == 'o') {
         // Oct
         s = s + 2;
         uint64_t n = get_value((char*)s, 8, loc);
         u.from_smallint(n);
     } else {
         lex_dec_int_large(al, s, e, u);
+        if (s[0] == '0' && u.n != 0) {            
+            throw parser_local::TokenizerError(
+                "Leading zeros in decimal integer are not allowed", {loc});
+        }
     }
     return;
 }
@@ -435,6 +439,19 @@ int Tokenizer::lex(Allocator &al, YYSTYPE &yylval, Location &loc, diag::Diagnost
                 }
             }
 
+            [rR][bB] | [bB][rR]
+            | [fF][rR] | [rR][fF]
+            | [rR] | [bB] | [fF] | [uU]
+             {
+                if(cur[0] == '\'' || cur[0] == '"'){
+                    KW(STR_PREFIX);
+                }
+                else {
+                    token(yylval.string);
+                    RET(TK_NAME);
+                }
+            }
+
             // Tokens
             newline {
                 if(parenlevel) { continue; }
@@ -763,6 +780,7 @@ std::string token2text(const int token)
 
         T(KW_MATCH, "match")
         T(KW_CASE, "case")
+        T(KW_STR_PREFIX, "string prefix")
 
         default : {
             std::cout << "TOKEN: " << token << std::endl;
@@ -825,7 +843,7 @@ std::string pickle_token(int token, const YYSTYPE &yystype)
     } else if (token == yytokentype::TK_IMAG_NUM) {
         t += " " + std::to_string(yystype.f) + "j";
     } else if (token == yytokentype::TK_STRING) {
-        t = t + " " + "\"" + yystype.string.str() + "\"";
+        t = t + " " + "\"" + str_escape_c(yystype.string.str()) + "\"";
     } else if (token == yytokentype::TK_TYPE_COMMENT) {
         t = t + " " + "\"" + yystype.string.str() + "\"";
     } else if (token == yytokentype::TK_TYPE_IGNORE) {
diff --git a/src/lpython/pickle.cpp b/src/lpython/pickle.cpp
index 01f8c594f5..ef52293d4a 100644
--- a/src/lpython/pickle.cpp
+++ b/src/lpython/pickle.cpp
@@ -6,6 +6,8 @@
 #include <libasr/asr_utils.h>
 #include <libasr/string_utils.h>
 #include <libasr/location.h>
+#include <libasr/pass/intrinsic_function_registry.h>
+#include <libasr/pass/intrinsic_array_function_registry.h>
 
 namespace LCompilers::LPython {
 
@@ -26,86 +28,6 @@ std::string pickle_python(AST::ast_t &ast, bool colors, bool indent) {
     return v.get_str();
 }
 
-/********************** ASR Pickle *******************/
-class ASRPickleVisitor :
-    public ASR::PickleBaseVisitor<ASRPickleVisitor>
-{
-public:
-    bool show_intrinsic_modules;
-
-    std::string get_str() {
-        return s;
-    }
-    void visit_symbol(const ASR::symbol_t &x) {
-        s.append(ASRUtils::symbol_parent_symtab(&x)->get_counter());
-        s.append(" ");
-        if (use_colors) {
-            s.append(color(fg::yellow));
-        }
-        s.append(ASRUtils::symbol_name(&x));
-        if (use_colors) {
-            s.append(color(fg::reset));
-        }
-    }
-    void visit_IntegerConstant(const ASR::IntegerConstant_t &x) {
-        s.append("(");
-        if (use_colors) {
-            s.append(color(style::bold));
-            s.append(color(fg::magenta));
-        }
-        s.append("IntegerConstant");
-        if (use_colors) {
-            s.append(color(fg::reset));
-            s.append(color(style::reset));
-        }
-        s.append(" ");
-        if (use_colors) {
-            s.append(color(fg::cyan));
-        }
-        s.append(std::to_string(x.m_n));
-        if (use_colors) {
-            s.append(color(fg::reset));
-        }
-        s.append(" ");
-        this->visit_ttype(*x.m_type);
-        s.append(")");
-    }
-    void visit_Module(const ASR::Module_t &x) {
-        if (!show_intrinsic_modules &&
-                    (x.m_intrinsic || startswith(x.m_name, "lfortran_intrinsic_"))) {
-            s.append("(");
-            if (use_colors) {
-                s.append(color(style::bold));
-                s.append(color(fg::magenta));
-            }
-            s.append("IntrinsicModule");
-            if (use_colors) {
-                s.append(color(fg::reset));
-                s.append(color(style::reset));
-            }
-            s.append(" ");
-            s.append(x.m_name);
-            s.append(")");
-        } else {
-            ASR::PickleBaseVisitor<ASRPickleVisitor>::visit_Module(x);
-        };
-    }
-};
-
-std::string pickle(ASR::asr_t &asr, bool colors, bool indent,
-        bool show_intrinsic_modules) {
-    ASRPickleVisitor v;
-    v.use_colors = colors;
-    v.indent = indent;
-    v.show_intrinsic_modules = show_intrinsic_modules;
-    v.visit_asr(asr);
-    return v.get_str();
-}
-
-std::string pickle(ASR::TranslationUnit_t &asr, bool colors, bool indent, bool show_intrinsic_modules) {
-    return pickle((ASR::asr_t &)asr, colors, indent, show_intrinsic_modules);
-}
-
 /********************** AST Pickle Tree *******************/
 class ASTTreeVisitor : public AST::TreeBaseVisitor<ASTTreeVisitor>
 {
@@ -122,31 +44,6 @@ std::string pickle_tree_python(AST::ast_t &ast, bool colors) {
     return v.get_str();
 }
 
-/********************** ASR Pickle Tree *******************/
-class ASRTreeVisitor :
-    public ASR::TreeBaseVisitor<ASRTreeVisitor>
-{
-public:
-    bool show_intrinsic_modules;
-
-    std::string get_str() {
-        return s;
-    }
-
-};
-
-std::string pickle_tree(ASR::asr_t &asr, bool colors, bool show_intrinsic_modules) {
-    ASRTreeVisitor v;
-    v.use_colors = colors;
-    v.show_intrinsic_modules = show_intrinsic_modules;
-    v.visit_asr(asr);
-    return v.get_str();
-}
-
-std::string pickle_tree(ASR::TranslationUnit_t &asr, bool colors, bool show_intrinsic_modules) {
-    return pickle_tree((ASR::asr_t &)asr, colors, show_intrinsic_modules);
-}
-
 /********************** AST Pickle Json *******************/
 class ASTJsonVisitor :
     public LPython::AST::JsonBaseVisitor<ASTJsonVisitor>
@@ -165,79 +62,4 @@ std::string pickle_json(LPython::AST::ast_t &ast, LocationManager &lm) {
     return v.get_str();
 }
 
-/********************** ASR Pickle Json *******************/
-class ASRJsonVisitor :
-    public ASR::JsonBaseVisitor<ASRJsonVisitor>
-{
-public:
-    using ASR::JsonBaseVisitor<ASRJsonVisitor>::JsonBaseVisitor;
-
-    std::string get_str() {
-        return s;
-    }
-
-    void visit_symbol(const ASR::symbol_t &x) {
-        s.append("\"");
-        s.append(ASRUtils::symbol_name(&x));
-        s.append(" (SymbolTable");
-        s.append(ASRUtils::symbol_parent_symtab(&x)->get_counter());
-        s.append(")\"");
-    }
-
-    void visit_Module(const ASR::Module_t &x) {
-        s.append("{");
-        inc_indent(); s.append("\n" + indtd);
-        s.append("\"node\": \"Module\"");
-        s.append(",\n" + indtd);
-        s.append("\"fields\": {");
-        inc_indent(); s.append("\n" + indtd);
-        s.append("\"name\": ");
-        s.append("\"" + std::string(x.m_name) + "\"");
-        s.append(",\n" + indtd);
-        s.append("\"dependencies\": ");
-        s.append("[");
-        if (x.n_dependencies > 0) {
-            inc_indent(); s.append("\n" + indtd);
-            for (size_t i=0; i<x.n_dependencies; i++) {
-                s.append("\"" + std::string(x.m_dependencies[i]) + "\"");
-                if (i < x.n_dependencies-1) {
-                    s.append(",\n" + indtd);
-                };
-            }
-            dec_indent(); s.append("\n" + indtd);
-        }
-        s.append("]");
-        s.append(",\n" + indtd);
-        s.append("\"loaded_from_mod\": ");
-        if (x.m_loaded_from_mod) {
-            s.append("true");
-        } else {
-            s.append("false");
-        }
-        s.append(",\n" + indtd);
-        s.append("\"intrinsic\": ");
-        if (x.m_intrinsic) {
-            s.append("true");
-        } else {
-            s.append("false");
-        }
-        dec_indent(); s.append("\n" + indtd);
-        s.append("}");
-        s.append(",\n" + indtd);
-        append_location(s, x.base.base.loc.first, x.base.base.loc.last);
-        dec_indent(); s.append("\n" + indtd);
-        s.append("}");
-    }
-};
-
-std::string pickle_json(ASR::asr_t &asr, LocationManager &lm) {
-    ASRJsonVisitor v(lm);
-    v.visit_asr(asr);
-    return v.get_str();
-}
-
-std::string pickle_json(ASR::TranslationUnit_t &asr, LocationManager &lm) {
-    return pickle_json((ASR::asr_t &)asr, lm);
-}
-
 }
diff --git a/src/lpython/pickle.h b/src/lpython/pickle.h
index 9c070954c7..ea193f9513 100644
--- a/src/lpython/pickle.h
+++ b/src/lpython/pickle.h
@@ -9,20 +9,12 @@ namespace LCompilers::LPython {
 
     // Pickle an ASR node
     std::string pickle_python(AST::ast_t &ast, bool colors=false, bool indent=false);
-    std::string pickle(ASR::asr_t &asr, bool colors=false, bool indent=false,
-            bool show_intrinsic_modules=false);
-    std::string pickle(ASR::TranslationUnit_t &asr, bool colors=false,
-            bool indent=false, bool show_intrinsic_modules=false);
-    
+
     // Print the tree structure
 	std::string pickle_tree_python(AST::ast_t &ast, bool colors=true);
-    std::string pickle_tree(ASR::asr_t &asr, bool colors, bool show_intrinsic_modules);
-    std::string pickle_tree(ASR::TranslationUnit_t &asr, bool colors, bool show_intrinsic_modules);
 
+    // Print the ASR in json format
     std::string pickle_json(AST::ast_t &ast, LocationManager &lm);
-    std::string pickle_json(ASR::asr_t &asr, LocationManager &lm);
-    std::string pickle_json(ASR::TranslationUnit_t &asr, LocationManager &lm);
-
 }
 
 #endif // LFORTRAN_PICKLE_H
diff --git a/src/lpython/python_evaluator.cpp b/src/lpython/python_evaluator.cpp
index 2f76f5793d..b9d59f22f8 100644
--- a/src/lpython/python_evaluator.cpp
+++ b/src/lpython/python_evaluator.cpp
@@ -1,14 +1,25 @@
 #include <iostream>
 #include <fstream>
+#include <string>
 
 #include <lpython/python_evaluator.h>
+#include <lpython/semantics/python_ast_to_asr.h>
+#include <lpython/python_ast.h>
+#include <lpython/pickle.h>
+#include <lpython/parser/parser.h>
 #include <libasr/codegen/asr_to_cpp.h>
 #include <libasr/exception.h>
 #include <libasr/asr.h>
+#include <libasr/asr_scopes.h>
+#include <libasr/pickle.h>
 
 #ifdef HAVE_LFORTRAN_LLVM
 #include <libasr/codegen/evaluator.h>
 #include <libasr/codegen/asr_to_llvm.h>
+#include <llvm/IR/GlobalVariable.h>
+#include <llvm/IR/Function.h>
+#include <llvm/IR/Type.h>
+#include <llvm/IR/DataLayout.h>
 #else
 namespace LCompilers {
     class LLVMEvaluator {};
@@ -23,39 +34,436 @@ namespace LCompilers {
 
 PythonCompiler::PythonCompiler(CompilerOptions compiler_options)
     :
+    compiler_options{compiler_options},
     al{1024*1024},
 #ifdef HAVE_LFORTRAN_LLVM
     e{std::make_unique<LLVMEvaluator>()},
-    eval_count{0},
 #endif
-    compiler_options{compiler_options}
-//    symbol_table{nullptr}
+    eval_count{1},
+    symbol_table{nullptr},
+    global_underscore_name{""}
 {
 }
 
 PythonCompiler::~PythonCompiler() = default;
 
+Result<PythonCompiler::EvalResult> PythonCompiler::evaluate2(const std::string &code) {
+    LocationManager lm;
+    LCompilers::PassManager lpm;
+    lpm.use_default_passes();
+    {
+        LCompilers::LocationManager::FileLocations fl;
+        fl.in_filename = "input";
+        std::ofstream out("input");
+        out << code;
+        lm.files.push_back(fl);
+        lm.init_simple(code);
+        lm.file_ends.push_back(code.size());
+    }
+    diag::Diagnostics diagnostics;
+    return evaluate(code, false, lm, lpm, diagnostics);
+}
+
+Result<PythonCompiler::EvalResult> PythonCompiler::evaluate(
+#ifdef HAVE_LFORTRAN_LLVM
+            const std::string &code_orig, bool verbose, LocationManager &lm,
+            LCompilers::PassManager& pass_manager, diag::Diagnostics &diagnostics
+#else
+            const std::string &/*code_orig*/, bool /*verbose*/,
+                LocationManager &/*lm*/, LCompilers::PassManager& /*pass_manager*/,
+                diag::Diagnostics &/*diagnostics*/
+#endif
+            )
+{
+#ifdef HAVE_LFORTRAN_LLVM
+    EvalResult result;
+    result.type = EvalResult::none;
+
+    // Src -> AST
+    Result<LCompilers::LPython::AST::ast_t*> res = get_ast2(code_orig, diagnostics);
+    LCompilers::LPython::AST::ast_t* ast;
+    if (res.ok) {
+        ast = res.result;
+    } else {
+        return res.error;
+    }
+
+    if (verbose) {
+        result.ast = LCompilers::LPython::pickle_python(*ast, true, true);
+    }
+
+    // AST -> ASR
+    Result<ASR::TranslationUnit_t*> res2 = get_asr3(*ast, diagnostics, lm, true);
+    ASR::TranslationUnit_t* asr;
+    if (res2.ok) {
+        asr = res2.result;
+    } else {
+        LCOMPILERS_ASSERT(diagnostics.has_error())
+        return res2.error;
+    }
+
+    if (verbose) {
+        result.asr = pickle(*asr, true, true, true);
+    }
+
+    // ASR -> LLVM
+    std::string module_name = "__main__";
+    run_fn = module_name + "global_stmts_" + std::to_string(eval_count) + "__";
+
+    Result<std::unique_ptr<LLVMModule>> res3 = get_llvm3(*asr,
+        pass_manager, diagnostics, lm, lm.files.back().in_filename);
+    std::unique_ptr<LCompilers::LLVMModule> m;
+    if (res3.ok) {
+        m = std::move(res3.result);
+    } else {
+        LCOMPILERS_ASSERT(diagnostics.has_error())
+        return res3.error;
+    }
+
+    if (verbose) {
+        result.llvm_ir = m->str();
+    }
+
+    ASR::symbol_t *global_underscore_symbol = ASR::down_cast<ASR::Module_t>(symbol_table->resolve_symbol(module_name))
+                                    ->m_symtab->get_symbol("_" + run_fn);
+    if (global_underscore_symbol) {
+        global_underscore_name = "_" + run_fn;
+    }
+
+    bool call_run_fn = false;
+    std::string return_type = m->get_return_type(run_fn);
+    if (return_type != "none") {
+      call_run_fn = true;
+    }
+
+    bool struct_to_print = false;
+    ASR::symbol_t *global_underscore_sym = ASR::down_cast<ASR::Module_t>(symbol_table->resolve_symbol(module_name))
+                                    ->m_symtab->get_symbol("_" + run_fn);
+    if ((return_type == "void") && (global_underscore_sym)) {
+        // we compute the offsets of the struct's attribute here
+        // we will be using it later in aggregate_type_to_string to print the struct
+
+        // we compute the offsets here instead of computing it in aggregate_type_to_string
+        // because once we call `e->add_module`, internally LLVM may deallocate all the
+        // type info after compiling the IR into machine code
+
+        llvm::GlobalVariable *g = m->get_global("_" + run_fn);
+        LCOMPILERS_ASSERT(g)
+        llvm::Type *llvm_type = g->getValueType();
+        if (llvm_type->isStructTy()) {
+            struct_to_print = true;
+            compute_offsets(llvm_type, global_underscore_sym, result);
+        }
+    }
+
+    e->add_module(std::move(m));
+    if (call_run_fn) {
+        if (return_type == "integer1ptr") {
+            ASR::symbol_t *fn = ASR::down_cast<ASR::Module_t>(symbol_table->resolve_symbol(module_name))
+                                    ->m_symtab->get_symbol(run_fn);
+            LCOMPILERS_ASSERT(fn)
+            if (ASRUtils::get_FunctionType(fn)->m_return_var_type->type == ASR::ttypeType::String) {
+                char *r = e->execfn<char*>(run_fn);
+                result.type = EvalResult::string;
+                result.str = r;
+            } else {
+                throw LCompilersException("PythonCompiler::evaluate(): Return type not supported");
+            }
+        } else if (return_type == "integer1") {
+            ASR::symbol_t *fn = ASR::down_cast<ASR::Module_t>(symbol_table->resolve_symbol(module_name))
+                                    ->m_symtab->get_symbol(run_fn);
+            LCOMPILERS_ASSERT(fn)
+            if (ASRUtils::get_FunctionType(fn)->m_return_var_type->type == ASR::ttypeType::UnsignedInteger) {
+                uint8_t r = e->execfn<int>(run_fn);
+                result.type = EvalResult::unsignedInteger1;
+                result.u32 = r;
+            } else {
+                int8_t r = e->execfn<int>(run_fn);
+                result.type = EvalResult::integer1;
+                result.i32 = r;
+            }
+        } else if (return_type == "integer2") {
+            ASR::symbol_t *fn = ASR::down_cast<ASR::Module_t>(symbol_table->resolve_symbol(module_name))
+                                    ->m_symtab->get_symbol(run_fn);
+            LCOMPILERS_ASSERT(fn)
+            if (ASRUtils::get_FunctionType(fn)->m_return_var_type->type == ASR::ttypeType::UnsignedInteger) {
+                uint16_t r = e->execfn<int>(run_fn);
+                result.type = EvalResult::unsignedInteger2;
+                result.u32 = r;
+            } else {
+                int16_t r = e->execfn<int>(run_fn);
+                result.type = EvalResult::integer2;
+                result.i32 = r;
+            }
+        } else if (return_type == "integer4") {
+            ASR::symbol_t *fn = ASR::down_cast<ASR::Module_t>(symbol_table->resolve_symbol(module_name))
+                                    ->m_symtab->get_symbol(run_fn);
+            LCOMPILERS_ASSERT(fn)
+            if (ASRUtils::get_FunctionType(fn)->m_return_var_type->type == ASR::ttypeType::UnsignedInteger) {
+                uint32_t r = e->execfn<uint32_t>(run_fn);
+                result.type = EvalResult::unsignedInteger4;
+                result.u32 = r;
+            } else {
+                int32_t r = e->execfn<int32_t>(run_fn);
+                result.type = EvalResult::integer4;
+                result.i32 = r;
+            }
+        } else if (return_type == "integer8") {
+            ASR::symbol_t *fn = ASR::down_cast<ASR::Module_t>(symbol_table->resolve_symbol(module_name))
+                                    ->m_symtab->get_symbol(run_fn);
+            LCOMPILERS_ASSERT(fn)
+            if (ASRUtils::get_FunctionType(fn)->m_return_var_type->type == ASR::ttypeType::UnsignedInteger) {
+                uint64_t r = e->execfn<uint64_t>(run_fn);
+                result.type = EvalResult::unsignedInteger8;
+                result.u64 = r;
+            } else {
+                int64_t r = e->execfn<int64_t>(run_fn);
+                result.type = EvalResult::integer8;
+                result.i64 = r;
+            }
+        } else if (return_type == "real4") {
+            float r = e->execfn<float>(run_fn);
+            result.type = EvalResult::real4;
+            result.f32 = r;
+        } else if (return_type == "real8") {
+            double r = e->execfn<double>(run_fn);
+            result.type = EvalResult::real8;
+            result.f64 = r;
+        } else if (return_type == "complex4") {
+            std::complex<float> r = e->execfn<std::complex<float>>(run_fn);
+            result.type = EvalResult::complex4;
+            result.c32.re = r.real();
+            result.c32.im = r.imag();
+        } else if (return_type == "complex8") {
+            std::complex<double> r = e->execfn<std::complex<double>>(run_fn);
+            result.type = EvalResult::complex8;
+            result.c64.re = r.real();
+            result.c64.im = r.imag();
+        } else if (return_type == "logical") {
+            bool r = e->execfn<bool>(run_fn);
+            result.type = EvalResult::boolean;
+            result.b = r;
+        } else if (return_type == "struct") {
+            e->execfn<void>(run_fn);
+            if (global_underscore_sym) {
+                void *r = (void*)e->get_symbol_address(global_underscore_name);
+                LCOMPILERS_ASSERT(r)
+                result.structure.structure = r;
+                result.type = EvalResult::struct_type;
+            }
+        } else if (return_type == "void") {
+            e->execfn<void>(run_fn);
+            if (global_underscore_sym && struct_to_print) {
+                void *r = (void*)e->get_symbol_address("_" + run_fn);
+                LCOMPILERS_ASSERT(r)
+                result.structure.structure = r;
+                result.type = EvalResult::struct_type;
+            } else {
+                result.type = EvalResult::statement;
+            }
+        } else if (return_type == "none") {
+            result.type = EvalResult::none;
+        } else {
+            throw LCompilersException("PythonCompiler::evaluate(): Return type not supported");
+        }
+    }
+
+    if (call_run_fn) {
+        ASR::down_cast<ASR::Module_t>(symbol_table->resolve_symbol(module_name))->m_symtab
+            ->erase_symbol(run_fn);
+    }
+    if (global_underscore_symbol) {
+        if (ASR::down_cast<ASR::Module_t>(symbol_table->resolve_symbol(module_name))->m_symtab->resolve_symbol("_")) {
+            ASR::down_cast<ASR::Module_t>(symbol_table->resolve_symbol(module_name))->m_symtab
+                    ->erase_symbol("_");
+        }
+        ASR::Variable_t *a = ASR::down_cast<ASR::Variable_t>(global_underscore_symbol);
+        ASR::Variable_t *b = al.make_new<ASR::Variable_t>();
+        *b = *a;
+        Str s;
+        s.from_str(al, "_");
+        b->m_name = s.c_str(al);
+        ASR::down_cast<ASR::Module_t>(symbol_table->resolve_symbol(module_name))->m_symtab
+                ->add_symbol("_", ASR::down_cast<ASR::symbol_t>((ASR::asr_t*)b));
+    }
+
+    eval_count++;
+    return result;
+#else
+    throw LCompilersException("LLVM is not enabled");
+#endif
+}
+
+Result<std::string> PythonCompiler::get_ast(const std::string &code,
+    LocationManager &lm, diag::Diagnostics &diagnostics)
+{
+    Result<LCompilers::LPython::AST::ast_t*> ast = get_ast2(code, diagnostics);
+    if (ast.ok) {
+        if (compiler_options.po.tree) {
+            return LCompilers::LPython::pickle_tree_python(*ast.result, compiler_options.use_colors);
+        } else if (compiler_options.po.json || compiler_options.po.visualize) {
+            return LCompilers::LPython::pickle_json(*ast.result, lm);
+        }
+        return LCompilers::LPython::pickle_python(*ast.result, compiler_options.use_colors,
+            compiler_options.indent);
+    } else {
+        LCOMPILERS_ASSERT(diagnostics.has_error())
+        return ast.error;
+    }
+}
+
+Result<std::string> PythonCompiler::get_asr(const std::string &code,
+    LocationManager &lm, diag::Diagnostics &diagnostics)
+{
+    Result<ASR::TranslationUnit_t*> asr = get_asr2(code, lm, diagnostics);
+    if (asr.ok) {
+        if (compiler_options.po.tree) {
+            return LCompilers::pickle_tree(*asr.result, compiler_options.use_colors);
+        } else if (compiler_options.po.json) {
+            return LCompilers::pickle_json(*asr.result, lm, compiler_options.po.no_loc, false);
+        }
+        return LCompilers::pickle(*asr.result,
+            compiler_options.use_colors, compiler_options.indent);
+    } else {
+        LCOMPILERS_ASSERT(diagnostics.has_error())
+        return asr.error;
+    }
+}
+
+Result<ASR::TranslationUnit_t*> PythonCompiler::get_asr2(
+            const std::string &code_orig, LocationManager &lm,
+            diag::Diagnostics &diagnostics)
+{
+    // Src -> AST
+    Result<LCompilers::LPython::AST::ast_t*> res = get_ast2(code_orig, diagnostics);
+    LCompilers::LPython::AST::ast_t* ast;
+    if (res.ok) {
+        ast = res.result;
+    } else {
+        LCOMPILERS_ASSERT(diagnostics.has_error())
+        return res.error;
+    }
+
+    // AST -> ASR
+    Result<ASR::TranslationUnit_t*> res2 = get_asr3(*ast, diagnostics, lm, true);
+    if (res2.ok) {
+        return res2.result;
+    } else {
+        LCOMPILERS_ASSERT(diagnostics.has_error())
+        return res2.error;
+    }
+}
+
+Result<LCompilers::LPython::AST::ast_t*> PythonCompiler::get_ast2(
+            const std::string &code_orig, diag::Diagnostics &diagnostics)
+{
+    // Src -> AST
+    const std::string *code=&code_orig;
+    std::string tmp;
+    Result<LCompilers::LPython::AST::Module_t*>
+        res = LCompilers::LPython::parse(al, *code, 0, diagnostics);
+    if (res.ok) {
+        return (LCompilers::LPython::AST::ast_t*)res.result;
+    } else {
+        LCOMPILERS_ASSERT(diagnostics.has_error())
+        return res.error;
+    }
+}
+
+Result<ASR::TranslationUnit_t*> PythonCompiler::get_asr3(
+    LCompilers::LPython::AST::ast_t &ast, diag::Diagnostics &diagnostics,
+    LocationManager &lm, bool is_interactive)
+{
+    ASR::TranslationUnit_t* asr;
+    // AST -> ASR
+    if (symbol_table) {
+        symbol_table->mark_all_variables_external(al);
+    }
+    auto res = LCompilers::LPython::python_ast_to_asr(al, lm, symbol_table, ast, diagnostics,
+        compiler_options, true, "__main__", "", false, is_interactive ? eval_count : 0);
+    if (res.ok) {
+        asr = res.result;
+    } else {
+        LCOMPILERS_ASSERT(diagnostics.has_error())
+        return res.error;
+    }
+    if (!symbol_table) symbol_table = asr->m_symtab;
+
+    return asr;
+}
+
+Result<std::string> PythonCompiler::get_llvm(
+    const std::string &code, LocationManager &lm, LCompilers::PassManager& pass_manager,
+    diag::Diagnostics &diagnostics
+    )
+{
+    Result<std::unique_ptr<LLVMModule>> res = get_llvm2(code, lm, pass_manager, diagnostics);
+    if (res.ok) {
+#ifdef HAVE_LFORTRAN_LLVM
+        return res.result->str();
+#else
+        throw LCompilersException("LLVM is not enabled");
+#endif
+    } else {
+        LCOMPILERS_ASSERT(diagnostics.has_error())
+        return res.error;
+    }
+}
+
+Result<std::unique_ptr<LLVMModule>> PythonCompiler::get_llvm2(
+    const std::string &code, LocationManager &lm, LCompilers::PassManager& pass_manager,
+    diag::Diagnostics &diagnostics)
+{
+    Result<ASR::TranslationUnit_t*> asr = get_asr2(code, lm, diagnostics);
+    if (!asr.ok) {
+        return asr.error;
+    }
+    Result<std::unique_ptr<LLVMModule>> res = get_llvm3(*asr.result, pass_manager,
+        diagnostics, lm, lm.files.back().in_filename);
+    if (res.ok) {
+#ifdef HAVE_LFORTRAN_LLVM
+        std::unique_ptr<LLVMModule> m = std::move(res.result);
+        return m;
+#else
+        throw LCompilersException("LLVM is not enabled");
+#endif
+    } else {
+        LCOMPILERS_ASSERT(diagnostics.has_error())
+        return res.error;
+    }
+}
+
 
 Result<std::unique_ptr<LLVMModule>> PythonCompiler::get_llvm3(
 #ifdef HAVE_LFORTRAN_LLVM
     ASR::TranslationUnit_t &asr, LCompilers::PassManager& lpm,
-    diag::Diagnostics &diagnostics, const std::string &infile
+    diag::Diagnostics &diagnostics, LCompilers::LocationManager &lm, const std::string &infile
 #else
     ASR::TranslationUnit_t &/*asr*/, LCompilers::PassManager&/*lpm*/,
-    diag::Diagnostics &/*diagnostics*/,const std::string &/*infile*/
+    diag::Diagnostics &/*diagnostics*/, LCompilers::LocationManager & /*lm*/, const std::string &/*infile*/
 #endif
     )
 {
 #ifdef HAVE_LFORTRAN_LLVM
-    eval_count++;
-    run_fn = "__lfortran_evaluate_" + std::to_string(eval_count);
-
+    if (compiler_options.emit_debug_info) {
+        if (!compiler_options.emit_debug_line_column) {
+            diagnostics.add(LCompilers::diag::Diagnostic(
+                "The `emit_debug_line_column` is not enabled; please use the "
+                "`--debug-with-line-column` option to get the correct "
+                "location information",
+                LCompilers::diag::Level::Error,
+                LCompilers::diag::Stage::Semantic, {})
+            );
+            Error err;
+            return err;
+        }
+    }
     // ASR -> LLVM
     std::unique_ptr<LCompilers::LLVMModule> m;
     Result<std::unique_ptr<LCompilers::LLVMModule>> res
         = asr_to_llvm(asr, diagnostics,
             e->get_context(), al, lpm, compiler_options,
-            run_fn, infile);
+            run_fn, global_underscore_name, infile, lm);
     if (res.ok) {
         m = std::move(res.result);
     } else {
@@ -63,7 +471,7 @@ Result<std::unique_ptr<LLVMModule>> PythonCompiler::get_llvm3(
         return res.error;
     }
 
-    if (compiler_options.fast) {
+    if (compiler_options.po.fast) {
         e->opt(*m->m_m);
     }
 
@@ -73,4 +481,188 @@ Result<std::unique_ptr<LLVMModule>> PythonCompiler::get_llvm3(
 #endif
 }
 
+Result<std::string> PythonCompiler::get_asm(
+#ifdef HAVE_LFORTRAN_LLVM
+    const std::string &code, LocationManager &lm,
+    LCompilers::PassManager& lpm,
+    diag::Diagnostics &diagnostics
+#else
+    const std::string &/*code*/,
+    LocationManager &/*lm*/,
+    LCompilers::PassManager&/*lpm*/,
+    diag::Diagnostics &/*diagnostics*/
+#endif
+    )
+{
+#ifdef HAVE_LFORTRAN_LLVM
+    Result<std::unique_ptr<LLVMModule>> res = get_llvm2(code, lm, lpm, diagnostics);
+    if (res.ok) {
+        return e->get_asm(*res.result->m_m);
+    } else {
+        LCOMPILERS_ASSERT(diagnostics.has_error())
+        return res.error;
+    }
+#else
+    throw LCompilersException("LLVM is not enabled");
+#endif
+}
+
+
+void print_type(ASR::ttype_t *t, void *data, std::string &result);
+
+std::string PythonCompiler::aggregate_type_to_string(const struct EvalResult &r) {
+    ASR::ttype_t *asr_type = r.structure.ttype;
+    void *data = r.structure.structure;
+    size_t *offsets = r.structure.offsets;
+    size_t element_size = r.structure.element_size;
+
+    std::string result;
+
+    if (asr_type->type == ASR::ttypeType::List) {
+        int32_t size = *(int32_t*)(((char*)data)+offsets[0]);
+        void *array = *(void**)(((char*)data)+offsets[2]);
+        ASR::ttype_t *element_ttype = ASR::down_cast<ASR::List_t>(asr_type)->m_type;
+
+        result += "[";
+        for (int32_t i = 0; i < size - 1; i++) {
+            print_type(element_ttype, ((char*)array)+(i*element_size), result);
+            result += ", ";
+        }
+        print_type(element_ttype, ((char*)array)+((size - 1)*element_size), result);
+        result += "]";
+
+    } else if (asr_type->type == ASR::ttypeType::Tuple) {
+        ASR::Tuple_t *tuple_type = ASR::down_cast<ASR::Tuple_t>(asr_type);
+        result += "(";
+        for (size_t i = 0; i < tuple_type->n_type - 1; i++) {
+            print_type(tuple_type->m_type[i], ((char*)data)+offsets[i], result);
+            result += ", ";
+        }
+        print_type(tuple_type->m_type[tuple_type->n_type - 1], ((char*)data)+offsets[tuple_type->n_type - 1], result);
+        result += ")";
+
+    /*} else if (asr_type->type == ASR::ttypeType::StructType) {*/
+    /*    ASR::StructType_t *class_type = ASR::down_cast<ASR::StructType_t>(asr_type);*/
+    /*    ASR::Struct_t *struct_info = ASR::down_cast<ASR::Struct_t>(class_type->m_derived_type);*/
+    /*    LCOMPILERS_ASSERT(class_type->n_data_member_types == struct_info->n_members)*/
+    /*    result += struct_info->m_name;*/
+    /*    result += "(";*/
+    /*    for (size_t i = 0; i < struct_info->n_members - 1; i++) {*/
+    /*        result += struct_info->m_members[i];*/
+    /*        result += "=";*/
+    /*        print_type(class_type->m_data_member_types[i], ((char*)data)+offsets[i], result);*/
+    /*        result += ", ";*/
+    /*    }*/
+    /*    result += struct_info->m_members[struct_info->n_members - 1];*/
+    /*    result += "=";*/
+    /*    print_type(class_type->m_data_member_types[struct_info->n_members - 1], ((char*)data)+offsets[struct_info->n_members - 1], result);*/
+    /*    result += ")";*/
+    /**/
+    } else {
+        throw LCompilersException("PythonCompiler::evaluate(): Return type not supported");
+    }
+
+    return result;
+}
+
+void PythonCompiler::compute_offsets(llvm::Type *type, ASR::symbol_t *asr_type, EvalResult &result) {
+#ifdef HAVE_LFORTRAN_LLVM
+        LCOMPILERS_ASSERT(type->isStructTy())
+
+        const llvm::DataLayout &dl = e->get_jit_data_layout();
+        size_t elements_count = type->getStructNumElements();
+        LCompilers::Vec<size_t> offsets;
+        offsets.reserve(al, elements_count);
+        for (size_t i = 0; i < elements_count; i++) {
+            size_t offset = dl.getStructLayout((llvm::StructType*)type)->getElementOffset(i);
+            offsets.push_back(al, offset);
+        }
+        result.structure.offsets = offsets.p;
+
+        result.structure.ttype = ASR::down_cast<ASR::Variable_t>(asr_type)->m_type;
+        if (result.structure.ttype->type == ASR::ttypeType::List) {
+            type = type->getStructElementType(2);
+            LCOMPILERS_ASSERT(type->isPointerTy())
+            result.structure.element_size = e->get_jit_data_layout().getTypeAllocSize(
+#if LLVM_VERSION_MAJOR >= 14
+                                                type->getNonOpaquePointerElementType()
+#else
+                                                type->getPointerElementType()
+#endif
+                                                );
+        }
+#else
+    throw LCompilersException("LLVM is not enabled");
+#endif
+}
+
+void print_type(ASR::ttype_t *t, void *data, std::string &result) {
+    switch (t->type) {
+        case ASR::ttypeType::Logical:
+            result += (*(bool*)data ? "True" : "False");
+            break;
+        case ASR::ttypeType::Integer: {
+            int64_t a_kind = ASR::down_cast<ASR::Integer_t>(t)->m_kind;
+            switch (a_kind) {
+                case 1:
+                    result += std::to_string(int(*(int8_t*)data));
+                    break;
+                case 2:
+                    result += std::to_string(*(int16_t*)data);
+                    break;
+                case 4:
+                    result += std::to_string(*(int32_t*)data);
+                    break;
+                case 8:
+                    result += std::to_string(*(int64_t*)data);
+                    break;
+                default:
+                    throw LCompilersException("Unaccepted int size");
+            }
+            break;
+        }
+        case ASR::ttypeType::UnsignedInteger: {
+            int64_t a_kind = ASR::down_cast<ASR::UnsignedInteger_t>(t)->m_kind;
+            switch (a_kind) {
+                case 1:
+                    result += std::to_string(int(*(uint8_t*)data));
+                    break;
+                case 2:
+                    result += std::to_string(*(uint16_t*)data);
+                    break;
+                case 4:
+                    result += std::to_string(*(uint32_t*)data);
+                    break;
+                case 8:
+                    result += std::to_string(*(uint64_t*)data);
+                    break;
+                default:
+                    throw LCompilersException("Unaccepted int size");
+            }
+            break;
+        }
+        case ASR::ttypeType::Real: {
+            int64_t a_kind = ASR::down_cast<ASR::Real_t>(t)->m_kind;
+            switch (a_kind) {
+                case 4:
+                    result += std::to_string(*(float*)data);
+                    break;
+                case 8:
+                    result += std::to_string(*(double*)data);
+                    break;
+                default:
+                    throw LCompilersException("Unaccepted real size");
+            }
+            break;
+        }
+        case ASR::ttypeType::String:
+            result += '"';
+            result += std::string(*(char**)data); // TODO: replace \n with \\n
+            result += '"';
+            break;
+        default:
+            throw LCompilersException("PythonCompiler::print_type(): type not supported");
+    }
+}
+
 } // namespace LCompilers::LPython
diff --git a/src/lpython/python_evaluator.h b/src/lpython/python_evaluator.h
index b18b0aaf88..5fa32b35ce 100644
--- a/src/lpython/python_evaluator.h
+++ b/src/lpython/python_evaluator.h
@@ -7,11 +7,16 @@
 #include <libasr/alloc.h>
 #include <libasr/asr_scopes.h>
 #include <libasr/asr.h>
+#include <lpython/python_ast.h>
 #include <lpython/utils.h>
 #include <libasr/config.h>
 #include <libasr/diagnostics.h>
 #include <libasr/pass/pass_manager.h>
 
+namespace llvm {
+    class Type;
+}
+
 namespace LCompilers {
 
 class LLVMModule;
@@ -31,39 +36,108 @@ class LLVMEvaluator;
 class PythonCompiler
 {
 public:
+    CompilerOptions compiler_options;
+
     PythonCompiler(CompilerOptions compiler_options);
     ~PythonCompiler();
 
     struct EvalResult {
         enum {
-            integer4, integer8, real4, real8, complex4, complex8, statement, none
+            integer1,
+            integer2,
+            unsignedInteger1,
+            unsignedInteger2,
+            integer4,
+            integer8,
+            unsignedInteger4,
+            unsignedInteger8,
+            real4,
+            real8,
+            complex4,
+            complex8,
+            boolean,
+            string,
+            struct_type,
+            statement,
+            none
         } type;
         union {
             int32_t i32;
             int64_t i64;
+            uint32_t u32;
+            uint64_t u64;
+            bool b;
             float f32;
             double f64;
+            char *str;
             struct {float re, im;} c32;
             struct {double re, im;} c64;
+            struct {
+                void *structure;
+                ASR::ttype_t *ttype;
+                size_t *offsets;
+                size_t element_size;
+            } structure;
         };
         std::string ast;
         std::string asr;
         std::string llvm_ir;
     };
 
+    Result<PythonCompiler::EvalResult> evaluate(
+            const std::string &code_orig, bool verbose, LocationManager &lm,
+            LCompilers::PassManager& pass_manager, diag::Diagnostics &diagnostics);
+
+    Result<PythonCompiler::EvalResult> evaluate2(const std::string &code);
+
+    Result<std::string> get_ast(const std::string &code,
+            LocationManager &lm, diag::Diagnostics &diagnostics);
+
+    Result<LCompilers::LPython::AST::ast_t*> get_ast2(
+            const std::string &code_orig, diag::Diagnostics &diagnostics);
+
+    Result<std::string> get_asr(const std::string &code,
+            LocationManager &lm, diag::Diagnostics &diagnostics);
+
+    Result<ASR::TranslationUnit_t*> get_asr2(
+            const std::string &code_orig, LocationManager &lm,
+            diag::Diagnostics &diagnostics);
+
+    Result<ASR::TranslationUnit_t*> get_asr3(
+        LCompilers::LPython::AST::ast_t &ast, diag::Diagnostics &diagnostics,
+        LocationManager &lm, bool is_interactive=false);
+
+    Result<std::string> get_llvm(
+            const std::string &code, LocationManager &lm, LCompilers::PassManager& pass_manager,
+            diag::Diagnostics &diagnostics);
+
+    Result<std::unique_ptr<LLVMModule>> get_llvm2(
+            const std::string &code, LocationManager &lm, LCompilers::PassManager& pass_manager,
+            diag::Diagnostics &diagnostics);
+
     Result<std::unique_ptr<LLVMModule>> get_llvm3(ASR::TranslationUnit_t &asr,
-        LCompilers::PassManager& lpm, diag::Diagnostics &diagnostics,
+        LCompilers::PassManager& lpm, diag::Diagnostics &diagnostics, LCompilers::LocationManager& lm,
         const std::string &infile);
 
+    Result<std::string> get_asm(const std::string &code,
+            LocationManager &lm,
+            LCompilers::PassManager& pass_manager,
+            diag::Diagnostics &diagnostics);
+
+    std::string aggregate_type_to_string(const struct EvalResult &r);
+
+private:
+    void compute_offsets(llvm::Type *type, ASR::symbol_t *asr_type, EvalResult &result);
+
 private:
     Allocator al;
 #ifdef HAVE_LFORTRAN_LLVM
     std::unique_ptr<LLVMEvaluator> e;
-    int eval_count;
 #endif
-    CompilerOptions compiler_options;
-//    SymbolTable *symbol_table;
+    int eval_count;
+    SymbolTable *symbol_table;
     std::string run_fn;
+    std::string global_underscore_name;
 };
 
 } // namespace LCompilers
diff --git a/src/lpython/python_kernel.cpp b/src/lpython/python_kernel.cpp
new file mode 100644
index 0000000000..319466cff7
--- /dev/null
+++ b/src/lpython/python_kernel.cpp
@@ -0,0 +1,540 @@
+#include <iostream>
+
+#include <stdio.h>
+#include <stdlib.h>
+
+#ifdef _WIN32
+#    include <io.h>
+#    define fileno _fileno
+#    define dup _dup
+#    define dup2 _dup2
+#    define close _close
+#    include <fcntl.h>
+#else
+#    include <unistd.h>
+#endif
+
+#include <xeus/xinterpreter.hpp>
+#include <xeus/xkernel.hpp>
+#include <xeus/xkernel_configuration.hpp>
+#include <xeus-zmq/xzmq_context.hpp>
+#include <xeus-zmq/xserver_zmq_split.hpp>
+
+#include <nlohmann/json.hpp>
+
+#include <lpython/python_kernel.h>
+#include <lpython/parser/parser.h>
+#include <lpython/semantics/python_ast_to_asr.h>
+#include <libasr/codegen/asr_to_llvm.h>
+#include <lpython/python_evaluator.h>
+#include <libasr/asr_utils.h>
+#include <libasr/string_utils.h>
+
+namespace nl = nlohmann;
+
+namespace LCompilers::LPython {
+
+
+    class RedirectStdout
+    {
+    public:
+        RedirectStdout(std::string &out) : _out{out} {
+            stdout_fileno = fileno(stdout);
+            std::cout << std::flush;
+            fflush(stdout);
+            saved_stdout = dup(stdout_fileno);
+#ifdef _WIN32
+            if (_pipe(out_pipe, 65536, O_BINARY) != 0) {
+#else
+            if (pipe(out_pipe) != 0) {
+#endif
+                throw LCompilersException("pipe() failed");
+            }
+            dup2(out_pipe[1], stdout_fileno);
+            close(out_pipe[1]);
+            printf("X");
+        }
+
+        ~RedirectStdout() {
+            fflush(stdout);
+            (void)read(out_pipe[0], buffer, MAX_LEN);
+            dup2(saved_stdout, stdout_fileno);
+            _out = std::string(&buffer[1]);
+        }
+    private:
+        std::string &_out;
+        static const size_t MAX_LEN=1024;
+        char buffer[MAX_LEN+1] = {0};
+        int out_pipe[2];
+        int saved_stdout;
+        int stdout_fileno;
+    };
+
+    class custom_interpreter : public xeus::xinterpreter
+    {
+    private:
+        PythonCompiler e;
+
+    public:
+        custom_interpreter() : e{CompilerOptions()} {
+            e.compiler_options.interactive = true;
+            e.compiler_options.po.disable_main = true;
+            e.compiler_options.emit_debug_line_column = false;
+            e.compiler_options.separate_compilation = false;
+        }
+        virtual ~custom_interpreter() = default;
+
+    private:
+
+        void configure_impl() override;
+
+        void execute_request_impl(send_reply_callback cb,
+                                  int execution_counter,
+                                  const std::string& code,
+                                  //bool silent,
+                                  //bool store_history,
+                                  xeus::execute_request_config config,
+                                  nl::json user_expressions) override;
+
+        nl::json complete_request_impl(const std::string& code,
+                                       int cursor_pos) override;
+
+        nl::json inspect_request_impl(const std::string& code,
+                                      int cursor_pos,
+                                      int detail_level) override;
+
+        nl::json is_complete_request_impl(const std::string& code) override;
+
+        nl::json kernel_info_request_impl() override;
+
+        void shutdown_request_impl() override;
+    };
+
+
+    void custom_interpreter::execute_request_impl(send_reply_callback cb,
+                                                  int execution_counter, // Typically the cell number
+                                                  const std::string& code, // Code to execute
+                                                  xeus::execute_request_config, //config
+                                                  nl::json /*user_expressions*/)
+    {
+        PythonCompiler::EvalResult r;
+        std::string std_out;
+        std::string code0;
+        CompilerOptions cu;
+        try {
+            if (startswith(code, "%%showast")) {
+                code0 = code.substr(code.find("\n")+1);
+                LocationManager lm;
+                {
+                    LocationManager::FileLocations fl;
+                    fl.in_filename = "input";
+                    std::ofstream out("input");
+                    out << code0;
+                    lm.files.push_back(fl);
+                }
+                diag::Diagnostics diagnostics;
+                Result<std::string>
+                    res = e.get_ast(code0, lm, diagnostics);
+                nl::json result;
+                if (res.ok) {
+                    publish_stream("stdout", res.result);
+                    result["status"] = "ok";
+                    result["payload"] = nl::json::array();
+                    result["user_expressions"] = nl::json::object();
+                } else {
+                    std::string msg = diagnostics.render(lm, cu);
+                    publish_stream("stderr", msg);
+                    result["status"] = "error";
+                    result["ename"] = "CompilerError";
+                    result["evalue"] = msg;
+                    result["traceback"] = nl::json::array();
+                }
+                cb(result);
+                return;
+            }
+            if (startswith(code, "%%showasr")) {
+                code0 = code.substr(code.find("\n")+1);
+                LocationManager lm;
+                {
+                    LocationManager::FileLocations fl;
+                    fl.in_filename = "input";
+                    std::ofstream out("input");
+                    out << code0;
+                    lm.files.push_back(fl);
+                }
+                diag::Diagnostics diagnostics;
+                Result<std::string>
+                res = e.get_asr(code0, lm, diagnostics);
+                nl::json result;
+                if (res.ok) {
+                    publish_stream("stdout", res.result);
+                    result["status"] = "ok";
+                    result["payload"] = nl::json::array();
+                    result["user_expressions"] = nl::json::object();
+                } else {
+                    std::string msg = diagnostics.render(lm, cu);
+                    publish_stream("stderr", msg);
+                    result["status"] = "error";
+                    result["ename"] = "CompilerError";
+                    result["evalue"] = msg;
+                    result["traceback"] = nl::json::array();
+                }
+                cb(result);
+                return;
+            }
+            if (startswith(code, "%%showllvm")) {
+                code0 = code.substr(code.find("\n")+1);
+                LocationManager lm;
+                {
+                    LCompilers::LocationManager::FileLocations fl;
+                    fl.in_filename = "input";
+                    std::ofstream out("input");
+                    out << code0;
+                    lm.files.push_back(fl);
+                    lm.init_simple(code0);
+                    lm.file_ends.push_back(code0.size());
+                }
+                LCompilers::PassManager lpm;
+                lpm.use_default_passes();
+                diag::Diagnostics diagnostics;
+                Result<std::string>
+                res = e.get_llvm(code0, lm, lpm, diagnostics);
+                nl::json result;
+                if (res.ok) {
+                    publish_stream("stdout", res.result);
+                    result["status"] = "ok";
+                    result["payload"] = nl::json::array();
+                    result["user_expressions"] = nl::json::object();
+                } else {
+                    std::string msg = diagnostics.render(lm, cu);
+                    publish_stream("stderr", msg);
+                    result["status"] = "error";
+                    result["ename"] = "CompilerError";
+                    result["evalue"] = msg;
+                    result["traceback"] = nl::json::array();
+                }
+                cb(result);
+                return;
+            }
+            if (startswith(code, "%%showasm")) {
+                code0 = code.substr(code.find("\n")+1);
+                LocationManager lm;
+                {
+                    LCompilers::LocationManager::FileLocations fl;
+                    fl.in_filename = "input";
+                    std::ofstream out("input");
+                    out << code0;
+                    lm.files.push_back(fl);
+                    lm.init_simple(code0);
+                    lm.file_ends.push_back(code0.size());
+                }
+                LCompilers::PassManager lpm;
+                lpm.use_default_passes();
+                diag::Diagnostics diagnostics;
+                Result<std::string>
+                res = e.get_asm(code0, lm, lpm, diagnostics);
+                nl::json result;
+                if (res.ok) {
+                    publish_stream("stdout", res.result);
+                    result["status"] = "ok";
+                    result["payload"] = nl::json::array();
+                    result["user_expressions"] = nl::json::object();
+                } else {
+                    std::string msg = diagnostics.render(lm, cu);
+                    publish_stream("stderr", msg);
+                    result["status"] = "error";
+                    result["ename"] = "CompilerError";
+                    result["evalue"] = msg;
+                    result["traceback"] = nl::json::array();
+                }
+                cb(result);
+                return;
+            }
+            // if (startswith(code, "%%showcpp")) {
+            //     code0 = code.substr(code.find("\n")+1);
+            //     LocationManager lm;
+            //     {
+            //         LocationManager::FileLocations fl;
+            //         fl.in_filename = "input";
+            //         std::ofstream out("input");
+            //         out << code0;
+            //         lm.files.push_back(fl);
+            //     }
+            //     diag::Diagnostics diagnostics;
+            //     Result<std::string>
+            //     res = e.get_cpp(code0, lm, diagnostics, 1);
+            //     nl::json result;
+            //     if (res.ok) {
+            //         publish_stream("stdout", res.result);
+            //         result["status"] = "ok";
+            //         result["payload"] = nl::json::array();
+            //         result["user_expressions"] = nl::json::object();
+            //     } else {
+            //         std::string msg = diagnostics.render(lm, cu);
+            //         publish_stream("stderr", msg);
+            //         result["status"] = "error";
+            //         result["ename"] = "CompilerError";
+            //         result["evalue"] = msg;
+            //         result["traceback"] = nl::json::array();
+            //     }
+            //     cb(result);
+            //     return;
+            // }
+            // if (startswith(code, "%%showfmt")) {
+            //     code0 = code.substr(code.find("\n")+1);
+            //     LocationManager lm;
+            //     {
+            //         LocationManager::FileLocations fl;
+            //         fl.in_filename = "input";
+            //         std::ofstream out("input");
+            //         out << code0;
+            //         lm.files.push_back(fl);
+            //     }
+            //     diag::Diagnostics diagnostics;
+            //     Result<std::string>
+            //     res = e.get_fmt(code0, lm, diagnostics);
+            //     nl::json result;
+            //     if (res.ok) {
+            //         publish_stream("stdout", res.result);
+            //         result["status"] = "ok";
+            //         result["payload"] = nl::json::array();
+            //         result["user_expressions"] = nl::json::object();
+            //     } else {
+            //         std::string msg = diagnostics.render(lm, cu);
+            //         publish_stream("stderr", msg);
+            //         result["status"] = "error";
+            //         result["ename"] = "CompilerError";
+            //         result["evalue"] = msg;
+            //         result["traceback"] = nl::json::array();
+            //     }
+            //     cb(result);
+            //     return;
+            // }
+
+            RedirectStdout s(std_out);
+            code0 = code;
+            LocationManager lm;
+            {
+                LCompilers::LocationManager::FileLocations fl;
+                fl.in_filename = "input";
+                std::ofstream out("input");
+                out << code0;
+                lm.files.push_back(fl);
+                lm.init_simple(code0);
+                lm.file_ends.push_back(code0.size());
+            }
+            LCompilers::PassManager lpm;
+            lpm.use_default_passes();
+            diag::Diagnostics diagnostics;
+            Result<PythonCompiler::EvalResult>
+            res = e.evaluate(code0, false, lm, lpm, diagnostics);
+            if (res.ok) {
+                r = res.result;
+            } else {
+                std::string msg = diagnostics.render(lm, cu);
+                publish_stream("stderr", msg);
+                nl::json result;
+                result["status"] = "error";
+                result["ename"] = "CompilerError";
+                result["evalue"] = msg;
+                result["traceback"] = nl::json::array();
+                cb(result);
+                return;
+            }
+        } catch (const LCompilersException &e) {
+            publish_stream("stderr", "LFortran Exception: " + e.msg());
+            nl::json result;
+            result["status"] = "error";
+            result["ename"] = "LCompilersException";
+            result["evalue"] = e.msg();
+            result["traceback"] = nl::json::array();
+            cb(result);
+            return;
+        }
+
+        if (std_out.size() > 0) {
+            publish_stream("stdout", std_out);
+        }
+
+        switch (r.type) {
+            case (LCompilers::PythonCompiler::EvalResult::integer4) : {
+                nl::json pub_data;
+                pub_data["text/plain"] = std::to_string(r.i32);
+                publish_execution_result(execution_counter, std::move(pub_data), nl::json::object());
+                break;
+            }
+            case (LCompilers::PythonCompiler::EvalResult::integer8) : {
+                nl::json pub_data;
+                pub_data["text/plain"] = std::to_string(r.i64);
+                publish_execution_result(execution_counter, std::move(pub_data), nl::json::object());
+                break;
+            }
+            case (LCompilers::PythonCompiler::EvalResult::real4) : {
+                nl::json pub_data;
+                pub_data["text/plain"] = std::to_string(r.f32);
+                publish_execution_result(execution_counter, std::move(pub_data), nl::json::object());
+                break;
+            }
+            case (LCompilers::PythonCompiler::EvalResult::real8) : {
+                nl::json pub_data;
+                pub_data["text/plain"] = std::to_string(r.f64);
+                publish_execution_result(execution_counter, std::move(pub_data), nl::json::object());
+                break;
+            }
+            case (LCompilers::PythonCompiler::EvalResult::complex4) : {
+                nl::json pub_data;
+                pub_data["text/plain"] = "(" + std::to_string(r.c32.re) + ", " + std::to_string(r.c32.im) + ")";
+                publish_execution_result(execution_counter, std::move(pub_data), nl::json::object());
+                break;
+            }
+            case (LCompilers::PythonCompiler::EvalResult::complex8) : {
+                nl::json pub_data;
+                pub_data["text/plain"] = "(" + std::to_string(r.c64.re) + ", " + std::to_string(r.c64.im) + ")";
+                publish_execution_result(execution_counter, std::move(pub_data), nl::json::object());
+                break;
+            }
+            case (LCompilers::PythonCompiler::EvalResult::statement) : {
+                break;
+            }
+            case (LCompilers::PythonCompiler::EvalResult::none) : {
+                break;
+            }
+            default : throw LCompilersException("Return type not supported");
+        }
+
+        nl::json result;
+        result["status"] = "ok";
+        result["payload"] = nl::json::array();
+        result["user_expressions"] = nl::json::object();
+        cb(result);
+        return;
+    }
+
+    void custom_interpreter::configure_impl()
+    {
+        // Perform some operations
+    }
+
+    nl::json custom_interpreter::complete_request_impl(const std::string& code,
+                                                       int cursor_pos)
+    {
+        nl::json result;
+
+        // Code starts with 'H', it could be the following completion
+        if (code[0] == 'H')
+        {
+            result["status"] = "ok";
+            result["matches"] = {"Hello", "Hey", "Howdy"};
+            result["cursor_start"] = 5;
+            result["cursor_end"] = cursor_pos;
+        }
+        // No completion result
+        else
+        {
+            result["status"] = "ok";
+            result["matches"] = nl::json::array();
+            result["cursor_start"] = cursor_pos;
+            result["cursor_end"] = cursor_pos;
+        }
+
+        return result;
+    }
+
+    nl::json custom_interpreter::inspect_request_impl(const std::string& code,
+                                                      int /*cursor_pos*/,
+                                                      int /*detail_level*/)
+    {
+        nl::json result;
+
+        if (code.compare("print") == 0)
+        {
+            result["found"] = true;
+            result["text/plain"] = "Print objects to the text stream file, [...]";
+        }
+        else
+        {
+            result["found"] = false;
+        }
+
+        result["status"] = "ok";
+        return result;
+    }
+
+    nl::json custom_interpreter::is_complete_request_impl(const std::string& /*code*/)
+    {
+        nl::json result;
+
+        // if (is_complete(code))
+        // {
+            result["status"] = "complete";
+        // }
+        // else
+        // {
+        //    result["status"] = "incomplete";
+        //    result["indent"] = 4;
+        //}
+
+        return result;
+    }
+
+    nl::json custom_interpreter::kernel_info_request_impl()
+    {
+        nl::json result;
+        std::string version = LFORTRAN_VERSION;
+        std::string banner = ""
+            "LFortran " + version + "\n"
+            "Jupyter kernel for Fortran";
+        result["banner"] = banner;
+        result["implementation"] = "LFortran";
+        result["implementation_version"] = version;
+        result["language_info"]["name"] = "python";
+        result["language_info"]["version"] = "2018";
+        result["language_info"]["mimetype"] = "text/x-python";
+        result["language_info"]["file_extension"] = ".f90";
+        return result;
+    }
+
+    void custom_interpreter::shutdown_request_impl() {
+        std::cout << "Bye!!" << std::endl;
+    }
+
+    int run_kernel(const std::string &connection_filename)
+    {
+        std::unique_ptr<xeus::xcontext> context = xeus::make_zmq_context();
+
+        // Create interpreter instance
+        using interpreter_ptr = std::unique_ptr<custom_interpreter>;
+        interpreter_ptr interpreter = interpreter_ptr(new custom_interpreter());
+
+        using history_manager_ptr = std::unique_ptr<xeus::xhistory_manager>;
+        history_manager_ptr hist = xeus::make_in_memory_history_manager();
+
+        nl::json debugger_config;
+
+        // Load configuration file
+        xeus::xconfiguration config = xeus::load_configuration(connection_filename);
+
+        // Create kernel instance and start it
+        xeus::xkernel kernel(config,
+                             xeus::get_user_name(),
+                             std::move(context),
+                             std::move(interpreter),
+                             xeus::make_xserver_shell_main,
+                             std::move(hist),
+                             xeus::make_console_logger(xeus::xlogger::msg_type,
+                                                       xeus::make_file_logger(xeus::xlogger::content, "xeus.log")),
+                             xeus::make_null_debugger,
+                             debugger_config);
+
+        std::cout <<
+            "Starting xeus-lpython kernel...\n\n"
+            "If you want to connect to this kernel from an other client, you can use"
+            " the " + connection_filename + " file."
+            << std::endl;
+
+        kernel.start();
+
+        return 0;
+    }
+
+} // namespace LCompilers::LFortran
diff --git a/src/lpython/python_kernel.h b/src/lpython/python_kernel.h
new file mode 100644
index 0000000000..bf0a5c5173
--- /dev/null
+++ b/src/lpython/python_kernel.h
@@ -0,0 +1,15 @@
+#ifndef LFORTRAN_PYTHON_KERNEL_H
+#define LFORTRAN_PYTHON_KERNEL_H
+
+#include <libasr/config.h>
+#include <string>
+
+namespace LCompilers::LPython {
+
+#ifdef HAVE_LFORTRAN_XEUS
+    int run_kernel(const std::string &connection_filename);
+#endif
+
+} // namespace LCompilers::LFortran
+
+#endif // LFORTRAN_PYTHON_KERNEL_H
diff --git a/src/lpython/python_serialization.cpp b/src/lpython/python_serialization.cpp
index 7afe96faa8..4ebf483f94 100644
--- a/src/lpython/python_serialization.cpp
+++ b/src/lpython/python_serialization.cpp
@@ -23,7 +23,7 @@ class ASTDeserializationVisitor :
 #else
         TextReader(s),
 #endif
-        DeserializationBaseVisitor(al, true) {}
+        DeserializationBaseVisitor(al, true, 0) {}
 
     bool read_bool() {
         uint8_t b = read_int8();
diff --git a/src/lpython/semantics/python_ast_to_asr.cpp b/src/lpython/semantics/python_ast_to_asr.cpp
index 8cc5946305..2ce695f68b 100644
--- a/src/lpython/semantics/python_ast_to_asr.cpp
+++ b/src/lpython/semantics/python_ast_to_asr.cpp
@@ -17,9 +17,14 @@
 #include <libasr/config.h>
 #include <libasr/string_utils.h>
 #include <libasr/utils.h>
-#include <libasr/pass/global_stmts_program.h>
 #include <libasr/pass/instantiate_template.h>
+#include <libasr/pass/wrap_global_stmts.h>
+#include <libasr/pass/intrinsic_function_registry.h>
+#include <libasr/pass/intrinsic_array_function_registry.h>
 #include <libasr/modfile.h>
+#include <libasr/casting_utils.h>
+#include <libasr/codegen/asr_to_fortran.h>
+#include <libasr/pickle.h>
 
 #include <lpython/python_ast.h>
 #include <lpython/semantics/python_ast_to_asr.h>
@@ -34,140 +39,11 @@
 
 namespace LCompilers::LPython {
 
-namespace CastingUtil {
-
-    // Data structure which contains priorities for
-    // intrinsic types defined in ASR
-    const std::map<ASR::ttypeType, int>& type2weight = {
-        {ASR::ttypeType::Complex, 4},
-        {ASR::ttypeType::Real, 3},
-        {ASR::ttypeType::Integer, 2},
-        {ASR::ttypeType::Logical, 1}
-    };
-
-    // Data structure which contains casting rules for non-equal
-    // intrinsic types defined in ASR
-    const std::map<std::pair<ASR::ttypeType, ASR::ttypeType>, ASR::cast_kindType>& type_rules = {
-        {std::make_pair(ASR::ttypeType::Complex, ASR::ttypeType::Real), ASR::cast_kindType::ComplexToReal},
-        {std::make_pair(ASR::ttypeType::Complex, ASR::ttypeType::Logical), ASR::cast_kindType::ComplexToLogical},
-        {std::make_pair(ASR::ttypeType::Real, ASR::ttypeType::Complex), ASR::cast_kindType::RealToComplex},
-        {std::make_pair(ASR::ttypeType::Real, ASR::ttypeType::Integer), ASR::cast_kindType::RealToInteger},
-        {std::make_pair(ASR::ttypeType::Real, ASR::ttypeType::Logical), ASR::cast_kindType::RealToLogical},
-        {std::make_pair(ASR::ttypeType::Integer, ASR::ttypeType::Complex), ASR::cast_kindType::IntegerToComplex},
-        {std::make_pair(ASR::ttypeType::Integer, ASR::ttypeType::Real), ASR::cast_kindType::IntegerToReal},
-        {std::make_pair(ASR::ttypeType::Integer, ASR::ttypeType::Logical), ASR::cast_kindType::IntegerToLogical},
-        {std::make_pair(ASR::ttypeType::Logical, ASR::ttypeType::Real), ASR::cast_kindType::LogicalToReal},
-        {std::make_pair(ASR::ttypeType::Logical, ASR::ttypeType::Integer), ASR::cast_kindType::LogicalToInteger},
-    };
-
-    // Data structure which contains casting rules for equal intrinsic
-    // types but with different kinds.
-    const std::map<ASR::ttypeType, ASR::cast_kindType>& kind_rules = {
-        {ASR::ttypeType::Complex, ASR::cast_kindType::ComplexToComplex},
-        {ASR::ttypeType::Real, ASR::cast_kindType::RealToReal},
-        {ASR::ttypeType::Integer, ASR::cast_kindType::IntegerToInteger}
-    };
-
-    int get_type_priority(ASR::ttypeType type) {
-        if( type2weight.find(type) == type2weight.end() ) {
-            return -1;
-        }
-
-        return type2weight.at(type);
-    }
-
-    int get_src_dest(ASR::expr_t* left_expr, ASR::expr_t* right_expr,
-                      ASR::expr_t*& src_expr, ASR::expr_t*& dest_expr,
-                      ASR::ttype_t*& src_type, ASR::ttype_t*& dest_type,
-                      bool is_assign) {
-        ASR::ttype_t* left_type = ASRUtils::expr_type(left_expr);
-        ASR::ttype_t* right_type = ASRUtils::expr_type(right_expr);
-        if( ASR::is_a<ASR::Const_t>(*left_type) ) {
-            left_type = ASRUtils::get_contained_type(left_type);
-        }
-        if( ASR::is_a<ASR::Const_t>(*right_type) ) {
-            right_type = ASRUtils::get_contained_type(right_type);
-        }
-        left_type = ASRUtils::type_get_past_pointer(left_type);
-        right_type = ASRUtils::type_get_past_pointer(right_type);
-        if( ASRUtils::check_equal_type(left_type, right_type) ||
-            ASRUtils::is_character(*left_type) || ASRUtils::is_character(*right_type) ) {
-            return 2;
-        }
-        if( is_assign ) {
-            if( ASRUtils::is_real(*left_type) && ASRUtils::is_integer(*right_type)) {
-                throw SemanticError("Assigning integer to float is not supported",
-                                    right_expr->base.loc);
-            }
-            if ( ASRUtils::is_complex(*left_type) && !ASRUtils::is_complex(*right_type)) {
-                throw SemanticError("Assigning non-complex to complex is not supported",
-                        right_expr->base.loc);
-            }
-            dest_expr = left_expr, dest_type = left_type;
-            src_expr = right_expr, src_type = right_type;
-            return 1;
-        }
-
-        int casted_expr_signal = 2;
-        ASR::ttypeType left_Type = left_type->type, right_Type = right_type->type;
-        int left_kind = ASRUtils::extract_kind_from_ttype_t(left_type);
-        int right_kind = ASRUtils::extract_kind_from_ttype_t(right_type);
-        int left_priority = get_type_priority(left_Type);
-        int right_priority = get_type_priority(right_Type);
-        if( left_priority > right_priority ) {
-            src_expr = right_expr, src_type = right_type;
-            dest_expr = left_expr, dest_type = left_type;
-            casted_expr_signal = 1;
-        } else if( left_priority < right_priority ) {
-            src_expr = left_expr, src_type = left_type;
-            dest_expr = right_expr, dest_type = right_type;
-            casted_expr_signal = 0;
-        } else {
-            if( left_kind > right_kind ) {
-                src_expr = right_expr, src_type = right_type;
-                dest_expr = left_expr, dest_type = left_type;
-                casted_expr_signal = 1;
-            } else if( left_kind < right_kind ) {
-                src_expr = left_expr, src_type = left_type;
-                dest_expr = right_expr, dest_type = right_type;
-                casted_expr_signal = 0;
-            } else {
-                return 2;
-            }
-        }
-
-        return casted_expr_signal;
-    }
-
-    ASR::expr_t* perform_casting(ASR::expr_t* expr, ASR::ttype_t* src,
-                                 ASR::ttype_t* dest, Allocator& al,
-                                 const Location& loc) {
-        ASR::ttypeType src_type = src->type;
-        ASR::ttypeType dest_type = dest->type;
-        ASR::cast_kindType cast_kind;
-        if( src_type == dest_type ) {
-            if( kind_rules.find(src_type) == kind_rules.end() ) {
-                return expr;
-            }
-            cast_kind = kind_rules.at(src_type);
-        } else {
-            std::pair<ASR::ttypeType, ASR::ttypeType> cast_key = std::make_pair(src_type, dest_type);
-            if( type_rules.find(cast_key) == type_rules.end() ) {
-                return expr;
-            }
-            cast_kind = type_rules.at(cast_key);
-        }
-        // TODO: Fix loc
-        return ASRUtils::EXPR(ASRUtils::make_Cast_t_value(al, loc, expr,
-                                                          cast_kind, dest));
-    }
-}
-
 int save_pyc_files(const ASR::TranslationUnit_t &u,
-                       std::string infile) {
+    std::string infile, LocationManager& lm) {
     diag::Diagnostics diagnostics;
     LCOMPILERS_ASSERT(asr_verify(u, true, diagnostics));
-    std::string modfile_binary = save_pycfile(u);
+    std::string modfile_binary = save_pycfile(u, lm);
 
     while( infile.back() != '.' ) {
         infile.pop_back();
@@ -186,8 +62,8 @@ int save_pyc_files(const ASR::TranslationUnit_t &u,
 // * Then the LPython runtime directory
 Result<std::string> get_full_path(const std::string &filename,
         const std::string &runtime_library_dir, std::string& input,
-        bool &ltypes, bool& enum_py) {
-    ltypes = false;
+        bool &lpython, bool& enum_py) {
+    lpython = false;
     enum_py = false;
     std::string file_path;
     if( *(runtime_library_dir.rbegin()) == '/' ) {
@@ -199,43 +75,38 @@ Result<std::string> get_full_path(const std::string &filename,
     if (status) {
         return file_path;
     } else {
-        status = read_file(file_path, input);
-        if (status) {
-            return file_path;
-        } else {
-            // If this is `ltypes`, do a special lookup
-            if (filename == "ltypes.py") {
-                file_path = runtime_library_dir + "/ltypes/" + filename;
-                status = read_file(file_path, input);
-                if (status) {
-                    ltypes = true;
-                    return file_path;
-                } else {
-                    return Error();
-                }
-            } else if (startswith(filename, "numpy.py")) {
-                file_path = runtime_library_dir + "/lpython_intrinsic_" + filename;
-                status = read_file(file_path, input);
-                if (status) {
-                    return file_path;
-                } else {
-                    return Error();
-                }
-            } else if (startswith(filename, "enum.py")) {
-                enum_py = true;
+        // If this is `lpython`, do a special lookup
+        if (filename == "lpython.py") {
+            file_path = runtime_library_dir + "/lpython/" + filename;
+            status = read_file(file_path, input);
+            if (status) {
+                lpython = true;
+                return file_path;
+            } else {
                 return Error();
+            }
+        } else if (startswith(filename, "numpy.py")) {
+            file_path = runtime_library_dir + "/lpython_intrinsic_" + filename;
+            status = read_file(file_path, input);
+            if (status) {
+                return file_path;
             } else {
                 return Error();
             }
+        } else if (startswith(filename, "enum.py")) {
+            enum_py = true;
+            return Error();
+        } else {
+            return Error();
         }
     }
 }
 
 bool set_module_path(std::string infile0, std::vector<std::string> &rl_path,
                      std::string& infile, std::string& path_used, std::string& input,
-                     bool& ltypes, bool& enum_py) {
+                     bool& lpython, bool& enum_py) {
     for (auto path: rl_path) {
-        Result<std::string> rinfile = get_full_path(infile0, path, input, ltypes, enum_py);
+        Result<std::string> rinfile = get_full_path(infile0, path, input, lpython, enum_py);
         if (rinfile.ok) {
             infile = rinfile.result;
             path_used = path;
@@ -245,7 +116,8 @@ bool set_module_path(std::string infile0, std::vector<std::string> &rl_path,
     return false;
 }
 
-ASR::TranslationUnit_t* compile_module_till_asr(Allocator& al,
+ASR::TranslationUnit_t* compile_module_till_asr(
+        Allocator& al, SymbolTable* symtab, std::string module_name,
         std::vector<std::string> &rl_path, std::string infile,
         const Location &loc, diag::Diagnostics &diagnostics, LocationManager &lm,
         const std::function<void (const std::string &, const Location &)> err,
@@ -254,7 +126,7 @@ ASR::TranslationUnit_t* compile_module_till_asr(Allocator& al,
         LocationManager::FileLocations fl;
         fl.in_filename = infile;
         lm.files.push_back(fl);
-        std::string input = read_file(infile);
+        std::string input = read_file_ok(infile);
         lm.file_ends.push_back(lm.file_ends.back() + input.size());
         lm.init_simple(input);
     }
@@ -267,10 +139,10 @@ ASR::TranslationUnit_t* compile_module_till_asr(Allocator& al,
 
     // Convert the module from AST to ASR
     CompilerOptions compiler_options;
-    compiler_options.disable_main = true;
+    compiler_options.po.disable_main = true;
     compiler_options.symtab_only = false;
-    Result<ASR::TranslationUnit_t*> r2 = python_ast_to_asr(al, lm, *ast,
-        diagnostics, compiler_options, false, infile, allow_implicit_casting);
+    Result<ASR::TranslationUnit_t*> r2 = python_ast_to_asr(al, lm, symtab, *ast,
+        diagnostics, compiler_options, false, module_name, infile, allow_implicit_casting);
     // TODO: Uncomment once a check is added for ensuring
     // that module.py file hasn't changed between
     // builds.
@@ -283,17 +155,18 @@ ASR::TranslationUnit_t* compile_module_till_asr(Allocator& al,
     return r2.result;
 }
 
-void fill_module_dependencies(SymbolTable* symtab, std::set<std::string>& mod_deps) {
+void fill_module_dependencies(SymbolTable* symtab, SetChar& mod_deps,
+    Allocator& al) {
     if( symtab == nullptr ) {
         return ;
     }
     for( auto& itr: symtab->get_scope() ) {
         if( ASR::is_a<ASR::ExternalSymbol_t>(*itr.second) ) {
             ASR::ExternalSymbol_t* ext_sym = ASR::down_cast<ASR::ExternalSymbol_t>(itr.second);
-            mod_deps.insert(std::string(ext_sym->m_module_name));
+            mod_deps.push_back(al, ext_sym->m_module_name);
         } else {
             SymbolTable* sym_symtab = ASRUtils::symbol_symtab(itr.second);
-            fill_module_dependencies(sym_symtab, mod_deps);
+            fill_module_dependencies(sym_symtab, mod_deps, al);
         }
     }
 }
@@ -303,16 +176,21 @@ ASR::Module_t* load_module(Allocator &al, SymbolTable *symtab,
                             const Location &loc, diag::Diagnostics &diagnostics,
                             LocationManager &lm, bool intrinsic,
                             std::vector<std::string> &rl_path,
-                            bool &ltypes, bool& enum_py, bool& copy,
+                            bool &lpython, bool& enum_py, bool& copy, bool& sympy,
                             const std::function<void (const std::string &, const Location &)> err,
                             bool allow_implicit_casting) {
-    ltypes = false;
+    lpython = false;
     enum_py = false;
     copy = false;
+    sympy = false;
     if( module_name == "copy" ) {
         copy = true;
         return nullptr;
     }
+    if (module_name == "sympy") {
+        sympy = true;
+        return nullptr;
+    }
     LCOMPILERS_ASSERT(symtab);
     if (symtab->get_scope().find(module_name) != symtab->get_scope().end()) {
         ASR::symbol_t *m = symtab->get_symbol(module_name);
@@ -331,15 +209,15 @@ ASR::Module_t* load_module(Allocator &al, SymbolTable *symtab,
     bool compile_module = true;
     ASR::TranslationUnit_t* mod1 = nullptr;
     std::string input;
-    std::string module_dir_name = "";
+    std::string mod1_name = "";
     bool found = set_module_path(infile0c, rl_path, infile,
-                                 path_used, input, ltypes, enum_py);
+                                 path_used, input, lpython, enum_py);
     if( !found ) {
         input.clear();
         found = set_module_path(infile0, rl_path, infile,
-                                path_used, input, ltypes, enum_py);
+                                path_used, input, lpython, enum_py);
     } else {
-        mod1 = load_pycfile(al, input, false);
+        mod1 = load_pycfile(al, input, false, lm).result;
         fix_external_symbols(*mod1, *ASRUtils::get_tu_symtab(symtab));
         diag::Diagnostics diagnostics;
         LCOMPILERS_ASSERT(asr_verify(*mod1, true, diagnostics));
@@ -353,7 +231,7 @@ ASR::Module_t* load_module(Allocator &al, SymbolTable *symtab,
         err("Could not find the module '" + module_name + "'. If an import path "
             "is available, please use the `-I` option to specify it", loc);
     }
-    if (ltypes) return nullptr;
+    if (lpython) return nullptr;
 
     if( compile_module ) {
         diagnostics.add(diag::Diagnostic(
@@ -362,7 +240,15 @@ ASR::Module_t* load_module(Allocator &al, SymbolTable *symtab,
                 diag::Label("imported here", {loc})
             })
         );
-        mod1 = compile_module_till_asr(al, rl_path, infile, loc, diagnostics,
+
+        if (module_name == "__init__") {
+            std::string module_dir_name = infile.substr(0, infile.find_last_of('/'));
+            // assign module directory name
+            mod1_name = module_dir_name.substr(module_dir_name.find_last_of('/') + 1);
+        } else {
+            mod1_name = module_name;
+        }
+        mod1 = compile_module_till_asr(al, symtab, mod1_name, rl_path, infile, loc, diagnostics,
             lm, err, allow_implicit_casting);
         if (mod1 == nullptr) {
             throw SemanticAbort();
@@ -371,38 +257,18 @@ ASR::Module_t* load_module(Allocator &al, SymbolTable *symtab,
         }
     }
 
-    // insert into `symtab`
-    std::vector<std::pair<std::string, ASR::Module_t*>> children_modules;
-    if (module_name == "__init__") {
-        // remove `__init__.py`
-        module_dir_name = infile.substr(0, infile.find_last_of('/'));
-        // assign module directory name
-        module_dir_name = module_dir_name.substr(module_dir_name.find_last_of('/') + 1);
-        ASRUtils::extract_module_python(*mod1, children_modules, module_dir_name);
-    } else {
-        ASRUtils::extract_module_python(*mod1, children_modules, module_name);
-    }
-    ASR::Module_t* mod2 = nullptr;
-    for( auto& a: children_modules ) {
-        std::string a_name = a.first;
-        ASR::Module_t* a_mod = a.second;
-        if( a_name == module_name ) {
-            a_mod->m_name = s2c(al, module_name);
-            a_mod->m_intrinsic = intrinsic;
-            mod2 = a_mod;
-        } else if (a_name == module_dir_name) {
-            a_mod->m_name = s2c(al, module_dir_name);
-            a_mod->m_intrinsic = intrinsic;
-            mod2 = a_mod;
-        }
-        symtab->add_symbol(a_name, (ASR::symbol_t*)a_mod);
-        a_mod->m_symtab->parent = symtab;
+    ASR::symbol_t* mod1_sym = symtab->resolve_symbol(mod1_name);
+    if (!mod1_sym) {
+        throw SemanticError("Module `" + module_name + "` not found", loc);
     }
+    ASR::Module_t* mod1_mod = ASR::down_cast<ASR::Module_t>(mod1_sym);
+
     if (intrinsic) {
+        mod1_mod->m_intrinsic = true;
         // TODO: I think we should just store intrinsic once, in the module
         // itself
         // Mark each function as intrinsic also
-        for (auto &item : mod2->m_symtab->get_scope()) {
+        for (auto &item : mod1_mod->m_symtab->get_scope()) {
             if (ASR::is_a<ASR::Function_t>(*item.second)) {
                 ASR::Function_t *s = ASR::down_cast<ASR::Function_t>(item.second);
                 if (ASRUtils::get_FunctionType(s)->m_abi == ASR::abiType::Source) {
@@ -419,94 +285,31 @@ ASR::Module_t* load_module(Allocator &al, SymbolTable *symtab,
     }
 
     // and return it
-    return mod2;
+    return mod1_mod;
 }
 
-ASR::symbol_t* import_from_module(Allocator &al, ASR::Module_t *m, SymbolTable *current_scope,
-                std::string /*mname*/, std::string cur_sym_name, std::string& new_sym_name,
-                const Location &loc, bool skip_current_scope_check=false) {
-    new_sym_name = ASRUtils::get_mangled_name(m, new_sym_name);
-    ASR::symbol_t *t = m->m_symtab->resolve_symbol(cur_sym_name);
-    if (!t) {
-        throw SemanticError("The symbol '" + cur_sym_name + "' not found in the module '" + std::string(m->m_name) + "'",
-                loc);
-    }
-    if (!skip_current_scope_check &&
-        current_scope->get_scope().find(new_sym_name) != current_scope->get_scope().end()) {
-        throw SemanticError(new_sym_name + " already defined", loc);
-    }
-    if (ASR::is_a<ASR::Function_t>(*t)) {
-        ASR::Function_t *mfn = ASR::down_cast<ASR::Function_t>(t);
-        // `mfn` is the Function in a module. Now we construct
-        // an ExternalSymbol that points to it.
-        Str name;
-        name.from_str(al, new_sym_name);
-        char *cname = name.c_str(al);
-        ASR::asr_t *fn = ASR::make_ExternalSymbol_t(
-            al, mfn->base.base.loc,
-            /* a_symtab */ current_scope,
-            /* a_name */ cname,
-            (ASR::symbol_t*)mfn,
-            m->m_name, nullptr, 0, mfn->m_name,
-            ASR::accessType::Public
-            );
-        return ASR::down_cast<ASR::symbol_t>(fn);
-    } else if (ASR::is_a<ASR::Variable_t>(*t)) {
-        ASR::Variable_t *mv = ASR::down_cast<ASR::Variable_t>(t);
-        // `mv` is the Variable in a module. Now we construct
-        // an ExternalSymbol that points to it.
-        Str name;
-        name.from_str(al, new_sym_name);
-        char *cname = name.c_str(al);
-        ASR::asr_t *v = ASR::make_ExternalSymbol_t(
-            al, mv->base.base.loc,
-            /* a_symtab */ current_scope,
-            /* a_name */ cname,
-            (ASR::symbol_t*)mv,
-            m->m_name, nullptr, 0, mv->m_name,
-            ASR::accessType::Public
-            );
-        return ASR::down_cast<ASR::symbol_t>(v);
-    } else if (ASR::is_a<ASR::GenericProcedure_t>(*t)) {
-        ASR::GenericProcedure_t *gt = ASR::down_cast<ASR::GenericProcedure_t>(t);
-        Str name;
-        name.from_str(al, new_sym_name);
-        char *cname = name.c_str(al);
-        ASR::asr_t *v = ASR::make_ExternalSymbol_t(
-            al, gt->base.base.loc,
-            /* a_symtab */ current_scope,
-            /* a_name */ cname,
-            (ASR::symbol_t*)gt,
-            m->m_name, nullptr, 0, gt->m_name,
-            ASR::accessType::Public
-            );
-        return ASR::down_cast<ASR::symbol_t>(v);
-    } else if (ASR::is_a<ASR::ExternalSymbol_t>(*t)) {
-        ASR::ExternalSymbol_t *es = ASR::down_cast<ASR::ExternalSymbol_t>(t);
-        SymbolTable *symtab = current_scope;
-        // while (symtab->parent != nullptr) symtab = symtab->parent;
-        ASR::symbol_t *sym = symtab->resolve_symbol(es->m_module_name);
-        ASR::Module_t *m = ASR::down_cast<ASR::Module_t>(sym);
-        return import_from_module(al, m, symtab, es->m_module_name,
-                            cur_sym_name, new_sym_name, loc);
-    } else if (ASR::is_a<ASR::Module_t>(*t)) {
-        ASR::Module_t* mt = ASR::down_cast<ASR::Module_t>(t);
-        std::string mangled_cur_sym_name = ASRUtils::get_mangled_name(mt, new_sym_name);
-        if( cur_sym_name == mangled_cur_sym_name ) {
-            throw SemanticError("Importing modules isn't supported yet.", loc);
-        }
-        return import_from_module(al, mt, current_scope, std::string(mt->m_name),
-                                  cur_sym_name, new_sym_name, loc);
-    } else {
-        throw SemanticError("Only Subroutines, Functions, Variables and "
-            "ExternalSymbol are currently supported in 'import'", loc);
+// Here, we call the global_initializer & global_statements to
+// initialize and execute the global symbols
+void get_calls_to_global_stmts(Allocator &al, const Location &loc, SymbolTable* scope,
+    ASR::Module_t* mod, std::vector<ASR::asr_t *> &tmp_vec) {
+
+    std::string mod_name = mod->m_name;
+    std::string g_func_name = mod_name + "global_stmts";
+    ASR::symbol_t *g_func = mod->m_symtab->get_symbol(g_func_name);
+    if (g_func && !scope->get_symbol(g_func_name)) {
+        ASR::symbol_t *es = ASR::down_cast<ASR::symbol_t>(
+            ASR::make_ExternalSymbol_t(al, mod->base.base.loc,
+            scope, s2c(al, g_func_name), g_func,
+            s2c(al, mod_name), nullptr, 0, s2c(al, g_func_name),
+            ASR::accessType::Public));
+        scope->add_symbol(g_func_name, es);
+        tmp_vec.push_back(ASRUtils::make_SubroutineCall_t_util(al, loc,
+            es, g_func, nullptr, 0, nullptr, nullptr, false));
     }
-    LCOMPILERS_ASSERT(false);
-    return nullptr;
 }
 
-template <class Struct>
-class CommonVisitor : public AST::BaseVisitor<Struct> {
+template <class StructType>
+class CommonVisitor : public AST::BaseVisitor<StructType> {
 public:
     diag::Diagnostics &diag;
 
@@ -520,43 +323,72 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
     */
     std::vector<ASR::asr_t *> tmp_vec;
 
+    // Used to store the initializer for the global variables like list, ...
+    Vec<ASR::asr_t *> global_init;
+
     Allocator &al;
     LocationManager &lm;
     SymbolTable *current_scope;
-    // The current_module contains the current module that is being visited;
-    // this is used to append to the module dependencies if needed
-    ASR::Module_t *current_module = nullptr;
-    Vec<char *> current_module_dependencies;
+    SetChar current_module_dependencies;
     // True for the main module, false for every other one
     // The main module is stored directly in TranslationUnit, other modules are Modules
     bool main_module;
+    // This is the current module name that we are compiling from AST to ASR
+    // It is an empty string for main_module
+    std::string module_name;
     PythonIntrinsicProcedures intrinsic_procedures;
     ProceduresDatabase procedures_db;
     AttributeHandler attr_handler;
     IntrinsicNodeHandler intrinsic_node_handler;
     std::map<int, ASR::symbol_t*> &ast_overload;
     std::string parent_dir;
-    std::string import_path;
+    std::vector<std::string> import_paths;
+    /*
+        current_body exists only for Functions, For, If (& its Else part), While.
+        current_body does not exist for Modules, ClassDef/StructTypes.
+    */
     Vec<ASR::stmt_t*> *current_body;
-    ASR::ttype_t* ann_assign_target_type;
-    AST::expr_t* assign_ast_target;
-    bool is_c_p_pointer_call;
+    ASR::expr_t* assign_asr_target;
 
     std::map<std::string, int> generic_func_nums;
-    std::map<std::string, std::map<std::string, ASR::ttype_t*>> generic_func_subs;
+    std::map<std::string, std::map<std::string, std::pair<ASR::ttype_t*, ASR::symbol_t*>>> generic_func_subs;
     std::vector<ASR::symbol_t*> rt_vec;
-    std::set<std::string> dependencies;
+    std::map<std::string, std::string> context_map;
+    SetChar dependencies;
     bool allow_implicit_casting;
+    // Stores the name of imported functions and the modules they are imported from
+    std::map<std::string, std::string> imported_functions;
+    bool using_args_attr = false;
+
+    std::map<std::string, std::string> numpy2lpythontypes = {
+        {"bool", "bool"},
+        {"bool_", "bool"},
+        {"int8", "i8"},
+        {"int16", "i16"},
+        {"int32", "i32"},
+        {"int64", "i64"},
+        {"uint8", "u8"},
+        {"uint16", "u16"},
+        {"uint32", "u32"},
+        {"uint64", "u64"},
+        {"float32", "f32"},
+        {"float64", "f64"},
+        {"float_", "f64"},
+        {"complex64", "c32"},
+        {"complex128", "c64"},
+        {"complex_", "c64"},
+        {"object", "T"}
+    };
 
     CommonVisitor(Allocator &al, LocationManager &lm, SymbolTable *symbol_table,
-            diag::Diagnostics &diagnostics, bool main_module,
+            diag::Diagnostics &diagnostics, bool main_module, std::string module_name,
             std::map<int, ASR::symbol_t*> &ast_overload, std::string parent_dir,
-            std::string import_path, bool allow_implicit_casting_)
-        : diag{diagnostics}, al{al}, lm{lm}, current_scope{symbol_table}, main_module{main_module},
-            ast_overload{ast_overload}, parent_dir{parent_dir}, import_path{import_path},
-            current_body{nullptr}, ann_assign_target_type{nullptr}, assign_ast_target{nullptr},
-            is_c_p_pointer_call{false}, allow_implicit_casting{allow_implicit_casting_} {
+            std::vector<std::string> import_paths, bool allow_implicit_casting_)
+        : diag{diagnostics}, al{al}, lm{lm}, current_scope{symbol_table}, main_module{main_module}, module_name{module_name},
+            ast_overload{ast_overload}, parent_dir{parent_dir}, import_paths{import_paths},
+            current_body{nullptr}, assign_asr_target{nullptr}, allow_implicit_casting{allow_implicit_casting_} {
         current_module_dependencies.reserve(al, 4);
+        global_init.reserve(al, 1);
     }
 
     ASR::asr_t* resolve_variable(const Location &loc, const std::string &var_name) {
@@ -572,19 +404,19 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
     }
 
     ASR::symbol_t* resolve_intrinsic_function(const Location &loc, const std::string &remote_sym) {
-        LCOMPILERS_ASSERT(intrinsic_procedures.is_intrinsic(remote_sym))
+        LCOMPILERS_ASSERT(intrinsic_procedures.is_intrinsic(remote_sym));
         std::string module_name = intrinsic_procedures.get_module(remote_sym, loc);
 
         SymbolTable *tu_symtab = ASRUtils::get_tu_symtab(current_scope);
         std::string rl_path = get_runtime_library_dir();
         std::vector<std::string> paths = {rl_path, parent_dir};
-        bool ltypes, enum_py, copy;
+        bool lpython, enum_py, copy, sympy;
         ASR::Module_t *m = load_module(al, tu_symtab, module_name,
                 loc, diag, lm, true, paths,
-                ltypes, enum_py, copy,
+                lpython, enum_py, copy, sympy,
                 [&](const std::string &msg, const Location &loc) { throw SemanticError(msg, loc); },
                 allow_implicit_casting);
-        LCOMPILERS_ASSERT(!ltypes && !enum_py)
+        LCOMPILERS_ASSERT(!lpython && !enum_py)
 
         ASR::symbol_t *t = m->m_symtab->resolve_symbol(remote_sym);
         if (!t) {
@@ -600,50 +432,38 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
                 loc);
         }
         char *fn_name = ASRUtils::symbol_name(t);
-        ASR::asr_t *fn = ASR::make_ExternalSymbol_t(
-            al, t->base.loc,
-            /* a_symtab */ current_scope,
-            /* a_name */ fn_name,
-            t,
-            m->m_name, nullptr, 0, fn_name,
-            ASR::accessType::Private
-            );
         std::string sym = fn_name;
-
-        current_scope->add_symbol(sym, ASR::down_cast<ASR::symbol_t>(fn));
-        ASR::symbol_t *v = ASR::down_cast<ASR::symbol_t>(fn);
-
-        // Now we need to add the module `m` with the intrinsic function
-        // into the current module dependencies
-        if (current_module) {
-            // We are in body visitor, the module is already constructed
-            // and available as current_module.
-            // Add the module `m` to current module dependencies
-            Vec<char*> vec;
-            vec.from_pointer_n_copy(al, current_module->m_dependencies,
-                        current_module->n_dependencies);
-            if (!present(vec, m->m_name)) {
-                vec.push_back(al, m->m_name);
-                current_module->m_dependencies = vec.p;
-                current_module->n_dependencies = vec.size();
-            }
+        ASR::symbol_t *v = nullptr;
+        if( current_scope->get_symbol(sym) == nullptr ) {
+            ASR::asr_t *fn = ASR::make_ExternalSymbol_t(
+                al, t->base.loc,
+                /* a_symtab */ current_scope,
+                /* a_name */ fn_name,
+                t,
+                m->m_name, nullptr, 0, fn_name,
+                ASR::accessType::Private
+                );
+            current_scope->add_symbol(sym, ASR::down_cast<ASR::symbol_t>(fn));
+            v = ASR::down_cast<ASR::symbol_t>(fn);
         } else {
-            // We are in the symtab visitor or body visitor and we are
-            // constructing a module, so current_module is not available yet
-            // (the current_module_dependencies is not used in body visitor)
-            if (!present(current_module_dependencies, m->m_name)) {
-                current_module_dependencies.push_back(al, m->m_name);
-            }
+            v = current_scope->get_symbol(sym);
         }
+
+        current_module_dependencies.push_back(al, m->m_name);
         return v;
     }
 
-    void handle_attribute(ASR::expr_t *s, std::string attr_name,
+    void handle_builtin_attribute(ASR::expr_t *s, std::string attr_name,
                 const Location &loc, Vec<ASR::expr_t*> &args) {
         tmp = attr_handler.get_attribute(s, attr_name, al, loc, args, diag);
         return;
     }
 
+    void handle_symbolic_attribute(ASR::expr_t *s, std::string attr_name,
+                const Location &loc, Vec<ASR::expr_t*> &args) {
+        tmp = attr_handler.get_symbolic_attribute(s, attr_name, al, loc, args, diag);
+        return;
+    }
 
     void fill_expr_in_ttype_t(std::vector<ASR::expr_t*>& exprs, ASR::dimension_t* dims, size_t n_dims) {
         for( size_t i = 0; i < n_dims; i++ ) {
@@ -658,7 +478,8 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
         ASRUtils::ExprStmtDuplicator expr_duplicator(al);
         expr_duplicator.allow_procedure_calls = true;
         ASRUtils::ReplaceArgVisitor arg_replacer(al, current_scope, orig_func,
-                                                 orig_args, dependencies);
+                                                 orig_args, dependencies,
+                                                 current_module_dependencies);
         for( size_t i = 0; i < exprs.size(); i++ ) {
             ASR::expr_t* expri = exprs[i];
             if (expri) {
@@ -672,63 +493,87 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
         }
     }
 
+    void fill_new_dims(ASR::Array_t* t, const std::vector<ASR::expr_t*>& func_calls,
+        Vec<ASR::dimension_t>& new_dims) {
+        new_dims.reserve(al, t->n_dims);
+        for( size_t i = 0, j = 0; i < func_calls.size(); i += 2, j++ ) {
+            ASR::dimension_t new_dim;
+            if (func_calls[i] != nullptr) {
+                new_dim.loc = func_calls[i]->base.loc;
+                new_dim.m_start = func_calls[i];
+                new_dim.m_length = func_calls[i + 1];
+                new_dims.push_back(al, new_dim);
+            } else {
+                new_dims.push_back(al, t->m_dims[j]);
+            }
+        }
+    }
+
     ASR::ttype_t* handle_return_type(ASR::ttype_t *return_type, const Location &loc,
                                      Vec<ASR::call_arg_t>& args,
                                      ASR::Function_t* f=nullptr) {
         // Rebuild the return type if needed and make FunctionCalls use ExternalSymbol
         std::vector<ASR::expr_t*> func_calls;
         switch( return_type->type ) {
-            case ASR::ttypeType::Character: {
-                ASR::Character_t *t = ASR::down_cast<ASR::Character_t>(return_type);
-                func_calls.push_back(t->m_len_expr);
-                fill_expr_in_ttype_t(func_calls, t->m_dims, t->n_dims);
-                fix_exprs_ttype_t(func_calls, args, f);
-                Vec<ASR::dimension_t> new_dims;
-                new_dims.reserve(al, t->n_dims);
-                for( size_t i = 1; i < func_calls.size(); i += 2 ) {
-                    ASR::dimension_t new_dim;
-                    new_dim.loc = func_calls[i]->base.loc;
-                    new_dim.m_start = func_calls[i];
-                    new_dim.m_length = func_calls[i + 1];
-                    new_dims.push_back(al, new_dim);
-                }
-                int64_t a_len = t->m_len;
-                if( func_calls[0] ) {
-                    a_len = ASRUtils::extract_len<SemanticError>(func_calls[0], loc);
-                }
-                return ASRUtils::TYPE(ASR::make_Character_t(al, loc, t->m_kind, a_len, func_calls[0], new_dims.p, new_dims.size()));
-            }
-            case ASR::ttypeType::Integer: {
-                ASR::Integer_t *t = ASR::down_cast<ASR::Integer_t>(return_type);
-                fill_expr_in_ttype_t(func_calls, t->m_dims, t->n_dims);
-                fix_exprs_ttype_t(func_calls, args, f);
-                Vec<ASR::dimension_t> new_dims;
-                new_dims.reserve(al, t->n_dims);
-                for( size_t i = 0; i < func_calls.size(); i += 2 ) {
-                    ASR::dimension_t new_dim;
-                    new_dim.loc = func_calls[i]->base.loc;
-                    new_dim.m_start = func_calls[i];
-                    new_dim.m_length = func_calls[i + 1];
-                    new_dims.push_back(al, new_dim);
-                }
-                return ASRUtils::TYPE(ASR::make_Integer_t(al, loc, t->m_kind, new_dims.p, new_dims.size()));
-            }
-            case ASR::ttypeType::Real: {
-                ASR::Real_t *t = ASR::down_cast<ASR::Real_t>(return_type);
+            case ASR::ttypeType::Allocatable: {
+                ASR::Allocatable_t* allocatable_t = ASR::down_cast<ASR::Allocatable_t>(return_type);
+                return ASRUtils::TYPE(ASR::make_Allocatable_t(al, loc,
+                    ASRUtils::type_get_past_allocatable(
+                        ASRUtils::type_get_past_pointer(
+                            handle_return_type(allocatable_t->m_type, loc, args, f)))));
+            }
+            case ASR::ttypeType::Pointer: {
+                ASR::Pointer_t* pointer_t = ASR::down_cast<ASR::Pointer_t>(return_type);
+                return ASRUtils::TYPE(ASR::make_Pointer_t(al, loc,
+                    ASRUtils::type_get_past_allocatable(
+                        ASRUtils::type_get_past_pointer(
+                            handle_return_type(pointer_t->m_type, loc, args, f)))));
+            }
+            case ASR::ttypeType::Array: {
+                ASR::Array_t* t = ASR::down_cast<ASR::Array_t>(return_type);
+                ASR::ttype_t* t_m_type = handle_return_type(t->m_type, loc, args, f);
                 fill_expr_in_ttype_t(func_calls, t->m_dims, t->n_dims);
                 fix_exprs_ttype_t(func_calls, args, f);
                 Vec<ASR::dimension_t> new_dims;
-                new_dims.reserve(al, t->n_dims);
-                for( size_t i = 0; i < func_calls.size(); i += 2 ) {
-                    ASR::dimension_t new_dim;
-                    new_dim.loc = func_calls[i]->base.loc;
-                    new_dim.m_start = func_calls[i];
-                    new_dim.m_length = func_calls[i + 1];
-                    new_dims.push_back(al, new_dim);
-                }
-                return ASRUtils::TYPE(ASR::make_Real_t(al, loc, t->m_kind, new_dims.p, new_dims.size()));
-                break;
+                fill_new_dims(t, func_calls, new_dims);
+                return ASRUtils::make_Array_t_util(al, loc, t_m_type, new_dims.p, new_dims.size());
             }
+            case ASR::ttypeType::String: {
+                ASR::String_t *t = ASR::down_cast<ASR::String_t>(return_type);
+                func_calls.push_back(t->m_len);
+                fix_exprs_ttype_t(func_calls, args, f);
+                ASR::expr_t* a_len = func_calls[0] ?  func_calls[0] : t->m_len;
+                /*if( func_calls[0] ) {*/
+                /*    diag::Diagnostics diags;*/
+                /*    a_len = ASRUtils::extract_len<SemanticAbort>(func_calls[0], loc, diags);*/
+                /*}*/
+                return ASRUtils::TYPE(ASRUtils::make_Allocatable_t_util(al, loc, ASRUtils::TYPE(ASR::make_String_t(al, loc, t->m_kind,
+                    a_len, ASR::string_length_kindType::DeferredLength, ASR::string_physical_typeType::DescriptorString))));
+            }
+            /*case ASR::ttypeType::StructType: {*/
+            /*    ASR::StructType_t* struct_t_type = ASR::down_cast<ASR::StructType_t>(return_type);*/
+            /*    ASR::symbol_t *sym = struct_t_type->m_derived_type;*/
+            /*    ASR::symbol_t *es_s = current_scope->resolve_symbol(*/
+            /*        ASRUtils::symbol_name(sym));*/
+            /*    if (es_s == nullptr) {*/
+            /*        ASR::Struct_t *st = ASR::down_cast<ASR::Struct_t>(sym);*/
+            /*        ASR::Module_t* sym_module = ASRUtils::get_sym_module(sym);*/
+            /*        LCOMPILERS_ASSERT(sym_module != nullptr);*/
+            /*        std::string st_name = "1_" + std::string(st->m_name);*/
+            /*        if (current_scope->get_symbol(st_name)) {*/
+            /*            sym = current_scope->get_symbol(st_name);*/
+            /*        } else {*/
+            /*            sym = ASR::down_cast<ASR::symbol_t>(ASR::make_ExternalSymbol_t(*/
+            /*                al, st->base.base.loc, current_scope, s2c(al, st_name),*/
+            /*                sym, sym_module->m_name, nullptr, 0, st->m_name,*/
+            /*                ASR::accessType::Public));*/
+            /*            current_scope->add_symbol(st_name, sym);*/
+            /*        }*/
+            /*    } else {*/
+            /*        sym = es_s;*/
+            /*    }*/
+            /*    return ASRUtils::make_StructType_t_util(al, loc, sym);*/
+            /*}*/
             default: {
                 return return_type;
             }
@@ -736,8 +581,13 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
         return nullptr;
     }
 
+
+    void visit_AsyncFunctionDef(const AST::AsyncFunctionDef_t &x){
+        throw SemanticError("The `async` keyword is currently not supported", x.base.base.loc);
+    }
+
     void visit_expr_list(AST::expr_t** exprs, size_t n,
-                         Vec<ASR::expr_t*> exprs_vec) {
+                         Vec<ASR::expr_t*>& exprs_vec) {
         LCOMPILERS_ASSERT(exprs_vec.reserve_called);
         for( size_t i = 0; i < n; i++ ) {
             this->visit_expr(*exprs[i]);
@@ -752,6 +602,8 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
             this->visit_expr(*exprs[i]);
             ASR::expr_t* expr = nullptr;
             ASR::call_arg_t arg;
+            arg.loc.first = -1;
+            arg.loc.last = -1;
             if (tmp) {
                 expr = ASRUtils::EXPR(tmp);
                 arg.loc = expr->base.loc;
@@ -796,7 +648,7 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
 
         // Fill the whole call_args_vec with nullptr
         // This is for error handling later on.
-        for( size_t i = 0; i < n_pos_args + n_kwargs; i++ ) {
+         for( size_t i = 0; i < orig_func->n_args; i++ ) {
             ASR::call_arg_t call_arg;
             Location loc;
             loc.first = loc.last = 1;
@@ -841,14 +693,87 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
             call_args_vec.p[arg_pos].loc = expr->base.loc;
             call_args_vec.p[arg_pos].m_value = expr;
         }
+        // Filling missing arguments with their defaults passed in function definition (if present).
+        std::string missed_args_names;
+        size_t missed_args_count =0;
+        for(size_t i = 0; i < orig_func->n_args; i++ ){
+            if(call_args_vec.p[i].m_value == nullptr){
+                ASR::Variable_t* var = ASRUtils::EXPR2VAR(orig_func->m_args[i]);
+                if (var->m_symbolic_value == nullptr){
+                    missed_args_names+="'" + (std::string) var->m_name + "' and ";
+                    missed_args_count++;
+                } else {
+                    call_args_vec.p[i].m_value = var->m_symbolic_value;
+                }
+            }
+        }
+        if(missed_args_count > 0){
+            missed_args_names = missed_args_names.substr(0,missed_args_names.length() - 5);
+            diag.add(diag::Diagnostic(
+                "Number of arguments does not match in the function call",
+                diag::Level::Error, diag::Stage::Semantic, {
+                    diag::Label("missing " + std::to_string(missed_args_count) + " required arguments :" + missed_args_names,
+                        {call_loc})
+                })
+            );
+            throw SemanticAbort();
+        }
         return true;
     }
 
-    void visit_expr_list(Vec<ASR::call_arg_t>& exprs, size_t n,
-                         Vec<ASR::expr_t*>& exprs_vec) {
-        LCOMPILERS_ASSERT(exprs_vec.reserve_called);
-        for( size_t i = 0; i < n; i++ ) {
-            exprs_vec.push_back(al, exprs[i].m_value);
+    int64_t find_argument_position_from_name(ASR::Struct_t* orig_struct, std::string arg_name) {
+        for( size_t i = 0; i < orig_struct->n_members; i++ ) {
+            std::string original_arg_name = std::string(orig_struct->m_members[i]);
+            if( original_arg_name == arg_name ) {
+                return i;
+            }
+        }
+        return -1;
+    }
+
+    void visit_expr_list(AST::expr_t** pos_args, size_t n_pos_args,
+                         AST::keyword_t* kwargs, size_t n_kwargs,
+                         Vec<ASR::call_arg_t>& call_args_vec,
+                         ASR::Struct_t* orig_struct, const Location &loc) {
+        LCOMPILERS_ASSERT(call_args_vec.reserve_called);
+
+        // Fill the whole call_args_vec with nullptr
+        // This is for error handling later on.
+        for( size_t i = 0; i < n_pos_args + n_kwargs; i++ ) {
+            ASR::call_arg_t call_arg;
+            Location loc;
+            loc.first = loc.last = 1;
+            call_arg.m_value = nullptr;
+            call_arg.loc = loc;
+            call_args_vec.push_back(al, call_arg);
+        }
+
+        // Now handle positional arguments in the following loop
+        for( size_t i = 0; i < n_pos_args; i++ ) {
+            this->visit_expr(*pos_args[i]);
+            ASR::expr_t* expr = ASRUtils::EXPR(tmp);
+            call_args_vec.p[i].loc = expr->base.loc;
+            call_args_vec.p[i].m_value = expr;
+        }
+
+        // Now handle keyword arguments in the following loop
+        for( size_t i = 0; i < n_kwargs; i++ ) {
+            this->visit_expr(*kwargs[i].m_value);
+            ASR::expr_t* expr = ASRUtils::EXPR(tmp);
+            std::string arg_name = std::string(kwargs[i].m_arg);
+            int64_t arg_pos = find_argument_position_from_name(orig_struct, arg_name);
+            if( arg_pos == -1 ) {
+                throw SemanticError("Member '" + arg_name + "' not found in struct", kwargs[i].loc);
+            } else if (arg_pos >= (int64_t)call_args_vec.size()) {
+                throw SemanticError("Not enough arguments to " + std::string(orig_struct->m_name)
+                    + "(), expected " + std::to_string(orig_struct->n_members), loc);
+            }
+            if( call_args_vec[arg_pos].m_value != nullptr ) {
+                throw SemanticError(std::string(orig_struct->m_name) + "() got multiple values for argument '"
+                                    + arg_name + "'", kwargs[i].loc);
+            }
+            call_args_vec.p[arg_pos].loc = expr->base.loc;
+            call_args_vec.p[arg_pos].m_value = expr;
         }
     }
 
@@ -861,12 +786,26 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
             ASR::call_arg_t c_arg;
             c_arg.loc = args[i].loc;
             c_arg.m_value = args[i].m_value;
-            cast_helper(m_args[i], c_arg.m_value, true);
             ASR::ttype_t* left_type = ASRUtils::expr_type(m_args[i]);
             ASR::ttype_t* right_type = ASRUtils::expr_type(c_arg.m_value);
-            if( check_type_equality && !ASRUtils::check_equal_type(left_type, right_type) ) {
-                std::string ltype = ASRUtils::type_to_str_python(left_type);
-                std::string rtype = ASRUtils::type_to_str_python(right_type);
+            if ( ASR::is_a<ASR::StructType_t>(*left_type) && ASR::is_a<ASR::StructType_t>(*right_type) ) {
+                ASR::Struct_t *l2_type = 
+                    ASR::down_cast<ASR::Struct_t>(ASRUtils::get_struct_sym_from_struct_expr(m_args[i]));
+                ASR::Struct_t *r2_type = 
+                    ASR::down_cast<ASR::Struct_t>(ASRUtils::get_struct_sym_from_struct_expr(c_arg.m_value));
+
+                if ( ASRUtils::is_derived_type_similar(l2_type, r2_type) ) {
+                    cast_helper(m_args[i], c_arg.m_value, true, true);
+                    check_type_equality = false;
+                } else {
+                    cast_helper(m_args[i], c_arg.m_value, true);
+                }
+            } else {
+                cast_helper(m_args[i], c_arg.m_value, true);
+            }
+            if( check_type_equality && !ASRUtils::check_equal_type(left_type, right_type, m_args[i], c_arg.m_value) ) {
+                std::string ltype = ASRUtils::type_to_str_python_expr(left_type, m_args[i]);
+                std::string rtype = ASRUtils::type_to_str_python_expr(right_type, c_arg.m_value);
                 diag.add(diag::Diagnostic(
                     "Type mismatch in procedure call; the types must be compatible",
                     diag::Level::Error, diag::Stage::Semantic, {
@@ -881,79 +820,278 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
     }
 
     ASR::ttype_t* get_type_from_var_annotation(std::string var_annotation,
-        const Location& loc, Vec<ASR::dimension_t>& dims,
-        AST::expr_t** m_args=nullptr, size_t n_args=0) {
+        const Location& loc, Vec<ASR::dimension_t>& dims, ASR::symbol_t*& type_decl,
+        AST::expr_t** m_args=nullptr, [[maybe_unused]] size_t n_args=0,
+        bool raise_error=true, ASR::abiType abi=ASR::abiType::Source,
+        bool is_argument=false) {
         ASR::ttype_t* type = nullptr;
-        if (var_annotation == "i8") {
-            type = ASRUtils::TYPE(ASR::make_Integer_t(al, loc,
-                1, dims.p, dims.size()));
+        ASR::symbol_t *s = current_scope->resolve_symbol(var_annotation);
+        if (s) {
+            if (ASR::is_a<ASR::Variable_t>(*s)) {
+                ASR::Variable_t *var_sym = ASR::down_cast<ASR::Variable_t>(s);
+                if (var_sym->m_type->type == ASR::ttypeType::TypeParameter) {
+                    ASR::TypeParameter_t *type_param = ASR::down_cast<ASR::TypeParameter_t>(var_sym->m_type);
+                    type = ASRUtils::TYPE(ASR::make_TypeParameter_t(al, loc, type_param->m_param));
+                    type = ASRUtils::make_Array_t_util(al, loc, type, dims.p, dims.size(), abi, is_argument);
+                }
+            } else {
+                ASR::symbol_t *der_sym = ASRUtils::symbol_get_past_external(s);
+                if( der_sym ) {
+                    if ( ASR::is_a<ASR::Struct_t>(*der_sym) ) {
+                        type_decl = der_sym;
+                        type = ASRUtils::make_StructType_t_util(al, loc, s, true);
+                        type = ASRUtils::make_Array_t_util(al, loc, type, dims.p, dims.size(), abi, is_argument);
+                    } else if( ASR::is_a<ASR::Enum_t>(*der_sym) ) {
+                        type = ASRUtils::TYPE(ASR::make_EnumType_t(al, loc, s));
+                        type = ASRUtils::make_Array_t_util(al, loc, type, dims.p, dims.size(), abi, is_argument);
+                    } else if( ASR::is_a<ASR::Union_t>(*der_sym) ) {
+                        type_decl = der_sym;
+                        type = ASRUtils::get_union_type(al, loc, ASRUtils::symbol_get_past_external(der_sym));
+                        type = ASRUtils::make_Array_t_util(al, loc, type, dims.p, dims.size(), abi, is_argument);
+                    }
+                }
+            }
+        } else if (var_annotation == "i8") {
+            type = ASRUtils::TYPE(ASR::make_Integer_t(al, loc, 1));
+            type = ASRUtils::make_Array_t_util(al, loc, type, dims.p, dims.size(), abi, is_argument);
         } else if (var_annotation == "i16") {
-            type = ASRUtils::TYPE(ASR::make_Integer_t(al, loc,
-                2, dims.p, dims.size()));
+            type = ASRUtils::TYPE(ASR::make_Integer_t(al, loc, 2));
+            type = ASRUtils::make_Array_t_util(al, loc, type, dims.p, dims.size(), abi, is_argument);
         } else if (var_annotation == "i32") {
-            type = ASRUtils::TYPE(ASR::make_Integer_t(al, loc,
-                4, dims.p, dims.size()));
+            type = ASRUtils::TYPE(ASR::make_Integer_t(al, loc, 4));
+            type = ASRUtils::make_Array_t_util(al, loc, type, dims.p, dims.size(), abi, is_argument);
         } else if (var_annotation == "i64") {
-            type = ASRUtils::TYPE(ASR::make_Integer_t(al, loc,
-                8, dims.p, dims.size()));
+            type = ASRUtils::TYPE(ASR::make_Integer_t(al, loc, 8));
+            type = ASRUtils::make_Array_t_util(al, loc, type, dims.p, dims.size(), abi, is_argument);
+        } else if (var_annotation == "u8") {
+            type = ASRUtils::TYPE(ASR::make_UnsignedInteger_t(al, loc, 1));
+            type = ASRUtils::make_Array_t_util(al, loc, type, dims.p, dims.size(), abi, is_argument);
+        } else if (var_annotation == "u16") {
+            type = ASRUtils::TYPE(ASR::make_UnsignedInteger_t(al, loc, 2));
+            type = ASRUtils::make_Array_t_util(al, loc, type, dims.p, dims.size(), abi, is_argument);
+        } else if (var_annotation == "u32") {
+            type = ASRUtils::TYPE(ASR::make_UnsignedInteger_t(al, loc, 4));
+            type = ASRUtils::make_Array_t_util(al, loc, type, dims.p, dims.size(), abi, is_argument);
+        } else if (var_annotation == "u64") {
+            type = ASRUtils::TYPE(ASR::make_UnsignedInteger_t(al, loc, 8));
+            type = ASRUtils::make_Array_t_util(al, loc, type, dims.p, dims.size(), abi, is_argument);
         } else if (var_annotation == "f32") {
-            type = ASRUtils::TYPE(ASR::make_Real_t(al, loc,
-                4, dims.p, dims.size()));
+            type = ASRUtils::TYPE(ASR::make_Real_t(al, loc, 4));
+            type = ASRUtils::make_Array_t_util(al, loc, type, dims.p, dims.size(), abi, is_argument);
         } else if (var_annotation == "f64") {
-            type = ASRUtils::TYPE(ASR::make_Real_t(al, loc,
-                8, dims.p, dims.size()));
+            type = ASRUtils::TYPE(ASR::make_Real_t(al, loc, 8));
+            type = ASRUtils::make_Array_t_util(al, loc, type, dims.p, dims.size(), abi, is_argument);
         } else if (var_annotation == "c32") {
-            type = ASRUtils::TYPE(ASR::make_Complex_t(al, loc,
-                4, dims.p, dims.size()));
+            type = ASRUtils::TYPE(ASR::make_Complex_t(al, loc, 4));
+            type = ASRUtils::make_Array_t_util(al, loc, type, dims.p, dims.size(), abi, is_argument);
         } else if (var_annotation == "c64") {
-            type = ASRUtils::TYPE(ASR::make_Complex_t(al, loc,
-                8, dims.p, dims.size()));
+            type = ASRUtils::TYPE(ASR::make_Complex_t(al, loc, 8));
+            type = ASRUtils::make_Array_t_util(al, loc, type, dims.p, dims.size(), abi, is_argument);
         } else if (var_annotation == "str") {
-            type = ASRUtils::TYPE(ASR::make_Character_t(al, loc,
-                1, -2, nullptr, dims.p, dims.size()));
-        } else if (var_annotation == "bool") {
-            type = ASRUtils::TYPE(ASR::make_Logical_t(al, loc,
-                4, dims.p, dims.size()));
+            type = ASRUtils::TYPE(ASRUtils::make_Allocatable_t_util(al ,loc, ASRUtils::TYPE(ASR::make_String_t(al, loc, 1, nullptr,
+                    ASR::string_length_kindType::DeferredLength, ASR::string_physical_typeType::DescriptorString))));
+            type = ASRUtils::make_Array_t_util(al, loc, type, dims.p, dims.size(), abi, is_argument);
+        } else if (var_annotation == "bool" || var_annotation == "i1") {
+            type = ASRUtils::TYPE(ASR::make_Logical_t(al, loc, 4));
+            type = ASRUtils::make_Array_t_util(al, loc, type, dims.p, dims.size(), abi, is_argument);
         } else if (var_annotation == "CPtr") {
             type = ASRUtils::TYPE(ASR::make_CPtr_t(al, loc));
         } else if (var_annotation == "pointer") {
             LCOMPILERS_ASSERT(n_args == 1);
             AST::expr_t* underlying_type = m_args[0];
-            type = ast_expr_to_asr_type(underlying_type->base.loc, *underlying_type);
+            bool is_allocatable = false, is_const = false;
+            type = ast_expr_to_asr_type(underlying_type->base.loc, *underlying_type, type_decl, is_allocatable, is_const);
             type = ASRUtils::TYPE(ASR::make_Pointer_t(al, loc, type));
-        } else {
-            ASR::symbol_t *s = current_scope->resolve_symbol(var_annotation);
-            if (s) {
-                if (ASR::is_a<ASR::Variable_t>(*s)) {
-                    ASR::Variable_t *var_sym = ASR::down_cast<ASR::Variable_t>(s);
-                    if (var_sym->m_type->type == ASR::ttypeType::TypeParameter) {
-                        ASR::TypeParameter_t *type_param = ASR::down_cast<ASR::TypeParameter_t>(var_sym->m_type);
-                        return ASRUtils::TYPE(ASR::make_TypeParameter_t(al, loc,
-                            type_param->m_param, dims.p, dims.size()));
-                    }
-                } else {
-                    ASR::symbol_t *der_sym = ASRUtils::symbol_get_past_external(s);
-                    if( der_sym ) {
-                        if ( ASR::is_a<ASR::StructType_t>(*der_sym) ) {
-                            return ASRUtils::TYPE(ASR::make_Struct_t(al, loc, der_sym, dims.p, dims.size()));
-                        } else if( ASR::is_a<ASR::EnumType_t>(*der_sym) ) {
-                            return ASRUtils::TYPE(ASR::make_Enum_t(al, loc, der_sym, dims.p, dims.size()));
-                        } else if( ASR::is_a<ASR::UnionType_t>(*der_sym) ) {
-                            return ASRUtils::TYPE(ASR::make_Union_t(al, loc, der_sym, dims.p, dims.size()));
-                        }
-                    }
-                }
+        } else if (var_annotation == "S") {
+            type = ASRUtils::TYPE(ASR::make_SymbolicExpression_t(al, loc));
+        }
+
+        if( !type && raise_error ) {
+            if (var_annotation == "int") {
+                std::string msg = "Hint: Use i8, i16, i32 or i64 for now. ";
+                diag.add(diag::Diagnostic(
+                    var_annotation + " type is not supported yet. ",
+                    diag::Level::Error, diag::Stage::Semantic, {
+                        diag::Label(msg, {loc})
+                    })
+                );
+                throw SemanticAbort();
+            } else if (var_annotation == "float") {
+                std::string msg = "Hint: Use f32 or f64 for now. ";
+                diag.add(diag::Diagnostic(
+                    var_annotation + " type is not supported yet. ",
+                    diag::Level::Error, diag::Stage::Semantic, {
+                        diag::Label(msg, {loc})
+                    })
+                );
+                throw SemanticAbort();
+            }  else {
+                throw SemanticError("The type '" + var_annotation+"' is undeclared.", loc);
             }
-            throw SemanticError("Unsupported type annotation: " + var_annotation, loc);
         }
+
         return type;
     }
 
+    ASR::symbol_t* import_from_module(Allocator &al, ASR::Module_t *m, SymbolTable *current_scope,
+                std::string /*mname*/, std::string cur_sym_name, std::string& new_sym_name,
+                const Location &loc, bool skip_current_scope_check=false) {
+        new_sym_name = ASRUtils::get_mangled_name(m, new_sym_name);
+        ASR::symbol_t *t = m->m_symtab->resolve_symbol(cur_sym_name);
+        if (!t) {
+            throw SemanticError("The symbol '" + cur_sym_name + "' not found in the module '" + std::string(m->m_name) + "'",
+                    loc);
+        }
+        if (!skip_current_scope_check &&
+            current_scope->get_scope().find(new_sym_name) != current_scope->get_scope().end()) {
+            throw SemanticError(new_sym_name + " already defined", loc);
+        }
+        if (ASR::is_a<ASR::Function_t>(*t)) {
+            ASR::Function_t *mfn = ASR::down_cast<ASR::Function_t>(t);
+            // `mfn` is the Function in a module. Now we construct
+            // an ExternalSymbol that points to it.
+            Str name;
+            name.from_str(al, new_sym_name);
+            char *cname = name.c_str(al);
+            ASR::asr_t *fn = ASR::make_ExternalSymbol_t(
+                al, loc,
+                /* a_symtab */ current_scope,
+                /* a_name */ cname,
+                (ASR::symbol_t*)mfn,
+                m->m_name, nullptr, 0, mfn->m_name,
+                ASR::accessType::Public
+                );
+            current_module_dependencies.push_back(al, m->m_name);
+            return ASR::down_cast<ASR::symbol_t>(fn);
+        } else if (ASR::is_a<ASR::Struct_t>(*t)) {
+            ASR::Struct_t *st = ASR::down_cast<ASR::Struct_t>(t);
+            // `st` is the StructType in a module. Now we construct
+            // an ExternalSymbol that points to it.
+            Str name;
+            name.from_str(al, new_sym_name);
+            char *cname = name.c_str(al);
+            ASR::asr_t *est = ASR::make_ExternalSymbol_t(
+                al, loc,
+                /* a_symtab */ current_scope,
+                /* a_name */ cname,
+                (ASR::symbol_t*)st,
+                m->m_name, nullptr, 0, st->m_name,
+                ASR::accessType::Public
+                );
+            current_module_dependencies.push_back(al, m->m_name);
+            return ASR::down_cast<ASR::symbol_t>(est);
+        } else if (ASR::is_a<ASR::Enum_t>(*t)) {
+            ASR::Enum_t *et = ASR::down_cast<ASR::Enum_t>(t);
+            Str name;
+            name.from_str(al, new_sym_name);
+            char *cname = name.c_str(al);
+            ASR::asr_t *est = ASR::make_ExternalSymbol_t(
+                al, loc,
+                /* a_symtab */ current_scope,
+                /* a_name */ cname,
+                (ASR::symbol_t*)et,
+                m->m_name, nullptr, 0, et->m_name,
+                ASR::accessType::Public
+                );
+            current_module_dependencies.push_back(al, m->m_name);
+            return ASR::down_cast<ASR::symbol_t>(est);
+        } else if (ASR::is_a<ASR::Union_t>(*t)) {
+            ASR::Union_t *ut = ASR::down_cast<ASR::Union_t>(t);
+            Str name;
+            name.from_str(al, new_sym_name);
+            char *cname = name.c_str(al);
+            ASR::asr_t *est = ASR::make_ExternalSymbol_t(
+                al, loc,
+                /* a_symtab */ current_scope,
+                /* a_name */ cname,
+                (ASR::symbol_t*)ut,
+                m->m_name, nullptr, 0, ut->m_name,
+                ASR::accessType::Public
+                );
+            current_module_dependencies.push_back(al, m->m_name);
+            return ASR::down_cast<ASR::symbol_t>(est);
+        } else if (ASR::is_a<ASR::Variable_t>(*t)) {
+            ASR::Variable_t *mv = ASR::down_cast<ASR::Variable_t>(t);
+            // `mv` is the Variable in a module. Now we construct
+            // an ExternalSymbol that points to it.
+            Str name;
+            name.from_str(al, new_sym_name);
+            char *cname = name.c_str(al);
+            ASR::asr_t *v = ASR::make_ExternalSymbol_t(
+                al, loc,
+                /* a_symtab */ current_scope,
+                /* a_name */ cname,
+                (ASR::symbol_t*)mv,
+                m->m_name, nullptr, 0, mv->m_name,
+                ASR::accessType::Public
+                );
+            current_module_dependencies.push_back(al, m->m_name);
+            return ASR::down_cast<ASR::symbol_t>(v);
+        } else if (ASR::is_a<ASR::GenericProcedure_t>(*t)) {
+            ASR::GenericProcedure_t *gt = ASR::down_cast<ASR::GenericProcedure_t>(t);
+            Str name;
+            name.from_str(al, new_sym_name);
+            char *cname = name.c_str(al);
+            ASR::asr_t *v = ASR::make_ExternalSymbol_t(
+                al, loc,
+                /* a_symtab */ current_scope,
+                /* a_name */ cname,
+                (ASR::symbol_t*)gt,
+                m->m_name, nullptr, 0, gt->m_name,
+                ASR::accessType::Public
+                );
+            current_module_dependencies.push_back(al, m->m_name);
+            return ASR::down_cast<ASR::symbol_t>(v);
+        } else if (ASR::is_a<ASR::ExternalSymbol_t>(*t)) {
+            ASR::ExternalSymbol_t *es = ASR::down_cast<ASR::ExternalSymbol_t>(t);
+            SymbolTable *symtab = current_scope;
+            // while (symtab->parent != nullptr) symtab = symtab->parent;
+            ASR::symbol_t *sym = symtab->resolve_symbol(es->m_module_name);
+            ASR::Module_t *m = ASR::down_cast<ASR::Module_t>(sym);
+            return import_from_module(al, m, symtab, es->m_module_name,
+                                cur_sym_name, new_sym_name, loc);
+        } else if (ASR::is_a<ASR::Module_t>(*t)) {
+            ASR::Module_t* mt = ASR::down_cast<ASR::Module_t>(t);
+            std::string mangled_cur_sym_name = ASRUtils::get_mangled_name(mt, new_sym_name);
+            if( cur_sym_name == mangled_cur_sym_name ) {
+                throw SemanticError("Importing modules isn't supported yet.", loc);
+            }
+            return import_from_module(al, mt, current_scope, std::string(mt->m_name),
+                                    cur_sym_name, new_sym_name, loc);
+        } else {
+            throw SemanticError("Only Subroutines, Functions, StructType, Variables and "
+                "ExternalSymbol are currently supported in 'import'", loc);
+        }
+        LCOMPILERS_ASSERT(false);
+        return nullptr;
+    }
+
+
+    ASR::asr_t* make_dummy_assignment(ASR::expr_t* expr) {
+        ASR::ttype_t* type = ASRUtils::expr_type(expr);
+        LCOMPILERS_ASSERT(type != nullptr);
+        std::string dummy_ret_name = current_scope->get_unique_name("__lcompilers_dummy", false);
+        SetChar variable_dependencies_vec;
+        variable_dependencies_vec.reserve(al, 1);
+        ASRUtils::collect_variable_dependencies(al, variable_dependencies_vec, type);
+        ASR::asr_t* variable_asr = ASR::make_Variable_t(al, expr->base.loc, current_scope,
+                                        s2c(al, dummy_ret_name), variable_dependencies_vec.p,
+                                        variable_dependencies_vec.size(), ASR::intentType::Local,
+                                        nullptr, nullptr, ASR::storage_typeType::Default,
+                                        type, nullptr, ASR::abiType::Source, ASR::accessType::Public,
+                                        ASR::presenceType::Required, false, false, false, nullptr, 
+                                        false,false);
+        ASR::symbol_t* variable_sym = ASR::down_cast<ASR::symbol_t>(variable_asr);
+        current_scope->add_symbol(dummy_ret_name, variable_sym);
+        ASR::expr_t* variable_var = ASRUtils::EXPR(ASR::make_Var_t(al, expr->base.loc, variable_sym));
+        return ASRUtils::make_Assignment_t_util(al, expr->base.loc, variable_var, expr, nullptr, false, false);
+    }
+
     // Function to create appropriate call based on symbol type. If it is external
     // generic symbol then it changes the name accordingly.
     ASR::asr_t* make_call_helper(Allocator &al, ASR::symbol_t* s, SymbolTable *current_scope,
                     Vec<ASR::call_arg_t> args, std::string call_name, const Location &loc,
-                    bool ignore_return_value=false, AST::expr_t** pos_args=nullptr, size_t n_pos_args=0,
+                    AST::expr_t** pos_args=nullptr, size_t n_pos_args=0,
                     AST::keyword_t* kwargs=nullptr, size_t n_kwargs=0) {
         if (intrinsic_node_handler.is_present(call_name)) {
             return intrinsic_node_handler.get_intrinsic_node(call_name, al, loc,
@@ -961,8 +1099,9 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
         }
 
         if (call_name == "list" && (args.size() == 0 ||  args[0].m_value == nullptr)) {
-            if (ann_assign_target_type) {
-                ASR::ttype_t *type = ASRUtils::get_contained_type(ann_assign_target_type);
+            if (assign_asr_target) {
+                ASR::ttype_t *type = ASRUtils::get_contained_type(
+                    ASRUtils::expr_type(assign_asr_target));
                 ASR::ttype_t* list_type = ASRUtils::TYPE(ASR::make_List_t(al, loc, type));
                 Vec<ASR::expr_t*> list;
                 list.reserve(al, 1);
@@ -974,7 +1113,7 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
 
         ASR::symbol_t *s_generic = nullptr, *stemp = s;
         // Type map for generic functions
-        std::map<std::string, ASR::ttype_t*> subs;
+        std::map<std::string, std::pair<ASR::ttype_t*, ASR::symbol_t*>> subs;
         std::map<std::string, ASR::symbol_t*> rt_subs;
         // handling ExternalSymbol
         s = ASRUtils::symbol_get_past_external(s);
@@ -1032,50 +1171,80 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
         if (ASR::is_a<ASR::Function_t>(*s)) {
             ASR::Function_t *func = ASR::down_cast<ASR::Function_t>(s);
             if( n_kwargs > 0 && !is_generic_procedure ) {
-                args.reserve(al, n_pos_args + n_kwargs);
+                args.reserve(al, func->n_args);
                 visit_expr_list(pos_args, n_pos_args, kwargs, n_kwargs,
                                 args, rt_subs, func, loc);
-            }
-            if (ASRUtils::get_FunctionType(func)->m_is_restriction) {
-                rt_vec.push_back(s);
-            } else if (ASRUtils::get_FunctionType(func)->n_type_params > 0) {
-                if (n_pos_args != func->n_args) {
-                    std::string fnd = std::to_string(n_pos_args);
-                    std::string org = std::to_string(func->n_args);
+            } else if (args.size() < func->n_args) {
+                std::string missed_args_names =" ";
+                size_t missed_args_count =0;
+                for (size_t def_arg = args.size(); def_arg < func->n_args; def_arg++){
+                    ASR::Variable_t* var = ASRUtils::EXPR2VAR(func->m_args[def_arg]);
+                    if(var->m_presence != ASR::presenceType::Optional) {
+                        missed_args_names+= "'" + std::string(var->m_name) + "' and ";
+                        missed_args_count++;
+                    } else {
+                        ASR::call_arg_t call_arg;
+                        call_arg.m_value = var->m_symbolic_value;
+                        call_arg.loc = (var->m_symbolic_value->base).loc;
+                        args.push_back(al,call_arg);
+                    }
+                }
+                if(missed_args_count > 0){
+                    missed_args_names = missed_args_names.substr(0,missed_args_names.length() - 5);
                     diag.add(diag::Diagnostic(
-                        "Number of arguments does not match in the function call",
-                        diag::Level::Error, diag::Stage::Semantic, {
-                            diag::Label("(found: '" + fnd + "', expected: '" + org + "')",
-                                    {loc})
+                    "Number of arguments does not match in the function call",
+                    diag::Level::Error, diag::Stage::Semantic, {
+                        diag::Label("missing " + std::to_string(missed_args_count) + " required arguments :" + missed_args_names,
+                                {loc})
                         })
                     );
                     throw SemanticAbort();
                 }
-                for (size_t i=0; i<n_pos_args; i++) {
-                    ASR::ttype_t *param_type = ASRUtils::expr_type(func->m_args[i]);
-                    ASR::ttype_t *arg_type = ASRUtils::expr_type(args[i].m_value);
-                    check_type_substitution(subs, param_type, arg_type, loc);
-                }
-                for (size_t i=0; i<ASRUtils::get_FunctionType(func)->n_restrictions; i++) {
-                    ASR::Function_t* rt = ASR::down_cast<ASR::Function_t>(
-                        ASRUtils::get_FunctionType(func)->m_restrictions[i]);
-                    check_type_restriction(subs, rt_subs, rt, loc);
-                }
-
-                //ASR::symbol_t *t = get_generic_function(subs, rt_subs, func);
-                ASR::symbol_t *t = get_generic_function(subs, rt_subs, s);
-                std::string new_call_name = (ASR::down_cast<ASR::Function_t>(t))->m_name;
-
-                // Currently ignoring keyword arguments for generic function calls
-                Vec<ASR::call_arg_t> new_args;
-                new_args.reserve(al, n_pos_args);
-                for (size_t i = 0; i<n_pos_args; i++) {
-                    ASR::call_arg_t new_call_arg;
-                    new_call_arg.m_value = args.p[i].m_value;
-                    new_call_arg.loc = args.p[i].loc;
-                    new_args.push_back(al, new_call_arg);
-                }
-                return make_call_helper(al, t, current_scope, new_args, new_call_name, loc, ignore_return_value);
+            }
+            if (ASRUtils::get_FunctionType(func)->m_is_restriction) {
+                rt_vec.push_back(s);
+            } else if (ASRUtils::is_generic_function(s)) {
+            /*    if (n_pos_args != func->n_args) {*/
+            /*        std::string fnd = std::to_string(n_pos_args);*/
+            /*        std::string org = std::to_string(func->n_args);*/
+            /*        diag.add(diag::Diagnostic(*/
+            /*            "Number of arguments does not match in the function call",*/
+            /*            diag::Level::Error, diag::Stage::Semantic, {*/
+            /*                diag::Label("(found: '" + fnd + "', expected: '" + org + "')",*/
+            /*                        {loc})*/
+            /*            })*/
+            /*        );*/
+            /*        throw SemanticAbort();*/
+            /*    }*/
+            /*    for (size_t i=0; i<n_pos_args; i++) {*/
+            /*        ASR::ttype_t *param_type = ASRUtils::expr_type(func->m_args[i]);*/
+            /*        ASR::ttype_t *arg_type = ASRUtils::expr_type(args[i].m_value);*/
+            /*        check_type_substitution(subs, param_type, arg_type, loc);*/
+            /*    }*/
+            /*    for (size_t i=0; i<ASRUtils::get_FunctionType(func)->n_restrictions; i++) {*/
+            /*        ASR::Function_t* rt = ASR::down_cast<ASR::Function_t>(*/
+            /*            ASRUtils::get_FunctionType(func)->m_restrictions[i]);*/
+            /*        check_type_restriction(*/
+            /*            subs,*/
+            /*            rt_subs, rt, loc);*/
+            /*    }*/
+            /**/
+            /**/
+            /*    //ASR::symbol_t *t = get_generic_function(subs, rt_subs, func);*/
+            /*    ASR::symbol_t *t = get_generic_function(subs, rt_subs, s);*/
+            /*    std::string new_call_name = (ASR::down_cast<ASR::Function_t>(t))->m_name;*/
+            /**/
+            /**/
+            /*    // Currently ignoring keyword arguments for generic function calls*/
+            /*    Vec<ASR::call_arg_t> new_args;*/
+            /*    new_args.reserve(al, n_pos_args);*/
+            /*    for (size_t i = 0; i<n_pos_args; i++) {*/
+            /*        ASR::call_arg_t new_call_arg;*/
+            /*        new_call_arg.m_value = args.p[i].m_value;*/
+            /*        new_call_arg.loc = args.p[i].loc;*/
+            /*        new_args.push_back(al, new_call_arg);*/
+            /*    }*/
+            /*    return make_call_helper(al, t, current_scope, new_args, new_call_name, loc);*/
             }
             if (args.size() != func->n_args) {
                 std::string fnd = std::to_string(args.size());
@@ -1107,52 +1276,65 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
                 args_new.reserve(al, func->n_args);
                 visit_expr_list_with_cast(func->m_args, func->n_args, args_new, args,
                     !ASRUtils::is_intrinsic_function2(func));
-                dependencies.insert(std::string(ASRUtils::symbol_name(stemp)));
-                ASR::asr_t* func_call_asr = ASR::make_FunctionCall_t(al, loc, stemp,
+
+                if (ASRUtils::symbol_parent_symtab(stemp)->get_counter() != current_scope->get_counter()) {
+                    ADD_ASR_DEPENDENCIES(current_scope, stemp, dependencies);
+                }
+
+                return ASRUtils::make_FunctionCall_t_util(al, loc, stemp,
                                                 s_generic, args_new.p, args_new.size(),
                                                 a_type, value, nullptr);
-                if( ignore_return_value ) {
-                    std::string dummy_ret_name = current_scope->get_unique_name("__lcompilers_dummy");
-                    Vec<char*> variable_dependencies_vec;
-                    variable_dependencies_vec.reserve(al, 1);
-                    ASRUtils::collect_variable_dependencies(al, variable_dependencies_vec, a_type);
-                    ASR::asr_t* variable_asr = ASR::make_Variable_t(al, loc, current_scope,
-                                                    s2c(al, dummy_ret_name), variable_dependencies_vec.p,
-                                                    variable_dependencies_vec.size(), ASR::intentType::Local,
-                                                    nullptr, nullptr, ASR::storage_typeType::Default,
-                                                    a_type, ASR::abiType::Source, ASR::accessType::Public,
-                                                    ASR::presenceType::Required, false);
-                    ASR::symbol_t* variable_sym = ASR::down_cast<ASR::symbol_t>(variable_asr);
-                    current_scope->add_symbol(dummy_ret_name, variable_sym);
-                    ASR::expr_t* variable_var = ASRUtils::EXPR(ASR::make_Var_t(al, loc, variable_sym));
-                    return ASR::make_Assignment_t(al, loc, variable_var, ASRUtils::EXPR(func_call_asr), nullptr);
-                } else {
-                    return func_call_asr;
-                }
             } else {
                 Vec<ASR::call_arg_t> args_new;
                 args_new.reserve(al, func->n_args);
                 visit_expr_list_with_cast(func->m_args, func->n_args, args_new, args);
-                dependencies.insert(std::string(ASRUtils::symbol_name(stemp)));
-                return ASR::make_SubroutineCall_t(al, loc, stemp,
-                    s_generic, args_new.p, args_new.size(), nullptr);
+
+                if (ASRUtils::symbol_parent_symtab(stemp)->get_counter() != current_scope->get_counter()) {
+                    ADD_ASR_DEPENDENCIES(current_scope, stemp, dependencies);
+                }
+
+                return ASRUtils::make_SubroutineCall_t_util(al, loc, stemp,
+                    s_generic, args_new.p, args_new.size(), nullptr, nullptr, false);
             }
-        } else if(ASR::is_a<ASR::StructType_t>(*s)) {
-            Vec<ASR::expr_t*> args_new;
-            args_new.reserve(al, args.size());
-            visit_expr_list(args, args.size(), args_new);
-            ASR::StructType_t* StructType = ASR::down_cast<ASR::StructType_t>(s);
-            for( size_t i = 0; i < std::min(args.size(), StructType->n_members); i++ ) {
-                std::string member_name = StructType->m_members[i];
+        } else if(ASR::is_a<ASR::Struct_t>(*s)) {
+            ASR::Struct_t* st = ASR::down_cast<ASR::Struct_t>(s);
+            if (n_kwargs > 0) {
+                args.reserve(al, n_pos_args + n_kwargs);
+                visit_expr_list(pos_args, n_pos_args, kwargs, n_kwargs,
+                                         args, st, loc);
+            }
+            if ( st->n_member_functions > 0 ) {
+                // Initializers handled in init proc call
+                if ( n_kwargs>0 ) {
+                    throw SemanticError("Keyword args are not supported", loc);
+                }
+                ASR::ttype_t* der_type = ASRUtils::make_StructType_t_util(al, loc, stemp, true);
+
+                if (ASR::down_cast<ASR::StructType_t>(der_type)->m_is_cstruct) {
+                    return ASR::make_StructConstructor_t(al, loc, stemp, args.p,
+                        args.size(), der_type, nullptr);
+                }
+                else 
+                    return ASR::make_StructConstructor_t(al, loc, stemp, st->m_initializers,
+                        st->n_initializers, der_type, nullptr);
+            }
+
+            if ( args.size() > 0 && args.size() > st->n_members ) {
+                throw SemanticError("StructTypeConstructor has more arguments than the number of struct members",
+                                    loc);
+            }
+
+            for( size_t i = 0; i < args.size(); i++ ) {
+                std::string member_name = st->m_members[i];
                 ASR::Variable_t* member_var = ASR::down_cast<ASR::Variable_t>(
-                                                StructType->m_symtab->resolve_symbol(member_name));
-                ASR::expr_t* arg_new_i = args_new[i];
+                                                st->m_symtab->resolve_symbol(member_name));
+                ASR::expr_t* arg_new_i = args[i].m_value;
                 cast_helper(member_var->m_type, arg_new_i, arg_new_i->base.loc);
                 ASR::ttype_t* left_type = member_var->m_type;
                 ASR::ttype_t* right_type = ASRUtils::expr_type(arg_new_i);
-                if( !ASRUtils::check_equal_type(left_type, right_type) ) {
-                    std::string ltype = ASRUtils::type_to_str_python(left_type);
-                    std::string rtype = ASRUtils::type_to_str_python(right_type);
+                if( !ASRUtils::check_equal_type(left_type, right_type, member_var->m_value, arg_new_i) ) {
+                    std::string ltype = ASRUtils::type_to_str_python_expr(left_type, nullptr);
+                    std::string rtype = ASRUtils::type_to_str_python_expr(right_type, arg_new_i);
                     diag.add(diag::Diagnostic(
                         "Type mismatch in procedure call; the types must be compatible",
                         diag::Level::Error, diag::Stage::Semantic, {
@@ -1162,15 +1344,18 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
                     );
                     throw SemanticAbort();
                 }
-                args_new.p[i] = arg_new_i;
+                args.p[i].m_value = arg_new_i;
             }
-            ASR::ttype_t* der_type = ASRUtils::TYPE(ASR::make_Struct_t(al, loc, stemp, nullptr, 0));
-            return ASR::make_StructTypeConstructor_t(al, loc, stemp, args_new.p, args_new.size(), der_type, nullptr);
-        } else if( ASR::is_a<ASR::EnumType_t>(*s) ) {
+            for (size_t i = args.size(); i < st->n_members; i++) {
+                args.push_back(al, st->m_initializers[i]);
+            }
+            ASR::ttype_t* der_type = ASRUtils::make_StructType_t_util(al, loc, stemp, true);
+            return ASR::make_StructConstructor_t(al, loc, stemp, args.p, args.size(), der_type, nullptr);
+        } else if( ASR::is_a<ASR::Enum_t>(*s) ) {
             Vec<ASR::expr_t*> args_new;
             args_new.reserve(al, args.size());
-            visit_expr_list(args, args.size(), args_new);
-            ASR::EnumType_t* enumtype = ASR::down_cast<ASR::EnumType_t>(s);
+            ASRUtils::visit_expr_list(al, args, args_new);
+            ASR::Enum_t* enumtype = ASR::down_cast<ASR::Enum_t>(s);
             for( size_t i = 0; i < std::min(args.size(), enumtype->n_members); i++ ) {
                 std::string member_name = enumtype->m_members[i];
                 ASR::Variable_t* member_var = ASR::down_cast<ASR::Variable_t>(
@@ -1179,15 +1364,15 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
                 cast_helper(member_var->m_type, arg_new_i, arg_new_i->base.loc);
                 args_new.p[i] = arg_new_i;
             }
-            ASR::ttype_t* der_type = ASRUtils::TYPE(ASR::make_Enum_t(al, loc, s, nullptr, 0));
-            return ASR::make_EnumTypeConstructor_t(al, loc, stemp, args_new.p, args_new.size(), der_type, nullptr);
-        } else if( ASR::is_a<ASR::UnionType_t>(*s) ) {
+            ASR::ttype_t* der_type = ASRUtils::TYPE(ASR::make_EnumType_t(al, loc, s));
+            return ASR::make_EnumConstructor_t(al, loc, stemp, args_new.p, args_new.size(), der_type, nullptr);
+        } else if( ASR::is_a<ASR::Union_t>(*s) ) {
             if( args.size() != 0 ) {
                 throw SemanticError("Union constructors do not accept any argument as of now.",
                     loc);
             }
-            ASR::ttype_t* union_ = ASRUtils::TYPE(ASR::make_Union_t(al, loc, stemp, nullptr, 0));
-            return ASR::make_UnionTypeConstructor_t(al, loc, stemp, nullptr, 0, union_, nullptr);
+            ASR::ttype_t* union_ = ASRUtils::get_union_type(al, loc, ASRUtils::symbol_get_past_external(stemp));
+            return ASR::make_UnionConstructor_t(al, loc, stemp, nullptr, 0, union_, nullptr);
         } else {
             throw SemanticError("Unsupported call type for " + call_name, loc);
         }
@@ -1197,7 +1382,7 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
      * @brief Check if the type of the argument given does not contradict
      *        with previously checked type substitution.
      */
-    void check_type_substitution(std::map<std::string, ASR::ttype_t*>& subs,
+    void check_type_substitution(std::map<std::string, std::pair<ASR::ttype_t*, ASR::symbol_t*>>& subs,
             ASR::ttype_t *param_type, ASR::ttype_t *arg_type, const Location &loc) {
         if (ASR::is_a<ASR::List_t>(*param_type)) {
             if (ASR::is_a<ASR::List_t>(*arg_type)) {
@@ -1208,11 +1393,13 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
                 throw SemanticError("The parameter is a list while the argument is not a list", loc);
             }
         }
-        if (ASR::is_a<ASR::TypeParameter_t>(*param_type)) {
-            ASR::TypeParameter_t *tp = ASR::down_cast<ASR::TypeParameter_t>(param_type);
+
+        ASR::ttype_t* param_type_ = ASRUtils::type_get_past_array(param_type);
+        if (ASR::is_a<ASR::TypeParameter_t>(*param_type_)) {
+            ASR::TypeParameter_t *tp = ASR::down_cast<ASR::TypeParameter_t>(param_type_);
             std::string param_name = tp->m_param;
             if (subs.find(param_name) != subs.end()) {
-                if (!ASRUtils::check_equal_type(subs[param_name], arg_type)) {
+                if (!ASRUtils::check_equal_type(subs[param_name].first, arg_type, nullptr, nullptr)) {
                     throw SemanticError("Inconsistent type variable for the function call", loc);
                 }
             } else {
@@ -1221,12 +1408,12 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
                     int param_dims = ASRUtils::extract_dimensions_from_ttype(param_type, dims);
                     int arg_dims = ASRUtils::extract_dimensions_from_ttype(arg_type, dims);
                     if (param_dims == arg_dims) {
-                        subs[param_name] = ASRUtils::duplicate_type_without_dims(al, arg_type, arg_type->base.loc);
+                        subs[param_name].first = ASRUtils::duplicate_type_without_dims(al, arg_type, arg_type->base.loc);
                     } else {
                         throw SemanticError("Inconsistent type subsititution for array type", loc);
                     }
                 } else {
-                    subs[param_name] = ASRUtils::duplicate_type(al, arg_type);
+                    subs[param_name].first = ASRUtils::duplicate_type(al, arg_type);
                 }
             }
         }
@@ -1236,7 +1423,7 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
      * @brief Check if the given function and the type substitution satisfies
      *        the restriction
      */
-    void check_type_restriction(std::map<std::string, ASR::ttype_t*> subs,
+    void check_type_restriction(std::map<std::string, std::pair<ASR::ttype_t*, ASR::symbol_t*>> subs,
             std::map<std::string, ASR::symbol_t*> rt_subs,
             ASR::Function_t* rt, const Location& loc) {
         std::string rt_name = rt->m_name;
@@ -1259,14 +1446,14 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
             for (size_t j=0; j<rt->n_args; j++) {
                 ASR::ttype_t* rt_type = ASRUtils::expr_type(rt->m_args[j]);
                 ASR::ttype_t* rt_arg_type = ASRUtils::expr_type(rt_arg_func->m_args[j]);
-                if (ASRUtils::is_generic(*rt_type)) {
+                if (ASRUtils::is_type_parameter(*rt_type)) {
                     std::string rt_type_param = ASR::down_cast<ASR::TypeParameter_t>(
                         ASRUtils::get_type_parameter(rt_type))->m_param;
                     /**
                      * @brief if the type of the function given for the restriction does not
                      *        satisfy the type substitution from the function argument, it
                      *        results in error **/
-                    if (!ASRUtils::check_equal_type(subs[rt_type_param], rt_arg_type)) {
+                    if (!ASRUtils::check_equal_type(subs[rt_type_param].first, rt_arg_type, nullptr, nullptr)) {
                         throw SemanticError("Restriction mismatch with provided arguments",
                             rt_arg->base.loc);
                     }
@@ -1279,10 +1466,10 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
                 }
                 ASR::ttype_t* rt_return = ASRUtils::expr_type(rt->m_return_var);
                 ASR::ttype_t* rt_arg_return = ASRUtils::expr_type(rt_arg_func->m_return_var);
-                if (ASRUtils::is_generic(*rt_return)) {
+                if (ASRUtils::is_type_parameter(*rt_return)) {
                     std::string rt_return_param = ASR::down_cast<ASR::TypeParameter_t>(
                         ASRUtils::get_type_parameter(rt_return))->m_param;
-                    if (!ASRUtils::check_equal_type(subs[rt_return_param], rt_arg_return)) {
+                    if (!ASRUtils::check_equal_type(subs[rt_return_param].first, rt_arg_return, nullptr, nullptr)) {
                         throw SemanticError("Restriction mismatch with provided arguments",
                             rt_arg->base.loc);
                     }
@@ -1305,9 +1492,9 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
             ASR::ttype_t* left_type = ASRUtils::expr_type(rt->m_args[0]);
             ASR::ttype_t* right_type = ASRUtils::expr_type(rt->m_args[1]);
             left_type = ASR::is_a<ASR::TypeParameter_t>(*left_type)
-                ? subs[ASR::down_cast<ASR::TypeParameter_t>(left_type)->m_param] : left_type;
+                ? subs[ASR::down_cast<ASR::TypeParameter_t>(left_type)->m_param].first : left_type;
             right_type = ASR::is_a<ASR::TypeParameter_t>(*right_type)
-                ? subs[ASR::down_cast<ASR::TypeParameter_t>(right_type)->m_param] : right_type;
+                ? subs[ASR::down_cast<ASR::TypeParameter_t>(right_type)->m_param].first : right_type;
             if ((ASRUtils::is_integer(*left_type) && ASRUtils::is_integer(*right_type)) ||
                     (ASRUtils::is_real(*left_type) && ASRUtils::is_real(*right_type))) {
                 return;
@@ -1315,7 +1502,7 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
         } else if (rt_name == "zero" && rt->n_args == 1) {
             ASR::ttype_t* type = ASRUtils::expr_type(rt->m_args[0]);
             type = ASR::is_a<ASR::TypeParameter_t>(*type)
-                ? subs[ASR::down_cast<ASR::TypeParameter_t>(type)->m_param] : type;
+                ? subs[ASR::down_cast<ASR::TypeParameter_t>(type)->m_param].first : type;
             if (ASRUtils::is_integer(*type) || ASRUtils::is_real(*type)) {
                 return;
             }
@@ -1323,7 +1510,7 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
             ASR::ttype_t* left_type = ASRUtils::expr_type(rt->m_args[0]);
             ASR::ttype_t* right_type = ASRUtils::expr_type(rt->m_args[1]);
             left_type = ASR::is_a<ASR::TypeParameter_t>(*left_type)
-                ? subs[ASR::down_cast<ASR::TypeParameter_t>(left_type)->m_param] : left_type;
+                ? subs[ASR::down_cast<ASR::TypeParameter_t>(left_type)->m_param].first : left_type;
             if ((ASRUtils::is_integer(*left_type) && ASRUtils::is_integer(*right_type)) ||
                     (ASRUtils::is_real(*left_type) && ASRUtils::is_integer(*right_type))) {
                 return;
@@ -1336,62 +1523,92 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
      * @brief Check if the generic function has been instantiated with similar
      *        arguments. If not, then instantiate a new function.
      */
-    ASR::symbol_t* get_generic_function(std::map<std::string, ASR::ttype_t*> subs,
-            std::map<std::string, ASR::symbol_t*>& rt_subs, ASR::symbol_t *func) {
-        int new_function_num;
-        ASR::symbol_t *t;
-        std::string func_name = ASRUtils::symbol_name(func);
-        if (generic_func_nums.find(func_name) != generic_func_nums.end()) {
-            new_function_num = generic_func_nums[func_name];
-            for (int i=0; i<generic_func_nums[func_name]; i++) {
-                std::string generic_func_name = "__asr_generic_" + func_name + "_" + std::to_string(i);
-                if (generic_func_subs.find(generic_func_name) != generic_func_subs.end()) {
-                    std::map<std::string, ASR::ttype_t*> subs_check = generic_func_subs[generic_func_name];
-                    if (subs_check.size() != subs.size()) { continue; }
-                    bool defined = true;
-                    for (auto const &subs_check_pair: subs_check) {
-                        if (subs.find(subs_check_pair.first) == subs.end()) {
-                            defined = false; break;
-                        }
-                        ASR::ttype_t* subs_type = subs[subs_check_pair.first];
-                        ASR::ttype_t* subs_check_type = subs_check_pair.second;
-                        if (!ASRUtils::check_equal_type(subs_type, subs_check_type)) {
-                            defined = false; break;
-                        }
-                    }
-                    if (defined) {
-                        t = current_scope->resolve_symbol(generic_func_name);
-                        return t;
-                    }
-                }
-            }
-        } else {
-            new_function_num = 0;
-        }
-        generic_func_nums[func_name] = new_function_num + 1;
-        std::string new_func_name = "__asr_generic_" + func_name + "_"
-            + std::to_string(new_function_num);
-        generic_func_subs[new_func_name] = subs;
-        t = pass_instantiate_generic_function(al, subs, rt_subs,
-            ASRUtils::symbol_parent_symtab(func), new_func_name, func);
-        dependencies.erase(func_name);
-        dependencies.insert(new_func_name);
-        return t;
+    /*ASR::symbol_t* get_generic_function(std::map<std::string, std::pair<ASR::ttype_t*, ASR::symbol_t*>> subs,*/
+    /*        std::map<std::string, ASR::symbol_t*>& rt_subs, ASR::symbol_t *sym) {*/
+    /*    int new_function_num;*/
+    /*    ASR::symbol_t *t;*/
+    /*    std::string func_name = ASRUtils::symbol_name(sym);*/
+    /*    if (generic_func_nums.find(func_name) != generic_func_nums.end()) {*/
+    /*        new_function_num = generic_func_nums[func_name];*/
+    /*        for (int i=0; i<generic_func_nums[func_name]; i++) {*/
+    /*            std::string generic_func_name = "__asr_generic_" + func_name + "_" + std::to_string(i);*/
+    /*            if (generic_func_subs.find(generic_func_name) != generic_func_subs.end()) {*/
+    /*                std::map<std::string, std::pair<ASR::ttype_t*, ASR::symbol_t*>> subs_check = generic_func_subs[generic_func_name];*/
+    /*                if (subs_check.size() != subs.size()) { continue; }*/
+    /*                bool defined = true;*/
+    /*                for (auto const &subs_check_pair: subs_check) {*/
+    /*                    if (subs.find(subs_check_pair.first) == subs.end()) {*/
+    /*                        defined = false; break;*/
+    /*                    }*/
+    /*                    ASR::ttype_t* subs_type = subs[subs_check_pair.first].first;*/
+    /*                    ASR::ttype_t* subs_check_type = subs_check_pair.second.first;*/
+    /*                    if (!ASRUtils::check_equal_type(subs_type, subs_check_type, nullptr, nullptr)) {*/
+    /*                        defined = false; break;*/
+    /*                    }*/
+    /*                }*/
+    /*                if (defined) {*/
+    /*                    t = current_scope->resolve_symbol(generic_func_name);*/
+    /*                    return t;*/
+    /*                }*/
+    /*            }*/
+    /*        }*/
+    /*    } else {*/
+    /*        new_function_num = 0;*/
+    /*    }*/
+    /*    generic_func_nums[func_name] = new_function_num + 1;*/
+    /*    std::string new_func_name = "__asr_generic_" + func_name + "_"*/
+    /*        + std::to_string(new_function_num);*/
+    /*    generic_func_subs[new_func_name] = subs;*/
+    /*    SymbolTable *target_scope = ASRUtils::symbol_parent_symtab(sym);*/
+    /*    t = instantiate_symbol(al, context_map, subs, rt_subs,*/
+    /*            target_scope, target_scope, new_func_name, sym);*/
+    /*    if (ASR::is_a<ASR::Function_t>(*sym)) {*/
+    /*        ASR::Function_t *f = ASR::down_cast<ASR::Function_t>(sym);*/
+    /*        ASR::Function_t *new_f = ASR::down_cast<ASR::Function_t>(t);*/
+    /*        t = instantiate_function_body(al, context_map, subs, rt_subs,*/
+    /*            target_scope, target_scope, new_f, f);*/
+    /*    }*/
+    /*    dependencies.erase(s2c(al, func_name));*/
+    /**/
+    /*    if (ASRUtils::symbol_parent_symtab(sym)->get_counter() != current_scope->get_counter()) {*/
+    /*        ADD_ASR_DEPENDENCIES_WITH_NAME(current_scope, sym, dependencies, s2c(al, new_func_name));*/
+    /*    }*/
+    /*    return t;*/
+    /*}*/
+
+    bool contains_local_variable(ASR::expr_t* value) {
+        if( ASR::is_a<ASR::Var_t>(*value) ) {
+            ASR::Var_t* var_value = ASR::down_cast<ASR::Var_t>(value);
+            ASR::symbol_t* var_value_sym = var_value->m_v;
+            ASR::Variable_t* var_value_variable = ASR::down_cast<ASR::Variable_t>(
+                ASRUtils::symbol_get_past_external(var_value_sym));
+            return var_value_variable->m_intent == ASR::intentType::Local;
+        }
+
+        // TODO: Let any other expression pass through
+        // Will be handled later
+        return false;
     }
 
     void fill_dims_for_asr_type(Vec<ASR::dimension_t>& dims,
-                                ASR::expr_t* value, const Location& loc) {
+                                ASR::expr_t* value, const Location& loc,
+                                bool is_allocatable=false) {
         ASR::dimension_t dim;
         dim.loc = loc;
         if (ASR::is_a<ASR::IntegerConstant_t>(*value) ||
-            ASR::is_a<ASR::Var_t>(*value)) {
+            ASR::is_a<ASR::Var_t>(*value) ||
+            ASR::is_a<ASR::IntegerBinOp_t>(*value)) {
             ASR::ttype_t *itype = ASRUtils::expr_type(value);
             ASR::expr_t* one = ASRUtils::EXPR(ASR::make_IntegerConstant_t(al, loc, 1, itype));
             ASR::expr_t* zero = ASRUtils::EXPR(ASR::make_IntegerConstant_t(al, loc, 0, itype));
             ASR::expr_t* comptime_val = nullptr;
             int64_t value_int = -1;
-            ASRUtils::extract_value(ASRUtils::expr_value(value), value_int);
-            if( value_int != -1 ) {
+            if( !ASRUtils::extract_value(ASRUtils::expr_value(value), value_int) &&
+                contains_local_variable(value) && !is_allocatable) {
+                throw SemanticError("Only those local variables that can be reduced to compile-time constants should be used in dimensions of an array.",
+                                    value->base.loc);
+            }
+            if (value_int != -1) {
                 comptime_val = ASRUtils::EXPR(ASR::make_IntegerConstant_t(al, loc, value_int - 1, itype));
             }
             dim.m_start = zero;
@@ -1403,7 +1620,13 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
             ASR::TupleConstant_t* tuple_constant = ASR::down_cast<ASR::TupleConstant_t>(value);
             for( size_t i = 0; i < tuple_constant->n_elements; i++ ) {
                 ASR::expr_t *value = tuple_constant->m_elements[i];
-                fill_dims_for_asr_type(dims, value, loc);
+                fill_dims_for_asr_type(dims, value, loc, is_allocatable);
+            }
+        } else if(ASR::is_a<ASR::ListConstant_t>(*value)) {
+            ASR::ListConstant_t* list_constant = ASR::down_cast<ASR::ListConstant_t>(value);
+            for( size_t i = 0; i < list_constant->n_args; i++ ) {
+                ASR::expr_t *value = list_constant->m_args[i];
+                fill_dims_for_asr_type(dims, value, loc, is_allocatable);
             }
         } else if(ASR::is_a<ASR::EnumValue_t>(*value)) {
             ASR::expr_t* enum_value = ASRUtils::expr_value(
@@ -1412,7 +1635,7 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
                 throw SemanticError("Only constant enumeration values are "
                                     "supported as array dimensions.", loc);
             }
-            fill_dims_for_asr_type(dims, enum_value, loc);
+            fill_dims_for_asr_type(dims, enum_value, loc, is_allocatable);
         } else {
             throw SemanticError("Only Integer, `:` or identifier in [] in "
                                 "Subscript supported for now in annotation "
@@ -1442,11 +1665,49 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
         }
     }
 
+    bool is_hashable(ASR::ttype_t* object_type) {
+        if (ASR::is_a<ASR::List_t>(*object_type)
+            || ASR::is_a<ASR::Dict_t>(*object_type)
+            || ASR::is_a<ASR::Set_t>(*object_type)) {
+                return false;
+            }
+        return true;
+    }
+
+    AST::expr_t* get_var_intent_and_annotation(AST::expr_t *annotation, ASR::intentType &intent) {
+        if (AST::is_a<AST::Subscript_t>(*annotation)) {
+            AST::Subscript_t *s = AST::down_cast<AST::Subscript_t>(annotation);
+            if (AST::is_a<AST::Name_t>(*s->m_value)) {
+                std::string ann_name = AST::down_cast<AST::Name_t>(s->m_value)->m_id;
+                if (ann_name == "In") {
+                    intent = ASRUtils::intent_in;
+                    return s->m_slice;
+                } else if (ann_name == "InOut") {
+                    intent = ASRUtils::intent_inout;
+                    return s->m_slice;
+                } else if (ann_name == "Out") {
+                    intent = ASRUtils::intent_out;
+                    return s->m_slice;
+                }
+                return annotation;
+            } else {
+                throw SemanticError("Only Name in Subscript supported for now in annotation", annotation->base.loc);
+            }
+        } else if ( AST::is_a<AST::ConstantStr_t>(*annotation) ) {
+            //self case in methods
+            intent = ASRUtils::intent_inout;
+            return annotation;
+        }
+        return annotation;
+    }
+
     // Convert Python AST type annotation to an ASR type
     // Examples:
     // i32, i64, f32, f64
     // f64[256], i32[:]
-    ASR::ttype_t * ast_expr_to_asr_type(const Location &loc, const AST::expr_t &annotation) {
+    ASR::ttype_t * ast_expr_to_asr_type(const Location &loc, const AST::expr_t &annotation, ASR::symbol_t*& type_decl,
+        bool &is_allocatable, bool &is_const, bool raise_error=true, ASR::abiType abi=ASR::abiType::Source,
+        bool is_argument=false) {
         Vec<ASR::dimension_t> dims;
         dims.reserve(al, 4);
         AST::expr_t** m_args = nullptr; size_t n_args = 0;
@@ -1455,7 +1716,16 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
         if (AST::is_a<AST::Name_t>(annotation)) {
             AST::Name_t *n = AST::down_cast<AST::Name_t>(&annotation);
             var_annotation = n->m_id;
-        } else if (AST::is_a<AST::Subscript_t>(annotation)) {
+            return get_type_from_var_annotation(var_annotation,
+                annotation.base.loc, dims, type_decl, m_args, n_args, raise_error,
+                abi, is_argument);
+        }
+
+        if (AST::is_a<AST::ConstantNone_t>(annotation)) {
+            return nullptr;
+        }
+
+        if (AST::is_a<AST::Subscript_t>(annotation)) {
             AST::Subscript_t *s = AST::down_cast<AST::Subscript_t>(&annotation);
             if (AST::is_a<AST::Name_t>(*s->m_value)) {
                 AST::Name_t *n = AST::down_cast<AST::Name_t>(s->m_value);
@@ -1465,15 +1735,21 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
                     loc);
             }
 
+            if (var_annotation == "In" || var_annotation == "InOut" || var_annotation == "Out") {
+                throw SemanticError("Intent annotation '" + var_annotation + "' cannot be used here", s->base.base.loc);
+            }
+
             if (var_annotation == "tuple") {
                 Vec<ASR::ttype_t*> types;
                 types.reserve(al, 4);
                 if (AST::is_a<AST::Name_t>(*s->m_slice)) {
-                    types.push_back(al, ast_expr_to_asr_type(loc, *s->m_slice));
+                    types.push_back(al, ast_expr_to_asr_type(loc, *s->m_slice,
+                        type_decl, is_allocatable, is_const, raise_error, abi, is_argument));
                 } else if (AST::is_a<AST::Tuple_t>(*s->m_slice)) {
                     AST::Tuple_t *t = AST::down_cast<AST::Tuple_t>(s->m_slice);
                     for (size_t i=0; i<t->n_elts; i++) {
-                        types.push_back(al, ast_expr_to_asr_type(loc, *t->m_elts[i]));
+                        types.push_back(al, ast_expr_to_asr_type(loc, *t->m_elts[i],
+                            type_decl, is_allocatable, is_const, raise_error, abi, is_argument));
                     }
                 } else {
                     throw SemanticError("Only Name or Tuple in Subscript supported for now in `tuple` annotation",
@@ -1482,9 +1758,48 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
                 ASR::ttype_t *type = ASRUtils::TYPE(ASR::make_Tuple_t(al, loc,
                     types.p, types.size()));
                 return type;
+            } else if (var_annotation == "Callable") {
+                LCOMPILERS_ASSERT(AST::is_a<AST::Tuple_t>(*s->m_slice));
+                AST::Tuple_t *t = AST::down_cast<AST::Tuple_t>(s->m_slice);
+                LCOMPILERS_ASSERT(t->n_elts <= 2 && t->n_elts >= 1);
+                Vec<ASR::ttype_t*> arg_types;
+                LCOMPILERS_ASSERT(AST::is_a<AST::List_t>(*t->m_elts[0]));
+
+                AST::List_t *arg_list = AST::down_cast<AST::List_t>(t->m_elts[0]);
+                if (arg_list->n_elts > 0) {
+                    arg_types.reserve(al, arg_list->n_elts);
+                    for (size_t i=0; i<arg_list->n_elts; i++) {
+                        arg_types.push_back(al, ast_expr_to_asr_type(loc, *arg_list->m_elts[i],
+                                                type_decl, is_allocatable, is_const, raise_error, abi, is_argument));
+                    }
+                } else {
+                    arg_types.reserve(al, 1);
+                }
+                ASR::ttype_t* ret_type = nullptr;
+                if (t->n_elts == 2) {
+                    ret_type = ast_expr_to_asr_type(loc, *t->m_elts[1],
+                        type_decl, is_allocatable, is_const, raise_error, abi, is_argument);
+                }
+                ASR::ttype_t *type = ASRUtils::TYPE(ASR::make_FunctionType_t(al, loc, arg_types.p,
+                        arg_types.size(), ret_type, ASR::abiType::Source,
+                        ASR::deftypeType::Interface, nullptr, false, false,
+                        false, false, false, nullptr, 0, false));
+                return type;
             } else if (var_annotation == "set") {
-                if (AST::is_a<AST::Name_t>(*s->m_slice)) {
-                    ASR::ttype_t *type = ast_expr_to_asr_type(loc, *s->m_slice);
+                if (AST::is_a<AST::Name_t>(*s->m_slice) || AST::is_a<AST::Subscript_t>(*s->m_slice)) {
+                    ASR::ttype_t *type = ast_expr_to_asr_type(loc, *s->m_slice,
+                        type_decl, is_allocatable, is_const, raise_error, abi, is_argument);
+                    if (!is_hashable(type)) {
+                        diag.add(diag::Diagnostic(
+                            "Unhashable type: '" + ASRUtils::type_to_str_python_expr(type, nullptr) + "'",
+                            diag::Level::Error, diag::Stage::Semantic, {
+                                diag::Label("Mutable type '" + ASRUtils::type_to_str_python_expr(type, nullptr)
+                                + "' cannot be stored in a set.",
+                                        {s->m_slice->base.loc})
+                            })
+                        );
+                        throw SemanticAbort();
+                    }
                     return ASRUtils::TYPE(ASR::make_Set_t(al, loc, type));
                 } else {
                     throw SemanticError("Only Name in Subscript supported for now in `set`"
@@ -1493,12 +1808,31 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
             } else if (var_annotation == "list") {
                 ASR::ttype_t *type = nullptr;
                 if (AST::is_a<AST::Name_t>(*s->m_slice) || AST::is_a<AST::Subscript_t>(*s->m_slice)) {
-                    type = ast_expr_to_asr_type(loc, *s->m_slice);
+                    type = ast_expr_to_asr_type(loc, *s->m_slice,
+                        type_decl, is_allocatable, is_const, raise_error, abi, is_argument);
+
+                    if (ASRUtils::is_character(*type) && !ASRUtils::is_allocatable(type))
+                        type = ASRUtils::TYPE(ASR::make_Allocatable_t(al, loc, 
+                                    ASRUtils::TYPE(ASR::make_String_t(al, loc, 1, nullptr, 
+                                                ASR::string_length_kindType::DeferredLength, 
+                                                ASR::string_physical_typeType::DescriptorString))));
+                    
                     return ASRUtils::TYPE(ASR::make_List_t(al, loc, type));
                 } else {
                     throw SemanticError("Only Name or Subscript inside Subscript supported for now in `list`"
                         " annotation", loc);
                 }
+            } else if (var_annotation == "Allocatable") {
+                ASR::ttype_t *type = nullptr;
+                if (AST::is_a<AST::Name_t>(*s->m_slice) || AST::is_a<AST::Subscript_t>(*s->m_slice)) {
+                    type = ast_expr_to_asr_type(loc, *s->m_slice,
+                        type_decl, is_allocatable, is_const, raise_error, abi, is_argument);
+                    is_allocatable = true;
+                    return type;
+                } else {
+                    throw SemanticError("Only Name or Subscript inside Subscript supported for now in `list`"
+                        " annotation", loc);
+                }
             } else if (var_annotation == "dict") {
                 if (AST::is_a<AST::Tuple_t>(*s->m_slice)) {
                     AST::Tuple_t *t = AST::down_cast<AST::Tuple_t>(s->m_slice);
@@ -1506,8 +1840,21 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
                         throw SemanticError("`dict` annotation must have 2 elements: types"
                             " of both keys and values", loc);
                     }
-                    ASR::ttype_t *key_type = ast_expr_to_asr_type(loc, *t->m_elts[0]);
-                    ASR::ttype_t *value_type = ast_expr_to_asr_type(loc, *t->m_elts[1]);
+                    ASR::ttype_t *key_type = ast_expr_to_asr_type(loc, *t->m_elts[0],
+                        type_decl, is_allocatable, is_const, raise_error, abi, is_argument);
+                    if (!is_hashable(key_type)) {
+                        diag.add(diag::Diagnostic(
+                            "Unhashable type: '" + ASRUtils::type_to_str_python_expr(key_type, nullptr) + "'",
+                            diag::Level::Error, diag::Stage::Semantic, {
+                                diag::Label("Mutable type '" + ASRUtils::type_to_str_python_expr(key_type, nullptr)
+                                + "' cannot become a key in dict. Hint: Use an immutable type for key.",
+                                        {t->m_elts[0]->base.loc})
+                            })
+                        );
+                        throw SemanticAbort();
+                    }
+                    ASR::ttype_t *value_type = ast_expr_to_asr_type(loc, *t->m_elts[1],
+                        type_decl, is_allocatable, is_const, raise_error, abi, is_argument);
                     raise_error_when_dict_key_is_float_or_complex(key_type, loc);
                     return ASRUtils::TYPE(ASR::make_Dict_t(al, loc, key_type, value_type));
                 } else {
@@ -1515,34 +1862,65 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
                         " both keys and values", loc);
                 }
             } else if (var_annotation == "Pointer") {
-                ASR::ttype_t *type = ast_expr_to_asr_type(loc, *s->m_slice);
+                ASR::ttype_t *type = ast_expr_to_asr_type(loc, *s->m_slice,
+                    type_decl, is_allocatable, is_const, raise_error, abi, is_argument);
                 return ASRUtils::TYPE(ASR::make_Pointer_t(al, loc, type));
             } else if (var_annotation == "Const") {
-                ASR::ttype_t *type = ast_expr_to_asr_type(loc, *s->m_slice);
-                return ASRUtils::TYPE(ASR::make_Const_t(al, loc, type));
+                is_const = true;
+                return ast_expr_to_asr_type(loc, *s->m_slice,
+                    type_decl, is_allocatable, is_const, raise_error, abi, is_argument);
             } else {
-                if (AST::is_a<AST::Slice_t>(*s->m_slice)) {
+                AST::expr_t* dim_info = s->m_slice;
+
+                if (var_annotation == "Array") {
+                    LCOMPILERS_ASSERT(AST::is_a<AST::Tuple_t>(*s->m_slice));
+                    AST::Tuple_t *t = AST::down_cast<AST::Tuple_t>(s->m_slice);
+                    LCOMPILERS_ASSERT(t->n_elts >= 2);
+                    LCOMPILERS_ASSERT(AST::is_a<AST::Name_t>(*t->m_elts[0]));
+                    var_annotation = AST::down_cast<AST::Name_t>(t->m_elts[0])->m_id;
+                    Vec<AST::expr_t*> dims;
+                    dims.reserve(al, 0);
+                    for (size_t i = 1; i < t->n_elts; i++) {
+                        dims.push_back(al, t->m_elts[i]);
+                    }
+                    AST::ast_t* dim_tuple = AST::make_Tuple_t(al, t->base.base.loc, dims.p, dims.size(),
+                        AST::expr_contextType::Load);
+                    dim_info = AST::down_cast<AST::expr_t>(dim_tuple);
+                }
+
+                ASR::ttype_t* type = get_type_from_var_annotation(var_annotation,
+                    annotation.base.loc, dims, type_decl, m_args, n_args, raise_error, abi, is_argument);
+
+                ASR::expr_t* zero = ASRUtils::EXPR(ASR::make_IntegerConstant_t(al, loc, 0, ASRUtils::TYPE(
+                                                ASR::make_Integer_t(al, loc, 4))));
+                if (AST::is_a<AST::Slice_t>(*dim_info)) {
                     ASR::dimension_t dim;
                     dim.loc = loc;
-                    dim.m_start = nullptr;
+                    dim.m_start = zero;
                     dim.m_length = nullptr;
                     dims.push_back(al, dim);
-                } else if( is_runtime_array(s->m_slice) ) {
-                    AST::Tuple_t* tuple_multidim = AST::down_cast<AST::Tuple_t>(s->m_slice);
+                } else if( is_runtime_array(dim_info) ) {
+                    AST::Tuple_t* tuple_multidim = AST::down_cast<AST::Tuple_t>(dim_info);
                     for( size_t i = 0; i < tuple_multidim->n_elts; i++ ) {
                         if( AST::is_a<AST::Slice_t>(*tuple_multidim->m_elts[i]) ) {
                             ASR::dimension_t dim;
                             dim.loc = loc;
-                            dim.m_start = nullptr;
+                            dim.m_start = zero;
                             dim.m_length = nullptr;
                             dims.push_back(al, dim);
                         }
                     }
                 } else {
-                    this->visit_expr(*s->m_slice);
+                    this->visit_expr(*dim_info);
                     ASR::expr_t *value = ASRUtils::EXPR(tmp);
                     fill_dims_for_asr_type(dims, value, loc);
                 }
+
+                if (ASRUtils::ttype_set_dimensions(&type, dims.p, dims.size(), al, abi, is_argument)) {
+                    return type;
+                }
+
+                throw SemanticError("ICE: Unable to set dimensions for: " + var_annotation, loc);
             }
         } else if (AST::is_a<AST::Attribute_t>(annotation)) {
             AST::Attribute_t* attr_annotation = AST::down_cast<AST::Attribute_t>(&annotation);
@@ -1554,8 +1932,8 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
                 throw SemanticError("'" + value + "' is not defined in the scope",
                     attr_annotation->base.base.loc);
             }
-            LCOMPILERS_ASSERT(ASR::is_a<ASR::StructType_t>(*t));
-            ASR::StructType_t* struct_type = ASR::down_cast<ASR::StructType_t>(t);
+            LCOMPILERS_ASSERT(ASR::is_a<ASR::Struct_t>(*t));
+            ASR::Struct_t* struct_type = ASR::down_cast<ASR::Struct_t>(t);
             std::string struct_var_name = struct_type->m_name;
             std::string struct_member_name = attr_annotation->m_attr;
             ASR::symbol_t* struct_member = struct_type->m_symtab->resolve_symbol(struct_member_name);
@@ -1577,27 +1955,34 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
                 }
             }
             if( import_from_struct ) {
-                import_name = current_scope->get_unique_name(import_name);
+                import_name = current_scope->get_unique_name(import_name, false);
                 import_struct_member = ASR::down_cast<ASR::symbol_t>(ASR::make_ExternalSymbol_t(al,
                                                         attr_annotation->base.base.loc, current_scope, s2c(al, import_name),
                                                         struct_member,s2c(al, struct_var_name), nullptr, 0,
                                                         s2c(al, struct_member_name), ASR::accessType::Public));
                 current_scope->add_symbol(import_name, import_struct_member);
             }
-            return ASRUtils::TYPE(ASR::make_Union_t(al, attr_annotation->base.base.loc, import_struct_member, nullptr, 0));
-        } else {
-            throw SemanticError("Only Name, Subscript, and Call supported for now in annotation of annotated assignment.",
-                loc);
+            return ASRUtils::get_union_type(al, attr_annotation->base.base.loc,
+                                            ASRUtils::symbol_get_past_external(import_struct_member));
+        } else if ( AST::is_a<AST::ConstantStr_t>(annotation) ) {
+            AST::ConstantStr_t *n = AST::down_cast<AST::ConstantStr_t>(&annotation);
+            ASR::symbol_t *sym = current_scope->resolve_symbol(n->m_value);
+            if ( sym == nullptr || !ASR::is_a<ASR::Struct_t>(*sym) ) {
+                throw SemanticError("Only StructType implemented for constant"
+                " str annotation", loc);
+            }
+
+            type_decl = sym;
+            return ASRUtils::make_StructType_t_util(al, loc, sym, true);
         }
 
-        return get_type_from_var_annotation(var_annotation, annotation.base.loc, dims, m_args, n_args);
+        throw SemanticError("Only Name, Subscript, and Call supported for now in annotation of annotated assignment.", loc);
     }
 
     ASR::expr_t *index_add_one(const Location &loc, ASR::expr_t *idx) {
         // Add 1 to the index `idx`, assumes `idx` is of type Integer 4
         ASR::expr_t *comptime_value = nullptr;
-        ASR::ttype_t *a_type = ASRUtils::TYPE(ASR::make_Integer_t(al, loc,
-            4, nullptr, 0));
+        ASR::ttype_t *a_type = ASRUtils::TYPE(ASR::make_Integer_t(al, loc, 4));
         ASR::expr_t *constant_one = ASR::down_cast<ASR::expr_t>(ASR::make_IntegerConstant_t(
                                             al, loc, 1, a_type));
         return ASRUtils::EXPR(ASR::make_IntegerBinOp_t(al, loc, idx,
@@ -1627,12 +2012,6 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
                         ASR::is_a<ASR::Var_t>(*right)));
         ASR::ttype_t *right_type = ASRUtils::expr_type(right);
         ASR::ttype_t *left_type = ASRUtils::expr_type(left);
-        if( ASR::is_a<ASR::Const_t>(*left_type) ) {
-            left_type = ASRUtils::get_contained_type(left_type);
-        }
-        if( ASR::is_a<ASR::Const_t>(*right_type) ) {
-            right_type = ASRUtils::get_contained_type(right_type);
-        }
         left_type = ASRUtils::type_get_past_pointer(left_type);
         right_type = ASRUtils::type_get_past_pointer(right_type);
         if( no_cast ) {
@@ -1648,10 +2027,9 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
         // by converting them into 32-bit integers.
         // See integration_tests/test_bool_binop.py for its significance.
         if(!is_assign && ASRUtils::is_logical(*left_type) && ASRUtils::is_logical(*right_type) ) {
-            ASR::ttype_t* dest_type = ASRUtils::TYPE(ASR::make_Integer_t(al, left_type->base.loc,
-                                            4, nullptr, 0));
-            left = CastingUtil::perform_casting(left, left_type, dest_type, al, left->base.loc);
-            right = CastingUtil::perform_casting(right, right_type, dest_type, al, right->base.loc);
+            ASR::ttype_t* dest_type = ASRUtils::TYPE(ASR::make_Integer_t(al, left_type->base.loc, 4));
+            left = CastingUtil::perform_casting(left, dest_type, al, left->base.loc);
+            right = CastingUtil::perform_casting(right, dest_type, al, right->base.loc);
             return ;
         }
 
@@ -1662,8 +2040,7 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
         if( casted_expression_signal == 2 ) {
             return ;
         }
-        src_expr = CastingUtil::perform_casting(src_expr, src_type,
-                                                dest_type, al, src_expr->base.loc);
+        src_expr = CastingUtil::perform_casting(src_expr, dest_type, al, src_expr->base.loc);
         if( casted_expression_signal == 0 ) {
             left = src_expr;
             right = dest_expr;
@@ -1679,26 +2056,16 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
             return ;
         }
         ASR::ttype_t* src_type = ASRUtils::expr_type(src_expr);
-        if( ASR::is_a<ASR::Const_t>(*src_type) ) {
-            src_type = ASRUtils::get_contained_type(src_type);
-        }
-        if( ASRUtils::check_equal_type(src_type, dest_type) ) {
+        if( ASRUtils::check_equal_type(src_type, dest_type, nullptr, nullptr) ) {
             return ;
         }
-        src_expr = CastingUtil::perform_casting(src_expr, src_type,
-                                                dest_type, al, loc);
+        src_expr = CastingUtil::perform_casting(src_expr, dest_type, al, loc);
     }
 
     void make_BinOp_helper(ASR::expr_t *left, ASR::expr_t *right,
-        ASR::binopType op, const Location &loc, bool floordiv) {
+        ASR::binopType op, const Location &loc) {
         ASR::ttype_t *left_type = ASRUtils::expr_type(left);
         ASR::ttype_t *right_type = ASRUtils::expr_type(right);
-        if( ASR::is_a<ASR::Const_t>(*left_type) ) {
-            left_type = ASRUtils::get_contained_type(left_type);
-        }
-        if( ASR::is_a<ASR::Const_t>(*right_type) ) {
-            right_type = ASRUtils::get_contained_type(right_type);
-        }
         ASR::ttype_t *dest_type = nullptr;
         ASR::expr_t *value = nullptr;
         ASR::expr_t *overloaded = nullptr;
@@ -1707,7 +2074,8 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
         bool left_is_int = ASRUtils::is_integer(*left_type) && ASRUtils::is_character(*right_type);
 
         // Handle normal division in python with reals
-        if (op == ASR::binopType::Div) {
+        if (op == ASR::binopType::Div && ((!ASR::is_a<ASR::SymbolicExpression_t>(*left_type)) ||
+            (!ASR::is_a<ASR::SymbolicExpression_t>(*right_type)))) {
             if (ASRUtils::is_character(*left_type) || ASRUtils::is_character(*right_type)) {
                 diag.add(diag::Diagnostic(
                     "Division is not supported for string type",
@@ -1718,123 +2086,72 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
                 );
                 throw SemanticAbort();
             }
-            // Floor div operation in python using (`//`)
-            if (floordiv) {
-                bool both_int = (ASRUtils::is_integer(*left_type) && ASRUtils::is_integer(*right_type));
-                if (both_int) {
-                    cast_helper(left, right, false);
-                    dest_type = ASRUtils::expr_type(left);
+            if(!ASRUtils::check_equal_type(left_type, right_type, nullptr, nullptr)){
+                std::string ltype = ASRUtils::type_to_str_python_expr(ASRUtils::expr_type(left), left);
+                std::string rtype = ASRUtils::type_to_str_python_expr(ASRUtils::expr_type(right), right);
+                diag.add(diag::Diagnostic(
+                    "Type mismatch in binary operator; the types must be compatible",
+                    diag::Level::Error, diag::Stage::Semantic, {
+                        diag::Label("type mismatch (" + ltype + " and " + rtype + ")",
+                                {left->base.loc, right->base.loc})
+                    })
+                );
+                throw SemanticAbort();
+            }
+            ASR::ttype_t* left_type = ASRUtils::expr_type(left);
+            ASR::ttype_t* right_type = ASRUtils::expr_type(right);
+            ASR::dimension_t *m_dims_left = nullptr, *m_dims_right = nullptr;
+            int n_dims_left = ASRUtils::extract_dimensions_from_ttype(left_type, m_dims_left);
+            int n_dims_right = ASRUtils::extract_dimensions_from_ttype(right_type, m_dims_right);
+            if( n_dims_left == 0 && n_dims_right == 0 ) {
+                int left_type_priority = CastingUtil::get_type_priority(left_type->type);
+                int right_type_priority = CastingUtil::get_type_priority(right_type->type);
+                int left_kind = ASRUtils::extract_kind_from_ttype_t(left_type);
+                int right_kind = ASRUtils::extract_kind_from_ttype_t(right_type);
+                bool is_left_f32 = ASR::is_a<ASR::Real_t>(*left_type) && left_kind == 4;
+                bool is_right_f32 = ASR::is_a<ASR::Real_t>(*right_type) && right_kind == 4;
+                if( (left_type_priority >= right_type_priority && is_left_f32) ||
+                    (right_type_priority >= left_type_priority && is_right_f32) ) {
+                    dest_type = ASRUtils::TYPE(ASR::make_Real_t(al, loc, 4));
+                } else if( left_type_priority <= CastingUtil::get_type_priority(ASR::ttypeType::Real) &&
+                            right_type_priority <= CastingUtil::get_type_priority(ASR::ttypeType::Real)) {
+                    dest_type = ASRUtils::TYPE(ASR::make_Real_t(al, loc, 8));
                 } else {
-                    dest_type = ASRUtils::TYPE(ASR::make_Real_t(al, loc,
-                        8, nullptr, 0));
-                    if (ASRUtils::is_integer(*left_type)) {
-                        left = ASR::down_cast<ASR::expr_t>(ASRUtils::make_Cast_t_value(
-                            al, left->base.loc, left, ASR::cast_kindType::IntegerToReal, dest_type));
-                    }
-                    if (ASRUtils::is_integer(*right_type)) {
-                        right = ASR::down_cast<ASR::expr_t>(ASRUtils::make_Cast_t_value(
-                            al, right->base.loc, right, ASR::cast_kindType::IntegerToReal, dest_type));
-                    }
-                    cast_helper(left, right, false);
-                    dest_type = ASRUtils::expr_type(left);
-                }
-                if (ASRUtils::expr_value(right) != nullptr) {
-                    if (ASRUtils::is_integer(*right_type)) {
-                        int8_t value = ASR::down_cast<ASR::IntegerConstant_t>(ASRUtils::expr_value(right))->m_n;
-                        if (value == 0) {
-                            diag.add(diag::Diagnostic(
-                                "integer division by zero is not allowed",
-                                diag::Level::Error, diag::Stage::Semantic, {
-                                    diag::Label("integer division by zero",
-                                            {right->base.loc})
-                                })
-                            );
-                            throw SemanticAbort();
-                        }
-                    } else if (ASRUtils::is_real(*right_type)) {
-                        double value = ASR::down_cast<ASR::RealConstant_t>(ASRUtils::expr_value(right))->m_r;
-                        if (value == 0.0) {
-                            diag.add(diag::Diagnostic(
-                                "float floor division by zero is not allowed",
-                                diag::Level::Error, diag::Stage::Semantic, {
-                                    diag::Label("float floor division by zero",
-                                            {right->base.loc})
-                                })
-                            );
-                            throw SemanticAbort();
-                        }
-                    }
-                }
-                ASR::symbol_t *fn_div = resolve_intrinsic_function(loc, "_lpython_floordiv");
-                Vec<ASR::call_arg_t> args;
-                args.reserve(al, 2);
-                ASR::call_arg_t arg1, arg2;
-                arg1.loc = left->base.loc;
-                arg2.loc = right->base.loc;
-                arg1.m_value = left;
-                arg2.m_value = right;
-                args.push_back(al, arg1);
-                args.push_back(al, arg2);
-                tmp = make_call_helper(al, fn_div, current_scope, args, "_lpython_floordiv", loc);
-                return;
-
-            } else { // real division in python using (`/`)
-                ASR::ttype_t* left_type = ASRUtils::expr_type(left);
-                ASR::ttype_t* right_type = ASRUtils::expr_type(right);
-                ASR::dimension_t *m_dims_left = nullptr, *m_dims_right = nullptr;
-                int n_dims_left = ASRUtils::extract_dimensions_from_ttype(left_type, m_dims_left);
-                int n_dims_right = ASRUtils::extract_dimensions_from_ttype(right_type, m_dims_right);
-                if( n_dims_left == 0 && n_dims_right == 0 ) {
-                    int left_type_priority = CastingUtil::get_type_priority(left_type->type);
-                    int right_type_priority = CastingUtil::get_type_priority(right_type->type);
-                    int left_kind = ASRUtils::extract_kind_from_ttype_t(left_type);
-                    int right_kind = ASRUtils::extract_kind_from_ttype_t(right_type);
-                    bool is_left_f32 = ASR::is_a<ASR::Real_t>(*left_type) && left_kind == 4;
-                    bool is_right_f32 = ASR::is_a<ASR::Real_t>(*right_type) && right_kind == 4;
-                    if( (left_type_priority >= right_type_priority && is_left_f32) ||
-                        (right_type_priority >= left_type_priority && is_right_f32) ) {
-                        dest_type = ASRUtils::TYPE(ASR::make_Real_t(al, loc, 4, nullptr, 0));
-                    } else if( left_type_priority <= CastingUtil::get_type_priority(ASR::ttypeType::Real) &&
-                               right_type_priority <= CastingUtil::get_type_priority(ASR::ttypeType::Real)) {
-                        dest_type = ASRUtils::TYPE(ASR::make_Real_t(al, loc,
-                        8, nullptr, 0));
+                    if( left_type_priority > right_type_priority ) {
+                        dest_type = ASRUtils::duplicate_type_without_dims(al, left_type, loc);
+                    } else if( left_type_priority < right_type_priority ) {
+                        dest_type = ASRUtils::duplicate_type_without_dims(al, right_type, loc);
                     } else {
-                        if( left_type_priority > right_type_priority ) {
+                        if( left_kind >= right_kind ) {
                             dest_type = ASRUtils::duplicate_type_without_dims(al, left_type, loc);
-                        } else if( left_type_priority < right_type_priority ) {
-                            dest_type = ASRUtils::duplicate_type_without_dims(al, right_type, loc);
                         } else {
-                            if( left_kind >= right_kind ) {
-                                dest_type = ASRUtils::duplicate_type_without_dims(al, left_type, loc);
-                            } else {
-                                dest_type = ASRUtils::duplicate_type_without_dims(al, right_type, loc);
-                            }
+                            dest_type = ASRUtils::duplicate_type_without_dims(al, right_type, loc);
                         }
                     }
-                    cast_helper(dest_type, left, left->base.loc, true);
-                    double val = -1.0;
-                    if (ASRUtils::extract_value(ASRUtils::expr_value(right), val) &&
-                        val == 0.0) {
-                        diag.add(diag::Diagnostic(
-                            "division by zero is not allowed",
-                            diag::Level::Error, diag::Stage::Semantic, {
-                                diag::Label("division by zero",
-                                        {right->base.loc})
-                            })
-                        );
-                        throw SemanticAbort();
-                    }
-                    cast_helper(dest_type, right, right->base.loc, true);
+                }
+                cast_helper(dest_type, left, left->base.loc, true);
+                double val = -1.0;
+                if (ASRUtils::extract_value(ASRUtils::expr_value(right), val) &&
+                    val == 0.0) {
+                    diag.add(diag::Diagnostic(
+                        "division by zero is not allowed",
+                        diag::Level::Error, diag::Stage::Semantic, {
+                            diag::Label("division by zero",
+                                    {right->base.loc})
+                        })
+                    );
+                    throw SemanticAbort();
+                }
+                cast_helper(dest_type, right, right->base.loc, true);
+            } else {
+                if( n_dims_left != 0 && n_dims_right != 0 ) {
+                    LCOMPILERS_ASSERT(n_dims_left == n_dims_right);
+                    dest_type = left_type;
                 } else {
-                    if( n_dims_left != 0 && n_dims_right != 0 ) {
-                        LCOMPILERS_ASSERT(n_dims_left == n_dims_right);
+                    if( n_dims_left > 0 ) {
                         dest_type = left_type;
                     } else {
-                        if( n_dims_left > 0 ) {
-                            dest_type = left_type;
-                        } else {
-                            dest_type = right_type;
-                        }
+                        dest_type = right_type;
                     }
                 }
             }
@@ -1845,48 +2162,25 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
             cast_helper(left, right, false,
                 ASRUtils::is_logical(*left_type) && ASRUtils::is_logical(*right_type));
             dest_type = ASRUtils::expr_type(left);
-            if( ASR::is_a<ASR::Const_t>(*dest_type) ) {
-                dest_type = ASRUtils::get_contained_type(dest_type);
-            }
+        } else if(ASRUtils::is_unsigned_integer(*left_type)
+                 && ASRUtils::is_unsigned_integer(*right_type)) {
+            dest_type = ASRUtils::expr_type(left);
+        } else if (ASR::is_a<ASR::List_t>(*left_type) && ASRUtils::is_integer(*right_type)
+                   && op == ASR::binopType::Mul) {
+            dest_type = left_type;
+            tmp = ASR::make_ListRepeat_t(al, loc, left, right, dest_type, value);
+            return;
+        } else if (ASRUtils::is_integer(*left_type) && ASR::is_a<ASR::List_t>(*right_type)
+                   && op == ASR::binopType::Mul) {
+            dest_type = right_type;
+            tmp = ASR::make_ListRepeat_t(al, loc, right, left, dest_type, value);
+            return;
         } else if ((right_is_int || left_is_int) && op == ASR::binopType::Mul) {
             // string repeat
-            int64_t left_int = 0, right_int = 0, dest_len = 0;
-            if (right_is_int) {
-                ASR::Character_t *left_type2 = ASR::down_cast<ASR::Character_t>(left_type);
-                LCOMPILERS_ASSERT(left_type2->n_dims == 0);
-                right_int = ASR::down_cast<ASR::IntegerConstant_t>(
-                                                   ASRUtils::expr_value(right))->m_n;
-                dest_len = left_type2->m_len * right_int;
-                if (dest_len < 0) dest_len = 0;
-                dest_type = ASR::down_cast<ASR::ttype_t>(
-                        ASR::make_Character_t(al, loc, left_type2->m_kind,
-                        dest_len, nullptr, nullptr, 0));
-            } else if (left_is_int) {
-                ASR::Character_t *right_type2 = ASR::down_cast<ASR::Character_t>(right_type);
-                LCOMPILERS_ASSERT(right_type2->n_dims == 0);
-                left_int = ASR::down_cast<ASR::IntegerConstant_t>(
-                                                   ASRUtils::expr_value(left))->m_n;
-                dest_len = right_type2->m_len * left_int;
-                if (dest_len < 0) dest_len = 0;
-                dest_type = ASR::down_cast<ASR::ttype_t>(
-                        ASR::make_Character_t(al, loc, right_type2->m_kind,
-                        dest_len, nullptr, nullptr, 0));
-            }
-
-            if (ASRUtils::expr_value(left) != nullptr && ASRUtils::expr_value(right) != nullptr) {
-                char* str = right_is_int ? ASR::down_cast<ASR::StringConstant_t>(
-                                                ASRUtils::expr_value(left))->m_s :
-                                                ASR::down_cast<ASR::StringConstant_t>(
-                                                ASRUtils::expr_value(right))->m_s;
-                int64_t repeat = right_is_int ? right_int : left_int;
-                char* result;
-                std::ostringstream os;
-                std::fill_n(std::ostream_iterator<std::string>(os), repeat, std::string(str));
-                result = s2c(al, os.str());
-                LCOMPILERS_ASSERT((int64_t)strlen(result) == dest_len)
-                value = ASR::down_cast<ASR::expr_t>(ASR::make_StringConstant_t(
-                    al, loc, result, dest_type));
-            }
+            dest_type = ASRUtils::TYPE(ASR::make_Allocatable_t(al, loc, 
+                            ASRUtils::TYPE(ASR::make_String_t(al, loc, 1, nullptr, 
+                                            ASR::string_length_kindType::DeferredLength,
+                                            ASR::string_physical_typeType::DescriptorString))));
             if (right_is_int) {
                 tmp = ASR::make_StringRepeat_t(al, loc, left, right, dest_type, value);
             }
@@ -1898,35 +2192,20 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
         } else if (ASRUtils::is_character(*left_type) && ASRUtils::is_character(*right_type)
                             && op == ASR::binopType::Add) {
             // string concat
-            ASR::Character_t *left_type2 = ASR::down_cast<ASR::Character_t>(left_type);
-            ASR::Character_t *right_type2 = ASR::down_cast<ASR::Character_t>(right_type);
-            LCOMPILERS_ASSERT(left_type2->n_dims == 0);
-            LCOMPILERS_ASSERT(right_type2->n_dims == 0);
-            dest_type = ASR::down_cast<ASR::ttype_t>(
-                    ASR::make_Character_t(al, loc, left_type2->m_kind,
-                    left_type2->m_len + right_type2->m_len, nullptr, nullptr, 0));
-            if (ASRUtils::expr_value(left) != nullptr && ASRUtils::expr_value(right) != nullptr) {
-                char* left_value = ASR::down_cast<ASR::StringConstant_t>(
-                                        ASRUtils::expr_value(left))->m_s;
-                char* right_value = ASR::down_cast<ASR::StringConstant_t>(
-                                        ASRUtils::expr_value(right))->m_s;
-                char* result;
-                std::string result_s = std::string(left_value) + std::string(right_value);
-                result = s2c(al, result_s);
-                LCOMPILERS_ASSERT((int64_t)strlen(result) == ASR::down_cast<ASR::Character_t>(dest_type)->m_len)
-                value = ASR::down_cast<ASR::expr_t>(ASR::make_StringConstant_t(
-                    al, loc, result, dest_type));
-            }
+            dest_type = ASRUtils::TYPE(ASR::make_Allocatable_t(al, loc, 
+                            ASRUtils::TYPE(ASR::make_String_t(al, loc, 1, nullptr, 
+                                            ASR::string_length_kindType::DeferredLength,
+                                            ASR::string_physical_typeType::DescriptorString))));
             tmp = ASR::make_StringConcat_t(al, loc, left, right, dest_type, value);
             return;
         } else if (ASR::is_a<ASR::List_t>(*left_type) && ASR::is_a<ASR::List_t>(*right_type)
                    && op == ASR::binopType::Add) {
             dest_type = left_type;
-            std::string ltype = ASRUtils::type_to_str_python(left_type);
-            std::string rtype = ASRUtils::type_to_str_python(right_type);
+            std::string ltype = ASRUtils::type_to_str_python_expr(left_type, left);
+            std::string rtype = ASRUtils::type_to_str_python_expr(right_type, right);
             ASR::ttype_t *left_type2 = ASR::down_cast<ASR::List_t>(left_type)->m_type;
             ASR::ttype_t *right_type2 = ASR::down_cast<ASR::List_t>(right_type)->m_type;
-            if (!ASRUtils::check_equal_type(left_type2, right_type2)) {
+            if (!ASRUtils::check_equal_type(left_type2, right_type2, nullptr, nullptr)) {
                 diag.add(diag::Diagnostic(
                     "Both the lists should be of the same type for concatenation.",
                     diag::Level::Error, diag::Stage::Semantic, {
@@ -1938,9 +2217,60 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
             }
             tmp = ASR::make_ListConcat_t(al, loc, left, right, dest_type, value);
             return;
+        } else if (ASR::is_a<ASR::Tuple_t>(*left_type) && ASR::is_a<ASR::Tuple_t>(*right_type)
+                   && op == ASR::binopType::Add) {
+            Vec<ASR::ttype_t*> tuple_type_vec;
+            ASR::Tuple_t* tuple_type_left = ASR::down_cast<ASR::Tuple_t>(left_type);
+            ASR::Tuple_t* tuple_type_right = ASR::down_cast<ASR::Tuple_t>(right_type);
+            tuple_type_vec.reserve(al, tuple_type_left->n_type + tuple_type_right->n_type);
+            for (size_t i=0; i<tuple_type_left->n_type; i++) {
+                tuple_type_vec.push_back(al, tuple_type_left->m_type[i]);
+            }
+            for (size_t i=0; i<tuple_type_right->n_type; i++) {
+                tuple_type_vec.push_back(al, tuple_type_right->m_type[i]);
+            }
+            ASR::ttype_t *tuple_type = ASRUtils::TYPE(ASR::make_Tuple_t(al, loc,
+                                        tuple_type_vec.p, tuple_type_vec.n));
+            tmp = ASR::make_TupleConcat_t(al, loc, left, right, tuple_type, value);
+            return;
+        } else if (ASR::is_a<ASR::SymbolicExpression_t>(*left_type)
+                   && ASR::is_a<ASR::SymbolicExpression_t>(*right_type)) {
+            Vec<ASR::expr_t*> args_with_symbolic;
+            args_with_symbolic.reserve(al, 2);
+            args_with_symbolic.push_back(al, left);
+            args_with_symbolic.push_back(al, right);
+            ASRUtils::create_intrinsic_function create_function;
+            switch (op) {
+                case (ASR::binopType::Add): {
+                    create_function = ASRUtils::IntrinsicElementalFunctionRegistry::get_create_function("SymbolicAdd");
+                    break;
+                }
+                case (ASR::binopType::Sub): {
+                    create_function = ASRUtils::IntrinsicElementalFunctionRegistry::get_create_function("SymbolicSub");
+                    break;
+                }
+                case (ASR::binopType::Mul): {
+                    create_function = ASRUtils::IntrinsicElementalFunctionRegistry::get_create_function("SymbolicMul");
+                    break;
+                }
+                case (ASR::binopType::Div): {
+                    create_function = ASRUtils::IntrinsicElementalFunctionRegistry::get_create_function("SymbolicDiv");
+                    break;
+                }
+                case (ASR::binopType::Pow): {
+                    create_function = ASRUtils::IntrinsicElementalFunctionRegistry::get_create_function("SymbolicPow");
+                    break;
+                }
+                default: {
+                    throw SemanticError("Not implemented: The following symbolic binary operator has not been implemented", loc);
+                    break;
+                }
+            }
+            tmp = create_function(al, loc, args_with_symbolic, diag);
+            return;
         } else {
-            std::string ltype = ASRUtils::type_to_str_python(ASRUtils::expr_type(left));
-            std::string rtype = ASRUtils::type_to_str_python(ASRUtils::expr_type(right));
+            std::string ltype = ASRUtils::type_to_str_python_expr(ASRUtils::expr_type(left), left);
+            std::string rtype = ASRUtils::type_to_str_python_expr(ASRUtils::expr_type(right), right);
             diag.add(diag::Diagnostic(
                 "Type mismatch in binary operator; the types must be compatible",
                 diag::Level::Error, diag::Stage::Semantic, {
@@ -1953,9 +2283,9 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
 
         left_type = ASRUtils::expr_type(left);
         right_type = ASRUtils::expr_type(right);
-        if( !ASRUtils::check_equal_type(left_type, right_type) ) {
-            std::string ltype = ASRUtils::type_to_str_python(left_type);
-            std::string rtype = ASRUtils::type_to_str_python(right_type);
+        if( !ASRUtils::check_equal_type(left_type, right_type, nullptr, nullptr) ) {
+            std::string ltype = ASRUtils::type_to_str_python_expr(left_type, left);
+            std::string rtype = ASRUtils::type_to_str_python_expr(right_type, right);
             diag.add(diag::Diagnostic(
                 "Type mismatch in binary operator; the types must be compatible",
                 diag::Level::Error, diag::Stage::Semantic, {
@@ -2012,7 +2342,7 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
                         result = left_value >> right_value;
                         break;
                     }
-                    default: { LCOMPILERS_ASSERT(false); } // should never happen
+                    default: { throw SemanticError("ICE: Unknown binary operator", loc); } // should never happen
                 }
                 value = ASR::down_cast<ASR::expr_t>(ASR::make_IntegerConstant_t(
                     al, loc, result, dest_type));
@@ -2020,6 +2350,60 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
 
             tmp = ASR::make_IntegerBinOp_t(al, loc, left, op, right, dest_type, value);
 
+        } else if (ASRUtils::is_unsigned_integer(*dest_type)) {
+            ASR::dimension_t *m_dims_left = nullptr, *m_dims_right = nullptr;
+            int n_dims_left = ASRUtils::extract_dimensions_from_ttype(left_type, m_dims_left);
+            int n_dims_right = ASRUtils::extract_dimensions_from_ttype(right_type, m_dims_right);
+            if( !(n_dims_left == 0 && n_dims_right == 0) ) {
+                if( n_dims_left != 0 && n_dims_right != 0 ) {
+                    LCOMPILERS_ASSERT(n_dims_left == n_dims_right);
+                    dest_type = left_type;
+                } else {
+                    if( n_dims_left > 0 ) {
+                        dest_type = left_type;
+                    } else {
+                        dest_type = right_type;
+                    }
+                }
+            }
+
+            if (ASRUtils::expr_value(left) != nullptr && ASRUtils::expr_value(right) != nullptr) {
+                int64_t left_value = ASR::down_cast<ASR::UnsignedIntegerConstant_t>(
+                                                    ASRUtils::expr_value(left))->m_n;
+                int64_t right_value = ASR::down_cast<ASR::UnsignedIntegerConstant_t>(
+                                                    ASRUtils::expr_value(right))->m_n;
+                int64_t result;
+                switch (op) {
+                    case (ASR::binopType::Add): { result = left_value + right_value; break; }
+                    case (ASR::binopType::Sub): { result = left_value - right_value; break; }
+                    case (ASR::binopType::Mul): { result = left_value * right_value; break; }
+                    case (ASR::binopType::Div): { result = left_value / right_value; break; }
+                    case (ASR::binopType::Pow): { result = std::pow(left_value, right_value); break; }
+                    case (ASR::binopType::BitAnd): { result = left_value & right_value; break; }
+                    case (ASR::binopType::BitOr): { result = left_value | right_value; break; }
+                    case (ASR::binopType::BitXor): { result = left_value ^ right_value; break; }
+                    case (ASR::binopType::BitLShift): {
+                        if (right_value < 0) {
+                            throw SemanticError("Negative shift count not allowed.", loc);
+                        }
+                        result = left_value << right_value;
+                        break;
+                    }
+                    case (ASR::binopType::BitRShift): {
+                        if (right_value < 0) {
+                            throw SemanticError("Negative shift count not allowed.", loc);
+                        }
+                        result = left_value >> right_value;
+                        break;
+                    }
+                    default: { throw SemanticError("ICE: Unknown binary operator", loc); } // should never happen
+                }
+                value = ASR::down_cast<ASR::expr_t>(ASR::make_UnsignedIntegerConstant_t(
+                    al, loc, result, dest_type));
+            }
+
+            tmp = ASR::make_UnsignedIntegerBinOp_t(al, loc, left, op, right, dest_type, value);
+
         } else if (ASRUtils::is_real(*dest_type)) {
 
             if (op == ASR::binopType::BitAnd || op == ASR::binopType::BitOr || op == ASR::binopType::BitXor ||
@@ -2054,7 +2438,7 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
                     case (ASR::binopType::Mul): { result = left_value * right_value; break; }
                     case (ASR::binopType::Div): { result = left_value / right_value; break; }
                     case (ASR::binopType::Pow): { result = std::pow(left_value, right_value); break; }
-                    default: { LCOMPILERS_ASSERT(false); }
+                    default: { throw SemanticError("ICE: Unknown binary operator", loc); }
                 }
                 value = ASR::down_cast<ASR::expr_t>(ASR::make_RealConstant_t(
                     al, loc, result, dest_type));
@@ -2115,13 +2499,11 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
         return false;
     }
 
-    bool is_dataclass(AST::expr_t** decorators, size_t n,
+    void get_alignment(AST::expr_t** decorators, size_t n,
         ASR::expr_t*& aligned_expr, bool& is_packed) {
-        bool is_dataclass_ = false;
         for( size_t i = 0; i < n; i++ ) {
             if( AST::is_a<AST::Name_t>(*decorators[i]) ) {
                 AST::Name_t* dc_name = AST::down_cast<AST::Name_t>(decorators[i]);
-                is_dataclass_ = std::string(dc_name->m_id) == "dataclass";
                 is_packed = is_packed || std::string(dc_name->m_id) == "packed";
             } else if( AST::is_a<AST::Call_t>(*decorators[i]) ) {
                 AST::Call_t* dc_call = AST::down_cast<AST::Call_t>(decorators[i]);
@@ -2153,7 +2535,16 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
                 }
             }
         }
+    }
 
+    bool is_dataclass(AST::expr_t** decorators, size_t n) {
+        bool is_dataclass_ = false;
+        for( size_t i = 0; i < n; i++ ) {
+            if( AST::is_a<AST::Name_t>(*decorators[i]) ) {
+                AST::Name_t* dc_name = AST::down_cast<AST::Name_t>(decorators[i]);
+                is_dataclass_ = std::string(dc_name->m_id) == "dataclass";
+            }
+        }
         return is_dataclass_;
     }
 
@@ -2185,104 +2576,340 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
         return std::string(base_name->m_id) == "Union";
     }
 
-    void create_add_variable_to_scope(std::string& var_name, ASR::expr_t* init_expr,
-        ASR::expr_t* value, ASR::ttype_t* type,
-        const Location& loc, ASR::abiType abi) {
-        if( ASR::is_a<ASR::Const_t>(*type) && !init_expr ) {
+    void process_variable_init_val(ASR::symbol_t* v_sym, const Location& loc, ASR::expr_t* init_expr=nullptr) {
+        ASR::expr_t* value = nullptr;
+        ASR::Variable_t* v_variable = ASR::down_cast<ASR::Variable_t>(v_sym);
+        std::string var_name = v_variable->m_name;
+        ASR::ttype_t* type = v_variable->m_type;
+        if (!init_expr && ASR::is_a<ASR::Dict_t>(*type)) {
+            init_expr = ASRUtils::EXPR(ASR::make_DictConstant_t(al, loc,
+                  nullptr, 0, nullptr, 0, type));
+        }
+
+        if( init_expr && !ASRUtils::is_character(*type) ) {
+            value = ASRUtils::expr_value(init_expr);
+            SetChar variable_dependencies_vec;
+            variable_dependencies_vec.reserve(al, 1);
+            ASRUtils::collect_variable_dependencies(al, variable_dependencies_vec, type, init_expr, value);
+            v_variable->m_dependencies = variable_dependencies_vec.p;
+            v_variable->n_dependencies = variable_dependencies_vec.size();
+            v_variable->m_symbolic_value = init_expr;
+            v_variable->m_value = value;
+        }
+
+        bool is_runtime_expression = !ASRUtils::is_value_constant(value);
+        bool is_variable_const = (v_variable->m_storage == ASR::storage_typeType::Parameter);
+
+        if( is_variable_const && !init_expr ) {
             throw SemanticError("Constant variable " + var_name +
                 " is not initialised at declaration.", loc);
         }
-        ASR::intentType s_intent = ASRUtils::intent_local;
-        ASR::storage_typeType storage_type =
-                ASR::storage_typeType::Default;
-        if( ASR::is_a<ASR::Const_t>(*type) ) {
-            storage_type = ASR::storage_typeType::Parameter;
+
+        if( init_expr && (current_body || ASR::is_a<ASR::List_t>(*type) ||
+                is_runtime_expression) && !is_variable_const) {
+            ASR::expr_t* v_expr = ASRUtils::EXPR(ASR::make_Var_t(al, loc, v_sym));
+            cast_helper(v_expr, init_expr, true);
+            ASR::asr_t* assign = ASRUtils::make_Assignment_t_util(al, loc, v_expr,
+                                                        init_expr, nullptr, false, false);
+            if (current_body) {
+                current_body->push_back(al, ASRUtils::STMT(assign));
+            } else if (ASR::is_a<ASR::List_t>(*type) || is_runtime_expression) {
+                global_init.push_back(al, assign);
+            }
+
+            v_variable->m_symbolic_value = nullptr;
+            v_variable->m_value = nullptr;
+            SetChar variable_dependencies_vec;
+            variable_dependencies_vec.reserve(al, 1);
+            ASRUtils::collect_variable_dependencies(al, variable_dependencies_vec, type);
+            v_variable->m_dependencies = variable_dependencies_vec.p;
+            v_variable->n_dependencies = variable_dependencies_vec.size();
+        }
+
+        // Restrict this check only to symbols which have a body.
+        if( !((v_variable->m_symbolic_value == nullptr && v_variable->m_value == nullptr) ||
+              (v_variable->m_symbolic_value != nullptr && v_variable->m_value != nullptr)) &&
+              current_body ) {
+            throw SemanticError("Initialisation of " + var_name + " must reduce to a compile time constant.", loc);
         }
+    }
+
+    void create_add_variable_to_scope(std::string& var_name,
+        ASR::ttype_t* type, const Location& loc, ASR::abiType abi, ASR::symbol_t* type_decl,
+        ASR::storage_typeType storage_type=ASR::storage_typeType::Default) {
+
+        ASR::intentType s_intent = ASRUtils::intent_local;
         ASR::abiType current_procedure_abi_type = abi;
         ASR::accessType s_access = ASR::accessType::Public;
         ASR::presenceType s_presence = ASR::presenceType::Required;
         bool value_attr = false;
-        Vec<char*> variable_dependencies_vec;
+        SetChar variable_dependencies_vec;
         variable_dependencies_vec.reserve(al, 1);
-        ASRUtils::collect_variable_dependencies(al, variable_dependencies_vec, type, init_expr, value);
+        ASRUtils::collect_variable_dependencies(al, variable_dependencies_vec, type);
         ASR::asr_t *v = ASR::make_Variable_t(al, loc, current_scope,
                 s2c(al, var_name), variable_dependencies_vec.p,
                 variable_dependencies_vec.size(),
-                s_intent, init_expr, value, storage_type, type,
-                current_procedure_abi_type, s_access, s_presence,
-                value_attr);
+                s_intent, nullptr, nullptr, storage_type, type,
+                type_decl, current_procedure_abi_type, s_access, 
+                s_presence, value_attr, false, false, nullptr, false, false);
         ASR::symbol_t* v_sym = ASR::down_cast<ASR::symbol_t>(v);
+        current_scope->add_or_overwrite_symbol(var_name, v_sym);
+    }
 
-        if( init_expr && current_body) {
-            ASR::expr_t* v_expr = ASRUtils::EXPR(ASR::make_Var_t(al, loc, v_sym));
-            cast_helper(v_expr, init_expr, true);
-            ASR::asr_t* assign = ASR::make_Assignment_t(al, loc, v_expr,
-                                                        init_expr, nullptr);
-            current_body->push_back(al, ASRUtils::STMT(assign));
-            ASR::Variable_t* v_variable = ASR::down_cast<ASR::Variable_t>(v_sym);
-            if( !ASR::is_a<ASR::Const_t>(*type) &&
-                ASRUtils::is_aggregate_type(type) ) {
-                v_variable->m_symbolic_value = nullptr;
-                v_variable->m_value = nullptr;
-                Vec<char*> variable_dependencies_vec;
-                variable_dependencies_vec.reserve(al, 1);
-                ASRUtils::collect_variable_dependencies(al, variable_dependencies_vec, type);
-                v_variable->m_dependencies = variable_dependencies_vec.p;
-                v_variable->n_dependencies = variable_dependencies_vec.size();
+    ASR::expr_t* fill_shape_and_lower_bound_for_CPtrToPointer(ASR::ttype_t* target_type,
+                ASR::ttype_t* asr_alloc_type,
+                ASR::expr_t* target_shape, const Location& loc) {
+        ASR::dimension_t* target_dims = nullptr;
+        int target_n_dims = ASRUtils::extract_dimensions_from_ttype(target_type, target_dims);
+        if( target_n_dims <= 0 ) {
+            return nullptr;
+        }
+        ASR::dimension_t* alloc_asr_type_dims = nullptr;
+        int alloc_asr_type_n_dims = ASRUtils::extract_dimensions_from_ttype(
+            asr_alloc_type, alloc_asr_type_dims);
+        for( int i = 0; i < alloc_asr_type_n_dims; i++ ) {
+            if( alloc_asr_type_dims[i].m_length != nullptr ||
+                alloc_asr_type_dims[i].m_start != nullptr ) {
+                throw SemanticError("Target type specified in "
+                    "c_p_pointer must have deferred shape.",
+                    loc);
             }
         }
-        current_scope->add_symbol(var_name, v_sym);
+        if( target_shape == nullptr ) {
+            throw SemanticError("shape argument not specified in c_f_pointer "
+                                "even though pptr is an array.",
+                                loc);
+        }
+        int shape_rank = ASRUtils::extract_n_dims_from_ttype(
+            ASRUtils::expr_type(target_shape));
+        if( shape_rank != 1 ) {
+            throw SemanticError("shape array passed to c_p_pointer "
+                                "must be of rank 1 but given rank is " +
+                                std::to_string(shape_rank), loc);
+        }
+        Vec<ASR::expr_t*> lbs;
+        lbs.reserve(al, target_n_dims);
+        for( int i = 0; i < target_n_dims; i++ ) {
+            lbs.push_back(al, ASRUtils::EXPR(ASR::make_IntegerConstant_t(
+                al, loc, 0, ASRUtils::TYPE(
+                    ASR::make_Integer_t(al, loc, 4)))));
+        }
+        Vec<ASR::dimension_t> dims;
+        dims.reserve(al, 1);
+        ASR::dimension_t dim;
+        dim.loc = loc;
+        dim.m_length = make_ConstantWithKind(make_IntegerConstant_t,
+            make_Integer_t, target_n_dims, 4, loc);
+        dim.m_start = make_ConstantWithKind(make_IntegerConstant_t,
+            make_Integer_t, 0, 4, loc);
+        dims.push_back(al, dim);
+        ASR::ttype_t* type = ASRUtils::make_Array_t_util(al, loc,
+            ASRUtils::expr_type(lbs[0]), dims.p, dims.size(), ASR::abiType::Source,
+            false, ASR::array_physical_typeType::PointerArray, true);
+        return ASRUtils::EXPR(ASRUtils::make_ArrayConstructor_t_util(al,
+            loc, lbs.p, lbs.size(), type,
+            ASR::arraystorageType::RowMajor));
     }
 
-    ASR::asr_t* create_CPtrToPointerFromArgs(AST::expr_t* ast_cptr, AST::expr_t* ast_pptr,
-        const Location& loc) {
-        this->visit_expr(*ast_cptr);
+    ASR::asr_t* create_CPtrToPointer(const AST::Call_t& x) {
+        if( x.n_args != 2 && x.n_args != 3 ) {
+            throw SemanticError("c_p_pointer accepts maximum three positional arguments, "
+                                "first a variable of c_ptr type, second "
+                                "the target type of the first variable and "
+                                "third optionally the shape of the target variable "
+                                "if target variable is an array",
+                                x.base.base.loc);
+        }
+        this->visit_expr(*x.m_args[0]);
         ASR::expr_t* cptr = ASRUtils::EXPR(tmp);
-        this->visit_expr(*ast_pptr);
-        ASR::expr_t* pptr = ASRUtils::EXPR(tmp);
+        ASR::expr_t* pptr = assign_asr_target;
+        ASR::expr_t* target_shape = nullptr;
+        if( x.n_args == 3 ) {
+            this->visit_expr(*x.m_args[2]);
+            target_shape = ASRUtils::EXPR(tmp);
+        }
+        bool is_allocatable = false, is_const = false;
+        ASR::symbol_t* type_decl = nullptr;
+        ASR::ttype_t* asr_alloc_type = ast_expr_to_asr_type(x.m_args[1]->base.loc, *x.m_args[1], type_decl, is_allocatable, is_const);
+        ASR::ttype_t* target_type = ASRUtils::type_get_past_pointer(ASRUtils::expr_type(pptr));
+        if( !ASRUtils::types_equal(target_type, asr_alloc_type, pptr, assign_asr_target, true) ) {
+            diag.add(diag::Diagnostic(
+                "Type mismatch in c_p_pointer and target variable, the types must match",
+                diag::Level::Error, diag::Stage::Semantic, {
+                    diag::Label("type mismatch ('" + ASRUtils::type_to_str_python_expr(target_type, pptr) +
+                                "' and '" + ASRUtils::type_to_str_python_expr(asr_alloc_type, nullptr) + "')",
+                            {target_type->base.loc, asr_alloc_type->base.loc})
+                })
+            );
+            throw SemanticAbort();
+        }
+        if (ASR::is_a<ASR::StructType_t>(*asr_alloc_type)) {
+            ASR::symbol_t *sym = ASRUtils::symbol_get_past_external(type_decl);
+            if (ASR::is_a<ASR::Struct_t>(*sym)) {
+                ASR::Struct_t *st = ASR::down_cast<ASR::Struct_t>(sym);
+                if (st->m_abi != ASR::abiType::BindC) {
+                    diag.add(diag::Diagnostic(
+                        "The struct in c_p_pointer must be C interoperable",
+                        diag::Level::Error, diag::Stage::Semantic, {
+                            diag::Label("not C interoperable",
+                                    {asr_alloc_type->base.loc}),
+                            diag::Label("help: add the @ccallable decorator to this struct to make it C interoperable",
+                                    {st->base.base.loc}, false)
+                        })
+                    );
+                    throw SemanticAbort();
+                }
+            }
+        }
+        const Location& loc = x.base.base.loc;
+        ASR::expr_t* lower_bounds = fill_shape_and_lower_bound_for_CPtrToPointer(
+            target_type, asr_alloc_type,
+            target_shape, loc);
         return ASR::make_CPtrToPointer_t(al, loc, cptr,
-                                         pptr, nullptr);
+            pptr, target_shape, lower_bounds);
     }
 
-    void visit_AnnAssignUtil(const AST::AnnAssign_t& x, std::string& var_name,
+    void handle_lambda_function_declaration(std::string &var_name, ASR::FunctionType_t* fn_type, AST::expr_t* value, const Location &loc) {
+        if (value == nullptr) {
+            throw SemanticError("Callback functions must have a value", loc);
+        }
+
+        if (!AST::is_a<AST::Lambda_t>(*value)) {
+            throw SemanticError("Callback functions supports only lambda expressions as value", value->base.loc);
+        }
+
+        const AST::Lambda_t &x = *AST::down_cast<AST::Lambda_t>(value);
+        if (fn_type->n_arg_types != x.m_args.n_args) {
+            diag.add(diag::Diagnostic(
+                "The number of args to lambda function much match the number of args declared in function type",
+                diag::Level::Error, diag::Stage::Semantic, {
+                    diag::Label("",
+                            {fn_type->base.base.loc, x.m_args.loc})
+                })
+            );
+            throw SemanticAbort();
+        }
+
+        // Add the lambda function to the current scope
+        SymbolTable *parent_scope = current_scope;
+        current_scope = al.make_new<SymbolTable>(parent_scope);
+
+        Vec<ASR::expr_t*> args;
+        args.reserve(al, fn_type->n_arg_types);
+        for (size_t i=0; i<fn_type->n_arg_types; i++) {
+            std::string arg_name = x.m_args.m_args[i].m_arg;
+            ASR::symbol_t *v;
+            SetChar variable_dependencies_vec;
+            variable_dependencies_vec.reserve(al, 1);
+            ASRUtils::collect_variable_dependencies(al, variable_dependencies_vec,
+                    fn_type->m_arg_types[i]);
+            v = ASR::down_cast<ASR::symbol_t>(
+                ASR::make_Variable_t(al, x.m_args.m_args[i].loc,
+                current_scope, s2c(al, arg_name), variable_dependencies_vec.p,
+                variable_dependencies_vec.size(), ASRUtils::intent_unspecified,
+                nullptr, nullptr, ASR::storage_typeType::Default, fn_type->m_arg_types[i],
+                nullptr, ASR::abiType::Source, ASR::Public, ASR::presenceType::Required,
+                false, false, false, nullptr, false, false));
+            current_scope->add_symbol(arg_name, v);
+            LCOMPILERS_ASSERT(v != nullptr)
+            args.push_back(al, ASRUtils::EXPR(ASR::make_Var_t(al, x.m_args.m_args[i].loc, v)));
+        }
+
+        this->visit_expr(*x.m_body);
+        ASR::asr_t* return_var_assign_stmt = make_dummy_assignment(ASRUtils::EXPR(tmp));
+        ASR::expr_t *return_var = ASR::down_cast2<ASR::Assignment_t>(return_var_assign_stmt)->m_target;
+
+        if (!ASRUtils::check_equal_type(ASRUtils::expr_type(return_var), fn_type->m_return_var_type, nullptr, nullptr)) {
+            std::string ltype = ASRUtils::type_to_str_python_expr(ASRUtils::expr_type(return_var), return_var);
+            std::string rtype = ASRUtils::type_to_str_python_expr(fn_type->m_return_var_type, nullptr);
+            diag.add(diag::Diagnostic(
+                "Type mismatch in lambda expression return value",
+                diag::Level::Error, diag::Stage::Semantic, {
+                    diag::Label("type mismatch ('" + ltype + "' and '" + rtype + "')",
+                            {ASRUtils::expr_type(return_var)->base.loc, fn_type->m_return_var_type->base.loc})
+                })
+            );
+            throw SemanticAbort();
+        }
+
+        Vec<ASR::stmt_t*> body;
+        body.reserve(al, 0);
+        body.push_back(al, ASRUtils::STMT(return_var_assign_stmt));
+
+        ASR::asr_t* fn_sym_util = ASRUtils::make_Function_t_util(
+            al, x.base.base.loc,
+            /* a_symtab */ current_scope,
+            /* a_name */ s2c(al, var_name),
+            nullptr, 0,
+            /* a_args */ args.p,
+            /* n_args */ args.size(),
+            /* a_body */ body.p,
+            /* n_body */ body.size(),
+            /* a_return_var */ return_var,
+            ASR::abiType::BindC, ASR::accessType::Public, ASR::deftypeType::Implementation,
+            nullptr, false, false, false, false, false, nullptr, 0, false, false, false);
+        current_scope = parent_scope;
+        ASR::symbol_t* fn_sym = ASR::down_cast<ASR::symbol_t>(fn_sym_util);
+        current_scope->add_symbol(var_name, fn_sym);
+        tmp = nullptr;
+    }
+
+    void visit_AnnAssignUtil(const AST::AnnAssign_t& x, std::string& var_name,
+                             ASR::expr_t* &init_expr,
                              bool wrap_derived_type_in_pointer=false,
-                             ASR::expr_t* init_expr=nullptr, ASR::abiType abi=ASR::abiType::Source) {
-        ASR::ttype_t *type = ast_expr_to_asr_type(x.base.base.loc, *x.m_annotation);
-        ASR::ttype_t* ann_assign_target_type_copy = ann_assign_target_type;
-        ann_assign_target_type = type;
-        if( ASR::is_a<ASR::Struct_t>(*type) &&
-            wrap_derived_type_in_pointer ) {
-            type = ASRUtils::TYPE(ASR::make_Pointer_t(al, type->base.loc, type));
+                             ASR::abiType abi=ASR::abiType::Source,
+                             bool inside_struct=false) {
+        bool is_allocatable = false, is_const = false;
+        ASR::ttype_t *type = nullptr;
+        ASR::symbol_t *type_decl = nullptr;
+        if( inside_struct ) {
+            type = ast_expr_to_asr_type(x.m_annotation->base.loc, *x.m_annotation, type_decl, is_allocatable, is_const, true);
+        } else {
+            type = ast_expr_to_asr_type(x.m_annotation->base.loc, *x.m_annotation, type_decl, is_allocatable, is_const, true, abi);
+        }
+        if (ASR::is_a<ASR::FunctionType_t>(*type)) {
+            ASR::FunctionType_t* fn_type = ASR::down_cast<ASR::FunctionType_t>(type);
+            handle_lambda_function_declaration(var_name, fn_type, x.m_value, x.base.base.loc);
+            return;
+        }
+        if( ASR::is_a<ASR::StructType_t>(*type)) {
+            if (wrap_derived_type_in_pointer ) 
+                type = ASRUtils::TYPE(ASR::make_Pointer_t(al, type->base.loc, type));
+        }
+        ASR::storage_typeType storage_type = ASR::storage_typeType::Default;
+        if (is_allocatable) {
+            type = ASRUtils::TYPE(ASR::make_Allocatable_t(al, type->base.loc,
+                ASRUtils::type_get_past_pointer(type)));
+        }
+        if (is_const) {
+            storage_type = ASR::storage_typeType::Parameter;
         }
 
-        bool is_c_p_pointer_call_copy = is_c_p_pointer_call;
-        ASR::expr_t *value = nullptr;
+        create_add_variable_to_scope(var_name, type,
+                x.base.base.loc, abi, type_decl, storage_type);
+
+        ASR::expr_t* assign_asr_target_copy = assign_asr_target;
+        this->visit_expr(*x.m_target);
+        assign_asr_target = ASRUtils::EXPR(tmp);
+
         if( !init_expr ) {
             tmp = nullptr;
-            is_c_p_pointer_call = false;
             if (x.m_value) {
                 this->visit_expr(*x.m_value);
+            } else {
+                if (ASR::is_a<ASR::StructType_t>(*type)) {
+                    //`s` must be initialized with an instance of S
+                    throw  SemanticError("`" + var_name + "` must be initialized with an instance of " +
+                            ASRUtils::type_to_str_python_expr(type, assign_asr_target), x.base.base.loc);
+                }
             }
-            if( is_c_p_pointer_call ) {
-                create_add_variable_to_scope(var_name, nullptr, nullptr, type,
-                    x.base.base.loc, abi);
-                AST::Call_t* c_p_pointer_call = AST::down_cast<AST::Call_t>(x.m_value);
-                AST::expr_t* cptr = c_p_pointer_call->m_args[0];
-                AST::expr_t* pptr = assign_ast_target;
-                tmp = create_CPtrToPointerFromArgs(cptr, pptr, x.base.base.loc);
-                // if( current_body ) {
-                //     current_body->push_back(al, ASRUtils::STMT(tmp));
-                // }
-            } else if (tmp) {
-                value = ASRUtils::EXPR(tmp);
+            if (tmp && ASR::is_a<ASR::expr_t>(*tmp)) {
+                ASR::expr_t* value = ASRUtils::EXPR(tmp);
                 ASR::ttype_t* underlying_type = type;
-                if( ASR::is_a<ASR::Const_t>(*type) ) {
-                    underlying_type = ASRUtils::get_contained_type(type);
-                }
                 cast_helper(underlying_type, value, value->base.loc);
-                if (!ASRUtils::check_equal_type(underlying_type, ASRUtils::expr_type(value))) {
-                    std::string ltype = ASRUtils::type_to_str_python(underlying_type);
-                    std::string rtype = ASRUtils::type_to_str_python(ASRUtils::expr_type(value));
+                if (!ASRUtils::check_equal_type(underlying_type, ASRUtils::expr_type(value), assign_asr_target, value, true)) {
+                    std::string ltype = ASRUtils::type_to_str_python_expr(underlying_type, nullptr);
+                    std::string rtype = ASRUtils::type_to_str_python_expr(ASRUtils::expr_type(value), value);
                     diag.add(diag::Diagnostic(
                         "Type mismatch in annotation-assignment, the types must be compatible",
                         diag::Level::Error, diag::Stage::Semantic, {
@@ -2293,48 +2920,146 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
                     throw SemanticAbort();
                 }
                 init_expr = value;
-                value = nullptr;
-                if( ASR::is_a<ASR::Const_t>(*type) ) {
-                    value = ASRUtils::expr_value(init_expr);
-                }
             }
         } else {
             cast_helper(type, init_expr, init_expr->base.loc);
         }
 
-        if( !is_c_p_pointer_call ) {
-            create_add_variable_to_scope(var_name, init_expr, value, type,
-                x.base.base.loc, abi);
+        if (!inside_struct || is_const) {
+            process_variable_init_val(current_scope->get_symbol(var_name), x.base.base.loc, init_expr);
         }
 
-        if( !is_c_p_pointer_call ) {
+        if ( !(tmp && ASR::is_a<ASR::stmt_t>(*tmp) &&
+            (ASR::is_a<ASR::CPtrToPointer_t>(*ASR::down_cast<ASR::stmt_t>(tmp)) ||
+             ASR::is_a<ASR::Allocate_t>(*ASR::down_cast<ASR::stmt_t>(tmp)))) ) {
             tmp = nullptr;
         }
-        is_c_p_pointer_call = is_c_p_pointer_call_copy;
-        ann_assign_target_type = ann_assign_target_type_copy;
+        assign_asr_target = assign_asr_target_copy;
+    }
+
+    void get_members_init (const AST::FunctionDef_t &x,
+        Vec<char*>& member_names, Vec<ASR::call_arg_t> &member_init,
+        SetChar& struct_dependencies){
+        if(x.n_decorator_list > 0) {
+            throw SemanticError("Decorators for __init__ not implemented",
+                x.base.base.loc);
+        }
+        std::string obj_name = x.m_args.m_args->m_arg;
+        for(size_t i = 0; i < x.n_body; i++) {
+            std::string var_name;
+            if ( !AST::is_a<AST::AnnAssign_t>(*x.m_body[i]) ){
+                continue;
+            }
+            AST::AnnAssign_t ann_assign = *AST::down_cast<AST::AnnAssign_t>(x.m_body[i]);
+            if(AST::is_a<AST::Attribute_t>(*ann_assign.m_target)){
+                AST::Attribute_t* a = AST::down_cast<AST::Attribute_t>(ann_assign.m_target);
+                if(AST::is_a<AST::Name_t>(*a->m_value)) {
+                    AST::Name_t* n = AST::down_cast<AST::Name_t>(a->m_value);
+                    if(std::string(n->m_id) != obj_name) {
+                        throw SemanticError("Object name doesn't match",
+                            x.m_body[i]->base.loc);
+                    }
+                }
+                var_name = a->m_attr;
+                member_names.push_back(al, s2c(al, var_name));
+            } else {
+                throw SemanticError("Only Attribute supported as target in "
+                    "AnnAssign inside Class", x.m_body[i]->base.loc);
+            }
+            ASR::abiType abi = ASR::abiType::Source;
+            bool is_allocatable = false, is_const = false;
+            ASR::symbol_t* type_decl = nullptr;
+            ASR::ttype_t *type = ast_expr_to_asr_type(ann_assign.m_annotation->base.loc,
+                *ann_assign.m_annotation, type_decl, is_allocatable, is_const, true);
+
+            ASR::storage_typeType storage_type = ASR::storage_typeType::Default;
+            create_add_variable_to_scope(var_name, type,
+                    ann_assign.base.base.loc, abi, type_decl, storage_type);
+            ASR::symbol_t* var_sym = current_scope->resolve_symbol(var_name);
+            ASR::call_arg_t c_arg;
+            c_arg.loc = var_sym->base.loc;
+            c_arg.m_value = nullptr;
+            member_init.push_back(al, c_arg);
+            ASR::ttype_t* var_type = ASRUtils::type_get_past_pointer(ASRUtils::symbol_type(var_sym));
+            char* aggregate_type_name = nullptr;
+
+            ASR::Variable_t* var_sym_node = ASR::down_cast<ASR::Variable_t>(var_sym);
+            if( ASR::is_a<ASR::StructType_t>(*var_type) ) {
+                aggregate_type_name = ASRUtils::symbol_name(
+                    ASRUtils::symbol_get_past_external(var_sym_node->m_type_declaration)
+                );
+            } else if( ASR::is_a<ASR::EnumType_t>(*var_type) ) {
+                aggregate_type_name = ASRUtils::symbol_name(
+                    ASR::down_cast<ASR::EnumType_t>(var_type)->m_enum_type);
+            } else if( ASR::is_a<ASR::UnionType_t>(*var_type) ) {
+                aggregate_type_name = ASRUtils::symbol_name(
+                    ASRUtils::symbol_get_past_external(var_sym_node->m_type_declaration));
+            }
+            if( aggregate_type_name &&
+                !current_scope->get_symbol(std::string(aggregate_type_name)) ) {
+                struct_dependencies.push_back(al, aggregate_type_name);
+            }
+        }
     }
 
     void visit_ClassMembers(const AST::ClassDef_t& x,
-        Vec<char*>& member_names, Vec<char*>& struct_dependencies,
-        bool is_enum_scope=false, ASR::abiType abi=ASR::abiType::Source) {
+        Vec<char*>& member_names, Vec<char*>& member_fn_names,
+        SetChar& struct_dependencies, Vec<ASR::call_arg_t> &member_init,
+        bool is_enum_scope=false, ASR::abiType abi=ASR::abiType::Source,
+        bool is_class_scope = false) {
         int64_t prev_value = 1;
         for( size_t i = 0; i < x.n_body; i++ ) {
-            if( AST::is_a<AST::ClassDef_t>(*x.m_body[i]) ) {
+            if (AST::is_a<AST::Expr_t>(*x.m_body[i])) {
+                AST::Expr_t* expr = AST::down_cast<AST::Expr_t>(x.m_body[i]);
+                if (AST::is_a<AST::ConstantStr_t>(*expr->m_value)) {
+                    // It is a doc string. Skip doc strings for now.
+                    continue;
+                } else if (AST::is_a<AST::ConstantEllipsis_t>(*expr->m_value)) {
+                    continue;
+                }
+                throw SemanticError("Only doc strings and const ellipsis allowed as expressions inside class", expr->base.base.loc);
+            } else if( AST::is_a<AST::ClassDef_t>(*x.m_body[i]) ) {
                 visit_ClassDef(*AST::down_cast<AST::ClassDef_t>(x.m_body[i]));
                 continue;
+            } else if ( AST::is_a<AST::FunctionDef_t>(*x.m_body[i]) ) {
+                if ( !is_class_scope ) {
+                    throw SemanticError("StructType member functions are not supported", x.m_body[i]->base.loc);
+                } else {
+                    AST::FunctionDef_t
+                        *f = AST::down_cast<AST::FunctionDef_t>(x.m_body[i]);
+                    std::string f_name = f->m_name;
+                    if (f_name == "__init__") {
+                        this->get_members_init(*f, member_names, member_init, struct_dependencies);
+                        this->visit_stmt(*x.m_body[i]);
+                        member_fn_names.push_back(al, f->m_name);
+                    } else {
+                        this->visit_stmt(*x.m_body[i]);
+                        member_fn_names.push_back(al, f->m_name);
+                    }
+                    continue;
+                }
+            } else if (AST::is_a<AST::Pass_t>(*x.m_body[i])) {
+                continue;
+            } else if (!AST::is_a<AST::AnnAssign_t>(*x.m_body[i])) {
+                throw SemanticError("AnnAssign expected inside struct", x.m_body[i]->base.loc);
             }
-            LCOMPILERS_ASSERT(AST::is_a<AST::AnnAssign_t>(*x.m_body[i]));
             AST::AnnAssign_t* ann_assign = AST::down_cast<AST::AnnAssign_t>(x.m_body[i]);
-            LCOMPILERS_ASSERT(AST::is_a<AST::Name_t>(*ann_assign->m_target));
+            if (!AST::is_a<AST::Name_t>(*ann_assign->m_target)) {
+                throw SemanticError("Only Name supported as target in AnnAssign inside struct", x.m_body[i]->base.loc);
+            }
             AST::Name_t *n = AST::down_cast<AST::Name_t>(ann_assign->m_target);
             std::string var_name = n->m_id;
             ASR::expr_t* init_expr = nullptr;
             if( is_enum_scope ) {
-                ASR::ttype_t* i64_type = ASRUtils::TYPE(ASR::make_Integer_t(al, x.base.base.loc, 8, nullptr, 0));
+                ASR::ttype_t* i64_type = ASRUtils::TYPE(ASR::make_Integer_t(al, x.base.base.loc, 8));
                 init_expr = ASRUtils::EXPR(ASR::make_IntegerConstant_t(al, x.base.base.loc, -1, i64_type));
             }
-            visit_AnnAssignUtil(*ann_assign, var_name, false, init_expr, abi);
+            visit_AnnAssignUtil(*ann_assign, var_name, init_expr, false, abi, true);
             ASR::symbol_t* var_sym = current_scope->resolve_symbol(var_name);
+            ASR::call_arg_t c_arg;
+            c_arg.loc = var_sym->base.loc;
+            c_arg.m_value = init_expr;
+            member_init.push_back(al, c_arg);
             if( is_enum_scope ) {
                 if( AST::is_a<AST::Call_t>(*ann_assign->m_value) ) {
                     AST::Call_t* auto_call_cand = AST::down_cast<AST::Call_t>(ann_assign->m_value);
@@ -2365,15 +3090,18 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
             }
             ASR::ttype_t* var_type = ASRUtils::type_get_past_pointer(ASRUtils::symbol_type(var_sym));
             char* aggregate_type_name = nullptr;
-            if( ASR::is_a<ASR::Struct_t>(*var_type) ) {
-                aggregate_type_name = ASRUtils::symbol_name(
-                    ASR::down_cast<ASR::Struct_t>(var_type)->m_derived_type);
-            } else if( ASR::is_a<ASR::Enum_t>(*var_type) ) {
+            ASR::Variable_t* var_sym_node = ASR::down_cast<ASR::Variable_t>(var_sym);
+            if( ASR::is_a<ASR::StructType_t>(*var_type) ) {
+                aggregate_type_name = ASRUtils::symbol_name( 
+                    ASRUtils::symbol_get_past_external(var_sym_node->m_type_declaration)
+                );
+            } else if( ASR::is_a<ASR::EnumType_t>(*var_type) ) {
                 aggregate_type_name = ASRUtils::symbol_name(
-                    ASR::down_cast<ASR::Enum_t>(var_type)->m_enum_type);
-            } else if( ASR::is_a<ASR::Union_t>(*var_type) ) {
+                    ASR::down_cast<ASR::EnumType_t>(var_type)->m_enum_type);
+            } else if( ASR::is_a<ASR::UnionType_t>(*var_type) ) {
                 aggregate_type_name = ASRUtils::symbol_name(
-                    ASR::down_cast<ASR::Union_t>(var_type)->m_union_type);
+                    ASRUtils::symbol_get_past_external(var_sym_node->m_type_declaration)
+                );
             }
             if( aggregate_type_name &&
                 !current_scope->get_symbol(std::string(aggregate_type_name)) ) {
@@ -2400,20 +3128,24 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
 
     void visit_ClassDef(const AST::ClassDef_t& x) {
         std::string x_m_name = x.m_name;
-        if( current_scope->resolve_symbol(x_m_name) ) {
-            return ;
-        }
         if( is_enum(x.m_bases, x.n_bases) ) {
+            if( current_scope->resolve_symbol(x_m_name) ) {
+                return ;
+            }
             ASR::abiType enum_abi = get_abi_from_decorators(x.m_decorator_list, x.n_decorator_list);
             SymbolTable *parent_scope = current_scope;
             current_scope = al.make_new<SymbolTable>(parent_scope);
             Vec<char*> member_names;
+            Vec<char*> member_fn_names;
+            Vec<ASR::call_arg_t>  member_init;
             member_names.reserve(al, x.n_body);
+            member_fn_names.reserve(al, 1);
+            member_init.reserve(al, 1);
             Vec<ASR::stmt_t*>* current_body_copy = current_body;
             current_body = nullptr;
-            Vec<char*> struct_dependencies;
+            SetChar struct_dependencies;
             struct_dependencies.reserve(al, 1);
-            visit_ClassMembers(x, member_names, struct_dependencies, true, enum_abi);
+            visit_ClassMembers(x, member_names, member_fn_names, struct_dependencies, member_init, true, enum_abi);
             current_body = current_body_copy;
             ASR::ttype_t* common_type = nullptr;
             for( auto sym: current_scope->get_scope() ) {
@@ -2421,7 +3153,7 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
                 if( common_type == nullptr ) {
                     common_type = enum_mem_var->m_type;
                 } else {
-                    if( !ASRUtils::check_equal_type(common_type, enum_mem_var->m_type) ) {
+                    if( !ASRUtils::check_equal_type(common_type, enum_mem_var->m_type, nullptr, nullptr) ) {
                         throw SemanticError("All members of enum should be of the same type.", x.base.base.loc);
                     }
                 }
@@ -2479,7 +3211,7 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
                                     "values cannot interoperate with C code.",
                                     x.base.base.loc);
             }
-            ASR::symbol_t* enum_type = ASR::down_cast<ASR::symbol_t>(ASR::make_EnumType_t(al,
+            ASR::symbol_t* enum_type = ASR::down_cast<ASR::symbol_t>(ASR::make_Enum_t(al,
                                             x.base.base.loc, current_scope, x.m_name,
                                             struct_dependencies.p, struct_dependencies.size(),
                                             member_names.p, member_names.size(),
@@ -2492,67 +3224,186 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
             SymbolTable *parent_scope = current_scope;
             current_scope = al.make_new<SymbolTable>(parent_scope);
             Vec<char*> member_names;
+            Vec<char*> member_fn_names;
+            Vec<ASR::call_arg_t> member_init;
             member_names.reserve(al, x.n_body);
-            Vec<char*> struct_dependencies;
+            member_init.reserve(al, x.n_body);
+            member_fn_names.reserve(al, 1);
+            SetChar struct_dependencies;
             struct_dependencies.reserve(al, 1);
-            visit_ClassMembers(x, member_names, struct_dependencies);
-            ASR::symbol_t* union_type = ASR::down_cast<ASR::symbol_t>(ASR::make_UnionType_t(al,
+            visit_ClassMembers(x, member_names, member_fn_names, struct_dependencies, member_init);
+            LCOMPILERS_ASSERT(member_init.size() == member_names.size());
+            ASR::symbol_t* union_type = ASR::down_cast<ASR::symbol_t>(ASR::make_Union_t(al,
                                             x.base.base.loc, current_scope, x.m_name,
                                             struct_dependencies.p, struct_dependencies.size(),
                                             member_names.p, member_names.size(),
                                             ASR::abiType::Source, ASR::accessType::Public,
-                                            nullptr));
+                                            member_init.p, member_init.size(), nullptr));
             current_scope = parent_scope;
-            current_scope->add_symbol(std::string(x.m_name), union_type);
+            if (current_scope->resolve_symbol(x_m_name)) {
+                ASR::symbol_t* sym = current_scope->resolve_symbol(x_m_name);
+                ASR::Union_t *ut = ASR::down_cast<ASR::Union_t>(sym);
+                ut->m_initializers = member_init.p;
+                ut->n_initializers = member_init.size();
+            } else {
+                current_scope->add_symbol(x_m_name, union_type);
+            }
             return ;
-        }
-        ASR::expr_t* algined_expr = nullptr;
-        bool is_packed = false;
-        if( !is_dataclass(x.m_decorator_list, x.n_decorator_list,
-                          algined_expr, is_packed) ) {
-            throw SemanticError("Only dataclass decorated classes and Enum subclasses are supported.",
-                                x.base.base.loc);
-        }
+        } else if( is_dataclass(x.m_decorator_list, x.n_decorator_list) ){
+            ASR::expr_t* aligned_expr = nullptr;
+            bool is_packed = false;
+            get_alignment(x.m_decorator_list, x.n_decorator_list,
+                            aligned_expr, is_packed);
+            if( x.n_bases > 0 ) {
+                throw SemanticError("Inheritance in classes isn't supported yet.",
+                                    x.base.base.loc);
+            }
+            SymbolTable *parent_scope = current_scope;
+            current_scope = al.make_new<SymbolTable>(parent_scope);
+            Vec<char*> member_names;
+            Vec<char*> member_fn_names;
+            Vec<ASR::call_arg_t> member_init;
+            member_names.reserve(al, x.n_body);
+            member_fn_names.reserve(al, 1);
+            member_init.reserve(al, x.n_body);
+            SetChar struct_dependencies;
+            struct_dependencies.reserve(al, 1);
+            ASR::abiType class_abi = ASR::abiType::Source;
+            if( is_bindc_class(x.m_decorator_list, x.n_decorator_list) ) {
+                class_abi = ASR::abiType::BindC;
+            }
+            visit_ClassMembers(x, member_names, member_fn_names, struct_dependencies, member_init, false, class_abi);
+            LCOMPILERS_ASSERT(member_init.size() == member_names.size());
+            ASR::symbol_t* class_type = ASR::down_cast<ASR::symbol_t>(ASR::make_Struct_t(al,
+                                            x.base.base.loc, current_scope, x.m_name, nullptr,
+                                            struct_dependencies.p, struct_dependencies.size(),
+                                            member_names.p, member_names.size(),
+                                            member_fn_names.p, member_fn_names.size(),
+                                            class_abi, ASR::accessType::Public,
+                                            is_packed, false, member_init.p, member_init.size(), aligned_expr,
+                                            nullptr));
+            current_scope = parent_scope;
+            if (current_scope->resolve_symbol(x_m_name)) {
+                ASR::symbol_t* sym = current_scope->resolve_symbol(x_m_name);
+                ASR::Struct_t *st = ASR::down_cast<ASR::Struct_t>(sym);
+                st->m_initializers = member_init.p;
+                st->n_initializers = member_init.size();
+            } else {
+                current_scope->add_symbol(x_m_name, class_type);
+            }
 
-        if( x.n_bases > 0 ) {
-            throw SemanticError("Inheritance in classes isn't supported yet.",
-                                x.base.base.loc);
+            ASR::ttype_t* type_signature = ASRUtils::make_StructType_t_util(al, x.base.base.loc, class_type, true);
+            ASR::down_cast<ASR::Struct_t>(class_type)->m_struct_signature = type_signature;
+        } else {
+            ASR::symbol_t* parent = nullptr;
+            if( x.n_bases > 1 ) {
+                throw SemanticError("Multiple inheritance in classes isn't supported yet.",
+                                    x.base.base.loc);
+            }
+            else if (x.n_bases == 1) {
+                std::string b_name = "";
+                if ( AST::is_a<AST::Name_t>(*x.m_bases[0]) ) {
+                    b_name = AST::down_cast<AST::Name_t>(x.m_bases[0])->m_id;
+                } else {
+                    throw SemanticError("Expected a Name here", x.base.base.loc);
+                }
+                parent = current_scope->resolve_symbol(b_name);
+                LCOMPILERS_ASSERT(ASR::is_a<ASR::Struct_t>(*parent));
+            }
+            SymbolTable *parent_scope = current_scope;
+            if( ASR::symbol_t* sym = current_scope->resolve_symbol(x_m_name) ) {
+                LCOMPILERS_ASSERT(ASR::is_a<ASR::Struct_t>(*sym));
+                ASR::Struct_t *st = ASR::down_cast<ASR::Struct_t>(sym);
+                current_scope = st->m_symtab;
+                for( size_t i = 0; i < x.n_body; i++ ) {
+                    if ( AST::is_a<AST::FunctionDef_t>(*x.m_body[i]) ) {
+                        AST::FunctionDef_t*
+                            f = AST::down_cast<AST::FunctionDef_t>(x.m_body[i]);
+                        init_self_type(*f, sym, x.base.base.loc);
+                        if ( std::string(f->m_name) == std::string("__init__") ) {
+                            this->visit_init_body(*f, st->m_parent, x.m_body[i]->base.loc);
+                        } else {
+                            this->visit_stmt(*x.m_body[i]);
+                        }
+                    }
+                }
+            } else {
+                current_scope = al.make_new<SymbolTable>(parent_scope);
+                Vec<char*> member_names;
+                Vec<char*> member_fn_names;
+                Vec<ASR::call_arg_t> member_init;
+                member_names.reserve(al, 1);
+                member_fn_names.reserve(al, 1);
+                member_init.reserve(al, 1);
+                SetChar struct_dependencies;
+                struct_dependencies.reserve(al, 1);
+                ASR::abiType class_abi = ASR::abiType::Source;
+                if( is_bindc_class(x.m_decorator_list, x.n_decorator_list) ) {
+                    throw SemanticError("Bindc in classes is not supported, "
+                    "instead use the dataclass decorator ",
+                    x.base.base.loc);
+                }
+                ASR::symbol_t* class_sym = ASR::down_cast<ASR::symbol_t>(
+                    ASR::make_Struct_t(al, x.base.base.loc, current_scope,
+                    x.m_name, nullptr, struct_dependencies.p, struct_dependencies.size(),
+                    member_names.p, member_names.size(), member_fn_names.p,
+                    member_fn_names.size(), class_abi, ASR::accessType::Public,
+                    false, false, member_init.p, member_init.size(),
+                    nullptr, parent));
+                parent_scope->add_symbol(x.m_name, class_sym);
+
+                visit_ClassMembers(x, member_names, member_fn_names,
+                    struct_dependencies, member_init, false, class_abi, true);
+                ASR::Struct_t* st = ASR::down_cast<ASR::Struct_t>(class_sym);
+                st->m_dependencies = struct_dependencies.p;
+                st->n_dependencies = struct_dependencies.n;
+                st->m_member_functions = member_fn_names.p;
+                st->n_member_functions = member_fn_names.n;
+                st->m_members = member_names.p;
+                st->n_members = member_names.n;
+                st->m_initializers = member_init.p;
+                st->n_initializers = member_init.n;
+
+                ASR::ttype_t* type_signature = ASRUtils::make_StructType_t_util(al, x.base.base.loc, class_sym, false);
+                ASR::down_cast<ASR::Struct_t>(class_sym)->m_struct_signature = type_signature;
+            }
+            current_scope = parent_scope;
         }
+    }
 
-        SymbolTable *parent_scope = current_scope;
-        current_scope = al.make_new<SymbolTable>(parent_scope);
-        Vec<char*> member_names;
-        member_names.reserve(al, x.n_body);
-        Vec<char*> struct_dependencies;
-        struct_dependencies.reserve(al, 1);
-        ASR::abiType class_abi = ASR::abiType::Source;
-        if( is_bindc_class(x.m_decorator_list, x.n_decorator_list) ) {
-            class_abi = ASR::abiType::BindC;
-        }
-        visit_ClassMembers(x, member_names, struct_dependencies, false, class_abi);
-        ASR::symbol_t* class_type = ASR::down_cast<ASR::symbol_t>(ASR::make_StructType_t(al,
-                                        x.base.base.loc, current_scope, x.m_name,
-                                        struct_dependencies.p, struct_dependencies.size(),
-                                        member_names.p, member_names.size(),
-                                        class_abi, ASR::accessType::Public,
-                                        is_packed, algined_expr,
-                                        nullptr));
+    void init_self_type (const AST::FunctionDef_t &x,
+                            ASR::symbol_t* class_sym, Location loc) {
+        SymbolTable* parent_scope = current_scope;
+        ASR::symbol_t *t = current_scope->get_symbol(x.m_name);
+        if (t==nullptr) {
+            throw SemanticError("Function not found in current symbol table",
+                                    x.base.base.loc);
+        }
+        if ( !ASR::is_a<ASR::Function_t>(*t) ) {
+            throw SemanticError("Only functions implemented in classes",
+                                    x.base.base.loc);
+        }
+        ASR::Function_t *f = ASR::down_cast<ASR::Function_t>(t);
+        current_scope = f->m_symtab;
+        if ( f->n_args==0 ) {
+            return;
+        }
+        std::string self_name = x.m_args.m_args[0].m_arg;
+        ASR::symbol_t* sym = current_scope->get_symbol(self_name);
+        ASR::Variable_t* self_var = ASR::down_cast<ASR::Variable_t>(sym);
+        self_var->m_type = ASRUtils::make_StructType_t_util(al,loc, class_sym, true);
         current_scope = parent_scope;
-        current_scope->add_symbol(std::string(x.m_name), class_type);
     }
 
+    virtual void visit_init_body (const AST::FunctionDef_t &/*x*/, ASR::symbol_t* /*parent_sym*/, const Location /*loc*/) = 0;
+
     void add_name(const Location &loc) {
         std::string var_name = "__name__";
-        std::string var_value;
-        if (main_module) {
-            var_value = "__main__";
-        } else {
-            // TODO: put the actual module name here
-            var_value = "__non_main__";
-        }
-        size_t s_size = var_value.size();
-        ASR::ttype_t *type = ASRUtils::TYPE(ASR::make_Character_t(al, loc,
-                1, s_size, nullptr, nullptr, 0));
+        std::string var_value = module_name;
+        ASR::expr_t* a_len = ASRUtils::EXPR(ASR::make_IntegerConstant_t(al, loc, var_value.size(),
+                                ASRUtils::TYPE(ASR::make_Integer_t(al, loc, 4))));
+        ASR::ttype_t *type = ASRUtils::TYPE(ASR::make_String_t(al, loc,
+                1, a_len, ASR::string_length_kindType::ExpressionLength, ASR::string_physical_typeType::DescriptorString));
         ASR::expr_t *value = ASRUtils::EXPR(ASR::make_StringConstant_t(al,
             loc, s2c(al, var_value), type));
         ASR::expr_t *init_expr = value;
@@ -2560,30 +3411,28 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
         ASR::intentType s_intent = ASRUtils::intent_local;
         ASR::storage_typeType storage_type =
                 ASR::storage_typeType::Default;
-        if( ASR::is_a<ASR::Const_t>(*type) ) {
-            storage_type = ASR::storage_typeType::Parameter;
-        }
         ASR::abiType current_procedure_abi_type = ASR::abiType::Source;
         ASR::accessType s_access = ASR::accessType::Public;
         ASR::presenceType s_presence = ASR::presenceType::Required;
         bool value_attr = false;
-        Vec<char*> variable_dependencies_vec;
+        SetChar variable_dependencies_vec;
         variable_dependencies_vec.reserve(al, 1);
         ASRUtils::collect_variable_dependencies(al, variable_dependencies_vec, type, init_expr, value);
         ASR::asr_t *v = ASR::make_Variable_t(al, loc, current_scope,
                 s2c(al, var_name), variable_dependencies_vec.p,
                 variable_dependencies_vec.size(), s_intent, init_expr,
-                value, storage_type, type, current_procedure_abi_type,
-                s_access, s_presence, value_attr);
+                value, storage_type, type, nullptr, current_procedure_abi_type,
+                s_access, s_presence, value_attr, false, false, nullptr, false, false);
         current_scope->add_symbol(var_name, ASR::down_cast<ASR::symbol_t>(v));
     }
 
     void add_lpython_version(const Location &loc) {
         std::string var_name = "__LPYTHON_VERSION__";
         std::string var_value = LFORTRAN_VERSION;
-        size_t s_size = var_value.size();
-        ASR::ttype_t *type = ASRUtils::TYPE(ASR::make_Character_t(al, loc,
-                1, s_size, nullptr, nullptr, 0));
+        ASR::expr_t* a_len = ASRUtils::EXPR(ASR::make_IntegerConstant_t(al, loc, var_value.size(),
+                                ASRUtils::TYPE(ASR::make_Integer_t(al, loc, 4))));
+        ASR::ttype_t *type = ASRUtils::TYPE(ASR::make_String_t(al, loc,
+                1, a_len, ASR::string_length_kindType::DeferredLength, ASR::string_physical_typeType::DescriptorString));
         ASR::expr_t *value = ASRUtils::EXPR(ASR::make_StringConstant_t(al,
             loc, s2c(al, var_value), type));
         ASR::expr_t *init_expr = value;
@@ -2591,28 +3440,27 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
         ASR::intentType s_intent = ASRUtils::intent_local;
         ASR::storage_typeType storage_type =
                 ASR::storage_typeType::Default;
-        if( ASR::is_a<ASR::Const_t>(*type) ) {
-            storage_type = ASR::storage_typeType::Parameter;
-        }
         ASR::abiType current_procedure_abi_type = ASR::abiType::Source;
         ASR::accessType s_access = ASR::accessType::Public;
         ASR::presenceType s_presence = ASR::presenceType::Required;
         bool value_attr = false;
-        Vec<char*> variable_dependencies_vec;
+        SetChar variable_dependencies_vec;
         variable_dependencies_vec.reserve(al, 1);
         ASRUtils::collect_variable_dependencies(al, variable_dependencies_vec, type, init_expr, value);
         ASR::asr_t *v = ASR::make_Variable_t(al, loc, current_scope,
                 s2c(al, var_name), variable_dependencies_vec.p,
                 variable_dependencies_vec.size(),
-                s_intent, init_expr, value, storage_type, type,
+                s_intent, init_expr, value, storage_type, type, nullptr,
                 current_procedure_abi_type, s_access, s_presence,
-                value_attr);
+                value_attr, false, false, nullptr, false, false);
         current_scope->add_symbol(var_name, ASR::down_cast<ASR::symbol_t>(v));
     }
 
     void visit_Name(const AST::Name_t &x) {
         std::string name = x.m_id;
         ASR::symbol_t *s = current_scope->resolve_symbol(name);
+        std::set<std::string> not_cpython_builtin = {
+            "pi", "E", "oo"};
         if (s) {
             tmp = ASR::make_Var_t(al, x.base.base.loc, s);
         } else if (name == "i32" || name == "i64" || name == "f32" ||
@@ -2620,9 +3468,10 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
                    name == "i16" || name == "i8") {
             Vec<ASR::dimension_t> dims;
             dims.reserve(al, 1);
+            ASR::symbol_t* type_decl = nullptr;
             ASR::ttype_t *type = get_type_from_var_annotation(name,
-                                    x.base.base.loc, dims, nullptr, 0);
-            tmp = (ASR::asr_t*) ASRUtils::get_constant_expression_with_given_type(al, type);
+                                    x.base.base.loc, dims, type_decl, 0);
+            tmp = (ASR::asr_t*) ASRUtils::get_constant_zero_with_given_type(al, type);
         } else if (name == "__name__") {
             // __name__ was not declared yet in this scope, so we
             // declare it first:
@@ -2636,6 +3485,13 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
             ASR::symbol_t *s = current_scope->resolve_symbol(name);
             LCOMPILERS_ASSERT(s);
             tmp = ASR::make_Var_t(al, x.base.base.loc, s);
+        } else if (ASRUtils::IntrinsicElementalFunctionRegistry::is_intrinsic_function(name) &&
+                   (not_cpython_builtin.find(name) == not_cpython_builtin.end() ||
+                   imported_functions.find(name) != imported_functions.end() )) {
+                    ASRUtils::create_intrinsic_function create_func =
+                        ASRUtils::IntrinsicElementalFunctionRegistry::get_create_function(name);
+                    Vec<ASR::expr_t*> args_;
+                    tmp = create_func(al, x.base.base.loc, args_, diag);
         } else {
             throw SemanticError("Variable '" + name + "' not declared",
                 x.base.base.loc);
@@ -2645,11 +3501,11 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
     void visit_NamedExpr(const AST::NamedExpr_t &x) {
         this->visit_expr(*x.m_target);
         ASR::expr_t *target = ASRUtils::EXPR(tmp);
-        ASR::ttype_t *target_type = ASRUtils::expr_type(target);
+        [[maybe_unused]] ASR::ttype_t *target_type = ASRUtils::expr_type(target);
         this->visit_expr(*x.m_value);
         ASR::expr_t *value = ASRUtils::EXPR(tmp);
         ASR::ttype_t *value_type = ASRUtils::expr_type(value);
-        LCOMPILERS_ASSERT(ASRUtils::check_equal_type(target_type, value_type));
+        LCOMPILERS_ASSERT(ASRUtils::check_equal_type(target_type, value_type, nullptr, nullptr));
         tmp = ASR::make_NamedExpr_t(al, x.base.base.loc, target, value, value_type);
     }
 
@@ -2672,37 +3528,36 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
 
     void visit_ConstantInt(const AST::ConstantInt_t &x) {
         int64_t i = x.m_value;
-        ASR::ttype_t *type = ASRUtils::TYPE(ASR::make_Integer_t(al, x.base.base.loc,
-                4, nullptr, 0));
+        ASR::ttype_t *type = ASRUtils::TYPE(ASR::make_Integer_t(al, x.base.base.loc, 4));
         tmp = ASR::make_IntegerConstant_t(al, x.base.base.loc, i, type);
     }
 
     void visit_ConstantFloat(const AST::ConstantFloat_t &x) {
         double f = x.m_value;
-        ASR::ttype_t *type = ASRUtils::TYPE(ASR::make_Real_t(al, x.base.base.loc,
-                8, nullptr, 0));
+        ASR::ttype_t *type = ASRUtils::TYPE(ASR::make_Real_t(al, x.base.base.loc, 8));
         tmp = ASR::make_RealConstant_t(al, x.base.base.loc, f, type);
     }
 
     void visit_ConstantComplex(const AST::ConstantComplex_t &x) {
         double re = x.m_re, im = x.m_im;
-        ASR::ttype_t *type = ASRUtils::TYPE(ASR::make_Complex_t(al, x.base.base.loc,
-                8, nullptr, 0));
+        ASR::ttype_t *type = ASRUtils::TYPE(ASR::make_Complex_t(al, x.base.base.loc, 8));
         tmp = ASR::make_ComplexConstant_t(al, x.base.base.loc, re, im, type);
     }
 
     void visit_ConstantStr(const AST::ConstantStr_t &x) {
         char *s = x.m_value;
-        size_t s_size = std::string(s).size();
-        ASR::ttype_t *type = ASRUtils::TYPE(ASR::make_Character_t(al, x.base.base.loc,
-                1, s_size, nullptr, nullptr, 0));
-        tmp = ASR::make_StringConstant_t(al, x.base.base.loc, s, type);
+        ASR::expr_t* a_len = ASRUtils::EXPR(ASR::make_IntegerConstant_t(al, x.base.base.loc, std::string(s).size(),
+                                ASRUtils::TYPE(ASR::make_Integer_t(al, x.base.base.loc, 4))));
+        ASR::ttype_t *type_1 = ASRUtils::TYPE(ASR::make_String_t(al, x.base.base.loc, 1, a_len, 
+                                            ASR::string_length_kindType::ExpressionLength,
+                                            ASR::string_physical_typeType::DescriptorString));
+        
+        tmp = ASR::make_StringConstant_t(al, x.base.base.loc, s, type_1);
     }
 
     void visit_ConstantBool(const AST::ConstantBool_t &x) {
         bool b = x.m_value;
-        ASR::ttype_t *type = ASRUtils::TYPE(ASR::make_Logical_t(al, x.base.base.loc,
-                4, nullptr, 0));
+        ASR::ttype_t *type = ASRUtils::TYPE(ASR::make_Logical_t(al, x.base.base.loc, 4));
         tmp = ASR::make_LogicalConstant_t(al, x.base.base.loc, b, type);
     }
 
@@ -2724,29 +3579,116 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
                     x.base.base.loc);
             }
         }
-        LCOMPILERS_ASSERT(
-            ASRUtils::check_equal_type(ASRUtils::expr_type(lhs), ASRUtils::expr_type(rhs)));
+        ASR::ttype_t *left_operand_type = ASRUtils::expr_type(lhs);
+        ASR::ttype_t *right_operand_type = ASRUtils::expr_type(rhs);
+
         ASR::expr_t *value = nullptr;
-        ASR::ttype_t *dest_type = ASRUtils::expr_type(lhs);
+        ASR::ttype_t *dest_type = left_operand_type;
 
+        if (!ASRUtils::check_equal_type(left_operand_type, right_operand_type, nullptr, nullptr)) {
+            throw SemanticError("Type mismatch: '" + ASRUtils::type_to_str_python_expr(left_operand_type, lhs)
+                                + "' and '" + ASRUtils::type_to_str_python_expr(right_operand_type, rhs)
+                                + "'. Both operands must be of the same type.", x.base.base.loc);
+        }
+        // Reference: https://docs.python.org/3/reference/expressions.html#boolean-operations
         if (ASRUtils::expr_value(lhs) != nullptr && ASRUtils::expr_value(rhs) != nullptr) {
-
-            LCOMPILERS_ASSERT(ASR::is_a<ASR::Logical_t>(*dest_type));
-            bool left_value = ASR::down_cast<ASR::LogicalConstant_t>(
-                                    ASRUtils::expr_value(lhs))->m_value;
-            bool right_value = ASR::down_cast<ASR::LogicalConstant_t>(
-                                    ASRUtils::expr_value(rhs))->m_value;
-            bool result;
-            switch (op) {
-                case (ASR::logicalbinopType::And): { result = left_value && right_value; break; }
-                case (ASR::logicalbinopType::Or): { result = left_value || right_value; break; }
-                default : {
-                    throw SemanticError("Boolean operator type not supported",
-                        x.base.base.loc);
+            switch (dest_type->type) {
+                case ASR::ttypeType::Logical: {
+                    bool left_value = ASR::down_cast<ASR::LogicalConstant_t>(
+                                            ASRUtils::expr_value(lhs))->m_value;
+                    bool right_value = ASR::down_cast<ASR::LogicalConstant_t>(
+                                            ASRUtils::expr_value(rhs))->m_value;
+                    bool result;
+                    switch (op) {
+                        case (ASR::logicalbinopType::And): { result = left_value && right_value; break; }
+                        case (ASR::logicalbinopType::Or): { result = left_value || right_value; break; }
+                        default : {
+                            throw SemanticError("Boolean operator type not supported",
+                                x.base.base.loc);
+                        }
+                    }
+                    value = ASRUtils::EXPR(ASR::make_LogicalConstant_t(
+                        al, x.base.base.loc, result, dest_type));
+                    break;
+                }
+                case ASR::ttypeType::Integer: {
+                    int64_t left_value = ASR::down_cast<ASR::IntegerConstant_t>(
+                                        ASRUtils::expr_value(lhs))->m_n;
+                    int64_t right_value = ASR::down_cast<ASR::IntegerConstant_t>(
+                                            ASRUtils::expr_value(rhs))->m_n;
+                    int64_t result;
+                    switch (op) {
+                        case (ASR::logicalbinopType::And): {
+                            result = left_value == 0 ? left_value : right_value;
+                            break;
+                        }
+                        case (ASR::logicalbinopType::Or): {
+                            result = left_value != 0 ? left_value : right_value;
+                            break;
+                        }
+                        default : {
+                            throw SemanticError("Boolean operator type not supported",
+                                x.base.base.loc);
+                        }
+                    }
+                    value = ASRUtils::EXPR(ASR::make_IntegerConstant_t(
+                        al, x.base.base.loc, result, dest_type));
+                    break;
+                }
+                case ASR::ttypeType::Real: {
+                    double left_value = ASR::down_cast<ASR::RealConstant_t>(
+                                        ASRUtils::expr_value(lhs))->m_r;
+                    double right_value = ASR::down_cast<ASR::RealConstant_t>(
+                                            ASRUtils::expr_value(rhs))->m_r;
+                    double result;
+                    switch (op) {
+                        case (ASR::logicalbinopType::And): {
+                            result = left_value == 0 ? left_value : right_value;
+                            break;
+                        }
+                        case (ASR::logicalbinopType::Or): {
+                            result = left_value != 0 ? left_value : right_value;
+                            break;
+                        }
+                        default : {
+                            throw SemanticError("Boolean operator type not supported",
+                                x.base.base.loc);
+                        }
+                    }
+                    value = ASRUtils::EXPR(ASR::make_RealConstant_t(
+                        al, x.base.base.loc, result, dest_type));
+                    break;
+                }
+                case ASR::ttypeType::String: {
+                    char* left_value = ASR::down_cast<ASR::StringConstant_t>(
+                                        ASRUtils::expr_value(lhs))->m_s;
+                    char* right_value = ASR::down_cast<ASR::StringConstant_t>(
+                                            ASRUtils::expr_value(rhs))->m_s;
+                    char* result;
+                    switch (op) {
+                        case (ASR::logicalbinopType::And): {
+                            result = std::strcmp(left_value, "") == 0 ? left_value : right_value;
+                            break;
+                        }
+                        case (ASR::logicalbinopType::Or): {
+                            result = std::strcmp(left_value, "") != 0 ? left_value : right_value;
+                            break;
+                        }
+                        default : {
+                            throw SemanticError("Boolean operator type not supported",
+                                x.base.base.loc);
+                        }
+                    }
+                    value = ASRUtils::EXPR(ASR::make_StringConstant_t(
+                        al, x.base.base.loc, result, dest_type));
+                    break;
                 }
+
+                default:
+                    throw SemanticError("Boolean operation not supported on objects of type '"
+                            + ASRUtils::type_to_str_python_expr(dest_type, lhs) + "'",
+                                x.base.base.loc);
             }
-            value = ASR::down_cast<ASR::expr_t>(ASR::make_LogicalConstant_t(
-                al, x.base.base.loc, result, dest_type));
         }
         tmp = ASR::make_LogicalBinOp_t(al, x.base.base.loc, lhs, op, rhs, dest_type, value);
     }
@@ -2756,14 +3698,14 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
         ASR::expr_t *left = ASRUtils::EXPR(tmp);
         this->visit_expr(*x.m_right);
         ASR::expr_t *right = ASRUtils::EXPR(tmp);
-        ASR::binopType op;
+        ASR::binopType op = ASR::binopType::Add /* temporary assignment */;
         std::string op_name = "";
         switch (x.m_op) {
             case (AST::operatorType::Add) : { op = ASR::binopType::Add; break; }
             case (AST::operatorType::Sub) : { op = ASR::binopType::Sub; break; }
             case (AST::operatorType::Mult) : { op = ASR::binopType::Mul; break; }
             case (AST::operatorType::Div) : { op = ASR::binopType::Div; break; }
-            case (AST::operatorType::FloorDiv) : {op = ASR::binopType::Div; break;}
+            case (AST::operatorType::FloorDiv) : {op_name = "floordiv"; break;}
             case (AST::operatorType::Pow) : { op = ASR::binopType::Pow; break; }
             case (AST::operatorType::BitOr) : { op = ASR::binopType::BitOr; break; }
             case (AST::operatorType::BitAnd) : { op = ASR::binopType::BitAnd; break; }
@@ -2779,7 +3721,18 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
 
         cast_helper(left, right, false);
 
-        if (op_name != "") {
+        if (op_name == "floordiv") {
+            Vec<ASR::expr_t*> args;
+            args.reserve(al, 2);
+            args.push_back(al, left);
+            args.push_back(al, right);
+            ASRUtils::create_intrinsic_function create_func =
+                        ASRUtils::IntrinsicElementalFunctionRegistry::get_create_function(op_name);
+            tmp = create_func(al, x.base.base.loc, args, diag);
+            return;
+        }
+
+        if (op_name == "_mod") {
             Vec<ASR::call_arg_t> args;
             args.reserve(al, 2);
             ASR::call_arg_t arg1, arg2;
@@ -2793,8 +3746,7 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
             tmp = make_call_helper(al, fn_mod, current_scope, args, op_name, x.base.base.loc);
             return;
         }
-        bool floordiv = (x.m_op == AST::operatorType::FloorDiv);
-        make_BinOp_helper(left, right, op, x.base.base.loc, floordiv);
+        make_BinOp_helper(left, right, op, x.base.base.loc);
     }
 
     void visit_UnaryOp(const AST::UnaryOp_t &x) {
@@ -2803,13 +3755,11 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
         ASR::ttype_t *operand_type = ASRUtils::expr_type(operand);
         ASR::ttype_t *dest_type = operand_type;
         ASR::ttype_t *logical_type = ASRUtils::TYPE(
-            ASR::make_Logical_t(al, x.base.base.loc, 4, nullptr, 0));
-        ASR::ttype_t *int_type = ASRUtils::TYPE(ASR::make_Integer_t(al, x.base.base.loc,
-            4, nullptr, 0));
+            ASR::make_Logical_t(al, x.base.base.loc, 4));
+        ASR::ttype_t *int_type = ASRUtils::TYPE(ASR::make_Integer_t(al, x.base.base.loc, 4));
         ASR::expr_t *value = nullptr;
 
         if (x.m_op == AST::unaryopType::Invert) {
-
             if (ASRUtils::is_integer(*operand_type)) {
                 if (ASRUtils::expr_value(operand) != nullptr) {
                     int64_t op_value = ASR::down_cast<ASR::IntegerConstant_t>(
@@ -2819,12 +3769,22 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
                 }
                 tmp = ASR::make_IntegerBitNot_t(al, x.base.base.loc, operand, dest_type, value);
                 return;
-            }
-            else if (ASRUtils::is_real(*operand_type)) {
+            } else if (ASRUtils::is_unsigned_integer(*operand_type)) {
+                int kind = ASRUtils::extract_kind_from_ttype_t(operand_type);
+                int signed_promote_kind = (kind < 8) ? kind * 2 : kind;
+                diag.add(diag::Diagnostic(
+                    "The result of the bitnot ~ operation is negative, thus out of range for u" + std::to_string(kind * 8),
+                    diag::Level::Error, diag::Stage::Semantic, {
+                        diag::Label("use ~i" + std::to_string(signed_promote_kind * 8)
+                            + "(u) for signed result or bitnot_u" + std::to_string(kind * 8) + "(u) for unsigned result",
+                                {x.base.base.loc})
+                    })
+                );
+                throw SemanticAbort();
+            } else if (ASRUtils::is_real(*operand_type)) {
                 throw SemanticError("Unary operator '~' not supported for floats",
                     x.base.base.loc);
-            }
-            else if (ASRUtils::is_logical(*operand_type)) {
+            } else if (ASRUtils::is_logical(*operand_type)) {
                 if (ASRUtils::expr_value(operand) != nullptr) {
                     bool op_value = ASR::down_cast<ASR::LogicalConstant_t>(
                                                ASRUtils::expr_value(operand))->m_value;
@@ -2838,15 +3798,14 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
                             int_type, value));
                 tmp = ASR::make_IntegerBitNot_t(al, x.base.base.loc, int_arg, int_type, value);
                 return;
-            }
-            else if (ASRUtils::is_complex(*operand_type)) {
+            } else if (ASRUtils::is_complex(*operand_type)) {
                 throw SemanticError("Unary operator '~' not supported for complex type",
                     x.base.base.loc);
+            } else {
+                throw SemanticError("Unary operator '~' not supported for type " + ASRUtils::type_to_str_python_expr(operand_type, operand),
+                    x.base.base.loc);
             }
-
-        }
-        else if (x.m_op == AST::unaryopType::Not) {
-
+        } else if (x.m_op == AST::unaryopType::Not) {
             ASR::expr_t *logical_arg = operand;
             if (ASRUtils::is_integer(*operand_type)) {
                 if (ASRUtils::expr_value(operand) != nullptr) {
@@ -2860,8 +3819,19 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
                 logical_arg = ASR::down_cast<ASR::expr_t>(ASR::make_Cast_t(
                             al, x.base.base.loc, operand, ASR::cast_kindType::IntegerToLogical,
                             logical_type, value));
-            }
-            else if (ASRUtils::is_real(*operand_type)) {
+            } else if (ASRUtils::is_unsigned_integer(*operand_type)) {
+                if (ASRUtils::expr_value(operand) != nullptr) {
+                    int64_t op_value = ASR::down_cast<ASR::UnsignedIntegerConstant_t>(
+                                        ASRUtils::expr_value(operand))->m_n;
+                    bool b = (op_value == 0);
+                    value = ASR::down_cast<ASR::expr_t>(ASR::make_LogicalConstant_t(
+                        al, x.base.base.loc, b, logical_type));
+                }
+                // cast UnsignedInteger to Logical
+                logical_arg = ASR::down_cast<ASR::expr_t>(ASR::make_Cast_t(
+                            al, x.base.base.loc, operand, ASR::cast_kindType::UnsignedIntegerToLogical,
+                            logical_type, value));
+            } else if (ASRUtils::is_real(*operand_type)) {
                 if (ASRUtils::expr_value(operand) != nullptr) {
                     double op_value = ASR::down_cast<ASR::RealConstant_t>(
                                         ASRUtils::expr_value(operand))->m_r;
@@ -2873,20 +3843,18 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
                 logical_arg = ASR::down_cast<ASR::expr_t>(ASR::make_Cast_t(
                             al, x.base.base.loc, operand, ASR::cast_kindType::RealToLogical,
                             logical_type, value));
-            }
-            else if (ASRUtils::is_logical(*operand_type)) {
+            } else if (ASRUtils::is_logical(*operand_type)) {
                 if (ASRUtils::expr_value(operand) != nullptr) {
                     bool op_value = ASR::down_cast<ASR::LogicalConstant_t>(
                                                ASRUtils::expr_value(operand))->m_value;
                     value = ASR::down_cast<ASR::expr_t>(ASR::make_LogicalConstant_t(
                         al, x.base.base.loc, !op_value, logical_type));
                 }
-            }
-            else if (ASRUtils::is_complex(*operand_type)) {
+            } else if (ASRUtils::is_complex(*operand_type)) {
                 if (ASRUtils::expr_value(operand) != nullptr) {
                     if( ASR::is_a<ASR::FunctionCall_t>(*operand) ) {
                         ASR::FunctionCall_t* operand_func_call = ASR::down_cast<ASR::FunctionCall_t>(operand);
-                        dependencies.erase(std::string(ASRUtils::symbol_name(operand_func_call->m_name)));
+                        dependencies.erase(ASRUtils::symbol_name(operand_func_call->m_name));
                     }
                     ASR::ComplexConstant_t *c = ASR::down_cast<ASR::ComplexConstant_t>(
                                         ASRUtils::expr_value(operand));
@@ -2899,29 +3867,33 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
                 logical_arg = ASR::down_cast<ASR::expr_t>(ASR::make_Cast_t(
                             al, x.base.base.loc, operand, ASR::cast_kindType::ComplexToLogical,
                             logical_type, value));
+            } else {
+                throw SemanticError("Unary operator '!' not supported for type " + ASRUtils::type_to_str_python_expr(operand_type, operand),
+                    x.base.base.loc);
             }
 
             tmp = ASR::make_LogicalNot_t(al, x.base.base.loc, logical_arg, logical_type, value);
             return;
-
-        }
-        else if (x.m_op == AST::unaryopType::UAdd) {
-
+        } else if (x.m_op == AST::unaryopType::UAdd) {
             if (ASRUtils::is_integer(*operand_type)) {
                 if (ASRUtils::expr_value(operand) != nullptr) {
                     int64_t op_value = ASR::down_cast<ASR::IntegerConstant_t>(
                                             ASRUtils::expr_value(operand))->m_n;
                     tmp = ASR::make_IntegerConstant_t(al, x.base.base.loc, op_value, operand_type);
                 }
-            }
-            else if (ASRUtils::is_real(*operand_type)) {
+            } else if (ASRUtils::is_unsigned_integer(*operand_type)) {
+                if (ASRUtils::expr_value(operand) != nullptr) {
+                    int64_t op_value = ASR::down_cast<ASR::UnsignedIntegerConstant_t>(
+                                            ASRUtils::expr_value(operand))->m_n;
+                    tmp = ASR::make_UnsignedIntegerConstant_t(al, x.base.base.loc, op_value, operand_type);
+                }
+            } else if (ASRUtils::is_real(*operand_type)) {
                 if (ASRUtils::expr_value(operand) != nullptr) {
                     double op_value = ASR::down_cast<ASR::RealConstant_t>(
                                             ASRUtils::expr_value(operand))->m_r;
                     tmp = ASR::make_RealConstant_t(al, x.base.base.loc, op_value, operand_type);
                 }
-            }
-            else if (ASRUtils::is_logical(*operand_type)) {
+            } else if (ASRUtils::is_logical(*operand_type)) {
                 if (ASRUtils::expr_value(operand) != nullptr) {
                     bool op_value = ASR::down_cast<ASR::LogicalConstant_t>(
                                                ASRUtils::expr_value(operand))->m_value;
@@ -2930,12 +3902,11 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
                 }
                 tmp = ASR::make_Cast_t(al, x.base.base.loc, operand, ASR::cast_kindType::LogicalToInteger,
                         int_type, value);
-            }
-            else if (ASRUtils::is_complex(*operand_type)) {
+            } else if (ASRUtils::is_complex(*operand_type)) {
                 if (ASRUtils::expr_value(operand) != nullptr) {
                     if( ASR::is_a<ASR::FunctionCall_t>(*operand) ) {
                         ASR::FunctionCall_t* operand_func_call = ASR::down_cast<ASR::FunctionCall_t>(operand);
-                        dependencies.erase(std::string(ASRUtils::symbol_name(operand_func_call->m_name)));
+                        dependencies.erase(ASRUtils::symbol_name(operand_func_call->m_name));
                     }
                     ASR::ComplexConstant_t *c = ASR::down_cast<ASR::ComplexConstant_t>(
                                         ASRUtils::expr_value(operand));
@@ -2943,12 +3914,12 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
                     tmp = ASR::make_ComplexConstant_t(al, x.base.base.loc,
                         std::real(op_value), std::imag(op_value), operand_type);
                 }
+            } else {
+                throw SemanticError("Unary operator '+' not supported for type " + ASRUtils::type_to_str_python_expr(operand_type, operand),
+                    x.base.base.loc);
             }
             return;
-
-        }
-        else if (x.m_op == AST::unaryopType::USub) {
-
+        } else if (x.m_op == AST::unaryopType::USub) {
             if (ASRUtils::is_integer(*operand_type)) {
                 if (ASRUtils::expr_value(operand) != nullptr) {
                     int64_t op_value = ASR::down_cast<ASR::IntegerConstant_t>(
@@ -2959,8 +3930,29 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
                 tmp = ASR::make_IntegerUnaryMinus_t(al, x.base.base.loc, operand,
                                                     operand_type, value);
                 return;
-            }
-            else if (ASRUtils::is_real(*operand_type)) {
+            } else if (ASRUtils::is_unsigned_integer(*operand_type)) {
+                if (ASRUtils::expr_value(operand) != nullptr) {
+                    int64_t op_value = ASR::down_cast<ASR::UnsignedIntegerConstant_t>(
+                                            ASRUtils::expr_value(operand))->m_n;
+                    if (op_value != 0) {
+                        int kind = ASRUtils::extract_kind_from_ttype_t(operand_type);
+                        int signed_promote_kind = (kind < 8) ? kind * 2 : kind;
+                        diag.add(diag::Diagnostic(
+                            "The result of the unary minus `-` operation is negative, thus out of range for u" + std::to_string(kind * 8),
+                            diag::Level::Error, diag::Stage::Semantic, {
+                                diag::Label("use -i" + std::to_string(signed_promote_kind * 8)
+                                    + "(u) for signed result", {x.base.base.loc})
+                            })
+                        );
+                        throw SemanticAbort();
+                    }
+                    value = ASR::down_cast<ASR::expr_t>(ASR::make_UnsignedIntegerConstant_t(
+                        al, x.base.base.loc, 0, operand_type));
+                }
+                tmp = ASR::make_UnsignedIntegerUnaryMinus_t(al, x.base.base.loc, operand,
+                                                    operand_type, value);
+                return;
+            } else if (ASRUtils::is_real(*operand_type)) {
                 if (ASRUtils::expr_value(operand) != nullptr) {
                     double op_value = ASR::down_cast<ASR::RealConstant_t>(
                                             ASRUtils::expr_value(operand))->m_r;
@@ -2970,8 +3962,7 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
                 tmp = ASR::make_RealUnaryMinus_t(al, x.base.base.loc, operand,
                                                  operand_type, value);
                 return;
-            }
-            else if (ASRUtils::is_logical(*operand_type)) {
+            } else if (ASRUtils::is_logical(*operand_type)) {
                 if (ASRUtils::expr_value(operand) != nullptr) {
                     bool op_value = ASR::down_cast<ASR::LogicalConstant_t>(
                                                ASRUtils::expr_value(operand))->m_value;
@@ -2985,8 +3976,7 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
                 tmp = ASR::make_IntegerUnaryMinus_t(al, x.base.base.loc, int_arg,
                                                     int_type, value);
                 return;
-            }
-            else if (ASRUtils::is_complex(*operand_type)) {
+            } else if (ASRUtils::is_complex(*operand_type)) {
                 if (ASRUtils::expr_value(operand) != nullptr) {
                     ASR::ComplexConstant_t *c = ASR::down_cast<ASR::ComplexConstant_t>(
                                         ASRUtils::expr_value(operand));
@@ -3000,6 +3990,9 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
                 tmp = ASR::make_ComplexUnaryMinus_t(al, x.base.base.loc, operand,
                                                     operand_type, value);
                 return;
+            } else {
+                throw SemanticError("Unary operator '-' not supported for type " + ASRUtils::type_to_str_python_expr(operand_type, operand),
+                    x.base.base.loc);
             }
         }
     }
@@ -3012,14 +4005,14 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
         this->visit_expr(*x.m_orelse);
         ASR::expr_t *orelse = ASRUtils::EXPR(tmp);
         LCOMPILERS_ASSERT(ASRUtils::check_equal_type(ASRUtils::expr_type(body),
-                                                   ASRUtils::expr_type(orelse)));
+                                                   ASRUtils::expr_type(orelse), nullptr, nullptr));
         tmp = ASR::make_IfExp_t(al, x.base.base.loc, test, body, orelse,
                                 ASRUtils::expr_type(body), nullptr);
     }
 
     bool visit_SubscriptIndices(AST::expr_t* m_slice, Vec<ASR::array_index_t>& args,
                                 ASR::expr_t* value, ASR::ttype_t* type, bool& is_item,
-                                const Location& loc) {
+                                const Location& loc, size_t idx=0) {
         ASR::array_index_t ai;
         ai.loc = loc;
         ai.m_left = nullptr;
@@ -3043,9 +4036,15 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
             }
             if (sl->m_step != nullptr) {
                 this->visit_expr(*sl->m_step);
+                ASR::asr_t *tmp_step = tmp;
                 if (!ASRUtils::is_integer(*ASRUtils::expr_type(ASRUtils::EXPR(tmp)))) {
                     throw SemanticError("slice indices must be integers or None", tmp->loc);
                 }
+                ASR::expr_t* val = ASRUtils::expr_value(ASRUtils::EXPR(tmp_step));
+                int64_t const_value = 1;
+                if (ASRUtils::is_value_constant(val, const_value) && const_value == 0) {
+                    throw SemanticError("slice step cannot be zero", tmp_step->loc);
+                }
                 ai.m_step = ASRUtils::EXPR(tmp);
             }
             if( ai.m_left != nullptr &&
@@ -3062,31 +4061,40 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
             if (ASR::is_a<ASR::List_t>(*type)) {
                 tmp = ASR::make_ListSection_t(al, loc, value, ai, type, nullptr);
                 return false;
-            } else if (ASR::is_a<ASR::Character_t>(*type)) {
-                tmp = ASR::make_StringSection_t(al, loc, value, ai.m_left, ai.m_right,
-                    ai.m_step, type, nullptr);
+            } else if (ASR::is_a<ASR::String_t>(*type)) {
+                ASR::ttype_t *int_type = ASRUtils::TYPE(ASR::make_Integer_t(
+                                                al, loc, 4));
+                ASR::expr_t *l = ai.m_left, *r = ai.m_right, *step = ai.m_step; 
+                if (l == nullptr)
+                    l = ASRUtils::EXPR(ASR::make_IntegerConstant_t(al, loc, 1, int_type));
+                if (r == nullptr)
+                    r = ASRUtils::EXPR(ASR::make_StringLen_t(al, loc, value, int_type, nullptr));
+                if (step == nullptr)
+                    step = ASRUtils::EXPR(ASR::make_IntegerConstant_t(al, loc, 1, int_type));
+
+                tmp = ASR::make_StringSection_t(al, loc, value, l, r, step, type, nullptr);
                 return false;
             } else if (ASR::is_a<ASR::Dict_t>(*type)) {
-                throw SemanticError("unhashable type in dict: 'slice'", loc);
+                throw SemanticError("Unhashable type in dict: 'slice'", loc);
             }
         } else if(AST::is_a<AST::Tuple_t>(*m_slice) &&
-                  !ASR::is_a<ASR::Dict_t>(*type)) {
+                    ASRUtils::is_array(type)) {
             bool final_result = true;
             AST::Tuple_t* indices = AST::down_cast<AST::Tuple_t>(m_slice);
             for( size_t i = 0; i < indices->n_elts; i++ ) {
                 final_result &= visit_SubscriptIndices(indices->m_elts[i], args,
-                                                        value, type, is_item, loc);
+                                                        value, type, is_item, loc, i);
             }
             return final_result;
         } else {
             this->visit_expr(*m_slice);
             if (!ASR::is_a<ASR::Dict_t>(*type) &&
                     !ASRUtils::is_integer(*ASRUtils::expr_type(ASRUtils::EXPR(tmp)))) {
-                std::string fnd = ASRUtils::type_to_str_python(ASRUtils::expr_type(ASRUtils::EXPR(tmp)));
+                std::string fnd = ASRUtils::type_to_str_python_expr(ASRUtils::expr_type(ASRUtils::EXPR(tmp)), ASRUtils::EXPR(tmp));
                 diag.add(diag::Diagnostic(
-                    "Type mismatch in index, Index should be of integer type",
+                    "Type mismatch in index, expected a single integer or slice",
                     diag::Level::Error, diag::Stage::Semantic, {
-                        diag::Label("type mismatch (found: '" + fnd + "', expected: 'i32')",
+                        diag::Label("type mismatch (found: '" + fnd + "', expected: 'i32' or slice)",
                                 {tmp->loc})
                     })
                 );
@@ -3096,10 +4104,10 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
             if (ASR::is_a<ASR::Dict_t>(*type)) {
                 index = ASRUtils::EXPR(tmp);
                 ASR::ttype_t *key_type = ASR::down_cast<ASR::Dict_t>(type)->m_key_type;
-                if (!ASRUtils::check_equal_type(ASRUtils::expr_type(index), key_type)) {
-                    throw SemanticError("Key type should be '" + ASRUtils::type_to_str_python(key_type) +
+                if (!ASRUtils::check_equal_type(ASRUtils::expr_type(index), key_type, nullptr, nullptr)) {
+                    throw SemanticError("Key type should be '" + ASRUtils::type_to_str_python_expr(key_type, nullptr) +
                                         "' instead of '" +
-                                        ASRUtils::type_to_str_python(ASRUtils::expr_type(index)) + "'",
+                                        ASRUtils::type_to_str_python_expr(ASRUtils::expr_type(index), index) + "'",
                             index->base.loc);
                 }
                 tmp = make_DictItem_t(al, loc, value, index, nullptr,
@@ -3113,7 +4121,7 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
                     if (ASR::down_cast<ASR::IntegerConstant_t>(val)->m_n < 0) {
                         // Replace `x[-1]` to `x[len(x)+(-1)]`
                         ASR::ttype_t *int_type = ASRUtils::TYPE(ASR::make_Integer_t(
-                                                        al, loc, 4, nullptr, 0));
+                                                        al, loc, 4));
                         ASR::expr_t *list_len = ASRUtils::EXPR(ASR::make_ListLen_t(
                                     al, loc, value, int_type, nullptr));
                         ASR::expr_t *neg_idx = ASRUtils::expr_value(index);
@@ -3125,32 +4133,60 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
                                       ASR::down_cast<ASR::List_t>(type)->m_type, nullptr);
                 return false;
             } else if (ASR::is_a<ASR::Tuple_t>(*type)) {
+                int i = 0;
                 index = ASRUtils::EXPR(tmp);
-                int i = ASR::down_cast<ASR::IntegerConstant_t>(ASRUtils::EXPR(tmp))->m_n;
+                ASR::expr_t* val = ASRUtils::expr_value(index);
+                if (!val) {
+                    throw SemanticError("Runtime Indexing with " + ASRUtils::type_to_str_python_expr(type, index) +
+                    " is not possible.", loc);
+                }
+
+                if (ASR::is_a<ASR::IntegerConstant_t>(*val)) {
+                    i = ASR::down_cast<ASR::IntegerConstant_t>(val)->m_n;
+                    int tuple_size =  ASR::down_cast<ASR::Tuple_t>(type)->n_type;
+                    if (i < 0) {
+                        i = tuple_size + i;
+                        ASR::ttype_t *int_type = ASRUtils::TYPE(ASR::make_Integer_t(al, loc, 4));
+                        index = ASRUtils::EXPR(ASR::make_IntegerConstant_t(
+                            al, loc, i, int_type));
+                    }
+                    if (i >= tuple_size || i < 0) {
+                        throw SemanticError("Tuple index out of bounds", loc);
+                    }
+                } else {
+                    throw SemanticError("Tuple indices must be constant integers", loc);
+                }
                 tmp = make_TupleItem_t(al, loc, value, index,
                                        ASR::down_cast<ASR::Tuple_t>(type)->m_type[i], nullptr);
                 return false;
-            } else {
+            } else if (ASR::is_a<ASR::Array_t>(*type)) {
                 index = ASRUtils::EXPR(tmp);
-            }
-            ai.m_right = index;
-            if (ASRUtils::is_character(*type)) {
                 ASR::expr_t* val = ASRUtils::expr_value(index);
                 if (val && ASR::is_a<ASR::IntegerConstant_t>(*val)) {
                     if (ASR::down_cast<ASR::IntegerConstant_t>(val)->m_n < 0) {
-                        // Replace `x[-1]` to `x[len(x)+(-1)]`
                         ASR::ttype_t *int_type = ASRUtils::TYPE(ASR::make_Integer_t(
-                                                        al, loc, 4, nullptr, 0));
-                        ASR::expr_t *list_len = ASRUtils::EXPR(ASR::make_StringLen_t(
-                                    al, loc, value, int_type, nullptr));
+                                                        al, loc, 4));
                         ASR::expr_t *neg_idx = ASRUtils::expr_value(index);
+                        // null if the dimension is not known at compile time
+                        ASR::expr_t *dim_size = ASR::down_cast<ASR::Array_t>(type)->m_dims[idx].m_length;
+                        ASR::expr_t *idx_expr = ASRUtils::EXPR(ASR::make_IntegerConstant_t(al, loc, idx + 1, int_type));
+                        ASR::expr_t *size_expr = ASRUtils::EXPR(ASRUtils::make_ArraySize_t_util(al, loc, value, idx_expr, int_type, dim_size, false));
                         index = ASRUtils::EXPR(ASR::make_IntegerBinOp_t(al, loc,
-                            list_len, ASR::binopType::Add, neg_idx, int_type, nullptr));
+                            size_expr, ASR::binopType::Add, neg_idx, int_type, nullptr));
                     }
                 }
+            } else {
+                index = ASRUtils::EXPR(tmp);
+            }
+            ai.m_right = index;
+            if (ASRUtils::is_character(*type)) {
                 index = index_add_one(loc, index);
                 ai.m_right = index;
-                tmp = ASR::make_StringItem_t(al, loc, value, index, type, nullptr);
+                tmp = ASR::make_StringItem_t(al, loc, value, index, 
+                                ASRUtils::TYPE(ASR::make_Allocatable_t(al, loc, ASRUtils::TYPE(
+                                             ASR::make_String_t(al, loc, 1, nullptr,
+                                                ASR::string_length_kindType::DeferredLength, 
+                                                ASR::string_physical_typeType::DescriptorString)))), nullptr);
                 return false;
             }
         }
@@ -3160,6 +4196,26 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
 
     void visit_Subscript(const AST::Subscript_t &x) {
         this->visit_expr(*x.m_value);
+        if (using_args_attr) {
+            if (AST::is_a<AST::Attribute_t>(*x.m_value)){
+                AST::Attribute_t *attr = AST::down_cast<AST::Attribute_t>(x.m_value);
+                if (AST::is_a<AST::Name_t>(*attr->m_value)) {
+                    AST::Name_t *var_name = AST::down_cast<AST::Name_t>(attr->m_value);
+                    std::string var = var_name->m_id;
+                    ASR::symbol_t *st = current_scope->resolve_symbol(var);
+                    ASR::expr_t *se = ASR::down_cast<ASR::expr_t>(
+                                    ASR::make_Var_t(al, x.base.base.loc, st));
+                    Vec<ASR::expr_t*> args;
+                    args.reserve(al, 0);
+                    this->visit_expr(*x.m_slice);
+                    ASR::expr_t *index = ASRUtils::EXPR(tmp);
+                    args.push_back(al, index);
+                    tmp = attr_handler.eval_symbolic_get_argument(se, al, x.base.base.loc, args, diag);
+                    using_args_attr = false;
+                    return;
+                }
+            }
+        }
         ASR::expr_t *value = ASRUtils::EXPR(tmp);
         ASR::ttype_t *type = ASRUtils::expr_type(value);
         Vec<ASR::array_index_t> args;
@@ -3182,6 +4238,60 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
             }
         }
         ASR::expr_t* v_Var = value;
+
+        if (ASRUtils::is_character(*type) && args.size() == 1) {
+            args.p[0].m_step = args.p[0].m_step == nullptr ? ASRUtils::EXPR(ASR::make_IntegerConstant_t(
+                                                                        al, x.base.base.loc, 1, ASRUtils::TYPE(
+                                                                        ASR::make_Integer_t(al, x.base.base.loc, 4)))) :
+                                                             args.p[0].m_step;
+            ASR::expr_t *a_len_expr = nullptr;
+            ASR::expr_t *r = args[0].m_right, *l = args[0].m_left, *step = args[0].m_step;
+            ASR::ttype_t* int_type = ASRUtils::TYPE(ASR::make_Integer_t(al, x.base.base.loc, 4));
+            ASR::expr_t* str_len = ASRUtils::EXPR(ASR::make_StringLen_t(al, x.base.base.loc, value, int_type, nullptr));
+            ASRUtils::ASRBuilder b(al, x.base.base.loc);
+
+            if (l == nullptr)
+                l = ASRUtils::EXPR(ASR::make_IntegerConstant_t(al, x.base.base.loc,
+                                                               0, int_type));
+            if (r == nullptr)
+                r = str_len;
+
+            // TODO: Handle negative indices properly
+
+            if (ASRUtils::is_value_constant(r) && 
+                ASRUtils::is_value_constant(l)) {
+                int64_t r_n = ASR::down_cast<ASR::IntegerConstant_t>(ASRUtils::expr_value(r))->m_n;
+                int64_t l_n = ASR::down_cast<ASR::IntegerConstant_t>(ASRUtils::expr_value(l))->m_n;
+                int64_t a_len_value = r - l;
+                a_len_expr = ASRUtils::EXPR(ASR::make_IntegerConstant_t(al, x.base.base.loc, a_len_value, int_type));
+
+                if ( r_n < 0 )
+                    r = b.Add(r, str_len);
+
+                if ( l_n < 0 )
+                    l = b.Add(l, str_len);
+
+                l = b.Add(l, b.i_t(1, int_type));
+
+                if (ASRUtils::is_value_constant(step) && 
+                    ASR::down_cast<ASR::IntegerConstant_t>(ASRUtils::expr_value(step))->m_n < 0) {
+                    LCOMPILERS_ASSERT_MSG(ASR::down_cast<ASR::IntegerConstant_t>(ASRUtils::expr_value(step))->m_n == -1, 
+                                                      "Only negative indexing with -1 is supported")
+                }
+            } else {
+                a_len_expr = b.Sub(r, l);
+                l = b.Add(l, b.i_t(1, int_type));
+            }
+
+            ASR::ttype_t* char_type = ASRUtils::TYPE(
+                ASR::make_String_t(al, x.base.base.loc, 1, a_len_expr, ASR::ExpressionLength, ASR::DescriptorString));
+
+            tmp = ASR::make_StringSection_t(al, x.base.base.loc, v_Var, l, r, step, char_type, nullptr);
+            return;
+        }
+
+
+
         if( is_item ) {
             Vec<ASR::dimension_t> empty_dims;
             empty_dims.reserve(al, 1);
@@ -3189,7 +4299,8 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
                 throw SemanticError("Indexing CPtr typed expressions is not supported yet",
                                     x.base.base.loc);
             }
-            type = ASRUtils::duplicate_type(al, ASRUtils::type_get_past_pointer(type), &empty_dims);
+            type = ASRUtils::duplicate_type(al, ASRUtils::type_get_past_allocatable(
+                ASRUtils::type_get_past_pointer(type)), &empty_dims);
             tmp = ASR::make_ArrayItem_t(al, x.base.base.loc, v_Var, args.p,
                         args.size(), type, ASR::arraystorageType::RowMajor, nullptr);
         } else {
@@ -3224,11 +4335,11 @@ class SymbolTableVisitor : public CommonVisitor<SymbolTableVisitor> {
 
 
     SymbolTableVisitor(Allocator &al, LocationManager &lm, SymbolTable *symbol_table,
-        diag::Diagnostics &diagnostics, bool main_module,
+        diag::Diagnostics &diagnostics, bool main_module, std::string module_name,
         std::map<int, ASR::symbol_t*> &ast_overload, std::string parent_dir,
-        std::string import_path, bool allow_implicit_casting_)
-      : CommonVisitor(al, lm, symbol_table, diagnostics, main_module, ast_overload,
-            parent_dir, import_path, allow_implicit_casting_), is_derived_type{false} {}
+        std::vector<std::string> import_paths, bool allow_implicit_casting_)
+      : CommonVisitor(al, lm, symbol_table, diagnostics, main_module, module_name, ast_overload,
+            parent_dir, import_paths, allow_implicit_casting_), is_derived_type{false} {}
 
 
     ASR::symbol_t* resolve_symbol(const Location &loc, const std::string &sub_name) {
@@ -3241,58 +4352,163 @@ class SymbolTableVisitor : public CommonVisitor<SymbolTableVisitor> {
     }
 
     void visit_Module(const AST::Module_t &x) {
-        if (!current_scope) {
+        ASR::asr_t *tmp0 = nullptr;
+        if (current_scope) {
+            LCOMPILERS_ASSERT(current_scope->asr_owner);
+            tmp0 = current_scope->asr_owner;
+        } else {
             current_scope = al.make_new<SymbolTable>(nullptr);
+            // Create the TU early, so that asr_owner is set, so that
+            // ASRUtils::get_tu_symtab() can be used, which has an assert
+            // for asr_owner.
+            tmp0 = ASR::make_TranslationUnit_t(al, x.base.base.loc,
+            current_scope, nullptr, 0);
         }
-        LCOMPILERS_ASSERT(current_scope != nullptr);
+        LCOMPILERS_ASSERT(ASR::is_a<ASR::unit_t>(*tmp0) &&
+            ASR::is_a<ASR::TranslationUnit_t>(*ASR::down_cast<ASR::unit_t>(tmp0)));
         global_scope = current_scope;
 
-        // Create the TU early, so that asr_owner is set, so that
-        // ASRUtils::get_tu_symtab() can be used, which has an assert
-        // for asr_owner.
-        ASR::asr_t *tmp0 = ASR::make_TranslationUnit_t(al, x.base.base.loc,
-            current_scope, nullptr, 0);
-
-        ASR::Module_t* module_sym = nullptr;
-
-        if (!main_module) {
-            // Main module goes directly to TranslationUnit.
-            // Every other module goes into a Module.
-            SymbolTable *parent_scope = current_scope;
+        // Every module goes into a Module_t
+        SymbolTable *parent_scope = current_scope;
+        if (parent_scope->get_scope().find(module_name) == parent_scope->get_scope().end()) {
+            ASR::Module_t* module_sym = nullptr;
             current_scope = al.make_new<SymbolTable>(parent_scope);
-
-
-            std::string mod_name = "__main__";
             ASR::asr_t *tmp1 = ASR::make_Module_t(al, x.base.base.loc,
                                         /* a_symtab */ current_scope,
-                                        /* a_name */ s2c(al, mod_name),
+                                        /* a_name */ s2c(al, module_name),
+                                        nullptr,
                                         nullptr,
                                         0,
-                                        false, false);
-
-            if (parent_scope->get_scope().find(mod_name) != parent_scope->get_scope().end()) {
-                throw SemanticError("Module '" + mod_name + "' already defined", tmp1->loc);
-            }
+                                        false, false, false);
             module_sym = ASR::down_cast<ASR::Module_t>(ASR::down_cast<ASR::symbol_t>(tmp1));
-            parent_scope->add_symbol(mod_name, ASR::down_cast<ASR::symbol_t>(tmp1));
-        }
-        current_module_dependencies.reserve(al, 1);
-        for (size_t i=0; i<x.n_body; i++) {
-            visit_stmt(*x.m_body[i]);
-        }
-        if( module_sym ) {
+            parent_scope->add_symbol(module_name, ASR::down_cast<ASR::symbol_t>(tmp1));
+            current_module_dependencies.reserve(al, 1);
+            for (size_t i=0; i<x.n_body; i++) {
+                visit_stmt(*x.m_body[i]);
+            }
+
+            LCOMPILERS_ASSERT(module_sym != nullptr);
             module_sym->m_dependencies = current_module_dependencies.p;
             module_sym->n_dependencies = current_module_dependencies.size();
+            if (!overload_defs.empty()) {
+                create_GenericProcedure(x.base.base.loc);
+            }
+        } else {
+            ASR::Module_t* module_sym =
+                ASR::down_cast<ASR::Module_t>(parent_scope->resolve_symbol(module_name));
+            LCOMPILERS_ASSERT(module_sym != nullptr);
+            current_scope = module_sym->m_symtab;
+            for (size_t i=0; i<x.n_body; i++) {
+                visit_stmt(*x.m_body[i]);
+            }
         }
-        if (!overload_defs.empty()) {
-            create_GenericProcedure(x.base.base.loc);
-        }
+
         global_scope = nullptr;
         tmp = tmp0;
     }
 
+    ASR::symbol_t* create_implicit_interface_function(Location &loc, ASR::FunctionType_t *func, std::string func_name) {
+        SymbolTable *parent_scope = current_scope;
+        current_scope = al.make_new<SymbolTable>(parent_scope);
+
+        Vec<ASR::expr_t*> args;
+        args.reserve(al, func->n_arg_types);
+        std::string sym_name = to_lower(func_name);
+        for (size_t i=0; i<func->n_arg_types; i++) {
+            std::string arg_name = sym_name + "_arg_" + std::to_string(i);
+            arg_name = to_lower(arg_name);
+            ASR::symbol_t *v;
+            SetChar variable_dependencies_vec;
+            variable_dependencies_vec.reserve(al, 1);
+            ASRUtils::collect_variable_dependencies(al, variable_dependencies_vec,
+                    func->m_arg_types[i]);
+            v = ASR::down_cast<ASR::symbol_t>(
+                ASR::make_Variable_t(al, loc,
+                current_scope, s2c(al, arg_name), variable_dependencies_vec.p,
+                variable_dependencies_vec.size(), ASRUtils::intent_unspecified,
+                nullptr, nullptr, ASR::storage_typeType::Default, func->m_arg_types[i],
+                nullptr, ASR::abiType::Source, ASR::Public, ASR::presenceType::Required,
+                false, false, false, nullptr, false, false));
+            current_scope->add_symbol(arg_name, v);
+            LCOMPILERS_ASSERT(v != nullptr)
+            args.push_back(al, ASRUtils::EXPR(ASR::make_Var_t(al, loc,
+                v)));
+        }
+
+        ASR::expr_t *to_return = nullptr;
+        if (func->m_return_var_type) {
+            std::string return_var_name = sym_name + "_return_var_name";
+            SetChar variable_dependencies_vec;
+            variable_dependencies_vec.reserve(al, 1);
+            ASRUtils::collect_variable_dependencies(al, variable_dependencies_vec,
+                    func->m_return_var_type);
+            ASR::asr_t *return_var = ASR::make_Variable_t(al, loc,
+                current_scope, s2c(al, return_var_name), variable_dependencies_vec.p,
+                variable_dependencies_vec.size(), ASRUtils::intent_return_var,
+                nullptr, nullptr, ASR::storage_typeType::Default, func->m_return_var_type,
+                nullptr, ASR::abiType::Source, ASR::Public, ASR::presenceType::Required,
+                false, false, false, nullptr, false, false);
+            current_scope->add_symbol(return_var_name, ASR::down_cast<ASR::symbol_t>(return_var));
+            to_return = ASRUtils::EXPR(ASR::make_Var_t(al, loc,
+                ASR::down_cast<ASR::symbol_t>(return_var)));
+        }
+
+        tmp = ASRUtils::make_Function_t_util(
+            al, loc,
+            /* a_symtab */ current_scope,
+            /* a_name */ s2c(al, sym_name),
+            nullptr, 0,
+            /* a_args */ args.p,
+            /* n_args */ args.size(),
+            /* a_body */ nullptr,
+            /* n_body */ 0,
+            /* a_return_var */ to_return,
+            ASR::abiType::BindC, ASR::accessType::Public, ASR::deftypeType::Interface,
+            nullptr, false, false, false, false, false, nullptr, 0, false, false, false);
+        current_scope = parent_scope;
+        return ASR::down_cast<ASR::symbol_t>(tmp);
+    }
+
+    char* extract_keyword_val_from_decorator(AST::Call_t* x, std::string keyword) {
+        for (size_t i=0; i < x->n_keywords; i++) {
+            if (std::string(x->m_keywords[i].m_arg) == keyword) {
+                if (AST::is_a<AST::ConstantStr_t>(*x->m_keywords[i].m_value)) {
+                    std::string module_name = AST::down_cast<AST::ConstantStr_t>(
+                                x->m_keywords[i].m_value)->m_value;
+                    return s2c(al, module_name);
+                } else {
+                    throw SemanticError("module should be constant string in ccall",
+                        x->base.base.loc);
+                }
+            }
+        }
+        return nullptr;
+    }
+
+    // Implement visit_While for Symbol Table visitor.
+    void visit_While(const AST::While_t &/*x*/) {}
+
+    // Implement visit_Delete for Symbol Table visitor.
+    void visit_Delete(const AST::Delete_t &/*x*/) {}
+
+    // Implement visit_Pass for Symbol Table visitor.
+    void visit_Pass(const AST::Pass_t &/*x*/) {}
+
+    // Implement visit_Return for Symbol Table visitor.
+    void visit_Return(const AST::Return_t &/*x*/) {}
+
+    // Implement visit_Raise for Symbol Table visitor.
+    void visit_Raise(const AST::Raise_t &/*x*/) {}
+
+    // Implement visit_Global for Symbol Table visitor.
+    void visit_Global(const AST::Global_t &/*x*/) {}
+
+    void visit_init_body (const AST::FunctionDef_t &/*x*/, ASR::symbol_t* /*parent_sym*/, const Location /*loc*/) {
+        //Implemented in BodyVisitor
+    }
+
     void visit_FunctionDef(const AST::FunctionDef_t &x) {
-        dependencies.clear();
+        dependencies.clear(al);
         SymbolTable *parent_scope = current_scope;
         current_scope = al.make_new<SymbolTable>(parent_scope);
         Vec<ASR::expr_t*> args;
@@ -3301,12 +4517,10 @@ class SymbolTableVisitor : public CommonVisitor<SymbolTableVisitor> {
         bool current_procedure_interface = false;
         bool overload = false;
         bool vectorize = false, is_inline = false, is_static = false;
-        Vec<ASR::ttype_t*> tps;
-        tps.reserve(al, x.m_args.n_args);
         bool is_restriction = false;
         bool is_deterministic = false;
         bool is_side_effect_free = false;
-
+        char *bindc_name=nullptr, *module_file=nullptr;
         if (x.n_decorator_list > 0) {
             for(size_t i=0; i<x.n_decorator_list; i++) {
                 AST::expr_t *dec = x.m_decorator_list[i];
@@ -3317,6 +4531,11 @@ class SymbolTableVisitor : public CommonVisitor<SymbolTableVisitor> {
                         current_procedure_interface = true;
                     } else if (name == "ccallback" || name == "ccallable") {
                         current_procedure_abi_type = ASR::abiType::BindC;
+                    } else if (name == "pythoncall" || name == "pythoncallable") {
+                        current_procedure_abi_type = ASR::abiType::BindPython;
+                        current_procedure_interface = (name == "pythoncall");
+                    } else if (name == "jscall") {
+                        current_procedure_abi_type = ASR::abiType::BindJS;
                     } else if (name == "overload") {
                         overload = true;
                     } else if (name == "interface") {
@@ -3325,15 +4544,37 @@ class SymbolTableVisitor : public CommonVisitor<SymbolTableVisitor> {
                         vectorize = true;
                     } else if (name == "restriction") {
                         is_restriction = true;
-                    } else if (name == "with_goto") {
-                        // TODO: Use goto attribute in function?
                     } else if (name == "inline") {
                         is_inline = true;
                     } else if (name == "static") {
                         is_static = true;
+                    } else if (name == "lpython") {
+                        throw SemanticError("`@lpython` decorator must be "
+                            "run from CPython, not compiled using LPython",
+                            dec->base.loc);
                     } else {
                         throw SemanticError("Decorator: " + name + " is not supported",
-                            x.base.base.loc);
+                            dec->base.loc);
+                    }
+                } else if (AST::is_a<AST::Call_t>(*dec)) {
+                    AST::Call_t *call_d = AST::down_cast<AST::Call_t>(dec);
+                    if (AST::is_a<AST::Name_t>(*call_d->m_func)) {
+                        std::string name = AST::down_cast<AST::Name_t>(call_d->m_func)->m_id;
+                        if (name == "ccall" || name == "ccallable") {
+                            current_procedure_abi_type = ASR::abiType::BindC;
+                            current_procedure_interface = (name == "ccall");
+                            module_file = extract_keyword_val_from_decorator(call_d, "header");
+                        } else if (name == "pythoncall") {
+                            current_procedure_abi_type = ASR::abiType::BindPython;
+                            current_procedure_interface = true;
+                            module_file = extract_keyword_val_from_decorator(call_d, "module");
+                        } else {
+                            throw SemanticError("Unsupported Decorator type",
+                                    x.base.base.loc);
+                        }
+                    } else {
+                        throw SemanticError("Only Name is supported in Call decorators for now",
+                                x.base.base.loc);
                     }
                 } else {
                     throw SemanticError("Unsupported Decorator type",
@@ -3358,109 +4599,144 @@ class SymbolTableVisitor : public CommonVisitor<SymbolTableVisitor> {
         if (parent_scope->get_scope().find(sym_name) != parent_scope->get_scope().end()) {
             throw SemanticError("Function " + std::string(x.m_name) +  " is already defined", x.base.base.loc);
         }
-
+        bool is_allocatable = false, is_const = false;
+        size_t default_arg_index_start = x.m_args.n_args - x.m_args.n_defaults;
         for (size_t i=0; i<x.m_args.n_args; i++) {
             char *arg=x.m_args.m_args[i].m_arg;
             Location loc = x.m_args.m_args[i].loc;
             if (x.m_args.m_args[i].m_annotation == nullptr) {
                 throw SemanticError("Argument does not have a type", loc);
             }
-            ASR::ttype_t *arg_type = ast_expr_to_asr_type(x.base.base.loc, *x.m_args.m_args[i].m_annotation);
-            // Set the function as generic if an argument is typed with a type parameter
-            if (ASRUtils::is_generic(*arg_type)) {
-                ASR::ttype_t* arg_type_type = ASRUtils::get_type_parameter(arg_type);
-                ASR::ttype_t *new_tt = ASRUtils::duplicate_type_without_dims(al, arg_type_type, arg_type_type->base.loc);
-                size_t current_size = tps.size();
-                if (current_size == 0) {
-                    tps.push_back(al, new_tt);
-                } else {
-                    bool not_found = true;
-                    for (size_t i = 0; i < current_size; i++) {
-                        ASR::TypeParameter_t *added_tp = ASR::down_cast<ASR::TypeParameter_t>(tps.p[i]);
-                        std::string new_param = ASR::down_cast<ASR::TypeParameter_t>(new_tt)->m_param;
-                        std::string added_param = added_tp->m_param;
-                        if (added_param.compare(new_param) == 0) {
-                            not_found = false; break;
-                        }
-                    }
-                    if (not_found) {
-                        tps.push_back(al, new_tt);
-                    }
-                }
+            ASR::intentType s_intent = ASRUtils::intent_unspecified;
+            AST::expr_t* arg_annotation_type = get_var_intent_and_annotation(x.m_args.m_args[i].m_annotation, s_intent);
+            ASR::symbol_t* type_decl = nullptr;
+            is_allocatable = false;
+            is_const = false;
+            ASR::ttype_t *arg_type = ast_expr_to_asr_type(x.base.base.loc, *arg_annotation_type,
+                 type_decl, is_allocatable, is_const, true, current_procedure_abi_type, s_intent != ASR::intentType::Local);
+            if ((s_intent == ASRUtils::intent_inout || s_intent == ASRUtils::intent_out)
+                && !ASRUtils::is_aggregate_type(arg_type)) {
+                throw SemanticError("Simple Type " + ASRUtils::type_to_str_python_expr(arg_type, nullptr)
+                    + " cannot be intent InOut/Out", loc);
             }
 
             std::string arg_s = arg;
-
             ASR::expr_t *value = nullptr;
             ASR::expr_t *init_expr = nullptr;
-            ASR::intentType s_intent = ASRUtils::intent_in;
-            if (ASRUtils::is_array(arg_type)) {
-                s_intent = ASRUtils::intent_inout;
+            bool is_optional_arg = i>=default_arg_index_start;
+            if (is_optional_arg){
+                size_t default_arg_index = i - default_arg_index_start;
+                this->visit_expr(*(x.m_args.m_defaults[default_arg_index]));
+                init_expr = ASRUtils::EXPR(tmp);
+                /**/
+                /*Vec<ASR::alloc_arg_t> alloc_args; alloc_args.reserve(al, 1);*/
+                /*ASR::alloc_arg_t alloc_arg;*/
+                /*alloc_arg.loc = loc;*/
+                /*alloc_arg.m_a = init_expr;*/
+                /*alloc_arg.m_dims = nullptr;*/
+                /*alloc_arg.n_dims = 0;*/
+                /*alloc_arg.m_type = nullptr;*/
+                /*alloc_arg.m_len_expr = nullptr;*/
+                /*alloc_arg.m_sym_subclass = nullptr;*/
+                /*alloc_args.push_back(al, alloc_arg);*/
+                /*init_expr = ASRUtils::STMT(ASR::make_Allocate_t(al, loc, alloc_args.p, 1, nullptr, nullptr, nullptr));*/
+
+            }
+            if (s_intent == ASRUtils::intent_unspecified) {
+                s_intent = ASRUtils::intent_in;
+                if (ASRUtils::is_array(arg_type)) {
+                    s_intent = ASRUtils::intent_inout;
+                }
             }
             ASR::storage_typeType storage_type =
                     ASR::storage_typeType::Default;
-            if( ASR::is_a<ASR::Const_t>(*arg_type) ) {
+            if( is_const ) {
                 storage_type = ASR::storage_typeType::Parameter;
             }
+            if (is_allocatable) {
+                LCOMPILERS_ASSERT(storage_type != ASR::storage_typeType::Parameter);
+                arg_type = ASRUtils::TYPE(ASR::make_Allocatable_t(al, loc,
+                   ASRUtils::type_get_past_pointer(arg_type)));
+            }
             ASR::accessType s_access = ASR::accessType::Public;
             ASR::presenceType s_presence = ASR::presenceType::Required;
+            if (is_optional_arg){
+            	s_presence = ASR::presenceType::Optional;
+            }
             bool value_attr = false;
             if (current_procedure_abi_type == ASR::abiType::BindC) {
                 value_attr = true;
             }
-            Vec<char*> variable_dependencies_vec;
-            variable_dependencies_vec.reserve(al, 1);
-            ASRUtils::collect_variable_dependencies(al, variable_dependencies_vec, arg_type, init_expr, value);
-            ASR::asr_t *v = ASR::make_Variable_t(al, loc, current_scope,
-                    s2c(al, arg_s), variable_dependencies_vec.p,
-                    variable_dependencies_vec.size(),
-                    s_intent, init_expr, value, storage_type, arg_type,
-                    current_procedure_abi_type, s_access, s_presence,
-                    value_attr);
-            current_scope->add_symbol(arg_s, ASR::down_cast<ASR::symbol_t>(v));
-
-            ASR::symbol_t *var = current_scope->get_symbol(arg_s);
+            ASR::symbol_t *v;
+            if (ASR::is_a<ASR::FunctionType_t>(*arg_type)) {
+                ASR::FunctionType_t *func = ASR::down_cast<ASR::FunctionType_t>(arg_type);
+                v = create_implicit_interface_function(loc, func, arg_s);
+            } else {
+                SetChar variable_dependencies_vec;
+                variable_dependencies_vec.reserve(al, 1);
+                ASRUtils::collect_variable_dependencies(al, variable_dependencies_vec, arg_type, init_expr, value);
+                ASR::asr_t *_tmp = ASR::make_Variable_t(al, loc, current_scope,
+                        s2c(al, arg_s), variable_dependencies_vec.p,
+                        variable_dependencies_vec.size(),
+                        s_intent, init_expr, value, storage_type, arg_type,
+                        type_decl, current_procedure_abi_type, s_access, s_presence,
+                        value_attr, false, false, nullptr, false, false);
+                v = ASR::down_cast<ASR::symbol_t>(_tmp);
+
+            }
+            if (current_scope->get_scope().find(arg_s) !=
+                    current_scope->get_scope().end()) {
+                ASR::symbol_t *orig_decl = current_scope->get_symbol(arg_s);
+                throw SemanticError(diag::Diagnostic(
+                    "Parameter is already declared",
+                    diag::Level::Error, diag::Stage::Semantic, {
+                        diag::Label("original declaration", {orig_decl->base.loc}, false),
+                        diag::Label("redeclaration", {v->base.loc}),
+                    }));
+            }
+            current_scope->add_symbol(arg_s, v);
             args.push_back(al, ASRUtils::EXPR(ASR::make_Var_t(al, x.base.base.loc,
-                var)));
+                v)));
         }
         ASR::accessType s_access = ASR::accessType::Public;
         ASR::deftypeType deftype = ASR::deftypeType::Implementation;
-        if (current_procedure_abi_type == ASR::abiType::BindC &&
-                current_procedure_interface) {
+        if (current_procedure_interface) {
             deftype = ASR::deftypeType::Interface;
         }
-        char *bindc_name=nullptr;
         if (x.m_returns && !AST::is_a<AST::ConstantNone_t>(*x.m_returns)) {
             if (AST::is_a<AST::Name_t>(*x.m_returns) || AST::is_a<AST::Subscript_t>(*x.m_returns)) {
                 std::string return_var_name = "_lpython_return_variable";
-                ASR::ttype_t *type = ast_expr_to_asr_type(x.m_returns->base.loc, *x.m_returns);
+                is_allocatable = false;
+                ASR::symbol_t* type_decl = nullptr;
+                ASR::ttype_t *type = ast_expr_to_asr_type(x.m_returns->base.loc,
+                    *x.m_returns, type_decl, is_allocatable, is_const, true, current_procedure_abi_type, true);
                 ASR::storage_typeType storage_type = ASR::storage_typeType::Default;
-                if( ASR::is_a<ASR::Const_t>(*type) ) {
+                if (is_allocatable) {
+                    type = ASRUtils::TYPE(ASR::make_Allocatable_t(al, x.m_returns->base.loc,
+                        ASRUtils::type_get_past_pointer(type)));
+                }
+                if (is_const) {
                     storage_type = ASR::storage_typeType::Parameter;
                 }
-                Vec<char*> variable_dependencies_vec;
+                SetChar variable_dependencies_vec;
                 variable_dependencies_vec.reserve(al, 1);
                 ASRUtils::collect_variable_dependencies(al, variable_dependencies_vec, type);
                 ASR::asr_t *return_var = ASR::make_Variable_t(al, x.m_returns->base.loc,
                     current_scope, s2c(al, return_var_name), variable_dependencies_vec.p,
                     variable_dependencies_vec.size(), ASRUtils::intent_return_var,
-                    nullptr, nullptr, storage_type, type, current_procedure_abi_type, ASR::Public,
-                    ASR::presenceType::Required, false);
+                    nullptr, nullptr, storage_type, type, type_decl, current_procedure_abi_type, ASR::Public,
+                    ASR::presenceType::Required, false, false, false, nullptr, false, false);
                 LCOMPILERS_ASSERT(current_scope->get_scope().find(return_var_name) == current_scope->get_scope().end())
                 current_scope->add_symbol(return_var_name,
                         ASR::down_cast<ASR::symbol_t>(return_var));
+                ASR::Variable_t* return_variable = ASR::down_cast<ASR::Variable_t>(ASR::down_cast<ASR::symbol_t>(return_var));
                 ASR::asr_t *return_var_ref = ASR::make_Var_t(al, x.base.base.loc,
                     current_scope->get_symbol(return_var_name));
-                Vec<char*> func_deps;
-                func_deps.reserve(al, dependencies.size());
-                for( auto& dep: dependencies ) {
-                    func_deps.push_back(al, s2c(al, dep));
-                }
                 tmp = ASRUtils::make_Function_t_util(
                     al, x.base.base.loc,
                     /* a_symtab */ current_scope,
                     /* a_name */ s2c(al, sym_name),
-                    func_deps.p, func_deps.size(),
+                    dependencies.p, dependencies.size(),
                     /* a_args */ args.p,
                     /* n_args */ args.size(),
                     /* a_body */ nullptr,
@@ -3468,23 +4744,27 @@ class SymbolTableVisitor : public CommonVisitor<SymbolTableVisitor> {
                     /* a_return_var */ ASRUtils::EXPR(return_var_ref),
                     current_procedure_abi_type,
                     s_access, deftype, bindc_name, vectorize, false, false, is_inline, is_static,
-                    tps.p, tps.size(), nullptr, 0, is_restriction, is_deterministic, is_side_effect_free);
+                    nullptr, 0,
+                    is_restriction, is_deterministic, is_side_effect_free,
+                    module_file);
+                    return_variable->m_type = type;
             } else {
                 throw SemanticError("Return variable must be an identifier (Name AST node) or an array (Subscript AST node)",
                     x.m_returns->base.loc);
             }
         } else {
             bool is_pure = false, is_module = false;
-            Vec<char*> func_deps;
-            func_deps.reserve(al, dependencies.size());
-            for( auto& dep: dependencies ) {
-                func_deps.push_back(al, s2c(al, dep));
+
+            // This checks for internal function defintions as well.
+            for (size_t i = 0; i < x.n_body; i++) {
+                visit_stmt(*x.m_body[i]);
             }
+
             tmp = ASRUtils::make_Function_t_util(
                 al, x.base.base.loc,
                 /* a_symtab */ current_scope,
                 /* a_name */ s2c(al, sym_name),
-                func_deps.p, func_deps.size(),
+                dependencies.p, dependencies.size(),
                 /* a_args */ args.p,
                 /* n_args */ args.size(),
                 /* a_body */ nullptr,
@@ -3493,7 +4773,9 @@ class SymbolTableVisitor : public CommonVisitor<SymbolTableVisitor> {
                 current_procedure_abi_type,
                 s_access, deftype, bindc_name,
                 false, is_pure, is_module, is_inline, is_static,
-                tps.p, tps.size(), nullptr, 0, is_restriction, is_deterministic, is_side_effect_free);
+                nullptr, 0,
+                is_restriction, is_deterministic, is_side_effect_free,
+                module_file);
         }
         ASR::symbol_t * t = ASR::down_cast<ASR::symbol_t>(tmp);
         parent_scope->add_symbol(sym_name, t);
@@ -3533,43 +4815,31 @@ class SymbolTableVisitor : public CommonVisitor<SymbolTableVisitor> {
         }
 
         /*
-            Return in case of ltypes module.
+            Return in case of lpython module.
             TODO: Restrict the check only if
-            ltypes is the same module as src/runtime/ltypes
-            For now its wild card i.e., ltypes.py present
+            lpython is the same module as src/runtime/lpython
+            For now its wild card i.e., lpython.py present
             in any directory other than src/runtime will also
             be ignored.
         */
-        if (mod_sym == "ltypes") {
+        if (mod_sym == "lpython" || mod_sym == "numpy") {
             return ;
         }
 
-        /*
-            If import_path is not empty then insert it
-            in the second priority. Top priority path
-            is runtime library path.
-        */
-        if( import_path != "" ) {
-            paths.insert(paths.begin() + 1, import_path);
-        }
-
         /*
             Search all the paths in order and stop
             when the desired module is found.
         */
-        bool module_found = false;
+        std::string path_found = "";
         for( auto& path: paths ) {
             if(is_directory(path + "/" + directory + mod_sym)) {
-                module_found = true;
                 // Directory i.e., x/y/__init__.py
-                path += '/' + directory + mod_sym;
+                path_found = path + '/' + directory + mod_sym;
                 mod_sym = "__init__";
+                break;
             } else if(path_exists(path + "/" + directory + mod_sym + ".py")) {
-                module_found = true;
                 // File i.e., x/y.py
-                path += '/' + directory;
-            }
-            if( module_found ) {
+                path_found = path + '/' + directory;
                 break;
             }
         }
@@ -3579,15 +4849,27 @@ class SymbolTableVisitor : public CommonVisitor<SymbolTableVisitor> {
             specified and if its a directory
             then prioritise the directory itself.
         */
-        if( !module_found ) {
+        if( path_found.empty() ) {
             if (is_directory(directory + mod_sym)) {
                 // Directory i.e., x/__init__.py
-                paths.insert(paths.begin(), directory + mod_sym);
                 mod_sym = "__init__";
+                path_found = directory + mod_sym;
             } else if (path_exists(directory + mod_sym + ".py")) {
-                paths.insert(paths.begin(), directory);
+                path_found = directory;
             }
         }
+
+        // Update paths to contain only the found path (if found)
+        // so that later load_module() should only use this path
+        // to read the package/module file
+        // load_module() need not search through all paths again
+        if (path_found.empty()) {
+            // include the runtime library dir so that later
+            // runtime library modules could be imported
+            paths = {get_runtime_library_dir()};
+        } else {
+            paths = {path_found};
+        }
     }
 
     void visit_ImportFrom(const AST::ImportFrom_t &x) {
@@ -3595,28 +4877,26 @@ class SymbolTableVisitor : public CommonVisitor<SymbolTableVisitor> {
             throw SemanticError("Not implemented: The import statement must currently specify the module name", x.base.base.loc);
         }
         std::string msym = x.m_module; // Module name
-        std::vector<std::string> mod_symbols;
-        for (size_t i=0; i<x.n_names; i++) {
-            mod_symbols.push_back(x.m_names[i].m_name);
-        }
 
         // Get the module, for now assuming it is not loaded, so we load it:
         ASR::symbol_t *t = nullptr; // current_scope->parent->resolve_symbol(msym);
         if (!t) {
             std::string rl_path = get_runtime_library_dir();
-            SymbolTable *st = current_scope;
-            std::vector<std::string> paths = {rl_path, parent_dir};
-            if (!main_module) {
-                st = st->parent;
+            std::vector<std::string> paths;
+            for (auto &path:import_paths) {
+                paths.push_back(path);
             }
-            bool ltypes, enum_py, copy;
+            paths.push_back(rl_path);
+            paths.push_back(parent_dir);
+
+            bool lpython, enum_py, copy, sympy;
             set_module_symbol(msym, paths);
-            t = (ASR::symbol_t*)(load_module(al, st,
-                msym, x.base.base.loc, diag, lm, false, paths, ltypes, enum_py, copy,
+            t = (ASR::symbol_t*)(load_module(al, global_scope,
+                msym, x.base.base.loc, diag, lm, false, paths, lpython, enum_py, copy, sympy,
                 [&](const std::string &msg, const Location &loc) { throw SemanticError(msg, loc); },
                 allow_implicit_casting));
-            if (ltypes || enum_py || copy) {
-                // TODO: For now we skip ltypes import completely. Later on we should note what symbols
+            if (lpython || enum_py || copy || sympy) {
+                // TODO: For now we skip lpython import completely. Later on we should note what symbols
                 // got imported from it, and give an error message if an annotation is used without
                 // importing it.
                 tmp = nullptr;
@@ -3628,9 +4908,7 @@ class SymbolTableVisitor : public CommonVisitor<SymbolTableVisitor> {
             }
             if( msym == "__init__" ) {
                 for( auto item: ASRUtils::symbol_symtab(t)->get_scope() ) {
-                    if( ASR::is_a<ASR::ExternalSymbol_t>(*item.second) &&
-                        !present(current_module_dependencies,
-                        ASR::down_cast<ASR::ExternalSymbol_t>(item.second)->m_module_name) ) {
+                    if( ASR::is_a<ASR::ExternalSymbol_t>(*item.second) ) {
                         current_module_dependencies.push_back(al,
                             ASR::down_cast<ASR::ExternalSymbol_t>(item.second)->m_module_name);
                     }
@@ -3641,14 +4919,32 @@ class SymbolTableVisitor : public CommonVisitor<SymbolTableVisitor> {
         }
 
         ASR::Module_t *m = ASR::down_cast<ASR::Module_t>(t);
-        for (auto &remote_sym : mod_symbols) {
+        int i = -1;
+        for (size_t j=0; j<x.n_names; j++) {
+            std::string remote_sym = x.m_names[j].m_name;
+            i++;
             if( procedures_db.is_function_to_be_ignored(msym, remote_sym) ) {
                 continue ;
             }
             std::string new_sym_name = ASRUtils::get_mangled_name(m, remote_sym);
+            if (x.m_names[j].m_asname) {
+                new_sym_name = ASRUtils::get_mangled_name(m, x.m_names[j].m_asname);
+            }
             ASR::symbol_t *t = import_from_module(al, m, current_scope, msym,
-                                remote_sym, new_sym_name, x.base.base.loc, true);
-            current_scope->add_symbol(new_sym_name, t);
+                                remote_sym, new_sym_name, x.m_names[i].loc, true);
+            if (current_scope->get_scope().find(new_sym_name) != current_scope->get_scope().end()) {
+                ASR::symbol_t *old_sym = current_scope->get_scope().find(new_sym_name)->second;
+                diag.add(diag::Diagnostic(
+                    "The symbol '" + new_sym_name + "' imported from " + std::string(m->m_name) +" will shadow the existing symbol '" + new_sym_name + "'",
+                    diag::Level::Warning, diag::Stage::Semantic, {
+                        diag::Label("old symbol", {old_sym->base.loc}),
+                        diag::Label("new symbol", {t->base.loc}),
+                    })
+                );
+                current_scope->overwrite_symbol(new_sym_name, t);
+            } else {
+                current_scope->add_symbol(new_sym_name, t);
+            }
         }
 
         tmp = nullptr;
@@ -3657,24 +4953,25 @@ class SymbolTableVisitor : public CommonVisitor<SymbolTableVisitor> {
     void visit_Import(const AST::Import_t &x) {
         ASR::symbol_t *t = nullptr;
         std::string rl_path = get_runtime_library_dir();
-        std::vector<std::string> paths = {rl_path, parent_dir};
-        SymbolTable *st = current_scope;
+        std::vector<std::string> paths;
+        for (auto &path:import_paths) {
+            paths.push_back(path);
+        }
+        paths.push_back(rl_path);
+        paths.push_back(parent_dir);
         std::vector<std::string> mods;
         for (size_t i=0; i<x.n_names; i++) {
             mods.push_back(x.m_names[i].m_name);
         }
-        if (!main_module) {
-            st = st->parent;
-        }
         for (auto &mod_sym : mods) {
-            bool ltypes, enum_py, copy;
+            bool lpython, enum_py, copy, sympy;
             set_module_symbol(mod_sym, paths);
-            t = (ASR::symbol_t*)(load_module(al, st,
-                mod_sym, x.base.base.loc, diag, lm, false, paths, ltypes, enum_py, copy,
+            t = (ASR::symbol_t*)(load_module(al, global_scope,
+                mod_sym, x.base.base.loc, diag, lm, false, paths, lpython, enum_py, copy, sympy,
                 [&](const std::string &msg, const Location &loc) { throw SemanticError(msg, loc); },
                 allow_implicit_casting));
-            if (ltypes || enum_py || copy) {
-                // TODO: For now we skip ltypes import completely. Later on we should note what symbols
+            if (lpython || enum_py || copy || sympy) {
+                // TODO: For now we skip lpython import completely. Later on we should note what symbols
                 // got imported from it, and give an error message if an annotation is used without
                 // importing it.
                 tmp = nullptr;
@@ -3684,9 +4981,23 @@ class SymbolTableVisitor : public CommonVisitor<SymbolTableVisitor> {
                 throw SemanticError("The module '" + mod_sym + "' cannot be loaded",
                         x.base.base.loc);
             }
+            if( mod_sym == "__init__" ) {
+                for( auto item: ASRUtils::symbol_symtab(t)->get_scope() ) {
+                    if( ASR::is_a<ASR::ExternalSymbol_t>(*item.second) ) {
+                        current_module_dependencies.push_back(al,
+                            ASR::down_cast<ASR::ExternalSymbol_t>(item.second)->m_module_name);
+                    }
+                }
+            } else {
+                current_module_dependencies.push_back(al, s2c(al, mod_sym));
+            }
         }
     }
 
+    void visit_AugAssign(const AST::AugAssign_t &/*x*/) {
+        // We skip this in the SymbolTable visitor, but visit it in the BodyVisitor
+    }
+
     void visit_AnnAssign(const AST::AnnAssign_t &/*x*/) {
         // We skip this in the SymbolTable visitor, but visit it in the BodyVisitor
     }
@@ -3706,11 +5017,11 @@ class SymbolTableVisitor : public CommonVisitor<SymbolTableVisitor> {
                     if (AST::is_a<AST::Name_t>(*x.m_targets[0])) {
                         std::string tvar_name = AST::down_cast<AST::Name_t>(x.m_targets[0])->m_id;
                         // Check if the type variable name is a reserved type keyword
-                        const char* type_list[14]
+                        const char* type_list[15]
                             = { "list", "set", "dict", "tuple",
                                 "i8", "i16", "i32", "i64", "f32",
-                                "f64", "c32", "c64", "str", "bool"};
-                        for (int i = 0; i < 14; i++) {
+                                "f64", "c32", "c64", "str", "bool", "i1"};
+                        for (int i = 0; i < 15; i++) {
                             if (strcmp(s2c(al, tvar_name), type_list[i]) == 0) {
                                 throw SemanticError(tvar_name + " is a reserved type, consider a different type variable name",
                                     x.base.base.loc);
@@ -3733,28 +5044,26 @@ class SymbolTableVisitor : public CommonVisitor<SymbolTableVisitor> {
                         dims.reserve(al, 4);
 
                         ASR::ttype_t *type = ASRUtils::TYPE(ASR::make_TypeParameter_t(al, x.base.base.loc,
-                            s2c(al, tvar_name), dims.p, dims.size()));
+                            s2c(al, tvar_name)));
+                        type = ASRUtils::make_Array_t_util(al, x.base.base.loc, type, dims.p, dims.size());
 
                         ASR::expr_t *value = nullptr;
                         ASR::expr_t *init_expr = nullptr;
                         ASR::intentType s_intent = ASRUtils::intent_local;
                         ASR::storage_typeType storage_type = ASR::storage_typeType::Default;
-                        if( ASR::is_a<ASR::Const_t>(*type) ) {
-                            storage_type = ASR::storage_typeType::Parameter;
-                        }
                         ASR::abiType current_procedure_abi_type = ASR::abiType::Source;
                         ASR::accessType s_access = ASR::accessType::Public;
                         ASR::presenceType s_presence = ASR::presenceType::Required;
                         bool value_attr = false;
 
-                        Vec<char*> variable_dependencies_vec;
+                        SetChar variable_dependencies_vec;
                         variable_dependencies_vec.reserve(al, 1);
                         ASRUtils::collect_variable_dependencies(al, variable_dependencies_vec, type, init_expr, value);
                         // Build the variable and add it to the scope
                         ASR::asr_t *v = ASR::make_Variable_t(al, x.base.base.loc, current_scope,
                             s2c(al, tvar_name), variable_dependencies_vec.p, variable_dependencies_vec.size(),
-                            s_intent, init_expr, value, storage_type, type, current_procedure_abi_type,
-                            s_access, s_presence, value_attr);
+                            s_intent, init_expr, value, storage_type, type, nullptr, current_procedure_abi_type,
+                            s_access, s_presence, value_attr, false, false, nullptr, false, false);
                         current_scope->add_symbol(tvar_name, ASR::down_cast<ASR::symbol_t>(v));
 
                         tmp = nullptr;
@@ -3776,15 +5085,28 @@ class SymbolTableVisitor : public CommonVisitor<SymbolTableVisitor> {
     void visit_For(const AST::For_t &/*x*/) {
         // We skip this in the SymbolTable visitor, but visit it in the BodyVisitor
     }
+
+    void visit_Assert(const AST::Assert_t &/*x*/) {
+        // We skip this in the SymbolTable visitor, but visit it in the BodyVisitor
+    }
+
+    void visit_If(const AST::If_t &/*x*/) {
+        // We skip this in the SymbolTable visitor, but visit it in the BodyVisitor
+    }
+
+    void visit_Call(const AST::Call_t &/*x*/) {
+        // We skip this in the SymbolTable visitor, but visit it in the BodyVisitor
+    }
 };
 
-Result<ASR::asr_t*> symbol_table_visitor(Allocator &al, LocationManager &lm, const AST::Module_t &ast,
-        diag::Diagnostics &diagnostics, bool main_module,
+Result<ASR::asr_t*> symbol_table_visitor(Allocator &al, LocationManager &lm,
+        SymbolTable* symtab, const AST::Module_t &ast,
+        diag::Diagnostics &diagnostics, bool main_module, std::string module_name,
         std::map<int, ASR::symbol_t*> &ast_overload, std::string parent_dir,
-        std::string import_path, bool allow_implicit_casting)
+        std::vector<std::string> import_paths, bool allow_implicit_casting)
 {
-    SymbolTableVisitor v(al, lm, nullptr, diagnostics, main_module, ast_overload,
-        parent_dir, import_path, allow_implicit_casting);
+    SymbolTableVisitor v(al, lm, symtab, diagnostics, main_module, module_name, ast_overload,
+        parent_dir, import_paths, allow_implicit_casting);
     try {
         v.visit_Module(ast);
     } catch (const SemanticError &e) {
@@ -3804,21 +5126,20 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
 
 public:
     ASR::asr_t *asr;
-    std::map<std::string, std::tuple<int64_t, bool, Location>> goto_name2id;
-    int64_t gotoids;
-
+    std::vector<ASR::symbol_t*> do_loop_variables;
+    bool using_func_attr = false;
+    size_t eval_count;
 
     BodyVisitor(Allocator &al, LocationManager &lm, ASR::asr_t *unit, diag::Diagnostics &diagnostics,
-         bool main_module, std::map<int, ASR::symbol_t*> &ast_overload,
-         bool allow_implicit_casting_)
-         : CommonVisitor(al, lm, nullptr, diagnostics, main_module, ast_overload, "", "", allow_implicit_casting_),
-         asr{unit}, gotoids{0}
+         bool main_module, std::string module_name, std::map<int, ASR::symbol_t*> &ast_overload,
+         bool allow_implicit_casting_, size_t eval_count=0)
+         : CommonVisitor(al, lm, nullptr, diagnostics, main_module, module_name, ast_overload, "", {}, allow_implicit_casting_),
+         asr{unit}, eval_count{eval_count}
          {}
 
     // Transforms statements to a list of ASR statements
     // In addition, it also inserts the following nodes if needed:
     //   * ImplicitDeallocate
-    //   * GoToTarget
     // The `body` Vec must already be reserved
     void transform_stmts(Vec<ASR::stmt_t*> &body, size_t n_body, AST::stmt_t **m_body) {
         tmp = nullptr;
@@ -3829,11 +5150,17 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
             // Visit the statement
             this->visit_stmt(*m_body[i]);
             if (tmp != nullptr) {
+                if (ASR::is_a<ASR::expr_t>(*tmp)) {
+                    tmp = make_dummy_assignment(ASRUtils::EXPR(tmp));
+                }
                 ASR::stmt_t* tmp_stmt = ASRUtils::STMT(tmp);
                 body.push_back(al, tmp_stmt);
             } else if (!tmp_vec.empty()) {
                 for (auto t: tmp_vec) {
                     if (t != nullptr) {
+                        if (ASR::is_a<ASR::expr_t>(*t)) {
+                            t = make_dummy_assignment(ASRUtils::EXPR(t));
+                        }
                         ASR::stmt_t* tmp_stmt = ASRUtils::STMT(t);
                         body.push_back(al, tmp_stmt);
                     }
@@ -3849,17 +5176,17 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
 
     void visit_Module(const AST::Module_t &x) {
         ASR::TranslationUnit_t *unit = ASR::down_cast2<ASR::TranslationUnit_t>(asr);
-        current_scope = unit->m_global_scope;
+        current_scope = unit->m_symtab;
         LCOMPILERS_ASSERT(current_scope != nullptr);
-        ASR::symbol_t* main_module_sym = current_scope->get_symbol("__main__");
+        ASR::symbol_t* module_sym = nullptr;
         ASR::Module_t* mod = nullptr;
-        if( main_module_sym ) {
-            mod = ASR::down_cast<ASR::Module_t>(main_module_sym);
-        }
-        if (!main_module) {
-            current_scope = mod->m_symtab;
-            LCOMPILERS_ASSERT(current_scope != nullptr);
-        }
+
+        LCOMPILERS_ASSERT(module_name.size() > 0);
+        module_sym = current_scope->get_symbol(module_name);
+        mod = ASR::down_cast<ASR::Module_t>(module_sym);
+        LCOMPILERS_ASSERT(mod != nullptr);
+        current_scope = mod->m_symtab;
+        LCOMPILERS_ASSERT(current_scope != nullptr);
 
         Vec<ASR::asr_t*> items;
         items.reserve(al, 4);
@@ -3868,6 +5195,13 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
             tmp = nullptr;
             tmp_vec.clear();
             visit_stmt(*x.m_body[i]);
+
+            for (auto t: global_init) {
+                if (t) {
+                    items.push_back(al, t);
+                }
+            }
+            global_init.n = 0;
             if (tmp) {
                 items.push_back(al, tmp);
             } else if (!tmp_vec.empty()) {
@@ -3878,30 +5212,154 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
                 tmp_vec.clear();
             }
         }
-        if( mod ) {
-            for( size_t i = 0; i < mod->n_dependencies; i++ ) {
-                if( !present(current_module_dependencies, mod->m_dependencies[i]) ) {
-                    current_module_dependencies.push_back(al, mod->m_dependencies[i]);
-                }
+
+        for( size_t i = 0; i < mod->n_dependencies; i++ ) {
+            current_module_dependencies.push_back(al, mod->m_dependencies[i]);
+        }
+        mod->m_dependencies = current_module_dependencies.p;
+        mod->n_dependencies = current_module_dependencies.n;
+
+        LCOMPILERS_ASSERT(global_init.empty())
+
+        if (items.n > 0) {
+            unit->m_items = items.p;
+            unit->n_items = items.size();
+            std::string func_name = module_name + "global_stmts";
+            if (eval_count > 0) {
+                // In Interactive Shell. Update the func_name accordingly
+                func_name += "_" + std::to_string(eval_count) + "__";
             }
-            mod->m_dependencies = current_module_dependencies.p;
-            mod->n_dependencies = current_module_dependencies.size();
+            // Wrap all the global statements into a Function
+            LCompilers::PassOptions pass_options;
+            pass_options.run_fun = func_name;
+            pass_wrap_global_stmts(al, *unit, pass_options);
+
+            ASR::symbol_t *f_sym = unit->m_symtab->get_symbol(func_name);
+            if (f_sym) {
+                // Add the `global_statements` function into the
+                // module and later call this function to execute the
+                // global_statements
+                ASR::Function_t *f = ASR::down_cast<ASR::Function_t>(f_sym);
+                f->m_symtab->parent = mod->m_symtab;
+                mod->m_symtab->add_symbol(func_name, (ASR::symbol_t *) f);
+                // Erase the function in TranslationUnit
+                unit->m_symtab->erase_symbol(func_name);
+            }
+            ASR::symbol_t *g_sym = unit->m_symtab->get_symbol("_" + func_name);
+            if (g_sym) {
+                // Move the `global_underscore` variable into the
+                // Module from TranslationUnit
+                ASR::Variable_t *f = ASR::down_cast<ASR::Variable_t>(g_sym);
+                f->m_parent_symtab = mod->m_symtab;
+                mod->m_symtab->add_symbol("_" + func_name, (ASR::symbol_t *) f);
+                // Erase the function in TranslationUnit
+                unit->m_symtab->erase_symbol("_" + func_name);
+            }
+            items.p = nullptr;
+            items.n = 0;
         }
-        // These global statements are added to the translation unit for now,
-        // but they should be adding to a module initialization function
-        unit->m_items = items.p;
-        unit->n_items = items.size();
 
         tmp = asr;
     }
 
+    void visit_init_body (const AST::FunctionDef_t &x, ASR::symbol_t* parent_sym, const Location loc) {
+        SymbolTable *old_scope = current_scope;
+        ASR::symbol_t *t = current_scope->get_symbol("__init__");
+        if ( t==nullptr ) {
+            throw SemanticError("__init__ fn not declared", x.base.base.loc);
+        }
+        if ( !ASR::is_a<ASR::Function_t>(*t) ) {
+            throw SemanticError("__init__ is not a function", x.base.base.loc);
+        }
+        ASR::Function_t *f = ASR::down_cast<ASR::Function_t>(t);
+        current_scope = f->m_symtab;
+        //Transform statements into correct format
+        Vec<AST::stmt_t*> body;
+        body.reserve(al, 1);
+        ASR::stmt_t* super_call_stmt = nullptr;
+        for (size_t i=0; i<x.n_body; i++) {
+            if (AST::is_a<AST::AnnAssign_t>(*x.m_body[i])) {
+                AST::AnnAssign_t ann_assign = *AST::down_cast<AST::AnnAssign_t>(x.m_body[i]);
+                if ( ann_assign.m_value != nullptr ) {
+                    Vec<AST::expr_t*>target;
+                    target.reserve(al, 1);
+                    target.push_back(al, ann_assign.m_target);
+                    AST::ast_t* assgn_ast = AST::make_Assign_t(al, ann_assign.base.base.loc,
+                        target.p, 1, ann_assign.m_value, nullptr);
+                    AST::stmt_t* assgn = AST::down_cast<AST::stmt_t>(assgn_ast);
+                    body.push_back(al, assgn);
+                }
+            } else if (AST::is_a<AST::Expr_t>(*x.m_body[i]) &&
+                        AST::is_a<AST::Call_t>(*(AST::down_cast<AST::Expr_t>(x.m_body[i])->m_value))) {
+                AST::Call_t* c = AST::down_cast<AST::Call_t>(AST::down_cast<AST::Expr_t>(x.m_body[i])->m_value);
+
+                if ( !AST::is_a<AST::Attribute_t>(*(c->m_func))
+                        || !AST::is_a<AST::Call_t>(*(AST::down_cast<AST::Attribute_t>(c->m_func)->m_value)) ) {
+                    body.push_back(al, x.m_body[i]);
+                    continue;
+                }
+                AST::Call_t* super_call =  AST::down_cast<AST::Call_t>(AST::down_cast<AST::Attribute_t>(c->m_func)->m_value);
+                std::string attr = AST::down_cast<AST::Attribute_t>(c->m_func)->m_attr;
+                if ( AST::is_a<AST::Name_t>(*(super_call->m_func)) &&
+                    std::string(AST::down_cast<AST::Name_t>(super_call->m_func)->m_id)=="super" &&
+                    attr == "__init__") {
+                        if (parent_sym == nullptr) {
+                            throw SemanticError("The class doesn't have a base class",loc);
+                        }
+                        Vec<ASR::call_arg_t> args;
+                        args.reserve(al, 1);
+                        parse_args(*super_call,args);
+                        ASR::call_arg_t first_arg;
+                        first_arg.loc = loc;
+                        ASR::symbol_t* self_sym = current_scope->get_symbol("self");
+                        first_arg.m_value = ASRUtils::EXPR(ASR::make_Var_t(al,loc,self_sym));
+                        ASR::ttype_t* target_type = ASRUtils::make_StructType_t_util(al, loc, parent_sym, true);
+                        cast_helper(target_type, first_arg.m_value, x.base.base.loc, true);
+                        Vec<ASR::call_arg_t> args_w_first; args_w_first.reserve(al,1);
+                        args_w_first.push_back(al, first_arg);
+                        for( size_t i = 0; i < args.size(); i++ ) {
+                            args_w_first.push_back(al,args[i]);
+                        }
+                        std::string call_name = "__init__";
+                        ASR::symbol_t* call_sym = get_struct_member(parent_sym,call_name,loc);
+                        super_call_stmt = ASRUtils::STMT(
+                            ASR::make_SubroutineCall_t(al, loc, call_sym, call_sym, args_w_first.p,
+                                                        args_w_first.size(), nullptr, true));
+                }
+            } else {
+                body.push_back(al, x.m_body[i]);
+            }
+        }
+        current_scope = f->m_symtab;
+        Vec<ASR::stmt_t*> body_asr;
+        body_asr.reserve(al, x.n_body);
+        if ( super_call_stmt ) {
+            body_asr.push_back(al, super_call_stmt);
+        }
+        Vec<ASR::symbol_t*> rts;
+        rts.reserve(al, 4);
+        dependencies.clear(al);
+        transform_stmts(body_asr, body.n, body.p);
+        for (const auto &rt: rt_vec) { rts.push_back(al, rt); }
+        f->m_body = body_asr.p;
+        f->n_body = body_asr.size();
+        ASR::FunctionType_t* func_type = ASR::down_cast<ASR::FunctionType_t>(
+                                                        f->m_function_signature);
+        func_type->m_restrictions = rts.p;
+        func_type->n_restrictions = rts.size();
+        f->m_dependencies = dependencies.p;
+        f->n_dependencies = dependencies.size();
+        rt_vec.clear();
+        current_scope = old_scope;
+    }
+
     void handle_fn(const AST::FunctionDef_t &x, ASR::Function_t &v) {
         current_scope = v.m_symtab;
         Vec<ASR::stmt_t*> body;
         body.reserve(al, x.n_body);
         Vec<ASR::symbol_t*> rts;
         rts.reserve(al, 4);
-        dependencies.clear();
+        dependencies.clear(al);
         transform_stmts(body, x.n_body, x.m_body);
         for (const auto &rt: rt_vec) { rts.push_back(al, rt); }
         v.m_body = body.p;
@@ -3909,21 +5367,20 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
         ASR::FunctionType_t* v_func_type = ASR::down_cast<ASR::FunctionType_t>(v.m_function_signature);
         v_func_type->m_restrictions = rts.p;
         v_func_type->n_restrictions = rts.size();
-        Vec<char*> func_deps;
-        func_deps.reserve(al, dependencies.size());
-        for( auto& dep: dependencies ) {
-            func_deps.push_back(al, s2c(al, dep));
-        }
-        v.m_dependencies = func_deps.p;
-        v.n_dependencies = func_deps.size();
+        v.m_dependencies = dependencies.p;
+        v.n_dependencies = dependencies.size();
         rt_vec.clear();
     }
 
     void visit_FunctionDef(const AST::FunctionDef_t &x) {
-        goto_name2id.clear();
-        gotoids = 0;
         SymbolTable *old_scope = current_scope;
         ASR::symbol_t *t = current_scope->get_symbol(x.m_name);
+
+        if (t == nullptr) {
+            // Throw Not implemented error.
+            throw SemanticError("Internal FunctionDef: Not implemented", x.base.base.loc);
+        }
+
         if (ASR::is_a<ASR::Function_t>(*t)) {
             ASR::Function_t *f = ASR::down_cast<ASR::Function_t>(t);
             if (!ASRUtils::get_FunctionType(f)->m_is_restriction) {
@@ -3942,25 +5399,43 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
         }
         current_scope = old_scope;
         tmp = nullptr;
+    }
 
-        for( auto itr: goto_name2id ) {
-            if( !std::get<1>(itr.second) ) {
-                throw SemanticError("Label '" + itr.first + "' is not defined in '"
-                                    + std::string(x.m_name) + "'", std::get<2>(itr.second));
+    void visit_Import(const AST::Import_t &x) {
+        // All the modules are imported in the SymbolTable visitor
+        for (size_t i = 0; i < x.n_names; i++) {
+            std::string mod_name = x.m_names[i].m_name;
+            ASR::symbol_t *mod_sym = current_scope->resolve_symbol(mod_name);
+            if (mod_sym) {
+                ASR::Module_t *mod = ASR::down_cast<ASR::Module_t>(mod_sym);
+                get_calls_to_global_stmts(al, x.base.base.loc, current_scope, mod, tmp_vec);
             }
         }
     }
 
-    void visit_Import(const AST::Import_t &/*x*/) {
-        // visited in symbol visitor
+    void visit_ImportFrom(const AST::ImportFrom_t &x) {
+        // Handled by SymbolTableVisitor already
+        std::string mod_name = x.m_module;
+        for (size_t i = 0; i < x.n_names; i++) {
+            if (x.m_names[i].m_asname) {
+                imported_functions[x.m_names[i].m_asname] = mod_name;
+            }
+            else {
+                imported_functions[x.m_names[i].m_name] = mod_name;
+            }
+        }
+        ASR::symbol_t *mod_sym = current_scope->resolve_symbol(mod_name);
+        if (mod_sym) {
+            ASR::Module_t *mod = ASR::down_cast<ASR::Module_t>(mod_sym);
+            get_calls_to_global_stmts(al, x.base.base.loc, current_scope, mod, tmp_vec);
+        }
+        tmp = nullptr;
     }
 
     void visit_AnnAssign(const AST::AnnAssign_t &x) {
         // We treat this as a declaration
         std::string var_name;
         std::string var_annotation;
-        AST::expr_t* assign_ast_target_copy = assign_ast_target;
-        assign_ast_target = x.m_target;
         if (AST::is_a<AST::Name_t>(*x.m_target)) {
             AST::Name_t *n = AST::down_cast<AST::Name_t>(x.m_target);
             var_name = n->m_id;
@@ -3971,21 +5446,30 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
 
         if (current_scope->get_scope().find(var_name) !=
                 current_scope->get_scope().end()) {
-            if (current_scope->parent != nullptr) {
-                // Re-declaring a global scope variable is allowed,
-                // otherwise raise an error
-                ASR::symbol_t *orig_decl = current_scope->get_symbol(var_name);
-                throw SemanticError(diag::Diagnostic(
-                    "Symbol is already declared in the same scope",
-                    diag::Level::Error, diag::Stage::Semantic, {
-                        diag::Label("original declaration", {orig_decl->base.loc}, false),
-                        diag::Label("redeclaration", {x.base.base.loc}),
-                    }));
+            ASR::symbol_t *orig_decl = current_scope->get_symbol(var_name);
+            throw SemanticError(diag::Diagnostic(
+                "Symbol is already declared in the same scope",
+                diag::Level::Error, diag::Stage::Semantic, {
+                    diag::Label("original declaration", {orig_decl->base.loc}, false),
+                    diag::Label("redeclaration", {x.base.base.loc}),
+                }));
+        }
+        ASR::expr_t *init_expr = nullptr;
+        visit_AnnAssignUtil(x, var_name, init_expr);
+        ASR::symbol_t* sym = current_scope->get_symbol(var_name);
+        if ( sym && ASR::is_a<ASR::Variable_t>(*sym) ) {
+            ASR::Variable_t* var = ASR::down_cast<ASR::Variable_t>(sym);
+            if ( ASR::is_a<ASR::StructType_t>(*(var->m_type)) &&
+                !ASR::down_cast<ASR::StructType_t>((var->m_type))->m_is_cstruct ) {
+                if ( !ASR::is_a<ASR::StructConstructor_t>(*init_expr) ) {
+                    throw SemanticError("Only Class constructor is allowed in the object assignment for now", x.base.base.loc);
+                }
+                AST::Call_t* call = AST::down_cast<AST::Call_t>(x.m_value);
+                if ( call->n_keywords>0 ) {
+                    throw SemanticError("Kwargs not implemented yet", x.base.base.loc);
+                }
             }
         }
-
-        visit_AnnAssignUtil(x, var_name);
-        assign_ast_target = assign_ast_target_copy;
     }
 
     void visit_Delete(const AST::Delete_t &x) {
@@ -3993,7 +5477,7 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
             throw SemanticError("Delete statement must be operated on at least one target",
                     x.base.base.loc);
         }
-        Vec<ASR::symbol_t*> targets;
+        Vec<ASR::expr_t*> targets;
         targets.reserve(al, x.n_targets);
         for (size_t i=0; i<x.n_targets; i++) {
             AST::expr_t *target = x.m_targets[i];
@@ -4005,7 +5489,7 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
                             x.base.base.loc);
                 }
                 ASR::symbol_t *s = current_scope->resolve_symbol(var_name);
-                targets.push_back(al, s);
+                targets.push_back(al, ASRUtils::EXPR(ASR::make_Var_t(al, target->base.loc, s)));
             } else {
                 throw SemanticError("Only Name supported for now as target of Delete",
                         x.base.base.loc);
@@ -4015,22 +5499,152 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
                 targets.size());
     }
 
+    bool check_is_assign_to_input_param(AST::expr_t* x) {
+        if (AST::is_a<AST::Name_t>(*x)) {
+            AST::Name_t* n = AST::down_cast<AST::Name_t>(x);
+            ASR::symbol_t* s = current_scope->resolve_symbol(n->m_id);
+            if (!s) {
+                throw SemanticError("Variable: '" + std::string(n->m_id) + "' is not declared",
+                        x->base.loc);
+            }
+            ASR::Variable_t* v =  ASR::down_cast<ASR::Variable_t>(s);
+            if (v->m_intent == ASR::intentType::In) {
+                std::string msg = "Hint: create a new local variable with a different name";
+                if (ASRUtils::is_aggregate_type(v->m_type)) {
+                    msg = "Use InOut[" + ASRUtils::type_to_str_python_symbol(v->m_type, v->m_type_declaration) + "] to allow assignment";
+                }
+                diag.add(diag::Diagnostic(
+                    "Assignment to an input function parameter `"
+                    + std::string(v->m_name) + "` is not allowed",
+                    diag::Level::Error, diag::Stage::Semantic, {
+                        diag::Label(msg, {x->base.loc})
+                    })
+                );
+                throw SemanticAbort();
+            }
+            return true;
+        } else if (AST::is_a<AST::Subscript_t>(*x)) {
+            AST::Subscript_t* s = AST::down_cast<AST::Subscript_t>(x);
+            return check_is_assign_to_input_param(s->m_value);
+        } else if (AST::is_a<AST::Attribute_t>(*x)) {
+            AST::Attribute_t* s = AST::down_cast<AST::Attribute_t>(x);
+            return check_is_assign_to_input_param(s->m_value);
+        } else if (AST::is_a<AST::Tuple_t>(*x)) {
+            AST::Tuple_t* t = AST::down_cast<AST::Tuple_t>(x);
+            bool is_assign_to_input = false;
+            for (size_t i = 0; i < t->n_elts && !is_assign_to_input; i++) {
+                is_assign_to_input = is_assign_to_input || check_is_assign_to_input_param(t->m_elts[i]);
+            }
+            return is_assign_to_input;
+        }else {
+            throw SemanticError("Unsupported type in check_is_assign_to_input_param()", x->base.loc);
+        }
+    }
+
+    bool visit_SubscriptUtil(const AST::Subscript_t &x, const AST::Assign_t &assign_node,
+                             ASR::expr_t *tmp_value, int32_t recursion_level) {
+        if (AST::is_a<AST::Name_t>(*x.m_value)) {
+            std::string name = AST::down_cast<AST::Name_t>(x.m_value)->m_id;
+            ASR::symbol_t *s = current_scope->resolve_symbol(name);
+            if (!s) {
+                throw SemanticError("Variable: '" + name + "' is not declared",
+                        x.base.base.loc);
+            }
+            ASR::Variable_t *v = ASR::down_cast<ASR::Variable_t>(s);
+            ASR::ttype_t *type = v->m_type;
+            if (ASR::is_a<ASR::Dict_t>(*type)) {
+                this->visit_expr(*x.m_slice);
+                ASR::expr_t *key = ASRUtils::EXPR(tmp);
+                ASR::expr_t* se = ASR::down_cast<ASR::expr_t>(
+                        ASR::make_Var_t(al, x.base.base.loc, s));
+                if( recursion_level == 0 ) {
+                    // dict insert case;
+                    ASR::ttype_t *key_type = ASR::down_cast<ASR::Dict_t>(type)->m_key_type;
+                    ASR::ttype_t *value_type = ASR::down_cast<ASR::Dict_t>(type)->m_value_type;
+                    if (!ASRUtils::check_equal_type(ASRUtils::expr_type(key), key_type, nullptr, nullptr)) {
+                        std::string ktype = ASRUtils::type_to_str_python_expr(ASRUtils::expr_type(key), key);
+                        std::string totype = ASRUtils::type_to_str_python_expr(key_type, nullptr);
+                        diag.add(diag::Diagnostic(
+                            "Type mismatch in dictionary key, the types must be compatible",
+                            diag::Level::Error, diag::Stage::Semantic, {
+                                diag::Label("type mismatch (found: '" + ktype + "', expected: '" + totype + "')",
+                                        {key->base.loc})
+                            })
+                        );
+                        throw SemanticAbort();
+                    }
+                    if (tmp_value == nullptr) {
+                        if (AST::is_a<AST::List_t>(*assign_node.m_value)) {
+                            LCOMPILERS_ASSERT(AST::down_cast<AST::List_t>(assign_node.m_value)->n_elts == 0);
+                            Vec<ASR::expr_t*> list_ele;
+                            list_ele.reserve(al, 1);
+                            tmp_value = ASRUtils::EXPR(ASR::make_ListConstant_t(al, assign_node.base.base.loc,
+                                                        list_ele.p, list_ele.size(), value_type));
+                        } else if (AST::is_a<AST::Dict_t>(*assign_node.m_value)) {
+                            LCOMPILERS_ASSERT(AST::down_cast<AST::Dict_t>(assign_node.m_value)->n_keys == 0);
+                            Vec<ASR::expr_t*> dict_ele;
+                            dict_ele.reserve(al, 1);
+                            tmp_value = ASRUtils::EXPR(ASR::make_DictConstant_t(al, assign_node.base.base.loc,
+                                            dict_ele.p, dict_ele.size(), dict_ele.p, dict_ele.size(), value_type));
+                        }
+                    }
+                    if (!ASRUtils::check_equal_type(ASRUtils::expr_type(tmp_value), value_type, nullptr, nullptr)) {
+                        std::string vtype = ASRUtils::type_to_str_python_expr(ASRUtils::expr_type(tmp_value), tmp_value);
+                        std::string totype = ASRUtils::type_to_str_python_expr(value_type, nullptr);
+                        diag.add(diag::Diagnostic(
+                            "Type mismatch in dictionary value, the types must be compatible",
+                            diag::Level::Error, diag::Stage::Semantic, {
+                                diag::Label("type mismatch (found: '" + vtype + "', expected: '" + totype + "')",
+                                        {tmp_value->base.loc})
+                            })
+                        );
+                        throw SemanticAbort();
+                    }
+                    tmp = nullptr;
+                    tmp_vec.push_back(make_DictInsert_t(al, x.base.base.loc, se, key, tmp_value));
+                }
+                else {
+                    tmp = make_DictItem_t(al, x.base.base.loc, se, key, nullptr,
+                                        ASR::down_cast<ASR::Dict_t>(type)->m_value_type, nullptr);
+                }
+                return true;
+            } else if (ASRUtils::is_immutable(type)) {
+                throw SemanticError("'" + ASRUtils::type_to_str_python_expr(type, nullptr) + "' object does not support"
+                    " item assignment", x.base.base.loc);
+            }
+        } else if( AST::is_a<AST::Subscript_t>(*x.m_value) ) {
+            AST::Subscript_t *sb = AST::down_cast<AST::Subscript_t>(x.m_value);
+            bool return_val = visit_SubscriptUtil(*sb, assign_node, tmp_value, recursion_level + 1);
+            if( return_val && tmp ) {
+                ASR::expr_t *dict = ASRUtils::EXPR(tmp);
+                this->visit_expr(*x.m_slice);
+                ASR::expr_t *key = ASRUtils::EXPR(tmp);
+                if( recursion_level == 0 ) {
+                    tmp_vec.push_back(make_DictInsert_t(al, x.base.base.loc, dict, key, tmp_value));
+                }
+                else {
+                    tmp = make_DictItem_t(al, x.base.base.loc, dict, key, nullptr,
+                                        ASR::down_cast<ASR::Dict_t>(ASRUtils::expr_type(dict))->m_value_type, nullptr);
+                }
+            }
+            return return_val;
+        }
+        return false;
+    }
+
     void visit_Assign(const AST::Assign_t &x) {
         ASR::expr_t *target, *assign_value = nullptr, *tmp_value;
-        bool is_c_p_pointer_call_copy = is_c_p_pointer_call;
-        is_c_p_pointer_call = false;
+        ASR::expr_t* assign_asr_target_copy = assign_asr_target;
+        this->visit_expr(*x.m_targets[0]);
+        assign_asr_target = ASRUtils::EXPR(tmp);
         this->visit_expr(*x.m_value);
-        if( is_c_p_pointer_call ) {
-            LCOMPILERS_ASSERT(x.n_targets == 1);
-            AST::Call_t* c_p_pointer_call = AST::down_cast<AST::Call_t>(x.m_value);
-            AST::expr_t* cptr = c_p_pointer_call->m_args[0];
-            AST::expr_t* pptr = x.m_targets[0];
-            tmp = create_CPtrToPointerFromArgs(cptr, pptr, x.base.base.loc);
-            is_c_p_pointer_call = is_c_p_pointer_call;
-            return ;
-        }
-        is_c_p_pointer_call = is_c_p_pointer_call_copy;
+        assign_asr_target = assign_asr_target_copy;
         if (tmp) {
+            if (ASR::is_a<ASR::stmt_t>(*tmp)) {
+                // This happens for c_p_pointer() and
+                // empty() (if target is of type allocatable)
+                return;
+            }
             // This happens if `m.m_value` is `empty`, such as in:
             // a = empty(16)
             // We skip this statement for now, the array is declared
@@ -4041,56 +5655,11 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
         }
         for (size_t i=0; i<x.n_targets; i++) {
             tmp_value = assign_value;
+            check_is_assign_to_input_param(x.m_targets[i]);
             if (AST::is_a<AST::Subscript_t>(*x.m_targets[i])) {
                 AST::Subscript_t *sb = AST::down_cast<AST::Subscript_t>(x.m_targets[i]);
-                if (AST::is_a<AST::Name_t>(*sb->m_value)) {
-                    std::string name = AST::down_cast<AST::Name_t>(sb->m_value)->m_id;
-                    ASR::symbol_t *s = current_scope->resolve_symbol(name);
-                    if (!s) {
-                        throw SemanticError("Variable: '" + name + "' is not declared",
-                                x.base.base.loc);
-                    }
-                    ASR::Variable_t *v = ASR::down_cast<ASR::Variable_t>(s);
-                    ASR::ttype_t *type = v->m_type;
-                    if (ASR::is_a<ASR::Dict_t>(*type)) {
-                        // dict insert case;
-                        this->visit_expr(*sb->m_slice);
-                        ASR::expr_t *key = ASRUtils::EXPR(tmp);
-                        ASR::ttype_t *key_type = ASR::down_cast<ASR::Dict_t>(type)->m_key_type;
-                        ASR::ttype_t *value_type = ASR::down_cast<ASR::Dict_t>(type)->m_value_type;
-                        if (!ASRUtils::check_equal_type(ASRUtils::expr_type(key), key_type)) {
-                            std::string ktype = ASRUtils::type_to_str_python(ASRUtils::expr_type(key));
-                            std::string totype = ASRUtils::type_to_str_python(key_type);
-                            diag.add(diag::Diagnostic(
-                                "Type mismatch in dictionary key, the types must be compatible",
-                                diag::Level::Error, diag::Stage::Semantic, {
-                                    diag::Label("type mismatch (found: '" + ktype + "', expected: '" + totype + "')",
-                                            {key->base.loc})
-                                })
-                            );
-                            throw SemanticAbort();
-                        }
-                        if (!ASRUtils::check_equal_type(ASRUtils::expr_type(tmp_value), value_type)) {
-                            std::string vtype = ASRUtils::type_to_str_python(ASRUtils::expr_type(tmp_value));
-                            std::string totype = ASRUtils::type_to_str_python(value_type);
-                            diag.add(diag::Diagnostic(
-                                "Type mismatch in dictionary value, the types must be compatible",
-                                diag::Level::Error, diag::Stage::Semantic, {
-                                    diag::Label("type mismatch (found: '" + vtype + "', expected: '" + totype + "')",
-                                            {tmp_value->base.loc})
-                                })
-                            );
-                            throw SemanticAbort();
-                        }
-                        ASR::expr_t* se = ASR::down_cast<ASR::expr_t>(
-                                ASR::make_Var_t(al, x.base.base.loc, s));
-                        tmp = nullptr;
-                        tmp_vec.push_back(make_DictInsert_t(al, x.base.base.loc, se, key, tmp_value));
-                        continue;
-                    } else if (ASRUtils::is_immutable(type)) {
-                        throw SemanticError("'" + ASRUtils::type_to_str_python(type) + "' object does not support"
-                            " item assignment", x.base.base.loc);
-                    }
+                if( visit_SubscriptUtil(*sb, x, tmp_value, 0) ) {
+                    continue;
                 }
             } else if (AST::is_a<AST::Attribute_t>(*x.m_targets[i])) {
                 AST::Attribute_t *attr = AST::down_cast<AST::Attribute_t>(x.m_targets[i]);
@@ -4108,35 +5677,50 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
                     }
                 }
             }
-            if (!tmp_value) continue;
             this->visit_expr(*x.m_targets[i]);
             target = ASRUtils::EXPR(tmp);
             ASR::ttype_t *target_type = ASRUtils::expr_type(target);
-            ASR::ttype_t *value_type = ASRUtils::expr_type(assign_value);
+            if (tmp_value == nullptr) {
+                if (AST::is_a<AST::List_t>(*x.m_value)) {
+                    LCOMPILERS_ASSERT(AST::down_cast<AST::List_t>(x.m_value)->n_elts == 0);
+                    Vec<ASR::expr_t*> list_ele;
+                    list_ele.reserve(al, 1);
+                    tmp_value = ASRUtils::EXPR(ASR::make_ListConstant_t(al, x.base.base.loc, list_ele.p,
+                                    list_ele.size(), target_type));
+                } else if (AST::is_a<AST::Dict_t>(*x.m_value)) {
+                    LCOMPILERS_ASSERT(AST::down_cast<AST::Dict_t>(x.m_value)->n_keys == 0);
+                    Vec<ASR::expr_t*> dict_ele;
+                    dict_ele.reserve(al, 1);
+                    tmp_value = ASRUtils::EXPR(ASR::make_DictConstant_t(al, x.base.base.loc, dict_ele.p,
+                                    dict_ele.size(), dict_ele.p, dict_ele.size(), target_type));
+                }
+            }
+            if (!tmp_value) continue;
+            ASR::ttype_t *value_type = ASRUtils::expr_type(tmp_value);
             if( ASR::is_a<ASR::Pointer_t>(*target_type) &&
                 ASR::is_a<ASR::Var_t>(*target) ) {
-                if( !ASRUtils::check_equal_type(target_type, value_type) ) {
+                if( !ASRUtils::check_equal_type(target_type, value_type, target, tmp_value) ) {
                     throw SemanticError("Casting not supported for different pointer types. Received "
-                                        "target pointer type, " + ASRUtils::type_to_str_python(target_type) +
-                                        " and value pointer type, " + ASRUtils::type_to_str_python(value_type),
+                                        "target pointer type, " + ASRUtils::type_to_str_python_expr(target_type, target) +
+                                        " and value pointer type, " + ASRUtils::type_to_str_python_expr(value_type, tmp_value),
                                         x.base.base.loc);
                 }
                 tmp = nullptr;
-                tmp_vec.push_back(ASR::make_Assignment_t(al, x.base.base.loc, target,
-                                    tmp_value, nullptr));
+                tmp_vec.push_back(ASRUtils::make_Assignment_t_util(al, x.base.base.loc, target,
+                                    tmp_value, nullptr, false, false));
                 continue;
             }
-            if( ASR::is_a<ASR::Const_t>(*ASRUtils::expr_type(target)) ) {
-                throw SemanticError("Targets with " +
-                                    ASRUtils::type_to_str_python(ASRUtils::expr_type(target)) +
-                                    " type cannot be re-assigned.",
+            if( ASRUtils::is_const(target) ) {
+                throw SemanticError("Targets with Const[" +
+                                    ASRUtils::type_to_str_python_expr(ASRUtils::expr_type(target), target) +
+                                    "] type cannot be re-assigned.",
                                     target->base.loc);
             }
             cast_helper(target, tmp_value, true);
             value_type = ASRUtils::expr_type(tmp_value);
-            if (!ASRUtils::check_equal_type(target_type, value_type)) {
-                std::string ltype = ASRUtils::type_to_str_python(target_type);
-                std::string rtype = ASRUtils::type_to_str_python(value_type);
+            if (!ASRUtils::check_equal_type(target_type, value_type, target, tmp_value)) {
+                std::string ltype = ASRUtils::type_to_str_python_expr(target_type, target);
+                std::string rtype = ASRUtils::type_to_str_python_expr(value_type, tmp_value);
                 diag.add(diag::Diagnostic(
                     "Type mismatch in assignment, the types must be compatible",
                     diag::Level::Error, diag::Stage::Semantic, {
@@ -4148,8 +5732,31 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
             }
             ASR::stmt_t *overloaded=nullptr;
             tmp = nullptr;
-            tmp_vec.push_back(ASR::make_Assignment_t(al, x.base.base.loc, target, tmp_value,
-                                    overloaded));
+            if (target->type == ASR::exprType::Var) {
+                ASR::Var_t *var = ASR::down_cast<ASR::Var_t>(target);
+                ASR::symbol_t *sym = var->m_v;
+                ASR::Variable_t *v = ASR::down_cast<ASR::Variable_t>(sym);
+                if (do_loop_variables.size() > 0 && std::find(do_loop_variables.begin(), do_loop_variables.end(), sym) != do_loop_variables.end()) {
+                    std::string var_name = std::string(v->m_name);
+                    throw SemanticError("Assignment to loop variable `" + std::string(to_lower(var_name)) +"` is not allowed", target->base.loc);
+                }
+                if ( ASR::is_a<ASR::StructType_t>(*(v->m_type)) &&
+                    !ASR::down_cast<ASR::StructType_t>((v->m_type))->m_is_cstruct &&
+                    !(tmp_value->type == ASR::exprType::StructConstructor) ) {
+                    ASR::Variable_t *v = ASR::down_cast<ASR::Variable_t>(sym);
+                    std::string var_name = std::string(v->m_name);
+                    throw SemanticError("Only Class constructor is allowed in the object assignment for now", target->base.loc);
+                }
+            }
+            tmp_vec.push_back(ASRUtils::make_Assignment_t_util(al, x.base.base.loc, target, tmp_value,
+                                    overloaded, false, false));
+            if ( target->type == ASR::exprType::Var &&
+                    tmp_value->type == ASR::exprType::StructConstructor ) {
+                AST::Call_t* call = AST::down_cast<AST::Call_t>(x.m_value);
+                if ( call->n_keywords>0 ) {
+                    throw SemanticError("Kwargs not implemented yet", x.base.base.loc);
+                }
+            }
         }
         // to make sure that we add only those statements in tmp_vec
         tmp = nullptr;
@@ -4178,52 +5785,59 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
             list.push_back(al, expr);
             for (size_t i = 1; i < x.n_elts; i++) {
                 this->visit_expr(*x.m_elts[i]);
-                expr = ASRUtils::EXPR(tmp);
-                if (!ASRUtils::check_equal_type(ASRUtils::expr_type(expr), type)) {
+                ASR::expr_t *expr_ = ASRUtils::EXPR(tmp);
+                if (!ASRUtils::check_equal_type(ASRUtils::expr_type(expr_), type, expr_, expr)) {
                     throw SemanticError("All List elements must be of the same type for now",
                         x.base.base.loc);
                 }
-                list.push_back(al, expr);
+                list.push_back(al, expr_);
             }
         } else {
-            if( ann_assign_target_type == nullptr ) {
+            if( assign_asr_target == nullptr ) {
                 tmp = nullptr;
                 return ;
             }
-            type = ASRUtils::get_contained_type(ann_assign_target_type);
+            type = ASRUtils::get_contained_type(
+                ASRUtils::expr_type(assign_asr_target));
         }
+
+        if (ASRUtils::is_character(*type) && !ASRUtils::is_allocatable(type))
+            type = ASRUtils::TYPE(ASR::make_Allocatable_t(al, x.base.base.loc, 
+                        ASRUtils::TYPE(ASR::make_String_t(al, x.base.base.loc, 1, nullptr, 
+                                    ASR::string_length_kindType::DeferredLength, 
+                                    ASR::string_physical_typeType::DescriptorString))));
         ASR::ttype_t* list_type = ASRUtils::TYPE(ASR::make_List_t(al, x.base.base.loc, type));
         tmp = ASR::make_ListConstant_t(al, x.base.base.loc, list.p,
             list.size(), list_type);
     }
 
-    ASR::expr_t* for_iterable_helper(std::string var_name, const Location& loc) {
+    ASR::expr_t* for_iterable_helper(std::string var_name, const Location& loc,
+        std::string& explicit_iter_name_) {
         auto loop_src_var_symbol = current_scope->resolve_symbol(var_name);
         LCOMPILERS_ASSERT(loop_src_var_symbol!=nullptr);
-        auto loop_src_var_ttype = ASRUtils::symbol_type(loop_src_var_symbol);
-        ASR::ttype_t* int_type = ASRUtils::TYPE(ASR::make_Integer_t(al, loc, 4, nullptr, 0));
+        auto loop_src_var_ttype = ASRUtils::type_get_past_allocatable(ASRUtils::symbol_type(loop_src_var_symbol));
+        ASR::ttype_t* int_type = ASRUtils::TYPE(ASR::make_Integer_t(al, loc, 4));
         // create a new variable called/named __explicit_iterator of type i32 and add it to symbol table
-        std::string explicit_iter_name = current_scope->get_unique_name("__explicit_iterator");
+        std::string explicit_iter_name = current_scope->get_unique_name("__explicit_iterator", false);
+        explicit_iter_name_ = explicit_iter_name;
         ASR::storage_typeType storage_type = ASR::storage_typeType::Default;
-        if( ASR::is_a<ASR::Const_t>(*int_type) ) {
-            storage_type = ASR::storage_typeType::Parameter;
-        }
-        Vec<char*> variable_dependencies_vec;
+        SetChar variable_dependencies_vec;
         variable_dependencies_vec.reserve(al, 1);
         ASRUtils::collect_variable_dependencies(al, variable_dependencies_vec, int_type);
         auto explicit_iter_variable = ASR::make_Variable_t(al, loc,
             current_scope, s2c(al, explicit_iter_name),
             variable_dependencies_vec.p, variable_dependencies_vec.size(),
             ASR::intentType::Local, nullptr, nullptr, storage_type,
-            int_type, ASR::abiType::Source, ASR::accessType::Public,
-            ASR::presenceType::Required, false
+            int_type, nullptr, ASR::abiType::Source, ASR::accessType::Public,
+            ASR::presenceType::Required, false, false, false, nullptr, false, false
         );
         current_scope->add_symbol(explicit_iter_name,
                         ASR::down_cast<ASR::symbol_t>(explicit_iter_variable));
         // make loop_end = len(loop_src_var), where loop_src_var is the variable over which
         // we are iterating the for in loop
+        LCOMPILERS_ASSERT(loop_src_var_symbol != nullptr);
         auto loop_src_var = ASR::make_Var_t(al, loc, loop_src_var_symbol);
-        if (ASR::is_a<ASR::Character_t>(*loop_src_var_ttype)) {
+        if (ASR::is_a<ASR::String_t>(*loop_src_var_ttype)) {
             return ASRUtils::EXPR(ASR::make_StringLen_t(al, loc,
                                   ASRUtils::EXPR(loop_src_var),
                                   int_type, nullptr));
@@ -4238,7 +5852,7 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
         } else {
             throw SemanticError("Only Strings, Lists, Sets and Tuples"
                                 "can be used with for in loop, not " +
-                                ASRUtils::type_to_str(loop_src_var_ttype), loc);
+                                ASRUtils::type_to_str_python_expr(loop_src_var_ttype, nullptr), loc);
         }
         return nullptr;
     }
@@ -4246,8 +5860,7 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
     ASR::do_loop_head_t make_do_loop_head(ASR::expr_t *loop_start, ASR::expr_t *loop_end,
                                             ASR::expr_t *inc, int a_kind, const Location& loc) {
         ASR::do_loop_head_t head;
-        ASR::ttype_t *a_type = ASRUtils::TYPE(ASR::make_Integer_t(al, loc,
-            a_kind, nullptr, 0));
+        ASR::ttype_t *a_type = ASRUtils::TYPE(ASR::make_Integer_t(al, loc, a_kind));
         ASR::expr_t *constant_one = ASR::down_cast<ASR::expr_t>(ASR::make_IntegerConstant_t(
                                             al, loc, 1, a_type));
         ASR::expr_t *constant_neg_one = ASR::down_cast<ASR::expr_t>(ASR::make_IntegerConstant_t(
@@ -4261,9 +5874,9 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
             inc = constant_one;
         }
 
-        if( !ASRUtils::check_equal_type(ASRUtils::expr_type(loop_start), ASRUtils::expr_type(loop_end)) ) {
-            std::string loop_start_strtype = ASRUtils::type_to_str_python(ASRUtils::expr_type(loop_start));
-            std::string loop_end_strtype = ASRUtils::type_to_str_python(ASRUtils::expr_type(loop_end));
+        if( !ASRUtils::check_equal_type(ASRUtils::expr_type(loop_start), ASRUtils::expr_type(loop_end), nullptr, nullptr) ) {
+            std::string loop_start_strtype = ASRUtils::type_to_str_python_expr(ASRUtils::expr_type(loop_start), loop_start);
+            std::string loop_end_strtype = ASRUtils::type_to_str_python_expr(ASRUtils::expr_type(loop_end), loop_end);
             diag.add(diag::Diagnostic(
                 "Type mismatch in loop start and loop end values, the types must be compatible",
                 diag::Level::Error, diag::Stage::Semantic, {
@@ -4275,9 +5888,9 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
             throw SemanticAbort();
         }
 
-        if( !ASRUtils::check_equal_type(ASRUtils::expr_type(loop_start), ASRUtils::expr_type(inc)) ) {
-            std::string loop_start_strtype = ASRUtils::type_to_str_python(ASRUtils::expr_type(loop_start));
-            std::string inc_strtype = ASRUtils::type_to_str_python(ASRUtils::expr_type(inc));
+        if( !ASRUtils::check_equal_type(ASRUtils::expr_type(loop_start), ASRUtils::expr_type(inc), nullptr, nullptr) ) {
+            std::string loop_start_strtype = ASRUtils::type_to_str_python_expr(ASRUtils::expr_type(loop_start), loop_start);
+            std::string inc_strtype = ASRUtils::type_to_str_python_expr(ASRUtils::expr_type(inc), inc);
             diag.add(diag::Diagnostic(
                 "Type mismatch in loop start and increment values, the types must be compatible",
                 diag::Level::Error, diag::Stage::Semantic, {
@@ -4299,6 +5912,10 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
         int64_t inc_int = 1;
         bool is_value_present = ASRUtils::extract_value(inc_value, inc_int);
         if (is_value_present) {
+            if (inc_int == 0) {
+                throw SemanticError("For loop increment should not be zero.", loc);
+            }
+
             // Loop end depends upon the sign of m_increment.
             // if inc > 0 then: loop_end -=1 else loop_end += 1
             ASR::binopType offset_op;
@@ -4308,22 +5925,22 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
                 offset_op = ASR::binopType::Sub;
             }
             make_BinOp_helper(loop_end, constant_one,
-                            offset_op, loc, false);
+                            offset_op, loc);
         } else {
-            ASR::ttype_t* logical_type = ASRUtils::TYPE(ASR::make_Logical_t(al, inc->base.loc, 4, nullptr, 0));
+            ASR::ttype_t* logical_type = ASRUtils::TYPE(ASR::make_Logical_t(al, inc->base.loc, 4));
             ASR::expr_t* inc_pos = ASRUtils::EXPR(ASR::make_IntegerCompare_t(al, inc->base.loc, inc,
                 ASR::cmpopType::GtE, constant_zero, logical_type, nullptr));
             ASR::expr_t* inc_neg = ASRUtils::EXPR(ASR::make_IntegerCompare_t(al, inc->base.loc, inc,
                 ASR::cmpopType::Lt, constant_zero, logical_type, nullptr));
             cast_helper(a_type, inc_pos, inc->base.loc, true);
             cast_helper(a_type, inc_neg, inc->base.loc, true);
-            make_BinOp_helper(inc_pos, constant_neg_one, ASR::binopType::Mul, inc->base.loc, false);
+            make_BinOp_helper(inc_pos, constant_neg_one, ASR::binopType::Mul, inc->base.loc);
             ASR::expr_t* case_1 = ASRUtils::EXPR(tmp);
-            make_BinOp_helper(inc_neg, constant_one, ASR::binopType::Mul, inc->base.loc, false);
+            make_BinOp_helper(inc_neg, constant_one, ASR::binopType::Mul, inc->base.loc);
             ASR::expr_t* case_2 = ASRUtils::EXPR(tmp);
-            make_BinOp_helper(case_1, case_2, ASR::binopType::Add, inc->base.loc, false);
+            make_BinOp_helper(case_1, case_2, ASR::binopType::Add, inc->base.loc);
             ASR::expr_t* cases_combined = ASRUtils::EXPR(tmp);
-            make_BinOp_helper(loop_end, cases_combined, ASR::binopType::Add, loop_end->base.loc, false);
+            make_BinOp_helper(loop_end, cases_combined, ASR::binopType::Add, loop_end->base.loc);
         }
 
         head.m_end = ASRUtils::EXPR(tmp);
@@ -4337,9 +5954,12 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
         ASR::expr_t *target=ASRUtils::EXPR(tmp);
         Vec<ASR::stmt_t*> body;
         bool is_explicit_iterator_required = false;
+        bool for_each = false;
+        std::string explicit_iter_name = "";
         std::string loop_src_var_name = "";
         ASR::expr_t *loop_end = nullptr, *loop_start = nullptr, *inc = nullptr;
         ASR::expr_t *for_iter_type = nullptr;
+        ASR::expr_t *loop_src_var = nullptr;
         if (AST::is_a<AST::Call_t>(*x.m_iter)) {
             AST::Call_t *c = AST::down_cast<AST::Call_t>(x.m_iter);
             std::string call_name;
@@ -4378,46 +5998,101 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
 
         } else if (AST::is_a<AST::Name_t>(*x.m_iter)) {
             loop_src_var_name = AST::down_cast<AST::Name_t>(x.m_iter)->m_id;
-            loop_end = for_iterable_helper(loop_src_var_name, x.base.base.loc);
-            for_iter_type = loop_end;
-            LCOMPILERS_ASSERT(loop_end);
-            is_explicit_iterator_required = true;
+            auto loop_src_var_symbol = current_scope->resolve_symbol(loop_src_var_name);
+            LCOMPILERS_ASSERT(loop_src_var_symbol!=nullptr);
+            auto loop_src_var_ttype = ASRUtils::symbol_type(loop_src_var_symbol);
+
+            if (ASR::is_a<ASR::Dict_t>(*loop_src_var_ttype) ||
+                ASR::is_a<ASR::Set_t>(*loop_src_var_ttype)) {
+                loop_src_var = ASRUtils::EXPR(
+                    ASR::make_Var_t(al, x.base.base.loc, current_scope->resolve_symbol(loop_src_var_name)));
+                is_explicit_iterator_required = false;
+                for_each = true;
+            } else {
+                loop_end = for_iterable_helper(loop_src_var_name, x.base.base.loc, explicit_iter_name);
+                for_iter_type = loop_end;
+                LCOMPILERS_ASSERT(loop_end);
+                is_explicit_iterator_required = true;
+            }
         } else if (AST::is_a<AST::Subscript_t>(*x.m_iter)) {
             AST::Subscript_t *sbt = AST::down_cast<AST::Subscript_t>(x.m_iter);
             if (AST::is_a<AST::Name_t>(*sbt->m_value)) {
                 loop_src_var_name = AST::down_cast<AST::Name_t>(sbt->m_value)->m_id;
                 visit_Subscript(*sbt);
                 ASR::expr_t *target = ASRUtils::EXPR(tmp);
-                ASR::symbol_t *loop_src_var_symbol = current_scope->resolve_symbol(loop_src_var_name);
-                ASR::ttype_t *loop_src_var_ttype = ASRUtils::symbol_type(loop_src_var_symbol);
-
-                // Create a temporary variable that will contain the evaluated value of Subscript
-                std::string tmp_assign_name = current_scope->get_unique_name("__tmp_assign_for_loop");
-                Vec<char*> variable_dependencies_vec;
-                variable_dependencies_vec.reserve(al, 1);
-                ASRUtils::collect_variable_dependencies(al, variable_dependencies_vec, loop_src_var_ttype);
-                ASR::asr_t* tmp_assign_variable = ASR::make_Variable_t(al, sbt->base.base.loc, current_scope,
-                    s2c(al, tmp_assign_name), variable_dependencies_vec.p, variable_dependencies_vec.size(),
-                    ASR::intentType::Local, nullptr, nullptr, ASR::storage_typeType::Default,
-                    loop_src_var_ttype, ASR::abiType::Source, ASR::accessType::Public, ASR::presenceType::Required, false
-                );
-                ASR::symbol_t *tmp_assign_variable_sym = ASR::down_cast<ASR::symbol_t>(tmp_assign_variable);
-                current_scope->add_symbol(tmp_assign_name, tmp_assign_variable_sym);
-
-                // Assign the Subscript expr to temporary variable
-                ASR::asr_t* assign = ASR::make_Assignment_t(al, x.base.base.loc,
-                                ASRUtils::EXPR(ASR::make_Var_t(al, x.base.base.loc, tmp_assign_variable_sym)),
-                                target, nullptr);
-                current_body->push_back(al, ASRUtils::STMT(assign));
-                loop_end = for_iterable_helper(tmp_assign_name, x.base.base.loc);
-                for_iter_type = loop_end;
-                LCOMPILERS_ASSERT(loop_end);
-                loop_src_var_name = tmp_assign_name;
-                is_explicit_iterator_required = true;
+                ASR::ttype_t *loop_src_var_ttype = ASRUtils::expr_type(target);
+                if (ASR::is_a<ASR::Dict_t>(*loop_src_var_ttype) ||
+                    ASR::is_a<ASR::Set_t>(*loop_src_var_ttype)) {
+                    loop_src_var = target;
+                    is_explicit_iterator_required = false;
+                    for_each = true;
+                } else {
+                    // Create a temporary variable that will contain the evaluated value of Subscript
+                    std::string tmp_assign_name = current_scope->get_unique_name("__tmp_assign_for_loop", false);
+                    SetChar variable_dependencies_vec;
+                    variable_dependencies_vec.reserve(al, 1);
+                    ASRUtils::collect_variable_dependencies(al, variable_dependencies_vec, loop_src_var_ttype);
+                    ASR::asr_t* tmp_assign_variable = ASR::make_Variable_t(al, sbt->base.base.loc, current_scope,
+                        s2c(al, tmp_assign_name), variable_dependencies_vec.p, variable_dependencies_vec.size(),
+                        ASR::intentType::Local, nullptr, nullptr, ASR::storage_typeType::Default,
+                        loop_src_var_ttype, nullptr, ASR::abiType::Source, ASR::accessType::Public,
+                        ASR::presenceType::Required, false, false, false, nullptr, false, false
+                    );
+                    ASR::symbol_t *tmp_assign_variable_sym = ASR::down_cast<ASR::symbol_t>(tmp_assign_variable);
+                    current_scope->add_symbol(tmp_assign_name, tmp_assign_variable_sym);
+
+                    // Assign the Subscript expr to temporary variable
+                    ASR::asr_t* assign = ASRUtils::make_Assignment_t_util(al, x.base.base.loc,
+                                    ASRUtils::EXPR(ASR::make_Var_t(al, x.base.base.loc, tmp_assign_variable_sym)),
+                                    target, nullptr, false, false);
+                    if (current_body != nullptr) {
+                        current_body->push_back(al, ASRUtils::STMT(assign));
+                    } else {
+                        global_init.push_back(al, assign);
+                    }
+                    loop_src_var_name = tmp_assign_name;
+                    loop_end = for_iterable_helper(loop_src_var_name, x.base.base.loc, explicit_iter_name);
+                    for_iter_type = loop_end;
+                    LCOMPILERS_ASSERT(loop_end);
+                    is_explicit_iterator_required = true;
+                }
             } else {
                 throw SemanticError("Only Name is supported for Subscript",
                     sbt->base.base.loc);
             }
+        } else if (AST::is_a<AST::List_t>(*x.m_iter) || AST::is_a<AST::ConstantStr_t>(*x.m_iter) ) {
+            visit_expr(*x.m_iter);
+            ASR::expr_t *target = ASRUtils::EXPR(tmp);
+            ASR::ttype_t *loop_src_var_ttype = ASRUtils::expr_type(target);
+
+            // Create a temporary variable that will contain the evaluated value of List
+            std::string tmp_assign_name = current_scope->get_unique_name("__tmp_assign_for_loop", false);
+            SetChar variable_dependencies_vec;
+            variable_dependencies_vec.reserve(al, 1);
+            ASRUtils::collect_variable_dependencies(al, variable_dependencies_vec, loop_src_var_ttype);
+            ASR::asr_t* tmp_assign_variable = ASR::make_Variable_t(al, target->base.loc, current_scope,
+                s2c(al, tmp_assign_name), variable_dependencies_vec.p, variable_dependencies_vec.size(),
+                ASR::intentType::Local, nullptr, nullptr, ASR::storage_typeType::Default,
+                loop_src_var_ttype, nullptr, ASR::abiType::Source, ASR::accessType::Public,
+                ASR::presenceType::Required, false, false, false, nullptr, false, false
+            );
+            ASR::symbol_t *tmp_assign_variable_sym = ASR::down_cast<ASR::symbol_t>(tmp_assign_variable);
+            current_scope->add_symbol(tmp_assign_name, tmp_assign_variable_sym);
+
+            // Assign the List expr to temporary variable
+            ASR::asr_t* assign = ASRUtils::make_Assignment_t_util(al, x.base.base.loc,
+                            ASRUtils::EXPR(ASR::make_Var_t(al, x.base.base.loc, tmp_assign_variable_sym)),
+                            target, nullptr, false, false);
+            if (current_body != nullptr) {
+                current_body->push_back(al, ASRUtils::STMT(assign));
+            } else {
+                global_init.push_back(al, assign);
+            }
+            loop_end = for_iterable_helper(tmp_assign_name, x.base.base.loc, explicit_iter_name);
+            for_iter_type = loop_end;
+            LCOMPILERS_ASSERT(loop_end);
+            loop_src_var_name = tmp_assign_name;
+            is_explicit_iterator_required = true;
         } else {
             throw SemanticError("Only function call `range(..)` supported as for loop iteration for now",
                 x.base.base.loc);
@@ -4426,31 +6101,42 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
         if (!is_explicit_iterator_required) {
             a_kind = ASRUtils::extract_kind_from_ttype_t(ASRUtils::expr_type(target));
         }
-        ASR::ttype_t *a_type = ASRUtils::TYPE(ASR::make_Integer_t(al, x.base.base.loc,
-            a_kind, nullptr, 0));
-        ASR::expr_t *constant_one = ASR::down_cast<ASR::expr_t>(ASR::make_IntegerConstant_t(
-                                            al, x.base.base.loc, 1, a_type));
-        ASR::do_loop_head_t head = make_do_loop_head(loop_start, loop_end, inc, a_kind,
-                                            x.base.base.loc);
+
+        ASR::do_loop_head_t head;
+        if (!for_each)
+            head = make_do_loop_head(loop_start, loop_end, inc, a_kind,
+                                                x.base.base.loc);
+
+        if (target) {
+            ASR::Var_t* loop_var = ASR::down_cast<ASR::Var_t>(target);
+            ASR::symbol_t* loop_var_sym = loop_var->m_v;
+            do_loop_variables.push_back(loop_var_sym);
+        }
 
         if(is_explicit_iterator_required) {
             body.reserve(al, x.n_body + 1);
             // add an assignment instruction to body to assign value of loop_src_var at an index to the loop_target_var
-            auto explicit_iter_var = ASR::make_Var_t(al, x.base.base.loc, current_scope->get_symbol("__explicit_iterator"));
+            LCOMPILERS_ASSERT(current_scope->get_symbol(explicit_iter_name) != nullptr);
+            auto explicit_iter_var = ASR::make_Var_t(al, x.base.base.loc, current_scope->get_symbol(explicit_iter_name));
+            ASR::ttype_t *a_type = ASRUtils::TYPE(ASR::make_Integer_t(al, x.base.base.loc, a_kind));
+            ASR::expr_t *constant_one = ASR::down_cast<ASR::expr_t>(ASR::make_IntegerConstant_t(
+                                                al, x.base.base.loc, 1, a_type));
             auto index_plus_one = ASR::make_IntegerBinOp_t(al, x.base.base.loc, ASRUtils::EXPR(explicit_iter_var),
                 ASR::binopType::Add, constant_one, a_type, nullptr);
-            auto loop_src_var = ASR::make_Var_t(al, x.base.base.loc, current_scope->resolve_symbol(loop_src_var_name));
+            ASR::expr_t* loop_src_var = ASRUtils::EXPR(ASR::make_Var_t(al, x.base.base.loc, current_scope->resolve_symbol(loop_src_var_name)));
+            ASR::ttype_t* loop_src_var_ttype = ASRUtils::expr_type(loop_src_var);
             ASR::asr_t* loop_src_var_element = nullptr;
             if (ASR::is_a<ASR::StringLen_t>(*for_iter_type)) {
                 loop_src_var_element = ASR::make_StringItem_t(
-                            al, x.base.base.loc, ASRUtils::EXPR(loop_src_var),
-                            ASRUtils::EXPR(index_plus_one), a_type, nullptr);
+                            al, x.base.base.loc, loop_src_var,
+                            ASRUtils::EXPR(index_plus_one), ASRUtils::get_contained_type(loop_src_var_ttype), nullptr);
             } else if (ASR::is_a<ASR::ListLen_t>(*for_iter_type)) {
                 loop_src_var_element = ASR::make_ListItem_t(
-                            al, x.base.base.loc, ASRUtils::EXPR(loop_src_var),
-                            ASRUtils::EXPR(explicit_iter_var), a_type, nullptr);
+                            al, x.base.base.loc, loop_src_var,
+                            ASRUtils::EXPR(explicit_iter_var), ASRUtils::get_contained_type(loop_src_var_ttype), nullptr);
             }
-            auto loop_target_assignment = ASR::make_Assignment_t(al, x.base.base.loc, target, ASRUtils::EXPR(loop_src_var_element), nullptr);
+            auto loop_target_assignment = ASRUtils::make_Assignment_t_util(al, x.base.base.loc, target, 
+                                                            ASRUtils::EXPR(loop_src_var_element), nullptr, false, false);
             body.push_back(al, ASRUtils::STMT(loop_target_assignment));
 
             head.m_v = ASRUtils::EXPR(explicit_iter_var);
@@ -4461,10 +6147,11 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
 
         SymbolTable *parent_scope = current_scope;
         current_scope = al.make_new<SymbolTable>(parent_scope);
+        current_scope->asr_owner = parent_scope->asr_owner;
         transform_stmts(body, x.n_body, x.m_body);
         int32_t total_syms = current_scope->get_scope().size();
         if( total_syms > 0 ) {
-            std::string name = parent_scope->get_unique_name("block");
+            std::string name = parent_scope->get_unique_name("block", false);
             ASR::asr_t* block = ASR::make_Block_t(al, x.base.base.loc,
                                                 current_scope, s2c(al, name),
                                                 body.p, body.size());
@@ -4475,6 +6162,17 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
             body.reserve(al, 1);
             body.push_back(al, decls);
         }
+
+        if (for_each) {
+            current_scope = parent_scope;
+            tmp = ASR::make_ForEach_t(al, x.base.base.loc, target, loop_src_var, body.p, body.size());
+            for_each = false;
+            return;
+        }
+
+        Vec<ASR::stmt_t*> orelse;
+        orelse.reserve(al, x.n_orelse);
+        transform_stmts(orelse, x.n_orelse, x.m_orelse);
         current_scope = parent_scope;
         head.loc = head.m_v->base.loc;
         bool parallel = false;
@@ -4484,11 +6182,22 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
             }
         }
         if (parallel) {
-            tmp = ASR::make_DoConcurrentLoop_t(al, x.base.base.loc, head,
-                body.p, body.size());
+            Vec<ASR::do_loop_head_t> heads;
+            heads.reserve(al, 1);
+            tmp = ASR::make_DoConcurrentLoop_t(
+                al, x.base.base.loc, heads.p, heads.size(),
+                nullptr, 0, nullptr, 0, nullptr, 0, body.p, body.size());
         } else {
-            tmp = ASR::make_DoLoop_t(al, x.base.base.loc, head,
-                body.p, body.size());
+            if (orelse.size() > 0)
+                tmp = ASR::make_DoLoop_t(al, x.base.base.loc, nullptr, head,
+                    body.p, body.size(), orelse.p, orelse.size());
+            else
+                tmp = ASR::make_DoLoop_t(al, x.base.base.loc, nullptr, head,
+                    body.p, body.size(), nullptr, 0);
+        }
+
+        if (!do_loop_variables.empty()) {
+            do_loop_variables.pop_back();
         }
     }
 
@@ -4499,7 +6208,7 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
         ASR::expr_t *right = ASRUtils::EXPR(tmp);
         ASR::ttype_t* left_type = ASRUtils::expr_type(left);
         ASR::ttype_t* right_type = ASRUtils::expr_type(right);
-        ASR::binopType op;
+        ASR::binopType op = ASR::binopType::Add /* temporary assignment */;
         std::string op_name = "";
         switch (x.m_op) {
             case (AST::operatorType::Add) : { op = ASR::binopType::Add; break; }
@@ -4521,9 +6230,9 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
 
         cast_helper(left, right, false);
 
-        if (!ASRUtils::check_equal_type(left_type, right_type)) {
-            std::string ltype = ASRUtils::type_to_str_python(left_type);
-            std::string rtype = ASRUtils::type_to_str_python(right_type);
+        if (!ASRUtils::check_equal_type(left_type, right_type, nullptr, nullptr)) {
+            std::string ltype = ASRUtils::type_to_str_python_expr(left_type, left);
+            std::string rtype = ASRUtils::type_to_str_python_expr(right_type, right);
             diag.add(diag::Diagnostic(
                 "Type mismatch in shorthand operator, the types must be compatible",
                 diag::Level::Error, diag::Stage::Semantic, {
@@ -4547,21 +6256,20 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
             ASR::symbol_t *fn_mod = resolve_intrinsic_function(x.base.base.loc, op_name);
             tmp = make_call_helper(al, fn_mod, current_scope, args, op_name, x.base.base.loc);
         } else {
-            make_BinOp_helper(left, right, op, x.base.base.loc, false);
+            make_BinOp_helper(left, right, op, x.base.base.loc);
         }
 
         ASR::stmt_t* a_overloaded = nullptr;
         ASR::expr_t *tmp2 = ASR::down_cast<ASR::expr_t>(tmp);
-        tmp = ASR::make_Assignment_t(al, x.base.base.loc, left, tmp2, a_overloaded);
+        tmp = ASRUtils::make_Assignment_t_util(al, x.base.base.loc, left, tmp2, a_overloaded, false, false);
 
     }
 
     void visit_AttributeUtil(ASR::ttype_t* type, char* attr_char,
                              ASR::expr_t *e, const Location& loc) {
-        if( ASR::is_a<ASR::Struct_t>(*type) ) {
-            ASR::Struct_t* der = ASR::down_cast<ASR::Struct_t>(type);
-            ASR::symbol_t* der_sym = ASRUtils::symbol_get_past_external(der->m_derived_type);
-            ASR::StructType_t* der_type = ASR::down_cast<ASR::StructType_t>(der_sym);
+        if( ASR::is_a<ASR::StructType_t>(*type) ) {
+            ASR::symbol_t* der_sym = ASRUtils::get_struct_sym_from_struct_expr(e);
+            ASR::Struct_t* der_type = ASR::down_cast<ASR::Struct_t>(der_sym);
             bool member_found = false;
             std::string member_name = attr_char;
             for( size_t i = 0; i < der_type->n_members && !member_found; i++ ) {
@@ -4576,13 +6284,12 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
             LCOMPILERS_ASSERT(ASR::is_a<ASR::Variable_t>(*member_sym));
             ASR::Variable_t* member_var = ASR::down_cast<ASR::Variable_t>(member_sym);
             ASR::ttype_t* member_var_type = member_var->m_type;
-            if( ASR::is_a<ASR::Struct_t>(*member_var->m_type) ) {
-                ASR::Struct_t* member_var_struct_t = ASR::down_cast<ASR::Struct_t>(member_var->m_type);
-                if( !ASR::is_a<ASR::ExternalSymbol_t>(*member_var_struct_t->m_derived_type) ) {
-                    ASR::StructType_t* struct_type = ASR::down_cast<ASR::StructType_t>(member_var_struct_t->m_derived_type);
-                    ASR::symbol_t* struct_type_asr_owner = ASRUtils::get_asr_owner(member_var_struct_t->m_derived_type);
-                    if( struct_type_asr_owner && ASR::is_a<ASR::StructType_t>(*struct_type_asr_owner) ) {
-                        std::string struct_var_name = ASR::down_cast<ASR::StructType_t>(struct_type_asr_owner)->m_name;
+            if( ASR::is_a<ASR::StructType_t>(*member_var->m_type) ) {
+                if( !ASR::is_a<ASR::ExternalSymbol_t>(*member_var->m_type_declaration) ) {
+                    ASR::Struct_t* struct_type = ASR::down_cast<ASR::Struct_t>(member_var->m_type_declaration);
+                    ASR::symbol_t* struct_type_asr_owner = ASRUtils::get_asr_owner(member_var->m_type_declaration);
+                    if( struct_type_asr_owner && ASR::is_a<ASR::Struct_t>(*struct_type_asr_owner) ) {
+                        std::string struct_var_name = ASR::down_cast<ASR::Struct_t>(struct_type_asr_owner)->m_name;
                         std::string struct_member_name = struct_type->m_name;
                         std::string import_name = struct_var_name + "_" + struct_member_name;
                         ASR::symbol_t* import_struct_member = current_scope->resolve_symbol(import_name);
@@ -4590,40 +6297,41 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
                         if( import_struct_member ) {
                             if( ASR::is_a<ASR::ExternalSymbol_t>(*import_struct_member) ) {
                                 ASR::ExternalSymbol_t* ext_sym = ASR::down_cast<ASR::ExternalSymbol_t>(import_struct_member);
-                                if( ext_sym->m_external == member_var_struct_t->m_derived_type &&
+                                if( ext_sym->m_external == member_var->m_type_declaration &&
                                     std::string(ext_sym->m_module_name) == struct_var_name ) {
                                     import_from_struct = false;
                                 }
                             }
                         }
                         if( import_from_struct ) {
-                            import_name = current_scope->get_unique_name(import_name);
+                            import_name = current_scope->get_unique_name(import_name, false);
                             import_struct_member = ASR::down_cast<ASR::symbol_t>(ASR::make_ExternalSymbol_t(al,
                                                                     loc, current_scope, s2c(al, import_name),
-                                                                    member_var_struct_t->m_derived_type, s2c(al, struct_var_name), nullptr, 0,
+                                                                    member_var->m_type_declaration, s2c(al, struct_var_name), nullptr, 0,
                                                                     s2c(al, struct_member_name), ASR::accessType::Public));
                             current_scope->add_symbol(import_name, import_struct_member);
                         }
-                        member_var_type = ASRUtils::TYPE(ASR::make_Struct_t(al, loc, import_struct_member, nullptr, 0));
+                        member_var_type = ASRUtils::make_StructType_t_util(al, loc, import_struct_member, true);
                     }
                 }
             }
             tmp = ASR::make_StructInstanceMember_t(al, loc, e, member_sym,
                                          member_var_type, nullptr);
-        } else if(ASR::is_a<ASR::Enum_t>(*type)) {
+        } else if(ASR::is_a<ASR::EnumType_t>(*type)) {
              if( std::string(attr_char) == "value" ) {
-                 ASR::Enum_t* enum_ = ASR::down_cast<ASR::Enum_t>(type);
-                 ASR::EnumType_t* enum_type = ASR::down_cast<ASR::EnumType_t>(enum_->m_enum_type);
+                 ASR::EnumType_t* enum_ = ASR::down_cast<ASR::EnumType_t>(type);
+                 ASR::Enum_t* enum_type = ASR::down_cast<ASR::Enum_t>(enum_->m_enum_type);
                  tmp = ASR::make_EnumValue_t(al, loc, e, type, enum_type->m_type, nullptr);
              } else if( std::string(attr_char) == "name" ) {
-                 ASR::ttype_t* char_type = ASRUtils::TYPE(ASR::make_Character_t(al, loc, 1, -2,
-                                             nullptr, nullptr, 0));
+                 ASR::ttype_t* char_type = ASRUtils::TYPE(ASR::make_Allocatable_t(al, loc, 
+                                            ASRUtils::TYPE(ASR::make_String_t(al, loc, 1, nullptr, 
+                                            ASR::string_length_kindType::DeferredLength,
+                                            ASR::string_physical_typeType::DescriptorString))));
                  tmp = ASR::make_EnumName_t(al, loc, e, type, char_type, nullptr);
              }
-        } else if(ASR::is_a<ASR::Union_t>(*type)) {
-             ASR::Union_t* u = ASR::down_cast<ASR::Union_t>(type);
-             ASR::symbol_t* u_sym = ASRUtils::symbol_get_past_external(u->m_union_type);
-             ASR::UnionType_t* u_type = ASR::down_cast<ASR::UnionType_t>(u_sym);
+        } else if(ASR::is_a<ASR::UnionType_t>(*type)) {
+             ASR::symbol_t* u_sym = ASRUtils::get_union_sym_from_union_expr(e);
+             ASR::Union_t* u_type = ASR::down_cast<ASR::Union_t>(u_sym);
              bool member_found = false;
              std::string member_name = attr_char;
              for( size_t i = 0; i < u_type->n_members && !member_found; i++ ) {
@@ -4642,8 +6350,7 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
          } else if (ASRUtils::is_complex(*type)) {
             std::string attr = attr_char;
             int kind = ASRUtils::extract_kind_from_ttype_t(type);
-            ASR::ttype_t *dest_type = ASR::down_cast<ASR::ttype_t>(ASR::make_Real_t(al, loc,
-                                                kind, nullptr, 0));
+            ASR::ttype_t *dest_type = ASR::down_cast<ASR::ttype_t>(ASR::make_Real_t(al, loc, kind));
             if (attr == "imag") {
                 tmp = ASR::make_ComplexIm_t(al, loc, e, dest_type, nullptr);
                 return;
@@ -4660,27 +6367,31 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
             ASR::Pointer_t* ptr_type = ASR::down_cast<ASR::Pointer_t>(type);
             visit_AttributeUtil(ptr_type->m_type, attr_char, e, loc);
         } else {
-            throw SemanticError(ASRUtils::type_to_str_python(type) + " not supported yet in Attribute.",
+            throw SemanticError(ASRUtils::type_to_str_python_expr(type, e) + " not supported yet in Attribute.",
                 loc);
         }
     }
 
     void visit_AttributeUtil(ASR::ttype_t* type, char* attr_char,
                              ASR::symbol_t *t, const Location& loc) {
-        if (ASRUtils::is_complex(*type)) {
+        if (ASRUtils::is_array(type)) {
+            std::string attr = attr_char;
+            ASR::expr_t *se = ASR::down_cast<ASR::expr_t>(ASR::make_Var_t(al, loc, t));
+            Vec<ASR::expr_t*> args;
+            args.reserve(al, 0);
+            handle_builtin_attribute(se, attr, loc, args);
+        } else if (ASRUtils::is_complex(*type)) {
             std::string attr = attr_char;
             if (attr == "imag") {
                 ASR::expr_t *val = ASR::down_cast<ASR::expr_t>(ASR::make_Var_t(al, loc, t));
                 int kind = ASRUtils::extract_kind_from_ttype_t(type);
-                ASR::ttype_t *dest_type = ASR::down_cast<ASR::ttype_t>(ASR::make_Real_t(al, loc,
-                                                kind, nullptr, 0));
+                ASR::ttype_t *dest_type = ASR::down_cast<ASR::ttype_t>(ASR::make_Real_t(al, loc, kind));
                 tmp = ASR::make_ComplexIm_t(al, loc, val, dest_type, nullptr);
                 return;
             } else if (attr == "real") {
                 ASR::expr_t *val = ASR::down_cast<ASR::expr_t>(ASR::make_Var_t(al, loc, t));
                 int kind = ASRUtils::extract_kind_from_ttype_t(type);
-                ASR::ttype_t *dest_type = ASR::down_cast<ASR::ttype_t>(ASR::make_Real_t(al, loc,
-                                                kind, nullptr, 0));
+                ASR::ttype_t *dest_type = ASR::down_cast<ASR::ttype_t>(ASR::make_Real_t(al, loc, kind));
                 ASR::expr_t *value = ASR::down_cast<ASR::expr_t>(ASRUtils::make_Cast_t_value(
                     al, val->base.loc, val, ASR::cast_kindType::ComplexToReal, dest_type));
                 tmp = ASR::make_ComplexRe_t(al, loc, val, dest_type, ASRUtils::expr_value(value));
@@ -4689,10 +6400,70 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
                 throw SemanticError("'" + attr + "' is not implemented for Complex type",
                     loc);
             }
-        } else if( ASR::is_a<ASR::Struct_t>(*type) ) {
-            ASR::Struct_t* der = ASR::down_cast<ASR::Struct_t>(type);
-            ASR::symbol_t* der_sym = ASRUtils::symbol_get_past_external(der->m_derived_type);
-            ASR::StructType_t* der_type = ASR::down_cast<ASR::StructType_t>(der_sym);
+        } else if( ASR::is_a<ASR::StructType_t>(*type)) {
+            ASR::symbol_t* der_sym = ASRUtils::symbol_get_past_external(t);
+            if (ASR::is_a<ASR::Variable_t>(*t))
+                der_sym = ASR::down_cast<ASR::Variable_t>(der_sym)->m_type_declaration;
+
+            LCOMPILERS_ASSERT(ASR::is_a<ASR::Struct_t>(*der_sym))
+            ASR::Struct_t* der_type = ASR::down_cast<ASR::Struct_t>(der_sym);
+            bool member_found = false;
+            std::string member_name = attr_char;
+            for( size_t i = 0; i < der_type->n_members && !member_found; i++ ) {
+                member_found = std::string(der_type->m_members[i]) == member_name;
+            }
+            if( !member_found && !der_type->m_parent ) {
+                throw SemanticError("No member " + member_name +
+                                    " found in " + std::string(der_type->m_name),
+                                    loc);
+            } else if ( !member_found && der_type->m_parent ) {
+                ASR::ttype_t* parent_type = ASRUtils::make_StructType_t_util(al, loc, der_type->m_parent, true);
+                visit_AttributeUtil(parent_type,attr_char,t,loc);
+                return;
+            }
+            ASR::expr_t *val = ASR::down_cast<ASR::expr_t>(ASR::make_Var_t(al, loc, t));
+            ASR::symbol_t* member_sym = der_type->m_symtab->resolve_symbol(member_name);
+            LCOMPILERS_ASSERT(ASR::is_a<ASR::Variable_t>(*member_sym));
+            ASR::Variable_t* member_var = ASR::down_cast<ASR::Variable_t>(member_sym);
+            ASR::ttype_t* member_var_type = member_var->m_type;
+            if( ASR::is_a<ASR::StructType_t>(*member_var->m_type) ) {
+                if( !ASR::is_a<ASR::ExternalSymbol_t>(*member_var->m_type_declaration) ) {
+                    ASR::Struct_t* struct_type = ASR::down_cast<ASR::Struct_t>(member_var->m_type_declaration);
+                    ASR::symbol_t* struct_type_asr_owner = ASRUtils::get_asr_owner(member_var->m_type_declaration);
+                    if( struct_type_asr_owner && ASR::is_a<ASR::Struct_t>(*struct_type_asr_owner) ) {
+                        std::string struct_var_name = ASR::down_cast<ASR::Struct_t>(struct_type_asr_owner)->m_name;
+                        std::string struct_member_name = struct_type->m_name;
+                        std::string import_name = struct_var_name + "_" + struct_member_name;
+                        ASR::symbol_t* import_struct_member = current_scope->resolve_symbol(import_name);
+                        bool import_from_struct = true;
+                        if( import_struct_member ) {
+                            if( ASR::is_a<ASR::ExternalSymbol_t>(*import_struct_member) ) {
+                                ASR::ExternalSymbol_t* ext_sym = ASR::down_cast<ASR::ExternalSymbol_t>(import_struct_member);
+                                if( ext_sym->m_external == member_var->m_type_declaration&&
+                                    std::string(ext_sym->m_module_name) == struct_var_name ) {
+                                    import_from_struct = false;
+                                }
+                            }
+                        }
+                        if( import_from_struct ) {
+                            import_name = current_scope->get_unique_name(import_name, false);
+                            import_struct_member = ASR::down_cast<ASR::symbol_t>(ASR::make_ExternalSymbol_t(al,
+                                                                    loc, current_scope, s2c(al, import_name),
+                                                                    member_var->m_type_declaration, s2c(al, struct_var_name), nullptr, 0,
+                                                                    s2c(al, struct_member_name), ASR::accessType::Public));
+                            current_scope->add_symbol(import_name, import_struct_member);
+                        }
+                        member_var_type = ASRUtils::make_StructType_t_util(al, loc, import_struct_member, true);
+                    }
+                }
+            }
+            tmp = ASR::make_StructInstanceMember_t(al, loc, val, member_sym,
+                                            member_var_type, nullptr);
+            //TODO: Check if necessary
+        /*} else if( ASR::is_a<ASR::ClassType_t>(*type) ) { //TODO: Remove ClassType_t from here
+            ASR::ClassType_t* der = ASR::down_cast<ASR::ClassType_t>(type);
+            ASR::symbol_t* der_sym = ASRUtils::symbol_get_past_external(der->m_class_type);
+            ASR::Struct_t* der_type = ASR::down_cast<ASR::Struct_t>(der_sym);
             bool member_found = false;
             std::string member_name = attr_char;
             for( size_t i = 0; i < der_type->n_members && !member_found; i++ ) {
@@ -4708,13 +6479,13 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
             LCOMPILERS_ASSERT(ASR::is_a<ASR::Variable_t>(*member_sym));
             ASR::Variable_t* member_var = ASR::down_cast<ASR::Variable_t>(member_sym);
             ASR::ttype_t* member_var_type = member_var->m_type;
-            if( ASR::is_a<ASR::Struct_t>(*member_var->m_type) ) {
-                ASR::Struct_t* member_var_struct_t = ASR::down_cast<ASR::Struct_t>(member_var->m_type);
+            if( ASR::is_a<ASR::StructType_t>(*member_var->m_type) ) {
+                ASR::StructType_t* member_var_struct_t = ASR::down_cast<ASR::StructType_t>(member_var->m_type);
                 if( !ASR::is_a<ASR::ExternalSymbol_t>(*member_var_struct_t->m_derived_type) ) {
-                    ASR::StructType_t* struct_type = ASR::down_cast<ASR::StructType_t>(member_var_struct_t->m_derived_type);
+                    ASR::Struct_t* struct_type = ASR::down_cast<ASR::Struct_t>(member_var_struct_t->m_derived_type);
                     ASR::symbol_t* struct_type_asr_owner = ASRUtils::get_asr_owner(member_var_struct_t->m_derived_type);
-                    if( struct_type_asr_owner && ASR::is_a<ASR::StructType_t>(*struct_type_asr_owner) ) {
-                        std::string struct_var_name = ASR::down_cast<ASR::StructType_t>(struct_type_asr_owner)->m_name;
+                    if( struct_type_asr_owner && ASR::is_a<ASR::Struct_t>(*struct_type_asr_owner) ) {
+                        std::string struct_var_name = ASR::down_cast<ASR::Struct_t>(struct_type_asr_owner)->m_name;
                         std::string struct_member_name = struct_type->m_name;
                         std::string import_name = struct_var_name + "_" + struct_member_name;
                         ASR::symbol_t* import_struct_member = current_scope->resolve_symbol(import_name);
@@ -4729,22 +6500,22 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
                             }
                         }
                         if( import_from_struct ) {
-                            import_name = current_scope->get_unique_name(import_name);
+                            import_name = current_scope->get_unique_name(import_name, false);
                             import_struct_member = ASR::down_cast<ASR::symbol_t>(ASR::make_ExternalSymbol_t(al,
                                                                     loc, current_scope, s2c(al, import_name),
                                                                     member_var_struct_t->m_derived_type, s2c(al, struct_var_name), nullptr, 0,
                                                                     s2c(al, struct_member_name), ASR::accessType::Public));
                             current_scope->add_symbol(import_name, import_struct_member);
                         }
-                        member_var_type = ASRUtils::TYPE(ASR::make_Struct_t(al, loc, import_struct_member, nullptr, 0));
+                        member_var_type = ASRUtils::TYPE(ASRUtils::make_StructType_t_util(al, loc, import_struct_member));
                     }
                 }
             }
             tmp = ASR::make_StructInstanceMember_t(al, loc, val, member_sym,
-                                            member_var_type, nullptr);
-        } else if (ASR::is_a<ASR::Enum_t>(*type)) {
-            ASR::Enum_t* enum_ = ASR::down_cast<ASR::Enum_t>(type);
-            ASR::EnumType_t* enum_type = ASR::down_cast<ASR::EnumType_t>(enum_->m_enum_type);
+                                            member_var_type, nullptr);*/
+        } else if (ASR::is_a<ASR::EnumType_t>(*type)) {
+            ASR::EnumType_t* enum_ = ASR::down_cast<ASR::EnumType_t>(type);
+            ASR::Enum_t* enum_type = ASR::down_cast<ASR::Enum_t>(enum_->m_enum_type);
             std::string attr_name = attr_char;
             if( attr_name != "value" && attr_name != "name" ) {
                 throw SemanticError(attr_name + " property not yet supported with Enums. "
@@ -4762,14 +6533,19 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
             if( attr_name == "value" ) {
                 tmp = ASR::make_EnumValue_t(al, loc, t_mem, type, enum_type->m_type, nullptr);
             } else if( attr_name == "name" ) {
-                ASR::ttype_t* char_type = ASRUtils::TYPE(ASR::make_Character_t(al, loc, 1, -2,
-                                            nullptr, nullptr, 0));
+
+                ASR::expr_t* a_len = ASRUtils::EXPR(ASR::make_IntegerConstant_t(al,
+                                    loc, std::string(enum_type->m_name).size(), ASRUtils::TYPE(ASR::make_Integer_t(al, loc, 4))));
+                ASR::ttype_t* char_type = ASRUtils::TYPE(ASR::make_String_t(
+                    al, loc, 1, a_len, ASR::string_length_kindType::ExpressionLength, ASR::string_physical_typeType::DescriptorString));
                 tmp = ASR::make_EnumName_t(al, loc, t_mem, type, char_type, nullptr);
             }
-        } else if (ASR::is_a<ASR::Union_t>(*type)) {
-            ASR::Union_t* union_asr = ASR::down_cast<ASR::Union_t>(type);
-            ASR::symbol_t* union_sym = ASRUtils::symbol_get_past_external(union_asr->m_union_type);
-            ASR::UnionType_t* union_type = ASR::down_cast<ASR::UnionType_t>(union_sym);
+        } else if (ASR::is_a<ASR::UnionType_t>(*type)) {
+            ASR::symbol_t* union_sym = ASRUtils::symbol_get_past_external(t);
+            if (ASR::is_a<ASR::Variable_t>(*t))
+                union_sym = ASR::down_cast<ASR::Variable_t>(union_sym)->m_type_declaration;
+
+            ASR::Union_t* union_type = ASR::down_cast<ASR::Union_t>(union_sym);
             bool member_found = false;
             std::string member_name = attr_char;
             for( size_t i = 0; i < union_type->n_members && !member_found; i++ ) {
@@ -4789,8 +6565,22 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
         } else if(ASR::is_a<ASR::Pointer_t>(*type)) {
             ASR::Pointer_t* p = ASR::down_cast<ASR::Pointer_t>(type);
             visit_AttributeUtil(p->m_type, attr_char, t, loc);
+        } else if(ASR::is_a<ASR::SymbolicExpression_t>(*type)) {
+            std::string attr = attr_char;
+            if (attr == "func") {
+                using_func_attr = true;
+                return;
+            }
+            if (attr == "args") {
+                using_args_attr = true;
+                return;
+            }
+            ASR::expr_t *se = ASR::down_cast<ASR::expr_t>(ASR::make_Var_t(al, loc, t));
+            Vec<ASR::expr_t*> args;
+            args.reserve(al, 0);
+            handle_symbolic_attribute(se, attr, loc, args);
         } else {
-            throw SemanticError(ASRUtils::type_to_str_python(type) + " not supported yet in Attribute.",
+            throw SemanticError(ASRUtils::type_to_str_python_expr(type, nullptr) + " not supported yet in Attribute.",
                 loc);
         }
     }
@@ -4798,45 +6588,18 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
     void visit_Attribute(const AST::Attribute_t &x) {
         if (AST::is_a<AST::Name_t>(*x.m_value)) {
             std::string value = AST::down_cast<AST::Name_t>(x.m_value)->m_id;
-            if( value == "label" ) {
-                std::string labelname = x.m_attr;
-                if( goto_name2id.find(labelname) == goto_name2id.end() ) {
-                    goto_name2id[labelname] = std::make_tuple(gotoids, true, x.base.base.loc);
-                    gotoids += 1;
-                } else if( !std::get<1>(goto_name2id[labelname]) ) {
-                    goto_name2id[labelname] = std::make_tuple(
-                        std::get<0>(goto_name2id[labelname]),
-                        true,
-                        std::get<2>(goto_name2id[labelname])
-                    );
-                }
-                int id = std::get<0>(goto_name2id[labelname]);
-                tmp = ASR::make_GoToTarget_t(al, x.base.base.loc, id, x.m_attr);
-                return ;
-            }
-
-             if (value == "goto"){
-                std::string labelname = std::string(x.m_attr);
-                if( goto_name2id.find(labelname) == goto_name2id.end() ) {
-                    goto_name2id[labelname] = std::make_tuple(gotoids, false, x.base.base.loc);
-                    gotoids += 1;
-                }
-                int id = std::get<0>(goto_name2id[labelname]);
-                tmp = ASR::make_GoTo_t(al, x.base.base.loc, id, x.m_attr);
-                return ;
-            }
 
-            ASR::symbol_t *t = current_scope->resolve_symbol(value);
-
-            if (!t) {
+            ASR::symbol_t *org_sym = current_scope->resolve_symbol(value);
+            if (!org_sym) {
                 throw SemanticError("'" + value + "' is not defined in the scope",
                     x.base.base.loc);
             }
+            ASR::symbol_t *t = ASRUtils::symbol_get_past_external(org_sym);
             if (ASR::is_a<ASR::Variable_t>(*t)) {
                 ASR::Variable_t *var = ASR::down_cast<ASR::Variable_t>(t);
                 visit_AttributeUtil(var->m_type, x.m_attr, t, x.base.base.loc);
-            } else if (ASR::is_a<ASR::EnumType_t>(*t)) {
-                ASR::EnumType_t* enum_type = ASR::down_cast<ASR::EnumType_t>(t);
+            } else if (ASR::is_a<ASR::Enum_t>(*t)) {
+                ASR::Enum_t* enum_type = ASR::down_cast<ASR::Enum_t>(t);
                 ASR::symbol_t* enum_member = enum_type->m_symtab->resolve_symbol(std::string(x.m_attr));
                 if( !enum_member ) {
                     throw SemanticError(std::string(x.m_attr) + " not present in " +
@@ -4844,16 +6607,16 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
                                         x.base.base.loc);
                 }
                 ASR::Variable_t* enum_member_variable = ASR::down_cast<ASR::Variable_t>(enum_member);
-                ASR::expr_t* enum_type_var = ASRUtils::EXPR(ASR::make_Var_t(al, x.base.base.loc, t));
+                ASR::expr_t* enum_type_var = ASRUtils::EXPR(ASR::make_Var_t(al, x.base.base.loc, org_sym));
                 ASR::expr_t* enum_member_var = ASRUtils::EXPR(ASR::make_EnumStaticMember_t(al, x.base.base.loc, enum_type_var,
                                                     enum_member, enum_type->m_type,
                                                     ASRUtils::expr_value(enum_member_variable->m_symbolic_value)));
-                ASR::ttype_t* enum_t = ASRUtils::TYPE(ASR::make_Enum_t(al, x.base.base.loc, t, nullptr, 0));
+                ASR::ttype_t* enum_t = ASRUtils::TYPE(ASR::make_EnumType_t(al, x.base.base.loc, t));
                 tmp = ASR::make_EnumValue_t(al, x.base.base.loc, enum_member_var,
                         enum_t, enum_member_variable->m_type,
                         ASRUtils::expr_value(enum_member_variable->m_symbolic_value));
-            } else if (ASR::is_a<ASR::StructType_t>(*t)) {
-                ASR::StructType_t* struct_type = ASR::down_cast<ASR::StructType_t>(t);
+            } else if (ASR::is_a<ASR::Struct_t>(*t)) {
+                ASR::Struct_t* struct_type = ASR::down_cast<ASR::Struct_t>(t);
                 ASR::symbol_t* struct_member = struct_type->m_symtab->resolve_symbol(std::string(x.m_attr));
                 if( !struct_member ) {
                     throw SemanticError(std::string(x.m_attr) + " not present in " +
@@ -4862,13 +6625,13 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
                 }
                 if( ASR::is_a<ASR::Variable_t>(*struct_member) ) {
                     ASR::Variable_t* struct_member_variable = ASR::down_cast<ASR::Variable_t>(struct_member);
-                    ASR::expr_t* struct_type_var = ASRUtils::EXPR(ASR::make_Var_t(al, x.base.base.loc, t));
+                    ASR::expr_t* struct_type_var = ASRUtils::EXPR(ASR::make_Var_t(al, x.base.base.loc, org_sym));
                     tmp = ASR::make_StructStaticMember_t(al, x.base.base.loc,
                                                         struct_type_var, struct_member, struct_member_variable->m_type,
                                                         nullptr);
-                } else if( ASR::is_a<ASR::UnionType_t>(*struct_member) ) {
-                    ASR::expr_t* struct_type_var = ASRUtils::EXPR(ASR::make_Var_t(al, x.base.base.loc, t));
-                    ASR::ttype_t* union_type = ASRUtils::TYPE(ASR::make_Union_t(al, x.base.base.loc, struct_member, nullptr, 0));
+                } else if( ASR::is_a<ASR::Union_t>(*struct_member) ) {
+                    ASR::expr_t* struct_type_var = ASRUtils::EXPR(ASR::make_Var_t(al, x.base.base.loc, org_sym));
+                    ASR::ttype_t* union_type = ASRUtils::get_union_type(al, x.base.base.loc, ASRUtils::symbol_get_past_external(struct_member));
                     tmp = ASR::make_StructStaticMember_t(al, x.base.base.loc, struct_type_var, struct_member, union_type, nullptr);
                 }
             } else if (ASR::is_a<ASR::Module_t>(*t)) {
@@ -4912,9 +6675,11 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
                         ASR::EnumStaticMember_t* enum_Var = ASR::down_cast<ASR::EnumStaticMember_t>(enum_ref->m_v);
                         ASR::Variable_t* enum_m_var = ASR::down_cast<ASR::Variable_t>(enum_Var->m_m);
                         char *s = enum_m_var->m_name;
-                        size_t s_size = std::string(s).size();
-                        enum_ref_type = ASRUtils::TYPE(ASR::make_Character_t(al, x.base.base.loc,
-                                1, s_size, nullptr, nullptr, 0));
+                        ASR::expr_t* a_len = ASRUtils::EXPR(ASR::make_IntegerConstant_t(al, x.base.base.loc, 
+                                                std::string(s).size(), ASRUtils::TYPE(ASR::make_Integer_t(al, x.base.base.loc, 8))));
+                        enum_ref_type = ASRUtils::TYPE(ASR::make_String_t(
+                            al, x.base.base.loc, 1, a_len, ASR::string_length_kindType::ExpressionLength,
+                            ASR::string_physical_typeType::DescriptorString));
                         enum_ref_value = ASRUtils::EXPR(ASR::make_StringConstant_t(al, x.base.base.loc,
                                             s, enum_ref_type));
                     }
@@ -4944,15 +6709,20 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
         Vec<ASR::stmt_t*> orelse;
         orelse.reserve(al, x.n_orelse);
         transform_stmts(orelse, x.n_orelse, x.m_orelse);
-        tmp = ASR::make_If_t(al, x.base.base.loc, test, body.p,
+        tmp = ASR::make_If_t(al, x.base.base.loc, nullptr, test, body.p,
                 body.size(), orelse.p, orelse.size());
     }
 
     void visit_Dict(const AST::Dict_t &x) {
         LCOMPILERS_ASSERT(x.n_keys == x.n_values);
-        if( x.n_keys == 0 && ann_assign_target_type != nullptr ) {
-            tmp = ASR::make_DictConstant_t(al, x.base.base.loc, nullptr, 0,
-                                           nullptr, 0, ann_assign_target_type);
+        if( x.n_keys == 0 ) {
+            if( assign_asr_target != nullptr ) {
+                tmp = ASR::make_DictConstant_t(al, x.base.base.loc, nullptr, 0,
+                                            nullptr, 0, ASRUtils::expr_type(assign_asr_target));
+            }
+            else {
+                tmp = nullptr;
+            }
             return ;
         }
         Vec<ASR::expr_t*> keys;
@@ -4963,8 +6733,19 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
             ASR::expr_t *key = ASRUtils::EXPR(tmp);
             if (key_type == nullptr) {
                 key_type = ASRUtils::expr_type(key);
+                if (!is_hashable(key_type)) {
+                    diag.add(diag::Diagnostic(
+                        "Unhashable type: '" + ASRUtils::type_to_str_python_expr(key_type, key) + "'",
+                        diag::Level::Error, diag::Stage::Semantic, {
+                            diag::Label("Mutable type '" + ASRUtils::type_to_str_python_expr(key_type, key)
+                            + "' cannot become a key in dict. Hint: Use an immutable type for key.",
+                                    {key->base.loc})
+                        })
+                    );
+                    throw SemanticAbort();
+                }
             } else {
-                if (!ASRUtils::check_equal_type(ASRUtils::expr_type(key), key_type)) {
+                if (!ASRUtils::check_equal_type(ASRUtils::expr_type(key), key_type, nullptr, nullptr)) {
                     throw SemanticError("All dictionary keys must be of the same type",
                                         x.base.base.loc);
                 }
@@ -4980,7 +6761,7 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
             if (value_type == nullptr) {
                 value_type = ASRUtils::expr_type(value);
             } else {
-                if (!ASRUtils::check_equal_type(ASRUtils::expr_type(value), value_type)) {
+                if (!ASRUtils::check_equal_type(ASRUtils::expr_type(value), value_type, nullptr, nullptr)) {
                     throw SemanticError("All dictionary values must be of the same type",
                                         x.base.base.loc);
                 }
@@ -4988,6 +6769,19 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
             values.push_back(al, value);
         }
         raise_error_when_dict_key_is_float_or_complex(key_type, x.base.base.loc);
+
+        if (ASRUtils::is_character(*key_type) && !ASRUtils::is_allocatable(key_type))
+            key_type = ASRUtils::TYPE(ASR::make_Allocatable_t(al, x.base.base.loc, 
+                        ASRUtils::TYPE(ASR::make_String_t(al, x.base.base.loc, 1, nullptr, 
+                                    ASR::string_length_kindType::DeferredLength, 
+                                    ASR::string_physical_typeType::DescriptorString))));
+
+        if (ASRUtils::is_character(*value_type) && !ASRUtils::is_allocatable(value_type))
+            value_type = ASRUtils::TYPE(ASR::make_Allocatable_t(al, x.base.base.loc, 
+                        ASRUtils::TYPE(ASR::make_String_t(al, x.base.base.loc, 1, nullptr, 
+                                    ASR::string_length_kindType::DeferredLength, 
+                                    ASR::string_physical_typeType::DescriptorString))));
+
         ASR::ttype_t* type = ASRUtils::TYPE(ASR::make_Dict_t(al, x.base.base.loc,
                                              key_type, value_type));
         tmp = ASR::make_DictConstant_t(al, x.base.base.loc, keys.p, keys.size(),
@@ -5000,13 +6794,14 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
         Vec<ASR::stmt_t*> body;
         body.reserve(al, x.n_body);
         transform_stmts(body, x.n_body, x.m_body);
-        tmp = ASR::make_WhileLoop_t(al, x.base.base.loc, test, body.p,
-                body.size());
+        Vec<ASR::stmt_t*> orelse;
+        orelse.reserve(al, x.n_orelse);
+        transform_stmts(orelse, x.n_orelse, x.m_orelse);
+        tmp = ASR::make_WhileLoop_t(al, x.base.base.loc, nullptr, test, body.p,
+                body.size(), orelse.p, orelse.size());
     }
 
     void visit_Compare(const AST::Compare_t &x) {
-        this->visit_expr(*x.m_left);
-        ASR::expr_t *left = ASRUtils::EXPR(tmp);
         if (x.n_comparators > 1) {
             diag.add(diag::Diagnostic(
                 "Only one comparison operator is supported for now",
@@ -5017,6 +6812,42 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
             );
             throw SemanticAbort();
         }
+        this->visit_expr(*x.m_left);
+        if (using_func_attr) {
+            if (AST::is_a<AST::Attribute_t>(*x.m_left) && AST::is_a<AST::Name_t>(*x.m_comparators[0])) {
+                AST::Attribute_t *attr = AST::down_cast<AST::Attribute_t>(x.m_left);
+                AST::Name_t *type_name = AST::down_cast<AST::Name_t>(x.m_comparators[0]);
+                std::string symbolic_type = type_name->m_id;
+                if (AST::is_a<AST::Name_t>(*attr->m_value)) {
+                    AST::Name_t *var_name = AST::down_cast<AST::Name_t>(attr->m_value);
+                    std::string var = var_name->m_id;
+                    ASR::symbol_t *st = current_scope->resolve_symbol(var);
+                    ASR::expr_t *se = ASR::down_cast<ASR::expr_t>(
+                                    ASR::make_Var_t(al, x.base.base.loc, st));
+                    Vec<ASR::expr_t*> args;
+                    args.reserve(al, 0);
+                    if (symbolic_type == "Add") {
+                        tmp = attr_handler.eval_symbolic_is_Add(se, al, x.base.base.loc, args, diag);
+                        return;
+                    } else if (symbolic_type == "Mul") {
+                        tmp = attr_handler.eval_symbolic_is_Mul(se, al, x.base.base.loc, args, diag);
+                        return;
+                    } else if (symbolic_type == "Pow") {
+                        tmp = attr_handler.eval_symbolic_is_Pow(se, al, x.base.base.loc, args, diag);
+                        return;
+                    } else if (symbolic_type == "log") {
+                        tmp = attr_handler.eval_symbolic_is_log(se, al, x.base.base.loc, args, diag);
+                        return;
+                    } else if (symbolic_type == "sin") {
+                        tmp = attr_handler.eval_symbolic_is_sin(se, al, x.base.base.loc, args, diag);
+                        return;
+                    } else {
+                        throw SemanticError(symbolic_type + " symbolic type not supported yet", x.base.base.loc);
+                    }
+                }
+            }
+        }
+        ASR::expr_t *left = ASRUtils::EXPR(tmp);
         this->visit_expr(*x.m_comparators[0]);
         ASR::expr_t *right = ASRUtils::EXPR(tmp);
 
@@ -5036,29 +6867,7 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
 
         ASR::ttype_t *left_type = ASRUtils::expr_type(left);
         ASR::ttype_t *right_type = ASRUtils::expr_type(right);
-        if( ASR::is_a<ASR::Const_t>(*left_type) ) {
-            left_type = ASRUtils::get_contained_type(left_type);
-        }
-        if( ASR::is_a<ASR::Const_t>(*right_type) ) {
-            right_type = ASRUtils::get_contained_type(right_type);
-        }
         ASR::expr_t *overloaded = nullptr;
-        if (((left_type->type != ASR::ttypeType::Real &&
-            left_type->type != ASR::ttypeType::Integer) &&
-            (right_type->type != ASR::ttypeType::Real &&
-            right_type->type != ASR::ttypeType::Integer) &&
-            ((left_type->type != ASR::ttypeType::Complex ||
-            right_type->type != ASR::ttypeType::Complex) &&
-            x.m_ops != AST::cmpopType::Eq && x.m_ops != AST::cmpopType::NotEq) &&
-            (left_type->type != ASR::ttypeType::Character ||
-            right_type->type != ASR::ttypeType::Character)) &&
-            (left_type->type != ASR::ttypeType::Logical ||
-            right_type->type != ASR::ttypeType::Logical)) {
-        throw SemanticError(
-            "Compare: only Integer, Real, Logical, or String can be on the LHS and RHS."
-            "If operator is Eq or NotEq then Complex type is also acceptable",
-            x.base.base.loc);
-        }
 
         if (!ASRUtils::is_logical(*left_type) || !ASRUtils::is_logical(*right_type)) {
             cast_helper(left, right, false);
@@ -5067,9 +6876,9 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
         left_type = ASRUtils::expr_type(left);
         right_type = ASRUtils::expr_type(right);
         ASR::ttype_t *dest_type = left_type;
-        if (!ASRUtils::check_equal_type(left_type, right_type)) {
-            std::string ltype = ASRUtils::type_to_str_python(ASRUtils::expr_type(left));
-            std::string rtype = ASRUtils::type_to_str_python(ASRUtils::expr_type(right));
+        if (!ASRUtils::check_equal_type(left_type, right_type, nullptr, nullptr)) {
+            std::string ltype = ASRUtils::type_to_str_python_expr(ASRUtils::expr_type(left), left);
+            std::string rtype = ASRUtils::type_to_str_python_expr(ASRUtils::expr_type(right), right);
             diag.add(diag::Diagnostic(
                 "Type mismatch in comparison operator, the types must be compatible",
                 diag::Level::Error, diag::Stage::Semantic, {
@@ -5080,14 +6889,44 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
             throw SemanticAbort();
         }
         ASR::ttype_t *type = ASRUtils::TYPE(
-            ASR::make_Logical_t(al, x.base.base.loc, 4, nullptr, 0));
+            ASR::make_Logical_t(al, x.base.base.loc, 4));
         ASR::expr_t *value = nullptr;
 
-        if( ASR::is_a<ASR::Enum_t>(*dest_type) || ASR::is_a<ASR::Const_t>(*dest_type) ) {
+        if( ASR::is_a<ASR::EnumType_t>(*dest_type) ) {
             dest_type = ASRUtils::get_contained_type(dest_type);
         }
-        if (ASRUtils::is_integer(*dest_type)) {
 
+        if (ASRUtils::is_array(dest_type)) {
+            ASR::dimension_t* m_dims = nullptr;
+            int n_dims = ASRUtils::extract_dimensions_from_ttype(dest_type, m_dims);
+            int array_size = ASRUtils::get_fixed_size_of_array(m_dims, n_dims);
+            if (array_size == -1) {
+                throw SemanticError("The truth value of an array is ambiguous. Use a.any() or a.all()", x.base.base.loc);
+            } else if (array_size != 1) {
+                throw SemanticError("The truth value of an array with more than one element is ambiguous. Use a.any() or a.all()", x.base.base.loc);
+            } else {
+                Vec<ASR::array_index_t> argsL, argsR;
+                argsL.reserve(al, 1);
+                argsR.reserve(al, 1);
+                for (int i = 0; i < n_dims; i++) {
+                    ASR::array_index_t aiL, aiR;
+                    ASR::ttype_t *int_type = ASRUtils::TYPE(ASR::make_Integer_t(al, x.base.base.loc, 4));
+                    ASR::expr_t* const_zero = ASRUtils::EXPR(ASR::make_IntegerConstant_t(al, x.base.base.loc, 0, int_type));
+                    aiL.m_right = aiR.m_right = const_zero;
+                    aiL.m_left = aiR.m_left = nullptr;
+                    aiL.m_step = aiR.m_step = nullptr;
+                    aiL.loc = left->base.loc;
+                    aiR.loc = right->base.loc;
+                    argsL.push_back(al, aiL);
+                    argsR.push_back(al, aiR);
+                }
+                dest_type = ASRUtils::type_get_past_array(dest_type);
+                left = ASRUtils::EXPR(make_ArrayItem_t(al, left->base.loc, left, argsL.p, argsL.n, dest_type, ASR::arraystorageType::RowMajor, nullptr));
+                right = ASRUtils::EXPR(make_ArrayItem_t(al, right->base.loc, right, argsR.p, argsR.n, dest_type, ASR::arraystorageType::RowMajor, nullptr));
+            }
+        }
+
+        if (ASRUtils::is_integer(*dest_type)) {
             if (ASRUtils::expr_value(left) != nullptr && ASRUtils::expr_value(right) != nullptr) {
                 int64_t left_value = -1;
                 ASRUtils::extract_value(ASRUtils::expr_value(left), left_value);
@@ -5109,9 +6948,30 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
                 value = ASR::down_cast<ASR::expr_t>(ASR::make_LogicalConstant_t(
                     al, x.base.base.loc, result, type));
             }
-
             tmp = ASR::make_IntegerCompare_t(al, x.base.base.loc, left, asr_op, right, type, value);
-
+        } else if (ASRUtils::is_unsigned_integer(*dest_type)) {
+            if (ASRUtils::expr_value(left) != nullptr && ASRUtils::expr_value(right) != nullptr) {
+                int64_t left_value = -1;
+                ASRUtils::extract_value(ASRUtils::expr_value(left), left_value);
+                int64_t right_value = -1;
+                ASRUtils::extract_value(ASRUtils::expr_value(right), right_value);
+                bool result;
+                switch (asr_op) {
+                    case (ASR::cmpopType::Eq):  { result = left_value == right_value; break; }
+                    case (ASR::cmpopType::Gt): { result = left_value > right_value; break; }
+                    case (ASR::cmpopType::GtE): { result = left_value >= right_value; break; }
+                    case (ASR::cmpopType::Lt): { result = left_value < right_value; break; }
+                    case (ASR::cmpopType::LtE): { result = left_value <= right_value; break; }
+                    case (ASR::cmpopType::NotEq): { result = left_value != right_value; break; }
+                    default: {
+                        throw SemanticError("Comparison operator not implemented",
+                                            x.base.base.loc);
+                    }
+                }
+                value = ASR::down_cast<ASR::expr_t>(ASR::make_LogicalConstant_t(
+                    al, x.base.base.loc, result, type));
+            }
+            tmp = ASR::make_UnsignedIntegerCompare_t(al, x.base.base.loc, left, asr_op, right, type, value);
         } else if (ASRUtils::is_real(*dest_type)) {
 
             if (ASRUtils::expr_value(left) != nullptr && ASRUtils::expr_value(right) != nullptr) {
@@ -5198,62 +7058,35 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
             tmp = ASR::make_LogicalCompare_t(al, x.base.base.loc, left, asr_op, right, type, value);
 
         } else if (ASRUtils::is_character(*dest_type)) {
-
-            if (ASRUtils::expr_value(left) != nullptr && ASRUtils::expr_value(right) != nullptr) {
-                char* left_value = ASR::down_cast<ASR::StringConstant_t>(
-                                        ASRUtils::expr_value(left))->m_s;
-                char* right_value = ASR::down_cast<ASR::StringConstant_t>(
-                                        ASRUtils::expr_value(right))->m_s;
-                std::string left_str = std::string(left_value);
-                std::string right_str = std::string(right_value);
-                int8_t strcmp = left_str.compare(right_str);
-                bool result;
-                switch (asr_op) {
-                    case (ASR::cmpopType::Eq) : {
-                        result = (strcmp == 0);
-                        break;
-                    }
-                    case (ASR::cmpopType::NotEq) : {
-                        result = (strcmp != 0);
-                        break;
-                    }
-                    case (ASR::cmpopType::Gt) : {
-                        result = (strcmp > 0);
-                        break;
-                    }
-                    case (ASR::cmpopType::GtE) : {
-                        result = (strcmp > 0 || strcmp == 0);
-                        break;
-                    }
-                    case (ASR::cmpopType::Lt) : {
-                        result = (strcmp < 0);
-                        break;
-                    }
-                    case (ASR::cmpopType::LtE) : {
-                        result = (strcmp < 0 || strcmp == 0);
-                        break;
-                    }
-                    default: LCOMPILERS_ASSERT(false); // should never happen
-                }
-                value = ASR::down_cast<ASR::expr_t>(ASR::make_LogicalConstant_t(
-                    al, x.base.base.loc, result, type));
-            }
-
             tmp = ASR::make_StringCompare_t(al, x.base.base.loc, left, asr_op, right, type, value);
         } else if (ASR::is_a<ASR::Tuple_t>(*dest_type)) {
-            if (asr_op != ASR::cmpopType::Eq && asr_op != ASR::cmpopType::NotEq) {
-                throw SemanticError("Only Equal and Not-equal operators are supported for Tuples",
+            if (asr_op != ASR::cmpopType::Eq && asr_op != ASR::cmpopType::NotEq
+                && asr_op != ASR::cmpopType::Lt && asr_op != ASR::cmpopType::LtE
+                && asr_op != ASR::cmpopType::Gt && asr_op != ASR::cmpopType::GtE) {
+                throw SemanticError("Only ==, !=, <, <=, >, >= operators "
+                                    "are supported for Tuples",
                                 x.base.base.loc);
             }
             tmp = ASR::make_TupleCompare_t(al, x.base.base.loc, left, asr_op, right, type, value);
         } else if (ASR::is_a<ASR::List_t>(*dest_type)) {
-            if (asr_op != ASR::cmpopType::Eq && asr_op != ASR::cmpopType::NotEq) {
-                throw SemanticError("Only Equal and Not-equal operators are supported for Tuples",
+            if (asr_op != ASR::cmpopType::Eq && asr_op != ASR::cmpopType::NotEq
+                && asr_op != ASR::cmpopType::Lt && asr_op != ASR::cmpopType::LtE
+                && asr_op != ASR::cmpopType::Gt && asr_op != ASR::cmpopType::GtE) {
+                throw SemanticError("Only ==, !=, <, <=, >, >= operators "
+                                    "are supported for Lists",
                                 x.base.base.loc);
             }
             tmp = ASR::make_ListCompare_t(al, x.base.base.loc, left, asr_op, right, type, value);
+        } else if (ASR::is_a<ASR::CPtr_t>(*dest_type)) {
+            if (asr_op != ASR::cmpopType::Eq && asr_op != ASR::cmpopType::NotEq) {
+                throw SemanticError("Only Equal and Not-equal operators are supported for CPtr",
+                                x.base.base.loc);
+            }
+            tmp = ASR::make_CPtrCompare_t(al, x.base.base.loc, left, asr_op, right, type, value);
+        } else if (ASR::is_a<ASR::SymbolicExpression_t>(*dest_type)) {
+            tmp = ASR::make_SymbolicCompare_t(al, x.base.base.loc, left, asr_op, right, type, value);
         } else {
-            throw SemanticError("Compare not supported for type: " + ASRUtils::type_to_str_python(dest_type),
+            throw SemanticError("Compare not supported for type: " + ASRUtils::type_to_str_python_expr(dest_type, left),
                                 x.base.base.loc);
         }
 
@@ -5263,56 +7096,169 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
         }
     }
 
-    void visit_Pass(const AST::Pass_t &/*x*/) {
-        tmp = nullptr;
-    }
+    void visit_Membership(const AST::Membership_t &x) {
+        this->visit_expr(*x.m_left);
+        ASR::expr_t *left = ASRUtils::EXPR(tmp);
+        this->visit_expr(*x.m_right);
+        ASR::expr_t *right = ASRUtils::EXPR(tmp);
 
-    void visit_Return(const AST::Return_t &x) {
-        std::string return_var_name = "_lpython_return_variable";
-        ASR::symbol_t *return_var = current_scope->resolve_symbol(return_var_name);
-        if(!return_var) {
-            if (x.m_value) {
-                throw SemanticError("Return type of function is not defined",
-                                x.base.base.loc);
+        ASR::ttype_t *left_type = ASRUtils::expr_type(left);
+        ASR::ttype_t *right_type = ASRUtils::expr_type(right);
+
+        ASR::expr_t *value = nullptr;
+        ASR::ttype_t *type = ASRUtils::TYPE(ASR::make_Logical_t(
+                      al, x.base.base.loc, 4));
+        if (ASR::is_a<ASR::List_t>(*right_type)) {
+            ASR::ttype_t *contained_type = ASRUtils::get_contained_type(right_type);
+            if (!ASRUtils::check_equal_type(left_type, contained_type, nullptr, nullptr)) {
+                std::string ltype = ASRUtils::type_to_str_python_expr(ASRUtils::expr_type(left), left);
+                std::string rtype = ASRUtils::type_to_str_python_expr(ASRUtils::expr_type(right), right);
+                diag.add(diag::Diagnostic(
+                    "Type mismatch in comparison operator, the types must be compatible",
+                    diag::Level::Error, diag::Stage::Semantic, {
+                        diag::Label("type mismatch ('" + ltype + "' and '" + rtype + "')",
+                                {left->base.loc, right->base.loc})
+                    })
+                );
+                throw SemanticAbort();
             }
-            // this may be a case with void return type (like subroutine)
-            tmp = ASR::make_Return_t(al, x.base.base.loc);
-            return;
-        }
-        this->visit_expr(*x.m_value);
-        ASR::expr_t *value = ASRUtils::EXPR(tmp);
-        ASR::asr_t *return_var_ref = ASR::make_Var_t(al, x.base.base.loc, return_var);
-        ASR::expr_t *target = ASRUtils::EXPR(return_var_ref);
-        ASR::ttype_t *target_type = ASRUtils::expr_type(target);
-        ASR::ttype_t *value_type = ASRUtils::expr_type(value);
-        if( ASR::is_a<ASR::Const_t>(*target_type) ) {
-            target_type = ASRUtils::get_contained_type(target_type);
-        }
-        if( ASR::is_a<ASR::Const_t>(*value_type) ) {
-            value_type = ASRUtils::get_contained_type(value_type);
-        }
-        if (!ASRUtils::check_equal_type(target_type, value_type)) {
-            std::string ltype = ASRUtils::type_to_str_python(target_type);
-            std::string rtype = ASRUtils::type_to_str_python(value_type);
-            throw SemanticError("Type Mismatch in return, found ('" +
-                    ltype + "' and '" + rtype + "')", x.base.base.loc);
-        }
-        cast_helper(target, value, true);
-        ASR::stmt_t *overloaded=nullptr;
-        tmp = ASR::make_Assignment_t(al, x.base.base.loc, target, value,
-                                overloaded);
-        if( ASR::is_a<ASR::Const_t>(*ASRUtils::symbol_type(return_var)) ) {
-            ASR::Variable_t* return_variable = ASR::down_cast<ASR::Variable_t>(return_var);
-            return_variable->m_symbolic_value = value;
-            Vec<char*> variable_dependencies_vec;
-            variable_dependencies_vec.from_pointer_n_copy(al, return_variable->m_dependencies,
-                                                          return_variable->n_dependencies);
-            ASRUtils::collect_variable_dependencies(al, variable_dependencies_vec, nullptr, value, nullptr);
-            return_variable->m_dependencies = variable_dependencies_vec.p;
-            return_variable->n_dependencies = variable_dependencies_vec.size();
-        }
 
-        // We can only return one statement in `tmp`, so we insert the current
+            tmp = ASR::make_ListContains_t(al, x.base.base.loc, left, right, type, value);
+        } else if (ASRUtils::is_character(*right_type)) {
+            if (!ASRUtils::check_equal_type(left_type, right_type, nullptr, nullptr)) {
+                std::string ltype = ASRUtils::type_to_str_python_expr(ASRUtils::expr_type(left), left);
+                std::string rtype = ASRUtils::type_to_str_python_expr(ASRUtils::expr_type(right), right);
+                diag.add(diag::Diagnostic(
+                    "Type mismatch in comparison operator, the types must be compatible",
+                    diag::Level::Error, diag::Stage::Semantic, {
+                        diag::Label("type mismatch ('" + ltype + "' and '" + rtype + "')",
+                                {left->base.loc, right->base.loc})
+                    })
+                );
+                throw SemanticAbort();
+            }
+            if (ASRUtils::expr_value(left) != nullptr && ASRUtils::expr_value(right) != nullptr) {
+                char* left_value = ASR::down_cast<ASR::StringConstant_t>(
+                                        ASRUtils::expr_value(left))->m_s;
+                char* right_value = ASR::down_cast<ASR::StringConstant_t>(
+                                        ASRUtils::expr_value(right))->m_s;
+                std::string left_str = std::string(left_value);
+                std::string right_str = std::string(right_value);
+
+                bool result = right_str.find(left_str) != std::string::npos;
+
+                value = ASR::down_cast<ASR::expr_t>(ASR::make_LogicalConstant_t(
+                      al, x.base.base.loc, result, type));
+            }
+            tmp = make_StringContains_t(al, x.base.base.loc, left, right, type, value);
+        } else if (ASR::is_a<ASR::Tuple_t>(*right_type)) {
+            ASR::ttype_t *contained_type = ASRUtils::get_contained_type(right_type);
+            if (!ASRUtils::check_equal_type(left_type, contained_type, nullptr, nullptr)) {
+                std::string ltype = ASRUtils::type_to_str_python_expr(ASRUtils::expr_type(left), left);
+                std::string rtype = ASRUtils::type_to_str_python_expr(ASRUtils::expr_type(right), right);
+                diag.add(diag::Diagnostic(
+                    "Type mismatch in comparison operator, the types must be compatible",
+                    diag::Level::Error, diag::Stage::Semantic, {
+                        diag::Label("type mismatch ('" + ltype + "' and '" + rtype + "')",
+                                {left->base.loc, right->base.loc})
+                    })
+                );
+                throw SemanticAbort();
+            }
+
+            tmp = ASR::make_TupleContains_t(al, x.base.base.loc, left, right, type, value);
+        } else if (ASR::is_a<ASR::Set_t>(*right_type)) {
+            ASR::ttype_t *contained_type = ASRUtils::get_contained_type(right_type);
+            if (!ASRUtils::check_equal_type(left_type, contained_type, nullptr, nullptr)) {
+                std::string ltype = ASRUtils::type_to_str_python_expr(ASRUtils::expr_type(left), left);
+                std::string rtype = ASRUtils::type_to_str_python_expr(ASRUtils::expr_type(right), right);
+                diag.add(diag::Diagnostic(
+                    "Type mismatch in comparison operator, the types must be compatible",
+                    diag::Level::Error, diag::Stage::Semantic, {
+                        diag::Label("type mismatch ('" + ltype + "' and '" + rtype + "')",
+                                {left->base.loc, right->base.loc})
+                    })
+                );
+                throw SemanticAbort();
+            }
+
+            tmp = ASR::make_SetContains_t(al, x.base.base.loc, left, right, type, value);
+        } else if (ASR::is_a<ASR::Dict_t>(*right_type)) {
+            ASR::ttype_t *contained_type = ASRUtils::get_contained_type(right_type);
+            if (!ASRUtils::check_equal_type(left_type, contained_type, nullptr, nullptr)) {
+                std::string ltype = ASRUtils::type_to_str_python_expr(ASRUtils::expr_type(left), left);
+                std::string rtype = ASRUtils::type_to_str_python_expr(ASRUtils::expr_type(right), right);
+                diag.add(diag::Diagnostic(
+                    "Type mismatch in comparison operator, the types must be compatible",
+                    diag::Level::Error, diag::Stage::Semantic, {
+                        diag::Label("type mismatch ('" + ltype + "' and '" + rtype + "')",
+                                {left->base.loc, right->base.loc})
+                    })
+                );
+                throw SemanticAbort();
+            }
+
+            tmp = ASR::make_DictContains_t(al, x.base.base.loc, left, right, type, value);
+        } else {
+            throw SemanticError("Membership operator is only defined for strings, lists, tuples, sets and dictionaries.", x.base.base.loc);
+        }
+
+        if (x.m_op == AST::membershipopType::NotIn) {
+            tmp = ASR::make_LogicalNot_t(al, x.base.base.loc, ASRUtils::EXPR(tmp), type, nullptr);
+        }
+    }
+
+    void visit_ConstantEllipsis(const AST::ConstantEllipsis_t &/*x*/) {
+        tmp = nullptr;
+    }
+
+    void visit_Pass(const AST::Pass_t &/*x*/) {
+        tmp = nullptr;
+    }
+
+    void visit_Return(const AST::Return_t &x) {
+        std::string return_var_name = "_lpython_return_variable";
+        ASR::symbol_t *return_var = current_scope->resolve_symbol(return_var_name);
+        if(!return_var) {
+            if (x.m_value) {
+                throw SemanticError("Return type of function is not defined",
+                                x.base.base.loc);
+            }
+            // this may be a case with void return type (like subroutine)
+            tmp = ASR::make_Return_t(al, x.base.base.loc);
+            return;
+        }
+        ASR::asr_t *return_var_ref = ASR::make_Var_t(al, x.base.base.loc, return_var);
+        ASR::expr_t *target = ASRUtils::EXPR(return_var_ref);
+        ASR::ttype_t *target_type = ASRUtils::expr_type(target);
+        ASR::expr_t* assign_asr_target_copy = assign_asr_target;
+        assign_asr_target = target;
+        this->visit_expr(*x.m_value);
+        assign_asr_target = assign_asr_target_copy;
+        ASR::expr_t *value = ASRUtils::EXPR(tmp);
+        ASR::ttype_t *value_type = ASRUtils::expr_type(value);
+        if (!ASRUtils::check_equal_type(target_type, value_type, target, value)) {
+            std::string ltype = ASRUtils::type_to_str_python_expr(target_type, target);
+            std::string rtype = ASRUtils::type_to_str_python_expr(value_type, value);
+            throw SemanticError("Type Mismatch in return, found ('" +
+                    ltype + "' and '" + rtype + "')", x.base.base.loc);
+        }
+        cast_helper(target, value, true);
+        ASR::stmt_t *overloaded=nullptr;
+        tmp = ASRUtils::make_Assignment_t_util(al, x.base.base.loc, target, value,
+                                overloaded, false, false);
+        // if( ASR::is_a<ASR::Const_t>(*ASRUtils::symbol_type(return_var)) ) {
+        //     ASR::Variable_t* return_variable = ASR::down_cast<ASR::Variable_t>(return_var);
+        //     return_variable->m_symbolic_value = value;
+        //     SetChar variable_dependencies_vec;
+        //     variable_dependencies_vec.from_pointer_n_copy(al, return_variable->m_dependencies,
+        //                                                   return_variable->n_dependencies);
+        //     ASRUtils::collect_variable_dependencies(al, variable_dependencies_vec, nullptr, value, nullptr);
+        //     return_variable->m_dependencies = variable_dependencies_vec.p;
+        //     return_variable->n_dependencies = variable_dependencies_vec.size();
+        // }
+
+        // We can only return one statement in `tmp`, so we insert the current
         // `tmp` into the body of the function directly
         current_body->push_back(al, ASR::down_cast<ASR::stmt_t>(tmp));
 
@@ -5321,11 +7267,11 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
     }
 
     void visit_Continue(const AST::Continue_t &x) {
-        tmp = ASR::make_Cycle_t(al, x.base.base.loc);
+        tmp = ASR::make_Cycle_t(al, x.base.base.loc, nullptr);
     }
 
     void visit_Break(const AST::Break_t &x) {
-        tmp = ASR::make_Exit_t(al, x.base.base.loc);
+        tmp = ASR::make_Exit_t(al, x.base.base.loc, nullptr);
     }
 
     void visit_Raise(const AST::Raise_t &x) {
@@ -5349,8 +7295,19 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
             ASR::expr_t *value = ASRUtils::EXPR(tmp);
             if (type == nullptr) {
                 type = ASRUtils::expr_type(value);
+                if (!is_hashable(type)) {
+                    diag.add(diag::Diagnostic(
+                        "Unhashable type: '" + ASRUtils::type_to_str_python_expr(type, value) + "'",
+                        diag::Level::Error, diag::Stage::Semantic, {
+                            diag::Label("Mutable type '" + ASRUtils::type_to_str_python_expr(type, value)
+                            + "' cannot be stored in a set.",
+                                    {value->base.loc})
+                        })
+                    );
+                    throw SemanticAbort();
+                }
             } else {
-                if (!ASRUtils::check_equal_type(ASRUtils::expr_type(value), type)) {
+                if (!ASRUtils::check_equal_type(ASRUtils::expr_type(value), type, nullptr, nullptr)) {
                     throw SemanticError("All Set values must be of the same type for now",
                                         x.base.base.loc);
                 }
@@ -5364,145 +7321,20 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
     void visit_Expr(const AST::Expr_t &x) {
         if (AST::is_a<AST::Call_t>(*x.m_value)) {
             AST::Call_t *c = AST::down_cast<AST::Call_t>(x.m_value);
-            std::string call_name;
-            if (AST::is_a<AST::Name_t>(*c->m_func)) {
-                AST::Name_t *n = AST::down_cast<AST::Name_t>(c->m_func);
-                call_name = n->m_id;
-                ASR::symbol_t* s = current_scope->resolve_symbol(call_name);
-                if( call_name == "c_p_pointer" && !s ) {
-                    tmp = create_CPtrToPointer(*c);
-                    return;
-                }
-                if( call_name == "p_c_pointer" && !s ) {
-                    tmp = create_PointerToCPtr(*c);
-                    return;
-                }
-            } else if (AST::is_a<AST::Attribute_t>(*c->m_func)) {
-                AST::Attribute_t *at = AST::down_cast<AST::Attribute_t>(c->m_func);
-                if (AST::is_a<AST::Name_t>(*at->m_value)) {
-                    std::string value = AST::down_cast<AST::Name_t>(at->m_value)->m_id;
-                    ASR::symbol_t *t = current_scope->resolve_symbol(value);
-                    if (!t) {
-                        throw SemanticError("'" + value + "' is not defined in the scope",
-                            x.base.base.loc);
-                    }
-                    Vec<ASR::expr_t*> elements;
-                    elements.reserve(al, c->n_args);
-                    for (size_t i = 0; i < c->n_args; ++i) {
-                        visit_expr(*c->m_args[i]);
-                        elements.push_back(al, ASRUtils::EXPR(tmp));
-                    }
-                    ASR::expr_t *te = ASR::down_cast<ASR::expr_t>(
-                                        ASR::make_Var_t(al, x.base.base.loc, t));
-                    handle_attribute(te, at->m_attr, x.base.base.loc, elements);
-                    return;
-                }
-            } else {
-                throw SemanticError("Only Name/Attribute supported in Call",
-                    x.base.base.loc);
-            }
-
-            Vec<ASR::call_arg_t> args;
-            // Keyword arguments to be handled in make_call_helper
-            args.reserve(al, c->n_args);
-            visit_expr_list(c->m_args, c->n_args, args);
-            if (call_name == "print") {
-                ASR::expr_t *fmt = nullptr;
-                Vec<ASR::expr_t*> args_expr = ASRUtils::call_arg2expr(al, args);
-                ASR::expr_t *separator = nullptr;
-                ASR::expr_t *end = nullptr;
-                if (c->n_keywords > 0) {
-                    std::string arg_name;
-                    for (size_t i = 0; i < c->n_keywords; i++) {
-                        arg_name = c->m_keywords[i].m_arg;
-                        if (arg_name == "sep") {
-                            visit_expr(*c->m_keywords[i].m_value);
-                            separator = ASRUtils::EXPR(tmp);
-                            ASR::ttype_t *type = ASRUtils::expr_type(separator);
-                            if (!ASRUtils::is_character(*type)) {
-                                std::string found = ASRUtils::type_to_str(type);
-                                diag.add(diag::Diagnostic(
-                                    "Separator is expected to be of string type",
-                                    diag::Level::Error, diag::Stage::Semantic, {
-                                        diag::Label("Expected string, found: " + found,
-                                                {separator->base.loc})
-                                    })
-                                );
-                                throw SemanticAbort();
-                            }
-                        }
-                        if (arg_name == "end") {
-                            visit_expr(*c->m_keywords[i].m_value);
-                            end = ASRUtils::EXPR(tmp);
-                            ASR::ttype_t *type = ASRUtils::expr_type(end);
-                            if (!ASRUtils::is_character(*type)) {
-                                std::string found = ASRUtils::type_to_str(type);
-                                diag.add(diag::Diagnostic(
-                                    "End is expected to be of string type",
-                                    diag::Level::Error, diag::Stage::Semantic, {
-                                        diag::Label("Expected string, found: " + found,
-                                                {end->base.loc})
-                                    })
-                                );
-                                throw SemanticAbort();
-                            }
-                        }
-                    }
-                }
-                tmp = ASR::make_Print_t(al, x.base.base.loc, fmt,
-                    args_expr.p, args_expr.size(), separator, end);
-                return;
-
-            } else if (call_name == "quit") {
-                ASR::expr_t *code;
-                if (args.size() == 0) {
-                    code = nullptr;
-                } else if (args.size() == 1) {
-                    code = args[0].m_value;
-                } else {
-                    throw SemanticError("The function quit() requires 0 or 1 arguments",
-                        x.base.base.loc);
-                }
-                tmp = ASR::make_Stop_t(al, x.base.base.loc, code);
-                return;
-            }
-            ASR::symbol_t *s = current_scope->resolve_symbol(call_name);
-            if (!s) {
-                throw SemanticError("Function '" + call_name + "' is not declared",
-                    x.base.base.loc);
-            }
-            tmp = make_call_helper(al, s, current_scope, args, call_name,
-                    x.base.base.loc, true, c->m_args, c->n_args, c->m_keywords,
-                    c->n_keywords);
+            visit_Call(*c);
             return;
         }
         this->visit_expr(*x.m_value);
 
-        // If tmp is a statement and not an expression
-        // never cast into expression using ASRUtils::EXPR
-        // Just ignore and exit the function naturally.
-        if( !ASR::is_a<ASR::stmt_t>(*tmp) ) {
+        if (eval_count == 0 && tmp && !ASR::is_a<ASR::stmt_t>(*tmp)) {
+            // If tmp is a statement and not an expression
+            // never cast into expression using ASRUtils::EXPR
+            // Just ignore and exit the function naturally.
             LCOMPILERS_ASSERT(ASR::is_a<ASR::expr_t>(*tmp));
             tmp = nullptr;
         }
     }
 
-
-    ASR::asr_t* create_CPtrToPointer(const AST::Call_t& x) {
-        if( x.n_args != 2 ) {
-            throw SemanticError("c_p_pointer accepts two positional arguments, "
-                                "first a variable of c_ptr type and second "
-                                " the target type of the first variable.",
-                                x.base.base.loc);
-        }
-        visit_expr(*x.m_args[0]);
-        ASR::expr_t* cptr = ASRUtils::EXPR(tmp);
-        visit_expr(*x.m_args[1]);
-        ASR::expr_t* pptr = ASRUtils::EXPR(tmp);
-        return ASR::make_CPtrToPointer_t(al, x.base.base.loc, cptr,
-                                         pptr, nullptr);
-    }
-
     ASR::asr_t* create_PointerToCPtr(const AST::Call_t& x) {
         if( x.n_args != 2 ) {
             throw SemanticError("p_c_pointer accepts two positional arguments, "
@@ -5515,8 +7347,8 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
         ASR::expr_t* cptr = ASRUtils::EXPR(tmp);
         ASR::asr_t* pp = ASR::make_PointerToCPtr_t(al, x.base.base.loc, pptr,
                                          ASRUtils::expr_type(cptr), nullptr);
-        return ASR::make_Assignment_t(al, x.base.base.loc,
-            cptr, ASR::down_cast<ASR::expr_t>(pp), nullptr);
+        return ASRUtils::make_Assignment_t_util(al, x.base.base.loc,
+            cptr, ASR::down_cast<ASR::expr_t>(pp), nullptr, false, false);
     }
 
     void handle_string_attributes(ASR::expr_t *s_var,
@@ -5544,6 +7376,46 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
             arg.loc = loc;
             arg.m_value = s_var;
             fn_args.push_back(al, arg);
+        } else if (attr_name == "title") {
+            if (args.size() != 0) {
+                throw SemanticError("str.title() takes no arguments",
+                    loc);
+            }
+            fn_call_name = "_lpython_str_title";
+            ASR::call_arg_t arg;
+            arg.loc = loc;
+            arg.m_value = s_var;
+            fn_args.push_back(al, arg);
+        } else if (attr_name == "upper") {
+            if (args.size() != 0) {
+                throw SemanticError("str.upper() takes no arguments",
+                    loc);
+            }
+            fn_call_name = "_lpython_str_upper";
+            ASR::call_arg_t arg;
+            arg.loc = loc;
+            arg.m_value = s_var;
+            fn_args.push_back(al, arg);
+        } else if (attr_name == "join") {
+            if (args.size() != 1) {
+                throw SemanticError("str.join() takes one argument",
+                    loc);
+            }
+            ASR::expr_t *arg_sub = args[0].m_value;
+            ASR::ttype_t *arg_sub_type = ASRUtils::expr_type(arg_sub);
+            if(!ASR::is_a<ASR::List_t>(*arg_sub_type)){
+                throw SemanticError("str.join() takes type list only",
+                     loc);
+            }
+            fn_call_name = "_lpython_str_join";
+            ASR::call_arg_t str_var;
+            str_var.loc = loc;
+            str_var.m_value = s_var;
+            ASR::call_arg_t list_of_str;
+            list_of_str.loc = loc;
+            list_of_str.m_value = args[0].m_value;
+            fn_args.push_back(al, str_var);
+            fn_args.push_back(al, list_of_str);
         } else if (attr_name == "find") {
             if (args.size() != 1) {
                 throw SemanticError("str.find() takes one argument",
@@ -5606,13 +7478,13 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
             fn_args.push_back(al, arg);
         } else if (attr_name == "startswith") {
             if(args.size() != 1) {
-                throw SemanticError("str.startwith() takes one argument",
+                throw SemanticError("str.startswith() takes one argument",
                         loc);
             }
             ASR::expr_t *arg_sub = args[0].m_value;
             ASR::ttype_t *arg_sub_type = ASRUtils::expr_type(arg_sub);
             if (!ASRUtils::is_character(*arg_sub_type)) {
-                throw SemanticError("str.startwith() takes one argument of type: str",
+                throw SemanticError("str.startswith() takes one argument of type: str",
                         loc);
             }
             fn_call_name = "_lpython_str_startswith";
@@ -5624,52 +7496,208 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
             sub.m_value = args[0].m_value;
             fn_args.push_back(al, str);
             fn_args.push_back(al, sub);
-        } else {
-            throw SemanticError("String method not implemented: " + attr_name,
+        } else if (attr_name == "endswith") {
+            /*
+                str.endswith(suffix)     ---->
+                Return True if the string ends with the specified suffix, otherwise return False.
+
+                arg_sub: Substring argument provided inside endswith() function
+                arg_sub_type: Type of Substring argument
+                fn_call_name: Name of the Function that has logic/implementation of endswith() function
+                str: Associates with string on which endswith() function will act on
+                suffix: Associates with the suffix string which is provided as an argument to endswith() function
+            */
+            if(args.size() != 1) {
+                throw SemanticError("str.endswith() takes only one argument", loc);
+            }
+            ASR::expr_t *arg_suffix = args[0].m_value;
+            ASR::ttype_t *arg_suffix_type = ASRUtils::expr_type(arg_suffix);
+            if (!ASRUtils::is_character(*arg_suffix_type)) {
+                throw SemanticError("str.endswith() takes one argument of type: str", loc);
+            }
+
+            fn_call_name = "_lpython_str_endswith";
+            ASR::call_arg_t str;
+            str.loc = loc;
+            str.m_value = s_var;
+
+            ASR::call_arg_t suffix;
+            suffix.loc = loc;
+            suffix.m_value = args[0].m_value;
+
+            // Push string and substring argument on top of Vector (or Function Arguments Stack basically)
+            fn_args.push_back(al, str);
+            fn_args.push_back(al, suffix);
+        } else if (attr_name == "partition") {
+            /*
+                str.partition(seperator)        ---->
+
+                Split the string at the first occurrence of sep, and return a 3-tuple containing the part
+                before the separator, the separator itself, and the part after the separator.
+                If the separator is not found, return a 3-tuple containing the string itself, followed
+                by two empty strings.
+            */
+            Vec<ASR::expr_t*> args_; args_.reserve(al, args.n);
+            ASRUtils::visit_expr_list(al, args, args_);
+            tmp = ASRUtils::Partition::create_partition(al, loc, args_, s_var, diag);
+            return;
+        } else if(attr_name == "count") {
+            if(args.size() != 1) {
+                throw SemanticError("str.count() takes one argument for now.", loc);
+            }
+            ASR::expr_t *arg_value = args[0].m_value;
+            ASR::ttype_t *arg_value_type = ASRUtils::expr_type(arg_value);
+            if (!ASRUtils::is_character(*arg_value_type)) {
+                throw SemanticError("str.count() takes one argument of type: str", loc);
+            }
+
+            fn_call_name = "_lpython_str_count";
+            ASR::call_arg_t str;
+            str.loc = loc;
+            str.m_value = s_var;
+
+            ASR::call_arg_t value;
+            value.loc = loc;
+            value.m_value = args[0].m_value;
+
+            // Push string and substring argument on top of Vector (or Function Arguments Stack basically)
+            fn_args.push_back(al, str);
+            fn_args.push_back(al, value);
+        } else if(attr_name == "split") {
+            if(args.size() > 1) {
+                throw SemanticError("str.split() takes at most one argument for now.", loc);
+            }
+            fn_call_name = "_lpython_str_split";
+            ASR::call_arg_t str;
+            str.loc = loc;
+            str.m_value = s_var;
+
+            if (args.size() == 1) {
+                ASR::expr_t *arg_value = args[0].m_value;
+                ASR::ttype_t *arg_value_type = ASRUtils::expr_type(arg_value);
+                if (!ASRUtils::is_character(*arg_value_type)) {
+                    throw SemanticError("str.split() takes one argument of type: str", loc);
+                }
+                ASR::call_arg_t value;
+                value.loc = loc;
+                value.m_value = args[0].m_value;
+                fn_args.push_back(al, str);
+                fn_args.push_back(al, value);
+            } else {
+                fn_args.push_back(al, str);
+            }
+         } else if(attr_name == "replace") {
+            if(!(args.size() == 2 || args.size()==3)) {
+                throw SemanticError("str.replace() takes two or three arguments.", loc);
+            }
+            ASR::expr_t *arg_value = args[0].m_value;
+            ASR::ttype_t *arg_value_type = ASRUtils::expr_type(arg_value);
+            if (!ASRUtils::is_character(*arg_value_type)) {
+                throw SemanticError("str.replace() argument 1 must be str", loc);
+            }
+            arg_value = args[1].m_value;
+            arg_value_type = ASRUtils::expr_type(arg_value);
+            if (!ASRUtils::is_character(*arg_value_type)) {
+                throw SemanticError("str.replace() argument 2 must be str", loc);
+            }
+            fn_call_name = "_lpython_str_replace";
+            ASR::call_arg_t str;
+            str.loc = loc;
+            str.m_value = s_var;
+
+            ASR::call_arg_t value;
+            value.loc = loc;
+            value.m_value = args[0].m_value;
+            fn_args.push_back(al, str);
+            fn_args.push_back(al, value);
+            value.m_value = args[1].m_value;
+            fn_args.push_back(al, value);
+            if(args.size()==3){
+                ASR::expr_t *arg_value = args[2].m_value;
+                ASR::ttype_t *arg_value_type = ASRUtils::expr_type(arg_value);
+                if (!ASRUtils::is_integer(*arg_value_type)) {
+                    throw SemanticError("str.replace() argument 3 must be int", loc);
+                }
+                value.m_value = args[2].m_value;
+                fn_args.push_back(al, value);
+            }
+        } else if(attr_name == "center") {
+            if (args.size() != 1 && args.size() != 2) {
+                throw SemanticError("str.center() takes one or two argument",
                     loc);
-        }
-        ASR::symbol_t *fn_call = resolve_intrinsic_function(loc, fn_call_name);
-        tmp = make_call_helper(al, fn_call, current_scope, fn_args, fn_call_name, loc);
-    }
+            }
+            ASR::expr_t *arg_value = args[0].m_value;
+            ASR::ttype_t *arg_value_type = ASRUtils::expr_type(arg_value);
+            if (!ASRUtils::is_integer(*arg_value_type)) {
+                throw SemanticError("str.center() argument 1 must be integer", loc);
+            }
 
-    int KMP_string_match(std::string &s_var, std::string &sub) {
-        int str_len = s_var.size();
-        int sub_len = sub.size();
-        bool flag = 0;
-        int res = -1;
-        std::vector<int> lps(sub_len, 0);
-        if (str_len == 0 || sub_len == 0) {
-            res = (!sub_len || (sub_len == str_len))? 0: -1;
-        } else {
-            for(int i = 1, len = 0; i < sub_len;) {
-                if (sub[i] == sub[len]) {
-                    lps[i++] = ++len;
-                } else {
-                    if (len != 0) {
-                        len = lps[len - 1];
-                    } else {
-                        lps[i++] = 0;
-                    }
+            fn_call_name = "_lpython_str_center";
+            ASR::call_arg_t str;
+            str.loc = loc;
+            str.m_value = s_var;
+
+            ASR::call_arg_t value;
+            value.loc = loc;
+            value.m_value = args[0].m_value;
+            fn_args.push_back(al, str);
+            fn_args.push_back(al, value);
+
+            if(args.size() == 2){
+                ASR::expr_t *arg_value = args[1].m_value;
+                ASR::ttype_t *arg_value_type = ASRUtils::expr_type(arg_value);
+                if (!ASRUtils::is_character(*arg_value_type)) {
+                    throw SemanticError("str.center() argument 2 must be str", loc);
                 }
+                value.m_value = args[1].m_value;
+                fn_args.push_back(al, value);
             }
-            for (int i = 0, j = 0; (str_len - i) >= (sub_len - j) && !flag;) {
-                if (sub[j] == s_var[i]) {
-                    j++, i++;
-                }
-                if (j == sub_len) {
-                    res = i - j;
-                    flag = 1;
-                    j = lps[j - 1];
-                } else if (i < str_len && sub[j] != s_var[i]) {
-                    if (j != 0) {
-                        j = lps[j - 1];
-                    } else {
-                        i = i + 1;
-                    }
+        } else if(attr_name == "expandtabs") {
+            if(args.size() > 1) {
+                throw SemanticError("str.expandtabs() takes at most one argument.", loc);
+            }
+            fn_call_name = "_lpython_str_expandtabs";
+            ASR::call_arg_t str;
+            str.loc = loc;
+            str.m_value = s_var;
+            fn_args.push_back(al, str);
+
+            if(args.size() == 1){
+                ASR::expr_t *arg_value = args[0].m_value;
+                ASR::ttype_t *arg_value_type = ASRUtils::expr_type(arg_value);
+                if (!ASRUtils::is_integer(*arg_value_type)) {
+                    throw SemanticError("str.expandtabs() argument must be integer", loc);
                 }
+
+                ASR::call_arg_t value;
+                value.loc = loc;
+                value.m_value = args[0].m_value;
+                fn_args.push_back(al, value);
+            }
+        } else if(attr_name.size() > 2 && attr_name[0] == 'i' && attr_name[1] == 's') {
+            /*
+                String Validation Methods i.e all "is" based functions are handled here
+            */
+            std::vector<std::string> validation_methods{"lower", "upper", "decimal", "ascii", "space", "alpha", "title", "alnum", "numeric"};  // Database of validation methods supported
+            std::string method_name = attr_name.substr(2);
+
+            if(std::find(validation_methods.begin(),validation_methods.end(), method_name) == validation_methods.end()) {
+                throw SemanticError("String method not implemented: " + attr_name, loc);
             }
+            if (args.size() != 0) {
+                throw SemanticError("str." + attr_name + "() takes no arguments", loc);
+            }
+            fn_call_name = "_lpython_str_" + attr_name;
+            ASR::call_arg_t arg;
+            arg.loc = loc;
+            arg.m_value = s_var;
+            fn_args.push_back(al, arg);
+        } else {
+            throw SemanticError("String method not implemented: " + attr_name,
+                    loc);
         }
-        return res;
+        ASR::symbol_t *fn_call = resolve_intrinsic_function(loc, fn_call_name);
+        tmp = make_call_helper(al, fn_call, current_scope, fn_args, fn_call_name, loc);
     }
 
     void handle_constant_string_attributes(std::string &s_var,
@@ -5679,6 +7707,11 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
                 throw SemanticError("str.capitalize() takes no arguments",
                     loc);
             }
+            for (auto &i : s_var) {
+                if (i >= 'A' && i<= 'Z') {
+                    i = tolower(i);
+                }
+            }
             if (s_var.length() > 0) {
                 s_var[0] = toupper(s_var[0]);
             }
@@ -5692,31 +7725,43 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
                     i = tolower(i);
                 }
             }
+        } else if (attr_name == "upper") {
+            if (args.size() != 0) {
+                throw SemanticError("str.upper() takes no arguments",
+                        loc);
+            }
+            for (auto &i : s_var) {
+                if (i >= 'a' && i<= 'z') {
+                    i = toupper(i);
+                }
+            }
         } else if (attr_name == "find") {
             if (args.size() != 1) {
-                throw SemanticError("str.find() takes one arguments",
+                throw SemanticError("str.find() takes one argument",
                         loc);
             }
             ASR::expr_t *arg = args[0].m_value;
             ASR::ttype_t *type = ASRUtils::expr_type(arg);
             if (!ASRUtils::is_character(*type)) {
-                throw SemanticError("str.find() takes one arguments of type: str",
+                throw SemanticError("str.find() takes one argument of type: str",
                     arg->base.loc);
             }
             if (ASRUtils::expr_value(arg) != nullptr) {
                 ASR::StringConstant_t* sub_str_con = ASR::down_cast<ASR::StringConstant_t>(arg);
                 std::string sub = sub_str_con->m_s;
-                int res = KMP_string_match(s_var, sub);
+                int res = ASRUtils::KMP_string_match(s_var, sub);
                 tmp = ASR::make_IntegerConstant_t(al, loc, res,
-                    ASRUtils::TYPE(ASR::make_Integer_t(al,loc, 4, nullptr, 0)));
+                    ASRUtils::TYPE(ASR::make_Integer_t(al,loc, 4)));
             } else {
                 ASR::symbol_t *fn_div = resolve_intrinsic_function(loc, "_lpython_str_find");
                 Vec<ASR::call_arg_t> args;
                 args.reserve(al, 1);
                 ASR::call_arg_t str_arg;
                 str_arg.loc = loc;
-                ASR::ttype_t *str_type = ASRUtils::TYPE(ASR::make_Character_t(al, loc,
-                        1, s_var.size(), nullptr, nullptr, 0));
+                ASR::ttype_t *str_type = ASRUtils::TYPE(ASR::make_Allocatable_t(al, loc, 
+                                        ASRUtils::TYPE(ASR::make_String_t(al, loc, 1, nullptr, 
+                                            ASR::string_length_kindType::DeferredLength,
+                                            ASR::string_physical_typeType::DescriptorString))));
                 str_arg.m_value = ASRUtils::EXPR(
                         ASR::make_StringConstant_t(al, loc, s2c(al, s_var), str_type));
                 ASR::call_arg_t sub_arg;
@@ -5727,6 +7772,43 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
                 tmp = make_call_helper(al, fn_div, current_scope, args, "_lpython_str_find", loc);
             }
             return;
+        } else if (attr_name == "count") {
+            if (args.size() != 1) {
+                throw SemanticError("str.count() takes one argument",
+                        loc);
+            }
+            ASR::expr_t *arg = args[0].m_value;
+            ASR::ttype_t *type = ASRUtils::expr_type(arg);
+            if (!ASRUtils::is_character(*type)) {
+                throw SemanticError("str.count() takes one argument of type: str",
+                        arg->base.loc);
+            }
+            if (ASRUtils::expr_value(arg) != nullptr) {
+                ASR::StringConstant_t* sub_str_con = ASR::down_cast<ASR::StringConstant_t>(arg);
+                std::string sub = sub_str_con->m_s;
+                int res = ASRUtils::KMP_string_match_count(s_var, sub);
+                tmp = ASR::make_IntegerConstant_t(al, loc, res,
+                    ASRUtils::TYPE(ASR::make_Integer_t(al,loc, 4)));
+            } else {
+                ASR::symbol_t *fn_div = resolve_intrinsic_function(loc, "_lpython_str_count");
+                Vec<ASR::call_arg_t> args;
+                args.reserve(al, 1);
+                ASR::call_arg_t str_arg;
+                str_arg.loc = loc;
+                ASR::expr_t* a_len = ASRUtils::EXPR(ASR::make_IntegerConstant_t(al,
+                                            loc, s_var.size(), ASRUtils::TYPE(ASR::make_Integer_t(al, loc, 4))));
+                ASR::ttype_t *str_type = ASRUtils::TYPE(ASR::make_String_t(al, loc,
+                        1, a_len, ASR::string_length_kindType::DeferredLength, ASR::string_physical_typeType::DescriptorString));
+                str_arg.m_value = ASRUtils::EXPR(
+                        ASR::make_StringConstant_t(al, loc, s2c(al, s_var), str_type));
+                ASR::call_arg_t sub_arg;
+                sub_arg.loc = loc;
+                sub_arg.m_value = arg;
+                args.push_back(al, str_arg);
+                args.push_back(al, sub_arg);
+                tmp = make_call_helper(al, fn_div, current_scope, args, "_lpython_str_count", loc);
+            }
+            return;
         } else if (attr_name == "rstrip") {
             if (args.size() != 0) {
                 throw SemanticError("str.rstrip() takes no arguments",
@@ -5795,15 +7877,17 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
                 }
                 res &= res ? (ind2 == sub.size()): true;
                 tmp = ASR::make_LogicalConstant_t(al, loc, res,
-                    ASRUtils::TYPE(ASR::make_Logical_t(al, loc, 4, nullptr, 0)));
+                    ASRUtils::TYPE(ASR::make_Logical_t(al, loc, 4)));
             } else {
                 ASR::symbol_t *fn_div = resolve_intrinsic_function(loc, "_lpython_str_startswith");
                 Vec<ASR::call_arg_t> args;
                 args.reserve(al, 1);
                 ASR::call_arg_t str_arg;
                 str_arg.loc = loc;
-                ASR::ttype_t *str_type = ASRUtils::TYPE(ASR::make_Character_t(al, loc,
-                        1, s_var.size(), nullptr, nullptr, 0));
+                ASR::expr_t* a_len = ASRUtils::EXPR(ASR::make_IntegerConstant_t(al,
+                                            loc, s_var.size(), ASRUtils::TYPE(ASR::make_Integer_t(al, loc, 4))));
+                ASR::ttype_t *str_type = ASRUtils::TYPE(ASR::make_String_t(al, loc,
+                        1, a_len, ASR::string_length_kindType::DeferredLength, ASR::string_physical_typeType::DescriptorString));
                 str_arg.m_value = ASRUtils::EXPR(
                         ASR::make_StringConstant_t(al, loc, s2c(al, s_var), str_type));
                 ASR::call_arg_t sub_arg;
@@ -5815,139 +7899,605 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
                         "_lpython_str_startswith", loc);
             }
             return;
+        } else if (attr_name == "endswith") {
+            /*
+                str.endswith(suffix)     ---->
+                Return True if the string ends with the specified suffix, otherwise return False.
+            */
+
+            if (args.size() != 1) {
+                throw SemanticError("str.endswith() takes one arguments", loc);
+            }
+
+            ASR::expr_t *arg_suffix = args[0].m_value;
+            ASR::ttype_t *arg_suffix_type = ASRUtils::expr_type(arg_suffix);
+            if (!ASRUtils::is_character(*arg_suffix_type)) {
+                throw SemanticError("str.endswith() takes one arguments of type: str", arg_suffix->base.loc);
+            }
+
+            if (ASRUtils::expr_value(arg_suffix) != nullptr) {
+                /*
+                    Invoked when Suffix argument is provided as a constant string
+                */
+                ASR::StringConstant_t* suffix_constant = ASR::down_cast<ASR::StringConstant_t>(arg_suffix);
+                std::string suffix = suffix_constant->m_s;
+
+                bool res = true;
+                if (suffix.size() > s_var.size())
+                    res = false;
+                else
+                    res = std::equal(suffix.rbegin(), suffix.rend(), s_var.rbegin());
+
+                tmp = ASR::make_LogicalConstant_t(al, loc, res,
+                    ASRUtils::TYPE(ASR::make_Logical_t(al, loc, 4)));
+
+            } else {
+                /*
+                    Invoked when Suffix argument is provided as a variable
+                    b: str = "ple"
+                    Eg: "apple".endswith(b)
+                */
+                ASR::symbol_t *fn_div = resolve_intrinsic_function(loc, "_lpython_str_endswith");
+                Vec<ASR::call_arg_t> args;
+                args.reserve(al, 1);
+                ASR::call_arg_t str_arg;
+                str_arg.loc = loc;
+                ASR::expr_t* a_len = ASRUtils::EXPR(ASR::make_IntegerConstant_t(al,
+                                            loc, s_var.size(), ASRUtils::TYPE(ASR::make_Integer_t(al, loc, 4))));
+                ASR::ttype_t *str_type = ASRUtils::TYPE(ASR::make_String_t(al, loc,
+                        1, a_len, ASR::string_length_kindType::DeferredLength, ASR::string_physical_typeType::DescriptorString));
+                str_arg.m_value = ASRUtils::EXPR(
+                        ASR::make_StringConstant_t(al, loc, s2c(al, s_var), str_type));
+                ASR::call_arg_t sub_arg;
+                sub_arg.loc = loc;
+                sub_arg.m_value = arg_suffix;
+                args.push_back(al, str_arg);
+                args.push_back(al, sub_arg);
+
+                tmp = make_call_helper(al, fn_div, current_scope, args, "_lpython_str_endswith", loc);
+            }
+            return;
+        } else if (attr_name == "partition") {
+            /*
+                str.partition(seperator)        ---->
+                Split the string at the first occurrence of sep, and return a 3-tuple containing the part
+                before the separator, the separator itself, and the part after the separator.
+                If the separator is not found, return a 3-tuple containing the string itself, followed
+                by two empty strings.
+            */
+            Vec<ASR::expr_t*> args_; args_.reserve(al, args.n);
+            ASRUtils::visit_expr_list(al, args, args_);
+            if(s_var.size() == 0) {
+                throw SemanticError("String to undergo partition cannot be empty",
+                    loc);
+            }
+            ASR::expr_t* a_len = ASRUtils::EXPR(ASR::make_IntegerConstant_t(al,
+                                        loc, s_var.size(), ASRUtils::TYPE(ASR::make_Integer_t(al, loc, 4))));
+            ASR::ttype_t *char_type = ASRUtils::TYPE(ASR::make_String_t(al,
+                loc, 1, a_len, ASR::string_length_kindType::DeferredLength, ASR::string_physical_typeType::DescriptorString));
+            ASR::expr_t *str = ASRUtils::EXPR(ASR::make_StringConstant_t(al,
+                loc, s2c(al, s_var), char_type));
+            tmp = ASRUtils::Partition::create_partition(al, loc, args_, str, diag);
+            return;
+        } else if (attr_name.size() > 2 && attr_name[0] == 'i' && attr_name[1] == 's') {
+            /*
+                * Specification -
+
+                Return True if all cased characters [lowercase, uppercase, titlecase] in the string
+                are lowercase and there is at least one cased character, False otherwise.
+
+                * islower() method is limited to English Alphabets currently
+                * TODO: We can support other characters from Unicode Library
+            */
+            std::vector<std::string> validation_methods{"lower", "upper", "decimal", "ascii", "space", "alpha", "title", "alnum", "numeric"};  // Database of validation methods supported
+            std::string method_name = attr_name.substr(2);
+            if(std::find(validation_methods.begin(),validation_methods.end(), method_name) == validation_methods.end()) {
+                throw SemanticError("String method not implemented: " + attr_name, loc);
+            }
+            if (args.size() != 0) {
+                throw SemanticError("str." + attr_name + "() takes no arguments", loc);
+            }
+
+            if(attr_name == "islower") {
+                /*
+                    * Specification:
+                    Return True if all cased characters in the string are lowercase and there is at least one cased character, False otherwise.
+                */
+                bool is_cased_present = false;
+                bool is_lower = true;
+                for (auto &i : s_var) {
+                    if ((i >= 'A' && i <= 'Z') || (i >= 'a' && i <= 'z')) {
+                        is_cased_present = true;
+                        if(!(i >= 'a' && i <= 'z')) {
+                            is_lower = false;
+                            break;
+                        }
+                    }
+                }
+                is_lower = is_lower && is_cased_present;
+                tmp = ASR::make_LogicalConstant_t(al, loc, is_lower,
+                        ASRUtils::TYPE(ASR::make_Logical_t(al, loc, 4)));
+                return;
+            } else if(attr_name == "isupper") {
+                /*
+                    * Specification:
+                    Return True if all cased characters in the string are uppercase and there is at least one cased character, False otherwise.
+                */
+                bool is_cased_present = false;
+                bool is_upper = true;
+                for (auto &i : s_var) {
+                    if ((i >= 'A' && i <= 'Z') || (i >= 'a' && i <= 'z')) {
+                        is_cased_present = true;
+                        if(!(i >= 'A' && i <= 'Z')) {
+                            is_upper = false;
+                            break;
+                        }
+                    }
+                }
+                is_upper = is_upper && is_cased_present;
+                tmp = ASR::make_LogicalConstant_t(al, loc, is_upper,
+                        ASRUtils::TYPE(ASR::make_Logical_t(al, loc, 4)));
+                return;
+            } else if(attr_name == "isdecimal") {
+                /*
+                    * Specification:
+                    Return True if all characters in the string are decimal characters and there is at least one character, False otherwise.
+                */
+                bool is_decimal = (s_var.size() != 0);
+                for(auto &i: s_var) {
+                    if(i < '0' || i > '9') {
+                        is_decimal = false;
+                        break;
+                    }
+                }
+                tmp = ASR::make_LogicalConstant_t(al, loc, is_decimal,
+                        ASRUtils::TYPE(ASR::make_Logical_t(al, loc, 4)));
+                return;
+            } else if(attr_name == "isascii") {
+                /*
+                    * Specification -
+                    Return True if the string is empty or all characters in the string are ASCII, False otherwise.
+                    ASCII characters have code points in the range U+0000-U+007F.
+                */
+                bool is_ascii = true;
+                for(char i: s_var) {
+                    if (static_cast<unsigned int>(i) > 127) {
+                        is_ascii = false;
+                        break;
+                    }
+                }
+                tmp = ASR::make_LogicalConstant_t(al, loc, is_ascii,
+                        ASRUtils::TYPE(ASR::make_Logical_t(al, loc, 4)));
+                return;
+            } else if (attr_name == "isspace") {
+                /*
+                  * Specification:
+Return true if all characters in the input string are considered whitespace
+characters, as defined by CPython. Return false otherwise. For now we use the
+std::isspace function, but if we later discover that it differs from CPython,
+we will have to use something else.
+                */
+                bool is_space = (s_var.size() != 0);
+                for (char i : s_var) {
+                    if (!std::isspace(static_cast<unsigned char>(i))) {
+                        is_space = false;
+                        break;
+                    }
+                }
+                tmp = ASR::make_LogicalConstant_t(al, loc, is_space,
+                        ASRUtils::TYPE(ASR::make_Logical_t(al, loc, 4)));
+                return;
+            } else if (attr_name == "isalpha") {
+                /*
+                    * Specification -
+                    Return True if all characters in the string are alphabets,
+                    and there is at least one character in the string.
+                */
+                bool is_alpha = (s_var.size() != 0);
+                for (auto &i : s_var) {
+                    if (!((i >= 'A' && i <= 'Z') || (i >= 'a' && i <= 'z'))) {
+                        is_alpha = false;
+                        break;
+                    }
+                }
+                tmp = ASR::make_LogicalConstant_t(al, loc, is_alpha,
+                        ASRUtils::TYPE(ASR::make_Logical_t(al, loc, 4)));
+                return;
+            } else if (attr_name == "isalnum") {
+                /*
+                    * Specification -
+                    Return True if all characters in the string are alphabets or numbers,
+                    and there is at least one character in the string.
+                */
+                bool is_alnum = (s_var.size() != 0);
+                for (auto &i : s_var) {
+                    if (!((i >= 'A' && i <= 'Z') || (i >= 'a' && i <= 'z') || (i >= '0' && i <= '9'))) {
+                        is_alnum = false;
+                        break;
+                    }
+                }
+                tmp = ASR::make_LogicalConstant_t(al, loc, is_alnum,
+                        ASRUtils::TYPE(ASR::make_Logical_t(al, loc, 4)));
+                return;
+            } else if (attr_name == "isnumeric") {
+                /*
+                    * Specification -
+                    Return True if all characters in the string are numbers,
+                    and there is at least one character in the string.
+                */
+                bool is_numeric = (s_var.size() != 0);
+                for (auto &i : s_var) {
+                    if (!(i >= '0' && i <= '9')) {
+                        is_numeric = false;
+                        break;
+                    }
+                }
+                tmp = ASR::make_LogicalConstant_t(al, loc, is_numeric,
+                        ASRUtils::TYPE(ASR::make_Logical_t(al, loc, 4)));
+                return;
+            } else if (attr_name == "istitle") {
+                /*
+                    * Specification -
+                    Returns True if all words in the string are in title case,
+                    and there is at least one character in the string.
+                */
+                bool is_title = (s_var.size() != 0);
+
+                bool in_word = false; // Represents if we are in a word or not
+                bool is_alpha_present = false;
+                for (auto &i : s_var) {
+                    if (i >= 'A' && i <= 'Z') {
+                        is_alpha_present = true;
+                        if (in_word) {
+                            // We have come across an uppercase character in the middle of a word
+                            is_title = false;
+                            break;
+                        } else {
+                            in_word = true;
+                        }
+                    } else if (i >= 'a' && i <= 'z') {
+                        is_alpha_present = true;
+                        if (!in_word) {
+                            //We have come across a lowercase character at the start of a word
+                            is_title = false;
+                            break;
+                        }
+                    } else {
+                        in_word = false;
+                    }
+                }
+                is_title = is_title && is_alpha_present;
+                tmp = ASR::make_LogicalConstant_t(al, loc, is_title,
+                        ASRUtils::TYPE(ASR::make_Logical_t(al, loc, 4)));
+                return;
+            } else {
+                throw SemanticError("'str' object has no attribute '" + attr_name + "'", loc);
+            }
+        } else {
+            throw SemanticError("'str' object has no attribute '" + attr_name + "'",
+                    loc);
+        }
+        ASR::expr_t* a_len = ASRUtils::EXPR(ASR::make_IntegerConstant_t(al,
+                                    loc, s_var.size(), ASRUtils::TYPE(ASR::make_Integer_t(al, loc, 4))));
+        ASR::ttype_t *str_type = ASRUtils::TYPE(ASR::make_String_t(al, loc,
+                -1, a_len, ASR::string_length_kindType::DeferredLength, ASR::string_physical_typeType::DescriptorString));
+        tmp = ASR::make_StringConstant_t(al, loc, s2c(al, s_var), str_type);
+    }
+
+    void handle_attribute(AST::Attribute_t* at, Vec<ASR::call_arg_t> &args, const Location &loc) {
+        if (AST::is_a<AST::Name_t>(*at->m_value)) {
+            AST::Name_t *n = AST::down_cast<AST::Name_t>(at->m_value);
+            std::string mod_name = n->m_id;
+            std::string call_name = at->m_attr;
+            std::string call_name_store = "__" + mod_name + "_" + call_name;
+            ASR::symbol_t *st = nullptr;
+            if (current_scope->resolve_symbol(call_name_store) != nullptr) {
+                st = current_scope->get_symbol(call_name_store);
+            } else {
+                st = current_scope->resolve_symbol(mod_name);
+                std::set<std::string> symbolic_attributes = {
+                    "diff", "expand", "has", "subs"
+                };
+                std::set<std::string> symbolic_constants = {
+                    "pi", "E", "oo"
+                };
+                if (symbolic_attributes.find(call_name) != symbolic_attributes.end() &&
+                    symbolic_constants.find(mod_name) != symbolic_constants.end()){
+                        ASRUtils::create_intrinsic_function create_func;
+                        create_func = ASRUtils::IntrinsicElementalFunctionRegistry::get_create_function(mod_name);
+                        Vec<ASR::expr_t*> eles; eles.reserve(al, args.size());
+                        Vec<ASR::expr_t*> args_; args_.reserve(al, 1);
+                        for (size_t i=0; i<args.size(); i++) {
+                            eles.push_back(al, args[i].m_value);
+                        }
+                        tmp = create_func(al, at->base.base.loc, args_, diag);
+                        handle_symbolic_attribute(ASRUtils::EXPR(tmp), call_name, loc, eles);
+                        return;
+                }
+                if (!st) {
+                    throw SemanticError("NameError: '" + mod_name + "' is not defined", n->base.base.loc);
+                }
+                if( ASR::is_a<ASR::Module_t>(*st) ) {
+                    ASR::Module_t *m = ASR::down_cast<ASR::Module_t>(st);
+                    call_name_store = ASRUtils::get_mangled_name(m, call_name_store);
+                    st = import_from_module(al, m, current_scope, mod_name,
+                                        call_name, call_name_store, loc);
+                    current_scope->add_symbol(call_name_store, st);
+                } else if( ASR::is_a<ASR::Struct_t>(*st) ) {
+                    st = get_struct_member(st, call_name, loc);
+                } else if ( ASR::is_a<ASR::Variable_t>(*st)) {
+                    ASR::Variable_t* var = ASR::down_cast<ASR::Variable_t>(st);
+                    if (ASR::is_a<ASR::StructType_t>(*var->m_type) ) {
+                        //TODO: Correct Class and ClassType
+                        // call to struct member function
+                        // modifying args to pass the object as self
+                        ASR::symbol_t* der_sym = var->m_type_declaration;
+                        ASR::Struct_t* der = ASR::down_cast<ASR::Struct_t>(der_sym);
+                        Vec<ASR::call_arg_t> new_args; new_args.reserve(al, args.n + 1);
+                        ASR::call_arg_t self_arg;
+                        self_arg.loc = args[0].loc;
+                        self_arg.m_value = ASRUtils::EXPR(ASR::make_Var_t(al, loc, st));
+                        new_args.push_back(al, self_arg);
+                        for (size_t i=0; i<args.n; i++) {
+                            new_args.push_back(al, args[i]);
+                        }
+                        if ( der->m_symtab->get_symbol(call_name) ) {
+                            st = get_struct_member(der_sym, call_name, loc);
+                        } else if ( der->m_parent ) {
+                            ASR::Struct_t* parent = ASR::down_cast<ASR::Struct_t>(der->m_parent);
+                            if ( !parent->m_symtab->get_symbol(call_name) ) {
+                                throw SemanticError("Method not found in the class "+ std::string(der->m_name) +
+                                    " or it's parents",loc);
+                            } else {
+                                st = get_struct_member(der->m_parent, call_name, loc);
+                            }
+                        } else {
+                            throw SemanticError("Method not found in the class "+std::string(der->m_name)+
+                                " or it's parents",loc);
+                        }
+                        tmp = make_call_helper(al, st, current_scope, new_args, call_name, loc);
+                        return;
+                    } else {
+                        // this case when we have variable and attribute
+                        st = current_scope->resolve_symbol(mod_name);
+                        Vec<ASR::expr_t*> eles;
+                        eles.reserve(al, args.size());
+                        for (size_t i=0; i<args.size(); i++) {
+                            eles.push_back(al, args[i].m_value);
+                        }
+                        ASR::expr_t *se = ASR::down_cast<ASR::expr_t>(
+                                        ASR::make_Var_t(al, loc, st));
+                        if (ASR::is_a<ASR::String_t>(*ASRUtils::type_get_past_allocatable(ASRUtils::expr_type(se)))) {
+                            handle_string_attributes(se, args, at->m_attr, loc);
+                            return;
+                        }
+                        ASR::ttype_t *type = ASRUtils::expr_type(se);
+                        if (ASR::is_a<ASR::SymbolicExpression_t>(*type)) {
+                            handle_symbolic_attribute(se, at->m_attr, loc, eles);
+                            return;
+                        }
+                        handle_builtin_attribute(se, at->m_attr, loc, eles);
+                        return;
+                    }
+                }
+            }
+            tmp = make_call_helper(al, st, current_scope, args, call_name, loc);
+            return;
+        } else if (AST::is_a<AST::UnaryOp_t>(*at->m_value)) {
+            AST::UnaryOp_t* uop = AST::down_cast<AST::UnaryOp_t>(at->m_value);
+            visit_UnaryOp(*uop);
+            Vec<ASR::expr_t*> eles;
+            eles.reserve(al, args.size());
+            for (size_t i=0; i<args.size(); i++) {
+                eles.push_back(al, args[i].m_value);
+            }
+            ASR::expr_t* expr = ASR::down_cast<ASR::expr_t>(tmp);
+            handle_builtin_attribute(expr, at->m_attr, loc, eles);
+            return;
+        } else if (AST::is_a<AST::BinOp_t>(*at->m_value)) {
+            AST::BinOp_t* bop = AST::down_cast<AST::BinOp_t>(at->m_value);
+            std::set<std::string> symbolic_attributes = {
+                "diff", "expand", "has", "subs"
+            };
+            if (symbolic_attributes.find(at->m_attr) != symbolic_attributes.end()){
+                switch (bop->m_op) {
+                    case (AST::operatorType::Add) :
+                    case (AST::operatorType::Sub) :
+                    case (AST::operatorType::Mult) :
+                    case (AST::operatorType::Div) :
+                    case (AST::operatorType::Pow) : {
+                        visit_BinOp(*bop);
+                        Vec<ASR::expr_t*> eles;
+                        eles.reserve(al, args.size());
+                        for (size_t i=0; i<args.size(); i++) {
+                            eles.push_back(al, args[i].m_value);
+                        }
+                        handle_symbolic_attribute(ASRUtils::EXPR(tmp), at->m_attr, loc, eles);
+                        return;
+                    }
+                    default : {
+                        throw SemanticError("Binary operator type not supported", loc);
+                    }
+                }
+            }
+        } else if (AST::is_a<AST::ConstantInt_t>(*at->m_value)) {
+            if (std::string(at->m_attr) == std::string("bit_length")) {
+                //bit_length() attribute:
+                if(args.size() != 0) {
+                    throw SemanticError("int.bit_length() takes no arguments", loc);
+                }
+                AST::ConstantInt_t *n = AST::down_cast<AST::ConstantInt_t>(at->m_value);
+                int64_t int_val = std::abs(n->m_value);
+                int32_t res = 0;
+                for(; int_val; int_val >>= 1, res++);
+                ASR::ttype_t *int_type = ASRUtils::TYPE(ASR::make_Integer_t(al, loc, 4));
+                tmp = ASR::make_IntegerConstant_t(al, loc, res, int_type);
+                return;
+            } else {
+                throw SemanticError("'int' object has no attribute '" + std::string(at->m_attr) + "'", loc);
+            }
+        } else if (AST::is_a<AST::ConstantStr_t>(*at->m_value)) {
+            AST::ConstantStr_t *n = AST::down_cast<AST::ConstantStr_t>(at->m_value);
+            std::string res = n->m_value;
+            handle_constant_string_attributes(res, args, at->m_attr, loc);
+            return;
+        } else if (AST::is_a<AST::Call_t>(*at->m_value)) {
+            AST::Call_t* call = AST::down_cast<AST::Call_t>(at->m_value);
+            std::set<std::string> symbolic_attributes = {
+                "diff", "expand", "has", "subs"
+            };
+            if (symbolic_attributes.find(at->m_attr) != symbolic_attributes.end()){
+                std::set<std::string> symbolic_functions = {
+                    "sin", "cos", "log", "exp", "Abs", "sign", "Symbol"
+                };
+                if (AST::is_a<AST::Attribute_t>(*call->m_func)) {
+                    visit_Call(*call);
+                    Vec<ASR::expr_t*> eles;
+                    eles.reserve(al, args.size());
+                    for (size_t i=0; i<args.size(); i++) {
+                        eles.push_back(al, args[i].m_value);
+                    }
+                    handle_symbolic_attribute(ASRUtils::EXPR(tmp), at->m_attr, loc, eles);
+                    return;
+                } else if (AST::is_a<AST::Name_t>(*call->m_func)) {
+                    AST::Name_t *n = AST::down_cast<AST::Name_t>(call->m_func);
+                    std::string call_name = n->m_id;
+                    if (symbolic_functions.find(call_name) != symbolic_functions.end()) {
+                        visit_Call(*call);
+                        Vec<ASR::expr_t*> eles;
+                        eles.reserve(al, args.size());
+                        for (size_t i=0; i<args.size(); i++) {
+                            eles.push_back(al, args[i].m_value);
+                        }
+                        handle_symbolic_attribute(ASRUtils::EXPR(tmp), at->m_attr, loc, eles);
+                        return;
+                    } else {
+                        throw SemanticError(std::string(call_name) + " not supported in Call", loc);
+                    }
+                }
+            }
+        } else if (AST::is_a<AST::List_t>(*at->m_value)) {
+            AST::List_t* clist = AST::down_cast<AST::List_t>(at->m_value);
+            visit_List(*clist);
+            if (tmp == nullptr) {
+                throw SemanticError("cannot call " + std::string(at->m_attr) + " on an empty list" , loc);
+            }
+            ASR::expr_t* list_expr = ASR::down_cast<ASR::expr_t>(tmp);
+            Vec<ASR::expr_t*> eles;
+            eles.reserve(al, args.size());
+            for (size_t i=0; i<args.size(); i++) {
+                eles.push_back(al, args[i].m_value);
+            }
+            handle_builtin_attribute(list_expr, at->m_attr, loc, eles);
+            return;
+        } else if (AST::is_a<AST::Dict_t>(*at->m_value)) {
+            AST::Dict_t* cdict = AST::down_cast<AST::Dict_t>(at->m_value);
+            visit_Dict(*cdict);
+            if (tmp == nullptr) {
+                throw SemanticError("cannot call " + std::string(at->m_attr) + " on an empty dict" , loc);
+            }
+            ASR::expr_t* dict_expr = ASR::down_cast<ASR::expr_t>(tmp);
+            Vec<ASR::expr_t*> eles;
+            eles.reserve(al, args.size());
+            for (size_t i = 0; i < args.size(); i++) {
+                eles.push_back(al, args[i].m_value);
+            }
+            handle_builtin_attribute(dict_expr, at->m_attr, loc, eles);
+            return;
+        } else if (AST::is_a<AST::Subscript_t>(*at->m_value)) {
+            AST::Subscript_t *s = AST::down_cast<AST::Subscript_t>(at->m_value);
+            visit_Subscript(*s);
+            ASR::expr_t *subscript_expr =  ASR::down_cast<ASR::expr_t>(tmp);
+            Vec<ASR::expr_t*> eles;
+            eles.reserve(al, args.size());
+            for (size_t i = 0; i < args.size(); i++) {
+                eles.push_back(al, args[i].m_value);
+            }
+            handle_builtin_attribute(subscript_expr, at->m_attr, loc, eles);
+            return;
+        } else if ( AST::is_a<AST::Attribute_t>(*at->m_value) ) {
+            AST::Attribute_t* at_m_value = AST::down_cast<AST::Attribute_t>(at->m_value);
+            visit_Attribute(*at_m_value);
+            ASR::expr_t* e = ASRUtils::EXPR(tmp);
+            if ( !ASR::is_a<ASR::StructInstanceMember_t>(*e) ) {
+                throw SemanticError("Expected a class variable here", loc);
+            }
+            if ( !ASR::is_a<ASR::StructType_t>(*ASRUtils::expr_type(e)) ) {
+                throw SemanticError("Only Classes supported in nested attribute call", loc);
+            }
+            ASR::symbol_t* der_sym = ASRUtils::get_struct_sym_from_struct_expr(e);
+            std::string call_name = at->m_attr;
+
+            Vec<ASR::call_arg_t> new_args; new_args.reserve(al, args.n + 1);
+            ASR::call_arg_t self_arg;
+            self_arg.loc = args[0].loc;
+            self_arg.m_value = e;
+            new_args.push_back(al, self_arg);
+            for (size_t i=0; i<args.n; i++) {
+                new_args.push_back(al, args[i]);
+            }
+            ASR::symbol_t* st = get_struct_member(der_sym, call_name, loc);
+            tmp = make_call_helper(al, st, current_scope, new_args, call_name, loc);
+            return;
         } else {
-            throw SemanticError("'str' object has no attribute '" + attr_name + "'",
-                    loc);
+            throw SemanticError("Only Name type and constant integers supported in Call", loc);
         }
-        ASR::ttype_t *str_type = ASRUtils::TYPE(ASR::make_Character_t(al, loc,
-                1, s_var.size(), nullptr, nullptr, 0));
-        tmp = ASR::make_StringConstant_t(al, loc, s2c(al, s_var), str_type);
     }
 
-    void visit_Call(const AST::Call_t &x) {
-        std::string call_name = "";
-        Vec<ASR::call_arg_t> args;
-        if (AST::is_a<AST::Name_t>(*x.m_func)) {
-            AST::Name_t *n = AST::down_cast<AST::Name_t>(x.m_func);
-            call_name = n->m_id;
+    ASR::symbol_t* get_struct_member(ASR::symbol_t* struct_type_sym, std::string &call_name, const Location &loc) {
+        ASR::Struct_t* struct_type = ASR::down_cast<ASR::Struct_t>(struct_type_sym);
+        std::string struct_var_name = struct_type->m_name;
+        std::string struct_member_name = call_name;
+        ASR::symbol_t* struct_member = struct_type->m_symtab->resolve_symbol(struct_member_name);
+        ASR::symbol_t* struct_mem_asr_owner = ASRUtils::get_asr_owner(struct_member);
+        if( !struct_member || !struct_mem_asr_owner ||
+            !ASR::is_a<ASR::Struct_t>(*struct_mem_asr_owner) ) {
+            throw SemanticError(struct_member_name + " not present in " +
+                                struct_var_name + " dataclass", loc);
         }
-        if (call_name == "c_p_pointer" &&
-            !current_scope->resolve_symbol(call_name)) {
-            is_c_p_pointer_call = true;
-            tmp = nullptr;
-            return ;
+        std::string import_name = struct_var_name + "_" + struct_member_name;
+        ASR::symbol_t* import_struct_member = current_scope->resolve_symbol(import_name);
+        bool import_from_struct = true;
+        if( import_struct_member ) {
+            if( ASR::is_a<ASR::ExternalSymbol_t>(*import_struct_member) ) {
+                ASR::ExternalSymbol_t* ext_sym = ASR::down_cast<ASR::ExternalSymbol_t>(import_struct_member);
+                if( ext_sym->m_external == struct_member &&
+                    std::string(ext_sym->m_module_name) == struct_var_name ) {
+                    import_from_struct = false;
+                }
+            }
         }
-        // Keyword arguments handled in make_call_helper
+        if( import_from_struct ) {
+            import_name = current_scope->get_unique_name(import_name, false);
+            import_struct_member = ASR::down_cast<ASR::symbol_t>(ASR::make_ExternalSymbol_t(al,
+                                        loc, current_scope, s2c(al, import_name),
+                                        struct_member, s2c(al, struct_var_name), nullptr, 0,
+                                        s2c(al, struct_member_name), ASR::accessType::Public));
+            current_scope->add_symbol(import_name, import_struct_member);
+        }
+        return import_struct_member;
+    }
+
+    void parse_args(const AST::Call_t &x, Vec<ASR::call_arg_t> &args) {
+        // Keyword arguments handled in make_call_helper()
         if( x.n_keywords == 0 ) {
             args.reserve(al, x.n_args);
             visit_expr_list(x.m_args, x.n_args, args);
         }
+    }
 
-        if (AST::is_a<AST::Attribute_t>(*x.m_func)) {
+    void visit_Call(const AST::Call_t &x) {
+        std::string call_name = "";
+        Vec<ASR::call_arg_t> args;
+        if (AST::is_a<AST::Name_t>(*x.m_func)) {
+            AST::Name_t *n = AST::down_cast<AST::Name_t>(x.m_func);
+            call_name = n->m_id;
+        } else if (AST::is_a<AST::Attribute_t>(*x.m_func)) {
+            parse_args(x, args);
             AST::Attribute_t *at = AST::down_cast<AST::Attribute_t>(x.m_func);
-            if (AST::is_a<AST::Name_t>(*at->m_value)) {
-                AST::Name_t *n = AST::down_cast<AST::Name_t>(at->m_value);
-                std::string mod_name = n->m_id;
-                call_name = at->m_attr;
-                std::string call_name_store = "__" + mod_name + "_" + call_name;
-                ASR::symbol_t *st = nullptr;
-                if (current_scope->resolve_symbol(call_name_store) != nullptr) {
-                    st = current_scope->get_symbol(call_name_store);
-                } else {
-                    SymbolTable *symtab = current_scope;
-                    while (symtab->parent != nullptr) symtab = symtab->parent;
-                    if (symtab->resolve_symbol(mod_name) == nullptr) {
-                        if (current_scope->resolve_symbol(mod_name) != nullptr) {
-                            // this case when we have variable and attribute
-                            st = current_scope->resolve_symbol(mod_name);
-                            Vec<ASR::expr_t*> eles;
-                            eles.reserve(al, x.n_args);
-                            for (size_t i=0; i<x.n_args; i++) {
-                                eles.push_back(al, args[i].m_value);
-                            }
-                            ASR::expr_t *se = ASR::down_cast<ASR::expr_t>(
-                                            ASR::make_Var_t(al, x.base.base.loc, st));
-                            if (ASR::is_a<ASR::Character_t>(*(ASRUtils::expr_type(se)))) {
-                                handle_string_attributes(se, args, at->m_attr, x.base.base.loc);
-                                return;
-                            }
-                            handle_attribute(se, at->m_attr, x.base.base.loc, eles);
-                            return;
-                        }
-                        throw SemanticError("module '" + mod_name + "' is not imported",
-                            x.base.base.loc);
-                    }
-                    ASR::symbol_t *mt = symtab->get_symbol(mod_name);
-                    if( ASR::is_a<ASR::Module_t>(*mt) ) {
-                        ASR::Module_t *m = ASR::down_cast<ASR::Module_t>(mt);
-                        call_name_store = ASRUtils::get_mangled_name(m, call_name_store);
-                        st = import_from_module(al, m, current_scope, mod_name,
-                                            call_name, call_name_store, x.base.base.loc);
-                        current_scope->add_symbol(call_name_store, st);
-                    } else if( ASR::is_a<ASR::StructType_t>(*mt) ) {
-                        ASR::StructType_t* struct_type = ASR::down_cast<ASR::StructType_t>(mt);
-                        std::string struct_var_name = struct_type->m_name;
-                        std::string struct_member_name = call_name;
-                        ASR::symbol_t* struct_member = struct_type->m_symtab->resolve_symbol(struct_member_name);
-                        if( !struct_member ) {
-                            throw SemanticError(struct_member_name + " not present in " +
-                                                struct_var_name + " dataclass.",
-                                                 x.base.base.loc);
-                        }
-                        std::string import_name = struct_var_name + "_" + struct_member_name;
-                        ASR::symbol_t* import_struct_member = current_scope->resolve_symbol(import_name);
-                        bool import_from_struct = true;
-                        if( import_struct_member ) {
-                            if( ASR::is_a<ASR::ExternalSymbol_t>(*import_struct_member) ) {
-                                ASR::ExternalSymbol_t* ext_sym = ASR::down_cast<ASR::ExternalSymbol_t>(import_struct_member);
-                                if( ext_sym->m_external == struct_member &&
-                                    std::string(ext_sym->m_module_name) == struct_var_name ) {
-                                    import_from_struct = false;
-                                }
-                            }
-                        }
-                        if( import_from_struct ) {
-                            import_name = current_scope->get_unique_name(import_name);
-                            import_struct_member = ASR::down_cast<ASR::symbol_t>(ASR::make_ExternalSymbol_t(al,
-                                                                    x.base.base.loc, current_scope, s2c(al, import_name),
-                                                                    struct_member, s2c(al, struct_var_name), nullptr, 0,
-                                                                    s2c(al, struct_member_name), ASR::accessType::Public));
-                            current_scope->add_symbol(import_name, import_struct_member);
-                        }
-                        st = import_struct_member;
-                    }
-                }
-                tmp = make_call_helper(al, st, current_scope, args, call_name, x.base.base.loc);
-                return;
-            } else if (AST::is_a<AST::ConstantInt_t>(*at->m_value)) {
-                if (std::string(at->m_attr) == std::string("bit_length")) {
-                    //bit_length() attribute:
-                    if(args.size() != 0) {
-                        throw SemanticError("int.bit_length() takes no arguments",
-                            x.base.base.loc);
-                    }
-                    AST::ConstantInt_t *n = AST::down_cast<AST::ConstantInt_t>(at->m_value);
-                    int64_t int_val = std::abs(n->m_value);
-                    int32_t res = 0;
-                    for(; int_val; int_val >>= 1, res++);
-                    ASR::ttype_t *int_type = ASRUtils::TYPE(ASR::make_Integer_t(al, x.base.base.loc,
-                        4, nullptr, 0));
-                    tmp = ASR::make_IntegerConstant_t(al, x.base.base.loc, res, int_type);
-                    return;
-                } else {
-                    throw SemanticError("'int' object has no attribute '" + std::string(at->m_attr) + "'",
-                        x.base.base.loc);
-                }
-            } else if (AST::is_a<AST::ConstantStr_t>(*at->m_value)) {
-                AST::ConstantStr_t *n = AST::down_cast<AST::ConstantStr_t>(at->m_value);
-                std::string res = n->m_value;
-                handle_constant_string_attributes(res, args, at->m_attr, x.base.base.loc);
-                return;
-            } else {
-                throw SemanticError("Only Name type and constant integers supported in Call",
-                    x.base.base.loc);
-            }
-        } else if( call_name == "" ) {
+            handle_attribute(at, args, x.base.base.loc);
+            return;
+        } else {
             throw SemanticError("Only Name or Attribute type supported in Call",
                 x.base.base.loc);
         }
@@ -5959,7 +8509,45 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
         }
 
         if (!s) {
-            if (intrinsic_procedures.is_intrinsic(call_name)) {
+            std::string intrinsic_name = call_name;
+            std::set<std::string> not_cpython_builtin = {
+                "sin", "cos", "gamma", "tan", "asin", "acos", "atan", "sinh", "cosh", "tanh", "exp", "exp2", "expm1", "Symbol", "diff", "expand", "trunc", "fix", "subs",
+                "sum" // For sum called over lists
+            };
+            std::set<std::string> symbolic_functions = {
+                "sin", "cos", "log", "exp", "Abs", "sign"
+            };
+            if ((symbolic_functions.find(call_name) != symbolic_functions.end()) &&
+                imported_functions[call_name] == "sympy"){
+                intrinsic_name = "Symbolic" + std::string(1, std::toupper(call_name[0])) + call_name.substr(1);
+            }
+            if ((ASRUtils::IntrinsicElementalFunctionRegistry::is_intrinsic_function(intrinsic_name) ||
+                ASRUtils::IntrinsicArrayFunctionRegistry::is_intrinsic_function(intrinsic_name)) &&
+                (not_cpython_builtin.find(call_name) == not_cpython_builtin.end() ||
+                imported_functions.find(call_name) != imported_functions.end() )) {
+                ASRUtils::create_intrinsic_function create_func;
+                if (ASRUtils::IntrinsicElementalFunctionRegistry::is_intrinsic_function(intrinsic_name)) {
+                    create_func = ASRUtils::IntrinsicElementalFunctionRegistry::get_create_function(intrinsic_name);
+                } else {
+                    create_func = ASRUtils::IntrinsicArrayFunctionRegistry::get_create_function(intrinsic_name);
+                }
+                Vec<ASR::expr_t*> args_; args_.reserve(al, x.n_args);
+                visit_expr_list(x.m_args, x.n_args, args_);
+                if (x.n_args > 0 && ASRUtils::is_array(ASRUtils::expr_type(args_[0])) &&
+                    imported_functions[call_name] == "math" ) {
+                    throw SemanticError("Function '" + call_name + "' does not accept vector values",
+                        x.base.base.loc);
+                }
+                if( intrinsic_name == "int" ) {
+                    args_.push_back(al,
+                        make_ConstantWithKind(make_IntegerConstant_t, make_Integer_t, 8, 4, x.base.base.loc));
+                }
+                tmp = create_func(al, x.base.base.loc, args_, diag);
+                if( tmp == nullptr ) {
+                    throw SemanticAbort();
+                }
+                return ;
+            } else if (intrinsic_procedures.is_intrinsic(call_name)) {
                 s = resolve_intrinsic_function(x.base.base.loc, call_name);
                 if (call_name == "pow") {
                     diag.add(diag::Diagnostic(
@@ -5976,49 +8564,250 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
                 /*
                 throw SemanticError("The function '" + call_name + "' is not declared and not intrinsic",
                     x.base.base.loc);
-            }
-            if (false) {
-                */
-                // This will all be removed once we port it to intrinsic functions
-            // Intrinsic functions
-            if (call_name == "size") {
-                // TODO: size should be part of ASR. That way
-                // ASR itself does not need a runtime library
-                // a runtime library thus becomes optional --- can either be
-                // implemented using ASR, or the backend can link it at runtime
-                ASR::ttype_t *a_type = ASRUtils::TYPE(ASR::make_Integer_t(al, x.base.base.loc,
-                    4, nullptr, 0));
-                /*
-                ASR::symbol_t *a_name = nullptr;
-                throw SemanticError("TODO: add the size() function and look it up",
-                    x.base.base.loc);
-                tmp = ASR::make_FunctionCall_t(al, x.base.base.loc, a_name,
-                    nullptr, args.p, args.size(), nullptr, 0, a_type, nullptr, nullptr);
                 */
+            if (call_name == "print") {
+                args.reserve(al, x.n_args);
+                visit_expr_list(x.m_args, x.n_args, args);
+                /*Vec<ASR::expr_t*> args_expr = ASRUtils::call_arg2expr(al, args);*/
+                
+
+                Vec<ASR::expr_t*> args_expr;
+                args_expr.reserve(al, args.size());
+                for (auto &a : args) {
+                    if (a.m_value != nullptr) {
+                        ASR::expr_t *expr = a.m_value;
+                        args_expr.push_back(al, expr);
+                    }
+                }
+
+                ASR::expr_t *separator = nullptr;
+                ASR::expr_t *end = nullptr;
+                if (x.n_keywords > 0) {
+                    std::string arg_name;
+                    for (size_t i = 0; i < x.n_keywords; i++) {
+                        arg_name = x.m_keywords[i].m_arg;
+                        if (arg_name == "sep") {
+                            visit_expr(*x.m_keywords[i].m_value);
+                            separator = ASRUtils::EXPR(tmp);
+                            ASR::ttype_t *type = ASRUtils::expr_type(separator);
+                            if (!ASRUtils::is_character(*type)) {
+                                std::string found = ASRUtils::type_to_str_python_expr(type, separator);
+                                diag.add(diag::Diagnostic(
+                                    "Separator is expected to be of string type",
+                                    diag::Level::Error, diag::Stage::Semantic, {
+                                        diag::Label("Expected string, found: " + found,
+                                                {separator->base.loc})
+                                    })
+                                );
+                                throw SemanticAbort();
+                            }
+                        }
+                        if (arg_name == "end") {
+                            visit_expr(*x.m_keywords[i].m_value);
+                            end = ASRUtils::EXPR(tmp);
+                            ASR::ttype_t *type = ASRUtils::expr_type(end);
+                            if (!ASRUtils::is_character(*type)) {
+                                std::string found = ASRUtils::type_to_str_python_expr(type, end);
+                                diag.add(diag::Diagnostic(
+                                    "End is expected to be of string type",
+                                    diag::Level::Error, diag::Stage::Semantic, {
+                                        diag::Label("Expected string, found: " + found,
+                                                {end->base.loc})
+                                    })
+                                );
+                                throw SemanticAbort();
+                            }
+                        }
+                    }
+                }
+                ASR::ttype_t *type = ASRUtils::TYPE(ASR::make_Allocatable_t(al, x.base.base.loc, 
+                                        ASRUtils::TYPE(ASR::make_String_t(al, x.base.base.loc, 1, nullptr, 
+                                            ASR::string_length_kindType::DeferredLength,
+                                            ASR::string_physical_typeType::DescriptorString))));
+                ASR::expr_t* string_format = ASRUtils::EXPR(ASRUtils::make_StringFormat_t_util(al, x.base.base.loc,
+                    nullptr, args_expr.p, args_expr.size(), ASR::string_format_kindType::FormatPythonFormat,
+                    type, nullptr));
 
-                tmp = ASR::make_IntegerConstant_t(al, x.base.base.loc, 1234, a_type);
+                tmp = ASR::make_Print_t(al, x.base.base.loc, string_format);
+                return;
+            } else if (call_name == "quit") {
+                parse_args(x, args);
+                ASR::expr_t *code;
+                if (args.size() == 0) {
+                    code = nullptr;
+                } else if (args.size() == 1) {
+                    code = args[0].m_value;
+                } else {
+                    throw SemanticError("The function quit() requires 0 or 1 arguments",
+                        x.base.base.loc);
+                }
+                tmp = ASR::make_Stop_t(al, x.base.base.loc, code);
+                return;
+            } else if( call_name == "reserve" ) {
+                parse_args(x, args);
+                ASRUtils::create_intrinsic_function create_func =
+                    ASRUtils::IntrinsicElementalFunctionRegistry::get_create_function("list.reserve");
+                Vec<ASR::expr_t*> args_exprs = ASRUtils::call_arg2expr(al, args);
+                tmp = create_func(al, x.base.base.loc, args_exprs, diag);
+                return ;
+            } else if (call_name == "size") {
+                parse_args(x, args);
+                if( args.size() < 1 || args.size() > 2 ) {
+                    throw SemanticError("array accepts only 1 (arr) or 2 (arr, axis) arguments, got " +
+                                        std::to_string(args.size()) + " arguments instead.",
+                                        x.base.base.loc);
+                }
+                const Location &loc = x.base.base.loc;
+                ASR::expr_t *var = args[0].m_value;
+                ASR::expr_t *dim = nullptr;
+                ASR::ttype_t *int_type = ASRUtils::TYPE(ASR::make_Integer_t(al, loc, 4));
+                if (args.size() == 2) {
+                    ASR::expr_t* const_one = ASRUtils::EXPR(make_IntegerConstant_t(al, loc, 1, int_type));
+                    dim = ASRUtils::EXPR(ASR::make_IntegerBinOp_t(al, loc,
+                        args[1].m_value, ASR::binopType::Add, const_one, int_type, nullptr));
+                }
+                tmp = ASRUtils::make_ArraySize_t_util(al, loc, var, dim, int_type, nullptr, false);
                 return;
             } else if (call_name == "empty") {
-                // TODO: check that the `empty` arguments are compatible
-                // with the type
-                tmp = nullptr;
+                if (x.n_args != 1 || x.n_keywords != 1) {
+                    throw SemanticError("empty() expects 1 positional argument for shape"
+                        " and 1 keyword argument for 'dtype'",
+                        x.base.base.loc);
+                }
+
+                ASR::ttype_t* type = nullptr;
+                bool is_allocatable = ASRUtils::is_allocatable(assign_asr_target);
+                Vec<ASR::dimension_t> dims;
+                dims.reserve(al, 0);
+
+                visit_expr(*x.m_args[0]);
+                ASR::expr_t* shape = ASRUtils::EXPR(tmp);
+                fill_dims_for_asr_type(dims, shape, shape->base.loc, is_allocatable);
+
+                std::string keyword_arg = x.m_keywords[0].m_arg;
+                if (keyword_arg != "dtype") {
+                    throw SemanticError("Unexpected keyword argument '" + keyword_arg + "', expected 'dtype'",
+                                x.m_keywords[0].loc);
+                }
+
+                std::string dtype_np = "";
+                if( AST::is_a<AST::Name_t>(*x.m_keywords[0].m_value) ) {
+                    AST::Name_t* name_t = AST::down_cast<AST::Name_t>(x.m_keywords[0].m_value);
+                    dtype_np = name_t->m_id;
+                } else {
+                    LCOMPILERS_ASSERT(false);
+                }
+
+                if (numpy2lpythontypes.find(dtype_np) != numpy2lpythontypes.end()) {
+                    dtype_np = numpy2lpythontypes[dtype_np];
+                }
+
+                ASR::symbol_t* type_decl = nullptr;
+                type = get_type_from_var_annotation(dtype_np, x.m_keywords[0].m_value->base.loc, dims, type_decl);
+                if (is_allocatable) {
+                    const Location& loc = x.base.base.loc;
+                    Vec<ASR::alloc_arg_t> alloc_args_vec;
+                    alloc_args_vec.reserve(al, 1);
+                    ASR::alloc_arg_t new_arg;
+                    new_arg.loc = loc;
+                    new_arg.m_len_expr = nullptr;
+                    new_arg.m_type = nullptr;
+                    new_arg.m_dims = dims.p;
+                    new_arg.n_dims = dims.size();
+                    new_arg.m_a = assign_asr_target;
+                    new_arg.m_sym_subclass = nullptr;
+                    alloc_args_vec.push_back(al, new_arg);
+                    tmp = ASR::make_Allocate_t(al, loc,
+                                alloc_args_vec.p, alloc_args_vec.size(),
+                                nullptr, nullptr, nullptr);
+                } else {
+                    const Location& loc = x.base.base.loc;
+                    ASR::ttype_t* el_type = ASRUtils::type_get_past_array(
+                    ASRUtils::type_get_past_allocatable_pointer(type));
+                    ASR::expr_t* zero = ASRUtils::get_constant_zero_with_given_type(al, int32);
+                    LCOMPILERS_ASSERT(assign_asr_target)
+                    size_t rank = ASRUtils::extract_n_dims_from_ttype(type);
+                    Vec<ASR::array_index_t> array_index; array_index.reserve(al, rank);
+                    for( size_t i = 0; i < rank; i++ ) {
+                        ASR::array_index_t idx;
+                        idx.loc = loc;
+                        idx.m_left = nullptr;
+                        idx.m_right = zero;
+                        idx.m_step = nullptr;
+                        array_index.push_back(al, idx);
+                    }
+                    ASR::expr_t* arrayitem = ASRUtils::EXPR(ASR::make_ArrayItem_t(
+                        al, loc, assign_asr_target, array_index.p, array_index.size(),
+                        el_type, ASR::arraystorageType::RowMajor, nullptr));
+                    ASRUtils::make_ArrayBroadcast_t_util(al, x.base.base.loc, assign_asr_target, arrayitem);
+                    tmp = &(arrayitem->base);
+                }
                 return;
-            } else if (call_name == "empty_c_void_p") {
-                // TODO: check that `empty_c_void_p uses` has arguments that are compatible
-                // with the type
-                tmp = nullptr;
+            } else if (call_name == "c_p_pointer") {
+                tmp = create_CPtrToPointer(x);
+                return;
+            } else if( call_name == "p_c_pointer" && !s ) {
+                tmp = create_PointerToCPtr(x);
+                return;
+            /*} else if (call_name == "empty_c_void_p") {*/
+            /*    // TODO: check that `empty_c_void_p uses` has arguments that are compatible*/
+            /*    // with the type*/
+            /*    ASR::ttype_t* type;*/
+            /*    if (assign_asr_target) {*/
+            /*        type = ASRUtils::expr_type(assign_asr_target);*/
+            /*    } else {*/
+            /*        type = ASRUtils::TYPE(ASR::make_CPtr_t(al, x.base.base.loc));*/
+            /*    }*/
+            /*    tmp = ASR::make_PointerNullConstant_t(al, x.base.base.loc, type);*/
+            /*    return;*/
+            } else if (call_name == "cptr_to_u64") {
+                parse_args(x, args);
+                if (args.size() != 1) {
+                    throw SemanticError("cptr_to_u64 accpets exactly 1 argument",
+                                        x.base.base.loc);
+                }
+
+                ASR::expr_t *var = args[0].m_value;
+                ASR::ttype_t *a_type = ASRUtils::expr_type(var);
+                if (!ASR::is_a<ASR::CPtr_t>(*a_type)) {
+                    throw SemanticError("Argument of type `CPtr` is expected in cptr_to_u64",
+                                        x.base.base.loc);
+                }
+                ASR::ttype_t *u_type = ASRUtils::TYPE(ASR::make_UnsignedInteger_t(al,
+                                x.base.base.loc, 8));
+
+                tmp = ASR::make_Cast_t(al, x.base.base.loc,
+                    var, ASR::cast_kindType::CPtrToUnsignedInteger, u_type, nullptr);
+                return;
+            } else if (call_name == "u64_to_cptr") {
+                parse_args(x, args);
+                if (args.size() != 1) {
+                    throw SemanticError("u64_to_cptr accpets exactly 1 argument",
+                                        x.base.base.loc);
+                }
+
+                ASR::expr_t *var = args[0].m_value;
+                ASR::ttype_t *a_type = ASRUtils::expr_type(var);
+                if (!ASR::is_a<ASR::UnsignedInteger_t>(*a_type)) {
+                    throw SemanticError("Argument of type `u64` is expected in u64_to_cptr",
+                                        x.base.base.loc);
+                }
+                ASR::ttype_t *c_type = ASRUtils::TYPE(ASR::make_CPtr_t(al, x.base.base.loc));
+
+                tmp = ASR::make_Cast_t(al, x.base.base.loc,
+                    var, ASR::cast_kindType::UnsignedIntegerToCPtr, c_type, nullptr);
                 return;
             } else if (call_name == "TypeVar") {
                 // Ignore TypeVar for now, we handle it based on the identifier itself
                 tmp = nullptr;
                 return;
             } else if (call_name == "callable") {
+                parse_args(x, args);
                 if (args.size() != 1) {
                     throw SemanticError(call_name + "() takes exactly one argument (" +
                         std::to_string(args.size()) + " given)", x.base.base.loc);
                 }
-                ASR::ttype_t *type = ASRUtils::TYPE(ASR::make_Logical_t(al, x.base.base.loc,
-                                    4, nullptr, 0));
+                ASR::ttype_t *type = ASRUtils::TYPE(ASR::make_Logical_t(al, x.base.base.loc, 4));
                 ASR::expr_t *arg = args[0].m_value;
                 bool result = false;
                 if (ASR::is_a<ASR::Var_t>(*arg)) {
@@ -6028,30 +8817,137 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
                 tmp = ASR::make_LogicalConstant_t(al, x.base.base.loc, result, type);
                 return;
             } else if( call_name == "pointer" ) {
-                ASR::ttype_t *type = ASRUtils::TYPE(ASR::make_Pointer_t(al, x.base.base.loc,
-                                            ASRUtils::expr_type(args[0].m_value)));
+                parse_args(x, args);
+                ASR::ttype_t* type_ = ASRUtils::duplicate_type_with_empty_dims(
+                    al, ASRUtils::expr_type(args[0].m_value),
+                    ASR::array_physical_typeType::DescriptorArray, true);
+                ASR::ttype_t *type = ASRUtils::TYPE(ASR::make_Pointer_t(al, x.base.base.loc, type_));
                 tmp = ASR::make_GetPointer_t(al, x.base.base.loc, args[0].m_value, type, nullptr);
                 return ;
+            } else if( call_name.substr(0, 6) == "bitnot" ) {
+                parse_args(x, args);
+                if (args.size() != 1) {
+                    throw SemanticError(call_name + "() expects one argument, provided " + std::to_string(args.size()), x.base.base.loc);
+                }
+                ASR::expr_t* operand = args[0].m_value;
+                ASR::ttype_t *operand_type = ASRUtils::expr_type(operand);
+                ASR::expr_t* value = nullptr;
+                if (!ASR::is_a<ASR::UnsignedInteger_t>(*operand_type)) {
+                    throw SemanticError(call_name + "() expects unsigned integer, provided" + ASRUtils::type_to_str_python_expr(operand_type, operand), x.base.base.loc);
+                }
+                if (ASRUtils::expr_value(operand) != nullptr) {
+                    int64_t op_value = ASR::down_cast<ASR::UnsignedIntegerConstant_t>(
+                                            ASRUtils::expr_value(operand))->m_n;
+                    uint64_t val = ~uint64_t(op_value);
+                    value = ASR::down_cast<ASR::expr_t>(ASR::make_UnsignedIntegerConstant_t(
+                        al, x.base.base.loc, val, operand_type));
+                }
+                tmp = ASR::make_UnsignedIntegerBitNot_t(al, x.base.base.loc, operand, operand_type, value);
+                return;
             } else if( call_name == "array" ) {
+                parse_args(x, args);
+                ASR::ttype_t* type = nullptr;
+                if( x.n_keywords > 0) {
+                    args.reserve(al, 1);
+                    visit_expr_list(x.m_args, x.n_args, args);
+                    if( x.n_keywords > 1 ) {
+                        throw SemanticError("More than one keyword "
+                            "arguments aren't recognised by array",
+                            x.base.base.loc);
+                    }
+                    if( std::string(x.m_keywords[0].m_arg) != "dtype" ) {
+                        throw SemanticError("Unrecognised keyword argument, " +
+                            std::string(x.m_keywords[0].m_arg), x.base.base.loc);
+                    }
+                    std::string dtype_np = "";
+                    if( AST::is_a<AST::Name_t>(*x.m_keywords[0].m_value) ) {
+                        AST::Name_t* name_t = AST::down_cast<AST::Name_t>(x.m_keywords[0].m_value);
+                        dtype_np = name_t->m_id;
+                    } else {
+                        LCOMPILERS_ASSERT(false);
+                    }
+                    LCOMPILERS_ASSERT(numpy2lpythontypes.find(dtype_np) != numpy2lpythontypes.end());
+                    Vec<ASR::dimension_t> dims;
+                    dims.n = 0;
+                    ASR::symbol_t* type_decl = nullptr;
+                    type = get_type_from_var_annotation(
+                        numpy2lpythontypes[dtype_np], x.base.base.loc, dims, type_decl);
+                }
                 if( args.size() != 1 ) {
                     throw SemanticError("array accepts only 1 argument for now, got " +
                                         std::to_string(args.size()) + " arguments instead.",
                                         x.base.base.loc);
                 }
                 ASR::expr_t *arg = args[0].m_value;
-                ASR::ttype_t *type = ASRUtils::expr_type(arg);
+                if( type == nullptr ) {
+                    type = ASRUtils::expr_type(arg);
+                }
                 if(ASR::is_a<ASR::ListConstant_t>(*arg)) {
-                    type = ASR::down_cast<ASR::List_t>(type)->m_type;
+                    type = ASRUtils::get_contained_type(type);
                     ASR::ListConstant_t* list = ASR::down_cast<ASR::ListConstant_t>(arg);
                     ASR::expr_t **m_args = list->m_args;
                     size_t n_args = list->n_args;
-                    tmp = ASR::make_ArrayConstant_t(al, x.base.base.loc, m_args, n_args, type, ASR::arraystorageType::RowMajor);
+                    Vec<ASR::dimension_t> dims;
+                    dims.reserve(al, 1);
+                    ASR::dimension_t dim;
+                    dim.loc = x.base.base.loc;
+                    dim.m_length = make_ConstantWithKind(make_IntegerConstant_t,
+                        make_Integer_t, n_args, 4, dim.loc);
+                    dim.m_start = make_ConstantWithKind(make_IntegerConstant_t,
+                        make_Integer_t, 0, 4, dim.loc);
+                    dims.push_back(al, dim);
+                    type = ASRUtils::make_Array_t_util(al, x.base.base.loc, type, dims.p, dims.size(),
+                        ASR::abiType::Source, false, ASR::array_physical_typeType::PointerArray, true);
+                    for( size_t i = 0; i < n_args; i++ ) {
+                        m_args[i] = CastingUtil::perform_casting(m_args[i], ASRUtils::type_get_past_array(type),
+                            al, x.base.base.loc);
+                    }
+                    tmp = ASRUtils::make_ArrayConstructor_t_util(al, x.base.base.loc, m_args, n_args, type, ASR::arraystorageType::RowMajor);
                 } else {
                     throw SemanticError("array accepts only list for now, got " +
-                                        ASRUtils::type_to_str(type) + " type.", x.base.base.loc);
+                                        ASRUtils::type_to_str_python_expr(type, nullptr) + " type.", x.base.base.loc);
                 }
                 return;
+            } else if( call_name == "set" ) {
+                parse_args(x, args);
+                if (args.size() == 0) {
+                    if( assign_asr_target != nullptr ) {
+                        tmp = ASR::make_SetConstant_t(al, x.base.base.loc, nullptr, 0,
+                                                      ASRUtils::expr_type(assign_asr_target));
+                    }
+                    else {
+                        tmp = nullptr;
+                    }
+                    return ;
+                } else if (args.size() > 1) {
+                    throw SemanticError("set accepts only 1 argument for now, got " +
+                                        std::to_string(args.size()) + " arguments instead.",
+                                        x.base.base.loc);
+                }
+                if ( assign_asr_target == nullptr ) {
+                    throw SemanticError("set from list cannot be called without target type for now", x.base.base.loc);
+                }
+                ASR::expr_t *arg = args[0].m_value;
+                ASR::ttype_t *type = ASRUtils::expr_type(arg);
+                if(!ASR::is_a<ASR::ListConstant_t>(*arg)) {
+                    throw SemanticError("set accepts only list constant for now, got " +
+                                        ASRUtils::type_to_str_python_expr(type, arg) + " type.", x.base.base.loc);
+                }
+                ASR::ListConstant_t* list = ASR::down_cast<ASR::ListConstant_t>(arg);
+                ASR::expr_t **m_args = list->m_args;
+                size_t n_args = list->n_args;
+                ASR::ttype_t* value_type = ASRUtils::get_contained_type(type);
+                ASR::ttype_t* target_type = ASRUtils::get_contained_type(ASRUtils::expr_type(assign_asr_target));
+                if (!ASRUtils::check_equal_type(target_type, value_type, nullptr, nullptr)){
+                    std::string ltype = ASRUtils::type_to_str_python_expr(target_type, nullptr);
+                    std::string rtype = ASRUtils::type_to_str_python_expr(value_type, nullptr);
+                    throw SemanticError("type mismatch ('" + ltype + "' and '" + rtype + "')", x.base.base.loc);
+                }
+                tmp = ASR::make_SetConstant_t(al, x.base.base.loc, m_args, n_args,
+                                                  ASRUtils::expr_type(assign_asr_target));
+                return ;
             } else if( call_name == "deepcopy" ) {
+                parse_args(x, args);
                 if( args.size() != 1 ) {
                     throw SemanticError("deepcopy only accepts one argument, found " +
                                         std::to_string(args.size()) + " instead.",
@@ -6060,59 +8956,131 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
                 tmp = (ASR::asr_t*) args[0].m_value;
                 return ;
             } else if( call_name == "sizeof" ) {
-                if( args.size() != 1 ) {
+
+                if( x.n_args + x.n_keywords != 1 ) {
                     throw SemanticError("sizeof only accepts one argument, found " +
-                                        std::to_string(args.size()) + " instead.",
+                                        std::to_string(x.n_args + x.n_keywords) + " instead.",
                                         x.base.base.loc);
                 }
-
-                ASR::ttype_t* arg_type = nullptr;
-                if( ASR::is_a<ASR::Var_t>(*args[0].m_value) ) {
-                    ASR::Var_t* arg_Var = ASR::down_cast<ASR::Var_t>(args[0].m_value);
-                    if( ASR::is_a<ASR::Variable_t>(*arg_Var->m_v) ) {
-                        arg_type = ASR::down_cast<ASR::Variable_t>(arg_Var->m_v)->m_type;
-                    } else if( ASR::is_a<ASR::StructType_t>(*arg_Var->m_v) ) {
-                        arg_type = ASRUtils::TYPE(ASR::make_Struct_t(al, x.base.base.loc,
-                                        arg_Var->m_v, nullptr, 0));
-                    } else {
-                        throw SemanticError("Symbol " + std::to_string(arg_Var->m_v->type) +
-                                            " is not yet supported in sizeof.",
-                                            x.base.base.loc);
+                bool is_allocatable = false, is_const = false;
+                ASR::symbol_t* type_decl = nullptr;
+                ASR::ttype_t* arg_type = ast_expr_to_asr_type(x.base.base.loc, *x.m_args[0],
+                                type_decl, is_allocatable, is_const, false);
+                ASR::expr_t* arg = nullptr;
+                if( !arg_type ) {
+                    visit_expr(*x.m_args[0]);
+                    arg = ASRUtils::EXPR(tmp);
+                }
+                if( arg ) {
+                    if( ASR::is_a<ASR::Var_t>(*arg) ) {
+                        ASR::Var_t* arg_Var = ASR::down_cast<ASR::Var_t>(arg);
+                        ASR::symbol_t* arg_Var_m_v = ASRUtils::symbol_get_past_external(arg_Var->m_v);
+                        if( ASR::is_a<ASR::Variable_t>(*arg_Var_m_v) ) {
+                            // TODO: Import the underlying struct if arg_type is of Struct type
+                            // Ideally if a variable of struct type is being imported then its underlying type
+                            // should also be imported automatically. However, the naming of the
+                            // underlying struct type might lead to collisions, so importing the type
+                            // here seems like a better choice. Should be done later when the case arises.
+                            arg_type = ASR::down_cast<ASR::Variable_t>(arg_Var_m_v)->m_type;
+                        } else {
+                            throw SemanticError("Symbol " + std::to_string(arg_Var_m_v->type) +
+                                                " is not yet supported in sizeof.",
+                                                x.base.base.loc);
+                        }
                     }
-                } else {
-                    arg_type = ASRUtils::expr_type(args[0].m_value);
                 }
-                ASR::ttype_t* size_type = ASRUtils::TYPE(ASR::make_Integer_t(al,
-                                            x.base.base.loc, 8, nullptr, 0));
+                ASR::ttype_t* size_type = ASRUtils::TYPE(ASR::make_Integer_t(al, x.base.base.loc, 8));
                 tmp = ASR::make_SizeOfType_t(al, x.base.base.loc,
                                              arg_type, size_type, nullptr);
                 return ;
-            } else if( call_name == "f64" || call_name == "f32" ||
-                call_name == "i64" || call_name == "i32" || call_name == "c32" ||
-                call_name == "c64" || call_name == "i8" || call_name == "i16" ) {
+            }  else if( call_name == "field" ) {
+                if (x.n_args != 0) {
+                    throw SemanticError("'field' expects only keyword arguments", x.base.base.loc);
+                }
+
+                if (x.n_keywords != 1) {
+                    throw SemanticError("'field' expects one keyword argument", x.base.base.loc);
+                }
+
+                args.reserve(al, 1);
+                visit_expr_list(x.m_args, x.n_args, args);
+
+                if( std::string(x.m_keywords[0].m_arg) != "default_factory" && std::string(x.m_keywords[0].m_arg) != "default" ) {
+                    throw SemanticError("Unrecognised keyword argument, " +
+                        std::string(x.m_keywords[0].m_arg), x.base.base.loc);
+                }
+
+                if ( std::string(x.m_keywords[0].m_arg) == "default_factory") {
+                    if (!AST::is_a<AST::Lambda_t>(*x.m_keywords[0].m_value)) {
+                        throw SemanticError("Only lambda functions currently supported as default_factory value", x.base.base.loc);
+                    }
+
+                    AST::Lambda_t* lambda_fn = AST::down_cast<AST::Lambda_t>(x.m_keywords[0].m_value);
+                    this->visit_expr(*lambda_fn->m_body);
+                } else {
+                    // field has default argument provided
+                    this->visit_expr(*x.m_keywords[0].m_value);
+                }
+                return ;
+            } else if(
+                        call_name == "f64" ||
+                        call_name == "f32" ||
+                        call_name == "i64" ||
+                        call_name == "i32" ||
+                        call_name == "i16" ||
+                        call_name == "i8"  ||
+                        call_name == "u64" ||
+                        call_name == "u32" ||
+                        call_name == "u16" ||
+                        call_name == "u8"  ||
+                        call_name == "c32" ||
+                        call_name == "c64" ||
+                        call_name == "S"
+                    ) {
+                parse_args(x, args);
                 ASR::ttype_t* target_type = nullptr;
                 if( call_name == "i8" ) {
-                    target_type = ASRUtils::TYPE(ASR::make_Integer_t(al, x.base.base.loc, 1, nullptr, 0));
+                    target_type = ASRUtils::TYPE(ASR::make_Integer_t(al, x.base.base.loc, 1));
                 } else if( call_name == "i16" ) {
-                    target_type = ASRUtils::TYPE(ASR::make_Integer_t(al, x.base.base.loc, 2, nullptr, 0));
+                    target_type = ASRUtils::TYPE(ASR::make_Integer_t(al, x.base.base.loc, 2));
                 } else if( call_name == "i32" ) {
-                    target_type = ASRUtils::TYPE(ASR::make_Integer_t(al, x.base.base.loc, 4, nullptr, 0));
+                    target_type = ASRUtils::TYPE(ASR::make_Integer_t(al, x.base.base.loc, 4));
                 } else if( call_name == "i64" ) {
-                    target_type = ASRUtils::TYPE(ASR::make_Integer_t(al, x.base.base.loc, 8, nullptr, 0));
+                    target_type = ASRUtils::TYPE(ASR::make_Integer_t(al, x.base.base.loc, 8));
+                } else if( call_name == "u8" ) {
+                    target_type = ASRUtils::TYPE(ASR::make_UnsignedInteger_t(al, x.base.base.loc, 1));
+                } else if( call_name == "u16" ) {
+                    target_type = ASRUtils::TYPE(ASR::make_UnsignedInteger_t(al, x.base.base.loc, 2));
+                } else if( call_name == "u32" ) {
+                    target_type = ASRUtils::TYPE(ASR::make_UnsignedInteger_t(al, x.base.base.loc, 4));
+                } else if( call_name == "u64" ) {
+                    target_type = ASRUtils::TYPE(ASR::make_UnsignedInteger_t(al, x.base.base.loc, 8));
                 } else if( call_name == "f32" ) {
-                    target_type = ASRUtils::TYPE(ASR::make_Real_t(al, x.base.base.loc, 4, nullptr, 0));
+                    target_type = ASRUtils::TYPE(ASR::make_Real_t(al, x.base.base.loc, 4));
                 } else if( call_name == "f64" ) {
-                    target_type = ASRUtils::TYPE(ASR::make_Real_t(al, x.base.base.loc, 8, nullptr, 0));
+                    target_type = ASRUtils::TYPE(ASR::make_Real_t(al, x.base.base.loc, 8));
                 } else if( call_name == "c32" ) {
-                    target_type = ASRUtils::TYPE(ASR::make_Complex_t(al, x.base.base.loc, 4, nullptr, 0));
+                    target_type = ASRUtils::TYPE(ASR::make_Complex_t(al, x.base.base.loc, 4));
                 } else if( call_name == "c64" ) {
-                    target_type = ASRUtils::TYPE(ASR::make_Complex_t(al, x.base.base.loc, 8, nullptr, 0));
+                    target_type = ASRUtils::TYPE(ASR::make_Complex_t(al, x.base.base.loc, 8));
+                } else if( call_name == "S" ) {
+                    target_type = ASRUtils::TYPE(ASR::make_SymbolicExpression_t(al, x.base.base.loc));
                 }
                 ASR::expr_t* arg = args[0].m_value;
+                if (ASR::is_a<ASR::UnsignedInteger_t>(*target_type)) {
+                    int64_t value_int;
+                    if( ASRUtils::extract_value(ASRUtils::expr_value(arg), value_int) ) {
+                        if (value_int < 0) {
+                            throw SemanticError("Cannot cast negative value to unsigned integer ",
+                                                x.base.base.loc);
+                        }
+                    }
+                }
                 cast_helper(target_type, arg, x.base.base.loc, true);
                 tmp = (ASR::asr_t*) arg;
                 return ;
             } else if (intrinsic_node_handler.is_present(call_name)) {
+                parse_args(x, args);
                 tmp = intrinsic_node_handler.get_intrinsic_node(call_name, al,
                                         x.base.base.loc, args);
                 return;
@@ -6123,24 +9091,24 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
             }
             } // end of "comment"
         }
+
+        parse_args(x, args);
         tmp = make_call_helper(al, s, current_scope, args, call_name, x.base.base.loc,
-                               false, x.m_args, x.n_args, x.m_keywords, x.n_keywords);
+                               x.m_args, x.n_args, x.m_keywords, x.n_keywords);
     }
 
-    void visit_ImportFrom(const AST::ImportFrom_t &/*x*/) {
-        // Handled by SymbolTableVisitor already
+    void visit_Global(const AST::Global_t &/*x*/) {
         tmp = nullptr;
     }
 };
 
-Result<ASR::TranslationUnit_t*> body_visitor(Allocator &al, LocationManager &lm,
-        const AST::Module_t &ast,
+Result<ASR::TranslationUnit_t*> body_visitor(Allocator &al, LocationManager &lm, const AST::Module_t &ast,
         diag::Diagnostics &diagnostics,
-        ASR::asr_t *unit, bool main_module,
+        ASR::asr_t *unit, bool main_module, std::string module_name,
         std::map<int, ASR::symbol_t*> &ast_overload,
-        bool allow_implicit_casting)
+        bool allow_implicit_casting, size_t eval_count)
 {
-    BodyVisitor b(al, lm, unit, diagnostics, main_module, ast_overload, allow_implicit_casting);
+    BodyVisitor b(al, lm, unit, diagnostics, main_module, module_name, ast_overload, allow_implicit_casting, eval_count);
     try {
         b.visit_Module(ast);
     } catch (const SemanticError &e) {
@@ -6156,6 +9124,9 @@ Result<ASR::TranslationUnit_t*> body_visitor(Allocator &al, LocationManager &lm,
 }
 
 std::string get_parent_dir(const std::string &path) {
+    if (path == "") {
+        return std::filesystem::current_path().string();
+    }
     int idx = path.size()-1;
     while (idx >= 0 && path[idx] != '/' && path[idx] != '\\') idx--;
     if (idx == -1) {
@@ -6164,23 +9135,39 @@ std::string get_parent_dir(const std::string &path) {
     return path.substr(0,idx);
 }
 
-Result<ASR::TranslationUnit_t*> python_ast_to_asr(Allocator &al, LocationManager &lm,
+Result<ASR::TranslationUnit_t*> python_ast_to_asr(Allocator &al, LocationManager &lm, SymbolTable* symtab,
     AST::ast_t &ast, diag::Diagnostics &diagnostics, CompilerOptions &compiler_options,
-    bool main_module, std::string file_path, bool allow_implicit_casting)
+    bool main_module, std::string module_name, std::string file_path, bool allow_implicit_casting, size_t eval_count)
 {
     std::map<int, ASR::symbol_t*> ast_overload;
     std::string parent_dir = get_parent_dir(file_path);
-    AST::Module_t *ast_m = AST::down_cast2<AST::Module_t>(&ast);
 
     ASR::asr_t *unit;
-    auto res = symbol_table_visitor(al, lm, *ast_m, diagnostics, main_module,
-        ast_overload, parent_dir, compiler_options.import_path, allow_implicit_casting);
+    AST::Module_t *ast_m = AST::down_cast2<AST::Module_t>(&ast);
+    Result<ASR::asr_t*> res = symbol_table_visitor(al, lm, symtab, *ast_m, diagnostics, main_module, module_name,
+    ast_overload, parent_dir, compiler_options.import_paths, allow_implicit_casting);
     if (res.ok) {
         unit = res.result;
     } else {
         return res.error;
     }
+
     ASR::TranslationUnit_t *tu = ASR::down_cast2<ASR::TranslationUnit_t>(unit);
+    if (compiler_options.po.dump_all_passes) {
+        std::ofstream outfile ("pass_00_initial_asr_01.clj");
+        outfile << ";; ASR after SymbolTable Visitor\n" << pickle(*tu, false, true, compiler_options.po.with_intrinsic_mods) << "\n";
+        outfile.close();
+    }
+    if (compiler_options.po.dump_fortran) {
+        LCompilers::Result<std::string> fortran_code = LCompilers::asr_to_fortran(*tu, diagnostics, false, 4);
+        if (!fortran_code.ok) {
+            LCOMPILERS_ASSERT(diagnostics.has_error());
+            throw LCompilersException("Fortran code could not be generated after symbol_table_visitor");
+        }
+        std::ofstream outfile ("pass_fortran_00_initial_code_01.f90");
+        outfile << "! Fortran code after SymbolTable Visitor\n" << fortran_code.result << "\n";
+        outfile.close();
+    }
 #if defined(WITH_LFORTRAN_ASSERT)
         if (!asr_verify(*tu, true, diagnostics)) {
             std::cerr << diagnostics.render2();
@@ -6189,13 +9176,28 @@ Result<ASR::TranslationUnit_t*> python_ast_to_asr(Allocator &al, LocationManager
 #endif
 
     if (!compiler_options.symtab_only) {
-        auto res2 = body_visitor(al, lm, *ast_m, diagnostics, unit, main_module,
-            ast_overload, allow_implicit_casting);
+        auto res2 = body_visitor(al, lm, *ast_m, diagnostics, unit, main_module, module_name,
+            ast_overload, allow_implicit_casting, eval_count);
         if (res2.ok) {
             tu = res2.result;
         } else {
             return res2.error;
         }
+        if (compiler_options.po.dump_all_passes) {
+            std::ofstream outfile ("pass_00_initial_asr_02.clj");
+            outfile << ";; Initial ASR after Body Visitor\n" << pickle(*tu, false, true, compiler_options.po.with_intrinsic_mods) << "\n";
+            outfile.close();
+        }
+        if (compiler_options.po.dump_fortran) {
+            LCompilers::Result<std::string> fortran_code = LCompilers::asr_to_fortran(*tu, diagnostics, false, 4);
+            if (!fortran_code.ok) {
+                LCOMPILERS_ASSERT(diagnostics.has_error());
+                throw LCompilersException("Fortran code could not be generated after body_visitor");
+            }
+            std::ofstream outfile ("pass_fortran_00_initial_code_02.f90");
+            outfile << "! Fortran code after Body Visitor\n" << fortran_code.result << "\n";
+            outfile.close();
+        }
 #if defined(WITH_LFORTRAN_ASSERT)
         diag::Diagnostics diagnostics;
         if (!asr_verify(*tu, true, diagnostics)) {
@@ -6205,29 +9207,50 @@ Result<ASR::TranslationUnit_t*> python_ast_to_asr(Allocator &al, LocationManager
 #endif
     }
 
-    if (main_module) {
+    if (main_module && !compiler_options.po.disable_main) {
         // If it is a main module, turn it into a program
         // Note: we can modify this behavior for interactive mode later
-        if (compiler_options.disable_main) {
-            if (tu->n_items > 0) {
-                diagnostics.add(diag::Diagnostic(
-                    "The script is invoked as the main module and it has code to execute,\n"
-                    "but `--disable-main` was passed so no code was generated for `main`.\n"
-                    "We are removing all global executable code from ASR.",
-                    diag::Level::Warning, diag::Stage::Semantic, {})
-                );
-                // We have to remove the code
-                tu->m_items=nullptr;
-                tu->n_items=0;
-                // LCOMPILERS_ASSERT(asr_verify(*tu));
-            }
-        } else {
-            LCompilers::PassOptions pass_options;
-            pass_options.run_fun = "_lpython_main_program";
-            pass_options.runtime_library_dir = get_runtime_library_dir();
-            pass_wrap_global_stmts_into_program(al, *tu, pass_options);
-            LCOMPILERS_ASSERT(asr_verify(*tu, true, diagnostics));
-        }
+
+        Vec<ASR::stmt_t*> prog_body;
+        prog_body.reserve(al, 1);
+        SetChar prog_dep;
+        prog_dep.reserve(al, 1);
+        SymbolTable *program_scope = al.make_new<SymbolTable>(tu->m_symtab);
+
+        std::string mod_name = "__main__";
+        ASR::symbol_t *mod_sym = tu->m_symtab->resolve_symbol(mod_name);
+        LCOMPILERS_ASSERT(mod_sym);
+        ASR::Module_t *mod = ASR::down_cast<ASR::Module_t>(mod_sym);
+        LCOMPILERS_ASSERT(mod);
+        std::vector<ASR::asr_t*> tmp_vec;
+        get_calls_to_global_stmts(al, tu->base.base.loc, program_scope, mod, tmp_vec);
+
+        for (auto i:tmp_vec) {
+            prog_body.push_back(al, ASRUtils::STMT(i));
+        }
+
+        if (prog_body.size() > 0) {
+            prog_dep.push_back(al, s2c(al, mod_name));
+        }
+
+        std::string prog_name = "main_program";
+        ASR::asr_t *prog = ASR::make_Program_t(
+            al, tu->base.base.loc,
+            /* a_symtab */ program_scope,
+            /* a_name */ s2c(al, prog_name),
+            prog_dep.p,
+            prog_dep.n,
+            /* a_body */ prog_body.p,
+            /* n_body */ prog_body.n);
+        tu->m_symtab->add_symbol(prog_name, ASR::down_cast<ASR::symbol_t>(prog));
+
+        #if defined(WITH_LFORTRAN_ASSERT)
+            diag::Diagnostics diagnostics;
+            if (!asr_verify(*tu, true, diagnostics)) {
+                std::cerr << diagnostics.render2();
+                throw LCompilersException("Verify failed");
+            };
+        #endif
     }
 
     return tu;
diff --git a/src/lpython/semantics/python_ast_to_asr.h b/src/lpython/semantics/python_ast_to_asr.h
index 36be479ab3..2afdfaaa2b 100644
--- a/src/lpython/semantics/python_ast_to_asr.h
+++ b/src/lpython/semantics/python_ast_to_asr.h
@@ -6,12 +6,12 @@
 
 namespace LCompilers::LPython {
 
-    Result<ASR::TranslationUnit_t*> python_ast_to_asr(Allocator &al, LocationManager &lm,
+    Result<ASR::TranslationUnit_t*> python_ast_to_asr(Allocator &al, LocationManager &lm, SymbolTable* symtab,
         LPython::AST::ast_t &ast, diag::Diagnostics &diagnostics, CompilerOptions &compiler_options,
-            bool main_module, std::string file_path, bool allow_implicit_casting=false);
+            bool main_module, std::string module_name, std::string file_path, bool allow_implicit_casting=false, size_t eval_count=0);
 
     int save_pyc_files(const ASR::TranslationUnit_t &u,
-                       std::string infile);
+                       std::string infile, LocationManager& lm);
 
 } // namespace LCompilers::LPython
 
diff --git a/src/lpython/semantics/python_attribute_eval.h b/src/lpython/semantics/python_attribute_eval.h
index f16961e23a..02ebca4126 100644
--- a/src/lpython/semantics/python_attribute_eval.h
+++ b/src/lpython/semantics/python_attribute_eval.h
@@ -6,6 +6,7 @@
 #include <libasr/string_utils.h>
 #include <lpython/utils.h>
 #include <lpython/semantics/semantic_exception.h>
+#include <libasr/pass/intrinsic_function_registry.h>
 
 namespace LCompilers::LPython {
 
@@ -14,21 +15,44 @@ struct AttributeHandler {
     typedef ASR::asr_t* (*attribute_eval_callback)(ASR::expr_t*, Allocator &,
                                 const Location &, Vec<ASR::expr_t*> &, diag::Diagnostics &);
 
-    std::map<std::string, attribute_eval_callback> attribute_map;
+    std::map<std::string, attribute_eval_callback> attribute_map, symbolic_attribute_map;
+    std::set<std::string> modify_attr_set;
 
     AttributeHandler() {
         attribute_map = {
             {"int@bit_length", &eval_int_bit_length},
+            {"array@size", &eval_array_size},
             {"list@append", &eval_list_append},
             {"list@remove", &eval_list_remove},
+            {"list@count", &eval_list_count},
+            {"list@index", &eval_list_index},
+            {"list@reverse", &eval_list_reverse},
+            {"list@pop", &eval_list_pop},
             {"list@clear", &eval_list_clear},
             {"list@insert", &eval_list_insert},
-            {"list@pop", &eval_list_pop},
             {"set@pop", &eval_set_pop},
             {"set@add", &eval_set_add},
             {"set@remove", &eval_set_remove},
+            {"set@discard", &eval_set_discard},
+            {"set@clear", &eval_set_clear},
             {"dict@get", &eval_dict_get},
-            {"dict@pop", &eval_dict_pop}
+            {"dict@pop", &eval_dict_pop},
+            {"dict@keys", &eval_dict_keys},
+            {"dict@values", &eval_dict_values},
+            {"dict@clear", &eval_dict_clear}
+        };
+
+        modify_attr_set = {"list@append", "list@remove",
+            "list@reverse", "list@clear", "list@insert", "list@pop",
+            "set@pop", "set@add", "set@remove", "set@discard", "dict@pop"};
+
+        symbolic_attribute_map = {
+            {"diff", &eval_symbolic_diff},
+            {"expand", &eval_symbolic_expand},
+            {"has", &eval_symbolic_has_symbol},
+            {"is_integer", &eval_symbolic_is_integer},
+            {"is_positive", &eval_symbolic_is_positive},
+            {"subs", &eval_symbolic_subs}
         };
     }
 
@@ -39,6 +63,8 @@ struct AttributeHandler {
             return "set";
         } else if (ASR::is_a<ASR::Dict_t>(*t)) {
             return "dict";
+        } else if (ASRUtils::is_array(t)) {
+            return "array";
         } else if (ASR::is_a<ASR::Integer_t>(*t)) {
             return "int";
         }
@@ -52,7 +78,16 @@ struct AttributeHandler {
         if (class_name == "") {
             throw SemanticError("Type name is not implemented yet.", loc);
         }
-        std::string key = get_type_name(type) + "@" + attr_name;
+        std::string key = class_name + "@" + attr_name;
+        if (modify_attr_set.find(key) != modify_attr_set.end()) {
+            if (ASR::is_a<ASR::Var_t>(*e)) {
+                ASR::Variable_t* v = ASRUtils::EXPR2VAR(e);
+                if (v->m_intent == ASRUtils::intent_in) {
+                    throw SemanticError("Modifying input function parameter `"
+                                + std::string(v->m_name) + "` is not allowed", loc);
+                }
+            }
+        }
         auto search = attribute_map.find(key);
         if (search != attribute_map.end()) {
             attribute_eval_callback cb = search->second;
@@ -63,19 +98,43 @@ struct AttributeHandler {
         }
     }
 
+    ASR::asr_t* get_symbolic_attribute(ASR::expr_t *e, std::string attr_name,
+            Allocator &al, const Location &loc, Vec<ASR::expr_t*> &args, diag::Diagnostics &diag) {
+        std::string key = attr_name;
+        auto search = symbolic_attribute_map.find(key);
+        if (search != symbolic_attribute_map.end()) {
+            attribute_eval_callback cb = search->second;
+            return cb(e, al, loc, args, diag);
+        } else {
+            throw SemanticError("S." + attr_name + " is not implemented yet",
+                loc);
+        }
+    }
+
     static ASR::asr_t* eval_int_bit_length(ASR::expr_t *s, Allocator &al, const Location &loc,
             Vec<ASR::expr_t*> &args, diag::Diagnostics &/*diag*/) {
         if (args.size() != 0) {
             throw SemanticError("int.bit_length() takes no arguments", loc);
         }
         int int_kind = ASRUtils::extract_kind_from_ttype_t(ASRUtils::expr_type(s));
-        ASR::ttype_t *int_type = ASRUtils::TYPE(ASR::make_Integer_t(al, loc,
-                                        int_kind, nullptr, 0));
+        ASR::ttype_t *int_type = ASRUtils::TYPE(ASR::make_Integer_t(al, loc, int_kind));
         return ASR::make_IntegerBitLen_t(al, loc, s, int_type, nullptr);
     }
 
+    static ASR::asr_t* eval_array_size(ASR::expr_t *s, Allocator &al, const Location &loc,
+            Vec<ASR::expr_t*> &args, diag::Diagnostics &/*diag*/) {
+        if (args.size() != 0) {
+            throw SemanticError("array.size() takes no arguments", loc);
+        }
+        ASR::ttype_t *int_type = ASRUtils::TYPE(ASR::make_Integer_t(al, loc, 4));
+        return ASRUtils::make_ArraySize_t_util(al, loc, s, nullptr, int_type, nullptr, false);
+    }
+
     static ASR::asr_t* eval_list_append(ASR::expr_t *s, Allocator &al, const Location &loc,
             Vec<ASR::expr_t*> &args, diag::Diagnostics &diag) {
+        if (ASRUtils::is_const(s)) {
+            throw SemanticError("cannot append element to a const list", loc);
+        }
         if (args.size() != 1) {
             throw SemanticError("append() takes exactly one argument",
                 loc);
@@ -83,9 +142,9 @@ struct AttributeHandler {
         ASR::ttype_t *type = ASRUtils::expr_type(s);
         ASR::ttype_t *list_type = ASR::down_cast<ASR::List_t>(type)->m_type;
         ASR::ttype_t *ele_type = ASRUtils::expr_type(args[0]);
-        if (!ASRUtils::check_equal_type(ele_type, list_type)) {
-            std::string fnd = ASRUtils::type_to_str_python(ele_type);
-            std::string org = ASRUtils::type_to_str_python(list_type);
+        if (!ASRUtils::check_equal_type(ele_type, list_type, nullptr, nullptr)) {
+            std::string fnd = ASRUtils::type_to_str_python_expr(ele_type, args[0]);
+            std::string org = ASRUtils::type_to_str_python_expr(list_type, nullptr);
             diag.add(diag::Diagnostic(
                 "Type mismatch in 'append', the types must be compatible",
                 diag::Level::Error, diag::Stage::Semantic, {
@@ -100,6 +159,9 @@ struct AttributeHandler {
 
     static ASR::asr_t* eval_list_remove(ASR::expr_t *s, Allocator &al, const Location &loc,
             Vec<ASR::expr_t*> &args, diag::Diagnostics &diag) {
+        if (ASRUtils::is_const(s)) {
+            throw SemanticError("cannot remove element from a const list", loc);
+        }
         if (args.size() != 1) {
             throw SemanticError("remove() takes exactly one argument",
                 loc);
@@ -107,9 +169,9 @@ struct AttributeHandler {
         ASR::ttype_t *type = ASRUtils::expr_type(s);
         ASR::ttype_t *list_type = ASR::down_cast<ASR::List_t>(type)->m_type;
         ASR::ttype_t *ele_type = ASRUtils::expr_type(args[0]);
-        if (!ASRUtils::check_equal_type(ele_type, list_type)) {
-            std::string fnd = ASRUtils::type_to_str_python(ele_type);
-            std::string org = ASRUtils::type_to_str_python(list_type);
+        if (!ASRUtils::check_equal_type(ele_type, list_type, nullptr, nullptr)) {
+            std::string fnd = ASRUtils::type_to_str_python_expr(ele_type, args[0]);
+            std::string org = ASRUtils::type_to_str_python_expr(list_type, nullptr);
             diag.add(diag::Diagnostic(
                 "Type mismatch in 'remove', the types must be compatible",
                 diag::Level::Error, diag::Stage::Semantic, {
@@ -122,16 +184,88 @@ struct AttributeHandler {
         return make_ListRemove_t(al, loc, s, args[0]);
     }
 
+    static ASR::asr_t* eval_list_count(ASR::expr_t *s, Allocator &al, const Location &loc,
+            Vec<ASR::expr_t*> &args, diag::Diagnostics &diag) {
+        if (args.size() != 1) {
+            throw SemanticError("count() takes exactly one argument",
+                loc);
+        }
+        ASR::ttype_t *type = ASRUtils::expr_type(s);
+        ASR::ttype_t *list_type = ASR::down_cast<ASR::List_t>(type)->m_type;
+        ASR::ttype_t *ele_type = ASRUtils::expr_type(args[0]);
+        if (!ASRUtils::check_equal_type(ele_type, list_type, nullptr, nullptr)) {
+            std::string fnd = ASRUtils::type_to_str_python_expr(ele_type, args[0]);
+            std::string org = ASRUtils::type_to_str_python_expr(list_type, nullptr);
+            diag.add(diag::Diagnostic(
+                "Type mismatch in 'count', the types must be compatible",
+                diag::Level::Error, diag::Stage::Semantic, {
+                    diag::Label("type mismatch (found: '" + fnd + "', expected: '" + org + "')",
+                            {args[0]->base.loc})
+                })
+            );
+            throw SemanticAbort();
+        }
+        ASR::ttype_t *to_type = ASRUtils::TYPE(ASR::make_Integer_t(al, loc, 4));
+        return make_ListCount_t(al, loc, s, args[0], to_type, nullptr);
+    }
+
+    static ASR::asr_t* eval_list_index(ASR::expr_t *s, Allocator &al, const Location &loc,
+            Vec<ASR::expr_t*> &args, diag::Diagnostics &diag) {
+        Vec<ASR::expr_t*> args_with_list;
+        args_with_list.reserve(al, args.size() + 1);
+        args_with_list.push_back(al, s);
+        for(size_t i = 0; i < args.size(); i++) {
+            args_with_list.push_back(al, args[i]);
+        }
+        ASRUtils::create_intrinsic_function create_function =
+            ASRUtils::IntrinsicElementalFunctionRegistry::get_create_function("list.index");
+        return create_function(al, loc, args_with_list, diag);
+    }
+
+    static ASR::asr_t* eval_list_reverse(ASR::expr_t *s, Allocator &al, const Location &loc,
+            Vec<ASR::expr_t*> &args, diag::Diagnostics &diag) {
+        if (ASRUtils::is_const(s)) {
+            throw SemanticError("cannot reverse a const list", loc);
+        }
+        Vec<ASR::expr_t*> args_with_list;
+        args_with_list.reserve(al, args.size() + 1);
+        args_with_list.push_back(al, s);
+        for(size_t i = 0; i < args.size(); i++) {
+            args_with_list.push_back(al, args[i]);
+        }
+        ASRUtils::create_intrinsic_function create_function =
+            ASRUtils::IntrinsicElementalFunctionRegistry::get_create_function("list.reverse");
+        return create_function(al, loc, args_with_list, diag);
+    }
+
+    static ASR::asr_t* eval_list_pop(ASR::expr_t *s, Allocator &al, const Location &loc,
+            Vec<ASR::expr_t*> &args, diag::Diagnostics &diag) {
+        if (ASRUtils::is_const(s)) {
+            throw SemanticError("cannot pop element from a const list", loc);
+        }
+        Vec<ASR::expr_t*> args_with_list;
+        args_with_list.reserve(al, args.size() + 1);
+        args_with_list.push_back(al, s);
+        for(size_t i = 0; i < args.size(); i++) {
+            args_with_list.push_back(al, args[i]);
+        }
+        ASRUtils::create_intrinsic_function create_function =
+            ASRUtils::IntrinsicElementalFunctionRegistry::get_create_function("list.pop");
+        return create_function(al, loc, args_with_list, diag);
+    }
+
     static ASR::asr_t* eval_list_insert(ASR::expr_t *s, Allocator &al, const Location &loc,
             Vec<ASR::expr_t*> &args, diag::Diagnostics &diag) {
+            if (ASRUtils::is_const(s)) {
+                throw SemanticError("cannot insert element in a const list", loc);
+            }
             if (args.size() != 2) {
                 throw SemanticError("insert() takes exactly two arguments",
                         loc);
             }
             ASR::ttype_t *pos_type = ASRUtils::expr_type(args[0]);
-            ASR::ttype_t *int_type = ASRUtils::TYPE(ASR::make_Integer_t(al, loc,
-                                        4, nullptr, 0));
-            if (!ASRUtils::check_equal_type(pos_type, int_type)) {
+            ASR::ttype_t *int_type = ASRUtils::TYPE(ASR::make_Integer_t(al, loc, 4));
+            if (!ASRUtils::check_equal_type(pos_type, int_type, nullptr, nullptr)) {
                 throw SemanticError("List index should be of integer type",
                                     args[0]->base.loc);
             }
@@ -139,9 +273,9 @@ struct AttributeHandler {
             ASR::ttype_t *ele_type = ASRUtils::expr_type(args[1]);
             ASR::ttype_t *type = ASRUtils::expr_type(s);
             ASR::ttype_t *list_type = ASR::down_cast<ASR::List_t>(type)->m_type;
-            if (!ASRUtils::check_equal_type(ele_type, list_type)) {
-                std::string fnd = ASRUtils::type_to_str_python(ele_type);
-                std::string org = ASRUtils::type_to_str_python(list_type);
+            if (!ASRUtils::check_equal_type(ele_type, list_type, nullptr, nullptr)) {
+                std::string fnd = ASRUtils::type_to_str_python_expr(ele_type, args[0]);
+                std::string org = ASRUtils::type_to_str_python_expr(list_type, nullptr);
                 diag.add(diag::Diagnostic(
                     "Type mismatch in 'insert', the types must be compatible",
                     diag::Level::Error, diag::Stage::Semantic, {
@@ -154,42 +288,11 @@ struct AttributeHandler {
             return make_ListInsert_t(al, loc, s, args[0], args[1]);
     }
 
-    static ASR::asr_t* eval_list_pop(ASR::expr_t *s, Allocator &al, const Location &loc,
-            Vec<ASR::expr_t*> &args, diag::Diagnostics &diag) {
-            if (args.size() > 1) {
-                throw SemanticError("pop() takes atmost one argument",
-                        loc);
-            }
-            ASR::expr_t *idx = nullptr;
-            ASR::ttype_t *int_type = ASRUtils::TYPE(ASR::make_Integer_t(al, loc,
-                                        4, nullptr, 0));
-            ASR::ttype_t *type = ASRUtils::expr_type(s);
-            ASR::ttype_t *list_type = ASR::down_cast<ASR::List_t>(type)->m_type;
-            if (args.size() == 1) {
-                ASR::ttype_t *pos_type = ASRUtils::expr_type(args[0]);
-                if (!ASRUtils::check_equal_type(pos_type, int_type)) {
-                    std::string fnd = ASRUtils::type_to_str_python(pos_type);
-                    std::string org = ASRUtils::type_to_str_python(int_type);
-                    diag.add(diag::Diagnostic(
-                        "Type mismatch in 'pop', List index should be of integer type",
-                        diag::Level::Error, diag::Stage::Semantic, {
-                            diag::Label("type mismatch (found: '" + fnd + "', expected: '" + org + "')",
-                                    {args[0]->base.loc})
-                        })
-                    );
-                    throw SemanticAbort();
-                }
-                idx = args[0];
-            } else {
-                // default is last index
-                idx = (ASR::expr_t*)ASR::make_IntegerConstant_t(al, loc, -1, int_type);
-            }
-
-            return make_ListPop_t(al, loc, s, idx, list_type, nullptr);
-    }
-
     static ASR::asr_t* eval_list_clear(ASR::expr_t *s, Allocator &al,
         const Location &loc, Vec<ASR::expr_t*> &args, diag::Diagnostics & diag) {
+            if (ASRUtils::is_const(s)) {
+                throw SemanticError("cannot clear elements from a const list", loc);
+            }
             if (args.size() != 0) {
                 diag.add(diag::Diagnostic(
                     "Incorrect number of arguments in 'clear', it accepts no argument",
@@ -218,52 +321,61 @@ struct AttributeHandler {
 
     static ASR::asr_t* eval_set_add(ASR::expr_t *s, Allocator &al, const Location &loc,
             Vec<ASR::expr_t*> &args, diag::Diagnostics &diag) {
-        if (args.size() != 1) {
-            throw SemanticError("add() takes exactly one argument", loc);
+        Vec<ASR::expr_t*> args_with_set;
+        args_with_set.reserve(al, args.size() + 1);
+        args_with_set.push_back(al, s);
+        for(size_t i = 0; i < args.size(); i++) {
+            args_with_set.push_back(al, args[i]);
         }
-
-        ASR::ttype_t *type = ASRUtils::expr_type(s);
-        ASR::ttype_t *set_type = ASR::down_cast<ASR::Set_t>(type)->m_type;
-        ASR::ttype_t *ele_type = ASRUtils::expr_type(args[0]);
-        if (!ASRUtils::check_equal_type(ele_type, set_type)) {
-            std::string fnd = ASRUtils::type_to_str_python(ele_type);
-            std::string org = ASRUtils::type_to_str_python(set_type);
-            diag.add(diag::Diagnostic(
-                "Type mismatch in 'add', the types must be compatible",
-                diag::Level::Error, diag::Stage::Semantic, {
-                    diag::Label("type mismatch (found: '" + fnd + "', expected: '" + org + "')",
-                            {args[0]->base.loc})
-                })
-            );
-            throw SemanticAbort();
-        }
-
-        return make_SetInsert_t(al, loc, s, args[0]);
+        ASRUtils::create_intrinsic_function create_function =
+            ASRUtils::IntrinsicElementalFunctionRegistry::get_create_function("set.add");
+        return create_function(al, loc, args_with_set, diag);
     }
 
     static ASR::asr_t* eval_set_remove(ASR::expr_t *s, Allocator &al, const Location &loc,
             Vec<ASR::expr_t*> &args, diag::Diagnostics &diag) {
-        if (args.size() != 1) {
-            throw SemanticError("remove() takes exactly one argument", loc);
+        Vec<ASR::expr_t*> args_with_set;
+        args_with_set.reserve(al, args.size() + 1);
+        args_with_set.push_back(al, s);
+        for(size_t i = 0; i < args.size(); i++) {
+            args_with_set.push_back(al, args[i]);
         }
+        ASRUtils::create_intrinsic_function create_function =
+            ASRUtils::IntrinsicElementalFunctionRegistry::get_create_function("set.remove");
+        return create_function(al, loc, args_with_set, diag);
+    }
 
-        ASR::ttype_t *type = ASRUtils::expr_type(s);
-        ASR::ttype_t *set_type = ASR::down_cast<ASR::Set_t>(type)->m_type;
-        ASR::ttype_t *ele_type = ASRUtils::expr_type(args[0]);
-        if (!ASRUtils::check_equal_type(ele_type, set_type)) {
-            std::string fnd = ASRUtils::type_to_str_python(ele_type);
-            std::string org = ASRUtils::type_to_str_python(set_type);
-            diag.add(diag::Diagnostic(
-                "Type mismatch in 'remove', the types must be compatible",
-                diag::Level::Error, diag::Stage::Semantic, {
-                    diag::Label("type mismatch (found: '" + fnd + "', expected: '" + org + "')",
-                            {args[0]->base.loc})
-                })
-            );
-            throw SemanticAbort();
+    static ASR::asr_t* eval_set_discard(ASR::expr_t *s, Allocator &al, const Location &loc,
+            Vec<ASR::expr_t*> &args, diag::Diagnostics &diag) {
+        Vec<ASR::expr_t*> args_with_set;
+        args_with_set.reserve(al, args.size() + 1);
+        args_with_set.push_back(al, s);
+        for(size_t i = 0; i < args.size(); i++) {
+            args_with_set.push_back(al, args[i]);
         }
+        ASRUtils::create_intrinsic_function create_function =
+            ASRUtils::IntrinsicElementalFunctionRegistry::get_create_function("set.discard");
+        return create_function(al, loc, args_with_set, diag);
+    }
 
-        return make_SetRemove_t(al, loc, s, args[0]);
+    static ASR::asr_t* eval_set_clear(ASR::expr_t *s, Allocator &al,
+        const Location &loc, Vec<ASR::expr_t*> &args, diag::Diagnostics & diag) {
+            if (ASRUtils::is_const(s)) {
+                throw SemanticError("cannot clear elements from a const set", loc);
+            }
+            if (args.size() != 0) {
+                diag.add(diag::Diagnostic(
+                    "Incorrect number of arguments in 'clear', it accepts no argument",
+                    diag::Level::Error, diag::Stage::Semantic, {
+                        diag::Label("incorrect number of arguments in clear (found: " +
+                                    std::to_string(args.size()) + ", expected: 0)",
+                                {loc})
+                    })
+                );
+                throw SemanticAbort();
+            }
+
+            return make_SetClear_t(al, loc, s);
     }
 
     static ASR::asr_t* eval_dict_get(ASR::expr_t *s, Allocator &al, const Location &loc,
@@ -278,9 +390,9 @@ struct AttributeHandler {
         ASR::ttype_t *value_type = ASR::down_cast<ASR::Dict_t>(type)->m_value_type;
         if (args.size() == 2) {
             def = args[1];
-            if (!ASRUtils::check_equal_type(ASRUtils::expr_type(def), value_type)) {
-                std::string vtype = ASRUtils::type_to_str_python(ASRUtils::expr_type(def));
-                std::string totype = ASRUtils::type_to_str_python(value_type);
+            if (!ASRUtils::check_equal_type(ASRUtils::expr_type(def), value_type, nullptr, nullptr)) {
+                std::string vtype = ASRUtils::type_to_str_python_expr(ASRUtils::expr_type(def), def);
+                std::string totype = ASRUtils::type_to_str_python_expr(value_type, nullptr);
                 diag.add(diag::Diagnostic(
                     "Type mismatch in get's default value, the types must be compatible",
                     diag::Level::Error, diag::Stage::Semantic, {
@@ -291,9 +403,9 @@ struct AttributeHandler {
                 throw SemanticAbort();
             }
         }
-        if (!ASRUtils::check_equal_type(ASRUtils::expr_type(args[0]), key_type)) {
-            std::string ktype = ASRUtils::type_to_str_python(ASRUtils::expr_type(args[0]));
-            std::string totype = ASRUtils::type_to_str_python(key_type);
+        if (!ASRUtils::check_equal_type(ASRUtils::expr_type(args[0]), key_type, nullptr, nullptr)) {
+            std::string ktype = ASRUtils::type_to_str_python_expr(ASRUtils::expr_type(args[0]), args[0]);
+            std::string totype = ASRUtils::type_to_str_python_expr(key_type, nullptr);
             diag.add(diag::Diagnostic(
                 "Type mismatch in get's key value, the types must be compatible",
                 diag::Level::Error, diag::Stage::Semantic, {
@@ -308,15 +420,18 @@ struct AttributeHandler {
 
     static ASR::asr_t* eval_dict_pop(ASR::expr_t *s, Allocator &al, const Location &loc,
             Vec<ASR::expr_t*> &args, diag::Diagnostics &diag) {
+        if (ASRUtils::is_const(s)) {
+            throw SemanticError("cannot pop elements from a const dict", loc);
+        }
         if (args.size() != 1) {
             throw SemanticError("'pop' takes only one argument for now", loc);
         }
         ASR::ttype_t *type = ASRUtils::expr_type(s);
         ASR::ttype_t *key_type = ASR::down_cast<ASR::Dict_t>(type)->m_key_type;
         ASR::ttype_t *value_type = ASR::down_cast<ASR::Dict_t>(type)->m_value_type;
-        if (!ASRUtils::check_equal_type(ASRUtils::expr_type(args[0]), key_type)) {
-            std::string ktype = ASRUtils::type_to_str_python(ASRUtils::expr_type(args[0]));
-            std::string totype = ASRUtils::type_to_str_python(key_type);
+        if (!ASRUtils::check_equal_type(ASRUtils::expr_type(args[0]), key_type, nullptr, nullptr)) {
+            std::string ktype = ASRUtils::type_to_str_python_expr(ASRUtils::expr_type(args[0]), args[0]);
+            std::string totype = ASRUtils::type_to_str_python_expr(key_type, nullptr);
             diag.add(diag::Diagnostic(
                 "Type mismatch in pop's key value, the types must be compatible",
                 diag::Level::Error, diag::Stage::Semantic, {
@@ -329,6 +444,208 @@ struct AttributeHandler {
         return make_DictPop_t(al, loc, s, args[0], value_type, nullptr);
     }
 
+    static ASR::asr_t* eval_dict_keys(ASR::expr_t *s, Allocator &al, const Location &loc,
+            Vec<ASR::expr_t*> &args, diag::Diagnostics &diag) {
+        Vec<ASR::expr_t*> args_with_dict;
+        args_with_dict.reserve(al, args.size() + 1);
+        args_with_dict.push_back(al, s);
+        for(size_t i = 0; i < args.size(); i++) {
+            args_with_dict.push_back(al, args[i]);
+        }
+        ASRUtils::create_intrinsic_function create_function =
+            ASRUtils::IntrinsicElementalFunctionRegistry::get_create_function("dict.keys");
+        return create_function(al, loc, args_with_dict, diag);
+    }
+
+    static ASR::asr_t* eval_dict_values(ASR::expr_t *s, Allocator &al, const Location &loc,
+            Vec<ASR::expr_t*> &args, diag::Diagnostics &diag) {
+        Vec<ASR::expr_t*> args_with_dict;
+        args_with_dict.reserve(al, args.size() + 1);
+        args_with_dict.push_back(al, s);
+        for(size_t i = 0; i < args.size(); i++) {
+            args_with_dict.push_back(al, args[i]);
+        }
+        ASRUtils::create_intrinsic_function create_function =
+            ASRUtils::IntrinsicElementalFunctionRegistry::get_create_function("dict.values");
+        return create_function(al, loc, args_with_dict, diag);
+    }
+
+    static ASR::asr_t* eval_dict_clear(ASR::expr_t *s, Allocator &al,
+        const Location &loc, Vec<ASR::expr_t*> &args, diag::Diagnostics & diag) {
+            if (ASRUtils::is_const(s)) {
+                throw SemanticError("cannot clear elements from a const dict", loc);
+            }
+            if (args.size() != 0) {
+                diag.add(diag::Diagnostic(
+                    "Incorrect number of arguments in 'clear', it accepts no argument",
+                    diag::Level::Error, diag::Stage::Semantic, {
+                        diag::Label("incorrect number of arguments in clear (found: " +
+                                    std::to_string(args.size()) + ", expected: 0)",
+                                {loc})
+                    })
+                );
+                throw SemanticAbort();
+            }
+
+            return make_DictClear_t(al, loc, s);
+    }
+
+    static ASR::asr_t* eval_symbolic_diff(ASR::expr_t *s, Allocator &al, const Location &loc,
+            Vec<ASR::expr_t*> &args, diag::Diagnostics &diag) {
+        Vec<ASR::expr_t*> args_with_list;
+        args_with_list.reserve(al, args.size() + 1);
+        args_with_list.push_back(al, s);
+        for(size_t i = 0; i < args.size(); i++) {
+            args_with_list.push_back(al, args[i]);
+        }
+        ASRUtils::create_intrinsic_function create_function =
+            ASRUtils::IntrinsicElementalFunctionRegistry::get_create_function("diff");
+        return create_function(al, loc, args_with_list, diag);
+    }
+
+    static ASR::asr_t* eval_symbolic_expand(ASR::expr_t *s, Allocator &al, const Location &loc,
+            Vec<ASR::expr_t*> &args, diag::Diagnostics &diag) {
+        Vec<ASR::expr_t*> args_with_list;
+        args_with_list.reserve(al, args.size() + 1);
+        args_with_list.push_back(al, s);
+        for(size_t i = 0; i < args.size(); i++) {
+            args_with_list.push_back(al, args[i]);
+        }
+        ASRUtils::create_intrinsic_function create_function =
+            ASRUtils::IntrinsicElementalFunctionRegistry::get_create_function("expand");
+        return create_function(al, loc, args_with_list, diag);
+    }
+
+    static ASR::asr_t* eval_symbolic_has_symbol(ASR::expr_t *s, Allocator &al, const Location &loc,
+            Vec<ASR::expr_t*> &args, diag::Diagnostics &diag) {
+        Vec<ASR::expr_t*> args_with_list;
+        args_with_list.reserve(al, args.size() + 1);
+        args_with_list.push_back(al, s);
+        for(size_t i = 0; i < args.size(); i++) {
+            args_with_list.push_back(al, args[i]);
+        }
+        ASRUtils::create_intrinsic_function create_function =
+            ASRUtils::IntrinsicElementalFunctionRegistry::get_create_function("has");
+        return create_function(al, loc, args_with_list, diag);
+    }
+
+    static ASR::asr_t* eval_symbolic_is_Add(ASR::expr_t *s, Allocator &al, const Location &loc,
+            Vec<ASR::expr_t*> &args, diag::Diagnostics &diag) {
+        Vec<ASR::expr_t*> args_with_list;
+        args_with_list.reserve(al, args.size() + 1);
+        args_with_list.push_back(al, s);
+        for(size_t i = 0; i < args.size(); i++) {
+            args_with_list.push_back(al, args[i]);
+        }
+        ASRUtils::create_intrinsic_function create_function =
+            ASRUtils::IntrinsicElementalFunctionRegistry::get_create_function("AddQ");
+        return create_function(al, loc, args_with_list, diag);
+    }
+
+    static ASR::asr_t* eval_symbolic_is_Mul(ASR::expr_t *s, Allocator &al, const Location &loc,
+            Vec<ASR::expr_t*> &args, diag::Diagnostics &diag) {
+        Vec<ASR::expr_t*> args_with_list;
+        args_with_list.reserve(al, args.size() + 1);
+        args_with_list.push_back(al, s);
+        for(size_t i = 0; i < args.size(); i++) {
+            args_with_list.push_back(al, args[i]);
+        }
+        ASRUtils::create_intrinsic_function create_function =
+            ASRUtils::IntrinsicElementalFunctionRegistry::get_create_function("MulQ");
+        return create_function(al, loc, args_with_list, diag);
+    }
+
+    static ASR::asr_t* eval_symbolic_is_Pow(ASR::expr_t *s, Allocator &al, const Location &loc,
+            Vec<ASR::expr_t*> &args, diag::Diagnostics &diag) {
+        Vec<ASR::expr_t*> args_with_list;
+        args_with_list.reserve(al, args.size() + 1);
+        args_with_list.push_back(al, s);
+        for(size_t i = 0; i < args.size(); i++) {
+            args_with_list.push_back(al, args[i]);
+        }
+        ASRUtils::create_intrinsic_function create_function =
+            ASRUtils::IntrinsicElementalFunctionRegistry::get_create_function("PowQ");
+        return create_function(al, loc, args_with_list, diag);
+    }
+
+    static ASR::asr_t* eval_symbolic_is_log(ASR::expr_t *s, Allocator &al, const Location &loc,
+            Vec<ASR::expr_t*> &args, diag::Diagnostics &diag) {
+        Vec<ASR::expr_t*> args_with_list;
+        args_with_list.reserve(al, args.size() + 1);
+        args_with_list.push_back(al, s);
+        for(size_t i = 0; i < args.size(); i++) {
+            args_with_list.push_back(al, args[i]);
+        }
+        ASRUtils::create_intrinsic_function create_function =
+            ASRUtils::IntrinsicElementalFunctionRegistry::get_create_function("LogQ");
+        return create_function(al, loc, args_with_list, diag);
+    }
+
+    static ASR::asr_t* eval_symbolic_is_sin(ASR::expr_t *s, Allocator &al, const Location &loc,
+            Vec<ASR::expr_t*> &args, diag::Diagnostics &diag) {
+        Vec<ASR::expr_t*> args_with_list;
+        args_with_list.reserve(al, args.size() + 1);
+        args_with_list.push_back(al, s);
+        for(size_t i = 0; i < args.size(); i++) {
+            args_with_list.push_back(al, args[i]);
+        }
+        ASRUtils::create_intrinsic_function create_function =
+            ASRUtils::IntrinsicElementalFunctionRegistry::get_create_function("SinQ");
+        return create_function(al, loc, args_with_list, diag);
+    }
+
+    static ASR::asr_t* eval_symbolic_get_argument(ASR::expr_t *s, Allocator &al, const Location &loc,
+            Vec<ASR::expr_t*> &args, diag::Diagnostics &diag) {
+        Vec<ASR::expr_t*> args_with_list;
+        args_with_list.reserve(al, args.size() + 1);
+        args_with_list.push_back(al, s);
+        for(size_t i = 0; i < args.size(); i++) {
+            args_with_list.push_back(al, args[i]);
+        }
+        ASRUtils::create_intrinsic_function create_function =
+            ASRUtils::IntrinsicElementalFunctionRegistry::get_create_function("GetArgument");
+        return create_function(al, loc, args_with_list, diag);
+    }
+
+    static ASR::asr_t* eval_symbolic_is_integer(ASR::expr_t *s, Allocator &al, const Location &loc,
+            Vec<ASR::expr_t*> &args, diag::Diagnostics &diag) {
+        Vec<ASR::expr_t*> args_with_list;
+        args_with_list.reserve(al, args.size() + 1);
+        args_with_list.push_back(al, s);
+        for(size_t i = 0; i < args.size(); i++) {
+            args_with_list.push_back(al, args[i]);
+        }
+        ASRUtils::create_intrinsic_function create_function =
+            ASRUtils::IntrinsicElementalFunctionRegistry::get_create_function("is_integer");
+        return create_function(al, loc, args_with_list, diag);
+    }
+
+    static ASR::asr_t* eval_symbolic_is_positive(ASR::expr_t *s, Allocator &al, const Location &loc,
+            Vec<ASR::expr_t*> &args, diag::Diagnostics &diag) {
+        Vec<ASR::expr_t*> args_with_list;
+        args_with_list.reserve(al, args.size() + 1);
+        args_with_list.push_back(al, s);
+        for(size_t i = 0; i < args.size(); i++) {
+            args_with_list.push_back(al, args[i]);
+        }
+        ASRUtils::create_intrinsic_function create_function =
+            ASRUtils::IntrinsicElementalFunctionRegistry::get_create_function("is_positive");
+        return create_function(al, loc, args_with_list, diag);
+    }
+
+    static ASR::asr_t* eval_symbolic_subs(ASR::expr_t *s, Allocator &al, const Location &loc,
+            Vec<ASR::expr_t*> &args, diag::Diagnostics &diag) {
+        Vec<ASR::expr_t*> args_with_list;
+        args_with_list.reserve(al, args.size() + 1);
+        args_with_list.push_back(al, s);
+        for(size_t i = 0; i < args.size(); i++) {
+            args_with_list.push_back(al, args[i]);
+        }
+        ASRUtils::create_intrinsic_function create_function =
+            ASRUtils::IntrinsicElementalFunctionRegistry::get_create_function("subs");
+        return create_function(al, loc, args_with_list, diag);
+    }
+
 }; // AttributeHandler
 
 } // namespace LCompilers::LPython
diff --git a/src/lpython/semantics/python_comptime_eval.h b/src/lpython/semantics/python_comptime_eval.h
index 83b3a64ed1..a412cd61c3 100644
--- a/src/lpython/semantics/python_comptime_eval.h
+++ b/src/lpython/semantics/python_comptime_eval.h
@@ -14,6 +14,7 @@
 #include <libasr/string_utils.h>
 #include <lpython/utils.h>
 #include <lpython/semantics/semantic_exception.h>
+#include <libasr/asr_utils.h>
 
 namespace LCompilers::LPython {
 
@@ -25,7 +26,12 @@ struct ProceduresDatabase {
                                     "float32", "float64",
                                     "reshape", "array", "int16",
                                     "complex64", "complex128",
-                                    "int8"}},
+                                    "int8", "exp", "exp2",
+                                    "uint8", "uint16", "uint32", "uint64",
+                                    "size", "bool_"}},
+                         {"math", {"sin", "cos", "tan",
+                                    "asin", "acos", "atan",
+                                    "exp", "exp2", "expm1"}},
                          {"enum", {"Enum"}}
                         };
     }
@@ -53,7 +59,7 @@ struct PythonIntrinsicProcedures {
 
     PythonIntrinsicProcedures() {
         comptime_eval_map = {
-            {"abs", {m_builtin, &eval_abs}},
+            // {"abs", {m_builtin, &eval_abs}},
             {"pow", {m_builtin, &eval_pow}},
             {"round", {m_builtin, &eval_round}},
             {"bin", {m_builtin, &eval_bin}},
@@ -67,16 +73,36 @@ struct PythonIntrinsicProcedures {
             {"_mod", {m_builtin, &eval__mod}},
             {"max" , {m_builtin , &eval_max}},
             {"min" , {m_builtin , &eval_min}},
+            {"sum" , {m_builtin , &not_implemented}},
             // The following functions for string methods are not used
             // for evaluation.
             {"_lpython_str_capitalize", {m_builtin, &not_implemented}},
+            {"_lpython_str_count", {m_builtin, &not_implemented}},
             {"_lpython_str_lower", {m_builtin, &not_implemented}},
+            {"_lpython_str_upper", {m_builtin, &not_implemented}},
+            {"_lpython_str_join", {m_builtin, &not_implemented}},
             {"_lpython_str_find", {m_builtin, &not_implemented}},
+            {"_lpython_str_isalpha", {m_builtin, &not_implemented}},
+            {"_lpython_str_isalnum", {m_builtin, &not_implemented}},
+            {"_lpython_str_isnumeric", {m_builtin, &not_implemented}},
+            {"_lpython_str_title", {m_builtin, &not_implemented}},
+            {"_lpython_str_istitle", {m_builtin, &not_implemented}},
             {"_lpython_str_rstrip", {m_builtin, &not_implemented}},
             {"_lpython_str_lstrip", {m_builtin, &not_implemented}},
             {"_lpython_str_strip", {m_builtin, &not_implemented}},
+            {"_lpython_str_split", {m_builtin, &not_implemented}},
+            {"_lpython_str_replace", {m_builtin, &not_implemented}},
             {"_lpython_str_swapcase", {m_builtin, &not_implemented}},
-            {"_lpython_str_startswith", {m_builtin, &not_implemented}}
+            {"_lpython_str_startswith", {m_builtin, &not_implemented}},
+            {"_lpython_str_endswith", {m_builtin, &not_implemented}},
+            {"_lpython_str_partition", {m_builtin, &not_implemented}},
+            {"_lpython_str_islower", {m_builtin, &not_implemented}},
+            {"_lpython_str_isupper", {m_builtin, &not_implemented}},
+            {"_lpython_str_isdecimal", {m_builtin, &not_implemented}},
+            {"_lpython_str_isascii", {m_builtin, &not_implemented}},
+            {"_lpython_str_isspace", {m_builtin, &not_implemented}},
+            {"_lpython_str_center", {m_builtin, &not_implemented}},
+            {"_lpython_str_expandtabs", {m_builtin, &not_implemented}}
         };
     }
 
@@ -133,45 +159,13 @@ struct PythonIntrinsicProcedures {
         return nullptr;
     }
 
-    static ASR::expr_t *eval_abs(Allocator &al, const Location &loc,
-            Vec<ASR::expr_t*> &args
-            ) {
-        LCOMPILERS_ASSERT(ASRUtils::all_args_evaluated(args));
-        if (args.size() != 1) {
-            throw SemanticError("abs() takes exactly one argument (" +
-                std::to_string(args.size()) + " given)", loc);
-        }
-        ASR::expr_t* arg = args[0];
-        ASR::ttype_t* t = ASRUtils::expr_type(args[0]);
-        ASR::ttype_t *int_type = ASRUtils::TYPE(ASR::make_Integer_t(al, loc, 4, nullptr, 0));
-        ASR::ttype_t *real_type = ASRUtils::TYPE(ASR::make_Real_t(al, loc, 8, nullptr, 0));
-        if (ASRUtils::is_real(*t)) {
-            double rv = ASR::down_cast<ASR::RealConstant_t>(arg)->m_r;
-            double val = std::abs(rv);
-            return ASR::down_cast<ASR::expr_t>(ASR::make_RealConstant_t(al, loc, val, real_type));
-        } else if (ASRUtils::is_integer(*t)) {
-            int64_t rv = ASR::down_cast<ASR::IntegerConstant_t>(arg)->m_n;
-            int64_t val = std::abs(rv);
-            return ASR::down_cast<ASR::expr_t>(ASR::make_IntegerConstant_t(al, loc, val, int_type));
-        } else if (ASRUtils::is_logical(*t)) {
-            int8_t val = ASR::down_cast<ASR::LogicalConstant_t>(arg)->m_value;
-            return ASR::down_cast<ASR::expr_t>(ASR::make_IntegerConstant_t(al, loc, val, int_type));
-        } else if (ASRUtils::is_complex(*t)) {
-            double re = ASR::down_cast<ASR::ComplexConstant_t>(arg)->m_re;
-            double im = ASR::down_cast<ASR::ComplexConstant_t>(arg)->m_im;
-            std::complex<double> x(re, im);
-            double result = std::abs(x);
-            return ASR::down_cast<ASR::expr_t>(ASR::make_RealConstant_t(al, loc, result, real_type));
-        } else {
-            throw SemanticError("Argument of the abs function must be Integer, Real, Logical or Complex", loc);
-        }
-    }
-
     static ASR::expr_t *eval_str(Allocator &al, const Location &loc, Vec<ASR::expr_t*> &args) {
         LCOMPILERS_ASSERT(ASRUtils::all_args_evaluated(args));
         if (args.size() == 0) { // create an empty string
-            ASR::ttype_t* str_type = ASRUtils::TYPE(ASR::make_Character_t(al,
-                loc, 1, 0, nullptr, nullptr, 0));
+            ASR::ttype_t* str_type = ASRUtils::TYPE(ASR::make_Allocatable_t(al, loc, 
+                                            ASRUtils::TYPE(ASR::make_String_t(al, loc, 1, nullptr, 
+                                                ASR::string_length_kindType::DeferredLength,
+                                                ASR::string_physical_typeType::DescriptorString))));
             return ASR::down_cast<ASR::expr_t>(ASR::make_StringConstant_t(al, loc, s2c(al, ""), str_type));
         }
         std::string s = "";
@@ -191,10 +185,13 @@ struct PythonIntrinsicProcedures {
             s = std::string(c);
         } else {
             throw SemanticError("str() argument must be real, integer, logical, or a string, not '" +
-                ASRUtils::type_to_str_python(arg_type) + "'", loc);
+                ASRUtils::type_to_str_python_expr(arg_type, arg) + "'", loc);
         }
-        ASR::ttype_t* str_type = ASRUtils::TYPE(ASR::make_Character_t(al,
-            loc, 1, s.size(), nullptr, nullptr, 0));
+        ASR::ttype_t* str_type = ASRUtils::TYPE(ASR::make_Allocatable_t(al, loc, 
+                                        ASRUtils::TYPE(ASR::make_String_t(al, loc, 1, nullptr, 
+                                            ASR::string_length_kindType::DeferredLength,
+                                            ASR::string_physical_typeType::DescriptorString))));
+
         return ASR::down_cast<ASR::expr_t>(ASR::make_StringConstant_t(al, loc, s2c(al, s), str_type));
     }
 
@@ -205,18 +202,29 @@ struct PythonIntrinsicProcedures {
         }
         ASR::expr_t* arg1 = args[0], *arg2 = args[1];
         LCOMPILERS_ASSERT(ASRUtils::check_equal_type(ASRUtils::expr_type(arg1),
-                                    ASRUtils::expr_type(arg2)));
+                                    ASRUtils::expr_type(arg2), nullptr, nullptr));
         ASR::ttype_t* type = ASRUtils::expr_type(arg1);
         if (ASRUtils::is_integer(*type)) {
             int64_t a = ASR::down_cast<ASR::IntegerConstant_t>(arg1)->m_n;
             int64_t b = ASR::down_cast<ASR::IntegerConstant_t>(arg2)->m_n;
+            if(b == 0) { // Zero Division
+                throw SemanticError("Integer division or modulo by zero",loc);
+            }
+
+            // Refer the following link to understand how modulo in C++ is modified to behave like Python.
+            // https://stackoverflow.com/questions/1907565/c-and-python-different-behaviour-of-the-modulo-operation
             return ASR::down_cast<ASR::expr_t>(
-                ASR::make_IntegerConstant_t(al, loc, a%b, type));
+                ASR::make_IntegerConstant_t(al, loc, ((a%b)+b)%b, type));
         } else if (ASRUtils::is_real(*type)) {
             double a = ASR::down_cast<ASR::RealConstant_t>(arg1)->m_r;
             double b = ASR::down_cast<ASR::RealConstant_t>(arg2)->m_r;
+            if (b == 0) { // Zero Division
+                throw SemanticError("Float division or modulo by zero", loc);
+            }
+
+            // https://stackoverflow.com/questions/1907565/c-and-python-different-behaviour-of-the-modulo-operation
             return ASR::down_cast<ASR::expr_t>(
-                ASR::make_RealConstant_t(al, loc, std::fmod(a, b), type));
+                ASR::make_RealConstant_t(al, loc, std::fmod(std::fmod(a, b) + b, b), type));
         } else {
             throw SemanticError("_mod() must have both integer or both real arguments.", loc);
         }
@@ -234,13 +242,13 @@ struct PythonIntrinsicProcedures {
             ASR::ttype_t* arg3_type = ASRUtils::expr_type(arg3);
             if (!ASRUtils::is_integer(*arg3_type) ) { // Zero Division
                 throw SemanticError("Third argument must be an integer. Found: " + \
-                        ASRUtils::type_to_str_python(arg3_type), loc);
+                        ASRUtils::type_to_str_python_expr(arg3_type, arg3), loc);
             }
             mod_by = ASR::down_cast<ASR::IntegerConstant_t>(arg3)->m_n;
         }
-        ASR::ttype_t *int_type = ASRUtils::TYPE(ASR::make_Integer_t(al, loc, 4, nullptr, 0));
-        ASR::ttype_t *real_type = ASRUtils::TYPE(ASR::make_Real_t(al, loc, 8, nullptr, 0));
-        ASR::ttype_t *complex_type = ASRUtils::TYPE(ASR::make_Complex_t(al, loc, 8, nullptr, 0));
+        ASR::ttype_t *int_type = ASRUtils::TYPE(ASR::make_Integer_t(al, loc, 4));
+        ASR::ttype_t *real_type = ASRUtils::TYPE(ASR::make_Real_t(al, loc, 8));
+        ASR::ttype_t *complex_type = ASRUtils::TYPE(ASR::make_Complex_t(al, loc, 8));
         if (ASRUtils::is_integer(*arg1_type) && ASRUtils::is_integer(*arg2_type)) {
             int64_t a = ASR::down_cast<ASR::IntegerConstant_t>(arg1)->m_n;
             int64_t b = ASR::down_cast<ASR::IntegerConstant_t>(arg2)->m_n;
@@ -323,12 +331,14 @@ struct PythonIntrinsicProcedures {
             str += std::bitset<64>(std::abs(n)).to_string();
             str.erase(0, str.find_first_not_of('0'));
             str.insert(0, prefix);
-            ASR::ttype_t* str_type = ASRUtils::TYPE(ASR::make_Character_t(al,
-                loc, 1, str.size(), nullptr, nullptr, 0));
+            ASR::ttype_t* str_type = ASRUtils::TYPE(ASR::make_Allocatable_t(al, loc, 
+                                            ASRUtils::TYPE(ASR::make_String_t(al, loc, 1, nullptr, 
+                                                ASR::string_length_kindType::DeferredLength,
+                                                ASR::string_physical_typeType::DescriptorString))));
             return ASR::down_cast<ASR::expr_t>(make_StringConstant_t(al, loc, s2c(al, str), str_type));
         } else {
             throw SemanticError("bin() argument must be an integer, not '" +
-                ASRUtils::type_to_str_python(type) + "'", loc);
+                ASRUtils::type_to_str_python_expr(type, expr) + "'", loc);
         }
     }
 
@@ -348,12 +358,14 @@ struct PythonIntrinsicProcedures {
             ss << std::hex << std::abs(n);
             str += ss.str();
             str.insert(0, prefix);
-            ASR::ttype_t* str_type = ASRUtils::TYPE(ASR::make_Character_t(al,
-                loc, 1, str.size(), nullptr, nullptr, 0));
+            ASR::ttype_t* str_type = ASRUtils::TYPE(ASR::make_Allocatable_t(al, loc, 
+                                            ASRUtils::TYPE(ASR::make_String_t(al, loc, 1, nullptr, 
+                                                ASR::string_length_kindType::DeferredLength,
+                                                ASR::string_physical_typeType::DescriptorString))));
             return ASR::down_cast<ASR::expr_t>(make_StringConstant_t(al, loc, s2c(al, str), str_type));
         } else {
             throw SemanticError("hex() argument must be an integer, not '" +
-                ASRUtils::type_to_str_python(type) + "'", loc);
+                ASRUtils::type_to_str_python_expr(type, expr) + "'", loc);
         }
     }
 
@@ -373,12 +385,14 @@ struct PythonIntrinsicProcedures {
             ss << std::oct << std::abs(n);
             str += ss.str();
             str.insert(0, prefix);
-            ASR::ttype_t* str_type = ASRUtils::TYPE(ASR::make_Character_t(al,
-                loc, 1, str.size(), nullptr, nullptr, 0));
+            ASR::ttype_t* str_type = ASRUtils::TYPE(ASR::make_Allocatable_t(al, loc, 
+                                            ASRUtils::TYPE(ASR::make_String_t(al, loc, 1, nullptr, 
+                                                ASR::string_length_kindType::DeferredLength,
+                                                ASR::string_physical_typeType::DescriptorString))));
             return ASR::down_cast<ASR::expr_t>(make_StringConstant_t(al, loc, s2c(al, str), str_type));
         } else {
             throw SemanticError("oct() argument must be an integer, not '" +
-                ASRUtils::type_to_str_python(type) + "'", loc);
+                ASRUtils::type_to_str_python_expr(type, expr) + "'", loc);
         }
     }
 
@@ -391,8 +405,11 @@ struct PythonIntrinsicProcedures {
         LCOMPILERS_ASSERT(args.size()==1);
         ASR::expr_t *arg = args[0];
         ASR::ttype_t *type = ASRUtils::expr_type(arg);
-        ASR::ttype_t* str_type = ASRUtils::TYPE(ASR::make_Character_t(al,
-            loc, 1, 1, nullptr, nullptr, 0));
+        ASR::ttype_t* str_type = ASRUtils::TYPE(ASR::make_Allocatable_t(al, loc, 
+                                        ASRUtils::TYPE(ASR::make_String_t(al, loc, 1, nullptr, 
+                                            ASR::string_length_kindType::DeferredLength,
+                                            ASR::string_physical_typeType::DescriptorString))));
+
         if (ASRUtils::is_integer(*type) || ASRUtils::is_real(*type)
                 || ASRUtils::is_complex(*type) || ASRUtils::is_logical(*type)) {
             throw SemanticError("Integer, Real, Complex and Boolean are not iterable "
@@ -416,7 +433,7 @@ struct PythonIntrinsicProcedures {
             return ASR::down_cast<ASR::expr_t>(ASR::make_ListConstant_t(al, loc, list.p,
                 list.size(), list_type));
         } else {
-            throw SemanticError("'" + ASRUtils::type_to_str_python(type) +
+            throw SemanticError("'" + ASRUtils::type_to_str_python_expr(type, arg) +
                 "' object conversion to List is not implemented ",
                 arg->base.loc);
         }
@@ -424,7 +441,7 @@ struct PythonIntrinsicProcedures {
 
     static ASR::expr_t *eval_round(Allocator &al, const Location &loc, Vec<ASR::expr_t*> &args) {
         LCOMPILERS_ASSERT(ASRUtils::all_args_evaluated(args));
-        ASR::ttype_t *type = ASRUtils::TYPE(ASR::make_Integer_t(al, loc, 4, nullptr, 0));
+        ASR::ttype_t *type = ASRUtils::TYPE(ASR::make_Integer_t(al, loc, 4));
         if (args.size() != 1) {
             throw SemanticError("round() missing required argument 'number' (pos 1)", loc);
         }
@@ -444,14 +461,14 @@ struct PythonIntrinsicProcedures {
             return ASR::down_cast<ASR::expr_t>(make_IntegerConstant_t(al, loc, rv, type));
         } else {
             throw SemanticError("round() argument must be float, integer, or logical for now, not '" +
-                ASRUtils::type_to_str_python(t) + "'", loc);
+                ASRUtils::type_to_str_python_expr(t, expr) + "'", loc);
         }
     }
 
     static ASR::expr_t *eval_complex(Allocator &al, const Location &loc, Vec<ASR::expr_t*> &args) {
         LCOMPILERS_ASSERT(ASRUtils::all_args_evaluated(args));
         int16_t n_args = args.size();
-        ASR::ttype_t *type = ASRUtils::TYPE(ASR::make_Complex_t(al, loc, 8, nullptr, 0));
+        ASR::ttype_t *type = ASRUtils::TYPE(ASR::make_Complex_t(al, loc, 8));
         if( n_args > 2 || n_args < 0 ) { // n_args shouldn't be less than 0 but added this check for safety
             throw SemanticError("Only constant integer or real values are supported as "
                 "the (at most two) arguments of complex()", loc);
@@ -482,7 +499,7 @@ struct PythonIntrinsicProcedures {
             throw SemanticError("Intrinsic _lpython_imag function accepts exactly 1 argument", loc);
         }
         ASR::expr_t* imag_arg = args[0];
-        ASR::ttype_t *type = ASRUtils::TYPE(ASR::make_Real_t(al, loc, 8, nullptr, 0));
+        ASR::ttype_t *type = ASRUtils::TYPE(ASR::make_Real_t(al, loc, 8));
         if (ASR::is_a<ASR::Complex_t>(*ASRUtils::expr_type(imag_arg))) {
             double im = ASR::down_cast<ASR::ComplexConstant_t>(imag_arg)->m_im;
             double result = im;
@@ -506,9 +523,9 @@ struct PythonIntrinsicProcedures {
             int kind = ASRUtils::extract_kind_from_ttype_t(arg1_type);
             ASR::ttype_t *type = nullptr;
             if (kind == 8) {
-                type = ASRUtils::TYPE(ASR::make_Real_t(al, loc, 8, nullptr, 0));
+                type = ASRUtils::TYPE(ASR::make_Real_t(al, loc, 8));
             } else {
-                type = ASRUtils::TYPE(ASR::make_Real_t(al, loc, 4, nullptr, 0));
+                type = ASRUtils::TYPE(ASR::make_Real_t(al, loc, 4));
             }
             double n = ASR::down_cast<ASR::RealConstant_t>(arg1)->m_r;
             double d = ASR::down_cast<ASR::RealConstant_t>(arg2)->m_r;
@@ -524,9 +541,9 @@ struct PythonIntrinsicProcedures {
             int kind = ASRUtils::extract_kind_from_ttype_t(arg1_type);
             ASR::ttype_t *type = nullptr;
             if (kind == 8) {
-                type = ASRUtils::TYPE(ASR::make_Integer_t(al, loc, 8, nullptr, 0));
+                type = ASRUtils::TYPE(ASR::make_Integer_t(al, loc, 8));
             } else {
-                type = ASRUtils::TYPE(ASR::make_Integer_t(al, loc, 4, nullptr, 0));
+                type = ASRUtils::TYPE(ASR::make_Integer_t(al, loc, 4));
             }
             int64_t n = ASR::down_cast<ASR::IntegerConstant_t>(arg1)->m_n;
             int64_t d = ASR::down_cast<ASR::IntegerConstant_t>(arg2)->m_n;
@@ -540,7 +557,7 @@ struct PythonIntrinsicProcedures {
             }
             return ASR::down_cast<ASR::expr_t>(make_IntegerConstant_t(al, loc, res, type));
         } else if (ASRUtils::is_logical(*arg1_type) && ASRUtils::is_logical(*arg2_type)) {
-            ASR::ttype_t *type = ASRUtils::TYPE(ASR::make_Logical_t(al, loc, 1, nullptr, 0));
+            ASR::ttype_t *type = ASRUtils::TYPE(ASR::make_Logical_t(al, loc, 1));
             bool n = false, d = false;
             ASRUtils::extract_value(arg1, n);
             ASRUtils::extract_value(arg2, d);
@@ -587,7 +604,7 @@ struct PythonIntrinsicProcedures {
             }
         } else {
             throw SemanticError("Both arguments of divmod() must be integers for now, not '" +
-                ASRUtils::type_to_str_python(arg1_type) + "' and '" + ASRUtils::type_to_str_python(arg2_type) + "'", loc);
+                ASRUtils::type_to_str_python_expr(arg1_type, arg1) + "' and '" + ASRUtils::type_to_str_python_expr(arg2_type, arg2) + "'", loc);
         }
     }
 
diff --git a/src/lpython/semantics/python_intrinsic_eval.h b/src/lpython/semantics/python_intrinsic_eval.h
index cb3c777e42..28527a22d2 100644
--- a/src/lpython/semantics/python_intrinsic_eval.h
+++ b/src/lpython/semantics/python_intrinsic_eval.h
@@ -6,6 +6,7 @@
 #include <libasr/string_utils.h>
 #include <lpython/utils.h>
 #include <lpython/semantics/semantic_exception.h>
+#include <libasr/asr_utils.h>
 
 namespace LCompilers::LPython {
 
@@ -49,16 +50,91 @@ struct IntrinsicNodeHandler {
                                         const Location &loc) {
         ASR::expr_t *arg = nullptr, *value = nullptr;
         ASR::ttype_t *type = nullptr;
-        if (args.size() > 1) {
-            throw SemanticError("Either 0 or 1 argument is expected in 'int()'",
+        if (args.size() > 2) {
+            throw SemanticError("'int()' takes at most 2 arguments (" + std::to_string(args.size()) + " given)",
                     loc);
         }
-        if (args.size() > 0) {
+        if (args.size() >= 1) {
             arg = args[0].m_value;
             type = ASRUtils::expr_type(arg);
+            if (ASRUtils::is_character(*type)) {
+                int32_t base;
+                if (args.size() == 1) {
+                    base = 10;
+                } else {
+                    arg = args[1].m_value;
+                    type = ASRUtils::expr_type(arg);
+                    if (ASRUtils::is_integer(*type)) {
+                        base = ASR::down_cast<ASR::IntegerConstant_t>(
+                                            ASRUtils::expr_value(arg))->m_n;
+                        if ((base != 0 && base < 2) || base > 36) {
+                            throw SemanticError("int() base must be >= 2 and <= 36, or 0", loc);
+                        }
+                    } else {
+                        throw SemanticError("'" + ASRUtils::type_to_str_python_expr(type, arg) + "' object cannot be interpreted as an integer",
+                                arg->base.loc);
+                    }
+                }
+                arg = args[0].m_value;
+                type = ASRUtils::expr_type(arg);
+                ASR::ttype_t *to_type = ASRUtils::TYPE(ASR::make_Integer_t(al, loc, 8));
+                if (ASRUtils::expr_value(arg) != nullptr) {
+                    char *c = ASR::down_cast<ASR::StringConstant_t>(
+                                        ASRUtils::expr_value(arg))->m_s;
+                    int ival = 0;
+                    bool zero_based = false;
+                    char *ch = c;
+                    if (*ch == '-') {
+                        ch++;
+                    }
+                    if (base == 0) {
+                        zero_based = true;
+                        if (*ch == '0') {
+                            ch++;
+                            if (*ch == 'x' || *ch == 'X') {
+                                base = 16;
+                                ch++;
+                            } else if (*ch == 'o' || *ch == 'O') {
+                                base = 8;
+                                ch++;
+                            } else if (*ch == 'b' || *ch == 'B') {
+                                base = 2;
+                                ch++;
+                            }
+                        } else {
+                            base = 10;
+                        }
+                    } else {
+                        if (*ch == '0' &&
+                            ((base == 16 && (ch[1] == 'x'|| ch[1] == 'X')) ||
+                            (base == 8  && (ch[1] == 'o' || ch[1] == 'O')) ||
+                            (base == 2  && (ch[1] == 'b' || ch[1] == 'B')))) {
+                            ch += 2;
+                        }
+                    }
+                    while (*ch) {
+                        if (*ch == '.') {
+                            throw SemanticError("invalid literal for int() with base " + std::to_string(zero_based ? 0: base) + ": '" + std::string(c) + "'", arg->base.loc);
+                        }
+                        if (!((*ch >= '0' && (*ch <= std::min((int)'9', '0' + base - 1))) || (*ch >= 'A' && (*ch < 'A' + base - 10)) || (*ch >= 'a' && (*ch < 'a' + base - 10)))) {
+                            throw SemanticError("invalid literal for int() with base " + std::to_string(zero_based ? 0: base) + ": '" + std::string(c) + "'", arg->base.loc);
+                        }
+                        ch++;
+                    }
+                    ival = std::stoi(c,0,base);
+                    return (ASR::asr_t *)ASR::down_cast<ASR::expr_t>(ASR::make_IntegerConstant_t(al,
+                                    loc, ival, to_type));
+                }
+                return (ASR::asr_t *)ASR::down_cast<ASR::expr_t>(ASR::make_Cast_t(
+                    al, loc, arg, ASR::cast_kindType::StringToInteger,
+                    to_type, value));
+            } else {
+                if (args.size() == 2) {
+                    throw SemanticError("int() can't convert non-string with explicit base", loc);
+                }
+            }
         }
-        ASR::ttype_t *to_type = ASRUtils::TYPE(ASR::make_Integer_t(al, loc,
-                                    8, nullptr, 0));
+        ASR::ttype_t *to_type = ASRUtils::TYPE(ASR::make_Integer_t(al, loc, 8));
         if (!arg) {
             return ASR::make_IntegerConstant_t(al, loc, 0, to_type);
         }
@@ -72,31 +148,6 @@ struct IntrinsicNodeHandler {
             return (ASR::asr_t *)ASR::down_cast<ASR::expr_t>(ASR::make_Cast_t(
                 al, loc, arg, ASR::cast_kindType::RealToInteger,
                 to_type, value));
-        } else if (ASRUtils::is_character(*type)) {
-            if (ASRUtils::expr_value(arg) != nullptr) {
-                char *c = ASR::down_cast<ASR::StringConstant_t>(
-                                    ASRUtils::expr_value(arg))->m_s;
-                int ival = 0;
-                char *ch = c;
-                if (*ch == '-') {
-                    ch++;
-                }
-                while (*ch) {
-                    if (*ch == '.') {
-                        throw SemanticError("invalid literal for int() with base 10: '"+ std::string(c) + "'", arg->base.loc);
-                    }
-                    if (*ch < '0' || *ch > '9') {
-                        throw SemanticError("invalid literal for int() with base 10: '"+ std::string(c) + "'", arg->base.loc);
-                    }
-                    ch++;
-                }
-                ival = std::stoi(c);
-                return (ASR::asr_t *)ASR::down_cast<ASR::expr_t>(ASR::make_IntegerConstant_t(al,
-                                loc, ival, to_type));
-            }
-            return (ASR::asr_t *)ASR::down_cast<ASR::expr_t>(ASR::make_Cast_t(
-                al, loc, arg, ASR::cast_kindType::CharacterToInteger,
-                to_type, value));
         } else if (ASRUtils::is_logical(*type)) {
             if (ASRUtils::expr_value(arg) != nullptr) {
                 int32_t ival = ASR::down_cast<ASR::LogicalConstant_t>(
@@ -110,13 +161,19 @@ struct IntrinsicNodeHandler {
         } else if (ASRUtils::is_integer(*type)) {
             // int() returns a 64-bit integer
             if (ASRUtils::extract_kind_from_ttype_t(type) != 8) {
+                if (ASRUtils::expr_value(arg) != nullptr) {
+                    int64_t ival = ASR::down_cast<ASR::IntegerConstant_t>(
+                                            ASRUtils::expr_value(arg))->m_n;
+                    value =  ASR::down_cast<ASR::expr_t>(make_IntegerConstant_t(al,
+                                    loc, ival, to_type));
+                }
                 return (ASR::asr_t *)ASR::down_cast<ASR::expr_t>(ASR::make_Cast_t(
                     al, loc, arg, ASR::cast_kindType::IntegerToInteger,
                     to_type, value));
             }
             return (ASR::asr_t *)arg;
         } else {
-            std::string stype = ASRUtils::type_to_str_python(type);
+            std::string stype = ASRUtils::type_to_str_python_expr(type, nullptr);
             throw SemanticError(
                 "Conversion of '" + stype + "' to integer is not Implemented",
                 loc);
@@ -138,8 +195,7 @@ struct IntrinsicNodeHandler {
             arg = args[0].m_value;
             type = ASRUtils::expr_type(arg);
         }
-        ASR::ttype_t *to_type = ASRUtils::TYPE(ASR::make_Real_t(al, loc,
-                                    8, nullptr, 0));
+        ASR::ttype_t *to_type = ASRUtils::TYPE(ASR::make_Real_t(al, loc, 8));
         if (!arg) {
             return ASR::make_RealConstant_t(al, loc, 0.0, to_type);
         }
@@ -172,7 +228,7 @@ struct IntrinsicNodeHandler {
             }
             return (ASR::asr_t *)arg;
         } else {
-            std::string stype = ASRUtils::type_to_str_python(type);
+            std::string stype = ASRUtils::type_to_str_python_expr(type, nullptr);
             throw SemanticError(
                 "Conversion of '" + stype + "' to float is not Implemented",
                 loc);
@@ -193,8 +249,7 @@ struct IntrinsicNodeHandler {
             arg = args[0].m_value;
             type = ASRUtils::expr_type(arg);
         }
-        ASR::ttype_t *to_type = ASRUtils::TYPE(ASR::make_Logical_t(al, loc,
-                                    4, nullptr, 0));
+        ASR::ttype_t *to_type = ASRUtils::TYPE(ASR::make_Logical_t(al, loc, 4));
         if (!arg) {
             return ASR::make_LogicalConstant_t(al, loc, false, to_type);
         }
@@ -226,7 +281,7 @@ struct IntrinsicNodeHandler {
                                 loc, std::string(c) != "", to_type));
             }
             return (ASR::asr_t *)ASR::down_cast<ASR::expr_t>(ASR::make_Cast_t(
-                al, loc, arg, ASR::cast_kindType::CharacterToLogical, to_type, value));
+                al, loc, arg, ASR::cast_kindType::StringToLogical, to_type, value));
 
         } else if (ASRUtils::is_complex(*type)) {
             if (ASRUtils::expr_value(arg) != nullptr) {
@@ -241,8 +296,12 @@ struct IntrinsicNodeHandler {
 
         } else if (ASRUtils::is_logical(*type)) {
             return (ASR::asr_t *)arg;
+        /*} else if (ASR::is_a<ASR::CPtr_t>(*type)) {*/
+        /*    ASR::expr_t* c_null_ptr = ASRUtils::EXPR(ASR::make_PointerNullConstant_t(*/
+        /*            al, loc, ASRUtils::TYPE(ASR::make_CPtr_t(al, loc))));*/
+        /*    return ASR::make_CPtrCompare_t(al, loc, arg, ASR::cmpopType::NotEq, c_null_ptr, to_type, nullptr);*/
         } else {
-            std::string stype = ASRUtils::type_to_str_python(type);
+            std::string stype = ASRUtils::type_to_str_python_expr(type, nullptr);
             throw SemanticError(
                 "Conversion of '" + stype + "' to logical is not Implemented",
                 loc);
@@ -265,11 +324,16 @@ struct IntrinsicNodeHandler {
             arg = args[0].m_value;
             arg_type = ASRUtils::expr_type(arg);
         }
-        ASR::ttype_t *str_type = ASRUtils::TYPE(ASR::make_Character_t(al, loc,
-                                    1, -2, nullptr, nullptr , 0));
+        ASR::ttype_t *str_type = ASRUtils::TYPE(ASR::make_Allocatable_t(al, loc, 
+                                        ASRUtils::TYPE(ASR::make_String_t(al, loc, 1, nullptr, 
+                                            ASR::string_length_kindType::DeferredLength,
+                                            ASR::string_physical_typeType::DescriptorString))));
         if (!arg) {
-            ASR::ttype_t *res_type = ASRUtils::TYPE(ASR::make_Character_t(al, loc,
-                                        1, 0, nullptr, nullptr , 0));
+
+            ASR::ttype_t* res_type = ASRUtils::TYPE(ASR::make_Allocatable_t(al, loc, 
+                                            ASRUtils::TYPE(ASR::make_String_t(al, loc, 1, nullptr, 
+                                                ASR::string_length_kindType::DeferredLength,
+                                                ASR::string_physical_typeType::DescriptorString))));
             return ASR::make_StringConstant_t(al, loc, s2c(al, ""), res_type);
         }
         if (ASRUtils::is_real(*arg_type)) {
@@ -281,42 +345,48 @@ struct IntrinsicNodeHandler {
                 sm << ival;
                 std::string value_str = sm.str();
                 sm.clear();
-                ASR::ttype_t *res_type = ASRUtils::TYPE(ASR::make_Character_t(al, loc,
-                                            1, value_str.size(), nullptr, nullptr , 0));
+                ASR::ttype_t* res_type = ASRUtils::TYPE(ASR::make_Allocatable_t(al, loc, 
+                                            ASRUtils::TYPE(ASR::make_String_t(al, loc, 1, nullptr, 
+                                                ASR::string_length_kindType::DeferredLength,
+                                                ASR::string_physical_typeType::DescriptorString))));
                 res_value =  ASR::down_cast<ASR::expr_t>(ASR::make_StringConstant_t(al,
                                 loc, s2c(al, value_str), res_type));
             }
-            return ASR::make_Cast_t(al, loc, arg, ASR::cast_kindType::RealToCharacter,
+            return ASR::make_Cast_t(al, loc, arg, ASR::cast_kindType::RealToString,
                 str_type, res_value);
         } else if (ASRUtils::is_integer(*arg_type)) {
             if (ASRUtils::expr_value(arg) != nullptr) {
                 int64_t number = ASR::down_cast<ASR::IntegerConstant_t>(
                                         ASRUtils::expr_value(arg))->m_n;
                 std::string value_str = std::to_string(number);
-                ASR::ttype_t *res_type = ASRUtils::TYPE(ASR::make_Character_t(al, loc,
-                                            1, value_str.size(), nullptr, nullptr , 0));
+                ASR::ttype_t* res_type = ASRUtils::TYPE(ASR::make_Allocatable_t(al, loc, 
+                                            ASRUtils::TYPE(ASR::make_String_t(al, loc, 1, nullptr, 
+                                                ASR::string_length_kindType::DeferredLength,
+                                                ASR::string_physical_typeType::DescriptorString))));
                 res_value = ASR::down_cast<ASR::expr_t>(ASR::make_StringConstant_t(al,
                                 loc, s2c(al, value_str), res_type));
             }
-            return ASR::make_Cast_t(al, loc, arg, ASR::cast_kindType::IntegerToCharacter,
+            return ASR::make_Cast_t(al, loc, arg, ASR::cast_kindType::IntegerToString,
                 str_type, res_value);
         } else if (ASRUtils::is_logical(*arg_type)) {
             if(ASRUtils::expr_value(arg) != nullptr) {
                 bool bool_number = ASR::down_cast<ASR::LogicalConstant_t>(
                                         ASRUtils::expr_value(arg))->m_value;
                 std::string value_str = (bool_number)? "True" : "False";
-                ASR::ttype_t *res_type = ASRUtils::TYPE(ASR::make_Character_t(al, loc,
-                                            1, value_str.size(), nullptr, nullptr , 0));
+                ASR::ttype_t* res_type = ASRUtils::TYPE(ASR::make_Allocatable_t(al, loc, 
+                                            ASRUtils::TYPE(ASR::make_String_t(al, loc, 1, nullptr, 
+                                                ASR::string_length_kindType::DeferredLength,
+                                                ASR::string_physical_typeType::DescriptorString))));
                 res_value = ASR::down_cast<ASR::expr_t>(ASR::make_StringConstant_t(al,
                                 loc, s2c(al, value_str), res_type));
             }
-            return ASR::make_Cast_t(al, loc, arg, ASR::cast_kindType::LogicalToCharacter,
+            return ASR::make_Cast_t(al, loc, arg, ASR::cast_kindType::LogicalToString,
                 str_type, res_value);
 
         } else if (ASRUtils::is_character(*arg_type)) {
             return (ASR::asr_t *)arg;
         } else {
-            std::string stype = ASRUtils::type_to_str_python(arg_type);
+            std::string stype = ASRUtils::type_to_str_python_expr(arg_type, nullptr);
             throw SemanticError("Conversion of '" + stype + "' to string is not Implemented", loc);
         }
     }
@@ -329,8 +399,7 @@ struct IntrinsicNodeHandler {
         }
         ASR::expr_t *arg = args[0].m_value;
         ASR::ttype_t *type = ASRUtils::expr_type(arg);
-        ASR::ttype_t *to_type = ASRUtils::TYPE(ASR::make_Integer_t(al, loc,
-                                4, nullptr, 0));
+        ASR::ttype_t *to_type = ASRUtils::TYPE(ASR::make_Integer_t(al, loc, 4));
         ASR::expr_t *value = nullptr;
         if (ASRUtils::is_character(*type)) {
             if (ASRUtils::expr_value(arg) != nullptr) {
@@ -343,12 +412,10 @@ struct IntrinsicNodeHandler {
             return (ASR::asr_t *)ASR::down_cast<ASR::expr_t>(
                     ASR::make_StringLen_t(al, loc, arg, to_type, value));
         } else if (ASR::is_a<ASR::Set_t>(*type)) {
-            if (ASRUtils::expr_value(arg) != nullptr) {
-                int64_t ival = (int64_t)ASR::down_cast<ASR::SetConstant_t>(
-                                        ASRUtils::expr_value(arg))->n_elements;
-                value = ASR::down_cast<ASR::expr_t>(make_IntegerConstant_t(al,
-                                loc, ival, to_type));
-            }
+            // Skip for set as they can have multiple same values
+            // which shouldn't account for len.
+            // Example: {1, 1, 1, 3} and the length should be 2.
+            // So it should be handled in the backend.
             return (ASR::asr_t *)ASR::down_cast<ASR::expr_t>(
                     ASR::make_SetLen_t(al, loc, arg, to_type, value));
         } else if (ASR::is_a<ASR::Tuple_t>(*type)) {
@@ -365,12 +432,10 @@ struct IntrinsicNodeHandler {
             return (ASR::asr_t *)ASR::down_cast<ASR::expr_t>(
                     ASR::make_ListLen_t(al, loc, arg, to_type, value));
         } else if (ASR::is_a<ASR::Dict_t>(*type)) {
-            if (ASRUtils::expr_value(arg) != nullptr) {
-                int64_t ival = (int64_t)ASR::down_cast<ASR::DictConstant_t>(
-                                        ASRUtils::expr_value(arg))->n_keys;
-                value = ASR::down_cast<ASR::expr_t>(make_IntegerConstant_t(al,
-                                loc, ival, to_type));
-            }
+            // Skip for dictionary as they can have multiple same keys
+            // which shouldn't account for len.
+            // Example: {1: 2, 1: 3, 1: 4} and the length should be 1.
+            // So it should be handled in the backend.
             return (ASR::asr_t *)ASR::down_cast<ASR::expr_t>(
                     ASR::make_DictLen_t(al, loc, arg, to_type, value));
         }
@@ -389,7 +454,7 @@ struct IntrinsicNodeHandler {
         if( !ASRUtils::is_array(ASRUtils::expr_type(newshape)) ) {
             throw SemanticError("reshape only accept arrays for shape "
                                 "arguments, found " +
-                                ASRUtils::type_to_str_python(ASRUtils::expr_type(newshape)) +
+                                ASRUtils::type_to_str_python_expr(ASRUtils::expr_type(newshape), newshape) +
                                 " instead.",
                                 loc);
         }
@@ -400,6 +465,15 @@ struct IntrinsicNodeHandler {
         newdim.m_start = nullptr, newdim.m_length = nullptr;
         dims.push_back(al, newdim);
         ASR::ttype_t* empty_type = ASRUtils::duplicate_type(al, ASRUtils::expr_type(array), &dims);
+        ASR::array_physical_typeType array_physical_type = ASRUtils::extract_physical_type(
+                                                                ASRUtils::expr_type(array));
+        if( array_physical_type == ASR::array_physical_typeType::FixedSizeArray ) {
+        empty_type = ASRUtils::duplicate_type(al, ASRUtils::expr_type(array),
+                        &dims, array_physical_type, true);
+        } else {
+        empty_type = ASRUtils::duplicate_type(al, ASRUtils::expr_type(array), &dims);
+        }
+        newshape = ASRUtils::cast_to_descriptor(al, newshape);
         return ASR::make_ArrayReshape_t(al, loc, array, newshape, empty_type, nullptr);
     }
 
@@ -411,8 +485,7 @@ struct IntrinsicNodeHandler {
         }
         ASR::expr_t *arg = args[0].m_value;
         ASR::ttype_t *type = ASRUtils::expr_type(arg);
-        ASR::ttype_t *to_type = ASRUtils::TYPE(ASR::make_Integer_t(al, loc,
-                                4, nullptr, 0));
+        ASR::ttype_t *to_type = ASRUtils::TYPE(ASR::make_Integer_t(al, loc, 4));
         ASR::expr_t *value = nullptr;
         if (ASRUtils::is_character(*type)) {
             if (ASRUtils::expr_value(arg) != nullptr) {
@@ -425,7 +498,7 @@ struct IntrinsicNodeHandler {
             }
             return ASR::make_StringOrd_t(al, loc, arg, to_type, value);
         } else {
-            throw SemanticError("ord() expected string of length 1, but " + ASRUtils::type_to_str_python(type) + " found",
+            throw SemanticError("ord() expected string of length 1, but " + ASRUtils::type_to_str_python_expr(type, arg) + " found",
                 arg->base.loc);
         }
     }
@@ -438,24 +511,31 @@ struct IntrinsicNodeHandler {
         }
         ASR::expr_t *arg = args[0].m_value;
         ASR::ttype_t *type = ASRUtils::expr_type(arg);
-        ASR::ttype_t* str_type = ASRUtils::TYPE(ASR::make_Character_t(al,
-            loc, 1, 1, nullptr, nullptr, 0));
+        ASR::ttype_t *str_type = ASRUtils::TYPE(ASR::make_Allocatable_t(al, loc, 
+                                        ASRUtils::TYPE(ASR::make_String_t(al, loc, 1, nullptr, 
+                                            ASR::string_length_kindType::DeferredLength,
+                                            ASR::string_physical_typeType::DescriptorString))));
         ASR::expr_t *value = nullptr;
         if (ASRUtils::is_integer(*type)) {
             if (ASRUtils::expr_value(arg) != nullptr) {
                 int64_t c = ASR::down_cast<ASR::IntegerConstant_t>(arg)->m_n;
-                if (! (c >= 0 && c <= 127) ) {
-                    throw SemanticError("The argument 'x' in chr(x) must be in the range 0 <= x <= 127.", loc);
+                c = (uint8_t) c;
+                if (! (c >= 0 && c <= 255) ) {
+                    throw SemanticError("The argument 'x' in chr(x) must be in the range 0 <= x <= 255.", loc);
                 }
-                char cc = c;
                 std::string svalue;
-                svalue += cc;
+                svalue += char(c);
                 value = ASR::down_cast<ASR::expr_t>(
                     ASR::make_StringConstant_t(al, loc, s2c(al, svalue), str_type));
             }
+            int kind = ASRUtils::extract_kind_from_ttype_t(type);
+            if (kind != 4) {
+                ASR::ttype_t* dest_type = ASRUtils::TYPE(ASR::make_Integer_t(al,loc, 4));
+                arg = ASRUtils::EXPR(ASR::make_Cast_t(al, loc, arg, ASR::cast_kindType::IntegerToInteger, dest_type, nullptr));
+            }
             return ASR::make_StringChr_t(al, loc, arg, str_type, value);
         } else {
-            throw SemanticError("'" + ASRUtils::type_to_str_python(type) + "' object cannot be interpreted as an integer",
+            throw SemanticError("'" + ASRUtils::type_to_str_python_expr(type, arg) + "' object cannot be interpreted as an integer",
                 arg->base.loc);
         }
     }
diff --git a/src/lpython/tests/CMakeLists.txt b/src/lpython/tests/CMakeLists.txt
index f7c16d4fea..2772b3adf0 100644
--- a/src/lpython/tests/CMakeLists.txt
+++ b/src/lpython/tests/CMakeLists.txt
@@ -32,6 +32,14 @@ endif()
 # Add one main test suite for LPython, composed of many individual cpp files:
 add_executable(test_lpython ${SRC})
 target_link_libraries(test_lpython lpython_lib p::doctest)
+if (HAVE_BUILD_TO_WASM)
+    set(WASM_COMPILE_FLAGS "-g0 -fexceptions")
+    set(WASM_LINK_FLAGS
+      "-Oz -g0 -fexceptions -Wall -Wextra -s ASSERTIONS -s ALLOW_MEMORY_GROWTH=1 -s WASM_BIGINT"
+    )
+    set_target_properties(test_lpython PROPERTIES COMPILE_FLAGS ${WASM_COMPILE_FLAGS})
+    set_target_properties(test_lpython PROPERTIES LINK_FLAGS ${WASM_LINK_FLAGS})
+endif()
 add_test(test_lpython ${PROJECT_BINARY_DIR}/test_lpython)
 
 set_target_properties(test_lpython PROPERTIES
diff --git a/src/lpython/tests/test_asm.cpp b/src/lpython/tests/test_asm.cpp
index a65010f256..1f1b5601dd 100644
--- a/src/lpython/tests/test_asm.cpp
+++ b/src/lpython/tests/test_asm.cpp
@@ -403,9 +403,6 @@ BITS 32
     dw 0x0000
     dw 0x0000
     dw 0x0000
-
-ehdrsize equ 0x00000034
-
 phdr:
     dd 0x00000001
     dd 0x00000000
@@ -415,12 +412,10 @@ ehdrsize equ 0x00000034
     dd filesize
     dd 0x00000005
     dd 0x00001000
-
-phdrsize equ 0x00000020
-
-
-e_phoff equ 0x00000034
-
+phdr_end:
+    ehdrsize equ phdr - ehdr
+    phdrsize equ phdr_end - phdr
+    e_phoff equ phdr - ehdr
 msg:
     db 0x48
     db 0x65
@@ -446,9 +441,8 @@ e_phoff equ 0x00000034
     mov eax, 0x00000001
     mov ebx, 0x00000000
     int 0x80
-
-filesize equ $ - $$
-
+footer:
+    filesize equ footer - ehdr
 )""");
     CHECK(asm_code == ref);
 #endif
diff --git a/src/lpython/tests/test_llvm.cpp b/src/lpython/tests/test_llvm.cpp
index a660dd7509..599161b937 100644
--- a/src/lpython/tests/test_llvm.cpp
+++ b/src/lpython/tests/test_llvm.cpp
@@ -1,6 +1,7 @@
 #include <tests/doctest.h>
 
 #include <cmath>
+#include <cstring>
 
 #include <lpython/python_evaluator.h>
 #include <libasr/codegen/evaluator.h>
@@ -25,9 +26,9 @@ define i64 @f1()
     ret i64 4
 }
     )""");
-    CHECK(e.int64fn("f1") == 4);
+    CHECK(e.execfn<int64_t>("f1") == 4);
     e.add_module("");
-    //CHECK(e.int64fn("f1") == 4);
+    //CHECK(e.execfn<int64_t>("f1") == 4);
 
     e.add_module(R"""(
 define i64 @f2()
@@ -35,9 +36,9 @@ define i64 @f2()
     ret i64 5
 }
     )""");
-    CHECK(e.int64fn("f2") == 5);
+    CHECK(e.execfn<int64_t>("f2") == 5);
     //e.add_module("");
-    //CHECK(e.int64fn("f2") == 5);
+    //CHECK(e.execfn<int64_t>("f2") == 5);
 }
 
 TEST_CASE("llvm 1 fail") {
@@ -71,7 +72,7 @@ define i64 @f1()
     ret i64 %1
 }
     )""");
-    CHECK(e.int64fn("f1") == 4);
+    CHECK(e.execfn<int64_t>("f1") == 4);
 
     e.add_module(R"""(
 @count = external global i64
@@ -82,7 +83,7 @@ define i64 @f2()
     ret i64 %1
 }
     )""");
-    CHECK(e.int64fn("f2") == 4);
+    CHECK(e.execfn<int64_t>("f2") == 4);
 
     CHECK_THROWS_AS(e.add_module(R"""(
 define i64 @f3()
@@ -117,12 +118,12 @@ define void @inc()
     ret void
 }
     )""");
-    CHECK(e.int64fn("f1") == 5);
+    CHECK(e.execfn<int64_t>("f1") == 5);
     /*
-    e.voidfn("inc");
-    CHECK(e.int64fn("f1") == 6);
-    e.voidfn("inc");
-    CHECK(e.int64fn("f1") == 7);
+    e.execfn<void>("inc");
+    CHECK(e.execfn<int64_t>("f1") == 6);
+    e.execfn<void>("inc");
+    CHECK(e.execfn<int64_t>("f1") == 7);
     */
 
     /*
@@ -137,13 +138,13 @@ define void @inc2()
     ret void
 }
     )""");
-    CHECK(e.int64fn("f1") == 7);
-    e.voidfn("inc2");
-    CHECK(e.int64fn("f1") == 9);
-    e.voidfn("inc");
-    CHECK(e.int64fn("f1") == 10);
-    e.voidfn("inc2");
-    CHECK(e.int64fn("f1") == 12);
+    CHECK(e.execfn<int64_t>("f1") == 7);
+    e.execfn<void>("inc2");
+    CHECK(e.execfn<int64_t>("f1") == 9);
+    e.execfn<void>("inc");
+    CHECK(e.execfn<int64_t>("f1") == 10);
+    e.execfn<void>("inc2");
+    CHECK(e.execfn<int64_t>("f1") == 12);
     */
 
     // Test that we can have another independent LLVMEvaluator and use both at
@@ -168,19 +169,19 @@ define void @inc()
 }
     )""");
 
-    CHECK(e2.int64fn("f1") == 5);
-    e2.voidfn("inc");
-    CHECK(e2.int64fn("f1") == 6);
-    e2.voidfn("inc");
-    CHECK(e2.int64fn("f1") == 7);
-
-    CHECK(e.int64fn("f1") == 12);
-    e2.voidfn("inc");
-    CHECK(e2.int64fn("f1") == 8);
-    CHECK(e.int64fn("f1") == 12);
-    e.voidfn("inc");
-    CHECK(e2.int64fn("f1") == 8);
-    CHECK(e.int64fn("f1") == 13);
+    CHECK(e2.execfn<int64_t>("f1") == 5);
+    e2.execfn<void>("inc");
+    CHECK(e2.execfn<int64_t>("f1") == 6);
+    e2.execfn<void>("inc");
+    CHECK(e2.execfn<int64_t>("f1") == 7);
+
+    CHECK(e.execfn<int64_t>("f1") == 12);
+    e2.execfn<void>("inc");
+    CHECK(e2.execfn<int64_t>("f1") == 8);
+    CHECK(e.execfn<int64_t>("f1") == 12);
+    e.execfn<void>("inc");
+    CHECK(e2.execfn<int64_t>("f1") == 8);
+    CHECK(e.execfn<int64_t>("f1") == 13);
 */
 }
 
@@ -203,12 +204,12 @@ define void @inc()
     ret void
 }
 )""");
-    CHECK(e.int64fn("f1") == 5);
+    CHECK(e.execfn<int64_t>("f1") == 5);
     /*
-    e.voidfn("inc");
-    CHECK(e.int64fn("f1") == 6);
-    e.voidfn("inc");
-    CHECK(e.int64fn("f1") == 7);
+    e.execfn<void>("inc");
+    CHECK(e.execfn<int64_t>("f1") == 6);
+    e.execfn<void>("inc");
+    CHECK(e.execfn<int64_t>("f1") == 7);
 
     e.add_module(R"""(
 declare void @inc()
@@ -220,13 +221,13 @@ define void @inc2()
     ret void
 }
 )""");
-    CHECK(e.int64fn("f1") == 7);
-    e.voidfn("inc2");
-    CHECK(e.int64fn("f1") == 9);
-    e.voidfn("inc");
-    CHECK(e.int64fn("f1") == 10);
-    e.voidfn("inc2");
-    CHECK(e.int64fn("f1") == 12);
+    CHECK(e.execfn<int64_t>("f1") == 7);
+    e.execfn<void>("inc2");
+    CHECK(e.execfn<int64_t>("f1") == 9);
+    e.execfn<void>("inc");
+    CHECK(e.execfn<int64_t>("f1") == 10);
+    e.execfn<void>("inc2");
+    CHECK(e.execfn<int64_t>("f1") == 12);
 
     CHECK_THROWS_AS(e.add_module(R"""(
 define void @inc2()
@@ -279,7 +280,7 @@ define i64 @f()
     ret i64 %r
 }
     )""");
-    CHECK(e.int64fn("f") == 6);
+    CHECK(e.execfn<int64_t>("f") == 6);
 }
 
 TEST_CASE("llvm array 2") {
@@ -324,7 +325,7 @@ define i64 @f()
     ret i64 %r
 }
     )""");
-    //CHECK(e.int64fn("f") == 6);
+    //CHECK(e.execfn<int64_t>("f") == 6);
 }
 
 int f(int a, int b) {
@@ -348,7 +349,7 @@ define i64 @f1()
     ret i64 %r
 }
     )""");
-    CHECK(e.int64fn("f1") == 5);
+    CHECK(e.execfn<int64_t>("f1") == 5);
 }
 
 
@@ -386,7 +387,7 @@ define float @f()
     ret float %r
 }
     )""");
-    CHECK(std::abs(e.floatfn("f") - 8) < 1e-6);
+    CHECK(std::abs(e.execfn<float>("f") - 8) < 1e-6);
 }
 
 // Tests passing the complex struct by value
@@ -425,7 +426,7 @@ define float @f()
     ret float %r
 }
     )""");
-    //CHECK(std::abs(e.floatfn("f") - 8) < 1e-6);
+    //CHECK(std::abs(e.execfn<float>("f") - 8) < 1e-6);
 }
 
 // Tests passing boolean by reference
@@ -455,7 +456,7 @@ define i1 @b()
     ret i1 %r
 }
     )""");
-    CHECK(e.boolfn("b") == false);
+    CHECK(e.execfn<bool>("b") == false);
 }
 
 // Tests passing boolean by value
@@ -485,7 +486,7 @@ define i1 @b()
     ret i1 %r
 }
     )""");
-    CHECK(e.boolfn("b") == false);
+    CHECK(e.execfn<bool>("b") == false);
 }
 
 // Tests pointers
@@ -506,7 +507,7 @@ define i64 @f()
     ret i64 %raddr
 }
     )""");
-    int64_t r = e.int64fn("f");
+    int64_t r = e.execfn<int64_t>("f");
     CHECK(r != 8);
     int64_t *p = (int64_t*)r;
     CHECK(*p == 8);
@@ -526,7 +527,7 @@ define i64 @f()
     ret i64 %raddr
 }
     )""");
-    int64_t r = e.int64fn("f");
+    int64_t r = e.execfn<int64_t>("f");
     float *p = (float *)r;
     CHECK(std::abs(*p - 8) < 1e-6);
 }
@@ -567,7 +568,7 @@ define float @f()
     ret float %ret
 }
     )""");
-    float r = e.floatfn("f");
+    float r = e.execfn<float>("f");
     CHECK(std::abs(r - 8) < 1e-6);
 }
 
@@ -604,6 +605,1313 @@ define float @f()
     ret float %ret
 }
     )""");
-    float r = e.floatfn("f");
+    float r = e.execfn<float>("f");
     CHECK(std::abs(r - 8) < 1e-6);
 }
+
+TEST_CASE("PythonCompiler 1") {
+    CompilerOptions cu;
+    cu.po.disable_main = true;
+    cu.emit_debug_line_column = false;
+    cu.separate_compilation = false;
+    cu.interactive = true;
+    cu.po.runtime_library_dir = LCompilers::LPython::get_runtime_library_dir();
+    PythonCompiler e(cu);
+    LCompilers::Result<PythonCompiler::EvalResult>
+    r = e.evaluate2("1");
+    CHECK(r.ok);
+    CHECK(r.result.type == PythonCompiler::EvalResult::integer4);
+    CHECK(r.result.i32 == 1);
+}
+
+// TEST_CASE("PythonCompiler 2") {
+//     CompilerOptions cu;
+//     cu.po.disable_main = true;
+//     cu.emit_debug_line_column = false;
+//     cu.separate_compilation = false;
+//     cu.interactive = true;
+//     cu.po.runtime_library_dir = LCompilers::LPython::get_runtime_library_dir();
+//     PythonCompiler e(cu);
+//     LCompilers::Result<PythonCompiler::EvalResult>
+
+//     r = e.evaluate2("i: i32 = 3 % 2");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::none);
+//     r = e.evaluate2("i");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::integer4);
+//     CHECK(r.result.i32 == 1);
+// }
+
+TEST_CASE("PythonCompiler i32 expressions") {
+    CompilerOptions cu;
+    cu.po.disable_main = true;
+    cu.emit_debug_line_column = false;
+    cu.separate_compilation = false;
+    cu.interactive = true;
+    cu.po.runtime_library_dir = LCompilers::LPython::get_runtime_library_dir();
+    PythonCompiler e(cu);
+    LCompilers::Result<PythonCompiler::EvalResult>
+
+    r = e.evaluate2("1");
+    CHECK(r.ok);
+    CHECK(r.result.type == PythonCompiler::EvalResult::integer4);
+    CHECK(r.result.i32 == 1);
+
+    r = e.evaluate2("1 + 2");
+    CHECK(r.ok);
+    CHECK(r.result.type == PythonCompiler::EvalResult::integer4);
+    CHECK(r.result.i32 == 3);
+
+    r = e.evaluate2("1 - 2");
+    CHECK(r.ok);
+    CHECK(r.result.type == PythonCompiler::EvalResult::integer4);
+    CHECK(r.result.i32 == -1);
+
+    r = e.evaluate2("1 * 2");
+    CHECK(r.ok);
+    CHECK(r.result.type == PythonCompiler::EvalResult::integer4);
+    CHECK(r.result.i32 == 2);
+
+    r = e.evaluate2("3 ** 3");
+    CHECK(r.ok);
+    CHECK(r.result.type == PythonCompiler::EvalResult::integer4);
+    CHECK(r.result.i32 == 27);
+
+    r = e.evaluate2("4 // 2");
+    CHECK(r.ok);
+    CHECK(r.result.type == PythonCompiler::EvalResult::integer4);
+    CHECK(r.result.i32 == 2);
+
+    r = e.evaluate2("4 / 2");
+    CHECK(r.ok);
+    CHECK(r.result.type == PythonCompiler::EvalResult::real8);
+    CHECK(r.result.f64 == 2);
+}
+
+// TEST_CASE("PythonCompiler i32 declaration") {
+//     CompilerOptions cu;
+//     cu.po.disable_main = true;
+//     cu.emit_debug_line_column = false;
+//     cu.separate_compilation = false;
+//     cu.interactive = true;
+//     cu.po.runtime_library_dir = LCompilers::LPython::get_runtime_library_dir();
+//     PythonCompiler e(cu);
+//     LCompilers::Result<PythonCompiler::EvalResult>
+
+//     r = e.evaluate2("i: i32");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::none);
+//     r = e.evaluate2("i = 5");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::statement);
+//     r = e.evaluate2("i");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::integer4);
+//     CHECK(r.result.i32 == 5);
+
+//     r = e.evaluate2("j: i32 = 9");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::none);
+//     r = e.evaluate2("j");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::integer4);
+//     CHECK(r.result.i32 == 9);
+
+//     r = e.evaluate2("i + j");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::integer4);
+//     CHECK(r.result.i32 == 14);
+// }
+
+TEST_CASE("PythonCompiler i64 expressions") {
+    CompilerOptions cu;
+    cu.po.disable_main = true;
+    cu.emit_debug_line_column = false;
+    cu.separate_compilation = false;
+    cu.interactive = true;
+    cu.po.runtime_library_dir = LCompilers::LPython::get_runtime_library_dir();
+    PythonCompiler e(cu);
+    LCompilers::Result<PythonCompiler::EvalResult>
+
+    r = e.evaluate2("i64(1)");
+    CHECK(r.ok);
+    CHECK(r.result.type == PythonCompiler::EvalResult::integer8);
+    CHECK(r.result.i64 == 1);
+
+    r = e.evaluate2("i64(1) + i64(2)");
+    CHECK(r.ok);
+    CHECK(r.result.type == PythonCompiler::EvalResult::integer8);
+    CHECK(r.result.i64 == 3);
+
+    r = e.evaluate2("i64(1) - i64(2)");
+    CHECK(r.ok);
+    CHECK(r.result.type == PythonCompiler::EvalResult::integer8);
+    CHECK(r.result.i64 == -1);
+
+    r = e.evaluate2("i64(1) * i64(2)");
+    CHECK(r.ok);
+    CHECK(r.result.type == PythonCompiler::EvalResult::integer8);
+    CHECK(r.result.i64 == 2);
+
+    r = e.evaluate2("i64(3) ** i64(3)");
+    CHECK(r.ok);
+    CHECK(r.result.type == PythonCompiler::EvalResult::integer8);
+    CHECK(r.result.i64 == 27);
+
+    r = e.evaluate2("i64(4) // i64(2)");
+    CHECK(r.ok);
+    CHECK(r.result.type == PythonCompiler::EvalResult::integer8);
+    CHECK(r.result.i64 == 2);
+
+    r = e.evaluate2("i64(4) / i64(2)");
+    CHECK(r.ok);
+    CHECK(r.result.type == PythonCompiler::EvalResult::real8);
+    CHECK(r.result.f64 == 2);
+}
+
+// TEST_CASE("PythonCompiler i64 declaration") {
+//     CompilerOptions cu;
+//     cu.po.disable_main = true;
+//     cu.emit_debug_line_column = false;
+//     cu.separate_compilation = false;
+//     cu.interactive = true;
+//     cu.po.runtime_library_dir = LCompilers::LPython::get_runtime_library_dir();
+//     PythonCompiler e(cu);
+//     LCompilers::Result<PythonCompiler::EvalResult>
+
+//     r = e.evaluate2("i: i64");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::none);
+//     r = e.evaluate2("i = i64(5)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::statement);
+//     r = e.evaluate2("i");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::integer8);
+//     CHECK(r.result.i64 == 5);
+
+//     r = e.evaluate2("j: i64 = i64(9)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::none);
+//     r = e.evaluate2("j");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::integer8);
+//     CHECK(r.result.i64 == 9);
+
+//     r = e.evaluate2("i + j");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::integer8);
+//     CHECK(r.result.i64 == 14);
+// }
+
+// TEST_CASE("PythonCompiler u32 expressions") {
+//     CompilerOptions cu;
+//     cu.po.disable_main = true;
+//     cu.emit_debug_line_column = false;
+//     cu.separate_compilation = false;
+//     cu.interactive = true;
+//     cu.po.runtime_library_dir = LCompilers::LPython::get_runtime_library_dir();
+//     PythonCompiler e(cu);
+//     LCompilers::Result<PythonCompiler::EvalResult>
+
+//     r = e.evaluate2("u32(1)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::unsignedInteger4);
+//     CHECK(r.result.u32 == 1);
+
+//     r = e.evaluate2("u32(1) + u32(2)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::unsignedInteger4);
+//     CHECK(r.result.u32 == 3);
+
+//     r = e.evaluate2("u32(20) - u32(10)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::unsignedInteger4);
+//     CHECK(r.result.u32 == 10);
+
+//     r = e.evaluate2("u32(1) * u32(2)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::unsignedInteger4);
+//     CHECK(r.result.u32 == 2);
+
+//     r = e.evaluate2("u32(3) ** u32(3)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::unsignedInteger4);
+//     CHECK(r.result.u32 == 27);
+
+//     r = e.evaluate2("u32(4) // u32(2)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::unsignedInteger4);
+//     CHECK(r.result.u32 == 2);
+
+//     r = e.evaluate2("u32(4) / u32(2)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::real8);
+//     CHECK(r.result.f64 == 2);
+// }
+
+// TEST_CASE("PythonCompiler u32 declaration") {
+//     CompilerOptions cu;
+//     cu.po.disable_main = true;
+//     cu.emit_debug_line_column = false;
+//     cu.separate_compilation = false;
+//     cu.interactive = true;
+//     cu.po.runtime_library_dir = LCompilers::LPython::get_runtime_library_dir();
+//     PythonCompiler e(cu);
+//     LCompilers::Result<PythonCompiler::EvalResult>
+
+//     r = e.evaluate2("i: u32");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::none);
+
+//     r = e.evaluate2("i = u32(5)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::statement);
+//     r = e.evaluate2("i");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::unsignedInteger4);
+//     CHECK(r.result.u32 == 5);
+
+//     r = e.evaluate2("j: u32 = u32(9)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::none);
+//     r = e.evaluate2("j");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::unsignedInteger4);
+//     CHECK(r.result.u32 == 9);
+
+//     r = e.evaluate2("i * j");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::unsignedInteger4);
+//     CHECK(r.result.u32 == 45);
+// }
+
+// TEST_CASE("PythonCompiler u64 expressions") {
+//     CompilerOptions cu;
+//     cu.po.disable_main = true;
+//     cu.emit_debug_line_column = false;
+//     cu.separate_compilation = false;
+//     cu.interactive = true;
+//     cu.po.runtime_library_dir = LCompilers::LPython::get_runtime_library_dir();
+//     PythonCompiler e(cu);
+//     LCompilers::Result<PythonCompiler::EvalResult>
+
+//     r = e.evaluate2("u64(1)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::unsignedInteger8);
+//     CHECK(r.result.u64 == 1);
+
+//     r = e.evaluate2("u64(1) + u64(2)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::unsignedInteger8);
+//     CHECK(r.result.u64 == 3);
+
+//     r = e.evaluate2("u64(20) - u64(10)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::unsignedInteger8);
+//     CHECK(r.result.u64 == 10);
+
+//     r = e.evaluate2("u64(1) * u64(2)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::unsignedInteger8);
+//     CHECK(r.result.u64 == 2);
+
+//     r = e.evaluate2("u64(3) ** u64(3)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::unsignedInteger8);
+//     CHECK(r.result.u64 == 27);
+
+//     r = e.evaluate2("u64(4) // u64(2)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::unsignedInteger8);
+//     CHECK(r.result.u64 == 2);
+
+//     r = e.evaluate2("u64(4) / u64(2)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::real8);
+//     CHECK(r.result.f64 == 2);
+// }
+
+// TEST_CASE("PythonCompiler u64 declaration") {
+//     CompilerOptions cu;
+//     cu.po.disable_main = true;
+//     cu.emit_debug_line_column = false;
+//     cu.separate_compilation = false;
+//     cu.interactive = true;
+//     cu.po.runtime_library_dir = LCompilers::LPython::get_runtime_library_dir();
+//     PythonCompiler e(cu);
+//     LCompilers::Result<PythonCompiler::EvalResult>
+
+//     r = e.evaluate2("i: u64");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::none);
+//     r = e.evaluate2("i = u64(5)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::statement);
+//     r = e.evaluate2("i");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::unsignedInteger8);
+//     CHECK(r.result.u64 == 5);
+
+//     r = e.evaluate2("j: u64 = u64(9)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::none);
+//     r = e.evaluate2("j");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::unsignedInteger8);
+//     CHECK(r.result.u64 == 9);
+
+//     r = e.evaluate2("i * j");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::unsignedInteger8);
+//     CHECK(r.result.u64 == 45);
+// }
+
+// TEST_CASE("PythonCompiler i8 expressions") {
+//     CompilerOptions cu;
+//     cu.po.disable_main = true;
+//     cu.emit_debug_line_column = false;
+//     cu.separate_compilation = false;
+//     cu.interactive = true;
+//     cu.po.runtime_library_dir = LCompilers::LPython::get_runtime_library_dir();
+//     PythonCompiler e(cu);
+//     LCompilers::Result<PythonCompiler::EvalResult>
+
+//     r = e.evaluate2("i8(1)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::integer1);
+//     CHECK(r.result.i32 == 1);
+
+//     r = e.evaluate2("i8(1) + i8(2)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::integer1);
+//     CHECK(r.result.i32 == 3);
+
+//     r = e.evaluate2("i8(1) - i8(2)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::integer1);
+//     CHECK(r.result.i32 == -1);
+
+//     r = e.evaluate2("i8(1) * i8(2)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::integer1);
+//     CHECK(r.result.i32 == 2);
+
+//     r = e.evaluate2("i8(3) ** i8(3)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::integer1);
+//     CHECK(r.result.i32 == 27);
+
+//     r = e.evaluate2("i8(4) // i8(2)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::integer1);
+//     CHECK(r.result.i32 == 2);
+
+//     r = e.evaluate2("i8(4) / i8(2)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::real8);
+//     CHECK(r.result.f64 == 2);
+// }
+
+// TEST_CASE("PythonCompiler i8 declaration") {
+//     CompilerOptions cu;
+//     cu.po.disable_main = true;
+//     cu.emit_debug_line_column = false;
+//     cu.separate_compilation = false;
+//     cu.interactive = true;
+//     cu.po.runtime_library_dir = LCompilers::LPython::get_runtime_library_dir();
+//     PythonCompiler e(cu);
+//     LCompilers::Result<PythonCompiler::EvalResult>
+
+//     r = e.evaluate2("i: i8");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::none);
+//     r = e.evaluate2("i = i8(5)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::statement);
+//     r = e.evaluate2("i");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::integer1);
+//     CHECK(r.result.i32 == 5);
+
+//     r = e.evaluate2("j: i8 = i8(9)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::none);
+//     r = e.evaluate2("j");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::integer1);
+//     CHECK(r.result.i32 == 9);
+
+//     r = e.evaluate2("i + j");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::integer1);
+//     CHECK(r.result.i32 == 14);
+// }
+
+// TEST_CASE("PythonCompiler u8 expressions") {
+//     CompilerOptions cu;
+//     cu.po.disable_main = true;
+//     cu.emit_debug_line_column = false;
+//     cu.separate_compilation = false;
+//     cu.interactive = true;
+//     cu.po.runtime_library_dir = LCompilers::LPython::get_runtime_library_dir();
+//     PythonCompiler e(cu);
+//     LCompilers::Result<PythonCompiler::EvalResult>
+
+//     r = e.evaluate2("u8(1)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::unsignedInteger1);
+//     CHECK(r.result.u32 == 1);
+
+//     r = e.evaluate2("u8(1) + u8(2)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::unsignedInteger1);
+//     CHECK(r.result.u32 == 3);
+
+//     r = e.evaluate2("u8(20) - u8(10)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::unsignedInteger1);
+//     CHECK(r.result.u32 == 10);
+
+//     r = e.evaluate2("u8(1) * u8(2)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::unsignedInteger1);
+//     CHECK(r.result.u32 == 2);
+
+//     r = e.evaluate2("u8(3) ** u8(3)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::unsignedInteger1);
+//     CHECK(r.result.u32 == 27);
+
+//     r = e.evaluate2("u8(4) // u8(2)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::unsignedInteger1);
+//     CHECK(r.result.u32 == 2);
+
+//     r = e.evaluate2("u8(4) / u8(2)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::real8);
+//     CHECK(r.result.f64 == 2);
+// }
+
+// TEST_CASE("PythonCompiler u8 declaration") {
+//     CompilerOptions cu;
+//     cu.po.disable_main = true;
+//     cu.emit_debug_line_column = false;
+//     cu.separate_compilation = false;
+//     cu.interactive = true;
+//     cu.po.runtime_library_dir = LCompilers::LPython::get_runtime_library_dir();
+//     PythonCompiler e(cu);
+//     LCompilers::Result<PythonCompiler::EvalResult>
+
+//     r = e.evaluate2("i: u8");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::none);
+//     r = e.evaluate2("i = u8(5)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::statement);
+//     r = e.evaluate2("i");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::unsignedInteger1);
+//     CHECK(r.result.u32 == 5);
+
+//     r = e.evaluate2("j: u8 = u8(9)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::none);
+//     r = e.evaluate2("j");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::unsignedInteger1);
+//     CHECK(r.result.u32 == 9);
+
+//     r = e.evaluate2("i * j");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::unsignedInteger1);
+//     CHECK(r.result.u32 == 45);
+// }
+
+// TEST_CASE("PythonCompiler i16 expressions") {
+//     CompilerOptions cu;
+//     cu.po.disable_main = true;
+//     cu.emit_debug_line_column = false;
+//     cu.separate_compilation = false;
+//     cu.interactive = true;
+//     cu.po.runtime_library_dir = LCompilers::LPython::get_runtime_library_dir();
+//     PythonCompiler e(cu);
+//     LCompilers::Result<PythonCompiler::EvalResult>
+
+//     r = e.evaluate2("i16(1)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::integer2);
+//     CHECK(r.result.i32 == 1);
+
+//     r = e.evaluate2("i16(1) + i16(2)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::integer2);
+//     CHECK(r.result.i32 == 3);
+
+//     r = e.evaluate2("i16(1) - i16(2)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::integer2);
+//     CHECK(r.result.i32 == -1);
+
+//     r = e.evaluate2("i16(1) * i16(2)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::integer2);
+//     CHECK(r.result.i32 == 2);
+
+//     r = e.evaluate2("i16(3) ** i16(3)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::integer2);
+//     CHECK(r.result.i32 == 27);
+
+//     r = e.evaluate2("i16(4) // i16(2)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::integer2);
+//     CHECK(r.result.i32 == 2);
+
+//     r = e.evaluate2("i16(4) / i16(2)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::real8);
+//     CHECK(r.result.f64 == 2);
+// }
+
+// TEST_CASE("PythonCompiler i16 declaration") {
+//     CompilerOptions cu;
+//     cu.po.disable_main = true;
+//     cu.emit_debug_line_column = false;
+//     cu.separate_compilation = false;
+//     cu.interactive = true;
+//     cu.po.runtime_library_dir = LCompilers::LPython::get_runtime_library_dir();
+//     PythonCompiler e(cu);
+//     LCompilers::Result<PythonCompiler::EvalResult>
+
+//     r = e.evaluate2("i: i16");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::none);
+//     r = e.evaluate2("i = i16(5)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::statement);
+//     r = e.evaluate2("i");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::integer2);
+//     CHECK(r.result.i32 == 5);
+
+//     r = e.evaluate2("j: i16 = i16(9)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::none);
+//     r = e.evaluate2("j");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::integer2);
+//     CHECK(r.result.i32 == 9);
+
+//     r = e.evaluate2("i + j");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::integer2);
+//     CHECK(r.result.i32 == 14);
+// }
+
+// TEST_CASE("PythonCompiler u16 expressions") {
+//     CompilerOptions cu;
+//     cu.po.disable_main = true;
+//     cu.emit_debug_line_column = false;
+//     cu.separate_compilation = false;
+//     cu.interactive = true;
+//     cu.po.runtime_library_dir = LCompilers::LPython::get_runtime_library_dir();
+//     PythonCompiler e(cu);
+//     LCompilers::Result<PythonCompiler::EvalResult>
+
+//     r = e.evaluate2("u16(1)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::unsignedInteger2);
+//     CHECK(r.result.u32 == 1);
+
+//     r = e.evaluate2("u16(1) + u16(2)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::unsignedInteger2);
+//     CHECK(r.result.u32 == 3);
+
+//     r = e.evaluate2("u16(20) - u16(10)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::unsignedInteger2);
+//     CHECK(r.result.u32 == 10);
+
+//     r = e.evaluate2("u16(1) * u16(2)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::unsignedInteger2);
+//     CHECK(r.result.u32 == 2);
+
+//     r = e.evaluate2("u16(3) ** u16(3)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::unsignedInteger2);
+//     CHECK(r.result.u32 == 27);
+
+//     r = e.evaluate2("u16(4) // u16(2)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::unsignedInteger2);
+//     CHECK(r.result.u32 == 2);
+
+//     r = e.evaluate2("u16(4) / u16(2)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::real8);
+//     CHECK(r.result.f64 == 2);
+// }
+
+// TEST_CASE("PythonCompiler u16 declaration") {
+//     CompilerOptions cu;
+//     cu.po.disable_main = true;
+//     cu.emit_debug_line_column = false;
+//     cu.separate_compilation = false;
+//     cu.interactive = true;
+//     cu.po.runtime_library_dir = LCompilers::LPython::get_runtime_library_dir();
+//     PythonCompiler e(cu);
+//     LCompilers::Result<PythonCompiler::EvalResult>
+
+//     r = e.evaluate2("i: u16");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::none);
+//     r = e.evaluate2("i = u16(5)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::statement);
+//     r = e.evaluate2("i");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::unsignedInteger2);
+//     CHECK(r.result.u32 == 5);
+
+//     r = e.evaluate2("j: u16 = u16(9)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::none);
+//     r = e.evaluate2("j");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::unsignedInteger2);
+//     CHECK(r.result.u32 == 9);
+
+//     r = e.evaluate2("i * j");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::unsignedInteger2);
+//     CHECK(r.result.u32 == 45);
+// }
+
+// TEST_CASE("PythonCompiler boolean expressions") {
+//     CompilerOptions cu;
+//     cu.po.disable_main = true;
+//     cu.emit_debug_line_column = false;
+//     cu.separate_compilation = false;
+//     cu.interactive = true;
+//     cu.po.runtime_library_dir = LCompilers::LPython::get_runtime_library_dir();
+//     PythonCompiler e(cu);
+//     LCompilers::Result<PythonCompiler::EvalResult>
+
+//     r = e.evaluate2("True");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::boolean);
+//     CHECK(r.result.b);
+
+//     r = e.evaluate2("False");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::boolean);
+//     CHECK(!r.result.b);
+
+//     r = e.evaluate2("False or True");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::boolean);
+//     CHECK(r.result.b);
+
+//     r = e.evaluate2("False and True");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::boolean);
+//     CHECK(!r.result.b);
+// }
+
+// TEST_CASE("PythonCompiler boolean declaration") {
+//     CompilerOptions cu;
+//     cu.po.disable_main = true;
+//     cu.emit_debug_line_column = false;
+//     cu.separate_compilation = false;
+//     cu.interactive = true;
+//     cu.po.runtime_library_dir = LCompilers::LPython::get_runtime_library_dir();
+//     PythonCompiler e(cu);
+//     LCompilers::Result<PythonCompiler::EvalResult>
+
+//     r = e.evaluate2("t: bool");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::none);
+//     r = e.evaluate2("t = True");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::statement);
+//     r = e.evaluate2("t");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::boolean);
+//     CHECK(r.result.b);
+
+//     r = e.evaluate2("f: bool = False");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::none);
+//     r = e.evaluate2("f");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::boolean);
+//     CHECK(!r.result.b);
+
+//     r = e.evaluate2("t or f");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::boolean);
+//     CHECK(r.result.b);
+
+//     r = e.evaluate2("t and f");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::boolean);
+//     CHECK(!r.result.b);
+// }
+
+// TEST_CASE("PythonCompiler string 1") {
+//     CompilerOptions cu;
+//     cu.po.disable_main = true;
+//     cu.emit_debug_line_column = false;
+//     cu.separate_compilation = false;
+//     cu.interactive = true;
+//     cu.po.runtime_library_dir = LCompilers::LPython::get_runtime_library_dir();
+//     PythonCompiler e(cu);
+//     LCompilers::Result<PythonCompiler::EvalResult>
+
+//     r = e.evaluate2("\"My String\"");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::string);
+//     CHECK(std::strcmp(r.result.str, "My String") == 0);
+
+//     r = e.evaluate2("\"s1\" + \" \" + \"s2\"");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::string);
+//     CHECK(std::strcmp(r.result.str, "s1 s2") == 0);
+// }
+
+// TEST_CASE("PythonCompiler string 2") {
+//     CompilerOptions cu;
+//     cu.po.disable_main = true;
+//     cu.emit_debug_line_column = false;
+//     cu.separate_compilation = false;
+//     cu.interactive = true;
+//     cu.po.runtime_library_dir = LCompilers::LPython::get_runtime_library_dir();
+//     PythonCompiler e(cu);
+//     LCompilers::Result<PythonCompiler::EvalResult>
+
+//     r = e.evaluate2("s: str");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::none);
+
+//     r = e.evaluate2("s");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::string);
+//     CHECK(r.result.str == nullptr);
+
+//     r = e.evaluate2(R"(
+// s = ""
+// i: i32 = 0
+// for i in range(10):
+//     s += str(i)
+// )");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::statement);
+
+//     r = e.evaluate2("s");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::string);
+//     CHECK(std::strcmp(r.result.str, "0123456789") == 0);
+// }
+
+// TEST_CASE("PythonCompiler string 3") {
+//     CompilerOptions cu;
+//     cu.po.disable_main = true;
+//     cu.emit_debug_line_column = false;
+//     cu.separate_compilation = false;
+//     cu.interactive = true;
+//     cu.po.runtime_library_dir = LCompilers::LPython::get_runtime_library_dir();
+//     PythonCompiler e(cu);
+//     LCompilers::Result<PythonCompiler::EvalResult>
+
+//     r = e.evaluate2(R"(
+// def my_concat(x: str, y: str) -> str:
+//     return x + " " + y
+// )");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::none);
+
+//     r = e.evaluate2("s: str = \"0123456789\"");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::none);
+
+//     r = e.evaluate2("my_concat(s, \"NUM\")");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::string);
+//     CHECK(std::strcmp(r.result.str, "0123456789 NUM") == 0);
+
+//     r = e.evaluate2("my_concat(\"Python\", \"REPL\")");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::string);
+//     CHECK(std::strcmp(r.result.str, "Python REPL") == 0);
+// }
+
+// TEST_CASE("PythonCompiler Array 1") {
+//     CompilerOptions cu;
+//     cu.po.disable_main = true;
+//     cu.emit_debug_line_column = false;
+//     cu.separate_compilation = false;
+//     cu.interactive = true;
+//     cu.po.runtime_library_dir = LCompilers::LPython::get_runtime_library_dir();
+//     PythonCompiler e(cu);
+//     LCompilers::Result<PythonCompiler::EvalResult>
+//     r = e.evaluate2("i: i32[10] = empty(10, dtype=int32)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::statement);
+//     r = e.evaluate2("print(i)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::statement);
+// }
+
+// TEST_CASE("PythonCompiler lists") {
+//     CompilerOptions cu;
+//     cu.po.disable_main = true;
+//     cu.emit_debug_line_column = false;
+//     cu.separate_compilation = false;
+//     cu.interactive = true;
+//     cu.po.runtime_library_dir = LCompilers::LPython::get_runtime_library_dir();
+//     PythonCompiler e(cu);
+//     LCompilers::Result<PythonCompiler::EvalResult>
+
+//     r = e.evaluate2("[1, 2, 3]");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::struct_type);
+//     CHECK(LCompilers::ASRUtils::get_type_code(r.result.structure.ttype) == "list[i32]");
+//     CHECK(e.aggregate_type_to_string(r.result) == "[1, 2, 3]");
+
+//     r = e.evaluate2("[u8(1), u8(2), u8(3)] + [u8(1), u8(2), u8(3)]");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::struct_type);
+//     CHECK(LCompilers::ASRUtils::get_type_code(r.result.structure.ttype) == "list[u8]");
+//     CHECK(e.aggregate_type_to_string(r.result) == "[1, 2, 3, 1, 2, 3]");
+
+//     r = e.evaluate2("x: list[f64] = [1.5, 2.5, 3.5]");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::statement);
+
+//     r = e.evaluate2("x + [4.5]");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::struct_type);
+//     CHECK(LCompilers::ASRUtils::get_type_code(r.result.structure.ttype) == "list[r64]");
+//     CHECK(e.aggregate_type_to_string(r.result) == "[1.500000, 2.500000, 3.500000, 4.500000]");
+
+//     r = e.evaluate2("[\"lfortran\", \"lpython\", \"lc\"]");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::struct_type);
+//     CHECK(LCompilers::ASRUtils::get_type_code(r.result.structure.ttype) == "list[str]");
+//     CHECK(e.aggregate_type_to_string(r.result) == "[\"lfortran\", \"lpython\", \"lc\"]");
+// }
+
+// TEST_CASE("PythonCompiler tuples") {
+//     CompilerOptions cu;
+//     cu.po.disable_main = true;
+//     cu.emit_debug_line_column = false;
+//     cu.separate_compilation = false;
+//     cu.interactive = true;
+//     cu.po.runtime_library_dir = LCompilers::LPython::get_runtime_library_dir();
+//     PythonCompiler e(cu);
+//     LCompilers::Result<PythonCompiler::EvalResult>
+
+//     r = e.evaluate2("(1, 2)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::struct_type);
+//     CHECK(LCompilers::ASRUtils::get_type_code(r.result.structure.ttype) == "tuple[i32, i32]");
+//     CHECK(e.aggregate_type_to_string(r.result) == "(1, 2)");
+
+//     r = e.evaluate2("(1, 2, 2.5)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::struct_type);
+//     CHECK(LCompilers::ASRUtils::get_type_code(r.result.structure.ttype) == "tuple[i32, i32, r64]");
+//     CHECK(e.aggregate_type_to_string(r.result) == "(1, 2, 2.500000)");
+
+//     r = e.evaluate2("(1, 2, 2.5, \"LPython\")");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::struct_type);
+//     CHECK(LCompilers::ASRUtils::get_type_code(r.result.structure.ttype) == "tuple[i32, i32, r64, str]");
+//     CHECK(e.aggregate_type_to_string(r.result) == "(1, 2, 2.500000, \"LPython\")");
+
+//     r = e.evaluate2("(1, 2, 2.5, \"LPython\", True)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::struct_type);
+//     CHECK(LCompilers::ASRUtils::get_type_code(r.result.structure.ttype) == "tuple[i32, i32, r64, str, i1]");
+//     CHECK(e.aggregate_type_to_string(r.result) == "(1, 2, 2.500000, \"LPython\", True)");
+
+//     r = e.evaluate2("(i8(1), i16(1), i64(1))");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::struct_type);
+//     CHECK(LCompilers::ASRUtils::get_type_code(r.result.structure.ttype) == "tuple[i8, i16, i64]");
+//     CHECK(e.aggregate_type_to_string(r.result) == "(1, 1, 1)");
+
+//     r = e.evaluate2("(f32(1.0),)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::struct_type);
+//     CHECK(LCompilers::ASRUtils::get_type_code(r.result.structure.ttype) == "tuple[r32]");
+//     CHECK(e.aggregate_type_to_string(r.result) == "(1.000000)");
+// }
+
+// TEST_CASE("PythonCompiler classes") {
+//     CompilerOptions cu;
+//     cu.po.disable_main = true;
+//     cu.emit_debug_line_column = false;
+//     cu.separate_compilation = false;
+//     cu.interactive = true;
+//     cu.po.runtime_library_dir = LCompilers::LPython::get_runtime_library_dir();
+//     PythonCompiler e(cu);
+//     LCompilers::Result<PythonCompiler::EvalResult>
+
+//     r = e.evaluate2(R"(
+// @dataclass
+// class MyClass1:
+//     x: i32
+// )");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::none);
+
+//     r = e.evaluate2("c1: MyClass1 = MyClass1(12)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::statement);
+
+//     r = e.evaluate2("c1");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::struct_type);
+//     CHECK(e.aggregate_type_to_string(r.result) == "MyClass1(x=12)");
+
+//     r = e.evaluate2(R"(
+// @dataclass
+// class MyClass2:
+//     i: i32
+//     f: f64
+// )");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::none);
+
+//     r = e.evaluate2("c2: MyClass2 = MyClass2(12, 2.5)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::statement);
+
+//     r = e.evaluate2("c2");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::struct_type);
+//     CHECK(e.aggregate_type_to_string(r.result) == "MyClass2(i=12, f=2.500000)");
+
+//     r = e.evaluate2(R"(
+// @dataclass
+// class MyClass3:
+//     i: i32
+//     f: f64
+//     s: str
+// )");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::none);
+
+//     r = e.evaluate2("c3: MyClass3 = MyClass3(12, 2.5, \"LPython\")");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::statement);
+
+//     r = e.evaluate2("c3");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::struct_type);
+//     CHECK(e.aggregate_type_to_string(r.result) == "MyClass3(i=12, f=2.500000, s=\"LPython\")");
+
+//     r = e.evaluate2(R"(
+// @dataclass
+// class MyClass4:
+//     i_1: bool
+//     i_8: i8
+//     i_16: i16
+//     i_32: i32
+//     i_64: i64
+// )");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::none);
+
+//     r = e.evaluate2("c4: MyClass4 = MyClass4(True, i8(2), i16(3), i32(4), i64(5))");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::statement);
+
+//     r = e.evaluate2("c4");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::struct_type);
+//     // CHECK(e.aggregate_type_to_string(r.result) == "MyClass4(i_1=True, i_8=2, i_16=3, i_32=4, i_64=5)"); // FIXME: look at issue #2793
+
+//     r = e.evaluate2(R"(
+// @dataclass
+// class MyClass5:
+//     u_1: bool
+//     u_8: u8
+//     u_16: u16
+//     u_32: u32
+//     u_64: u64
+// )");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::none);
+
+//     r = e.evaluate2("c5: MyClass5 = MyClass5(False, u8(2), u16(3), u32(4), u64(5))");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::statement);
+
+//     r = e.evaluate2("c5");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::struct_type);
+//     CHECK(e.aggregate_type_to_string(r.result) == "MyClass5(u_1=False, u_8=2, u_16=3, u_32=4, u_64=5)");
+// }
+
+// TEST_CASE("PythonCompiler underscore 1") {
+//     CompilerOptions cu;
+//     cu.po.disable_main = true;
+//     cu.emit_debug_line_column = false;
+//     cu.separate_compilation = false;
+//     cu.interactive = true;
+//     cu.po.runtime_library_dir = LCompilers::LPython::get_runtime_library_dir();
+//     PythonCompiler e(cu);
+//     LCompilers::Result<PythonCompiler::EvalResult>
+
+//     r = e.evaluate2("2");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::integer4);
+//     CHECK(r.result.i32 == 2);
+
+//     r = e.evaluate2("_");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::integer4);
+//     CHECK(r.result.i32 == 2);
+
+//     r = e.evaluate2("_ + 4");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::integer4);
+//     CHECK(r.result.i32 == 6);
+
+//     r = e.evaluate2("_ * 2");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::integer4);
+//     CHECK(r.result.i32 == 12);
+// }
+
+// TEST_CASE("PythonCompiler underscore 2") {
+//     CompilerOptions cu;
+//     cu.po.disable_main = true;
+//     cu.emit_debug_line_column = false;
+//     cu.separate_compilation = false;
+//     cu.interactive = true;
+//     cu.po.runtime_library_dir = LCompilers::LPython::get_runtime_library_dir();
+//     PythonCompiler e(cu);
+//     LCompilers::Result<PythonCompiler::EvalResult>
+
+//     r = e.evaluate2("2");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::integer4);
+//     CHECK(r.result.i32 == 2);
+//     r = e.evaluate2("_");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::integer4);
+//     CHECK(r.result.i32 == 2);
+
+//     r = e.evaluate2("2.5");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::real8);
+//     CHECK(r.result.f64 == 2.5);
+//     r = e.evaluate2("_");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::real8);
+//     CHECK(r.result.f64 == 2.5);
+
+//     r = e.evaluate2("\"lpython\"");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::string);
+//     CHECK(std::strcmp(r.result.str, "lpython") == 0);
+//     r = e.evaluate2("_");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::string);
+//     CHECK(std::strcmp(r.result.str, "lpython") == 0);
+
+//     r = e.evaluate2("[1, 2, 3]");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::struct_type);
+//     CHECK(LCompilers::ASRUtils::get_type_code(r.result.structure.ttype) == "list[i32]");
+//     CHECK(e.aggregate_type_to_string(r.result) == "[1, 2, 3]");
+//     r = e.evaluate2("_");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::struct_type);
+//     CHECK(LCompilers::ASRUtils::get_type_code(r.result.structure.ttype) == "list[i32]");
+//     CHECK(e.aggregate_type_to_string(r.result) == "[1, 2, 3]");
+// }
+
+// TEST_CASE("PythonCompiler underscore 3") {
+//     CompilerOptions cu;
+//     cu.po.disable_main = true;
+//     cu.emit_debug_line_column = false;
+//     cu.separate_compilation = false;
+//     cu.interactive = true;
+//     cu.po.runtime_library_dir = LCompilers::LPython::get_runtime_library_dir();
+//     PythonCompiler e(cu);
+//     LCompilers::Result<PythonCompiler::EvalResult>
+
+//     r = e.evaluate2("[1, 2, 3]");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::struct_type);
+//     CHECK(LCompilers::ASRUtils::get_type_code(r.result.structure.ttype) == "list[i32]");
+//     CHECK(e.aggregate_type_to_string(r.result) == "[1, 2, 3]");
+
+//     r = e.evaluate2("_ + [1, 2, 3]");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::struct_type);
+//     CHECK(LCompilers::ASRUtils::get_type_code(r.result.structure.ttype) == "list[i32]");
+//     CHECK(e.aggregate_type_to_string(r.result) == "[1, 2, 3, 1, 2, 3]");
+
+//     r = e.evaluate2(R"(
+// _.append(5)
+// x: list[i32] = _
+// x
+// )");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::struct_type);
+//     CHECK(LCompilers::ASRUtils::get_type_code(r.result.structure.ttype) == "list[i32]");
+//     CHECK(e.aggregate_type_to_string(r.result) == "[1, 2, 3, 1, 2, 3, 5]");
+// }
+
+// TEST_CASE("PythonCompiler underscore 4") {
+//     CompilerOptions cu;
+//     cu.po.disable_main = true;
+//     cu.emit_debug_line_column = false;
+//     cu.separate_compilation = false;
+//     cu.interactive = true;
+//     cu.po.runtime_library_dir = LCompilers::LPython::get_runtime_library_dir();
+//     PythonCompiler e(cu);
+//     LCompilers::Result<PythonCompiler::EvalResult>
+
+//     r = e.evaluate2("[1, 2, 3]");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::struct_type);
+//     CHECK(LCompilers::ASRUtils::get_type_code(r.result.structure.ttype) == "list[i32]");
+//     CHECK(e.aggregate_type_to_string(r.result) == "[1, 2, 3]");
+
+//     r = e.evaluate2("_");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::struct_type);
+//     CHECK(LCompilers::ASRUtils::get_type_code(r.result.structure.ttype) == "list[i32]");
+//     CHECK(e.aggregate_type_to_string(r.result) == "[1, 2, 3]");
+
+//     r = e.evaluate2("f: bool = False");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::none);
+
+//     r = e.evaluate2("_");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::struct_type);
+//     CHECK(LCompilers::ASRUtils::get_type_code(r.result.structure.ttype) == "list[i32]");
+//     CHECK(e.aggregate_type_to_string(r.result) == "[1, 2, 3]");
+// }
+
+// TEST_CASE("PythonCompiler asr verify 1") {
+//     CompilerOptions cu;
+//     cu.po.disable_main = true;
+//     cu.emit_debug_line_column = false;
+//     cu.separate_compilation = false;
+//     cu.interactive = true;
+//     cu.po.runtime_library_dir = LCompilers::LPython::get_runtime_library_dir();
+//     PythonCompiler e(cu);
+//     LCompilers::Result<PythonCompiler::EvalResult>
+
+//     r = e.evaluate2("i: i32 = 3 % 2");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::none);
+//     r = e.evaluate2("i");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::integer4);
+//     CHECK(r.result.i32 == 1);
+// }
+
+// TEST_CASE("PythonCompiler asr verify 2") {
+//     CompilerOptions cu;
+//     cu.po.disable_main = true;
+//     cu.emit_debug_line_column = false;
+//     cu.separate_compilation = false;
+//     cu.interactive = true;
+//     cu.po.runtime_library_dir = LCompilers::LPython::get_runtime_library_dir();
+//     PythonCompiler e(cu);
+//     LCompilers::Result<PythonCompiler::EvalResult>
+//     r = e.evaluate2(R"(
+// def is_even(x: i32) -> i32:
+//     if x % 2 == 0:
+//         return 1
+//     return 0
+// )");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::none);
+//     r = e.evaluate2("is_even(4)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::integer4);
+//     CHECK(r.result.i32 == 1);
+//     r = e.evaluate2("is_even(3)");
+//     CHECK(r.ok);
+//     CHECK(r.result.type == PythonCompiler::EvalResult::integer4);
+//     CHECK(r.result.i32 == 0);
+// }
+
+TEST_CASE("PythonCompiler asr verify 3") {
+    CompilerOptions cu;
+    cu.po.disable_main = true;
+    cu.emit_debug_line_column = false;
+    cu.separate_compilation = false;
+    cu.interactive = true;
+    cu.po.runtime_library_dir = LCompilers::LPython::get_runtime_library_dir();
+    PythonCompiler e(cu);
+    LCompilers::Result<PythonCompiler::EvalResult>
+
+    r = e.evaluate2(R"(
+def addi(x: i32, y: i32) -> i32:
+    return x + y
+)");
+    CHECK(r.ok);
+    CHECK(r.result.type == PythonCompiler::EvalResult::none);
+    r = e.evaluate2(R"(
+def subi(x: i32, y: i32) -> i32:
+    return addi(x, -y)
+)");
+    CHECK(r.ok);
+    CHECK(r.result.type == PythonCompiler::EvalResult::none);
+    r = e.evaluate2("addi(2, 3)");
+    CHECK(r.ok);
+    CHECK(r.result.type == PythonCompiler::EvalResult::integer4);
+    CHECK(r.result.i32 == 5);
+    r = e.evaluate2("subi(2, 3)");
+    CHECK(r.ok);
+    CHECK(r.result.type == PythonCompiler::EvalResult::integer4);
+    CHECK(r.result.i32 == -1);
+}
+
+TEST_CASE("PythonCompiler asr verify 4") {
+    CompilerOptions cu;
+    cu.po.disable_main = true;
+    cu.emit_debug_line_column = false;
+    cu.separate_compilation = false;
+    cu.interactive = true;
+    cu.po.runtime_library_dir = LCompilers::LPython::get_runtime_library_dir();
+    PythonCompiler e(cu);
+    LCompilers::Result<PythonCompiler::EvalResult>
+
+    r = e.evaluate2(R"(
+def addr(x: f64, y: f64) -> f64:
+    return x + y
+)");
+    CHECK(r.ok);
+    CHECK(r.result.type == PythonCompiler::EvalResult::none);
+    r = e.evaluate2(R"(
+def subr(x: f64, y: f64) -> f64:
+    return addr(x, -y)
+)");
+    CHECK(r.ok);
+    CHECK(r.result.type == PythonCompiler::EvalResult::none);
+    r = e.evaluate2("addr(2.5, 3.5)");
+    CHECK(r.ok);
+    CHECK(r.result.type == PythonCompiler::EvalResult::real8);
+    CHECK(r.result.f64 == 6);
+    r = e.evaluate2("subr(2.5, 3.5)");
+    CHECK(r.ok);
+    CHECK(r.result.type == PythonCompiler::EvalResult::real8);
+    CHECK(r.result.f64 == -1);
+}
diff --git a/src/lpython/utils.cpp b/src/lpython/utils.cpp
index d3c07855de..be6dbae552 100644
--- a/src/lpython/utils.cpp
+++ b/src/lpython/utils.cpp
@@ -3,6 +3,8 @@
 #define NOMINMAX
 #endif // NOMINMAX
 #include <windows.h>
+#else
+#include <dlfcn.h>
 #endif
 
 #include <fstream>
@@ -52,6 +54,9 @@ void get_executable_path(std::string &executable_path, int &dirname_length)
 
 std::string get_runtime_library_dir()
 {
+#ifdef HAVE_BUILD_TO_WASM
+    return "asset_dir";
+#endif
     char *env_p = std::getenv("LFORTRAN_RUNTIME_LIBRARY_DIR");
     if (env_p) return env_p;
 
@@ -79,7 +84,7 @@ std::string get_runtime_library_header_dir()
     char *env_p = std::getenv("LFORTRAN_RUNTIME_LIBRARY_HEADER_DIR");
     if (env_p) return env_p;
 
-    // The header file is in src/libasr/runtime for development, but in impure
+    // The header file is in libasr/src/libasr/runtime for development, but in impure
     // in installed version
     std::string path;
     int dirname_length;
@@ -89,11 +94,11 @@ std::string get_runtime_library_header_dir()
         || endswith(dirname, "src\\bin")
         || endswith(dirname, "SRC\\BIN")) {
         // Development version
-        return dirname + "/../libasr/runtime";
+        return dirname + "/../../libasr/src/libasr/runtime";
     } else if (endswith(dirname, "src/lpython/tests") ||
                endswith(to_lower(dirname), "src\\lpython\\tests")) {
         // CTest Tests
-        return dirname + "/../../libasr/runtime";
+        return dirname + "/../../../libasr/src/libasr/runtime";
     } else {
         // Installed version
         return dirname + "/../share/lpython/lib/impure";
@@ -123,6 +128,58 @@ bool path_exists(std::string path) {
     }
 }
 
+#ifdef HAVE_LFORTRAN_LLVM
+
+void open_cpython_library(DynamicLibrary &l) {
+    std::string conda_prefix = std::getenv("CONDA_PREFIX");
+#if defined (__linux__)
+    l.l = dlopen((conda_prefix + "/lib/libpython3.so").c_str(), RTLD_DEEPBIND | RTLD_GLOBAL | RTLD_NOW);
+#elif defined (__APPLE__)
+    l.l = dlopen((conda_prefix + "/lib/libpython3.dylib").c_str(), RTLD_GLOBAL | RTLD_NOW);
+#else
+    l.l = LoadLibrary((conda_prefix + "\\python3.dll").c_str());
+#endif
+
+    if (l.l == nullptr)
+        throw "Could not open CPython library";
+}
+
+void close_cpython_library(DynamicLibrary &l) {
+#if (defined (__linux__)) or (defined (__APPLE__))
+    dlclose(l.l);
+    l.l = nullptr;
+#else
+    FreeLibrary((HMODULE)l.l);
+    l.l = nullptr;
+#endif
+}
+
+void open_symengine_library(DynamicLibrary &l) {
+    std::string conda_prefix = std::getenv("CONDA_PREFIX");
+#if defined (__linux__)
+    l.l = dlopen((conda_prefix + "/lib/libsymengine.so").c_str(), RTLD_DEEPBIND | RTLD_GLOBAL | RTLD_NOW);
+#elif defined (__APPLE__)
+    l.l = dlopen((conda_prefix + "/lib/libsymengine.dylib").c_str(), RTLD_GLOBAL | RTLD_NOW);
+#else
+    l.l = LoadLibrary((conda_prefix + "\\Library\\bin\\symengine-0.11.dll").c_str());
+#endif
+
+    if (l.l == nullptr)
+        throw "Could not open SymEngine library";
+}
+
+void close_symengine_library(DynamicLibrary &l) {
+#if (defined (__linux__)) or (defined (__APPLE__))
+    dlclose(l.l);
+    l.l = nullptr;
+#else
+    FreeLibrary((HMODULE)l.l);
+    l.l = nullptr;
+#endif
+}
+
+#endif
+
 // Decodes the exit status code of the process (in Unix)
 // See `WEXITSTATUS` for more information.
 // https://stackoverflow.com/a/27117435/15913193
@@ -130,5 +187,4 @@ bool path_exists(std::string path) {
 int32_t get_exit_status(int32_t err) {
     return (((err) >> 8) & 0x000000ff);
 }
-
 }
diff --git a/src/lpython/utils.h b/src/lpython/utils.h
index 912f3f620e..8191d340ba 100644
--- a/src/lpython/utils.h
+++ b/src/lpython/utils.h
@@ -1,5 +1,5 @@
-#ifndef LFORTRAN_UTILS_H
-#define LFORTRAN_UTILS_H
+#ifndef LPYTHON_UTILS_H
+#define LPYTHON_UTILS_H
 
 #include <string>
 #include <libasr/utils.h>
@@ -12,9 +12,21 @@ std::string get_runtime_library_header_dir();
 bool is_directory(std::string path);
 bool path_exists(std::string path);
 
+#ifdef HAVE_LFORTRAN_LLVM
+struct DynamicLibrary {
+    void *l;
+
+    DynamicLibrary(): l(nullptr) {}
+};
+
+void open_cpython_library(DynamicLibrary &l);
+void close_cpython_library(DynamicLibrary &l);
+void open_symengine_library(DynamicLibrary &l);
+void close_symengine_library(DynamicLibrary &l);
+#endif
+
 // Decodes the exit status code of the process (in Unix)
 int32_t get_exit_status(int32_t err);
-
 } // LFortran
 
-#endif // LFORTRAN_UTILS_H
+#endif // LPYTHON_UTILS_H
diff --git a/src/runtime/cmath.py b/src/runtime/cmath.py
index f37c862045..271f962542 100644
--- a/src/runtime/cmath.py
+++ b/src/runtime/cmath.py
@@ -1,4 +1,4 @@
-from ltypes import c64, ccall, f64, overload, c32
+from lpython import c64, ccall, f64, overload, c32, f32
 
 pi: f64 = 3.141592653589793238462643383279502884197
 e: f64 = 2.718281828459045235360287471352662497757
@@ -250,3 +250,40 @@ def tanh(x: c64) -> c64:
 @overload
 def tanh(x: c32) -> c32:
     return _lfortran_ctanh(x)
+
+
+@ccall
+def _lfortran_zphase(x: c64) -> f64:
+    pass
+
+@ccall
+def _lfortran_cphase(x: c32) -> f32:
+    pass
+
+@overload
+def phase(x: c64) -> f64:
+    return _lfortran_zphase(x)
+
+@overload
+def phase(x: c32) -> f32:
+    return _lfortran_cphase(x)
+
+
+@overload
+def polar(x: c32) -> tuple[f32, f32]:
+    return (abs(x), phase(x))
+
+@overload
+def polar(x: c64) -> tuple[f64, f64]:
+    return (abs(x), phase(x))
+
+@ccall
+def _lfortran_dcos(x: f64) -> f64:
+    pass
+
+@ccall
+def _lfortran_dsin(x: f64) -> f64:
+    pass
+
+def rect(r: f64, phi: f64) -> c64:
+    return c64(complex(r*_lfortran_dcos(phi), r*_lfortran_dsin(phi)))
diff --git a/src/runtime/legacy/CMakeLists.txt b/src/runtime/legacy/CMakeLists.txt
index cacc62fba9..2eb0aa419f 100644
--- a/src/runtime/legacy/CMakeLists.txt
+++ b/src/runtime/legacy/CMakeLists.txt
@@ -1,5 +1,5 @@
 set(SRC
-    ../../../src/libasr/runtime/lfortran_intrinsics.c
+    ../../../libasr/src/libasr/runtime/lfortran_intrinsics.c
 )
 add_library(lpython_runtime SHARED ${SRC})
 target_include_directories(lpython_runtime BEFORE PUBLIC ${libasr_SOURCE_DIR}/..)
diff --git a/src/runtime/lpython/lpython.py b/src/runtime/lpython/lpython.py
new file mode 100644
index 0000000000..b198df54d4
--- /dev/null
+++ b/src/runtime/lpython/lpython.py
@@ -0,0 +1,772 @@
+from inspect import getfullargspec, getcallargs, isclass, getsource
+import os
+import ctypes
+import platform
+from dataclasses import dataclass, field, is_dataclass as py_is_dataclass
+import functools
+
+
+# TODO: this does not seem to restrict other imports
+__slots__ = ["i8", "i16", "i32", "i64", "u8", "u16", "u32", "u64", "f32", "f64", "c32", "c64", "CPtr",
+        "overload", "ccall", "TypeVar", "pointer", "c_p_pointer", "Pointer",
+        "p_c_pointer", "vectorize", "inline", "Union", "static",
+        "packed", "Const", "sizeof", "ccallable", "ccallback", "Callable",
+        "Allocatable", "In", "Out", "InOut", "dataclass", "field", "S"]
+
+# data-types
+
+def get_sympy_S(x):
+    from sympy import S
+    return S(x)
+
+
+type_to_convert_func = {
+    "i1": bool,
+    "i8": int,
+    "i16": int,
+    "i32": int,
+    "i64": int,
+    "u8": int,
+    "u16": int,
+    "u32": int,
+    "u64": int,
+    "f32": float,
+    "f64": float,
+    "c32": complex,
+    "c64": complex,
+    "c_ptr": lambda x: x,
+    "Const": lambda x: x,
+    "Callable": lambda x: x,
+    "Allocatable": lambda x: x,
+    "Pointer": lambda x: x,
+    "S": get_sympy_S,
+}
+
+class Type:
+    def __init__(self, name):
+        self._name = name
+        self._convert = type_to_convert_func[name]
+
+    def __getitem__(self, params):
+        return Array(self, params)
+
+    def __call__(self, arg):
+        return self._convert(arg)
+
+def is_ctypes_Structure(obj):
+    return (isclass(obj) and issubclass(obj, ctypes.Structure))
+
+def is_dataclass(obj):
+    return ((isclass(obj) and issubclass(obj, ctypes.Structure)) or
+             py_is_dataclass(obj))
+
+class PointerType(Type):
+    def __getitem__(self, type):
+        if is_dataclass(type):
+            return convert_to_ctypes_Structure(type)
+        return type
+
+class ConstType(Type):
+    def __getitem__(self, type):
+        return type
+
+class Array:
+    def __init__(self, type, dims):
+        self._type = type
+        self._dims = dims
+
+    def __class_getitem__(self, params):
+        return Array(params[0], params[1:])
+
+i1 = Type("i1")
+i8 = Type("i8")
+i16 = Type("i16")
+i32 = Type("i32")
+i64 = Type("i64")
+u8 = Type("u8")
+u16 = Type("u16")
+u32 = Type("u32")
+u64 = Type("u64")
+f32 = Type("f32")
+f64 = Type("f64")
+c32 = Type("c32")
+c64 = Type("c64")
+CPtr = Type("c_ptr")
+Const = ConstType("Const")
+Callable = Type("Callable")
+Allocatable = Type("Allocatable")
+Pointer = PointerType("Pointer")
+S = Type("S")
+
+
+class Union:
+    def __init__(self):
+        pass
+
+    def __setattr__(self, name: str, value):
+        self.__dict__[name] = value
+
+    def __getattr__(self, name: str):
+        return self.__dict__[name]
+
+class Intent:
+    def __init__(self, type):
+        self._type = type
+
+    def __getitem__(self, params):
+        return params
+
+In = Intent("In")
+Out = Intent("Out")
+InOut = Intent("InOut")
+
+# Generics
+
+class TypeVar():
+    def __init__(self, name):
+        self._name = name
+
+    def __getitem__(self, params):
+        return Array(self, params)
+
+def restriction(func):
+    return func
+
+# Overloading support
+
+def ltype(x):
+    """
+    Converts CPython types to LPython types
+    """
+    if type(x) == int:
+        return i32, i64
+    elif type(x) == float:
+        return f32, f64
+    elif type(x) == complex:
+        return c32, c64
+    elif type(x) == str:
+        return (str, )
+    elif type(x) == bool:
+        return (bool, )
+    raise Exception("Unsupported Type: %s" % str(type(x)))
+
+class OverloadedFunction:
+    """
+    A wrapper class for allowing overloading.
+    """
+    global_map = {}
+
+    def __init__(self, func):
+        self.func_name = func.__name__
+        f_list = self.global_map.get(func.__name__, [])
+        f_list.append((func, getfullargspec(func)))
+        self.global_map[func.__name__] = f_list
+
+    def __call__(self, *args, **kwargs):
+        func_map_list = self.global_map.get(self.func_name, False)
+        if not func_map_list:
+            raise Exception("Function: %s is not defined" % self.func_name)
+        for item in func_map_list:
+            func, key = item
+            try:
+                # This might fail for the cases when arguments don't match
+                ann_dict = getcallargs(func, *args, **kwargs)
+            except TypeError:
+                continue
+            flag = True
+            for k, v in ann_dict.items():
+                if not key.annotations.get(k, False):
+                    flag = False
+                    break
+                else:
+                    if not (key.annotations.get(k) in ltype(v)):
+                        flag = False
+                        break
+            if flag:
+                return func(*args, **kwargs)
+        raise Exception(f"Function: {self.func_name} not found with matching "
+                        "signature")
+
+
+def overload(f):
+    overloaded_f = OverloadedFunction(f)
+    overloaded_f.__name__ = f.__name__
+    overloaded_f.__code__ = f.__code__
+    overloaded_f.__annotations__ = f.__annotations__
+    return overloaded_f
+
+# To be handled in ASR
+def vectorize(f):
+    return f
+
+# To be handled in backend
+def inline(f):
+    return f
+
+# To be handled in backend
+def static(f):
+    return f
+
+class PackedDataClass:
+    pass
+
+def packed(*args, aligned=None):
+    if len(args) == 1:
+        if not is_dataclass(args[0]):
+            raise TypeError("packed can only be applied over a dataclass.")
+        class PackedDataClassLocal(args[0], PackedDataClass):
+            class_to_pack = args[0]
+        return PackedDataClassLocal
+
+    def _packed(f):
+        if not is_dataclass(f):
+            raise TypeError("packed can only be applied over a dataclass.")
+        class PackedDataClassLocal(f, PackedDataClass):
+            class_to_pack = f
+        return PackedDataClassLocal
+    return _packed
+
+def interface(f):
+    def inner_func():
+        raise Exception("Unexpected to be called by CPython")
+    return inner_func
+
+
+# C interoperation support
+
+class c_complex(ctypes.Structure):
+    def __eq__(self, other):
+        if isinstance(other, complex):
+            return self.real == other.real and self.imag == other.imag
+        elif isinstance(other, (int, float)):
+            return self.real == other and self.imag == 0.0
+        return super().__eq__(other)
+
+    def __sub__(self, other):
+        import numpy as np
+        if isinstance(other, (complex, np.complex64, np.complex128)):
+            return complex(self.real - other.real, self.imag - other.imag)
+        elif isinstance(other, (int, float)):
+            return complex(self.real - other, self.imag)
+        raise NotImplementedError()
+
+class c_float_complex(c_complex):
+    _fields_ = [("real", ctypes.c_float), ("imag", ctypes.c_float)]
+
+class c_double_complex(c_complex):
+    _fields_ = [("real", ctypes.c_double), ("imag", ctypes.c_double)]
+
+def convert_type_to_ctype(arg):
+    from enum import Enum
+    if arg == f64:
+        return ctypes.c_double
+    elif arg == f32:
+        return ctypes.c_float
+    elif arg == i64:
+        return ctypes.c_int64
+    elif arg == i32:
+        return ctypes.c_int32
+    elif arg == i16:
+        return ctypes.c_int16
+    elif arg == i8:
+        return ctypes.c_int8
+    elif arg == u64:
+        return ctypes.c_uint64
+    elif arg == u32:
+        return ctypes.c_uint32
+    elif arg == u16:
+        return ctypes.c_uint16
+    elif arg == u8:
+        return ctypes.c_uint8
+    elif arg == CPtr:
+        return ctypes.c_void_p
+    elif arg == str:
+        return ctypes.c_char_p
+    elif arg == c32:
+        return c_float_complex
+    elif arg == c64:
+        return c_double_complex
+    elif arg == bool:
+        return ctypes.c_bool
+    elif arg == Callable:
+        return ctypes.PYFUNCTYPE(None)
+    elif arg is None:
+        raise NotImplementedError("Type cannot be None")
+    elif isinstance(arg, Array):
+        if is_dataclass(arg._type):
+            return arg
+        type = convert_type_to_ctype(arg._type)
+        return ctypes.POINTER(type)
+    elif is_dataclass(arg):
+        return convert_to_ctypes_Structure(arg)
+    elif issubclass(arg, Enum):
+        # TODO: store enum in ctypes.Structure with name and value as fields.
+        return ctypes.c_int64
+    else:
+        raise NotImplementedError("Type %r not implemented" % arg)
+
+def convert_numpy_dtype_to_ctype(arg):
+    import numpy as np
+    if arg == np.float64:
+        return ctypes.c_double
+    elif arg == np.float32:
+        return ctypes.c_float
+    elif arg == np.int64:
+        return ctypes.c_int64
+    elif arg == np.int32:
+        return ctypes.c_int32
+    elif arg == np.int16:
+        return ctypes.c_int16
+    elif arg == np.int8:
+        return ctypes.c_int8
+    elif arg == np.uint64:
+        return ctypes.c_uint64
+    elif arg == np.uint32:
+        return ctypes.c_uint32
+    elif arg == np.uint16:
+        return ctypes.c_uint16
+    elif arg == np.uint8:
+        return ctypes.c_uint8
+    elif arg == np.void:
+        return ctypes.c_void_p
+    elif arg is None:
+        raise NotImplementedError("Type cannot be None")
+    else:
+        raise NotImplementedError("Type %r not implemented" % arg)
+
+class CTypes:
+    """
+    A wrapper class for interfacing C via ctypes.
+    """
+
+    def __init__(self, f, py_mod = None, py_mod_path = None):
+        def get_rtlib_dir():
+            current_dir = os.path.dirname(os.path.abspath(__file__))
+            return os.path.join(current_dir, "..")
+        def get_lib_name(name):
+            if platform.system() == "Linux":
+                return "lib" + name + ".so"
+            elif platform.system() == "Darwin":
+                return "lib" + name + ".dylib"
+            elif platform.system() == "Windows":
+                return name + ".dll"
+            else:
+                raise NotImplementedError("Platform not implemented")
+        def get_crtlib_path():
+            nonlocal py_mod, py_mod_path
+            if py_mod is None:
+                py_mod = os.environ.get("LPYTHON_PY_MOD_NAME", "")
+            if py_mod == "":
+                return os.path.join(get_rtlib_dir(),
+                    get_lib_name("lpython_runtime"))
+            else:
+                if py_mod_path is None:
+                    py_mod_path = os.environ["LPYTHON_PY_MOD_PATH"]
+                return os.path.join(py_mod_path, get_lib_name(py_mod))
+        self.name = f.__name__
+        self.args = f.__code__.co_varnames
+        self.annotations = f.__annotations__
+        if ("LPYTHON_PY_MOD_NAME" in os.environ) or (py_mod is not None):
+            crtlib = get_crtlib_path()
+            self.library = ctypes.CDLL(crtlib)
+            self.cf = self.library[self.name]
+        else:
+            self.cf = CTypes.emulations[self.name]
+        argtypes = []
+        for arg in self.args:
+            arg_type = self.annotations[arg]
+            arg_ctype = convert_type_to_ctype(arg_type)
+            argtypes.append(arg_ctype)
+        self.cf.argtypes = argtypes
+        self.cf.restype = None
+        if "return" in self.annotations:
+            res_type = self.annotations["return"]
+            if res_type is not None:
+                self.cf.restype = convert_type_to_ctype(res_type)
+
+    def __call__(self, *args, **kwargs):
+        if len(kwargs) > 0:
+            raise Exception("kwargs are not supported")
+        new_args = []
+        for arg in args:
+            import numpy as np
+            if isinstance(arg, str):
+                new_args.append(arg.encode("utf-8"))
+            elif isinstance(arg, np.ndarray):
+                new_args.append(arg.ctypes.data_as(ctypes.POINTER(convert_numpy_dtype_to_ctype(arg.dtype))))
+            else:
+                new_args.append(arg)
+        res = self.cf(*new_args)
+        if self.cf.restype == ctypes.c_char_p:
+            res = res.decode("utf-8")
+        return res
+
+def convert_to_ctypes_Union(f):
+    fields = []
+    for name in f.__annotations__:
+        ltype_ = f.__annotations__[name]
+        fields.append((name, convert_type_to_ctype(ltype_)))
+    f._fields_ = fields
+    f.__annotations__ = {}
+
+    return f
+
+def get_fixed_size_of_array(ltype_: Array):
+    if isinstance(ltype_._dims, tuple):
+        size = 1
+        for dim in ltype_._dims:
+            if not isinstance(dim, int):
+                return None
+            size *= dim
+    elif isinstance(ltype_._dims, int):
+        return ltype_._dims
+    return None
+
+def convert_to_ctypes_Structure(f):
+    fields = []
+
+    pack_class = issubclass(f, PackedDataClass)
+    if pack_class:
+        f = f.class_to_pack
+
+    if not issubclass(f, ctypes.Structure):
+        for name in f.__annotations__:
+            ltype_ = f.__annotations__[name]
+            if isinstance(ltype_, Array):
+                array_size = get_fixed_size_of_array(ltype_)
+                if array_size is not None:
+                    ltype_ = ltype_._type
+                    fields.append((name, convert_type_to_ctype(ltype_) * array_size))
+                else:
+                    fields.append((name, convert_type_to_ctype(ltype_)))
+            else:
+                fields.append((name, convert_type_to_ctype(ltype_)))
+    else:
+        fields = f._fields_
+        pack_class = pack_class or f._pack_
+
+
+    class ctypes_Structure(ctypes.Structure):
+        _pack_ = int(pack_class)
+        _fields_ = fields
+
+        def __init__(self, *args):
+            if len(args) != 0 and len(args) != len(self._fields_):
+                super().__init__(*args)
+
+            for field, arg in zip(self._fields_, args):
+                from enum import Enum
+                member = self.__getattribute__(field[0])
+                value = arg
+                if isinstance(member, ctypes.Array):
+                    import numpy as np
+                    if isinstance(value, np.ndarray):
+                        if value.dtype == np.complex64:
+                            value = value.flatten().tolist()
+                            value = [c_float_complex(val.real, val.imag) for val in value]
+                        elif value.dtype == np.complex128:
+                            value = value.flatten().tolist()
+                            value = [c_double_complex(val.real, val.imag) for val in value]
+                        value = type(member)(*value)
+                elif isinstance(value, Enum):
+                    value = value.value
+                self.__setattr__(field[0], value)
+
+    ctypes_Structure.__name__ = f.__name__
+
+    return ctypes_Structure
+
+def ccall(f=None, header=None, c_shared_lib=None, c_shared_lib_path=None):
+    def wrap(func):
+        if not isclass(func) or not issubclass(func, Union):
+            func = CTypes(func, c_shared_lib, c_shared_lib_path)
+        return func
+    if f:
+        return wrap(f)
+    return wrap
+
+def pythoncall(*args, **kwargs):
+    def inner(fn):
+        import importlib
+        module = importlib.import_module(kwargs["module"])
+        fn_new = getattr(module, fn.__name__)
+        return fn_new
+    return inner
+
+def union(f):
+    fields = []
+    fa = {}
+    for name in f.__annotations__:
+        ltype_ = f.__annotations__[name]
+        ltype_ = convert_type_to_ctype(ltype_)
+        fa[name] = ltype_
+
+        fields.append((name, ltype_))
+
+    f._fields_ = fields
+    f.__annotations__ = fa
+    return f
+
+def pointer(x, type_=None):
+    if type_ is None:
+        type_ = type(x)
+    from numpy import ndarray
+    if isinstance(x, ndarray):
+        return x.ctypes.data_as(ctypes.POINTER(convert_numpy_dtype_to_ctype(x.dtype)))
+    else:
+        if type_ == i8:
+            return ctypes.cast(ctypes.pointer(ctypes.c_int8(x)),
+                    ctypes.c_void_p)
+        elif type_ == i16:
+            return ctypes.cast(ctypes.pointer(ctypes.c_int16(x)),
+                    ctypes.c_void_p)
+        elif type_ == i32:
+            return ctypes.cast(ctypes.pointer(ctypes.c_int32(x)),
+                    ctypes.c_void_p)
+        elif type_ == i64:
+            return ctypes.cast(ctypes.pointer(ctypes.c_int64(x)),
+                    ctypes.c_void_p)
+        elif type_ == u8:
+            return ctypes.cast(ctypes.pointer(ctypes.c_uint8(x)),
+                    ctypes.c_void_p)
+        elif type_ == u16:
+            return ctypes.cast(ctypes.pointer(ctypes.c_uint16(x)),
+                    ctypes.c_void_p)
+        elif type_ == u32:
+            return ctypes.cast(ctypes.pointer(ctypes.c_uint32(x)),
+                    ctypes.c_void_p)
+        elif type_ == u64:
+            return ctypes.cast(ctypes.pointer(ctypes.c_uint64(x)),
+                    ctypes.c_void_p)
+        elif type_ == f32:
+            return ctypes.cast(ctypes.pointer(ctypes.c_float(x)),
+                    ctypes.c_void_p)
+        elif type_ == f64:
+            return ctypes.cast(ctypes.pointer(ctypes.c_double(x)),
+                    ctypes.c_void_p)
+        elif is_dataclass(type_):
+            if issubclass(type_, ctypes.Structure):
+                return ctypes.cast(ctypes.pointer(x), ctypes.c_void_p)
+            else:
+                return x
+        else:
+            raise Exception("Type not supported in pointer()")
+
+class PointerToStruct:
+
+    def __init__(self, ctypes_ptr_):
+        self.__dict__["ctypes_ptr"] = ctypes_ptr_
+
+    def __getattr__(self, name: str):
+        if name == "ctypes_ptr":
+            return self.__dict__[name]
+        value = self.ctypes_ptr.contents.__getattribute__(name)
+        if isinstance(value, (c_float_complex, c_double_complex)):
+            value = complex(value.real, value.imag)
+        return value
+
+    def __setattr__(self, name: str, value):
+        name_ = self.ctypes_ptr.contents.__getattribute__(name)
+        from enum import Enum
+        if isinstance(name_, c_float_complex):
+            if isinstance(value, complex):
+                value = c_float_complex(value.real, value.imag)
+            else:
+                value = c_float_complex(value.real, 0.0)
+        elif isinstance(name_, c_double_complex):
+            if isinstance(value, complex):
+                value = c_double_complex(value.real, value.imag)
+            else:
+                value = c_double_complex(value.real, 0.0)
+        elif isinstance(name_, ctypes.Array):
+            import numpy as np
+            if isinstance(value, np.ndarray):
+                if value.dtype == np.complex64:
+                    value = value.flatten().tolist()
+                    value = [c_float_complex(val.real, val.imag) for val in value]
+                elif value.dtype == np.complex128:
+                    value = value.flatten().tolist()
+                    value = [c_double_complex(val.real, val.imag) for val in value]
+                value = type(name_)(*value)
+        elif isinstance(value, Enum):
+            value = value.value
+        self.ctypes_ptr.contents.__setattr__(name, value)
+
+def c_p_pointer(cptr, targettype, targetshape=None):
+    targettype_ptr = convert_type_to_ctype(targettype)
+    if isinstance(targettype, Array):
+        if targetshape is None:
+            raise ValueError("target shape must be "
+                             "provided if target type is an array.")
+        # TODO: Add support for multi-dimensional shape of target variable
+        if py_is_dataclass(targettype._type):
+            return ctypes.cast(cptr.value, ctypes.py_object).value
+        newa = ctypes.cast(cptr, targettype_ptr)
+        return newa
+    else:
+        if py_is_dataclass(targettype):
+            if cptr.value is None:
+                return None
+            return ctypes.cast(cptr, ctypes.py_object).value
+
+        targettype_ptr = ctypes.POINTER(targettype_ptr)
+        newa = ctypes.cast(cptr, targettype_ptr)
+        if is_ctypes_Structure(targettype):
+            # return after wrapping newa inside PointerToStruct
+            return PointerToStruct(newa)
+        return newa
+
+def p_c_pointer(ptr, cptr):
+    if isinstance(ptr, ctypes.c_void_p):
+        cptr.value = ptr.value
+    else:
+        # assign the address of ptr in memory to cptr.value
+        # the case for numpy arrays converted to a pointer
+        cptr.value = id(ptr)
+
+def empty_c_void_p():
+    class ctypes_c_void_p(ctypes.c_void_p):
+
+        def __eq__(self, value):
+            return self.value == value.value
+
+        def __repr__(self):
+            return str(self.value)
+
+    return ctypes_c_void_p()
+
+def cptr_to_u64(cptr):
+    return u64(ctypes.cast(cptr, ctypes.c_void_p).value)
+
+def u64_to_cptr(ivalue):
+    return ctypes.c_void_p(i64(ivalue))
+
+def sizeof(arg):
+    return ctypes.sizeof(convert_type_to_ctype(arg))
+
+def ccallable(f):
+    if py_is_dataclass(f):
+        return convert_to_ctypes_Structure(f)
+    return f
+
+def ccallback(f):
+    return f
+
+class LpythonJITCache:
+
+    def __init__(self):
+        self.pyfunc2compiledfunc = {}
+
+    def compile(self, function, backend, optimisation_flags):
+        if function in self.pyfunc2compiledfunc:
+            return self.pyfunc2compiledfunc[function]
+
+        if optimisation_flags is not None and backend is None:
+            raise ValueError("backend must be specified if backend_optimisation_flags are provided.")
+
+        if backend is None:
+            backend = "c"
+
+        def get_rtlib_dir():
+            current_dir = os.path.dirname(os.path.abspath(__file__))
+            return os.path.join(current_dir, "..")
+
+        fn_name = function.__name__
+        # Get the source code of the function
+        source_code = getsource(function)
+        source_code = source_code[source_code.find('\n'):]
+
+        dir_name = "./lpython_decorator_" + fn_name
+        if not os.path.exists(dir_name):
+            os.mkdir(dir_name)
+        filename = dir_name + "/" + fn_name
+
+        # Open the file for writing
+        with open(filename + ".py", "w") as file:
+            # Write the Python source code to the file
+            file.write("@pythoncallable")
+            file.write(source_code)
+
+        if backend != "c":
+            raise NotImplementedError("Backend %s is not supported with @lpython yet."%(backend))
+
+        opt_flags = " "
+        if optimisation_flags is not None:
+            for opt_flag in optimisation_flags:
+                opt_flags += opt_flag + " "
+
+        # ----------------------------------------------------------------------
+        # Generate the shared library
+        # TODO: Use LLVM instead of C backend
+        r = os.system("lpython --show-c --disable-main "
+            + filename + ".py > " + filename + ".c")
+        assert r == 0, "Failed to create C file"
+
+        gcc_flags = ""
+        if platform.system() == "Linux":
+            gcc_flags = " -shared -fPIC"
+        elif platform.system() == "Darwin":
+            gcc_flags = " -bundle -flat_namespace -undefined suppress"
+        else:
+            raise NotImplementedError("Platform not implemented")
+
+        gcc_flags += opt_flags
+
+        from numpy import get_include
+        from distutils.sysconfig import get_python_inc, get_python_lib, \
+            get_python_version
+        python_path = "-I" + get_python_inc() + " "
+        numpy_path = "-I" + get_include() + " "
+        rt_path_01 = "-I" + get_rtlib_dir() + "/../../libasr/src/libasr/runtime "
+        rt_path_02 = "-L" + get_rtlib_dir() + " -Wl,-rpath," \
+            + get_rtlib_dir() + " -llpython_runtime "
+        python_lib = "-L" + get_python_lib() + "/../.." + f" -Wl,-rpath,{get_python_lib()+'/../..'}" + " -lpython" + \
+            get_python_version() + " -lm"
+
+        # ----------------------------------------------------------------------
+        # Compile the C file and create a shared library
+        shared_library_name = "lpython_module_" + fn_name
+        r = os.system("gcc -g" +  gcc_flags + python_path + numpy_path +
+            filename + ".c -o " + shared_library_name + ".so " +
+            rt_path_01 + rt_path_02 + python_lib)
+        assert r == 0, "Failed to create the shared library"
+        self.pyfunc2compiledfunc[function] = (shared_library_name, fn_name)
+        return self.pyfunc2compiledfunc[function]
+
+lpython_jit_cache = LpythonJITCache()
+
+# Taken from https://stackoverflow.com/a/24617244
+def lpython(original_function=None, backend=None, backend_optimisation_flags=None):
+    """
+    The @lpython decorator compiles a given function using LPython.
+
+    The decorator should be used from CPython mode, i.e., when the module is
+    being run using CPython. When possible, it is recommended to use LPython
+    for the main program, and use the @cpython decorator from the LPython mode
+    to access CPython features that are not supported by LPython.
+    """
+    def _lpython(function):
+        @functools.wraps(function)
+        def __lpython(*args, **kwargs):
+            import sys; sys.path.append('.')
+            lib_name, fn_name = lpython_jit_cache.compile(
+                function, backend, backend_optimisation_flags)
+            return getattr(__import__(lib_name), fn_name)(*args, **kwargs)
+        return __lpython
+
+    if original_function:
+        return _lpython(original_function)
+    return _lpython
+
+def bitnot(x, bitsize):
+    return (~x) % (2 ** bitsize)
+
+def reserve(data_structure, n):
+    if isinstance(data_structure, list):
+        data_structure = [None] * n
+    # no-op
+
+bitnot_u8 = lambda x: bitnot(x, 8)
+bitnot_u16 = lambda x: bitnot(x, 16)
+bitnot_u32 = lambda x: bitnot(x, 32)
+bitnot_u64 = lambda x: bitnot(x, 64)
diff --git a/src/runtime/lpython_builtin.py b/src/runtime/lpython_builtin.py
index fd16c22c62..62a6e05b70 100644
--- a/src/runtime/lpython_builtin.py
+++ b/src/runtime/lpython_builtin.py
@@ -1,31 +1,7 @@
-from ltypes import i8, i16, i32, i64, f32, f64, c32, c64, overload
-#from sys import exit
-
-
-def ord(s: str) -> i32: # currently supports characters with unicode value between 32 to 126
-    """
-    Returns an integer representing the Unicode code
-    point of a given unicode character. This is the inverse of `chr()`.
-    """
-    if len(s) != 1:
-        return -1 # not a character
-    i: i32
-    for i in range(32, 127):
-        if chr(i) == s:
-            return i
-
-
-def chr(i: i32) -> str: # currently supports unicode values between 32 to 126
-    """
-    Returns the string representing a unicode character from
-    the given Unicode code point. This is the inverse of `ord()`.
-    """
-    if i < 32 or i > 126:
-        return "Not yet supported"
-    all_chars: str
-    all_chars = ' !"#$%&\'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~'
-    return all_chars[i - 32]
+from lpython import (c32, c64, f32, f64, i8, i16, i32, i64, overload, u8, u16,
+                     u32, u64)
 
+#from sys import exit
 
 #: abs() as a generic procedure.
 #: supported types for argument:
@@ -89,7 +65,7 @@ def abs(c: c32) -> f32:
     a: f32
     b: f32
     a = c.real
-    b = _lfortran_caimag(c)
+    b = c.imag
     return f32((a**f32(2) + b**f32(2))**f32(1/2))
 
 @overload
@@ -97,7 +73,7 @@ def abs(c: c64) -> f64:
     a: f64
     b: f64
     a = c.real
-    b = _lfortran_zaimag(c)
+    b = c.imag
     return (a**2.0 + b**2.0)**(1/2)
 
 @interface
@@ -161,81 +137,141 @@ def pow(x: bool, y: bool) -> i32:
 def pow(c: c32, y: i32) -> c32:
     return c**c32(y)
 
+# sum
+# supported data types: i32, i64, f32, f64
 
-def bin(n: i32) -> str:
+@overload
+def sum(arr: list[i32]) -> i32:
     """
-    Returns the binary representation of an integer `n`.
+    Sum of the elements of `arr`.
     """
-    if n == 0:
-        return '0b0'
-    prep: str
-    prep = '0b'
-    if n < 0:
-        n = -n
-        prep = '-0b'
-    res: str
-    res = ''
-    if (n - _lpython_floordiv(n, 2)*2) == 0:
-        res += '0'
-    else:
-        res += '1'
-    while n > 1:
-        n = _lpython_floordiv(n, 2)
-        if (n - _lpython_floordiv(n, 2)*2) == 0:
-            res += '0'
-        else:
-            res += '1'
-    return prep + res[::-1]
+    sum: i32
+    sum = 0
 
+    i: i32
+    for i in range(len(arr)):
+        sum += arr[i]
+    return sum
 
-def hex(n: i32) -> str:
+@overload
+def sum(arr: list[i64]) -> i64:
     """
-    Returns the hexadecimal representation of an integer `n`.
-    """
-    hex_values: list[str]
-    hex_values = ['0', '1', '2', '3', '4', '5', '6', '7',
-                  '8', '9', 'a', 'b', 'c', 'd', 'e', 'f']
-    if n == 0:
-        return '0x0'
-    prep: str
-    prep = '0x'
-    if n < 0:
-        prep = '-0x'
-        n = -n
-    res: str
-    res = ""
-    remainder: i32
-    while n > 0:
-        remainder = n - _lpython_floordiv(n, 16)*16
-        n -= remainder
-        n = _lpython_floordiv(n, 16)
-        res += hex_values[remainder]
-    return prep + res[::-1]
+    Sum of the elements of `arr`.
+    """
+    sum: i64
+    sum = i64(0)
 
+    i: i32
+    for i in range(len(arr)):
+        sum += arr[i]
+    return sum
 
-def oct(n: i32) -> str:
+@overload
+def sum(arr: list[f32]) -> f32:
     """
-    Returns the octal representation of an integer `n`.
-    """
-    _values: list[str]
-    _values = ['0', '1', '2', '3', '4', '5', '6', '7',
-               '8', '9', 'a', 'b', 'c', 'd', 'e', 'f']
-    if n == 0:
-        return '0o0'
-    prep: str
-    prep = '0o'
-    if n < 0:
-        prep = '-0o'
-        n = -n
-    res: str
-    res = ""
-    remainder: i32
-    while n > 0:
-        remainder = n - _lpython_floordiv(n, 8)*8
-        n -= remainder
-        n = _lpython_floordiv(n, 8)
-        res += _values[remainder]
-    return prep + res[::-1]
+    Sum of the elements of `arr`.
+    """
+    sum: f32
+    sum = f32(0.0)
+
+    i: i32
+    for i in range(len(arr)):
+        sum += arr[i]
+    return sum
+
+@overload
+def sum(arr: list[f64]) -> f64:
+    """
+    Sum of the elements of `arr`.
+    """
+    sum: f64
+    sum = 0.0
+
+    i: i32
+    for i in range(len(arr)):
+        sum += arr[i]
+    return sum
+
+def bin(n: i32) -> str:
+   """
+   Returns the binary representation of an integer `n`.
+   """
+   if n == 0:
+       return '0b0'
+   prep: str
+   prep = '0b'
+   n_: i32
+   n_ = n
+   if n_ < 0:
+       n_ = -n_
+       prep = '-0b'
+   res: str
+   res = ''
+   if (n_ - (n_ // 2)*2) == 0:
+       res += '0'
+   else:
+       res += '1'
+   while n_ > 1:
+       n_ = (n_ // 2)
+       if (n_ - (n_ // 2)*2) == 0:
+           res += '0'
+       else:
+           res += '1'
+   return prep + res[::-1]
+
+
+def hex(n: i32) -> str:
+   """
+   Returns the hexadecimal representation of an integer `n`.
+   """
+   hex_values: list[str]
+   hex_values = ['0', '1', '2', '3', '4', '5', '6', '7',
+                 '8', '9', 'a', 'b', 'c', 'd', 'e', 'f']
+   if n == 0:
+       return '0x0'
+   prep: str
+   prep = '0x'
+   n_: i32
+   n_ = n
+   if n_ < 0:
+       prep = '-0x'
+       n_ = -n_
+   res: str
+   res = ""
+   remainder: i32
+   while n_ > 0:
+       remainder = n_ - (n_ // 16)*16
+       n_ -= remainder
+       n_ = (n_ // 16)
+       res += hex_values[remainder]
+   return prep + res[::-1]
+
+
+def oct(n: i32) -> str:
+   """
+   Returns the octal representation of an integer `n`.
+   """
+   _values: list[str]
+   _values = ['0', '1', '2', '3', '4', '5', '6', '7',
+              '8', '9', 'a', 'b', 'c', 'd', 'e', 'f']
+   if n == 0:
+       return '0o0'
+   prep: str
+   prep = '0o'
+   n_: i32
+   n_ = n
+   if n_ < 0:
+       prep = '-0o'
+       n_ = -n_
+   res: str
+   res = ""
+   remainder: i32
+   while n_ > 0:
+       remainder = n_ - (n_ // 8)*8
+       n_ -= remainder
+       n_ = (n_ // 8)
+       res += _values[remainder]
+   return prep + res[::-1]
 
 #: round() as a generic procedure.
 #: supported types for argument:
@@ -254,7 +290,7 @@ def round(value: f64) -> i32:
     elif f > 0.5:
         return i + 1
     else:
-        if i - _lpython_floordiv(i, 2) * 2 == 0:
+        if i - (i // 2) * 2 == 0:
             return i
         else:
             return i + 1
@@ -270,7 +306,7 @@ def round(value: f32) -> i32:
     elif f > 0.5:
         return i + 1
     else:
-        if i - _lpython_floordiv(i, 2) * 2 == 0:
+        if i - (i // 2) * 2 == 0:
             return i
         else:
             return i + 1
@@ -388,7 +424,7 @@ def divmod(x: i32, y: i32) -> tuple[i32, i32]:
     if y == 0:
         raise ZeroDivisionError("Integer division or modulo by zero not possible")
     t: tuple[i32, i32]
-    t = (_lpython_floordiv(x, y), _mod(x, y))
+    t = ((x // y), _mod(x, y))
     return t
 
 
@@ -399,90 +435,54 @@ def lbound(x: i32[:], dim: i32) -> i32:
 def ubound(x: i32[:], dim: i32) -> i32:
     pass
 
-
-@ccall
-def _lfortran_caimag(x: c32) -> f32:
-    pass
-
-@ccall
-def _lfortran_zaimag(x: c64) -> f64:
-    pass
-
 @overload
 def _lpython_imag(x: c64) -> f64:
-    return _lfortran_zaimag(x)
+    return x.imag
 
 @overload
 def _lpython_imag(x: c32) -> f32:
-    return _lfortran_caimag(x)
+    return x.imag
 
 
 @overload
-def _lpython_floordiv(a: f64, b: f64) -> f64:
-    r: f64
-    r = a/b
-    result: i64
-    result = int(r)
-    if r >= 0.0 or f64(result) == r:
-        return float(result)
-    return float(result - i64(1))
-
+def _mod(a: i8, b: i8) -> i8:
+    return a - (a // b)*b
 
 @overload
-def _lpython_floordiv(a: f32, b: f32) -> f32:
-    r: f64
-    r = float(a)/float(b)
-    result: i32
-    resultf32: f32
-    result = i32(r)
-    if r >= 0.0 or f64(result) == r:
-        resultf32 = f32(1.0) * f32(result)
-    else:
-        resultf32 = f32(1.0) * f32(result) - f32(1.0)
-    return resultf32
+def _mod(a: i16, b: i16) -> i16:
+    return a - (a // b)*b
 
 @overload
-def _lpython_floordiv(a: i32, b: i32) -> i32:
-    r: f64 # f32 rounds things up and gives incorrect results
-    r = float(a)/float(b)
-    result: i32
-    result = i32(r)
-    if r >= 0.0 or f64(result) == r:
-        return result
-    return result - 1
+def _mod(a: i32, b: i32) -> i32:
+    return a - (a // b)*b
 
 @overload
-def _lpython_floordiv(a: i64, b: i64) -> i64:
-    r: f64
-    r = a/b
-    result: i64
-    result = int(r)
-    if r >= 0.0 or f64(result) == r:
-        return result
-    return result - i64(1)
+def _mod(a: u8, b: u8) -> u8:
+    return a - (a // b)*b
 
 @overload
-def _lpython_floordiv(a: bool, b: bool) -> bool:
-    if b == False:
-        raise ValueError('Denominator cannot be False or 0.')
-    return a
-
+def _mod(a: u16, b: u16) -> u16:
+    return a - (a // b)*b
 
 @overload
-def _mod(a: i32, b: i32) -> i32:
-    return a - _lpython_floordiv(a, b)*b
+def _mod(a: u32, b: u32) -> u32:
+    return a - (a // b)*b
 
 @overload
 def _mod(a: f32, b: f32) -> f32:
-    return a - _lpython_floordiv(a, b)*b
+    return a - (a // b)*b
+
+@overload
+def _mod(a: u64, b: u64) -> u64:
+    return a - (a // b)*b
 
 @overload
 def _mod(a: i64, b: i64) -> i64:
-    return a - _lpython_floordiv(a, b)*b
+    return a - (a // b)*b
 
 @overload
 def _mod(a: f64, b: f64) -> f64:
-    return a - _lpython_floordiv(a, b)*b
+    return a - (a // b)*b
 
 
 @overload
@@ -612,36 +612,34 @@ def pow(x: i64, y: i64, z: i64) -> i64:
 def _lpython_str_capitalize(x: str) -> str:
     if len(x) == 0:
         return x
-    val: i32
-    val = ord(x[0])
-    if val >= ord('a') and val <= ord('x'):
-        val -= 32
-    x = chr(val) + x[1:]
-    return x
-
-@overload
-def _lpython_str_lower(x: str) -> str:
-    res: str
-    res = ""
     i:str
+    res:str = ""
     for i in x:
-        if ord('A') <= ord(i) and ord('Z') >= ord(i):
-            res += chr(ord(i) +32)
+        if ord(i) >= 65 and ord(i) <= 90:  # Check if uppercase
+            res += chr(ord(i) + 32)  # Convert to lowercase using ASCII values
         else:
             res += i
+
+    val: i32
+    val = ord(res[0])
+    if val >= ord('a') and val <= ord('z'):
+        val -= 32
+    res = chr(val) + res[1:]
     return res
 
+
 @overload
-def _lpython_str_find(s: str, sub: str) -> i32:
+def _lpython_str_count(s: str, sub: str) -> i32:
     s_len :i32; sub_len :i32; flag: bool; _len: i32;
-    res: i32; i: i32;
+    count: i32; i: i32;
     lps: list[i32] = []
     s_len = len(s)
     sub_len = len(sub)
-    flag = False
-    res = -1
-    if s_len == 0 or sub_len == 0:
-        return 0 if sub_len == 0 or (sub_len == s_len) else -1
+
+    if sub_len == 0:
+        return s_len + 1
+
+    count = 0
 
     for i in range(sub_len):
         lps.append(0)
@@ -663,13 +661,12 @@ def _lpython_str_find(s: str, sub: str) -> i32:
     j: i32
     j = 0
     i = 0
-    while (s_len - i) >= (sub_len - j) and not flag:
+    while (s_len - i) >= (sub_len - j):
         if sub[j] == s[i]:
             i += 1
             j += 1
         if j == sub_len:
-            res = i- j
-            flag = True
+            count += 1
             j = lps[j - 1]
         elif i < s_len and sub[j] != s[i]:
             if j != 0:
@@ -677,29 +674,269 @@ def _lpython_str_find(s: str, sub: str) -> i32:
             else:
                 i = i + 1
 
+    return count
+
+
+@overload
+def _lpython_str_lower(x: str) -> str:
+    res: str
+    res = ""
+    i:str
+    for i in x:
+        if ord('A') <= ord(i) and ord(i) <= ord('Z'):
+            res += chr(ord(i) +32)
+        else:
+            res += i
     return res
 
+@overload
+def _lpython_str_upper(x: str) -> str:
+    res: str
+    res = ""
+    i:str
+    for i in x:
+        if ord('a') <= ord(i) and ord(i) <= ord('z'):
+            res += chr(ord(i) -32)
+        else:
+            res += i
+    return res
+
+@overload
+def _lpython_str_join(s:str, lis:list[str]) -> str:
+    if len(lis) == 0: return ""
+    res:str = lis[0]
+    i:i32
+    for i in range(1, len(lis)):
+        res += s + lis[i]
+    return res
+
+def _lpython_str_isalpha(s: str) -> bool:
+    ch: str
+    if len(s) == 0: return False
+    for ch in s:
+        ch_ord: i32 = ord(ch)
+        if 65 <= ch_ord and ch_ord <= 90:
+            continue
+        if 97 <= ch_ord and ch_ord <= 122:
+            continue
+        return False
+    return True
+
+def _lpython_str_isalnum(s: str) -> bool:
+    ch: str
+    if len(s) == 0: return False
+    for ch in s:
+        ch_ord: i32 = ord(ch)
+        if 65 <= ch_ord and ch_ord <= 90:
+            continue
+        if 97 <= ch_ord and ch_ord <= 122:
+            continue
+        if 48 <= ch_ord and ch_ord <= 57:
+            continue
+        return False
+    return True
+
+def _lpython_str_isnumeric(s: str) -> bool:
+    ch: str
+    if len(s) == 0: return False
+    for ch in s:
+        ch_ord: i32 = ord(ch)
+        if 48 <= ch_ord and ch_ord <= 57:
+            continue
+        return False
+    return True
+
+def _lpython_str_title(s: str) -> str:
+    result: str = ""
+    capitalize_next: bool = True
+    ch: str
+    for ch in s:
+        ch_ord: i32 = ord(ch)
+        if ch_ord >= 97  and ch_ord <= 122:
+            if capitalize_next:
+                result += chr(ord(ch) - ord('a') + ord('A'))
+                capitalize_next = False
+            else:
+                result += ch
+        elif ch_ord >= 65 and ch_ord <= 90:
+            if capitalize_next:
+                result += ch
+                capitalize_next = False
+            else:
+                result += chr(ord(ch) + ord('a') - ord('A'))
+        else:
+            result += ch
+            capitalize_next = True
+
+    return result
+
+def _lpython_str_istitle(s: str) -> bool:
+    length: i32 = len(s)
+
+    if length == 0:
+        return False  # Empty string is not in title case
+
+    word_start: bool = True  # Flag to track the start of a word
+    ch: str
+    only_whitespace: bool = True
+    for ch in s:
+        if ch.isalpha() and (ord('A') <= ord(ch) and ord(ch) <= ord('Z')):
+            only_whitespace = False
+            if word_start:
+                word_start = False
+            else:
+                return False  # Found an uppercase character in the middle of a word
+
+        elif ch.isalpha() and (ord('a') <= ord(ch) and ord(ch) <= ord('z')):
+            only_whitespace = False
+            if word_start:
+                return False  # Found a lowercase character in the middle of a word
+            word_start = False
+        else:
+            word_start = True
+
+    return True if not only_whitespace else False
+
+@overload
+def _lpython_str_find(s: str, sub: str) -> i32:
+   s_len :i32; sub_len :i32; flag: bool; _len: i32;
+   res: i32; i: i32;
+   lps: list[i32] = []
+   s_len = len(s)
+   sub_len = len(sub)
+   flag = False
+   res = -1
+   if s_len == 0 or sub_len == 0:
+       return 0 if sub_len == 0 or (sub_len == s_len) else -1
+
+   for i in range(sub_len):
+       lps.append(0)
+
+   i = 1
+   _len = 0
+   while i < sub_len:
+       if sub[i] == sub[_len]:
+           _len += 1
+           lps[i] = _len
+           i += 1
+       else:
+           if _len != 0:
+               _len = lps[_len - 1]
+           else:
+               lps[i] = 0
+               i += 1
+
+   j: i32
+   j = 0
+   i = 0
+   while (s_len - i) >= (sub_len - j) and not flag:
+       if sub[j] == s[i]:
+           i += 1
+           j += 1
+       if j == sub_len:
+           res = i- j
+           flag = True
+           j = lps[j - 1]
+       elif i < s_len and sub[j] != s[i]:
+           if j != 0:
+               j = lps[j - 1]
+           else:
+               i = i + 1
+
+   return res
+
 def _lpython_str_rstrip(x: str) -> str:
-    ind: i32
-    ind = len(x) - 1
-    while ind >= 0 and x[ind] == ' ':
-        ind -= 1
-    return x[0: ind + 1]
+   ind: i32
+   ind = len(x) - 1
+   while ind >= 0 and x[ind] == ' ':
+       ind -= 1
+   return x[0: ind + 1]
 
 @overload
 def _lpython_str_lstrip(x: str) -> str:
-    ind :i32
-    ind = 0
-    while ind < len(x) and x[ind] == ' ':
-        ind += 1
-    return x[ind :len(x)]
+   ind :i32
+   ind = 0
+   while ind < len(x) and x[ind] == ' ':
+       ind += 1
+   return x[ind :len(x)]
 
 @overload
 def _lpython_str_strip(x: str) -> str:
-    res :str
-    res = _lpython_str_lstrip(x)
-    res = _lpython_str_rstrip(res)
-    return res
+   res :str
+   res = _lpython_str_lstrip(x)
+   res = _lpython_str_rstrip(res)
+   return res
+
+@overload
+def _lpython_str_split(x: str) -> list[str]:
+   sep: str = ' '
+   res: list[str] = []
+   start:i32 = 0
+   ind: i32
+   x_strip: str = _lpython_str_strip(x)
+   if (x_strip == ""):
+       return res
+   while True:
+       while (start < len(x_strip) and x_strip[start] == ' '):
+           start += 1
+       ind = _lpython_str_find(x_strip[start:len(x_strip)], sep)
+       if ind == -1:
+           res.append(x_strip[start:len(x_strip)])
+           break
+       else:
+           res.append(x_strip[start:start + ind])
+           start += ind + len(sep)
+   return res
+
+@overload
+def _lpython_str_split(x: str, sep:str) -> list[str]:
+   if len(sep) == 0:
+       raise ValueError('empty separator')
+   res: list[str] = []
+   start:i32 = 0
+   ind: i32
+   while True:
+       ind = _lpython_str_find(x[start:len(x)], sep)
+       if ind == -1:
+           res.append(x[start:len(x)])
+           break
+       else:
+           res.append(x[start:start + ind])
+           start += ind + len(sep)
+   return res
+
+@overload
+def _lpython_str_replace(x: str, old:str, new:str) -> str:
+   return _lpython_str_replace(x, old, new, len(x))
+
+
+@overload
+def _lpython_str_replace(x: str, old:str, new:str, count: i32) -> str:
+   if (old == ""):
+       res1: str = ""
+       s: str
+       for s in x:
+           res1 += new + s
+       return res1 + new
+   res: str = ""
+   i: i32 = 0
+   ind: i32 = -1
+   l: i32 = len(new)
+   lo: i32 = len(old)
+   lx: i32 = len(x)
+   c: i32 = 0
+   t: i32 = -1
+
+   while(c<count):
+       t = _lpython_str_find(x[i:lx], old)
+       if(t==-1):
+           break
+       ind = i + t
+       res = res + x[i:ind] + new
+       i = ind + lo
+       c = c + 1
+   res = res + x[i:lx]
+   return res
 
 @overload
 def _lpython_str_swapcase(s: str) -> str:
@@ -727,6 +964,178 @@ def _lpython_str_startswith(s: str ,sub: str) -> bool:
         res = res and (j == len(sub))
     return res
 
+@overload
+def _lpython_str_endswith(s: str, suffix: str) -> bool:
+
+    if(len(suffix) > len(s)):
+        return False
+
+    i : i32
+    i = 0
+    while(i < len(suffix)):
+        if(suffix[len(suffix) - i - 1] != s[len(s) - i - 1]):
+            return False
+        i += 1
+
+    return True
+
+# @overload
+# def _lpython_str_partition(s:str, sep: str) -> tuple[str, str, str]:
+#    """
+#    Returns a 3-tuple splitted around seperator
+#    """
+#    if len(s) == 0:
+#        raise ValueError('empty string cannot be partitioned')
+#    if len(sep) == 0:
+#        raise ValueError('empty separator')
+#    res : tuple[str, str, str]
+#    ind : i32
+#    ind = _lpython_str_find(s, sep)
+#    if ind == -1:
+#        res = (s, "", "")
+#    else:
+#        res = (s[0:ind], sep, s[ind+len(sep): len(s)])
+#    return res
+
+@overload
+def _lpython_str_islower(s: str) -> bool:
+    is_cased_present: bool
+    is_cased_present = False
+    i:str
+    for i in s:
+        if (ord(i) >= 97 and ord(i) <= 122) or (ord(i) >= 65 and ord(i) <= 90): # Implies it is a cased letter
+            is_cased_present = True
+            if not(ord(i) >= 97 and ord(i) <= 122): # Not lowercase
+                return False
+    return is_cased_present
+
+@overload
+def _lpython_str_isupper(s: str) -> bool:
+    is_cased_present: bool
+    is_cased_present = False
+    i:str
+    for i in s:
+        if (ord(i) >= 97 and ord(i) <= 122) or (ord(i) >= 65 and ord(i) <= 90): # Implies it is a cased letter
+            is_cased_present = True
+            if not(ord(i) >= 65 and ord(i) <= 90): # Not lowercase
+                return False
+    return is_cased_present
+
+@overload
+def _lpython_str_isdecimal(s: str) -> bool:
+    if len(s) == 0:
+        return False
+    i:str
+    for i in s:
+        if (ord(i) < 48 or ord(i) > 57): # Implies it is not a digit
+            return False
+    return True
+
+@overload
+def _lpython_str_isascii(s: str) -> bool:
+    if len(s) == 0:
+        return True
+    i: str
+    for i in s:
+        if ord(i) < 0 or ord(i) > 127:
+            return False
+    return True
+
+def _lpython_str_isspace(s: str) -> bool:
+    # A Unicode character is considered a 'whitespace' if it has has a bidirectional
+    # type 'WS', 'B' or 'S'; or the category 'Zs'.
+    if len(s) == 0:
+        return False
+
+    ch: str
+    for ch in s:
+        if not (ch == " "  or   # SPACE
+            ch == "\n"     or   # LINE FEED (LF)
+            ch == "\r"     or   # CARRIAGE RETURN (CR)
+            ch == "\t"     or   # CHARACTER TABULATION (HT)
+            ch == "\v"     or   # VERTICAL TAB (VT)
+            ch == "\f"     or   # FORM FEED (FF)
+            ch == "\u00A0" or   # NO-BREAK SPACE
+            ch == "\u1680" or   # OGHAM SPACE MARK
+            ch == "\u2000" or   # EN QUAD
+            ch == "\u2001" or   # EM QUAD
+            ch == "\u2002" or   # EN SPACE
+            ch == "\u2003" or   # EM SPACE
+            ch == "\u2004" or   # THREE-PER-EM SPACE
+            ch == "\u2005" or   # FOUR-PER-EM SPACE
+            ch == "\u2006" or   # SIX-PER-EM SPACE
+            ch == "\u2007" or   # FIGURE SPACE
+            ch == "\u2008" or   # PUNCTUATION SPACE
+            ch == "\u2009" or   # THIN SPACE
+            ch == "\u200A" or   # HAIR SPACE
+            ch == "\u2028" or   # LINE SEPARATOR
+            ch == "\u2029" or   # PARAGRAPH SEPARATOR
+            ch == "\u202F" or   # NARROW NO-BREAK SPACE
+            ch == "\u205F" or   # MEDIUM MATHEMATICAL SPACE
+            ch == "\u3000"      # IDEOGRAPHIC SPACE
+        ):
+            return False
+    return True
+
+@overload
+def _lpython_str_center(s: str, width_: i32, fillchar: str) -> str:
+    """
+    Return centered in a string of length width.
+    Padding is done using the specified fillchar (default is an ASCII space).
+    The original string is returned if width is less than or equal to len(s).
+    """
+    width: i32 = width_
+    if(len(fillchar) != 1):
+        raise TypeError("The fill character must be exactly one character long")
+    str_len: i32 = len(s)
+    if width <= str_len:
+        return s
+    width -= str_len
+    result: str = ""
+    left_padding: i32 = i32(width/2) + _mod(width,2)
+    i: i32
+    for i in range(left_padding):
+        result += fillchar
+    right_padding: i32 = width - left_padding
+    result += s
+    for i in range(right_padding):
+        result += fillchar
+    return result
+
+@overload
+def _lpython_str_center(s: str, width: i32) -> str:
+    return _lpython_str_center(s, width, ' ')
+
+@overload
+def _lpython_str_expandtabs(s: str, tabsize: i32) -> str:
+    """
+    Return a copy of the string where all tab characters are replaced
+    by one or more spaces, depending on the current column and the given tab size.
+    """
+    if len(s) == 0:
+        return s
+    col: i32 = 0
+    result: str = ""
+    c: str
+    for c in s:
+        if c == '\t':
+            if tabsize > 0:
+                i: i32
+                iterations: i32 = tabsize - _mod(col,tabsize)
+                for i in range(iterations):
+                    result += ' '
+            col = 0
+        elif c == '\n' or c == '\r':
+            result += c
+            col = 0
+        else:
+            result += c
+            col += 1
+    return result
+
+@overload
+def _lpython_str_expandtabs(s: str) -> str:
+    return _lpython_str_expandtabs(s, 8)
 
 def list(s: str) -> list[str]:
     l: list[str] = []
diff --git a/src/runtime/lpython_intrinsic_numpy.py b/src/runtime/lpython_intrinsic_numpy.py
index 19257c20e1..796c5c48f2 100644
--- a/src/runtime/lpython_intrinsic_numpy.py
+++ b/src/runtime/lpython_intrinsic_numpy.py
@@ -1,7 +1,4 @@
-from ltypes import i32, i64, f64, f32, ccall, vectorize, overload
-
-pi_64: f64 = f64(3.141592653589793238462643383279502884197)
-pi_32: f32 = f32(3.141592653589793238462643383279502884197)
+from lpython import i32, i64, f64, f32, ccall, vectorize, overload
 
 ########## sin ##########
 
@@ -274,11 +271,13 @@ def arctan(x: f32) -> f32:
 @overload
 @vectorize
 def degrees(x: f64) -> f64:
+    pi_64: Const[f64] = f64(3.141592653589793238462643383279502884197)
     return x*180.0/pi_64
 
 @overload
 @vectorize
 def degrees(x: f32) -> f32:
+    pi_32: Const[f32] = f32(3.141592653589793238462643383279502884197)
     return x*f32(f32(180)/pi_32)
 
 ########## radians ##########
@@ -286,11 +285,13 @@ def degrees(x: f32) -> f32:
 @overload
 @vectorize
 def radians(x: f64) -> f64:
+    pi_64: Const[f64] = f64(3.141592653589793238462643383279502884197)
     return x*pi_64/180.0
 
 @overload
 @vectorize
 def radians(x: f32) -> f32:
+    pi_32: Const[f32] = f32(3.141592653589793238462643383279502884197)
     return x*f32(pi_32/f32(180))
 
 ########## arcsinh ##########
@@ -409,3 +410,56 @@ def ceil(x: f32) -> f32:
     if x <= f32(0) or x == resultf:
         return resultf
     return resultf + f32(1)
+
+########## hypot ##########
+
+
+@overload
+@vectorize
+def hypot(x: f64, y: f64) -> f64:
+    return sqrt(f64(1.0)*f64(x**f64(2) + y**f64(2)))
+
+@overload
+@vectorize
+def hypot(x: f32, y: f32) -> f32:
+    return sqrt(f32(1)*(x**f32(2) + y**f32(2)))
+
+########## trunc ##########
+
+@ccall
+def _lfortran_dtrunc(x: f64) -> f64:
+    pass
+
+@overload
+@vectorize
+def trunc(x: f64) -> f64:
+    return _lfortran_dtrunc(x)
+
+@ccall
+def _lfortran_strunc(x: f32) -> f32:
+    pass
+
+@overload
+@vectorize
+def trunc(x: f32) -> f32:
+    return _lfortran_strunc(x)
+
+########## fix ##########
+
+@ccall
+def _lfortran_dfix(x: f64) -> f64:
+    pass
+
+@overload
+@vectorize
+def fix(x: f64) -> f64:
+    return _lfortran_dfix(x)
+
+@ccall
+def _lfortran_sfix(x: f32) -> f32:
+    pass
+
+@overload
+@vectorize
+def fix(x: f32) -> f32:
+    return _lfortran_sfix(x)
diff --git a/src/runtime/ltypes/goto.py b/src/runtime/ltypes/goto.py
deleted file mode 100644
index 55c10759b0..0000000000
--- a/src/runtime/ltypes/goto.py
+++ /dev/null
@@ -1,241 +0,0 @@
-"""
-The source code of this file is coming from
-https://github.com/snoack/python-goto/blob/acbe736221d2238df3d09beab457d0bb19d05812/goto.py.
-The license of the python-goto project at the time of inclusion in LPython is available at
-https://github.com/snoack/python-goto/blob/acbe736221d2238df3d09beab457d0bb19d05812/LICENSE.
-"""
-import dis
-import struct
-import array
-import types
-import functools
-
-
-try:
-    _array_to_bytes = array.array.tobytes
-except AttributeError:
-    _array_to_bytes = array.array.tostring
-
-
-class _Bytecode:
-    def __init__(self):
-        code = (lambda: x if x else y).__code__.co_code
-        opcode, oparg = struct.unpack_from('BB', code, 2)
-
-        # Starting with Python 3.6, the bytecode format has changed, using
-        # 16-bit words (8-bit opcode + 8-bit argument) for each instruction,
-        # as opposed to previously 24 bit (8-bit opcode + 16-bit argument)
-        # for instructions that expect an argument and otherwise 8 bit.
-        # https://bugs.python.org/issue26647
-        if dis.opname[opcode] == 'POP_JUMP_IF_FALSE':
-            self.argument = struct.Struct('B')
-            self.have_argument = 0
-            # As of Python 3.6, jump targets are still addressed by their
-            # byte unit. This is matter to change, so that jump targets,
-            # in the future might refer to code units (address in bytes / 2).
-            # https://bugs.python.org/issue26647
-            self.jump_unit = 8 // oparg
-        else:
-            self.argument = struct.Struct('<H')
-            self.have_argument = dis.HAVE_ARGUMENT
-            self.jump_unit = 1
-
-    @property
-    def argument_bits(self):
-        return self.argument.size * 8
-
-
-_BYTECODE = _Bytecode()
-
-
-def _make_code(code, codestring):
-    return code.replace(co_code=codestring)
-
-
-def _parse_instructions(code):
-    extended_arg = 0
-    extended_arg_offset = None
-    pos = 0
-
-    while pos < len(code):
-        offset = pos
-        if extended_arg_offset is not None:
-            offset = extended_arg_offset
-
-        opcode = struct.unpack_from('B', code, pos)[0]
-        pos += 1
-
-        oparg = None
-        if opcode >= _BYTECODE.have_argument:
-            oparg = extended_arg | _BYTECODE.argument.unpack_from(code, pos)[0]
-            pos += _BYTECODE.argument.size
-
-            if opcode == dis.EXTENDED_ARG:
-                extended_arg = oparg << _BYTECODE.argument_bits
-                extended_arg_offset = offset
-                continue
-
-        extended_arg = 0
-        extended_arg_offset = None
-        yield (dis.opname[opcode], oparg, offset)
-
-
-def _get_instruction_size(opname, oparg=0):
-    size = 1
-
-    extended_arg = oparg >> _BYTECODE.argument_bits
-    if extended_arg != 0:
-        size += _get_instruction_size('EXTENDED_ARG', extended_arg)
-        oparg &= (1 << _BYTECODE.argument_bits) - 1
-
-    opcode = dis.opmap[opname]
-    if opcode >= _BYTECODE.have_argument:
-        size += _BYTECODE.argument.size
-
-    return size
-
-
-def _get_instructions_size(ops):
-    size = 0
-    for op in ops:
-        if isinstance(op, str):
-            size += _get_instruction_size(op)
-        else:
-            size += _get_instruction_size(*op)
-    return size
-
-
-def _write_instruction(buf, pos, opname, oparg=0):
-    extended_arg = oparg >> _BYTECODE.argument_bits
-    if extended_arg != 0:
-        pos = _write_instruction(buf, pos, 'EXTENDED_ARG', extended_arg)
-        oparg &= (1 << _BYTECODE.argument_bits) - 1
-
-    opcode = dis.opmap[opname]
-    buf[pos] = opcode
-    pos += 1
-
-    if opcode >= _BYTECODE.have_argument:
-        _BYTECODE.argument.pack_into(buf, pos, oparg)
-        pos += _BYTECODE.argument.size
-
-    return pos
-
-
-def _write_instructions(buf, pos, ops):
-    for op in ops:
-        if isinstance(op, str):
-            pos = _write_instruction(buf, pos, op)
-        else:
-            pos = _write_instruction(buf, pos, *op)
-    return pos
-
-
-def _find_labels_and_gotos(code):
-    labels = {}
-    gotos = []
-
-    block_stack = []
-    block_counter = 0
-
-    opname1 = oparg1 = offset1 = None
-    opname2 = oparg2 = offset2 = None
-    opname3 = oparg3 = offset3 = None
-
-    for opname4, oparg4, offset4 in _parse_instructions(code.co_code):
-        if opname1 in ('LOAD_GLOBAL', 'LOAD_NAME'):
-            if opname2 == 'LOAD_ATTR' and opname3 == 'POP_TOP':
-                name = code.co_names[oparg1]
-                if name == 'label':
-                    if oparg2 in labels:
-                        raise SyntaxError('Ambiguous label {0!r}'.format(
-                            code.co_names[oparg2]
-                        ))
-                    labels[oparg2] = (offset1,
-                                      offset4,
-                                      tuple(block_stack))
-                elif name == 'goto':
-                    gotos.append((offset1,
-                                  offset4,
-                                  oparg2,
-                                  tuple(block_stack)))
-        elif opname1 in ('SETUP_LOOP',
-                         'SETUP_EXCEPT', 'SETUP_FINALLY',
-                         'SETUP_WITH', 'SETUP_ASYNC_WITH'):
-            block_counter += 1
-            block_stack.append(block_counter)
-        elif opname1 == 'POP_BLOCK' and block_stack:
-            block_stack.pop()
-
-        opname1, oparg1, offset1 = opname2, oparg2, offset2
-        opname2, oparg2, offset2 = opname3, oparg3, offset3
-        opname3, oparg3, offset3 = opname4, oparg4, offset4
-
-    return labels, gotos
-
-
-def _inject_nop_sled(buf, pos, end):
-    while pos < end:
-        pos = _write_instruction(buf, pos, 'NOP')
-
-
-def _patch_code(code):
-    labels, gotos = _find_labels_and_gotos(code)
-    buf = array.array('B', code.co_code)
-
-    for pos, end, _ in labels.values():
-        _inject_nop_sled(buf, pos, end)
-
-    for pos, end, label, origin_stack in gotos:
-        try:
-            _, target, target_stack = labels[label]
-        except KeyError:
-            raise SyntaxError('Unknown label {0!r}'.format(
-                code.co_names[label]
-            ))
-
-        target_depth = len(target_stack)
-        if origin_stack[:target_depth] != target_stack:
-            raise SyntaxError('Jump into different block')
-
-        ops = []
-        for i in range(len(origin_stack) - target_depth):
-            ops.append('POP_BLOCK')
-        ops.append(('JUMP_ABSOLUTE', target // _BYTECODE.jump_unit))
-
-        if pos + _get_instructions_size(ops) > end:
-            # not enough space, add code at buffer end and jump there
-            buf_end = len(buf)
-
-            go_to_end_ops = [('JUMP_ABSOLUTE', buf_end // _BYTECODE.jump_unit)]
-
-            if pos + _get_instructions_size(go_to_end_ops) > end:
-                # not sure if reachable
-                raise SyntaxError('Goto in an incredibly huge function')
-
-            pos = _write_instructions(buf, pos, go_to_end_ops)
-            _inject_nop_sled(buf, pos, end)
-
-            buf.extend([0] * _get_instructions_size(ops))
-            _write_instructions(buf, buf_end, ops)
-        else:
-            pos = _write_instructions(buf, pos, ops)
-            _inject_nop_sled(buf, pos, end)
-
-    return _make_code(code, _array_to_bytes(buf))
-
-
-def with_goto(func_or_code):
-    if isinstance(func_or_code, types.CodeType):
-        return _patch_code(func_or_code)
-
-    return functools.update_wrapper(
-        types.FunctionType(
-            _patch_code(func_or_code.__code__),
-            func_or_code.__globals__,
-            func_or_code.__name__,
-            func_or_code.__defaults__,
-            func_or_code.__closure__,
-        ),
-        func_or_code
-    )
diff --git a/src/runtime/ltypes/ltypes.py b/src/runtime/ltypes/ltypes.py
deleted file mode 100644
index 4525781241..0000000000
--- a/src/runtime/ltypes/ltypes.py
+++ /dev/null
@@ -1,485 +0,0 @@
-from inspect import getfullargspec, getcallargs, isclass
-import os
-import ctypes
-import platform
-from dataclasses import dataclass as py_dataclass, is_dataclass as py_is_dataclass
-from goto import with_goto
-
-# TODO: this does not seem to restrict other imports
-__slots__ = ["i8", "i16", "i32", "i64", "f32", "f64", "c32", "c64", "CPtr",
-        "overload", "ccall", "TypeVar", "pointer", "c_p_pointer", "Pointer",
-        "p_c_pointer", "vectorize", "inline", "Union", "static", "with_goto",
-        "packed", "Const", "sizeof", "ccallable"]
-
-# data-types
-
-class Type:
-    def __init__(self, name):
-        self._name = name
-
-    def __getitem__(self, params):
-        return Array(self, params)
-
-    def __call__(self, arg):
-        return arg
-
-def dataclass(arg):
-    return py_dataclass(arg)
-
-def is_dataclass(obj):
-    return ((isclass(obj) and issubclass(obj, ctypes.Structure)) or
-             py_is_dataclass(obj))
-
-class PointerType(Type):
-    def __getitem__(self, type):
-        if is_dataclass(type):
-            return convert_to_ctypes_Structure(type)
-        return type
-
-class ConstType(Type):
-    def __getitem__(self, type):
-        return type
-
-class Array:
-    def __init__(self, type, dims):
-        self._type = type
-        self._dims = dims
-
-i8 = Type("i8")
-i16 = Type("i16")
-i32 = Type("i32")
-i64 = Type("i64")
-f32 = Type("f32")
-f64 = Type("f64")
-c32 = Type("c32")
-c64 = Type("c64")
-CPtr = Type("c_ptr")
-Const = ConstType("Const")
-Union = ctypes.Union
-Pointer = PointerType("Pointer")
-
-# Generics
-
-class TypeVar():
-    def __init__(self, name):
-        self._name = name
-
-    def __getitem__(self, params):
-        return Array(self, params)
-
-def restriction(func):
-    return func
-
-# Overloading support
-
-def ltype(x):
-    """
-    Converts CPython types to LPython types
-    """
-    if type(x) == int:
-        return i32, i64
-    elif type(x) == float:
-        return f32, f64
-    elif type(x) == complex:
-        return c32, c64
-    elif type(x) == str:
-        return (str, )
-    elif type(x) == bool:
-        return (bool, )
-    raise Exception("Unsupported Type: %s" % str(type(x)))
-
-class OverloadedFunction:
-    """
-    A wrapper class for allowing overloading.
-    """
-    global_map = {}
-
-    def __init__(self, func):
-        self.func_name = func.__name__
-        f_list = self.global_map.get(func.__name__, [])
-        f_list.append((func, getfullargspec(func)))
-        self.global_map[func.__name__] = f_list
-
-    def __call__(self, *args, **kwargs):
-        func_map_list = self.global_map.get(self.func_name, False)
-        if not func_map_list:
-            raise Exception("Function: %s is not defined" % self.func_name)
-        for item in func_map_list:
-            func, key = item
-            try:
-                # This might fail for the cases when arguments don't match
-                ann_dict = getcallargs(func, *args, **kwargs)
-            except TypeError:
-                continue
-            flag = True
-            for k, v in ann_dict.items():
-                if not key.annotations.get(k, False):
-                    flag = False
-                    break
-                else:
-                    if not (key.annotations.get(k) in ltype(v)):
-                        flag = False
-                        break
-            if flag:
-                return func(*args, **kwargs)
-        raise Exception(f"Function: {self.func_name} not found with matching "
-                        "signature")
-
-
-def overload(f):
-    overloaded_f = OverloadedFunction(f)
-    return overloaded_f
-
-# To be handled in ASR
-def vectorize(f):
-    return f
-
-# To be handled in backend
-def inline(f):
-    return f
-
-# To be handled in backend
-def static(f):
-    return f
-
-class PackedDataClass:
-    pass
-
-def packed(*args, aligned=None):
-    if len(args) == 1:
-        if not is_dataclass(args[0]):
-            raise TypeError("packed can only be applied over a dataclass.")
-        class PackedDataClassLocal(args[0], PackedDataClass):
-            class_to_pack = args[0]
-        return PackedDataClassLocal
-
-    def _packed(f):
-        if not is_dataclass(f):
-            raise TypeError("packed can only be applied over a dataclass.")
-        class PackedDataClassLocal(f, PackedDataClass):
-            class_to_pack = f
-        return PackedDataClassLocal
-    return _packed
-
-def interface(f):
-    def inner_func():
-        raise Exception("Unexpected to be called by CPython")
-    return inner_func
-
-
-# C interoperation support
-
-class c_complex(ctypes.Structure):
-    def __eq__(self, other):
-        if isinstance(other, complex):
-            return self.real == other.real and self.imag == other.imag
-        elif isinstance(other, (int, float)):
-            return self.real == other and self.imag == 0.0
-        return super().__eq__(other)
-
-    def __sub__(self, other):
-        import numpy as np
-        if isinstance(other, (complex, np.complex64, np.complex128)):
-            return complex(self.real - other.real, self.imag - other.imag)
-        elif isinstance(other, (int, float)):
-            return complex(self.real - other, self.imag)
-        raise NotImplementedError()
-
-class c_float_complex(c_complex):
-    _fields_ = [("real", ctypes.c_float), ("imag", ctypes.c_float)]
-
-class c_double_complex(c_complex):
-    _fields_ = [("real", ctypes.c_double), ("imag", ctypes.c_double)]
-
-def convert_type_to_ctype(arg):
-    if arg == f64:
-        return ctypes.c_double
-    elif arg == f32:
-        return ctypes.c_float
-    elif arg == i64:
-        return ctypes.c_int64
-    elif arg == i32:
-        return ctypes.c_int32
-    elif arg == i16:
-        return ctypes.c_int16
-    elif arg == i8:
-        return ctypes.c_int8
-    elif arg == CPtr:
-        return ctypes.c_void_p
-    elif arg == str:
-        return ctypes.c_char_p
-    elif arg == c32:
-        return c_float_complex
-    elif arg == c64:
-        return c_double_complex
-    elif arg is None:
-        raise NotImplementedError("Type cannot be None")
-    elif isinstance(arg, Array):
-        type = convert_type_to_ctype(arg._type)
-        return ctypes.POINTER(type)
-    elif is_dataclass(arg):
-        return convert_to_ctypes_Structure(arg)
-    else:
-        raise NotImplementedError("Type %r not implemented" % arg)
-
-def convert_numpy_dtype_to_ctype(arg):
-    import numpy as np
-    if arg == np.float64:
-        return ctypes.c_double
-    elif arg == np.float32:
-        return ctypes.c_float
-    elif arg == np.int64:
-        return ctypes.c_int64
-    elif arg == np.int32:
-        return ctypes.c_int32
-    elif arg == np.int16:
-        return ctypes.c_int16
-    elif arg == np.int8:
-        return ctypes.c_int8
-    elif arg == np.void:
-        return ctypes.c_void_p
-    elif arg is None:
-        raise NotImplementedError("Type cannot be None")
-    else:
-        raise NotImplementedError("Type %r not implemented" % arg)
-
-class CTypes:
-    """
-    A wrapper class for interfacing C via ctypes.
-    """
-
-    def __init__(self, f):
-        def get_rtlib_dir():
-            current_dir = os.path.dirname(os.path.abspath(__file__))
-            return os.path.join(current_dir, "..")
-        def get_lib_name(name):
-            if platform.system() == "Linux":
-                return "lib" + name + ".so"
-            elif platform.system() == "Darwin":
-                return "lib" + name + ".dylib"
-            elif platform.system() == "Windows":
-                return name + ".dll"
-            else:
-                raise NotImplementedError("Platform not implemented")
-        def get_crtlib_path():
-            py_mod = os.environ.get("LPYTHON_PY_MOD_NAME", "")
-            if py_mod == "":
-                return os.path.join(get_rtlib_dir(),
-                    get_lib_name("lpython_runtime"))
-            else:
-                py_mod_path = os.environ["LPYTHON_PY_MOD_PATH"]
-                return os.path.join(py_mod_path, get_lib_name(py_mod))
-        self.name = f.__name__
-        self.args = f.__code__.co_varnames
-        self.annotations = f.__annotations__
-        crtlib = get_crtlib_path()
-        self.library = ctypes.CDLL(crtlib)
-        self.cf = self.library[self.name]
-        argtypes = []
-        for arg in self.args:
-            arg_type = self.annotations[arg]
-            arg_ctype = convert_type_to_ctype(arg_type)
-            argtypes.append(arg_ctype)
-        self.cf.argtypes = argtypes
-        if "return" in self.annotations:
-            res_type = self.annotations["return"]
-            if res_type is not None:
-                self.cf.restype = convert_type_to_ctype(res_type)
-
-    def __call__(self, *args, **kwargs):
-        if len(kwargs) > 0:
-            raise Exception("kwargs are not supported")
-        new_args = []
-        for arg in args:
-            import numpy as np
-            if isinstance(arg, str):
-                new_args.append(arg.encode("utf-8"))
-            elif isinstance(arg, np.ndarray):
-                new_args.append(arg.ctypes.data_as(ctypes.POINTER(convert_numpy_dtype_to_ctype(arg.dtype))))
-            else:
-                new_args.append(arg)
-        return self.cf(*new_args)
-
-def convert_to_ctypes_Union(f):
-    fields = []
-    for name in f.__annotations__:
-        ltype_ = f.__annotations__[name]
-        fields.append((name, convert_type_to_ctype(ltype_)))
-
-    f._fields_ = fields
-    f.__annotations__ = {}
-
-    return f
-
-def get_fixed_size_of_array(ltype_: Array):
-    if isinstance(ltype_._dims, tuple):
-        size = 1
-        for dim in ltype_._dims:
-            if not isinstance(dim, int):
-                return None
-            size *= dim
-    elif isinstance(ltype_._dims, int):
-        return ltype_._dims
-    return None
-
-def convert_to_ctypes_Structure(f):
-    fields = []
-
-    pack_class = issubclass(f, PackedDataClass)
-    if pack_class:
-        f = f.class_to_pack
-
-    if not issubclass(f, ctypes.Structure):
-        for name in f.__annotations__:
-            ltype_ = f.__annotations__[name]
-            if isinstance(ltype_, Array):
-                array_size = get_fixed_size_of_array(ltype_)
-                if array_size is not None:
-                    ltype_ = ltype_._type
-                    fields.append((name, convert_type_to_ctype(ltype_) * array_size))
-                else:
-                    fields.append((name, convert_type_to_ctype(ltype_)))
-            else:
-                fields.append((name, convert_type_to_ctype(ltype_)))
-    else:
-        fields = f._fields_
-        pack_class = pack_class or f._pack_
-
-
-    class ctypes_Structure(ctypes.Structure):
-        _pack_ = int(pack_class)
-        _fields_ = fields
-
-        def __init__(self, *args):
-            if len(args) != 0 and len(args) != len(self._fields_):
-                super().__init__(*args)
-
-            for field, arg in zip(self._fields_, args):
-                member = self.__getattribute__(field[0])
-                value = arg
-                if isinstance(member, ctypes.Array):
-                    import numpy as np
-                    if isinstance(value, np.ndarray):
-                        if value.dtype == np.complex64:
-                            value = value.flatten().tolist()
-                            value = [c_float_complex(val.real, val.imag) for val in value]
-                        elif value.dtype == np.complex128:
-                            value = value.flatten().tolist()
-                            value = [c_double_complex(val.real, val.imag) for val in value]
-                        value = type(member)(*value)
-                self.__setattr__(field[0], value)
-
-    ctypes_Structure.__name__ = f.__name__
-
-    return ctypes_Structure
-
-def ccall(f):
-    if isclass(f) and issubclass(f, Union):
-        return f
-    return CTypes(f)
-
-def union(f):
-    fields = []
-    for name in f.__annotations__:
-        ltype_ = f.__annotations__[name]
-        fields.append((name, convert_type_to_ctype(ltype_)))
-
-    f._fields_ = fields
-    f.__annotations__ = {}
-    return f
-
-def pointer(x, type_=None):
-    if type_ is None:
-        type_ = type(x)
-    from numpy import ndarray
-    if isinstance(x, ndarray):
-        return x.ctypes.data_as(ctypes.POINTER(convert_numpy_dtype_to_ctype(x.dtype)))
-    else:
-        if type_ == i32:
-            return ctypes.cast(ctypes.pointer(ctypes.c_int32(x)),
-                    ctypes.c_void_p)
-        elif type_ == i64:
-            return ctypes.cast(ctypes.pointer(ctypes.c_int64(x)),
-                    ctypes.c_void_p)
-        elif type_ == f32:
-            return ctypes.cast(ctypes.pointer(ctypes.c_float(x)),
-                    ctypes.c_void_p)
-        elif type_ == f64:
-            return ctypes.cast(ctypes.pointer(ctypes.c_double(x)),
-                    ctypes.c_void_p)
-        elif is_dataclass(type_):
-            if issubclass(type_, ctypes.Structure):
-                return ctypes.cast(ctypes.pointer(x), ctypes.c_void_p)
-            else:
-                return x
-        else:
-            raise Exception("Type not supported in pointer()")
-
-class PointerToStruct:
-
-    def __init__(self, ctypes_ptr_):
-        self.__dict__["ctypes_ptr"] = ctypes_ptr_
-
-    def __getattr__(self, name: str):
-        if name == "ctypes_ptr":
-            return self.__dict__[name]
-        value = self.ctypes_ptr.contents.__getattribute__(name)
-        if isinstance(value, (c_float_complex, c_double_complex)):
-            value = complex(value.real, value.imag)
-        return value
-
-    def __setattr__(self, name: str, value):
-        name_ = self.ctypes_ptr.contents.__getattribute__(name)
-        if isinstance(name_, c_float_complex):
-            if isinstance(value, complex):
-                value = c_float_complex(value.real, value.imag)
-            else:
-                value = c_float_complex(value.real, 0.0)
-        elif isinstance(name_, c_double_complex):
-            if isinstance(value, complex):
-                value = c_double_complex(value.real, value.imag)
-            else:
-                value = c_double_complex(value.real, 0.0)
-        elif isinstance(name_, ctypes.Array):
-            import numpy as np
-            if isinstance(value, np.ndarray):
-                if value.dtype == np.complex64:
-                    value = value.flatten().tolist()
-                    value = [c_float_complex(val.real, val.imag) for val in value]
-                elif value.dtype == np.complex128:
-                    value = value.flatten().tolist()
-                    value = [c_double_complex(val.real, val.imag) for val in value]
-                value = type(name_)(*value)
-        self.ctypes_ptr.contents.__setattr__(name, value)
-
-def c_p_pointer(cptr, targettype):
-    targettype_ptr = convert_type_to_ctype(targettype)
-    if isinstance(targettype, Array):
-        newa = ctypes.cast(cptr, targettype_ptr)
-        return newa
-    else:
-        targettype_ptr = ctypes.POINTER(targettype_ptr)
-        newa = ctypes.cast(cptr, targettype_ptr)
-        if is_dataclass(targettype):
-            # return after wrapping newa inside PointerToStruct
-            return PointerToStruct(newa)
-        return newa
-
-def p_c_pointer(ptr, cptr):
-    if isinstance(ptr, ctypes.c_void_p):
-        cptr.value = ptr.value
-    else:
-        # assign the address of ptr in memory to cptr.value
-        # the case for numpy arrays converted to a pointer
-        cptr.value = id(ptr)
-
-def empty_c_void_p():
-    return ctypes.c_void_p()
-
-def sizeof(arg):
-    return ctypes.sizeof(convert_type_to_ctype(arg))
-
-def ccallable(f):
-    if py_is_dataclass(f):
-        return convert_to_ctypes_Structure(f)
-    return f
diff --git a/src/runtime/math.py b/src/runtime/math.py
index 379581c528..8993ce1223 100644
--- a/src/runtime/math.py
+++ b/src/runtime/math.py
@@ -1,12 +1,10 @@
-from ltypes import i8, i16, i32, f32, i64, f64, ccall, overload
+from lpython import i8, i16, i32, f32, i64, f64, ccall, overload
 
 
 pi: f64 = 3.141592653589793238462643383279502884197
 e: f64 = 2.718281828459045235360287471352662497757
 tau: f64 = 6.283185307179586
 
-# TODO: Change floor used inside functions implemented here to
-# floordiv operator (//) once the multiple import issue is fixed
 
 @overload
 def modf(x: f64) -> tuple[f64, f64]:
@@ -102,7 +100,7 @@ def ceil(x: f32) -> i32:
 @overload
 def fsum(arr: list[i32]) -> f64:
     """
-    Sum of the elements of `arr`.
+    Floating-point sum of the elements of `arr`.
     """
     sum: f64
     sum = 0.0
@@ -115,7 +113,7 @@ def fsum(arr: list[i32]) -> f64:
 @overload
 def fsum(arr: list[i64]) -> f64:
     """
-    Sum of the elements of `arr`.
+    Floating-point sum of the elements of `arr`.
     """
     sum: f64
     sum = 0.0
@@ -128,7 +126,7 @@ def fsum(arr: list[i64]) -> f64:
 @overload
 def fsum(arr: list[f32]) -> f64:
     """
-    Sum of the elements of `arr`.
+    Floating-point sum of the elements of `arr`.
     """
     sum: f64
     sum = 0.0
@@ -141,7 +139,7 @@ def fsum(arr: list[f32]) -> f64:
 @overload
 def fsum(arr: list[f64]) -> f64:
     """
-    Sum of the elements of `arr`.
+    Floating-point sum of the elements of `arr`.
     """
     sum: f64
     sum = 0.0
@@ -230,7 +228,7 @@ def comb(n: i32, k: i32) -> i32:
 
     if n < k or n < 0:
         return 0
-    return i32(floor(factorial(n)/(factorial(k)*factorial(n-k))))
+    return i32(factorial(n)//(factorial(k)*factorial(n-k)))
 
 
 def perm(n: i32, k: i32) -> i32:
@@ -241,7 +239,7 @@ def perm(n: i32, k: i32) -> i32:
 
     if n < k or n < 0:
         return 0
-    return i32(floor(factorial(n)/factorial(n-k)))
+    return i32(factorial(n)//factorial(n-k))
 
 
 def isqrt(n: i32) -> i32:
@@ -256,7 +254,7 @@ def isqrt(n: i32) -> i32:
     low = 0
     high = n+1
     while low + 1 < high:
-        mid = i32(floor((low + high)/2))
+        mid = i32((low + high)//2)
         if mid*mid <= n:
             low = mid
         else:
@@ -459,18 +457,12 @@ def ldexp(x: f64, i: i32) -> f64:
     return result
 
 
-def exp(x: f64) -> f64:
-    """
-    Return `e` raised to the power `x`.
-    """
-    return e**x
-
 
 def mod(a: i32, b: i32) -> i32:
     """
     Returns a%b
     """
-    return a - i32(floor(a/b))*b
+    return a - i32(a//b)*b
 
 
 def gcd(a: i32, b: i32) -> i32:
@@ -478,29 +470,37 @@ def gcd(a: i32, b: i32) -> i32:
     Returns greatest common divisor of `a` and `b`
     """
     temp: i32
-    if a < 0:
-        a = -a
-    if b < 0:
-        b = -b
-    while b != 0:
-        a = mod(a, b)
-        temp = a
-        a = b
-        b = temp
-    return a
+    a_: i32
+    b_: i32
+    a_ = a
+    b_ = b
+    if a_ < 0:
+        a_ = -a_
+    if b_ < 0:
+        b_ = -b_
+    while b_ != 0:
+        a_ = mod(a_, b_)
+        temp = a_
+        a_ = b_
+        b_ = temp
+    return a_
 
 
 def lcm(a: i32, b: i32) -> i32:
     """
     Returns least common multiple of `a` and `b`
     """
-    if a < 0:
-        a = -a
-    if b < 0:
-        b = -b
-    if a*b == 0:
+    a_: i32
+    b_: i32
+    a_ = a
+    b_ = b
+    if a_ < 0:
+        a_ = -a_
+    if b_ < 0:
+        b_ = -b_
+    if a_*b_ == 0:
         return 0
-    return i32(floor((a*b)/gcd(a, b)))
+    return i32((a_*b_)//gcd(a_, b_))
 
 
 def copysign(x: f64, y: f64) -> f64:
@@ -540,8 +540,17 @@ def trunc(x: f32) -> i32:
         return ceil(x)
 
 def sqrt(x: f64) -> f64:
+    """
+    Returns square root of a number x
+    """
     return x**(1/2)
 
+def cbrt(x: f64) -> f64:
+    """
+    Returns cube root of a number x
+    """
+    return x**(1/3)
+
 @ccall
 def _lfortran_dsin(x: f64) -> f64:
     pass
@@ -679,10 +688,6 @@ def atanh(x: f64) -> f64:
     return _lfortran_datanh(x)
 
 
-def expm1(x: f64) -> f64:
-    return exp(x) - 1.0
-
-
 def log1p(x: f64) -> f64:
     return log(1.0 + x)
 
@@ -704,3 +709,41 @@ def remainder(x: f64, y: f64) -> f64:
     if x - y*f64(q) > y*f64(q + i64(1)) - x:
         return x - y*f64(q + i64(1))
     return x - y*f64(q)
+
+
+@overload
+def frexp(x:f64) -> tuple[f64,i16]:
+    '''
+    Return the mantissa and exponent of x as the pair (m, e).
+    m is a float and e is an integer such that x == m * 2**e exactly.
+    '''
+    exponent: i16 = i16(0)
+    x_: f64 = x
+    while f64(fabs(x_)) > f64(1.0):
+        exponent += i16(1)
+        x_ /= 2.0
+    return x_, exponent
+
+
+@overload
+def frexp(x:f32) -> tuple[f32,i8]:
+    '''
+    Return the mantissa and exponent of x as the pair (m, e).
+    m is a float and e is an integer such that x == m * 2**e exactly.
+    '''
+    exponent: i8 = i8(0)
+    x_: f32 = x
+    while f32(fabs(x_)) > f32(1.0):
+        exponent += i8(1)
+        x_ /= f32(2.0)
+    return x_, exponent
+
+
+@overload
+def isclose(a:f64, b:f64, rel_tol:f64 = 1e-09, abs_tol:f64 = 0.0) -> bool:
+    '''
+    Return True if the values a and b are close to each other and False otherwise.
+    '''
+    difference:f64 = fabs(a-b)
+    greater:f64 = max(fabs(a),fabs(b))
+    return difference <= max(rel_tol*greater, abs_tol)
diff --git a/src/runtime/os.py b/src/runtime/os.py
index 9b4e2eb8b4..9b57d03768 100644
--- a/src/runtime/os.py
+++ b/src/runtime/os.py
@@ -1,4 +1,4 @@
-from ltypes import i32, i64, ccall
+from lpython import i32, i64, ccall
 
 O_RDONLY: i32 # = 0 FIXME: Assign the value 0 to O_RDONLY
 # O_WRONLY: i32 = 1
diff --git a/src/runtime/platform.py b/src/runtime/platform.py
index 4c11b4977a..f408c53219 100644
--- a/src/runtime/platform.py
+++ b/src/runtime/platform.py
@@ -2,4 +2,4 @@ def python_implementation() -> str:
     return "LPython"
 
 def python_version() -> str:
-     return __LPYTHON_VERSION__
\ No newline at end of file
+     return __LPYTHON_VERSION__
diff --git a/src/runtime/pypi/LICENSE b/src/runtime/pypi/LICENSE
new file mode 100644
index 0000000000..ae62812baa
--- /dev/null
+++ b/src/runtime/pypi/LICENSE
@@ -0,0 +1,21 @@
+MIT License
+
+Copyright (c) 2025 The LCompilers Team
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all
+copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+SOFTWARE.
diff --git a/src/runtime/pypi/README.md b/src/runtime/pypi/README.md
new file mode 100644
index 0000000000..72553f2022
--- /dev/null
+++ b/src/runtime/pypi/README.md
@@ -0,0 +1,33 @@
+# lpython
+
+https://lpython.org/
+
+This is a python package to add typing information to python code. Use LPython
+to compile it.
+
+## Example
+
+```python
+from lpython import i32, f64
+
+def add(a: i32, b: i32) -> i32:
+    return a + b
+
+def area_of_circle(radius: f64) -> f64:
+    pi: f64 = 3.14
+    return pi * (radius * radius)
+
+def main0():
+    print("The sum of 5 and 3 is", end=" ")
+    print(add(5, 3))
+    print("Area of circle with radius 5.0 is", end=" ")
+    print(area_of_circle(5.0))
+
+main0()
+```
+
+```bash
+$ python main.py
+The sum of 5 and 3 is 8
+Area of circle with radius 5.0 is 78.5
+```
diff --git a/src/runtime/pypi/lpython/__init__.py b/src/runtime/pypi/lpython/__init__.py
new file mode 100644
index 0000000000..bef6b47ec0
--- /dev/null
+++ b/src/runtime/pypi/lpython/__init__.py
@@ -0,0 +1 @@
+from .lpython import i8, i16, i32, i64, u8, u16, u32, u64, f32, f64, c32, c64, CPtr, Allocatable, overload, ccall, TypeVar, pointer, c_p_pointer, Pointer, p_c_pointer, vectorize, inline, Union, static, packed, Const, sizeof, ccallable, dataclass, In, Out, InOut, ccallback, Callable
diff --git a/src/runtime/pypi/lpython/lpython.py b/src/runtime/pypi/lpython/lpython.py
new file mode 100644
index 0000000000..103966f77d
--- /dev/null
+++ b/src/runtime/pypi/lpython/lpython.py
@@ -0,0 +1,910 @@
+from inspect import getfullargspec, getcallargs, isclass, getsource
+import os
+import ctypes
+import platform
+from dataclasses import dataclass as py_dataclass, is_dataclass as py_is_dataclass
+
+# TODO: this does not seem to restrict other imports
+__slots__ = ["i8", "i16", "i32", "i64", "u8", "u16", "u32", "u64", "f32", "f64", "c32", "c64", "CPtr",
+        "overload", "ccall", "TypeVar", "pointer", "c_p_pointer", "Pointer",
+        "p_c_pointer", "vectorize", "inline", "Union", "static",
+        "packed", "Const", "sizeof", "ccallable", "ccallback", "Callable",
+        "Allocatable", "In", "Out", "InOut", "dataclass"]
+
+# data-types
+
+type_to_convert_func = {
+    "i8": int,
+    "i16": int,
+    "i32": int,
+    "i64": int,
+    "u8": lambda x: x,
+    "u16": lambda x: x,
+    "u32": lambda x: x,
+    "u64": lambda x: x,
+    "f32": float,
+    "f64": float,
+    "c32": complex,
+    "c64": complex,
+    "c_ptr": lambda x: x,
+    "Const": lambda x: x,
+    "Callable": lambda x: x,
+    "Allocatable": lambda x: x,
+    "Pointer": lambda x: x,
+}
+
+class Type:
+    def __init__(self, name):
+        self._name = name
+        self._convert = type_to_convert_func[name]
+
+    def __getitem__(self, params):
+        return Array(self, params)
+
+    def __call__(self, arg):
+        return self._convert(arg)
+
+def dataclass(arg):
+    def __class_getitem__(key):
+        return Array(arg, key)
+    arg.__class_getitem__ = __class_getitem__
+
+    return py_dataclass(arg)
+
+def is_ctypes_Structure(obj):
+    return (isclass(obj) and issubclass(obj, ctypes.Structure))
+
+def is_dataclass(obj):
+    return ((isclass(obj) and issubclass(obj, ctypes.Structure)) or
+             py_is_dataclass(obj))
+
+class PointerType(Type):
+    def __getitem__(self, type):
+        if is_dataclass(type):
+            return convert_to_ctypes_Structure(type)
+        return type
+
+class ConstType(Type):
+    def __getitem__(self, type):
+        return type
+
+class Array:
+    def __init__(self, type, dims):
+        self._type = type
+        self._dims = dims
+
+i8 = Type("i8")
+i16 = Type("i16")
+i32 = Type("i32")
+i64 = Type("i64")
+u8 = Type("u8")
+u16 = Type("u16")
+u32 = Type("u32")
+u64 = Type("u64")
+f32 = Type("f32")
+f64 = Type("f64")
+c32 = Type("c32")
+c64 = Type("c64")
+CPtr = Type("c_ptr")
+Const = ConstType("Const")
+Callable = Type("Callable")
+Allocatable = Type("Allocatable")
+Union = ctypes.Union
+Pointer = PointerType("Pointer")
+
+
+class Intent:
+    def __init__(self, type):
+        self._type = type
+
+    def __getitem__(self, params):
+        return params
+
+In = Intent("In")
+Out = Intent("Out")
+InOut = Intent("InOut")
+
+# Generics
+
+class TypeVar():
+    def __init__(self, name):
+        self._name = name
+
+    def __getitem__(self, params):
+        return Array(self, params)
+
+def restriction(func):
+    return func
+
+# Overloading support
+
+def ltype(x):
+    """
+    Converts CPython types to LPython types
+    """
+    if type(x) == int:
+        return i32, i64
+    elif type(x) == float:
+        return f32, f64
+    elif type(x) == complex:
+        return c32, c64
+    elif type(x) == str:
+        return (str, )
+    elif type(x) == bool:
+        return (bool, )
+    raise Exception("Unsupported Type: %s" % str(type(x)))
+
+class OverloadedFunction:
+    """
+    A wrapper class for allowing overloading.
+    """
+    global_map = {}
+
+    def __init__(self, func):
+        self.func_name = func.__name__
+        f_list = self.global_map.get(func.__name__, [])
+        f_list.append((func, getfullargspec(func)))
+        self.global_map[func.__name__] = f_list
+
+    def __call__(self, *args, **kwargs):
+        func_map_list = self.global_map.get(self.func_name, False)
+        if not func_map_list:
+            raise Exception("Function: %s is not defined" % self.func_name)
+        for item in func_map_list:
+            func, key = item
+            try:
+                # This might fail for the cases when arguments don't match
+                ann_dict = getcallargs(func, *args, **kwargs)
+            except TypeError:
+                continue
+            flag = True
+            for k, v in ann_dict.items():
+                if not key.annotations.get(k, False):
+                    flag = False
+                    break
+                else:
+                    if not (key.annotations.get(k) in ltype(v)):
+                        flag = False
+                        break
+            if flag:
+                return func(*args, **kwargs)
+        raise Exception(f"Function: {self.func_name} not found with matching "
+                        "signature")
+
+
+def overload(f):
+    overloaded_f = OverloadedFunction(f)
+    overloaded_f.__name__ = f.__name__
+    overloaded_f.__code__ = f.__code__
+    overloaded_f.__annotations__ = f.__annotations__
+    return overloaded_f
+
+# To be handled in ASR
+def vectorize(f):
+    return f
+
+# To be handled in backend
+def inline(f):
+    return f
+
+# To be handled in backend
+def static(f):
+    return f
+
+class PackedDataClass:
+    pass
+
+def packed(*args, aligned=None):
+    if len(args) == 1:
+        if not is_dataclass(args[0]):
+            raise TypeError("packed can only be applied over a dataclass.")
+        class PackedDataClassLocal(args[0], PackedDataClass):
+            class_to_pack = args[0]
+        return PackedDataClassLocal
+
+    def _packed(f):
+        if not is_dataclass(f):
+            raise TypeError("packed can only be applied over a dataclass.")
+        class PackedDataClassLocal(f, PackedDataClass):
+            class_to_pack = f
+        return PackedDataClassLocal
+    return _packed
+
+def interface(f):
+    def inner_func():
+        raise Exception("Unexpected to be called by CPython")
+    return inner_func
+
+
+# C interoperation support
+
+class c_complex(ctypes.Structure):
+    def __eq__(self, other):
+        if isinstance(other, complex):
+            return self.real == other.real and self.imag == other.imag
+        elif isinstance(other, (int, float)):
+            return self.real == other and self.imag == 0.0
+        return super().__eq__(other)
+
+    def __sub__(self, other):
+        import numpy as np
+        if isinstance(other, (complex, np.complex64, np.complex128)):
+            return complex(self.real - other.real, self.imag - other.imag)
+        elif isinstance(other, (int, float)):
+            return complex(self.real - other, self.imag)
+        raise NotImplementedError()
+
+class c_float_complex(c_complex):
+    _fields_ = [("real", ctypes.c_float), ("imag", ctypes.c_float)]
+
+class c_double_complex(c_complex):
+    _fields_ = [("real", ctypes.c_double), ("imag", ctypes.c_double)]
+
+def convert_type_to_ctype(arg):
+    from enum import Enum
+    if arg == f64:
+        return ctypes.c_double
+    elif arg == f32:
+        return ctypes.c_float
+    elif arg == i64:
+        return ctypes.c_int64
+    elif arg == i32:
+        return ctypes.c_int32
+    elif arg == i16:
+        return ctypes.c_int16
+    elif arg == i8:
+        return ctypes.c_int8
+    elif arg == u64:
+        return ctypes.c_uint64
+    elif arg == u32:
+        return ctypes.c_uint32
+    elif arg == u16:
+        return ctypes.c_uint16
+    elif arg == u8:
+        return ctypes.c_uint8
+    elif arg == CPtr:
+        return ctypes.c_void_p
+    elif arg == str:
+        return ctypes.c_char_p
+    elif arg == c32:
+        return c_float_complex
+    elif arg == c64:
+        return c_double_complex
+    elif arg == bool:
+        return ctypes.c_bool
+    elif arg is None:
+        raise NotImplementedError("Type cannot be None")
+    elif isinstance(arg, Array):
+        if is_dataclass(arg._type):
+            return arg
+        type = convert_type_to_ctype(arg._type)
+        return ctypes.POINTER(type)
+    elif is_dataclass(arg):
+        return convert_to_ctypes_Structure(arg)
+    elif issubclass(arg, Enum):
+        # TODO: store enum in ctypes.Structure with name and value as fields.
+        return ctypes.c_int64
+    else:
+        raise NotImplementedError("Type %r not implemented" % arg)
+
+def convert_numpy_dtype_to_ctype(arg):
+    import numpy as np
+    if arg == np.float64:
+        return ctypes.c_double
+    elif arg == np.float32:
+        return ctypes.c_float
+    elif arg == np.int64:
+        return ctypes.c_int64
+    elif arg == np.int32:
+        return ctypes.c_int32
+    elif arg == np.int16:
+        return ctypes.c_int16
+    elif arg == np.int8:
+        return ctypes.c_int8
+    elif arg == np.uint64:
+        return ctypes.c_uint64
+    elif arg == np.uint32:
+        return ctypes.c_uint32
+    elif arg == np.uint16:
+        return ctypes.c_uint16
+    elif arg == np.uint8:
+        return ctypes.c_uint8
+    elif arg == np.void:
+        return ctypes.c_void_p
+    elif arg is None:
+        raise NotImplementedError("Type cannot be None")
+    else:
+        raise NotImplementedError("Type %r not implemented" % arg)
+
+class CTypes:
+    """
+    A wrapper class for interfacing C via ctypes.
+    """
+
+    def __init__(self, f):
+        def get_rtlib_dir():
+            current_dir = os.path.dirname(os.path.abspath(__file__))
+            return os.path.join(current_dir, "..")
+        def get_lib_name(name):
+            if platform.system() == "Linux":
+                return "lib" + name + ".so"
+            elif platform.system() == "Darwin":
+                return "lib" + name + ".dylib"
+            elif platform.system() == "Windows":
+                return name + ".dll"
+            else:
+                raise NotImplementedError("Platform not implemented")
+        def get_crtlib_path():
+            py_mod = os.environ.get("LPYTHON_PY_MOD_NAME", "")
+            if py_mod == "":
+                return os.path.join(get_rtlib_dir(),
+                    get_lib_name("lpython_runtime"))
+            else:
+                py_mod_path = os.environ["LPYTHON_PY_MOD_PATH"]
+                return os.path.join(py_mod_path, get_lib_name(py_mod))
+        self.name = f.__name__
+        self.args = f.__code__.co_varnames
+        self.annotations = f.__annotations__
+        if "LPYTHON_PY_MOD_NAME" in os.environ:
+            crtlib = get_crtlib_path()
+            self.library = ctypes.CDLL(crtlib)
+            self.cf = self.library[self.name]
+        else:
+            self.cf = CTypes.emulations[self.name]
+        argtypes = []
+        for arg in self.args:
+            arg_type = self.annotations[arg]
+            arg_ctype = convert_type_to_ctype(arg_type)
+            argtypes.append(arg_ctype)
+        self.cf.argtypes = argtypes
+        if "return" in self.annotations:
+            res_type = self.annotations["return"]
+            if res_type is not None:
+                self.cf.restype = convert_type_to_ctype(res_type)
+
+    def __call__(self, *args, **kwargs):
+        if len(kwargs) > 0:
+            raise Exception("kwargs are not supported")
+        new_args = []
+        for arg in args:
+            import numpy as np
+            if isinstance(arg, str):
+                new_args.append(arg.encode("utf-8"))
+            elif isinstance(arg, np.ndarray):
+                new_args.append(arg.ctypes.data_as(ctypes.POINTER(convert_numpy_dtype_to_ctype(arg.dtype))))
+            else:
+                new_args.append(arg)
+        return self.cf(*new_args)
+
+def convert_to_ctypes_Union(f):
+    fields = []
+    for name in f.__annotations__:
+        ltype_ = f.__annotations__[name]
+        fields.append((name, convert_type_to_ctype(ltype_)))
+
+    f._fields_ = fields
+    f.__annotations__ = {}
+
+    return f
+
+def get_fixed_size_of_array(ltype_: Array):
+    if isinstance(ltype_._dims, tuple):
+        size = 1
+        for dim in ltype_._dims:
+            if not isinstance(dim, int):
+                return None
+            size *= dim
+    elif isinstance(ltype_._dims, int):
+        return ltype_._dims
+    return None
+
+def convert_to_ctypes_Structure(f):
+    fields = []
+
+    pack_class = issubclass(f, PackedDataClass)
+    if pack_class:
+        f = f.class_to_pack
+
+    if not issubclass(f, ctypes.Structure):
+        for name in f.__annotations__:
+            ltype_ = f.__annotations__[name]
+            if isinstance(ltype_, Array):
+                array_size = get_fixed_size_of_array(ltype_)
+                if array_size is not None:
+                    ltype_ = ltype_._type
+                    fields.append((name, convert_type_to_ctype(ltype_) * array_size))
+                else:
+                    fields.append((name, convert_type_to_ctype(ltype_)))
+            else:
+                fields.append((name, convert_type_to_ctype(ltype_)))
+    else:
+        fields = f._fields_
+        pack_class = pack_class or f._pack_
+
+
+    class ctypes_Structure(ctypes.Structure):
+        _pack_ = int(pack_class)
+        _fields_ = fields
+
+        def __init__(self, *args):
+            if len(args) != 0 and len(args) != len(self._fields_):
+                super().__init__(*args)
+
+            for field, arg in zip(self._fields_, args):
+                from enum import Enum
+                member = self.__getattribute__(field[0])
+                value = arg
+                if isinstance(member, ctypes.Array):
+                    import numpy as np
+                    if isinstance(value, np.ndarray):
+                        if value.dtype == np.complex64:
+                            value = value.flatten().tolist()
+                            value = [c_float_complex(val.real, val.imag) for val in value]
+                        elif value.dtype == np.complex128:
+                            value = value.flatten().tolist()
+                            value = [c_double_complex(val.real, val.imag) for val in value]
+                        value = type(member)(*value)
+                elif isinstance(value, Enum):
+                    value = value.value
+                self.__setattr__(field[0], value)
+
+    ctypes_Structure.__name__ = f.__name__
+
+    return ctypes_Structure
+
+def ccall(f):
+    if isclass(f) and issubclass(f, Union):
+        return f
+    return CTypes(f)
+
+def pythoncall(*args, **kwargs):
+    def inner(fn):
+        import importlib
+        module = importlib.import_module(kwargs["module"])
+        fn_new = getattr(module, fn.__name__)
+        return fn_new
+    return inner
+
+def union(f):
+    fields = []
+    for name in f.__annotations__:
+        ltype_ = f.__annotations__[name]
+        fields.append((name, convert_type_to_ctype(ltype_)))
+
+    f._fields_ = fields
+    f.__annotations__ = {}
+    return f
+
+def pointer(x, type_=None):
+    if type_ is None:
+        type_ = type(x)
+    from numpy import ndarray
+    if isinstance(x, ndarray):
+        return x.ctypes.data_as(ctypes.POINTER(convert_numpy_dtype_to_ctype(x.dtype)))
+    else:
+        if type_ == i8:
+            return ctypes.cast(ctypes.pointer(ctypes.c_int8(x)),
+                    ctypes.c_void_p)
+        elif type_ == i16:
+            return ctypes.cast(ctypes.pointer(ctypes.c_int16(x)),
+                    ctypes.c_void_p)
+        elif type_ == i32:
+            return ctypes.cast(ctypes.pointer(ctypes.c_int32(x)),
+                    ctypes.c_void_p)
+        elif type_ == i64:
+            return ctypes.cast(ctypes.pointer(ctypes.c_int64(x)),
+                    ctypes.c_void_p)
+        elif type_ == u8:
+            return ctypes.cast(ctypes.pointer(ctypes.c_uint8(x)),
+                    ctypes.c_void_p)
+        elif type_ == u16:
+            return ctypes.cast(ctypes.pointer(ctypes.c_uint16(x)),
+                    ctypes.c_void_p)
+        elif type_ == u32:
+            return ctypes.cast(ctypes.pointer(ctypes.c_uint32(x)),
+                    ctypes.c_void_p)
+        elif type_ == u64:
+            return ctypes.cast(ctypes.pointer(ctypes.c_uint64(x)),
+                    ctypes.c_void_p)
+        elif type_ == f32:
+            return ctypes.cast(ctypes.pointer(ctypes.c_float(x)),
+                    ctypes.c_void_p)
+        elif type_ == f64:
+            return ctypes.cast(ctypes.pointer(ctypes.c_double(x)),
+                    ctypes.c_void_p)
+        elif is_dataclass(type_):
+            if issubclass(type_, ctypes.Structure):
+                return ctypes.cast(ctypes.pointer(x), ctypes.c_void_p)
+            else:
+                return x
+        else:
+            raise Exception("Type not supported in pointer()")
+
+class PointerToStruct:
+
+    def __init__(self, ctypes_ptr_):
+        self.__dict__["ctypes_ptr"] = ctypes_ptr_
+
+    def __getattr__(self, name: str):
+        if name == "ctypes_ptr":
+            return self.__dict__[name]
+        value = self.ctypes_ptr.contents.__getattribute__(name)
+        if isinstance(value, (c_float_complex, c_double_complex)):
+            value = complex(value.real, value.imag)
+        return value
+
+    def __setattr__(self, name: str, value):
+        name_ = self.ctypes_ptr.contents.__getattribute__(name)
+        from enum import Enum
+        if isinstance(name_, c_float_complex):
+            if isinstance(value, complex):
+                value = c_float_complex(value.real, value.imag)
+            else:
+                value = c_float_complex(value.real, 0.0)
+        elif isinstance(name_, c_double_complex):
+            if isinstance(value, complex):
+                value = c_double_complex(value.real, value.imag)
+            else:
+                value = c_double_complex(value.real, 0.0)
+        elif isinstance(name_, ctypes.Array):
+            import numpy as np
+            if isinstance(value, np.ndarray):
+                if value.dtype == np.complex64:
+                    value = value.flatten().tolist()
+                    value = [c_float_complex(val.real, val.imag) for val in value]
+                elif value.dtype == np.complex128:
+                    value = value.flatten().tolist()
+                    value = [c_double_complex(val.real, val.imag) for val in value]
+                value = type(name_)(*value)
+        elif isinstance(value, Enum):
+            value = value.value
+        self.ctypes_ptr.contents.__setattr__(name, value)
+
+def c_p_pointer(cptr, targettype, targetshape=None):
+    targettype_ptr = convert_type_to_ctype(targettype)
+    if isinstance(targettype, Array):
+        if targetshape is None:
+            raise ValueError("target shape must be "
+                             "provided if target type is an array.")
+        # TODO: Add support for multi-dimensional shape of target variable
+        if py_is_dataclass(targettype._type):
+            return ctypes.cast(cptr.value, ctypes.py_object).value
+        newa = ctypes.cast(cptr, targettype_ptr)
+        return newa
+    else:
+        if py_is_dataclass(targettype):
+            if cptr.value is None:
+                return None
+            return ctypes.cast(cptr, ctypes.py_object).value
+
+        targettype_ptr = ctypes.POINTER(targettype_ptr)
+        newa = ctypes.cast(cptr, targettype_ptr)
+        if is_ctypes_Structure(targettype):
+            # return after wrapping newa inside PointerToStruct
+            return PointerToStruct(newa)
+        return newa
+
+def p_c_pointer(ptr, cptr):
+    if isinstance(ptr, ctypes.c_void_p):
+        cptr.value = ptr.value
+    else:
+        # assign the address of ptr in memory to cptr.value
+        # the case for numpy arrays converted to a pointer
+        cptr.value = id(ptr)
+
+def empty_c_void_p():
+    class ctypes_c_void_p(ctypes.c_void_p):
+
+        def __eq__(self, value):
+            return self.value == value.value
+
+        def __repr__(self):
+            return str(self.value)
+
+    return ctypes_c_void_p()
+
+def cptr_to_u64(cptr):
+    return ctypes.addressof(cptr)
+
+def u64_to_cptr(ivalue):
+    return ctypes.c_void_p(ivalue)
+
+def sizeof(arg):
+    return ctypes.sizeof(convert_type_to_ctype(arg))
+
+def ccallable(f):
+    if py_is_dataclass(f):
+        return convert_to_ctypes_Structure(f)
+    return f
+
+def ccallback(f):
+    return f
+
+class lpython:
+    """
+    The @lpython decorator compiles a given function using LPython.
+
+    The decorator should be used from CPython mode, i.e., when the module is
+    being run using CPython. When possible, it is recommended to use LPython
+    for the main program, and use the @cpython decorator from the LPython mode
+    to access CPython features that are not supported by LPython.
+    """
+
+    def __init__(self, function):
+        def get_rtlib_dir():
+            current_dir = os.path.dirname(os.path.abspath(__file__))
+            return os.path.join(current_dir, "..")
+
+        def get_type_info(arg):
+            # return_type -> (`type_format`, `variable type`, `array struct name`)
+            # See: https://docs.python.org/3/c-api/arg.html for more info on `type_format`
+            # `array struct name`: used by the C backend
+            if arg == f64:
+                return ('d', "double", 'r64')
+            elif arg == f32:
+                return ('f', "float", 'r32')
+            elif arg == i64:
+                return ('l', "long int", 'i64')
+            elif arg == i32:
+                return ('i', "int", 'i32')
+            elif arg == bool:
+                return ('p', "bool", '')
+            elif isinstance(arg, Array):
+                t = get_type_info(arg._type)
+                if t[2] == '':
+                    raise NotImplementedError("Type %r not implemented" % arg)
+                n = ''
+                if not isinstance(arg._dims, slice):
+                    n = arg._dims._name
+                return ('O', ["PyArrayObject *", "struct "+t[2]+" *", t[1]+" *", n], '')
+            else:
+                raise NotImplementedError("Type %r not implemented" % arg)
+
+        def get_data_type(t):
+            if isinstance(t, list):
+                return t[0]
+            else:
+                return t + " "
+
+        def get_typenum(t):
+            if t == "int":
+                return "NPY_INT"
+            elif t == "long int":
+                return "NPY_LONG"
+            elif t == "float":
+                return "NPY_FLOAT"
+            elif t == "double":
+                return "NPY_DOUBLE"
+            else:
+                raise NotImplementedError("Type %s not implemented" % t)
+
+        self.fn_name = function.__name__
+        # Get the source code of the function
+        source_code = getsource(function)
+        source_code = source_code[source_code.find('\n'):]
+
+        dir_name = "./lpython_decorator_" + self.fn_name
+        if not os.path.exists(dir_name):
+            os.mkdir(dir_name)
+        filename = dir_name + "/" + self.fn_name
+
+        # Open the file for writing
+        with open(filename + ".py", "w") as file:
+            # Write the Python source code to the file
+            file.write("@ccallable")
+            file.write(source_code)
+        # ----------------------------------------------------------------------
+        types = function.__annotations__
+        self.arg_type_formats = ""
+        self.return_type = ""
+        self.return_type_format = ""
+        self.array_as_return_type = ()
+        self.arg_types = {}
+        for t in types.keys():
+            if t == "return":
+                type = get_type_info(types[t])
+                if type[0] == 'O':
+                    self.array_as_return_type = type
+                    continue
+                else:
+                    self.return_type_format = type[0]
+                    self.return_type = type[1]
+            else:
+                type = get_type_info(types[t])
+                self.arg_type_formats += type[0]
+                self.arg_types[t] = type[1]
+        # ----------------------------------------------------------------------
+        # `_<fn_name>_return_value`: used as the return variables
+        variables_decl = "// Declare return variables and arguments\n"
+        if self.return_type != "":
+            variables_decl += "    " + get_data_type(self.return_type)  \
+                + "_" + self.fn_name + "_return_value;\n"
+        elif self.array_as_return_type:
+            variables_decl += "    " + self.array_as_return_type[1][1] + "_" \
+                + self.fn_name + "_return_value = malloc(sizeof(" \
+                + self.array_as_return_type[1][1][:-2] + "));\n"
+        else:
+            variables_decl = ""
+        # ----------------------------------------------------------------------
+        # `PyArray_AsCArray` is used to convert NumPy Arrays to C Arrays
+        # `fill_array_details` contains array operations to be
+        # performed on the arguments
+        # `parse_args` are used to capture the args from CPython
+        # `pass_args` are the args that are passed to the shared library function
+        fill_array_details = ""
+        parse_args = ""
+        pass_args = ""
+        numpy_init = ""
+        prefix_comma = False
+        for i, t in self.arg_types.items():
+            if prefix_comma:
+                parse_args += ", "
+                pass_args += ", "
+            prefix_comma = True
+            if isinstance(t, list):
+                if numpy_init == "":
+                    numpy_init = "// Initialize NumPy\n    import_array();\n\n    "
+                fill_array_details += f"""\n
+    // fill array details for {i}
+    if (PyArray_NDIM({i}) != 1) {{
+        PyErr_SetString(PyExc_TypeError,
+            "Only 1 dimension is implemented for now.");
+        return NULL;
+    }}
+
+    {t[1]}s_array_{i} = malloc(sizeof(struct r64));
+    {{
+        {t[2]}array;
+        // Create C arrays from numpy objects:
+        PyArray_Descr *descr = PyArray_DescrFromType(PyArray_TYPE({i}));
+        npy_intp dims[1];
+        if (PyArray_AsCArray((PyObject **)&{i}, (void *)&array, dims, 1, descr) < 0) {{
+            PyErr_SetString(PyExc_TypeError, "error converting to c array");
+            return NULL;
+        }}
+
+        s_array_{i}->data = array;
+        s_array_{i}->n_dims = 1;
+        s_array_{i}->dims[0].lower_bound = 0;
+        s_array_{i}->dims[0].length = dims[0];
+        s_array_{i}->is_allocated = false;
+    }}"""
+                pass_args += "s_array_" + i
+            else:
+                pass_args += i
+            variables_decl += "    " + get_data_type(t) + i + ";\n"
+            parse_args += "&" + i
+
+        if parse_args != "":
+            parse_args = f"""\n    // Parse the arguments from Python
+    if (!PyArg_ParseTuple(args, "{self.arg_type_formats}", {parse_args})) {{
+        return NULL;
+    }}"""
+
+        # ----------------------------------------------------------------------
+        # Handle the return variable if any; otherwise, return None
+        fill_return_details = ""
+        if self.return_type != "":
+            fill_return_details = f"""\n\n    // Call the C function
+    _{self.fn_name}_return_value = {self.fn_name}({pass_args});
+
+    // Build and return the result as a Python object
+    return Py_BuildValue("{self.return_type_format}", _{self.fn_name}_return_value);"""
+        else:
+            if self.array_as_return_type:
+                fill_return_details = f"""\n
+    _{self.fn_name}_return_value->data = malloc({self.array_as_return_type[1][3]
+        } * sizeof({self.array_as_return_type[1][2][:-2]}));
+    _{self.fn_name}_return_value->n_dims = 1;
+    _{self.fn_name}_return_value->dims[0].lower_bound = 0;
+    _{self.fn_name}_return_value->dims[0].length = {
+        self.array_as_return_type[1][3]};
+    _{self.fn_name}_return_value->is_allocated = false;
+
+    // Call the C function
+    {self.fn_name}({pass_args}, &_{self.fn_name}_return_value[0]);
+
+    // Build and return the result as a Python object
+    {{
+        npy_intp dims[] = {{{self.array_as_return_type[1][3]}}};
+        PyObject* numpy_array = PyArray_SimpleNewFromData(1, dims, {
+            get_typenum(self.array_as_return_type[1][2][:-2])},
+            _{self.fn_name}_return_value->data);
+        if (numpy_array == NULL) {{
+            PyErr_SetString(PyExc_TypeError, "error creating an array");
+            return NULL;
+        }}
+        return numpy_array;
+    }}"""
+            else:
+                fill_return_details = f"""{self.fn_name}({pass_args});
+    Py_RETURN_NONE;"""
+
+        # ----------------------------------------------------------------------
+        # Python wrapper for the Shared library
+        template = f"""// Python headers
+#include <Python.h>
+
+// NumPy C/API headers
+#define NPY_NO_DEPRECATED_API NPY_1_7_API_VERSION // remove warnings
+#include <numpy/ndarrayobject.h>
+
+// LPython generated C code
+#include "{self.fn_name}.h"
+
+// Define the Python module and method mappings
+static PyObject* define_module(PyObject* self, PyObject* args) {{
+    {numpy_init}{variables_decl}{parse_args}\
+{fill_array_details}{fill_return_details}
+}}
+
+// Define the module's method table
+static PyMethodDef module_methods[] = {{
+    {{"{self.fn_name}", define_module, METH_VARARGS,
+        "Handle arguments & return variable and call the function"}},
+    {{NULL, NULL, 0, NULL}}
+}};
+
+// Define the module initialization function
+static struct PyModuleDef module_def = {{
+    PyModuleDef_HEAD_INIT,
+    "lpython_module_{self.fn_name}",
+    "Shared library to use LPython generated functions",
+    -1,
+    module_methods
+}};
+
+PyMODINIT_FUNC PyInit_lpython_module_{self.fn_name}(void) {{
+    PyObject* module;
+
+    // Create the module object
+    module = PyModule_Create(&module_def);
+    if (!module) {{
+        return NULL;
+    }}
+
+    return module;
+}}
+"""
+        # ----------------------------------------------------------------------
+        # Write the C source code to the file
+        with open(filename + ".c", "w") as file:
+            file.write(template)
+
+        # ----------------------------------------------------------------------
+        # Generate the Shared library
+        # TODO: Use LLVM instead of C backend
+        r = os.system("lpython --show-c --disable-main "
+            + filename + ".py > " + filename + ".h")
+        assert r == 0, "Failed to create C file"
+
+        gcc_flags = ""
+        if platform.system() == "Linux":
+            gcc_flags = " -shared -fPIC "
+        elif platform.system() == "Darwin":
+            gcc_flags = " -bundle -flat_namespace -undefined suppress "
+        else:
+            raise NotImplementedError("Platform not implemented")
+
+        from numpy import get_include
+        from distutils.sysconfig import get_python_inc, get_python_lib, \
+            get_python_version
+        python_path = "-I" + get_python_inc() + " "
+        numpy_path = "-I" + get_include() + " "
+        rt_path_01 = "-I" + get_rtlib_dir() + "/../libasr/runtime "
+        rt_path_02 = "-L" + get_rtlib_dir() + " -Wl,-rpath " \
+            + get_rtlib_dir() + " -llpython_runtime "
+        python_lib = "-L" + get_python_lib() + "/../.. -lpython" + \
+            get_python_version() + " -lm"
+
+        r = os.system("gcc -g" +  gcc_flags + python_path + numpy_path +
+            filename + ".c -o lpython_module_" + self.fn_name + ".so " +
+            rt_path_01 + rt_path_02 + python_lib)
+        assert r == 0, "Failed to create the shared library"
+
+    def __call__(self, *args, **kwargs):
+        import sys; sys.path.append('.')
+        # import the symbol from the shared library
+        function = getattr(__import__("lpython_module_" + self.fn_name),
+            self.fn_name)
+        return function(*args, **kwargs)
diff --git a/src/runtime/pypi/setup.py b/src/runtime/pypi/setup.py
new file mode 100644
index 0000000000..334b827e6b
--- /dev/null
+++ b/src/runtime/pypi/setup.py
@@ -0,0 +1,49 @@
+"""
+# How to upload
+
+Create an API token:
+
+* Log into your PyPI, go to account settings > “API tokens” > “Add API token.”
+* Copy the token (starts with pypi-).
+
+Build and upload:
+
+    python -m build
+    twine upload dist/*
+
+It will ask for the token to authenticate.
+"""
+
+# The setup.py file is used as the build script for setuptools. Setuptools is a
+# package that allows you to easily build and distribute Python distributions.
+
+import setuptools
+
+# Define required packages. Alternatively, these could be defined in a separate
+# file and read in here.
+REQUIRED_PACKAGES=[]
+
+VERSION="0.0.16.0"
+
+# Read in the project description. We define this in the README file.
+with open("README.md", "r") as fh:
+    long_description = fh.read()
+
+setuptools.setup(
+    name="lpython",                                   # name of project
+    packages=setuptools.find_packages(),
+    install_requires=REQUIRED_PACKAGES,                         # all requirements used by this package
+    version=VERSION,                                            # project version, read from version.py
+    author="Ondrej Certik",                                     # Author, shown on PyPI
+    author_email="ondrej@certik.us",                            # Author email
+    description="Package for adding type information to python",# Short description of project
+    long_description=long_description,                          # Long description, shown on PyPI
+    long_description_content_type="text/markdown",              # Content type. Here, we used a markdown file.
+    url="https://github.com/lcompilers/lpython/",     # github path
+    classifiers=[                                               # Classifiers give pip metadata about your project. See https://pypi.org/classifiers/ for a list of available classifiers.
+        "Programming Language :: Python :: 3",
+        "License :: OSI Approved :: MIT License",
+        "Operating System :: OS Independent",
+    ],
+    python_requires='>=3.6',                                    # python version requirement
+)
diff --git a/src/runtime/random.py b/src/runtime/random.py
index 98e0b87c25..3e7367dc4e 100644
--- a/src/runtime/random.py
+++ b/src/runtime/random.py
@@ -1,4 +1,4 @@
-from ltypes import i32, f64, ccall
+from lpython import i32, f64, ccall
 
 e: f64 = 2.718281828459045235360287471352662497757
 eps: f64 = 1e-16
@@ -32,6 +32,30 @@ def random() -> f64:
 def _lfortran_random() -> f64:
     pass
 
+@overload
+def seed() -> None:
+    """
+    Initializes the random number generator.
+    """
+    _lfortran_init_random_clock()
+    return
+
+@overload
+def seed(seed: i32) -> None:
+    """
+    Initializes the random number generator.
+    """
+    _lfortran_init_random_seed(seed)
+    return
+
+@ccall
+def _lfortran_init_random_clock() -> None:
+    pass
+
+@ccall
+def _lfortran_init_random_seed(seed: i32) -> None:
+    pass
+
 def randrange(lower: i32, upper: i32) -> i32:
     """
     Return a random integer N such that `lower <= N < upper`.
diff --git a/src/runtime/statistics.py b/src/runtime/statistics.py
index 973c9b7815..61e1b9a9b5 100644
--- a/src/runtime/statistics.py
+++ b/src/runtime/statistics.py
@@ -1,4 +1,4 @@
-from ltypes import i32, f64, i64, f64, overload
+from lpython import i32, f64, i64, f64, overload
 
 
 @overload
@@ -15,7 +15,7 @@ def mean(x: list[i32]) -> f64:
 
     for i in range(k):
         sum += float(x[i])
-    return sum/k
+    return sum/f64(k)
 
 
 @overload
@@ -33,7 +33,7 @@ def mean(x: list[i64]) -> f64:
     for i in range(k):
         sum += float(x[i])
 
-    return sum/k
+    return sum/f64(k)
 
 
 @overload
@@ -50,7 +50,7 @@ def mean(x: list[f32]) -> f64:
 
     for i in range(k):
         sum += float(x[i])
-    return sum/k
+    return sum/f64(k)
 
 
 @overload
@@ -67,7 +67,7 @@ def mean(x: list[f64]) -> f64:
 
     for i in range(k):
         sum += x[i]
-    return sum/k
+    return sum/f64(k)
 
 
 @overload
@@ -177,7 +177,7 @@ def harmonic_mean(x: list[i32]) -> f64:
             raise Exception("Harmonic mean does not support negative values")
         sum += 1 / x[i]
 
-    return float(k/sum)
+    return f64(k)/sum
 
 @overload
 def harmonic_mean(x: list[i64]) -> f64:
@@ -196,8 +196,8 @@ def harmonic_mean(x: list[i64]) -> f64:
             return 0.0
         if x[i] < i64(0):
             raise Exception("Harmonic mean does not support negative values")
-        sum += 1 / x[i]
-    return k/sum
+        sum += i64(1) / x[i]
+    return f64(k)/sum
 
 @overload
 def harmonic_mean(x: list[f64]) -> f64:
@@ -216,12 +216,13 @@ def harmonic_mean(x: list[f64]) -> f64:
             return 0.0
         if x[i] < 0.0:
             raise Exception("Harmonic mean does not support negative values")
-        sum += 1 / x[i]
+        sum += 1.0 / x[i]
 
-    return k / sum
+    return f64(k) / sum
 
 
 # TODO: Use generics to support other types.
+@overload
 def mode(x: list[i32]) -> i32:
     k: i32 = len(x)
     c: i32
@@ -243,6 +244,29 @@ def mode(x: list[i32]) -> i32:
             ans = x[c]
     return ans
 
+@overload
+def mode(x: list[i64]) -> i64:
+    k: i32 = len(x)
+    c: i32
+    count: dict[i64, i32] = {i64(0): 0}
+
+    # insert keys in the dictionary
+    for c in range(k):
+        count[x[c]] = 0
+
+    # update the frequencies
+    for c in range(k):
+        count[x[c]] = count[x[c]] + 1
+
+    max_count: i32 = 0
+    ans: i64
+    for c in range(k):
+        if max_count < count[x[c]]:
+            max_count = count[x[c]]
+            ans = x[c]
+    return ans
+
+
 @overload
 def variance(x: list[f64]) -> f64:
     """
@@ -259,7 +283,7 @@ def variance(x: list[f64]) -> f64:
     i: i32
     for i in range(n):
         num += (x[i] - xmean)**2.0
-    return num / (n-1)
+    return num / f64(n-1)
 
 @overload
 def variance(x: list[i32]) -> f64:
@@ -277,7 +301,7 @@ def variance(x: list[i32]) -> f64:
     i: i32
     for i in range(n):
         num += (f64(x[i]) - xmean)**2.0
-    return num / (n-1)
+    return num / f64(n-1)
 
 
 @overload
@@ -311,7 +335,7 @@ def pvariance(x: list[f64]) -> f64:
     i: i32
     for i in range(n):
         num += (x[i] - xmean)**2.0
-    return num / n
+    return num / f64(n)
 
 @overload
 def pvariance(x: list[i32]) -> f64:
@@ -329,7 +353,7 @@ def pvariance(x: list[i32]) -> f64:
     i: i32
     for i in range(n):
         num += (f64(x[i]) - xmean)**2.0
-    return num / n
+    return num / f64(n)
 
 
 @overload
@@ -426,7 +450,7 @@ def covariance(x: list[i32], y: list[i32]) -> f64:
     i: i32
     for i in range(n):
         num += (f64(x[i]) - xmean) * (f64(y[i]) - ymean)
-    return num / (n-1)
+    return num / f64(n-1)
 
 @overload
 def covariance(x: list[f64], y: list[f64]) -> f64:
@@ -444,7 +468,7 @@ def covariance(x: list[f64], y: list[f64]) -> f64:
     i: i32
     for i in range(n):
         num += (x[i] - xmean) * (y[i] - ymean)
-    return num / (n-1)
+    return num / f64(n-1)
 
 @overload
 def linear_regression(x: list[i32], y: list[i32]) -> tuple[f64, f64]:
diff --git a/src/runtime/string.py b/src/runtime/string.py
new file mode 100644
index 0000000000..42aa5990a4
--- /dev/null
+++ b/src/runtime/string.py
@@ -0,0 +1,9 @@
+whitespace : str = ' \t\n\r\v\f'
+ascii_lowercase : str = 'abcdefghijklmnopqrstuvwxyz'
+ascii_uppercase : str  = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
+ascii_letters : str  = ascii_lowercase + ascii_uppercase
+digits : str = '0123456789'
+hexdigits : str = digits + 'abcdef' + 'ABCDEF'
+octdigits : str = '01234567'
+punctuation : str = r"""!"#$%&'()*+,-./:;<=>?@[\]^_`{|}~"""
+printable : str = digits + ascii_letters + punctuation + whitespace
diff --git a/src/runtime/sys.py b/src/runtime/sys.py
index 6bed9c2e81..b4d247da8b 100644
--- a/src/runtime/sys.py
+++ b/src/runtime/sys.py
@@ -1,4 +1,4 @@
-from ltypes import i32
+from lpython import i32
 
 def exit(error_code: i32):
     """
@@ -7,18 +7,7 @@ def exit(error_code: i32):
 
     quit(error_code)
 
-def _lpython_argv() -> list[str]:
-    # TODO: use argv as a global `list[str]` variable
-    """
-    Gets the list of command line arguments
-    """
-    argc: i32 = _lpython_get_argc()
-    argv: list[str]
-    i: i32
-    for i in range(argc):
-        argv.append(_lpython_get_argv(i))
-    return argv
-
+# >----------------------------------- argv ----------------------------------->
 @ccall
 def _lpython_get_argc() -> i32:
     pass
@@ -26,3 +15,18 @@ def _lpython_get_argc() -> i32:
 @ccall
 def _lpython_get_argv(index: i32) -> str:
     pass
+
+# def _lpython_argv() -> list[str]:
+#     """
+#     Gets the list of command line arguments
+#     """
+#     argc: i32 = _lpython_get_argc()
+#     argv: list[str] = []
+#     i: i32
+#     for i in range(argc):
+#         argv.append(_lpython_get_argv(i))
+#     return argv
+# 
+# argv: list[str] = _lpython_argv()
+
+# <----------------------------------- argv -----------------------------------<
diff --git a/src/runtime/time.py b/src/runtime/time.py
new file mode 100644
index 0000000000..87c37190cf
--- /dev/null
+++ b/src/runtime/time.py
@@ -0,0 +1,8 @@
+from lpython import f64, ccall
+
+def time() -> f64:
+    return _lfortran_time()
+
+@ccall
+def _lfortran_time() -> f64:
+    pass
diff --git a/src/tests/doctest.h b/src/tests/doctest.h
index e486be03f3..baaf031163 100644
--- a/src/tests/doctest.h
+++ b/src/tests/doctest.h
@@ -1880,7 +1880,7 @@ struct QueryData
 
 struct DOCTEST_INTERFACE IReporter
 {
-    // The constructor has to accept "const ContextOptions&" as a single argument
+    // The constructor must accept "const ContextOptions&" as a single argument
     // which has most of the options for the run + a pointer to the stdout stream
     // Reporter(const ContextOptions& in)
 
diff --git a/tests/assign2.py b/tests/assign2.py
index f1837d4d77..3742bcc9c6 100644
--- a/tests/assign2.py
+++ b/tests/assign2.py
@@ -1,4 +1,4 @@
-from ltypes import i32, i64, f32, f64
+from lpython import i32, i64, f32, f64
 
 i: i32 = 5
 i2: i64 = i64(53430903434)
diff --git a/tests/c_interop1.py b/tests/c_interop1.py
index 799b102ee8..bc5c8f13a6 100644
--- a/tests/c_interop1.py
+++ b/tests/c_interop1.py
@@ -1,4 +1,4 @@
-from ltypes import ccall, f32, f64, i32, i64
+from lpython import ccall, f32, f64, i32, i64
 
 @ccall
 def f(x: f64) -> f64:
diff --git a/tests/complex1.py b/tests/complex1.py
index 9cadd65d14..5b16a6c7eb 100644
--- a/tests/complex1.py
+++ b/tests/complex1.py
@@ -1,4 +1,4 @@
-from ltypes import c32, c64
+from lpython import c32, c64
 
 def test_complex():
     c: c32
diff --git a/tests/constants1.py b/tests/constants1.py
index 34d4eaff3d..3fa8b6d34f 100644
--- a/tests/constants1.py
+++ b/tests/constants1.py
@@ -1,4 +1,4 @@
-from ltypes import f32, i32, i64, f64
+from lpython import f32, i32, i64, f64
 
 def test_boz():
     b: str
@@ -24,8 +24,8 @@ def test_abs():
     a: i32
     a = abs(5)
     a = abs(-500)
-    a = abs(False)
-    a = abs(True)
+    a = abs(i32(False))
+    a = abs(i32(True))
     b: f32
     b = f32(abs(3.45))
     b = f32(abs(-5346.34))
diff --git a/tests/dictionary1.py b/tests/dictionary1.py
index 77d4aae151..b50e326d5a 100644
--- a/tests/dictionary1.py
+++ b/tests/dictionary1.py
@@ -33,7 +33,7 @@ def test_dict_pop():
     x = y.pop("a")
 
 
-def f(x: dict[i32, i32]):
+def f(x: InOut[dict[i32, i32]]):
     x[2] = 4
 
 def test_issue_204():
diff --git a/tests/doconcurrentloop_01.py b/tests/doconcurrentloop_01.py
index d84cef2bd5..cd67aa41dc 100644
--- a/tests/doconcurrentloop_01.py
+++ b/tests/doconcurrentloop_01.py
@@ -1,4 +1,4 @@
-from ltypes import f32, i32
+from lpython import f32, i32
 
 def triad(a: f32[:], b: f32[:], scalar: f32, c: f32[:]):
     N: i32
diff --git a/tests/errors/arrays_01.py b/tests/errors/arrays_01.py
new file mode 100644
index 0000000000..3c8867ae8c
--- /dev/null
+++ b/tests/errors/arrays_01.py
@@ -0,0 +1,17 @@
+from lpython import (i8, i32, dataclass)
+from numpy import empty, int8
+
+# test issue-2088
+
+@dataclass
+class LPBHV_small:
+    dim : i32 = 4
+    a : i8[4] = empty(4, dtype=int8)
+
+
+def g() -> None:
+    l2 : LPBHV_small = LPBHV_small(
+        4,
+        [i8(214), i8(157), i8(3), i8(146)])
+
+g()
diff --git a/tests/errors/arrays_02.py b/tests/errors/arrays_02.py
new file mode 100644
index 0000000000..fe29c19a88
--- /dev/null
+++ b/tests/errors/arrays_02.py
@@ -0,0 +1,28 @@
+from lpython import (i8, i32, dataclass)
+from numpy import (empty, int8)
+
+@dataclass
+class Foo:
+    a : i8[4] = empty(4, dtype=int8)
+    dim : i32 = 4
+
+def trinary_majority(x : Foo, y : Foo, z : Foo) -> Foo:
+    foo : Foo = Foo()
+    i : i32
+    for i in range(foo.dim):
+        foo.a[i] = (x.a[i] & y.a[i]) | (y.a[i] & z.a[i]) | (z.a[i] & x.a[i])
+    return foo
+
+
+t1 : Foo = Foo()
+t1.a = empty(4, dtype=int8)
+
+t2 : Foo = Foo()
+t2.a = empty(4, dtype=int8)
+
+t3 : Foo = Foo()
+t3.a = empty(4, dtype=int8)
+
+r1 : Foo = trinary_majority(t1, t2, t3)
+
+assert r1.a == t1.a
diff --git a/tests/errors/arrays_03.py b/tests/errors/arrays_03.py
new file mode 100644
index 0000000000..32e428ec60
--- /dev/null
+++ b/tests/errors/arrays_03.py
@@ -0,0 +1,8 @@
+from lpython import i16
+from numpy import empty, int16
+
+# checks dim mismatch for local array variable
+def main0():
+    x: i16[4] = empty([5], dtype=int16)
+
+main0()
diff --git a/tests/errors/arrays_04.py b/tests/errors/arrays_04.py
new file mode 100644
index 0000000000..cf3867e588
--- /dev/null
+++ b/tests/errors/arrays_04.py
@@ -0,0 +1,8 @@
+from lpython import i16
+from numpy import empty, int32
+
+# checks type mismatch for local array variable
+def main0():
+    x: i16[5] = empty([5], dtype=int32)
+
+main0()
diff --git a/tests/errors/arrays_05.py b/tests/errors/arrays_05.py
new file mode 100644
index 0000000000..714dde862f
--- /dev/null
+++ b/tests/errors/arrays_05.py
@@ -0,0 +1,8 @@
+from lpython import i16
+from numpy import empty, int16
+
+# checks multi-dim mismatch for local array variable
+def main0():
+    x: i16[5, 4] = empty([5, 3], dtype=int16)
+
+main0()
diff --git a/tests/errors/arrays_06.py b/tests/errors/arrays_06.py
new file mode 100644
index 0000000000..e96a218677
--- /dev/null
+++ b/tests/errors/arrays_06.py
@@ -0,0 +1,8 @@
+from lpython import i16
+from numpy import empty, int32
+
+# checks type mismatch for multi-dim local array variable
+def main0():
+    x: i16[5, 4] = empty([5, 4], dtype=int32)
+
+main0()
diff --git a/tests/errors/arrays_07.py b/tests/errors/arrays_07.py
new file mode 100644
index 0000000000..8d1973112b
--- /dev/null
+++ b/tests/errors/arrays_07.py
@@ -0,0 +1,8 @@
+from lpython import f32
+from numpy import empty, complex64
+
+# checks type mismatch for types apart from integers
+def main0():
+    x: f32[5, 4] = empty([5, 4], dtype=complex64)
+
+main0()
diff --git a/tests/errors/arrays_08.py b/tests/errors/arrays_08.py
new file mode 100644
index 0000000000..9472ae8969
--- /dev/null
+++ b/tests/errors/arrays_08.py
@@ -0,0 +1,11 @@
+from lpython import i32, i64, Const
+from numpy import empty, int64
+
+# checks multi-dim mismatch when constant variables are used as dimensions
+def main0():
+    p: Const[i32] = 100
+    q: Const[i32] = 120
+    r: Const[i32] = 200
+    x: i64[p, q, r] = empty([q, p, r], dtype=int64)
+
+main0()
diff --git a/tests/errors/arrays_09.py b/tests/errors/arrays_09.py
new file mode 100644
index 0000000000..546210b72b
--- /dev/null
+++ b/tests/errors/arrays_09.py
@@ -0,0 +1,11 @@
+from lpython import i32, i64
+from numpy import empty, int64
+
+# checks using runtime variables as value for multi-dims
+def main0():
+    p: i32 = 100
+    q: i32 = 120
+    r: i32 = 200
+    x: i64[p, q, r] = empty([q, p, r], dtype=int64)
+
+main0()
diff --git a/tests/errors/arrays_10.py b/tests/errors/arrays_10.py
new file mode 100644
index 0000000000..e2645cd9a9
--- /dev/null
+++ b/tests/errors/arrays_10.py
@@ -0,0 +1,11 @@
+from lpython import i32, i64
+from numpy import empty, int64
+
+# checks using runtime variables as value for multi-dims of emtpy()
+def main0():
+    p: i32 = 100
+    q: i32 = 120
+    r: i32 = 200
+    x: i64[100, 120, 200] = empty([q, p, r], dtype=int64)
+
+main0()
diff --git a/tests/errors/arrays_11.py b/tests/errors/arrays_11.py
new file mode 100644
index 0000000000..b61ed55d56
--- /dev/null
+++ b/tests/errors/arrays_11.py
@@ -0,0 +1,5 @@
+from lpython import i16
+from numpy import empty, int16
+
+# Checks dim mismatch for global array variables
+x: i16[4] = empty([5], dtype=int16)
diff --git a/tests/errors/arrays_12.py b/tests/errors/arrays_12.py
new file mode 100644
index 0000000000..bd9adffa2c
--- /dev/null
+++ b/tests/errors/arrays_12.py
@@ -0,0 +1,5 @@
+from lpython import i16
+from numpy import empty, int32
+
+# Checks type mismatch for global array variables
+x: i16[5] = empty([5], dtype=int32)
diff --git a/tests/errors/arrays_13.py b/tests/errors/arrays_13.py
new file mode 100644
index 0000000000..dcff63c289
--- /dev/null
+++ b/tests/errors/arrays_13.py
@@ -0,0 +1,9 @@
+from lpython import i16
+from numpy import empty, int16
+
+# checks dim mismatch for local array variable
+# when dim is specified as a constant integer
+def main0():
+    x: i16[4] = empty(5, dtype=int16)
+
+main0()
diff --git a/tests/errors/arrays_14.py b/tests/errors/arrays_14.py
new file mode 100644
index 0000000000..c4a13c006b
--- /dev/null
+++ b/tests/errors/arrays_14.py
@@ -0,0 +1,9 @@
+from lpython import i16
+from numpy import empty, int16
+
+# checks dim mismatch for local array variable
+# when dim is specified as a tuple
+def main0():
+    x: i16[4] = empty((5), dtype=int16)
+
+main0()
diff --git a/tests/errors/bindc_01.py b/tests/errors/bindc_01.py
index 02deb1b821..03f5794fac 100644
--- a/tests/errors/bindc_01.py
+++ b/tests/errors/bindc_01.py
@@ -1,4 +1,4 @@
-from ltypes import i32, CPtr, ccall
+from lpython import i32, CPtr, ccall
 
 @ccall
 def cptr_arg(arg1: CPtr):
diff --git a/tests/errors/bindc_02.py b/tests/errors/bindc_02.py
index b429779502..54ee4b8926 100644
--- a/tests/errors/bindc_02.py
+++ b/tests/errors/bindc_02.py
@@ -1,4 +1,4 @@
-from ltypes import i32, CPtr, ccall, dataclass
+from lpython import i32, CPtr, ccall, dataclass
 
 @dataclass
 class Struct:
diff --git a/tests/errors/bindc_03.py b/tests/errors/bindc_03.py
new file mode 100644
index 0000000000..2681889ce9
--- /dev/null
+++ b/tests/errors/bindc_03.py
@@ -0,0 +1,10 @@
+
+from lpython import c_p_pointer, CPtr, i32, Pointer, i16
+from numpy import array
+
+def fill_A(k: i32, n: i32, b: CPtr) -> None:
+    A: Pointer[i16[:]] = c_p_pointer(b, i16[n * k], array([k * n]))
+    i: i32; j: i32
+    for j in range(k):
+        for i in range(n):
+            A[j*n+i] = i16((i+j))
diff --git a/tests/errors/bindc_04.py b/tests/errors/bindc_04.py
new file mode 100644
index 0000000000..ec2c207226
--- /dev/null
+++ b/tests/errors/bindc_04.py
@@ -0,0 +1,24 @@
+from lpython import CPtr, i32, Pointer, i16
+from numpy import empty, int16
+
+def fill_A(k: i32, n: i32) -> None:
+    A: i16[n*k] = empty(n*k, dtype=int16)
+    i: i32; j: i32
+    for j in range(k):
+        for i in range(n):
+            A[j*n+i] = i16((i+j))
+
+def fill_B(k: i32, n: i32) -> None:
+    B: i16[k*n] = empty(k*n, dtype=int16)
+    i: i32; j: i32
+    for j in range(k):
+        for i in range(n):
+            B[j*n+i] = i16((i+j))
+
+def fill_C(k: i32, n: i32, b: CPtr) -> None:
+    nk: i32 = n * k
+    C: i16[nk] = empty(nk, dtype=int16)
+    i: i32; j: i32
+    for j in range(k):
+        for i in range(n):
+            C[j*n+i] = i16((i+j))
diff --git a/tests/errors/bindc_10e.py b/tests/errors/bindc_10e.py
new file mode 100644
index 0000000000..f8d9ca5c4b
--- /dev/null
+++ b/tests/errors/bindc_10e.py
@@ -0,0 +1,23 @@
+from lpython import i64, i16, CPtr, c_p_pointer, Pointer, sizeof, ccall, i32
+from bindc_10e_mod import S
+
+@ccall
+def _lfortran_malloc(size: i32) -> CPtr:
+    pass
+
+
+def alloc(buf_size:i64) -> CPtr:
+    return _lfortran_malloc(i32(buf_size))
+
+def main():
+    p1: CPtr = alloc(sizeof(S))
+    print(p1)
+    p2: Pointer[S] = c_p_pointer(p1, S)
+    p2.a = i16(5)
+    p2.b = i64(4)
+    print(p2.a, p2.b)
+    assert p2.a == i16(5)
+    assert p2.b == i64(4)
+
+
+main()
diff --git a/tests/errors/bindc_10e_mod.py b/tests/errors/bindc_10e_mod.py
new file mode 100644
index 0000000000..1b0f48e086
--- /dev/null
+++ b/tests/errors/bindc_10e_mod.py
@@ -0,0 +1,7 @@
+from lpython import packed, dataclass, i16, i64
+
+@packed
+@dataclass
+class S:
+    a: i16
+    b: i64
diff --git a/tests/errors/class01.py b/tests/errors/class01.py
new file mode 100644
index 0000000000..2b3a09ad67
--- /dev/null
+++ b/tests/errors/class01.py
@@ -0,0 +1,12 @@
+from lpython import i32
+
+class coord:
+    def __init__(self:"coord", x:i32, y:i32):
+        self.x: i32 = x 
+        self.y: i32 = y
+
+p1: coord = coord(1, 2)
+p2: coord = p1
+p2.x = 2
+print(p1.x)
+print(p2.x)
diff --git a/tests/errors/const_01.py b/tests/errors/const_01.py
index 224a20f4ba..79de7a7d23 100644
--- a/tests/errors/const_01.py
+++ b/tests/errors/const_01.py
@@ -1,4 +1,4 @@
-from ltypes import i32, Const
+from lpython import i32, Const
 
 def f():
     x: Const[i32]
diff --git a/tests/errors/const_02.py b/tests/errors/const_02.py
index 63fe1c3514..a4e7664a96 100644
--- a/tests/errors/const_02.py
+++ b/tests/errors/const_02.py
@@ -1,4 +1,4 @@
-from ltypes import i32, Const
+from lpython import i32, Const
 
 def f():
     x: Const[i32] = 4
diff --git a/tests/errors/cptr_01.py b/tests/errors/cptr_01.py
index 2f5a4c3d78..bb37ac79cd 100644
--- a/tests/errors/cptr_01.py
+++ b/tests/errors/cptr_01.py
@@ -1,4 +1,4 @@
-from ltypes import CPtr, empty_c_void_p
+from lpython import CPtr, empty_c_void_p
 
 def f():
     x: CPtr = empty_c_void_p()
diff --git a/tests/errors/def_func_01.py b/tests/errors/def_func_01.py
new file mode 100644
index 0000000000..4611f33a96
--- /dev/null
+++ b/tests/errors/def_func_01.py
@@ -0,0 +1,5 @@
+from lpython import i32
+def func_01(x : str) -> str:
+    print(x)
+
+func_01()
\ No newline at end of file
diff --git a/tests/errors/def_func_02.py b/tests/errors/def_func_02.py
new file mode 100644
index 0000000000..c94e00a5a5
--- /dev/null
+++ b/tests/errors/def_func_02.py
@@ -0,0 +1,5 @@
+from lpython import i32
+def func_02(x : i32 ,y : i32) -> i32 :
+    print(x,y)
+
+func_02()
\ No newline at end of file
diff --git a/tests/errors/def_func_03.py b/tests/errors/def_func_03.py
new file mode 100644
index 0000000000..da885e3c45
--- /dev/null
+++ b/tests/errors/def_func_03.py
@@ -0,0 +1,5 @@
+from lpython import i32
+def func_03(x : i32 ,y : i32) -> i32 :
+    print(x,y)
+
+func_03(1)
\ No newline at end of file
diff --git a/tests/errors/def_func_04.py b/tests/errors/def_func_04.py
new file mode 100644
index 0000000000..f7f9f81d47
--- /dev/null
+++ b/tests/errors/def_func_04.py
@@ -0,0 +1,5 @@
+from lpython import i32
+def func_04(x : i32 ,y : i32) -> i32 :
+    print(x,y)
+
+func_04(y=3)
\ No newline at end of file
diff --git a/tests/errors/def_func_05.py b/tests/errors/def_func_05.py
new file mode 100644
index 0000000000..3fb86d7d7d
--- /dev/null
+++ b/tests/errors/def_func_05.py
@@ -0,0 +1,5 @@
+from lpython import i32
+def func_05(x : i32 ,y : i32,z : i32) -> i32 :
+    print(x,y,z)
+
+func_05(1,2)
\ No newline at end of file
diff --git a/tests/errors/def_func_06.py b/tests/errors/def_func_06.py
new file mode 100644
index 0000000000..babf3eb065
--- /dev/null
+++ b/tests/errors/def_func_06.py
@@ -0,0 +1,5 @@
+from lpython import i32
+def func_05(x : i32 ,y : i32,z : i32) -> i32 :
+    print(x,y,z)
+
+func_05(z=3)
\ No newline at end of file
diff --git a/tests/errors/enum_01.py b/tests/errors/enum_01.py
index 589c4b2689..dcc2bcf462 100644
--- a/tests/errors/enum_01.py
+++ b/tests/errors/enum_01.py
@@ -1,4 +1,4 @@
-from ltypes import f64, ccall
+from lpython import f64, ccall
 from enum import Enum
 
 @ccall
diff --git a/tests/errors/enum_02.py b/tests/errors/enum_02.py
index 055c5e5259..139b281195 100644
--- a/tests/errors/enum_02.py
+++ b/tests/errors/enum_02.py
@@ -1,4 +1,4 @@
-from ltypes import i32, ccall
+from lpython import i32, ccall
 from enum import Enum
 
 @ccall
diff --git a/tests/errors/func_01.py b/tests/errors/func_01.py
index a60e80d505..8db760e63f 100644
--- a/tests/errors/func_01.py
+++ b/tests/errors/func_01.py
@@ -1,4 +1,4 @@
-from ltypes import i32
+from lpython import i32
 
 def f(i: i32):
     print(i)
diff --git a/tests/errors/func_02.py b/tests/errors/func_02.py
new file mode 100644
index 0000000000..75d71ec13b
--- /dev/null
+++ b/tests/errors/func_02.py
@@ -0,0 +1,5 @@
+from lpython import i32, In
+
+def f(n: In[i32]):
+    n = 5
+    print(n)
diff --git a/tests/errors/func_03.py b/tests/errors/func_03.py
new file mode 100644
index 0000000000..2ae09056b3
--- /dev/null
+++ b/tests/errors/func_03.py
@@ -0,0 +1,4 @@
+from lpython import i32
+
+def f(l: list[i32]):
+    l[5] = 5
diff --git a/tests/errors/func_04.py b/tests/errors/func_04.py
new file mode 100644
index 0000000000..47b35c8b5a
--- /dev/null
+++ b/tests/errors/func_04.py
@@ -0,0 +1,4 @@
+from lpython import i32
+
+def f(l: list[i32]):
+    l.append(5)
diff --git a/tests/errors/func_05.py b/tests/errors/func_05.py
new file mode 100644
index 0000000000..e5916cab60
--- /dev/null
+++ b/tests/errors/func_05.py
@@ -0,0 +1,5 @@
+from lpython import i32, InOut
+
+def f(n: InOut[i32]):
+    n = 5
+    print(n)
diff --git a/tests/errors/func_06.py b/tests/errors/func_06.py
new file mode 100644
index 0000000000..f648db5b24
--- /dev/null
+++ b/tests/errors/func_06.py
@@ -0,0 +1,7 @@
+def init_X(m:i32, n: i32, b: CPtr, m: i32) -> None:
+    B: Pointer[i16[m*n]] = c_p_pointer(b, i16[m*n], array([m*n]))
+    i: i32
+    j: i32
+    for i in range(m):
+        for j in range(n):
+            B[i * n + j] = i16((i + j) % m)
diff --git a/tests/errors/func_07.py b/tests/errors/func_07.py
new file mode 100644
index 0000000000..01ebc288f9
--- /dev/null
+++ b/tests/errors/func_07.py
@@ -0,0 +1,19 @@
+from lpython import i32, dataclass
+
+# test issue 1930
+
+@dataclass
+class StringIO:
+    _buf     : str
+    _0cursor : i32 = i32(0)
+    _len     : i32 = i32(0)
+
+def __post_init__(this: StringIO):
+    this._len = len(this._buf)
+
+if __name__ == '__main__':
+    integer_asr : str = '(Integer 4 [])'
+    test_dude   : StringIO = StringIO(integer_asr, 0, 0)
+    __post_init__(test_dude)
+    assert test_dude._buf == integer_asr
+    assert test_dude._len == len(integer_asr)
diff --git a/tests/errors/func_08.py b/tests/errors/func_08.py
new file mode 100644
index 0000000000..98ccf5df24
--- /dev/null
+++ b/tests/errors/func_08.py
@@ -0,0 +1,5 @@
+from lpython import InOut
+
+def main0(x: In[In[i32]]):
+    print(x)
+main0()
diff --git a/tests/errors/generics_error_01.py b/tests/errors/generics_error_01.py
index 9db8eeb1da..d4370a1e04 100644
--- a/tests/errors/generics_error_01.py
+++ b/tests/errors/generics_error_01.py
@@ -1,4 +1,4 @@
-from ltypes import TypeVar
+from lpython import TypeVar
 
 T = TypeVar('T')
 
diff --git a/tests/errors/generics_error_02.py b/tests/errors/generics_error_02.py
index 66aa819b4a..84b0778081 100644
--- a/tests/errors/generics_error_02.py
+++ b/tests/errors/generics_error_02.py
@@ -1,4 +1,4 @@
-from ltypes import TypeVar, f64, i32, restriction
+from lpython import TypeVar, f64, i32, restriction
 
 T = TypeVar('T')
 
diff --git a/tests/errors/generics_error_03.py b/tests/errors/generics_error_03.py
index dba9fd04ac..85210dbc3a 100644
--- a/tests/errors/generics_error_03.py
+++ b/tests/errors/generics_error_03.py
@@ -1,4 +1,4 @@
-from ltypes import TypeVar, f64, i32, restriction
+from lpython import TypeVar, f64, i32, restriction
 
 T = TypeVar('T')
 
diff --git a/tests/errors/kwargs_01_error.py b/tests/errors/kwargs_01_error.py
index 6329caa5a5..7a8b218fc6 100644
--- a/tests/errors/kwargs_01_error.py
+++ b/tests/errors/kwargs_01_error.py
@@ -1,4 +1,4 @@
-from ltypes import i32, i64, f32, f64, c64, overload
+from lpython import i32, i64, f32, f64, c64, overload
 
 def func01(a: i32, b: i64) -> i64:
     return int(a) + b
diff --git a/tests/errors/kwargs_02_error.py b/tests/errors/kwargs_02_error.py
index b9cffc4fe8..c513cdcdd8 100644
--- a/tests/errors/kwargs_02_error.py
+++ b/tests/errors/kwargs_02_error.py
@@ -1,4 +1,4 @@
-from ltypes import f32, f64, c64
+from lpython import f32, f64, c64
 
 def func02(a: f32, b: f64, c: c64) -> c64:
     return complex(float(a), b) + c
diff --git a/tests/errors/kwargs_03_error.py b/tests/errors/kwargs_03_error.py
index ff3807f94c..58f4ee31c7 100644
--- a/tests/errors/kwargs_03_error.py
+++ b/tests/errors/kwargs_03_error.py
@@ -1,4 +1,4 @@
-from ltypes import i32, i64, f32, f64, c64, overload
+from lpython import i32, i64, f32, f64, c64, overload
 
 def func01(a: i32, b: i64) -> i64:
     return int(a) + b
diff --git a/tests/errors/lambda_01.py b/tests/errors/lambda_01.py
new file mode 100644
index 0000000000..8a28334447
--- /dev/null
+++ b/tests/errors/lambda_01.py
@@ -0,0 +1,9 @@
+
+from lpython import i32, Callable
+
+def main0():
+    x: Callable[[i32, i32, i32], i32] = lambda p, q, r, s: p +  q + r + s
+
+    a123 = x(1, 2, 3)
+
+main0()
diff --git a/tests/errors/loop_01.py b/tests/errors/loop_01.py
index 174a29955b..22489bea41 100644
--- a/tests/errors/loop_01.py
+++ b/tests/errors/loop_01.py
@@ -1,4 +1,4 @@
-from ltypes import i16
+from lpython import i16
 
 def test_increment():
     i: i16
diff --git a/tests/errors/loop_02.py b/tests/errors/loop_02.py
index cc3ad6f508..a79f95a307 100644
--- a/tests/errors/loop_02.py
+++ b/tests/errors/loop_02.py
@@ -1,4 +1,4 @@
-from ltypes import i16
+from lpython import i16
 
 def test_increment():
     i: i16
diff --git a/tests/errors/loop_03.py b/tests/errors/loop_03.py
new file mode 100644
index 0000000000..c42a2663bb
--- /dev/null
+++ b/tests/errors/loop_03.py
@@ -0,0 +1,7 @@
+def main():
+    i: i32
+    for i in range(5):
+        print(i)
+        i=i*10
+
+main()
\ No newline at end of file
diff --git a/tests/errors/prefix_string_01.py b/tests/errors/prefix_string_01.py
new file mode 100644
index 0000000000..a790d186b5
--- /dev/null
+++ b/tests/errors/prefix_string_01.py
@@ -0,0 +1,5 @@
+def main():
+    # python2 syntax should result in a syntax error
+    print "Hello", "World" 
+    
+main()
\ No newline at end of file
diff --git a/tests/errors/prefix_string_02.py b/tests/errors/prefix_string_02.py
new file mode 100644
index 0000000000..fcaf1376d5
--- /dev/null
+++ b/tests/errors/prefix_string_02.py
@@ -0,0 +1,9 @@
+from lpython import i32
+
+# fix difference between lpython and cpython in prefix string grammar
+# Prefix should be attached to the quote without any whitespace.
+
+def main():
+    print(r "Hello World")
+
+main()
\ No newline at end of file
diff --git a/tests/errors/string_01.py b/tests/errors/string_01.py
new file mode 100644
index 0000000000..fcfc9eb1bf
--- /dev/null
+++ b/tests/errors/string_01.py
@@ -0,0 +1,5 @@
+def test_tuple_indicing_in_str():
+    x: str = "abcdefgh"
+    print(x[2, 5])
+
+test_tuple_indicing_in_str()
diff --git a/tests/errors/string_02.py b/tests/errors/string_02.py
new file mode 100644
index 0000000000..18c06077aa
--- /dev/null
+++ b/tests/errors/string_02.py
@@ -0,0 +1,9 @@
+from lpython import i32 
+
+def test_wrong_argument_in_join():
+    x: str = "ab"
+    p: i32 = 1
+    res:str = x.join(p)
+    print(res)
+
+test_wrong_argument_in_join()
\ No newline at end of file
diff --git a/tests/errors/structs_01.py b/tests/errors/structs_01.py
index 1b7cc1e5c5..e3bc65a791 100644
--- a/tests/errors/structs_01.py
+++ b/tests/errors/structs_01.py
@@ -1,4 +1,4 @@
-from ltypes import i32, i8, packed, dataclass
+from lpython import i32, i8, packed, dataclass
 
 @packed(aligned=5)
 @dataclass
diff --git a/tests/errors/structs_02.py b/tests/errors/structs_02.py
new file mode 100644
index 0000000000..5c0c1010a0
--- /dev/null
+++ b/tests/errors/structs_02.py
@@ -0,0 +1,11 @@
+from lpython import i32, dataclass
+
+@dataclass
+class S:
+    x: i32
+
+def main0():
+    s: S
+    s.x = 2
+
+main0()
diff --git a/tests/errors/structs_03.py b/tests/errors/structs_03.py
new file mode 100644
index 0000000000..467478f859
--- /dev/null
+++ b/tests/errors/structs_03.py
@@ -0,0 +1,10 @@
+from lpython import i32, dataclass
+
+@dataclass
+class S:
+    x: i32
+
+def main0():
+    s: S = S(y=2)
+
+main0()
diff --git a/tests/errors/structs_04.py b/tests/errors/structs_04.py
new file mode 100644
index 0000000000..b9ebf4e14d
--- /dev/null
+++ b/tests/errors/structs_04.py
@@ -0,0 +1,11 @@
+from lpython import i32, dataclass
+
+@dataclass
+class S:
+    x: i32
+    y: i32
+
+def main0():
+    s: S = S(24, x=2)
+
+main0()
diff --git a/tests/errors/structs_06.py b/tests/errors/structs_06.py
new file mode 100644
index 0000000000..6a92987bac
--- /dev/null
+++ b/tests/errors/structs_06.py
@@ -0,0 +1,11 @@
+from lpython import i32, dataclass
+
+@dataclass
+class S:
+    x: i32
+    y: i32
+
+def main0():
+    s: S = S(2, 3, 4, 5)
+
+main0()
diff --git a/tests/errors/structs_07.py b/tests/errors/structs_07.py
new file mode 100644
index 0000000000..71e22ab95e
--- /dev/null
+++ b/tests/errors/structs_07.py
@@ -0,0 +1,11 @@
+from lpython import i32, dataclass
+
+@dataclass
+class S:
+    x: i32
+    y: i32
+
+def main0():
+    s: S = S(y=2)
+
+main0()
diff --git a/tests/errors/structs_08.py b/tests/errors/structs_08.py
new file mode 100644
index 0000000000..ddd033b685
--- /dev/null
+++ b/tests/errors/structs_08.py
@@ -0,0 +1,23 @@
+from lpython import dataclass, i32
+
+
+@dataclass
+class StringIO:
+    _buf     : str = ''
+    _0cursor : i32 = 10
+    _len     : i32 = 1
+
+
+def test_issue_1928_error():
+    integer_asr : str = '(Integer 4 [])'
+    test_dude3 : StringIO = StringIO(integer_asr, 3, 5, 2)
+    assert test_dude3._buf == integer_asr
+    assert test_dude3._len == 5
+    assert test_dude3._0cursor == 3
+    test_dude3._len = 100
+    assert test_dude3._len == 100
+    test_dude3._0cursor = 31
+    assert test_dude3._0cursor == 31
+
+
+test_issue_1928_error()
diff --git a/tests/errors/structs_09.py b/tests/errors/structs_09.py
new file mode 100644
index 0000000000..cd805ceac3
--- /dev/null
+++ b/tests/errors/structs_09.py
@@ -0,0 +1,15 @@
+from lpython import dataclass, i32
+
+@dataclass
+class StringIO:
+    _buf     : str = ''
+    _len     : i32 = 5
+
+def read() -> i32:
+    return 5
+
+def test_call_to_struct_member():
+    fd : StringIO = StringIO('(Integer 4 [])', 5)
+    bytes_read: i32 = fd.read()
+
+test_call_to_struct_member()
diff --git a/tests/errors/structs_10.py b/tests/errors/structs_10.py
new file mode 100644
index 0000000000..de94876b89
--- /dev/null
+++ b/tests/errors/structs_10.py
@@ -0,0 +1,8 @@
+from lpython import dataclass, i32
+
+@dataclass
+class StringIO:
+    _len: i32
+
+    def print_len(self: StringIO):
+        print(self._len)
diff --git a/tests/errors/test_annassign_01.py b/tests/errors/test_annassign_01.py
new file mode 100644
index 0000000000..0721a1eeae
--- /dev/null
+++ b/tests/errors/test_annassign_01.py
@@ -0,0 +1,4 @@
+def test_annassign_01():
+    a: Optional[i32] = 5
+
+test_annassign_01()
diff --git a/tests/errors/test_annassign_02.py b/tests/errors/test_annassign_02.py
new file mode 100644
index 0000000000..a16729802e
--- /dev/null
+++ b/tests/errors/test_annassign_02.py
@@ -0,0 +1,4 @@
+def test_annassign_02():
+    hex_pat : Pattern[str] = r'-?0[xX]+'
+
+test_annassign_02()
diff --git a/tests/errors/test_annassign_03.py b/tests/errors/test_annassign_03.py
new file mode 100644
index 0000000000..8903fdaeb1
--- /dev/null
+++ b/tests/errors/test_annassign_03.py
@@ -0,0 +1,8 @@
+@dataclass
+class LasrLexer:
+    _len: i32
+
+def test_annassign_03():
+    lexer : InOut[LasrLexer] = LasrLexer(5)
+
+test_annassign_03()
diff --git a/tests/errors/test_annassign_type_mismatch.py b/tests/errors/test_annassign_type_mismatch.py
index 2237c3ae42..1540988166 100644
--- a/tests/errors/test_annassign_type_mismatch.py
+++ b/tests/errors/test_annassign_type_mismatch.py
@@ -1,4 +1,4 @@
-from ltypes import i32
+from lpython import i32
 
 def f():
     x: i32[4] = [1, 2, 3, 4]
diff --git a/tests/errors/test_annassign_type_mismatch2.py b/tests/errors/test_annassign_type_mismatch2.py
index 004804626f..a925c9a5c0 100644
--- a/tests/errors/test_annassign_type_mismatch2.py
+++ b/tests/errors/test_annassign_type_mismatch2.py
@@ -1,4 +1,4 @@
-from ltypes import f64
+from lpython import f64
 
 def f():
     x: f64[5] = [1.0, 2.0, 3.0, 4.0, 5.0]
diff --git a/tests/errors/test_append_type_mismatch.py b/tests/errors/test_append_type_mismatch.py
index b7212ab921..217b3c5b8c 100644
--- a/tests/errors/test_append_type_mismatch.py
+++ b/tests/errors/test_append_type_mismatch.py
@@ -1,4 +1,4 @@
-from ltypes import i32
+from lpython import i32
 
 def f():
     l: list[i32]
diff --git a/tests/errors/test_assign4.py b/tests/errors/test_assign4.py
index 0842d754c5..11d4d35a7a 100644
--- a/tests/errors/test_assign4.py
+++ b/tests/errors/test_assign4.py
@@ -1,4 +1,4 @@
-from ltypes import i32, f64
+from lpython import i32, f64
 
 def test_e1():
     x: i32
diff --git a/tests/errors/test_assign8.py b/tests/errors/test_assign8.py
index 94764e4ae8..b9941a3c47 100644
--- a/tests/errors/test_assign8.py
+++ b/tests/errors/test_assign8.py
@@ -1,4 +1,4 @@
-from ltypes import c32
+from lpython import c32
 
 def f():
     c: c32
diff --git a/tests/errors/test_assign9.py b/tests/errors/test_assign9.py
new file mode 100644
index 0000000000..e5f8d90e73
--- /dev/null
+++ b/tests/errors/test_assign9.py
@@ -0,0 +1,5 @@
+def f(x: i32) -> i32:
+    x = 2
+    return x * x
+
+print(f(3)) # => 4
diff --git a/tests/errors/test_async.py b/tests/errors/test_async.py
new file mode 100644
index 0000000000..a435c814aa
--- /dev/null
+++ b/tests/errors/test_async.py
@@ -0,0 +1,4 @@
+async def test_async():
+    print("done")
+
+test_async()
\ No newline at end of file
diff --git a/tests/errors/test_binop3.py b/tests/errors/test_binop3.py
index f4c460831b..f8a7109e3a 100644
--- a/tests/errors/test_binop3.py
+++ b/tests/errors/test_binop3.py
@@ -1,4 +1,4 @@
-from ltypes import c32
+from lpython import c32
 
 def test_issue_1524():
     y: c32
diff --git a/tests/errors/test_bitwise_on_complex.py b/tests/errors/test_bitwise_on_complex.py
index 2a0e16ecfc..10a86f275e 100644
--- a/tests/errors/test_bitwise_on_complex.py
+++ b/tests/errors/test_bitwise_on_complex.py
@@ -1,4 +1,4 @@
-from ltypes import c32
+from lpython import c32
 
 def f():
     c1: c32
diff --git a/tests/errors/test_bitwise_on_float.py b/tests/errors/test_bitwise_on_float.py
index ec3f850f51..089548b863 100644
--- a/tests/errors/test_bitwise_on_float.py
+++ b/tests/errors/test_bitwise_on_float.py
@@ -1,4 +1,4 @@
-from ltypes import f32
+from lpython import f32
 
 def f():
     f1: f32
diff --git a/tests/errors/test_compare_01.py b/tests/errors/test_compare_01.py
new file mode 100644
index 0000000000..1a0c91f4fe
--- /dev/null
+++ b/tests/errors/test_compare_01.py
@@ -0,0 +1,8 @@
+from lpython import i32, f32, i16
+
+def f():
+    x: i32 = 10
+    y: i32 = 13
+    print(i16(x) > f32(y))
+
+f()
diff --git a/tests/errors/test_compare_02.py b/tests/errors/test_compare_02.py
new file mode 100644
index 0000000000..c5bad33482
--- /dev/null
+++ b/tests/errors/test_compare_02.py
@@ -0,0 +1,8 @@
+from lpython import i32, u32
+
+def f():
+    x: i32 = 10
+    y: u32 = u32(13)
+    print(x > y)
+
+f()
diff --git a/tests/errors/test_const_dict.py b/tests/errors/test_const_dict.py
new file mode 100644
index 0000000000..7c0e33d33e
--- /dev/null
+++ b/tests/errors/test_const_dict.py
@@ -0,0 +1,9 @@
+from lpython import i32, f64, dict, Const
+
+
+def test_const_dict():
+    CONST_DICTIONARY: Const[dict[str, i32]] = {"a": 1, "b": 2, "c": 3}
+    print(CONST_DICTIONARY.pop("a"))
+
+
+test_const_dict()
diff --git a/tests/errors/test_const_list_append.py b/tests/errors/test_const_list_append.py
new file mode 100644
index 0000000000..c0c8e50e43
--- /dev/null
+++ b/tests/errors/test_const_list_append.py
@@ -0,0 +1,10 @@
+from lpython import i32, list, Const
+
+
+def test_const_list_append():
+    CONST_INTEGER_LIST: Const[list[i32]] = [1, 2, 3, 4, 5, 1]
+
+    CONST_INTEGER_LIST.append(6)
+
+
+test_const_list_append()
diff --git a/tests/errors/test_const_list_clear.py b/tests/errors/test_const_list_clear.py
new file mode 100644
index 0000000000..e233606f10
--- /dev/null
+++ b/tests/errors/test_const_list_clear.py
@@ -0,0 +1,10 @@
+from lpython import i32, list, Const
+
+
+def test_const_list_clear():
+    CONST_INTEGER_LIST: Const[list[i32]] = [1, 2, 3, 4, 5, 1]
+
+    CONST_INTEGER_LIST.clear()
+
+
+test_const_list_clear()
diff --git a/tests/errors/test_const_list_insert.py b/tests/errors/test_const_list_insert.py
new file mode 100644
index 0000000000..72f8b51e55
--- /dev/null
+++ b/tests/errors/test_const_list_insert.py
@@ -0,0 +1,10 @@
+from lpython import i32, list, Const
+
+
+def test_const_list_insert():
+    CONST_INTEGER_LIST: Const[list[i32]] = [1, 2, 3, 4, 5, 1]
+
+    CONST_INTEGER_LIST.insert(3, 8)
+
+
+test_const_list_insert()
diff --git a/tests/errors/test_const_list_pop.py b/tests/errors/test_const_list_pop.py
new file mode 100644
index 0000000000..fa405a7bc6
--- /dev/null
+++ b/tests/errors/test_const_list_pop.py
@@ -0,0 +1,10 @@
+from lpython import i32, list, Const
+
+
+def test_const_list_pop():
+    CONST_INTEGER_LIST: Const[list[i32]] = [1, 2, 3, 4, 5, 1]
+
+    CONST_INTEGER_LIST.pop()
+
+
+test_const_list_pop()
diff --git a/tests/errors/test_const_list_remove.py b/tests/errors/test_const_list_remove.py
new file mode 100644
index 0000000000..6073eef00c
--- /dev/null
+++ b/tests/errors/test_const_list_remove.py
@@ -0,0 +1,10 @@
+from lpython import i32, list, Const
+
+
+def test_const_list_remove():
+    CONST_INTEGER_LIST: Const[list[i32]] = [1, 2, 3, 4, 5, 1]
+
+    CONST_INTEGER_LIST.remove(1)
+
+
+test_const_list_remove()
diff --git a/tests/errors/test_const_list_reverse.py b/tests/errors/test_const_list_reverse.py
new file mode 100644
index 0000000000..f1436b04ac
--- /dev/null
+++ b/tests/errors/test_const_list_reverse.py
@@ -0,0 +1,10 @@
+from lpython import i32, list, Const
+
+
+def test_const_list_reverse():
+    CONST_INTEGER_LIST: Const[list[i32]] = [1, 2, 3, 4, 5, 1]
+
+    CONST_INTEGER_LIST.reverse()
+
+
+test_const_list_reverse()
\ No newline at end of file
diff --git a/tests/errors/test_dict10.py b/tests/errors/test_dict10.py
index 02aef37221..a923e78c96 100644
--- a/tests/errors/test_dict10.py
+++ b/tests/errors/test_dict10.py
@@ -1,4 +1,4 @@
-from ltypes import c32, f64
+from lpython import c32, f64
 
 def test_dict():
     d: dict[c32, f64] = {}
diff --git a/tests/errors/test_dict11.py b/tests/errors/test_dict11.py
index aaaffeeff0..72cc69befb 100644
--- a/tests/errors/test_dict11.py
+++ b/tests/errors/test_dict11.py
@@ -1,4 +1,4 @@
-from ltypes import c64, f32
+from lpython import c64, f32
 
 def test_dict():
     d: dict[c64, f32] = {}
diff --git a/tests/errors/test_dict14.py b/tests/errors/test_dict14.py
new file mode 100644
index 0000000000..7a10bb5704
--- /dev/null
+++ b/tests/errors/test_dict14.py
@@ -0,0 +1,8 @@
+from lpython import i32
+
+def key_not_present():
+    x: dict[i32, i32] = {}
+    x = {1: 1, 2: 2}
+    print(x[10])
+
+key_not_present()
diff --git a/tests/errors/test_dict15.py b/tests/errors/test_dict15.py
new file mode 100644
index 0000000000..7818753833
--- /dev/null
+++ b/tests/errors/test_dict15.py
@@ -0,0 +1,8 @@
+from lpython import i32
+
+def test_dict_pop():
+    d: dict[i32, i32] = {1: 2}
+    d.pop(1)
+    d.pop(1)
+
+test_dict_pop()
diff --git a/tests/errors/test_dict16.py b/tests/errors/test_dict16.py
new file mode 100644
index 0000000000..51a19e33f9
--- /dev/null
+++ b/tests/errors/test_dict16.py
@@ -0,0 +1,8 @@
+from lpython import i32
+
+def test_dict_pop():
+    d: dict[str, i32] = {'a': 2}
+    d.pop('a')
+    d.pop('a')
+
+test_dict_pop()
diff --git a/tests/errors/test_dict8.py b/tests/errors/test_dict8.py
index f29be7e459..d391502194 100644
--- a/tests/errors/test_dict8.py
+++ b/tests/errors/test_dict8.py
@@ -1,4 +1,4 @@
-from ltypes import f64
+from lpython import f64
 
 def test_dict():
     d: dict[f64, f64] = {}
diff --git a/tests/errors/test_dict9.py b/tests/errors/test_dict9.py
index 857a5e7f00..4486b255fd 100644
--- a/tests/errors/test_dict9.py
+++ b/tests/errors/test_dict9.py
@@ -1,4 +1,4 @@
-from ltypes import f32, f64
+from lpython import f32, f64
 
 def test_dict():
     d: dict[f32, f64] = {}
diff --git a/tests/errors/test_dict_key1.py b/tests/errors/test_dict_key1.py
new file mode 100644
index 0000000000..335d4909f0
--- /dev/null
+++ b/tests/errors/test_dict_key1.py
@@ -0,0 +1,6 @@
+from lpython import i32
+
+def test_dict_key1():
+    my_dict: dict[list[i32], str] = {[1, 2]: "first", [3, 4]: "second"}
+
+test_dict_key1()
\ No newline at end of file
diff --git a/tests/errors/test_dict_key2.py b/tests/errors/test_dict_key2.py
new file mode 100644
index 0000000000..dad9b73bf7
--- /dev/null
+++ b/tests/errors/test_dict_key2.py
@@ -0,0 +1,6 @@
+from lpython import i32
+
+def test_dict_key2():
+    my_dict: dict[dict[i32, str], str] = {{1: "a", 2: "b"}: "first", {3: "c", 4: "d"}: "second"}
+
+test_dict_key2()
\ No newline at end of file
diff --git a/tests/errors/test_dict_key3.py b/tests/errors/test_dict_key3.py
new file mode 100644
index 0000000000..c9f682bd06
--- /dev/null
+++ b/tests/errors/test_dict_key3.py
@@ -0,0 +1,6 @@
+from lpython import i32
+
+def test_dict_key3():
+    my_dict: dict[set[str], str] = {{1, 2}: "first", {3, 4}: "second"}
+
+test_dict_key3()
\ No newline at end of file
diff --git a/tests/errors/test_dict_key4.py b/tests/errors/test_dict_key4.py
new file mode 100644
index 0000000000..d947ed6f6c
--- /dev/null
+++ b/tests/errors/test_dict_key4.py
@@ -0,0 +1,4 @@
+def test_dict_key4():
+    print({[1, 2]: "first", [3, 4]: "second"})
+
+test_dict_key4()
\ No newline at end of file
diff --git a/tests/errors/test_dict_key5.py b/tests/errors/test_dict_key5.py
new file mode 100644
index 0000000000..567844db73
--- /dev/null
+++ b/tests/errors/test_dict_key5.py
@@ -0,0 +1,4 @@
+def test_dict_key5():
+    print({{1: "a", 2: "b"}: "first", {3: "c", 4: "d"}: "second"})
+
+test_dict_key5()
\ No newline at end of file
diff --git a/tests/errors/test_dict_key6.py b/tests/errors/test_dict_key6.py
new file mode 100644
index 0000000000..fa5f5e6719
--- /dev/null
+++ b/tests/errors/test_dict_key6.py
@@ -0,0 +1,4 @@
+def test_dict_key6():
+    print({{1, 2}: "first", {3, 4}: "second"})
+
+test_dict_key6()
\ No newline at end of file
diff --git a/tests/errors/test_float_semantic_error.py b/tests/errors/test_float_semantic_error.py
new file mode 100644
index 0000000000..d0e88ccbc5
--- /dev/null
+++ b/tests/errors/test_float_semantic_error.py
@@ -0,0 +1,8 @@
+from lpython import f64
+
+def main0():
+    pi: float = 3.14
+    radi: f64 = 2.0
+    print("Area of Circle is", pi*radi**2)
+
+main0()
\ No newline at end of file
diff --git a/tests/errors/test_func_args.py b/tests/errors/test_func_args.py
index 7b792e3996..2298daecab 100644
--- a/tests/errors/test_func_args.py
+++ b/tests/errors/test_func_args.py
@@ -1,4 +1,4 @@
-from ltypes import i64
+from lpython import i64
 
 def fib(n: i64) -> i64:
     if n < i64(2):
diff --git a/tests/errors/test_goto.py b/tests/errors/test_goto.py
deleted file mode 100644
index 5c027d350c..0000000000
--- a/tests/errors/test_goto.py
+++ /dev/null
@@ -1,12 +0,0 @@
-from ltypes import with_goto, goto, label, i32
-
-@with_goto
-def f():
-    i:i32
-    for i in range(10):
-        if i == 5:
-            goto .end
-
-    assert i == 5
-
-f()
diff --git a/tests/errors/test_import/test_import_1.py b/tests/errors/test_import/test_import_1.py
index 6d3f690656..55f4864bcd 100644
--- a/tests/errors/test_import/test_import_1.py
+++ b/tests/errors/test_import/test_import_1.py
@@ -1,4 +1,4 @@
-from ltypes import Const, i32
+from lpython import Const, i32
 
 def test(x: i32) -> i32:
     return x ** 2
diff --git a/tests/errors/test_import/test_import_2.py b/tests/errors/test_import/test_import_2.py
index cb4ca90016..12839dadb6 100644
--- a/tests/errors/test_import/test_import_2.py
+++ b/tests/errors/test_import/test_import_2.py
@@ -1,3 +1,3 @@
-from ltypes import Const, i32
+from lpython import Const, i32
 
 X: Const[i32] = 1.23
diff --git a/tests/errors/test_import_01.py b/tests/errors/test_import_01.py
index d3511831bd..af2fce6c7c 100644
--- a/tests/errors/test_import_01.py
+++ b/tests/errors/test_import_01.py
@@ -1,4 +1,4 @@
-from ltypes import Const, f64
+from lpython import Const, f64
 from test_import import test
 
 X: Const[f64] = test(5.0)
diff --git a/tests/errors/test_int_semantic_error.py b/tests/errors/test_int_semantic_error.py
new file mode 100644
index 0000000000..6eda4a20aa
--- /dev/null
+++ b/tests/errors/test_int_semantic_error.py
@@ -0,0 +1,8 @@
+from lpython import i32
+
+def variable_function():
+    x: int = 1
+    y: i32 = 2
+    print("x + y is", x + y)
+
+variable_function()
\ No newline at end of file
diff --git a/tests/errors/test_list1.py b/tests/errors/test_list1.py
index ce95655b65..b67d482280 100644
--- a/tests/errors/test_list1.py
+++ b/tests/errors/test_list1.py
@@ -1,4 +1,4 @@
-from ltypes import i32
+from lpython import i32
 
 def test1():
     a: list[i32]
diff --git a/tests/errors/test_list2.py b/tests/errors/test_list2.py
index b3d8c04076..7cfd3bfcfa 100644
--- a/tests/errors/test_list2.py
+++ b/tests/errors/test_list2.py
@@ -1,4 +1,4 @@
-from ltypes import i32
+from lpython import i32
 
 def test1():
     a: list[i32]
diff --git a/tests/errors/test_list4.py b/tests/errors/test_list4.py
index 6c2dd9590b..56f6734094 100644
--- a/tests/errors/test_list4.py
+++ b/tests/errors/test_list4.py
@@ -1,4 +1,4 @@
-from ltypes import i32
+from lpython import i32
 
 def e1():
     a: list[i32]
diff --git a/tests/errors/test_list_concat.py b/tests/errors/test_list_concat.py
index cee7353fde..dff9d3e098 100644
--- a/tests/errors/test_list_concat.py
+++ b/tests/errors/test_list_concat.py
@@ -1,4 +1,4 @@
-from ltypes import i32, f64
+from lpython import i32, f64
 
 def main():
   a: list[i32]
diff --git a/tests/errors/test_list_count.py b/tests/errors/test_list_count.py
new file mode 100644
index 0000000000..90c0f50d2d
--- /dev/null
+++ b/tests/errors/test_list_count.py
@@ -0,0 +1,6 @@
+from lpython import i32
+
+def test_list_count_error():
+    a: list[i32]
+    a = [1, 2, 3]
+    a.count(1.0)
\ No newline at end of file
diff --git a/tests/errors/test_list_index.py b/tests/errors/test_list_index.py
new file mode 100644
index 0000000000..d422a3b176
--- /dev/null
+++ b/tests/errors/test_list_index.py
@@ -0,0 +1,9 @@
+from lpython import i32
+
+def test_list_index_error():
+    a: list[i32]
+    a = [1, 2, 3]
+    # a.index(1.0)  # type mismatch
+    print(a.index(0))
+
+test_list_index_error()
diff --git a/tests/errors/test_list_index2.py b/tests/errors/test_list_index2.py
new file mode 100644
index 0000000000..235d8601d7
--- /dev/null
+++ b/tests/errors/test_list_index2.py
@@ -0,0 +1,8 @@
+from lpython import i32
+
+def test_list_index2_error():
+    a: list[i32]
+    a = [1, 2, 3]
+    print(a.index(1, 1))
+
+test_list_index2_error()
diff --git a/tests/errors/test_list_index3.py b/tests/errors/test_list_index3.py
new file mode 100644
index 0000000000..4a1061a7e0
--- /dev/null
+++ b/tests/errors/test_list_index3.py
@@ -0,0 +1,8 @@
+from lpython import i32
+
+def test_list_index3_error():
+    a: list[i32]
+    a = [1, 2, 3]
+    print(a.index(1, 1, 2))
+
+test_list_index3_error()
diff --git a/tests/errors/test_list_index4.py b/tests/errors/test_list_index4.py
new file mode 100644
index 0000000000..d4f38de512
--- /dev/null
+++ b/tests/errors/test_list_index4.py
@@ -0,0 +1,8 @@
+from lpython import i32
+
+def test_list_index4_error():
+    a: list[i32]
+    a = [1, 2, 3]
+    print(a.index(2,2,1))
+
+test_list_index4_error()
diff --git a/tests/errors/test_list_slicing.py b/tests/errors/test_list_slicing.py
new file mode 100644
index 0000000000..cae480fc14
--- /dev/null
+++ b/tests/errors/test_list_slicing.py
@@ -0,0 +1,8 @@
+from lpython import i32
+
+def test_slice_step_list():
+    l: list[i32]
+    l = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9]
+    print(l[0:10:0])
+
+test_slice_step_list()
\ No newline at end of file
diff --git a/tests/errors/test_literal.py b/tests/errors/test_literal.py
new file mode 100644
index 0000000000..3800abf26a
--- /dev/null
+++ b/tests/errors/test_literal.py
@@ -0,0 +1,2 @@
+def test_literal1():
+    x: i32 = 0123
\ No newline at end of file
diff --git a/tests/errors/test_logical_compare_01.py b/tests/errors/test_logical_compare_01.py
new file mode 100644
index 0000000000..83ef1f0a8d
--- /dev/null
+++ b/tests/errors/test_logical_compare_01.py
@@ -0,0 +1,5 @@
+def f():
+    print("hello" or 10)
+
+
+f()
diff --git a/tests/errors/test_operator_01.py b/tests/errors/test_operator_01.py
new file mode 100644
index 0000000000..a72de4d697
--- /dev/null
+++ b/tests/errors/test_operator_01.py
@@ -0,0 +1,11 @@
+from lpython import i32, dataclass
+
+@dataclass
+class A:
+    n: i32
+
+def main0():
+    a: A = A(10)
+    print(-a)
+
+main0()
diff --git a/tests/errors/test_optional.py b/tests/errors/test_optional.py
new file mode 100644
index 0000000000..58786a1360
--- /dev/null
+++ b/tests/errors/test_optional.py
@@ -0,0 +1,2 @@
+def match(pat : str, string : str) -> Optional[list[str] | str]:
+    return None
\ No newline at end of file
diff --git a/tests/errors/test_pointer_types.py b/tests/errors/test_pointer_types.py
index bfd2a36d97..b314404055 100644
--- a/tests/errors/test_pointer_types.py
+++ b/tests/errors/test_pointer_types.py
@@ -1,4 +1,4 @@
-from ltypes import pointer, i16, Pointer, i32
+from lpython import pointer, i16, Pointer, i32
 
 def f():
     yptr1: Pointer[i16[:]]
diff --git a/tests/errors/test_pow2.py b/tests/errors/test_pow2.py
index 8b3a231e23..fe9dbcfb72 100644
--- a/tests/errors/test_pow2.py
+++ b/tests/errors/test_pow2.py
@@ -1,4 +1,4 @@
-from ltypes import i64
+from lpython import i64
 
 def f():
     a: i64
diff --git a/tests/errors/test_pow3.py b/tests/errors/test_pow3.py
index e0ec825f83..bf8224ad2d 100644
--- a/tests/errors/test_pow3.py
+++ b/tests/errors/test_pow3.py
@@ -1,4 +1,4 @@
-from ltypes import i32, i64
+from lpython import i32, i64
 
 def f():
     x: list[i32]
diff --git a/tests/errors/test_pow4.py b/tests/errors/test_pow4.py
index 2d60e38b53..ec40772f4e 100644
--- a/tests/errors/test_pow4.py
+++ b/tests/errors/test_pow4.py
@@ -1,4 +1,4 @@
-from ltypes import c32, i64
+from lpython import c32, i64
 
 def f():
     x: c32
diff --git a/tests/errors/test_set1.py b/tests/errors/test_set1.py
index 63a4aef978..56dbfd1d88 100644
--- a/tests/errors/test_set1.py
+++ b/tests/errors/test_set1.py
@@ -1,4 +1,4 @@
-from ltypes import i32
+from lpython import i32
 
 def test1():
     a: set[i32]
diff --git a/tests/errors/test_set2.py b/tests/errors/test_set2.py
index 62ac8b2816..71de914e3c 100644
--- a/tests/errors/test_set2.py
+++ b/tests/errors/test_set2.py
@@ -1,4 +1,4 @@
-from ltypes import i32
+from lpython import i32
 
 def test1():
     a: set[i32]
diff --git a/tests/errors/test_set4.py b/tests/errors/test_set4.py
new file mode 100644
index 0000000000..7f64375502
--- /dev/null
+++ b/tests/errors/test_set4.py
@@ -0,0 +1,6 @@
+from lpython import i32
+
+def test4():
+    a: set[i32]
+    a = {1, 2, 3}
+    a.add(3, 4)
diff --git a/tests/errors/test_set_indexing.py b/tests/errors/test_set_indexing.py
index 0c5bc7dbbd..9290f91fc6 100644
--- a/tests/errors/test_set_indexing.py
+++ b/tests/errors/test_set_indexing.py
@@ -1,4 +1,4 @@
-from ltypes import i32
+from lpython import i32
 
 def f():
     s: set[i32]
diff --git a/tests/errors/test_set_object1.py b/tests/errors/test_set_object1.py
new file mode 100644
index 0000000000..7c73f6bbf0
--- /dev/null
+++ b/tests/errors/test_set_object1.py
@@ -0,0 +1,6 @@
+from lpython import i32
+
+def test_set_object1():
+    my_set: set[list[i32]] = {[1, 2], [3, 4]}
+
+test_set_object1()
\ No newline at end of file
diff --git a/tests/errors/test_set_object2.py b/tests/errors/test_set_object2.py
new file mode 100644
index 0000000000..1d21dd6cad
--- /dev/null
+++ b/tests/errors/test_set_object2.py
@@ -0,0 +1,6 @@
+from lpython import i32
+
+def test_set_object2():
+    my_set: set[dict[i32, str]] = {{1: "a", 2: "b"}, {3: "c", 4: "d"}}
+
+test_set_object2()
\ No newline at end of file
diff --git a/tests/errors/test_set_object3.py b/tests/errors/test_set_object3.py
new file mode 100644
index 0000000000..e49693569a
--- /dev/null
+++ b/tests/errors/test_set_object3.py
@@ -0,0 +1,6 @@
+from lpython import i32
+
+def test_set_object3():
+    my_set: set[set[i32]] = {{1, 2}, {3, 4}}
+
+test_set_object3()
\ No newline at end of file
diff --git a/tests/errors/test_set_object4.py b/tests/errors/test_set_object4.py
new file mode 100644
index 0000000000..07b2f64d43
--- /dev/null
+++ b/tests/errors/test_set_object4.py
@@ -0,0 +1,4 @@
+def test_set_object4():
+    print({[1, 2], [3, 4]})
+
+test_set_object4()
\ No newline at end of file
diff --git a/tests/errors/test_set_object5.py b/tests/errors/test_set_object5.py
new file mode 100644
index 0000000000..fd66665416
--- /dev/null
+++ b/tests/errors/test_set_object5.py
@@ -0,0 +1,4 @@
+def test_set_object5():
+    print({{1: "a", 2: "b"}, {3: "c", 4: "d"}})
+
+test_set_object5()
\ No newline at end of file
diff --git a/tests/errors/test_set_object6.py b/tests/errors/test_set_object6.py
new file mode 100644
index 0000000000..e25c9e27aa
--- /dev/null
+++ b/tests/errors/test_set_object6.py
@@ -0,0 +1,4 @@
+def test_set_object6():
+    print({{1, 2}, {3, 4}})
+
+test_set_object6()
\ No newline at end of file
diff --git a/tests/errors/test_str_slicing4.py b/tests/errors/test_str_slicing4.py
new file mode 100644
index 0000000000..342863052d
--- /dev/null
+++ b/tests/errors/test_str_slicing4.py
@@ -0,0 +1,6 @@
+def test_slice_step_str():
+    s: str
+    s = "abcd"
+    print(s[0:1:0])
+
+test_slice_step_str()
\ No newline at end of file
diff --git a/tests/errors/test_tuple2.py b/tests/errors/test_tuple2.py
new file mode 100644
index 0000000000..65f9f0d5e2
--- /dev/null
+++ b/tests/errors/test_tuple2.py
@@ -0,0 +1,6 @@
+def main0():
+    t: tuple[i32, i32, i32] = (1, 2, 3)
+    x: i32 = -1
+    print(t[x])
+
+main0()
\ No newline at end of file
diff --git a/tests/errors/test_tuple3.py b/tests/errors/test_tuple3.py
new file mode 100644
index 0000000000..5bfebee337
--- /dev/null
+++ b/tests/errors/test_tuple3.py
@@ -0,0 +1,5 @@
+def main0():
+    t: tuple[i32, i32, i32] = (1, 2, 3)
+    print(t[-4])
+
+main0()
\ No newline at end of file
diff --git a/tests/errors/test_type_mismatch_01.py b/tests/errors/test_type_mismatch_01.py
new file mode 100644
index 0000000000..4095dc0390
--- /dev/null
+++ b/tests/errors/test_type_mismatch_01.py
@@ -0,0 +1,6 @@
+from lpython import i32, f64
+
+def test():
+    a : i32 = 10
+    b : f64 = 20.0
+    a /= b
\ No newline at end of file
diff --git a/tests/errors/test_zero_division4.py b/tests/errors/test_zero_division4.py
index 63ae2cedb8..78662b21c6 100644
--- a/tests/errors/test_zero_division4.py
+++ b/tests/errors/test_zero_division4.py
@@ -1,4 +1,4 @@
-from ltypes import f64
+from lpython import f64
 
 def f():
     f: f64 = 4.5
diff --git a/tests/errors/type_mismatch.py b/tests/errors/type_mismatch.py
index 0a0f141431..e36085b39f 100644
--- a/tests/errors/type_mismatch.py
+++ b/tests/errors/type_mismatch.py
@@ -1,4 +1,4 @@
-from ltypes import i32, f32
+from lpython import i32, f32
 
 def test_cast():
     a: i32
diff --git a/tests/errors/unsigned_01.py b/tests/errors/unsigned_01.py
new file mode 100644
index 0000000000..b8635cfdb2
--- /dev/null
+++ b/tests/errors/unsigned_01.py
@@ -0,0 +1,3 @@
+from lpython import u16
+
+i: u16 = u16(-5)
diff --git a/tests/errors/unsigned_02.py b/tests/errors/unsigned_02.py
new file mode 100644
index 0000000000..6ecce57234
--- /dev/null
+++ b/tests/errors/unsigned_02.py
@@ -0,0 +1,3 @@
+from lpython import u16
+
+i: u16 = -u16(5)
diff --git a/tests/errors/unsigned_03.py b/tests/errors/unsigned_03.py
new file mode 100644
index 0000000000..64b6e43cf3
--- /dev/null
+++ b/tests/errors/unsigned_03.py
@@ -0,0 +1,3 @@
+from lpython import u32, u64
+
+print(-u64(u32(10)))
diff --git a/tests/errors/unsigned_04.py b/tests/errors/unsigned_04.py
new file mode 100644
index 0000000000..3009f0cd1f
--- /dev/null
+++ b/tests/errors/unsigned_04.py
@@ -0,0 +1,4 @@
+from lpython import u16
+
+i: u16 = u16(5)
+i = ~i
diff --git a/tests/expr10.py b/tests/expr10.py
index 86c281dfac..4838f3dc19 100644
--- a/tests/expr10.py
+++ b/tests/expr10.py
@@ -1,4 +1,4 @@
-from ltypes import i32, f32, c32
+from lpython import i32, f32, c32
 
 def test_UnaryOp():
     a: i32
diff --git a/tests/expr15.py b/tests/expr15.py
index 099cd0d170..6d36635bf1 100644
--- a/tests/expr15.py
+++ b/tests/expr15.py
@@ -1,4 +1,4 @@
-from ltypes import f64, c64, i32, c32
+from lpython import f64, c64, i32, c32
 
 def test1() -> f64:
     x: f64
diff --git a/tests/expr17.py b/tests/expr17.py
new file mode 100644
index 0000000000..17b61150ea
--- /dev/null
+++ b/tests/expr17.py
@@ -0,0 +1,9 @@
+def if_check():
+    a: i32
+    a = 4
+    if a < 0:
+        print("negative value")
+    elif a > 0:
+        print("positive value")
+    else:
+        print("zero")
diff --git a/tests/expr7.py b/tests/expr7.py
index 46eb4a27d0..58125ba341 100644
--- a/tests/expr7.py
+++ b/tests/expr7.py
@@ -1,4 +1,4 @@
-from ltypes import i32
+from lpython import i32
 def test_pow():
     a: i32
     a = i32(pow(2, 2))
diff --git a/tests/expr8.py b/tests/expr8.py
index c9c36b962a..ac3bcc7db4 100644
--- a/tests/expr8.py
+++ b/tests/expr8.py
@@ -1,4 +1,4 @@
-from ltypes import i32, f32
+from lpython import i32, f32
 
 def test_binop():
     x: i32
diff --git a/tests/expr9.py b/tests/expr9.py
index faba7dd662..f888ca90d7 100644
--- a/tests/expr9.py
+++ b/tests/expr9.py
@@ -11,20 +11,14 @@ def test_return_2(a: i32) -> str:
 
 
 def test_return_3(a: i32) -> i32:
-    a = 3
     return a
 
 
-def test_return_4(a: i32):
-    a = 1
-    return
-
 def main0():
     i: i32
     i = test_return_1(4)
     s: str
     s = test_return_2(4)
     i = test_return_3(4)
-    test_return_4(4)
 
 main0()
diff --git a/tests/intent_01.py b/tests/intent_01.py
new file mode 100644
index 0000000000..b3552079c0
--- /dev/null
+++ b/tests/intent_01.py
@@ -0,0 +1,6 @@
+@dataclass
+class Foo:
+    p: i32
+
+def f(x: i32, y: In[f64], z: InOut[list[u32]], w: Out[Foo[5]]):
+    pass
diff --git a/tests/loop1.py b/tests/loop1.py
index f4b25140f7..0c0747de2c 100644
--- a/tests/loop1.py
+++ b/tests/loop1.py
@@ -1,4 +1,4 @@
-from ltypes import i32, i64
+from lpython import i32, i64
 
 def test_factorial_1(x: i32) -> i32:
     if x < 0:
diff --git a/tests/loop2.py b/tests/loop2.py
deleted file mode 100644
index 8c7ffbc465..0000000000
--- a/tests/loop2.py
+++ /dev/null
@@ -1,14 +0,0 @@
-from sys import exit
-
-def test_for():
-    i: i32
-    for i in range(0, 10):
-        if i == 0:
-            continue
-        if i > 5:
-            break
-        if i == 3:
-            quit()
-    exit(2)
-
-test_for()
diff --git a/tests/loop4.py b/tests/loop4.py
new file mode 100644
index 0000000000..11db8c5a46
--- /dev/null
+++ b/tests/loop4.py
@@ -0,0 +1,11 @@
+def test_for():
+    i: i32
+    for i in range(0, 10):
+        if i == 0:
+            continue
+        if i > 5:
+            break
+        if i == 3:
+            quit()
+
+test_for()
diff --git a/tests/lpython1.py b/tests/lpython1.py
new file mode 100644
index 0000000000..65f843f7ad
--- /dev/null
+++ b/tests/lpython1.py
@@ -0,0 +1,21 @@
+from lpython import i8, i16, i32, i64
+
+def test_i8():
+    i: i8
+    i = i8(5)
+    print(i)
+
+def test_i16():
+    i: i16
+    i = i16(4)
+    print(i)
+
+def test_i32():
+    i: i32
+    i = 3
+    print(i)
+
+def test_i64():
+    i: i64
+    i = i64(2)
+    print(i)
diff --git a/tests/ltypes1.py b/tests/ltypes1.py
deleted file mode 100644
index f7148a196b..0000000000
--- a/tests/ltypes1.py
+++ /dev/null
@@ -1,21 +0,0 @@
-from ltypes import i8, i16, i32, i64
-
-def test_i8():
-    i: i8
-    i = i8(5)
-    print(i)
-
-def test_i16():
-    i: i16
-    i = i16(4)
-    print(i)
-
-def test_i32():
-    i: i32
-    i = 3
-    print(i)
-
-def test_i64():
-    i: i64
-    i = i64(2)
-    print(i)
diff --git a/tests/parser/for1.py b/tests/parser/for1.py
index 29e217da34..3515238c23 100644
--- a/tests/parser/for1.py
+++ b/tests/parser/for1.py
@@ -1,4 +1,4 @@
-from ltypes import i32
+from lpython import i32
 
 # fruits = ["apple", "banana", "cherry"]
 for x in fruits:
diff --git a/tests/parser/function_def1.py b/tests/parser/function_def1.py
index 6b5cb4ab15..11c48868d8 100644
--- a/tests/parser/function_def1.py
+++ b/tests/parser/function_def1.py
@@ -1,4 +1,4 @@
-from ltypes import i32, overload
+from lpython import i32, overload
 
 def greet(name):
     """
diff --git a/tests/parser/import1.py b/tests/parser/import1.py
index fdc270566a..e68e463e83 100644
--- a/tests/parser/import1.py
+++ b/tests/parser/import1.py
@@ -6,7 +6,7 @@
 import x.y.z
 import x.y.z as xyz
 
-from ltypes import i8, i16, i32, i64, f32, f64, \
+from lpython import i8, i16, i32, i64, f32, f64, \
     c32, c64, overload, ccall, TypeVar
 from __future__ import division
 from math import *
diff --git a/tests/parser/string1.py b/tests/parser/string1.py
index fd564c8ed7..5e4a35e0c1 100644
--- a/tests/parser/string1.py
+++ b/tests/parser/string1.py
@@ -71,3 +71,15 @@
 
 (b"Text"
 b"Text")
+
+r'\n'
+r"""
+Text
+123\n\t
+"""
+rb'\n'
+rf'\n'
+
+b'\n'
+b'''
+\n\\n'''
diff --git a/tests/parser/string2.py b/tests/parser/string2.py
index 685bf41df1..d558d569eb 100644
--- a/tests/parser/string2.py
+++ b/tests/parser/string2.py
@@ -7,6 +7,13 @@
 "
 "\\" "|"
 
+'I said \'Wow\' '
+"I said \"hi\" "
+"I said \\\"hi\" "
+'I said \'\\\'hi\\''hey\' '
+'a''b'
+"a" "b"
+
 r"""Text\\"""
 """\
 """
diff --git a/tests/parser/string3.py b/tests/parser/string3.py
new file mode 100644
index 0000000000..81838765f9
--- /dev/null
+++ b/tests/parser/string3.py
@@ -0,0 +1,33 @@
+"\n"
+"\r"
+"\t"
+"'"
+"\""
+"\\"
+"\n\r\t'\"\\"
+'\n'
+'\r'
+'\t'
+'\''
+'"'
+'\\'
+'\n\r\t\'"\\'
+
+"hi\n"
+"hi\r\n\t"
+"1234\n\t\\jdlasf\t"
+'Hi this is a "test case".'
+
+"""
+This is \n
+abcd123
+This is \r
+efgh
+"""
+
+"""\
+This is \n
+"""
+
+"hi\
+          dsjfklad"
diff --git a/tests/parser/tuple1.py b/tests/parser/tuple1.py
index 8ccb7ff1c3..960cceb4cc 100644
--- a/tests/parser/tuple1.py
+++ b/tests/parser/tuple1.py
@@ -35,3 +35,5 @@ def test():
     x,
     y,
 )
+
+t : tuple[i32, i32] = 2,3    # Without bracket annotated assignment of tuples
diff --git a/tests/parser/while1.py b/tests/parser/while1.py
index 5f41f9814a..36a3cf1ecc 100644
--- a/tests/parser/while1.py
+++ b/tests/parser/while1.py
@@ -1,4 +1,4 @@
-from ltypes import i32
+from lpython import i32
 
 i: i32 = 10
 
diff --git a/tests/reference/asr-array_01_decl-39cf894.json b/tests/reference/asr-array_01_decl-39cf894.json
index cbde310eb1..b114b7980d 100644
--- a/tests/reference/asr-array_01_decl-39cf894.json
+++ b/tests/reference/asr-array_01_decl-39cf894.json
@@ -2,11 +2,11 @@
     "basename": "asr-array_01_decl-39cf894",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/../integration_tests/array_01_decl.py",
-    "infile_hash": "a0894dbdcbfd15ade316e11aba63284d5f1a2b5c011417db64fab06d",
+    "infile_hash": "3dff59bab7475d254ce0470065c11e797e52a5b2a3d7546acc0e6705",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "asr-array_01_decl-39cf894.stdout",
-    "stdout_hash": "c2477224b2c01309d0c62db9e4d2168abc779fd2fb0c4874a4232f14",
+    "stdout_hash": "5bc6bef74c19e3ab954672c7b77c461beab78c936732fed4116ab0f3",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/asr-array_01_decl-39cf894.stdout b/tests/reference/asr-array_01_decl-39cf894.stdout
index be1abf030a..3d46fd4950 100644
--- a/tests/reference/asr-array_01_decl-39cf894.stdout
+++ b/tests/reference/asr-array_01_decl-39cf894.stdout
@@ -1 +1,1334 @@
-(TranslationUnit (SymbolTable 1 {ArraySizes: (EnumType (SymbolTable 171 {SIZE_10: (Variable 171 SIZE_10 [] Local (IntegerConstant 10 (Integer 4 [])) () Default (Integer 4 []) Source Public Required .false.), SIZE_3: (Variable 171 SIZE_3 [] Local (IntegerConstant 3 (Integer 4 [])) () Default (Integer 4 []) Source Public Required .false.)}) ArraySizes [] [SIZE_3 SIZE_10] Source Public IntegerUnique (Integer 4 []) ()), _lpython_main_program: (Function (SymbolTable 179 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [declare_arrays] [] [(SubroutineCall 1 declare_arrays () [] ())] () Public .false. .false.), accept_f32_array: (Function (SymbolTable 175 {_lpython_return_variable: (Variable 175 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), xf32: (Variable 175 xf32 [] InOut () () Default (Real 4 [(() ())]) Source Public Required .false.)}) accept_f32_array (FunctionType [(Real 4 [(() ())])] (Real 4 []) Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 175 xf32)] [(= (ArrayItem (Var 175 xf32) [(() (IntegerConstant 1 (Integer 4 [])) ())] (Real 4 []) RowMajor ()) (Cast (RealConstant 32.000000 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 32.000000 (Real 4 []))) ()) (= (Var 175 _lpython_return_variable) (ArrayItem (Var 175 xf32) [(() (IntegerConstant 1 (Integer 4 [])) ())] (Real 4 []) RowMajor ()) ()) (Return)] (Var 175 _lpython_return_variable) Public .false. .false.), accept_f64_array: (Function (SymbolTable 176 {_lpython_return_variable: (Variable 176 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), xf64: (Variable 176 xf64 [] InOut () () Default (Real 8 [(() ())]) Source Public Required .false.)}) accept_f64_array (FunctionType [(Real 8 [(() ())])] (Real 8 []) Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 176 xf64)] [(= (ArrayItem (Var 176 xf64) [(() (IntegerConstant 0 (Integer 4 [])) ())] (Real 8 []) RowMajor ()) (RealConstant 64.000000 (Real 8 [])) ()) (= (Var 176 _lpython_return_variable) (ArrayItem (Var 176 xf64) [(() (IntegerConstant 0 (Integer 4 [])) ())] (Real 8 []) RowMajor ()) ()) (Return)] (Var 176 _lpython_return_variable) Public .false. .false.), accept_i16_array: (Function (SymbolTable 172 {_lpython_return_variable: (Variable 172 _lpython_return_variable [] ReturnVar () () Default (Integer 2 []) Source Public Required .false.), xi16: (Variable 172 xi16 [] InOut () () Default (Integer 2 [(() ())]) Source Public Required .false.)}) accept_i16_array (FunctionType [(Integer 2 [(() ())])] (Integer 2 []) Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 172 xi16)] [(= (ArrayItem (Var 172 xi16) [(() (IntegerConstant 2 (Integer 4 [])) ())] (Integer 2 []) RowMajor ()) (Cast (IntegerConstant 32 (Integer 4 [])) IntegerToInteger (Integer 2 []) (IntegerConstant 32 (Integer 2 []))) ()) (= (Var 172 _lpython_return_variable) (ArrayItem (Var 172 xi16) [(() (IntegerConstant 2 (Integer 4 [])) ())] (Integer 2 []) RowMajor ()) ()) (Return)] (Var 172 _lpython_return_variable) Public .false. .false.), accept_i32_array: (Function (SymbolTable 173 {_lpython_return_variable: (Variable 173 _lpython_return_variable [] ReturnVar () () Default (Integer 4 []) Source Public Required .false.), xi32: (Variable 173 xi32 [] InOut () () Default (Integer 4 [(() ())]) Source Public Required .false.)}) accept_i32_array (FunctionType [(Integer 4 [(() ())])] (Integer 4 []) Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 173 xi32)] [(= (ArrayItem (Var 173 xi32) [(() (IntegerConstant 1 (Integer 4 [])) ())] (Integer 4 []) RowMajor ()) (IntegerConstant 32 (Integer 4 [])) ()) (= (Var 173 _lpython_return_variable) (ArrayItem (Var 173 xi32) [(() (IntegerConstant 1 (Integer 4 [])) ())] (Integer 4 []) RowMajor ()) ()) (Return)] (Var 173 _lpython_return_variable) Public .false. .false.), accept_i64_array: (Function (SymbolTable 174 {_lpython_return_variable: (Variable 174 _lpython_return_variable [] ReturnVar () () Default (Integer 8 []) Source Public Required .false.), xi64: (Variable 174 xi64 [] InOut () () Default (Integer 8 [(() ())]) Source Public Required .false.)}) accept_i64_array (FunctionType [(Integer 8 [(() ())])] (Integer 8 []) Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 174 xi64)] [(= (ArrayItem (Var 174 xi64) [(() (IntegerConstant 1 (Integer 4 [])) ())] (Integer 8 []) RowMajor ()) (Cast (IntegerConstant 64 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 64 (Integer 8 []))) ()) (= (Var 174 _lpython_return_variable) (ArrayItem (Var 174 xi64) [(() (IntegerConstant 1 (Integer 4 [])) ())] (Integer 8 []) RowMajor ()) ()) (Return)] (Var 174 _lpython_return_variable) Public .false. .false.), declare_arrays: (Function (SymbolTable 177 {ac32: (Variable 177 ac32 [] Local () () Default (Complex 4 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 3 (Integer 4 [])))]) Source Public Required .false.), ac64: (Variable 177 ac64 [] Local () () Default (Complex 8 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 10 (Integer 4 [])))]) Source Public Required .false.), af32: (Variable 177 af32 [] Local () () Default (Real 4 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 3 (Integer 4 [])))]) Source Public Required .false.), af64: (Variable 177 af64 [] Local () () Default (Real 8 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 10 (Integer 4 [])))]) Source Public Required .false.), ai16: (Variable 177 ai16 [] Local () () Default (Integer 2 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 3 (Integer 4 [])))]) Source Public Required .false.), ai32: (Variable 177 ai32 [] Local () () Default (Integer 4 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 3 (Integer 4 [])))]) Source Public Required .false.), ai64: (Variable 177 ai64 [] Local () () Default (Integer 8 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 10 (Integer 4 [])))]) Source Public Required .false.)}) declare_arrays (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [accept_i16_array accept_i32_array accept_i64_array accept_f32_array accept_f64_array] [] [(Print () [(FunctionCall 1 accept_i16_array () [((Var 177 ai16))] (Integer 2 []) () ())] () ()) (Print () [(FunctionCall 1 accept_i32_array () [((Var 177 ai32))] (Integer 4 []) () ())] () ()) (Print () [(FunctionCall 1 accept_i64_array () [((Var 177 ai64))] (Integer 8 []) () ())] () ()) (Print () [(FunctionCall 1 accept_f32_array () [((Var 177 af32))] (Real 4 []) () ())] () ()) (Print () [(FunctionCall 1 accept_f64_array () [((Var 177 af64))] (Real 8 []) () ())] () ())] () Public .false. .false.), lpython_builtin: (IntrinsicModule lpython_builtin), main_program: (Program (SymbolTable 178 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())]), numpy: (Module (SymbolTable 3 {__lpython_overloaded_0__arccos: (Function (SymbolTable 41 {_lpython_return_variable: (Variable 41 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 41 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arccos (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dacos] [(Var 41 x)] [(= (Var 41 _lpython_return_variable) (FunctionCall 3 _lfortran_dacos () [((Var 41 x))] (Real 8 []) () ()) ()) (Return)] (Var 41 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__arccosh: (Function (SymbolTable 65 {_lpython_return_variable: (Variable 65 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 65 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arccosh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dacosh] [(Var 65 x)] [(= (Var 65 _lpython_return_variable) (FunctionCall 3 _lfortran_dacosh () [((Var 65 x))] (Real 8 []) () ()) ()) (Return)] (Var 65 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__arcsin: (Function (SymbolTable 37 {_lpython_return_variable: (Variable 37 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 37 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arcsin (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dasin] [(Var 37 x)] [(= (Var 37 _lpython_return_variable) (FunctionCall 3 _lfortran_dasin () [((Var 37 x))] (Real 8 []) () ()) ()) (Return)] (Var 37 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__arcsinh: (Function (SymbolTable 61 {_lpython_return_variable: (Variable 61 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 61 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arcsinh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dasinh] [(Var 61 x)] [(= (Var 61 _lpython_return_variable) (FunctionCall 3 _lfortran_dasinh () [((Var 61 x))] (Real 8 []) () ()) ()) (Return)] (Var 61 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__arctan: (Function (SymbolTable 53 {_lpython_return_variable: (Variable 53 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 53 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arctan (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_datan] [(Var 53 x)] [(= (Var 53 _lpython_return_variable) (FunctionCall 3 _lfortran_datan () [((Var 53 x))] (Real 8 []) () ()) ()) (Return)] (Var 53 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__arctanh: (Function (SymbolTable 69 {_lpython_return_variable: (Variable 69 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 69 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arctanh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_datanh] [(Var 69 x)] [(= (Var 69 _lpython_return_variable) (FunctionCall 3 _lfortran_datanh () [((Var 69 x))] (Real 8 []) () ()) ()) (Return)] (Var 69 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__ceil: (Function (SymbolTable 76 {_lpython_return_variable: (Variable 76 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), result: (Variable 76 result [] Local () () Default (Integer 8 []) Source Public Required .false.), x: (Variable 76 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__ceil (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 76 x)] [(= (Var 76 result) (Cast (Var 76 x) RealToInteger (Integer 8 []) ()) ()) (If (LogicalBinOp (RealCompare (Var 76 x) LtE (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToReal (Real 8 []) ()) (Logical 4 []) ()) Or (RealCompare (Var 76 x) Eq (Cast (Var 76 result) IntegerToReal (Real 8 []) ()) (Logical 4 []) ()) (Logical 4 []) ()) [(= (Var 76 _lpython_return_variable) (Cast (Var 76 result) IntegerToReal (Real 8 []) ()) ()) (Return)] []) (= (Var 76 _lpython_return_variable) (Cast (IntegerBinOp (Var 76 result) Add (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 1 (Integer 8 []))) (Integer 8 []) ()) IntegerToReal (Real 8 []) ()) ()) (Return)] (Var 76 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__cos: (Function (SymbolTable 9 {_lpython_return_variable: (Variable 9 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 9 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__cos (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dcos] [(Var 9 x)] [(= (Var 9 _lpython_return_variable) (FunctionCall 3 _lfortran_dcos () [((Var 9 x))] (Real 8 []) () ()) ()) (Return)] (Var 9 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__cosh: (Function (SymbolTable 23 {_lpython_return_variable: (Variable 23 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 23 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__cosh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dcosh] [(Var 23 x)] [(= (Var 23 _lpython_return_variable) (FunctionCall 3 _lfortran_dcosh () [((Var 23 x))] (Real 8 []) () ()) ()) (Return)] (Var 23 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__degrees: (Function (SymbolTable 56 {_lpython_return_variable: (Variable 56 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 56 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__degrees (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 56 x)] [(= (Var 56 _lpython_return_variable) (RealBinOp (RealBinOp (Var 56 x) Mul (RealConstant 180.000000 (Real 8 [])) (Real 8 []) ()) Div (Var 3 pi_64) (Real 8 []) ()) ()) (Return)] (Var 56 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__exp: (Function (SymbolTable 49 {_lpython_return_variable: (Variable 49 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 49 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__exp (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dexp] [(Var 49 x)] [(= (Var 49 _lpython_return_variable) (FunctionCall 3 _lfortran_dexp () [((Var 49 x))] (Real 8 []) () ()) ()) (Return)] (Var 49 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__floor: (Function (SymbolTable 74 {_lpython_return_variable: (Variable 74 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), result: (Variable 74 result [] Local () () Default (Integer 8 []) Source Public Required .false.), x: (Variable 74 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__floor (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 74 x)] [(= (Var 74 result) (Cast (Var 74 x) RealToInteger (Integer 8 []) ()) ()) (If (LogicalBinOp (RealCompare (Var 74 x) GtE (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToReal (Real 8 []) ()) (Logical 4 []) ()) Or (RealCompare (Var 74 x) Eq (Cast (Var 74 result) IntegerToReal (Real 8 []) ()) (Logical 4 []) ()) (Logical 4 []) ()) [(= (Var 74 _lpython_return_variable) (Cast (Var 74 result) IntegerToReal (Real 8 []) ()) ()) (Return)] []) (= (Var 74 _lpython_return_variable) (Cast (IntegerBinOp (Var 74 result) Sub (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 1 (Integer 8 []))) (Integer 8 []) ()) IntegerToReal (Real 8 []) ()) ()) (Return)] (Var 74 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__log: (Function (SymbolTable 27 {_lpython_return_variable: (Variable 27 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 27 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__log (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dlog] [(Var 27 x)] [(= (Var 27 _lpython_return_variable) (FunctionCall 3 _lfortran_dlog () [((Var 27 x))] (Real 8 []) () ()) ()) (Return)] (Var 27 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__log10: (Function (SymbolTable 31 {_lpython_return_variable: (Variable 31 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 31 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__log10 (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dlog10] [(Var 31 x)] [(= (Var 31 _lpython_return_variable) (FunctionCall 3 _lfortran_dlog10 () [((Var 31 x))] (Real 8 []) () ()) ()) (Return)] (Var 31 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__log2: (Function (SymbolTable 34 {_lpython_return_variable: (Variable 34 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 34 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__log2 (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dlog _lfortran_dlog] [(Var 34 x)] [(= (Var 34 _lpython_return_variable) (RealBinOp (FunctionCall 3 _lfortran_dlog () [((Var 34 x))] (Real 8 []) () ()) Div (FunctionCall 3 _lfortran_dlog () [((RealConstant 2.000000 (Real 8 [])))] (Real 8 []) () ()) (Real 8 []) ()) ()) (Return)] (Var 34 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__mod: (Function (SymbolTable 72 {_lpython_return_variable: (Variable 72 _lpython_return_variable [] ReturnVar () () Default (Integer 8 []) Source Public Required .false.), _mod: (ExternalSymbol 72 _mod 79 _mod lpython_builtin [] _mod Private), _mod@__lpython_overloaded_2___mod: (ExternalSymbol 72 _mod@__lpython_overloaded_2___mod 79 __lpython_overloaded_2___mod lpython_builtin [] __lpython_overloaded_2___mod Public), x1: (Variable 72 x1 [] In () () Default (Integer 8 []) Source Public Required .false.), x2: (Variable 72 x2 [] In () () Default (Integer 8 []) Source Public Required .false.)}) __lpython_overloaded_0__mod (FunctionType [(Integer 8 []) (Integer 8 [])] (Integer 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_mod@__lpython_overloaded_2___mod] [(Var 72 x1) (Var 72 x2)] [(If (IntegerCompare (Var 72 x2) Eq (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 0 (Integer 8 []))) (Logical 4 []) ()) [(= (Var 72 _lpython_return_variable) (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToInteger (Integer 8 []) ()) ()) (Return)] []) (= (Var 72 _lpython_return_variable) (FunctionCall 72 _mod@__lpython_overloaded_2___mod 72 _mod [((Var 72 x1)) ((Var 72 x2))] (Integer 8 []) () ()) ()) (Return)] (Var 72 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__radians: (Function (SymbolTable 58 {_lpython_return_variable: (Variable 58 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 58 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__radians (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 58 x)] [(= (Var 58 _lpython_return_variable) (RealBinOp (RealBinOp (Var 58 x) Mul (Var 3 pi_64) (Real 8 []) ()) Div (RealConstant 180.000000 (Real 8 [])) (Real 8 []) ()) ()) (Return)] (Var 58 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__sin: (Function (SymbolTable 5 {_lpython_return_variable: (Variable 5 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 5 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__sin (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dsin] [(Var 5 x)] [(= (Var 5 _lpython_return_variable) (FunctionCall 3 _lfortran_dsin () [((Var 5 x))] (Real 8 []) () ()) ()) (Return)] (Var 5 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__sinh: (Function (SymbolTable 19 {_lpython_return_variable: (Variable 19 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 19 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__sinh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dsinh] [(Var 19 x)] [(= (Var 19 _lpython_return_variable) (FunctionCall 3 _lfortran_dsinh () [((Var 19 x))] (Real 8 []) () ()) ()) (Return)] (Var 19 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__sqrt: (Function (SymbolTable 12 {_lpython_return_variable: (Variable 12 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 12 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__sqrt (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 12 x)] [(= (Var 12 _lpython_return_variable) (RealBinOp (Var 12 x) Pow (RealBinOp (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToReal (Real 8 []) ()) Div (Cast (IntegerConstant 2 (Integer 4 [])) IntegerToReal (Real 8 []) ()) (Real 8 []) ()) (Real 8 []) ()) ()) (Return)] (Var 12 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__tan: (Function (SymbolTable 15 {_lpython_return_variable: (Variable 15 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 15 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__tan (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dtan] [(Var 15 x)] [(= (Var 15 _lpython_return_variable) (FunctionCall 3 _lfortran_dtan () [((Var 15 x))] (Real 8 []) () ()) ()) (Return)] (Var 15 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__tanh: (Function (SymbolTable 45 {_lpython_return_variable: (Variable 45 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 45 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__tanh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dtanh] [(Var 45 x)] [(= (Var 45 _lpython_return_variable) (FunctionCall 3 _lfortran_dtanh () [((Var 45 x))] (Real 8 []) () ()) ()) (Return)] (Var 45 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arccos: (Function (SymbolTable 43 {_lpython_return_variable: (Variable 43 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 43 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arccos (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_sacos] [(Var 43 x)] [(= (Var 43 _lpython_return_variable) (FunctionCall 3 _lfortran_sacos () [((Var 43 x))] (Real 4 []) () ()) ()) (Return)] (Var 43 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arccosh: (Function (SymbolTable 67 {_lpython_return_variable: (Variable 67 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 67 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arccosh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_sacosh] [(Var 67 x)] [(= (Var 67 _lpython_return_variable) (FunctionCall 3 _lfortran_sacosh () [((Var 67 x))] (Real 4 []) () ()) ()) (Return)] (Var 67 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arcsin: (Function (SymbolTable 39 {_lpython_return_variable: (Variable 39 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 39 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arcsin (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_sasin] [(Var 39 x)] [(= (Var 39 _lpython_return_variable) (FunctionCall 3 _lfortran_sasin () [((Var 39 x))] (Real 4 []) () ()) ()) (Return)] (Var 39 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arcsinh: (Function (SymbolTable 63 {_lpython_return_variable: (Variable 63 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 63 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arcsinh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_sasinh] [(Var 63 x)] [(= (Var 63 _lpython_return_variable) (FunctionCall 3 _lfortran_sasinh () [((Var 63 x))] (Real 4 []) () ()) ()) (Return)] (Var 63 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arctan: (Function (SymbolTable 55 {_lpython_return_variable: (Variable 55 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 55 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arctan (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_satan] [(Var 55 x)] [(= (Var 55 _lpython_return_variable) (FunctionCall 3 _lfortran_satan () [((Var 55 x))] (Real 4 []) () ()) ()) (Return)] (Var 55 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arctanh: (Function (SymbolTable 71 {_lpython_return_variable: (Variable 71 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 71 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arctanh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_satanh] [(Var 71 x)] [(= (Var 71 _lpython_return_variable) (FunctionCall 3 _lfortran_satanh () [((Var 71 x))] (Real 4 []) () ()) ()) (Return)] (Var 71 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__ceil: (Function (SymbolTable 77 {_lpython_return_variable: (Variable 77 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), resultf: (Variable 77 resultf [x] Local (Cast (Cast (Var 77 x) RealToInteger (Integer 4 []) ()) IntegerToReal (Real 4 []) ()) () Default (Real 4 []) Source Public Required .false.), x: (Variable 77 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__ceil (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 77 x)] [(= (Var 77 resultf) (Cast (Cast (Var 77 x) RealToInteger (Integer 4 []) ()) IntegerToReal (Real 4 []) ()) ()) (If (LogicalBinOp (RealCompare (Var 77 x) LtE (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Logical 4 []) ()) Or (RealCompare (Var 77 x) Eq (Var 77 resultf) (Logical 4 []) ()) (Logical 4 []) ()) [(= (Var 77 _lpython_return_variable) (Var 77 resultf) ()) (Return)] []) (= (Var 77 _lpython_return_variable) (RealBinOp (Var 77 resultf) Add (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Real 4 []) ()) ()) (Return)] (Var 77 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__cos: (Function (SymbolTable 11 {_lpython_return_variable: (Variable 11 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 11 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__cos (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_scos] [(Var 11 x)] [(= (Var 11 _lpython_return_variable) (FunctionCall 3 _lfortran_scos () [((Var 11 x))] (Real 4 []) () ()) ()) (Return)] (Var 11 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__cosh: (Function (SymbolTable 25 {_lpython_return_variable: (Variable 25 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 25 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__cosh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_scosh] [(Var 25 x)] [(= (Var 25 _lpython_return_variable) (FunctionCall 3 _lfortran_scosh () [((Var 25 x))] (Real 4 []) () ()) ()) (Return)] (Var 25 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__degrees: (Function (SymbolTable 57 {_lpython_return_variable: (Variable 57 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 57 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__degrees (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 57 x)] [(= (Var 57 _lpython_return_variable) (RealBinOp (Var 57 x) Mul (RealBinOp (Cast (IntegerConstant 180 (Integer 4 [])) IntegerToReal (Real 4 []) ()) Div (Var 3 pi_32) (Real 4 []) ()) (Real 4 []) ()) ()) (Return)] (Var 57 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__exp: (Function (SymbolTable 51 {_lpython_return_variable: (Variable 51 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 51 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__exp (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_sexp] [(Var 51 x)] [(= (Var 51 _lpython_return_variable) (FunctionCall 3 _lfortran_sexp () [((Var 51 x))] (Real 4 []) () ()) ()) (Return)] (Var 51 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__floor: (Function (SymbolTable 75 {_lpython_return_variable: (Variable 75 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), resultf: (Variable 75 resultf [x] Local (Cast (Cast (Var 75 x) RealToInteger (Integer 4 []) ()) IntegerToReal (Real 4 []) ()) () Default (Real 4 []) Source Public Required .false.), x: (Variable 75 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__floor (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 75 x)] [(= (Var 75 resultf) (Cast (Cast (Var 75 x) RealToInteger (Integer 4 []) ()) IntegerToReal (Real 4 []) ()) ()) (If (LogicalBinOp (RealCompare (Var 75 x) GtE (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Logical 4 []) ()) Or (RealCompare (Var 75 x) Eq (Var 75 resultf) (Logical 4 []) ()) (Logical 4 []) ()) [(= (Var 75 _lpython_return_variable) (Var 75 resultf) ()) (Return)] []) (= (Var 75 _lpython_return_variable) (RealBinOp (Var 75 resultf) Sub (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Real 4 []) ()) ()) (Return)] (Var 75 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__log: (Function (SymbolTable 29 {_lpython_return_variable: (Variable 29 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 29 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__log (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_slog] [(Var 29 x)] [(= (Var 29 _lpython_return_variable) (FunctionCall 3 _lfortran_slog () [((Var 29 x))] (Real 4 []) () ()) ()) (Return)] (Var 29 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__log10: (Function (SymbolTable 33 {_lpython_return_variable: (Variable 33 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 33 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__log10 (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_slog10] [(Var 33 x)] [(= (Var 33 _lpython_return_variable) (FunctionCall 3 _lfortran_slog10 () [((Var 33 x))] (Real 4 []) () ()) ()) (Return)] (Var 33 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__log2: (Function (SymbolTable 35 {_lpython_return_variable: (Variable 35 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 35 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__log2 (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_slog _lfortran_slog] [(Var 35 x)] [(= (Var 35 _lpython_return_variable) (RealBinOp (FunctionCall 3 _lfortran_slog () [((Var 35 x))] (Real 4 []) () ()) Div (FunctionCall 3 _lfortran_slog () [((Cast (RealConstant 2.000000 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 2.000000 (Real 4 []))))] (Real 4 []) () ()) (Real 4 []) ()) ()) (Return)] (Var 35 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__mod: (Function (SymbolTable 73 {_lpython_return_variable: (Variable 73 _lpython_return_variable [] ReturnVar () () Default (Integer 4 []) Source Public Required .false.), _mod: (ExternalSymbol 73 _mod 79 _mod lpython_builtin [] _mod Private), _mod@__lpython_overloaded_0___mod: (ExternalSymbol 73 _mod@__lpython_overloaded_0___mod 79 __lpython_overloaded_0___mod lpython_builtin [] __lpython_overloaded_0___mod Public), x1: (Variable 73 x1 [] In () () Default (Integer 4 []) Source Public Required .false.), x2: (Variable 73 x2 [] In () () Default (Integer 4 []) Source Public Required .false.)}) __lpython_overloaded_1__mod (FunctionType [(Integer 4 []) (Integer 4 [])] (Integer 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_mod@__lpython_overloaded_0___mod] [(Var 73 x1) (Var 73 x2)] [(If (IntegerCompare (Var 73 x2) Eq (IntegerConstant 0 (Integer 4 [])) (Logical 4 []) ()) [(= (Var 73 _lpython_return_variable) (IntegerConstant 0 (Integer 4 [])) ()) (Return)] []) (= (Var 73 _lpython_return_variable) (FunctionCall 73 _mod@__lpython_overloaded_0___mod 73 _mod [((Var 73 x1)) ((Var 73 x2))] (Integer 4 []) () ()) ()) (Return)] (Var 73 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__radians: (Function (SymbolTable 59 {_lpython_return_variable: (Variable 59 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 59 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__radians (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 59 x)] [(= (Var 59 _lpython_return_variable) (RealBinOp (Var 59 x) Mul (RealBinOp (Var 3 pi_32) Div (Cast (IntegerConstant 180 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Real 4 []) ()) (Real 4 []) ()) ()) (Return)] (Var 59 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__sin: (Function (SymbolTable 7 {_lpython_return_variable: (Variable 7 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 7 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__sin (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_ssin] [(Var 7 x)] [(= (Var 7 _lpython_return_variable) (FunctionCall 3 _lfortran_ssin () [((Var 7 x))] (Real 4 []) () ()) ()) (Return)] (Var 7 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__sinh: (Function (SymbolTable 21 {_lpython_return_variable: (Variable 21 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 21 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__sinh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_ssinh] [(Var 21 x)] [(= (Var 21 _lpython_return_variable) (FunctionCall 3 _lfortran_ssinh () [((Var 21 x))] (Real 4 []) () ()) ()) (Return)] (Var 21 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__sqrt: (Function (SymbolTable 13 {_lpython_return_variable: (Variable 13 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 13 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__sqrt (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 13 x)] [(= (Var 13 _lpython_return_variable) (RealBinOp (Var 13 x) Pow (Cast (RealBinOp (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToReal (Real 8 []) ()) Div (Cast (IntegerConstant 2 (Integer 4 [])) IntegerToReal (Real 8 []) ()) (Real 8 []) ()) RealToReal (Real 4 []) ()) (Real 4 []) ()) ()) (Return)] (Var 13 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__tan: (Function (SymbolTable 17 {_lpython_return_variable: (Variable 17 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 17 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__tan (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_stan] [(Var 17 x)] [(= (Var 17 _lpython_return_variable) (FunctionCall 3 _lfortran_stan () [((Var 17 x))] (Real 4 []) () ()) ()) (Return)] (Var 17 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__tanh: (Function (SymbolTable 47 {_lpython_return_variable: (Variable 47 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 47 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__tanh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_stanh] [(Var 47 x)] [(= (Var 47 _lpython_return_variable) (FunctionCall 3 _lfortran_stanh () [((Var 47 x))] (Real 4 []) () ()) ()) (Return)] (Var 47 _lpython_return_variable) Public .false. .false.), _lfortran_dacos: (Function (SymbolTable 40 {_lpython_return_variable: (Variable 40 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 40 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dacos (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 40 x)] [] (Var 40 _lpython_return_variable) Public .false. .false.), _lfortran_dacosh: (Function (SymbolTable 64 {_lpython_return_variable: (Variable 64 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 64 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dacosh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 64 x)] [] (Var 64 _lpython_return_variable) Public .false. .false.), _lfortran_dasin: (Function (SymbolTable 36 {_lpython_return_variable: (Variable 36 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 36 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dasin (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 36 x)] [] (Var 36 _lpython_return_variable) Public .false. .false.), _lfortran_dasinh: (Function (SymbolTable 60 {_lpython_return_variable: (Variable 60 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 60 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dasinh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 60 x)] [] (Var 60 _lpython_return_variable) Public .false. .false.), _lfortran_datan: (Function (SymbolTable 52 {_lpython_return_variable: (Variable 52 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 52 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_datan (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 52 x)] [] (Var 52 _lpython_return_variable) Public .false. .false.), _lfortran_datanh: (Function (SymbolTable 68 {_lpython_return_variable: (Variable 68 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 68 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_datanh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 68 x)] [] (Var 68 _lpython_return_variable) Public .false. .false.), _lfortran_dcos: (Function (SymbolTable 8 {_lpython_return_variable: (Variable 8 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 8 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dcos (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 8 x)] [] (Var 8 _lpython_return_variable) Public .false. .false.), _lfortran_dcosh: (Function (SymbolTable 22 {_lpython_return_variable: (Variable 22 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 22 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dcosh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 22 x)] [] (Var 22 _lpython_return_variable) Public .false. .false.), _lfortran_dexp: (Function (SymbolTable 48 {_lpython_return_variable: (Variable 48 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 48 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dexp (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 48 x)] [] (Var 48 _lpython_return_variable) Public .false. .false.), _lfortran_dlog: (Function (SymbolTable 26 {_lpython_return_variable: (Variable 26 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 26 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dlog (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 26 x)] [] (Var 26 _lpython_return_variable) Public .false. .false.), _lfortran_dlog10: (Function (SymbolTable 30 {_lpython_return_variable: (Variable 30 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 30 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dlog10 (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 30 x)] [] (Var 30 _lpython_return_variable) Public .false. .false.), _lfortran_dsin: (Function (SymbolTable 4 {_lpython_return_variable: (Variable 4 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 4 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dsin (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 4 x)] [] (Var 4 _lpython_return_variable) Public .false. .false.), _lfortran_dsinh: (Function (SymbolTable 18 {_lpython_return_variable: (Variable 18 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 18 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dsinh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 18 x)] [] (Var 18 _lpython_return_variable) Public .false. .false.), _lfortran_dtan: (Function (SymbolTable 14 {_lpython_return_variable: (Variable 14 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 14 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dtan (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 14 x)] [] (Var 14 _lpython_return_variable) Public .false. .false.), _lfortran_dtanh: (Function (SymbolTable 44 {_lpython_return_variable: (Variable 44 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 44 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dtanh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 44 x)] [] (Var 44 _lpython_return_variable) Public .false. .false.), _lfortran_sacos: (Function (SymbolTable 42 {_lpython_return_variable: (Variable 42 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 42 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_sacos (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 42 x)] [] (Var 42 _lpython_return_variable) Public .false. .false.), _lfortran_sacosh: (Function (SymbolTable 66 {_lpython_return_variable: (Variable 66 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 66 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_sacosh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 66 x)] [] (Var 66 _lpython_return_variable) Public .false. .false.), _lfortran_sasin: (Function (SymbolTable 38 {_lpython_return_variable: (Variable 38 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 38 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_sasin (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 38 x)] [] (Var 38 _lpython_return_variable) Public .false. .false.), _lfortran_sasinh: (Function (SymbolTable 62 {_lpython_return_variable: (Variable 62 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 62 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_sasinh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 62 x)] [] (Var 62 _lpython_return_variable) Public .false. .false.), _lfortran_satan: (Function (SymbolTable 54 {_lpython_return_variable: (Variable 54 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 54 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_satan (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 54 x)] [] (Var 54 _lpython_return_variable) Public .false. .false.), _lfortran_satanh: (Function (SymbolTable 70 {_lpython_return_variable: (Variable 70 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 70 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_satanh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 70 x)] [] (Var 70 _lpython_return_variable) Public .false. .false.), _lfortran_scos: (Function (SymbolTable 10 {_lpython_return_variable: (Variable 10 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 10 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_scos (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 10 x)] [] (Var 10 _lpython_return_variable) Public .false. .false.), _lfortran_scosh: (Function (SymbolTable 24 {_lpython_return_variable: (Variable 24 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 24 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_scosh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 24 x)] [] (Var 24 _lpython_return_variable) Public .false. .false.), _lfortran_sexp: (Function (SymbolTable 50 {_lpython_return_variable: (Variable 50 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 50 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_sexp (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 50 x)] [] (Var 50 _lpython_return_variable) Public .false. .false.), _lfortran_slog: (Function (SymbolTable 28 {_lpython_return_variable: (Variable 28 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 28 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_slog (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 28 x)] [] (Var 28 _lpython_return_variable) Public .false. .false.), _lfortran_slog10: (Function (SymbolTable 32 {_lpython_return_variable: (Variable 32 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 32 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_slog10 (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 32 x)] [] (Var 32 _lpython_return_variable) Public .false. .false.), _lfortran_ssin: (Function (SymbolTable 6 {_lpython_return_variable: (Variable 6 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 6 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_ssin (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 6 x)] [] (Var 6 _lpython_return_variable) Public .false. .false.), _lfortran_ssinh: (Function (SymbolTable 20 {_lpython_return_variable: (Variable 20 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 20 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_ssinh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 20 x)] [] (Var 20 _lpython_return_variable) Public .false. .false.), _lfortran_stan: (Function (SymbolTable 16 {_lpython_return_variable: (Variable 16 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 16 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_stan (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 16 x)] [] (Var 16 _lpython_return_variable) Public .false. .false.), _lfortran_stanh: (Function (SymbolTable 46 {_lpython_return_variable: (Variable 46 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 46 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_stanh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 46 x)] [] (Var 46 _lpython_return_variable) Public .false. .false.), arccos: (GenericProcedure 3 arccos [3 __lpython_overloaded_0__arccos 3 __lpython_overloaded_1__arccos] Public), arccosh: (GenericProcedure 3 arccosh [3 __lpython_overloaded_0__arccosh 3 __lpython_overloaded_1__arccosh] Public), arcsin: (GenericProcedure 3 arcsin [3 __lpython_overloaded_0__arcsin 3 __lpython_overloaded_1__arcsin] Public), arcsinh: (GenericProcedure 3 arcsinh [3 __lpython_overloaded_0__arcsinh 3 __lpython_overloaded_1__arcsinh] Public), arctan: (GenericProcedure 3 arctan [3 __lpython_overloaded_0__arctan 3 __lpython_overloaded_1__arctan] Public), arctanh: (GenericProcedure 3 arctanh [3 __lpython_overloaded_0__arctanh 3 __lpython_overloaded_1__arctanh] Public), ceil: (GenericProcedure 3 ceil [3 __lpython_overloaded_0__ceil 3 __lpython_overloaded_1__ceil] Public), cos: (GenericProcedure 3 cos [3 __lpython_overloaded_0__cos 3 __lpython_overloaded_1__cos] Public), cosh: (GenericProcedure 3 cosh [3 __lpython_overloaded_0__cosh 3 __lpython_overloaded_1__cosh] Public), degrees: (GenericProcedure 3 degrees [3 __lpython_overloaded_0__degrees 3 __lpython_overloaded_1__degrees] Public), exp: (GenericProcedure 3 exp [3 __lpython_overloaded_0__exp 3 __lpython_overloaded_1__exp] Public), floor: (GenericProcedure 3 floor [3 __lpython_overloaded_0__floor 3 __lpython_overloaded_1__floor] Public), log: (GenericProcedure 3 log [3 __lpython_overloaded_0__log 3 __lpython_overloaded_1__log] Public), log10: (GenericProcedure 3 log10 [3 __lpython_overloaded_0__log10 3 __lpython_overloaded_1__log10] Public), log2: (GenericProcedure 3 log2 [3 __lpython_overloaded_0__log2 3 __lpython_overloaded_1__log2] Public), mod: (GenericProcedure 3 mod [3 __lpython_overloaded_0__mod 3 __lpython_overloaded_1__mod] Public), pi_32: (Variable 3 pi_32 [] Local (Cast (RealConstant 3.141593 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 3.141593 (Real 4 []))) () Default (Real 4 []) Source Public Required .false.), pi_64: (Variable 3 pi_64 [] Local (RealConstant 3.141593 (Real 8 [])) () Default (Real 8 []) Source Public Required .false.), radians: (GenericProcedure 3 radians [3 __lpython_overloaded_0__radians 3 __lpython_overloaded_1__radians] Public), sin: (GenericProcedure 3 sin [3 __lpython_overloaded_0__sin 3 __lpython_overloaded_1__sin] Public), sinh: (GenericProcedure 3 sinh [3 __lpython_overloaded_0__sinh 3 __lpython_overloaded_1__sinh] Public), sqrt: (GenericProcedure 3 sqrt [3 __lpython_overloaded_0__sqrt 3 __lpython_overloaded_1__sqrt] Public), tan: (GenericProcedure 3 tan [3 __lpython_overloaded_0__tan 3 __lpython_overloaded_1__tan] Public), tanh: (GenericProcedure 3 tanh [3 __lpython_overloaded_0__tanh 3 __lpython_overloaded_1__tanh] Public)}) numpy [lpython_builtin lpython_builtin] .false. .false.)}) [])
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            ArraySizes:
+                                (Enum
+                                    (SymbolTable
+                                        225
+                                        {
+                                            SIZE_10:
+                                                (Variable
+                                                    225
+                                                    SIZE_10
+                                                    []
+                                                    Local
+                                                    (IntegerConstant 10 (Integer 4) Decimal)
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            SIZE_3:
+                                                (Variable
+                                                    225
+                                                    SIZE_3
+                                                    []
+                                                    Local
+                                                    (IntegerConstant 3 (Integer 4) Decimal)
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    ArraySizes
+                                    []
+                                    [SIZE_3
+                                    SIZE_10]
+                                    Source
+                                    Public
+                                    IntegerUnique
+                                    (Integer 4)
+                                    ()
+                                ),
+                            __main__global_stmts:
+                                (Function
+                                    (SymbolTable
+                                        232
+                                        {
+                                            
+                                        })
+                                    __main__global_stmts
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [declare_arrays]
+                                    []
+                                    [(SubroutineCall
+                                        2 declare_arrays
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            accept_f32_array:
+                                (Function
+                                    (SymbolTable
+                                        229
+                                        {
+                                            _lpython_return_variable:
+                                                (Variable
+                                                    229
+                                                    _lpython_return_variable
+                                                    []
+                                                    ReturnVar
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            xf32:
+                                                (Variable
+                                                    229
+                                                    xf32
+                                                    []
+                                                    InOut
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Real 4)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        ())]
+                                                        DescriptorArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    accept_f32_array
+                                    (FunctionType
+                                        [(Array
+                                            (Real 4)
+                                            [((IntegerConstant 0 (Integer 4) Decimal)
+                                            ())]
+                                            DescriptorArray
+                                        )]
+                                        (Real 4)
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    [(Var 229 xf32)]
+                                    [(Assignment
+                                        (ArrayItem
+                                            (Var 229 xf32)
+                                            [(()
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            ())]
+                                            (Real 4)
+                                            RowMajor
+                                            ()
+                                        )
+                                        (Cast
+                                            (RealConstant
+                                                32.000000
+                                                (Real 8)
+                                            )
+                                            RealToReal
+                                            (Real 4)
+                                            (RealConstant
+                                                32.000000
+                                                (Real 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 229 _lpython_return_variable)
+                                        (ArrayItem
+                                            (Var 229 xf32)
+                                            [(()
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            ())]
+                                            (Real 4)
+                                            RowMajor
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Return)]
+                                    (Var 229 _lpython_return_variable)
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            accept_f64_array:
+                                (Function
+                                    (SymbolTable
+                                        230
+                                        {
+                                            _lpython_return_variable:
+                                                (Variable
+                                                    230
+                                                    _lpython_return_variable
+                                                    []
+                                                    ReturnVar
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            xf64:
+                                                (Variable
+                                                    230
+                                                    xf64
+                                                    []
+                                                    InOut
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Real 8)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        ())]
+                                                        DescriptorArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    accept_f64_array
+                                    (FunctionType
+                                        [(Array
+                                            (Real 8)
+                                            [((IntegerConstant 0 (Integer 4) Decimal)
+                                            ())]
+                                            DescriptorArray
+                                        )]
+                                        (Real 8)
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    [(Var 230 xf64)]
+                                    [(Assignment
+                                        (ArrayItem
+                                            (Var 230 xf64)
+                                            [(()
+                                            (IntegerConstant 0 (Integer 4) Decimal)
+                                            ())]
+                                            (Real 8)
+                                            RowMajor
+                                            ()
+                                        )
+                                        (RealConstant
+                                            64.000000
+                                            (Real 8)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 230 _lpython_return_variable)
+                                        (ArrayItem
+                                            (Var 230 xf64)
+                                            [(()
+                                            (IntegerConstant 0 (Integer 4) Decimal)
+                                            ())]
+                                            (Real 8)
+                                            RowMajor
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Return)]
+                                    (Var 230 _lpython_return_variable)
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            accept_i16_array:
+                                (Function
+                                    (SymbolTable
+                                        226
+                                        {
+                                            _lpython_return_variable:
+                                                (Variable
+                                                    226
+                                                    _lpython_return_variable
+                                                    []
+                                                    ReturnVar
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 2)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            xi16:
+                                                (Variable
+                                                    226
+                                                    xi16
+                                                    []
+                                                    InOut
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Integer 2)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        ())]
+                                                        DescriptorArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    accept_i16_array
+                                    (FunctionType
+                                        [(Array
+                                            (Integer 2)
+                                            [((IntegerConstant 0 (Integer 4) Decimal)
+                                            ())]
+                                            DescriptorArray
+                                        )]
+                                        (Integer 2)
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    [(Var 226 xi16)]
+                                    [(Assignment
+                                        (ArrayItem
+                                            (Var 226 xi16)
+                                            [(()
+                                            (IntegerConstant 2 (Integer 4) Decimal)
+                                            ())]
+                                            (Integer 2)
+                                            RowMajor
+                                            ()
+                                        )
+                                        (Cast
+                                            (IntegerConstant 32 (Integer 4) Decimal)
+                                            IntegerToInteger
+                                            (Integer 2)
+                                            (IntegerConstant 32 (Integer 2) Decimal)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 226 _lpython_return_variable)
+                                        (ArrayItem
+                                            (Var 226 xi16)
+                                            [(()
+                                            (IntegerConstant 2 (Integer 4) Decimal)
+                                            ())]
+                                            (Integer 2)
+                                            RowMajor
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Return)]
+                                    (Var 226 _lpython_return_variable)
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            accept_i32_array:
+                                (Function
+                                    (SymbolTable
+                                        227
+                                        {
+                                            _lpython_return_variable:
+                                                (Variable
+                                                    227
+                                                    _lpython_return_variable
+                                                    []
+                                                    ReturnVar
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            xi32:
+                                                (Variable
+                                                    227
+                                                    xi32
+                                                    []
+                                                    InOut
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Integer 4)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        ())]
+                                                        DescriptorArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    accept_i32_array
+                                    (FunctionType
+                                        [(Array
+                                            (Integer 4)
+                                            [((IntegerConstant 0 (Integer 4) Decimal)
+                                            ())]
+                                            DescriptorArray
+                                        )]
+                                        (Integer 4)
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    [(Var 227 xi32)]
+                                    [(Assignment
+                                        (ArrayItem
+                                            (Var 227 xi32)
+                                            [(()
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            ())]
+                                            (Integer 4)
+                                            RowMajor
+                                            ()
+                                        )
+                                        (IntegerConstant 32 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 227 _lpython_return_variable)
+                                        (ArrayItem
+                                            (Var 227 xi32)
+                                            [(()
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            ())]
+                                            (Integer 4)
+                                            RowMajor
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Return)]
+                                    (Var 227 _lpython_return_variable)
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            accept_i64_array:
+                                (Function
+                                    (SymbolTable
+                                        228
+                                        {
+                                            _lpython_return_variable:
+                                                (Variable
+                                                    228
+                                                    _lpython_return_variable
+                                                    []
+                                                    ReturnVar
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            xi64:
+                                                (Variable
+                                                    228
+                                                    xi64
+                                                    []
+                                                    InOut
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Integer 8)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        ())]
+                                                        DescriptorArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    accept_i64_array
+                                    (FunctionType
+                                        [(Array
+                                            (Integer 8)
+                                            [((IntegerConstant 0 (Integer 4) Decimal)
+                                            ())]
+                                            DescriptorArray
+                                        )]
+                                        (Integer 8)
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    [(Var 228 xi64)]
+                                    [(Assignment
+                                        (ArrayItem
+                                            (Var 228 xi64)
+                                            [(()
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            ())]
+                                            (Integer 8)
+                                            RowMajor
+                                            ()
+                                        )
+                                        (Cast
+                                            (IntegerConstant 64 (Integer 4) Decimal)
+                                            IntegerToInteger
+                                            (Integer 8)
+                                            (IntegerConstant 64 (Integer 8) Decimal)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 228 _lpython_return_variable)
+                                        (ArrayItem
+                                            (Var 228 xi64)
+                                            [(()
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            ())]
+                                            (Integer 8)
+                                            RowMajor
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Return)]
+                                    (Var 228 _lpython_return_variable)
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            declare_arrays:
+                                (Function
+                                    (SymbolTable
+                                        231
+                                        {
+                                            ac32:
+                                                (Variable
+                                                    231
+                                                    ac32
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Complex 4)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 3 (Integer 4) Decimal))]
+                                                        FixedSizeArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            ac64:
+                                                (Variable
+                                                    231
+                                                    ac64
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Complex 8)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 10 (Integer 4) Decimal))]
+                                                        FixedSizeArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            af32:
+                                                (Variable
+                                                    231
+                                                    af32
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Real 4)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 3 (Integer 4) Decimal))]
+                                                        FixedSizeArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            af64:
+                                                (Variable
+                                                    231
+                                                    af64
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Real 8)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 10 (Integer 4) Decimal))]
+                                                        FixedSizeArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            ai16:
+                                                (Variable
+                                                    231
+                                                    ai16
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Integer 2)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 3 (Integer 4) Decimal))]
+                                                        FixedSizeArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            ai32:
+                                                (Variable
+                                                    231
+                                                    ai32
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Integer 4)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 3 (Integer 4) Decimal))]
+                                                        FixedSizeArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            ai64:
+                                                (Variable
+                                                    231
+                                                    ai64
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Integer 8)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 10 (Integer 4) Decimal))]
+                                                        FixedSizeArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    declare_arrays
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [accept_i16_array
+                                    accept_i32_array
+                                    accept_i64_array
+                                    accept_f32_array
+                                    accept_f64_array]
+                                    []
+                                    [(Assignment
+                                        (Var 231 ai16)
+                                        (ArrayBroadcast
+                                            (ArrayItem
+                                                (Var 231 ai16)
+                                                [(()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())]
+                                                (Integer 2)
+                                                RowMajor
+                                                ()
+                                            )
+                                            (ArrayConstant
+                                                4
+                                                [3]
+                                                (Array
+                                                    (Integer 4)
+                                                    [((IntegerConstant 1 (Integer 4) Decimal)
+                                                    (IntegerConstant 1 (Integer 4) Decimal))]
+                                                    FixedSizeArray
+                                                )
+                                                ColMajor
+                                            )
+                                            (Array
+                                                (Integer 2)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 3 (Integer 4) Decimal))]
+                                                FixedSizeArray
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 231 ai32)
+                                        (ArrayBroadcast
+                                            (ArrayItem
+                                                (Var 231 ai32)
+                                                [(()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())]
+                                                (Integer 4)
+                                                RowMajor
+                                                ()
+                                            )
+                                            (ArrayConstant
+                                                4
+                                                [3]
+                                                (Array
+                                                    (Integer 4)
+                                                    [((IntegerConstant 1 (Integer 4) Decimal)
+                                                    (IntegerConstant 1 (Integer 4) Decimal))]
+                                                    FixedSizeArray
+                                                )
+                                                ColMajor
+                                            )
+                                            (Array
+                                                (Integer 4)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 3 (Integer 4) Decimal))]
+                                                FixedSizeArray
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 231 ai64)
+                                        (ArrayBroadcast
+                                            (ArrayItem
+                                                (Var 231 ai64)
+                                                [(()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())]
+                                                (Integer 8)
+                                                RowMajor
+                                                ()
+                                            )
+                                            (ArrayConstant
+                                                4
+                                                [10]
+                                                (Array
+                                                    (Integer 4)
+                                                    [((IntegerConstant 1 (Integer 4) Decimal)
+                                                    (IntegerConstant 1 (Integer 4) Decimal))]
+                                                    FixedSizeArray
+                                                )
+                                                ColMajor
+                                            )
+                                            (Array
+                                                (Integer 8)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 10 (Integer 4) Decimal))]
+                                                FixedSizeArray
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 231 af32)
+                                        (ArrayBroadcast
+                                            (ArrayItem
+                                                (Var 231 af32)
+                                                [(()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())]
+                                                (Real 4)
+                                                RowMajor
+                                                ()
+                                            )
+                                            (ArrayConstant
+                                                4
+                                                [3]
+                                                (Array
+                                                    (Integer 4)
+                                                    [((IntegerConstant 1 (Integer 4) Decimal)
+                                                    (IntegerConstant 1 (Integer 4) Decimal))]
+                                                    FixedSizeArray
+                                                )
+                                                ColMajor
+                                            )
+                                            (Array
+                                                (Real 4)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 3 (Integer 4) Decimal))]
+                                                FixedSizeArray
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 231 af64)
+                                        (ArrayBroadcast
+                                            (ArrayItem
+                                                (Var 231 af64)
+                                                [(()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())]
+                                                (Real 8)
+                                                RowMajor
+                                                ()
+                                            )
+                                            (ArrayConstant
+                                                4
+                                                [10]
+                                                (Array
+                                                    (Integer 4)
+                                                    [((IntegerConstant 1 (Integer 4) Decimal)
+                                                    (IntegerConstant 1 (Integer 4) Decimal))]
+                                                    FixedSizeArray
+                                                )
+                                                ColMajor
+                                            )
+                                            (Array
+                                                (Real 8)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 10 (Integer 4) Decimal))]
+                                                FixedSizeArray
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 231 ac32)
+                                        (ArrayBroadcast
+                                            (ArrayItem
+                                                (Var 231 ac32)
+                                                [(()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())]
+                                                (Complex 4)
+                                                RowMajor
+                                                ()
+                                            )
+                                            (ArrayConstant
+                                                4
+                                                [3]
+                                                (Array
+                                                    (Integer 4)
+                                                    [((IntegerConstant 1 (Integer 4) Decimal)
+                                                    (IntegerConstant 1 (Integer 4) Decimal))]
+                                                    FixedSizeArray
+                                                )
+                                                ColMajor
+                                            )
+                                            (Array
+                                                (Complex 4)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 3 (Integer 4) Decimal))]
+                                                FixedSizeArray
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 231 ac64)
+                                        (ArrayBroadcast
+                                            (ArrayItem
+                                                (Var 231 ac64)
+                                                [(()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())]
+                                                (Complex 8)
+                                                RowMajor
+                                                ()
+                                            )
+                                            (ArrayConstant
+                                                4
+                                                [10]
+                                                (Array
+                                                    (Integer 4)
+                                                    [((IntegerConstant 1 (Integer 4) Decimal)
+                                                    (IntegerConstant 1 (Integer 4) Decimal))]
+                                                    FixedSizeArray
+                                                )
+                                                ColMajor
+                                            )
+                                            (Array
+                                                (Complex 8)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 10 (Integer 4) Decimal))]
+                                                FixedSizeArray
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(FunctionCall
+                                                2 accept_i16_array
+                                                ()
+                                                [((ArrayPhysicalCast
+                                                    (Var 231 ai16)
+                                                    FixedSizeArray
+                                                    DescriptorArray
+                                                    (Array
+                                                        (Integer 2)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 3 (Integer 4) Decimal))]
+                                                        DescriptorArray
+                                                    )
+                                                    ()
+                                                ))]
+                                                (Integer 2)
+                                                ()
+                                                ()
+                                            )]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(FunctionCall
+                                                2 accept_i32_array
+                                                ()
+                                                [((ArrayPhysicalCast
+                                                    (Var 231 ai32)
+                                                    FixedSizeArray
+                                                    DescriptorArray
+                                                    (Array
+                                                        (Integer 4)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 3 (Integer 4) Decimal))]
+                                                        DescriptorArray
+                                                    )
+                                                    ()
+                                                ))]
+                                                (Integer 4)
+                                                ()
+                                                ()
+                                            )]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(FunctionCall
+                                                2 accept_i64_array
+                                                ()
+                                                [((ArrayPhysicalCast
+                                                    (Var 231 ai64)
+                                                    FixedSizeArray
+                                                    DescriptorArray
+                                                    (Array
+                                                        (Integer 8)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 10 (Integer 4) Decimal))]
+                                                        DescriptorArray
+                                                    )
+                                                    ()
+                                                ))]
+                                                (Integer 8)
+                                                ()
+                                                ()
+                                            )]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(FunctionCall
+                                                2 accept_f32_array
+                                                ()
+                                                [((ArrayPhysicalCast
+                                                    (Var 231 af32)
+                                                    FixedSizeArray
+                                                    DescriptorArray
+                                                    (Array
+                                                        (Real 4)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 3 (Integer 4) Decimal))]
+                                                        DescriptorArray
+                                                    )
+                                                    ()
+                                                ))]
+                                                (Real 4)
+                                                ()
+                                                ()
+                                            )]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(FunctionCall
+                                                2 accept_f64_array
+                                                ()
+                                                [((ArrayPhysicalCast
+                                                    (Var 231 af64)
+                                                    FixedSizeArray
+                                                    DescriptorArray
+                                                    (Array
+                                                        (Real 8)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 10 (Integer 4) Decimal))]
+                                                        DescriptorArray
+                                                    )
+                                                    ()
+                                                ))]
+                                                (Real 8)
+                                                ()
+                                                ()
+                                            )]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    [numpy]
+                    .false.
+                    .false.
+                    .false.
+                ),
+            lpython_builtin:
+                (IntrinsicModule lpython_builtin),
+            main_program:
+                (Program
+                    (SymbolTable
+                        233
+                        {
+                            __main__global_stmts:
+                                (ExternalSymbol
+                                    233
+                                    __main__global_stmts
+                                    2 __main__global_stmts
+                                    __main__
+                                    []
+                                    __main__global_stmts
+                                    Public
+                                )
+                        })
+                    main_program
+                    [__main__]
+                    [(SubroutineCall
+                        233 __main__global_stmts
+                        2 __main__global_stmts
+                        []
+                        ()
+                        .false.
+                    )]
+                ),
+            numpy:
+                (Module numpy)
+        })
+    []
+)
diff --git a/tests/reference/asr-array_02_decl-e8f6874.json b/tests/reference/asr-array_02_decl-e8f6874.json
index bcc3710aaa..289255dc2f 100644
--- a/tests/reference/asr-array_02_decl-e8f6874.json
+++ b/tests/reference/asr-array_02_decl-e8f6874.json
@@ -2,11 +2,11 @@
     "basename": "asr-array_02_decl-e8f6874",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/../integration_tests/array_02_decl.py",
-    "infile_hash": "49bfd0530662b64164eb87c7e1bc53d518a7ccc75469dfb7ced80e5f",
+    "infile_hash": "9a398864499c7a3b4e2a480faf3a5dccaa65f9771a8de27f55f11ca4",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "asr-array_02_decl-e8f6874.stdout",
-    "stdout_hash": "768f04d435a32db40ba224093967cf0acaca792a73c732728e66eee8",
+    "stdout_hash": "af076615a53478a4058f7a52268766f8c1080676887706d5d4f25bb8",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/asr-array_02_decl-e8f6874.stdout b/tests/reference/asr-array_02_decl-e8f6874.stdout
index d58ce59af1..7ea0bfae38 100644
--- a/tests/reference/asr-array_02_decl-e8f6874.stdout
+++ b/tests/reference/asr-array_02_decl-e8f6874.stdout
@@ -1 +1,1088 @@
-(TranslationUnit (SymbolTable 1 {_lpython_main_program: (Function (SymbolTable 177 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [declare_arrays] [] [(SubroutineCall 1 declare_arrays () [] ())] () Public .false. .false.), accept_multidim_f32_array: (Function (SymbolTable 173 {_lpython_return_variable: (Variable 173 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), xf32: (Variable 173 xf32 [] InOut () () Default (Real 4 [(() ())]) Source Public Required .false.)}) accept_multidim_f32_array (FunctionType [(Real 4 [(() ())])] (Real 4 []) Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 173 xf32)] [(= (Var 173 _lpython_return_variable) (ArrayItem (Var 173 xf32) [(() (IntegerConstant 0 (Integer 4 [])) ())] (Real 4 []) RowMajor ()) ()) (Return)] (Var 173 _lpython_return_variable) Public .false. .false.), accept_multidim_f64_array: (Function (SymbolTable 174 {_lpython_return_variable: (Variable 174 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), xf64: (Variable 174 xf64 [] InOut () () Default (Real 8 [(() ()) (() ())]) Source Public Required .false.)}) accept_multidim_f64_array (FunctionType [(Real 8 [(() ()) (() ())])] (Real 8 []) Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 174 xf64)] [(= (Var 174 _lpython_return_variable) (ArrayItem (Var 174 xf64) [(() (IntegerConstant 0 (Integer 4 [])) ()) (() (IntegerConstant 1 (Integer 4 [])) ())] (Real 8 []) RowMajor ()) ()) (Return)] (Var 174 _lpython_return_variable) Public .false. .false.), accept_multidim_i32_array: (Function (SymbolTable 171 {_lpython_return_variable: (Variable 171 _lpython_return_variable [] ReturnVar () () Default (Integer 4 []) Source Public Required .false.), xi32: (Variable 171 xi32 [] InOut () () Default (Integer 4 [(() ()) (() ())]) Source Public Required .false.)}) accept_multidim_i32_array (FunctionType [(Integer 4 [(() ()) (() ())])] (Integer 4 []) Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 171 xi32)] [(= (Var 171 _lpython_return_variable) (ArrayItem (Var 171 xi32) [(() (IntegerConstant 0 (Integer 4 [])) ()) (() (IntegerConstant 0 (Integer 4 [])) ())] (Integer 4 []) RowMajor ()) ()) (Return)] (Var 171 _lpython_return_variable) Public .false. .false.), accept_multidim_i64_array: (Function (SymbolTable 172 {_lpython_return_variable: (Variable 172 _lpython_return_variable [] ReturnVar () () Default (Integer 8 []) Source Public Required .false.), xi64: (Variable 172 xi64 [] InOut () () Default (Integer 8 [(() ()) (() ()) (() ())]) Source Public Required .false.)}) accept_multidim_i64_array (FunctionType [(Integer 8 [(() ()) (() ()) (() ())])] (Integer 8 []) Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 172 xi64)] [(= (Var 172 _lpython_return_variable) (ArrayItem (Var 172 xi64) [(() (IntegerConstant 9 (Integer 4 [])) ()) (() (IntegerConstant 9 (Integer 4 [])) ()) (() (IntegerConstant 9 (Integer 4 [])) ())] (Integer 8 []) RowMajor ()) ()) (Return)] (Var 172 _lpython_return_variable) Public .false. .false.), declare_arrays: (Function (SymbolTable 175 {ac32: (Variable 175 ac32 [] Local () () Default (Complex 4 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 3 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 5 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 99 (Integer 4 [])))]) Source Public Required .false.), ac64: (Variable 175 ac64 [] Local () () Default (Complex 8 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 10 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 13 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 11 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 16 (Integer 4 [])))]) Source Public Required .false.), af32: (Variable 175 af32 [] Local () () Default (Real 4 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 3 (Integer 4 [])))]) Source Public Required .false.), af64: (Variable 175 af64 [] Local () () Default (Real 8 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 10 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 4 (Integer 4 [])))]) Source Public Required .false.), ai32: (Variable 175 ai32 [] Local () () Default (Integer 4 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 3 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 3 (Integer 4 [])))]) Source Public Required .false.), ai64: (Variable 175 ai64 [] Local () () Default (Integer 8 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 10 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 10 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 10 (Integer 4 [])))]) Source Public Required .false.)}) declare_arrays (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [accept_multidim_i32_array accept_multidim_i64_array accept_multidim_f32_array accept_multidim_f64_array] [] [(Print () [(FunctionCall 1 accept_multidim_i32_array () [((Var 175 ai32))] (Integer 4 []) () ())] () ()) (Print () [(FunctionCall 1 accept_multidim_i64_array () [((Var 175 ai64))] (Integer 8 []) () ())] () ()) (Print () [(FunctionCall 1 accept_multidim_f32_array () [((Var 175 af32))] (Real 4 []) () ())] () ()) (Print () [(FunctionCall 1 accept_multidim_f64_array () [((Var 175 af64))] (Real 8 []) () ())] () ())] () Public .false. .false.), lpython_builtin: (IntrinsicModule lpython_builtin), main_program: (Program (SymbolTable 176 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())]), numpy: (Module (SymbolTable 3 {__lpython_overloaded_0__arccos: (Function (SymbolTable 41 {_lpython_return_variable: (Variable 41 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 41 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arccos (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dacos] [(Var 41 x)] [(= (Var 41 _lpython_return_variable) (FunctionCall 3 _lfortran_dacos () [((Var 41 x))] (Real 8 []) () ()) ()) (Return)] (Var 41 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__arccosh: (Function (SymbolTable 65 {_lpython_return_variable: (Variable 65 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 65 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arccosh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dacosh] [(Var 65 x)] [(= (Var 65 _lpython_return_variable) (FunctionCall 3 _lfortran_dacosh () [((Var 65 x))] (Real 8 []) () ()) ()) (Return)] (Var 65 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__arcsin: (Function (SymbolTable 37 {_lpython_return_variable: (Variable 37 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 37 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arcsin (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dasin] [(Var 37 x)] [(= (Var 37 _lpython_return_variable) (FunctionCall 3 _lfortran_dasin () [((Var 37 x))] (Real 8 []) () ()) ()) (Return)] (Var 37 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__arcsinh: (Function (SymbolTable 61 {_lpython_return_variable: (Variable 61 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 61 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arcsinh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dasinh] [(Var 61 x)] [(= (Var 61 _lpython_return_variable) (FunctionCall 3 _lfortran_dasinh () [((Var 61 x))] (Real 8 []) () ()) ()) (Return)] (Var 61 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__arctan: (Function (SymbolTable 53 {_lpython_return_variable: (Variable 53 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 53 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arctan (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_datan] [(Var 53 x)] [(= (Var 53 _lpython_return_variable) (FunctionCall 3 _lfortran_datan () [((Var 53 x))] (Real 8 []) () ()) ()) (Return)] (Var 53 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__arctanh: (Function (SymbolTable 69 {_lpython_return_variable: (Variable 69 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 69 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arctanh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_datanh] [(Var 69 x)] [(= (Var 69 _lpython_return_variable) (FunctionCall 3 _lfortran_datanh () [((Var 69 x))] (Real 8 []) () ()) ()) (Return)] (Var 69 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__ceil: (Function (SymbolTable 76 {_lpython_return_variable: (Variable 76 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), result: (Variable 76 result [] Local () () Default (Integer 8 []) Source Public Required .false.), x: (Variable 76 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__ceil (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 76 x)] [(= (Var 76 result) (Cast (Var 76 x) RealToInteger (Integer 8 []) ()) ()) (If (LogicalBinOp (RealCompare (Var 76 x) LtE (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToReal (Real 8 []) ()) (Logical 4 []) ()) Or (RealCompare (Var 76 x) Eq (Cast (Var 76 result) IntegerToReal (Real 8 []) ()) (Logical 4 []) ()) (Logical 4 []) ()) [(= (Var 76 _lpython_return_variable) (Cast (Var 76 result) IntegerToReal (Real 8 []) ()) ()) (Return)] []) (= (Var 76 _lpython_return_variable) (Cast (IntegerBinOp (Var 76 result) Add (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 1 (Integer 8 []))) (Integer 8 []) ()) IntegerToReal (Real 8 []) ()) ()) (Return)] (Var 76 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__cos: (Function (SymbolTable 9 {_lpython_return_variable: (Variable 9 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 9 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__cos (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dcos] [(Var 9 x)] [(= (Var 9 _lpython_return_variable) (FunctionCall 3 _lfortran_dcos () [((Var 9 x))] (Real 8 []) () ()) ()) (Return)] (Var 9 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__cosh: (Function (SymbolTable 23 {_lpython_return_variable: (Variable 23 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 23 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__cosh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dcosh] [(Var 23 x)] [(= (Var 23 _lpython_return_variable) (FunctionCall 3 _lfortran_dcosh () [((Var 23 x))] (Real 8 []) () ()) ()) (Return)] (Var 23 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__degrees: (Function (SymbolTable 56 {_lpython_return_variable: (Variable 56 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 56 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__degrees (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 56 x)] [(= (Var 56 _lpython_return_variable) (RealBinOp (RealBinOp (Var 56 x) Mul (RealConstant 180.000000 (Real 8 [])) (Real 8 []) ()) Div (Var 3 pi_64) (Real 8 []) ()) ()) (Return)] (Var 56 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__exp: (Function (SymbolTable 49 {_lpython_return_variable: (Variable 49 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 49 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__exp (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dexp] [(Var 49 x)] [(= (Var 49 _lpython_return_variable) (FunctionCall 3 _lfortran_dexp () [((Var 49 x))] (Real 8 []) () ()) ()) (Return)] (Var 49 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__floor: (Function (SymbolTable 74 {_lpython_return_variable: (Variable 74 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), result: (Variable 74 result [] Local () () Default (Integer 8 []) Source Public Required .false.), x: (Variable 74 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__floor (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 74 x)] [(= (Var 74 result) (Cast (Var 74 x) RealToInteger (Integer 8 []) ()) ()) (If (LogicalBinOp (RealCompare (Var 74 x) GtE (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToReal (Real 8 []) ()) (Logical 4 []) ()) Or (RealCompare (Var 74 x) Eq (Cast (Var 74 result) IntegerToReal (Real 8 []) ()) (Logical 4 []) ()) (Logical 4 []) ()) [(= (Var 74 _lpython_return_variable) (Cast (Var 74 result) IntegerToReal (Real 8 []) ()) ()) (Return)] []) (= (Var 74 _lpython_return_variable) (Cast (IntegerBinOp (Var 74 result) Sub (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 1 (Integer 8 []))) (Integer 8 []) ()) IntegerToReal (Real 8 []) ()) ()) (Return)] (Var 74 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__log: (Function (SymbolTable 27 {_lpython_return_variable: (Variable 27 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 27 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__log (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dlog] [(Var 27 x)] [(= (Var 27 _lpython_return_variable) (FunctionCall 3 _lfortran_dlog () [((Var 27 x))] (Real 8 []) () ()) ()) (Return)] (Var 27 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__log10: (Function (SymbolTable 31 {_lpython_return_variable: (Variable 31 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 31 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__log10 (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dlog10] [(Var 31 x)] [(= (Var 31 _lpython_return_variable) (FunctionCall 3 _lfortran_dlog10 () [((Var 31 x))] (Real 8 []) () ()) ()) (Return)] (Var 31 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__log2: (Function (SymbolTable 34 {_lpython_return_variable: (Variable 34 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 34 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__log2 (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dlog _lfortran_dlog] [(Var 34 x)] [(= (Var 34 _lpython_return_variable) (RealBinOp (FunctionCall 3 _lfortran_dlog () [((Var 34 x))] (Real 8 []) () ()) Div (FunctionCall 3 _lfortran_dlog () [((RealConstant 2.000000 (Real 8 [])))] (Real 8 []) () ()) (Real 8 []) ()) ()) (Return)] (Var 34 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__mod: (Function (SymbolTable 72 {_lpython_return_variable: (Variable 72 _lpython_return_variable [] ReturnVar () () Default (Integer 8 []) Source Public Required .false.), _mod: (ExternalSymbol 72 _mod 79 _mod lpython_builtin [] _mod Private), _mod@__lpython_overloaded_2___mod: (ExternalSymbol 72 _mod@__lpython_overloaded_2___mod 79 __lpython_overloaded_2___mod lpython_builtin [] __lpython_overloaded_2___mod Public), x1: (Variable 72 x1 [] In () () Default (Integer 8 []) Source Public Required .false.), x2: (Variable 72 x2 [] In () () Default (Integer 8 []) Source Public Required .false.)}) __lpython_overloaded_0__mod (FunctionType [(Integer 8 []) (Integer 8 [])] (Integer 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_mod@__lpython_overloaded_2___mod] [(Var 72 x1) (Var 72 x2)] [(If (IntegerCompare (Var 72 x2) Eq (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 0 (Integer 8 []))) (Logical 4 []) ()) [(= (Var 72 _lpython_return_variable) (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToInteger (Integer 8 []) ()) ()) (Return)] []) (= (Var 72 _lpython_return_variable) (FunctionCall 72 _mod@__lpython_overloaded_2___mod 72 _mod [((Var 72 x1)) ((Var 72 x2))] (Integer 8 []) () ()) ()) (Return)] (Var 72 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__radians: (Function (SymbolTable 58 {_lpython_return_variable: (Variable 58 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 58 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__radians (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 58 x)] [(= (Var 58 _lpython_return_variable) (RealBinOp (RealBinOp (Var 58 x) Mul (Var 3 pi_64) (Real 8 []) ()) Div (RealConstant 180.000000 (Real 8 [])) (Real 8 []) ()) ()) (Return)] (Var 58 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__sin: (Function (SymbolTable 5 {_lpython_return_variable: (Variable 5 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 5 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__sin (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dsin] [(Var 5 x)] [(= (Var 5 _lpython_return_variable) (FunctionCall 3 _lfortran_dsin () [((Var 5 x))] (Real 8 []) () ()) ()) (Return)] (Var 5 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__sinh: (Function (SymbolTable 19 {_lpython_return_variable: (Variable 19 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 19 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__sinh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dsinh] [(Var 19 x)] [(= (Var 19 _lpython_return_variable) (FunctionCall 3 _lfortran_dsinh () [((Var 19 x))] (Real 8 []) () ()) ()) (Return)] (Var 19 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__sqrt: (Function (SymbolTable 12 {_lpython_return_variable: (Variable 12 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 12 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__sqrt (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 12 x)] [(= (Var 12 _lpython_return_variable) (RealBinOp (Var 12 x) Pow (RealBinOp (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToReal (Real 8 []) ()) Div (Cast (IntegerConstant 2 (Integer 4 [])) IntegerToReal (Real 8 []) ()) (Real 8 []) ()) (Real 8 []) ()) ()) (Return)] (Var 12 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__tan: (Function (SymbolTable 15 {_lpython_return_variable: (Variable 15 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 15 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__tan (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dtan] [(Var 15 x)] [(= (Var 15 _lpython_return_variable) (FunctionCall 3 _lfortran_dtan () [((Var 15 x))] (Real 8 []) () ()) ()) (Return)] (Var 15 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__tanh: (Function (SymbolTable 45 {_lpython_return_variable: (Variable 45 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 45 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__tanh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dtanh] [(Var 45 x)] [(= (Var 45 _lpython_return_variable) (FunctionCall 3 _lfortran_dtanh () [((Var 45 x))] (Real 8 []) () ()) ()) (Return)] (Var 45 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arccos: (Function (SymbolTable 43 {_lpython_return_variable: (Variable 43 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 43 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arccos (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_sacos] [(Var 43 x)] [(= (Var 43 _lpython_return_variable) (FunctionCall 3 _lfortran_sacos () [((Var 43 x))] (Real 4 []) () ()) ()) (Return)] (Var 43 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arccosh: (Function (SymbolTable 67 {_lpython_return_variable: (Variable 67 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 67 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arccosh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_sacosh] [(Var 67 x)] [(= (Var 67 _lpython_return_variable) (FunctionCall 3 _lfortran_sacosh () [((Var 67 x))] (Real 4 []) () ()) ()) (Return)] (Var 67 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arcsin: (Function (SymbolTable 39 {_lpython_return_variable: (Variable 39 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 39 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arcsin (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_sasin] [(Var 39 x)] [(= (Var 39 _lpython_return_variable) (FunctionCall 3 _lfortran_sasin () [((Var 39 x))] (Real 4 []) () ()) ()) (Return)] (Var 39 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arcsinh: (Function (SymbolTable 63 {_lpython_return_variable: (Variable 63 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 63 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arcsinh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_sasinh] [(Var 63 x)] [(= (Var 63 _lpython_return_variable) (FunctionCall 3 _lfortran_sasinh () [((Var 63 x))] (Real 4 []) () ()) ()) (Return)] (Var 63 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arctan: (Function (SymbolTable 55 {_lpython_return_variable: (Variable 55 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 55 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arctan (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_satan] [(Var 55 x)] [(= (Var 55 _lpython_return_variable) (FunctionCall 3 _lfortran_satan () [((Var 55 x))] (Real 4 []) () ()) ()) (Return)] (Var 55 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arctanh: (Function (SymbolTable 71 {_lpython_return_variable: (Variable 71 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 71 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arctanh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_satanh] [(Var 71 x)] [(= (Var 71 _lpython_return_variable) (FunctionCall 3 _lfortran_satanh () [((Var 71 x))] (Real 4 []) () ()) ()) (Return)] (Var 71 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__ceil: (Function (SymbolTable 77 {_lpython_return_variable: (Variable 77 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), resultf: (Variable 77 resultf [x] Local (Cast (Cast (Var 77 x) RealToInteger (Integer 4 []) ()) IntegerToReal (Real 4 []) ()) () Default (Real 4 []) Source Public Required .false.), x: (Variable 77 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__ceil (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 77 x)] [(= (Var 77 resultf) (Cast (Cast (Var 77 x) RealToInteger (Integer 4 []) ()) IntegerToReal (Real 4 []) ()) ()) (If (LogicalBinOp (RealCompare (Var 77 x) LtE (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Logical 4 []) ()) Or (RealCompare (Var 77 x) Eq (Var 77 resultf) (Logical 4 []) ()) (Logical 4 []) ()) [(= (Var 77 _lpython_return_variable) (Var 77 resultf) ()) (Return)] []) (= (Var 77 _lpython_return_variable) (RealBinOp (Var 77 resultf) Add (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Real 4 []) ()) ()) (Return)] (Var 77 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__cos: (Function (SymbolTable 11 {_lpython_return_variable: (Variable 11 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 11 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__cos (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_scos] [(Var 11 x)] [(= (Var 11 _lpython_return_variable) (FunctionCall 3 _lfortran_scos () [((Var 11 x))] (Real 4 []) () ()) ()) (Return)] (Var 11 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__cosh: (Function (SymbolTable 25 {_lpython_return_variable: (Variable 25 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 25 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__cosh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_scosh] [(Var 25 x)] [(= (Var 25 _lpython_return_variable) (FunctionCall 3 _lfortran_scosh () [((Var 25 x))] (Real 4 []) () ()) ()) (Return)] (Var 25 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__degrees: (Function (SymbolTable 57 {_lpython_return_variable: (Variable 57 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 57 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__degrees (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 57 x)] [(= (Var 57 _lpython_return_variable) (RealBinOp (Var 57 x) Mul (RealBinOp (Cast (IntegerConstant 180 (Integer 4 [])) IntegerToReal (Real 4 []) ()) Div (Var 3 pi_32) (Real 4 []) ()) (Real 4 []) ()) ()) (Return)] (Var 57 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__exp: (Function (SymbolTable 51 {_lpython_return_variable: (Variable 51 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 51 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__exp (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_sexp] [(Var 51 x)] [(= (Var 51 _lpython_return_variable) (FunctionCall 3 _lfortran_sexp () [((Var 51 x))] (Real 4 []) () ()) ()) (Return)] (Var 51 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__floor: (Function (SymbolTable 75 {_lpython_return_variable: (Variable 75 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), resultf: (Variable 75 resultf [x] Local (Cast (Cast (Var 75 x) RealToInteger (Integer 4 []) ()) IntegerToReal (Real 4 []) ()) () Default (Real 4 []) Source Public Required .false.), x: (Variable 75 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__floor (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 75 x)] [(= (Var 75 resultf) (Cast (Cast (Var 75 x) RealToInteger (Integer 4 []) ()) IntegerToReal (Real 4 []) ()) ()) (If (LogicalBinOp (RealCompare (Var 75 x) GtE (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Logical 4 []) ()) Or (RealCompare (Var 75 x) Eq (Var 75 resultf) (Logical 4 []) ()) (Logical 4 []) ()) [(= (Var 75 _lpython_return_variable) (Var 75 resultf) ()) (Return)] []) (= (Var 75 _lpython_return_variable) (RealBinOp (Var 75 resultf) Sub (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Real 4 []) ()) ()) (Return)] (Var 75 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__log: (Function (SymbolTable 29 {_lpython_return_variable: (Variable 29 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 29 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__log (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_slog] [(Var 29 x)] [(= (Var 29 _lpython_return_variable) (FunctionCall 3 _lfortran_slog () [((Var 29 x))] (Real 4 []) () ()) ()) (Return)] (Var 29 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__log10: (Function (SymbolTable 33 {_lpython_return_variable: (Variable 33 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 33 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__log10 (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_slog10] [(Var 33 x)] [(= (Var 33 _lpython_return_variable) (FunctionCall 3 _lfortran_slog10 () [((Var 33 x))] (Real 4 []) () ()) ()) (Return)] (Var 33 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__log2: (Function (SymbolTable 35 {_lpython_return_variable: (Variable 35 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 35 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__log2 (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_slog _lfortran_slog] [(Var 35 x)] [(= (Var 35 _lpython_return_variable) (RealBinOp (FunctionCall 3 _lfortran_slog () [((Var 35 x))] (Real 4 []) () ()) Div (FunctionCall 3 _lfortran_slog () [((Cast (RealConstant 2.000000 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 2.000000 (Real 4 []))))] (Real 4 []) () ()) (Real 4 []) ()) ()) (Return)] (Var 35 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__mod: (Function (SymbolTable 73 {_lpython_return_variable: (Variable 73 _lpython_return_variable [] ReturnVar () () Default (Integer 4 []) Source Public Required .false.), _mod: (ExternalSymbol 73 _mod 79 _mod lpython_builtin [] _mod Private), _mod@__lpython_overloaded_0___mod: (ExternalSymbol 73 _mod@__lpython_overloaded_0___mod 79 __lpython_overloaded_0___mod lpython_builtin [] __lpython_overloaded_0___mod Public), x1: (Variable 73 x1 [] In () () Default (Integer 4 []) Source Public Required .false.), x2: (Variable 73 x2 [] In () () Default (Integer 4 []) Source Public Required .false.)}) __lpython_overloaded_1__mod (FunctionType [(Integer 4 []) (Integer 4 [])] (Integer 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_mod@__lpython_overloaded_0___mod] [(Var 73 x1) (Var 73 x2)] [(If (IntegerCompare (Var 73 x2) Eq (IntegerConstant 0 (Integer 4 [])) (Logical 4 []) ()) [(= (Var 73 _lpython_return_variable) (IntegerConstant 0 (Integer 4 [])) ()) (Return)] []) (= (Var 73 _lpython_return_variable) (FunctionCall 73 _mod@__lpython_overloaded_0___mod 73 _mod [((Var 73 x1)) ((Var 73 x2))] (Integer 4 []) () ()) ()) (Return)] (Var 73 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__radians: (Function (SymbolTable 59 {_lpython_return_variable: (Variable 59 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 59 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__radians (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 59 x)] [(= (Var 59 _lpython_return_variable) (RealBinOp (Var 59 x) Mul (RealBinOp (Var 3 pi_32) Div (Cast (IntegerConstant 180 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Real 4 []) ()) (Real 4 []) ()) ()) (Return)] (Var 59 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__sin: (Function (SymbolTable 7 {_lpython_return_variable: (Variable 7 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 7 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__sin (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_ssin] [(Var 7 x)] [(= (Var 7 _lpython_return_variable) (FunctionCall 3 _lfortran_ssin () [((Var 7 x))] (Real 4 []) () ()) ()) (Return)] (Var 7 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__sinh: (Function (SymbolTable 21 {_lpython_return_variable: (Variable 21 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 21 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__sinh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_ssinh] [(Var 21 x)] [(= (Var 21 _lpython_return_variable) (FunctionCall 3 _lfortran_ssinh () [((Var 21 x))] (Real 4 []) () ()) ()) (Return)] (Var 21 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__sqrt: (Function (SymbolTable 13 {_lpython_return_variable: (Variable 13 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 13 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__sqrt (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 13 x)] [(= (Var 13 _lpython_return_variable) (RealBinOp (Var 13 x) Pow (Cast (RealBinOp (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToReal (Real 8 []) ()) Div (Cast (IntegerConstant 2 (Integer 4 [])) IntegerToReal (Real 8 []) ()) (Real 8 []) ()) RealToReal (Real 4 []) ()) (Real 4 []) ()) ()) (Return)] (Var 13 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__tan: (Function (SymbolTable 17 {_lpython_return_variable: (Variable 17 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 17 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__tan (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_stan] [(Var 17 x)] [(= (Var 17 _lpython_return_variable) (FunctionCall 3 _lfortran_stan () [((Var 17 x))] (Real 4 []) () ()) ()) (Return)] (Var 17 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__tanh: (Function (SymbolTable 47 {_lpython_return_variable: (Variable 47 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 47 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__tanh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_stanh] [(Var 47 x)] [(= (Var 47 _lpython_return_variable) (FunctionCall 3 _lfortran_stanh () [((Var 47 x))] (Real 4 []) () ()) ()) (Return)] (Var 47 _lpython_return_variable) Public .false. .false.), _lfortran_dacos: (Function (SymbolTable 40 {_lpython_return_variable: (Variable 40 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 40 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dacos (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 40 x)] [] (Var 40 _lpython_return_variable) Public .false. .false.), _lfortran_dacosh: (Function (SymbolTable 64 {_lpython_return_variable: (Variable 64 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 64 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dacosh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 64 x)] [] (Var 64 _lpython_return_variable) Public .false. .false.), _lfortran_dasin: (Function (SymbolTable 36 {_lpython_return_variable: (Variable 36 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 36 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dasin (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 36 x)] [] (Var 36 _lpython_return_variable) Public .false. .false.), _lfortran_dasinh: (Function (SymbolTable 60 {_lpython_return_variable: (Variable 60 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 60 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dasinh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 60 x)] [] (Var 60 _lpython_return_variable) Public .false. .false.), _lfortran_datan: (Function (SymbolTable 52 {_lpython_return_variable: (Variable 52 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 52 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_datan (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 52 x)] [] (Var 52 _lpython_return_variable) Public .false. .false.), _lfortran_datanh: (Function (SymbolTable 68 {_lpython_return_variable: (Variable 68 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 68 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_datanh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 68 x)] [] (Var 68 _lpython_return_variable) Public .false. .false.), _lfortran_dcos: (Function (SymbolTable 8 {_lpython_return_variable: (Variable 8 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 8 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dcos (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 8 x)] [] (Var 8 _lpython_return_variable) Public .false. .false.), _lfortran_dcosh: (Function (SymbolTable 22 {_lpython_return_variable: (Variable 22 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 22 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dcosh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 22 x)] [] (Var 22 _lpython_return_variable) Public .false. .false.), _lfortran_dexp: (Function (SymbolTable 48 {_lpython_return_variable: (Variable 48 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 48 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dexp (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 48 x)] [] (Var 48 _lpython_return_variable) Public .false. .false.), _lfortran_dlog: (Function (SymbolTable 26 {_lpython_return_variable: (Variable 26 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 26 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dlog (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 26 x)] [] (Var 26 _lpython_return_variable) Public .false. .false.), _lfortran_dlog10: (Function (SymbolTable 30 {_lpython_return_variable: (Variable 30 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 30 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dlog10 (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 30 x)] [] (Var 30 _lpython_return_variable) Public .false. .false.), _lfortran_dsin: (Function (SymbolTable 4 {_lpython_return_variable: (Variable 4 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 4 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dsin (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 4 x)] [] (Var 4 _lpython_return_variable) Public .false. .false.), _lfortran_dsinh: (Function (SymbolTable 18 {_lpython_return_variable: (Variable 18 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 18 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dsinh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 18 x)] [] (Var 18 _lpython_return_variable) Public .false. .false.), _lfortran_dtan: (Function (SymbolTable 14 {_lpython_return_variable: (Variable 14 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 14 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dtan (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 14 x)] [] (Var 14 _lpython_return_variable) Public .false. .false.), _lfortran_dtanh: (Function (SymbolTable 44 {_lpython_return_variable: (Variable 44 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 44 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dtanh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 44 x)] [] (Var 44 _lpython_return_variable) Public .false. .false.), _lfortran_sacos: (Function (SymbolTable 42 {_lpython_return_variable: (Variable 42 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 42 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_sacos (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 42 x)] [] (Var 42 _lpython_return_variable) Public .false. .false.), _lfortran_sacosh: (Function (SymbolTable 66 {_lpython_return_variable: (Variable 66 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 66 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_sacosh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 66 x)] [] (Var 66 _lpython_return_variable) Public .false. .false.), _lfortran_sasin: (Function (SymbolTable 38 {_lpython_return_variable: (Variable 38 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 38 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_sasin (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 38 x)] [] (Var 38 _lpython_return_variable) Public .false. .false.), _lfortran_sasinh: (Function (SymbolTable 62 {_lpython_return_variable: (Variable 62 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 62 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_sasinh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 62 x)] [] (Var 62 _lpython_return_variable) Public .false. .false.), _lfortran_satan: (Function (SymbolTable 54 {_lpython_return_variable: (Variable 54 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 54 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_satan (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 54 x)] [] (Var 54 _lpython_return_variable) Public .false. .false.), _lfortran_satanh: (Function (SymbolTable 70 {_lpython_return_variable: (Variable 70 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 70 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_satanh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 70 x)] [] (Var 70 _lpython_return_variable) Public .false. .false.), _lfortran_scos: (Function (SymbolTable 10 {_lpython_return_variable: (Variable 10 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 10 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_scos (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 10 x)] [] (Var 10 _lpython_return_variable) Public .false. .false.), _lfortran_scosh: (Function (SymbolTable 24 {_lpython_return_variable: (Variable 24 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 24 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_scosh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 24 x)] [] (Var 24 _lpython_return_variable) Public .false. .false.), _lfortran_sexp: (Function (SymbolTable 50 {_lpython_return_variable: (Variable 50 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 50 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_sexp (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 50 x)] [] (Var 50 _lpython_return_variable) Public .false. .false.), _lfortran_slog: (Function (SymbolTable 28 {_lpython_return_variable: (Variable 28 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 28 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_slog (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 28 x)] [] (Var 28 _lpython_return_variable) Public .false. .false.), _lfortran_slog10: (Function (SymbolTable 32 {_lpython_return_variable: (Variable 32 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 32 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_slog10 (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 32 x)] [] (Var 32 _lpython_return_variable) Public .false. .false.), _lfortran_ssin: (Function (SymbolTable 6 {_lpython_return_variable: (Variable 6 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 6 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_ssin (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 6 x)] [] (Var 6 _lpython_return_variable) Public .false. .false.), _lfortran_ssinh: (Function (SymbolTable 20 {_lpython_return_variable: (Variable 20 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 20 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_ssinh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 20 x)] [] (Var 20 _lpython_return_variable) Public .false. .false.), _lfortran_stan: (Function (SymbolTable 16 {_lpython_return_variable: (Variable 16 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 16 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_stan (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 16 x)] [] (Var 16 _lpython_return_variable) Public .false. .false.), _lfortran_stanh: (Function (SymbolTable 46 {_lpython_return_variable: (Variable 46 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 46 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_stanh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 46 x)] [] (Var 46 _lpython_return_variable) Public .false. .false.), arccos: (GenericProcedure 3 arccos [3 __lpython_overloaded_0__arccos 3 __lpython_overloaded_1__arccos] Public), arccosh: (GenericProcedure 3 arccosh [3 __lpython_overloaded_0__arccosh 3 __lpython_overloaded_1__arccosh] Public), arcsin: (GenericProcedure 3 arcsin [3 __lpython_overloaded_0__arcsin 3 __lpython_overloaded_1__arcsin] Public), arcsinh: (GenericProcedure 3 arcsinh [3 __lpython_overloaded_0__arcsinh 3 __lpython_overloaded_1__arcsinh] Public), arctan: (GenericProcedure 3 arctan [3 __lpython_overloaded_0__arctan 3 __lpython_overloaded_1__arctan] Public), arctanh: (GenericProcedure 3 arctanh [3 __lpython_overloaded_0__arctanh 3 __lpython_overloaded_1__arctanh] Public), ceil: (GenericProcedure 3 ceil [3 __lpython_overloaded_0__ceil 3 __lpython_overloaded_1__ceil] Public), cos: (GenericProcedure 3 cos [3 __lpython_overloaded_0__cos 3 __lpython_overloaded_1__cos] Public), cosh: (GenericProcedure 3 cosh [3 __lpython_overloaded_0__cosh 3 __lpython_overloaded_1__cosh] Public), degrees: (GenericProcedure 3 degrees [3 __lpython_overloaded_0__degrees 3 __lpython_overloaded_1__degrees] Public), exp: (GenericProcedure 3 exp [3 __lpython_overloaded_0__exp 3 __lpython_overloaded_1__exp] Public), floor: (GenericProcedure 3 floor [3 __lpython_overloaded_0__floor 3 __lpython_overloaded_1__floor] Public), log: (GenericProcedure 3 log [3 __lpython_overloaded_0__log 3 __lpython_overloaded_1__log] Public), log10: (GenericProcedure 3 log10 [3 __lpython_overloaded_0__log10 3 __lpython_overloaded_1__log10] Public), log2: (GenericProcedure 3 log2 [3 __lpython_overloaded_0__log2 3 __lpython_overloaded_1__log2] Public), mod: (GenericProcedure 3 mod [3 __lpython_overloaded_0__mod 3 __lpython_overloaded_1__mod] Public), pi_32: (Variable 3 pi_32 [] Local (Cast (RealConstant 3.141593 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 3.141593 (Real 4 []))) () Default (Real 4 []) Source Public Required .false.), pi_64: (Variable 3 pi_64 [] Local (RealConstant 3.141593 (Real 8 [])) () Default (Real 8 []) Source Public Required .false.), radians: (GenericProcedure 3 radians [3 __lpython_overloaded_0__radians 3 __lpython_overloaded_1__radians] Public), sin: (GenericProcedure 3 sin [3 __lpython_overloaded_0__sin 3 __lpython_overloaded_1__sin] Public), sinh: (GenericProcedure 3 sinh [3 __lpython_overloaded_0__sinh 3 __lpython_overloaded_1__sinh] Public), sqrt: (GenericProcedure 3 sqrt [3 __lpython_overloaded_0__sqrt 3 __lpython_overloaded_1__sqrt] Public), tan: (GenericProcedure 3 tan [3 __lpython_overloaded_0__tan 3 __lpython_overloaded_1__tan] Public), tanh: (GenericProcedure 3 tanh [3 __lpython_overloaded_0__tanh 3 __lpython_overloaded_1__tanh] Public)}) numpy [lpython_builtin lpython_builtin] .false. .false.)}) [])
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            __main__global_stmts:
+                                (Function
+                                    (SymbolTable
+                                        230
+                                        {
+                                            
+                                        })
+                                    __main__global_stmts
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [declare_arrays]
+                                    []
+                                    [(SubroutineCall
+                                        2 declare_arrays
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            accept_multidim_f32_array:
+                                (Function
+                                    (SymbolTable
+                                        227
+                                        {
+                                            _lpython_return_variable:
+                                                (Variable
+                                                    227
+                                                    _lpython_return_variable
+                                                    []
+                                                    ReturnVar
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            xf32:
+                                                (Variable
+                                                    227
+                                                    xf32
+                                                    []
+                                                    InOut
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Real 4)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        ())]
+                                                        DescriptorArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    accept_multidim_f32_array
+                                    (FunctionType
+                                        [(Array
+                                            (Real 4)
+                                            [((IntegerConstant 0 (Integer 4) Decimal)
+                                            ())]
+                                            DescriptorArray
+                                        )]
+                                        (Real 4)
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    [(Var 227 xf32)]
+                                    [(Assignment
+                                        (Var 227 _lpython_return_variable)
+                                        (ArrayItem
+                                            (Var 227 xf32)
+                                            [(()
+                                            (IntegerConstant 0 (Integer 4) Decimal)
+                                            ())]
+                                            (Real 4)
+                                            RowMajor
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Return)]
+                                    (Var 227 _lpython_return_variable)
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            accept_multidim_f64_array:
+                                (Function
+                                    (SymbolTable
+                                        228
+                                        {
+                                            _lpython_return_variable:
+                                                (Variable
+                                                    228
+                                                    _lpython_return_variable
+                                                    []
+                                                    ReturnVar
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            xf64:
+                                                (Variable
+                                                    228
+                                                    xf64
+                                                    []
+                                                    InOut
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Real 8)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        ())
+                                                        ((IntegerConstant 0 (Integer 4) Decimal)
+                                                        ())]
+                                                        DescriptorArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    accept_multidim_f64_array
+                                    (FunctionType
+                                        [(Array
+                                            (Real 8)
+                                            [((IntegerConstant 0 (Integer 4) Decimal)
+                                            ())
+                                            ((IntegerConstant 0 (Integer 4) Decimal)
+                                            ())]
+                                            DescriptorArray
+                                        )]
+                                        (Real 8)
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    [(Var 228 xf64)]
+                                    [(Assignment
+                                        (Var 228 _lpython_return_variable)
+                                        (ArrayItem
+                                            (Var 228 xf64)
+                                            [(()
+                                            (IntegerConstant 0 (Integer 4) Decimal)
+                                            ())
+                                            (()
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            ())]
+                                            (Real 8)
+                                            RowMajor
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Return)]
+                                    (Var 228 _lpython_return_variable)
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            accept_multidim_i32_array:
+                                (Function
+                                    (SymbolTable
+                                        225
+                                        {
+                                            _lpython_return_variable:
+                                                (Variable
+                                                    225
+                                                    _lpython_return_variable
+                                                    []
+                                                    ReturnVar
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            xi32:
+                                                (Variable
+                                                    225
+                                                    xi32
+                                                    []
+                                                    InOut
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Integer 4)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        ())
+                                                        ((IntegerConstant 0 (Integer 4) Decimal)
+                                                        ())]
+                                                        DescriptorArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    accept_multidim_i32_array
+                                    (FunctionType
+                                        [(Array
+                                            (Integer 4)
+                                            [((IntegerConstant 0 (Integer 4) Decimal)
+                                            ())
+                                            ((IntegerConstant 0 (Integer 4) Decimal)
+                                            ())]
+                                            DescriptorArray
+                                        )]
+                                        (Integer 4)
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    [(Var 225 xi32)]
+                                    [(Assignment
+                                        (Var 225 _lpython_return_variable)
+                                        (ArrayItem
+                                            (Var 225 xi32)
+                                            [(()
+                                            (IntegerConstant 0 (Integer 4) Decimal)
+                                            ())
+                                            (()
+                                            (IntegerConstant 0 (Integer 4) Decimal)
+                                            ())]
+                                            (Integer 4)
+                                            RowMajor
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Return)]
+                                    (Var 225 _lpython_return_variable)
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            accept_multidim_i64_array:
+                                (Function
+                                    (SymbolTable
+                                        226
+                                        {
+                                            _lpython_return_variable:
+                                                (Variable
+                                                    226
+                                                    _lpython_return_variable
+                                                    []
+                                                    ReturnVar
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            xi64:
+                                                (Variable
+                                                    226
+                                                    xi64
+                                                    []
+                                                    InOut
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Integer 8)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        ())
+                                                        ((IntegerConstant 0 (Integer 4) Decimal)
+                                                        ())
+                                                        ((IntegerConstant 0 (Integer 4) Decimal)
+                                                        ())]
+                                                        DescriptorArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    accept_multidim_i64_array
+                                    (FunctionType
+                                        [(Array
+                                            (Integer 8)
+                                            [((IntegerConstant 0 (Integer 4) Decimal)
+                                            ())
+                                            ((IntegerConstant 0 (Integer 4) Decimal)
+                                            ())
+                                            ((IntegerConstant 0 (Integer 4) Decimal)
+                                            ())]
+                                            DescriptorArray
+                                        )]
+                                        (Integer 8)
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    [(Var 226 xi64)]
+                                    [(Assignment
+                                        (Var 226 _lpython_return_variable)
+                                        (ArrayItem
+                                            (Var 226 xi64)
+                                            [(()
+                                            (IntegerConstant 9 (Integer 4) Decimal)
+                                            ())
+                                            (()
+                                            (IntegerConstant 9 (Integer 4) Decimal)
+                                            ())
+                                            (()
+                                            (IntegerConstant 9 (Integer 4) Decimal)
+                                            ())]
+                                            (Integer 8)
+                                            RowMajor
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Return)]
+                                    (Var 226 _lpython_return_variable)
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            declare_arrays:
+                                (Function
+                                    (SymbolTable
+                                        229
+                                        {
+                                            ac32:
+                                                (Variable
+                                                    229
+                                                    ac32
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Complex 4)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 3 (Integer 4) Decimal))
+                                                        ((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 5 (Integer 4) Decimal))
+                                                        ((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 99 (Integer 4) Decimal))]
+                                                        FixedSizeArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            ac64:
+                                                (Variable
+                                                    229
+                                                    ac64
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Complex 8)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 10 (Integer 4) Decimal))
+                                                        ((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 13 (Integer 4) Decimal))
+                                                        ((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 11 (Integer 4) Decimal))
+                                                        ((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 16 (Integer 4) Decimal))]
+                                                        FixedSizeArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            af32:
+                                                (Variable
+                                                    229
+                                                    af32
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Real 4)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 3 (Integer 4) Decimal))]
+                                                        FixedSizeArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            af64:
+                                                (Variable
+                                                    229
+                                                    af64
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Real 8)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 10 (Integer 4) Decimal))
+                                                        ((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 4 (Integer 4) Decimal))]
+                                                        FixedSizeArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            ai32:
+                                                (Variable
+                                                    229
+                                                    ai32
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Integer 4)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 3 (Integer 4) Decimal))
+                                                        ((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 3 (Integer 4) Decimal))]
+                                                        FixedSizeArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            ai64:
+                                                (Variable
+                                                    229
+                                                    ai64
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Integer 8)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 10 (Integer 4) Decimal))
+                                                        ((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 10 (Integer 4) Decimal))
+                                                        ((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 10 (Integer 4) Decimal))]
+                                                        FixedSizeArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    declare_arrays
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [accept_multidim_i32_array
+                                    accept_multidim_i64_array
+                                    accept_multidim_f32_array
+                                    accept_multidim_f64_array]
+                                    []
+                                    [(Assignment
+                                        (Var 229 ai32)
+                                        (ArrayBroadcast
+                                            (ArrayItem
+                                                (Var 229 ai32)
+                                                [(()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())
+                                                (()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())]
+                                                (Integer 4)
+                                                RowMajor
+                                                ()
+                                            )
+                                            (ArrayConstant
+                                                8
+                                                [3, 3]
+                                                (Array
+                                                    (Integer 4)
+                                                    [((IntegerConstant 1 (Integer 4) Decimal)
+                                                    (IntegerConstant 2 (Integer 4) Decimal))]
+                                                    FixedSizeArray
+                                                )
+                                                ColMajor
+                                            )
+                                            (Array
+                                                (Integer 4)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 3 (Integer 4) Decimal))
+                                                ((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 3 (Integer 4) Decimal))]
+                                                FixedSizeArray
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 229 ai64)
+                                        (ArrayBroadcast
+                                            (ArrayItem
+                                                (Var 229 ai64)
+                                                [(()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())
+                                                (()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())
+                                                (()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())]
+                                                (Integer 8)
+                                                RowMajor
+                                                ()
+                                            )
+                                            (ArrayConstant
+                                                12
+                                                [10, 10, 10]
+                                                (Array
+                                                    (Integer 4)
+                                                    [((IntegerConstant 1 (Integer 4) Decimal)
+                                                    (IntegerConstant 3 (Integer 4) Decimal))]
+                                                    FixedSizeArray
+                                                )
+                                                ColMajor
+                                            )
+                                            (Array
+                                                (Integer 8)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 10 (Integer 4) Decimal))
+                                                ((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 10 (Integer 4) Decimal))
+                                                ((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 10 (Integer 4) Decimal))]
+                                                FixedSizeArray
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 229 af32)
+                                        (ArrayBroadcast
+                                            (ArrayItem
+                                                (Var 229 af32)
+                                                [(()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())]
+                                                (Real 4)
+                                                RowMajor
+                                                ()
+                                            )
+                                            (ArrayConstant
+                                                4
+                                                [3]
+                                                (Array
+                                                    (Integer 4)
+                                                    [((IntegerConstant 1 (Integer 4) Decimal)
+                                                    (IntegerConstant 1 (Integer 4) Decimal))]
+                                                    FixedSizeArray
+                                                )
+                                                ColMajor
+                                            )
+                                            (Array
+                                                (Real 4)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 3 (Integer 4) Decimal))]
+                                                FixedSizeArray
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 229 af64)
+                                        (ArrayBroadcast
+                                            (ArrayItem
+                                                (Var 229 af64)
+                                                [(()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())
+                                                (()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())]
+                                                (Real 8)
+                                                RowMajor
+                                                ()
+                                            )
+                                            (ArrayConstant
+                                                8
+                                                [10, 4]
+                                                (Array
+                                                    (Integer 4)
+                                                    [((IntegerConstant 1 (Integer 4) Decimal)
+                                                    (IntegerConstant 2 (Integer 4) Decimal))]
+                                                    FixedSizeArray
+                                                )
+                                                ColMajor
+                                            )
+                                            (Array
+                                                (Real 8)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 10 (Integer 4) Decimal))
+                                                ((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 4 (Integer 4) Decimal))]
+                                                FixedSizeArray
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 229 ac32)
+                                        (ArrayBroadcast
+                                            (ArrayItem
+                                                (Var 229 ac32)
+                                                [(()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())
+                                                (()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())
+                                                (()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())]
+                                                (Complex 4)
+                                                RowMajor
+                                                ()
+                                            )
+                                            (ArrayConstant
+                                                12
+                                                [3, 5, 99]
+                                                (Array
+                                                    (Integer 4)
+                                                    [((IntegerConstant 1 (Integer 4) Decimal)
+                                                    (IntegerConstant 3 (Integer 4) Decimal))]
+                                                    FixedSizeArray
+                                                )
+                                                ColMajor
+                                            )
+                                            (Array
+                                                (Complex 4)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 3 (Integer 4) Decimal))
+                                                ((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 5 (Integer 4) Decimal))
+                                                ((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 99 (Integer 4) Decimal))]
+                                                FixedSizeArray
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 229 ac64)
+                                        (ArrayBroadcast
+                                            (ArrayItem
+                                                (Var 229 ac64)
+                                                [(()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())
+                                                (()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())
+                                                (()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())
+                                                (()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())]
+                                                (Complex 8)
+                                                RowMajor
+                                                ()
+                                            )
+                                            (ArrayConstant
+                                                16
+                                                [10, 13, 11, 16]
+                                                (Array
+                                                    (Integer 4)
+                                                    [((IntegerConstant 1 (Integer 4) Decimal)
+                                                    (IntegerConstant 4 (Integer 4) Decimal))]
+                                                    FixedSizeArray
+                                                )
+                                                ColMajor
+                                            )
+                                            (Array
+                                                (Complex 8)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 10 (Integer 4) Decimal))
+                                                ((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 13 (Integer 4) Decimal))
+                                                ((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 11 (Integer 4) Decimal))
+                                                ((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 16 (Integer 4) Decimal))]
+                                                FixedSizeArray
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(FunctionCall
+                                                2 accept_multidim_i32_array
+                                                ()
+                                                [((ArrayPhysicalCast
+                                                    (Var 229 ai32)
+                                                    FixedSizeArray
+                                                    DescriptorArray
+                                                    (Array
+                                                        (Integer 4)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 3 (Integer 4) Decimal))
+                                                        ((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 3 (Integer 4) Decimal))]
+                                                        DescriptorArray
+                                                    )
+                                                    ()
+                                                ))]
+                                                (Integer 4)
+                                                ()
+                                                ()
+                                            )]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(FunctionCall
+                                                2 accept_multidim_i64_array
+                                                ()
+                                                [((ArrayPhysicalCast
+                                                    (Var 229 ai64)
+                                                    FixedSizeArray
+                                                    DescriptorArray
+                                                    (Array
+                                                        (Integer 8)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 10 (Integer 4) Decimal))
+                                                        ((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 10 (Integer 4) Decimal))
+                                                        ((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 10 (Integer 4) Decimal))]
+                                                        DescriptorArray
+                                                    )
+                                                    ()
+                                                ))]
+                                                (Integer 8)
+                                                ()
+                                                ()
+                                            )]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(FunctionCall
+                                                2 accept_multidim_f32_array
+                                                ()
+                                                [((ArrayPhysicalCast
+                                                    (Var 229 af32)
+                                                    FixedSizeArray
+                                                    DescriptorArray
+                                                    (Array
+                                                        (Real 4)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 3 (Integer 4) Decimal))]
+                                                        DescriptorArray
+                                                    )
+                                                    ()
+                                                ))]
+                                                (Real 4)
+                                                ()
+                                                ()
+                                            )]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(FunctionCall
+                                                2 accept_multidim_f64_array
+                                                ()
+                                                [((ArrayPhysicalCast
+                                                    (Var 229 af64)
+                                                    FixedSizeArray
+                                                    DescriptorArray
+                                                    (Array
+                                                        (Real 8)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 10 (Integer 4) Decimal))
+                                                        ((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 4 (Integer 4) Decimal))]
+                                                        DescriptorArray
+                                                    )
+                                                    ()
+                                                ))]
+                                                (Real 8)
+                                                ()
+                                                ()
+                                            )]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    [numpy]
+                    .false.
+                    .false.
+                    .false.
+                ),
+            lpython_builtin:
+                (IntrinsicModule lpython_builtin),
+            main_program:
+                (Program
+                    (SymbolTable
+                        231
+                        {
+                            __main__global_stmts:
+                                (ExternalSymbol
+                                    231
+                                    __main__global_stmts
+                                    2 __main__global_stmts
+                                    __main__
+                                    []
+                                    __main__global_stmts
+                                    Public
+                                )
+                        })
+                    main_program
+                    [__main__]
+                    [(SubroutineCall
+                        231 __main__global_stmts
+                        2 __main__global_stmts
+                        []
+                        ()
+                        .false.
+                    )]
+                ),
+            numpy:
+                (Module numpy)
+        })
+    []
+)
diff --git a/tests/reference/asr-arrays_01-a617b64.json b/tests/reference/asr-arrays_01-a617b64.json
new file mode 100644
index 0000000000..45a1b7310d
--- /dev/null
+++ b/tests/reference/asr-arrays_01-a617b64.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-arrays_01-a617b64",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/arrays_01.py",
+    "infile_hash": "9e11033fc97f884cd3d55a9194cb45add6805e5fc4d9473f9e1b9611",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-arrays_01-a617b64.stderr",
+    "stderr_hash": "b8317c7306f747ceefa8557c06f2a0b4a8a4bd7ae805bb494fca6ef2",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-arrays_01-a617b64.stderr b/tests/reference/asr-arrays_01-a617b64.stderr
new file mode 100644
index 0000000000..4fa39a8c3c
--- /dev/null
+++ b/tests/reference/asr-arrays_01-a617b64.stderr
@@ -0,0 +1,8 @@
+semantic error: Type mismatch in procedure call; the types must be compatible
+  --> tests/errors/arrays_01.py:15:9
+   |
+15 |         [i8(214), i8(157), i8(3), i8(146)])
+   |         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ type mismatch (passed argument type is list[i8] but required type is i8[4])
+   |
+ 9 |     a : i8[4] = empty(4, dtype=int8)
+   |         ^^^^^ type mismatch (passed argument type is list[i8] but required type is i8[4])
diff --git a/tests/reference/asr-arrays_02-da94458.json b/tests/reference/asr-arrays_02-da94458.json
new file mode 100644
index 0000000000..37de52ba40
--- /dev/null
+++ b/tests/reference/asr-arrays_02-da94458.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-arrays_02-da94458",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/arrays_02.py",
+    "infile_hash": "05e70a0056dc67dbf3a54ea66965db8746f9de012561ca95cb1fdb43",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-arrays_02-da94458.stderr",
+    "stderr_hash": "dc0e5be7cd6de7395421aedf1ce11977206f3e35bb7cba271aed8992",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-arrays_02-da94458.stderr b/tests/reference/asr-arrays_02-da94458.stderr
new file mode 100644
index 0000000000..295e0c9b28
--- /dev/null
+++ b/tests/reference/asr-arrays_02-da94458.stderr
@@ -0,0 +1,5 @@
+semantic error: The truth value of an array with more than one element is ambiguous. Use a.any() or a.all()
+  --> tests/errors/arrays_02.py:28:8
+   |
+28 | assert r1.a == t1.a
+   |        ^^^^^^^^^^^^ 
diff --git a/tests/reference/asr-arrays_09-50ee586.json b/tests/reference/asr-arrays_09-50ee586.json
new file mode 100644
index 0000000000..2f86b11cfb
--- /dev/null
+++ b/tests/reference/asr-arrays_09-50ee586.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-arrays_09-50ee586",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/arrays_09.py",
+    "infile_hash": "e6f2cca7de4ecfddffdc96ee4c278de35c220b608c9e4fe4731fd9b8",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-arrays_09-50ee586.stderr",
+    "stderr_hash": "0169175ca66ace6110382408ed4506313e311d560e9b8c16bdd997b3",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-arrays_09-50ee586.stderr b/tests/reference/asr-arrays_09-50ee586.stderr
new file mode 100644
index 0000000000..e485f02cbb
--- /dev/null
+++ b/tests/reference/asr-arrays_09-50ee586.stderr
@@ -0,0 +1,5 @@
+semantic error: Only those local variables that can be reduced to compile-time constants should be used in dimensions of an array.
+ --> tests/errors/arrays_09.py:9:12
+  |
+9 |     x: i64[p, q, r] = empty([q, p, r], dtype=int64)
+  |            ^ 
diff --git a/tests/reference/asr-arrays_10-bc82d75.json b/tests/reference/asr-arrays_10-bc82d75.json
new file mode 100644
index 0000000000..e1b3693872
--- /dev/null
+++ b/tests/reference/asr-arrays_10-bc82d75.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-arrays_10-bc82d75",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/arrays_10.py",
+    "infile_hash": "05aedf3d1013c61f73afc3de4ddca88ee33f029dcd62fadb66e7ec83",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-arrays_10-bc82d75.stderr",
+    "stderr_hash": "1c45f4b45b48ceb3de4567413bff847b67df2750fcc68d6a358df096",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-arrays_10-bc82d75.stderr b/tests/reference/asr-arrays_10-bc82d75.stderr
new file mode 100644
index 0000000000..e7b0047ea1
--- /dev/null
+++ b/tests/reference/asr-arrays_10-bc82d75.stderr
@@ -0,0 +1,5 @@
+semantic error: Only those local variables that can be reduced to compile-time constants should be used in dimensions of an array.
+ --> tests/errors/arrays_10.py:9:36
+  |
+9 |     x: i64[100, 120, 200] = empty([q, p, r], dtype=int64)
+  |                                    ^ 
diff --git a/tests/reference/asr-assert1-1ce92ea.json b/tests/reference/asr-assert1-1ce92ea.json
index 943ed7a592..118fade16a 100644
--- a/tests/reference/asr-assert1-1ce92ea.json
+++ b/tests/reference/asr-assert1-1ce92ea.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "asr-assert1-1ce92ea.stdout",
-    "stdout_hash": "f670256f2d537e40b277d0dcbc0a444c09e4dd723423c0d013b3ccac",
+    "stdout_hash": "4dc237a99a5ef31da3a6b04c4c282f86d3a8150c4f16f6e6d20c69aa",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/asr-assert1-1ce92ea.stdout b/tests/reference/asr-assert1-1ce92ea.stdout
index 6bb7984f6f..8e3e7d8268 100644
--- a/tests/reference/asr-assert1-1ce92ea.stdout
+++ b/tests/reference/asr-assert1-1ce92ea.stdout
@@ -1 +1,111 @@
-(TranslationUnit (SymbolTable 1 {main_program: (Program (SymbolTable 3 {}) main_program [] []), test_assert: (Function (SymbolTable 2 {a: (Variable 2 a [] Local () () Default (Integer 4 []) Source Public Required .false.)}) test_assert (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [] [(= (Var 2 a) (IntegerConstant 5 (Integer 4 [])) ()) (Assert (IntegerCompare (Var 2 a) Eq (IntegerConstant 5 (Integer 4 [])) (Logical 4 []) ()) (StringConstant "a is not 5" (Character 1 10 () []))) (Assert (IntegerCompare (Var 2 a) NotEq (IntegerConstant 10 (Integer 4 [])) (Logical 4 []) ()) ())] () Public .false. .false.)}) [])
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            test_assert:
+                                (Function
+                                    (SymbolTable
+                                        3
+                                        {
+                                            a:
+                                                (Variable
+                                                    3
+                                                    a
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test_assert
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 3 a)
+                                        (IntegerConstant 5 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (Var 3 a)
+                                            Eq
+                                            (IntegerConstant 5 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        (StringConstant
+                                            "a is not 5"
+                                            (String 1 (IntegerConstant 10 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (Var 3 a)
+                                            NotEq
+                                            (IntegerConstant 10 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    []
+                    .false.
+                    .false.
+                    .false.
+                ),
+            main_program:
+                (Program
+                    (SymbolTable
+                        4
+                        {
+                            
+                        })
+                    main_program
+                    []
+                    []
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-assign1-886f049.json b/tests/reference/asr-assign1-886f049.json
deleted file mode 100644
index aa721a4f47..0000000000
--- a/tests/reference/asr-assign1-886f049.json
+++ /dev/null
@@ -1,13 +0,0 @@
-{
-    "basename": "asr-assign1-886f049",
-    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
-    "infile": "tests/assign1.py",
-    "infile_hash": "3b82a73e457bd65e85828b72d56596ca927e7c661e333691f154912b",
-    "outfile": null,
-    "outfile_hash": null,
-    "stdout": "asr-assign1-886f049.stdout",
-    "stdout_hash": "f480971dffccd2403b2602a46639b69dfbb78cd0916a33229da3317a",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
-}
\ No newline at end of file
diff --git a/tests/reference/asr-assign1-886f049.stdout b/tests/reference/asr-assign1-886f049.stdout
deleted file mode 100644
index e3ece74fa4..0000000000
--- a/tests/reference/asr-assign1-886f049.stdout
+++ /dev/null
@@ -1 +0,0 @@
-(TranslationUnit (SymbolTable 1 {main_program: (Program (SymbolTable 3 {}) main_program [] []), test_augassign: (Function (SymbolTable 2 {a: (Variable 2 a [] Local () () Default (Character 1 -2 () []) Source Public Required .false.), r: (Variable 2 r [] Local () () Default (Integer 4 []) Source Public Required .false.), s: (Variable 2 s [] Local () () Default (Integer 4 []) Source Public Required .false.)}) test_augassign (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [] [(= (Var 2 r) (IntegerConstant 0 (Integer 4 [])) ()) (= (Var 2 r) (IntegerBinOp (Var 2 r) Add (IntegerConstant 4 (Integer 4 [])) (Integer 4 []) ()) ()) (= (Var 2 s) (IntegerConstant 5 (Integer 4 [])) ()) (= (Var 2 r) (IntegerBinOp (Var 2 r) Mul (Var 2 s) (Integer 4 []) ()) ()) (= (Var 2 r) (IntegerBinOp (Var 2 r) Sub (IntegerConstant 2 (Integer 4 [])) (Integer 4 []) ()) ()) (= (Var 2 s) (IntegerConstant 10 (Integer 4 [])) ()) (= (Var 2 r) (RealBinOp (Cast (Var 2 r) IntegerToReal (Real 8 []) ()) Div (Cast (Var 2 s) IntegerToReal (Real 8 []) ()) (Real 8 []) ()) ()) (= (Var 2 a) (StringConstant "" (Character 1 0 () [])) ()) (= (Var 2 a) (StringConcat (Var 2 a) (StringConstant "test" (Character 1 4 () [])) (Character 1 2 () []) ()) ())] () Public .false. .false.)}) [])
diff --git a/tests/reference/asr-assign2-8d1a2ee.json b/tests/reference/asr-assign2-8d1a2ee.json
index de2e70f988..7aa9afd0a9 100644
--- a/tests/reference/asr-assign2-8d1a2ee.json
+++ b/tests/reference/asr-assign2-8d1a2ee.json
@@ -2,11 +2,11 @@
     "basename": "asr-assign2-8d1a2ee",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/assign2.py",
-    "infile_hash": "6c7ced34237ba1a2e315cb88d3475bcb94139ea4b471c8c616519025",
+    "infile_hash": "9b182950a8d1abbd951007b692fff95382e90ada103c7f14c4497b06",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "asr-assign2-8d1a2ee.stdout",
-    "stdout_hash": "e10bd03c1f7be986485bb69fca51d7278310e08673dea142a049ba64",
+    "stdout_hash": "5c278540dbbf9fe1952a5dd062aa25408caf2402d613ae56a2da08cb",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/asr-assign2-8d1a2ee.stdout b/tests/reference/asr-assign2-8d1a2ee.stdout
index e7839e58f9..c685185d02 100644
--- a/tests/reference/asr-assign2-8d1a2ee.stdout
+++ b/tests/reference/asr-assign2-8d1a2ee.stdout
@@ -1 +1,140 @@
-(TranslationUnit (SymbolTable 1 {f: (Variable 1 f [] Local (Cast (RealConstant 1.234568 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 1.234568 (Real 4 []))) () Default (Real 4 []) Source Public Required .false.), f2: (Variable 1 f2 [] Local (RealConstant 1.234568 (Real 8 [])) () Default (Real 8 []) Source Public Required .false.), i: (Variable 1 i [] Local (IntegerConstant 5 (Integer 4 [])) () Default (Integer 4 []) Source Public Required .false.), i2: (Variable 1 i2 [] Local (Cast (IntegerConstant 53430903434 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 53430903434 (Integer 8 []))) () Default (Integer 8 []) Source Public Required .false.), main_program: (Program (SymbolTable 2 {}) main_program [] [])}) [])
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            f:
+                                (Variable
+                                    2
+                                    f
+                                    []
+                                    Local
+                                    (Cast
+                                        (RealConstant
+                                            1.234568
+                                            (Real 8)
+                                        )
+                                        RealToReal
+                                        (Real 4)
+                                        (RealConstant
+                                            1.234568
+                                            (Real 4)
+                                        )
+                                    )
+                                    (RealConstant
+                                        1.234568
+                                        (Real 4)
+                                    )
+                                    Default
+                                    (Real 4)
+                                    ()
+                                    Source
+                                    Public
+                                    Required
+                                    .false.
+                                    .false.
+                                    .false.
+                                    ()
+                                    .false.
+                                    .false.
+                                ),
+                            f2:
+                                (Variable
+                                    2
+                                    f2
+                                    []
+                                    Local
+                                    (RealConstant
+                                        1.234568
+                                        (Real 8)
+                                    )
+                                    (RealConstant
+                                        1.234568
+                                        (Real 8)
+                                    )
+                                    Default
+                                    (Real 8)
+                                    ()
+                                    Source
+                                    Public
+                                    Required
+                                    .false.
+                                    .false.
+                                    .false.
+                                    ()
+                                    .false.
+                                    .false.
+                                ),
+                            i:
+                                (Variable
+                                    2
+                                    i
+                                    []
+                                    Local
+                                    (IntegerConstant 5 (Integer 4) Decimal)
+                                    (IntegerConstant 5 (Integer 4) Decimal)
+                                    Default
+                                    (Integer 4)
+                                    ()
+                                    Source
+                                    Public
+                                    Required
+                                    .false.
+                                    .false.
+                                    .false.
+                                    ()
+                                    .false.
+                                    .false.
+                                ),
+                            i2:
+                                (Variable
+                                    2
+                                    i2
+                                    []
+                                    Local
+                                    (Cast
+                                        (IntegerConstant 53430903434 (Integer 4) Decimal)
+                                        IntegerToInteger
+                                        (Integer 8)
+                                        (IntegerConstant 53430903434 (Integer 8) Decimal)
+                                    )
+                                    (IntegerConstant 53430903434 (Integer 8) Decimal)
+                                    Default
+                                    (Integer 8)
+                                    ()
+                                    Source
+                                    Public
+                                    Required
+                                    .false.
+                                    .false.
+                                    .false.
+                                    ()
+                                    .false.
+                                    .false.
+                                )
+                        })
+                    __main__
+                    ()
+                    []
+                    .false.
+                    .false.
+                    .false.
+                ),
+            main_program:
+                (Program
+                    (SymbolTable
+                        3
+                        {
+                            
+                        })
+                    main_program
+                    []
+                    []
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-bindc_01-6d521a9.json b/tests/reference/asr-bindc_01-6d521a9.json
index 6760942de1..96d7f45531 100644
--- a/tests/reference/asr-bindc_01-6d521a9.json
+++ b/tests/reference/asr-bindc_01-6d521a9.json
@@ -2,12 +2,12 @@
     "basename": "asr-bindc_01-6d521a9",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/../integration_tests/bindc_01.py",
-    "infile_hash": "3402ae1e5ed454e63ac3105da5d7264c880b666ac0ae672bf6b2dcfe",
+    "infile_hash": "3cfb601d3294c470842a85777832f5582ab52cb5bd64c0e02d40deb6",
     "outfile": null,
     "outfile_hash": null,
-    "stdout": "asr-bindc_01-6d521a9.stdout",
-    "stdout_hash": "e6bb541aa0989bec3d752c073093cda3b80bb156bd9b2979c56bf7f5",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-bindc_01-6d521a9.stderr",
+    "stderr_hash": "966ff6032c983c2d80535d8c75db8cf87e1896d40a321a39f7f634c3",
+    "returncode": 2
 }
\ No newline at end of file
diff --git a/tests/reference/asr-bindc_01-6d521a9.stderr b/tests/reference/asr-bindc_01-6d521a9.stderr
new file mode 100644
index 0000000000..54e570a77e
--- /dev/null
+++ b/tests/reference/asr-bindc_01-6d521a9.stderr
@@ -0,0 +1,5 @@
+semantic error: Function 'empty_c_void_p' is not declared and not intrinsic
+ --> tests/../integration_tests/bindc_01.py:3:17
+  |
+3 | queries: CPtr = empty_c_void_p()
+  |                 ^^^^^^^^^^^^^^^^ 
diff --git a/tests/reference/asr-bindc_01-6d521a9.stdout b/tests/reference/asr-bindc_01-6d521a9.stdout
deleted file mode 100644
index 1e52412647..0000000000
--- a/tests/reference/asr-bindc_01-6d521a9.stdout
+++ /dev/null
@@ -1 +0,0 @@
-(TranslationUnit (SymbolTable 1 {_lpython_main_program: (Function (SymbolTable 3 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [] [(CPtrToPointer (Var 1 queries) (Var 1 x) ()) (Print () [(Var 1 queries) (Var 1 x)] () ())] () Public .false. .false.), main_program: (Program (SymbolTable 2 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())]), queries: (Variable 1 queries [] Local () () Default (CPtr) Source Public Required .false.), x: (Variable 1 x [] Local () () Default (Pointer (Integer 2 [])) Source Public Required .false.)}) [])
diff --git a/tests/reference/asr-bindc_01-f761165.json b/tests/reference/asr-bindc_01-f761165.json
index bf5962b959..24d385098d 100644
--- a/tests/reference/asr-bindc_01-f761165.json
+++ b/tests/reference/asr-bindc_01-f761165.json
@@ -2,7 +2,7 @@
     "basename": "asr-bindc_01-f761165",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/errors/bindc_01.py",
-    "infile_hash": "e35ebc641a551a6575b45284fbb377c27bfe3fe97a4395175c209354",
+    "infile_hash": "5f60d96ef8d39100cf775974c5af355ebc1d1f3e67d442564faf7f07",
     "outfile": null,
     "outfile_hash": null,
     "stdout": null,
diff --git a/tests/reference/asr-bindc_02-5092d8e.json b/tests/reference/asr-bindc_02-5092d8e.json
index 131e78b0e3..6b3c472b5c 100644
--- a/tests/reference/asr-bindc_02-5092d8e.json
+++ b/tests/reference/asr-bindc_02-5092d8e.json
@@ -2,7 +2,7 @@
     "basename": "asr-bindc_02-5092d8e",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/errors/bindc_02.py",
-    "infile_hash": "4ab9dc03aed5933cc9311b55995467d6c2deb8502fad441f6f73b4fa",
+    "infile_hash": "c1e886c2295631b0c4647c418c68d0edf53d5ab4ce3439b058a657ee",
     "outfile": null,
     "outfile_hash": null,
     "stdout": null,
diff --git a/tests/reference/asr-bindc_02-bc1a7ea.json b/tests/reference/asr-bindc_02-bc1a7ea.json
index db6e2e026b..7ccf9a535e 100644
--- a/tests/reference/asr-bindc_02-bc1a7ea.json
+++ b/tests/reference/asr-bindc_02-bc1a7ea.json
@@ -2,12 +2,12 @@
     "basename": "asr-bindc_02-bc1a7ea",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/../integration_tests/bindc_02.py",
-    "infile_hash": "b63020f2df6e1cdbc6bd3fd8ef551b6b62fda00345bbeb12c7b94305",
+    "infile_hash": "ce0bbd7a1a17c689c995fb31bc71275c59459120f0cf7defedd1cf33",
     "outfile": null,
     "outfile_hash": null,
-    "stdout": "asr-bindc_02-bc1a7ea.stdout",
-    "stdout_hash": "143c305a40ef34791bab7054403d254c11bd7f357a55e774177f5e1d",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-bindc_02-bc1a7ea.stderr",
+    "stderr_hash": "af75969fb5ce6ccb563e874497c4e5290f1a3c4d9fd36217b442fd7a",
+    "returncode": 2
 }
\ No newline at end of file
diff --git a/tests/reference/asr-bindc_02-bc1a7ea.stderr b/tests/reference/asr-bindc_02-bc1a7ea.stderr
new file mode 100644
index 0000000000..c14f5bf2e1
--- /dev/null
+++ b/tests/reference/asr-bindc_02-bc1a7ea.stderr
@@ -0,0 +1,5 @@
+semantic error: Function 'empty_c_void_p' is not declared and not intrinsic
+ --> tests/../integration_tests/bindc_02.py:4:17
+  |
+4 | queries: CPtr = empty_c_void_p()
+  |                 ^^^^^^^^^^^^^^^^ 
diff --git a/tests/reference/asr-bindc_02-bc1a7ea.stdout b/tests/reference/asr-bindc_02-bc1a7ea.stdout
deleted file mode 100644
index d164178e43..0000000000
--- a/tests/reference/asr-bindc_02-bc1a7ea.stdout
+++ /dev/null
@@ -1 +0,0 @@
-(TranslationUnit (SymbolTable 1 {_lpython_main_program: (Function (SymbolTable 173 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [f] [] [(CPtrToPointer (Var 1 queries) (Var 1 x) ()) (Print () [(Var 1 queries) (Var 1 x)] () ()) (SubroutineCall 1 f () [] ())] () Public .false. .false.), f: (Function (SymbolTable 171 {y: (Variable 171 y [] Local () () Default (Integer 2 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 2 (Integer 4 [])))]) Source Public Required .false.), yptr1: (Variable 171 yptr1 [] Local () () Default (Pointer (Integer 2 [(() ())])) Source Public Required .false.), yq: (Variable 171 yq [] Local () () Default (CPtr) Source Public Required .false.)}) f (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [] [(= (ArrayItem (Var 171 y) [(() (IntegerConstant 0 (Integer 4 [])) ())] (Integer 2 []) RowMajor ()) (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToInteger (Integer 2 []) (IntegerConstant 1 (Integer 2 []))) ()) (= (ArrayItem (Var 171 y) [(() (IntegerConstant 1 (Integer 4 [])) ())] (Integer 2 []) RowMajor ()) (Cast (IntegerConstant 2 (Integer 4 [])) IntegerToInteger (Integer 2 []) (IntegerConstant 2 (Integer 2 []))) ()) (= (Var 171 yptr1) (GetPointer (Var 171 y) (Pointer (Integer 2 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 2 (Integer 4 [])))])) ()) ()) (Print () [(GetPointer (Var 171 y) (Pointer (Integer 2 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 2 (Integer 4 [])))])) ()) (Var 171 yptr1)] () ()) (Print () [(ArrayItem (Var 171 yptr1) [(() (IntegerConstant 0 (Integer 4 [])) ())] (Integer 2 []) RowMajor ()) (ArrayItem (Var 171 yptr1) [(() (IntegerConstant 1 (Integer 4 [])) ())] (Integer 2 []) RowMajor ())] () ()) (Assert (IntegerCompare (ArrayItem (Var 171 yptr1) [(() (IntegerConstant 0 (Integer 4 [])) ())] (Integer 2 []) RowMajor ()) Eq (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToInteger (Integer 2 []) (IntegerConstant 1 (Integer 2 []))) (Logical 4 []) ()) ()) (Assert (IntegerCompare (ArrayItem (Var 171 yptr1) [(() (IntegerConstant 1 (Integer 4 [])) ())] (Integer 2 []) RowMajor ()) Eq (Cast (IntegerConstant 2 (Integer 4 [])) IntegerToInteger (Integer 2 []) (IntegerConstant 2 (Integer 2 []))) (Logical 4 []) ()) ()) (CPtrToPointer (Var 171 yq) (Var 171 yptr1) ()) (Print () [(Var 171 yq) (Var 171 yptr1)] () ())] () Public .false. .false.), lpython_builtin: (IntrinsicModule lpython_builtin), main_program: (Program (SymbolTable 172 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())]), numpy: (Module (SymbolTable 3 {__lpython_overloaded_0__arccos: (Function (SymbolTable 41 {_lpython_return_variable: (Variable 41 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 41 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arccos (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dacos] [(Var 41 x)] [(= (Var 41 _lpython_return_variable) (FunctionCall 3 _lfortran_dacos () [((Var 41 x))] (Real 8 []) () ()) ()) (Return)] (Var 41 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__arccosh: (Function (SymbolTable 65 {_lpython_return_variable: (Variable 65 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 65 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arccosh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dacosh] [(Var 65 x)] [(= (Var 65 _lpython_return_variable) (FunctionCall 3 _lfortran_dacosh () [((Var 65 x))] (Real 8 []) () ()) ()) (Return)] (Var 65 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__arcsin: (Function (SymbolTable 37 {_lpython_return_variable: (Variable 37 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 37 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arcsin (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dasin] [(Var 37 x)] [(= (Var 37 _lpython_return_variable) (FunctionCall 3 _lfortran_dasin () [((Var 37 x))] (Real 8 []) () ()) ()) (Return)] (Var 37 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__arcsinh: (Function (SymbolTable 61 {_lpython_return_variable: (Variable 61 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 61 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arcsinh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dasinh] [(Var 61 x)] [(= (Var 61 _lpython_return_variable) (FunctionCall 3 _lfortran_dasinh () [((Var 61 x))] (Real 8 []) () ()) ()) (Return)] (Var 61 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__arctan: (Function (SymbolTable 53 {_lpython_return_variable: (Variable 53 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 53 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arctan (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_datan] [(Var 53 x)] [(= (Var 53 _lpython_return_variable) (FunctionCall 3 _lfortran_datan () [((Var 53 x))] (Real 8 []) () ()) ()) (Return)] (Var 53 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__arctanh: (Function (SymbolTable 69 {_lpython_return_variable: (Variable 69 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 69 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arctanh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_datanh] [(Var 69 x)] [(= (Var 69 _lpython_return_variable) (FunctionCall 3 _lfortran_datanh () [((Var 69 x))] (Real 8 []) () ()) ()) (Return)] (Var 69 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__ceil: (Function (SymbolTable 76 {_lpython_return_variable: (Variable 76 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), result: (Variable 76 result [] Local () () Default (Integer 8 []) Source Public Required .false.), x: (Variable 76 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__ceil (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 76 x)] [(= (Var 76 result) (Cast (Var 76 x) RealToInteger (Integer 8 []) ()) ()) (If (LogicalBinOp (RealCompare (Var 76 x) LtE (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToReal (Real 8 []) ()) (Logical 4 []) ()) Or (RealCompare (Var 76 x) Eq (Cast (Var 76 result) IntegerToReal (Real 8 []) ()) (Logical 4 []) ()) (Logical 4 []) ()) [(= (Var 76 _lpython_return_variable) (Cast (Var 76 result) IntegerToReal (Real 8 []) ()) ()) (Return)] []) (= (Var 76 _lpython_return_variable) (Cast (IntegerBinOp (Var 76 result) Add (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 1 (Integer 8 []))) (Integer 8 []) ()) IntegerToReal (Real 8 []) ()) ()) (Return)] (Var 76 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__cos: (Function (SymbolTable 9 {_lpython_return_variable: (Variable 9 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 9 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__cos (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dcos] [(Var 9 x)] [(= (Var 9 _lpython_return_variable) (FunctionCall 3 _lfortran_dcos () [((Var 9 x))] (Real 8 []) () ()) ()) (Return)] (Var 9 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__cosh: (Function (SymbolTable 23 {_lpython_return_variable: (Variable 23 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 23 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__cosh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dcosh] [(Var 23 x)] [(= (Var 23 _lpython_return_variable) (FunctionCall 3 _lfortran_dcosh () [((Var 23 x))] (Real 8 []) () ()) ()) (Return)] (Var 23 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__degrees: (Function (SymbolTable 56 {_lpython_return_variable: (Variable 56 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 56 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__degrees (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 56 x)] [(= (Var 56 _lpython_return_variable) (RealBinOp (RealBinOp (Var 56 x) Mul (RealConstant 180.000000 (Real 8 [])) (Real 8 []) ()) Div (Var 3 pi_64) (Real 8 []) ()) ()) (Return)] (Var 56 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__exp: (Function (SymbolTable 49 {_lpython_return_variable: (Variable 49 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 49 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__exp (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dexp] [(Var 49 x)] [(= (Var 49 _lpython_return_variable) (FunctionCall 3 _lfortran_dexp () [((Var 49 x))] (Real 8 []) () ()) ()) (Return)] (Var 49 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__floor: (Function (SymbolTable 74 {_lpython_return_variable: (Variable 74 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), result: (Variable 74 result [] Local () () Default (Integer 8 []) Source Public Required .false.), x: (Variable 74 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__floor (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 74 x)] [(= (Var 74 result) (Cast (Var 74 x) RealToInteger (Integer 8 []) ()) ()) (If (LogicalBinOp (RealCompare (Var 74 x) GtE (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToReal (Real 8 []) ()) (Logical 4 []) ()) Or (RealCompare (Var 74 x) Eq (Cast (Var 74 result) IntegerToReal (Real 8 []) ()) (Logical 4 []) ()) (Logical 4 []) ()) [(= (Var 74 _lpython_return_variable) (Cast (Var 74 result) IntegerToReal (Real 8 []) ()) ()) (Return)] []) (= (Var 74 _lpython_return_variable) (Cast (IntegerBinOp (Var 74 result) Sub (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 1 (Integer 8 []))) (Integer 8 []) ()) IntegerToReal (Real 8 []) ()) ()) (Return)] (Var 74 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__log: (Function (SymbolTable 27 {_lpython_return_variable: (Variable 27 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 27 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__log (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dlog] [(Var 27 x)] [(= (Var 27 _lpython_return_variable) (FunctionCall 3 _lfortran_dlog () [((Var 27 x))] (Real 8 []) () ()) ()) (Return)] (Var 27 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__log10: (Function (SymbolTable 31 {_lpython_return_variable: (Variable 31 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 31 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__log10 (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dlog10] [(Var 31 x)] [(= (Var 31 _lpython_return_variable) (FunctionCall 3 _lfortran_dlog10 () [((Var 31 x))] (Real 8 []) () ()) ()) (Return)] (Var 31 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__log2: (Function (SymbolTable 34 {_lpython_return_variable: (Variable 34 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 34 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__log2 (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dlog _lfortran_dlog] [(Var 34 x)] [(= (Var 34 _lpython_return_variable) (RealBinOp (FunctionCall 3 _lfortran_dlog () [((Var 34 x))] (Real 8 []) () ()) Div (FunctionCall 3 _lfortran_dlog () [((RealConstant 2.000000 (Real 8 [])))] (Real 8 []) () ()) (Real 8 []) ()) ()) (Return)] (Var 34 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__mod: (Function (SymbolTable 72 {_lpython_return_variable: (Variable 72 _lpython_return_variable [] ReturnVar () () Default (Integer 8 []) Source Public Required .false.), _mod: (ExternalSymbol 72 _mod 79 _mod lpython_builtin [] _mod Private), _mod@__lpython_overloaded_2___mod: (ExternalSymbol 72 _mod@__lpython_overloaded_2___mod 79 __lpython_overloaded_2___mod lpython_builtin [] __lpython_overloaded_2___mod Public), x1: (Variable 72 x1 [] In () () Default (Integer 8 []) Source Public Required .false.), x2: (Variable 72 x2 [] In () () Default (Integer 8 []) Source Public Required .false.)}) __lpython_overloaded_0__mod (FunctionType [(Integer 8 []) (Integer 8 [])] (Integer 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_mod@__lpython_overloaded_2___mod] [(Var 72 x1) (Var 72 x2)] [(If (IntegerCompare (Var 72 x2) Eq (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 0 (Integer 8 []))) (Logical 4 []) ()) [(= (Var 72 _lpython_return_variable) (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToInteger (Integer 8 []) ()) ()) (Return)] []) (= (Var 72 _lpython_return_variable) (FunctionCall 72 _mod@__lpython_overloaded_2___mod 72 _mod [((Var 72 x1)) ((Var 72 x2))] (Integer 8 []) () ()) ()) (Return)] (Var 72 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__radians: (Function (SymbolTable 58 {_lpython_return_variable: (Variable 58 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 58 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__radians (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 58 x)] [(= (Var 58 _lpython_return_variable) (RealBinOp (RealBinOp (Var 58 x) Mul (Var 3 pi_64) (Real 8 []) ()) Div (RealConstant 180.000000 (Real 8 [])) (Real 8 []) ()) ()) (Return)] (Var 58 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__sin: (Function (SymbolTable 5 {_lpython_return_variable: (Variable 5 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 5 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__sin (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dsin] [(Var 5 x)] [(= (Var 5 _lpython_return_variable) (FunctionCall 3 _lfortran_dsin () [((Var 5 x))] (Real 8 []) () ()) ()) (Return)] (Var 5 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__sinh: (Function (SymbolTable 19 {_lpython_return_variable: (Variable 19 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 19 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__sinh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dsinh] [(Var 19 x)] [(= (Var 19 _lpython_return_variable) (FunctionCall 3 _lfortran_dsinh () [((Var 19 x))] (Real 8 []) () ()) ()) (Return)] (Var 19 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__sqrt: (Function (SymbolTable 12 {_lpython_return_variable: (Variable 12 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 12 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__sqrt (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 12 x)] [(= (Var 12 _lpython_return_variable) (RealBinOp (Var 12 x) Pow (RealBinOp (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToReal (Real 8 []) ()) Div (Cast (IntegerConstant 2 (Integer 4 [])) IntegerToReal (Real 8 []) ()) (Real 8 []) ()) (Real 8 []) ()) ()) (Return)] (Var 12 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__tan: (Function (SymbolTable 15 {_lpython_return_variable: (Variable 15 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 15 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__tan (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dtan] [(Var 15 x)] [(= (Var 15 _lpython_return_variable) (FunctionCall 3 _lfortran_dtan () [((Var 15 x))] (Real 8 []) () ()) ()) (Return)] (Var 15 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__tanh: (Function (SymbolTable 45 {_lpython_return_variable: (Variable 45 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 45 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__tanh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dtanh] [(Var 45 x)] [(= (Var 45 _lpython_return_variable) (FunctionCall 3 _lfortran_dtanh () [((Var 45 x))] (Real 8 []) () ()) ()) (Return)] (Var 45 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arccos: (Function (SymbolTable 43 {_lpython_return_variable: (Variable 43 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 43 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arccos (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_sacos] [(Var 43 x)] [(= (Var 43 _lpython_return_variable) (FunctionCall 3 _lfortran_sacos () [((Var 43 x))] (Real 4 []) () ()) ()) (Return)] (Var 43 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arccosh: (Function (SymbolTable 67 {_lpython_return_variable: (Variable 67 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 67 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arccosh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_sacosh] [(Var 67 x)] [(= (Var 67 _lpython_return_variable) (FunctionCall 3 _lfortran_sacosh () [((Var 67 x))] (Real 4 []) () ()) ()) (Return)] (Var 67 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arcsin: (Function (SymbolTable 39 {_lpython_return_variable: (Variable 39 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 39 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arcsin (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_sasin] [(Var 39 x)] [(= (Var 39 _lpython_return_variable) (FunctionCall 3 _lfortran_sasin () [((Var 39 x))] (Real 4 []) () ()) ()) (Return)] (Var 39 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arcsinh: (Function (SymbolTable 63 {_lpython_return_variable: (Variable 63 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 63 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arcsinh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_sasinh] [(Var 63 x)] [(= (Var 63 _lpython_return_variable) (FunctionCall 3 _lfortran_sasinh () [((Var 63 x))] (Real 4 []) () ()) ()) (Return)] (Var 63 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arctan: (Function (SymbolTable 55 {_lpython_return_variable: (Variable 55 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 55 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arctan (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_satan] [(Var 55 x)] [(= (Var 55 _lpython_return_variable) (FunctionCall 3 _lfortran_satan () [((Var 55 x))] (Real 4 []) () ()) ()) (Return)] (Var 55 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arctanh: (Function (SymbolTable 71 {_lpython_return_variable: (Variable 71 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 71 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arctanh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_satanh] [(Var 71 x)] [(= (Var 71 _lpython_return_variable) (FunctionCall 3 _lfortran_satanh () [((Var 71 x))] (Real 4 []) () ()) ()) (Return)] (Var 71 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__ceil: (Function (SymbolTable 77 {_lpython_return_variable: (Variable 77 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), resultf: (Variable 77 resultf [x] Local (Cast (Cast (Var 77 x) RealToInteger (Integer 4 []) ()) IntegerToReal (Real 4 []) ()) () Default (Real 4 []) Source Public Required .false.), x: (Variable 77 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__ceil (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 77 x)] [(= (Var 77 resultf) (Cast (Cast (Var 77 x) RealToInteger (Integer 4 []) ()) IntegerToReal (Real 4 []) ()) ()) (If (LogicalBinOp (RealCompare (Var 77 x) LtE (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Logical 4 []) ()) Or (RealCompare (Var 77 x) Eq (Var 77 resultf) (Logical 4 []) ()) (Logical 4 []) ()) [(= (Var 77 _lpython_return_variable) (Var 77 resultf) ()) (Return)] []) (= (Var 77 _lpython_return_variable) (RealBinOp (Var 77 resultf) Add (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Real 4 []) ()) ()) (Return)] (Var 77 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__cos: (Function (SymbolTable 11 {_lpython_return_variable: (Variable 11 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 11 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__cos (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_scos] [(Var 11 x)] [(= (Var 11 _lpython_return_variable) (FunctionCall 3 _lfortran_scos () [((Var 11 x))] (Real 4 []) () ()) ()) (Return)] (Var 11 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__cosh: (Function (SymbolTable 25 {_lpython_return_variable: (Variable 25 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 25 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__cosh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_scosh] [(Var 25 x)] [(= (Var 25 _lpython_return_variable) (FunctionCall 3 _lfortran_scosh () [((Var 25 x))] (Real 4 []) () ()) ()) (Return)] (Var 25 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__degrees: (Function (SymbolTable 57 {_lpython_return_variable: (Variable 57 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 57 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__degrees (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 57 x)] [(= (Var 57 _lpython_return_variable) (RealBinOp (Var 57 x) Mul (RealBinOp (Cast (IntegerConstant 180 (Integer 4 [])) IntegerToReal (Real 4 []) ()) Div (Var 3 pi_32) (Real 4 []) ()) (Real 4 []) ()) ()) (Return)] (Var 57 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__exp: (Function (SymbolTable 51 {_lpython_return_variable: (Variable 51 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 51 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__exp (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_sexp] [(Var 51 x)] [(= (Var 51 _lpython_return_variable) (FunctionCall 3 _lfortran_sexp () [((Var 51 x))] (Real 4 []) () ()) ()) (Return)] (Var 51 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__floor: (Function (SymbolTable 75 {_lpython_return_variable: (Variable 75 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), resultf: (Variable 75 resultf [x] Local (Cast (Cast (Var 75 x) RealToInteger (Integer 4 []) ()) IntegerToReal (Real 4 []) ()) () Default (Real 4 []) Source Public Required .false.), x: (Variable 75 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__floor (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 75 x)] [(= (Var 75 resultf) (Cast (Cast (Var 75 x) RealToInteger (Integer 4 []) ()) IntegerToReal (Real 4 []) ()) ()) (If (LogicalBinOp (RealCompare (Var 75 x) GtE (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Logical 4 []) ()) Or (RealCompare (Var 75 x) Eq (Var 75 resultf) (Logical 4 []) ()) (Logical 4 []) ()) [(= (Var 75 _lpython_return_variable) (Var 75 resultf) ()) (Return)] []) (= (Var 75 _lpython_return_variable) (RealBinOp (Var 75 resultf) Sub (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Real 4 []) ()) ()) (Return)] (Var 75 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__log: (Function (SymbolTable 29 {_lpython_return_variable: (Variable 29 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 29 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__log (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_slog] [(Var 29 x)] [(= (Var 29 _lpython_return_variable) (FunctionCall 3 _lfortran_slog () [((Var 29 x))] (Real 4 []) () ()) ()) (Return)] (Var 29 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__log10: (Function (SymbolTable 33 {_lpython_return_variable: (Variable 33 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 33 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__log10 (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_slog10] [(Var 33 x)] [(= (Var 33 _lpython_return_variable) (FunctionCall 3 _lfortran_slog10 () [((Var 33 x))] (Real 4 []) () ()) ()) (Return)] (Var 33 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__log2: (Function (SymbolTable 35 {_lpython_return_variable: (Variable 35 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 35 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__log2 (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_slog _lfortran_slog] [(Var 35 x)] [(= (Var 35 _lpython_return_variable) (RealBinOp (FunctionCall 3 _lfortran_slog () [((Var 35 x))] (Real 4 []) () ()) Div (FunctionCall 3 _lfortran_slog () [((Cast (RealConstant 2.000000 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 2.000000 (Real 4 []))))] (Real 4 []) () ()) (Real 4 []) ()) ()) (Return)] (Var 35 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__mod: (Function (SymbolTable 73 {_lpython_return_variable: (Variable 73 _lpython_return_variable [] ReturnVar () () Default (Integer 4 []) Source Public Required .false.), _mod: (ExternalSymbol 73 _mod 79 _mod lpython_builtin [] _mod Private), _mod@__lpython_overloaded_0___mod: (ExternalSymbol 73 _mod@__lpython_overloaded_0___mod 79 __lpython_overloaded_0___mod lpython_builtin [] __lpython_overloaded_0___mod Public), x1: (Variable 73 x1 [] In () () Default (Integer 4 []) Source Public Required .false.), x2: (Variable 73 x2 [] In () () Default (Integer 4 []) Source Public Required .false.)}) __lpython_overloaded_1__mod (FunctionType [(Integer 4 []) (Integer 4 [])] (Integer 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_mod@__lpython_overloaded_0___mod] [(Var 73 x1) (Var 73 x2)] [(If (IntegerCompare (Var 73 x2) Eq (IntegerConstant 0 (Integer 4 [])) (Logical 4 []) ()) [(= (Var 73 _lpython_return_variable) (IntegerConstant 0 (Integer 4 [])) ()) (Return)] []) (= (Var 73 _lpython_return_variable) (FunctionCall 73 _mod@__lpython_overloaded_0___mod 73 _mod [((Var 73 x1)) ((Var 73 x2))] (Integer 4 []) () ()) ()) (Return)] (Var 73 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__radians: (Function (SymbolTable 59 {_lpython_return_variable: (Variable 59 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 59 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__radians (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 59 x)] [(= (Var 59 _lpython_return_variable) (RealBinOp (Var 59 x) Mul (RealBinOp (Var 3 pi_32) Div (Cast (IntegerConstant 180 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Real 4 []) ()) (Real 4 []) ()) ()) (Return)] (Var 59 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__sin: (Function (SymbolTable 7 {_lpython_return_variable: (Variable 7 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 7 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__sin (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_ssin] [(Var 7 x)] [(= (Var 7 _lpython_return_variable) (FunctionCall 3 _lfortran_ssin () [((Var 7 x))] (Real 4 []) () ()) ()) (Return)] (Var 7 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__sinh: (Function (SymbolTable 21 {_lpython_return_variable: (Variable 21 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 21 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__sinh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_ssinh] [(Var 21 x)] [(= (Var 21 _lpython_return_variable) (FunctionCall 3 _lfortran_ssinh () [((Var 21 x))] (Real 4 []) () ()) ()) (Return)] (Var 21 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__sqrt: (Function (SymbolTable 13 {_lpython_return_variable: (Variable 13 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 13 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__sqrt (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 13 x)] [(= (Var 13 _lpython_return_variable) (RealBinOp (Var 13 x) Pow (Cast (RealBinOp (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToReal (Real 8 []) ()) Div (Cast (IntegerConstant 2 (Integer 4 [])) IntegerToReal (Real 8 []) ()) (Real 8 []) ()) RealToReal (Real 4 []) ()) (Real 4 []) ()) ()) (Return)] (Var 13 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__tan: (Function (SymbolTable 17 {_lpython_return_variable: (Variable 17 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 17 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__tan (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_stan] [(Var 17 x)] [(= (Var 17 _lpython_return_variable) (FunctionCall 3 _lfortran_stan () [((Var 17 x))] (Real 4 []) () ()) ()) (Return)] (Var 17 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__tanh: (Function (SymbolTable 47 {_lpython_return_variable: (Variable 47 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 47 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__tanh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_stanh] [(Var 47 x)] [(= (Var 47 _lpython_return_variable) (FunctionCall 3 _lfortran_stanh () [((Var 47 x))] (Real 4 []) () ()) ()) (Return)] (Var 47 _lpython_return_variable) Public .false. .false.), _lfortran_dacos: (Function (SymbolTable 40 {_lpython_return_variable: (Variable 40 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 40 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dacos (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 40 x)] [] (Var 40 _lpython_return_variable) Public .false. .false.), _lfortran_dacosh: (Function (SymbolTable 64 {_lpython_return_variable: (Variable 64 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 64 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dacosh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 64 x)] [] (Var 64 _lpython_return_variable) Public .false. .false.), _lfortran_dasin: (Function (SymbolTable 36 {_lpython_return_variable: (Variable 36 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 36 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dasin (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 36 x)] [] (Var 36 _lpython_return_variable) Public .false. .false.), _lfortran_dasinh: (Function (SymbolTable 60 {_lpython_return_variable: (Variable 60 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 60 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dasinh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 60 x)] [] (Var 60 _lpython_return_variable) Public .false. .false.), _lfortran_datan: (Function (SymbolTable 52 {_lpython_return_variable: (Variable 52 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 52 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_datan (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 52 x)] [] (Var 52 _lpython_return_variable) Public .false. .false.), _lfortran_datanh: (Function (SymbolTable 68 {_lpython_return_variable: (Variable 68 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 68 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_datanh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 68 x)] [] (Var 68 _lpython_return_variable) Public .false. .false.), _lfortran_dcos: (Function (SymbolTable 8 {_lpython_return_variable: (Variable 8 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 8 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dcos (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 8 x)] [] (Var 8 _lpython_return_variable) Public .false. .false.), _lfortran_dcosh: (Function (SymbolTable 22 {_lpython_return_variable: (Variable 22 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 22 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dcosh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 22 x)] [] (Var 22 _lpython_return_variable) Public .false. .false.), _lfortran_dexp: (Function (SymbolTable 48 {_lpython_return_variable: (Variable 48 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 48 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dexp (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 48 x)] [] (Var 48 _lpython_return_variable) Public .false. .false.), _lfortran_dlog: (Function (SymbolTable 26 {_lpython_return_variable: (Variable 26 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 26 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dlog (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 26 x)] [] (Var 26 _lpython_return_variable) Public .false. .false.), _lfortran_dlog10: (Function (SymbolTable 30 {_lpython_return_variable: (Variable 30 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 30 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dlog10 (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 30 x)] [] (Var 30 _lpython_return_variable) Public .false. .false.), _lfortran_dsin: (Function (SymbolTable 4 {_lpython_return_variable: (Variable 4 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 4 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dsin (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 4 x)] [] (Var 4 _lpython_return_variable) Public .false. .false.), _lfortran_dsinh: (Function (SymbolTable 18 {_lpython_return_variable: (Variable 18 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 18 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dsinh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 18 x)] [] (Var 18 _lpython_return_variable) Public .false. .false.), _lfortran_dtan: (Function (SymbolTable 14 {_lpython_return_variable: (Variable 14 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 14 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dtan (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 14 x)] [] (Var 14 _lpython_return_variable) Public .false. .false.), _lfortran_dtanh: (Function (SymbolTable 44 {_lpython_return_variable: (Variable 44 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 44 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dtanh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 44 x)] [] (Var 44 _lpython_return_variable) Public .false. .false.), _lfortran_sacos: (Function (SymbolTable 42 {_lpython_return_variable: (Variable 42 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 42 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_sacos (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 42 x)] [] (Var 42 _lpython_return_variable) Public .false. .false.), _lfortran_sacosh: (Function (SymbolTable 66 {_lpython_return_variable: (Variable 66 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 66 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_sacosh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 66 x)] [] (Var 66 _lpython_return_variable) Public .false. .false.), _lfortran_sasin: (Function (SymbolTable 38 {_lpython_return_variable: (Variable 38 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 38 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_sasin (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 38 x)] [] (Var 38 _lpython_return_variable) Public .false. .false.), _lfortran_sasinh: (Function (SymbolTable 62 {_lpython_return_variable: (Variable 62 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 62 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_sasinh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 62 x)] [] (Var 62 _lpython_return_variable) Public .false. .false.), _lfortran_satan: (Function (SymbolTable 54 {_lpython_return_variable: (Variable 54 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 54 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_satan (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 54 x)] [] (Var 54 _lpython_return_variable) Public .false. .false.), _lfortran_satanh: (Function (SymbolTable 70 {_lpython_return_variable: (Variable 70 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 70 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_satanh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 70 x)] [] (Var 70 _lpython_return_variable) Public .false. .false.), _lfortran_scos: (Function (SymbolTable 10 {_lpython_return_variable: (Variable 10 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 10 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_scos (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 10 x)] [] (Var 10 _lpython_return_variable) Public .false. .false.), _lfortran_scosh: (Function (SymbolTable 24 {_lpython_return_variable: (Variable 24 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 24 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_scosh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 24 x)] [] (Var 24 _lpython_return_variable) Public .false. .false.), _lfortran_sexp: (Function (SymbolTable 50 {_lpython_return_variable: (Variable 50 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 50 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_sexp (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 50 x)] [] (Var 50 _lpython_return_variable) Public .false. .false.), _lfortran_slog: (Function (SymbolTable 28 {_lpython_return_variable: (Variable 28 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 28 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_slog (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 28 x)] [] (Var 28 _lpython_return_variable) Public .false. .false.), _lfortran_slog10: (Function (SymbolTable 32 {_lpython_return_variable: (Variable 32 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 32 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_slog10 (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 32 x)] [] (Var 32 _lpython_return_variable) Public .false. .false.), _lfortran_ssin: (Function (SymbolTable 6 {_lpython_return_variable: (Variable 6 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 6 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_ssin (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 6 x)] [] (Var 6 _lpython_return_variable) Public .false. .false.), _lfortran_ssinh: (Function (SymbolTable 20 {_lpython_return_variable: (Variable 20 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 20 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_ssinh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 20 x)] [] (Var 20 _lpython_return_variable) Public .false. .false.), _lfortran_stan: (Function (SymbolTable 16 {_lpython_return_variable: (Variable 16 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 16 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_stan (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 16 x)] [] (Var 16 _lpython_return_variable) Public .false. .false.), _lfortran_stanh: (Function (SymbolTable 46 {_lpython_return_variable: (Variable 46 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 46 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_stanh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 46 x)] [] (Var 46 _lpython_return_variable) Public .false. .false.), arccos: (GenericProcedure 3 arccos [3 __lpython_overloaded_0__arccos 3 __lpython_overloaded_1__arccos] Public), arccosh: (GenericProcedure 3 arccosh [3 __lpython_overloaded_0__arccosh 3 __lpython_overloaded_1__arccosh] Public), arcsin: (GenericProcedure 3 arcsin [3 __lpython_overloaded_0__arcsin 3 __lpython_overloaded_1__arcsin] Public), arcsinh: (GenericProcedure 3 arcsinh [3 __lpython_overloaded_0__arcsinh 3 __lpython_overloaded_1__arcsinh] Public), arctan: (GenericProcedure 3 arctan [3 __lpython_overloaded_0__arctan 3 __lpython_overloaded_1__arctan] Public), arctanh: (GenericProcedure 3 arctanh [3 __lpython_overloaded_0__arctanh 3 __lpython_overloaded_1__arctanh] Public), ceil: (GenericProcedure 3 ceil [3 __lpython_overloaded_0__ceil 3 __lpython_overloaded_1__ceil] Public), cos: (GenericProcedure 3 cos [3 __lpython_overloaded_0__cos 3 __lpython_overloaded_1__cos] Public), cosh: (GenericProcedure 3 cosh [3 __lpython_overloaded_0__cosh 3 __lpython_overloaded_1__cosh] Public), degrees: (GenericProcedure 3 degrees [3 __lpython_overloaded_0__degrees 3 __lpython_overloaded_1__degrees] Public), exp: (GenericProcedure 3 exp [3 __lpython_overloaded_0__exp 3 __lpython_overloaded_1__exp] Public), floor: (GenericProcedure 3 floor [3 __lpython_overloaded_0__floor 3 __lpython_overloaded_1__floor] Public), log: (GenericProcedure 3 log [3 __lpython_overloaded_0__log 3 __lpython_overloaded_1__log] Public), log10: (GenericProcedure 3 log10 [3 __lpython_overloaded_0__log10 3 __lpython_overloaded_1__log10] Public), log2: (GenericProcedure 3 log2 [3 __lpython_overloaded_0__log2 3 __lpython_overloaded_1__log2] Public), mod: (GenericProcedure 3 mod [3 __lpython_overloaded_0__mod 3 __lpython_overloaded_1__mod] Public), pi_32: (Variable 3 pi_32 [] Local (Cast (RealConstant 3.141593 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 3.141593 (Real 4 []))) () Default (Real 4 []) Source Public Required .false.), pi_64: (Variable 3 pi_64 [] Local (RealConstant 3.141593 (Real 8 [])) () Default (Real 8 []) Source Public Required .false.), radians: (GenericProcedure 3 radians [3 __lpython_overloaded_0__radians 3 __lpython_overloaded_1__radians] Public), sin: (GenericProcedure 3 sin [3 __lpython_overloaded_0__sin 3 __lpython_overloaded_1__sin] Public), sinh: (GenericProcedure 3 sinh [3 __lpython_overloaded_0__sinh 3 __lpython_overloaded_1__sinh] Public), sqrt: (GenericProcedure 3 sqrt [3 __lpython_overloaded_0__sqrt 3 __lpython_overloaded_1__sqrt] Public), tan: (GenericProcedure 3 tan [3 __lpython_overloaded_0__tan 3 __lpython_overloaded_1__tan] Public), tanh: (GenericProcedure 3 tanh [3 __lpython_overloaded_0__tanh 3 __lpython_overloaded_1__tanh] Public)}) numpy [lpython_builtin lpython_builtin] .false. .false.), queries: (Variable 1 queries [] Local () () Default (CPtr) Source Public Required .false.), x: (Variable 1 x [] Local () () Default (Pointer (Integer 2 [(() ())])) Source Public Required .false.)}) [])
diff --git a/tests/reference/asr-bindc_03-95dbba7.json b/tests/reference/asr-bindc_03-95dbba7.json
new file mode 100644
index 0000000000..7ea004cc34
--- /dev/null
+++ b/tests/reference/asr-bindc_03-95dbba7.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-bindc_03-95dbba7",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/bindc_03.py",
+    "infile_hash": "68e9bc4105ff94df854ee89163425cdc8fd26bcb5615938f6993985c",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-bindc_03-95dbba7.stderr",
+    "stderr_hash": "371c3fc384c0e72448648d5a3734a373fe96ba258b261f0695ccb518",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-bindc_03-95dbba7.stderr b/tests/reference/asr-bindc_03-95dbba7.stderr
new file mode 100644
index 0000000000..ae2b810b6c
--- /dev/null
+++ b/tests/reference/asr-bindc_03-95dbba7.stderr
@@ -0,0 +1,5 @@
+semantic error: Target type specified in c_p_pointer must have deferred shape.
+ --> tests/errors/bindc_03.py:6:26
+  |
+6 |     A: Pointer[i16[:]] = c_p_pointer(b, i16[n * k], array([k * n]))
+  |                          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 
diff --git a/tests/reference/asr-bindc_04-06bd800.json b/tests/reference/asr-bindc_04-06bd800.json
new file mode 100644
index 0000000000..7f9fcea30c
--- /dev/null
+++ b/tests/reference/asr-bindc_04-06bd800.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-bindc_04-06bd800",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/bindc_04.py",
+    "infile_hash": "009fad63ac85061e603f011869c2439b67409edcf8cc633d1fde9013",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-bindc_04-06bd800.stderr",
+    "stderr_hash": "85d50c491c17976f21e6263e164a6ce5dbeda95dae2635f589a02d86",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-bindc_04-06bd800.stderr b/tests/reference/asr-bindc_04-06bd800.stderr
new file mode 100644
index 0000000000..a84e785818
--- /dev/null
+++ b/tests/reference/asr-bindc_04-06bd800.stderr
@@ -0,0 +1,5 @@
+semantic error: Only those local variables that can be reduced to compile-time constants should be used in dimensions of an array.
+  --> tests/errors/bindc_04.py:20:12
+   |
+20 |     C: i16[nk] = empty(nk, dtype=int16)
+   |            ^^ 
diff --git a/tests/reference/asr-bindc_10e-8b10394.json b/tests/reference/asr-bindc_10e-8b10394.json
new file mode 100644
index 0000000000..a82328fe70
--- /dev/null
+++ b/tests/reference/asr-bindc_10e-8b10394.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-bindc_10e-8b10394",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/bindc_10e.py",
+    "infile_hash": "fa023d4ad17e426f778a99326998e6dbeac5428fa252974a39a3219d",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-bindc_10e-8b10394.stderr",
+    "stderr_hash": "30a5651f20e3f3e51fa2424a27f80a412e8ea0f584905449312dbaa0",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-bindc_10e-8b10394.stderr b/tests/reference/asr-bindc_10e-8b10394.stderr
new file mode 100644
index 0000000000..7207d8a510
--- /dev/null
+++ b/tests/reference/asr-bindc_10e-8b10394.stderr
@@ -0,0 +1,8 @@
+semantic error: The struct in c_p_pointer must be C interoperable
+ --> tests/errors/bindc_10e_mod.py:8:429
+  |
+8 | 
+  |                                                                                                                                                                                                                                                                                                                                                                                                                                             ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ not C interoperable
+  |
+8 | 
+  |                                                                                                                                                                                                                                                                                                                                                                                                                                             ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ help: add the @ccallable decorator to this struct to make it C interoperable
diff --git a/tests/reference/asr-c_interop1-cf2e9b4.json b/tests/reference/asr-c_interop1-cf2e9b4.json
index c7968348b1..8413ba3c22 100644
--- a/tests/reference/asr-c_interop1-cf2e9b4.json
+++ b/tests/reference/asr-c_interop1-cf2e9b4.json
@@ -2,11 +2,11 @@
     "basename": "asr-c_interop1-cf2e9b4",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/c_interop1.py",
-    "infile_hash": "9e22168a97e0bbf12aef953048f7e7b781460c70cebd355e903f0934",
+    "infile_hash": "aeb797508318740ae58a14cf663910a8fa077c574eaf79b9f54656ef",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "asr-c_interop1-cf2e9b4.stdout",
-    "stdout_hash": "80ab1c87e3219bdcae0ac8b13f117bea0f8b71cbaa9fe8c4f0209c7c",
+    "stdout_hash": "374c365350b654141cae118c81ffdf83bb0ca815e1759611ab2371d2",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/asr-c_interop1-cf2e9b4.stdout b/tests/reference/asr-c_interop1-cf2e9b4.stdout
index 0a03ca1345..fb4a3e0117 100644
--- a/tests/reference/asr-c_interop1-cf2e9b4.stdout
+++ b/tests/reference/asr-c_interop1-cf2e9b4.stdout
@@ -1 +1,676 @@
-(TranslationUnit (SymbolTable 1 {f: (Function (SymbolTable 2 {_lpython_return_variable: (Variable 2 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 2 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) f (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 2 x)] [] (Var 2 _lpython_return_variable) Public .false. .false.), g: (Function (SymbolTable 3 {a: (Variable 3 a [] In () () Default (Real 8 []) BindC Public Required .true.), b: (Variable 3 b [] In () () Default (Real 4 []) BindC Public Required .true.), c: (Variable 3 c [] In () () Default (Integer 8 []) BindC Public Required .true.), d: (Variable 3 d [] In () () Default (Integer 4 []) BindC Public Required .true.)}) g (FunctionType [(Real 8 []) (Real 4 []) (Integer 8 []) (Integer 4 [])] () BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 3 a) (Var 3 b) (Var 3 c) (Var 3 d)] [] () Public .false. .false.), h: (Function (SymbolTable 4 {_lpython_return_variable: (Variable 4 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 4 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) h (FunctionType [(Real 8 [])] (Real 8 []) BindC Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 4 x)] [(= (Var 4 _lpython_return_variable) (RealBinOp (Var 4 x) Add (RealConstant 1.000000 (Real 8 [])) (Real 8 []) ()) ()) (Return)] (Var 4 _lpython_return_variable) Public .false. .false.), l: (Function (SymbolTable 5 {a: (Variable 5 a [] In () () Default (Real 8 []) BindC Public Required .true.), b: (Variable 5 b [] In () () Default (Real 4 []) BindC Public Required .true.), c: (Variable 5 c [] In () () Default (Integer 8 []) BindC Public Required .true.), d: (Variable 5 d [] In () () Default (Integer 4 []) BindC Public Required .true.)}) l (FunctionType [(Real 8 []) (Real 4 []) (Integer 8 []) (Integer 4 [])] () BindC Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 5 a) (Var 5 b) (Var 5 c) (Var 5 d)] [(Print () [(StringConstant "OK" (Character 1 2 () []))] () ())] () Public .false. .false.), main0: (Function (SymbolTable 6 {i: (Variable 6 i [] Local () () Default (Real 8 []) Source Public Required .false.), x: (Variable 6 x [] Local () () Default (Real 8 []) Source Public Required .false.), y: (Variable 6 y [] Local () () Default (Real 4 []) Source Public Required .false.), z: (Variable 6 z [] Local () () Default (Integer 8 []) Source Public Required .false.), zz: (Variable 6 zz [] Local () () Default (Integer 4 []) Source Public Required .false.)}) main0 (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [f g h l] [] [(= (Var 6 x) (RealConstant 5.000000 (Real 8 [])) ()) (= (Var 6 i) (FunctionCall 1 f () [((Var 6 x))] (Real 8 []) () ()) ()) (= (Var 6 y) (Cast (RealConstant 5.400000 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 5.400000 (Real 4 []))) ()) (= (Var 6 z) (Cast (IntegerConstant 3 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 3 (Integer 8 []))) ()) (= (Var 6 zz) (IntegerConstant 2 (Integer 4 [])) ()) (SubroutineCall 1 g () [((Var 6 x)) ((Var 6 y)) ((Var 6 z)) ((Var 6 zz))] ()) (= (Var 6 i) (FunctionCall 1 h () [((Var 6 x))] (Real 8 []) () ()) ()) (SubroutineCall 1 l () [((Var 6 x)) ((Var 6 y)) ((Var 6 z)) ((Var 6 zz))] ())] () Public .false. .false.), main_program: (Program (SymbolTable 7 {}) main_program [] [])}) [])
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            f:
+                                (Function
+                                    (SymbolTable
+                                        3
+                                        {
+                                            _lpython_return_variable:
+                                                (Variable
+                                                    3
+                                                    _lpython_return_variable
+                                                    []
+                                                    ReturnVar
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 8)
+                                                    ()
+                                                    BindC
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            x:
+                                                (Variable
+                                                    3
+                                                    x
+                                                    []
+                                                    In
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 8)
+                                                    ()
+                                                    BindC
+                                                    Public
+                                                    Required
+                                                    .true.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    f
+                                    (FunctionType
+                                        [(Real 8)]
+                                        (Real 8)
+                                        BindC
+                                        Interface
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    [(Var 3 x)]
+                                    []
+                                    (Var 3 _lpython_return_variable)
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            g:
+                                (Function
+                                    (SymbolTable
+                                        4
+                                        {
+                                            a:
+                                                (Variable
+                                                    4
+                                                    a
+                                                    []
+                                                    In
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 8)
+                                                    ()
+                                                    BindC
+                                                    Public
+                                                    Required
+                                                    .true.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            b:
+                                                (Variable
+                                                    4
+                                                    b
+                                                    []
+                                                    In
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 4)
+                                                    ()
+                                                    BindC
+                                                    Public
+                                                    Required
+                                                    .true.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            c:
+                                                (Variable
+                                                    4
+                                                    c
+                                                    []
+                                                    In
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 8)
+                                                    ()
+                                                    BindC
+                                                    Public
+                                                    Required
+                                                    .true.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            d:
+                                                (Variable
+                                                    4
+                                                    d
+                                                    []
+                                                    In
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    BindC
+                                                    Public
+                                                    Required
+                                                    .true.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    g
+                                    (FunctionType
+                                        [(Real 8)
+                                        (Real 4)
+                                        (Integer 8)
+                                        (Integer 4)]
+                                        ()
+                                        BindC
+                                        Interface
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    [(Var 4 a)
+                                    (Var 4 b)
+                                    (Var 4 c)
+                                    (Var 4 d)]
+                                    []
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            h:
+                                (Function
+                                    (SymbolTable
+                                        5
+                                        {
+                                            _lpython_return_variable:
+                                                (Variable
+                                                    5
+                                                    _lpython_return_variable
+                                                    []
+                                                    ReturnVar
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 8)
+                                                    ()
+                                                    BindC
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            x:
+                                                (Variable
+                                                    5
+                                                    x
+                                                    []
+                                                    In
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 8)
+                                                    ()
+                                                    BindC
+                                                    Public
+                                                    Required
+                                                    .true.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    h
+                                    (FunctionType
+                                        [(Real 8)]
+                                        (Real 8)
+                                        BindC
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    [(Var 5 x)]
+                                    [(Assignment
+                                        (Var 5 _lpython_return_variable)
+                                        (RealBinOp
+                                            (Var 5 x)
+                                            Add
+                                            (RealConstant
+                                                1.000000
+                                                (Real 8)
+                                            )
+                                            (Real 8)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Return)]
+                                    (Var 5 _lpython_return_variable)
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            l:
+                                (Function
+                                    (SymbolTable
+                                        6
+                                        {
+                                            a:
+                                                (Variable
+                                                    6
+                                                    a
+                                                    []
+                                                    In
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 8)
+                                                    ()
+                                                    BindC
+                                                    Public
+                                                    Required
+                                                    .true.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            b:
+                                                (Variable
+                                                    6
+                                                    b
+                                                    []
+                                                    In
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 4)
+                                                    ()
+                                                    BindC
+                                                    Public
+                                                    Required
+                                                    .true.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            c:
+                                                (Variable
+                                                    6
+                                                    c
+                                                    []
+                                                    In
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 8)
+                                                    ()
+                                                    BindC
+                                                    Public
+                                                    Required
+                                                    .true.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            d:
+                                                (Variable
+                                                    6
+                                                    d
+                                                    []
+                                                    In
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    BindC
+                                                    Public
+                                                    Required
+                                                    .true.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    l
+                                    (FunctionType
+                                        [(Real 8)
+                                        (Real 4)
+                                        (Integer 8)
+                                        (Integer 4)]
+                                        ()
+                                        BindC
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    [(Var 6 a)
+                                    (Var 6 b)
+                                    (Var 6 c)
+                                    (Var 6 d)]
+                                    [(Print
+                                        (StringFormat
+                                            ()
+                                            [(StringConstant
+                                                "OK"
+                                                (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            main0:
+                                (Function
+                                    (SymbolTable
+                                        7
+                                        {
+                                            i:
+                                                (Variable
+                                                    7
+                                                    i
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            x:
+                                                (Variable
+                                                    7
+                                                    x
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            y:
+                                                (Variable
+                                                    7
+                                                    y
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            z:
+                                                (Variable
+                                                    7
+                                                    z
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            zz:
+                                                (Variable
+                                                    7
+                                                    zz
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    main0
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [f
+                                    g
+                                    h
+                                    l]
+                                    []
+                                    [(Assignment
+                                        (Var 7 x)
+                                        (RealConstant
+                                            5.000000
+                                            (Real 8)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 7 i)
+                                        (FunctionCall
+                                            2 f
+                                            ()
+                                            [((Var 7 x))]
+                                            (Real 8)
+                                            ()
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 7 y)
+                                        (Cast
+                                            (RealConstant
+                                                5.400000
+                                                (Real 8)
+                                            )
+                                            RealToReal
+                                            (Real 4)
+                                            (RealConstant
+                                                5.400000
+                                                (Real 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 7 z)
+                                        (Cast
+                                            (IntegerConstant 3 (Integer 4) Decimal)
+                                            IntegerToInteger
+                                            (Integer 8)
+                                            (IntegerConstant 3 (Integer 8) Decimal)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 7 zz)
+                                        (IntegerConstant 2 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (SubroutineCall
+                                        2 g
+                                        ()
+                                        [((Var 7 x))
+                                        ((Var 7 y))
+                                        ((Var 7 z))
+                                        ((Var 7 zz))]
+                                        ()
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 7 i)
+                                        (FunctionCall
+                                            2 h
+                                            ()
+                                            [((Var 7 x))]
+                                            (Real 8)
+                                            ()
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (SubroutineCall
+                                        2 l
+                                        ()
+                                        [((Var 7 x))
+                                        ((Var 7 y))
+                                        ((Var 7 z))
+                                        ((Var 7 zz))]
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    []
+                    .false.
+                    .false.
+                    .false.
+                ),
+            main_program:
+                (Program
+                    (SymbolTable
+                        8
+                        {
+                            
+                        })
+                    main_program
+                    []
+                    []
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-callback_01-df40fd5.json b/tests/reference/asr-callback_01-df40fd5.json
new file mode 100644
index 0000000000..a6db839172
--- /dev/null
+++ b/tests/reference/asr-callback_01-df40fd5.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-callback_01-df40fd5",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/../integration_tests/callback_01.py",
+    "infile_hash": "c3ab71a93f40edda000ae863149c38c388bb43a8329ebae9320a7ab4",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": "asr-callback_01-df40fd5.stdout",
+    "stdout_hash": "01ee834501697c7a7624ea2f8ab743b9d652f4b2f4ff676c2282c647",
+    "stderr": null,
+    "stderr_hash": null,
+    "returncode": 0
+}
\ No newline at end of file
diff --git a/tests/reference/asr-callback_01-df40fd5.stdout b/tests/reference/asr-callback_01-df40fd5.stdout
new file mode 100644
index 0000000000..1c13c64da9
--- /dev/null
+++ b/tests/reference/asr-callback_01-df40fd5.stdout
@@ -0,0 +1,638 @@
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            __main__global_stmts:
+                                (Function
+                                    (SymbolTable
+                                        9
+                                        {
+                                            
+                                        })
+                                    __main__global_stmts
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [check]
+                                    []
+                                    [(SubroutineCall
+                                        2 check
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            check:
+                                (Function
+                                    (SymbolTable
+                                        8
+                                        {
+                                            
+                                        })
+                                    check
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [g]
+                                    []
+                                    [(Assert
+                                        (IntegerCompare
+                                            (FunctionCall
+                                                2 g
+                                                ()
+                                                [((Var 2 f))
+                                                ((IntegerConstant 10 (Integer 4) Decimal))]
+                                                (Integer 4)
+                                                ()
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerConstant 11 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (FunctionCall
+                                                2 g
+                                                ()
+                                                [((Var 2 f2))
+                                                ((IntegerConstant 20 (Integer 4) Decimal))]
+                                                (Integer 4)
+                                                ()
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerConstant 30 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (FunctionCall
+                                                2 g
+                                                ()
+                                                [((Var 2 f3))
+                                                ((IntegerConstant 5 (Integer 4) Decimal))]
+                                                (Integer 4)
+                                                ()
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerConstant 21 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            f:
+                                (Function
+                                    (SymbolTable
+                                        3
+                                        {
+                                            _lpython_return_variable:
+                                                (Variable
+                                                    3
+                                                    _lpython_return_variable
+                                                    []
+                                                    ReturnVar
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            x:
+                                                (Variable
+                                                    3
+                                                    x
+                                                    []
+                                                    In
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    f
+                                    (FunctionType
+                                        [(Integer 4)]
+                                        (Integer 4)
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    [(Var 3 x)]
+                                    [(Assignment
+                                        (Var 3 _lpython_return_variable)
+                                        (IntegerBinOp
+                                            (Var 3 x)
+                                            Add
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Return)]
+                                    (Var 3 _lpython_return_variable)
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            f2:
+                                (Function
+                                    (SymbolTable
+                                        4
+                                        {
+                                            _lpython_return_variable:
+                                                (Variable
+                                                    4
+                                                    _lpython_return_variable
+                                                    []
+                                                    ReturnVar
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            x:
+                                                (Variable
+                                                    4
+                                                    x
+                                                    []
+                                                    In
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    f2
+                                    (FunctionType
+                                        [(Integer 4)]
+                                        (Integer 4)
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    [(Var 4 x)]
+                                    [(Assignment
+                                        (Var 4 _lpython_return_variable)
+                                        (IntegerBinOp
+                                            (Var 4 x)
+                                            Add
+                                            (IntegerConstant 10 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Return)]
+                                    (Var 4 _lpython_return_variable)
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            f3:
+                                (Function
+                                    (SymbolTable
+                                        5
+                                        {
+                                            _lpython_return_variable:
+                                                (Variable
+                                                    5
+                                                    _lpython_return_variable
+                                                    []
+                                                    ReturnVar
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            x:
+                                                (Variable
+                                                    5
+                                                    x
+                                                    []
+                                                    In
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    f3
+                                    (FunctionType
+                                        [(Integer 4)]
+                                        (Integer 4)
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [f
+                                    f2]
+                                    [(Var 5 x)]
+                                    [(Assignment
+                                        (Var 5 _lpython_return_variable)
+                                        (IntegerBinOp
+                                            (FunctionCall
+                                                2 f
+                                                ()
+                                                [((Var 5 x))]
+                                                (Integer 4)
+                                                ()
+                                                ()
+                                            )
+                                            Add
+                                            (FunctionCall
+                                                2 f2
+                                                ()
+                                                [((Var 5 x))]
+                                                (Integer 4)
+                                                ()
+                                                ()
+                                            )
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Return)]
+                                    (Var 5 _lpython_return_variable)
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            g:
+                                (Function
+                                    (SymbolTable
+                                        6
+                                        {
+                                            _lpython_return_variable:
+                                                (Variable
+                                                    6
+                                                    _lpython_return_variable
+                                                    []
+                                                    ReturnVar
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            arg:
+                                                (Variable
+                                                    6
+                                                    arg
+                                                    []
+                                                    In
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            func:
+                                                (Function
+                                                    (SymbolTable
+                                                        7
+                                                        {
+                                                            func_arg_0:
+                                                                (Variable
+                                                                    7
+                                                                    func_arg_0
+                                                                    []
+                                                                    Unspecified
+                                                                    ()
+                                                                    ()
+                                                                    Default
+                                                                    (Integer 4)
+                                                                    ()
+                                                                    Source
+                                                                    Public
+                                                                    Required
+                                                                    .false.
+                                                                    .false.
+                                                                    .false.
+                                                                    ()
+                                                                    .false.
+                                                                    .false.
+                                                                ),
+                                                            func_return_var_name:
+                                                                (Variable
+                                                                    7
+                                                                    func_return_var_name
+                                                                    []
+                                                                    ReturnVar
+                                                                    ()
+                                                                    ()
+                                                                    Default
+                                                                    (Integer 4)
+                                                                    ()
+                                                                    Source
+                                                                    Public
+                                                                    Required
+                                                                    .false.
+                                                                    .false.
+                                                                    .false.
+                                                                    ()
+                                                                    .false.
+                                                                    .false.
+                                                                )
+                                                        })
+                                                    func
+                                                    (FunctionType
+                                                        [(Integer 4)]
+                                                        (Integer 4)
+                                                        BindC
+                                                        Interface
+                                                        ()
+                                                        .false.
+                                                        .false.
+                                                        .false.
+                                                        .false.
+                                                        .false.
+                                                        []
+                                                        .false.
+                                                    )
+                                                    []
+                                                    [(Var 7 func_arg_0)]
+                                                    []
+                                                    (Var 7 func_return_var_name)
+                                                    Public
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                ),
+                                            ret:
+                                                (Variable
+                                                    6
+                                                    ret
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    g
+                                    (FunctionType
+                                        [(FunctionType
+                                            [(Integer 4)]
+                                            (Integer 4)
+                                            BindC
+                                            Interface
+                                            ()
+                                            .false.
+                                            .false.
+                                            .false.
+                                            .false.
+                                            .false.
+                                            []
+                                            .false.
+                                        )
+                                        (Integer 4)]
+                                        (Integer 4)
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    [(Var 6 func)
+                                    (Var 6 arg)]
+                                    [(Assignment
+                                        (Var 6 ret)
+                                        (FunctionCall
+                                            6 func
+                                            ()
+                                            [((Var 6 arg))]
+                                            (Integer 4)
+                                            ()
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 6 _lpython_return_variable)
+                                        (Var 6 ret)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Return)]
+                                    (Var 6 _lpython_return_variable)
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    []
+                    .false.
+                    .false.
+                    .false.
+                ),
+            main_program:
+                (Program
+                    (SymbolTable
+                        10
+                        {
+                            __main__global_stmts:
+                                (ExternalSymbol
+                                    10
+                                    __main__global_stmts
+                                    2 __main__global_stmts
+                                    __main__
+                                    []
+                                    __main__global_stmts
+                                    Public
+                                )
+                        })
+                    main_program
+                    [__main__]
+                    [(SubroutineCall
+                        10 __main__global_stmts
+                        2 __main__global_stmts
+                        []
+                        ()
+                        .false.
+                    )]
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-cast-435c233.json b/tests/reference/asr-cast-435c233.json
deleted file mode 100644
index 67f97bba97..0000000000
--- a/tests/reference/asr-cast-435c233.json
+++ /dev/null
@@ -1,13 +0,0 @@
-{
-    "basename": "asr-cast-435c233",
-    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
-    "infile": "tests/cast.py",
-    "infile_hash": "6e4219b25f4aa2035b57c9658dbb133f2dff55db0d9c128b19214f62",
-    "outfile": null,
-    "outfile_hash": null,
-    "stdout": "asr-cast-435c233.stdout",
-    "stdout_hash": "66617db02c3d585c8ac8f560de6438f64c2361dd52d3271a1df8376b",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
-}
\ No newline at end of file
diff --git a/tests/reference/asr-cast-435c233.stdout b/tests/reference/asr-cast-435c233.stdout
deleted file mode 100644
index 3478a6d1c3..0000000000
--- a/tests/reference/asr-cast-435c233.stdout
+++ /dev/null
@@ -1 +0,0 @@
-(TranslationUnit (SymbolTable 1 {_lpython_main_program: (Function (SymbolTable 97 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [f] [] [(SubroutineCall 1 f () [] ())] () Public .false. .false.), f: (Function (SymbolTable 2 {list: (ExternalSymbol 2 list 4 list lpython_builtin [] list Private), s: (Variable 2 s [] Local () () Default (Character 1 -2 () []) Source Public Required .false.), x: (Variable 2 x [] Local () () Default (List (Character 1 -2 () [])) Source Public Required .false.), y: (Variable 2 y [] Local () () Default (List (Character 1 -2 () [])) Source Public Required .false.)}) f (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [list list list] [] [(= (Var 2 s) (StringConstant "lpython" (Character 1 7 () [])) ()) (= (Var 2 x) (FunctionCall 2 list () [((Var 2 s))] (List (Character 1 -2 () [])) () ()) ()) (= (Var 2 y) (ListConstant [(StringConstant "a" (Character 1 1 () [])) (StringConstant "b" (Character 1 1 () [])) (StringConstant "c" (Character 1 1 () []))] (List (Character 1 1 () []))) ()) (= (Var 2 x) (FunctionCall 2 list () [((Var 2 y))] (List (Character 1 -2 () [])) () ()) ()) (= (Var 2 x) (FunctionCall 2 list () [((StringConstant "lpython" (Character 1 7 () [])))] (List (Character 1 -2 () [])) (ListConstant [(StringConstant "l" (Character 1 1 () [])) (StringConstant "p" (Character 1 1 () [])) (StringConstant "y" (Character 1 1 () [])) (StringConstant "t" (Character 1 1 () [])) (StringConstant "h" (Character 1 1 () [])) (StringConstant "o" (Character 1 1 () [])) (StringConstant "n" (Character 1 1 () []))] (List (Character 1 1 () []))) ()) ())] () Public .false. .false.), lpython_builtin: (IntrinsicModule lpython_builtin), main_program: (Program (SymbolTable 96 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())])}) [])
diff --git a/tests/reference/asr-complex1-f26c460.json b/tests/reference/asr-complex1-f26c460.json
index 7f2a243db9..05a876b970 100644
--- a/tests/reference/asr-complex1-f26c460.json
+++ b/tests/reference/asr-complex1-f26c460.json
@@ -2,11 +2,11 @@
     "basename": "asr-complex1-f26c460",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/complex1.py",
-    "infile_hash": "c6c5e11789f3903056bcf08018573a80c93c1a608c6687cb9181739d",
+    "infile_hash": "60b45de7b88ec768d70a3122b36545e9604a86504ed6e5d9d813c719",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "asr-complex1-f26c460.stdout",
-    "stdout_hash": "0a2d4585b50b51933fdfb874d94f21ff361ea2f0b04a37dc8dc32fc6",
+    "stdout_hash": "5a06c1c3f28ac5f7314486b12921b371b8c43a63c9733ef49291cb0a",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/asr-complex1-f26c460.stdout b/tests/reference/asr-complex1-f26c460.stdout
index 56b7ce69ef..60eba85295 100644
--- a/tests/reference/asr-complex1-f26c460.stdout
+++ b/tests/reference/asr-complex1-f26c460.stdout
@@ -1 +1,871 @@
-(TranslationUnit (SymbolTable 1 {lpython_builtin: (IntrinsicModule lpython_builtin), main_program: (Program (SymbolTable 97 {}) main_program [] []), test: (Function (SymbolTable 3 {x: (Variable 3 x [] Local () () Default (Complex 8 []) Source Public Required .false.), y: (Variable 3 y [] Local () () Default (Complex 8 []) Source Public Required .false.), z: (Variable 3 z [] Local () () Default (Complex 4 []) Source Public Required .false.)}) test (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [] [(= (Var 3 x) (ComplexBinOp (Cast (IntegerConstant 2 (Integer 4 [])) IntegerToComplex (Complex 8 []) (ComplexConstant 2.000000 0.000000 (Complex 8 []))) Add (ComplexConstant 0.000000 3.000000 (Complex 8 [])) (Complex 8 []) (ComplexConstant 2.000000 3.000000 (Complex 8 []))) ()) (= (Var 3 y) (ComplexBinOp (Cast (IntegerConstant 5 (Integer 4 [])) IntegerToComplex (Complex 8 []) (ComplexConstant 5.000000 0.000000 (Complex 8 []))) Add (ComplexConstant 0.000000 5.000000 (Complex 8 [])) (Complex 8 []) (ComplexConstant 5.000000 5.000000 (Complex 8 []))) ()) (= (Var 3 z) (Cast (ComplexBinOp (Var 3 x) Add (Var 3 y) (Complex 8 []) ()) ComplexToComplex (Complex 4 []) ()) ()) (= (Var 3 z) (Cast (ComplexBinOp (Var 3 x) Sub (Var 3 y) (Complex 8 []) ()) ComplexToComplex (Complex 4 []) ()) ()) (= (Var 3 z) (Cast (ComplexBinOp (Cast (IntegerConstant 2 (Integer 4 [])) IntegerToComplex (Complex 8 []) (ComplexConstant 2.000000 0.000000 (Complex 8 []))) Mul (Var 3 x) (Complex 8 []) ()) ComplexToComplex (Complex 4 []) ()) ())] () Public .false. .false.), test_complex: (Function (SymbolTable 2 {b: (Variable 2 b [] Local () () Default (Logical 4 []) Source Public Required .false.), c: (Variable 2 c [] Local () () Default (Complex 4 []) Source Public Required .false.), c1: (Variable 2 c1 [] Local () () Default (Complex 4 []) Source Public Required .false.), c2: (Variable 2 c2 [] Local () () Default (Complex 4 []) Source Public Required .false.), c3: (Variable 2 c3 [] Local () () Default (Complex 8 []) Source Public Required .false.), complex: (ExternalSymbol 2 complex 5 complex lpython_builtin [] complex Private), complex@__lpython_overloaded_0__complex: (ExternalSymbol 2 complex@__lpython_overloaded_0__complex 5 __lpython_overloaded_0__complex lpython_builtin [] __lpython_overloaded_0__complex Public), complex@__lpython_overloaded_13__complex: (ExternalSymbol 2 complex@__lpython_overloaded_13__complex 5 __lpython_overloaded_13__complex lpython_builtin [] __lpython_overloaded_13__complex Public), complex@__lpython_overloaded_1__complex: (ExternalSymbol 2 complex@__lpython_overloaded_1__complex 5 __lpython_overloaded_1__complex lpython_builtin [] __lpython_overloaded_1__complex Public), complex@__lpython_overloaded_2__complex: (ExternalSymbol 2 complex@__lpython_overloaded_2__complex 5 __lpython_overloaded_2__complex lpython_builtin [] __lpython_overloaded_2__complex Public), complex@__lpython_overloaded_5__complex: (ExternalSymbol 2 complex@__lpython_overloaded_5__complex 5 __lpython_overloaded_5__complex lpython_builtin [] __lpython_overloaded_5__complex Public), complex@__lpython_overloaded_9__complex: (ExternalSymbol 2 complex@__lpython_overloaded_9__complex 5 __lpython_overloaded_9__complex lpython_builtin [] __lpython_overloaded_9__complex Public)}) test_complex (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [complex@__lpython_overloaded_0__complex complex@__lpython_overloaded_13__complex complex@__lpython_overloaded_1__complex complex@__lpython_overloaded_2__complex complex@__lpython_overloaded_5__complex complex@__lpython_overloaded_9__complex] [] [(= (Var 2 c) (Cast (FunctionCall 2 complex@__lpython_overloaded_0__complex 2 complex [] (Complex 8 []) (ComplexConstant 0.000000 0.000000 (Complex 8 [])) ()) ComplexToComplex (Complex 4 []) (ComplexConstant 0.000000 0.000000 (Complex 4 []))) ()) (= (Var 2 c) (Cast (FunctionCall 2 complex@__lpython_overloaded_1__complex 2 complex [((RealConstant 3.400000 (Real 8 [])))] (Complex 8 []) (ComplexConstant 3.400000 0.000000 (Complex 8 [])) ()) ComplexToComplex (Complex 4 []) (ComplexConstant 3.400000 0.000000 (Complex 4 []))) ()) (= (Var 2 c) (Cast (FunctionCall 2 complex@__lpython_overloaded_5__complex 2 complex [((RealConstant 5.000000 (Real 8 []))) ((RealConstant 4.300000 (Real 8 [])))] (Complex 8 []) (ComplexConstant 5.000000 4.300000 (Complex 8 [])) ()) ComplexToComplex (Complex 4 []) (ComplexConstant 5.000000 4.300000 (Complex 4 []))) ()) (= (Var 2 c) (FunctionCall 2 complex@__lpython_overloaded_2__complex 2 complex [((IntegerConstant 1 (Integer 4 [])))] (Complex 4 []) (ComplexConstant 1.000000 0.000000 (Complex 8 [])) ()) ()) (= (Var 2 c1) (Cast (FunctionCall 2 complex@__lpython_overloaded_9__complex 2 complex [((IntegerConstant 3 (Integer 4 []))) ((IntegerConstant 4 (Integer 4 [])))] (Complex 8 []) (ComplexConstant 3.000000 4.000000 (Complex 8 [])) ()) ComplexToComplex (Complex 4 []) (ComplexConstant 3.000000 4.000000 (Complex 4 []))) ()) (= (Var 2 c2) (Cast (FunctionCall 2 complex@__lpython_overloaded_13__complex 2 complex [((IntegerConstant 2 (Integer 4 []))) ((RealConstant 4.500000 (Real 8 [])))] (Complex 8 []) (ComplexConstant 2.000000 4.500000 (Complex 8 [])) ()) ComplexToComplex (Complex 4 []) (ComplexConstant 2.000000 4.500000 (Complex 4 []))) ()) (= (Var 2 c3) (FunctionCall 2 complex@__lpython_overloaded_5__complex 2 complex [((RealConstant 3.000000 (Real 8 []))) ((RealConstant 4.000000 (Real 8 [])))] (Complex 8 []) (ComplexConstant 3.000000 4.000000 (Complex 8 [])) ()) ()) (= (Var 2 b) (ComplexCompare (Var 2 c1) NotEq (Var 2 c2) (Logical 4 []) ()) ()) (= (Var 2 b) (ComplexCompare (Cast (Var 2 c1) ComplexToComplex (Complex 8 []) ()) Eq (Var 2 c3) (Logical 4 []) ()) ()) (= (Var 2 c) (ComplexBinOp (Var 2 c1) Add (Var 2 c2) (Complex 4 []) ()) ()) (= (Var 2 c) (ComplexBinOp (Var 2 c2) Sub (Var 2 c1) (Complex 4 []) ()) ()) (= (Var 2 c) (ComplexBinOp (Var 2 c1) Mul (Var 2 c2) (Complex 4 []) ()) ()) (= (Var 2 c) (Cast (ComplexBinOp (FunctionCall 2 complex@__lpython_overloaded_9__complex 2 complex [((IntegerConstant 1 (Integer 4 []))) ((IntegerConstant 2 (Integer 4 [])))] (Complex 8 []) (ComplexConstant 1.000000 2.000000 (Complex 8 [])) ()) Pow (FunctionCall 2 complex@__lpython_overloaded_5__complex 2 complex [((RealConstant 3.345340 (Real 8 []))) ((RealConstant 4.867868 (Real 8 [])))] (Complex 8 []) (ComplexConstant 3.345340 4.867868 (Complex 8 [])) ()) (Complex 8 []) (ComplexConstant 0.015553 0.065561 (Complex 8 []))) ComplexToComplex (Complex 4 []) (ComplexConstant 0.015553 0.065561 (Complex 4 []))) ()) (= (Var 2 c) (Cast (ComplexBinOp (FunctionCall 2 complex@__lpython_overloaded_9__complex 2 complex [((IntegerConstant 1 (Integer 4 []))) ((IntegerConstant 2 (Integer 4 [])))] (Complex 8 []) (ComplexConstant 1.000000 2.000000 (Complex 8 [])) ()) Mul (FunctionCall 2 complex@__lpython_overloaded_9__complex 2 complex [((IntegerConstant 3 (Integer 4 []))) ((IntegerConstant 4 (Integer 4 [])))] (Complex 8 []) (ComplexConstant 3.000000 4.000000 (Complex 8 [])) ()) (Complex 8 []) (ComplexConstant -5.000000 10.000000 (Complex 8 []))) ComplexToComplex (Complex 4 []) (ComplexConstant -5.000000 10.000000 (Complex 4 []))) ()) (= (Var 2 c) (Cast (ComplexBinOp (FunctionCall 2 complex@__lpython_overloaded_9__complex 2 complex [((IntegerConstant 4 (Integer 4 []))) ((IntegerConstant 5 (Integer 4 [])))] (Complex 8 []) (ComplexConstant 4.000000 5.000000 (Complex 8 [])) ()) Sub (FunctionCall 2 complex@__lpython_overloaded_9__complex 2 complex [((IntegerConstant 3 (Integer 4 []))) ((IntegerConstant 4 (Integer 4 [])))] (Complex 8 []) (ComplexConstant 3.000000 4.000000 (Complex 8 [])) ()) (Complex 8 []) (ComplexConstant 1.000000 1.000000 (Complex 8 []))) ComplexToComplex (Complex 4 []) (ComplexConstant 1.000000 1.000000 (Complex 4 []))) ())] () Public .false. .false.)}) [])
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            test:
+                                (Function
+                                    (SymbolTable
+                                        4
+                                        {
+                                            x:
+                                                (Variable
+                                                    4
+                                                    x
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Complex 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            y:
+                                                (Variable
+                                                    4
+                                                    y
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Complex 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            z:
+                                                (Variable
+                                                    4
+                                                    z
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Complex 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 4 x)
+                                        (ComplexBinOp
+                                            (Cast
+                                                (IntegerConstant 2 (Integer 4) Decimal)
+                                                IntegerToComplex
+                                                (Complex 8)
+                                                (ComplexConstant
+                                                    2.000000
+                                                    0.000000
+                                                    (Complex 8)
+                                                )
+                                            )
+                                            Add
+                                            (ComplexConstant
+                                                0.000000
+                                                3.000000
+                                                (Complex 8)
+                                            )
+                                            (Complex 8)
+                                            (ComplexConstant
+                                                2.000000
+                                                3.000000
+                                                (Complex 8)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 y)
+                                        (ComplexBinOp
+                                            (Cast
+                                                (IntegerConstant 5 (Integer 4) Decimal)
+                                                IntegerToComplex
+                                                (Complex 8)
+                                                (ComplexConstant
+                                                    5.000000
+                                                    0.000000
+                                                    (Complex 8)
+                                                )
+                                            )
+                                            Add
+                                            (ComplexConstant
+                                                0.000000
+                                                5.000000
+                                                (Complex 8)
+                                            )
+                                            (Complex 8)
+                                            (ComplexConstant
+                                                5.000000
+                                                5.000000
+                                                (Complex 8)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 z)
+                                        (Cast
+                                            (ComplexBinOp
+                                                (Var 4 x)
+                                                Add
+                                                (Var 4 y)
+                                                (Complex 8)
+                                                ()
+                                            )
+                                            ComplexToComplex
+                                            (Complex 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 z)
+                                        (Cast
+                                            (ComplexBinOp
+                                                (Var 4 x)
+                                                Sub
+                                                (Var 4 y)
+                                                (Complex 8)
+                                                ()
+                                            )
+                                            ComplexToComplex
+                                            (Complex 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 z)
+                                        (Cast
+                                            (ComplexBinOp
+                                                (Cast
+                                                    (IntegerConstant 2 (Integer 4) Decimal)
+                                                    IntegerToComplex
+                                                    (Complex 8)
+                                                    (ComplexConstant
+                                                        2.000000
+                                                        0.000000
+                                                        (Complex 8)
+                                                    )
+                                                )
+                                                Mul
+                                                (Var 4 x)
+                                                (Complex 8)
+                                                ()
+                                            )
+                                            ComplexToComplex
+                                            (Complex 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            test_complex:
+                                (Function
+                                    (SymbolTable
+                                        3
+                                        {
+                                            b:
+                                                (Variable
+                                                    3
+                                                    b
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Logical 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            c:
+                                                (Variable
+                                                    3
+                                                    c
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Complex 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            c1:
+                                                (Variable
+                                                    3
+                                                    c1
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Complex 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            c2:
+                                                (Variable
+                                                    3
+                                                    c2
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Complex 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            c3:
+                                                (Variable
+                                                    3
+                                                    c3
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Complex 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            complex:
+                                                (ExternalSymbol
+                                                    3
+                                                    complex
+                                                    5 complex
+                                                    lpython_builtin
+                                                    []
+                                                    complex
+                                                    Private
+                                                ),
+                                            complex@__lpython_overloaded_0__complex:
+                                                (ExternalSymbol
+                                                    3
+                                                    complex@__lpython_overloaded_0__complex
+                                                    5 __lpython_overloaded_0__complex
+                                                    lpython_builtin
+                                                    []
+                                                    __lpython_overloaded_0__complex
+                                                    Public
+                                                ),
+                                            complex@__lpython_overloaded_13__complex:
+                                                (ExternalSymbol
+                                                    3
+                                                    complex@__lpython_overloaded_13__complex
+                                                    5 __lpython_overloaded_13__complex
+                                                    lpython_builtin
+                                                    []
+                                                    __lpython_overloaded_13__complex
+                                                    Public
+                                                ),
+                                            complex@__lpython_overloaded_1__complex:
+                                                (ExternalSymbol
+                                                    3
+                                                    complex@__lpython_overloaded_1__complex
+                                                    5 __lpython_overloaded_1__complex
+                                                    lpython_builtin
+                                                    []
+                                                    __lpython_overloaded_1__complex
+                                                    Public
+                                                ),
+                                            complex@__lpython_overloaded_2__complex:
+                                                (ExternalSymbol
+                                                    3
+                                                    complex@__lpython_overloaded_2__complex
+                                                    5 __lpython_overloaded_2__complex
+                                                    lpython_builtin
+                                                    []
+                                                    __lpython_overloaded_2__complex
+                                                    Public
+                                                ),
+                                            complex@__lpython_overloaded_5__complex:
+                                                (ExternalSymbol
+                                                    3
+                                                    complex@__lpython_overloaded_5__complex
+                                                    5 __lpython_overloaded_5__complex
+                                                    lpython_builtin
+                                                    []
+                                                    __lpython_overloaded_5__complex
+                                                    Public
+                                                ),
+                                            complex@__lpython_overloaded_9__complex:
+                                                (ExternalSymbol
+                                                    3
+                                                    complex@__lpython_overloaded_9__complex
+                                                    5 __lpython_overloaded_9__complex
+                                                    lpython_builtin
+                                                    []
+                                                    __lpython_overloaded_9__complex
+                                                    Public
+                                                )
+                                        })
+                                    test_complex
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 3 c)
+                                        (Cast
+                                            (FunctionCall
+                                                3 complex@__lpython_overloaded_0__complex
+                                                3 complex
+                                                []
+                                                (Complex 8)
+                                                (ComplexConstant
+                                                    0.000000
+                                                    0.000000
+                                                    (Complex 8)
+                                                )
+                                                ()
+                                            )
+                                            ComplexToComplex
+                                            (Complex 4)
+                                            (ComplexConstant
+                                                0.000000
+                                                0.000000
+                                                (Complex 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 c)
+                                        (Cast
+                                            (FunctionCall
+                                                3 complex@__lpython_overloaded_1__complex
+                                                3 complex
+                                                [((RealConstant
+                                                    3.400000
+                                                    (Real 8)
+                                                ))]
+                                                (Complex 8)
+                                                (ComplexConstant
+                                                    3.400000
+                                                    0.000000
+                                                    (Complex 8)
+                                                )
+                                                ()
+                                            )
+                                            ComplexToComplex
+                                            (Complex 4)
+                                            (ComplexConstant
+                                                3.400000
+                                                0.000000
+                                                (Complex 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 c)
+                                        (Cast
+                                            (FunctionCall
+                                                3 complex@__lpython_overloaded_5__complex
+                                                3 complex
+                                                [((RealConstant
+                                                    5.000000
+                                                    (Real 8)
+                                                ))
+                                                ((RealConstant
+                                                    4.300000
+                                                    (Real 8)
+                                                ))]
+                                                (Complex 8)
+                                                (ComplexConstant
+                                                    5.000000
+                                                    4.300000
+                                                    (Complex 8)
+                                                )
+                                                ()
+                                            )
+                                            ComplexToComplex
+                                            (Complex 4)
+                                            (ComplexConstant
+                                                5.000000
+                                                4.300000
+                                                (Complex 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 c)
+                                        (FunctionCall
+                                            3 complex@__lpython_overloaded_2__complex
+                                            3 complex
+                                            [((IntegerConstant 1 (Integer 4) Decimal))]
+                                            (Complex 4)
+                                            (ComplexConstant
+                                                1.000000
+                                                0.000000
+                                                (Complex 8)
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 c1)
+                                        (Cast
+                                            (FunctionCall
+                                                3 complex@__lpython_overloaded_9__complex
+                                                3 complex
+                                                [((IntegerConstant 3 (Integer 4) Decimal))
+                                                ((IntegerConstant 4 (Integer 4) Decimal))]
+                                                (Complex 8)
+                                                (ComplexConstant
+                                                    3.000000
+                                                    4.000000
+                                                    (Complex 8)
+                                                )
+                                                ()
+                                            )
+                                            ComplexToComplex
+                                            (Complex 4)
+                                            (ComplexConstant
+                                                3.000000
+                                                4.000000
+                                                (Complex 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 c2)
+                                        (Cast
+                                            (FunctionCall
+                                                3 complex@__lpython_overloaded_13__complex
+                                                3 complex
+                                                [((IntegerConstant 2 (Integer 4) Decimal))
+                                                ((RealConstant
+                                                    4.500000
+                                                    (Real 8)
+                                                ))]
+                                                (Complex 8)
+                                                (ComplexConstant
+                                                    2.000000
+                                                    4.500000
+                                                    (Complex 8)
+                                                )
+                                                ()
+                                            )
+                                            ComplexToComplex
+                                            (Complex 4)
+                                            (ComplexConstant
+                                                2.000000
+                                                4.500000
+                                                (Complex 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 c3)
+                                        (FunctionCall
+                                            3 complex@__lpython_overloaded_5__complex
+                                            3 complex
+                                            [((RealConstant
+                                                3.000000
+                                                (Real 8)
+                                            ))
+                                            ((RealConstant
+                                                4.000000
+                                                (Real 8)
+                                            ))]
+                                            (Complex 8)
+                                            (ComplexConstant
+                                                3.000000
+                                                4.000000
+                                                (Complex 8)
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 b)
+                                        (ComplexCompare
+                                            (Var 3 c1)
+                                            NotEq
+                                            (Var 3 c2)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 b)
+                                        (ComplexCompare
+                                            (Cast
+                                                (Var 3 c1)
+                                                ComplexToComplex
+                                                (Complex 8)
+                                                ()
+                                            )
+                                            Eq
+                                            (Var 3 c3)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 c)
+                                        (ComplexBinOp
+                                            (Var 3 c1)
+                                            Add
+                                            (Var 3 c2)
+                                            (Complex 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 c)
+                                        (ComplexBinOp
+                                            (Var 3 c2)
+                                            Sub
+                                            (Var 3 c1)
+                                            (Complex 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 c)
+                                        (ComplexBinOp
+                                            (Var 3 c1)
+                                            Mul
+                                            (Var 3 c2)
+                                            (Complex 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 c)
+                                        (Cast
+                                            (ComplexBinOp
+                                                (FunctionCall
+                                                    3 complex@__lpython_overloaded_9__complex
+                                                    3 complex
+                                                    [((IntegerConstant 1 (Integer 4) Decimal))
+                                                    ((IntegerConstant 2 (Integer 4) Decimal))]
+                                                    (Complex 8)
+                                                    (ComplexConstant
+                                                        1.000000
+                                                        2.000000
+                                                        (Complex 8)
+                                                    )
+                                                    ()
+                                                )
+                                                Pow
+                                                (FunctionCall
+                                                    3 complex@__lpython_overloaded_5__complex
+                                                    3 complex
+                                                    [((RealConstant
+                                                        3.345340
+                                                        (Real 8)
+                                                    ))
+                                                    ((RealConstant
+                                                        4.867868
+                                                        (Real 8)
+                                                    ))]
+                                                    (Complex 8)
+                                                    (ComplexConstant
+                                                        3.345340
+                                                        4.867868
+                                                        (Complex 8)
+                                                    )
+                                                    ()
+                                                )
+                                                (Complex 8)
+                                                (ComplexConstant
+                                                    0.015553
+                                                    0.065561
+                                                    (Complex 8)
+                                                )
+                                            )
+                                            ComplexToComplex
+                                            (Complex 4)
+                                            (ComplexConstant
+                                                0.015553
+                                                0.065561
+                                                (Complex 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 c)
+                                        (Cast
+                                            (ComplexBinOp
+                                                (FunctionCall
+                                                    3 complex@__lpython_overloaded_9__complex
+                                                    3 complex
+                                                    [((IntegerConstant 1 (Integer 4) Decimal))
+                                                    ((IntegerConstant 2 (Integer 4) Decimal))]
+                                                    (Complex 8)
+                                                    (ComplexConstant
+                                                        1.000000
+                                                        2.000000
+                                                        (Complex 8)
+                                                    )
+                                                    ()
+                                                )
+                                                Mul
+                                                (FunctionCall
+                                                    3 complex@__lpython_overloaded_9__complex
+                                                    3 complex
+                                                    [((IntegerConstant 3 (Integer 4) Decimal))
+                                                    ((IntegerConstant 4 (Integer 4) Decimal))]
+                                                    (Complex 8)
+                                                    (ComplexConstant
+                                                        3.000000
+                                                        4.000000
+                                                        (Complex 8)
+                                                    )
+                                                    ()
+                                                )
+                                                (Complex 8)
+                                                (ComplexConstant
+                                                    -5.000000
+                                                    10.000000
+                                                    (Complex 8)
+                                                )
+                                            )
+                                            ComplexToComplex
+                                            (Complex 4)
+                                            (ComplexConstant
+                                                -5.000000
+                                                10.000000
+                                                (Complex 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 c)
+                                        (Cast
+                                            (ComplexBinOp
+                                                (FunctionCall
+                                                    3 complex@__lpython_overloaded_9__complex
+                                                    3 complex
+                                                    [((IntegerConstant 4 (Integer 4) Decimal))
+                                                    ((IntegerConstant 5 (Integer 4) Decimal))]
+                                                    (Complex 8)
+                                                    (ComplexConstant
+                                                        4.000000
+                                                        5.000000
+                                                        (Complex 8)
+                                                    )
+                                                    ()
+                                                )
+                                                Sub
+                                                (FunctionCall
+                                                    3 complex@__lpython_overloaded_9__complex
+                                                    3 complex
+                                                    [((IntegerConstant 3 (Integer 4) Decimal))
+                                                    ((IntegerConstant 4 (Integer 4) Decimal))]
+                                                    (Complex 8)
+                                                    (ComplexConstant
+                                                        3.000000
+                                                        4.000000
+                                                        (Complex 8)
+                                                    )
+                                                    ()
+                                                )
+                                                (Complex 8)
+                                                (ComplexConstant
+                                                    1.000000
+                                                    1.000000
+                                                    (Complex 8)
+                                                )
+                                            )
+                                            ComplexToComplex
+                                            (Complex 4)
+                                            (ComplexConstant
+                                                1.000000
+                                                1.000000
+                                                (Complex 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    [lpython_builtin]
+                    .false.
+                    .false.
+                    .false.
+                ),
+            lpython_builtin:
+                (IntrinsicModule lpython_builtin),
+            main_program:
+                (Program
+                    (SymbolTable
+                        142
+                        {
+                            
+                        })
+                    main_program
+                    []
+                    []
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-const_01-af8289b.json b/tests/reference/asr-const_01-af8289b.json
index 0766f0c481..c54ff59cdd 100644
--- a/tests/reference/asr-const_01-af8289b.json
+++ b/tests/reference/asr-const_01-af8289b.json
@@ -2,7 +2,7 @@
     "basename": "asr-const_01-af8289b",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/errors/const_01.py",
-    "infile_hash": "99815a83c10b756d0f7afa75aa637ed8e4e969f9382b456bfd08df31",
+    "infile_hash": "c147e6905815b0476dd2ec10669bb4c7fd65d604910e00b8b9eade30",
     "outfile": null,
     "outfile_hash": null,
     "stdout": null,
diff --git a/tests/reference/asr-const_02-fce29b7.json b/tests/reference/asr-const_02-fce29b7.json
index fceb3b4f76..af31951d5b 100644
--- a/tests/reference/asr-const_02-fce29b7.json
+++ b/tests/reference/asr-const_02-fce29b7.json
@@ -2,7 +2,7 @@
     "basename": "asr-const_02-fce29b7",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/errors/const_02.py",
-    "infile_hash": "488db60d4763af36319eac3275bb6091a3d71f0dccfb5c1e7155c8fa",
+    "infile_hash": "9548b6585315578b1844bea16afc1ebe3b17df7b548574c871226e47",
     "outfile": null,
     "outfile_hash": null,
     "stdout": null,
diff --git a/tests/reference/asr-constants1-5828e8a.json b/tests/reference/asr-constants1-5828e8a.json
index eea36d55c5..2717a7244c 100644
--- a/tests/reference/asr-constants1-5828e8a.json
+++ b/tests/reference/asr-constants1-5828e8a.json
@@ -2,12 +2,12 @@
     "basename": "asr-constants1-5828e8a",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/constants1.py",
-    "infile_hash": "5d624d8607e3c7f476ef4e7e70e36b0e9779b08b456a2d09d8974abf",
+    "infile_hash": "5dca391c30a1477fb903e17c1d47dad3b9b816088384ba61ff372db1",
     "outfile": null,
     "outfile_hash": null,
-    "stdout": "asr-constants1-5828e8a.stdout",
-    "stdout_hash": "c8c37d096918c949d30e0e87bec95c20d146f2e1338619e5f43c78f0",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-constants1-5828e8a.stderr",
+    "stderr_hash": "3f6d71f183a7c6aaf4a189307e440a51d3fd92dc2d1ed58bccb7ffb6",
+    "returncode": 2
 }
\ No newline at end of file
diff --git a/tests/reference/asr-constants1-5828e8a.stderr b/tests/reference/asr-constants1-5828e8a.stderr
new file mode 100644
index 0000000000..757256d5c8
--- /dev/null
+++ b/tests/reference/asr-constants1-5828e8a.stderr
@@ -0,0 +1,5 @@
+semantic error: Unexpected number of args, Int takes 2 arguments, found 1
+  --> tests/constants1.py:90:9
+   |
+90 |     a = int()
+   |         ^^^^^ 
diff --git a/tests/reference/asr-constants1-5828e8a.stdout b/tests/reference/asr-constants1-5828e8a.stdout
deleted file mode 100644
index d0812cf667..0000000000
--- a/tests/reference/asr-constants1-5828e8a.stdout
+++ /dev/null
@@ -1 +0,0 @@
-(TranslationUnit (SymbolTable 1 {lpython_builtin: (IntrinsicModule lpython_builtin), main_program: (Program (SymbolTable 105 {}) main_program [] []), test_abs: (Function (SymbolTable 4 {a: (Variable 4 a [] Local () () Default (Integer 4 []) Source Public Required .false.), abs: (ExternalSymbol 4 abs 13 abs lpython_builtin [] abs Private), abs@__lpython_overloaded_0__abs: (ExternalSymbol 4 abs@__lpython_overloaded_0__abs 13 __lpython_overloaded_0__abs lpython_builtin [] __lpython_overloaded_0__abs Public), abs@__lpython_overloaded_4__abs: (ExternalSymbol 4 abs@__lpython_overloaded_4__abs 13 __lpython_overloaded_4__abs lpython_builtin [] __lpython_overloaded_4__abs Public), abs@__lpython_overloaded_6__abs: (ExternalSymbol 4 abs@__lpython_overloaded_6__abs 13 __lpython_overloaded_6__abs lpython_builtin [] __lpython_overloaded_6__abs Public), abs@__lpython_overloaded_8__abs: (ExternalSymbol 4 abs@__lpython_overloaded_8__abs 13 __lpython_overloaded_8__abs lpython_builtin [] __lpython_overloaded_8__abs Public), b: (Variable 4 b [] Local () () Default (Real 4 []) Source Public Required .false.), complex: (ExternalSymbol 4 complex 13 complex lpython_builtin [] complex Private), complex@__lpython_overloaded_5__complex: (ExternalSymbol 4 complex@__lpython_overloaded_5__complex 13 __lpython_overloaded_5__complex lpython_builtin [] __lpython_overloaded_5__complex Public)}) test_abs (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [abs@__lpython_overloaded_0__abs abs@__lpython_overloaded_4__abs abs@__lpython_overloaded_6__abs abs@__lpython_overloaded_8__abs complex@__lpython_overloaded_5__complex] [] [(= (Var 4 a) (FunctionCall 4 abs@__lpython_overloaded_4__abs 4 abs [((IntegerConstant 5 (Integer 4 [])))] (Integer 4 []) (IntegerConstant 5 (Integer 4 [])) ()) ()) (= (Var 4 a) (FunctionCall 4 abs@__lpython_overloaded_4__abs 4 abs [((IntegerUnaryMinus (IntegerConstant 500 (Integer 4 [])) (Integer 4 []) (IntegerConstant -500 (Integer 4 []))))] (Integer 4 []) (IntegerConstant 500 (Integer 4 [])) ()) ()) (= (Var 4 a) (FunctionCall 4 abs@__lpython_overloaded_6__abs 4 abs [((LogicalConstant .false. (Logical 4 [])))] (Integer 4 []) (IntegerConstant 0 (Integer 4 [])) ()) ()) (= (Var 4 a) (FunctionCall 4 abs@__lpython_overloaded_6__abs 4 abs [((LogicalConstant .true. (Logical 4 [])))] (Integer 4 []) (IntegerConstant 1 (Integer 4 [])) ()) ()) (= (Var 4 b) (Cast (FunctionCall 4 abs@__lpython_overloaded_0__abs 4 abs [((RealConstant 3.450000 (Real 8 [])))] (Real 8 []) (RealConstant 3.450000 (Real 8 [])) ()) RealToReal (Real 4 []) (RealConstant 3.450000 (Real 4 []))) ()) (= (Var 4 b) (Cast (FunctionCall 4 abs@__lpython_overloaded_0__abs 4 abs [((RealUnaryMinus (RealConstant 5346.340000 (Real 8 [])) (Real 8 []) (RealConstant -5346.340000 (Real 8 []))))] (Real 8 []) (RealConstant 5346.340000 (Real 8 [])) ()) RealToReal (Real 4 []) (RealConstant 5346.340000 (Real 4 []))) ()) (= (Var 4 b) (Cast (FunctionCall 4 abs@__lpython_overloaded_8__abs 4 abs [((FunctionCall 4 complex@__lpython_overloaded_5__complex 4 complex [((RealConstant 3.450000 (Real 8 []))) ((RealConstant 5.600000 (Real 8 [])))] (Complex 8 []) (ComplexConstant 3.450000 5.600000 (Complex 8 [])) ()))] (Real 8 []) (RealConstant 6.577424 (Real 8 [])) ()) RealToReal (Real 4 []) (RealConstant 6.577424 (Real 4 []))) ())] () Public .false. .false.), test_bool: (Function (SymbolTable 6 {a: (Variable 6 a [] Local () () Default (Logical 4 []) Source Public Required .false.), complex: (ExternalSymbol 6 complex 13 complex lpython_builtin [] complex Private), complex@__lpython_overloaded_9__complex: (ExternalSymbol 6 complex@__lpython_overloaded_9__complex 13 __lpython_overloaded_9__complex lpython_builtin [] __lpython_overloaded_9__complex Public)}) test_bool (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [complex@__lpython_overloaded_9__complex] [] [(= (Var 6 a) (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToLogical (Logical 4 []) (LogicalConstant .false. (Logical 4 []))) ()) (= (Var 6 a) (Cast (IntegerUnaryMinus (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant -1 (Integer 4 []))) IntegerToLogical (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (= (Var 6 a) (Cast (StringConstant "" (Character 1 0 () [])) CharacterToLogical (Logical 4 []) (LogicalConstant .false. (Logical 4 []))) ()) (= (Var 6 a) (Cast (FunctionCall 6 complex@__lpython_overloaded_9__complex 6 complex [((IntegerConstant 0 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])))] (Complex 8 []) (ComplexConstant 0.000000 0.000000 (Complex 8 [])) ()) ComplexToLogical (Logical 4 []) (LogicalConstant .false. (Logical 4 []))) ()) (Assert (LogicalCompare (Var 6 a) Eq (LogicalConstant .false. (Logical 4 [])) (Logical 4 []) ()) ()) (= (Var 6 a) (Cast (StringConstant "t" (Character 1 1 () [])) CharacterToLogical (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (= (Var 6 a) (Cast (RealConstant 2.300000 (Real 8 [])) RealToLogical (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (LogicalCompare (Var 6 a) Eq (LogicalConstant .true. (Logical 4 [])) (Logical 4 []) ()) ())] () Public .false. .false.), test_boz: (Function (SymbolTable 2 {b: (Variable 2 b [] Local () () Default (Character 1 -2 () []) Source Public Required .false.), bin: (ExternalSymbol 2 bin 13 bin lpython_builtin [] bin Private), hex: (ExternalSymbol 2 hex 13 hex lpython_builtin [] hex Private), oct: (ExternalSymbol 2 oct 13 oct lpython_builtin [] oct Private)}) test_boz (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [bin hex oct] [] [(= (Var 2 b) (FunctionCall 2 bin () [((IntegerConstant 5 (Integer 4 [])))] (Character 1 -2 () []) (StringConstant "0b101" (Character 1 5 () [])) ()) ()) (= (Var 2 b) (FunctionCall 2 bin () [((IntegerConstant 64 (Integer 4 [])))] (Character 1 -2 () []) (StringConstant "0b1000000" (Character 1 9 () [])) ()) ()) (= (Var 2 b) (FunctionCall 2 bin () [((IntegerUnaryMinus (IntegerConstant 534 (Integer 4 [])) (Integer 4 []) (IntegerConstant -534 (Integer 4 []))))] (Character 1 -2 () []) (StringConstant "-0b1000010110" (Character 1 13 () [])) ()) ()) (= (Var 2 b) (FunctionCall 2 oct () [((IntegerConstant 8 (Integer 4 [])))] (Character 1 -2 () []) (StringConstant "0o10" (Character 1 4 () [])) ()) ()) (= (Var 2 b) (FunctionCall 2 oct () [((IntegerConstant 56 (Integer 4 [])))] (Character 1 -2 () []) (StringConstant "0o70" (Character 1 4 () [])) ()) ()) (= (Var 2 b) (FunctionCall 2 oct () [((IntegerUnaryMinus (IntegerConstant 534 (Integer 4 [])) (Integer 4 []) (IntegerConstant -534 (Integer 4 []))))] (Character 1 -2 () []) (StringConstant "-0o1026" (Character 1 7 () [])) ()) ()) (= (Var 2 b) (FunctionCall 2 hex () [((IntegerConstant 42 (Integer 4 [])))] (Character 1 -2 () []) (StringConstant "0x2a" (Character 1 4 () [])) ()) ()) (= (Var 2 b) (FunctionCall 2 hex () [((IntegerConstant 12648430 (Integer 4 [])))] (Character 1 -2 () []) (StringConstant "0xc0ffee" (Character 1 8 () [])) ()) ()) (= (Var 2 b) (FunctionCall 2 hex () [((IntegerUnaryMinus (IntegerConstant 534 (Integer 4 [])) (Integer 4 []) (IntegerConstant -534 (Integer 4 []))))] (Character 1 -2 () []) (StringConstant "-0x216" (Character 1 6 () [])) ()) ())] () Public .false. .false.), test_callable: (Function (SymbolTable 8 {a: (Variable 8 a [] Local () () Default (Logical 4 []) Source Public Required .false.), b: (Variable 8 b [] Local () () Default (Integer 4 []) Source Public Required .false.)}) test_callable (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [] [(= (Var 8 b) (IntegerConstant 2 (Integer 4 [])) ()) (= (Var 8 a) (LogicalConstant .true. (Logical 4 [])) ()) (Assert (LogicalCompare (Var 8 a) Eq (LogicalConstant .true. (Logical 4 [])) (Logical 4 []) ()) ()) (= (Var 8 a) (LogicalConstant .false. (Logical 4 [])) ()) (Assert (LogicalCompare (Var 8 a) Eq (LogicalConstant .false. (Logical 4 [])) (Logical 4 []) ()) ()) (= (Var 8 a) (LogicalConstant .false. (Logical 4 [])) ()) (Assert (LogicalCompare (Var 8 a) Eq (LogicalConstant .false. (Logical 4 [])) (Logical 4 []) ()) ())] () Public .false. .false.), test_divmod: (Function (SymbolTable 11 {a: (Variable 11 a [] Local () () Default (Tuple [(Integer 4 []) (Integer 4 [])]) Source Public Required .false.), divmod: (ExternalSymbol 11 divmod 13 divmod lpython_builtin [] divmod Private)}) test_divmod (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [divmod] [] [(= (Var 11 a) (FunctionCall 11 divmod () [((IntegerConstant 9 (Integer 4 []))) ((IntegerConstant 3 (Integer 4 [])))] (Tuple [(Integer 4 []) (Integer 4 [])]) (TupleConstant [(IntegerConstant 3 (Integer 4 [])) (IntegerConstant 0 (Integer 4 []))] (Tuple [(Integer 4 []) (Integer 4 [])])) ()) ()) (= (Var 11 a) (FunctionCall 11 divmod () [((IntegerConstant 9 (Integer 4 []))) ((IntegerUnaryMinus (IntegerConstant 3 (Integer 4 [])) (Integer 4 []) (IntegerConstant -3 (Integer 4 []))))] (Tuple [(Integer 4 []) (Integer 4 [])]) (TupleConstant [(IntegerConstant -3 (Integer 4 [])) (IntegerConstant 0 (Integer 4 []))] (Tuple [(Integer 4 []) (Integer 4 [])])) ()) ()) (= (Var 11 a) (FunctionCall 11 divmod () [((IntegerConstant 3 (Integer 4 []))) ((IntegerConstant 3 (Integer 4 [])))] (Tuple [(Integer 4 []) (Integer 4 [])]) (TupleConstant [(IntegerConstant 1 (Integer 4 [])) (IntegerConstant 0 (Integer 4 []))] (Tuple [(Integer 4 []) (Integer 4 [])])) ()) ()) (= (Var 11 a) (FunctionCall 11 divmod () [((IntegerConstant 4 (Integer 4 []))) ((IntegerConstant 5 (Integer 4 [])))] (Tuple [(Integer 4 []) (Integer 4 [])]) (TupleConstant [(IntegerConstant 0 (Integer 4 [])) (IntegerConstant 4 (Integer 4 []))] (Tuple [(Integer 4 []) (Integer 4 [])])) ()) ()) (= (Var 11 a) (FunctionCall 11 divmod () [((IntegerConstant 0 (Integer 4 []))) ((IntegerConstant 5 (Integer 4 [])))] (Tuple [(Integer 4 []) (Integer 4 [])]) (TupleConstant [(IntegerConstant 0 (Integer 4 [])) (IntegerConstant 0 (Integer 4 []))] (Tuple [(Integer 4 []) (Integer 4 [])])) ()) ())] () Public .false. .false.), test_float: (Function (SymbolTable 10 {a: (Variable 10 a [] Local () () Default (Real 8 []) Source Public Required .false.)}) test_float (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [] [(= (Var 10 a) (RealConstant 0.000000 (Real 8 [])) ()) (= (Var 10 a) (RealConstant 4.560000 (Real 8 [])) ()) (= (Var 10 a) (Cast (IntegerConstant 5 (Integer 4 [])) IntegerToReal (Real 8 []) (RealConstant 5.000000 (Real 8 []))) ()) (= (Var 10 a) (Cast (IntegerUnaryMinus (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant -1 (Integer 4 []))) IntegerToReal (Real 8 []) (RealConstant -1.000000 (Real 8 []))) ()) (= (Var 10 a) (Cast (LogicalConstant .true. (Logical 4 [])) LogicalToReal (Real 8 []) (RealConstant 1.000000 (Real 8 []))) ()) (= (Var 10 a) (Cast (LogicalConstant .false. (Logical 4 [])) LogicalToReal (Real 8 []) (RealConstant 0.000000 (Real 8 []))) ())] () Public .false. .false.), test_int: (Function (SymbolTable 9 {a: (Variable 9 a [] Local () () Default (Integer 8 []) Source Public Required .false.)}) test_int (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [] [(= (Var 9 a) (IntegerConstant 0 (Integer 8 [])) ()) (= (Var 9 a) (Cast (RealConstant 4.560000 (Real 8 [])) RealToInteger (Integer 8 []) (IntegerConstant 4 (Integer 8 []))) ()) (= (Var 9 a) (Cast (IntegerConstant 5 (Integer 4 [])) IntegerToInteger (Integer 8 []) ()) ()) (= (Var 9 a) (Cast (RealUnaryMinus (RealConstant 5.000010 (Real 8 [])) (Real 8 []) (RealConstant -5.000010 (Real 8 []))) RealToInteger (Integer 8 []) (IntegerConstant -5 (Integer 8 []))) ()) (= (Var 9 a) (Cast (LogicalConstant .true. (Logical 4 [])) LogicalToInteger (Integer 8 []) (IntegerConstant 1 (Integer 8 []))) ()) (= (Var 9 a) (Cast (LogicalConstant .false. (Logical 4 [])) LogicalToInteger (Integer 8 []) (IntegerConstant 0 (Integer 8 []))) ()) (= (Var 9 a) (IntegerConstant 5346 (Integer 8 [])) ())] () Public .false. .false.), test_len: (Function (SymbolTable 5 {a: (Variable 5 a [] Local () () Default (Integer 4 []) Source Public Required .false.), l: (Variable 5 l [] Local () () Default (List (Integer 4 [])) Source Public Required .false.)}) test_len (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [] [(= (Var 5 a) (StringLen (StringConstant "" (Character 1 0 () [])) (Integer 4 []) (IntegerConstant 0 (Integer 4 []))) ()) (= (Var 5 a) (StringLen (StringConstant "test" (Character 1 4 () [])) (Integer 4 []) (IntegerConstant 4 (Integer 4 []))) ()) (= (Var 5 a) (StringLen (StringConstant "this is a test" (Character 1 14 () [])) (Integer 4 []) (IntegerConstant 14 (Integer 4 []))) ()) (= (Var 5 a) (TupleLen (TupleConstant [(IntegerConstant 1 (Integer 4 [])) (IntegerConstant 2 (Integer 4 [])) (IntegerConstant 3 (Integer 4 []))] (Tuple [(Integer 4 []) (Integer 4 []) (Integer 4 [])])) (Integer 4 []) (IntegerConstant 3 (Integer 4 []))) ()) (= (Var 5 a) (TupleLen (TupleConstant [(TupleConstant [(StringConstant "c" (Character 1 1 () [])) (StringConstant "b" (Character 1 1 () [])) (RealConstant 3.400000 (Real 8 []))] (Tuple [(Character 1 1 () []) (Character 1 1 () []) (Real 8 [])])) (TupleConstant [(StringConstant "c" (Character 1 1 () [])) (IntegerConstant 3 (Integer 4 [])) (RealConstant 5.600000 (Real 8 []))] (Tuple [(Character 1 1 () []) (Integer 4 []) (Real 8 [])]))] (Tuple [(Tuple [(Character 1 1 () []) (Character 1 1 () []) (Real 8 [])]) (Tuple [(Character 1 1 () []) (Integer 4 []) (Real 8 [])])])) (Integer 4 []) (IntegerConstant 2 (Integer 4 []))) ()) (= (Var 5 a) (ListLen (ListConstant [(IntegerConstant 1 (Integer 4 [])) (IntegerConstant 2 (Integer 4 [])) (IntegerConstant 3 (Integer 4 []))] (List (Integer 4 []))) (Integer 4 []) (IntegerConstant 3 (Integer 4 []))) ()) (= (Var 5 a) (ListLen (ListConstant [(ListConstant [(IntegerUnaryMinus (IntegerConstant 4 (Integer 4 [])) (Integer 4 []) (IntegerConstant -4 (Integer 4 []))) (IntegerUnaryMinus (IntegerConstant 5 (Integer 4 [])) (Integer 4 []) (IntegerConstant -5 (Integer 4 []))) (IntegerUnaryMinus (IntegerConstant 6 (Integer 4 [])) (Integer 4 []) (IntegerConstant -6 (Integer 4 [])))] (List (Integer 4 []))) (ListConstant [(IntegerUnaryMinus (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant -1 (Integer 4 []))) (IntegerUnaryMinus (IntegerConstant 2 (Integer 4 [])) (Integer 4 []) (IntegerConstant -2 (Integer 4 []))) (IntegerUnaryMinus (IntegerConstant 3 (Integer 4 [])) (Integer 4 []) (IntegerConstant -3 (Integer 4 [])))] (List (Integer 4 [])))] (List (List (Integer 4 [])))) (Integer 4 []) (IntegerConstant 2 (Integer 4 []))) ()) (= (Var 5 a) (SetLen (SetConstant [(IntegerConstant 1 (Integer 4 [])) (IntegerConstant 2 (Integer 4 [])) (IntegerConstant 3 (Integer 4 []))] (Set (Integer 4 []))) (Integer 4 []) (IntegerConstant 3 (Integer 4 []))) ()) (= (Var 5 a) (DictLen (DictConstant [(IntegerConstant 1 (Integer 4 [])) (IntegerConstant 2 (Integer 4 [])) (IntegerConstant 3 (Integer 4 []))] [(StringConstant "c" (Character 1 1 () [])) (StringConstant "b" (Character 1 1 () [])) (StringConstant "c" (Character 1 1 () []))] (Dict (Integer 4 []) (Character 1 1 () []))) (Integer 4 []) (IntegerConstant 3 (Integer 4 []))) ()) (= (Var 5 l) (ListConstant [(IntegerConstant 1 (Integer 4 [])) (IntegerConstant 2 (Integer 4 [])) (IntegerConstant 3 (Integer 4 [])) (IntegerConstant 4 (Integer 4 []))] (List (Integer 4 []))) ()) (= (Var 5 a) (ListLen (Var 5 l) (Integer 4 []) ()) ()) (ListAppend (Var 5 l) (IntegerConstant 5 (Integer 4 []))) (= (Var 5 a) (ListLen (Var 5 l) (Integer 4 []) ()) ())] () Public .false. .false.), test_ord_chr: (Function (SymbolTable 3 {a: (Variable 3 a [] Local () () Default (Integer 4 []) Source Public Required .false.), s: (Variable 3 s [] Local () () Default (Character 1 -2 () []) Source Public Required .false.)}) test_ord_chr (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [] [(= (Var 3 a) (StringOrd (StringConstant "5" (Character 1 1 () [])) (Integer 4 []) (IntegerConstant 53 (Integer 4 []))) ()) (= (Var 3 s) (StringChr (IntegerConstant 43 (Integer 4 [])) (Character 1 1 () []) (StringConstant "+" (Character 1 1 () []))) ())] () Public .false. .false.), test_str: (Function (SymbolTable 7 {s: (Variable 7 s [] Local () () Default (Character 1 -2 () []) Source Public Required .false.)}) test_str (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [] [(= (Var 7 s) (StringConstant "" (Character 1 0 () [])) ()) (= (Var 7 s) (Cast (IntegerConstant 5 (Integer 4 [])) IntegerToCharacter (Character 1 -2 () []) (StringConstant "5" (Character 1 1 () []))) ()) (= (Var 7 s) (Cast (IntegerUnaryMinus (IntegerConstant 4 (Integer 4 [])) (Integer 4 []) (IntegerConstant -4 (Integer 4 []))) IntegerToCharacter (Character 1 -2 () []) (StringConstant "-4" (Character 1 2 () []))) ()) (= (Var 7 s) (Cast (RealConstant 5.600000 (Real 8 [])) RealToCharacter (Character 1 -2 () []) (StringConstant "5.6" (Character 1 3 () []))) ()) (= (Var 7 s) (Cast (LogicalConstant .true. (Logical 4 [])) LogicalToCharacter (Character 1 -2 () []) (StringConstant "True" (Character 1 4 () []))) ()) (= (Var 7 s) (Cast (LogicalConstant .false. (Logical 4 [])) LogicalToCharacter (Character 1 -2 () []) (StringConstant "False" (Character 1 5 () []))) ()) (= (Var 7 s) (StringConstant "5346" (Character 1 4 () [])) ())] () Public .false. .false.)}) [])
diff --git a/tests/reference/asr-cptr_01-4e660f1.json b/tests/reference/asr-cptr_01-4e660f1.json
index 369b361930..85c2399e72 100644
--- a/tests/reference/asr-cptr_01-4e660f1.json
+++ b/tests/reference/asr-cptr_01-4e660f1.json
@@ -2,12 +2,12 @@
     "basename": "asr-cptr_01-4e660f1",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/errors/cptr_01.py",
-    "infile_hash": "0c5f0767aac11155e331581cf0158bb7a9b98ef11bb1716877477b00",
+    "infile_hash": "92647f6c175f3599be307df700902b5f7fe69826f22fd5f082713ee4",
     "outfile": null,
     "outfile_hash": null,
     "stdout": null,
     "stdout_hash": null,
     "stderr": "asr-cptr_01-4e660f1.stderr",
-    "stderr_hash": "0477f93b29ff4932b3471a59731a173fb19d6e44273236829eeaffbe",
+    "stderr_hash": "b75484482c47172cb76a64d8091833a284305788241ef59c8d6efb06",
     "returncode": 2
 }
\ No newline at end of file
diff --git a/tests/reference/asr-cptr_01-4e660f1.stderr b/tests/reference/asr-cptr_01-4e660f1.stderr
index 510fd3ad0c..d2234ab0d7 100644
--- a/tests/reference/asr-cptr_01-4e660f1.stderr
+++ b/tests/reference/asr-cptr_01-4e660f1.stderr
@@ -1,5 +1,5 @@
-semantic error: Indexing CPtr typed expressions is not supported yet
- --> tests/errors/cptr_01.py:5:11
+semantic error: Function 'empty_c_void_p' is not declared and not intrinsic
+ --> tests/errors/cptr_01.py:4:15
   |
-5 |     print(x[0])
-  |           ^^^^ 
+4 |     x: CPtr = empty_c_void_p()
+  |               ^^^^^^^^^^^^^^^^ 
diff --git a/tests/reference/asr-def_func_01-1c7f4cd.json b/tests/reference/asr-def_func_01-1c7f4cd.json
new file mode 100644
index 0000000000..4eff9fff31
--- /dev/null
+++ b/tests/reference/asr-def_func_01-1c7f4cd.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-def_func_01-1c7f4cd",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/def_func_01.py",
+    "infile_hash": "fda645ec7920824250cc2b5c28663061fe629b1dc341fc70ba3a691c",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-def_func_01-1c7f4cd.stderr",
+    "stderr_hash": "e96fc67b26c68ef0954595fb87bf261a1bfe6e9f55d83baf28e73032",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-def_func_01-1c7f4cd.stderr b/tests/reference/asr-def_func_01-1c7f4cd.stderr
new file mode 100644
index 0000000000..ac8d574cb7
--- /dev/null
+++ b/tests/reference/asr-def_func_01-1c7f4cd.stderr
@@ -0,0 +1,5 @@
+semantic error: Number of arguments does not match in the function call
+ --> tests/errors/def_func_01.py:5:1
+  |
+5 | func_01()
+  | ^^^^^^^^^ missing 1 required arguments : 'x'
diff --git a/tests/reference/asr-def_func_02-8bf7092.json b/tests/reference/asr-def_func_02-8bf7092.json
new file mode 100644
index 0000000000..dd639549f4
--- /dev/null
+++ b/tests/reference/asr-def_func_02-8bf7092.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-def_func_02-8bf7092",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/def_func_02.py",
+    "infile_hash": "fe3a3789ece86f790691ead17887dfebb8d60b882f58e06d333c9bb2",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-def_func_02-8bf7092.stderr",
+    "stderr_hash": "61aea2e70bfee634a40291abc98afa838c6ca173201d9d16f9dfb428",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-def_func_02-8bf7092.stderr b/tests/reference/asr-def_func_02-8bf7092.stderr
new file mode 100644
index 0000000000..7c4bcd5d23
--- /dev/null
+++ b/tests/reference/asr-def_func_02-8bf7092.stderr
@@ -0,0 +1,5 @@
+semantic error: Number of arguments does not match in the function call
+ --> tests/errors/def_func_02.py:5:1
+  |
+5 | func_02()
+  | ^^^^^^^^^ missing 2 required arguments : 'x' and 'y'
diff --git a/tests/reference/asr-def_func_03-58ad7c5.json b/tests/reference/asr-def_func_03-58ad7c5.json
new file mode 100644
index 0000000000..d702aeffdf
--- /dev/null
+++ b/tests/reference/asr-def_func_03-58ad7c5.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-def_func_03-58ad7c5",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/def_func_03.py",
+    "infile_hash": "e69f130e474a8757368e7ad3e9afcd3553eaff1e819173febb66fd06",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-def_func_03-58ad7c5.stderr",
+    "stderr_hash": "5ac45e87ffbe795b9ca06dc4a82d3743c762f4f0a1f6bbfdc3e14ca2",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-def_func_03-58ad7c5.stderr b/tests/reference/asr-def_func_03-58ad7c5.stderr
new file mode 100644
index 0000000000..3c357d9a50
--- /dev/null
+++ b/tests/reference/asr-def_func_03-58ad7c5.stderr
@@ -0,0 +1,5 @@
+semantic error: Number of arguments does not match in the function call
+ --> tests/errors/def_func_03.py:5:1
+  |
+5 | func_03(1)
+  | ^^^^^^^^^^ missing 1 required arguments : 'y'
diff --git a/tests/reference/asr-def_func_04-4af8c0d.json b/tests/reference/asr-def_func_04-4af8c0d.json
new file mode 100644
index 0000000000..51c9bf2948
--- /dev/null
+++ b/tests/reference/asr-def_func_04-4af8c0d.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-def_func_04-4af8c0d",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/def_func_04.py",
+    "infile_hash": "522166d0c6c1a0cb273d67ce577ec42330f02822c75b1b317c97608c",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-def_func_04-4af8c0d.stderr",
+    "stderr_hash": "11bd3ae2f41227fd383927fa2f9fc4feff50c19784df51b56f50d3e9",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-def_func_04-4af8c0d.stderr b/tests/reference/asr-def_func_04-4af8c0d.stderr
new file mode 100644
index 0000000000..88195b0527
--- /dev/null
+++ b/tests/reference/asr-def_func_04-4af8c0d.stderr
@@ -0,0 +1,5 @@
+semantic error: Number of arguments does not match in the function call
+ --> tests/errors/def_func_04.py:5:1
+  |
+5 | func_04(y=3)
+  | ^^^^^^^^^^^^ missing 1 required arguments :'x'
diff --git a/tests/reference/asr-def_func_05-6c33b29.json b/tests/reference/asr-def_func_05-6c33b29.json
new file mode 100644
index 0000000000..68c9f7192a
--- /dev/null
+++ b/tests/reference/asr-def_func_05-6c33b29.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-def_func_05-6c33b29",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/def_func_05.py",
+    "infile_hash": "bc8d5377ec564a4d5758653dea39d5c6237992a54ec33fdef88f63f2",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-def_func_05-6c33b29.stderr",
+    "stderr_hash": "9dad35128e5da8dcc73f9c96bdb43ce15e3309d590bb794b14e3133c",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-def_func_05-6c33b29.stderr b/tests/reference/asr-def_func_05-6c33b29.stderr
new file mode 100644
index 0000000000..4af8d9f66c
--- /dev/null
+++ b/tests/reference/asr-def_func_05-6c33b29.stderr
@@ -0,0 +1,5 @@
+semantic error: Number of arguments does not match in the function call
+ --> tests/errors/def_func_05.py:5:1
+  |
+5 | func_05(1,2)
+  | ^^^^^^^^^^^^ missing 1 required arguments : 'z'
diff --git a/tests/reference/asr-def_func_06-9a3ebfc.json b/tests/reference/asr-def_func_06-9a3ebfc.json
new file mode 100644
index 0000000000..77f6bfe11b
--- /dev/null
+++ b/tests/reference/asr-def_func_06-9a3ebfc.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-def_func_06-9a3ebfc",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/def_func_06.py",
+    "infile_hash": "5ad73c3f18ab4d9fe82108e65e0013687a70acc3eff495a402d4297e",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-def_func_06-9a3ebfc.stderr",
+    "stderr_hash": "f9c79e62d7ef7f411870195bfeb99615cb7da9216af328fda2fb0cd2",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-def_func_06-9a3ebfc.stderr b/tests/reference/asr-def_func_06-9a3ebfc.stderr
new file mode 100644
index 0000000000..65527b826a
--- /dev/null
+++ b/tests/reference/asr-def_func_06-9a3ebfc.stderr
@@ -0,0 +1,5 @@
+semantic error: Number of arguments does not match in the function call
+ --> tests/errors/def_func_06.py:5:1
+  |
+5 | func_05(z=3)
+  | ^^^^^^^^^^^^ missing 2 required arguments :'x' and 'y'
diff --git a/tests/reference/asr-dictionary1-a105a36.json b/tests/reference/asr-dictionary1-a105a36.json
index 0bd90379b2..51db8b8c79 100644
--- a/tests/reference/asr-dictionary1-a105a36.json
+++ b/tests/reference/asr-dictionary1-a105a36.json
@@ -2,11 +2,11 @@
     "basename": "asr-dictionary1-a105a36",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/dictionary1.py",
-    "infile_hash": "2d9f15b746aa8185afb3f2dc6415c20a7edccc8e711df1b323178d94",
+    "infile_hash": "f164e8dbe52a04e4fd541d6ff6edae2994d683074087d8785a1759e4",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "asr-dictionary1-a105a36.stdout",
-    "stdout_hash": "01230f740effec8751415074cce8c1c58aac3738a4222d48fabb6a0d",
+    "stdout_hash": "b73eb0b6d8cb6402a04ef847f90824e1e92241bf8c0530a336a8647b",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/asr-dictionary1-a105a36.stdout b/tests/reference/asr-dictionary1-a105a36.stdout
index a4986b19e4..e4e375cdee 100644
--- a/tests/reference/asr-dictionary1-a105a36.stdout
+++ b/tests/reference/asr-dictionary1-a105a36.stdout
@@ -1 +1,791 @@
-(TranslationUnit (SymbolTable 1 {f: (Function (SymbolTable 6 {x: (Variable 6 x [] In () () Default (Dict (Integer 4 []) (Integer 4 [])) Source Public Required .false.)}) f (FunctionType [(Dict (Integer 4 []) (Integer 4 []))] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 6 x)] [(DictInsert (Var 6 x) (IntegerConstant 2 (Integer 4 [])) (IntegerConstant 4 (Integer 4 [])))] () Public .false. .false.), main_program: (Program (SymbolTable 8 {}) main_program [] []), test_Dict: (Function (SymbolTable 2 {x: (Variable 2 x [] Local () () Default (Dict (Integer 4 []) (Integer 4 [])) Source Public Required .false.), y: (Variable 2 y [] Local () () Default (Dict (Character 1 -2 () []) (Integer 4 [])) Source Public Required .false.), z: (Variable 2 z [] Local () () Default (Integer 4 []) Source Public Required .false.)}) test_Dict (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [] [(= (Var 2 x) (DictConstant [(IntegerConstant 1 (Integer 4 [])) (IntegerConstant 3 (Integer 4 []))] [(IntegerConstant 2 (Integer 4 [])) (IntegerConstant 4 (Integer 4 []))] (Dict (Integer 4 []) (Integer 4 []))) ()) (= (Var 2 y) (DictConstant [(StringConstant "a" (Character 1 1 () [])) (StringConstant "b" (Character 1 1 () []))] [(IntegerUnaryMinus (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant -1 (Integer 4 []))) (IntegerUnaryMinus (IntegerConstant 2 (Integer 4 [])) (Integer 4 []) (IntegerConstant -2 (Integer 4 [])))] (Dict (Character 1 1 () []) (Integer 4 []))) ()) (= (Var 2 z) (DictItem (Var 2 y) (StringConstant "a" (Character 1 1 () [])) () (Integer 4 []) ()) ()) (= (Var 2 z) (DictItem (Var 2 y) (StringConstant "b" (Character 1 1 () [])) () (Integer 4 []) ()) ()) (= (Var 2 z) (DictItem (Var 2 x) (IntegerConstant 1 (Integer 4 [])) () (Integer 4 []) ()) ())] () Public .false. .false.), test_dict_get: (Function (SymbolTable 4 {x: (Variable 4 x [] Local () () Default (Integer 4 []) Source Public Required .false.), y: (Variable 4 y [] Local () () Default (Dict (Character 1 -2 () []) (Integer 4 [])) Source Public Required .false.)}) test_dict_get (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [] [(= (Var 4 y) (DictConstant [(StringConstant "a" (Character 1 1 () [])) (StringConstant "b" (Character 1 1 () []))] [(IntegerUnaryMinus (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant -1 (Integer 4 []))) (IntegerUnaryMinus (IntegerConstant 2 (Integer 4 [])) (Integer 4 []) (IntegerConstant -2 (Integer 4 [])))] (Dict (Character 1 1 () []) (Integer 4 []))) ()) (= (Var 4 x) (DictItem (Var 4 y) (StringConstant "a" (Character 1 1 () [])) () (Integer 4 []) ()) ()) (= (Var 4 x) (DictItem (Var 4 y) (StringConstant "a" (Character 1 1 () [])) (IntegerConstant 0 (Integer 4 [])) (Integer 4 []) ()) ())] () Public .false. .false.), test_dict_insert: (Function (SymbolTable 3 {y: (Variable 3 y [] Local () () Default (Dict (Character 1 -2 () []) (Integer 4 [])) Source Public Required .false.)}) test_dict_insert (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [] [(= (Var 3 y) (DictConstant [(StringConstant "a" (Character 1 1 () [])) (StringConstant "b" (Character 1 1 () []))] [(IntegerUnaryMinus (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant -1 (Integer 4 []))) (IntegerUnaryMinus (IntegerConstant 2 (Integer 4 [])) (Integer 4 []) (IntegerConstant -2 (Integer 4 [])))] (Dict (Character 1 1 () []) (Integer 4 []))) ()) (DictInsert (Var 3 y) (StringConstant "c" (Character 1 1 () [])) (IntegerUnaryMinus (IntegerConstant 3 (Integer 4 [])) (Integer 4 []) (IntegerConstant -3 (Integer 4 []))))] () Public .false. .false.), test_dict_pop: (Function (SymbolTable 5 {x: (Variable 5 x [] Local () () Default (Integer 4 []) Source Public Required .false.), y: (Variable 5 y [] Local () () Default (Dict (Character 1 -2 () []) (Integer 4 [])) Source Public Required .false.)}) test_dict_pop (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [] [(= (Var 5 y) (DictConstant [(StringConstant "a" (Character 1 1 () [])) (StringConstant "b" (Character 1 1 () []))] [(IntegerConstant 1 (Integer 4 [])) (IntegerConstant 2 (Integer 4 []))] (Dict (Character 1 1 () []) (Integer 4 []))) ()) (= (Var 5 x) (DictPop (Var 5 y) (StringConstant "a" (Character 1 1 () [])) (Integer 4 []) ()) ())] () Public .false. .false.), test_issue_204: (Function (SymbolTable 7 {x: (Variable 7 x [] Local () () Default (Dict (Integer 4 []) (Integer 4 [])) Source Public Required .false.)}) test_issue_204 (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [f] [] [(SubroutineCall 1 f () [((Var 7 x))] ())] () Public .false. .false.)}) [])
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            f:
+                                (Function
+                                    (SymbolTable
+                                        7
+                                        {
+                                            x:
+                                                (Variable
+                                                    7
+                                                    x
+                                                    []
+                                                    InOut
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Dict
+                                                        (Integer 4)
+                                                        (Integer 4)
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    f
+                                    (FunctionType
+                                        [(Dict
+                                            (Integer 4)
+                                            (Integer 4)
+                                        )]
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    [(Var 7 x)]
+                                    [(DictInsert
+                                        (Var 7 x)
+                                        (IntegerConstant 2 (Integer 4) Decimal)
+                                        (IntegerConstant 4 (Integer 4) Decimal)
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            test_Dict:
+                                (Function
+                                    (SymbolTable
+                                        3
+                                        {
+                                            x:
+                                                (Variable
+                                                    3
+                                                    x
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Dict
+                                                        (Integer 4)
+                                                        (Integer 4)
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            y:
+                                                (Variable
+                                                    3
+                                                    y
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Dict
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                        (Integer 4)
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            z:
+                                                (Variable
+                                                    3
+                                                    z
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test_Dict
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 3 x)
+                                        (DictConstant
+                                            []
+                                            []
+                                            (Dict
+                                                (Integer 4)
+                                                (Integer 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 x)
+                                        (DictConstant
+                                            [(IntegerConstant 1 (Integer 4) Decimal)
+                                            (IntegerConstant 3 (Integer 4) Decimal)]
+                                            [(IntegerConstant 2 (Integer 4) Decimal)
+                                            (IntegerConstant 4 (Integer 4) Decimal)]
+                                            (Dict
+                                                (Integer 4)
+                                                (Integer 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 y)
+                                        (DictConstant
+                                            []
+                                            []
+                                            (Dict
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                                (Integer 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 y)
+                                        (DictConstant
+                                            [(StringConstant
+                                                "a"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (StringConstant
+                                                "b"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )]
+                                            [(IntegerUnaryMinus
+                                                (IntegerConstant 1 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                (IntegerConstant -1 (Integer 4) Decimal)
+                                            )
+                                            (IntegerUnaryMinus
+                                                (IntegerConstant 2 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                (IntegerConstant -2 (Integer 4) Decimal)
+                                            )]
+                                            (Dict
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                                (Integer 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 z)
+                                        (DictItem
+                                            (Var 3 y)
+                                            (StringConstant
+                                                "a"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            ()
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 z)
+                                        (DictItem
+                                            (Var 3 y)
+                                            (StringConstant
+                                                "b"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            ()
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 z)
+                                        (DictItem
+                                            (Var 3 x)
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            ()
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            test_dict_get:
+                                (Function
+                                    (SymbolTable
+                                        5
+                                        {
+                                            x:
+                                                (Variable
+                                                    5
+                                                    x
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            y:
+                                                (Variable
+                                                    5
+                                                    y
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Dict
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                        (Integer 4)
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test_dict_get
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 5 y)
+                                        (DictConstant
+                                            []
+                                            []
+                                            (Dict
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                                (Integer 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 5 y)
+                                        (DictConstant
+                                            [(StringConstant
+                                                "a"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (StringConstant
+                                                "b"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )]
+                                            [(IntegerUnaryMinus
+                                                (IntegerConstant 1 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                (IntegerConstant -1 (Integer 4) Decimal)
+                                            )
+                                            (IntegerUnaryMinus
+                                                (IntegerConstant 2 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                (IntegerConstant -2 (Integer 4) Decimal)
+                                            )]
+                                            (Dict
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                                (Integer 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 5 x)
+                                        (DictItem
+                                            (Var 5 y)
+                                            (StringConstant
+                                                "a"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            ()
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 5 x)
+                                        (DictItem
+                                            (Var 5 y)
+                                            (StringConstant
+                                                "a"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (IntegerConstant 0 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            test_dict_insert:
+                                (Function
+                                    (SymbolTable
+                                        4
+                                        {
+                                            y:
+                                                (Variable
+                                                    4
+                                                    y
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Dict
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                        (Integer 4)
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test_dict_insert
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 4 y)
+                                        (DictConstant
+                                            []
+                                            []
+                                            (Dict
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                                (Integer 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 y)
+                                        (DictConstant
+                                            [(StringConstant
+                                                "a"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (StringConstant
+                                                "b"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )]
+                                            [(IntegerUnaryMinus
+                                                (IntegerConstant 1 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                (IntegerConstant -1 (Integer 4) Decimal)
+                                            )
+                                            (IntegerUnaryMinus
+                                                (IntegerConstant 2 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                (IntegerConstant -2 (Integer 4) Decimal)
+                                            )]
+                                            (Dict
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                                (Integer 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (DictInsert
+                                        (Var 4 y)
+                                        (StringConstant
+                                            "c"
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                        (IntegerUnaryMinus
+                                            (IntegerConstant 3 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            (IntegerConstant -3 (Integer 4) Decimal)
+                                        )
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            test_dict_pop:
+                                (Function
+                                    (SymbolTable
+                                        6
+                                        {
+                                            x:
+                                                (Variable
+                                                    6
+                                                    x
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            y:
+                                                (Variable
+                                                    6
+                                                    y
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Dict
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                        (Integer 4)
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test_dict_pop
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 6 y)
+                                        (DictConstant
+                                            []
+                                            []
+                                            (Dict
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                                (Integer 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 6 y)
+                                        (DictConstant
+                                            [(StringConstant
+                                                "a"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (StringConstant
+                                                "b"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )]
+                                            [(IntegerConstant 1 (Integer 4) Decimal)
+                                            (IntegerConstant 2 (Integer 4) Decimal)]
+                                            (Dict
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                                (Integer 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 6 x)
+                                        (DictPop
+                                            (Var 6 y)
+                                            (StringConstant
+                                                "a"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            test_issue_204:
+                                (Function
+                                    (SymbolTable
+                                        8
+                                        {
+                                            x:
+                                                (Variable
+                                                    8
+                                                    x
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Dict
+                                                        (Integer 4)
+                                                        (Integer 4)
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test_issue_204
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [f]
+                                    []
+                                    [(Assignment
+                                        (Var 8 x)
+                                        (DictConstant
+                                            []
+                                            []
+                                            (Dict
+                                                (Integer 4)
+                                                (Integer 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (SubroutineCall
+                                        2 f
+                                        ()
+                                        [((Var 8 x))]
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    []
+                    .false.
+                    .false.
+                    .false.
+                ),
+            main_program:
+                (Program
+                    (SymbolTable
+                        9
+                        {
+                            
+                        })
+                    main_program
+                    []
+                    []
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-doconcurrentloop_01-3fdc189.json b/tests/reference/asr-doconcurrentloop_01-3fdc189.json
deleted file mode 100644
index a7e439be85..0000000000
--- a/tests/reference/asr-doconcurrentloop_01-3fdc189.json
+++ /dev/null
@@ -1,13 +0,0 @@
-{
-    "basename": "asr-doconcurrentloop_01-3fdc189",
-    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
-    "infile": "tests/doconcurrentloop_01.py",
-    "infile_hash": "dc0022671a9fa7b620378903a700dd8c4390297cacb1aca2b904069d",
-    "outfile": null,
-    "outfile_hash": null,
-    "stdout": "asr-doconcurrentloop_01-3fdc189.stdout",
-    "stdout_hash": "4f78e5f189362efe4e8404add23f00e6a64e66740c3dce0de026d290",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
-}
\ No newline at end of file
diff --git a/tests/reference/asr-doconcurrentloop_01-3fdc189.stdout b/tests/reference/asr-doconcurrentloop_01-3fdc189.stdout
deleted file mode 100644
index dd9e778c6f..0000000000
--- a/tests/reference/asr-doconcurrentloop_01-3fdc189.stdout
+++ /dev/null
@@ -1 +0,0 @@
-(TranslationUnit (SymbolTable 1 {_lpython_main_program: (Function (SymbolTable 7 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [main0] [] [(SubroutineCall 1 main0 () [] ())] () Public .false. .false.), main0: (Function (SymbolTable 3 {a: (Variable 3 a [] Local () () Default (Real 4 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 10000 (Integer 4 [])))]) Source Public Required .false.), b: (Variable 3 b [] Local () () Default (Real 4 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 10000 (Integer 4 [])))]) Source Public Required .false.), c: (Variable 3 c [] Local () () Default (Real 4 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 10000 (Integer 4 [])))]) Source Public Required .false.), i: (Variable 3 i [] Local () () Default (Integer 4 []) Source Public Required .false.), nsize: (Variable 3 nsize [] Local () () Default (Integer 4 []) Source Public Required .false.), scalar: (Variable 3 scalar [] Local () () Default (Real 4 []) Source Public Required .false.)}) main0 (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [triad] [] [(= (Var 3 scalar) (Cast (RealConstant 10.000000 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 10.000000 (Real 4 []))) ()) (= (Var 3 nsize) (IntegerConstant 1234 (Integer 4 [])) ()) (DoConcurrentLoop ((Var 3 i) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (Var 3 nsize) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(= (ArrayItem (Var 3 a) [(() (Var 3 i) ())] (Real 4 []) RowMajor ()) (Cast (RealConstant 5.000000 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 5.000000 (Real 4 []))) ()) (= (ArrayItem (Var 3 b) [(() (Var 3 i) ())] (Real 4 []) RowMajor ()) (Cast (RealConstant 5.000000 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 5.000000 (Real 4 []))) ())]) (SubroutineCall 1 triad () [((Var 3 a)) ((Var 3 b)) ((Var 3 scalar)) ((Var 3 c))] ()) (Print () [(StringConstant "End Stream Triad" (Character 1 16 () []))] () ())] () Public .false. .false.), main_program: (Program (SymbolTable 6 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())]), triad: (Function (SymbolTable 2 {N: (Variable 2 N [] Local () () Default (Integer 4 []) Source Public Required .false.), a: (Variable 2 a [] InOut () () Default (Real 4 [(() ())]) Source Public Required .false.), b: (Variable 2 b [] InOut () () Default (Real 4 [(() ())]) Source Public Required .false.), c: (Variable 2 c [] InOut () () Default (Real 4 [(() ())]) Source Public Required .false.), i: (Variable 2 i [] Local () () Default (Integer 4 []) Source Public Required .false.), scalar: (Variable 2 scalar [] In () () Default (Real 4 []) Source Public Required .false.)}) triad (FunctionType [(Real 4 [(() ())]) (Real 4 [(() ())]) (Real 4 []) (Real 4 [(() ())])] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 2 a) (Var 2 b) (Var 2 scalar) (Var 2 c)] [(= (Var 2 N) (IntegerConstant 1234 (Integer 4 [])) ()) (DoConcurrentLoop ((Var 2 i) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (Var 2 N) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(= (ArrayItem (Var 2 c) [(() (Var 2 i) ())] (Real 4 []) RowMajor ()) (RealBinOp (ArrayItem (Var 2 a) [(() (Var 2 i) ())] (Real 4 []) RowMajor ()) Add (RealBinOp (Var 2 scalar) Mul (ArrayItem (Var 2 b) [(() (Var 2 i) ())] (Real 4 []) RowMajor ()) (Real 4 []) ()) (Real 4 []) ()) ())])] () Public .false. .false.)}) [])
diff --git a/tests/reference/asr-elemental_01-b58df26.json b/tests/reference/asr-elemental_01-b58df26.json
index a3fa1f1171..da64a15dcf 100644
--- a/tests/reference/asr-elemental_01-b58df26.json
+++ b/tests/reference/asr-elemental_01-b58df26.json
@@ -2,11 +2,11 @@
     "basename": "asr-elemental_01-b58df26",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/../integration_tests/elemental_01.py",
-    "infile_hash": "551c075e5247becad7cbb2517969ee76aac1ebade47b409e4c8fedde",
+    "infile_hash": "e96eed9469877faf7f0b6ddb472d3df5fd0270d0528d0334b1751783",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "asr-elemental_01-b58df26.stdout",
-    "stdout_hash": "1e0cf08c2a414491c0ea8b2550ce8e416928cfdce3d82736f373e32a",
+    "stdout_hash": "bc9397aa7a0c4972c1c09cd8f0ab2a96f2b2ac3738ad4011df3b213c",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/asr-elemental_01-b58df26.stdout b/tests/reference/asr-elemental_01-b58df26.stdout
index b171e5898b..d5e45f5b1e 100644
--- a/tests/reference/asr-elemental_01-b58df26.stdout
+++ b/tests/reference/asr-elemental_01-b58df26.stdout
@@ -1 +1,4422 @@
-(TranslationUnit (SymbolTable 1 {_lpython_main_program: (Function (SymbolTable 205 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [elemental_sin elemental_cos elemental_trig_identity elemental_sum elemental_mul] [] [(SubroutineCall 1 elemental_sin () [] ()) (SubroutineCall 1 elemental_cos () [] ()) (SubroutineCall 1 elemental_trig_identity () [] ()) (SubroutineCall 1 elemental_sum () [] ()) (SubroutineCall 1 elemental_mul () [] ())] () Public .false. .false.), cos: (ExternalSymbol 1 cos 3 cos numpy [] cos Public), elemental_cos: (Function (SymbolTable 179 {array2d: (Variable 179 array2d [] Local () () Default (Real 8 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 256 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 64 (Integer 4 [])))]) Source Public Required .false.), cos2d: (Variable 179 cos2d [] Local () () Default (Real 8 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 256 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 64 (Integer 4 [])))]) Source Public Required .false.), cos@__lpython_overloaded_0__cos: (ExternalSymbol 179 cos@__lpython_overloaded_0__cos 3 __lpython_overloaded_0__cos numpy [] __lpython_overloaded_0__cos Public), i: (Variable 179 i [] Local () () Default (Integer 4 []) Source Public Required .false.), j: (Variable 179 j [] Local () () Default (Integer 4 []) Source Public Required .false.)}) elemental_cos (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [cos@__lpython_overloaded_0__cos verify2d] [] [(DoLoop ((Var 179 i) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (IntegerConstant 256 (Integer 4 [])) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant 255 (Integer 4 []))) (IntegerConstant 1 (Integer 4 []))) [(DoLoop ((Var 179 j) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (IntegerConstant 64 (Integer 4 [])) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant 63 (Integer 4 []))) (IntegerConstant 1 (Integer 4 []))) [(= (ArrayItem (Var 179 array2d) [(() (Var 179 i) ()) (() (Var 179 j) ())] (Real 8 []) RowMajor ()) (Cast (IntegerBinOp (Var 179 i) Add (Var 179 j) (Integer 4 []) ()) IntegerToReal (Real 8 []) ()) ())])]) (= (Var 179 cos2d) (RealBinOp (FunctionCall 179 cos@__lpython_overloaded_0__cos 1 cos [((Var 179 array2d))] (Real 8 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 256 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 64 (Integer 4 [])))]) () ()) Pow (RealConstant 2.000000 (Real 8 [])) (Real 8 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 256 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 64 (Integer 4 [])))]) ()) ()) (SubroutineCall 1 verify2d () [((Var 179 array2d)) ((Var 179 cos2d)) ((IntegerConstant 256 (Integer 4 []))) ((IntegerConstant 64 (Integer 4 [])))] ())] () Public .false. .false.), elemental_mul: (Function (SymbolTable 177 {array_a: (Variable 177 array_a [] Local () () Default (Real 8 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 100 (Integer 4 [])))]) Source Public Required .false.), array_b: (Variable 177 array_b [] Local () () Default (Real 8 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 100 (Integer 4 [])))]) Source Public Required .false.), array_c: (Variable 177 array_c [] Local () () Default (Real 8 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 100 (Integer 4 [])))]) Source Public Required .false.), i: (Variable 177 i [] Local () () Default (Integer 4 []) Source Public Required .false.), j: (Variable 177 j [] Local () () Default (Integer 4 []) Source Public Required .false.), k: (Variable 177 k [] Local () () Default (Integer 4 []) Source Public Required .false.)}) elemental_mul (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [verify1d_mul] [] [(DoLoop ((Var 177 i) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (IntegerConstant 100 (Integer 4 [])) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant 99 (Integer 4 []))) (IntegerConstant 1 (Integer 4 []))) [(= (ArrayItem (Var 177 array_a) [(() (Var 177 i) ())] (Real 8 []) RowMajor ()) (Cast (Var 177 i) IntegerToReal (Real 8 []) ()) ())]) (DoLoop ((Var 177 j) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (IntegerConstant 100 (Integer 4 [])) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant 99 (Integer 4 []))) (IntegerConstant 1 (Integer 4 []))) [(= (ArrayItem (Var 177 array_b) [(() (Var 177 j) ())] (Real 8 []) RowMajor ()) (Cast (IntegerBinOp (Var 177 j) Add (IntegerConstant 5 (Integer 4 [])) (Integer 4 []) ()) IntegerToReal (Real 8 []) ()) ())]) (= (Var 177 array_c) (RealBinOp (RealBinOp (RealBinOp (Var 177 array_a) Pow (RealConstant 2.000000 (Real 8 [])) (Real 8 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 100 (Integer 4 [])))]) ()) Mul (RealConstant 5.000000 (Real 8 [])) (Real 8 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 100 (Integer 4 [])))]) ()) Mul (RealBinOp (Var 177 array_b) Pow (RealConstant 3.000000 (Real 8 [])) (Real 8 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 100 (Integer 4 [])))]) ()) (Real 8 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 100 (Integer 4 [])))]) ()) ()) (SubroutineCall 1 verify1d_mul () [((Var 177 array_a)) ((Var 177 array_b)) ((Var 177 array_c)) ((IntegerConstant 100 (Integer 4 [])))] ())] () Public .false. .false.), elemental_sin: (Function (SymbolTable 178 {array1d: (Variable 178 array1d [] Local () () Default (Real 4 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 256 (Integer 4 [])))]) Source Public Required .false.), arraynd: (Variable 178 arraynd [] Local () () Default (Real 8 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 256 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 64 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 16 (Integer 4 [])))]) Source Public Required .false.), i: (Variable 178 i [] Local () () Default (Integer 4 []) Source Public Required .false.), j: (Variable 178 j [] Local () () Default (Integer 4 []) Source Public Required .false.), k: (Variable 178 k [] Local () () Default (Integer 4 []) Source Public Required .false.), sin1d: (Variable 178 sin1d [] Local () () Default (Real 4 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 256 (Integer 4 [])))]) Source Public Required .false.), sin@__lpython_overloaded_0__sin: (ExternalSymbol 178 sin@__lpython_overloaded_0__sin 3 __lpython_overloaded_0__sin numpy [] __lpython_overloaded_0__sin Public), sin@__lpython_overloaded_1__sin: (ExternalSymbol 178 sin@__lpython_overloaded_1__sin 3 __lpython_overloaded_1__sin numpy [] __lpython_overloaded_1__sin Public), sinnd: (Variable 178 sinnd [] Local () () Default (Real 8 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 256 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 64 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 16 (Integer 4 [])))]) Source Public Required .false.)}) elemental_sin (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [sin@__lpython_overloaded_1__sin sin@__lpython_overloaded_1__sin verify1d sin@__lpython_overloaded_0__sin verifynd] [] [(DoLoop ((Var 178 i) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (IntegerConstant 256 (Integer 4 [])) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant 255 (Integer 4 []))) (IntegerConstant 1 (Integer 4 []))) [(= (ArrayItem (Var 178 array1d) [(() (Var 178 i) ())] (Real 4 []) RowMajor ()) (Cast (Var 178 i) IntegerToReal (Real 4 []) ()) ())]) (= (Var 178 sin1d) (FunctionCall 178 sin@__lpython_overloaded_1__sin 1 sin [((FunctionCall 178 sin@__lpython_overloaded_1__sin 1 sin [((Var 178 array1d))] (Real 4 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 256 (Integer 4 [])))]) () ()))] (Real 4 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 256 (Integer 4 [])))]) () ()) ()) (SubroutineCall 1 verify1d () [((Var 178 array1d)) ((Var 178 sin1d)) ((IntegerConstant 256 (Integer 4 [])))] ()) (DoLoop ((Var 178 i) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (IntegerConstant 256 (Integer 4 [])) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant 255 (Integer 4 []))) (IntegerConstant 1 (Integer 4 []))) [(DoLoop ((Var 178 j) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (IntegerConstant 64 (Integer 4 [])) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant 63 (Integer 4 []))) (IntegerConstant 1 (Integer 4 []))) [(DoLoop ((Var 178 k) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (IntegerConstant 16 (Integer 4 [])) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant 15 (Integer 4 []))) (IntegerConstant 1 (Integer 4 []))) [(= (ArrayItem (Var 178 arraynd) [(() (Var 178 i) ()) (() (Var 178 j) ()) (() (Var 178 k) ())] (Real 8 []) RowMajor ()) (Cast (IntegerBinOp (IntegerBinOp (Var 178 i) Add (Var 178 j) (Integer 4 []) ()) Add (Var 178 k) (Integer 4 []) ()) IntegerToReal (Real 8 []) ()) ())])])]) (= (Var 178 sinnd) (RealBinOp (FunctionCall 178 sin@__lpython_overloaded_0__sin 1 sin [((Var 178 arraynd))] (Real 8 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 256 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 64 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 16 (Integer 4 [])))]) () ()) Pow (RealConstant 2.000000 (Real 8 [])) (Real 8 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 256 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 64 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 16 (Integer 4 [])))]) ()) ()) (SubroutineCall 1 verifynd () [((Var 178 arraynd)) ((Var 178 sinnd)) ((IntegerConstant 256 (Integer 4 []))) ((IntegerConstant 64 (Integer 4 []))) ((IntegerConstant 16 (Integer 4 [])))] ())] () Public .false. .false.), elemental_sum: (Function (SymbolTable 176 {array_a: (Variable 176 array_a [] Local () () Default (Real 8 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 100 (Integer 4 [])))]) Source Public Required .false.), array_b: (Variable 176 array_b [] Local () () Default (Real 8 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 100 (Integer 4 [])))]) Source Public Required .false.), array_c: (Variable 176 array_c [] Local () () Default (Real 8 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 100 (Integer 4 [])))]) Source Public Required .false.), i: (Variable 176 i [] Local () () Default (Integer 4 []) Source Public Required .false.), j: (Variable 176 j [] Local () () Default (Integer 4 []) Source Public Required .false.), k: (Variable 176 k [] Local () () Default (Integer 4 []) Source Public Required .false.)}) elemental_sum (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [verify1d_sum] [] [(DoLoop ((Var 176 i) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (IntegerConstant 100 (Integer 4 [])) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant 99 (Integer 4 []))) (IntegerConstant 1 (Integer 4 []))) [(= (ArrayItem (Var 176 array_a) [(() (Var 176 i) ())] (Real 8 []) RowMajor ()) (Cast (Var 176 i) IntegerToReal (Real 8 []) ()) ())]) (DoLoop ((Var 176 j) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (IntegerConstant 100 (Integer 4 [])) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant 99 (Integer 4 []))) (IntegerConstant 1 (Integer 4 []))) [(= (ArrayItem (Var 176 array_b) [(() (Var 176 j) ())] (Real 8 []) RowMajor ()) (Cast (IntegerBinOp (Var 176 j) Add (IntegerConstant 5 (Integer 4 [])) (Integer 4 []) ()) IntegerToReal (Real 8 []) ()) ())]) (= (Var 176 array_c) (RealBinOp (RealBinOp (Var 176 array_a) Pow (RealConstant 2.000000 (Real 8 [])) (Real 8 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 100 (Integer 4 [])))]) ()) Add (RealBinOp (RealConstant 5.000000 (Real 8 [])) Mul (RealBinOp (Var 176 array_b) Pow (RealConstant 3.000000 (Real 8 [])) (Real 8 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 100 (Integer 4 [])))]) ()) (Real 8 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 100 (Integer 4 [])))]) ()) (Real 8 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 100 (Integer 4 [])))]) ()) ()) (SubroutineCall 1 verify1d_sum () [((Var 176 array_a)) ((Var 176 array_b)) ((Var 176 array_c)) ((IntegerConstant 100 (Integer 4 [])))] ())] () Public .false. .false.), elemental_trig_identity: (Function (SymbolTable 180 {arraynd: (Variable 180 arraynd [] Local () () Default (Real 4 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 64 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 32 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 8 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 4 (Integer 4 [])))]) Source Public Required .false.), block: (Block (SymbolTable 203 {abs: (ExternalSymbol 203 abs 79 abs lpython_builtin [] abs Private), abs@__lpython_overloaded_1__abs: (ExternalSymbol 203 abs@__lpython_overloaded_1__abs 79 __lpython_overloaded_1__abs lpython_builtin [] __lpython_overloaded_1__abs Public)}) block [(Assert (RealCompare (FunctionCall 203 abs@__lpython_overloaded_1__abs 203 abs [((RealBinOp (ArrayItem (Var 180 observed1d) [(() (Var 180 i) ())] (Real 4 []) RowMajor ()) Sub (Cast (RealConstant 1.000000 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 1.000000 (Real 4 []))) (Real 4 []) ()))] (Real 4 []) () ()) LtE (Var 180 eps) (Logical 4 []) ()) ())]), cos@__lpython_overloaded_1__cos: (ExternalSymbol 180 cos@__lpython_overloaded_1__cos 3 __lpython_overloaded_1__cos numpy [] __lpython_overloaded_1__cos Public), eps: (Variable 180 eps [] Local () () Default (Real 4 []) Source Public Required .false.), i: (Variable 180 i [] Local () () Default (Integer 4 []) Source Public Required .false.), j: (Variable 180 j [] Local () () Default (Integer 4 []) Source Public Required .false.), k: (Variable 180 k [] Local () () Default (Integer 4 []) Source Public Required .false.), l: (Variable 180 l [] Local () () Default (Integer 4 []) Source Public Required .false.), newshape: (Variable 180 newshape [] Local () () Default (Integer 4 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 1 (Integer 4 [])))]) Source Public Required .false.), observed: (Variable 180 observed [] Local () () Default (Real 4 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 64 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 32 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 8 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 4 (Integer 4 [])))]) Source Public Required .false.), observed1d: (Variable 180 observed1d [] Local () () Default (Real 4 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 65536 (Integer 4 [])))]) Source Public Required .false.), sin@__lpython_overloaded_1__sin: (ExternalSymbol 180 sin@__lpython_overloaded_1__sin 3 __lpython_overloaded_1__sin numpy [] __lpython_overloaded_1__sin Public)}) elemental_trig_identity (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [abs@__lpython_overloaded_1__abs sin@__lpython_overloaded_1__sin cos@__lpython_overloaded_1__cos] [] [(= (Var 180 eps) (Cast (RealConstant 0.000001 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 0.000001 (Real 4 []))) ()) (DoLoop ((Var 180 i) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (IntegerConstant 64 (Integer 4 [])) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant 63 (Integer 4 []))) (IntegerConstant 1 (Integer 4 []))) [(DoLoop ((Var 180 j) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (IntegerConstant 32 (Integer 4 [])) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant 31 (Integer 4 []))) (IntegerConstant 1 (Integer 4 []))) [(DoLoop ((Var 180 k) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (IntegerConstant 8 (Integer 4 [])) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant 7 (Integer 4 []))) (IntegerConstant 1 (Integer 4 []))) [(DoLoop ((Var 180 l) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (IntegerConstant 4 (Integer 4 [])) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant 3 (Integer 4 []))) (IntegerConstant 1 (Integer 4 []))) [(= (ArrayItem (Var 180 arraynd) [(() (Var 180 i) ()) (() (Var 180 j) ()) (() (Var 180 k) ()) (() (Var 180 l) ())] (Real 4 []) RowMajor ()) (Cast (IntegerBinOp (IntegerBinOp (IntegerBinOp (Var 180 i) Add (Var 180 j) (Integer 4 []) ()) Add (Var 180 k) (Integer 4 []) ()) Add (Var 180 l) (Integer 4 []) ()) IntegerToReal (Real 4 []) ()) ())])])])]) (= (Var 180 observed) (RealBinOp (RealBinOp (FunctionCall 180 sin@__lpython_overloaded_1__sin 1 sin [((Var 180 arraynd))] (Real 4 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 64 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 32 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 8 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 4 (Integer 4 [])))]) () ()) Pow (Cast (IntegerConstant 2 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Real 4 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 64 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 32 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 8 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 4 (Integer 4 [])))]) ()) Add (RealBinOp (FunctionCall 180 cos@__lpython_overloaded_1__cos 1 cos [((Var 180 arraynd))] (Real 4 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 64 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 32 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 8 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 4 (Integer 4 [])))]) () ()) Pow (Cast (IntegerConstant 2 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Real 4 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 64 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 32 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 8 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 4 (Integer 4 [])))]) ()) (Real 4 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 64 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 32 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 8 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 4 (Integer 4 [])))]) ()) ()) (= (ArrayItem (Var 180 newshape) [(() (IntegerConstant 0 (Integer 4 [])) ())] (Integer 4 []) RowMajor ()) (IntegerConstant 65536 (Integer 4 [])) ()) (= (Var 180 observed1d) (ArrayReshape (Var 180 observed) (Var 180 newshape) (Real 4 [(() ())]) ()) ()) (DoLoop ((Var 180 i) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (IntegerConstant 65536 (Integer 4 [])) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant 65535 (Integer 4 []))) (IntegerConstant 1 (Integer 4 []))) [(BlockCall -1 180 block)])] () Public .false. .false.), lpython_builtin: (IntrinsicModule lpython_builtin), main_program: (Program (SymbolTable 204 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())]), numpy: (Module (SymbolTable 3 {__lpython_overloaded_0__arccos: (Function (SymbolTable 41 {_lpython_return_variable: (Variable 41 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 41 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arccos (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dacos] [(Var 41 x)] [(= (Var 41 _lpython_return_variable) (FunctionCall 3 _lfortran_dacos () [((Var 41 x))] (Real 8 []) () ()) ()) (Return)] (Var 41 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__arccosh: (Function (SymbolTable 65 {_lpython_return_variable: (Variable 65 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 65 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arccosh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dacosh] [(Var 65 x)] [(= (Var 65 _lpython_return_variable) (FunctionCall 3 _lfortran_dacosh () [((Var 65 x))] (Real 8 []) () ()) ()) (Return)] (Var 65 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__arcsin: (Function (SymbolTable 37 {_lpython_return_variable: (Variable 37 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 37 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arcsin (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dasin] [(Var 37 x)] [(= (Var 37 _lpython_return_variable) (FunctionCall 3 _lfortran_dasin () [((Var 37 x))] (Real 8 []) () ()) ()) (Return)] (Var 37 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__arcsinh: (Function (SymbolTable 61 {_lpython_return_variable: (Variable 61 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 61 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arcsinh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dasinh] [(Var 61 x)] [(= (Var 61 _lpython_return_variable) (FunctionCall 3 _lfortran_dasinh () [((Var 61 x))] (Real 8 []) () ()) ()) (Return)] (Var 61 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__arctan: (Function (SymbolTable 53 {_lpython_return_variable: (Variable 53 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 53 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arctan (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_datan] [(Var 53 x)] [(= (Var 53 _lpython_return_variable) (FunctionCall 3 _lfortran_datan () [((Var 53 x))] (Real 8 []) () ()) ()) (Return)] (Var 53 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__arctanh: (Function (SymbolTable 69 {_lpython_return_variable: (Variable 69 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 69 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arctanh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_datanh] [(Var 69 x)] [(= (Var 69 _lpython_return_variable) (FunctionCall 3 _lfortran_datanh () [((Var 69 x))] (Real 8 []) () ()) ()) (Return)] (Var 69 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__ceil: (Function (SymbolTable 76 {_lpython_return_variable: (Variable 76 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), result: (Variable 76 result [] Local () () Default (Integer 8 []) Source Public Required .false.), x: (Variable 76 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__ceil (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 76 x)] [(= (Var 76 result) (Cast (Var 76 x) RealToInteger (Integer 8 []) ()) ()) (If (LogicalBinOp (RealCompare (Var 76 x) LtE (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToReal (Real 8 []) ()) (Logical 4 []) ()) Or (RealCompare (Var 76 x) Eq (Cast (Var 76 result) IntegerToReal (Real 8 []) ()) (Logical 4 []) ()) (Logical 4 []) ()) [(= (Var 76 _lpython_return_variable) (Cast (Var 76 result) IntegerToReal (Real 8 []) ()) ()) (Return)] []) (= (Var 76 _lpython_return_variable) (Cast (IntegerBinOp (Var 76 result) Add (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 1 (Integer 8 []))) (Integer 8 []) ()) IntegerToReal (Real 8 []) ()) ()) (Return)] (Var 76 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__cos: (Function (SymbolTable 9 {_lpython_return_variable: (Variable 9 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 9 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__cos (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dcos] [(Var 9 x)] [(= (Var 9 _lpython_return_variable) (FunctionCall 3 _lfortran_dcos () [((Var 9 x))] (Real 8 []) () ()) ()) (Return)] (Var 9 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__cosh: (Function (SymbolTable 23 {_lpython_return_variable: (Variable 23 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 23 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__cosh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dcosh] [(Var 23 x)] [(= (Var 23 _lpython_return_variable) (FunctionCall 3 _lfortran_dcosh () [((Var 23 x))] (Real 8 []) () ()) ()) (Return)] (Var 23 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__degrees: (Function (SymbolTable 56 {_lpython_return_variable: (Variable 56 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 56 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__degrees (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 56 x)] [(= (Var 56 _lpython_return_variable) (RealBinOp (RealBinOp (Var 56 x) Mul (RealConstant 180.000000 (Real 8 [])) (Real 8 []) ()) Div (Var 3 pi_64) (Real 8 []) ()) ()) (Return)] (Var 56 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__exp: (Function (SymbolTable 49 {_lpython_return_variable: (Variable 49 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 49 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__exp (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dexp] [(Var 49 x)] [(= (Var 49 _lpython_return_variable) (FunctionCall 3 _lfortran_dexp () [((Var 49 x))] (Real 8 []) () ()) ()) (Return)] (Var 49 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__floor: (Function (SymbolTable 74 {_lpython_return_variable: (Variable 74 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), result: (Variable 74 result [] Local () () Default (Integer 8 []) Source Public Required .false.), x: (Variable 74 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__floor (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 74 x)] [(= (Var 74 result) (Cast (Var 74 x) RealToInteger (Integer 8 []) ()) ()) (If (LogicalBinOp (RealCompare (Var 74 x) GtE (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToReal (Real 8 []) ()) (Logical 4 []) ()) Or (RealCompare (Var 74 x) Eq (Cast (Var 74 result) IntegerToReal (Real 8 []) ()) (Logical 4 []) ()) (Logical 4 []) ()) [(= (Var 74 _lpython_return_variable) (Cast (Var 74 result) IntegerToReal (Real 8 []) ()) ()) (Return)] []) (= (Var 74 _lpython_return_variable) (Cast (IntegerBinOp (Var 74 result) Sub (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 1 (Integer 8 []))) (Integer 8 []) ()) IntegerToReal (Real 8 []) ()) ()) (Return)] (Var 74 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__log: (Function (SymbolTable 27 {_lpython_return_variable: (Variable 27 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 27 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__log (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dlog] [(Var 27 x)] [(= (Var 27 _lpython_return_variable) (FunctionCall 3 _lfortran_dlog () [((Var 27 x))] (Real 8 []) () ()) ()) (Return)] (Var 27 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__log10: (Function (SymbolTable 31 {_lpython_return_variable: (Variable 31 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 31 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__log10 (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dlog10] [(Var 31 x)] [(= (Var 31 _lpython_return_variable) (FunctionCall 3 _lfortran_dlog10 () [((Var 31 x))] (Real 8 []) () ()) ()) (Return)] (Var 31 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__log2: (Function (SymbolTable 34 {_lpython_return_variable: (Variable 34 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 34 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__log2 (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dlog _lfortran_dlog] [(Var 34 x)] [(= (Var 34 _lpython_return_variable) (RealBinOp (FunctionCall 3 _lfortran_dlog () [((Var 34 x))] (Real 8 []) () ()) Div (FunctionCall 3 _lfortran_dlog () [((RealConstant 2.000000 (Real 8 [])))] (Real 8 []) () ()) (Real 8 []) ()) ()) (Return)] (Var 34 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__mod: (Function (SymbolTable 72 {_lpython_return_variable: (Variable 72 _lpython_return_variable [] ReturnVar () () Default (Integer 8 []) Source Public Required .false.), _mod: (ExternalSymbol 72 _mod 79 _mod lpython_builtin [] _mod Private), _mod@__lpython_overloaded_2___mod: (ExternalSymbol 72 _mod@__lpython_overloaded_2___mod 79 __lpython_overloaded_2___mod lpython_builtin [] __lpython_overloaded_2___mod Public), x1: (Variable 72 x1 [] In () () Default (Integer 8 []) Source Public Required .false.), x2: (Variable 72 x2 [] In () () Default (Integer 8 []) Source Public Required .false.)}) __lpython_overloaded_0__mod (FunctionType [(Integer 8 []) (Integer 8 [])] (Integer 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_mod@__lpython_overloaded_2___mod] [(Var 72 x1) (Var 72 x2)] [(If (IntegerCompare (Var 72 x2) Eq (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 0 (Integer 8 []))) (Logical 4 []) ()) [(= (Var 72 _lpython_return_variable) (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToInteger (Integer 8 []) ()) ()) (Return)] []) (= (Var 72 _lpython_return_variable) (FunctionCall 72 _mod@__lpython_overloaded_2___mod 72 _mod [((Var 72 x1)) ((Var 72 x2))] (Integer 8 []) () ()) ()) (Return)] (Var 72 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__radians: (Function (SymbolTable 58 {_lpython_return_variable: (Variable 58 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 58 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__radians (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 58 x)] [(= (Var 58 _lpython_return_variable) (RealBinOp (RealBinOp (Var 58 x) Mul (Var 3 pi_64) (Real 8 []) ()) Div (RealConstant 180.000000 (Real 8 [])) (Real 8 []) ()) ()) (Return)] (Var 58 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__sin: (Function (SymbolTable 5 {_lpython_return_variable: (Variable 5 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 5 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__sin (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dsin] [(Var 5 x)] [(= (Var 5 _lpython_return_variable) (FunctionCall 3 _lfortran_dsin () [((Var 5 x))] (Real 8 []) () ()) ()) (Return)] (Var 5 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__sinh: (Function (SymbolTable 19 {_lpython_return_variable: (Variable 19 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 19 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__sinh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dsinh] [(Var 19 x)] [(= (Var 19 _lpython_return_variable) (FunctionCall 3 _lfortran_dsinh () [((Var 19 x))] (Real 8 []) () ()) ()) (Return)] (Var 19 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__sqrt: (Function (SymbolTable 12 {_lpython_return_variable: (Variable 12 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 12 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__sqrt (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 12 x)] [(= (Var 12 _lpython_return_variable) (RealBinOp (Var 12 x) Pow (RealBinOp (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToReal (Real 8 []) ()) Div (Cast (IntegerConstant 2 (Integer 4 [])) IntegerToReal (Real 8 []) ()) (Real 8 []) ()) (Real 8 []) ()) ()) (Return)] (Var 12 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__tan: (Function (SymbolTable 15 {_lpython_return_variable: (Variable 15 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 15 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__tan (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dtan] [(Var 15 x)] [(= (Var 15 _lpython_return_variable) (FunctionCall 3 _lfortran_dtan () [((Var 15 x))] (Real 8 []) () ()) ()) (Return)] (Var 15 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__tanh: (Function (SymbolTable 45 {_lpython_return_variable: (Variable 45 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 45 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__tanh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dtanh] [(Var 45 x)] [(= (Var 45 _lpython_return_variable) (FunctionCall 3 _lfortran_dtanh () [((Var 45 x))] (Real 8 []) () ()) ()) (Return)] (Var 45 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arccos: (Function (SymbolTable 43 {_lpython_return_variable: (Variable 43 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 43 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arccos (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_sacos] [(Var 43 x)] [(= (Var 43 _lpython_return_variable) (FunctionCall 3 _lfortran_sacos () [((Var 43 x))] (Real 4 []) () ()) ()) (Return)] (Var 43 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arccosh: (Function (SymbolTable 67 {_lpython_return_variable: (Variable 67 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 67 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arccosh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_sacosh] [(Var 67 x)] [(= (Var 67 _lpython_return_variable) (FunctionCall 3 _lfortran_sacosh () [((Var 67 x))] (Real 4 []) () ()) ()) (Return)] (Var 67 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arcsin: (Function (SymbolTable 39 {_lpython_return_variable: (Variable 39 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 39 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arcsin (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_sasin] [(Var 39 x)] [(= (Var 39 _lpython_return_variable) (FunctionCall 3 _lfortran_sasin () [((Var 39 x))] (Real 4 []) () ()) ()) (Return)] (Var 39 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arcsinh: (Function (SymbolTable 63 {_lpython_return_variable: (Variable 63 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 63 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arcsinh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_sasinh] [(Var 63 x)] [(= (Var 63 _lpython_return_variable) (FunctionCall 3 _lfortran_sasinh () [((Var 63 x))] (Real 4 []) () ()) ()) (Return)] (Var 63 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arctan: (Function (SymbolTable 55 {_lpython_return_variable: (Variable 55 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 55 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arctan (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_satan] [(Var 55 x)] [(= (Var 55 _lpython_return_variable) (FunctionCall 3 _lfortran_satan () [((Var 55 x))] (Real 4 []) () ()) ()) (Return)] (Var 55 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arctanh: (Function (SymbolTable 71 {_lpython_return_variable: (Variable 71 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 71 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arctanh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_satanh] [(Var 71 x)] [(= (Var 71 _lpython_return_variable) (FunctionCall 3 _lfortran_satanh () [((Var 71 x))] (Real 4 []) () ()) ()) (Return)] (Var 71 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__ceil: (Function (SymbolTable 77 {_lpython_return_variable: (Variable 77 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), resultf: (Variable 77 resultf [x] Local (Cast (Cast (Var 77 x) RealToInteger (Integer 4 []) ()) IntegerToReal (Real 4 []) ()) () Default (Real 4 []) Source Public Required .false.), x: (Variable 77 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__ceil (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 77 x)] [(= (Var 77 resultf) (Cast (Cast (Var 77 x) RealToInteger (Integer 4 []) ()) IntegerToReal (Real 4 []) ()) ()) (If (LogicalBinOp (RealCompare (Var 77 x) LtE (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Logical 4 []) ()) Or (RealCompare (Var 77 x) Eq (Var 77 resultf) (Logical 4 []) ()) (Logical 4 []) ()) [(= (Var 77 _lpython_return_variable) (Var 77 resultf) ()) (Return)] []) (= (Var 77 _lpython_return_variable) (RealBinOp (Var 77 resultf) Add (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Real 4 []) ()) ()) (Return)] (Var 77 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__cos: (Function (SymbolTable 11 {_lpython_return_variable: (Variable 11 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 11 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__cos (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_scos] [(Var 11 x)] [(= (Var 11 _lpython_return_variable) (FunctionCall 3 _lfortran_scos () [((Var 11 x))] (Real 4 []) () ()) ()) (Return)] (Var 11 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__cosh: (Function (SymbolTable 25 {_lpython_return_variable: (Variable 25 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 25 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__cosh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_scosh] [(Var 25 x)] [(= (Var 25 _lpython_return_variable) (FunctionCall 3 _lfortran_scosh () [((Var 25 x))] (Real 4 []) () ()) ()) (Return)] (Var 25 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__degrees: (Function (SymbolTable 57 {_lpython_return_variable: (Variable 57 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 57 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__degrees (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 57 x)] [(= (Var 57 _lpython_return_variable) (RealBinOp (Var 57 x) Mul (RealBinOp (Cast (IntegerConstant 180 (Integer 4 [])) IntegerToReal (Real 4 []) ()) Div (Var 3 pi_32) (Real 4 []) ()) (Real 4 []) ()) ()) (Return)] (Var 57 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__exp: (Function (SymbolTable 51 {_lpython_return_variable: (Variable 51 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 51 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__exp (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_sexp] [(Var 51 x)] [(= (Var 51 _lpython_return_variable) (FunctionCall 3 _lfortran_sexp () [((Var 51 x))] (Real 4 []) () ()) ()) (Return)] (Var 51 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__floor: (Function (SymbolTable 75 {_lpython_return_variable: (Variable 75 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), resultf: (Variable 75 resultf [x] Local (Cast (Cast (Var 75 x) RealToInteger (Integer 4 []) ()) IntegerToReal (Real 4 []) ()) () Default (Real 4 []) Source Public Required .false.), x: (Variable 75 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__floor (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 75 x)] [(= (Var 75 resultf) (Cast (Cast (Var 75 x) RealToInteger (Integer 4 []) ()) IntegerToReal (Real 4 []) ()) ()) (If (LogicalBinOp (RealCompare (Var 75 x) GtE (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Logical 4 []) ()) Or (RealCompare (Var 75 x) Eq (Var 75 resultf) (Logical 4 []) ()) (Logical 4 []) ()) [(= (Var 75 _lpython_return_variable) (Var 75 resultf) ()) (Return)] []) (= (Var 75 _lpython_return_variable) (RealBinOp (Var 75 resultf) Sub (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Real 4 []) ()) ()) (Return)] (Var 75 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__log: (Function (SymbolTable 29 {_lpython_return_variable: (Variable 29 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 29 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__log (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_slog] [(Var 29 x)] [(= (Var 29 _lpython_return_variable) (FunctionCall 3 _lfortran_slog () [((Var 29 x))] (Real 4 []) () ()) ()) (Return)] (Var 29 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__log10: (Function (SymbolTable 33 {_lpython_return_variable: (Variable 33 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 33 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__log10 (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_slog10] [(Var 33 x)] [(= (Var 33 _lpython_return_variable) (FunctionCall 3 _lfortran_slog10 () [((Var 33 x))] (Real 4 []) () ()) ()) (Return)] (Var 33 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__log2: (Function (SymbolTable 35 {_lpython_return_variable: (Variable 35 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 35 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__log2 (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_slog _lfortran_slog] [(Var 35 x)] [(= (Var 35 _lpython_return_variable) (RealBinOp (FunctionCall 3 _lfortran_slog () [((Var 35 x))] (Real 4 []) () ()) Div (FunctionCall 3 _lfortran_slog () [((Cast (RealConstant 2.000000 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 2.000000 (Real 4 []))))] (Real 4 []) () ()) (Real 4 []) ()) ()) (Return)] (Var 35 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__mod: (Function (SymbolTable 73 {_lpython_return_variable: (Variable 73 _lpython_return_variable [] ReturnVar () () Default (Integer 4 []) Source Public Required .false.), _mod: (ExternalSymbol 73 _mod 79 _mod lpython_builtin [] _mod Private), _mod@__lpython_overloaded_0___mod: (ExternalSymbol 73 _mod@__lpython_overloaded_0___mod 79 __lpython_overloaded_0___mod lpython_builtin [] __lpython_overloaded_0___mod Public), x1: (Variable 73 x1 [] In () () Default (Integer 4 []) Source Public Required .false.), x2: (Variable 73 x2 [] In () () Default (Integer 4 []) Source Public Required .false.)}) __lpython_overloaded_1__mod (FunctionType [(Integer 4 []) (Integer 4 [])] (Integer 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_mod@__lpython_overloaded_0___mod] [(Var 73 x1) (Var 73 x2)] [(If (IntegerCompare (Var 73 x2) Eq (IntegerConstant 0 (Integer 4 [])) (Logical 4 []) ()) [(= (Var 73 _lpython_return_variable) (IntegerConstant 0 (Integer 4 [])) ()) (Return)] []) (= (Var 73 _lpython_return_variable) (FunctionCall 73 _mod@__lpython_overloaded_0___mod 73 _mod [((Var 73 x1)) ((Var 73 x2))] (Integer 4 []) () ()) ()) (Return)] (Var 73 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__radians: (Function (SymbolTable 59 {_lpython_return_variable: (Variable 59 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 59 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__radians (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 59 x)] [(= (Var 59 _lpython_return_variable) (RealBinOp (Var 59 x) Mul (RealBinOp (Var 3 pi_32) Div (Cast (IntegerConstant 180 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Real 4 []) ()) (Real 4 []) ()) ()) (Return)] (Var 59 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__sin: (Function (SymbolTable 7 {_lpython_return_variable: (Variable 7 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 7 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__sin (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_ssin] [(Var 7 x)] [(= (Var 7 _lpython_return_variable) (FunctionCall 3 _lfortran_ssin () [((Var 7 x))] (Real 4 []) () ()) ()) (Return)] (Var 7 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__sinh: (Function (SymbolTable 21 {_lpython_return_variable: (Variable 21 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 21 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__sinh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_ssinh] [(Var 21 x)] [(= (Var 21 _lpython_return_variable) (FunctionCall 3 _lfortran_ssinh () [((Var 21 x))] (Real 4 []) () ()) ()) (Return)] (Var 21 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__sqrt: (Function (SymbolTable 13 {_lpython_return_variable: (Variable 13 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 13 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__sqrt (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 13 x)] [(= (Var 13 _lpython_return_variable) (RealBinOp (Var 13 x) Pow (Cast (RealBinOp (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToReal (Real 8 []) ()) Div (Cast (IntegerConstant 2 (Integer 4 [])) IntegerToReal (Real 8 []) ()) (Real 8 []) ()) RealToReal (Real 4 []) ()) (Real 4 []) ()) ()) (Return)] (Var 13 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__tan: (Function (SymbolTable 17 {_lpython_return_variable: (Variable 17 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 17 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__tan (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_stan] [(Var 17 x)] [(= (Var 17 _lpython_return_variable) (FunctionCall 3 _lfortran_stan () [((Var 17 x))] (Real 4 []) () ()) ()) (Return)] (Var 17 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__tanh: (Function (SymbolTable 47 {_lpython_return_variable: (Variable 47 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 47 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__tanh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_stanh] [(Var 47 x)] [(= (Var 47 _lpython_return_variable) (FunctionCall 3 _lfortran_stanh () [((Var 47 x))] (Real 4 []) () ()) ()) (Return)] (Var 47 _lpython_return_variable) Public .false. .false.), _lfortran_dacos: (Function (SymbolTable 40 {_lpython_return_variable: (Variable 40 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 40 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dacos (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 40 x)] [] (Var 40 _lpython_return_variable) Public .false. .false.), _lfortran_dacosh: (Function (SymbolTable 64 {_lpython_return_variable: (Variable 64 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 64 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dacosh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 64 x)] [] (Var 64 _lpython_return_variable) Public .false. .false.), _lfortran_dasin: (Function (SymbolTable 36 {_lpython_return_variable: (Variable 36 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 36 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dasin (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 36 x)] [] (Var 36 _lpython_return_variable) Public .false. .false.), _lfortran_dasinh: (Function (SymbolTable 60 {_lpython_return_variable: (Variable 60 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 60 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dasinh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 60 x)] [] (Var 60 _lpython_return_variable) Public .false. .false.), _lfortran_datan: (Function (SymbolTable 52 {_lpython_return_variable: (Variable 52 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 52 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_datan (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 52 x)] [] (Var 52 _lpython_return_variable) Public .false. .false.), _lfortran_datanh: (Function (SymbolTable 68 {_lpython_return_variable: (Variable 68 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 68 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_datanh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 68 x)] [] (Var 68 _lpython_return_variable) Public .false. .false.), _lfortran_dcos: (Function (SymbolTable 8 {_lpython_return_variable: (Variable 8 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 8 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dcos (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 8 x)] [] (Var 8 _lpython_return_variable) Public .false. .false.), _lfortran_dcosh: (Function (SymbolTable 22 {_lpython_return_variable: (Variable 22 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 22 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dcosh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 22 x)] [] (Var 22 _lpython_return_variable) Public .false. .false.), _lfortran_dexp: (Function (SymbolTable 48 {_lpython_return_variable: (Variable 48 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 48 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dexp (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 48 x)] [] (Var 48 _lpython_return_variable) Public .false. .false.), _lfortran_dlog: (Function (SymbolTable 26 {_lpython_return_variable: (Variable 26 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 26 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dlog (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 26 x)] [] (Var 26 _lpython_return_variable) Public .false. .false.), _lfortran_dlog10: (Function (SymbolTable 30 {_lpython_return_variable: (Variable 30 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 30 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dlog10 (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 30 x)] [] (Var 30 _lpython_return_variable) Public .false. .false.), _lfortran_dsin: (Function (SymbolTable 4 {_lpython_return_variable: (Variable 4 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 4 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dsin (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 4 x)] [] (Var 4 _lpython_return_variable) Public .false. .false.), _lfortran_dsinh: (Function (SymbolTable 18 {_lpython_return_variable: (Variable 18 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 18 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dsinh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 18 x)] [] (Var 18 _lpython_return_variable) Public .false. .false.), _lfortran_dtan: (Function (SymbolTable 14 {_lpython_return_variable: (Variable 14 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 14 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dtan (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 14 x)] [] (Var 14 _lpython_return_variable) Public .false. .false.), _lfortran_dtanh: (Function (SymbolTable 44 {_lpython_return_variable: (Variable 44 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 44 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dtanh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 44 x)] [] (Var 44 _lpython_return_variable) Public .false. .false.), _lfortran_sacos: (Function (SymbolTable 42 {_lpython_return_variable: (Variable 42 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 42 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_sacos (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 42 x)] [] (Var 42 _lpython_return_variable) Public .false. .false.), _lfortran_sacosh: (Function (SymbolTable 66 {_lpython_return_variable: (Variable 66 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 66 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_sacosh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 66 x)] [] (Var 66 _lpython_return_variable) Public .false. .false.), _lfortran_sasin: (Function (SymbolTable 38 {_lpython_return_variable: (Variable 38 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 38 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_sasin (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 38 x)] [] (Var 38 _lpython_return_variable) Public .false. .false.), _lfortran_sasinh: (Function (SymbolTable 62 {_lpython_return_variable: (Variable 62 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 62 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_sasinh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 62 x)] [] (Var 62 _lpython_return_variable) Public .false. .false.), _lfortran_satan: (Function (SymbolTable 54 {_lpython_return_variable: (Variable 54 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 54 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_satan (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 54 x)] [] (Var 54 _lpython_return_variable) Public .false. .false.), _lfortran_satanh: (Function (SymbolTable 70 {_lpython_return_variable: (Variable 70 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 70 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_satanh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 70 x)] [] (Var 70 _lpython_return_variable) Public .false. .false.), _lfortran_scos: (Function (SymbolTable 10 {_lpython_return_variable: (Variable 10 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 10 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_scos (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 10 x)] [] (Var 10 _lpython_return_variable) Public .false. .false.), _lfortran_scosh: (Function (SymbolTable 24 {_lpython_return_variable: (Variable 24 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 24 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_scosh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 24 x)] [] (Var 24 _lpython_return_variable) Public .false. .false.), _lfortran_sexp: (Function (SymbolTable 50 {_lpython_return_variable: (Variable 50 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 50 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_sexp (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 50 x)] [] (Var 50 _lpython_return_variable) Public .false. .false.), _lfortran_slog: (Function (SymbolTable 28 {_lpython_return_variable: (Variable 28 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 28 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_slog (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 28 x)] [] (Var 28 _lpython_return_variable) Public .false. .false.), _lfortran_slog10: (Function (SymbolTable 32 {_lpython_return_variable: (Variable 32 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 32 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_slog10 (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 32 x)] [] (Var 32 _lpython_return_variable) Public .false. .false.), _lfortran_ssin: (Function (SymbolTable 6 {_lpython_return_variable: (Variable 6 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 6 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_ssin (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 6 x)] [] (Var 6 _lpython_return_variable) Public .false. .false.), _lfortran_ssinh: (Function (SymbolTable 20 {_lpython_return_variable: (Variable 20 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 20 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_ssinh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 20 x)] [] (Var 20 _lpython_return_variable) Public .false. .false.), _lfortran_stan: (Function (SymbolTable 16 {_lpython_return_variable: (Variable 16 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 16 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_stan (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 16 x)] [] (Var 16 _lpython_return_variable) Public .false. .false.), _lfortran_stanh: (Function (SymbolTable 46 {_lpython_return_variable: (Variable 46 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 46 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_stanh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 46 x)] [] (Var 46 _lpython_return_variable) Public .false. .false.), arccos: (GenericProcedure 3 arccos [3 __lpython_overloaded_0__arccos 3 __lpython_overloaded_1__arccos] Public), arccosh: (GenericProcedure 3 arccosh [3 __lpython_overloaded_0__arccosh 3 __lpython_overloaded_1__arccosh] Public), arcsin: (GenericProcedure 3 arcsin [3 __lpython_overloaded_0__arcsin 3 __lpython_overloaded_1__arcsin] Public), arcsinh: (GenericProcedure 3 arcsinh [3 __lpython_overloaded_0__arcsinh 3 __lpython_overloaded_1__arcsinh] Public), arctan: (GenericProcedure 3 arctan [3 __lpython_overloaded_0__arctan 3 __lpython_overloaded_1__arctan] Public), arctanh: (GenericProcedure 3 arctanh [3 __lpython_overloaded_0__arctanh 3 __lpython_overloaded_1__arctanh] Public), ceil: (GenericProcedure 3 ceil [3 __lpython_overloaded_0__ceil 3 __lpython_overloaded_1__ceil] Public), cos: (GenericProcedure 3 cos [3 __lpython_overloaded_0__cos 3 __lpython_overloaded_1__cos] Public), cosh: (GenericProcedure 3 cosh [3 __lpython_overloaded_0__cosh 3 __lpython_overloaded_1__cosh] Public), degrees: (GenericProcedure 3 degrees [3 __lpython_overloaded_0__degrees 3 __lpython_overloaded_1__degrees] Public), exp: (GenericProcedure 3 exp [3 __lpython_overloaded_0__exp 3 __lpython_overloaded_1__exp] Public), floor: (GenericProcedure 3 floor [3 __lpython_overloaded_0__floor 3 __lpython_overloaded_1__floor] Public), log: (GenericProcedure 3 log [3 __lpython_overloaded_0__log 3 __lpython_overloaded_1__log] Public), log10: (GenericProcedure 3 log10 [3 __lpython_overloaded_0__log10 3 __lpython_overloaded_1__log10] Public), log2: (GenericProcedure 3 log2 [3 __lpython_overloaded_0__log2 3 __lpython_overloaded_1__log2] Public), mod: (GenericProcedure 3 mod [3 __lpython_overloaded_0__mod 3 __lpython_overloaded_1__mod] Public), pi_32: (Variable 3 pi_32 [] Local (Cast (RealConstant 3.141593 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 3.141593 (Real 4 []))) () Default (Real 4 []) Source Public Required .false.), pi_64: (Variable 3 pi_64 [] Local (RealConstant 3.141593 (Real 8 [])) () Default (Real 8 []) Source Public Required .false.), radians: (GenericProcedure 3 radians [3 __lpython_overloaded_0__radians 3 __lpython_overloaded_1__radians] Public), sin: (GenericProcedure 3 sin [3 __lpython_overloaded_0__sin 3 __lpython_overloaded_1__sin] Public), sinh: (GenericProcedure 3 sinh [3 __lpython_overloaded_0__sinh 3 __lpython_overloaded_1__sinh] Public), sqrt: (GenericProcedure 3 sqrt [3 __lpython_overloaded_0__sqrt 3 __lpython_overloaded_1__sqrt] Public), tan: (GenericProcedure 3 tan [3 __lpython_overloaded_0__tan 3 __lpython_overloaded_1__tan] Public), tanh: (GenericProcedure 3 tanh [3 __lpython_overloaded_0__tanh 3 __lpython_overloaded_1__tanh] Public)}) numpy [lpython_builtin lpython_builtin] .false. .false.), sin: (ExternalSymbol 1 sin 3 sin numpy [] sin Public), verify1d: (Function (SymbolTable 171 {array: (Variable 171 array [] InOut () () Default (Real 4 [(() ())]) Source Public Required .false.), block: (Block (SymbolTable 181 {abs: (ExternalSymbol 181 abs 79 abs lpython_builtin [] abs Private), abs@__lpython_overloaded_1__abs: (ExternalSymbol 181 abs@__lpython_overloaded_1__abs 79 __lpython_overloaded_1__abs lpython_builtin [] __lpython_overloaded_1__abs Public), sin@__lpython_overloaded_1__sin: (ExternalSymbol 181 sin@__lpython_overloaded_1__sin 3 __lpython_overloaded_1__sin numpy [] __lpython_overloaded_1__sin Public)}) block [(Assert (RealCompare (FunctionCall 181 abs@__lpython_overloaded_1__abs 181 abs [((RealBinOp (FunctionCall 181 sin@__lpython_overloaded_1__sin 1 sin [((FunctionCall 181 sin@__lpython_overloaded_1__sin 1 sin [((ArrayItem (Var 171 array) [(() (Var 171 i) ())] (Real 4 []) RowMajor ()))] (Real 4 []) () ()))] (Real 4 []) () ()) Sub (ArrayItem (Var 171 result) [(() (Var 171 i) ())] (Real 4 []) RowMajor ()) (Real 4 []) ()))] (Real 4 []) () ()) LtE (Var 171 eps) (Logical 4 []) ()) ())]), eps: (Variable 171 eps [] Local () () Default (Real 4 []) Source Public Required .false.), i: (Variable 171 i [] Local () () Default (Integer 4 []) Source Public Required .false.), result: (Variable 171 result [] InOut () () Default (Real 4 [(() ())]) Source Public Required .false.), size: (Variable 171 size [] In () () Default (Integer 4 []) Source Public Required .false.)}) verify1d (FunctionType [(Real 4 [(() ())]) (Real 4 [(() ())]) (Integer 4 [])] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [abs@__lpython_overloaded_1__abs sin@__lpython_overloaded_1__sin sin@__lpython_overloaded_1__sin] [(Var 171 array) (Var 171 result) (Var 171 size)] [(= (Var 171 eps) (Cast (RealConstant 0.000001 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 0.000001 (Real 4 []))) ()) (DoLoop ((Var 171 i) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (Var 171 size) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(BlockCall -1 171 block)])] () Public .false. .false.), verify1d_mul: (Function (SymbolTable 175 {array_a: (Variable 175 array_a [] InOut () () Default (Real 8 [(() ())]) Source Public Required .false.), array_b: (Variable 175 array_b [] InOut () () Default (Real 8 [(() ())]) Source Public Required .false.), block: (Block (SymbolTable 188 {abs: (ExternalSymbol 188 abs 79 abs lpython_builtin [] abs Private), abs@__lpython_overloaded_0__abs: (ExternalSymbol 188 abs@__lpython_overloaded_0__abs 79 __lpython_overloaded_0__abs lpython_builtin [] __lpython_overloaded_0__abs Public)}) block [(Assert (RealCompare (FunctionCall 188 abs@__lpython_overloaded_0__abs 188 abs [((RealBinOp (RealBinOp (RealBinOp (RealBinOp (ArrayItem (Var 175 array_a) [(() (Var 175 i) ())] (Real 8 []) RowMajor ()) Pow (RealConstant 2.000000 (Real 8 [])) (Real 8 []) ()) Mul (RealConstant 5.000000 (Real 8 [])) (Real 8 []) ()) Mul (RealBinOp (ArrayItem (Var 175 array_b) [(() (Var 175 i) ())] (Real 8 []) RowMajor ()) Pow (RealConstant 3.000000 (Real 8 [])) (Real 8 []) ()) (Real 8 []) ()) Sub (ArrayItem (Var 175 result) [(() (Var 175 i) ())] (Real 8 []) RowMajor ()) (Real 8 []) ()))] (Real 8 []) () ()) LtE (Var 175 eps) (Logical 4 []) ()) ())]), eps: (Variable 175 eps [] Local () () Default (Real 8 []) Source Public Required .false.), i: (Variable 175 i [] Local () () Default (Integer 4 []) Source Public Required .false.), result: (Variable 175 result [] InOut () () Default (Real 8 [(() ())]) Source Public Required .false.), size: (Variable 175 size [] In () () Default (Integer 4 []) Source Public Required .false.)}) verify1d_mul (FunctionType [(Real 8 [(() ())]) (Real 8 [(() ())]) (Real 8 [(() ())]) (Integer 4 [])] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [abs@__lpython_overloaded_0__abs] [(Var 175 array_a) (Var 175 array_b) (Var 175 result) (Var 175 size)] [(= (Var 175 eps) (RealConstant 0.000000 (Real 8 [])) ()) (DoLoop ((Var 175 i) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (Var 175 size) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(BlockCall -1 175 block)])] () Public .false. .false.), verify1d_sum: (Function (SymbolTable 174 {array_a: (Variable 174 array_a [] InOut () () Default (Real 8 [(() ())]) Source Public Required .false.), array_b: (Variable 174 array_b [] InOut () () Default (Real 8 [(() ())]) Source Public Required .false.), block: (Block (SymbolTable 187 {abs: (ExternalSymbol 187 abs 79 abs lpython_builtin [] abs Private), abs@__lpython_overloaded_0__abs: (ExternalSymbol 187 abs@__lpython_overloaded_0__abs 79 __lpython_overloaded_0__abs lpython_builtin [] __lpython_overloaded_0__abs Public)}) block [(Assert (RealCompare (FunctionCall 187 abs@__lpython_overloaded_0__abs 187 abs [((RealBinOp (RealBinOp (RealBinOp (ArrayItem (Var 174 array_a) [(() (Var 174 i) ())] (Real 8 []) RowMajor ()) Pow (RealConstant 2.000000 (Real 8 [])) (Real 8 []) ()) Add (RealBinOp (RealConstant 5.000000 (Real 8 [])) Mul (RealBinOp (ArrayItem (Var 174 array_b) [(() (Var 174 i) ())] (Real 8 []) RowMajor ()) Pow (RealConstant 3.000000 (Real 8 [])) (Real 8 []) ()) (Real 8 []) ()) (Real 8 []) ()) Sub (ArrayItem (Var 174 result) [(() (Var 174 i) ())] (Real 8 []) RowMajor ()) (Real 8 []) ()))] (Real 8 []) () ()) LtE (Var 174 eps) (Logical 4 []) ()) ())]), eps: (Variable 174 eps [] Local () () Default (Real 8 []) Source Public Required .false.), i: (Variable 174 i [] Local () () Default (Integer 4 []) Source Public Required .false.), result: (Variable 174 result [] InOut () () Default (Real 8 [(() ())]) Source Public Required .false.), size: (Variable 174 size [] In () () Default (Integer 4 []) Source Public Required .false.)}) verify1d_sum (FunctionType [(Real 8 [(() ())]) (Real 8 [(() ())]) (Real 8 [(() ())]) (Integer 4 [])] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [abs@__lpython_overloaded_0__abs] [(Var 174 array_a) (Var 174 array_b) (Var 174 result) (Var 174 size)] [(= (Var 174 eps) (RealConstant 0.000000 (Real 8 [])) ()) (DoLoop ((Var 174 i) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (Var 174 size) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(BlockCall -1 174 block)])] () Public .false. .false.), verify2d: (Function (SymbolTable 173 {array: (Variable 173 array [] InOut () () Default (Real 8 [(() ()) (() ())]) Source Public Required .false.), block: (Block (SymbolTable 185 {block: (Block (SymbolTable 186 {abs: (ExternalSymbol 186 abs 79 abs lpython_builtin [] abs Private), abs@__lpython_overloaded_0__abs: (ExternalSymbol 186 abs@__lpython_overloaded_0__abs 79 __lpython_overloaded_0__abs lpython_builtin [] __lpython_overloaded_0__abs Public), cos@__lpython_overloaded_0__cos: (ExternalSymbol 186 cos@__lpython_overloaded_0__cos 3 __lpython_overloaded_0__cos numpy [] __lpython_overloaded_0__cos Public)}) block [(Assert (RealCompare (FunctionCall 186 abs@__lpython_overloaded_0__abs 186 abs [((RealBinOp (RealBinOp (FunctionCall 186 cos@__lpython_overloaded_0__cos 1 cos [((ArrayItem (Var 173 array) [(() (Var 173 i) ()) (() (Var 173 j) ())] (Real 8 []) RowMajor ()))] (Real 8 []) () ()) Pow (RealConstant 2.000000 (Real 8 [])) (Real 8 []) ()) Sub (ArrayItem (Var 173 result) [(() (Var 173 i) ()) (() (Var 173 j) ())] (Real 8 []) RowMajor ()) (Real 8 []) ()))] (Real 8 []) () ()) LtE (Var 173 eps) (Logical 4 []) ()) ())])}) block [(DoLoop ((Var 173 j) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (Var 173 size2) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(BlockCall -1 185 block)])]), eps: (Variable 173 eps [] Local () () Default (Real 8 []) Source Public Required .false.), i: (Variable 173 i [] Local () () Default (Integer 4 []) Source Public Required .false.), j: (Variable 173 j [] Local () () Default (Integer 4 []) Source Public Required .false.), result: (Variable 173 result [] InOut () () Default (Real 8 [(() ()) (() ())]) Source Public Required .false.), size1: (Variable 173 size1 [] In () () Default (Integer 4 []) Source Public Required .false.), size2: (Variable 173 size2 [] In () () Default (Integer 4 []) Source Public Required .false.)}) verify2d (FunctionType [(Real 8 [(() ()) (() ())]) (Real 8 [(() ()) (() ())]) (Integer 4 []) (Integer 4 [])] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [abs@__lpython_overloaded_0__abs cos@__lpython_overloaded_0__cos] [(Var 173 array) (Var 173 result) (Var 173 size1) (Var 173 size2)] [(= (Var 173 eps) (RealConstant 0.000000 (Real 8 [])) ()) (DoLoop ((Var 173 i) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (Var 173 size1) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(BlockCall -1 173 block)])] () Public .false. .false.), verifynd: (Function (SymbolTable 172 {array: (Variable 172 array [] InOut () () Default (Real 8 [(() ()) (() ()) (() ())]) Source Public Required .false.), block: (Block (SymbolTable 182 {block: (Block (SymbolTable 183 {block: (Block (SymbolTable 184 {abs: (ExternalSymbol 184 abs 79 abs lpython_builtin [] abs Private), abs@__lpython_overloaded_0__abs: (ExternalSymbol 184 abs@__lpython_overloaded_0__abs 79 __lpython_overloaded_0__abs lpython_builtin [] __lpython_overloaded_0__abs Public), sin@__lpython_overloaded_0__sin: (ExternalSymbol 184 sin@__lpython_overloaded_0__sin 3 __lpython_overloaded_0__sin numpy [] __lpython_overloaded_0__sin Public)}) block [(Assert (RealCompare (FunctionCall 184 abs@__lpython_overloaded_0__abs 184 abs [((RealBinOp (RealBinOp (FunctionCall 184 sin@__lpython_overloaded_0__sin 1 sin [((ArrayItem (Var 172 array) [(() (Var 172 i) ()) (() (Var 172 j) ()) (() (Var 172 k) ())] (Real 8 []) RowMajor ()))] (Real 8 []) () ()) Pow (RealConstant 2.000000 (Real 8 [])) (Real 8 []) ()) Sub (ArrayItem (Var 172 result) [(() (Var 172 i) ()) (() (Var 172 j) ()) (() (Var 172 k) ())] (Real 8 []) RowMajor ()) (Real 8 []) ()))] (Real 8 []) () ()) LtE (Var 172 eps) (Logical 4 []) ()) ())])}) block [(DoLoop ((Var 172 k) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (Var 172 size3) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(BlockCall -1 183 block)])])}) block [(DoLoop ((Var 172 j) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (Var 172 size2) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(BlockCall -1 182 block)])]), eps: (Variable 172 eps [] Local () () Default (Real 8 []) Source Public Required .false.), i: (Variable 172 i [] Local () () Default (Integer 4 []) Source Public Required .false.), j: (Variable 172 j [] Local () () Default (Integer 4 []) Source Public Required .false.), k: (Variable 172 k [] Local () () Default (Integer 4 []) Source Public Required .false.), result: (Variable 172 result [] InOut () () Default (Real 8 [(() ()) (() ()) (() ())]) Source Public Required .false.), size1: (Variable 172 size1 [] In () () Default (Integer 4 []) Source Public Required .false.), size2: (Variable 172 size2 [] In () () Default (Integer 4 []) Source Public Required .false.), size3: (Variable 172 size3 [] In () () Default (Integer 4 []) Source Public Required .false.)}) verifynd (FunctionType [(Real 8 [(() ()) (() ()) (() ())]) (Real 8 [(() ()) (() ()) (() ())]) (Integer 4 []) (Integer 4 []) (Integer 4 [])] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [abs@__lpython_overloaded_0__abs sin@__lpython_overloaded_0__sin] [(Var 172 array) (Var 172 result) (Var 172 size1) (Var 172 size2) (Var 172 size3)] [(= (Var 172 eps) (RealConstant 0.000000 (Real 8 [])) ()) (DoLoop ((Var 172 i) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (Var 172 size1) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(BlockCall -1 172 block)])] () Public .false. .false.)}) [])
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            __main__global_stmts:
+                                (Function
+                                    (SymbolTable
+                                        258
+                                        {
+                                            
+                                        })
+                                    __main__global_stmts
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [elemental_sin
+                                    elemental_cos
+                                    elemental_trig_identity
+                                    elemental_sum
+                                    elemental_mul]
+                                    []
+                                    [(SubroutineCall
+                                        2 elemental_sin
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )
+                                    (SubroutineCall
+                                        2 elemental_cos
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )
+                                    (SubroutineCall
+                                        2 elemental_trig_identity
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )
+                                    (SubroutineCall
+                                        2 elemental_sum
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )
+                                    (SubroutineCall
+                                        2 elemental_mul
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            cos:
+                                (ExternalSymbol
+                                    2
+                                    cos
+                                    3 cos
+                                    numpy
+                                    []
+                                    cos
+                                    Public
+                                ),
+                            elemental_cos:
+                                (Function
+                                    (SymbolTable
+                                        233
+                                        {
+                                            array2d:
+                                                (Variable
+                                                    233
+                                                    array2d
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Real 8)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 256 (Integer 4) Decimal))
+                                                        ((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 64 (Integer 4) Decimal))]
+                                                        FixedSizeArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            cos2d:
+                                                (Variable
+                                                    233
+                                                    cos2d
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Real 8)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 256 (Integer 4) Decimal))
+                                                        ((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 64 (Integer 4) Decimal))]
+                                                        FixedSizeArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            cos@__lpython_overloaded_0__cos:
+                                                (ExternalSymbol
+                                                    233
+                                                    cos@__lpython_overloaded_0__cos
+                                                    3 __lpython_overloaded_0__cos
+                                                    numpy
+                                                    []
+                                                    __lpython_overloaded_0__cos
+                                                    Public
+                                                ),
+                                            i:
+                                                (Variable
+                                                    233
+                                                    i
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            j:
+                                                (Variable
+                                                    233
+                                                    j
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    elemental_cos
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [verify2d]
+                                    []
+                                    [(Assignment
+                                        (Var 233 array2d)
+                                        (ArrayBroadcast
+                                            (ArrayItem
+                                                (Var 233 array2d)
+                                                [(()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())
+                                                (()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())]
+                                                (Real 8)
+                                                RowMajor
+                                                ()
+                                            )
+                                            (ArrayConstant
+                                                8
+                                                [256, 64]
+                                                (Array
+                                                    (Integer 4)
+                                                    [((IntegerConstant 1 (Integer 4) Decimal)
+                                                    (IntegerConstant 2 (Integer 4) Decimal))]
+                                                    FixedSizeArray
+                                                )
+                                                ColMajor
+                                            )
+                                            (Array
+                                                (Real 8)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 256 (Integer 4) Decimal))
+                                                ((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 64 (Integer 4) Decimal))]
+                                                FixedSizeArray
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 233 cos2d)
+                                        (ArrayBroadcast
+                                            (ArrayItem
+                                                (Var 233 cos2d)
+                                                [(()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())
+                                                (()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())]
+                                                (Real 8)
+                                                RowMajor
+                                                ()
+                                            )
+                                            (ArrayConstant
+                                                8
+                                                [256, 64]
+                                                (Array
+                                                    (Integer 4)
+                                                    [((IntegerConstant 1 (Integer 4) Decimal)
+                                                    (IntegerConstant 2 (Integer 4) Decimal))]
+                                                    FixedSizeArray
+                                                )
+                                                ColMajor
+                                            )
+                                            (Array
+                                                (Real 8)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 256 (Integer 4) Decimal))
+                                                ((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 64 (Integer 4) Decimal))]
+                                                FixedSizeArray
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 233 i)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (IntegerConstant 256 (Integer 4) Decimal)
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            (IntegerConstant 255 (Integer 4) Decimal)
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(DoLoop
+                                            ()
+                                            ((Var 233 j)
+                                            (IntegerConstant 0 (Integer 4) Decimal)
+                                            (IntegerBinOp
+                                                (IntegerConstant 64 (Integer 4) Decimal)
+                                                Sub
+                                                (IntegerConstant 1 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                (IntegerConstant 63 (Integer 4) Decimal)
+                                            )
+                                            (IntegerConstant 1 (Integer 4) Decimal))
+                                            [(Assignment
+                                                (ArrayItem
+                                                    (Var 233 array2d)
+                                                    [(()
+                                                    (Var 233 i)
+                                                    ())
+                                                    (()
+                                                    (Var 233 j)
+                                                    ())]
+                                                    (Real 8)
+                                                    RowMajor
+                                                    ()
+                                                )
+                                                (Cast
+                                                    (IntegerBinOp
+                                                        (Var 233 i)
+                                                        Add
+                                                        (Var 233 j)
+                                                        (Integer 4)
+                                                        ()
+                                                    )
+                                                    IntegerToReal
+                                                    (Real 8)
+                                                    ()
+                                                )
+                                                ()
+                                                .false.
+                                                .false.
+                                            )]
+                                            []
+                                        )]
+                                        []
+                                    )
+                                    (Assignment
+                                        (Var 233 cos2d)
+                                        (RealBinOp
+                                            (FunctionCall
+                                                233 cos@__lpython_overloaded_0__cos
+                                                2 cos
+                                                [((Var 233 array2d))]
+                                                (Array
+                                                    (Real 8)
+                                                    [((IntegerConstant 0 (Integer 4) Decimal)
+                                                    (IntegerConstant 256 (Integer 4) Decimal))
+                                                    ((IntegerConstant 0 (Integer 4) Decimal)
+                                                    (IntegerConstant 64 (Integer 4) Decimal))]
+                                                    FixedSizeArray
+                                                )
+                                                ()
+                                                ()
+                                            )
+                                            Pow
+                                            (RealConstant
+                                                2.000000
+                                                (Real 8)
+                                            )
+                                            (Array
+                                                (Real 8)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 256 (Integer 4) Decimal))
+                                                ((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 64 (Integer 4) Decimal))]
+                                                FixedSizeArray
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (SubroutineCall
+                                        2 verify2d
+                                        ()
+                                        [((ArrayPhysicalCast
+                                            (Var 233 array2d)
+                                            FixedSizeArray
+                                            DescriptorArray
+                                            (Array
+                                                (Real 8)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 256 (Integer 4) Decimal))
+                                                ((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 64 (Integer 4) Decimal))]
+                                                DescriptorArray
+                                            )
+                                            ()
+                                        ))
+                                        ((ArrayPhysicalCast
+                                            (Var 233 cos2d)
+                                            FixedSizeArray
+                                            DescriptorArray
+                                            (Array
+                                                (Real 8)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 256 (Integer 4) Decimal))
+                                                ((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 64 (Integer 4) Decimal))]
+                                                DescriptorArray
+                                            )
+                                            ()
+                                        ))
+                                        ((IntegerConstant 256 (Integer 4) Decimal))
+                                        ((IntegerConstant 64 (Integer 4) Decimal))]
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            elemental_mul:
+                                (Function
+                                    (SymbolTable
+                                        231
+                                        {
+                                            array_a:
+                                                (Variable
+                                                    231
+                                                    array_a
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Real 8)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 100 (Integer 4) Decimal))]
+                                                        FixedSizeArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            array_b:
+                                                (Variable
+                                                    231
+                                                    array_b
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Real 8)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 100 (Integer 4) Decimal))]
+                                                        FixedSizeArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            array_c:
+                                                (Variable
+                                                    231
+                                                    array_c
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Real 8)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 100 (Integer 4) Decimal))]
+                                                        FixedSizeArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            i:
+                                                (Variable
+                                                    231
+                                                    i
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            j:
+                                                (Variable
+                                                    231
+                                                    j
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            k:
+                                                (Variable
+                                                    231
+                                                    k
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    elemental_mul
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [verify1d_mul]
+                                    []
+                                    [(Assignment
+                                        (Var 231 array_a)
+                                        (ArrayBroadcast
+                                            (ArrayItem
+                                                (Var 231 array_a)
+                                                [(()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())]
+                                                (Real 8)
+                                                RowMajor
+                                                ()
+                                            )
+                                            (ArrayConstant
+                                                4
+                                                [100]
+                                                (Array
+                                                    (Integer 4)
+                                                    [((IntegerConstant 1 (Integer 4) Decimal)
+                                                    (IntegerConstant 1 (Integer 4) Decimal))]
+                                                    FixedSizeArray
+                                                )
+                                                ColMajor
+                                            )
+                                            (Array
+                                                (Real 8)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 100 (Integer 4) Decimal))]
+                                                FixedSizeArray
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 231 array_b)
+                                        (ArrayBroadcast
+                                            (ArrayItem
+                                                (Var 231 array_b)
+                                                [(()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())]
+                                                (Real 8)
+                                                RowMajor
+                                                ()
+                                            )
+                                            (ArrayConstant
+                                                4
+                                                [100]
+                                                (Array
+                                                    (Integer 4)
+                                                    [((IntegerConstant 1 (Integer 4) Decimal)
+                                                    (IntegerConstant 1 (Integer 4) Decimal))]
+                                                    FixedSizeArray
+                                                )
+                                                ColMajor
+                                            )
+                                            (Array
+                                                (Real 8)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 100 (Integer 4) Decimal))]
+                                                FixedSizeArray
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 231 array_c)
+                                        (ArrayBroadcast
+                                            (ArrayItem
+                                                (Var 231 array_c)
+                                                [(()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())]
+                                                (Real 8)
+                                                RowMajor
+                                                ()
+                                            )
+                                            (ArrayConstant
+                                                4
+                                                [100]
+                                                (Array
+                                                    (Integer 4)
+                                                    [((IntegerConstant 1 (Integer 4) Decimal)
+                                                    (IntegerConstant 1 (Integer 4) Decimal))]
+                                                    FixedSizeArray
+                                                )
+                                                ColMajor
+                                            )
+                                            (Array
+                                                (Real 8)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 100 (Integer 4) Decimal))]
+                                                FixedSizeArray
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 231 i)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (IntegerConstant 100 (Integer 4) Decimal)
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            (IntegerConstant 99 (Integer 4) Decimal)
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(Assignment
+                                            (ArrayItem
+                                                (Var 231 array_a)
+                                                [(()
+                                                (Var 231 i)
+                                                ())]
+                                                (Real 8)
+                                                RowMajor
+                                                ()
+                                            )
+                                            (Cast
+                                                (Var 231 i)
+                                                IntegerToReal
+                                                (Real 8)
+                                                ()
+                                            )
+                                            ()
+                                            .false.
+                                            .false.
+                                        )]
+                                        []
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 231 j)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (IntegerConstant 100 (Integer 4) Decimal)
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            (IntegerConstant 99 (Integer 4) Decimal)
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(Assignment
+                                            (ArrayItem
+                                                (Var 231 array_b)
+                                                [(()
+                                                (Var 231 j)
+                                                ())]
+                                                (Real 8)
+                                                RowMajor
+                                                ()
+                                            )
+                                            (Cast
+                                                (IntegerBinOp
+                                                    (Var 231 j)
+                                                    Add
+                                                    (IntegerConstant 5 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                IntegerToReal
+                                                (Real 8)
+                                                ()
+                                            )
+                                            ()
+                                            .false.
+                                            .false.
+                                        )]
+                                        []
+                                    )
+                                    (Assignment
+                                        (Var 231 array_c)
+                                        (RealBinOp
+                                            (RealBinOp
+                                                (RealBinOp
+                                                    (Var 231 array_a)
+                                                    Pow
+                                                    (RealConstant
+                                                        2.000000
+                                                        (Real 8)
+                                                    )
+                                                    (Array
+                                                        (Real 8)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 100 (Integer 4) Decimal))]
+                                                        FixedSizeArray
+                                                    )
+                                                    ()
+                                                )
+                                                Mul
+                                                (RealConstant
+                                                    5.000000
+                                                    (Real 8)
+                                                )
+                                                (Array
+                                                    (Real 8)
+                                                    [((IntegerConstant 0 (Integer 4) Decimal)
+                                                    (IntegerConstant 100 (Integer 4) Decimal))]
+                                                    FixedSizeArray
+                                                )
+                                                ()
+                                            )
+                                            Mul
+                                            (RealBinOp
+                                                (Var 231 array_b)
+                                                Pow
+                                                (RealConstant
+                                                    3.000000
+                                                    (Real 8)
+                                                )
+                                                (Array
+                                                    (Real 8)
+                                                    [((IntegerConstant 0 (Integer 4) Decimal)
+                                                    (IntegerConstant 100 (Integer 4) Decimal))]
+                                                    FixedSizeArray
+                                                )
+                                                ()
+                                            )
+                                            (Array
+                                                (Real 8)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 100 (Integer 4) Decimal))]
+                                                FixedSizeArray
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (SubroutineCall
+                                        2 verify1d_mul
+                                        ()
+                                        [((ArrayPhysicalCast
+                                            (Var 231 array_a)
+                                            FixedSizeArray
+                                            DescriptorArray
+                                            (Array
+                                                (Real 8)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 100 (Integer 4) Decimal))]
+                                                DescriptorArray
+                                            )
+                                            ()
+                                        ))
+                                        ((ArrayPhysicalCast
+                                            (Var 231 array_b)
+                                            FixedSizeArray
+                                            DescriptorArray
+                                            (Array
+                                                (Real 8)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 100 (Integer 4) Decimal))]
+                                                DescriptorArray
+                                            )
+                                            ()
+                                        ))
+                                        ((ArrayPhysicalCast
+                                            (Var 231 array_c)
+                                            FixedSizeArray
+                                            DescriptorArray
+                                            (Array
+                                                (Real 8)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 100 (Integer 4) Decimal))]
+                                                DescriptorArray
+                                            )
+                                            ()
+                                        ))
+                                        ((IntegerConstant 100 (Integer 4) Decimal))]
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            elemental_sin:
+                                (Function
+                                    (SymbolTable
+                                        232
+                                        {
+                                            array1d:
+                                                (Variable
+                                                    232
+                                                    array1d
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Real 4)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 256 (Integer 4) Decimal))]
+                                                        FixedSizeArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            arraynd:
+                                                (Variable
+                                                    232
+                                                    arraynd
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Real 8)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 200 (Integer 4) Decimal))
+                                                        ((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 64 (Integer 4) Decimal))
+                                                        ((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 16 (Integer 4) Decimal))]
+                                                        FixedSizeArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            i:
+                                                (Variable
+                                                    232
+                                                    i
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            j:
+                                                (Variable
+                                                    232
+                                                    j
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            k:
+                                                (Variable
+                                                    232
+                                                    k
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            sin1d:
+                                                (Variable
+                                                    232
+                                                    sin1d
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Real 4)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 256 (Integer 4) Decimal))]
+                                                        FixedSizeArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            sin@__lpython_overloaded_0__sin:
+                                                (ExternalSymbol
+                                                    232
+                                                    sin@__lpython_overloaded_0__sin
+                                                    3 __lpython_overloaded_0__sin
+                                                    numpy
+                                                    []
+                                                    __lpython_overloaded_0__sin
+                                                    Public
+                                                ),
+                                            sin@__lpython_overloaded_1__sin:
+                                                (ExternalSymbol
+                                                    232
+                                                    sin@__lpython_overloaded_1__sin
+                                                    3 __lpython_overloaded_1__sin
+                                                    numpy
+                                                    []
+                                                    __lpython_overloaded_1__sin
+                                                    Public
+                                                ),
+                                            sinnd:
+                                                (Variable
+                                                    232
+                                                    sinnd
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Real 8)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 200 (Integer 4) Decimal))
+                                                        ((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 64 (Integer 4) Decimal))
+                                                        ((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 16 (Integer 4) Decimal))]
+                                                        FixedSizeArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    elemental_sin
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [verify1d
+                                    verifynd]
+                                    []
+                                    [(Assignment
+                                        (Var 232 array1d)
+                                        (ArrayBroadcast
+                                            (ArrayItem
+                                                (Var 232 array1d)
+                                                [(()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())]
+                                                (Real 4)
+                                                RowMajor
+                                                ()
+                                            )
+                                            (ArrayConstant
+                                                4
+                                                [256]
+                                                (Array
+                                                    (Integer 4)
+                                                    [((IntegerConstant 1 (Integer 4) Decimal)
+                                                    (IntegerConstant 1 (Integer 4) Decimal))]
+                                                    FixedSizeArray
+                                                )
+                                                ColMajor
+                                            )
+                                            (Array
+                                                (Real 4)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 256 (Integer 4) Decimal))]
+                                                FixedSizeArray
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 232 sin1d)
+                                        (ArrayBroadcast
+                                            (ArrayItem
+                                                (Var 232 sin1d)
+                                                [(()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())]
+                                                (Real 4)
+                                                RowMajor
+                                                ()
+                                            )
+                                            (ArrayConstant
+                                                4
+                                                [256]
+                                                (Array
+                                                    (Integer 4)
+                                                    [((IntegerConstant 1 (Integer 4) Decimal)
+                                                    (IntegerConstant 1 (Integer 4) Decimal))]
+                                                    FixedSizeArray
+                                                )
+                                                ColMajor
+                                            )
+                                            (Array
+                                                (Real 4)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 256 (Integer 4) Decimal))]
+                                                FixedSizeArray
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 232 i)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (IntegerConstant 256 (Integer 4) Decimal)
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            (IntegerConstant 255 (Integer 4) Decimal)
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(Assignment
+                                            (ArrayItem
+                                                (Var 232 array1d)
+                                                [(()
+                                                (Var 232 i)
+                                                ())]
+                                                (Real 4)
+                                                RowMajor
+                                                ()
+                                            )
+                                            (Cast
+                                                (Var 232 i)
+                                                IntegerToReal
+                                                (Real 4)
+                                                ()
+                                            )
+                                            ()
+                                            .false.
+                                            .false.
+                                        )]
+                                        []
+                                    )
+                                    (Assignment
+                                        (Var 232 sin1d)
+                                        (FunctionCall
+                                            232 sin@__lpython_overloaded_1__sin
+                                            2 sin
+                                            [((FunctionCall
+                                                232 sin@__lpython_overloaded_1__sin
+                                                2 sin
+                                                [((Var 232 array1d))]
+                                                (Array
+                                                    (Real 4)
+                                                    [((IntegerConstant 0 (Integer 4) Decimal)
+                                                    (IntegerConstant 256 (Integer 4) Decimal))]
+                                                    FixedSizeArray
+                                                )
+                                                ()
+                                                ()
+                                            ))]
+                                            (Array
+                                                (Real 4)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 256 (Integer 4) Decimal))]
+                                                FixedSizeArray
+                                            )
+                                            ()
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (SubroutineCall
+                                        2 verify1d
+                                        ()
+                                        [((ArrayPhysicalCast
+                                            (Var 232 array1d)
+                                            FixedSizeArray
+                                            DescriptorArray
+                                            (Array
+                                                (Real 4)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 256 (Integer 4) Decimal))]
+                                                DescriptorArray
+                                            )
+                                            ()
+                                        ))
+                                        ((ArrayPhysicalCast
+                                            (Var 232 sin1d)
+                                            FixedSizeArray
+                                            DescriptorArray
+                                            (Array
+                                                (Real 4)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 256 (Integer 4) Decimal))]
+                                                DescriptorArray
+                                            )
+                                            ()
+                                        ))
+                                        ((IntegerConstant 256 (Integer 4) Decimal))]
+                                        ()
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 232 arraynd)
+                                        (ArrayBroadcast
+                                            (ArrayItem
+                                                (Var 232 arraynd)
+                                                [(()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())
+                                                (()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())
+                                                (()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())]
+                                                (Real 8)
+                                                RowMajor
+                                                ()
+                                            )
+                                            (ArrayConstant
+                                                12
+                                                [200, 64, 16]
+                                                (Array
+                                                    (Integer 4)
+                                                    [((IntegerConstant 1 (Integer 4) Decimal)
+                                                    (IntegerConstant 3 (Integer 4) Decimal))]
+                                                    FixedSizeArray
+                                                )
+                                                ColMajor
+                                            )
+                                            (Array
+                                                (Real 8)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 200 (Integer 4) Decimal))
+                                                ((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 64 (Integer 4) Decimal))
+                                                ((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 16 (Integer 4) Decimal))]
+                                                FixedSizeArray
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 232 sinnd)
+                                        (ArrayBroadcast
+                                            (ArrayItem
+                                                (Var 232 sinnd)
+                                                [(()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())
+                                                (()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())
+                                                (()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())]
+                                                (Real 8)
+                                                RowMajor
+                                                ()
+                                            )
+                                            (ArrayConstant
+                                                12
+                                                [200, 64, 16]
+                                                (Array
+                                                    (Integer 4)
+                                                    [((IntegerConstant 1 (Integer 4) Decimal)
+                                                    (IntegerConstant 3 (Integer 4) Decimal))]
+                                                    FixedSizeArray
+                                                )
+                                                ColMajor
+                                            )
+                                            (Array
+                                                (Real 8)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 200 (Integer 4) Decimal))
+                                                ((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 64 (Integer 4) Decimal))
+                                                ((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 16 (Integer 4) Decimal))]
+                                                FixedSizeArray
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 232 i)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (IntegerConstant 200 (Integer 4) Decimal)
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            (IntegerConstant 199 (Integer 4) Decimal)
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(DoLoop
+                                            ()
+                                            ((Var 232 j)
+                                            (IntegerConstant 0 (Integer 4) Decimal)
+                                            (IntegerBinOp
+                                                (IntegerConstant 64 (Integer 4) Decimal)
+                                                Sub
+                                                (IntegerConstant 1 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                (IntegerConstant 63 (Integer 4) Decimal)
+                                            )
+                                            (IntegerConstant 1 (Integer 4) Decimal))
+                                            [(DoLoop
+                                                ()
+                                                ((Var 232 k)
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerBinOp
+                                                    (IntegerConstant 16 (Integer 4) Decimal)
+                                                    Sub
+                                                    (IntegerConstant 1 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    (IntegerConstant 15 (Integer 4) Decimal)
+                                                )
+                                                (IntegerConstant 1 (Integer 4) Decimal))
+                                                [(Assignment
+                                                    (ArrayItem
+                                                        (Var 232 arraynd)
+                                                        [(()
+                                                        (Var 232 i)
+                                                        ())
+                                                        (()
+                                                        (Var 232 j)
+                                                        ())
+                                                        (()
+                                                        (Var 232 k)
+                                                        ())]
+                                                        (Real 8)
+                                                        RowMajor
+                                                        ()
+                                                    )
+                                                    (Cast
+                                                        (IntegerBinOp
+                                                            (IntegerBinOp
+                                                                (Var 232 i)
+                                                                Add
+                                                                (Var 232 j)
+                                                                (Integer 4)
+                                                                ()
+                                                            )
+                                                            Add
+                                                            (Var 232 k)
+                                                            (Integer 4)
+                                                            ()
+                                                        )
+                                                        IntegerToReal
+                                                        (Real 8)
+                                                        ()
+                                                    )
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )]
+                                                []
+                                            )]
+                                            []
+                                        )]
+                                        []
+                                    )
+                                    (Assignment
+                                        (Var 232 sinnd)
+                                        (RealBinOp
+                                            (FunctionCall
+                                                232 sin@__lpython_overloaded_0__sin
+                                                2 sin
+                                                [((Var 232 arraynd))]
+                                                (Array
+                                                    (Real 8)
+                                                    [((IntegerConstant 0 (Integer 4) Decimal)
+                                                    (IntegerConstant 200 (Integer 4) Decimal))
+                                                    ((IntegerConstant 0 (Integer 4) Decimal)
+                                                    (IntegerConstant 64 (Integer 4) Decimal))
+                                                    ((IntegerConstant 0 (Integer 4) Decimal)
+                                                    (IntegerConstant 16 (Integer 4) Decimal))]
+                                                    FixedSizeArray
+                                                )
+                                                ()
+                                                ()
+                                            )
+                                            Pow
+                                            (RealConstant
+                                                2.000000
+                                                (Real 8)
+                                            )
+                                            (Array
+                                                (Real 8)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 200 (Integer 4) Decimal))
+                                                ((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 64 (Integer 4) Decimal))
+                                                ((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 16 (Integer 4) Decimal))]
+                                                FixedSizeArray
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (SubroutineCall
+                                        2 verifynd
+                                        ()
+                                        [((ArrayPhysicalCast
+                                            (Var 232 arraynd)
+                                            FixedSizeArray
+                                            DescriptorArray
+                                            (Array
+                                                (Real 8)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 200 (Integer 4) Decimal))
+                                                ((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 64 (Integer 4) Decimal))
+                                                ((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 16 (Integer 4) Decimal))]
+                                                DescriptorArray
+                                            )
+                                            ()
+                                        ))
+                                        ((ArrayPhysicalCast
+                                            (Var 232 sinnd)
+                                            FixedSizeArray
+                                            DescriptorArray
+                                            (Array
+                                                (Real 8)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 200 (Integer 4) Decimal))
+                                                ((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 64 (Integer 4) Decimal))
+                                                ((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 16 (Integer 4) Decimal))]
+                                                DescriptorArray
+                                            )
+                                            ()
+                                        ))
+                                        ((IntegerConstant 200 (Integer 4) Decimal))
+                                        ((IntegerConstant 64 (Integer 4) Decimal))
+                                        ((IntegerConstant 16 (Integer 4) Decimal))]
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            elemental_sum:
+                                (Function
+                                    (SymbolTable
+                                        230
+                                        {
+                                            array_a:
+                                                (Variable
+                                                    230
+                                                    array_a
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Real 8)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 100 (Integer 4) Decimal))]
+                                                        FixedSizeArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            array_b:
+                                                (Variable
+                                                    230
+                                                    array_b
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Real 8)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 100 (Integer 4) Decimal))]
+                                                        FixedSizeArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            array_c:
+                                                (Variable
+                                                    230
+                                                    array_c
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Real 8)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 100 (Integer 4) Decimal))]
+                                                        FixedSizeArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            i:
+                                                (Variable
+                                                    230
+                                                    i
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            j:
+                                                (Variable
+                                                    230
+                                                    j
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            k:
+                                                (Variable
+                                                    230
+                                                    k
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    elemental_sum
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [verify1d_sum]
+                                    []
+                                    [(Assignment
+                                        (Var 230 array_a)
+                                        (ArrayBroadcast
+                                            (ArrayItem
+                                                (Var 230 array_a)
+                                                [(()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())]
+                                                (Real 8)
+                                                RowMajor
+                                                ()
+                                            )
+                                            (ArrayConstant
+                                                4
+                                                [100]
+                                                (Array
+                                                    (Integer 4)
+                                                    [((IntegerConstant 1 (Integer 4) Decimal)
+                                                    (IntegerConstant 1 (Integer 4) Decimal))]
+                                                    FixedSizeArray
+                                                )
+                                                ColMajor
+                                            )
+                                            (Array
+                                                (Real 8)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 100 (Integer 4) Decimal))]
+                                                FixedSizeArray
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 230 array_b)
+                                        (ArrayBroadcast
+                                            (ArrayItem
+                                                (Var 230 array_b)
+                                                [(()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())]
+                                                (Real 8)
+                                                RowMajor
+                                                ()
+                                            )
+                                            (ArrayConstant
+                                                4
+                                                [100]
+                                                (Array
+                                                    (Integer 4)
+                                                    [((IntegerConstant 1 (Integer 4) Decimal)
+                                                    (IntegerConstant 1 (Integer 4) Decimal))]
+                                                    FixedSizeArray
+                                                )
+                                                ColMajor
+                                            )
+                                            (Array
+                                                (Real 8)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 100 (Integer 4) Decimal))]
+                                                FixedSizeArray
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 230 array_c)
+                                        (ArrayBroadcast
+                                            (ArrayItem
+                                                (Var 230 array_c)
+                                                [(()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())]
+                                                (Real 8)
+                                                RowMajor
+                                                ()
+                                            )
+                                            (ArrayConstant
+                                                4
+                                                [100]
+                                                (Array
+                                                    (Integer 4)
+                                                    [((IntegerConstant 1 (Integer 4) Decimal)
+                                                    (IntegerConstant 1 (Integer 4) Decimal))]
+                                                    FixedSizeArray
+                                                )
+                                                ColMajor
+                                            )
+                                            (Array
+                                                (Real 8)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 100 (Integer 4) Decimal))]
+                                                FixedSizeArray
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 230 i)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (IntegerConstant 100 (Integer 4) Decimal)
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            (IntegerConstant 99 (Integer 4) Decimal)
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(Assignment
+                                            (ArrayItem
+                                                (Var 230 array_a)
+                                                [(()
+                                                (Var 230 i)
+                                                ())]
+                                                (Real 8)
+                                                RowMajor
+                                                ()
+                                            )
+                                            (Cast
+                                                (Var 230 i)
+                                                IntegerToReal
+                                                (Real 8)
+                                                ()
+                                            )
+                                            ()
+                                            .false.
+                                            .false.
+                                        )]
+                                        []
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 230 j)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (IntegerConstant 100 (Integer 4) Decimal)
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            (IntegerConstant 99 (Integer 4) Decimal)
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(Assignment
+                                            (ArrayItem
+                                                (Var 230 array_b)
+                                                [(()
+                                                (Var 230 j)
+                                                ())]
+                                                (Real 8)
+                                                RowMajor
+                                                ()
+                                            )
+                                            (Cast
+                                                (IntegerBinOp
+                                                    (Var 230 j)
+                                                    Add
+                                                    (IntegerConstant 5 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                IntegerToReal
+                                                (Real 8)
+                                                ()
+                                            )
+                                            ()
+                                            .false.
+                                            .false.
+                                        )]
+                                        []
+                                    )
+                                    (Assignment
+                                        (Var 230 array_c)
+                                        (RealBinOp
+                                            (RealBinOp
+                                                (Var 230 array_a)
+                                                Pow
+                                                (RealConstant
+                                                    2.000000
+                                                    (Real 8)
+                                                )
+                                                (Array
+                                                    (Real 8)
+                                                    [((IntegerConstant 0 (Integer 4) Decimal)
+                                                    (IntegerConstant 100 (Integer 4) Decimal))]
+                                                    FixedSizeArray
+                                                )
+                                                ()
+                                            )
+                                            Add
+                                            (RealBinOp
+                                                (RealConstant
+                                                    5.000000
+                                                    (Real 8)
+                                                )
+                                                Mul
+                                                (RealBinOp
+                                                    (Var 230 array_b)
+                                                    Pow
+                                                    (RealConstant
+                                                        3.000000
+                                                        (Real 8)
+                                                    )
+                                                    (Array
+                                                        (Real 8)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 100 (Integer 4) Decimal))]
+                                                        FixedSizeArray
+                                                    )
+                                                    ()
+                                                )
+                                                (Array
+                                                    (Real 8)
+                                                    [((IntegerConstant 0 (Integer 4) Decimal)
+                                                    (IntegerConstant 100 (Integer 4) Decimal))]
+                                                    FixedSizeArray
+                                                )
+                                                ()
+                                            )
+                                            (Array
+                                                (Real 8)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 100 (Integer 4) Decimal))]
+                                                FixedSizeArray
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (SubroutineCall
+                                        2 verify1d_sum
+                                        ()
+                                        [((ArrayPhysicalCast
+                                            (Var 230 array_a)
+                                            FixedSizeArray
+                                            DescriptorArray
+                                            (Array
+                                                (Real 8)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 100 (Integer 4) Decimal))]
+                                                DescriptorArray
+                                            )
+                                            ()
+                                        ))
+                                        ((ArrayPhysicalCast
+                                            (Var 230 array_b)
+                                            FixedSizeArray
+                                            DescriptorArray
+                                            (Array
+                                                (Real 8)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 100 (Integer 4) Decimal))]
+                                                DescriptorArray
+                                            )
+                                            ()
+                                        ))
+                                        ((ArrayPhysicalCast
+                                            (Var 230 array_c)
+                                            FixedSizeArray
+                                            DescriptorArray
+                                            (Array
+                                                (Real 8)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 100 (Integer 4) Decimal))]
+                                                DescriptorArray
+                                            )
+                                            ()
+                                        ))
+                                        ((IntegerConstant 100 (Integer 4) Decimal))]
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            elemental_trig_identity:
+                                (Function
+                                    (SymbolTable
+                                        234
+                                        {
+                                            arraynd:
+                                                (Variable
+                                                    234
+                                                    arraynd
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Real 4)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 64 (Integer 4) Decimal))
+                                                        ((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 32 (Integer 4) Decimal))
+                                                        ((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 8 (Integer 4) Decimal))
+                                                        ((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 4 (Integer 4) Decimal))]
+                                                        FixedSizeArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            cos@__lpython_overloaded_1__cos:
+                                                (ExternalSymbol
+                                                    234
+                                                    cos@__lpython_overloaded_1__cos
+                                                    3 __lpython_overloaded_1__cos
+                                                    numpy
+                                                    []
+                                                    __lpython_overloaded_1__cos
+                                                    Public
+                                                ),
+                                            eps:
+                                                (Variable
+                                                    234
+                                                    eps
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            i:
+                                                (Variable
+                                                    234
+                                                    i
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            j:
+                                                (Variable
+                                                    234
+                                                    j
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            k:
+                                                (Variable
+                                                    234
+                                                    k
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            l:
+                                                (Variable
+                                                    234
+                                                    l
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            newshape:
+                                                (Variable
+                                                    234
+                                                    newshape
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Integer 4)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 1 (Integer 4) Decimal))]
+                                                        FixedSizeArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            observed:
+                                                (Variable
+                                                    234
+                                                    observed
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Real 4)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 64 (Integer 4) Decimal))
+                                                        ((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 32 (Integer 4) Decimal))
+                                                        ((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 8 (Integer 4) Decimal))
+                                                        ((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 4 (Integer 4) Decimal))]
+                                                        FixedSizeArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            observed1d:
+                                                (Variable
+                                                    234
+                                                    observed1d
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Real 4)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 65536 (Integer 4) Decimal))]
+                                                        FixedSizeArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            sin@__lpython_overloaded_1__sin:
+                                                (ExternalSymbol
+                                                    234
+                                                    sin@__lpython_overloaded_1__sin
+                                                    3 __lpython_overloaded_1__sin
+                                                    numpy
+                                                    []
+                                                    __lpython_overloaded_1__sin
+                                                    Public
+                                                )
+                                        })
+                                    elemental_trig_identity
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 234 eps)
+                                        (Cast
+                                            (RealConstant
+                                                0.000001
+                                                (Real 8)
+                                            )
+                                            RealToReal
+                                            (Real 4)
+                                            (RealConstant
+                                                0.000001
+                                                (Real 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 234 arraynd)
+                                        (ArrayBroadcast
+                                            (ArrayItem
+                                                (Var 234 arraynd)
+                                                [(()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())
+                                                (()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())
+                                                (()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())
+                                                (()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())]
+                                                (Real 4)
+                                                RowMajor
+                                                ()
+                                            )
+                                            (ArrayConstant
+                                                16
+                                                [64, 32, 8, 4]
+                                                (Array
+                                                    (Integer 4)
+                                                    [((IntegerConstant 1 (Integer 4) Decimal)
+                                                    (IntegerConstant 4 (Integer 4) Decimal))]
+                                                    FixedSizeArray
+                                                )
+                                                ColMajor
+                                            )
+                                            (Array
+                                                (Real 4)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 64 (Integer 4) Decimal))
+                                                ((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 32 (Integer 4) Decimal))
+                                                ((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 8 (Integer 4) Decimal))
+                                                ((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 4 (Integer 4) Decimal))]
+                                                FixedSizeArray
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 234 observed)
+                                        (ArrayBroadcast
+                                            (ArrayItem
+                                                (Var 234 observed)
+                                                [(()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())
+                                                (()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())
+                                                (()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())
+                                                (()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())]
+                                                (Real 4)
+                                                RowMajor
+                                                ()
+                                            )
+                                            (ArrayConstant
+                                                16
+                                                [64, 32, 8, 4]
+                                                (Array
+                                                    (Integer 4)
+                                                    [((IntegerConstant 1 (Integer 4) Decimal)
+                                                    (IntegerConstant 4 (Integer 4) Decimal))]
+                                                    FixedSizeArray
+                                                )
+                                                ColMajor
+                                            )
+                                            (Array
+                                                (Real 4)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 64 (Integer 4) Decimal))
+                                                ((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 32 (Integer 4) Decimal))
+                                                ((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 8 (Integer 4) Decimal))
+                                                ((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 4 (Integer 4) Decimal))]
+                                                FixedSizeArray
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 234 observed1d)
+                                        (ArrayBroadcast
+                                            (ArrayItem
+                                                (Var 234 observed1d)
+                                                [(()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())]
+                                                (Real 4)
+                                                RowMajor
+                                                ()
+                                            )
+                                            (ArrayConstant
+                                                4
+                                                [65536]
+                                                (Array
+                                                    (Integer 4)
+                                                    [((IntegerConstant 1 (Integer 4) Decimal)
+                                                    (IntegerConstant 1 (Integer 4) Decimal))]
+                                                    FixedSizeArray
+                                                )
+                                                ColMajor
+                                            )
+                                            (Array
+                                                (Real 4)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 65536 (Integer 4) Decimal))]
+                                                FixedSizeArray
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 234 i)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (IntegerConstant 64 (Integer 4) Decimal)
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            (IntegerConstant 63 (Integer 4) Decimal)
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(DoLoop
+                                            ()
+                                            ((Var 234 j)
+                                            (IntegerConstant 0 (Integer 4) Decimal)
+                                            (IntegerBinOp
+                                                (IntegerConstant 32 (Integer 4) Decimal)
+                                                Sub
+                                                (IntegerConstant 1 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                (IntegerConstant 31 (Integer 4) Decimal)
+                                            )
+                                            (IntegerConstant 1 (Integer 4) Decimal))
+                                            [(DoLoop
+                                                ()
+                                                ((Var 234 k)
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerBinOp
+                                                    (IntegerConstant 8 (Integer 4) Decimal)
+                                                    Sub
+                                                    (IntegerConstant 1 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    (IntegerConstant 7 (Integer 4) Decimal)
+                                                )
+                                                (IntegerConstant 1 (Integer 4) Decimal))
+                                                [(DoLoop
+                                                    ()
+                                                    ((Var 234 l)
+                                                    (IntegerConstant 0 (Integer 4) Decimal)
+                                                    (IntegerBinOp
+                                                        (IntegerConstant 4 (Integer 4) Decimal)
+                                                        Sub
+                                                        (IntegerConstant 1 (Integer 4) Decimal)
+                                                        (Integer 4)
+                                                        (IntegerConstant 3 (Integer 4) Decimal)
+                                                    )
+                                                    (IntegerConstant 1 (Integer 4) Decimal))
+                                                    [(Assignment
+                                                        (ArrayItem
+                                                            (Var 234 arraynd)
+                                                            [(()
+                                                            (Var 234 i)
+                                                            ())
+                                                            (()
+                                                            (Var 234 j)
+                                                            ())
+                                                            (()
+                                                            (Var 234 k)
+                                                            ())
+                                                            (()
+                                                            (Var 234 l)
+                                                            ())]
+                                                            (Real 4)
+                                                            RowMajor
+                                                            ()
+                                                        )
+                                                        (Cast
+                                                            (IntegerBinOp
+                                                                (IntegerBinOp
+                                                                    (IntegerBinOp
+                                                                        (Var 234 i)
+                                                                        Add
+                                                                        (Var 234 j)
+                                                                        (Integer 4)
+                                                                        ()
+                                                                    )
+                                                                    Add
+                                                                    (Var 234 k)
+                                                                    (Integer 4)
+                                                                    ()
+                                                                )
+                                                                Add
+                                                                (Var 234 l)
+                                                                (Integer 4)
+                                                                ()
+                                                            )
+                                                            IntegerToReal
+                                                            (Real 4)
+                                                            ()
+                                                        )
+                                                        ()
+                                                        .false.
+                                                        .false.
+                                                    )]
+                                                    []
+                                                )]
+                                                []
+                                            )]
+                                            []
+                                        )]
+                                        []
+                                    )
+                                    (Assignment
+                                        (Var 234 observed)
+                                        (RealBinOp
+                                            (RealBinOp
+                                                (FunctionCall
+                                                    234 sin@__lpython_overloaded_1__sin
+                                                    2 sin
+                                                    [((Var 234 arraynd))]
+                                                    (Array
+                                                        (Real 4)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 64 (Integer 4) Decimal))
+                                                        ((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 32 (Integer 4) Decimal))
+                                                        ((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 8 (Integer 4) Decimal))
+                                                        ((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 4 (Integer 4) Decimal))]
+                                                        FixedSizeArray
+                                                    )
+                                                    ()
+                                                    ()
+                                                )
+                                                Pow
+                                                (Cast
+                                                    (IntegerConstant 2 (Integer 4) Decimal)
+                                                    IntegerToReal
+                                                    (Real 4)
+                                                    (RealConstant
+                                                        2.000000
+                                                        (Real 4)
+                                                    )
+                                                )
+                                                (Array
+                                                    (Real 4)
+                                                    [((IntegerConstant 0 (Integer 4) Decimal)
+                                                    (IntegerConstant 64 (Integer 4) Decimal))
+                                                    ((IntegerConstant 0 (Integer 4) Decimal)
+                                                    (IntegerConstant 32 (Integer 4) Decimal))
+                                                    ((IntegerConstant 0 (Integer 4) Decimal)
+                                                    (IntegerConstant 8 (Integer 4) Decimal))
+                                                    ((IntegerConstant 0 (Integer 4) Decimal)
+                                                    (IntegerConstant 4 (Integer 4) Decimal))]
+                                                    FixedSizeArray
+                                                )
+                                                ()
+                                            )
+                                            Add
+                                            (RealBinOp
+                                                (FunctionCall
+                                                    234 cos@__lpython_overloaded_1__cos
+                                                    2 cos
+                                                    [((Var 234 arraynd))]
+                                                    (Array
+                                                        (Real 4)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 64 (Integer 4) Decimal))
+                                                        ((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 32 (Integer 4) Decimal))
+                                                        ((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 8 (Integer 4) Decimal))
+                                                        ((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 4 (Integer 4) Decimal))]
+                                                        FixedSizeArray
+                                                    )
+                                                    ()
+                                                    ()
+                                                )
+                                                Pow
+                                                (Cast
+                                                    (IntegerConstant 2 (Integer 4) Decimal)
+                                                    IntegerToReal
+                                                    (Real 4)
+                                                    (RealConstant
+                                                        2.000000
+                                                        (Real 4)
+                                                    )
+                                                )
+                                                (Array
+                                                    (Real 4)
+                                                    [((IntegerConstant 0 (Integer 4) Decimal)
+                                                    (IntegerConstant 64 (Integer 4) Decimal))
+                                                    ((IntegerConstant 0 (Integer 4) Decimal)
+                                                    (IntegerConstant 32 (Integer 4) Decimal))
+                                                    ((IntegerConstant 0 (Integer 4) Decimal)
+                                                    (IntegerConstant 8 (Integer 4) Decimal))
+                                                    ((IntegerConstant 0 (Integer 4) Decimal)
+                                                    (IntegerConstant 4 (Integer 4) Decimal))]
+                                                    FixedSizeArray
+                                                )
+                                                ()
+                                            )
+                                            (Array
+                                                (Real 4)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 64 (Integer 4) Decimal))
+                                                ((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 32 (Integer 4) Decimal))
+                                                ((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 8 (Integer 4) Decimal))
+                                                ((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 4 (Integer 4) Decimal))]
+                                                FixedSizeArray
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 234 newshape)
+                                        (ArrayBroadcast
+                                            (ArrayItem
+                                                (Var 234 newshape)
+                                                [(()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())]
+                                                (Integer 4)
+                                                RowMajor
+                                                ()
+                                            )
+                                            (ArrayConstant
+                                                4
+                                                [1]
+                                                (Array
+                                                    (Integer 4)
+                                                    [((IntegerConstant 1 (Integer 4) Decimal)
+                                                    (IntegerConstant 1 (Integer 4) Decimal))]
+                                                    FixedSizeArray
+                                                )
+                                                ColMajor
+                                            )
+                                            (Array
+                                                (Integer 4)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 1 (Integer 4) Decimal))]
+                                                FixedSizeArray
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (ArrayItem
+                                            (Var 234 newshape)
+                                            [(()
+                                            (IntegerConstant 0 (Integer 4) Decimal)
+                                            ())]
+                                            (Integer 4)
+                                            RowMajor
+                                            ()
+                                        )
+                                        (IntegerConstant 65536 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 234 observed1d)
+                                        (ArrayReshape
+                                            (Var 234 observed)
+                                            (ArrayPhysicalCast
+                                                (Var 234 newshape)
+                                                FixedSizeArray
+                                                DescriptorArray
+                                                (Array
+                                                    (Integer 4)
+                                                    [((IntegerConstant 0 (Integer 4) Decimal)
+                                                    (IntegerConstant 1 (Integer 4) Decimal))]
+                                                    DescriptorArray
+                                                )
+                                                ()
+                                            )
+                                            (Array
+                                                (Real 4)
+                                                [(()
+                                                ())]
+                                                FixedSizeArray
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 234 i)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (IntegerConstant 65536 (Integer 4) Decimal)
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            (IntegerConstant 65535 (Integer 4) Decimal)
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(Assert
+                                            (RealCompare
+                                                (IntrinsicElementalFunction
+                                                    Abs
+                                                    [(RealBinOp
+                                                        (ArrayItem
+                                                            (Var 234 observed1d)
+                                                            [(()
+                                                            (Var 234 i)
+                                                            ())]
+                                                            (Real 4)
+                                                            RowMajor
+                                                            ()
+                                                        )
+                                                        Sub
+                                                        (Cast
+                                                            (RealConstant
+                                                                1.000000
+                                                                (Real 8)
+                                                            )
+                                                            RealToReal
+                                                            (Real 4)
+                                                            (RealConstant
+                                                                1.000000
+                                                                (Real 4)
+                                                            )
+                                                        )
+                                                        (Real 4)
+                                                        ()
+                                                    )]
+                                                    0
+                                                    (Real 4)
+                                                    ()
+                                                )
+                                                LtE
+                                                (Var 234 eps)
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            ()
+                                        )]
+                                        []
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            sin:
+                                (ExternalSymbol
+                                    2
+                                    sin
+                                    3 sin
+                                    numpy
+                                    []
+                                    sin
+                                    Public
+                                ),
+                            verify1d:
+                                (Function
+                                    (SymbolTable
+                                        225
+                                        {
+                                            array:
+                                                (Variable
+                                                    225
+                                                    array
+                                                    []
+                                                    InOut
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Real 4)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        ())]
+                                                        DescriptorArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            block:
+                                                (Block
+                                                    (SymbolTable
+                                                        235
+                                                        {
+                                                            sin@__lpython_overloaded_1__sin:
+                                                                (ExternalSymbol
+                                                                    235
+                                                                    sin@__lpython_overloaded_1__sin
+                                                                    3 __lpython_overloaded_1__sin
+                                                                    numpy
+                                                                    []
+                                                                    __lpython_overloaded_1__sin
+                                                                    Public
+                                                                )
+                                                        })
+                                                    block
+                                                    [(Assert
+                                                        (RealCompare
+                                                            (IntrinsicElementalFunction
+                                                                Abs
+                                                                [(RealBinOp
+                                                                    (FunctionCall
+                                                                        235 sin@__lpython_overloaded_1__sin
+                                                                        2 sin
+                                                                        [((FunctionCall
+                                                                            235 sin@__lpython_overloaded_1__sin
+                                                                            2 sin
+                                                                            [((ArrayItem
+                                                                                (Var 225 array)
+                                                                                [(()
+                                                                                (Var 225 i)
+                                                                                ())]
+                                                                                (Real 4)
+                                                                                RowMajor
+                                                                                ()
+                                                                            ))]
+                                                                            (Real 4)
+                                                                            ()
+                                                                            ()
+                                                                        ))]
+                                                                        (Real 4)
+                                                                        ()
+                                                                        ()
+                                                                    )
+                                                                    Sub
+                                                                    (ArrayItem
+                                                                        (Var 225 result)
+                                                                        [(()
+                                                                        (Var 225 i)
+                                                                        ())]
+                                                                        (Real 4)
+                                                                        RowMajor
+                                                                        ()
+                                                                    )
+                                                                    (Real 4)
+                                                                    ()
+                                                                )]
+                                                                0
+                                                                (Real 4)
+                                                                ()
+                                                            )
+                                                            LtE
+                                                            (Var 225 eps)
+                                                            (Logical 4)
+                                                            ()
+                                                        )
+                                                        ()
+                                                    )]
+                                                ),
+                                            eps:
+                                                (Variable
+                                                    225
+                                                    eps
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            i:
+                                                (Variable
+                                                    225
+                                                    i
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            result:
+                                                (Variable
+                                                    225
+                                                    result
+                                                    []
+                                                    InOut
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Real 4)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        ())]
+                                                        DescriptorArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            size:
+                                                (Variable
+                                                    225
+                                                    size
+                                                    []
+                                                    In
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    verify1d
+                                    (FunctionType
+                                        [(Array
+                                            (Real 4)
+                                            [((IntegerConstant 0 (Integer 4) Decimal)
+                                            ())]
+                                            DescriptorArray
+                                        )
+                                        (Array
+                                            (Real 4)
+                                            [((IntegerConstant 0 (Integer 4) Decimal)
+                                            ())]
+                                            DescriptorArray
+                                        )
+                                        (Integer 4)]
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    [(Var 225 array)
+                                    (Var 225 result)
+                                    (Var 225 size)]
+                                    [(Assignment
+                                        (Var 225 eps)
+                                        (Cast
+                                            (RealConstant
+                                                0.000001
+                                                (Real 8)
+                                            )
+                                            RealToReal
+                                            (Real 4)
+                                            (RealConstant
+                                                0.000001
+                                                (Real 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 225 i)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (Var 225 size)
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(BlockCall
+                                            -1
+                                            225 block
+                                        )]
+                                        []
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            verify1d_mul:
+                                (Function
+                                    (SymbolTable
+                                        229
+                                        {
+                                            array_a:
+                                                (Variable
+                                                    229
+                                                    array_a
+                                                    []
+                                                    InOut
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Real 8)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        ())]
+                                                        DescriptorArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            array_b:
+                                                (Variable
+                                                    229
+                                                    array_b
+                                                    []
+                                                    InOut
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Real 8)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        ())]
+                                                        DescriptorArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            eps:
+                                                (Variable
+                                                    229
+                                                    eps
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            i:
+                                                (Variable
+                                                    229
+                                                    i
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            result:
+                                                (Variable
+                                                    229
+                                                    result
+                                                    []
+                                                    InOut
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Real 8)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        ())]
+                                                        DescriptorArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            size:
+                                                (Variable
+                                                    229
+                                                    size
+                                                    []
+                                                    In
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    verify1d_mul
+                                    (FunctionType
+                                        [(Array
+                                            (Real 8)
+                                            [((IntegerConstant 0 (Integer 4) Decimal)
+                                            ())]
+                                            DescriptorArray
+                                        )
+                                        (Array
+                                            (Real 8)
+                                            [((IntegerConstant 0 (Integer 4) Decimal)
+                                            ())]
+                                            DescriptorArray
+                                        )
+                                        (Array
+                                            (Real 8)
+                                            [((IntegerConstant 0 (Integer 4) Decimal)
+                                            ())]
+                                            DescriptorArray
+                                        )
+                                        (Integer 4)]
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    [(Var 229 array_a)
+                                    (Var 229 array_b)
+                                    (Var 229 result)
+                                    (Var 229 size)]
+                                    [(Assignment
+                                        (Var 229 eps)
+                                        (RealConstant
+                                            0.000010
+                                            (Real 8)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 229 i)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (Var 229 size)
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(Assert
+                                            (RealCompare
+                                                (IntrinsicElementalFunction
+                                                    Abs
+                                                    [(RealBinOp
+                                                        (RealBinOp
+                                                            (RealBinOp
+                                                                (RealBinOp
+                                                                    (ArrayItem
+                                                                        (Var 229 array_a)
+                                                                        [(()
+                                                                        (Var 229 i)
+                                                                        ())]
+                                                                        (Real 8)
+                                                                        RowMajor
+                                                                        ()
+                                                                    )
+                                                                    Pow
+                                                                    (RealConstant
+                                                                        2.000000
+                                                                        (Real 8)
+                                                                    )
+                                                                    (Real 8)
+                                                                    ()
+                                                                )
+                                                                Mul
+                                                                (RealConstant
+                                                                    5.000000
+                                                                    (Real 8)
+                                                                )
+                                                                (Real 8)
+                                                                ()
+                                                            )
+                                                            Mul
+                                                            (RealBinOp
+                                                                (ArrayItem
+                                                                    (Var 229 array_b)
+                                                                    [(()
+                                                                    (Var 229 i)
+                                                                    ())]
+                                                                    (Real 8)
+                                                                    RowMajor
+                                                                    ()
+                                                                )
+                                                                Pow
+                                                                (RealConstant
+                                                                    3.000000
+                                                                    (Real 8)
+                                                                )
+                                                                (Real 8)
+                                                                ()
+                                                            )
+                                                            (Real 8)
+                                                            ()
+                                                        )
+                                                        Sub
+                                                        (ArrayItem
+                                                            (Var 229 result)
+                                                            [(()
+                                                            (Var 229 i)
+                                                            ())]
+                                                            (Real 8)
+                                                            RowMajor
+                                                            ()
+                                                        )
+                                                        (Real 8)
+                                                        ()
+                                                    )]
+                                                    0
+                                                    (Real 8)
+                                                    ()
+                                                )
+                                                LtE
+                                                (Var 229 eps)
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            ()
+                                        )]
+                                        []
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            verify1d_sum:
+                                (Function
+                                    (SymbolTable
+                                        228
+                                        {
+                                            array_a:
+                                                (Variable
+                                                    228
+                                                    array_a
+                                                    []
+                                                    InOut
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Real 8)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        ())]
+                                                        DescriptorArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            array_b:
+                                                (Variable
+                                                    228
+                                                    array_b
+                                                    []
+                                                    InOut
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Real 8)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        ())]
+                                                        DescriptorArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            eps:
+                                                (Variable
+                                                    228
+                                                    eps
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            i:
+                                                (Variable
+                                                    228
+                                                    i
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            result:
+                                                (Variable
+                                                    228
+                                                    result
+                                                    []
+                                                    InOut
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Real 8)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        ())]
+                                                        DescriptorArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            size:
+                                                (Variable
+                                                    228
+                                                    size
+                                                    []
+                                                    In
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    verify1d_sum
+                                    (FunctionType
+                                        [(Array
+                                            (Real 8)
+                                            [((IntegerConstant 0 (Integer 4) Decimal)
+                                            ())]
+                                            DescriptorArray
+                                        )
+                                        (Array
+                                            (Real 8)
+                                            [((IntegerConstant 0 (Integer 4) Decimal)
+                                            ())]
+                                            DescriptorArray
+                                        )
+                                        (Array
+                                            (Real 8)
+                                            [((IntegerConstant 0 (Integer 4) Decimal)
+                                            ())]
+                                            DescriptorArray
+                                        )
+                                        (Integer 4)]
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    [(Var 228 array_a)
+                                    (Var 228 array_b)
+                                    (Var 228 result)
+                                    (Var 228 size)]
+                                    [(Assignment
+                                        (Var 228 eps)
+                                        (RealConstant
+                                            0.000000
+                                            (Real 8)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 228 i)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (Var 228 size)
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(Assert
+                                            (RealCompare
+                                                (IntrinsicElementalFunction
+                                                    Abs
+                                                    [(RealBinOp
+                                                        (RealBinOp
+                                                            (RealBinOp
+                                                                (ArrayItem
+                                                                    (Var 228 array_a)
+                                                                    [(()
+                                                                    (Var 228 i)
+                                                                    ())]
+                                                                    (Real 8)
+                                                                    RowMajor
+                                                                    ()
+                                                                )
+                                                                Pow
+                                                                (RealConstant
+                                                                    2.000000
+                                                                    (Real 8)
+                                                                )
+                                                                (Real 8)
+                                                                ()
+                                                            )
+                                                            Add
+                                                            (RealBinOp
+                                                                (RealConstant
+                                                                    5.000000
+                                                                    (Real 8)
+                                                                )
+                                                                Mul
+                                                                (RealBinOp
+                                                                    (ArrayItem
+                                                                        (Var 228 array_b)
+                                                                        [(()
+                                                                        (Var 228 i)
+                                                                        ())]
+                                                                        (Real 8)
+                                                                        RowMajor
+                                                                        ()
+                                                                    )
+                                                                    Pow
+                                                                    (RealConstant
+                                                                        3.000000
+                                                                        (Real 8)
+                                                                    )
+                                                                    (Real 8)
+                                                                    ()
+                                                                )
+                                                                (Real 8)
+                                                                ()
+                                                            )
+                                                            (Real 8)
+                                                            ()
+                                                        )
+                                                        Sub
+                                                        (ArrayItem
+                                                            (Var 228 result)
+                                                            [(()
+                                                            (Var 228 i)
+                                                            ())]
+                                                            (Real 8)
+                                                            RowMajor
+                                                            ()
+                                                        )
+                                                        (Real 8)
+                                                        ()
+                                                    )]
+                                                    0
+                                                    (Real 8)
+                                                    ()
+                                                )
+                                                LtE
+                                                (Var 228 eps)
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            ()
+                                        )]
+                                        []
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            verify2d:
+                                (Function
+                                    (SymbolTable
+                                        227
+                                        {
+                                            array:
+                                                (Variable
+                                                    227
+                                                    array
+                                                    []
+                                                    InOut
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Real 8)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        ())
+                                                        ((IntegerConstant 0 (Integer 4) Decimal)
+                                                        ())]
+                                                        DescriptorArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            block:
+                                                (Block
+                                                    (SymbolTable
+                                                        239
+                                                        {
+                                                            block:
+                                                                (Block
+                                                                    (SymbolTable
+                                                                        240
+                                                                        {
+                                                                            cos@__lpython_overloaded_0__cos:
+                                                                                (ExternalSymbol
+                                                                                    240
+                                                                                    cos@__lpython_overloaded_0__cos
+                                                                                    3 __lpython_overloaded_0__cos
+                                                                                    numpy
+                                                                                    []
+                                                                                    __lpython_overloaded_0__cos
+                                                                                    Public
+                                                                                )
+                                                                        })
+                                                                    block
+                                                                    [(Assert
+                                                                        (RealCompare
+                                                                            (IntrinsicElementalFunction
+                                                                                Abs
+                                                                                [(RealBinOp
+                                                                                    (RealBinOp
+                                                                                        (FunctionCall
+                                                                                            240 cos@__lpython_overloaded_0__cos
+                                                                                            2 cos
+                                                                                            [((ArrayItem
+                                                                                                (Var 227 array)
+                                                                                                [(()
+                                                                                                (Var 227 i)
+                                                                                                ())
+                                                                                                (()
+                                                                                                (Var 227 j)
+                                                                                                ())]
+                                                                                                (Real 8)
+                                                                                                RowMajor
+                                                                                                ()
+                                                                                            ))]
+                                                                                            (Real 8)
+                                                                                            ()
+                                                                                            ()
+                                                                                        )
+                                                                                        Pow
+                                                                                        (RealConstant
+                                                                                            2.000000
+                                                                                            (Real 8)
+                                                                                        )
+                                                                                        (Real 8)
+                                                                                        ()
+                                                                                    )
+                                                                                    Sub
+                                                                                    (ArrayItem
+                                                                                        (Var 227 result)
+                                                                                        [(()
+                                                                                        (Var 227 i)
+                                                                                        ())
+                                                                                        (()
+                                                                                        (Var 227 j)
+                                                                                        ())]
+                                                                                        (Real 8)
+                                                                                        RowMajor
+                                                                                        ()
+                                                                                    )
+                                                                                    (Real 8)
+                                                                                    ()
+                                                                                )]
+                                                                                0
+                                                                                (Real 8)
+                                                                                ()
+                                                                            )
+                                                                            LtE
+                                                                            (Var 227 eps)
+                                                                            (Logical 4)
+                                                                            ()
+                                                                        )
+                                                                        ()
+                                                                    )]
+                                                                )
+                                                        })
+                                                    block
+                                                    [(DoLoop
+                                                        ()
+                                                        ((Var 227 j)
+                                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerBinOp
+                                                            (Var 227 size2)
+                                                            Sub
+                                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                                            (Integer 4)
+                                                            ()
+                                                        )
+                                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                                        [(BlockCall
+                                                            -1
+                                                            239 block
+                                                        )]
+                                                        []
+                                                    )]
+                                                ),
+                                            eps:
+                                                (Variable
+                                                    227
+                                                    eps
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            i:
+                                                (Variable
+                                                    227
+                                                    i
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            j:
+                                                (Variable
+                                                    227
+                                                    j
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            result:
+                                                (Variable
+                                                    227
+                                                    result
+                                                    []
+                                                    InOut
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Real 8)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        ())
+                                                        ((IntegerConstant 0 (Integer 4) Decimal)
+                                                        ())]
+                                                        DescriptorArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            size1:
+                                                (Variable
+                                                    227
+                                                    size1
+                                                    []
+                                                    In
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            size2:
+                                                (Variable
+                                                    227
+                                                    size2
+                                                    []
+                                                    In
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    verify2d
+                                    (FunctionType
+                                        [(Array
+                                            (Real 8)
+                                            [((IntegerConstant 0 (Integer 4) Decimal)
+                                            ())
+                                            ((IntegerConstant 0 (Integer 4) Decimal)
+                                            ())]
+                                            DescriptorArray
+                                        )
+                                        (Array
+                                            (Real 8)
+                                            [((IntegerConstant 0 (Integer 4) Decimal)
+                                            ())
+                                            ((IntegerConstant 0 (Integer 4) Decimal)
+                                            ())]
+                                            DescriptorArray
+                                        )
+                                        (Integer 4)
+                                        (Integer 4)]
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    [(Var 227 array)
+                                    (Var 227 result)
+                                    (Var 227 size1)
+                                    (Var 227 size2)]
+                                    [(Assignment
+                                        (Var 227 eps)
+                                        (RealConstant
+                                            0.000000
+                                            (Real 8)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 227 i)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (Var 227 size1)
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(BlockCall
+                                            -1
+                                            227 block
+                                        )]
+                                        []
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            verifynd:
+                                (Function
+                                    (SymbolTable
+                                        226
+                                        {
+                                            array:
+                                                (Variable
+                                                    226
+                                                    array
+                                                    []
+                                                    InOut
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Real 8)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        ())
+                                                        ((IntegerConstant 0 (Integer 4) Decimal)
+                                                        ())
+                                                        ((IntegerConstant 0 (Integer 4) Decimal)
+                                                        ())]
+                                                        DescriptorArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            block:
+                                                (Block
+                                                    (SymbolTable
+                                                        236
+                                                        {
+                                                            block:
+                                                                (Block
+                                                                    (SymbolTable
+                                                                        237
+                                                                        {
+                                                                            block:
+                                                                                (Block
+                                                                                    (SymbolTable
+                                                                                        238
+                                                                                        {
+                                                                                            sin@__lpython_overloaded_0__sin:
+                                                                                                (ExternalSymbol
+                                                                                                    238
+                                                                                                    sin@__lpython_overloaded_0__sin
+                                                                                                    3 __lpython_overloaded_0__sin
+                                                                                                    numpy
+                                                                                                    []
+                                                                                                    __lpython_overloaded_0__sin
+                                                                                                    Public
+                                                                                                )
+                                                                                        })
+                                                                                    block
+                                                                                    [(Assert
+                                                                                        (RealCompare
+                                                                                            (IntrinsicElementalFunction
+                                                                                                Abs
+                                                                                                [(RealBinOp
+                                                                                                    (RealBinOp
+                                                                                                        (FunctionCall
+                                                                                                            238 sin@__lpython_overloaded_0__sin
+                                                                                                            2 sin
+                                                                                                            [((ArrayItem
+                                                                                                                (Var 226 array)
+                                                                                                                [(()
+                                                                                                                (Var 226 i)
+                                                                                                                ())
+                                                                                                                (()
+                                                                                                                (Var 226 j)
+                                                                                                                ())
+                                                                                                                (()
+                                                                                                                (Var 226 k)
+                                                                                                                ())]
+                                                                                                                (Real 8)
+                                                                                                                RowMajor
+                                                                                                                ()
+                                                                                                            ))]
+                                                                                                            (Real 8)
+                                                                                                            ()
+                                                                                                            ()
+                                                                                                        )
+                                                                                                        Pow
+                                                                                                        (RealConstant
+                                                                                                            2.000000
+                                                                                                            (Real 8)
+                                                                                                        )
+                                                                                                        (Real 8)
+                                                                                                        ()
+                                                                                                    )
+                                                                                                    Sub
+                                                                                                    (ArrayItem
+                                                                                                        (Var 226 result)
+                                                                                                        [(()
+                                                                                                        (Var 226 i)
+                                                                                                        ())
+                                                                                                        (()
+                                                                                                        (Var 226 j)
+                                                                                                        ())
+                                                                                                        (()
+                                                                                                        (Var 226 k)
+                                                                                                        ())]
+                                                                                                        (Real 8)
+                                                                                                        RowMajor
+                                                                                                        ()
+                                                                                                    )
+                                                                                                    (Real 8)
+                                                                                                    ()
+                                                                                                )]
+                                                                                                0
+                                                                                                (Real 8)
+                                                                                                ()
+                                                                                            )
+                                                                                            LtE
+                                                                                            (Var 226 eps)
+                                                                                            (Logical 4)
+                                                                                            ()
+                                                                                        )
+                                                                                        ()
+                                                                                    )]
+                                                                                )
+                                                                        })
+                                                                    block
+                                                                    [(DoLoop
+                                                                        ()
+                                                                        ((Var 226 k)
+                                                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                                                        (IntegerBinOp
+                                                                            (Var 226 size3)
+                                                                            Sub
+                                                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                                                            (Integer 4)
+                                                                            ()
+                                                                        )
+                                                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                                                        [(BlockCall
+                                                                            -1
+                                                                            237 block
+                                                                        )]
+                                                                        []
+                                                                    )]
+                                                                )
+                                                        })
+                                                    block
+                                                    [(DoLoop
+                                                        ()
+                                                        ((Var 226 j)
+                                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerBinOp
+                                                            (Var 226 size2)
+                                                            Sub
+                                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                                            (Integer 4)
+                                                            ()
+                                                        )
+                                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                                        [(BlockCall
+                                                            -1
+                                                            236 block
+                                                        )]
+                                                        []
+                                                    )]
+                                                ),
+                                            eps:
+                                                (Variable
+                                                    226
+                                                    eps
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            i:
+                                                (Variable
+                                                    226
+                                                    i
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            j:
+                                                (Variable
+                                                    226
+                                                    j
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            k:
+                                                (Variable
+                                                    226
+                                                    k
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            result:
+                                                (Variable
+                                                    226
+                                                    result
+                                                    []
+                                                    InOut
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Real 8)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        ())
+                                                        ((IntegerConstant 0 (Integer 4) Decimal)
+                                                        ())
+                                                        ((IntegerConstant 0 (Integer 4) Decimal)
+                                                        ())]
+                                                        DescriptorArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            size1:
+                                                (Variable
+                                                    226
+                                                    size1
+                                                    []
+                                                    In
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            size2:
+                                                (Variable
+                                                    226
+                                                    size2
+                                                    []
+                                                    In
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            size3:
+                                                (Variable
+                                                    226
+                                                    size3
+                                                    []
+                                                    In
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    verifynd
+                                    (FunctionType
+                                        [(Array
+                                            (Real 8)
+                                            [((IntegerConstant 0 (Integer 4) Decimal)
+                                            ())
+                                            ((IntegerConstant 0 (Integer 4) Decimal)
+                                            ())
+                                            ((IntegerConstant 0 (Integer 4) Decimal)
+                                            ())]
+                                            DescriptorArray
+                                        )
+                                        (Array
+                                            (Real 8)
+                                            [((IntegerConstant 0 (Integer 4) Decimal)
+                                            ())
+                                            ((IntegerConstant 0 (Integer 4) Decimal)
+                                            ())
+                                            ((IntegerConstant 0 (Integer 4) Decimal)
+                                            ())]
+                                            DescriptorArray
+                                        )
+                                        (Integer 4)
+                                        (Integer 4)
+                                        (Integer 4)]
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    [(Var 226 array)
+                                    (Var 226 result)
+                                    (Var 226 size1)
+                                    (Var 226 size2)
+                                    (Var 226 size3)]
+                                    [(Assignment
+                                        (Var 226 eps)
+                                        (RealConstant
+                                            0.000000
+                                            (Real 8)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 226 i)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (Var 226 size1)
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(BlockCall
+                                            -1
+                                            226 block
+                                        )]
+                                        []
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    [numpy]
+                    .false.
+                    .false.
+                    .false.
+                ),
+            lpython_builtin:
+                (IntrinsicModule lpython_builtin),
+            main_program:
+                (Program
+                    (SymbolTable
+                        259
+                        {
+                            __main__global_stmts:
+                                (ExternalSymbol
+                                    259
+                                    __main__global_stmts
+                                    2 __main__global_stmts
+                                    __main__
+                                    []
+                                    __main__global_stmts
+                                    Public
+                                )
+                        })
+                    main_program
+                    [__main__]
+                    [(SubroutineCall
+                        259 __main__global_stmts
+                        2 __main__global_stmts
+                        []
+                        ()
+                        .false.
+                    )]
+                ),
+            numpy:
+                (Module numpy)
+        })
+    []
+)
diff --git a/tests/reference/asr-enum_01-30e1b4a.json b/tests/reference/asr-enum_01-30e1b4a.json
index 3a214c68be..f21587576e 100644
--- a/tests/reference/asr-enum_01-30e1b4a.json
+++ b/tests/reference/asr-enum_01-30e1b4a.json
@@ -2,7 +2,7 @@
     "basename": "asr-enum_01-30e1b4a",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/errors/enum_01.py",
-    "infile_hash": "e74a9bf9d2f2079e8df9676b3234835e39eb3b15bdeb758246470cf5",
+    "infile_hash": "5f229c1dc30fb06044461359242b2a63d9b93c4086669b391cef7426",
     "outfile": null,
     "outfile_hash": null,
     "stdout": null,
diff --git a/tests/reference/asr-enum_02-54656c5.json b/tests/reference/asr-enum_02-54656c5.json
index 8778ac654a..a989cef176 100644
--- a/tests/reference/asr-enum_02-54656c5.json
+++ b/tests/reference/asr-enum_02-54656c5.json
@@ -2,7 +2,7 @@
     "basename": "asr-enum_02-54656c5",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/errors/enum_02.py",
-    "infile_hash": "6798550e5836b393a0fc498de2452048cd98dcad769d9ace6d144ecf",
+    "infile_hash": "8ef155d733622824b261f286d72fb1be235bc6e73586a7acc02906d3",
     "outfile": null,
     "outfile_hash": null,
     "stdout": null,
diff --git a/tests/reference/asr-expr1-8df2d66.json b/tests/reference/asr-expr1-8df2d66.json
index cd81b72b51..0368b642f3 100644
--- a/tests/reference/asr-expr1-8df2d66.json
+++ b/tests/reference/asr-expr1-8df2d66.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "asr-expr1-8df2d66.stdout",
-    "stdout_hash": "fadfe6329ba5deb5f9e55082b47e7f97a6a42775fdf0d2aecf8e70f2",
+    "stdout_hash": "1e465939c64050a35b58af65eb027f1e7e9645fb02a02d3f9c9afa0c",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/asr-expr1-8df2d66.stdout b/tests/reference/asr-expr1-8df2d66.stdout
index e6f7ac085d..f63516c8bb 100644
--- a/tests/reference/asr-expr1-8df2d66.stdout
+++ b/tests/reference/asr-expr1-8df2d66.stdout
@@ -1 +1,173 @@
-(TranslationUnit (SymbolTable 1 {main_program: (Program (SymbolTable 3 {}) main_program [] []), test_namedexpr: (Function (SymbolTable 2 {a: (Variable 2 a [] Local () () Default (Integer 4 []) Source Public Required .false.), x: (Variable 2 x [] Local () () Default (Integer 4 []) Source Public Required .false.), y: (Variable 2 y [] Local () () Default (Integer 4 []) Source Public Required .false.)}) test_namedexpr (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [] [(= (Var 2 x) (NamedExpr (Var 2 y) (IntegerConstant 0 (Integer 4 [])) (Integer 4 [])) ()) (If (NamedExpr (Var 2 a) (StringOrd (StringConstant "3" (Character 1 1 () [])) (Integer 4 []) (IntegerConstant 51 (Integer 4 []))) (Integer 4 [])) [(= (Var 2 x) (IntegerConstant 1 (Integer 4 [])) ())] []) (WhileLoop (NamedExpr (Var 2 a) (IntegerConstant 1 (Integer 4 [])) (Integer 4 [])) [(= (Var 2 y) (IntegerConstant 1 (Integer 4 [])) ())])] () Public .false. .false.)}) [])
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            test_namedexpr:
+                                (Function
+                                    (SymbolTable
+                                        3
+                                        {
+                                            a:
+                                                (Variable
+                                                    3
+                                                    a
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            x:
+                                                (Variable
+                                                    3
+                                                    x
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            y:
+                                                (Variable
+                                                    3
+                                                    y
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test_namedexpr
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 3 x)
+                                        (NamedExpr
+                                            (Var 3 y)
+                                            (IntegerConstant 0 (Integer 4) Decimal)
+                                            (Integer 4)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (If
+                                        ()
+                                        (NamedExpr
+                                            (Var 3 a)
+                                            (StringOrd
+                                                (StringConstant
+                                                    "3"
+                                                    (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                                (Integer 4)
+                                                (IntegerConstant 51 (Integer 4) Decimal)
+                                            )
+                                            (Integer 4)
+                                        )
+                                        [(Assignment
+                                            (Var 3 x)
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            ()
+                                            .false.
+                                            .false.
+                                        )]
+                                        []
+                                    )
+                                    (WhileLoop
+                                        ()
+                                        (NamedExpr
+                                            (Var 3 a)
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                        )
+                                        [(Assignment
+                                            (Var 3 y)
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            ()
+                                            .false.
+                                            .false.
+                                        )]
+                                        []
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    []
+                    .false.
+                    .false.
+                    .false.
+                ),
+            main_program:
+                (Program
+                    (SymbolTable
+                        4
+                        {
+                            
+                        })
+                    main_program
+                    []
+                    []
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-expr10-efcbb1b.json b/tests/reference/asr-expr10-efcbb1b.json
index 970e63c656..299ac58271 100644
--- a/tests/reference/asr-expr10-efcbb1b.json
+++ b/tests/reference/asr-expr10-efcbb1b.json
@@ -2,11 +2,11 @@
     "basename": "asr-expr10-efcbb1b",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/expr10.py",
-    "infile_hash": "2c90a0c7da6ba455ad6b7c1d43ffd578e78551f9b3e792144b6dd1cd",
+    "infile_hash": "7eb1dd6ad27fcc091e18c4447fb7a56c659565bbdb57f567b68f4a58",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "asr-expr10-efcbb1b.stdout",
-    "stdout_hash": "ad166051dda9ee0b97b768ad8464b1d0034cbad7e8cd04af1092c619",
+    "stdout_hash": "3cbfe4d994fad952c8563a7bbf077ed24bbb471d53e149f60dbd917c",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/asr-expr10-efcbb1b.stdout b/tests/reference/asr-expr10-efcbb1b.stdout
index b97a37f0c2..50d670f6c6 100644
--- a/tests/reference/asr-expr10-efcbb1b.stdout
+++ b/tests/reference/asr-expr10-efcbb1b.stdout
@@ -1 +1,526 @@
-(TranslationUnit (SymbolTable 1 {lpython_builtin: (IntrinsicModule lpython_builtin), main_program: (Program (SymbolTable 96 {}) main_program [] []), test_UnaryOp: (Function (SymbolTable 2 {a: (Variable 2 a [] Local () () Default (Integer 4 []) Source Public Required .false.), b: (Variable 2 b [] Local () () Default (Logical 4 []) Source Public Required .false.), b1: (Variable 2 b1 [] Local () () Default (Logical 4 []) Source Public Required .false.), b2: (Variable 2 b2 [] Local () () Default (Logical 4 []) Source Public Required .false.), b3: (Variable 2 b3 [] Local () () Default (Logical 4 []) Source Public Required .false.), c: (Variable 2 c [] Local () () Default (Complex 4 []) Source Public Required .false.), complex: (ExternalSymbol 2 complex 4 complex lpython_builtin [] complex Private), complex@__lpython_overloaded_13__complex: (ExternalSymbol 2 complex@__lpython_overloaded_13__complex 4 __lpython_overloaded_13__complex lpython_builtin [] __lpython_overloaded_13__complex Public), complex@__lpython_overloaded_9__complex: (ExternalSymbol 2 complex@__lpython_overloaded_9__complex 4 __lpython_overloaded_9__complex lpython_builtin [] __lpython_overloaded_9__complex Public), f: (Variable 2 f [] Local () () Default (Real 4 []) Source Public Required .false.)}) test_UnaryOp (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [complex@__lpython_overloaded_13__complex] [] [(= (Var 2 a) (IntegerConstant 4 (Integer 4 [])) ()) (= (Var 2 a) (IntegerUnaryMinus (IntegerConstant 500 (Integer 4 [])) (Integer 4 []) (IntegerConstant -500 (Integer 4 []))) ()) (= (Var 2 a) (IntegerBitNot (IntegerConstant 5 (Integer 4 [])) (Integer 4 []) (IntegerConstant -6 (Integer 4 []))) ()) (= (Var 2 b) (LogicalNot (Cast (IntegerConstant 5 (Integer 4 [])) IntegerToLogical (Logical 4 []) (LogicalConstant .false. (Logical 4 []))) (Logical 4 []) (LogicalConstant .false. (Logical 4 []))) ()) (= (Var 2 b) (LogicalNot (Cast (IntegerUnaryMinus (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant -1 (Integer 4 []))) IntegerToLogical (Logical 4 []) (LogicalConstant .false. (Logical 4 []))) (Logical 4 []) (LogicalConstant .false. (Logical 4 []))) ()) (= (Var 2 b) (LogicalNot (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToLogical (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (= (Var 2 f) (RealConstant 1.000000 (Real 4 [])) ()) (= (Var 2 f) (RealUnaryMinus (Cast (RealConstant 183745.534000 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 183745.534000 (Real 4 []))) (Real 4 []) (RealConstant -183745.534000 (Real 4 []))) ()) (= (Var 2 b1) (LogicalConstant .true. (Logical 4 [])) ()) (= (Var 2 b2) (LogicalNot (LogicalConstant .false. (Logical 4 [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (= (Var 2 b3) (LogicalNot (Var 2 b2) (Logical 4 []) ()) ()) (= (Var 2 a) (IntegerConstant 1 (Integer 4 [])) ()) (= (Var 2 a) (IntegerUnaryMinus (Cast (LogicalConstant .false. (Logical 4 [])) LogicalToInteger (Integer 4 []) (IntegerConstant 0 (Integer 4 []))) (Integer 4 []) (IntegerConstant 0 (Integer 4 []))) ()) (= (Var 2 a) (IntegerBitNot (Cast (LogicalConstant .true. (Logical 4 [])) LogicalToInteger (Integer 4 []) (IntegerConstant -2 (Integer 4 []))) (Integer 4 []) (IntegerConstant -2 (Integer 4 []))) ()) (= (Var 2 c) (ComplexConstant 1.000000 2.000000 (Complex 4 [])) ()) (= (Var 2 c) (ComplexUnaryMinus (Cast (FunctionCall 2 complex@__lpython_overloaded_13__complex 2 complex [((IntegerConstant 3 (Integer 4 []))) ((RealConstant 65.000000 (Real 8 [])))] (Complex 8 []) (ComplexConstant 3.000000 65.000000 (Complex 8 [])) ()) ComplexToComplex (Complex 4 []) (ComplexConstant 3.000000 65.000000 (Complex 4 []))) (Complex 4 []) (ComplexConstant -3.000000 -65.000000 (Complex 4 []))) ()) (= (Var 2 b1) (LogicalConstant .false. (Logical 4 [])) ()) (= (Var 2 b2) (LogicalConstant .true. (Logical 4 [])) ())] () Public .false. .false.)}) [])
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            test_UnaryOp:
+                                (Function
+                                    (SymbolTable
+                                        3
+                                        {
+                                            a:
+                                                (Variable
+                                                    3
+                                                    a
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            b:
+                                                (Variable
+                                                    3
+                                                    b
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Logical 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            b1:
+                                                (Variable
+                                                    3
+                                                    b1
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Logical 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            b2:
+                                                (Variable
+                                                    3
+                                                    b2
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Logical 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            b3:
+                                                (Variable
+                                                    3
+                                                    b3
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Logical 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            c:
+                                                (Variable
+                                                    3
+                                                    c
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Complex 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            complex:
+                                                (ExternalSymbol
+                                                    3
+                                                    complex
+                                                    4 complex
+                                                    lpython_builtin
+                                                    []
+                                                    complex
+                                                    Private
+                                                ),
+                                            complex@__lpython_overloaded_13__complex:
+                                                (ExternalSymbol
+                                                    3
+                                                    complex@__lpython_overloaded_13__complex
+                                                    4 __lpython_overloaded_13__complex
+                                                    lpython_builtin
+                                                    []
+                                                    __lpython_overloaded_13__complex
+                                                    Public
+                                                ),
+                                            complex@__lpython_overloaded_9__complex:
+                                                (ExternalSymbol
+                                                    3
+                                                    complex@__lpython_overloaded_9__complex
+                                                    4 __lpython_overloaded_9__complex
+                                                    lpython_builtin
+                                                    []
+                                                    __lpython_overloaded_9__complex
+                                                    Public
+                                                ),
+                                            f:
+                                                (Variable
+                                                    3
+                                                    f
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test_UnaryOp
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 3 a)
+                                        (IntegerConstant 4 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 a)
+                                        (IntegerUnaryMinus
+                                            (IntegerConstant 500 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            (IntegerConstant -500 (Integer 4) Decimal)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 a)
+                                        (IntegerBitNot
+                                            (IntegerConstant 5 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            (IntegerConstant -6 (Integer 4) Decimal)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 b)
+                                        (LogicalNot
+                                            (Cast
+                                                (IntegerConstant 5 (Integer 4) Decimal)
+                                                IntegerToLogical
+                                                (Logical 4)
+                                                (LogicalConstant
+                                                    .false.
+                                                    (Logical 4)
+                                                )
+                                            )
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .false.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 b)
+                                        (LogicalNot
+                                            (Cast
+                                                (IntegerUnaryMinus
+                                                    (IntegerConstant 1 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    (IntegerConstant -1 (Integer 4) Decimal)
+                                                )
+                                                IntegerToLogical
+                                                (Logical 4)
+                                                (LogicalConstant
+                                                    .false.
+                                                    (Logical 4)
+                                                )
+                                            )
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .false.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 b)
+                                        (LogicalNot
+                                            (Cast
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                IntegerToLogical
+                                                (Logical 4)
+                                                (LogicalConstant
+                                                    .true.
+                                                    (Logical 4)
+                                                )
+                                            )
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 f)
+                                        (RealConstant
+                                            1.000000
+                                            (Real 4)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 f)
+                                        (RealUnaryMinus
+                                            (Cast
+                                                (RealConstant
+                                                    183745.534000
+                                                    (Real 8)
+                                                )
+                                                RealToReal
+                                                (Real 4)
+                                                (RealConstant
+                                                    183745.534000
+                                                    (Real 4)
+                                                )
+                                            )
+                                            (Real 4)
+                                            (RealConstant
+                                                -183745.534000
+                                                (Real 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 b1)
+                                        (LogicalConstant
+                                            .true.
+                                            (Logical 4)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 b2)
+                                        (LogicalNot
+                                            (LogicalConstant
+                                                .false.
+                                                (Logical 4)
+                                            )
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 b3)
+                                        (LogicalNot
+                                            (Var 3 b2)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 a)
+                                        (IntegerConstant 1 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 a)
+                                        (IntegerUnaryMinus
+                                            (Cast
+                                                (LogicalConstant
+                                                    .false.
+                                                    (Logical 4)
+                                                )
+                                                LogicalToInteger
+                                                (Integer 4)
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                            )
+                                            (Integer 4)
+                                            (IntegerConstant 0 (Integer 4) Decimal)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 a)
+                                        (IntegerBitNot
+                                            (Cast
+                                                (LogicalConstant
+                                                    .true.
+                                                    (Logical 4)
+                                                )
+                                                LogicalToInteger
+                                                (Integer 4)
+                                                (IntegerConstant -2 (Integer 4) Decimal)
+                                            )
+                                            (Integer 4)
+                                            (IntegerConstant -2 (Integer 4) Decimal)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 c)
+                                        (ComplexConstant
+                                            1.000000
+                                            2.000000
+                                            (Complex 4)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 c)
+                                        (ComplexUnaryMinus
+                                            (Cast
+                                                (FunctionCall
+                                                    3 complex@__lpython_overloaded_13__complex
+                                                    3 complex
+                                                    [((IntegerConstant 3 (Integer 4) Decimal))
+                                                    ((RealConstant
+                                                        65.000000
+                                                        (Real 8)
+                                                    ))]
+                                                    (Complex 8)
+                                                    (ComplexConstant
+                                                        3.000000
+                                                        65.000000
+                                                        (Complex 8)
+                                                    )
+                                                    ()
+                                                )
+                                                ComplexToComplex
+                                                (Complex 4)
+                                                (ComplexConstant
+                                                    3.000000
+                                                    65.000000
+                                                    (Complex 4)
+                                                )
+                                            )
+                                            (Complex 4)
+                                            (ComplexConstant
+                                                -3.000000
+                                                -65.000000
+                                                (Complex 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 b1)
+                                        (LogicalConstant
+                                            .false.
+                                            (Logical 4)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 b2)
+                                        (LogicalConstant
+                                            .true.
+                                            (Logical 4)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    [lpython_builtin]
+                    .false.
+                    .false.
+                    .false.
+                ),
+            lpython_builtin:
+                (IntrinsicModule lpython_builtin),
+            main_program:
+                (Program
+                    (SymbolTable
+                        141
+                        {
+                            
+                        })
+                    main_program
+                    []
+                    []
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-expr11-9b91d35.json b/tests/reference/asr-expr11-9b91d35.json
deleted file mode 100644
index 53550042f2..0000000000
--- a/tests/reference/asr-expr11-9b91d35.json
+++ /dev/null
@@ -1,13 +0,0 @@
-{
-    "basename": "asr-expr11-9b91d35",
-    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
-    "infile": "tests/expr11.py",
-    "infile_hash": "940f2d32759315dfb8d54ea50819f2bfef9737e486615703609fd47a",
-    "outfile": null,
-    "outfile_hash": null,
-    "stdout": "asr-expr11-9b91d35.stdout",
-    "stdout_hash": "36c460fa8c7d856d03dcf9e2d0a42773ccf6ff0384523f90af847a41",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
-}
\ No newline at end of file
diff --git a/tests/reference/asr-expr11-9b91d35.stdout b/tests/reference/asr-expr11-9b91d35.stdout
deleted file mode 100644
index 1afa68bdaf..0000000000
--- a/tests/reference/asr-expr11-9b91d35.stdout
+++ /dev/null
@@ -1 +0,0 @@
-(TranslationUnit (SymbolTable 1 {main_program: (Program (SymbolTable 3 {}) main_program [] []), test_StrOp_repeat: (Function (SymbolTable 2 {s: (Variable 2 s [] Local () () Default (Character 1 -2 () []) Source Public Required .false.)}) test_StrOp_repeat (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [] [(= (Var 2 s) (StringRepeat (StringConstant "a" (Character 1 1 () [])) (IntegerConstant 2 (Integer 4 [])) (Character 1 2 () []) (StringConstant "aa" (Character 1 2 () []))) ()) (= (Var 2 s) (StringRepeat (StringConstant "a" (Character 1 1 () [])) (IntegerUnaryMinus (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant -1 (Integer 4 []))) (Character 1 0 () []) (StringConstant "" (Character 1 0 () []))) ()) (= (Var 2 s) (StringRepeat (StringConstant "test" (Character 1 4 () [])) (IntegerConstant 5 (Integer 4 [])) (Character 1 20 () []) (StringConstant "testtesttesttesttest" (Character 1 20 () []))) ()) (= (Var 2 s) (StringRepeat (StringConstant "bb" (Character 1 2 () [])) (IntegerConstant 4 (Integer 4 [])) (Character 1 8 () []) (StringConstant "bbbbbbbb" (Character 1 8 () []))) ()) (= (Var 2 s) (StringRepeat (StringConstant "bb" (Character 1 2 () [])) (IntegerUnaryMinus (IntegerConstant 40 (Integer 4 [])) (Integer 4 []) (IntegerConstant -40 (Integer 4 []))) (Character 1 0 () []) (StringConstant "" (Character 1 0 () []))) ()) (= (Var 2 s) (StringRepeat (StringRepeat (StringConstant "a" (Character 1 1 () [])) (IntegerConstant 3 (Integer 4 [])) (Character 1 3 () []) (StringConstant "aaa" (Character 1 3 () []))) (IntegerConstant 3 (Integer 4 [])) (Character 1 9 () []) (StringConstant "aaaaaaaaa" (Character 1 9 () []))) ())] () Public .false. .false.)}) [])
diff --git a/tests/reference/asr-expr12-5c5b71e.json b/tests/reference/asr-expr12-5c5b71e.json
index 497e4754b9..7419c6aa6d 100644
--- a/tests/reference/asr-expr12-5c5b71e.json
+++ b/tests/reference/asr-expr12-5c5b71e.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "asr-expr12-5c5b71e.stdout",
-    "stdout_hash": "fb3fec49555515e482602515b45b97cbb7baf167385a01d2c2e3e585",
+    "stdout_hash": "cc6c4ec35bc4bc12b9c882df9f76746724ec38d505283d98a8aff8ca",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/asr-expr12-5c5b71e.stdout b/tests/reference/asr-expr12-5c5b71e.stdout
index 941c6c83e9..29b5e5d076 100644
--- a/tests/reference/asr-expr12-5c5b71e.stdout
+++ b/tests/reference/asr-expr12-5c5b71e.stdout
@@ -1 +1,349 @@
-(TranslationUnit (SymbolTable 1 {_lpython_main_program: (Function (SymbolTable 6 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [main0] [] [(SubroutineCall 1 main0 () [] ())] () Public .false. .false.), check: (Function (SymbolTable 3 {_lpython_return_variable: (Variable 3 _lpython_return_variable [] ReturnVar () () Default (Integer 4 []) Source Public Required .false.), a: (Variable 3 a [] Local () () Default (Integer 4 []) Source Public Required .false.)}) check (FunctionType [] (Integer 4 []) Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [test] [] [(= (Var 3 a) (FunctionCall 1 test () [((IntegerConstant 2 (Integer 4 []))) ((IntegerConstant 2 (Integer 4 [])))] (Integer 4 []) () ()) ()) (= (Var 3 _lpython_return_variable) (Var 3 a) ()) (Return)] (Var 3 _lpython_return_variable) Public .false. .false.), main0: (Function (SymbolTable 4 {x: (Variable 4 x [] Local () () Default (Integer 4 []) Source Public Required .false.)}) main0 (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [check] [] [(= (Var 4 x) (FunctionCall 1 check () [] (Integer 4 []) () ()) ())] () Public .false. .false.), main_program: (Program (SymbolTable 5 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())]), test: (Function (SymbolTable 2 {_lpython_return_variable: (Variable 2 _lpython_return_variable [] ReturnVar () () Default (Integer 4 []) Source Public Required .false.), a: (Variable 2 a [] In () () Default (Integer 4 []) Source Public Required .false.), b: (Variable 2 b [] In () () Default (Integer 4 []) Source Public Required .false.)}) test (FunctionType [(Integer 4 []) (Integer 4 [])] (Integer 4 []) Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 2 a) (Var 2 b)] [(= (Var 2 _lpython_return_variable) (IntegerBinOp (Var 2 a) Pow (Var 2 b) (Integer 4 []) ()) ()) (Return)] (Var 2 _lpython_return_variable) Public .false. .false.)}) [])
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            __main__global_stmts:
+                                (Function
+                                    (SymbolTable
+                                        6
+                                        {
+                                            
+                                        })
+                                    __main__global_stmts
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [main0]
+                                    []
+                                    [(SubroutineCall
+                                        2 main0
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            check:
+                                (Function
+                                    (SymbolTable
+                                        4
+                                        {
+                                            _lpython_return_variable:
+                                                (Variable
+                                                    4
+                                                    _lpython_return_variable
+                                                    []
+                                                    ReturnVar
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            a:
+                                                (Variable
+                                                    4
+                                                    a
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    check
+                                    (FunctionType
+                                        []
+                                        (Integer 4)
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [test]
+                                    []
+                                    [(Assignment
+                                        (Var 4 a)
+                                        (FunctionCall
+                                            2 test
+                                            ()
+                                            [((IntegerConstant 2 (Integer 4) Decimal))
+                                            ((IntegerConstant 2 (Integer 4) Decimal))]
+                                            (Integer 4)
+                                            ()
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 _lpython_return_variable)
+                                        (Var 4 a)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Return)]
+                                    (Var 4 _lpython_return_variable)
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            main0:
+                                (Function
+                                    (SymbolTable
+                                        5
+                                        {
+                                            x:
+                                                (Variable
+                                                    5
+                                                    x
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    main0
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [check]
+                                    []
+                                    [(Assignment
+                                        (Var 5 x)
+                                        (FunctionCall
+                                            2 check
+                                            ()
+                                            []
+                                            (Integer 4)
+                                            ()
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            test:
+                                (Function
+                                    (SymbolTable
+                                        3
+                                        {
+                                            _lpython_return_variable:
+                                                (Variable
+                                                    3
+                                                    _lpython_return_variable
+                                                    []
+                                                    ReturnVar
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            a:
+                                                (Variable
+                                                    3
+                                                    a
+                                                    []
+                                                    In
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            b:
+                                                (Variable
+                                                    3
+                                                    b
+                                                    []
+                                                    In
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test
+                                    (FunctionType
+                                        [(Integer 4)
+                                        (Integer 4)]
+                                        (Integer 4)
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    [(Var 3 a)
+                                    (Var 3 b)]
+                                    [(Assignment
+                                        (Var 3 _lpython_return_variable)
+                                        (IntegerBinOp
+                                            (Var 3 a)
+                                            Pow
+                                            (Var 3 b)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Return)]
+                                    (Var 3 _lpython_return_variable)
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    []
+                    .false.
+                    .false.
+                    .false.
+                ),
+            main_program:
+                (Program
+                    (SymbolTable
+                        7
+                        {
+                            __main__global_stmts:
+                                (ExternalSymbol
+                                    7
+                                    __main__global_stmts
+                                    2 __main__global_stmts
+                                    __main__
+                                    []
+                                    __main__global_stmts
+                                    Public
+                                )
+                        })
+                    main_program
+                    [__main__]
+                    [(SubroutineCall
+                        7 __main__global_stmts
+                        2 __main__global_stmts
+                        []
+                        ()
+                        .false.
+                    )]
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-expr13-81bdb5a.json b/tests/reference/asr-expr13-81bdb5a.json
index c99c0c7a44..3dd59bd581 100644
--- a/tests/reference/asr-expr13-81bdb5a.json
+++ b/tests/reference/asr-expr13-81bdb5a.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "asr-expr13-81bdb5a.stdout",
-    "stdout_hash": "5bfff58a454193c4890605aaa828d95eaf1e8cbe386124e0276c3e80",
+    "stdout_hash": "52882df17badee03a96962a6df6dad92dce33e1fcac786ea9a68abce",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/asr-expr13-81bdb5a.stdout b/tests/reference/asr-expr13-81bdb5a.stdout
index 6a7102e769..d67086e878 100644
--- a/tests/reference/asr-expr13-81bdb5a.stdout
+++ b/tests/reference/asr-expr13-81bdb5a.stdout
@@ -1 +1,494 @@
-(TranslationUnit (SymbolTable 1 {lpython_builtin: (IntrinsicModule lpython_builtin), main_program: (Program (SymbolTable 96 {}) main_program [] []), test_Compare: (Function (SymbolTable 2 {a: (Variable 2 a [] Local () () Default (Logical 4 []) Source Public Required .false.), complex: (ExternalSymbol 2 complex 4 complex lpython_builtin [] complex Private), complex@__lpython_overloaded_5__complex: (ExternalSymbol 2 complex@__lpython_overloaded_5__complex 4 __lpython_overloaded_5__complex lpython_builtin [] __lpython_overloaded_5__complex Public), complex@__lpython_overloaded_9__complex: (ExternalSymbol 2 complex@__lpython_overloaded_9__complex 4 __lpython_overloaded_9__complex lpython_builtin [] __lpython_overloaded_9__complex Public)}) test_Compare (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [complex@__lpython_overloaded_5__complex complex@__lpython_overloaded_9__complex] [] [(= (Var 2 a) (IntegerCompare (IntegerConstant 5 (Integer 4 [])) Gt (IntegerConstant 4 (Integer 4 [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (= (Var 2 a) (IntegerCompare (IntegerConstant 5 (Integer 4 [])) LtE (IntegerConstant 4 (Integer 4 [])) (Logical 4 []) (LogicalConstant .false. (Logical 4 []))) ()) (= (Var 2 a) (IntegerCompare (IntegerConstant 5 (Integer 4 [])) Lt (IntegerConstant 4 (Integer 4 [])) (Logical 4 []) (LogicalConstant .false. (Logical 4 []))) ()) (= (Var 2 a) (RealCompare (RealConstant 5.600000 (Real 8 [])) GtE (RealConstant 5.599990 (Real 8 [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (= (Var 2 a) (RealCompare (RealConstant 3.300000 (Real 8 [])) Eq (RealConstant 3.300000 (Real 8 [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (= (Var 2 a) (RealCompare (RealConstant 3.300000 (Real 8 [])) NotEq (RealConstant 3.400000 (Real 8 [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (= (Var 2 a) (ComplexCompare (FunctionCall 2 complex@__lpython_overloaded_9__complex 2 complex [((IntegerConstant 3 (Integer 4 []))) ((IntegerConstant 4 (Integer 4 [])))] (Complex 8 []) (ComplexConstant 3.000000 4.000000 (Complex 8 [])) ()) Eq (FunctionCall 2 complex@__lpython_overloaded_5__complex 2 complex [((RealConstant 3.000000 (Real 8 []))) ((RealConstant 4.000000 (Real 8 [])))] (Complex 8 []) (ComplexConstant 3.000000 4.000000 (Complex 8 [])) ()) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (= (Var 2 a) (StringCompare (StringConstant "abc" (Character 1 3 () [])) Gt (StringConstant "abd" (Character 1 3 () [])) (Logical 4 []) (LogicalConstant .false. (Logical 4 []))) ()) (= (Var 2 a) (StringCompare (StringConstant "" (Character 1 0 () [])) Lt (StringConstant "s" (Character 1 1 () [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (= (Var 2 a) (StringCompare (StringConstant "-abs" (Character 1 4 () [])) GtE (StringConstant "abs" (Character 1 3 () [])) (Logical 4 []) (LogicalConstant .false. (Logical 4 []))) ()) (= (Var 2 a) (StringCompare (StringConstant "abcd" (Character 1 4 () [])) LtE (StringConstant "abcde" (Character 1 5 () [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (= (Var 2 a) (StringCompare (StringConstant "abc" (Character 1 3 () [])) Eq (StringConstant "abc" (Character 1 3 () [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (= (Var 2 a) (StringCompare (StringConstant "abc" (Character 1 3 () [])) NotEq (StringConstant "abd" (Character 1 3 () [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (= (Var 2 a) (StringCompare (StringConstant "" (Character 1 0 () [])) Eq (StringConstant "+" (Character 1 1 () [])) (Logical 4 []) (LogicalConstant .false. (Logical 4 []))) ()) (= (Var 2 a) (LogicalCompare (LogicalConstant .true. (Logical 4 [])) Gt (LogicalConstant .false. (Logical 4 [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (= (Var 2 a) (LogicalCompare (LogicalConstant .true. (Logical 4 [])) Eq (LogicalConstant .true. (Logical 4 [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (= (Var 2 a) (LogicalCompare (LogicalConstant .false. (Logical 4 [])) NotEq (LogicalConstant .true. (Logical 4 [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (= (Var 2 a) (LogicalCompare (LogicalConstant .false. (Logical 4 [])) GtE (LogicalConstant .true. (Logical 4 [])) (Logical 4 []) (LogicalConstant .false. (Logical 4 []))) ())] () Public .false. .false.)}) [])
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            test_Compare:
+                                (Function
+                                    (SymbolTable
+                                        3
+                                        {
+                                            a:
+                                                (Variable
+                                                    3
+                                                    a
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Logical 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            complex:
+                                                (ExternalSymbol
+                                                    3
+                                                    complex
+                                                    4 complex
+                                                    lpython_builtin
+                                                    []
+                                                    complex
+                                                    Private
+                                                ),
+                                            complex@__lpython_overloaded_5__complex:
+                                                (ExternalSymbol
+                                                    3
+                                                    complex@__lpython_overloaded_5__complex
+                                                    4 __lpython_overloaded_5__complex
+                                                    lpython_builtin
+                                                    []
+                                                    __lpython_overloaded_5__complex
+                                                    Public
+                                                ),
+                                            complex@__lpython_overloaded_9__complex:
+                                                (ExternalSymbol
+                                                    3
+                                                    complex@__lpython_overloaded_9__complex
+                                                    4 __lpython_overloaded_9__complex
+                                                    lpython_builtin
+                                                    []
+                                                    __lpython_overloaded_9__complex
+                                                    Public
+                                                )
+                                        })
+                                    test_Compare
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 3 a)
+                                        (IntegerCompare
+                                            (IntegerConstant 5 (Integer 4) Decimal)
+                                            Gt
+                                            (IntegerConstant 4 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 a)
+                                        (IntegerCompare
+                                            (IntegerConstant 5 (Integer 4) Decimal)
+                                            LtE
+                                            (IntegerConstant 4 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .false.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 a)
+                                        (IntegerCompare
+                                            (IntegerConstant 5 (Integer 4) Decimal)
+                                            Lt
+                                            (IntegerConstant 4 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .false.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 a)
+                                        (RealCompare
+                                            (RealConstant
+                                                5.600000
+                                                (Real 8)
+                                            )
+                                            GtE
+                                            (RealConstant
+                                                5.599990
+                                                (Real 8)
+                                            )
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 a)
+                                        (RealCompare
+                                            (RealConstant
+                                                3.300000
+                                                (Real 8)
+                                            )
+                                            Eq
+                                            (RealConstant
+                                                3.300000
+                                                (Real 8)
+                                            )
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 a)
+                                        (RealCompare
+                                            (RealConstant
+                                                3.300000
+                                                (Real 8)
+                                            )
+                                            NotEq
+                                            (RealConstant
+                                                3.400000
+                                                (Real 8)
+                                            )
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 a)
+                                        (ComplexCompare
+                                            (FunctionCall
+                                                3 complex@__lpython_overloaded_9__complex
+                                                3 complex
+                                                [((IntegerConstant 3 (Integer 4) Decimal))
+                                                ((IntegerConstant 4 (Integer 4) Decimal))]
+                                                (Complex 8)
+                                                (ComplexConstant
+                                                    3.000000
+                                                    4.000000
+                                                    (Complex 8)
+                                                )
+                                                ()
+                                            )
+                                            Eq
+                                            (FunctionCall
+                                                3 complex@__lpython_overloaded_5__complex
+                                                3 complex
+                                                [((RealConstant
+                                                    3.000000
+                                                    (Real 8)
+                                                ))
+                                                ((RealConstant
+                                                    4.000000
+                                                    (Real 8)
+                                                ))]
+                                                (Complex 8)
+                                                (ComplexConstant
+                                                    3.000000
+                                                    4.000000
+                                                    (Complex 8)
+                                                )
+                                                ()
+                                            )
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 a)
+                                        (StringCompare
+                                            (StringConstant
+                                                "abc"
+                                                (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            Gt
+                                            (StringConstant
+                                                "abd"
+                                                (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 a)
+                                        (StringCompare
+                                            (StringConstant
+                                                ""
+                                                (String 1 (IntegerConstant 0 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            Lt
+                                            (StringConstant
+                                                "s"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 a)
+                                        (StringCompare
+                                            (StringConstant
+                                                "-abs"
+                                                (String 1 (IntegerConstant 4 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            GtE
+                                            (StringConstant
+                                                "abs"
+                                                (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 a)
+                                        (StringCompare
+                                            (StringConstant
+                                                "abcd"
+                                                (String 1 (IntegerConstant 4 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            LtE
+                                            (StringConstant
+                                                "abcde"
+                                                (String 1 (IntegerConstant 5 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 a)
+                                        (StringCompare
+                                            (StringConstant
+                                                "abc"
+                                                (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            Eq
+                                            (StringConstant
+                                                "abc"
+                                                (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 a)
+                                        (StringCompare
+                                            (StringConstant
+                                                "abc"
+                                                (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            NotEq
+                                            (StringConstant
+                                                "abd"
+                                                (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 a)
+                                        (StringCompare
+                                            (StringConstant
+                                                ""
+                                                (String 1 (IntegerConstant 0 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            Eq
+                                            (StringConstant
+                                                "+"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 a)
+                                        (LogicalCompare
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                            Gt
+                                            (LogicalConstant
+                                                .false.
+                                                (Logical 4)
+                                            )
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 a)
+                                        (LogicalCompare
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                            Eq
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 a)
+                                        (LogicalCompare
+                                            (LogicalConstant
+                                                .false.
+                                                (Logical 4)
+                                            )
+                                            NotEq
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 a)
+                                        (LogicalCompare
+                                            (LogicalConstant
+                                                .false.
+                                                (Logical 4)
+                                            )
+                                            GtE
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .false.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    [lpython_builtin]
+                    .false.
+                    .false.
+                    .false.
+                ),
+            lpython_builtin:
+                (IntrinsicModule lpython_builtin),
+            main_program:
+                (Program
+                    (SymbolTable
+                        141
+                        {
+                            
+                        })
+                    main_program
+                    []
+                    []
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-expr2-2e78a12.json b/tests/reference/asr-expr2-2e78a12.json
index 318355d55a..0e643074e6 100644
--- a/tests/reference/asr-expr2-2e78a12.json
+++ b/tests/reference/asr-expr2-2e78a12.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "asr-expr2-2e78a12.stdout",
-    "stdout_hash": "3a7f0f9046f2bf79924d01c3aeaba3df26002068d25e8f660d4c7645",
+    "stdout_hash": "7e903f47fa714947bc2e27e3a373dbb536f8d5cf678227a77c6ae7cf",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/asr-expr2-2e78a12.stdout b/tests/reference/asr-expr2-2e78a12.stdout
index da21ecd4a1..806c17cc53 100644
--- a/tests/reference/asr-expr2-2e78a12.stdout
+++ b/tests/reference/asr-expr2-2e78a12.stdout
@@ -1 +1,215 @@
-(TranslationUnit (SymbolTable 1 {main_program: (Program (SymbolTable 3 {}) main_program [] []), test_boolOp: (Function (SymbolTable 2 {a: (Variable 2 a [] Local () () Default (Logical 4 []) Source Public Required .false.), b: (Variable 2 b [] Local () () Default (Logical 4 []) Source Public Required .false.)}) test_boolOp (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [] [(= (Var 2 a) (LogicalConstant .false. (Logical 4 [])) ()) (= (Var 2 b) (LogicalConstant .true. (Logical 4 [])) ()) (= (Var 2 a) (LogicalBinOp (Var 2 a) And (Var 2 b) (Logical 4 []) ()) ()) (= (Var 2 b) (LogicalBinOp (Var 2 a) Or (LogicalConstant .true. (Logical 4 [])) (Logical 4 []) ()) ()) (= (Var 2 a) (LogicalBinOp (Var 2 a) Or (Var 2 b) (Logical 4 []) ()) ()) (= (Var 2 a) (LogicalBinOp (Var 2 a) And (LogicalCompare (Var 2 b) Eq (Var 2 b) (Logical 4 []) ()) (Logical 4 []) ()) ()) (= (Var 2 a) (LogicalBinOp (Var 2 a) And (LogicalCompare (Var 2 b) NotEq (Var 2 b) (Logical 4 []) ()) (Logical 4 []) ()) ()) (= (Var 2 a) (LogicalBinOp (Var 2 b) Or (Var 2 b) (Logical 4 []) ()) ())] () Public .false. .false.)}) [])
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            test_boolOp:
+                                (Function
+                                    (SymbolTable
+                                        3
+                                        {
+                                            a:
+                                                (Variable
+                                                    3
+                                                    a
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Logical 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            b:
+                                                (Variable
+                                                    3
+                                                    b
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Logical 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test_boolOp
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 3 a)
+                                        (LogicalConstant
+                                            .false.
+                                            (Logical 4)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 b)
+                                        (LogicalConstant
+                                            .true.
+                                            (Logical 4)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 a)
+                                        (LogicalBinOp
+                                            (Var 3 a)
+                                            And
+                                            (Var 3 b)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 b)
+                                        (LogicalBinOp
+                                            (Var 3 a)
+                                            Or
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 a)
+                                        (LogicalBinOp
+                                            (Var 3 a)
+                                            Or
+                                            (Var 3 b)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 a)
+                                        (LogicalBinOp
+                                            (Var 3 a)
+                                            And
+                                            (LogicalCompare
+                                                (Var 3 b)
+                                                Eq
+                                                (Var 3 b)
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 a)
+                                        (LogicalBinOp
+                                            (Var 3 a)
+                                            And
+                                            (LogicalCompare
+                                                (Var 3 b)
+                                                NotEq
+                                                (Var 3 b)
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 a)
+                                        (LogicalBinOp
+                                            (Var 3 b)
+                                            Or
+                                            (Var 3 b)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    []
+                    .false.
+                    .false.
+                    .false.
+                ),
+            main_program:
+                (Program
+                    (SymbolTable
+                        4
+                        {
+                            
+                        })
+                    main_program
+                    []
+                    []
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-expr4-cef6743.json b/tests/reference/asr-expr4-cef6743.json
index 5660a8e130..b1e5c2419f 100644
--- a/tests/reference/asr-expr4-cef6743.json
+++ b/tests/reference/asr-expr4-cef6743.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "asr-expr4-cef6743.stdout",
-    "stdout_hash": "9dd66418103260ca84432fe03eb443ba3bcd692f51d02e3f5deb574c",
+    "stdout_hash": "23ed8524cbbd8979841449dd3081256c69208fabaa84753800be1cf7",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/asr-expr4-cef6743.stdout b/tests/reference/asr-expr4-cef6743.stdout
index 8b5b4f0f63..30587cb407 100644
--- a/tests/reference/asr-expr4-cef6743.stdout
+++ b/tests/reference/asr-expr4-cef6743.stdout
@@ -1 +1,120 @@
-(TranslationUnit (SymbolTable 1 {main_program: (Program (SymbolTable 3 {}) main_program [] []), test_del: (Function (SymbolTable 2 {a: (Variable 2 a [] Local () () Default (Integer 4 []) Source Public Required .false.), b: (Variable 2 b [] Local () () Default (Integer 4 []) Source Public Required .false.)}) test_del (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [] [(= (Var 2 a) (IntegerConstant 4 (Integer 4 [])) ()) (= (Var 2 b) (IntegerConstant 20 (Integer 4 [])) ()) (ExplicitDeallocate [2 a 2 b])] () Public .false. .false.)}) [])
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            test_del:
+                                (Function
+                                    (SymbolTable
+                                        3
+                                        {
+                                            a:
+                                                (Variable
+                                                    3
+                                                    a
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            b:
+                                                (Variable
+                                                    3
+                                                    b
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test_del
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 3 a)
+                                        (IntegerConstant 4 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 b)
+                                        (IntegerConstant 20 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (ExplicitDeallocate
+                                        [(Var 3 a)
+                                        (Var 3 b)]
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    []
+                    .false.
+                    .false.
+                    .false.
+                ),
+            main_program:
+                (Program
+                    (SymbolTable
+                        4
+                        {
+                            
+                        })
+                    main_program
+                    []
+                    []
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-expr5-645ffcc.json b/tests/reference/asr-expr5-645ffcc.json
deleted file mode 100644
index c1633b1d6c..0000000000
--- a/tests/reference/asr-expr5-645ffcc.json
+++ /dev/null
@@ -1,13 +0,0 @@
-{
-    "basename": "asr-expr5-645ffcc",
-    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
-    "infile": "tests/expr5.py",
-    "infile_hash": "7bbb5f9dacb13556f99de8f2969f9089235fea372fc2f43fc9c4bb18",
-    "outfile": null,
-    "outfile_hash": null,
-    "stdout": "asr-expr5-645ffcc.stdout",
-    "stdout_hash": "74bae3ec58dc031072216411af853cadf302ea55da11b0579faf5aba",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
-}
\ No newline at end of file
diff --git a/tests/reference/asr-expr5-645ffcc.stdout b/tests/reference/asr-expr5-645ffcc.stdout
deleted file mode 100644
index 43ce65c983..0000000000
--- a/tests/reference/asr-expr5-645ffcc.stdout
+++ /dev/null
@@ -1 +0,0 @@
-(TranslationUnit (SymbolTable 1 {main_program: (Program (SymbolTable 3 {}) main_program [] []), test_StrOp_concat: (Function (SymbolTable 2 {s: (Variable 2 s [] Local () () Default (Character 1 -2 () []) Source Public Required .false.)}) test_StrOp_concat (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [] [(= (Var 2 s) (StringConcat (StringConstant "3" (Character 1 1 () [])) (StringConstant "4" (Character 1 1 () [])) (Character 1 2 () []) (StringConstant "34" (Character 1 2 () []))) ()) (= (Var 2 s) (StringConcat (StringConstant "a " (Character 1 2 () [])) (StringConstant "test" (Character 1 4 () [])) (Character 1 6 () []) (StringConstant "a test" (Character 1 6 () []))) ()) (= (Var 2 s) (StringConcat (StringConcat (StringConstant "test" (Character 1 4 () [])) (StringConstant "test" (Character 1 4 () [])) (Character 1 8 () []) (StringConstant "testtest" (Character 1 8 () []))) (StringConstant "test" (Character 1 4 () [])) (Character 1 12 () []) (StringConstant "testtesttest" (Character 1 12 () []))) ())] () Public .false. .false.)}) [])
diff --git a/tests/reference/asr-expr6-368e5ed.json b/tests/reference/asr-expr6-368e5ed.json
index 047c5719bf..140b4e2a30 100644
--- a/tests/reference/asr-expr6-368e5ed.json
+++ b/tests/reference/asr-expr6-368e5ed.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "asr-expr6-368e5ed.stdout",
-    "stdout_hash": "ea30ebd2ccc3cbe0bf933305f14649145fa983155c1c3b6b509701d5",
+    "stdout_hash": "153c9a10534a2bb4c700d172889266952cd57e301d5755eb8d981366",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/asr-expr6-368e5ed.stdout b/tests/reference/asr-expr6-368e5ed.stdout
index 5c011aee33..27c232aa4b 100644
--- a/tests/reference/asr-expr6-368e5ed.stdout
+++ b/tests/reference/asr-expr6-368e5ed.stdout
@@ -1 +1,174 @@
-(TranslationUnit (SymbolTable 1 {main_program: (Program (SymbolTable 3 {}) main_program [] []), test_ifexp: (Function (SymbolTable 2 {a: (Variable 2 a [] Local () () Default (Integer 4 []) Source Public Required .false.), b: (Variable 2 b [] Local () () Default (Integer 4 []) Source Public Required .false.), c: (Variable 2 c [] Local () () Default (Logical 4 []) Source Public Required .false.)}) test_ifexp (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [] [(= (Var 2 a) (IntegerConstant 2 (Integer 4 [])) ()) (= (Var 2 b) (IfExp (IntegerCompare (Var 2 a) Eq (IntegerConstant 2 (Integer 4 [])) (Logical 4 []) ()) (IntegerConstant 6 (Integer 4 [])) (IntegerConstant 8 (Integer 4 [])) (Integer 4 []) ()) ()) (= (Var 2 c) (IfExp (IntegerCompare (Var 2 b) Gt (IntegerConstant 5 (Integer 4 [])) (Logical 4 []) ()) (LogicalConstant .true. (Logical 4 [])) (LogicalConstant .false. (Logical 4 [])) (Logical 4 []) ()) ())] () Public .false. .false.)}) [])
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            test_ifexp:
+                                (Function
+                                    (SymbolTable
+                                        3
+                                        {
+                                            a:
+                                                (Variable
+                                                    3
+                                                    a
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            b:
+                                                (Variable
+                                                    3
+                                                    b
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            c:
+                                                (Variable
+                                                    3
+                                                    c
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Logical 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test_ifexp
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 3 a)
+                                        (IntegerConstant 2 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 b)
+                                        (IfExp
+                                            (IntegerCompare
+                                                (Var 3 a)
+                                                Eq
+                                                (IntegerConstant 2 (Integer 4) Decimal)
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            (IntegerConstant 6 (Integer 4) Decimal)
+                                            (IntegerConstant 8 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 c)
+                                        (IfExp
+                                            (IntegerCompare
+                                                (Var 3 b)
+                                                Gt
+                                                (IntegerConstant 5 (Integer 4) Decimal)
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                            (LogicalConstant
+                                                .false.
+                                                (Logical 4)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    []
+                    .false.
+                    .false.
+                    .false.
+                ),
+            main_program:
+                (Program
+                    (SymbolTable
+                        4
+                        {
+                            
+                        })
+                    main_program
+                    []
+                    []
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-expr7-480ba2f.json b/tests/reference/asr-expr7-480ba2f.json
index e84f91c745..3ac8eed139 100644
--- a/tests/reference/asr-expr7-480ba2f.json
+++ b/tests/reference/asr-expr7-480ba2f.json
@@ -2,11 +2,11 @@
     "basename": "asr-expr7-480ba2f",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/expr7.py",
-    "infile_hash": "7e10fd3558ed9a0c805fd1f27740f6cc539142917841585c7679779b",
+    "infile_hash": "7ef1383d1798621ee35adb7296bfe66dcdc08a21ac8dc86b9ce42878",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "asr-expr7-480ba2f.stdout",
-    "stdout_hash": "2089b1674565b2220b081e9646c2ba3c9fbfbd840a5cebfee72fd5f9",
+    "stdout_hash": "0a1bf4f7ef74b8f28105004ff9da5b9f22a46679ee35ff6b29149b23",
     "stderr": "asr-expr7-480ba2f.stderr",
     "stderr_hash": "6e9790ac88db1a9ead8f64a91ba8a6605de67167037908a74b77be0c",
     "returncode": 0
diff --git a/tests/reference/asr-expr7-480ba2f.stdout b/tests/reference/asr-expr7-480ba2f.stdout
index 2cfe200be5..7ad553862c 100644
--- a/tests/reference/asr-expr7-480ba2f.stdout
+++ b/tests/reference/asr-expr7-480ba2f.stdout
@@ -1 +1,414 @@
-(TranslationUnit (SymbolTable 1 {_lpython_main_program: (Function (SymbolTable 99 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [main0] [] [(SubroutineCall 1 main0 () [] ())] () Public .false. .false.), lpython_builtin: (IntrinsicModule lpython_builtin), main0: (Function (SymbolTable 4 {c: (Variable 4 c [] Local () () Default (Integer 4 []) Source Public Required .false.)}) main0 (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [test_pow test_pow_1] [] [(SubroutineCall 1 test_pow () [] ()) (= (Var 4 c) (FunctionCall 1 test_pow_1 () [((IntegerConstant 1 (Integer 4 []))) ((IntegerConstant 2 (Integer 4 [])))] (Integer 4 []) () ()) ())] () Public .false. .false.), main_program: (Program (SymbolTable 98 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())]), test_pow: (Function (SymbolTable 2 {a: (Variable 2 a [] Local () () Default (Integer 4 []) Source Public Required .false.), pow: (ExternalSymbol 2 pow 6 pow lpython_builtin [] pow Private), pow@__lpython_overloaded_0__pow: (ExternalSymbol 2 pow@__lpython_overloaded_0__pow 6 __lpython_overloaded_0__pow lpython_builtin [] __lpython_overloaded_0__pow Public)}) test_pow (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [pow@__lpython_overloaded_0__pow] [] [(= (Var 2 a) (Cast (FunctionCall 2 pow@__lpython_overloaded_0__pow 2 pow [((IntegerConstant 2 (Integer 4 []))) ((IntegerConstant 2 (Integer 4 [])))] (Real 8 []) (RealConstant 4.000000 (Real 8 [])) ()) RealToInteger (Integer 4 []) (IntegerConstant 4 (Integer 4 []))) ())] () Public .false. .false.), test_pow_1: (Function (SymbolTable 3 {_lpython_return_variable: (Variable 3 _lpython_return_variable [] ReturnVar () () Default (Integer 4 []) Source Public Required .false.), a: (Variable 3 a [] In () () Default (Integer 4 []) Source Public Required .false.), b: (Variable 3 b [] In () () Default (Integer 4 []) Source Public Required .false.), pow: (ExternalSymbol 3 pow 6 pow lpython_builtin [] pow Private), pow@__lpython_overloaded_0__pow: (ExternalSymbol 3 pow@__lpython_overloaded_0__pow 6 __lpython_overloaded_0__pow lpython_builtin [] __lpython_overloaded_0__pow Public), res: (Variable 3 res [] Local () () Default (Integer 4 []) Source Public Required .false.)}) test_pow_1 (FunctionType [(Integer 4 []) (Integer 4 [])] (Integer 4 []) Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [pow@__lpython_overloaded_0__pow] [(Var 3 a) (Var 3 b)] [(= (Var 3 res) (Cast (FunctionCall 3 pow@__lpython_overloaded_0__pow 3 pow [((Var 3 a)) ((Var 3 b))] (Real 8 []) () ()) RealToInteger (Integer 4 []) ()) ()) (= (Var 3 _lpython_return_variable) (Var 3 res) ()) (Return)] (Var 3 _lpython_return_variable) Public .false. .false.)}) [])
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            __main__global_stmts:
+                                (Function
+                                    (SymbolTable
+                                        143
+                                        {
+                                            
+                                        })
+                                    __main__global_stmts
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [main0]
+                                    []
+                                    [(SubroutineCall
+                                        2 main0
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            main0:
+                                (Function
+                                    (SymbolTable
+                                        5
+                                        {
+                                            c:
+                                                (Variable
+                                                    5
+                                                    c
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    main0
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [test_pow
+                                    test_pow_1]
+                                    []
+                                    [(SubroutineCall
+                                        2 test_pow
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 5 c)
+                                        (FunctionCall
+                                            2 test_pow_1
+                                            ()
+                                            [((IntegerConstant 1 (Integer 4) Decimal))
+                                            ((IntegerConstant 2 (Integer 4) Decimal))]
+                                            (Integer 4)
+                                            ()
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            test_pow:
+                                (Function
+                                    (SymbolTable
+                                        3
+                                        {
+                                            a:
+                                                (Variable
+                                                    3
+                                                    a
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            pow:
+                                                (ExternalSymbol
+                                                    3
+                                                    pow
+                                                    6 pow
+                                                    lpython_builtin
+                                                    []
+                                                    pow
+                                                    Private
+                                                ),
+                                            pow@__lpython_overloaded_0__pow:
+                                                (ExternalSymbol
+                                                    3
+                                                    pow@__lpython_overloaded_0__pow
+                                                    6 __lpython_overloaded_0__pow
+                                                    lpython_builtin
+                                                    []
+                                                    __lpython_overloaded_0__pow
+                                                    Public
+                                                )
+                                        })
+                                    test_pow
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 3 a)
+                                        (Cast
+                                            (FunctionCall
+                                                3 pow@__lpython_overloaded_0__pow
+                                                3 pow
+                                                [((IntegerConstant 2 (Integer 4) Decimal))
+                                                ((IntegerConstant 2 (Integer 4) Decimal))]
+                                                (Real 8)
+                                                (RealConstant
+                                                    4.000000
+                                                    (Real 8)
+                                                )
+                                                ()
+                                            )
+                                            RealToInteger
+                                            (Integer 4)
+                                            (IntegerConstant 4 (Integer 4) Decimal)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            test_pow_1:
+                                (Function
+                                    (SymbolTable
+                                        4
+                                        {
+                                            _lpython_return_variable:
+                                                (Variable
+                                                    4
+                                                    _lpython_return_variable
+                                                    []
+                                                    ReturnVar
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            a:
+                                                (Variable
+                                                    4
+                                                    a
+                                                    []
+                                                    In
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            b:
+                                                (Variable
+                                                    4
+                                                    b
+                                                    []
+                                                    In
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            pow:
+                                                (ExternalSymbol
+                                                    4
+                                                    pow
+                                                    6 pow
+                                                    lpython_builtin
+                                                    []
+                                                    pow
+                                                    Private
+                                                ),
+                                            pow@__lpython_overloaded_0__pow:
+                                                (ExternalSymbol
+                                                    4
+                                                    pow@__lpython_overloaded_0__pow
+                                                    6 __lpython_overloaded_0__pow
+                                                    lpython_builtin
+                                                    []
+                                                    __lpython_overloaded_0__pow
+                                                    Public
+                                                ),
+                                            res:
+                                                (Variable
+                                                    4
+                                                    res
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test_pow_1
+                                    (FunctionType
+                                        [(Integer 4)
+                                        (Integer 4)]
+                                        (Integer 4)
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    [(Var 4 a)
+                                    (Var 4 b)]
+                                    [(Assignment
+                                        (Var 4 res)
+                                        (Cast
+                                            (FunctionCall
+                                                4 pow@__lpython_overloaded_0__pow
+                                                4 pow
+                                                [((Var 4 a))
+                                                ((Var 4 b))]
+                                                (Real 8)
+                                                ()
+                                                ()
+                                            )
+                                            RealToInteger
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 _lpython_return_variable)
+                                        (Var 4 res)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Return)]
+                                    (Var 4 _lpython_return_variable)
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    [lpython_builtin]
+                    .false.
+                    .false.
+                    .false.
+                ),
+            lpython_builtin:
+                (IntrinsicModule lpython_builtin),
+            main_program:
+                (Program
+                    (SymbolTable
+                        144
+                        {
+                            __main__global_stmts:
+                                (ExternalSymbol
+                                    144
+                                    __main__global_stmts
+                                    2 __main__global_stmts
+                                    __main__
+                                    []
+                                    __main__global_stmts
+                                    Public
+                                )
+                        })
+                    main_program
+                    [__main__]
+                    [(SubroutineCall
+                        144 __main__global_stmts
+                        2 __main__global_stmts
+                        []
+                        ()
+                        .false.
+                    )]
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-expr8-6beda60.json b/tests/reference/asr-expr8-6beda60.json
index 6d9fdd659c..295e6fe671 100644
--- a/tests/reference/asr-expr8-6beda60.json
+++ b/tests/reference/asr-expr8-6beda60.json
@@ -2,11 +2,11 @@
     "basename": "asr-expr8-6beda60",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/expr8.py",
-    "infile_hash": "4e9a7a5642d721ee6a41db2c3d587c1811c5baad582bddc67cc68842",
+    "infile_hash": "6966e19cf343700cbc11ec1bf6a495e43c685c6fa065669875aa61ce",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "asr-expr8-6beda60.stdout",
-    "stdout_hash": "f0b0b75ef19ec84783abe5276f5677de53335f2bf60de0a4ec81b45b",
+    "stdout_hash": "a9895174a18553bd89150e96f978695acf3a0c25859e7dedab7addeb",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/asr-expr8-6beda60.stdout b/tests/reference/asr-expr8-6beda60.stdout
index f7e4c00da0..90b12f8884 100644
--- a/tests/reference/asr-expr8-6beda60.stdout
+++ b/tests/reference/asr-expr8-6beda60.stdout
@@ -1 +1,480 @@
-(TranslationUnit (SymbolTable 1 {lpython_builtin: (IntrinsicModule lpython_builtin), main_program: (Program (SymbolTable 96 {}) main_program [] []), test_binop: (Function (SymbolTable 2 {_lpython_floordiv: (ExternalSymbol 2 _lpython_floordiv 4 _lpython_floordiv lpython_builtin [] _lpython_floordiv Private), _lpython_floordiv@__lpython_overloaded_4___lpython_floordiv: (ExternalSymbol 2 _lpython_floordiv@__lpython_overloaded_4___lpython_floordiv 4 __lpython_overloaded_4___lpython_floordiv lpython_builtin [] __lpython_overloaded_4___lpython_floordiv Public), b1: (Variable 2 b1 [] Local () () Default (Logical 4 []) Source Public Required .false.), b2: (Variable 2 b2 [] Local () () Default (Logical 4 []) Source Public Required .false.), x: (Variable 2 x [] Local () () Default (Integer 4 []) Source Public Required .false.), x2: (Variable 2 x2 [] Local () () Default (Real 4 []) Source Public Required .false.)}) test_binop (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [_lpython_floordiv@__lpython_overloaded_4___lpython_floordiv] [] [(= (Var 2 x) (IntegerBinOp (IntegerConstant 2 (Integer 4 [])) Pow (IntegerConstant 3 (Integer 4 [])) (Integer 4 []) (IntegerConstant 8 (Integer 4 []))) ()) (= (Var 2 x2) (Cast (RealBinOp (RealConstant 2.000000 (Real 8 [])) Pow (RealConstant 3.500000 (Real 8 [])) (Real 8 []) (RealConstant 11.313708 (Real 8 []))) RealToReal (Real 4 []) (RealConstant 11.313708 (Real 4 []))) ()) (= (Var 2 x) (IntegerBinOp (IntegerConstant 54 (Integer 4 [])) Sub (IntegerConstant 100 (Integer 4 [])) (Integer 4 []) (IntegerConstant -46 (Integer 4 []))) ()) (= (Var 2 x2) (Cast (RealBinOp (RealBinOp (RealConstant 3.454000 (Real 8 [])) Sub (RealConstant 765.430000 (Real 8 [])) (Real 8 []) (RealConstant -761.976000 (Real 8 []))) Add (RealConstant 534.600000 (Real 8 [])) (Real 8 []) (RealConstant -227.376000 (Real 8 []))) RealToReal (Real 4 []) (RealConstant -227.376000 (Real 4 []))) ()) (= (Var 2 x2) (Cast (RealBinOp (RealConstant 5346.565000 (Real 8 [])) Mul (RealConstant 3.450000 (Real 8 [])) (Real 8 []) (RealConstant 18445.649250 (Real 8 []))) RealToReal (Real 4 []) (RealConstant 18445.649250 (Real 4 []))) ()) (= (Var 2 x2) (Cast (RealBinOp (RealConstant 5346.565000 (Real 8 [])) Pow (RealConstant 3.450000 (Real 8 [])) (Real 8 []) (RealConstant 7275422789925.217773 (Real 8 []))) RealToReal (Real 4 []) (RealConstant 7275422789925.217773 (Real 4 []))) ()) (= (Var 2 x) (IntegerBinOp (Cast (LogicalConstant .true. (Logical 4 [])) LogicalToInteger (Integer 4 []) ()) Add (Cast (LogicalConstant .true. (Logical 4 [])) LogicalToInteger (Integer 4 []) ()) (Integer 4 []) ()) ()) (= (Var 2 x) (IntegerBinOp (Cast (LogicalConstant .true. (Logical 4 [])) LogicalToInteger (Integer 4 []) ()) Sub (Cast (LogicalConstant .false. (Logical 4 [])) LogicalToInteger (Integer 4 []) ()) (Integer 4 []) ()) ()) (= (Var 2 x) (IntegerBinOp (Cast (LogicalConstant .true. (Logical 4 [])) LogicalToInteger (Integer 4 []) ()) Mul (Cast (LogicalConstant .false. (Logical 4 [])) LogicalToInteger (Integer 4 []) ()) (Integer 4 []) ()) ()) (= (Var 2 x) (IntegerBinOp (Cast (LogicalConstant .true. (Logical 4 [])) LogicalToInteger (Integer 4 []) ()) Pow (Cast (LogicalConstant .false. (Logical 4 [])) LogicalToInteger (Integer 4 []) ()) (Integer 4 []) ()) ()) (= (Var 2 b1) (LogicalConstant .true. (Logical 4 [])) ()) (= (Var 2 b2) (LogicalConstant .false. (Logical 4 [])) ()) (= (Var 2 x) (Cast (FunctionCall 2 _lpython_floordiv@__lpython_overloaded_4___lpython_floordiv 2 _lpython_floordiv [((Var 2 b1)) ((Var 2 b1))] (Logical 4 []) () ()) LogicalToInteger (Integer 4 []) ()) ()) (= (Var 2 x) (IntegerBinOp (Cast (Var 2 b1) LogicalToInteger (Integer 4 []) ()) Pow (Cast (Var 2 b2) LogicalToInteger (Integer 4 []) ()) (Integer 4 []) ()) ())] () Public .false. .false.)}) [])
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            test_binop:
+                                (Function
+                                    (SymbolTable
+                                        3
+                                        {
+                                            b1:
+                                                (Variable
+                                                    3
+                                                    b1
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Logical 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            b2:
+                                                (Variable
+                                                    3
+                                                    b2
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Logical 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            x:
+                                                (Variable
+                                                    3
+                                                    x
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            x2:
+                                                (Variable
+                                                    3
+                                                    x2
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test_binop
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 3 x)
+                                        (IntegerBinOp
+                                            (IntegerConstant 2 (Integer 4) Decimal)
+                                            Pow
+                                            (IntegerConstant 3 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            (IntegerConstant 8 (Integer 4) Decimal)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 x2)
+                                        (Cast
+                                            (RealBinOp
+                                                (RealConstant
+                                                    2.000000
+                                                    (Real 8)
+                                                )
+                                                Pow
+                                                (RealConstant
+                                                    3.500000
+                                                    (Real 8)
+                                                )
+                                                (Real 8)
+                                                (RealConstant
+                                                    11.313708
+                                                    (Real 8)
+                                                )
+                                            )
+                                            RealToReal
+                                            (Real 4)
+                                            (RealConstant
+                                                11.313708
+                                                (Real 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 x)
+                                        (IntegerBinOp
+                                            (IntegerConstant 54 (Integer 4) Decimal)
+                                            Sub
+                                            (IntegerConstant 100 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            (IntegerConstant -46 (Integer 4) Decimal)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 x2)
+                                        (Cast
+                                            (RealBinOp
+                                                (RealBinOp
+                                                    (RealConstant
+                                                        3.454000
+                                                        (Real 8)
+                                                    )
+                                                    Sub
+                                                    (RealConstant
+                                                        765.430000
+                                                        (Real 8)
+                                                    )
+                                                    (Real 8)
+                                                    (RealConstant
+                                                        -761.976000
+                                                        (Real 8)
+                                                    )
+                                                )
+                                                Add
+                                                (RealConstant
+                                                    534.600000
+                                                    (Real 8)
+                                                )
+                                                (Real 8)
+                                                (RealConstant
+                                                    -227.376000
+                                                    (Real 8)
+                                                )
+                                            )
+                                            RealToReal
+                                            (Real 4)
+                                            (RealConstant
+                                                -227.376000
+                                                (Real 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 x2)
+                                        (Cast
+                                            (RealBinOp
+                                                (RealConstant
+                                                    5346.565000
+                                                    (Real 8)
+                                                )
+                                                Mul
+                                                (RealConstant
+                                                    3.450000
+                                                    (Real 8)
+                                                )
+                                                (Real 8)
+                                                (RealConstant
+                                                    18445.649250
+                                                    (Real 8)
+                                                )
+                                            )
+                                            RealToReal
+                                            (Real 4)
+                                            (RealConstant
+                                                18445.649250
+                                                (Real 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 x2)
+                                        (Cast
+                                            (RealBinOp
+                                                (RealConstant
+                                                    5346.565000
+                                                    (Real 8)
+                                                )
+                                                Pow
+                                                (RealConstant
+                                                    3.450000
+                                                    (Real 8)
+                                                )
+                                                (Real 8)
+                                                (RealConstant
+                                                    7275422789925.217773
+                                                    (Real 8)
+                                                )
+                                            )
+                                            RealToReal
+                                            (Real 4)
+                                            (RealConstant
+                                                7275422789925.217773
+                                                (Real 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 x)
+                                        (IntegerBinOp
+                                            (Cast
+                                                (LogicalConstant
+                                                    .true.
+                                                    (Logical 4)
+                                                )
+                                                LogicalToInteger
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Add
+                                            (Cast
+                                                (LogicalConstant
+                                                    .true.
+                                                    (Logical 4)
+                                                )
+                                                LogicalToInteger
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 x)
+                                        (IntegerBinOp
+                                            (Cast
+                                                (LogicalConstant
+                                                    .true.
+                                                    (Logical 4)
+                                                )
+                                                LogicalToInteger
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Sub
+                                            (Cast
+                                                (LogicalConstant
+                                                    .false.
+                                                    (Logical 4)
+                                                )
+                                                LogicalToInteger
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 x)
+                                        (IntegerBinOp
+                                            (Cast
+                                                (LogicalConstant
+                                                    .true.
+                                                    (Logical 4)
+                                                )
+                                                LogicalToInteger
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Mul
+                                            (Cast
+                                                (LogicalConstant
+                                                    .false.
+                                                    (Logical 4)
+                                                )
+                                                LogicalToInteger
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 x)
+                                        (IntegerBinOp
+                                            (Cast
+                                                (LogicalConstant
+                                                    .true.
+                                                    (Logical 4)
+                                                )
+                                                LogicalToInteger
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Pow
+                                            (Cast
+                                                (LogicalConstant
+                                                    .false.
+                                                    (Logical 4)
+                                                )
+                                                LogicalToInteger
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 b1)
+                                        (LogicalConstant
+                                            .true.
+                                            (Logical 4)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 b2)
+                                        (LogicalConstant
+                                            .false.
+                                            (Logical 4)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 x)
+                                        (Cast
+                                            (IntrinsicElementalFunction
+                                                FloorDiv
+                                                [(Var 3 b1)
+                                                (Var 3 b1)]
+                                                0
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            LogicalToInteger
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 x)
+                                        (IntegerBinOp
+                                            (Cast
+                                                (Var 3 b1)
+                                                LogicalToInteger
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Pow
+                                            (Cast
+                                                (Var 3 b2)
+                                                LogicalToInteger
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    []
+                    .false.
+                    .false.
+                    .false.
+                ),
+            main_program:
+                (Program
+                    (SymbolTable
+                        4
+                        {
+                            
+                        })
+                    main_program
+                    []
+                    []
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-expr9-814e4bc.json b/tests/reference/asr-expr9-814e4bc.json
deleted file mode 100644
index 62217a3746..0000000000
--- a/tests/reference/asr-expr9-814e4bc.json
+++ /dev/null
@@ -1,13 +0,0 @@
-{
-    "basename": "asr-expr9-814e4bc",
-    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
-    "infile": "tests/expr9.py",
-    "infile_hash": "1f02a7486b298ae9e74a163875a76f8fa7cc25d7f50547133dbbdfab",
-    "outfile": null,
-    "outfile_hash": null,
-    "stdout": "asr-expr9-814e4bc.stdout",
-    "stdout_hash": "48b682d15124e380b92500e47e502a3409f483d9e18b49842b4b0eda",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
-}
\ No newline at end of file
diff --git a/tests/reference/asr-expr9-814e4bc.stdout b/tests/reference/asr-expr9-814e4bc.stdout
deleted file mode 100644
index 24e5c9b3f6..0000000000
--- a/tests/reference/asr-expr9-814e4bc.stdout
+++ /dev/null
@@ -1 +0,0 @@
-(TranslationUnit (SymbolTable 1 {_lpython_main_program: (Function (SymbolTable 8 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [main0] [] [(SubroutineCall 1 main0 () [] ())] () Public .false. .false.), main0: (Function (SymbolTable 6 {i: (Variable 6 i [] Local () () Default (Integer 4 []) Source Public Required .false.), s: (Variable 6 s [] Local () () Default (Character 1 -2 () []) Source Public Required .false.)}) main0 (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [test_return_1 test_return_2 test_return_3 test_return_4] [] [(= (Var 6 i) (FunctionCall 1 test_return_1 () [((IntegerConstant 4 (Integer 4 [])))] (Integer 4 []) () ()) ()) (= (Var 6 s) (FunctionCall 1 test_return_2 () [((IntegerConstant 4 (Integer 4 [])))] (Character 1 -2 () []) () ()) ()) (= (Var 6 i) (FunctionCall 1 test_return_3 () [((IntegerConstant 4 (Integer 4 [])))] (Integer 4 []) () ()) ()) (SubroutineCall 1 test_return_4 () [((IntegerConstant 4 (Integer 4 [])))] ())] () Public .false. .false.), main_program: (Program (SymbolTable 7 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())]), test_return_1: (Function (SymbolTable 2 {_lpython_return_variable: (Variable 2 _lpython_return_variable [] ReturnVar () () Default (Integer 4 []) Source Public Required .false.), a: (Variable 2 a [] In () () Default (Integer 4 []) Source Public Required .false.), x: (Variable 2 x [] Local () () Default (Integer 4 []) Source Public Required .false.)}) test_return_1 (FunctionType [(Integer 4 [])] (Integer 4 []) Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 2 a)] [(= (Var 2 x) (IntegerConstant 5 (Integer 4 [])) ()) (= (Var 2 _lpython_return_variable) (Var 2 x) ()) (Return)] (Var 2 _lpython_return_variable) Public .false. .false.), test_return_2: (Function (SymbolTable 3 {_lpython_return_variable: (Variable 3 _lpython_return_variable [] ReturnVar () () Default (Character 1 -2 () []) Source Public Required .false.), a: (Variable 3 a [] In () () Default (Integer 4 []) Source Public Required .false.), x: (Variable 3 x [] Local () () Default (Character 1 -2 () []) Source Public Required .false.)}) test_return_2 (FunctionType [(Integer 4 [])] (Character 1 -2 () []) Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 3 a)] [(= (Var 3 x) (StringConstant "test" (Character 1 4 () [])) ()) (= (Var 3 _lpython_return_variable) (Var 3 x) ()) (Return)] (Var 3 _lpython_return_variable) Public .false. .false.), test_return_3: (Function (SymbolTable 4 {_lpython_return_variable: (Variable 4 _lpython_return_variable [] ReturnVar () () Default (Integer 4 []) Source Public Required .false.), a: (Variable 4 a [] In () () Default (Integer 4 []) Source Public Required .false.)}) test_return_3 (FunctionType [(Integer 4 [])] (Integer 4 []) Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 4 a)] [(= (Var 4 a) (IntegerConstant 3 (Integer 4 [])) ()) (= (Var 4 _lpython_return_variable) (Var 4 a) ()) (Return)] (Var 4 _lpython_return_variable) Public .false. .false.), test_return_4: (Function (SymbolTable 5 {a: (Variable 5 a [] In () () Default (Integer 4 []) Source Public Required .false.)}) test_return_4 (FunctionType [(Integer 4 [])] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 5 a)] [(= (Var 5 a) (IntegerConstant 1 (Integer 4 [])) ()) (Return)] () Public .false. .false.)}) [])
diff --git a/tests/reference/asr-expr_01-211000e.json b/tests/reference/asr-expr_01-211000e.json
index 2da089c439..2c1fd89db1 100644
--- a/tests/reference/asr-expr_01-211000e.json
+++ b/tests/reference/asr-expr_01-211000e.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "asr-expr_01-211000e.stdout",
-    "stdout_hash": "daa8ad9c1f92825b6915da1bbe6cebbe8174cb0d71d21631e91f3426",
+    "stdout_hash": "fdcac9cb66d8604e90625b4767c716239c0ca71fa0878e581b274a28",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/asr-expr_01-211000e.stdout b/tests/reference/asr-expr_01-211000e.stdout
index 34dff3b101..912766ee90 100644
--- a/tests/reference/asr-expr_01-211000e.stdout
+++ b/tests/reference/asr-expr_01-211000e.stdout
@@ -1 +1,226 @@
-(TranslationUnit (SymbolTable 1 {_lpython_main_program: (Function (SymbolTable 4 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [main0] [] [(SubroutineCall 1 main0 () [] ())] () Public .false. .false.), main0: (Function (SymbolTable 2 {x: (Variable 2 x [] Local () () Default (Integer 4 []) Source Public Required .false.), x2: (Variable 2 x2 [] Local () () Default (Integer 8 []) Source Public Required .false.), y: (Variable 2 y [] Local () () Default (Real 4 []) Source Public Required .false.), y2: (Variable 2 y2 [] Local () () Default (Real 8 []) Source Public Required .false.)}) main0 (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [] [(= (Var 2 x) (IntegerBinOp (IntegerBinOp (IntegerConstant 2 (Integer 4 [])) Add (IntegerConstant 3 (Integer 4 [])) (Integer 4 []) (IntegerConstant 5 (Integer 4 []))) Mul (IntegerConstant 5 (Integer 4 [])) (Integer 4 []) (IntegerConstant 25 (Integer 4 []))) ()) (Print () [(Var 2 x)] () ())] () Public .false. .false.), main_program: (Program (SymbolTable 3 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())])}) [])
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            __main__global_stmts:
+                                (Function
+                                    (SymbolTable
+                                        4
+                                        {
+                                            
+                                        })
+                                    __main__global_stmts
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [main0]
+                                    []
+                                    [(SubroutineCall
+                                        2 main0
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            main0:
+                                (Function
+                                    (SymbolTable
+                                        3
+                                        {
+                                            x:
+                                                (Variable
+                                                    3
+                                                    x
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            x2:
+                                                (Variable
+                                                    3
+                                                    x2
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            y:
+                                                (Variable
+                                                    3
+                                                    y
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            y2:
+                                                (Variable
+                                                    3
+                                                    y2
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    main0
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 3 x)
+                                        (IntegerBinOp
+                                            (IntegerBinOp
+                                                (IntegerConstant 2 (Integer 4) Decimal)
+                                                Add
+                                                (IntegerConstant 3 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                (IntegerConstant 5 (Integer 4) Decimal)
+                                            )
+                                            Mul
+                                            (IntegerConstant 5 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            (IntegerConstant 25 (Integer 4) Decimal)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(Var 3 x)]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    []
+                    .false.
+                    .false.
+                    .false.
+                ),
+            main_program:
+                (Program
+                    (SymbolTable
+                        5
+                        {
+                            __main__global_stmts:
+                                (ExternalSymbol
+                                    5
+                                    __main__global_stmts
+                                    2 __main__global_stmts
+                                    __main__
+                                    []
+                                    __main__global_stmts
+                                    Public
+                                )
+                        })
+                    main_program
+                    [__main__]
+                    [(SubroutineCall
+                        5 __main__global_stmts
+                        2 __main__global_stmts
+                        []
+                        ()
+                        .false.
+                    )]
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-expr_01-a0d4829.json b/tests/reference/asr-expr_01-a0d4829.json
index 554b7d6860..775489b323 100644
--- a/tests/reference/asr-expr_01-a0d4829.json
+++ b/tests/reference/asr-expr_01-a0d4829.json
@@ -2,11 +2,11 @@
     "basename": "asr-expr_01-a0d4829",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/../integration_tests/expr_01.py",
-    "infile_hash": "c391a2740682aec6070efdfb508697052e45950589fdabd9728127a4",
+    "infile_hash": "230a65e2cddb76f58d56747325caf24b8a1f6277810186581948c514",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "asr-expr_01-a0d4829.stdout",
-    "stdout_hash": "49a6907a4cc75fcb75f2b8ed4324b1d16d39fe8f4564a29cc3e193b2",
+    "stdout_hash": "4ca94c336470c47a68f2673b3f7aa8eb5eb428454deca0fb99d2951c",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/asr-expr_01-a0d4829.stdout b/tests/reference/asr-expr_01-a0d4829.stdout
index 0411b1aa5b..ae38592586 100644
--- a/tests/reference/asr-expr_01-a0d4829.stdout
+++ b/tests/reference/asr-expr_01-a0d4829.stdout
@@ -1 +1,477 @@
-(TranslationUnit (SymbolTable 1 {_lpython_main_program: (Function (SymbolTable 6 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [main0] [] [(SubroutineCall 1 main0 () [] ())] () Public .false. .false.), add: (Function (SymbolTable 2 {_lpython_return_variable: (Variable 2 _lpython_return_variable [] ReturnVar () () Default (Integer 4 []) Source Public Required .false.), x: (Variable 2 x [] In () () Default (Integer 4 []) Source Public Required .false.), y: (Variable 2 y [] In () () Default (Integer 4 []) Source Public Required .false.)}) add (FunctionType [(Integer 4 []) (Integer 4 [])] (Integer 4 []) Source Implementation () .false. .false. .false. .true. .false. [] [] .false.) [] [(Var 2 x) (Var 2 y)] [(= (Var 2 _lpython_return_variable) (IntegerBinOp (Var 2 x) Add (Var 2 y) (Integer 4 []) ()) ()) (Return)] (Var 2 _lpython_return_variable) Public .false. .false.), and_op: (Function (SymbolTable 3 {_lpython_return_variable: (Variable 3 _lpython_return_variable [] ReturnVar () () Default (Integer 4 []) Source Public Required .false.), x: (Variable 3 x [] In () () Default (Integer 4 []) Source Public Required .false.), y: (Variable 3 y [] In () () Default (Integer 4 []) Source Public Required .false.)}) and_op (FunctionType [(Integer 4 []) (Integer 4 [])] (Integer 4 []) Source Implementation () .false. .false. .false. .true. .false. [] [] .false.) [] [(Var 3 x) (Var 3 y)] [(= (Var 3 _lpython_return_variable) (IntegerBinOp (Var 3 x) BitAnd (Var 3 y) (Integer 4 []) ()) ()) (Return)] (Var 3 _lpython_return_variable) Public .false. .false.), main0: (Function (SymbolTable 4 {x: (Variable 4 x [] Local () () Default (Integer 4 []) Source Public Required .false.), y: (Variable 4 y [] Local () () Default (Integer 4 []) Source Public Required .false.), z: (Variable 4 z [] Local () () Default (Integer 4 []) Source Public Required .false.)}) main0 (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [add and_op] [] [(= (Var 4 x) (IntegerBinOp (IntegerBinOp (IntegerConstant 2 (Integer 4 [])) Add (IntegerConstant 3 (Integer 4 [])) (Integer 4 []) (IntegerConstant 5 (Integer 4 []))) Mul (IntegerConstant 5 (Integer 4 [])) (Integer 4 []) (IntegerConstant 25 (Integer 4 []))) ()) (= (Var 4 y) (IntegerBinOp (FunctionCall 1 add () [((Var 4 x)) ((IntegerConstant 2 (Integer 4 [])))] (Integer 4 []) () ()) Mul (IntegerConstant 2 (Integer 4 [])) (Integer 4 []) ()) ()) (Assert (IntegerCompare (Var 4 x) Eq (IntegerConstant 25 (Integer 4 [])) (Logical 4 []) ()) ()) (Assert (IntegerCompare (Var 4 y) Eq (IntegerConstant 54 (Integer 4 [])) (Logical 4 []) ()) ()) (= (Var 4 z) (FunctionCall 1 and_op () [((Var 4 x)) ((Var 4 y))] (Integer 4 []) () ()) ()) (Assert (IntegerCompare (Var 4 z) Eq (IntegerConstant 16 (Integer 4 [])) (Logical 4 []) ()) ())] () Public .false. .false.), main_program: (Program (SymbolTable 5 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())])}) [])
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            __main__global_stmts:
+                                (Function
+                                    (SymbolTable
+                                        6
+                                        {
+                                            
+                                        })
+                                    __main__global_stmts
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [main0]
+                                    []
+                                    [(SubroutineCall
+                                        2 main0
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            add:
+                                (Function
+                                    (SymbolTable
+                                        3
+                                        {
+                                            _lpython_return_variable:
+                                                (Variable
+                                                    3
+                                                    _lpython_return_variable
+                                                    []
+                                                    ReturnVar
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            x:
+                                                (Variable
+                                                    3
+                                                    x
+                                                    []
+                                                    In
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            y:
+                                                (Variable
+                                                    3
+                                                    y
+                                                    []
+                                                    In
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    add
+                                    (FunctionType
+                                        [(Integer 4)
+                                        (Integer 4)]
+                                        (Integer 4)
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .true.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    [(Var 3 x)
+                                    (Var 3 y)]
+                                    [(Assignment
+                                        (Var 3 _lpython_return_variable)
+                                        (IntegerBinOp
+                                            (Var 3 x)
+                                            Add
+                                            (Var 3 y)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Return)]
+                                    (Var 3 _lpython_return_variable)
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            and_op:
+                                (Function
+                                    (SymbolTable
+                                        4
+                                        {
+                                            _lpython_return_variable:
+                                                (Variable
+                                                    4
+                                                    _lpython_return_variable
+                                                    []
+                                                    ReturnVar
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            x:
+                                                (Variable
+                                                    4
+                                                    x
+                                                    []
+                                                    In
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            y:
+                                                (Variable
+                                                    4
+                                                    y
+                                                    []
+                                                    In
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    and_op
+                                    (FunctionType
+                                        [(Integer 4)
+                                        (Integer 4)]
+                                        (Integer 4)
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .true.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    [(Var 4 x)
+                                    (Var 4 y)]
+                                    [(Assignment
+                                        (Var 4 _lpython_return_variable)
+                                        (IntegerBinOp
+                                            (Var 4 x)
+                                            BitAnd
+                                            (Var 4 y)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Return)]
+                                    (Var 4 _lpython_return_variable)
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            main0:
+                                (Function
+                                    (SymbolTable
+                                        5
+                                        {
+                                            x:
+                                                (Variable
+                                                    5
+                                                    x
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            y:
+                                                (Variable
+                                                    5
+                                                    y
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            z:
+                                                (Variable
+                                                    5
+                                                    z
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    main0
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [add
+                                    and_op]
+                                    []
+                                    [(Assignment
+                                        (Var 5 x)
+                                        (IntegerBinOp
+                                            (IntegerBinOp
+                                                (IntegerConstant 2 (Integer 4) Decimal)
+                                                Add
+                                                (IntegerConstant 3 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                (IntegerConstant 5 (Integer 4) Decimal)
+                                            )
+                                            Mul
+                                            (IntegerConstant 5 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            (IntegerConstant 25 (Integer 4) Decimal)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 5 y)
+                                        (IntegerBinOp
+                                            (FunctionCall
+                                                2 add
+                                                ()
+                                                [((Var 5 x))
+                                                ((IntegerConstant 2 (Integer 4) Decimal))]
+                                                (Integer 4)
+                                                ()
+                                                ()
+                                            )
+                                            Mul
+                                            (IntegerConstant 2 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (Var 5 x)
+                                            Eq
+                                            (IntegerConstant 25 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (Var 5 y)
+                                            Eq
+                                            (IntegerConstant 54 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 5 z)
+                                        (FunctionCall
+                                            2 and_op
+                                            ()
+                                            [((Var 5 x))
+                                            ((Var 5 y))]
+                                            (Integer 4)
+                                            ()
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (Var 5 z)
+                                            Eq
+                                            (IntegerConstant 16 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    []
+                    .false.
+                    .false.
+                    .false.
+                ),
+            main_program:
+                (Program
+                    (SymbolTable
+                        7
+                        {
+                            __main__global_stmts:
+                                (ExternalSymbol
+                                    7
+                                    __main__global_stmts
+                                    2 __main__global_stmts
+                                    __main__
+                                    []
+                                    __main__global_stmts
+                                    Public
+                                )
+                        })
+                    main_program
+                    [__main__]
+                    [(SubroutineCall
+                        7 __main__global_stmts
+                        2 __main__global_stmts
+                        []
+                        ()
+                        .false.
+                    )]
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-expr_05-3a37324.json b/tests/reference/asr-expr_05-3a37324.json
index 89abd1286d..9efde4c26a 100644
--- a/tests/reference/asr-expr_05-3a37324.json
+++ b/tests/reference/asr-expr_05-3a37324.json
@@ -2,11 +2,11 @@
     "basename": "asr-expr_05-3a37324",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/../integration_tests/expr_05.py",
-    "infile_hash": "e391b0795af9d77b92cd60ce235d00761db224f5056cab55cb6278c2",
+    "infile_hash": "cc922bec30fac0a8eb10efd99f72234aa5638b3c9cd92c68044c69ea",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "asr-expr_05-3a37324.stdout",
-    "stdout_hash": "e2386639a9abab219644cb1274a035f7805eb0f0b6df9fd0b906b32a",
+    "stdout_hash": "dac1d6e3537258142a88a1be4663ea853621d9d91aebd2e5ffa1024c",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/asr-expr_05-3a37324.stdout b/tests/reference/asr-expr_05-3a37324.stdout
index 35c88c58d5..fa171d9d30 100644
--- a/tests/reference/asr-expr_05-3a37324.stdout
+++ b/tests/reference/asr-expr_05-3a37324.stdout
@@ -1 +1,1795 @@
-(TranslationUnit (SymbolTable 1 {_lpython_main_program: (Function (SymbolTable 99 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [main0] [] [(SubroutineCall 1 main0 () [] ())] () Public .false. .false.), lpython_builtin: (IntrinsicModule lpython_builtin), main0: (Function (SymbolTable 4 {_mod: (ExternalSymbol 4 _mod 6 _mod lpython_builtin [] _mod Private), _mod@__lpython_overloaded_0___mod: (ExternalSymbol 4 _mod@__lpython_overloaded_0___mod 6 __lpython_overloaded_0___mod lpython_builtin [] __lpython_overloaded_0___mod Public), a: (Variable 4 a [] Local () () Default (Integer 4 []) Source Public Required .false.), b: (Variable 4 b [] Local () () Default (Integer 4 []) Source Public Required .false.), i: (Variable 4 i [] Local () () Default (Integer 8 []) Source Public Required .false.), i1: (Variable 4 i1 [] Local (IntegerConstant 10 (Integer 4 [])) () Default (Integer 4 []) Source Public Required .false.), i2: (Variable 4 i2 [] Local (IntegerConstant 4 (Integer 4 [])) () Default (Integer 4 []) Source Public Required .false.), i3: (Variable 4 i3 [] Local (IntegerConstant 432534534 (Integer 4 [])) () Default (Integer 4 []) Source Public Required .false.), i4: (Variable 4 i4 [] Local (IntegerUnaryMinus (IntegerConstant 4325 (Integer 4 [])) (Integer 4 []) (IntegerConstant -4325 (Integer 4 []))) () Default (Integer 4 []) Source Public Required .false.)}) main0 (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [test_multiply test_mod test_mod test_mod _mod@__lpython_overloaded_0___mod test_mod _mod@__lpython_overloaded_0___mod] [] [(= (Var 4 a) (IntegerConstant 10 (Integer 4 [])) ()) (= (Var 4 b) (IntegerUnaryMinus (IntegerConstant 5 (Integer 4 [])) (Integer 4 []) (IntegerConstant -5 (Integer 4 []))) ()) (Assert (IntegerCompare (FunctionCall 1 test_multiply () [((Var 4 a)) ((Var 4 b))] (Integer 4 []) () ()) Eq (IntegerUnaryMinus (IntegerConstant 50 (Integer 4 [])) (Integer 4 []) (IntegerConstant -50 (Integer 4 []))) (Logical 4 []) ()) ()) (= (Var 4 i) (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 1 (Integer 8 []))) ()) (= (Var 4 i) (IntegerBinOp (Var 4 i) Add (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToInteger (Integer 8 []) ()) (Integer 8 []) ()) ()) (Assert (IntegerCompare (Var 4 i) Eq (Cast (IntegerConstant 2 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 2 (Integer 8 []))) (Logical 4 []) ()) ()) (= (Var 4 a) (IntegerConstant 2 (Integer 4 [])) ()) (= (Var 4 b) (IntegerConstant 5 (Integer 4 [])) ()) (Assert (IntegerCompare (FunctionCall 1 test_mod () [((Var 4 a)) ((Var 4 b))] (Integer 4 []) () ()) Eq (IntegerConstant 2 (Integer 4 [])) (Logical 4 []) ()) ()) (Assert (IntegerCompare (FunctionCall 1 test_mod () [((IntegerConstant 23 (Integer 4 []))) ((IntegerConstant 3 (Integer 4 [])))] (Integer 4 []) () ()) Eq (IntegerConstant 2 (Integer 4 [])) (Logical 4 []) ()) ()) (= (Var 4 a) (IntegerConstant 123282374 (Integer 4 [])) ()) (= (Var 4 b) (IntegerConstant 32771 (Integer 4 [])) ()) (Assert (IntegerCompare (FunctionCall 1 test_mod () [((Var 4 a)) ((Var 4 b))] (Integer 4 []) () ()) Eq (IntegerConstant 30643 (Integer 4 [])) (Logical 4 []) ()) ()) (= (Var 4 a) (IntegerUnaryMinus (IntegerConstant 5345 (Integer 4 [])) (Integer 4 []) (IntegerConstant -5345 (Integer 4 []))) ()) (= (Var 4 b) (IntegerUnaryMinus (IntegerConstant 534 (Integer 4 [])) (Integer 4 []) (IntegerConstant -534 (Integer 4 []))) ()) (Assert (IntegerCompare (FunctionCall 4 _mod@__lpython_overloaded_0___mod 4 _mod [((Var 4 a)) ((Var 4 b))] (Integer 4 []) () ()) Eq (IntegerUnaryMinus (IntegerConstant 5 (Integer 4 [])) (Integer 4 []) (IntegerConstant -5 (Integer 4 []))) (Logical 4 []) ()) ()) (= (Var 4 a) (IntegerUnaryMinus (IntegerConstant 123282374 (Integer 4 [])) (Integer 4 []) (IntegerConstant -123282374 (Integer 4 []))) ()) (= (Var 4 b) (IntegerConstant 32771 (Integer 4 [])) ()) (Assert (IntegerCompare (FunctionCall 1 test_mod () [((Var 4 a)) ((Var 4 b))] (Integer 4 []) () ()) Eq (IntegerConstant 2128 (Integer 4 [])) (Logical 4 []) ()) ()) (Assert (IntegerCompare (IntegerBinOp (IntegerConstant 10 (Integer 4 [])) BitOr (IntegerConstant 4 (Integer 4 [])) (Integer 4 []) (IntegerConstant 14 (Integer 4 []))) Eq (IntegerConstant 14 (Integer 4 [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (IntegerCompare (IntegerBinOp (IntegerUnaryMinus (IntegerConstant 105346 (Integer 4 [])) (Integer 4 []) (IntegerConstant -105346 (Integer 4 []))) BitOr (IntegerUnaryMinus (IntegerConstant 32771 (Integer 4 [])) (Integer 4 []) (IntegerConstant -32771 (Integer 4 []))) (Integer 4 []) (IntegerConstant -32769 (Integer 4 []))) Eq (IntegerUnaryMinus (IntegerConstant 32769 (Integer 4 [])) (Integer 4 []) (IntegerConstant -32769 (Integer 4 []))) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (IntegerCompare (IntegerBinOp (IntegerConstant 10 (Integer 4 [])) BitAnd (IntegerConstant 4 (Integer 4 [])) (Integer 4 []) (IntegerConstant 0 (Integer 4 []))) Eq (IntegerConstant 0 (Integer 4 [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (IntegerCompare (IntegerBinOp (IntegerUnaryMinus (IntegerConstant 105346 (Integer 4 [])) (Integer 4 []) (IntegerConstant -105346 (Integer 4 []))) BitAnd (IntegerUnaryMinus (IntegerConstant 32771 (Integer 4 [])) (Integer 4 []) (IntegerConstant -32771 (Integer 4 []))) (Integer 4 []) (IntegerConstant -105348 (Integer 4 []))) Eq (IntegerUnaryMinus (IntegerConstant 105348 (Integer 4 [])) (Integer 4 []) (IntegerConstant -105348 (Integer 4 []))) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (IntegerCompare (IntegerBinOp (IntegerConstant 10 (Integer 4 [])) BitXor (IntegerConstant 4 (Integer 4 [])) (Integer 4 []) (IntegerConstant 14 (Integer 4 []))) Eq (IntegerConstant 14 (Integer 4 [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (IntegerCompare (IntegerBinOp (IntegerUnaryMinus (IntegerConstant 105346 (Integer 4 [])) (Integer 4 []) (IntegerConstant -105346 (Integer 4 []))) BitXor (IntegerUnaryMinus (IntegerConstant 32771 (Integer 4 [])) (Integer 4 []) (IntegerConstant -32771 (Integer 4 []))) (Integer 4 []) (IntegerConstant 72579 (Integer 4 []))) Eq (IntegerConstant 72579 (Integer 4 [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (IntegerCompare (IntegerBinOp (IntegerConstant 10 (Integer 4 [])) BitRShift (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant 5 (Integer 4 []))) Eq (IntegerConstant 5 (Integer 4 [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (IntegerCompare (IntegerBinOp (IntegerConstant 5 (Integer 4 [])) BitLShift (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant 10 (Integer 4 []))) Eq (IntegerConstant 10 (Integer 4 [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (= (Var 4 i1) (IntegerConstant 10 (Integer 4 [])) ()) (= (Var 4 i2) (IntegerConstant 4 (Integer 4 [])) ()) (Assert (IntegerCompare (IntegerBinOp (Var 4 i1) BitLShift (Var 4 i2) (Integer 4 []) ()) Eq (IntegerConstant 160 (Integer 4 [])) (Logical 4 []) ()) ()) (Assert (IntegerCompare (IntegerBinOp (Var 4 i1) BitRShift (Var 4 i2) (Integer 4 []) ()) Eq (IntegerConstant 0 (Integer 4 [])) (Logical 4 []) ()) ()) (Assert (IntegerCompare (IntegerBinOp (Var 4 i1) BitAnd (Var 4 i2) (Integer 4 []) ()) Eq (IntegerConstant 0 (Integer 4 [])) (Logical 4 []) ()) ()) (Assert (IntegerCompare (IntegerBinOp (Var 4 i1) BitOr (Var 4 i2) (Integer 4 []) ()) Eq (IntegerConstant 14 (Integer 4 [])) (Logical 4 []) ()) ()) (Assert (IntegerCompare (IntegerBinOp (Var 4 i1) BitXor (Var 4 i2) (Integer 4 []) ()) Eq (IntegerConstant 14 (Integer 4 [])) (Logical 4 []) ()) ()) (Assert (IntegerCompare (IntegerBinOp (IntegerUnaryMinus (Var 4 i1) (Integer 4 []) ()) BitXor (IntegerUnaryMinus (Var 4 i2) (Integer 4 []) ()) (Integer 4 []) ()) Eq (IntegerConstant 10 (Integer 4 [])) (Logical 4 []) ()) ()) (= (Var 4 i3) (IntegerConstant 432534534 (Integer 4 [])) ()) (= (Var 4 i4) (IntegerUnaryMinus (IntegerConstant 4325 (Integer 4 [])) (Integer 4 []) (IntegerConstant -4325 (Integer 4 []))) ()) (Assert (IntegerCompare (IntegerBinOp (Var 4 i3) BitOr (Var 4 i4) (Integer 4 []) ()) Eq (IntegerUnaryMinus (IntegerConstant 225 (Integer 4 [])) (Integer 4 []) (IntegerConstant -225 (Integer 4 []))) (Logical 4 []) ()) ()) (Assert (IntegerCompare (IntegerBinOp (Var 4 i4) BitRShift (IntegerConstant 3 (Integer 4 [])) (Integer 4 []) ()) Eq (IntegerUnaryMinus (IntegerConstant 541 (Integer 4 [])) (Integer 4 []) (IntegerConstant -541 (Integer 4 []))) (Logical 4 []) ()) ()) (Assert (IntegerCompare (IntegerBinOp (IntegerUnaryMinus (Var 4 i3) (Integer 4 []) ()) BitAnd (Var 4 i4) (Integer 4 []) ()) Eq (IntegerUnaryMinus (IntegerConstant 432534758 (Integer 4 [])) (Integer 4 []) (IntegerConstant -432534758 (Integer 4 []))) (Logical 4 []) ()) ()) (Assert (IntegerCompare (IntegerBinOp (IntegerUnaryMinus (Var 4 i3) (Integer 4 []) ()) BitXor (Var 4 i4) (Integer 4 []) ()) Eq (IntegerConstant 432530657 (Integer 4 [])) (Logical 4 []) ()) ()) (= (Var 4 a) (IntegerConstant 10 (Integer 4 [])) ()) (= (Var 4 a) (IntegerBinOp (Var 4 a) BitOr (IntegerConstant 4 (Integer 4 [])) (Integer 4 []) ()) ()) (Assert (IntegerCompare (Var 4 a) Eq (IntegerConstant 14 (Integer 4 [])) (Logical 4 []) ()) ()) (= (Var 4 a) (IntegerBinOp (Var 4 a) BitXor (IntegerConstant 3 (Integer 4 [])) (Integer 4 []) ()) ()) (Assert (IntegerCompare (Var 4 a) Eq (IntegerConstant 13 (Integer 4 [])) (Logical 4 []) ()) ()) (= (Var 4 b) (IntegerConstant 10 (Integer 4 [])) ()) (= (Var 4 a) (FunctionCall 4 _mod@__lpython_overloaded_0___mod 4 _mod [((Var 4 a)) ((Var 4 b))] (Integer 4 []) () ()) ()) (Assert (IntegerCompare (Var 4 a) Eq (IntegerConstant 3 (Integer 4 [])) (Logical 4 []) ()) ()) (= (Var 4 b) (IntegerConstant 4 (Integer 4 [])) ()) (= (Var 4 a) (IntegerBinOp (Var 4 a) BitLShift (Var 4 b) (Integer 4 []) ()) ()) (Assert (IntegerCompare (Var 4 a) Eq (IntegerConstant 48 (Integer 4 [])) (Logical 4 []) ()) ()) (= (Var 4 a) (IntegerBinOp (Var 4 a) BitRShift (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) ()) (Assert (IntegerCompare (Var 4 a) Eq (IntegerConstant 24 (Integer 4 [])) (Logical 4 []) ()) ()) (= (Var 4 a) (IntegerBinOp (Var 4 a) BitAnd (Var 4 b) (Integer 4 []) ()) ()) (Assert (IntegerCompare (Var 4 a) Eq (IntegerConstant 0 (Integer 4 [])) (Logical 4 []) ()) ()) (= (Var 4 b) (IntegerBinOp (Var 4 b) Pow (IntegerConstant 4 (Integer 4 [])) (Integer 4 []) ()) ()) (Assert (IntegerCompare (Var 4 b) Eq (IntegerConstant 256 (Integer 4 [])) (Logical 4 []) ()) ())] () Public .false. .false.), main_program: (Program (SymbolTable 98 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())]), test_mod: (Function (SymbolTable 3 {_lpython_return_variable: (Variable 3 _lpython_return_variable [] ReturnVar () () Default (Integer 4 []) Source Public Required .false.), _mod: (ExternalSymbol 3 _mod 6 _mod lpython_builtin [] _mod Private), _mod@__lpython_overloaded_0___mod: (ExternalSymbol 3 _mod@__lpython_overloaded_0___mod 6 __lpython_overloaded_0___mod lpython_builtin [] __lpython_overloaded_0___mod Public), a: (Variable 3 a [] In () () Default (Integer 4 []) Source Public Required .false.), b: (Variable 3 b [] In () () Default (Integer 4 []) Source Public Required .false.)}) test_mod (FunctionType [(Integer 4 []) (Integer 4 [])] (Integer 4 []) Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [_mod@__lpython_overloaded_0___mod] [(Var 3 a) (Var 3 b)] [(= (Var 3 _lpython_return_variable) (FunctionCall 3 _mod@__lpython_overloaded_0___mod 3 _mod [((Var 3 a)) ((Var 3 b))] (Integer 4 []) () ()) ()) (Return)] (Var 3 _lpython_return_variable) Public .false. .false.), test_multiply: (Function (SymbolTable 2 {_lpython_return_variable: (Variable 2 _lpython_return_variable [] ReturnVar () () Default (Integer 4 []) Source Public Required .false.), a: (Variable 2 a [] In () () Default (Integer 4 []) Source Public Required .false.), b: (Variable 2 b [] In () () Default (Integer 4 []) Source Public Required .false.)}) test_multiply (FunctionType [(Integer 4 []) (Integer 4 [])] (Integer 4 []) Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 2 a) (Var 2 b)] [(= (Var 2 _lpython_return_variable) (IntegerBinOp (Var 2 a) Mul (Var 2 b) (Integer 4 []) ()) ()) (Return)] (Var 2 _lpython_return_variable) Public .false. .false.)}) [])
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            __main__global_stmts:
+                                (Function
+                                    (SymbolTable
+                                        143
+                                        {
+                                            
+                                        })
+                                    __main__global_stmts
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [main0]
+                                    []
+                                    [(SubroutineCall
+                                        2 main0
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            main0:
+                                (Function
+                                    (SymbolTable
+                                        5
+                                        {
+                                            _mod:
+                                                (ExternalSymbol
+                                                    5
+                                                    _mod
+                                                    6 _mod
+                                                    lpython_builtin
+                                                    []
+                                                    _mod
+                                                    Private
+                                                ),
+                                            _mod@__lpython_overloaded_2___mod:
+                                                (ExternalSymbol
+                                                    5
+                                                    _mod@__lpython_overloaded_2___mod
+                                                    6 __lpython_overloaded_2___mod
+                                                    lpython_builtin
+                                                    []
+                                                    __lpython_overloaded_2___mod
+                                                    Public
+                                                ),
+                                            _mod@__lpython_overloaded_4___mod:
+                                                (ExternalSymbol
+                                                    5
+                                                    _mod@__lpython_overloaded_4___mod
+                                                    6 __lpython_overloaded_4___mod
+                                                    lpython_builtin
+                                                    []
+                                                    __lpython_overloaded_4___mod
+                                                    Public
+                                                ),
+                                            _mod@__lpython_overloaded_9___mod:
+                                                (ExternalSymbol
+                                                    5
+                                                    _mod@__lpython_overloaded_9___mod
+                                                    6 __lpython_overloaded_9___mod
+                                                    lpython_builtin
+                                                    []
+                                                    __lpython_overloaded_9___mod
+                                                    Public
+                                                ),
+                                            a:
+                                                (Variable
+                                                    5
+                                                    a
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            a1:
+                                                (Variable
+                                                    5
+                                                    a1
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (UnsignedInteger
+                                                        2
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            b:
+                                                (Variable
+                                                    5
+                                                    b
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            b1:
+                                                (Variable
+                                                    5
+                                                    b1
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (UnsignedInteger
+                                                        2
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            c1:
+                                                (Variable
+                                                    5
+                                                    c1
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (UnsignedInteger
+                                                        2
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            eps:
+                                                (Variable
+                                                    5
+                                                    eps
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            i:
+                                                (Variable
+                                                    5
+                                                    i
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            i1:
+                                                (Variable
+                                                    5
+                                                    i1
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            i2:
+                                                (Variable
+                                                    5
+                                                    i2
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            i3:
+                                                (Variable
+                                                    5
+                                                    i3
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            i4:
+                                                (Variable
+                                                    5
+                                                    i4
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    main0
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [test_multiply
+                                    test_mod]
+                                    []
+                                    [(Assignment
+                                        (Var 5 a)
+                                        (IntegerConstant 10 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 5 b)
+                                        (IntegerUnaryMinus
+                                            (IntegerConstant 5 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            (IntegerConstant -5 (Integer 4) Decimal)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 5 eps)
+                                        (RealConstant
+                                            0.000000
+                                            (Real 8)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (FunctionCall
+                                                2 test_multiply
+                                                ()
+                                                [((Var 5 a))
+                                                ((Var 5 b))]
+                                                (Integer 4)
+                                                ()
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerUnaryMinus
+                                                (IntegerConstant 50 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                (IntegerConstant -50 (Integer 4) Decimal)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 5 i)
+                                        (Cast
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            IntegerToInteger
+                                            (Integer 8)
+                                            (IntegerConstant 1 (Integer 8) Decimal)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 5 i)
+                                        (IntegerBinOp
+                                            (Var 5 i)
+                                            Add
+                                            (IntrinsicElementalFunction
+                                                Int
+                                                [(IntegerConstant 1 (Integer 4) Decimal)]
+                                                0
+                                                (Integer 8)
+                                                (IntegerConstant 1 (Integer 8) Decimal)
+                                            )
+                                            (Integer 8)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (Var 5 i)
+                                            Eq
+                                            (Cast
+                                                (IntegerConstant 2 (Integer 4) Decimal)
+                                                IntegerToInteger
+                                                (Integer 8)
+                                                (IntegerConstant 2 (Integer 8) Decimal)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 5 a)
+                                        (IntegerConstant 2 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 5 b)
+                                        (IntegerConstant 5 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (FunctionCall
+                                                2 test_mod
+                                                ()
+                                                [((Var 5 a))
+                                                ((Var 5 b))]
+                                                (Integer 4)
+                                                ()
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerConstant 2 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (FunctionCall
+                                                2 test_mod
+                                                ()
+                                                [((IntegerConstant 23 (Integer 4) Decimal))
+                                                ((IntegerConstant 3 (Integer 4) Decimal))]
+                                                (Integer 4)
+                                                ()
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerConstant 2 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 5 a)
+                                        (IntegerConstant 123282374 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 5 b)
+                                        (IntegerConstant 32771 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (FunctionCall
+                                                2 test_mod
+                                                ()
+                                                [((Var 5 a))
+                                                ((Var 5 b))]
+                                                (Integer 4)
+                                                ()
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerConstant 30643 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 5 a)
+                                        (IntegerUnaryMinus
+                                            (IntegerConstant 5345 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            (IntegerConstant -5345 (Integer 4) Decimal)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 5 b)
+                                        (IntegerUnaryMinus
+                                            (IntegerConstant 534 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            (IntegerConstant -534 (Integer 4) Decimal)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (FunctionCall
+                                                5 _mod@__lpython_overloaded_2___mod
+                                                5 _mod
+                                                [((Var 5 a))
+                                                ((Var 5 b))]
+                                                (Integer 4)
+                                                ()
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerUnaryMinus
+                                                (IntegerConstant 5 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                (IntegerConstant -5 (Integer 4) Decimal)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 5 a)
+                                        (IntegerUnaryMinus
+                                            (IntegerConstant 123282374 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            (IntegerConstant -123282374 (Integer 4) Decimal)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 5 b)
+                                        (IntegerConstant 32771 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (FunctionCall
+                                                2 test_mod
+                                                ()
+                                                [((Var 5 a))
+                                                ((Var 5 b))]
+                                                (Integer 4)
+                                                ()
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerConstant 2128 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (IntegerBinOp
+                                                (IntegerConstant 10 (Integer 4) Decimal)
+                                                BitOr
+                                                (IntegerConstant 4 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                (IntegerConstant 14 (Integer 4) Decimal)
+                                            )
+                                            Eq
+                                            (IntegerConstant 14 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (IntegerBinOp
+                                                (IntegerUnaryMinus
+                                                    (IntegerConstant 105346 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    (IntegerConstant -105346 (Integer 4) Decimal)
+                                                )
+                                                BitOr
+                                                (IntegerUnaryMinus
+                                                    (IntegerConstant 32771 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    (IntegerConstant -32771 (Integer 4) Decimal)
+                                                )
+                                                (Integer 4)
+                                                (IntegerConstant -32769 (Integer 4) Decimal)
+                                            )
+                                            Eq
+                                            (IntegerUnaryMinus
+                                                (IntegerConstant 32769 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                (IntegerConstant -32769 (Integer 4) Decimal)
+                                            )
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (IntegerBinOp
+                                                (IntegerConstant 10 (Integer 4) Decimal)
+                                                BitAnd
+                                                (IntegerConstant 4 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                            )
+                                            Eq
+                                            (IntegerConstant 0 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (IntegerBinOp
+                                                (IntegerUnaryMinus
+                                                    (IntegerConstant 105346 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    (IntegerConstant -105346 (Integer 4) Decimal)
+                                                )
+                                                BitAnd
+                                                (IntegerUnaryMinus
+                                                    (IntegerConstant 32771 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    (IntegerConstant -32771 (Integer 4) Decimal)
+                                                )
+                                                (Integer 4)
+                                                (IntegerConstant -105348 (Integer 4) Decimal)
+                                            )
+                                            Eq
+                                            (IntegerUnaryMinus
+                                                (IntegerConstant 105348 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                (IntegerConstant -105348 (Integer 4) Decimal)
+                                            )
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (IntegerBinOp
+                                                (IntegerConstant 10 (Integer 4) Decimal)
+                                                BitXor
+                                                (IntegerConstant 4 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                (IntegerConstant 14 (Integer 4) Decimal)
+                                            )
+                                            Eq
+                                            (IntegerConstant 14 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (IntegerBinOp
+                                                (IntegerUnaryMinus
+                                                    (IntegerConstant 105346 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    (IntegerConstant -105346 (Integer 4) Decimal)
+                                                )
+                                                BitXor
+                                                (IntegerUnaryMinus
+                                                    (IntegerConstant 32771 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    (IntegerConstant -32771 (Integer 4) Decimal)
+                                                )
+                                                (Integer 4)
+                                                (IntegerConstant 72579 (Integer 4) Decimal)
+                                            )
+                                            Eq
+                                            (IntegerConstant 72579 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (IntegerBinOp
+                                                (IntegerConstant 10 (Integer 4) Decimal)
+                                                BitRShift
+                                                (IntegerConstant 1 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                (IntegerConstant 5 (Integer 4) Decimal)
+                                            )
+                                            Eq
+                                            (IntegerConstant 5 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (IntegerBinOp
+                                                (IntegerConstant 5 (Integer 4) Decimal)
+                                                BitLShift
+                                                (IntegerConstant 1 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                (IntegerConstant 10 (Integer 4) Decimal)
+                                            )
+                                            Eq
+                                            (IntegerConstant 10 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 5 i1)
+                                        (IntegerConstant 10 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 5 i2)
+                                        (IntegerConstant 4 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (IntegerBinOp
+                                                (Var 5 i1)
+                                                BitLShift
+                                                (Var 5 i2)
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerConstant 160 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (IntegerBinOp
+                                                (Var 5 i1)
+                                                BitRShift
+                                                (Var 5 i2)
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerConstant 0 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (IntegerBinOp
+                                                (Var 5 i1)
+                                                BitAnd
+                                                (Var 5 i2)
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerConstant 0 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (IntegerBinOp
+                                                (Var 5 i1)
+                                                BitOr
+                                                (Var 5 i2)
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerConstant 14 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (IntegerBinOp
+                                                (Var 5 i1)
+                                                BitXor
+                                                (Var 5 i2)
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerConstant 14 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (IntegerBinOp
+                                                (IntegerUnaryMinus
+                                                    (Var 5 i1)
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                BitXor
+                                                (IntegerUnaryMinus
+                                                    (Var 5 i2)
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerConstant 10 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 5 i3)
+                                        (IntegerConstant 432534534 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 5 i4)
+                                        (IntegerUnaryMinus
+                                            (IntegerConstant 4325 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            (IntegerConstant -4325 (Integer 4) Decimal)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (IntegerBinOp
+                                                (Var 5 i3)
+                                                BitOr
+                                                (Var 5 i4)
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerUnaryMinus
+                                                (IntegerConstant 225 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                (IntegerConstant -225 (Integer 4) Decimal)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (IntegerBinOp
+                                                (Var 5 i4)
+                                                BitRShift
+                                                (IntegerConstant 3 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerUnaryMinus
+                                                (IntegerConstant 541 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                (IntegerConstant -541 (Integer 4) Decimal)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (IntegerBinOp
+                                                (IntegerUnaryMinus
+                                                    (Var 5 i3)
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                BitAnd
+                                                (Var 5 i4)
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerUnaryMinus
+                                                (IntegerConstant 432534758 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                (IntegerConstant -432534758 (Integer 4) Decimal)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (IntegerBinOp
+                                                (IntegerUnaryMinus
+                                                    (Var 5 i3)
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                BitXor
+                                                (Var 5 i4)
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerConstant 432530657 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 5 a)
+                                        (IntegerConstant 10 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 5 a)
+                                        (IntegerBinOp
+                                            (Var 5 a)
+                                            BitOr
+                                            (IntegerConstant 4 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (Var 5 a)
+                                            Eq
+                                            (IntegerConstant 14 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 5 a)
+                                        (IntegerBinOp
+                                            (Var 5 a)
+                                            BitXor
+                                            (IntegerConstant 3 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (Var 5 a)
+                                            Eq
+                                            (IntegerConstant 13 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 5 b)
+                                        (IntegerConstant 10 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 5 a)
+                                        (FunctionCall
+                                            5 _mod@__lpython_overloaded_2___mod
+                                            5 _mod
+                                            [((Var 5 a))
+                                            ((Var 5 b))]
+                                            (Integer 4)
+                                            ()
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (Var 5 a)
+                                            Eq
+                                            (IntegerConstant 3 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 5 b)
+                                        (IntegerConstant 4 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 5 a)
+                                        (IntegerBinOp
+                                            (Var 5 a)
+                                            BitLShift
+                                            (Var 5 b)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (Var 5 a)
+                                            Eq
+                                            (IntegerConstant 48 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 5 a)
+                                        (IntegerBinOp
+                                            (Var 5 a)
+                                            BitRShift
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (Var 5 a)
+                                            Eq
+                                            (IntegerConstant 24 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 5 a)
+                                        (IntegerBinOp
+                                            (Var 5 a)
+                                            BitAnd
+                                            (Var 5 b)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (Var 5 a)
+                                            Eq
+                                            (IntegerConstant 0 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 5 b)
+                                        (IntegerBinOp
+                                            (Var 5 b)
+                                            Pow
+                                            (IntegerConstant 4 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (Var 5 b)
+                                            Eq
+                                            (IntegerConstant 256 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (FunctionCall
+                                                5 _mod@__lpython_overloaded_2___mod
+                                                5 _mod
+                                                [((IntegerUnaryMinus
+                                                    (IntegerConstant 8 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    (IntegerConstant -8 (Integer 4) Decimal)
+                                                ))
+                                                ((IntegerConstant 3 (Integer 4) Decimal))]
+                                                (Integer 4)
+                                                (IntegerConstant 1 (Integer 4) Decimal)
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (FunctionCall
+                                                5 _mod@__lpython_overloaded_2___mod
+                                                5 _mod
+                                                [((IntegerConstant 8 (Integer 4) Decimal))
+                                                ((IntegerUnaryMinus
+                                                    (IntegerConstant 3 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    (IntegerConstant -3 (Integer 4) Decimal)
+                                                ))]
+                                                (Integer 4)
+                                                (IntegerConstant -1 (Integer 4) Decimal)
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerUnaryMinus
+                                                (IntegerConstant 1 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                (IntegerConstant -1 (Integer 4) Decimal)
+                                            )
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (FunctionCall
+                                                5 _mod@__lpython_overloaded_2___mod
+                                                5 _mod
+                                                [((IntegerUnaryMinus
+                                                    (IntegerConstant 8 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    (IntegerConstant -8 (Integer 4) Decimal)
+                                                ))
+                                                ((IntegerUnaryMinus
+                                                    (IntegerConstant 3 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    (IntegerConstant -3 (Integer 4) Decimal)
+                                                ))]
+                                                (Integer 4)
+                                                (IntegerConstant -2 (Integer 4) Decimal)
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerUnaryMinus
+                                                (IntegerConstant 2 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                (IntegerConstant -2 (Integer 4) Decimal)
+                                            )
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealBinOp
+                                                    (FunctionCall
+                                                        5 _mod@__lpython_overloaded_9___mod
+                                                        5 _mod
+                                                        [((RealConstant
+                                                            11.000000
+                                                            (Real 8)
+                                                        ))
+                                                        ((RealUnaryMinus
+                                                            (RealConstant
+                                                                3.000000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -3.000000
+                                                                (Real 8)
+                                                            )
+                                                        ))]
+                                                        (Real 8)
+                                                        (RealConstant
+                                                            -1.000000
+                                                            (Real 8)
+                                                        )
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (RealUnaryMinus
+                                                        (RealConstant
+                                                            1.000000
+                                                            (Real 8)
+                                                        )
+                                                        (Real 8)
+                                                        (RealConstant
+                                                            -1.000000
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                    (Real 8)
+                                                    (RealConstant
+                                                        0.000000
+                                                        (Real 8)
+                                                    )
+                                                )]
+                                                0
+                                                (Real 8)
+                                                (RealConstant
+                                                    0.000000
+                                                    (Real 8)
+                                                )
+                                            )
+                                            Lt
+                                            (Var 5 eps)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealBinOp
+                                                    (FunctionCall
+                                                        5 _mod@__lpython_overloaded_9___mod
+                                                        5 _mod
+                                                        [((RealUnaryMinus
+                                                            (RealConstant
+                                                                11.000000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -11.000000
+                                                                (Real 8)
+                                                            )
+                                                        ))
+                                                        ((RealConstant
+                                                            3.000000
+                                                            (Real 8)
+                                                        ))]
+                                                        (Real 8)
+                                                        (RealConstant
+                                                            1.000000
+                                                            (Real 8)
+                                                        )
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (RealConstant
+                                                        1.000000
+                                                        (Real 8)
+                                                    )
+                                                    (Real 8)
+                                                    (RealConstant
+                                                        0.000000
+                                                        (Real 8)
+                                                    )
+                                                )]
+                                                0
+                                                (Real 8)
+                                                (RealConstant
+                                                    0.000000
+                                                    (Real 8)
+                                                )
+                                            )
+                                            Lt
+                                            (Var 5 eps)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 5 a1)
+                                        (Cast
+                                            (IntegerConstant 10 (Integer 4) Decimal)
+                                            IntegerToUnsignedInteger
+                                            (UnsignedInteger
+                                                2
+                                            )
+                                            (UnsignedIntegerConstant
+                                                10
+                                                (UnsignedInteger
+                                                    2
+                                                )
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 5 b1)
+                                        (Cast
+                                            (IntegerConstant 3 (Integer 4) Decimal)
+                                            IntegerToUnsignedInteger
+                                            (UnsignedInteger
+                                                2
+                                            )
+                                            (UnsignedIntegerConstant
+                                                3
+                                                (UnsignedInteger
+                                                    2
+                                                )
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 5 c1)
+                                        (FunctionCall
+                                            5 _mod@__lpython_overloaded_4___mod
+                                            5 _mod
+                                            [((Var 5 a1))
+                                            ((Var 5 b1))]
+                                            (UnsignedInteger
+                                                2
+                                            )
+                                            ()
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (UnsignedIntegerCompare
+                                            (Var 5 c1)
+                                            Eq
+                                            (Cast
+                                                (IntegerConstant 1 (Integer 4) Decimal)
+                                                IntegerToUnsignedInteger
+                                                (UnsignedInteger
+                                                    2
+                                                )
+                                                (UnsignedIntegerConstant
+                                                    1
+                                                    (UnsignedInteger
+                                                        2
+                                                    )
+                                                )
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 5 c1)
+                                        (IntrinsicElementalFunction
+                                            FloorDiv
+                                            [(Var 5 a1)
+                                            (Var 5 b1)]
+                                            0
+                                            (UnsignedInteger
+                                                2
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (UnsignedIntegerCompare
+                                            (Var 5 c1)
+                                            Eq
+                                            (Cast
+                                                (IntegerConstant 3 (Integer 4) Decimal)
+                                                IntegerToUnsignedInteger
+                                                (UnsignedInteger
+                                                    2
+                                                )
+                                                (UnsignedIntegerConstant
+                                                    3
+                                                    (UnsignedInteger
+                                                        2
+                                                    )
+                                                )
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            test_mod:
+                                (Function
+                                    (SymbolTable
+                                        4
+                                        {
+                                            _lpython_return_variable:
+                                                (Variable
+                                                    4
+                                                    _lpython_return_variable
+                                                    []
+                                                    ReturnVar
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            _mod:
+                                                (ExternalSymbol
+                                                    4
+                                                    _mod
+                                                    6 _mod
+                                                    lpython_builtin
+                                                    []
+                                                    _mod
+                                                    Private
+                                                ),
+                                            _mod@__lpython_overloaded_2___mod:
+                                                (ExternalSymbol
+                                                    4
+                                                    _mod@__lpython_overloaded_2___mod
+                                                    6 __lpython_overloaded_2___mod
+                                                    lpython_builtin
+                                                    []
+                                                    __lpython_overloaded_2___mod
+                                                    Public
+                                                ),
+                                            a:
+                                                (Variable
+                                                    4
+                                                    a
+                                                    []
+                                                    In
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            b:
+                                                (Variable
+                                                    4
+                                                    b
+                                                    []
+                                                    In
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test_mod
+                                    (FunctionType
+                                        [(Integer 4)
+                                        (Integer 4)]
+                                        (Integer 4)
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    [(Var 4 a)
+                                    (Var 4 b)]
+                                    [(Assignment
+                                        (Var 4 _lpython_return_variable)
+                                        (FunctionCall
+                                            4 _mod@__lpython_overloaded_2___mod
+                                            4 _mod
+                                            [((Var 4 a))
+                                            ((Var 4 b))]
+                                            (Integer 4)
+                                            ()
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Return)]
+                                    (Var 4 _lpython_return_variable)
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            test_multiply:
+                                (Function
+                                    (SymbolTable
+                                        3
+                                        {
+                                            _lpython_return_variable:
+                                                (Variable
+                                                    3
+                                                    _lpython_return_variable
+                                                    []
+                                                    ReturnVar
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            a:
+                                                (Variable
+                                                    3
+                                                    a
+                                                    []
+                                                    In
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            b:
+                                                (Variable
+                                                    3
+                                                    b
+                                                    []
+                                                    In
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test_multiply
+                                    (FunctionType
+                                        [(Integer 4)
+                                        (Integer 4)]
+                                        (Integer 4)
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    [(Var 3 a)
+                                    (Var 3 b)]
+                                    [(Assignment
+                                        (Var 3 _lpython_return_variable)
+                                        (IntegerBinOp
+                                            (Var 3 a)
+                                            Mul
+                                            (Var 3 b)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Return)]
+                                    (Var 3 _lpython_return_variable)
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    [lpython_builtin]
+                    .false.
+                    .false.
+                    .false.
+                ),
+            lpython_builtin:
+                (IntrinsicModule lpython_builtin),
+            main_program:
+                (Program
+                    (SymbolTable
+                        144
+                        {
+                            __main__global_stmts:
+                                (ExternalSymbol
+                                    144
+                                    __main__global_stmts
+                                    2 __main__global_stmts
+                                    __main__
+                                    []
+                                    __main__global_stmts
+                                    Public
+                                )
+                        })
+                    main_program
+                    [__main__]
+                    [(SubroutineCall
+                        144 __main__global_stmts
+                        2 __main__global_stmts
+                        []
+                        ()
+                        .false.
+                    )]
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-expr_07-7742668.json b/tests/reference/asr-expr_07-7742668.json
index 8b173bed8f..9904c4b3cf 100644
--- a/tests/reference/asr-expr_07-7742668.json
+++ b/tests/reference/asr-expr_07-7742668.json
@@ -2,11 +2,11 @@
     "basename": "asr-expr_07-7742668",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/../integration_tests/expr_07.py",
-    "infile_hash": "d8ed3fe56d955e95df5881ab629099ffb257b66f655563c5117dd7d2",
+    "infile_hash": "5c3cc1f1662783acd989ceafcb0eb3259e0194dad005c5bd4e502710",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "asr-expr_07-7742668.stdout",
-    "stdout_hash": "63e379246afc82b9efda67a8f0f7cf25e6d7607858704ab5ad0a3a39",
+    "stdout_hash": "0d3d169b0a1f448e4ad89216fee756394c1c6940c1ca69cfce55db7e",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/asr-expr_07-7742668.stdout b/tests/reference/asr-expr_07-7742668.stdout
index edcb29ea38..abeaf9dfcd 100644
--- a/tests/reference/asr-expr_07-7742668.stdout
+++ b/tests/reference/asr-expr_07-7742668.stdout
@@ -1 +1,504 @@
-(TranslationUnit (SymbolTable 1 {_lpython_main_program: (Function (SymbolTable 6 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [f bool_to_str] [] [(SubroutineCall 1 f () [] ()) (SubroutineCall 1 bool_to_str () [] ())] () Public .false. .false.), bool_to_str: (Function (SymbolTable 4 {var: (Variable 4 var [] Local () () Default (Logical 4 []) Source Public Required .false.)}) bool_to_str (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [] [(= (Var 4 var) (LogicalConstant .true. (Logical 4 [])) ()) (Print () [(Cast (LogicalConstant .true. (Logical 4 [])) LogicalToCharacter (Character 1 -2 () []) (StringConstant "True" (Character 1 4 () [])))] () ()) (Assert (StringCompare (Cast (Var 4 var) LogicalToCharacter (Character 1 -2 () []) ()) Eq (StringConstant "True" (Character 1 4 () [])) (Logical 4 []) ()) ()) (= (Var 4 var) (LogicalConstant .false. (Logical 4 [])) ()) (Assert (StringCompare (Cast (Var 4 var) LogicalToCharacter (Character 1 -2 () []) ()) Eq (StringConstant "False" (Character 1 5 () [])) (Logical 4 []) ()) ()) (Assert (StringCompare (Cast (LogicalConstant .true. (Logical 4 [])) LogicalToCharacter (Character 1 -2 () []) (StringConstant "True" (Character 1 4 () []))) Eq (StringConstant "True" (Character 1 4 () [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ())] () Public .false. .false.), f: (Function (SymbolTable 3 {a: (Variable 3 a [] Local (IntegerConstant 5 (Integer 4 [])) () Default (Integer 4 []) Source Public Required .false.), b: (Variable 3 b [x] Local (IntegerBinOp (Var 3 x) Add (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) () Default (Integer 4 []) Source Public Required .false.), x: (Variable 3 x [] Local (IntegerConstant 3 (Integer 4 [])) () Default (Integer 4 []) Source Public Required .false.)}) f (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [g] [] [(= (Var 3 a) (IntegerConstant 5 (Integer 4 [])) ()) (= (Var 3 x) (IntegerConstant 3 (Integer 4 [])) ()) (= (Var 3 x) (IntegerConstant 5 (Integer 4 [])) ()) (= (Var 3 b) (IntegerBinOp (Var 3 x) Add (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) ()) (Print () [(Var 3 a) (Var 3 b)] () ()) (Assert (IntegerCompare (Var 3 b) Eq (IntegerConstant 6 (Integer 4 [])) (Logical 4 []) ()) ()) (SubroutineCall 1 g () [((IntegerBinOp (IntegerBinOp (Var 3 a) Mul (Var 3 b) (Integer 4 []) ()) Add (IntegerConstant 3 (Integer 4 [])) (Integer 4 []) ()))] ())] () Public .false. .false.), g: (Function (SymbolTable 2 {x: (Variable 2 x [] In () () Default (Integer 4 []) Source Public Required .false.)}) g (FunctionType [(Integer 4 [])] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 2 x)] [(Print () [(Var 2 x)] () ())] () Public .false. .false.), main_program: (Program (SymbolTable 5 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())]), x: (Variable 1 x [] Local (IntegerConstant 7 (Integer 4 [])) () Default (Integer 4 []) Source Public Required .false.)}) [])
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            __main__global_stmts:
+                                (Function
+                                    (SymbolTable
+                                        6
+                                        {
+                                            
+                                        })
+                                    __main__global_stmts
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [f
+                                    bool_to_str]
+                                    []
+                                    [(SubroutineCall
+                                        2 f
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )
+                                    (SubroutineCall
+                                        2 bool_to_str
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            bool_to_str:
+                                (Function
+                                    (SymbolTable
+                                        5
+                                        {
+                                            var:
+                                                (Variable
+                                                    5
+                                                    var
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Logical 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    bool_to_str
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 5 var)
+                                        (LogicalConstant
+                                            .true.
+                                            (Logical 4)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(Cast
+                                                (LogicalConstant
+                                                    .true.
+                                                    (Logical 4)
+                                                )
+                                                LogicalToString
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                                (StringConstant
+                                                    "True"
+                                                    (Allocatable
+                                                        (String 1 () DeferredLength DescriptorString)
+                                                    )
+                                                )
+                                            )]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )
+                                    (Assert
+                                        (StringCompare
+                                            (Cast
+                                                (Var 5 var)
+                                                LogicalToString
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                                ()
+                                            )
+                                            Eq
+                                            (StringConstant
+                                                "True"
+                                                (String 1 (IntegerConstant 4 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 5 var)
+                                        (LogicalConstant
+                                            .false.
+                                            (Logical 4)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (StringCompare
+                                            (Cast
+                                                (Var 5 var)
+                                                LogicalToString
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                                ()
+                                            )
+                                            Eq
+                                            (StringConstant
+                                                "False"
+                                                (String 1 (IntegerConstant 5 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (StringCompare
+                                            (Cast
+                                                (LogicalConstant
+                                                    .true.
+                                                    (Logical 4)
+                                                )
+                                                LogicalToString
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                                (StringConstant
+                                                    "True"
+                                                    (Allocatable
+                                                        (String 1 () DeferredLength DescriptorString)
+                                                    )
+                                                )
+                                            )
+                                            Eq
+                                            (StringConstant
+                                                "True"
+                                                (String 1 (IntegerConstant 4 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            f:
+                                (Function
+                                    (SymbolTable
+                                        4
+                                        {
+                                            a:
+                                                (Variable
+                                                    4
+                                                    a
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            b:
+                                                (Variable
+                                                    4
+                                                    b
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            x:
+                                                (Variable
+                                                    4
+                                                    x
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    f
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [g]
+                                    []
+                                    [(Assignment
+                                        (Var 4 a)
+                                        (IntegerConstant 5 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 x)
+                                        (IntegerConstant 3 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 x)
+                                        (IntegerConstant 5 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 b)
+                                        (IntegerBinOp
+                                            (Var 4 x)
+                                            Add
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(Var 4 a)
+                                            (Var 4 b)]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (Var 4 b)
+                                            Eq
+                                            (IntegerConstant 6 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (SubroutineCall
+                                        2 g
+                                        ()
+                                        [((IntegerBinOp
+                                            (IntegerBinOp
+                                                (Var 4 a)
+                                                Mul
+                                                (Var 4 b)
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Add
+                                            (IntegerConstant 3 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            ()
+                                        ))]
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            g:
+                                (Function
+                                    (SymbolTable
+                                        3
+                                        {
+                                            x:
+                                                (Variable
+                                                    3
+                                                    x
+                                                    []
+                                                    In
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    g
+                                    (FunctionType
+                                        [(Integer 4)]
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    [(Var 3 x)]
+                                    [(Print
+                                        (StringFormat
+                                            ()
+                                            [(Var 3 x)]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            x:
+                                (Variable
+                                    2
+                                    x
+                                    []
+                                    Local
+                                    (IntegerConstant 7 (Integer 4) Decimal)
+                                    (IntegerConstant 7 (Integer 4) Decimal)
+                                    Default
+                                    (Integer 4)
+                                    ()
+                                    Source
+                                    Public
+                                    Required
+                                    .false.
+                                    .false.
+                                    .false.
+                                    ()
+                                    .false.
+                                    .false.
+                                )
+                        })
+                    __main__
+                    ()
+                    []
+                    .false.
+                    .false.
+                    .false.
+                ),
+            main_program:
+                (Program
+                    (SymbolTable
+                        7
+                        {
+                            __main__global_stmts:
+                                (ExternalSymbol
+                                    7
+                                    __main__global_stmts
+                                    2 __main__global_stmts
+                                    __main__
+                                    []
+                                    __main__global_stmts
+                                    Public
+                                )
+                        })
+                    main_program
+                    [__main__]
+                    [(SubroutineCall
+                        7 __main__global_stmts
+                        2 __main__global_stmts
+                        []
+                        ()
+                        .false.
+                    )]
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-expr_09-f3e89c8.json b/tests/reference/asr-expr_09-f3e89c8.json
index a74bbe1857..e5f75b4713 100644
--- a/tests/reference/asr-expr_09-f3e89c8.json
+++ b/tests/reference/asr-expr_09-f3e89c8.json
@@ -2,11 +2,11 @@
     "basename": "asr-expr_09-f3e89c8",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/../integration_tests/expr_09.py",
-    "infile_hash": "db79abe01838623b1051f32c79d69f192406adec0744350b668b6fec",
+    "infile_hash": "5786bfd0706e0850ec51d9f6cface5c7df4c30f3b4715f2e76cc553b",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "asr-expr_09-f3e89c8.stdout",
-    "stdout_hash": "e5df225f3896d777509d364c986631101c129dd7a267efbc81e5b3e4",
+    "stdout_hash": "c53f74c8554f16f918aa142fd4f0ef962763ddf26bb05b6c7abd04bf",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/asr-expr_09-f3e89c8.stdout b/tests/reference/asr-expr_09-f3e89c8.stdout
index b7fa25d1cf..5c0e5d95ac 100644
--- a/tests/reference/asr-expr_09-f3e89c8.stdout
+++ b/tests/reference/asr-expr_09-f3e89c8.stdout
@@ -1 +1,1138 @@
-(TranslationUnit (SymbolTable 1 {_lpython_main_program: (Function (SymbolTable 101 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [test_multiple_assign_1 test_issue_928 main0] [] [(SubroutineCall 1 test_multiple_assign_1 () [] ()) (SubroutineCall 1 test_issue_928 () [] ()) (SubroutineCall 1 main0 () [] ())] () Public .false. .false.), lpython_builtin: (IntrinsicModule lpython_builtin), main0: (Function (SymbolTable 2 {i1: (Variable 2 i1 [] Local (IntegerConstant 10 (Integer 4 [])) () Default (Integer 4 []) Source Public Required .false.), i2: (Variable 2 i2 [] Local (IntegerConstant 4 (Integer 4 [])) () Default (Integer 4 []) Source Public Required .false.)}) main0 (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [] [(= (Var 2 i1) (IntegerConstant 10 (Integer 4 [])) ()) (= (Var 2 i2) (IntegerConstant 4 (Integer 4 [])) ()) (= (Var 2 i1) (IntegerConstant 3 (Integer 4 [])) ()) (= (Var 2 i2) (IntegerConstant 5 (Integer 4 [])) ()) (Print () [(IntegerBinOp (IntegerUnaryMinus (Var 2 i1) (Integer 4 []) ()) BitXor (IntegerUnaryMinus (Var 2 i2) (Integer 4 []) ()) (Integer 4 []) ())] () ()) (Assert (IntegerCompare (IntegerBinOp (IntegerUnaryMinus (Var 2 i1) (Integer 4 []) ()) BitXor (IntegerUnaryMinus (Var 2 i2) (Integer 4 []) ()) (Integer 4 []) ()) Eq (IntegerConstant 6 (Integer 4 [])) (Logical 4 []) ()) ())] () Public .false. .false.), main_program: (Program (SymbolTable 100 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())]), test_issue_928: (Function (SymbolTable 4 {a: (Variable 4 a [] Local () () Default (Integer 4 []) Source Public Required .false.), b: (Variable 4 b [] Local () () Default (Integer 4 []) Source Public Required .false.), c: (Variable 4 c [] Local () () Default (Tuple [(Integer 4 []) (Integer 4 [])]) Source Public Required .false.)}) test_issue_928 (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [] [(= (TupleConstant [(Var 4 a) (Var 4 b)] (Tuple [(Integer 4 []) (Integer 4 [])])) (TupleConstant [(IntegerConstant 2 (Integer 4 [])) (IntegerConstant 1 (Integer 4 []))] (Tuple [(Integer 4 []) (Integer 4 [])])) ()) (= (Var 4 c) (TupleConstant [(IntegerConstant 2 (Integer 4 [])) (IntegerConstant 1 (Integer 4 []))] (Tuple [(Integer 4 []) (Integer 4 [])])) ()) (Assert (IntegerCompare (Var 4 a) Eq (IntegerConstant 2 (Integer 4 [])) (Logical 4 []) ()) ()) (Assert (IntegerCompare (Var 4 b) Eq (IntegerConstant 1 (Integer 4 [])) (Logical 4 []) ()) ()) (Assert (LogicalBinOp (IntegerCompare (TupleItem (Var 4 c) (IntegerConstant 0 (Integer 4 [])) (Integer 4 []) ()) Eq (Var 4 a) (Logical 4 []) ()) And (IntegerCompare (TupleItem (Var 4 c) (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) Eq (Var 4 b) (Logical 4 []) ()) (Logical 4 []) ()) ())] () Public .false. .false.), test_multiple_assign_1: (Function (SymbolTable 3 {a: (Variable 3 a [] Local () () Default (Integer 4 []) Source Public Required .false.), abs: (ExternalSymbol 3 abs 6 abs lpython_builtin [] abs Private), abs@__lpython_overloaded_0__abs: (ExternalSymbol 3 abs@__lpython_overloaded_0__abs 6 __lpython_overloaded_0__abs lpython_builtin [] __lpython_overloaded_0__abs Public), b: (Variable 3 b [] Local () () Default (Integer 4 []) Source Public Required .false.), c: (Variable 3 c [] Local () () Default (Integer 4 []) Source Public Required .false.), d: (Variable 3 d [] Local () () Default (Real 8 []) Source Public Required .false.), e: (Variable 3 e [] Local () () Default (Real 8 []) Source Public Required .false.), g: (Variable 3 g [] Local () () Default (Integer 4 []) Source Public Required .false.), i: (Variable 3 i [] Local () () Default (List (Real 8 [])) Source Public Required .false.), j: (Variable 3 j [] Local () () Default (List (Real 8 [])) Source Public Required .false.), k: (Variable 3 k [] Local () () Default (List (Real 8 [])) Source Public Required .false.), x: (Variable 3 x [] Local () () Default (Real 8 []) Source Public Required .false.), y: (Variable 3 y [] Local () () Default (Real 8 []) Source Public Required .false.)}) test_multiple_assign_1 (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [abs@__lpython_overloaded_0__abs abs@__lpython_overloaded_0__abs abs@__lpython_overloaded_0__abs abs@__lpython_overloaded_0__abs abs@__lpython_overloaded_0__abs abs@__lpython_overloaded_0__abs abs@__lpython_overloaded_0__abs] [] [(= (Var 3 g) (IntegerConstant 5 (Integer 4 [])) ()) (= (Var 3 d) (RealBinOp (Cast (Var 3 g) IntegerToReal (Real 8 []) ()) Add (RealConstant 1.000000 (Real 8 [])) (Real 8 []) ()) ()) (= (Var 3 e) (RealBinOp (Cast (Var 3 g) IntegerToReal (Real 8 []) ()) Add (RealConstant 1.000000 (Real 8 [])) (Real 8 []) ()) ()) (= (Var 3 a) (IntegerConstant 10 (Integer 4 [])) ()) (= (Var 3 b) (IntegerConstant 10 (Integer 4 [])) ()) (= (Var 3 c) (IntegerConstant 10 (Integer 4 [])) ()) (Assert (IntegerCompare (Var 3 a) Eq (Var 3 b) (Logical 4 []) ()) ()) (Assert (IntegerCompare (Var 3 b) Eq (Var 3 c) (Logical 4 []) ()) ()) (Assert (IntegerCompare (Var 3 a) Eq (IntegerConstant 10 (Integer 4 [])) (Logical 4 []) ()) ()) (= (Var 3 x) (RealConstant 23.000000 (Real 8 [])) ()) (= (Var 3 y) (RealConstant 23.000000 (Real 8 [])) ()) (Assert (RealCompare (FunctionCall 3 abs@__lpython_overloaded_0__abs 3 abs [((RealBinOp (Var 3 x) Sub (RealConstant 23.000000 (Real 8 [])) (Real 8 []) ()))] (Real 8 []) () ()) Lt (RealConstant 0.000001 (Real 8 [])) (Logical 4 []) ()) ()) (Assert (RealCompare (FunctionCall 3 abs@__lpython_overloaded_0__abs 3 abs [((RealBinOp (Var 3 y) Sub (RealConstant 23.000000 (Real 8 [])) (Real 8 []) ()))] (Real 8 []) () ()) Lt (RealConstant 0.000000 (Real 8 [])) (Logical 4 []) ()) ()) (Assert (RealCompare (FunctionCall 3 abs@__lpython_overloaded_0__abs 3 abs [((RealBinOp (Var 3 e) Sub (RealConstant 6.000000 (Real 8 [])) (Real 8 []) ()))] (Real 8 []) () ()) Lt (RealConstant 0.000001 (Real 8 [])) (Logical 4 []) ()) ()) (Assert (RealCompare (FunctionCall 3 abs@__lpython_overloaded_0__abs 3 abs [((RealBinOp (Var 3 d) Sub (RealConstant 6.000000 (Real 8 [])) (Real 8 []) ()))] (Real 8 []) () ()) Lt (RealConstant 0.000000 (Real 8 [])) (Logical 4 []) ()) ()) (= (Var 3 k) (ListConstant [] (List (Real 8 []))) ()) (= (Var 3 g) (IntegerConstant 0 (Integer 4 [])) ()) (DoLoop ((Var 3 g) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (IntegerConstant 10 (Integer 4 [])) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant 9 (Integer 4 []))) (IntegerConstant 1 (Integer 4 []))) [(ListAppend (Var 3 k) (RealBinOp (RealBinOp (Cast (Var 3 g) IntegerToReal (Real 8 []) ()) Mul (RealConstant 2.000000 (Real 8 [])) (Real 8 []) ()) Add (RealConstant 5.000000 (Real 8 [])) (Real 8 []) ()))]) (= (Var 3 i) (Var 3 k) ()) (= (Var 3 j) (Var 3 k) ()) (DoLoop ((Var 3 g) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (IntegerConstant 10 (Integer 4 [])) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant 9 (Integer 4 []))) (IntegerConstant 1 (Integer 4 []))) [(Assert (RealCompare (FunctionCall 3 abs@__lpython_overloaded_0__abs 3 abs [((RealBinOp (ListItem (Var 3 i) (Var 3 g) (Real 8 []) ()) Sub (ListItem (Var 3 j) (Var 3 g) (Real 8 []) ()) (Real 8 []) ()))] (Real 8 []) () ()) Lt (RealConstant 0.000000 (Real 8 [])) (Logical 4 []) ()) ()) (Assert (RealCompare (FunctionCall 3 abs@__lpython_overloaded_0__abs 3 abs [((RealBinOp (ListItem (Var 3 i) (Var 3 g) (Real 8 []) ()) Sub (ListItem (Var 3 k) (Var 3 g) (Real 8 []) ()) (Real 8 []) ()))] (Real 8 []) () ()) Lt (RealConstant 0.000000 (Real 8 [])) (Logical 4 []) ()) ()) (Assert (RealCompare (FunctionCall 3 abs@__lpython_overloaded_0__abs 3 abs [((RealBinOp (RealBinOp (RealBinOp (Cast (Var 3 g) IntegerToReal (Real 8 []) ()) Mul (RealConstant 2.000000 (Real 8 [])) (Real 8 []) ()) Add (RealConstant 5.000000 (Real 8 [])) (Real 8 []) ()) Sub (ListItem (Var 3 k) (Var 3 g) (Real 8 []) ()) (Real 8 []) ()))] (Real 8 []) () ()) Lt (RealConstant 0.000000 (Real 8 [])) (Logical 4 []) ()) ())])] () Public .false. .false.)}) [])
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            __main__global_stmts:
+                                (Function
+                                    (SymbolTable
+                                        8
+                                        {
+                                            
+                                        })
+                                    __main__global_stmts
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [test_multiple_assign_1
+                                    test_issue_928
+                                    main0]
+                                    []
+                                    [(SubroutineCall
+                                        2 test_multiple_assign_1
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )
+                                    (SubroutineCall
+                                        2 test_issue_928
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )
+                                    (SubroutineCall
+                                        2 main0
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            main0:
+                                (Function
+                                    (SymbolTable
+                                        3
+                                        {
+                                            i1:
+                                                (Variable
+                                                    3
+                                                    i1
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            i2:
+                                                (Variable
+                                                    3
+                                                    i2
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    main0
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 3 i1)
+                                        (IntegerConstant 10 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 i2)
+                                        (IntegerConstant 4 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 i1)
+                                        (IntegerConstant 3 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 i2)
+                                        (IntegerConstant 5 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(IntegerBinOp
+                                                (IntegerUnaryMinus
+                                                    (Var 3 i1)
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                BitXor
+                                                (IntegerUnaryMinus
+                                                    (Var 3 i2)
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                (Integer 4)
+                                                ()
+                                            )]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (IntegerBinOp
+                                                (IntegerUnaryMinus
+                                                    (Var 3 i1)
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                BitXor
+                                                (IntegerUnaryMinus
+                                                    (Var 3 i2)
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerConstant 6 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            test_issue_928:
+                                (Function
+                                    (SymbolTable
+                                        5
+                                        {
+                                            a:
+                                                (Variable
+                                                    5
+                                                    a
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            b:
+                                                (Variable
+                                                    5
+                                                    b
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            c:
+                                                (Variable
+                                                    5
+                                                    c
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Tuple
+                                                        [(Integer 4)
+                                                        (Integer 4)]
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test_issue_928
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (TupleConstant
+                                            [(Var 5 a)
+                                            (Var 5 b)]
+                                            (Tuple
+                                                [(Integer 4)
+                                                (Integer 4)]
+                                            )
+                                        )
+                                        (TupleConstant
+                                            [(IntegerConstant 2 (Integer 4) Decimal)
+                                            (IntegerConstant 1 (Integer 4) Decimal)]
+                                            (Tuple
+                                                [(Integer 4)
+                                                (Integer 4)]
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 5 c)
+                                        (TupleConstant
+                                            [(IntegerConstant 2 (Integer 4) Decimal)
+                                            (IntegerConstant 1 (Integer 4) Decimal)]
+                                            (Tuple
+                                                [(Integer 4)
+                                                (Integer 4)]
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (Var 5 a)
+                                            Eq
+                                            (IntegerConstant 2 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (Var 5 b)
+                                            Eq
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (LogicalBinOp
+                                            (IntegerCompare
+                                                (TupleItem
+                                                    (Var 5 c)
+                                                    (IntegerConstant 0 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                Eq
+                                                (Var 5 a)
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            And
+                                            (IntegerCompare
+                                                (TupleItem
+                                                    (Var 5 c)
+                                                    (IntegerConstant 1 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                Eq
+                                                (Var 5 b)
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            test_multiple_assign_1:
+                                (Function
+                                    (SymbolTable
+                                        4
+                                        {
+                                            a:
+                                                (Variable
+                                                    4
+                                                    a
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            b:
+                                                (Variable
+                                                    4
+                                                    b
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            c:
+                                                (Variable
+                                                    4
+                                                    c
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            d:
+                                                (Variable
+                                                    4
+                                                    d
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            e:
+                                                (Variable
+                                                    4
+                                                    e
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            g:
+                                                (Variable
+                                                    4
+                                                    g
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            i:
+                                                (Variable
+                                                    4
+                                                    i
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (List
+                                                        (Real 8)
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            j:
+                                                (Variable
+                                                    4
+                                                    j
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (List
+                                                        (Real 8)
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            k:
+                                                (Variable
+                                                    4
+                                                    k
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (List
+                                                        (Real 8)
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            x:
+                                                (Variable
+                                                    4
+                                                    x
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            y:
+                                                (Variable
+                                                    4
+                                                    y
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test_multiple_assign_1
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 4 g)
+                                        (IntegerConstant 5 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 d)
+                                        (RealBinOp
+                                            (Cast
+                                                (Var 4 g)
+                                                IntegerToReal
+                                                (Real 8)
+                                                ()
+                                            )
+                                            Add
+                                            (RealConstant
+                                                1.000000
+                                                (Real 8)
+                                            )
+                                            (Real 8)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 e)
+                                        (RealBinOp
+                                            (Cast
+                                                (Var 4 g)
+                                                IntegerToReal
+                                                (Real 8)
+                                                ()
+                                            )
+                                            Add
+                                            (RealConstant
+                                                1.000000
+                                                (Real 8)
+                                            )
+                                            (Real 8)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 a)
+                                        (IntegerConstant 10 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 b)
+                                        (IntegerConstant 10 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 c)
+                                        (IntegerConstant 10 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (Var 4 a)
+                                            Eq
+                                            (Var 4 b)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (Var 4 b)
+                                            Eq
+                                            (Var 4 c)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (Var 4 a)
+                                            Eq
+                                            (IntegerConstant 10 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 4 x)
+                                        (RealConstant
+                                            23.000000
+                                            (Real 8)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 y)
+                                        (RealConstant
+                                            23.000000
+                                            (Real 8)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealBinOp
+                                                    (Var 4 x)
+                                                    Sub
+                                                    (RealConstant
+                                                        23.000000
+                                                        (Real 8)
+                                                    )
+                                                    (Real 8)
+                                                    ()
+                                                )]
+                                                0
+                                                (Real 8)
+                                                ()
+                                            )
+                                            Lt
+                                            (RealConstant
+                                                0.000001
+                                                (Real 8)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealBinOp
+                                                    (Var 4 y)
+                                                    Sub
+                                                    (RealConstant
+                                                        23.000000
+                                                        (Real 8)
+                                                    )
+                                                    (Real 8)
+                                                    ()
+                                                )]
+                                                0
+                                                (Real 8)
+                                                ()
+                                            )
+                                            Lt
+                                            (RealConstant
+                                                0.000000
+                                                (Real 8)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealBinOp
+                                                    (Var 4 e)
+                                                    Sub
+                                                    (RealConstant
+                                                        6.000000
+                                                        (Real 8)
+                                                    )
+                                                    (Real 8)
+                                                    ()
+                                                )]
+                                                0
+                                                (Real 8)
+                                                ()
+                                            )
+                                            Lt
+                                            (RealConstant
+                                                0.000001
+                                                (Real 8)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealBinOp
+                                                    (Var 4 d)
+                                                    Sub
+                                                    (RealConstant
+                                                        6.000000
+                                                        (Real 8)
+                                                    )
+                                                    (Real 8)
+                                                    ()
+                                                )]
+                                                0
+                                                (Real 8)
+                                                ()
+                                            )
+                                            Lt
+                                            (RealConstant
+                                                0.000000
+                                                (Real 8)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 4 k)
+                                        (ListConstant
+                                            []
+                                            (List
+                                                (Real 8)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 g)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 4 g)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (IntegerConstant 10 (Integer 4) Decimal)
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            (IntegerConstant 9 (Integer 4) Decimal)
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(ListAppend
+                                            (Var 4 k)
+                                            (RealBinOp
+                                                (RealBinOp
+                                                    (Cast
+                                                        (Var 4 g)
+                                                        IntegerToReal
+                                                        (Real 8)
+                                                        ()
+                                                    )
+                                                    Mul
+                                                    (RealConstant
+                                                        2.000000
+                                                        (Real 8)
+                                                    )
+                                                    (Real 8)
+                                                    ()
+                                                )
+                                                Add
+                                                (RealConstant
+                                                    5.000000
+                                                    (Real 8)
+                                                )
+                                                (Real 8)
+                                                ()
+                                            )
+                                        )]
+                                        []
+                                    )
+                                    (Assignment
+                                        (Var 4 i)
+                                        (Var 4 k)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 j)
+                                        (Var 4 k)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 4 g)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (IntegerConstant 10 (Integer 4) Decimal)
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            (IntegerConstant 9 (Integer 4) Decimal)
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(Assert
+                                            (RealCompare
+                                                (IntrinsicElementalFunction
+                                                    Abs
+                                                    [(RealBinOp
+                                                        (ListItem
+                                                            (Var 4 i)
+                                                            (Var 4 g)
+                                                            (Real 8)
+                                                            ()
+                                                        )
+                                                        Sub
+                                                        (ListItem
+                                                            (Var 4 j)
+                                                            (Var 4 g)
+                                                            (Real 8)
+                                                            ()
+                                                        )
+                                                        (Real 8)
+                                                        ()
+                                                    )]
+                                                    0
+                                                    (Real 8)
+                                                    ()
+                                                )
+                                                Lt
+                                                (RealConstant
+                                                    0.000000
+                                                    (Real 8)
+                                                )
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            ()
+                                        )
+                                        (Assert
+                                            (RealCompare
+                                                (IntrinsicElementalFunction
+                                                    Abs
+                                                    [(RealBinOp
+                                                        (ListItem
+                                                            (Var 4 i)
+                                                            (Var 4 g)
+                                                            (Real 8)
+                                                            ()
+                                                        )
+                                                        Sub
+                                                        (ListItem
+                                                            (Var 4 k)
+                                                            (Var 4 g)
+                                                            (Real 8)
+                                                            ()
+                                                        )
+                                                        (Real 8)
+                                                        ()
+                                                    )]
+                                                    0
+                                                    (Real 8)
+                                                    ()
+                                                )
+                                                Lt
+                                                (RealConstant
+                                                    0.000000
+                                                    (Real 8)
+                                                )
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            ()
+                                        )
+                                        (Assert
+                                            (RealCompare
+                                                (IntrinsicElementalFunction
+                                                    Abs
+                                                    [(RealBinOp
+                                                        (RealBinOp
+                                                            (RealBinOp
+                                                                (Cast
+                                                                    (Var 4 g)
+                                                                    IntegerToReal
+                                                                    (Real 8)
+                                                                    ()
+                                                                )
+                                                                Mul
+                                                                (RealConstant
+                                                                    2.000000
+                                                                    (Real 8)
+                                                                )
+                                                                (Real 8)
+                                                                ()
+                                                            )
+                                                            Add
+                                                            (RealConstant
+                                                                5.000000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            ()
+                                                        )
+                                                        Sub
+                                                        (ListItem
+                                                            (Var 4 k)
+                                                            (Var 4 g)
+                                                            (Real 8)
+                                                            ()
+                                                        )
+                                                        (Real 8)
+                                                        ()
+                                                    )]
+                                                    0
+                                                    (Real 8)
+                                                    ()
+                                                )
+                                                Lt
+                                                (RealConstant
+                                                    0.000000
+                                                    (Real 8)
+                                                )
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            ()
+                                        )]
+                                        []
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    []
+                    .false.
+                    .false.
+                    .false.
+                ),
+            main_program:
+                (Program
+                    (SymbolTable
+                        9
+                        {
+                            __main__global_stmts:
+                                (ExternalSymbol
+                                    9
+                                    __main__global_stmts
+                                    2 __main__global_stmts
+                                    __main__
+                                    []
+                                    __main__global_stmts
+                                    Public
+                                )
+                        })
+                    main_program
+                    [__main__]
+                    [(SubroutineCall
+                        9 __main__global_stmts
+                        2 __main__global_stmts
+                        []
+                        ()
+                        .false.
+                    )]
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-expr_10-d39708c.json b/tests/reference/asr-expr_10-d39708c.json
index 3fd1d7d728..3ddca0a1c6 100644
--- a/tests/reference/asr-expr_10-d39708c.json
+++ b/tests/reference/asr-expr_10-d39708c.json
@@ -2,11 +2,11 @@
     "basename": "asr-expr_10-d39708c",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/../integration_tests/expr_10.py",
-    "infile_hash": "00aac96059a6e3d6615e357e73cd79b96646d200ef89978251c8ef5a",
+    "infile_hash": "a371877a6249c5d8af75ad5afdd4c6f762841733ed517dafcdfd6b10",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "asr-expr_10-d39708c.stdout",
-    "stdout_hash": "f09b5123c1c7402a9edc303286156b8f69f6748fd5b3f8a036ad30ab",
+    "stdout_hash": "f4384b10ac2c0c6f987954fb84461daaecab800ce7ab56abe1383ccb",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/asr-expr_10-d39708c.stdout b/tests/reference/asr-expr_10-d39708c.stdout
index 66fac09d6a..3a7453ceef 100644
--- a/tests/reference/asr-expr_10-d39708c.stdout
+++ b/tests/reference/asr-expr_10-d39708c.stdout
@@ -1 +1,344 @@
-(TranslationUnit (SymbolTable 1 {_lpython_main_program: (Function (SymbolTable 6 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [test_fn1] [] [(SubroutineCall 1 test_fn1 () [] ())] () Public .false. .false.), g: (Function (SymbolTable 2 {_lpython_return_variable: (Variable 2 _lpython_return_variable [] ReturnVar () () Default (Integer 4 []) Source Public Required .false.)}) g (FunctionType [] (Integer 4 []) Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [] [(= (Var 2 _lpython_return_variable) (IntegerConstant 5 (Integer 4 [])) ()) (Return)] (Var 2 _lpython_return_variable) Public .false. .false.), gsubrout: (Function (SymbolTable 3 {x: (Variable 3 x [] In () () Default (Integer 4 []) Source Public Required .false.)}) gsubrout (FunctionType [(Integer 4 [])] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 3 x)] [(Print () [(Var 3 x)] () ())] () Public .false. .false.), main_program: (Program (SymbolTable 5 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())]), test_fn1: (Function (SymbolTable 4 {__lcompilers_dummy: (Variable 4 __lcompilers_dummy [] Local () () Default (Integer 4 []) Source Public Required .false.), i: (Variable 4 i [] Local (FunctionCall 1 g () [] (Integer 4 []) () ()) () Default (Integer 4 []) Source Public Required .false.), j: (Variable 4 j [] Local () () Default (Integer 4 []) Source Public Required .false.)}) test_fn1 (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [g g g g gsubrout] [] [(= (Var 4 i) (FunctionCall 1 g () [] (Integer 4 []) () ()) ()) (= (Var 4 j) (FunctionCall 1 g () [] (Integer 4 []) () ()) ()) (= (Var 4 __lcompilers_dummy) (FunctionCall 1 g () [] (Integer 4 []) () ()) ()) (SubroutineCall 1 gsubrout () [((Var 4 i))] ())] () Public .false. .false.)}) [])
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            __main__global_stmts:
+                                (Function
+                                    (SymbolTable
+                                        6
+                                        {
+                                            
+                                        })
+                                    __main__global_stmts
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [test_fn1]
+                                    []
+                                    [(SubroutineCall
+                                        2 test_fn1
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            g:
+                                (Function
+                                    (SymbolTable
+                                        3
+                                        {
+                                            _lpython_return_variable:
+                                                (Variable
+                                                    3
+                                                    _lpython_return_variable
+                                                    []
+                                                    ReturnVar
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    g
+                                    (FunctionType
+                                        []
+                                        (Integer 4)
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 3 _lpython_return_variable)
+                                        (IntegerConstant 5 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Return)]
+                                    (Var 3 _lpython_return_variable)
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            gsubrout:
+                                (Function
+                                    (SymbolTable
+                                        4
+                                        {
+                                            x:
+                                                (Variable
+                                                    4
+                                                    x
+                                                    []
+                                                    In
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    gsubrout
+                                    (FunctionType
+                                        [(Integer 4)]
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    [(Var 4 x)]
+                                    [(Print
+                                        (StringFormat
+                                            ()
+                                            [(Var 4 x)]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            test_fn1:
+                                (Function
+                                    (SymbolTable
+                                        5
+                                        {
+                                            __lcompilers_dummy:
+                                                (Variable
+                                                    5
+                                                    __lcompilers_dummy
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            i:
+                                                (Variable
+                                                    5
+                                                    i
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            j:
+                                                (Variable
+                                                    5
+                                                    j
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test_fn1
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [g
+                                    gsubrout]
+                                    []
+                                    [(Assignment
+                                        (Var 5 i)
+                                        (FunctionCall
+                                            2 g
+                                            ()
+                                            []
+                                            (Integer 4)
+                                            ()
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 5 j)
+                                        (FunctionCall
+                                            2 g
+                                            ()
+                                            []
+                                            (Integer 4)
+                                            ()
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 5 __lcompilers_dummy)
+                                        (FunctionCall
+                                            2 g
+                                            ()
+                                            []
+                                            (Integer 4)
+                                            ()
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (SubroutineCall
+                                        2 gsubrout
+                                        ()
+                                        [((Var 5 i))]
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    []
+                    .false.
+                    .false.
+                    .false.
+                ),
+            main_program:
+                (Program
+                    (SymbolTable
+                        7
+                        {
+                            __main__global_stmts:
+                                (ExternalSymbol
+                                    7
+                                    __main__global_stmts
+                                    2 __main__global_stmts
+                                    __main__
+                                    []
+                                    __main__global_stmts
+                                    Public
+                                )
+                        })
+                    main_program
+                    [__main__]
+                    [(SubroutineCall
+                        7 __main__global_stmts
+                        2 __main__global_stmts
+                        []
+                        ()
+                        .false.
+                    )]
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-expr_12-6769be0.json b/tests/reference/asr-expr_12-6769be0.json
deleted file mode 100644
index 9e82f31007..0000000000
--- a/tests/reference/asr-expr_12-6769be0.json
+++ /dev/null
@@ -1,13 +0,0 @@
-{
-    "basename": "asr-expr_12-6769be0",
-    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
-    "infile": "tests/../integration_tests/expr_12.py",
-    "infile_hash": "0d98c6e93b5c0765f6829f51bf12d6487b9fa0d1381e07e11bddbea7",
-    "outfile": null,
-    "outfile_hash": null,
-    "stdout": "asr-expr_12-6769be0.stdout",
-    "stdout_hash": "9b1e46e2aeb556beb1f8d2deffec2c1dbb770092ac665cf3bf45e996",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
-}
\ No newline at end of file
diff --git a/tests/reference/asr-expr_12-6769be0.stdout b/tests/reference/asr-expr_12-6769be0.stdout
deleted file mode 100644
index e7a140f76f..0000000000
--- a/tests/reference/asr-expr_12-6769be0.stdout
+++ /dev/null
@@ -1 +0,0 @@
-(TranslationUnit (SymbolTable 1 {_lpython_main_program: (Function (SymbolTable 6 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [f] [] [(SubroutineCall 1 f () [] ())] () Public .false. .false.), check: (Function (SymbolTable 3 {ptr: (Variable 3 ptr [] InOut () () Default (Pointer (Integer 2 [(() ())])) Source Public Required .false.)}) check (FunctionType [(Pointer (Integer 2 [(() ())]))] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 3 ptr)] [(Assert (IntegerCompare (ArrayItem (Var 3 ptr) [(() (IntegerConstant 0 (Integer 4 [])) ())] (Integer 2 []) RowMajor ()) Eq (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToInteger (Integer 2 []) (IntegerConstant 1 (Integer 2 []))) (Logical 4 []) ()) ()) (Assert (IntegerCompare (ArrayItem (Var 3 ptr) [(() (IntegerConstant 1 (Integer 4 [])) ())] (Integer 2 []) RowMajor ()) Eq (Cast (IntegerConstant 2 (Integer 4 [])) IntegerToInteger (Integer 2 []) (IntegerConstant 2 (Integer 2 []))) (Logical 4 []) ()) ())] () Public .false. .false.), f: (Function (SymbolTable 4 {y: (Variable 4 y [] Local () () Default (Integer 2 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 2 (Integer 4 [])))]) Source Public Required .false.), yptr1: (Variable 4 yptr1 [] Local () () Default (Pointer (Integer 2 [(() ())])) Source Public Required .false.)}) f (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [g check] [] [(SubroutineCall 1 g () [((Var 4 yptr1)) ((Var 4 y))] ()) (SubroutineCall 1 check () [((Var 4 yptr1))] ())] () Public .false. .false.), g: (Function (SymbolTable 2 {x: (Variable 2 x [] InOut () () Default (Pointer (Integer 2 [(() ())])) Source Public Required .false.), y: (Variable 2 y [] InOut () () Default (Integer 2 [(() ())]) Source Public Required .false.)}) g (FunctionType [(Pointer (Integer 2 [(() ())])) (Integer 2 [(() ())])] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 2 x) (Var 2 y)] [(= (ArrayItem (Var 2 y) [(() (IntegerConstant 0 (Integer 4 [])) ())] (Integer 2 []) RowMajor ()) (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToInteger (Integer 2 []) (IntegerConstant 1 (Integer 2 []))) ()) (= (ArrayItem (Var 2 y) [(() (IntegerConstant 1 (Integer 4 [])) ())] (Integer 2 []) RowMajor ()) (Cast (IntegerConstant 2 (Integer 4 [])) IntegerToInteger (Integer 2 []) (IntegerConstant 2 (Integer 2 []))) ()) (= (Var 2 x) (GetPointer (Var 2 y) (Pointer (Integer 2 [(() ())])) ()) ()) (Print () [(ArrayItem (Var 2 x) [(() (IntegerConstant 0 (Integer 4 [])) ())] (Integer 2 []) RowMajor ()) (ArrayItem (Var 2 x) [(() (IntegerConstant 1 (Integer 4 [])) ())] (Integer 2 []) RowMajor ())] () ())] () Public .false. .false.), main_program: (Program (SymbolTable 5 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())])}) [])
diff --git a/tests/reference/asr-expr_14-f2bd343.json b/tests/reference/asr-expr_14-f2bd343.json
index f9859f8894..140e0c9859 100644
--- a/tests/reference/asr-expr_14-f2bd343.json
+++ b/tests/reference/asr-expr_14-f2bd343.json
@@ -2,11 +2,11 @@
     "basename": "asr-expr_14-f2bd343",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/../integration_tests/expr_14.py",
-    "infile_hash": "cff6017d066d4b82e535a5af9d772b2f75a1dae8fd6155f21dca5899",
+    "infile_hash": "bf5d0d167082af64149be967dc182b9e2e8cb35091fa410ae4afee6f",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "asr-expr_14-f2bd343.stdout",
-    "stdout_hash": "0fb4e96f559cb15713ab65d3cc56d8a97bc6ab8d2f9f6a13cbcc65e1",
+    "stdout_hash": "161495568b12b91a05fda8b910587e82669a61d5a7fe9b3559d40393",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/asr-expr_14-f2bd343.stdout b/tests/reference/asr-expr_14-f2bd343.stdout
index f1096e3887..3767519304 100644
--- a/tests/reference/asr-expr_14-f2bd343.stdout
+++ b/tests/reference/asr-expr_14-f2bd343.stdout
@@ -1 +1,1059 @@
-(TranslationUnit (SymbolTable 1 {_lpython_main_program: (Function (SymbolTable 97 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [test_divide] [] [(SubroutineCall 1 test_divide () [] ())] () Public .false. .false.), lpython_builtin: (IntrinsicModule lpython_builtin), main_program: (Program (SymbolTable 96 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())]), test_divide: (Function (SymbolTable 2 {a1: (Variable 2 a1 [] Local () () Default (Integer 4 []) Source Public Required .false.), a2: (Variable 2 a2 [] Local () () Default (Integer 4 []) Source Public Required .false.), a3: (Variable 2 a3 [] Local () () Default (Real 8 []) Source Public Required .false.), abs: (ExternalSymbol 2 abs 4 abs lpython_builtin [] abs Private), abs@__lpython_overloaded_0__abs: (ExternalSymbol 2 abs@__lpython_overloaded_0__abs 4 __lpython_overloaded_0__abs lpython_builtin [] __lpython_overloaded_0__abs Public), abs@__lpython_overloaded_1__abs: (ExternalSymbol 2 abs@__lpython_overloaded_1__abs 4 __lpython_overloaded_1__abs lpython_builtin [] __lpython_overloaded_1__abs Public), abs@__lpython_overloaded_7__abs: (ExternalSymbol 2 abs@__lpython_overloaded_7__abs 4 __lpython_overloaded_7__abs lpython_builtin [] __lpython_overloaded_7__abs Public), abs@__lpython_overloaded_8__abs: (ExternalSymbol 2 abs@__lpython_overloaded_8__abs 4 __lpython_overloaded_8__abs lpython_builtin [] __lpython_overloaded_8__abs Public), b1: (Variable 2 b1 [] Local () () Default (Integer 8 []) Source Public Required .false.), b2: (Variable 2 b2 [] Local () () Default (Integer 8 []) Source Public Required .false.), b3: (Variable 2 b3 [] Local () () Default (Real 8 []) Source Public Required .false.), c1: (Variable 2 c1 [] Local () () Default (Real 4 []) Source Public Required .false.), c2: (Variable 2 c2 [] Local () () Default (Real 4 []) Source Public Required .false.), c3: (Variable 2 c3 [] Local () () Default (Real 4 []) Source Public Required .false.), d1: (Variable 2 d1 [] Local () () Default (Real 8 []) Source Public Required .false.), d2: (Variable 2 d2 [] Local () () Default (Real 8 []) Source Public Required .false.), d3: (Variable 2 d3 [] Local () () Default (Real 8 []) Source Public Required .false.), e1: (Variable 2 e1 [] Local () () Default (Complex 4 []) Source Public Required .false.), e2: (Variable 2 e2 [] Local () () Default (Complex 4 []) Source Public Required .false.), e3: (Variable 2 e3 [] Local () () Default (Complex 4 []) Source Public Required .false.), f1: (Variable 2 f1 [] Local () () Default (Complex 8 []) Source Public Required .false.), f2: (Variable 2 f2 [] Local () () Default (Complex 8 []) Source Public Required .false.), f3: (Variable 2 f3 [] Local () () Default (Complex 8 []) Source Public Required .false.)}) test_divide (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [abs@__lpython_overloaded_0__abs abs@__lpython_overloaded_0__abs abs@__lpython_overloaded_1__abs abs@__lpython_overloaded_0__abs abs@__lpython_overloaded_7__abs abs@__lpython_overloaded_8__abs] [] [(= (Var 2 a1) (IntegerConstant 1 (Integer 4 [])) ()) (= (Var 2 a2) (IntegerConstant 9 (Integer 4 [])) ()) (= (Var 2 a3) (RealBinOp (Cast (Var 2 a2) IntegerToReal (Real 8 []) ()) Div (Cast (Var 2 a1) IntegerToReal (Real 8 []) ()) (Real 8 []) ()) ()) (Assert (RealCompare (FunctionCall 2 abs@__lpython_overloaded_0__abs 2 abs [((RealBinOp (Var 2 a3) Sub (RealConstant 9.000000 (Real 8 [])) (Real 8 []) ()))] (Real 8 []) () ()) LtE (RealConstant 0.000000 (Real 8 [])) (Logical 4 []) ()) ()) (= (Var 2 b1) (Cast (IntegerConstant 2 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 2 (Integer 8 []))) ()) (= (Var 2 b2) (Cast (IntegerConstant 10 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 10 (Integer 8 []))) ()) (= (Var 2 b3) (RealBinOp (Cast (Var 2 b2) IntegerToReal (Real 8 []) ()) Div (Cast (Var 2 b1) IntegerToReal (Real 8 []) ()) (Real 8 []) ()) ()) (Assert (RealCompare (FunctionCall 2 abs@__lpython_overloaded_0__abs 2 abs [((RealBinOp (Var 2 b3) Sub (RealConstant 5.000000 (Real 8 [])) (Real 8 []) ()))] (Real 8 []) () ()) LtE (RealConstant 0.000000 (Real 8 [])) (Logical 4 []) ()) ()) (= (Var 2 c1) (Cast (RealConstant 3.000000 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 3.000000 (Real 4 []))) ()) (= (Var 2 c2) (Cast (RealConstant 11.000000 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 11.000000 (Real 4 []))) ()) (= (Var 2 c3) (RealBinOp (Var 2 c2) Div (Var 2 c1) (Real 4 []) ()) ()) (Assert (RealCompare (FunctionCall 2 abs@__lpython_overloaded_1__abs 2 abs [((RealBinOp (Var 2 c3) Sub (Cast (RealConstant 3.666666 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 3.666666 (Real 4 []))) (Real 4 []) ()))] (Real 4 []) () ()) LtE (Cast (RealConstant 0.000001 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 0.000001 (Real 4 []))) (Logical 4 []) ()) ()) (= (Var 2 d1) (RealConstant 4.000000 (Real 8 [])) ()) (= (Var 2 d2) (RealConstant 12.000000 (Real 8 [])) ()) (= (Var 2 d3) (RealBinOp (Var 2 d2) Div (Var 2 d1) (Real 8 []) ()) ()) (Assert (RealCompare (FunctionCall 2 abs@__lpython_overloaded_0__abs 2 abs [((RealBinOp (Var 2 d3) Sub (RealConstant 3.000000 (Real 8 [])) (Real 8 []) ()))] (Real 8 []) () ()) LtE (RealConstant 0.000000 (Real 8 [])) (Logical 4 []) ()) ()) (= (Var 2 e1) (ComplexBinOp (Cast (IntegerConstant 5 (Integer 4 [])) IntegerToComplex (Complex 4 []) (ComplexConstant 5.000000 0.000000 (Complex 4 []))) Add (Cast (ComplexConstant 0.000000 6.000000 (Complex 8 [])) ComplexToComplex (Complex 4 []) (ComplexConstant 0.000000 6.000000 (Complex 4 []))) (Complex 4 []) (ComplexConstant 5.000000 6.000000 (Complex 4 []))) ()) (= (Var 2 e2) (ComplexBinOp (Cast (IntegerConstant 13 (Integer 4 [])) IntegerToComplex (Complex 4 []) (ComplexConstant 13.000000 0.000000 (Complex 4 []))) Add (Cast (ComplexConstant 0.000000 14.000000 (Complex 8 [])) ComplexToComplex (Complex 4 []) (ComplexConstant 0.000000 14.000000 (Complex 4 []))) (Complex 4 []) (ComplexConstant 13.000000 14.000000 (Complex 4 []))) ()) (= (Var 2 e3) (ComplexBinOp (Var 2 e2) Div (Var 2 e1) (Complex 4 []) ()) ()) (Assert (RealCompare (FunctionCall 2 abs@__lpython_overloaded_7__abs 2 abs [((ComplexBinOp (ComplexBinOp (Var 2 e3) Sub (Cast (RealConstant 2.442623 (Real 8 [])) RealToComplex (Complex 4 []) (ComplexConstant 2.442623 0.000000 (Complex 4 []))) (Complex 4 []) ()) Add (Cast (ComplexConstant 0.000000 0.131148 (Complex 8 [])) ComplexToComplex (Complex 4 []) (ComplexConstant 0.000000 0.131148 (Complex 4 []))) (Complex 4 []) ()))] (Real 4 []) () ()) LtE (Cast (RealConstant 0.000001 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 0.000001 (Real 4 []))) (Logical 4 []) ()) ()) (= (Var 2 f1) (ComplexBinOp (Cast (IntegerConstant 7 (Integer 4 [])) IntegerToComplex (Complex 8 []) (ComplexConstant 7.000000 0.000000 (Complex 8 []))) Add (ComplexConstant 0.000000 8.000000 (Complex 8 [])) (Complex 8 []) (ComplexConstant 7.000000 8.000000 (Complex 8 []))) ()) (= (Var 2 f2) (ComplexBinOp (Cast (IntegerConstant 15 (Integer 4 [])) IntegerToComplex (Complex 8 []) (ComplexConstant 15.000000 0.000000 (Complex 8 []))) Add (ComplexConstant 0.000000 16.000000 (Complex 8 [])) (Complex 8 []) (ComplexConstant 15.000000 16.000000 (Complex 8 []))) ()) (= (Var 2 f3) (ComplexBinOp (Var 2 f2) Div (Var 2 f1) (Complex 8 []) ()) ()) (Assert (RealCompare (FunctionCall 2 abs@__lpython_overloaded_8__abs 2 abs [((ComplexBinOp (ComplexBinOp (Var 2 f3) Sub (Cast (RealConstant 2.061947 (Real 8 [])) RealToComplex (Complex 8 []) (ComplexConstant 2.061947 0.000000 (Complex 8 []))) (Complex 8 []) ()) Add (ComplexConstant 0.000000 0.070796 (Complex 8 [])) (Complex 8 []) ()))] (Real 8 []) () ()) LtE (RealConstant 0.000001 (Real 8 [])) (Logical 4 []) ()) ())] () Public .false. .false.)}) [])
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            __main__global_stmts:
+                                (Function
+                                    (SymbolTable
+                                        4
+                                        {
+                                            
+                                        })
+                                    __main__global_stmts
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [test_divide]
+                                    []
+                                    [(SubroutineCall
+                                        2 test_divide
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            test_divide:
+                                (Function
+                                    (SymbolTable
+                                        3
+                                        {
+                                            a1:
+                                                (Variable
+                                                    3
+                                                    a1
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            a2:
+                                                (Variable
+                                                    3
+                                                    a2
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            a3:
+                                                (Variable
+                                                    3
+                                                    a3
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            b1:
+                                                (Variable
+                                                    3
+                                                    b1
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            b2:
+                                                (Variable
+                                                    3
+                                                    b2
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            b3:
+                                                (Variable
+                                                    3
+                                                    b3
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            c1:
+                                                (Variable
+                                                    3
+                                                    c1
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            c2:
+                                                (Variable
+                                                    3
+                                                    c2
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            c3:
+                                                (Variable
+                                                    3
+                                                    c3
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            d1:
+                                                (Variable
+                                                    3
+                                                    d1
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            d2:
+                                                (Variable
+                                                    3
+                                                    d2
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            d3:
+                                                (Variable
+                                                    3
+                                                    d3
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            e1:
+                                                (Variable
+                                                    3
+                                                    e1
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Complex 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            e2:
+                                                (Variable
+                                                    3
+                                                    e2
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Complex 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            e3:
+                                                (Variable
+                                                    3
+                                                    e3
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Complex 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            f1:
+                                                (Variable
+                                                    3
+                                                    f1
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Complex 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            f2:
+                                                (Variable
+                                                    3
+                                                    f2
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Complex 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            f3:
+                                                (Variable
+                                                    3
+                                                    f3
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Complex 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test_divide
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 3 a1)
+                                        (IntegerConstant 1 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 a2)
+                                        (IntegerConstant 9 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 a3)
+                                        (RealBinOp
+                                            (Cast
+                                                (Var 3 a2)
+                                                IntegerToReal
+                                                (Real 8)
+                                                ()
+                                            )
+                                            Div
+                                            (Cast
+                                                (Var 3 a1)
+                                                IntegerToReal
+                                                (Real 8)
+                                                ()
+                                            )
+                                            (Real 8)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealBinOp
+                                                    (Var 3 a3)
+                                                    Sub
+                                                    (RealConstant
+                                                        9.000000
+                                                        (Real 8)
+                                                    )
+                                                    (Real 8)
+                                                    ()
+                                                )]
+                                                0
+                                                (Real 8)
+                                                ()
+                                            )
+                                            LtE
+                                            (RealConstant
+                                                0.000000
+                                                (Real 8)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 b1)
+                                        (Cast
+                                            (IntegerConstant 2 (Integer 4) Decimal)
+                                            IntegerToInteger
+                                            (Integer 8)
+                                            (IntegerConstant 2 (Integer 8) Decimal)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 b2)
+                                        (Cast
+                                            (IntegerConstant 10 (Integer 4) Decimal)
+                                            IntegerToInteger
+                                            (Integer 8)
+                                            (IntegerConstant 10 (Integer 8) Decimal)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 b3)
+                                        (RealBinOp
+                                            (Cast
+                                                (Var 3 b2)
+                                                IntegerToReal
+                                                (Real 8)
+                                                ()
+                                            )
+                                            Div
+                                            (Cast
+                                                (Var 3 b1)
+                                                IntegerToReal
+                                                (Real 8)
+                                                ()
+                                            )
+                                            (Real 8)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealBinOp
+                                                    (Var 3 b3)
+                                                    Sub
+                                                    (RealConstant
+                                                        5.000000
+                                                        (Real 8)
+                                                    )
+                                                    (Real 8)
+                                                    ()
+                                                )]
+                                                0
+                                                (Real 8)
+                                                ()
+                                            )
+                                            LtE
+                                            (RealConstant
+                                                0.000000
+                                                (Real 8)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 c1)
+                                        (Cast
+                                            (RealConstant
+                                                3.000000
+                                                (Real 8)
+                                            )
+                                            RealToReal
+                                            (Real 4)
+                                            (RealConstant
+                                                3.000000
+                                                (Real 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 c2)
+                                        (Cast
+                                            (RealConstant
+                                                11.000000
+                                                (Real 8)
+                                            )
+                                            RealToReal
+                                            (Real 4)
+                                            (RealConstant
+                                                11.000000
+                                                (Real 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 c3)
+                                        (RealBinOp
+                                            (Var 3 c2)
+                                            Div
+                                            (Var 3 c1)
+                                            (Real 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealBinOp
+                                                    (Var 3 c3)
+                                                    Sub
+                                                    (Cast
+                                                        (RealConstant
+                                                            3.666666
+                                                            (Real 8)
+                                                        )
+                                                        RealToReal
+                                                        (Real 4)
+                                                        (RealConstant
+                                                            3.666666
+                                                            (Real 4)
+                                                        )
+                                                    )
+                                                    (Real 4)
+                                                    ()
+                                                )]
+                                                0
+                                                (Real 4)
+                                                ()
+                                            )
+                                            LtE
+                                            (Cast
+                                                (RealConstant
+                                                    0.000001
+                                                    (Real 8)
+                                                )
+                                                RealToReal
+                                                (Real 4)
+                                                (RealConstant
+                                                    0.000001
+                                                    (Real 4)
+                                                )
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 d1)
+                                        (RealConstant
+                                            4.000000
+                                            (Real 8)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 d2)
+                                        (RealConstant
+                                            12.000000
+                                            (Real 8)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 d3)
+                                        (RealBinOp
+                                            (Var 3 d2)
+                                            Div
+                                            (Var 3 d1)
+                                            (Real 8)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealBinOp
+                                                    (Var 3 d3)
+                                                    Sub
+                                                    (RealConstant
+                                                        3.000000
+                                                        (Real 8)
+                                                    )
+                                                    (Real 8)
+                                                    ()
+                                                )]
+                                                0
+                                                (Real 8)
+                                                ()
+                                            )
+                                            LtE
+                                            (RealConstant
+                                                0.000000
+                                                (Real 8)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 e1)
+                                        (ComplexBinOp
+                                            (Cast
+                                                (IntegerConstant 5 (Integer 4) Decimal)
+                                                IntegerToComplex
+                                                (Complex 4)
+                                                (ComplexConstant
+                                                    5.000000
+                                                    0.000000
+                                                    (Complex 4)
+                                                )
+                                            )
+                                            Add
+                                            (Cast
+                                                (ComplexConstant
+                                                    0.000000
+                                                    6.000000
+                                                    (Complex 8)
+                                                )
+                                                ComplexToComplex
+                                                (Complex 4)
+                                                (ComplexConstant
+                                                    0.000000
+                                                    6.000000
+                                                    (Complex 4)
+                                                )
+                                            )
+                                            (Complex 4)
+                                            (ComplexConstant
+                                                5.000000
+                                                6.000000
+                                                (Complex 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 e2)
+                                        (ComplexBinOp
+                                            (Cast
+                                                (IntegerConstant 13 (Integer 4) Decimal)
+                                                IntegerToComplex
+                                                (Complex 4)
+                                                (ComplexConstant
+                                                    13.000000
+                                                    0.000000
+                                                    (Complex 4)
+                                                )
+                                            )
+                                            Add
+                                            (Cast
+                                                (ComplexConstant
+                                                    0.000000
+                                                    14.000000
+                                                    (Complex 8)
+                                                )
+                                                ComplexToComplex
+                                                (Complex 4)
+                                                (ComplexConstant
+                                                    0.000000
+                                                    14.000000
+                                                    (Complex 4)
+                                                )
+                                            )
+                                            (Complex 4)
+                                            (ComplexConstant
+                                                13.000000
+                                                14.000000
+                                                (Complex 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 e3)
+                                        (ComplexBinOp
+                                            (Var 3 e2)
+                                            Div
+                                            (Var 3 e1)
+                                            (Complex 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(ComplexBinOp
+                                                    (ComplexBinOp
+                                                        (Var 3 e3)
+                                                        Sub
+                                                        (Cast
+                                                            (RealConstant
+                                                                2.442623
+                                                                (Real 8)
+                                                            )
+                                                            RealToComplex
+                                                            (Complex 4)
+                                                            (ComplexConstant
+                                                                2.442623
+                                                                0.000000
+                                                                (Complex 4)
+                                                            )
+                                                        )
+                                                        (Complex 4)
+                                                        ()
+                                                    )
+                                                    Add
+                                                    (Cast
+                                                        (ComplexConstant
+                                                            0.000000
+                                                            0.131148
+                                                            (Complex 8)
+                                                        )
+                                                        ComplexToComplex
+                                                        (Complex 4)
+                                                        (ComplexConstant
+                                                            0.000000
+                                                            0.131148
+                                                            (Complex 4)
+                                                        )
+                                                    )
+                                                    (Complex 4)
+                                                    ()
+                                                )]
+                                                0
+                                                (Real 4)
+                                                ()
+                                            )
+                                            LtE
+                                            (Cast
+                                                (RealConstant
+                                                    0.000001
+                                                    (Real 8)
+                                                )
+                                                RealToReal
+                                                (Real 4)
+                                                (RealConstant
+                                                    0.000001
+                                                    (Real 4)
+                                                )
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 f1)
+                                        (ComplexBinOp
+                                            (Cast
+                                                (IntegerConstant 7 (Integer 4) Decimal)
+                                                IntegerToComplex
+                                                (Complex 8)
+                                                (ComplexConstant
+                                                    7.000000
+                                                    0.000000
+                                                    (Complex 8)
+                                                )
+                                            )
+                                            Add
+                                            (ComplexConstant
+                                                0.000000
+                                                8.000000
+                                                (Complex 8)
+                                            )
+                                            (Complex 8)
+                                            (ComplexConstant
+                                                7.000000
+                                                8.000000
+                                                (Complex 8)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 f2)
+                                        (ComplexBinOp
+                                            (Cast
+                                                (IntegerConstant 15 (Integer 4) Decimal)
+                                                IntegerToComplex
+                                                (Complex 8)
+                                                (ComplexConstant
+                                                    15.000000
+                                                    0.000000
+                                                    (Complex 8)
+                                                )
+                                            )
+                                            Add
+                                            (ComplexConstant
+                                                0.000000
+                                                16.000000
+                                                (Complex 8)
+                                            )
+                                            (Complex 8)
+                                            (ComplexConstant
+                                                15.000000
+                                                16.000000
+                                                (Complex 8)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 f3)
+                                        (ComplexBinOp
+                                            (Var 3 f2)
+                                            Div
+                                            (Var 3 f1)
+                                            (Complex 8)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(ComplexBinOp
+                                                    (ComplexBinOp
+                                                        (Var 3 f3)
+                                                        Sub
+                                                        (Cast
+                                                            (RealConstant
+                                                                2.061947
+                                                                (Real 8)
+                                                            )
+                                                            RealToComplex
+                                                            (Complex 8)
+                                                            (ComplexConstant
+                                                                2.061947
+                                                                0.000000
+                                                                (Complex 8)
+                                                            )
+                                                        )
+                                                        (Complex 8)
+                                                        ()
+                                                    )
+                                                    Add
+                                                    (ComplexConstant
+                                                        0.000000
+                                                        0.070796
+                                                        (Complex 8)
+                                                    )
+                                                    (Complex 8)
+                                                    ()
+                                                )]
+                                                0
+                                                (Real 8)
+                                                ()
+                                            )
+                                            LtE
+                                            (RealConstant
+                                                0.000001
+                                                (Real 8)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    []
+                    .false.
+                    .false.
+                    .false.
+                ),
+            main_program:
+                (Program
+                    (SymbolTable
+                        5
+                        {
+                            __main__global_stmts:
+                                (ExternalSymbol
+                                    5
+                                    __main__global_stmts
+                                    2 __main__global_stmts
+                                    __main__
+                                    []
+                                    __main__global_stmts
+                                    Public
+                                )
+                        })
+                    main_program
+                    [__main__]
+                    [(SubroutineCall
+                        5 __main__global_stmts
+                        2 __main__global_stmts
+                        []
+                        ()
+                        .false.
+                    )]
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-func_01-d87aa4a.json b/tests/reference/asr-func_01-d87aa4a.json
index 39d10f1c7e..2ac3164ce4 100644
--- a/tests/reference/asr-func_01-d87aa4a.json
+++ b/tests/reference/asr-func_01-d87aa4a.json
@@ -2,7 +2,7 @@
     "basename": "asr-func_01-d87aa4a",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/errors/func_01.py",
-    "infile_hash": "fe27c8537c6e7447cb8b3ea3b4a9553f6786ff70600c30fdf196b602",
+    "infile_hash": "feb3ed4318642084eaa53e796f3f055c2faa47af50bcb1d90c03910c",
     "outfile": null,
     "outfile_hash": null,
     "stdout": null,
diff --git a/tests/reference/asr-func_02-b439474.json b/tests/reference/asr-func_02-b439474.json
new file mode 100644
index 0000000000..bc648e06af
--- /dev/null
+++ b/tests/reference/asr-func_02-b439474.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-func_02-b439474",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/func_02.py",
+    "infile_hash": "452658f9bae7ccab4d21b9b1c993adb7fbaf117c093dd82672755aa5",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-func_02-b439474.stderr",
+    "stderr_hash": "855967bc8c46a46b93c348de6e3004107861b10fad24496866c8a197",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-func_02-b439474.stderr b/tests/reference/asr-func_02-b439474.stderr
new file mode 100644
index 0000000000..e4d6ca0563
--- /dev/null
+++ b/tests/reference/asr-func_02-b439474.stderr
@@ -0,0 +1,5 @@
+semantic error: Assignment to an input function parameter `n` is not allowed
+ --> tests/errors/func_02.py:4:5
+  |
+4 |     n = 5
+  |     ^ Hint: create a new local variable with a different name
diff --git a/tests/reference/asr-func_03-cd744a0.json b/tests/reference/asr-func_03-cd744a0.json
new file mode 100644
index 0000000000..e0e191485d
--- /dev/null
+++ b/tests/reference/asr-func_03-cd744a0.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-func_03-cd744a0",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/func_03.py",
+    "infile_hash": "763216ad3cb1090dc322e63706d4f92be4e806b1fc2df6f160d02fd0",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-func_03-cd744a0.stderr",
+    "stderr_hash": "d1201fe81d9eeb213996a3f316f463ee4071c9192fb20d7bf327a898",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-func_03-cd744a0.stderr b/tests/reference/asr-func_03-cd744a0.stderr
new file mode 100644
index 0000000000..74251ce6c7
--- /dev/null
+++ b/tests/reference/asr-func_03-cd744a0.stderr
@@ -0,0 +1,5 @@
+semantic error: Assignment to an input function parameter `l` is not allowed
+ --> tests/errors/func_03.py:4:5
+  |
+4 |     l[5] = 5
+  |     ^ Use InOut[list[i32]] to allow assignment
diff --git a/tests/reference/asr-func_04-eef2656.json b/tests/reference/asr-func_04-eef2656.json
new file mode 100644
index 0000000000..6fa82a6009
--- /dev/null
+++ b/tests/reference/asr-func_04-eef2656.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-func_04-eef2656",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/func_04.py",
+    "infile_hash": "f8a6eed44ebd1dee435e6db842a874c41b8ba2b13d88d16944a4d265",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-func_04-eef2656.stderr",
+    "stderr_hash": "d1e5bb4b5356e57124ff34eea9e5b96ecc44d3bc8a1da4b0a7db5b4a",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-func_04-eef2656.stderr b/tests/reference/asr-func_04-eef2656.stderr
new file mode 100644
index 0000000000..744b9460d2
--- /dev/null
+++ b/tests/reference/asr-func_04-eef2656.stderr
@@ -0,0 +1,5 @@
+semantic error: Modifying input function parameter `l` is not allowed
+ --> tests/errors/func_04.py:4:5
+  |
+4 |     l.append(5)
+  |     ^^^^^^^^^^^ 
diff --git a/tests/reference/asr-func_05-c22b921.json b/tests/reference/asr-func_05-c22b921.json
new file mode 100644
index 0000000000..46cec1c7b4
--- /dev/null
+++ b/tests/reference/asr-func_05-c22b921.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-func_05-c22b921",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/func_05.py",
+    "infile_hash": "70a0b0ddad67252c7488d322ffc565a6669e1f79b96c3ef3014b0d0a",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-func_05-c22b921.stderr",
+    "stderr_hash": "9611beb75ae308f86e573592164c5aca50c4e1acec2e91e48687ba96",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-func_05-c22b921.stderr b/tests/reference/asr-func_05-c22b921.stderr
new file mode 100644
index 0000000000..fc959f032f
--- /dev/null
+++ b/tests/reference/asr-func_05-c22b921.stderr
@@ -0,0 +1,5 @@
+semantic error: Simple Type i32 cannot be intent InOut/Out
+ --> tests/errors/func_05.py:3:7
+  |
+3 | def f(n: InOut[i32]):
+  |       ^^^^^^^^^^^^^ 
diff --git a/tests/reference/asr-func_06-62e738c.json b/tests/reference/asr-func_06-62e738c.json
new file mode 100644
index 0000000000..00d0a1051b
--- /dev/null
+++ b/tests/reference/asr-func_06-62e738c.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-func_06-62e738c",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/func_06.py",
+    "infile_hash": "eed0fcf15f1964c916df4aa9bc4fab78f74f87243a42549a99234b7b",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-func_06-62e738c.stderr",
+    "stderr_hash": "a97e6d8f812ec9e81cb4b0565dc2fd30f3bd194ccab41770962f6e32",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-func_06-62e738c.stderr b/tests/reference/asr-func_06-62e738c.stderr
new file mode 100644
index 0000000000..5e5827b226
--- /dev/null
+++ b/tests/reference/asr-func_06-62e738c.stderr
@@ -0,0 +1,8 @@
+semantic error: Parameter is already declared
+ --> tests/errors/func_06.py:1:12
+  |
+1 | def init_X(m:i32, n: i32, b: CPtr, m: i32) -> None:
+  |            ~~~~~ original declaration
+  |
+1 | def init_X(m:i32, n: i32, b: CPtr, m: i32) -> None:
+  |                                    ^^^^^^ redeclaration
diff --git a/tests/reference/asr-func_07-4a8c076.json b/tests/reference/asr-func_07-4a8c076.json
new file mode 100644
index 0000000000..38289e04a3
--- /dev/null
+++ b/tests/reference/asr-func_07-4a8c076.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-func_07-4a8c076",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/func_07.py",
+    "infile_hash": "1f03729509b64de761a779737f886f9c86e548a903cb875e8f9f15f0",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-func_07-4a8c076.stderr",
+    "stderr_hash": "f318e29b96f7730e9ed5fd89ae43e851f22bf50a5c3b2bde415e24e2",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-func_07-4a8c076.stderr b/tests/reference/asr-func_07-4a8c076.stderr
new file mode 100644
index 0000000000..eba5600657
--- /dev/null
+++ b/tests/reference/asr-func_07-4a8c076.stderr
@@ -0,0 +1,5 @@
+semantic error: Assignment to an input function parameter `this` is not allowed
+  --> tests/errors/func_07.py:12:5
+   |
+12 |     this._len = len(this._buf)
+   |     ^^^^ Use InOut[StringIO] to allow assignment
diff --git a/tests/reference/asr-func_08-c137415.json b/tests/reference/asr-func_08-c137415.json
new file mode 100644
index 0000000000..e8987fe7e0
--- /dev/null
+++ b/tests/reference/asr-func_08-c137415.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-func_08-c137415",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/func_08.py",
+    "infile_hash": "7db9398db0036bb22e787d74ea36241f6535928f25e66c09c59e76e3",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-func_08-c137415.stderr",
+    "stderr_hash": "5fe28460d4f28e79ced8c17e75ba6da4cdfccd36e20d1c3a85d07cf1",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-func_08-c137415.stderr b/tests/reference/asr-func_08-c137415.stderr
new file mode 100644
index 0000000000..c372ea27dd
--- /dev/null
+++ b/tests/reference/asr-func_08-c137415.stderr
@@ -0,0 +1,5 @@
+semantic error: Intent annotation 'In' cannot be used here
+ --> tests/errors/func_08.py:3:17
+  |
+3 | def main0(x: In[In[i32]]):
+  |                 ^^^^^^^ 
diff --git a/tests/reference/asr-func_inline_01-56af272.json b/tests/reference/asr-func_inline_01-56af272.json
index c1d9c382d3..f2cec067ae 100644
--- a/tests/reference/asr-func_inline_01-56af272.json
+++ b/tests/reference/asr-func_inline_01-56af272.json
@@ -2,11 +2,11 @@
     "basename": "asr-func_inline_01-56af272",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/../integration_tests/func_inline_01.py",
-    "infile_hash": "e9d50789dd554b57842e52e0818c0803943173620119bfb6f3787f83",
+    "infile_hash": "65a2e9a9bc7ad68a5e104549eed00cafd02b643a1d91ab2e175b2198",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "asr-func_inline_01-56af272.stdout",
-    "stdout_hash": "6d7a99c541fa71e6ad0a78a58663c9b76297379fc1361738e748c8db",
+    "stdout_hash": "bca9ee522d656688561cf62fa9e8d6ce7a9f226fa9743ffa32ad63a2",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/asr-func_inline_01-56af272.stdout b/tests/reference/asr-func_inline_01-56af272.stdout
index e8714e5d63..d460762417 100644
--- a/tests/reference/asr-func_inline_01-56af272.stdout
+++ b/tests/reference/asr-func_inline_01-56af272.stdout
@@ -1 +1,351 @@
-(TranslationUnit (SymbolTable 1 {_lpython_main_program: (Function (SymbolTable 5 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [main] [] [(SubroutineCall 1 main () [] ())] () Public .false. .false.), fib: (Function (SymbolTable 2 {_lpython_return_variable: (Variable 2 _lpython_return_variable [] ReturnVar () () Default (Integer 8 []) Source Public Required .false.), n: (Variable 2 n [] In () () Default (Integer 8 []) Source Public Required .false.)}) fib (FunctionType [(Integer 8 [])] (Integer 8 []) Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [fib fib] [(Var 2 n)] [(If (IntegerCompare (Var 2 n) Lt (Cast (IntegerConstant 2 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 2 (Integer 8 []))) (Logical 4 []) ()) [(= (Var 2 _lpython_return_variable) (Var 2 n) ()) (Return)] []) (= (Var 2 _lpython_return_variable) (IntegerBinOp (FunctionCall 1 fib () [((IntegerBinOp (Var 2 n) Sub (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 1 (Integer 8 []))) (Integer 8 []) ()))] (Integer 8 []) () ()) Add (FunctionCall 1 fib () [((IntegerBinOp (Var 2 n) Sub (Cast (IntegerConstant 2 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 2 (Integer 8 []))) (Integer 8 []) ()))] (Integer 8 []) () ()) (Integer 8 []) ()) ()) (Return)] (Var 2 _lpython_return_variable) Public .false. .false.), main: (Function (SymbolTable 3 {ans: (Variable 3 ans [] Local () () Default (Integer 8 []) Source Public Required .false.), x: (Variable 3 x [] Local () () Default (Integer 8 []) Source Public Required .false.)}) main (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [fib] [] [(= (Var 3 x) (Cast (IntegerConstant 40 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 40 (Integer 8 []))) ()) (= (Var 3 ans) (FunctionCall 1 fib () [((Var 3 x))] (Integer 8 []) () ()) ()) (Print () [(Var 3 ans)] () ()) (Assert (IntegerCompare (Var 3 ans) Eq (Cast (IntegerConstant 102334155 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 102334155 (Integer 8 []))) (Logical 4 []) ()) ())] () Public .false. .false.), main_program: (Program (SymbolTable 4 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())])}) [])
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            __main__global_stmts:
+                                (Function
+                                    (SymbolTable
+                                        5
+                                        {
+                                            
+                                        })
+                                    __main__global_stmts
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [main]
+                                    []
+                                    [(SubroutineCall
+                                        2 main
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            fib:
+                                (Function
+                                    (SymbolTable
+                                        3
+                                        {
+                                            _lpython_return_variable:
+                                                (Variable
+                                                    3
+                                                    _lpython_return_variable
+                                                    []
+                                                    ReturnVar
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            n:
+                                                (Variable
+                                                    3
+                                                    n
+                                                    []
+                                                    In
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    fib
+                                    (FunctionType
+                                        [(Integer 8)]
+                                        (Integer 8)
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [fib]
+                                    [(Var 3 n)]
+                                    [(If
+                                        ()
+                                        (IntegerCompare
+                                            (Var 3 n)
+                                            Lt
+                                            (Cast
+                                                (IntegerConstant 2 (Integer 4) Decimal)
+                                                IntegerToInteger
+                                                (Integer 8)
+                                                (IntegerConstant 2 (Integer 8) Decimal)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        [(Assignment
+                                            (Var 3 _lpython_return_variable)
+                                            (Var 3 n)
+                                            ()
+                                            .false.
+                                            .false.
+                                        )
+                                        (Return)]
+                                        []
+                                    )
+                                    (Assignment
+                                        (Var 3 _lpython_return_variable)
+                                        (IntegerBinOp
+                                            (FunctionCall
+                                                2 fib
+                                                ()
+                                                [((IntegerBinOp
+                                                    (Var 3 n)
+                                                    Sub
+                                                    (Cast
+                                                        (IntegerConstant 1 (Integer 4) Decimal)
+                                                        IntegerToInteger
+                                                        (Integer 8)
+                                                        (IntegerConstant 1 (Integer 8) Decimal)
+                                                    )
+                                                    (Integer 8)
+                                                    ()
+                                                ))]
+                                                (Integer 8)
+                                                ()
+                                                ()
+                                            )
+                                            Add
+                                            (FunctionCall
+                                                2 fib
+                                                ()
+                                                [((IntegerBinOp
+                                                    (Var 3 n)
+                                                    Sub
+                                                    (Cast
+                                                        (IntegerConstant 2 (Integer 4) Decimal)
+                                                        IntegerToInteger
+                                                        (Integer 8)
+                                                        (IntegerConstant 2 (Integer 8) Decimal)
+                                                    )
+                                                    (Integer 8)
+                                                    ()
+                                                ))]
+                                                (Integer 8)
+                                                ()
+                                                ()
+                                            )
+                                            (Integer 8)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Return)]
+                                    (Var 3 _lpython_return_variable)
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            main:
+                                (Function
+                                    (SymbolTable
+                                        4
+                                        {
+                                            ans:
+                                                (Variable
+                                                    4
+                                                    ans
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            x:
+                                                (Variable
+                                                    4
+                                                    x
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    main
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [fib]
+                                    []
+                                    [(Assignment
+                                        (Var 4 x)
+                                        (Cast
+                                            (IntegerConstant 40 (Integer 4) Decimal)
+                                            IntegerToInteger
+                                            (Integer 8)
+                                            (IntegerConstant 40 (Integer 8) Decimal)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 ans)
+                                        (FunctionCall
+                                            2 fib
+                                            ()
+                                            [((Var 4 x))]
+                                            (Integer 8)
+                                            ()
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(Var 4 ans)]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (Var 4 ans)
+                                            Eq
+                                            (Cast
+                                                (IntegerConstant 102334155 (Integer 4) Decimal)
+                                                IntegerToInteger
+                                                (Integer 8)
+                                                (IntegerConstant 102334155 (Integer 8) Decimal)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    []
+                    .false.
+                    .false.
+                    .false.
+                ),
+            main_program:
+                (Program
+                    (SymbolTable
+                        6
+                        {
+                            __main__global_stmts:
+                                (ExternalSymbol
+                                    6
+                                    __main__global_stmts
+                                    2 __main__global_stmts
+                                    __main__
+                                    []
+                                    __main__global_stmts
+                                    Public
+                                )
+                        })
+                    main_program
+                    [__main__]
+                    [(SubroutineCall
+                        6 __main__global_stmts
+                        2 __main__global_stmts
+                        []
+                        ()
+                        .false.
+                    )]
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-generics_01-d616074.json b/tests/reference/asr-generics_01-d616074.json
index 0b65830034..86610b5229 100644
--- a/tests/reference/asr-generics_01-d616074.json
+++ b/tests/reference/asr-generics_01-d616074.json
@@ -2,12 +2,12 @@
     "basename": "asr-generics_01-d616074",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/../integration_tests/generics_01.py",
-    "infile_hash": "cf91399f0cae8a099eec7af56ef12bc0f52e60599f0971baf5e001b5",
+    "infile_hash": "3062320cca6688cea4b76b4c18dbaf5d1dcc1de193459ee598e84935",
     "outfile": null,
     "outfile_hash": null,
-    "stdout": "asr-generics_01-d616074.stdout",
-    "stdout_hash": "7ec4cf449c543da5dea716c27e276e645522550c7b7be94a109fd572",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-generics_01-d616074.stderr",
+    "stderr_hash": "7aac97cbff36f55dbe879fc690d9ea0d40262a9286c36b808f882e4e",
+    "returncode": 2
 }
\ No newline at end of file
diff --git a/tests/reference/asr-generics_01-d616074.stderr b/tests/reference/asr-generics_01-d616074.stderr
new file mode 100644
index 0000000000..6648af34a7
--- /dev/null
+++ b/tests/reference/asr-generics_01-d616074.stderr
@@ -0,0 +1,8 @@
+semantic error: Type mismatch in procedure call; the types must be compatible
+  --> tests/../integration_tests/generics_01.py:18:9
+   |
+18 | print(f(1, 2, add=add_integer))
+   |         ^ type mismatch (passed argument type is i32 but required type is T)
+   |
+15 | def f(x: T, y: T, **kwargs) -> T:
+   |          ^ type mismatch (passed argument type is i32 but required type is T)
diff --git a/tests/reference/asr-generics_01-d616074.stdout b/tests/reference/asr-generics_01-d616074.stdout
deleted file mode 100644
index 43c4bb5bdc..0000000000
--- a/tests/reference/asr-generics_01-d616074.stdout
+++ /dev/null
@@ -1 +0,0 @@
-(TranslationUnit (SymbolTable 1 {T: (Variable 1 T [] Local () () Default (TypeParameter T []) Source Public Required .false.), __asr_generic_f_0: (Function (SymbolTable 6 {_lpython_return_variable: (Variable 6 _lpython_return_variable [] ReturnVar () () Default (Integer 4 []) Source Public Required .false.), x: (Variable 6 x [] In () () Default (Integer 4 []) Source Public Required .false.), y: (Variable 6 y [] In () () Default (Integer 4 []) Source Public Required .false.)}) __asr_generic_f_0 (FunctionType [(Integer 4 []) (Integer 4 [])] (Integer 4 []) Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [add_integer] [(Var 6 x) (Var 6 y)] [(= (Var 6 _lpython_return_variable) (FunctionCall 1 add_integer () [((Var 6 x)) ((Var 6 y))] (Integer 4 []) () ()) ()) (Return)] (Var 6 _lpython_return_variable) Public .false. .false.), __asr_generic_f_1: (Function (SymbolTable 7 {_lpython_return_variable: (Variable 7 _lpython_return_variable [] ReturnVar () () Default (Character 1 1 () []) Source Public Required .false.), x: (Variable 7 x [] In () () Default (Character 1 1 () []) Source Public Required .false.), y: (Variable 7 y [] In () () Default (Character 1 1 () []) Source Public Required .false.)}) __asr_generic_f_1 (FunctionType [(Character 1 1 () []) (Character 1 1 () [])] (Character 1 1 () []) Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [add_string] [(Var 7 x) (Var 7 y)] [(= (Var 7 _lpython_return_variable) (FunctionCall 1 add_string () [((Var 7 x)) ((Var 7 y))] (Character 1 1 () []) () ()) ()) (Return)] (Var 7 _lpython_return_variable) Public .false. .false.), _lpython_main_program: (Function (SymbolTable 9 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [__asr_generic_f_0 __asr_generic_f_1 __asr_generic_f_1] [] [(Print () [(FunctionCall 1 __asr_generic_f_0 () [((IntegerConstant 1 (Integer 4 []))) ((IntegerConstant 2 (Integer 4 [])))] (Integer 4 []) () ())] () ()) (Print () [(FunctionCall 1 __asr_generic_f_1 () [((StringConstant "a" (Character 1 1 () []))) ((StringConstant "b" (Character 1 1 () [])))] (Character 1 1 () []) () ())] () ()) (Print () [(FunctionCall 1 __asr_generic_f_1 () [((StringConstant "c" (Character 1 1 () []))) ((StringConstant "d" (Character 1 1 () [])))] (Character 1 1 () []) () ())] () ())] () Public .false. .false.), add: (Function (SymbolTable 2 {_lpython_return_variable: (Variable 2 _lpython_return_variable [] ReturnVar () () Default (TypeParameter T []) Source Public Required .false.), x: (Variable 2 x [] In () () Default (TypeParameter T []) Source Public Required .false.), y: (Variable 2 y [] In () () Default (TypeParameter T []) Source Public Required .false.)}) add (FunctionType [(TypeParameter T []) (TypeParameter T [])] (TypeParameter T []) Source Implementation () .false. .false. .false. .false. .false. [(TypeParameter T [])] [] .true.) [] [(Var 2 x) (Var 2 y)] [] (Var 2 _lpython_return_variable) Public .false. .false.), add_integer: (Function (SymbolTable 3 {_lpython_return_variable: (Variable 3 _lpython_return_variable [] ReturnVar () () Default (Integer 4 []) Source Public Required .false.), x: (Variable 3 x [] In () () Default (Integer 4 []) Source Public Required .false.), y: (Variable 3 y [] In () () Default (Integer 4 []) Source Public Required .false.)}) add_integer (FunctionType [(Integer 4 []) (Integer 4 [])] (Integer 4 []) Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 3 x) (Var 3 y)] [(= (Var 3 _lpython_return_variable) (IntegerBinOp (Var 3 x) Add (Var 3 y) (Integer 4 []) ()) ()) (Return)] (Var 3 _lpython_return_variable) Public .false. .false.), add_string: (Function (SymbolTable 4 {_lpython_return_variable: (Variable 4 _lpython_return_variable [] ReturnVar () () Default (Character 1 -2 () []) Source Public Required .false.), x: (Variable 4 x [] In () () Default (Character 1 -2 () []) Source Public Required .false.), y: (Variable 4 y [] In () () Default (Character 1 -2 () []) Source Public Required .false.)}) add_string (FunctionType [(Character 1 -2 () []) (Character 1 -2 () [])] (Character 1 -2 () []) Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 4 x) (Var 4 y)] [(= (Var 4 _lpython_return_variable) (StringConcat (Var 4 x) (Var 4 y) (Character 1 -4 () []) ()) ()) (Return)] (Var 4 _lpython_return_variable) Public .false. .false.), f: (Function (SymbolTable 5 {_lpython_return_variable: (Variable 5 _lpython_return_variable [] ReturnVar () () Default (TypeParameter T []) Source Public Required .false.), x: (Variable 5 x [] In () () Default (TypeParameter T []) Source Public Required .false.), y: (Variable 5 y [] In () () Default (TypeParameter T []) Source Public Required .false.)}) f (FunctionType [(TypeParameter T []) (TypeParameter T [])] (TypeParameter T []) Source Implementation () .false. .false. .false. .false. .false. [(TypeParameter T [])] [1 add] .false.) [add] [(Var 5 x) (Var 5 y)] [(= (Var 5 _lpython_return_variable) (FunctionCall 1 add () [((Var 5 x)) ((Var 5 y))] (TypeParameter T []) () ()) ()) (Return)] (Var 5 _lpython_return_variable) Public .false. .false.), main_program: (Program (SymbolTable 8 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())])}) [])
diff --git a/tests/reference/asr-generics_02-e2ea5c9.json b/tests/reference/asr-generics_02-e2ea5c9.json
index 1ecb51a951..991249dcce 100644
--- a/tests/reference/asr-generics_02-e2ea5c9.json
+++ b/tests/reference/asr-generics_02-e2ea5c9.json
@@ -2,12 +2,12 @@
     "basename": "asr-generics_02-e2ea5c9",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/../integration_tests/generics_02.py",
-    "infile_hash": "6f748cbf059da328ff092c08ad0063e639ba460eb481fadfadeebc51",
+    "infile_hash": "8406b1b9329997678ed067f896373fbbf49daeb2e379c700c5c2e917",
     "outfile": null,
     "outfile_hash": null,
-    "stdout": "asr-generics_02-e2ea5c9.stdout",
-    "stdout_hash": "3b4073d29fc4ae4ba18a3e93731c5c9fcaa7fb3d28d03a6700b6dcc9",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-generics_02-e2ea5c9.stderr",
+    "stderr_hash": "50bffa1daac8c33873c9e63bbb4191dea518da82c6fc2ee108085320",
+    "returncode": 2
 }
\ No newline at end of file
diff --git a/tests/reference/asr-generics_02-e2ea5c9.stderr b/tests/reference/asr-generics_02-e2ea5c9.stderr
new file mode 100644
index 0000000000..25d787c740
--- /dev/null
+++ b/tests/reference/asr-generics_02-e2ea5c9.stderr
@@ -0,0 +1,5 @@
+semantic error: Simple Type T cannot be intent InOut/Out
+ --> tests/../integration_tests/generics_02.py:5:10
+  |
+5 | def swap(x: InOut[T], y: InOut[T]):
+  |          ^^^^^^^^^^^ 
diff --git a/tests/reference/asr-generics_02-e2ea5c9.stdout b/tests/reference/asr-generics_02-e2ea5c9.stdout
deleted file mode 100644
index 6ad8ad0687..0000000000
--- a/tests/reference/asr-generics_02-e2ea5c9.stdout
+++ /dev/null
@@ -1 +0,0 @@
-(TranslationUnit (SymbolTable 1 {T: (Variable 1 T [] Local () () Default (TypeParameter T []) Source Public Required .false.), __asr_generic_swap_0: (Function (SymbolTable 3 {temp: (Variable 3 temp [] Local () () Default (Integer 4 []) Source Public Required .false.), x: (Variable 3 x [] In () () Default (Integer 4 []) Source Public Required .false.), y: (Variable 3 y [] In () () Default (Integer 4 []) Source Public Required .false.)}) __asr_generic_swap_0 (FunctionType [(Integer 4 []) (Integer 4 [])] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 3 x) (Var 3 y)] [(= (Var 3 temp) (Var 3 x) ()) (= (Var 3 x) (Var 3 y) ()) (= (Var 3 y) (Var 3 temp) ()) (Print () [(Var 3 x)] () ()) (Print () [(Var 3 y)] () ())] () Public .false. .false.), _lpython_main_program: (Function (SymbolTable 5 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [__asr_generic_swap_0] [] [(SubroutineCall 1 __asr_generic_swap_0 () [((IntegerConstant 1 (Integer 4 []))) ((IntegerConstant 2 (Integer 4 [])))] ())] () Public .false. .false.), main_program: (Program (SymbolTable 4 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())]), swap: (Function (SymbolTable 2 {temp: (Variable 2 temp [] Local () () Default (TypeParameter T []) Source Public Required .false.), x: (Variable 2 x [] In () () Default (TypeParameter T []) Source Public Required .false.), y: (Variable 2 y [] In () () Default (TypeParameter T []) Source Public Required .false.)}) swap (FunctionType [(TypeParameter T []) (TypeParameter T [])] () Source Implementation () .false. .false. .false. .false. .false. [(TypeParameter T [])] [] .false.) [] [(Var 2 x) (Var 2 y)] [(= (Var 2 temp) (Var 2 x) ()) (= (Var 2 x) (Var 2 y) ()) (= (Var 2 y) (Var 2 temp) ()) (Print () [(Var 2 x)] () ()) (Print () [(Var 2 y)] () ())] () Public .false. .false.)}) [])
diff --git a/tests/reference/asr-generics_array_01-682b1b2.json b/tests/reference/asr-generics_array_01-682b1b2.json
index d6ba93cb7b..7ca531e815 100644
--- a/tests/reference/asr-generics_array_01-682b1b2.json
+++ b/tests/reference/asr-generics_array_01-682b1b2.json
@@ -2,12 +2,12 @@
     "basename": "asr-generics_array_01-682b1b2",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/../integration_tests/generics_array_01.py",
-    "infile_hash": "577e2138c4c3c6c6550b24968b820b08adf826c7d2a8f569445a30d7",
+    "infile_hash": "6e943dd0e26ab4d1ffb6ed6909a365b4135b6f5295957b2478cfb479",
     "outfile": null,
     "outfile_hash": null,
-    "stdout": "asr-generics_array_01-682b1b2.stdout",
-    "stdout_hash": "50a9f5ecccc23dafe944939668a73d0c3d3e2d86b3a1296ae87015a3",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-generics_array_01-682b1b2.stderr",
+    "stderr_hash": "15749848f430f565cf4c8500f45a67a0d405bddc6b0459ccad6d25f2",
+    "returncode": 2
 }
\ No newline at end of file
diff --git a/tests/reference/asr-generics_array_01-682b1b2.stderr b/tests/reference/asr-generics_array_01-682b1b2.stderr
new file mode 100644
index 0000000000..162f642577
--- /dev/null
+++ b/tests/reference/asr-generics_array_01-682b1b2.stderr
@@ -0,0 +1,8 @@
+semantic error: Type mismatch in procedure call; the types must be compatible
+  --> tests/../integration_tests/generics_array_01.py:15:13
+   |
+15 |     print(f(array, x))
+   |             ^^^^^ type mismatch (passed argument type is i32[1] but required type is T[:])
+   |
+ 6 | def f(lst: T[:], i: T) -> T:
+   |            ^^^^ type mismatch (passed argument type is i32[1] but required type is T[:])
diff --git a/tests/reference/asr-generics_array_01-682b1b2.stdout b/tests/reference/asr-generics_array_01-682b1b2.stdout
deleted file mode 100644
index 09ad7f6df2..0000000000
--- a/tests/reference/asr-generics_array_01-682b1b2.stdout
+++ /dev/null
@@ -1 +0,0 @@
-(TranslationUnit (SymbolTable 1 {T: (Variable 1 T [] Local () () Default (TypeParameter T []) Source Public Required .false.), __asr_generic_f_0: (Function (SymbolTable 173 {_lpython_return_variable: (Variable 173 _lpython_return_variable [] ReturnVar () () Default (Integer 4 []) Source Public Required .false.), i: (Variable 173 i [] In () () Default (Integer 4 []) Source Public Required .false.), lst: (Variable 173 lst [] InOut () () Default (Integer 4 [(() ())]) Source Public Required .false.)}) __asr_generic_f_0 (FunctionType [(Integer 4 [(() ())]) (Integer 4 [])] (Integer 4 []) Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 173 lst) (Var 173 i)] [(= (ArrayItem (Var 173 lst) [(() (IntegerConstant 0 (Integer 4 [])) ())] (Integer 4 []) RowMajor ()) (Var 173 i) ()) (= (Var 173 _lpython_return_variable) (ArrayItem (Var 173 lst) [(() (IntegerConstant 0 (Integer 4 [])) ())] (Integer 4 []) RowMajor ()) ()) (Return)] (Var 173 _lpython_return_variable) Public .false. .false.), _lpython_main_program: (Function (SymbolTable 175 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [use_array] [] [(SubroutineCall 1 use_array () [] ())] () Public .false. .false.), f: (Function (SymbolTable 171 {_lpython_return_variable: (Variable 171 _lpython_return_variable [] ReturnVar () () Default (TypeParameter T []) Source Public Required .false.), i: (Variable 171 i [] In () () Default (TypeParameter T []) Source Public Required .false.), lst: (Variable 171 lst [] InOut () () Default (TypeParameter T [(() ())]) Source Public Required .false.)}) f (FunctionType [(TypeParameter T [(() ())]) (TypeParameter T [])] (TypeParameter T []) Source Implementation () .false. .false. .false. .false. .false. [(TypeParameter T [])] [] .false.) [] [(Var 171 lst) (Var 171 i)] [(= (ArrayItem (Var 171 lst) [(() (IntegerConstant 0 (Integer 4 [])) ())] (TypeParameter T []) RowMajor ()) (Var 171 i) ()) (= (Var 171 _lpython_return_variable) (ArrayItem (Var 171 lst) [(() (IntegerConstant 0 (Integer 4 [])) ())] (TypeParameter T []) RowMajor ()) ()) (Return)] (Var 171 _lpython_return_variable) Public .false. .false.), lpython_builtin: (IntrinsicModule lpython_builtin), main_program: (Program (SymbolTable 174 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())]), numpy: (Module (SymbolTable 3 {__lpython_overloaded_0__arccos: (Function (SymbolTable 41 {_lpython_return_variable: (Variable 41 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 41 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arccos (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dacos] [(Var 41 x)] [(= (Var 41 _lpython_return_variable) (FunctionCall 3 _lfortran_dacos () [((Var 41 x))] (Real 8 []) () ()) ()) (Return)] (Var 41 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__arccosh: (Function (SymbolTable 65 {_lpython_return_variable: (Variable 65 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 65 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arccosh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dacosh] [(Var 65 x)] [(= (Var 65 _lpython_return_variable) (FunctionCall 3 _lfortran_dacosh () [((Var 65 x))] (Real 8 []) () ()) ()) (Return)] (Var 65 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__arcsin: (Function (SymbolTable 37 {_lpython_return_variable: (Variable 37 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 37 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arcsin (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dasin] [(Var 37 x)] [(= (Var 37 _lpython_return_variable) (FunctionCall 3 _lfortran_dasin () [((Var 37 x))] (Real 8 []) () ()) ()) (Return)] (Var 37 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__arcsinh: (Function (SymbolTable 61 {_lpython_return_variable: (Variable 61 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 61 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arcsinh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dasinh] [(Var 61 x)] [(= (Var 61 _lpython_return_variable) (FunctionCall 3 _lfortran_dasinh () [((Var 61 x))] (Real 8 []) () ()) ()) (Return)] (Var 61 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__arctan: (Function (SymbolTable 53 {_lpython_return_variable: (Variable 53 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 53 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arctan (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_datan] [(Var 53 x)] [(= (Var 53 _lpython_return_variable) (FunctionCall 3 _lfortran_datan () [((Var 53 x))] (Real 8 []) () ()) ()) (Return)] (Var 53 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__arctanh: (Function (SymbolTable 69 {_lpython_return_variable: (Variable 69 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 69 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arctanh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_datanh] [(Var 69 x)] [(= (Var 69 _lpython_return_variable) (FunctionCall 3 _lfortran_datanh () [((Var 69 x))] (Real 8 []) () ()) ()) (Return)] (Var 69 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__ceil: (Function (SymbolTable 76 {_lpython_return_variable: (Variable 76 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), result: (Variable 76 result [] Local () () Default (Integer 8 []) Source Public Required .false.), x: (Variable 76 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__ceil (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 76 x)] [(= (Var 76 result) (Cast (Var 76 x) RealToInteger (Integer 8 []) ()) ()) (If (LogicalBinOp (RealCompare (Var 76 x) LtE (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToReal (Real 8 []) ()) (Logical 4 []) ()) Or (RealCompare (Var 76 x) Eq (Cast (Var 76 result) IntegerToReal (Real 8 []) ()) (Logical 4 []) ()) (Logical 4 []) ()) [(= (Var 76 _lpython_return_variable) (Cast (Var 76 result) IntegerToReal (Real 8 []) ()) ()) (Return)] []) (= (Var 76 _lpython_return_variable) (Cast (IntegerBinOp (Var 76 result) Add (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 1 (Integer 8 []))) (Integer 8 []) ()) IntegerToReal (Real 8 []) ()) ()) (Return)] (Var 76 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__cos: (Function (SymbolTable 9 {_lpython_return_variable: (Variable 9 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 9 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__cos (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dcos] [(Var 9 x)] [(= (Var 9 _lpython_return_variable) (FunctionCall 3 _lfortran_dcos () [((Var 9 x))] (Real 8 []) () ()) ()) (Return)] (Var 9 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__cosh: (Function (SymbolTable 23 {_lpython_return_variable: (Variable 23 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 23 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__cosh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dcosh] [(Var 23 x)] [(= (Var 23 _lpython_return_variable) (FunctionCall 3 _lfortran_dcosh () [((Var 23 x))] (Real 8 []) () ()) ()) (Return)] (Var 23 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__degrees: (Function (SymbolTable 56 {_lpython_return_variable: (Variable 56 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 56 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__degrees (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 56 x)] [(= (Var 56 _lpython_return_variable) (RealBinOp (RealBinOp (Var 56 x) Mul (RealConstant 180.000000 (Real 8 [])) (Real 8 []) ()) Div (Var 3 pi_64) (Real 8 []) ()) ()) (Return)] (Var 56 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__exp: (Function (SymbolTable 49 {_lpython_return_variable: (Variable 49 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 49 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__exp (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dexp] [(Var 49 x)] [(= (Var 49 _lpython_return_variable) (FunctionCall 3 _lfortran_dexp () [((Var 49 x))] (Real 8 []) () ()) ()) (Return)] (Var 49 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__floor: (Function (SymbolTable 74 {_lpython_return_variable: (Variable 74 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), result: (Variable 74 result [] Local () () Default (Integer 8 []) Source Public Required .false.), x: (Variable 74 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__floor (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 74 x)] [(= (Var 74 result) (Cast (Var 74 x) RealToInteger (Integer 8 []) ()) ()) (If (LogicalBinOp (RealCompare (Var 74 x) GtE (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToReal (Real 8 []) ()) (Logical 4 []) ()) Or (RealCompare (Var 74 x) Eq (Cast (Var 74 result) IntegerToReal (Real 8 []) ()) (Logical 4 []) ()) (Logical 4 []) ()) [(= (Var 74 _lpython_return_variable) (Cast (Var 74 result) IntegerToReal (Real 8 []) ()) ()) (Return)] []) (= (Var 74 _lpython_return_variable) (Cast (IntegerBinOp (Var 74 result) Sub (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 1 (Integer 8 []))) (Integer 8 []) ()) IntegerToReal (Real 8 []) ()) ()) (Return)] (Var 74 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__log: (Function (SymbolTable 27 {_lpython_return_variable: (Variable 27 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 27 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__log (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dlog] [(Var 27 x)] [(= (Var 27 _lpython_return_variable) (FunctionCall 3 _lfortran_dlog () [((Var 27 x))] (Real 8 []) () ()) ()) (Return)] (Var 27 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__log10: (Function (SymbolTable 31 {_lpython_return_variable: (Variable 31 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 31 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__log10 (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dlog10] [(Var 31 x)] [(= (Var 31 _lpython_return_variable) (FunctionCall 3 _lfortran_dlog10 () [((Var 31 x))] (Real 8 []) () ()) ()) (Return)] (Var 31 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__log2: (Function (SymbolTable 34 {_lpython_return_variable: (Variable 34 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 34 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__log2 (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dlog _lfortran_dlog] [(Var 34 x)] [(= (Var 34 _lpython_return_variable) (RealBinOp (FunctionCall 3 _lfortran_dlog () [((Var 34 x))] (Real 8 []) () ()) Div (FunctionCall 3 _lfortran_dlog () [((RealConstant 2.000000 (Real 8 [])))] (Real 8 []) () ()) (Real 8 []) ()) ()) (Return)] (Var 34 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__mod: (Function (SymbolTable 72 {_lpython_return_variable: (Variable 72 _lpython_return_variable [] ReturnVar () () Default (Integer 8 []) Source Public Required .false.), _mod: (ExternalSymbol 72 _mod 79 _mod lpython_builtin [] _mod Private), _mod@__lpython_overloaded_2___mod: (ExternalSymbol 72 _mod@__lpython_overloaded_2___mod 79 __lpython_overloaded_2___mod lpython_builtin [] __lpython_overloaded_2___mod Public), x1: (Variable 72 x1 [] In () () Default (Integer 8 []) Source Public Required .false.), x2: (Variable 72 x2 [] In () () Default (Integer 8 []) Source Public Required .false.)}) __lpython_overloaded_0__mod (FunctionType [(Integer 8 []) (Integer 8 [])] (Integer 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_mod@__lpython_overloaded_2___mod] [(Var 72 x1) (Var 72 x2)] [(If (IntegerCompare (Var 72 x2) Eq (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 0 (Integer 8 []))) (Logical 4 []) ()) [(= (Var 72 _lpython_return_variable) (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToInteger (Integer 8 []) ()) ()) (Return)] []) (= (Var 72 _lpython_return_variable) (FunctionCall 72 _mod@__lpython_overloaded_2___mod 72 _mod [((Var 72 x1)) ((Var 72 x2))] (Integer 8 []) () ()) ()) (Return)] (Var 72 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__radians: (Function (SymbolTable 58 {_lpython_return_variable: (Variable 58 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 58 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__radians (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 58 x)] [(= (Var 58 _lpython_return_variable) (RealBinOp (RealBinOp (Var 58 x) Mul (Var 3 pi_64) (Real 8 []) ()) Div (RealConstant 180.000000 (Real 8 [])) (Real 8 []) ()) ()) (Return)] (Var 58 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__sin: (Function (SymbolTable 5 {_lpython_return_variable: (Variable 5 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 5 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__sin (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dsin] [(Var 5 x)] [(= (Var 5 _lpython_return_variable) (FunctionCall 3 _lfortran_dsin () [((Var 5 x))] (Real 8 []) () ()) ()) (Return)] (Var 5 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__sinh: (Function (SymbolTable 19 {_lpython_return_variable: (Variable 19 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 19 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__sinh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dsinh] [(Var 19 x)] [(= (Var 19 _lpython_return_variable) (FunctionCall 3 _lfortran_dsinh () [((Var 19 x))] (Real 8 []) () ()) ()) (Return)] (Var 19 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__sqrt: (Function (SymbolTable 12 {_lpython_return_variable: (Variable 12 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 12 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__sqrt (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 12 x)] [(= (Var 12 _lpython_return_variable) (RealBinOp (Var 12 x) Pow (RealBinOp (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToReal (Real 8 []) ()) Div (Cast (IntegerConstant 2 (Integer 4 [])) IntegerToReal (Real 8 []) ()) (Real 8 []) ()) (Real 8 []) ()) ()) (Return)] (Var 12 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__tan: (Function (SymbolTable 15 {_lpython_return_variable: (Variable 15 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 15 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__tan (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dtan] [(Var 15 x)] [(= (Var 15 _lpython_return_variable) (FunctionCall 3 _lfortran_dtan () [((Var 15 x))] (Real 8 []) () ()) ()) (Return)] (Var 15 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__tanh: (Function (SymbolTable 45 {_lpython_return_variable: (Variable 45 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 45 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__tanh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dtanh] [(Var 45 x)] [(= (Var 45 _lpython_return_variable) (FunctionCall 3 _lfortran_dtanh () [((Var 45 x))] (Real 8 []) () ()) ()) (Return)] (Var 45 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arccos: (Function (SymbolTable 43 {_lpython_return_variable: (Variable 43 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 43 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arccos (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_sacos] [(Var 43 x)] [(= (Var 43 _lpython_return_variable) (FunctionCall 3 _lfortran_sacos () [((Var 43 x))] (Real 4 []) () ()) ()) (Return)] (Var 43 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arccosh: (Function (SymbolTable 67 {_lpython_return_variable: (Variable 67 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 67 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arccosh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_sacosh] [(Var 67 x)] [(= (Var 67 _lpython_return_variable) (FunctionCall 3 _lfortran_sacosh () [((Var 67 x))] (Real 4 []) () ()) ()) (Return)] (Var 67 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arcsin: (Function (SymbolTable 39 {_lpython_return_variable: (Variable 39 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 39 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arcsin (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_sasin] [(Var 39 x)] [(= (Var 39 _lpython_return_variable) (FunctionCall 3 _lfortran_sasin () [((Var 39 x))] (Real 4 []) () ()) ()) (Return)] (Var 39 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arcsinh: (Function (SymbolTable 63 {_lpython_return_variable: (Variable 63 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 63 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arcsinh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_sasinh] [(Var 63 x)] [(= (Var 63 _lpython_return_variable) (FunctionCall 3 _lfortran_sasinh () [((Var 63 x))] (Real 4 []) () ()) ()) (Return)] (Var 63 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arctan: (Function (SymbolTable 55 {_lpython_return_variable: (Variable 55 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 55 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arctan (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_satan] [(Var 55 x)] [(= (Var 55 _lpython_return_variable) (FunctionCall 3 _lfortran_satan () [((Var 55 x))] (Real 4 []) () ()) ()) (Return)] (Var 55 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arctanh: (Function (SymbolTable 71 {_lpython_return_variable: (Variable 71 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 71 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arctanh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_satanh] [(Var 71 x)] [(= (Var 71 _lpython_return_variable) (FunctionCall 3 _lfortran_satanh () [((Var 71 x))] (Real 4 []) () ()) ()) (Return)] (Var 71 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__ceil: (Function (SymbolTable 77 {_lpython_return_variable: (Variable 77 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), resultf: (Variable 77 resultf [x] Local (Cast (Cast (Var 77 x) RealToInteger (Integer 4 []) ()) IntegerToReal (Real 4 []) ()) () Default (Real 4 []) Source Public Required .false.), x: (Variable 77 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__ceil (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 77 x)] [(= (Var 77 resultf) (Cast (Cast (Var 77 x) RealToInteger (Integer 4 []) ()) IntegerToReal (Real 4 []) ()) ()) (If (LogicalBinOp (RealCompare (Var 77 x) LtE (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Logical 4 []) ()) Or (RealCompare (Var 77 x) Eq (Var 77 resultf) (Logical 4 []) ()) (Logical 4 []) ()) [(= (Var 77 _lpython_return_variable) (Var 77 resultf) ()) (Return)] []) (= (Var 77 _lpython_return_variable) (RealBinOp (Var 77 resultf) Add (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Real 4 []) ()) ()) (Return)] (Var 77 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__cos: (Function (SymbolTable 11 {_lpython_return_variable: (Variable 11 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 11 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__cos (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_scos] [(Var 11 x)] [(= (Var 11 _lpython_return_variable) (FunctionCall 3 _lfortran_scos () [((Var 11 x))] (Real 4 []) () ()) ()) (Return)] (Var 11 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__cosh: (Function (SymbolTable 25 {_lpython_return_variable: (Variable 25 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 25 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__cosh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_scosh] [(Var 25 x)] [(= (Var 25 _lpython_return_variable) (FunctionCall 3 _lfortran_scosh () [((Var 25 x))] (Real 4 []) () ()) ()) (Return)] (Var 25 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__degrees: (Function (SymbolTable 57 {_lpython_return_variable: (Variable 57 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 57 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__degrees (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 57 x)] [(= (Var 57 _lpython_return_variable) (RealBinOp (Var 57 x) Mul (RealBinOp (Cast (IntegerConstant 180 (Integer 4 [])) IntegerToReal (Real 4 []) ()) Div (Var 3 pi_32) (Real 4 []) ()) (Real 4 []) ()) ()) (Return)] (Var 57 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__exp: (Function (SymbolTable 51 {_lpython_return_variable: (Variable 51 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 51 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__exp (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_sexp] [(Var 51 x)] [(= (Var 51 _lpython_return_variable) (FunctionCall 3 _lfortran_sexp () [((Var 51 x))] (Real 4 []) () ()) ()) (Return)] (Var 51 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__floor: (Function (SymbolTable 75 {_lpython_return_variable: (Variable 75 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), resultf: (Variable 75 resultf [x] Local (Cast (Cast (Var 75 x) RealToInteger (Integer 4 []) ()) IntegerToReal (Real 4 []) ()) () Default (Real 4 []) Source Public Required .false.), x: (Variable 75 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__floor (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 75 x)] [(= (Var 75 resultf) (Cast (Cast (Var 75 x) RealToInteger (Integer 4 []) ()) IntegerToReal (Real 4 []) ()) ()) (If (LogicalBinOp (RealCompare (Var 75 x) GtE (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Logical 4 []) ()) Or (RealCompare (Var 75 x) Eq (Var 75 resultf) (Logical 4 []) ()) (Logical 4 []) ()) [(= (Var 75 _lpython_return_variable) (Var 75 resultf) ()) (Return)] []) (= (Var 75 _lpython_return_variable) (RealBinOp (Var 75 resultf) Sub (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Real 4 []) ()) ()) (Return)] (Var 75 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__log: (Function (SymbolTable 29 {_lpython_return_variable: (Variable 29 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 29 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__log (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_slog] [(Var 29 x)] [(= (Var 29 _lpython_return_variable) (FunctionCall 3 _lfortran_slog () [((Var 29 x))] (Real 4 []) () ()) ()) (Return)] (Var 29 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__log10: (Function (SymbolTable 33 {_lpython_return_variable: (Variable 33 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 33 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__log10 (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_slog10] [(Var 33 x)] [(= (Var 33 _lpython_return_variable) (FunctionCall 3 _lfortran_slog10 () [((Var 33 x))] (Real 4 []) () ()) ()) (Return)] (Var 33 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__log2: (Function (SymbolTable 35 {_lpython_return_variable: (Variable 35 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 35 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__log2 (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_slog _lfortran_slog] [(Var 35 x)] [(= (Var 35 _lpython_return_variable) (RealBinOp (FunctionCall 3 _lfortran_slog () [((Var 35 x))] (Real 4 []) () ()) Div (FunctionCall 3 _lfortran_slog () [((Cast (RealConstant 2.000000 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 2.000000 (Real 4 []))))] (Real 4 []) () ()) (Real 4 []) ()) ()) (Return)] (Var 35 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__mod: (Function (SymbolTable 73 {_lpython_return_variable: (Variable 73 _lpython_return_variable [] ReturnVar () () Default (Integer 4 []) Source Public Required .false.), _mod: (ExternalSymbol 73 _mod 79 _mod lpython_builtin [] _mod Private), _mod@__lpython_overloaded_0___mod: (ExternalSymbol 73 _mod@__lpython_overloaded_0___mod 79 __lpython_overloaded_0___mod lpython_builtin [] __lpython_overloaded_0___mod Public), x1: (Variable 73 x1 [] In () () Default (Integer 4 []) Source Public Required .false.), x2: (Variable 73 x2 [] In () () Default (Integer 4 []) Source Public Required .false.)}) __lpython_overloaded_1__mod (FunctionType [(Integer 4 []) (Integer 4 [])] (Integer 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_mod@__lpython_overloaded_0___mod] [(Var 73 x1) (Var 73 x2)] [(If (IntegerCompare (Var 73 x2) Eq (IntegerConstant 0 (Integer 4 [])) (Logical 4 []) ()) [(= (Var 73 _lpython_return_variable) (IntegerConstant 0 (Integer 4 [])) ()) (Return)] []) (= (Var 73 _lpython_return_variable) (FunctionCall 73 _mod@__lpython_overloaded_0___mod 73 _mod [((Var 73 x1)) ((Var 73 x2))] (Integer 4 []) () ()) ()) (Return)] (Var 73 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__radians: (Function (SymbolTable 59 {_lpython_return_variable: (Variable 59 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 59 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__radians (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 59 x)] [(= (Var 59 _lpython_return_variable) (RealBinOp (Var 59 x) Mul (RealBinOp (Var 3 pi_32) Div (Cast (IntegerConstant 180 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Real 4 []) ()) (Real 4 []) ()) ()) (Return)] (Var 59 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__sin: (Function (SymbolTable 7 {_lpython_return_variable: (Variable 7 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 7 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__sin (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_ssin] [(Var 7 x)] [(= (Var 7 _lpython_return_variable) (FunctionCall 3 _lfortran_ssin () [((Var 7 x))] (Real 4 []) () ()) ()) (Return)] (Var 7 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__sinh: (Function (SymbolTable 21 {_lpython_return_variable: (Variable 21 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 21 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__sinh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_ssinh] [(Var 21 x)] [(= (Var 21 _lpython_return_variable) (FunctionCall 3 _lfortran_ssinh () [((Var 21 x))] (Real 4 []) () ()) ()) (Return)] (Var 21 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__sqrt: (Function (SymbolTable 13 {_lpython_return_variable: (Variable 13 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 13 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__sqrt (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 13 x)] [(= (Var 13 _lpython_return_variable) (RealBinOp (Var 13 x) Pow (Cast (RealBinOp (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToReal (Real 8 []) ()) Div (Cast (IntegerConstant 2 (Integer 4 [])) IntegerToReal (Real 8 []) ()) (Real 8 []) ()) RealToReal (Real 4 []) ()) (Real 4 []) ()) ()) (Return)] (Var 13 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__tan: (Function (SymbolTable 17 {_lpython_return_variable: (Variable 17 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 17 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__tan (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_stan] [(Var 17 x)] [(= (Var 17 _lpython_return_variable) (FunctionCall 3 _lfortran_stan () [((Var 17 x))] (Real 4 []) () ()) ()) (Return)] (Var 17 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__tanh: (Function (SymbolTable 47 {_lpython_return_variable: (Variable 47 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 47 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__tanh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_stanh] [(Var 47 x)] [(= (Var 47 _lpython_return_variable) (FunctionCall 3 _lfortran_stanh () [((Var 47 x))] (Real 4 []) () ()) ()) (Return)] (Var 47 _lpython_return_variable) Public .false. .false.), _lfortran_dacos: (Function (SymbolTable 40 {_lpython_return_variable: (Variable 40 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 40 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dacos (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 40 x)] [] (Var 40 _lpython_return_variable) Public .false. .false.), _lfortran_dacosh: (Function (SymbolTable 64 {_lpython_return_variable: (Variable 64 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 64 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dacosh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 64 x)] [] (Var 64 _lpython_return_variable) Public .false. .false.), _lfortran_dasin: (Function (SymbolTable 36 {_lpython_return_variable: (Variable 36 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 36 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dasin (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 36 x)] [] (Var 36 _lpython_return_variable) Public .false. .false.), _lfortran_dasinh: (Function (SymbolTable 60 {_lpython_return_variable: (Variable 60 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 60 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dasinh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 60 x)] [] (Var 60 _lpython_return_variable) Public .false. .false.), _lfortran_datan: (Function (SymbolTable 52 {_lpython_return_variable: (Variable 52 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 52 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_datan (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 52 x)] [] (Var 52 _lpython_return_variable) Public .false. .false.), _lfortran_datanh: (Function (SymbolTable 68 {_lpython_return_variable: (Variable 68 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 68 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_datanh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 68 x)] [] (Var 68 _lpython_return_variable) Public .false. .false.), _lfortran_dcos: (Function (SymbolTable 8 {_lpython_return_variable: (Variable 8 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 8 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dcos (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 8 x)] [] (Var 8 _lpython_return_variable) Public .false. .false.), _lfortran_dcosh: (Function (SymbolTable 22 {_lpython_return_variable: (Variable 22 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 22 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dcosh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 22 x)] [] (Var 22 _lpython_return_variable) Public .false. .false.), _lfortran_dexp: (Function (SymbolTable 48 {_lpython_return_variable: (Variable 48 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 48 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dexp (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 48 x)] [] (Var 48 _lpython_return_variable) Public .false. .false.), _lfortran_dlog: (Function (SymbolTable 26 {_lpython_return_variable: (Variable 26 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 26 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dlog (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 26 x)] [] (Var 26 _lpython_return_variable) Public .false. .false.), _lfortran_dlog10: (Function (SymbolTable 30 {_lpython_return_variable: (Variable 30 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 30 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dlog10 (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 30 x)] [] (Var 30 _lpython_return_variable) Public .false. .false.), _lfortran_dsin: (Function (SymbolTable 4 {_lpython_return_variable: (Variable 4 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 4 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dsin (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 4 x)] [] (Var 4 _lpython_return_variable) Public .false. .false.), _lfortran_dsinh: (Function (SymbolTable 18 {_lpython_return_variable: (Variable 18 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 18 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dsinh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 18 x)] [] (Var 18 _lpython_return_variable) Public .false. .false.), _lfortran_dtan: (Function (SymbolTable 14 {_lpython_return_variable: (Variable 14 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 14 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dtan (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 14 x)] [] (Var 14 _lpython_return_variable) Public .false. .false.), _lfortran_dtanh: (Function (SymbolTable 44 {_lpython_return_variable: (Variable 44 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 44 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dtanh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 44 x)] [] (Var 44 _lpython_return_variable) Public .false. .false.), _lfortran_sacos: (Function (SymbolTable 42 {_lpython_return_variable: (Variable 42 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 42 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_sacos (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 42 x)] [] (Var 42 _lpython_return_variable) Public .false. .false.), _lfortran_sacosh: (Function (SymbolTable 66 {_lpython_return_variable: (Variable 66 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 66 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_sacosh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 66 x)] [] (Var 66 _lpython_return_variable) Public .false. .false.), _lfortran_sasin: (Function (SymbolTable 38 {_lpython_return_variable: (Variable 38 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 38 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_sasin (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 38 x)] [] (Var 38 _lpython_return_variable) Public .false. .false.), _lfortran_sasinh: (Function (SymbolTable 62 {_lpython_return_variable: (Variable 62 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 62 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_sasinh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 62 x)] [] (Var 62 _lpython_return_variable) Public .false. .false.), _lfortran_satan: (Function (SymbolTable 54 {_lpython_return_variable: (Variable 54 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 54 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_satan (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 54 x)] [] (Var 54 _lpython_return_variable) Public .false. .false.), _lfortran_satanh: (Function (SymbolTable 70 {_lpython_return_variable: (Variable 70 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 70 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_satanh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 70 x)] [] (Var 70 _lpython_return_variable) Public .false. .false.), _lfortran_scos: (Function (SymbolTable 10 {_lpython_return_variable: (Variable 10 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 10 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_scos (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 10 x)] [] (Var 10 _lpython_return_variable) Public .false. .false.), _lfortran_scosh: (Function (SymbolTable 24 {_lpython_return_variable: (Variable 24 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 24 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_scosh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 24 x)] [] (Var 24 _lpython_return_variable) Public .false. .false.), _lfortran_sexp: (Function (SymbolTable 50 {_lpython_return_variable: (Variable 50 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 50 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_sexp (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 50 x)] [] (Var 50 _lpython_return_variable) Public .false. .false.), _lfortran_slog: (Function (SymbolTable 28 {_lpython_return_variable: (Variable 28 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 28 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_slog (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 28 x)] [] (Var 28 _lpython_return_variable) Public .false. .false.), _lfortran_slog10: (Function (SymbolTable 32 {_lpython_return_variable: (Variable 32 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 32 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_slog10 (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 32 x)] [] (Var 32 _lpython_return_variable) Public .false. .false.), _lfortran_ssin: (Function (SymbolTable 6 {_lpython_return_variable: (Variable 6 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 6 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_ssin (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 6 x)] [] (Var 6 _lpython_return_variable) Public .false. .false.), _lfortran_ssinh: (Function (SymbolTable 20 {_lpython_return_variable: (Variable 20 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 20 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_ssinh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 20 x)] [] (Var 20 _lpython_return_variable) Public .false. .false.), _lfortran_stan: (Function (SymbolTable 16 {_lpython_return_variable: (Variable 16 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 16 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_stan (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 16 x)] [] (Var 16 _lpython_return_variable) Public .false. .false.), _lfortran_stanh: (Function (SymbolTable 46 {_lpython_return_variable: (Variable 46 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 46 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_stanh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 46 x)] [] (Var 46 _lpython_return_variable) Public .false. .false.), arccos: (GenericProcedure 3 arccos [3 __lpython_overloaded_0__arccos 3 __lpython_overloaded_1__arccos] Public), arccosh: (GenericProcedure 3 arccosh [3 __lpython_overloaded_0__arccosh 3 __lpython_overloaded_1__arccosh] Public), arcsin: (GenericProcedure 3 arcsin [3 __lpython_overloaded_0__arcsin 3 __lpython_overloaded_1__arcsin] Public), arcsinh: (GenericProcedure 3 arcsinh [3 __lpython_overloaded_0__arcsinh 3 __lpython_overloaded_1__arcsinh] Public), arctan: (GenericProcedure 3 arctan [3 __lpython_overloaded_0__arctan 3 __lpython_overloaded_1__arctan] Public), arctanh: (GenericProcedure 3 arctanh [3 __lpython_overloaded_0__arctanh 3 __lpython_overloaded_1__arctanh] Public), ceil: (GenericProcedure 3 ceil [3 __lpython_overloaded_0__ceil 3 __lpython_overloaded_1__ceil] Public), cos: (GenericProcedure 3 cos [3 __lpython_overloaded_0__cos 3 __lpython_overloaded_1__cos] Public), cosh: (GenericProcedure 3 cosh [3 __lpython_overloaded_0__cosh 3 __lpython_overloaded_1__cosh] Public), degrees: (GenericProcedure 3 degrees [3 __lpython_overloaded_0__degrees 3 __lpython_overloaded_1__degrees] Public), exp: (GenericProcedure 3 exp [3 __lpython_overloaded_0__exp 3 __lpython_overloaded_1__exp] Public), floor: (GenericProcedure 3 floor [3 __lpython_overloaded_0__floor 3 __lpython_overloaded_1__floor] Public), log: (GenericProcedure 3 log [3 __lpython_overloaded_0__log 3 __lpython_overloaded_1__log] Public), log10: (GenericProcedure 3 log10 [3 __lpython_overloaded_0__log10 3 __lpython_overloaded_1__log10] Public), log2: (GenericProcedure 3 log2 [3 __lpython_overloaded_0__log2 3 __lpython_overloaded_1__log2] Public), mod: (GenericProcedure 3 mod [3 __lpython_overloaded_0__mod 3 __lpython_overloaded_1__mod] Public), pi_32: (Variable 3 pi_32 [] Local (Cast (RealConstant 3.141593 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 3.141593 (Real 4 []))) () Default (Real 4 []) Source Public Required .false.), pi_64: (Variable 3 pi_64 [] Local (RealConstant 3.141593 (Real 8 [])) () Default (Real 8 []) Source Public Required .false.), radians: (GenericProcedure 3 radians [3 __lpython_overloaded_0__radians 3 __lpython_overloaded_1__radians] Public), sin: (GenericProcedure 3 sin [3 __lpython_overloaded_0__sin 3 __lpython_overloaded_1__sin] Public), sinh: (GenericProcedure 3 sinh [3 __lpython_overloaded_0__sinh 3 __lpython_overloaded_1__sinh] Public), sqrt: (GenericProcedure 3 sqrt [3 __lpython_overloaded_0__sqrt 3 __lpython_overloaded_1__sqrt] Public), tan: (GenericProcedure 3 tan [3 __lpython_overloaded_0__tan 3 __lpython_overloaded_1__tan] Public), tanh: (GenericProcedure 3 tanh [3 __lpython_overloaded_0__tanh 3 __lpython_overloaded_1__tanh] Public)}) numpy [lpython_builtin lpython_builtin] .false. .false.), use_array: (Function (SymbolTable 172 {array: (Variable 172 array [] Local () () Default (Integer 4 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 1 (Integer 4 [])))]) Source Public Required .false.), x: (Variable 172 x [] Local () () Default (Integer 4 []) Source Public Required .false.)}) use_array (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [__asr_generic_f_0] [] [(= (Var 172 x) (IntegerConstant 69 (Integer 4 [])) ()) (Print () [(FunctionCall 1 __asr_generic_f_0 () [((Var 172 array)) ((Var 172 x))] (Integer 4 []) () ())] () ())] () Public .false. .false.)}) [])
diff --git a/tests/reference/asr-generics_array_02-22c8dc1.json b/tests/reference/asr-generics_array_02-22c8dc1.json
deleted file mode 100644
index bd4931ee8b..0000000000
--- a/tests/reference/asr-generics_array_02-22c8dc1.json
+++ /dev/null
@@ -1,13 +0,0 @@
-{
-    "basename": "asr-generics_array_02-22c8dc1",
-    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
-    "infile": "tests/../integration_tests/generics_array_02.py",
-    "infile_hash": "a9575810ad7ee98bcc913414faf45c3fbb2e62a42e6a085e158ae280",
-    "outfile": null,
-    "outfile_hash": null,
-    "stdout": "asr-generics_array_02-22c8dc1.stdout",
-    "stdout_hash": "08b11f782a5fbaf31ba6cb11c9a80a4844f2d5d2faa531964d89e5a3",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
-}
\ No newline at end of file
diff --git a/tests/reference/asr-generics_array_02-22c8dc1.stdout b/tests/reference/asr-generics_array_02-22c8dc1.stdout
deleted file mode 100644
index d1e8c73cd4..0000000000
--- a/tests/reference/asr-generics_array_02-22c8dc1.stdout
+++ /dev/null
@@ -1 +0,0 @@
-(TranslationUnit (SymbolTable 1 {T: (Variable 1 T [] Local () () Default (TypeParameter T []) Source Public Required .false.), __asr_generic_g_0: (Function (SymbolTable 177 {a: (Variable 177 a [n] InOut () () Default (Integer 4 [((IntegerConstant 0 (Integer 4 [])) (Var 177 n))]) Source Public Required .false.), b: (Variable 177 b [n] InOut () () Default (Integer 4 [((IntegerConstant 0 (Integer 4 [])) (Var 177 n))]) Source Public Required .false.), i: (Variable 177 i [] Local () () Default (Integer 4 []) Source Public Required .false.), n: (Variable 177 n [] In () () Default (Integer 4 []) Source Public Required .false.), r: (Variable 177 r [n] Local () () Default (Integer 4 [((IntegerConstant 0 (Integer 4 [])) (Var 177 n))]) Source Public Required .false.)}) __asr_generic_g_0 (FunctionType [(Integer 4 []) (Integer 4 [((IntegerConstant 0 (Integer 4 [])) (Var 177 n))]) (Integer 4 [((IntegerConstant 0 (Integer 4 [])) (Var 177 n))])] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [add_integer] [(Var 177 n) (Var 177 a) (Var 177 b)] [(DoLoop ((Var 177 i) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (Var 177 n) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(= (ArrayItem (Var 177 r) [(() (Var 177 i) ())] (Integer 4 []) RowMajor ()) (FunctionCall 1 add_integer () [((ArrayItem (Var 177 a) [(() (Var 177 i) ())] (Integer 4 []) RowMajor ())) ((ArrayItem (Var 177 b) [(() (Var 177 i) ())] (Integer 4 []) RowMajor ()))] (Integer 4 []) () ()) ())]) (Print () [(ArrayItem (Var 177 r) [(() (IntegerConstant 0 (Integer 4 [])) ())] (Integer 4 []) RowMajor ())] () ())] () Public .false. .false.), __asr_generic_g_1: (Function (SymbolTable 178 {a: (Variable 178 a [n] InOut () () Default (Real 4 [((IntegerConstant 0 (Integer 4 [])) (Var 178 n))]) Source Public Required .false.), b: (Variable 178 b [n] InOut () () Default (Real 4 [((IntegerConstant 0 (Integer 4 [])) (Var 178 n))]) Source Public Required .false.), i: (Variable 178 i [] Local () () Default (Integer 4 []) Source Public Required .false.), n: (Variable 178 n [] In () () Default (Integer 4 []) Source Public Required .false.), r: (Variable 178 r [n] Local () () Default (Real 4 [((IntegerConstant 0 (Integer 4 [])) (Var 178 n))]) Source Public Required .false.)}) __asr_generic_g_1 (FunctionType [(Integer 4 []) (Real 4 [((IntegerConstant 0 (Integer 4 [])) (Var 178 n))]) (Real 4 [((IntegerConstant 0 (Integer 4 [])) (Var 178 n))])] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [add_float] [(Var 178 n) (Var 178 a) (Var 178 b)] [(DoLoop ((Var 178 i) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (Var 178 n) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(= (ArrayItem (Var 178 r) [(() (Var 178 i) ())] (Real 4 []) RowMajor ()) (FunctionCall 1 add_float () [((ArrayItem (Var 178 a) [(() (Var 178 i) ())] (Real 4 []) RowMajor ())) ((ArrayItem (Var 178 b) [(() (Var 178 i) ())] (Real 4 []) RowMajor ()))] (Real 4 []) () ()) ())]) (Print () [(ArrayItem (Var 178 r) [(() (IntegerConstant 0 (Integer 4 [])) ())] (Real 4 []) RowMajor ())] () ())] () Public .false. .false.), _lpython_main_program: (Function (SymbolTable 180 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [main] [] [(SubroutineCall 1 main () [] ())] () Public .false. .false.), add: (Function (SymbolTable 171 {_lpython_return_variable: (Variable 171 _lpython_return_variable [] ReturnVar () () Default (TypeParameter T []) Source Public Required .false.), x: (Variable 171 x [] In () () Default (TypeParameter T []) Source Public Required .false.), y: (Variable 171 y [] In () () Default (TypeParameter T []) Source Public Required .false.)}) add (FunctionType [(TypeParameter T []) (TypeParameter T [])] (TypeParameter T []) Source Implementation () .false. .false. .false. .false. .false. [(TypeParameter T [])] [] .true.) [] [(Var 171 x) (Var 171 y)] [] (Var 171 _lpython_return_variable) Public .false. .false.), add_float: (Function (SymbolTable 173 {_lpython_return_variable: (Variable 173 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 173 x [] In () () Default (Real 4 []) Source Public Required .false.), y: (Variable 173 y [] In () () Default (Real 4 []) Source Public Required .false.)}) add_float (FunctionType [(Real 4 []) (Real 4 [])] (Real 4 []) Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 173 x) (Var 173 y)] [(= (Var 173 _lpython_return_variable) (RealBinOp (Var 173 x) Add (Var 173 y) (Real 4 []) ()) ()) (Return)] (Var 173 _lpython_return_variable) Public .false. .false.), add_integer: (Function (SymbolTable 172 {_lpython_return_variable: (Variable 172 _lpython_return_variable [] ReturnVar () () Default (Integer 4 []) Source Public Required .false.), x: (Variable 172 x [] In () () Default (Integer 4 []) Source Public Required .false.), y: (Variable 172 y [] In () () Default (Integer 4 []) Source Public Required .false.)}) add_integer (FunctionType [(Integer 4 []) (Integer 4 [])] (Integer 4 []) Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 172 x) (Var 172 y)] [(= (Var 172 _lpython_return_variable) (IntegerBinOp (Var 172 x) Add (Var 172 y) (Integer 4 []) ()) ()) (Return)] (Var 172 _lpython_return_variable) Public .false. .false.), g: (Function (SymbolTable 174 {a: (Variable 174 a [n] InOut () () Default (TypeParameter T [((IntegerConstant 0 (Integer 4 [])) (Var 174 n))]) Source Public Required .false.), b: (Variable 174 b [n] InOut () () Default (TypeParameter T [((IntegerConstant 0 (Integer 4 [])) (Var 174 n))]) Source Public Required .false.), i: (Variable 174 i [] Local () () Default (Integer 4 []) Source Public Required .false.), n: (Variable 174 n [] In () () Default (Integer 4 []) Source Public Required .false.), r: (Variable 174 r [n] Local () () Default (TypeParameter T [((IntegerConstant 0 (Integer 4 [])) (Var 174 n))]) Source Public Required .false.)}) g (FunctionType [(Integer 4 []) (TypeParameter T [((IntegerConstant 0 (Integer 4 [])) (Var 174 n))]) (TypeParameter T [((IntegerConstant 0 (Integer 4 [])) (Var 174 n))])] () Source Implementation () .false. .false. .false. .false. .false. [(TypeParameter T [])] [1 add] .false.) [add] [(Var 174 n) (Var 174 a) (Var 174 b)] [(DoLoop ((Var 174 i) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (Var 174 n) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(= (ArrayItem (Var 174 r) [(() (Var 174 i) ())] (TypeParameter T []) RowMajor ()) (FunctionCall 1 add () [((ArrayItem (Var 174 a) [(() (Var 174 i) ())] (TypeParameter T []) RowMajor ())) ((ArrayItem (Var 174 b) [(() (Var 174 i) ())] (TypeParameter T []) RowMajor ()))] (TypeParameter T []) () ()) ())]) (Print () [(ArrayItem (Var 174 r) [(() (IntegerConstant 0 (Integer 4 [])) ())] (TypeParameter T []) RowMajor ())] () ())] () Public .false. .false.), lpython_builtin: (IntrinsicModule lpython_builtin), main: (Function (SymbolTable 175 {a_float: (Variable 175 a_float [] Local () () Default (Real 4 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 1 (Integer 4 [])))]) Source Public Required .false.), a_int: (Variable 175 a_int [] Local () () Default (Integer 4 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 1 (Integer 4 [])))]) Source Public Required .false.), b_float: (Variable 175 b_float [] Local () () Default (Real 4 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 1 (Integer 4 [])))]) Source Public Required .false.), b_int: (Variable 175 b_int [] Local () () Default (Integer 4 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 1 (Integer 4 [])))]) Source Public Required .false.)}) main (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [__asr_generic_g_0 __asr_generic_g_1] [] [(= (ArrayItem (Var 175 a_int) [(() (IntegerConstant 0 (Integer 4 [])) ())] (Integer 4 []) RowMajor ()) (IntegerConstant 400 (Integer 4 [])) ()) (= (ArrayItem (Var 175 b_int) [(() (IntegerConstant 0 (Integer 4 [])) ())] (Integer 4 []) RowMajor ()) (IntegerConstant 20 (Integer 4 [])) ()) (SubroutineCall 1 __asr_generic_g_0 () [((IntegerConstant 1 (Integer 4 []))) ((Var 175 a_int)) ((Var 175 b_int))] ()) (= (ArrayItem (Var 175 a_float) [(() (IntegerConstant 0 (Integer 4 [])) ())] (Real 4 []) RowMajor ()) (Cast (RealConstant 400.000000 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 400.000000 (Real 4 []))) ()) (= (ArrayItem (Var 175 b_float) [(() (IntegerConstant 0 (Integer 4 [])) ())] (Real 4 []) RowMajor ()) (Cast (RealConstant 20.000000 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 20.000000 (Real 4 []))) ()) (SubroutineCall 1 __asr_generic_g_1 () [((IntegerConstant 1 (Integer 4 []))) ((Var 175 a_float)) ((Var 175 b_float))] ())] () Public .false. .false.), main_program: (Program (SymbolTable 179 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())]), n: (Variable 1 n [] Local () () Default (Integer 4 []) Source Public Required .false.), numpy: (Module (SymbolTable 3 {__lpython_overloaded_0__arccos: (Function (SymbolTable 41 {_lpython_return_variable: (Variable 41 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 41 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arccos (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dacos] [(Var 41 x)] [(= (Var 41 _lpython_return_variable) (FunctionCall 3 _lfortran_dacos () [((Var 41 x))] (Real 8 []) () ()) ()) (Return)] (Var 41 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__arccosh: (Function (SymbolTable 65 {_lpython_return_variable: (Variable 65 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 65 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arccosh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dacosh] [(Var 65 x)] [(= (Var 65 _lpython_return_variable) (FunctionCall 3 _lfortran_dacosh () [((Var 65 x))] (Real 8 []) () ()) ()) (Return)] (Var 65 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__arcsin: (Function (SymbolTable 37 {_lpython_return_variable: (Variable 37 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 37 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arcsin (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dasin] [(Var 37 x)] [(= (Var 37 _lpython_return_variable) (FunctionCall 3 _lfortran_dasin () [((Var 37 x))] (Real 8 []) () ()) ()) (Return)] (Var 37 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__arcsinh: (Function (SymbolTable 61 {_lpython_return_variable: (Variable 61 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 61 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arcsinh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dasinh] [(Var 61 x)] [(= (Var 61 _lpython_return_variable) (FunctionCall 3 _lfortran_dasinh () [((Var 61 x))] (Real 8 []) () ()) ()) (Return)] (Var 61 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__arctan: (Function (SymbolTable 53 {_lpython_return_variable: (Variable 53 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 53 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arctan (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_datan] [(Var 53 x)] [(= (Var 53 _lpython_return_variable) (FunctionCall 3 _lfortran_datan () [((Var 53 x))] (Real 8 []) () ()) ()) (Return)] (Var 53 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__arctanh: (Function (SymbolTable 69 {_lpython_return_variable: (Variable 69 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 69 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arctanh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_datanh] [(Var 69 x)] [(= (Var 69 _lpython_return_variable) (FunctionCall 3 _lfortran_datanh () [((Var 69 x))] (Real 8 []) () ()) ()) (Return)] (Var 69 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__ceil: (Function (SymbolTable 76 {_lpython_return_variable: (Variable 76 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), result: (Variable 76 result [] Local () () Default (Integer 8 []) Source Public Required .false.), x: (Variable 76 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__ceil (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 76 x)] [(= (Var 76 result) (Cast (Var 76 x) RealToInteger (Integer 8 []) ()) ()) (If (LogicalBinOp (RealCompare (Var 76 x) LtE (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToReal (Real 8 []) ()) (Logical 4 []) ()) Or (RealCompare (Var 76 x) Eq (Cast (Var 76 result) IntegerToReal (Real 8 []) ()) (Logical 4 []) ()) (Logical 4 []) ()) [(= (Var 76 _lpython_return_variable) (Cast (Var 76 result) IntegerToReal (Real 8 []) ()) ()) (Return)] []) (= (Var 76 _lpython_return_variable) (Cast (IntegerBinOp (Var 76 result) Add (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 1 (Integer 8 []))) (Integer 8 []) ()) IntegerToReal (Real 8 []) ()) ()) (Return)] (Var 76 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__cos: (Function (SymbolTable 9 {_lpython_return_variable: (Variable 9 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 9 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__cos (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dcos] [(Var 9 x)] [(= (Var 9 _lpython_return_variable) (FunctionCall 3 _lfortran_dcos () [((Var 9 x))] (Real 8 []) () ()) ()) (Return)] (Var 9 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__cosh: (Function (SymbolTable 23 {_lpython_return_variable: (Variable 23 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 23 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__cosh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dcosh] [(Var 23 x)] [(= (Var 23 _lpython_return_variable) (FunctionCall 3 _lfortran_dcosh () [((Var 23 x))] (Real 8 []) () ()) ()) (Return)] (Var 23 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__degrees: (Function (SymbolTable 56 {_lpython_return_variable: (Variable 56 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 56 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__degrees (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 56 x)] [(= (Var 56 _lpython_return_variable) (RealBinOp (RealBinOp (Var 56 x) Mul (RealConstant 180.000000 (Real 8 [])) (Real 8 []) ()) Div (Var 3 pi_64) (Real 8 []) ()) ()) (Return)] (Var 56 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__exp: (Function (SymbolTable 49 {_lpython_return_variable: (Variable 49 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 49 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__exp (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dexp] [(Var 49 x)] [(= (Var 49 _lpython_return_variable) (FunctionCall 3 _lfortran_dexp () [((Var 49 x))] (Real 8 []) () ()) ()) (Return)] (Var 49 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__floor: (Function (SymbolTable 74 {_lpython_return_variable: (Variable 74 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), result: (Variable 74 result [] Local () () Default (Integer 8 []) Source Public Required .false.), x: (Variable 74 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__floor (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 74 x)] [(= (Var 74 result) (Cast (Var 74 x) RealToInteger (Integer 8 []) ()) ()) (If (LogicalBinOp (RealCompare (Var 74 x) GtE (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToReal (Real 8 []) ()) (Logical 4 []) ()) Or (RealCompare (Var 74 x) Eq (Cast (Var 74 result) IntegerToReal (Real 8 []) ()) (Logical 4 []) ()) (Logical 4 []) ()) [(= (Var 74 _lpython_return_variable) (Cast (Var 74 result) IntegerToReal (Real 8 []) ()) ()) (Return)] []) (= (Var 74 _lpython_return_variable) (Cast (IntegerBinOp (Var 74 result) Sub (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 1 (Integer 8 []))) (Integer 8 []) ()) IntegerToReal (Real 8 []) ()) ()) (Return)] (Var 74 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__log: (Function (SymbolTable 27 {_lpython_return_variable: (Variable 27 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 27 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__log (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dlog] [(Var 27 x)] [(= (Var 27 _lpython_return_variable) (FunctionCall 3 _lfortran_dlog () [((Var 27 x))] (Real 8 []) () ()) ()) (Return)] (Var 27 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__log10: (Function (SymbolTable 31 {_lpython_return_variable: (Variable 31 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 31 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__log10 (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dlog10] [(Var 31 x)] [(= (Var 31 _lpython_return_variable) (FunctionCall 3 _lfortran_dlog10 () [((Var 31 x))] (Real 8 []) () ()) ()) (Return)] (Var 31 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__log2: (Function (SymbolTable 34 {_lpython_return_variable: (Variable 34 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 34 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__log2 (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dlog _lfortran_dlog] [(Var 34 x)] [(= (Var 34 _lpython_return_variable) (RealBinOp (FunctionCall 3 _lfortran_dlog () [((Var 34 x))] (Real 8 []) () ()) Div (FunctionCall 3 _lfortran_dlog () [((RealConstant 2.000000 (Real 8 [])))] (Real 8 []) () ()) (Real 8 []) ()) ()) (Return)] (Var 34 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__mod: (Function (SymbolTable 72 {_lpython_return_variable: (Variable 72 _lpython_return_variable [] ReturnVar () () Default (Integer 8 []) Source Public Required .false.), _mod: (ExternalSymbol 72 _mod 79 _mod lpython_builtin [] _mod Private), _mod@__lpython_overloaded_2___mod: (ExternalSymbol 72 _mod@__lpython_overloaded_2___mod 79 __lpython_overloaded_2___mod lpython_builtin [] __lpython_overloaded_2___mod Public), x1: (Variable 72 x1 [] In () () Default (Integer 8 []) Source Public Required .false.), x2: (Variable 72 x2 [] In () () Default (Integer 8 []) Source Public Required .false.)}) __lpython_overloaded_0__mod (FunctionType [(Integer 8 []) (Integer 8 [])] (Integer 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_mod@__lpython_overloaded_2___mod] [(Var 72 x1) (Var 72 x2)] [(If (IntegerCompare (Var 72 x2) Eq (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 0 (Integer 8 []))) (Logical 4 []) ()) [(= (Var 72 _lpython_return_variable) (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToInteger (Integer 8 []) ()) ()) (Return)] []) (= (Var 72 _lpython_return_variable) (FunctionCall 72 _mod@__lpython_overloaded_2___mod 72 _mod [((Var 72 x1)) ((Var 72 x2))] (Integer 8 []) () ()) ()) (Return)] (Var 72 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__radians: (Function (SymbolTable 58 {_lpython_return_variable: (Variable 58 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 58 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__radians (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 58 x)] [(= (Var 58 _lpython_return_variable) (RealBinOp (RealBinOp (Var 58 x) Mul (Var 3 pi_64) (Real 8 []) ()) Div (RealConstant 180.000000 (Real 8 [])) (Real 8 []) ()) ()) (Return)] (Var 58 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__sin: (Function (SymbolTable 5 {_lpython_return_variable: (Variable 5 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 5 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__sin (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dsin] [(Var 5 x)] [(= (Var 5 _lpython_return_variable) (FunctionCall 3 _lfortran_dsin () [((Var 5 x))] (Real 8 []) () ()) ()) (Return)] (Var 5 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__sinh: (Function (SymbolTable 19 {_lpython_return_variable: (Variable 19 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 19 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__sinh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dsinh] [(Var 19 x)] [(= (Var 19 _lpython_return_variable) (FunctionCall 3 _lfortran_dsinh () [((Var 19 x))] (Real 8 []) () ()) ()) (Return)] (Var 19 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__sqrt: (Function (SymbolTable 12 {_lpython_return_variable: (Variable 12 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 12 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__sqrt (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 12 x)] [(= (Var 12 _lpython_return_variable) (RealBinOp (Var 12 x) Pow (RealBinOp (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToReal (Real 8 []) ()) Div (Cast (IntegerConstant 2 (Integer 4 [])) IntegerToReal (Real 8 []) ()) (Real 8 []) ()) (Real 8 []) ()) ()) (Return)] (Var 12 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__tan: (Function (SymbolTable 15 {_lpython_return_variable: (Variable 15 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 15 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__tan (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dtan] [(Var 15 x)] [(= (Var 15 _lpython_return_variable) (FunctionCall 3 _lfortran_dtan () [((Var 15 x))] (Real 8 []) () ()) ()) (Return)] (Var 15 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__tanh: (Function (SymbolTable 45 {_lpython_return_variable: (Variable 45 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 45 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__tanh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dtanh] [(Var 45 x)] [(= (Var 45 _lpython_return_variable) (FunctionCall 3 _lfortran_dtanh () [((Var 45 x))] (Real 8 []) () ()) ()) (Return)] (Var 45 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arccos: (Function (SymbolTable 43 {_lpython_return_variable: (Variable 43 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 43 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arccos (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_sacos] [(Var 43 x)] [(= (Var 43 _lpython_return_variable) (FunctionCall 3 _lfortran_sacos () [((Var 43 x))] (Real 4 []) () ()) ()) (Return)] (Var 43 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arccosh: (Function (SymbolTable 67 {_lpython_return_variable: (Variable 67 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 67 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arccosh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_sacosh] [(Var 67 x)] [(= (Var 67 _lpython_return_variable) (FunctionCall 3 _lfortran_sacosh () [((Var 67 x))] (Real 4 []) () ()) ()) (Return)] (Var 67 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arcsin: (Function (SymbolTable 39 {_lpython_return_variable: (Variable 39 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 39 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arcsin (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_sasin] [(Var 39 x)] [(= (Var 39 _lpython_return_variable) (FunctionCall 3 _lfortran_sasin () [((Var 39 x))] (Real 4 []) () ()) ()) (Return)] (Var 39 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arcsinh: (Function (SymbolTable 63 {_lpython_return_variable: (Variable 63 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 63 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arcsinh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_sasinh] [(Var 63 x)] [(= (Var 63 _lpython_return_variable) (FunctionCall 3 _lfortran_sasinh () [((Var 63 x))] (Real 4 []) () ()) ()) (Return)] (Var 63 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arctan: (Function (SymbolTable 55 {_lpython_return_variable: (Variable 55 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 55 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arctan (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_satan] [(Var 55 x)] [(= (Var 55 _lpython_return_variable) (FunctionCall 3 _lfortran_satan () [((Var 55 x))] (Real 4 []) () ()) ()) (Return)] (Var 55 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arctanh: (Function (SymbolTable 71 {_lpython_return_variable: (Variable 71 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 71 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arctanh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_satanh] [(Var 71 x)] [(= (Var 71 _lpython_return_variable) (FunctionCall 3 _lfortran_satanh () [((Var 71 x))] (Real 4 []) () ()) ()) (Return)] (Var 71 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__ceil: (Function (SymbolTable 77 {_lpython_return_variable: (Variable 77 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), resultf: (Variable 77 resultf [x] Local (Cast (Cast (Var 77 x) RealToInteger (Integer 4 []) ()) IntegerToReal (Real 4 []) ()) () Default (Real 4 []) Source Public Required .false.), x: (Variable 77 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__ceil (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 77 x)] [(= (Var 77 resultf) (Cast (Cast (Var 77 x) RealToInteger (Integer 4 []) ()) IntegerToReal (Real 4 []) ()) ()) (If (LogicalBinOp (RealCompare (Var 77 x) LtE (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Logical 4 []) ()) Or (RealCompare (Var 77 x) Eq (Var 77 resultf) (Logical 4 []) ()) (Logical 4 []) ()) [(= (Var 77 _lpython_return_variable) (Var 77 resultf) ()) (Return)] []) (= (Var 77 _lpython_return_variable) (RealBinOp (Var 77 resultf) Add (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Real 4 []) ()) ()) (Return)] (Var 77 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__cos: (Function (SymbolTable 11 {_lpython_return_variable: (Variable 11 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 11 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__cos (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_scos] [(Var 11 x)] [(= (Var 11 _lpython_return_variable) (FunctionCall 3 _lfortran_scos () [((Var 11 x))] (Real 4 []) () ()) ()) (Return)] (Var 11 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__cosh: (Function (SymbolTable 25 {_lpython_return_variable: (Variable 25 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 25 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__cosh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_scosh] [(Var 25 x)] [(= (Var 25 _lpython_return_variable) (FunctionCall 3 _lfortran_scosh () [((Var 25 x))] (Real 4 []) () ()) ()) (Return)] (Var 25 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__degrees: (Function (SymbolTable 57 {_lpython_return_variable: (Variable 57 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 57 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__degrees (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 57 x)] [(= (Var 57 _lpython_return_variable) (RealBinOp (Var 57 x) Mul (RealBinOp (Cast (IntegerConstant 180 (Integer 4 [])) IntegerToReal (Real 4 []) ()) Div (Var 3 pi_32) (Real 4 []) ()) (Real 4 []) ()) ()) (Return)] (Var 57 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__exp: (Function (SymbolTable 51 {_lpython_return_variable: (Variable 51 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 51 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__exp (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_sexp] [(Var 51 x)] [(= (Var 51 _lpython_return_variable) (FunctionCall 3 _lfortran_sexp () [((Var 51 x))] (Real 4 []) () ()) ()) (Return)] (Var 51 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__floor: (Function (SymbolTable 75 {_lpython_return_variable: (Variable 75 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), resultf: (Variable 75 resultf [x] Local (Cast (Cast (Var 75 x) RealToInteger (Integer 4 []) ()) IntegerToReal (Real 4 []) ()) () Default (Real 4 []) Source Public Required .false.), x: (Variable 75 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__floor (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 75 x)] [(= (Var 75 resultf) (Cast (Cast (Var 75 x) RealToInteger (Integer 4 []) ()) IntegerToReal (Real 4 []) ()) ()) (If (LogicalBinOp (RealCompare (Var 75 x) GtE (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Logical 4 []) ()) Or (RealCompare (Var 75 x) Eq (Var 75 resultf) (Logical 4 []) ()) (Logical 4 []) ()) [(= (Var 75 _lpython_return_variable) (Var 75 resultf) ()) (Return)] []) (= (Var 75 _lpython_return_variable) (RealBinOp (Var 75 resultf) Sub (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Real 4 []) ()) ()) (Return)] (Var 75 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__log: (Function (SymbolTable 29 {_lpython_return_variable: (Variable 29 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 29 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__log (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_slog] [(Var 29 x)] [(= (Var 29 _lpython_return_variable) (FunctionCall 3 _lfortran_slog () [((Var 29 x))] (Real 4 []) () ()) ()) (Return)] (Var 29 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__log10: (Function (SymbolTable 33 {_lpython_return_variable: (Variable 33 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 33 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__log10 (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_slog10] [(Var 33 x)] [(= (Var 33 _lpython_return_variable) (FunctionCall 3 _lfortran_slog10 () [((Var 33 x))] (Real 4 []) () ()) ()) (Return)] (Var 33 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__log2: (Function (SymbolTable 35 {_lpython_return_variable: (Variable 35 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 35 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__log2 (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_slog _lfortran_slog] [(Var 35 x)] [(= (Var 35 _lpython_return_variable) (RealBinOp (FunctionCall 3 _lfortran_slog () [((Var 35 x))] (Real 4 []) () ()) Div (FunctionCall 3 _lfortran_slog () [((Cast (RealConstant 2.000000 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 2.000000 (Real 4 []))))] (Real 4 []) () ()) (Real 4 []) ()) ()) (Return)] (Var 35 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__mod: (Function (SymbolTable 73 {_lpython_return_variable: (Variable 73 _lpython_return_variable [] ReturnVar () () Default (Integer 4 []) Source Public Required .false.), _mod: (ExternalSymbol 73 _mod 79 _mod lpython_builtin [] _mod Private), _mod@__lpython_overloaded_0___mod: (ExternalSymbol 73 _mod@__lpython_overloaded_0___mod 79 __lpython_overloaded_0___mod lpython_builtin [] __lpython_overloaded_0___mod Public), x1: (Variable 73 x1 [] In () () Default (Integer 4 []) Source Public Required .false.), x2: (Variable 73 x2 [] In () () Default (Integer 4 []) Source Public Required .false.)}) __lpython_overloaded_1__mod (FunctionType [(Integer 4 []) (Integer 4 [])] (Integer 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_mod@__lpython_overloaded_0___mod] [(Var 73 x1) (Var 73 x2)] [(If (IntegerCompare (Var 73 x2) Eq (IntegerConstant 0 (Integer 4 [])) (Logical 4 []) ()) [(= (Var 73 _lpython_return_variable) (IntegerConstant 0 (Integer 4 [])) ()) (Return)] []) (= (Var 73 _lpython_return_variable) (FunctionCall 73 _mod@__lpython_overloaded_0___mod 73 _mod [((Var 73 x1)) ((Var 73 x2))] (Integer 4 []) () ()) ()) (Return)] (Var 73 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__radians: (Function (SymbolTable 59 {_lpython_return_variable: (Variable 59 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 59 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__radians (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 59 x)] [(= (Var 59 _lpython_return_variable) (RealBinOp (Var 59 x) Mul (RealBinOp (Var 3 pi_32) Div (Cast (IntegerConstant 180 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Real 4 []) ()) (Real 4 []) ()) ()) (Return)] (Var 59 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__sin: (Function (SymbolTable 7 {_lpython_return_variable: (Variable 7 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 7 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__sin (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_ssin] [(Var 7 x)] [(= (Var 7 _lpython_return_variable) (FunctionCall 3 _lfortran_ssin () [((Var 7 x))] (Real 4 []) () ()) ()) (Return)] (Var 7 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__sinh: (Function (SymbolTable 21 {_lpython_return_variable: (Variable 21 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 21 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__sinh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_ssinh] [(Var 21 x)] [(= (Var 21 _lpython_return_variable) (FunctionCall 3 _lfortran_ssinh () [((Var 21 x))] (Real 4 []) () ()) ()) (Return)] (Var 21 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__sqrt: (Function (SymbolTable 13 {_lpython_return_variable: (Variable 13 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 13 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__sqrt (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 13 x)] [(= (Var 13 _lpython_return_variable) (RealBinOp (Var 13 x) Pow (Cast (RealBinOp (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToReal (Real 8 []) ()) Div (Cast (IntegerConstant 2 (Integer 4 [])) IntegerToReal (Real 8 []) ()) (Real 8 []) ()) RealToReal (Real 4 []) ()) (Real 4 []) ()) ()) (Return)] (Var 13 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__tan: (Function (SymbolTable 17 {_lpython_return_variable: (Variable 17 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 17 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__tan (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_stan] [(Var 17 x)] [(= (Var 17 _lpython_return_variable) (FunctionCall 3 _lfortran_stan () [((Var 17 x))] (Real 4 []) () ()) ()) (Return)] (Var 17 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__tanh: (Function (SymbolTable 47 {_lpython_return_variable: (Variable 47 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 47 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__tanh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_stanh] [(Var 47 x)] [(= (Var 47 _lpython_return_variable) (FunctionCall 3 _lfortran_stanh () [((Var 47 x))] (Real 4 []) () ()) ()) (Return)] (Var 47 _lpython_return_variable) Public .false. .false.), _lfortran_dacos: (Function (SymbolTable 40 {_lpython_return_variable: (Variable 40 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 40 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dacos (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 40 x)] [] (Var 40 _lpython_return_variable) Public .false. .false.), _lfortran_dacosh: (Function (SymbolTable 64 {_lpython_return_variable: (Variable 64 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 64 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dacosh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 64 x)] [] (Var 64 _lpython_return_variable) Public .false. .false.), _lfortran_dasin: (Function (SymbolTable 36 {_lpython_return_variable: (Variable 36 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 36 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dasin (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 36 x)] [] (Var 36 _lpython_return_variable) Public .false. .false.), _lfortran_dasinh: (Function (SymbolTable 60 {_lpython_return_variable: (Variable 60 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 60 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dasinh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 60 x)] [] (Var 60 _lpython_return_variable) Public .false. .false.), _lfortran_datan: (Function (SymbolTable 52 {_lpython_return_variable: (Variable 52 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 52 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_datan (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 52 x)] [] (Var 52 _lpython_return_variable) Public .false. .false.), _lfortran_datanh: (Function (SymbolTable 68 {_lpython_return_variable: (Variable 68 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 68 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_datanh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 68 x)] [] (Var 68 _lpython_return_variable) Public .false. .false.), _lfortran_dcos: (Function (SymbolTable 8 {_lpython_return_variable: (Variable 8 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 8 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dcos (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 8 x)] [] (Var 8 _lpython_return_variable) Public .false. .false.), _lfortran_dcosh: (Function (SymbolTable 22 {_lpython_return_variable: (Variable 22 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 22 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dcosh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 22 x)] [] (Var 22 _lpython_return_variable) Public .false. .false.), _lfortran_dexp: (Function (SymbolTable 48 {_lpython_return_variable: (Variable 48 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 48 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dexp (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 48 x)] [] (Var 48 _lpython_return_variable) Public .false. .false.), _lfortran_dlog: (Function (SymbolTable 26 {_lpython_return_variable: (Variable 26 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 26 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dlog (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 26 x)] [] (Var 26 _lpython_return_variable) Public .false. .false.), _lfortran_dlog10: (Function (SymbolTable 30 {_lpython_return_variable: (Variable 30 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 30 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dlog10 (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 30 x)] [] (Var 30 _lpython_return_variable) Public .false. .false.), _lfortran_dsin: (Function (SymbolTable 4 {_lpython_return_variable: (Variable 4 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 4 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dsin (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 4 x)] [] (Var 4 _lpython_return_variable) Public .false. .false.), _lfortran_dsinh: (Function (SymbolTable 18 {_lpython_return_variable: (Variable 18 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 18 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dsinh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 18 x)] [] (Var 18 _lpython_return_variable) Public .false. .false.), _lfortran_dtan: (Function (SymbolTable 14 {_lpython_return_variable: (Variable 14 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 14 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dtan (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 14 x)] [] (Var 14 _lpython_return_variable) Public .false. .false.), _lfortran_dtanh: (Function (SymbolTable 44 {_lpython_return_variable: (Variable 44 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 44 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dtanh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 44 x)] [] (Var 44 _lpython_return_variable) Public .false. .false.), _lfortran_sacos: (Function (SymbolTable 42 {_lpython_return_variable: (Variable 42 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 42 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_sacos (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 42 x)] [] (Var 42 _lpython_return_variable) Public .false. .false.), _lfortran_sacosh: (Function (SymbolTable 66 {_lpython_return_variable: (Variable 66 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 66 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_sacosh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 66 x)] [] (Var 66 _lpython_return_variable) Public .false. .false.), _lfortran_sasin: (Function (SymbolTable 38 {_lpython_return_variable: (Variable 38 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 38 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_sasin (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 38 x)] [] (Var 38 _lpython_return_variable) Public .false. .false.), _lfortran_sasinh: (Function (SymbolTable 62 {_lpython_return_variable: (Variable 62 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 62 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_sasinh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 62 x)] [] (Var 62 _lpython_return_variable) Public .false. .false.), _lfortran_satan: (Function (SymbolTable 54 {_lpython_return_variable: (Variable 54 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 54 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_satan (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 54 x)] [] (Var 54 _lpython_return_variable) Public .false. .false.), _lfortran_satanh: (Function (SymbolTable 70 {_lpython_return_variable: (Variable 70 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 70 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_satanh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 70 x)] [] (Var 70 _lpython_return_variable) Public .false. .false.), _lfortran_scos: (Function (SymbolTable 10 {_lpython_return_variable: (Variable 10 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 10 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_scos (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 10 x)] [] (Var 10 _lpython_return_variable) Public .false. .false.), _lfortran_scosh: (Function (SymbolTable 24 {_lpython_return_variable: (Variable 24 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 24 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_scosh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 24 x)] [] (Var 24 _lpython_return_variable) Public .false. .false.), _lfortran_sexp: (Function (SymbolTable 50 {_lpython_return_variable: (Variable 50 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 50 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_sexp (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 50 x)] [] (Var 50 _lpython_return_variable) Public .false. .false.), _lfortran_slog: (Function (SymbolTable 28 {_lpython_return_variable: (Variable 28 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 28 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_slog (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 28 x)] [] (Var 28 _lpython_return_variable) Public .false. .false.), _lfortran_slog10: (Function (SymbolTable 32 {_lpython_return_variable: (Variable 32 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 32 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_slog10 (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 32 x)] [] (Var 32 _lpython_return_variable) Public .false. .false.), _lfortran_ssin: (Function (SymbolTable 6 {_lpython_return_variable: (Variable 6 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 6 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_ssin (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 6 x)] [] (Var 6 _lpython_return_variable) Public .false. .false.), _lfortran_ssinh: (Function (SymbolTable 20 {_lpython_return_variable: (Variable 20 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 20 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_ssinh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 20 x)] [] (Var 20 _lpython_return_variable) Public .false. .false.), _lfortran_stan: (Function (SymbolTable 16 {_lpython_return_variable: (Variable 16 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 16 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_stan (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 16 x)] [] (Var 16 _lpython_return_variable) Public .false. .false.), _lfortran_stanh: (Function (SymbolTable 46 {_lpython_return_variable: (Variable 46 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 46 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_stanh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 46 x)] [] (Var 46 _lpython_return_variable) Public .false. .false.), arccos: (GenericProcedure 3 arccos [3 __lpython_overloaded_0__arccos 3 __lpython_overloaded_1__arccos] Public), arccosh: (GenericProcedure 3 arccosh [3 __lpython_overloaded_0__arccosh 3 __lpython_overloaded_1__arccosh] Public), arcsin: (GenericProcedure 3 arcsin [3 __lpython_overloaded_0__arcsin 3 __lpython_overloaded_1__arcsin] Public), arcsinh: (GenericProcedure 3 arcsinh [3 __lpython_overloaded_0__arcsinh 3 __lpython_overloaded_1__arcsinh] Public), arctan: (GenericProcedure 3 arctan [3 __lpython_overloaded_0__arctan 3 __lpython_overloaded_1__arctan] Public), arctanh: (GenericProcedure 3 arctanh [3 __lpython_overloaded_0__arctanh 3 __lpython_overloaded_1__arctanh] Public), ceil: (GenericProcedure 3 ceil [3 __lpython_overloaded_0__ceil 3 __lpython_overloaded_1__ceil] Public), cos: (GenericProcedure 3 cos [3 __lpython_overloaded_0__cos 3 __lpython_overloaded_1__cos] Public), cosh: (GenericProcedure 3 cosh [3 __lpython_overloaded_0__cosh 3 __lpython_overloaded_1__cosh] Public), degrees: (GenericProcedure 3 degrees [3 __lpython_overloaded_0__degrees 3 __lpython_overloaded_1__degrees] Public), exp: (GenericProcedure 3 exp [3 __lpython_overloaded_0__exp 3 __lpython_overloaded_1__exp] Public), floor: (GenericProcedure 3 floor [3 __lpython_overloaded_0__floor 3 __lpython_overloaded_1__floor] Public), log: (GenericProcedure 3 log [3 __lpython_overloaded_0__log 3 __lpython_overloaded_1__log] Public), log10: (GenericProcedure 3 log10 [3 __lpython_overloaded_0__log10 3 __lpython_overloaded_1__log10] Public), log2: (GenericProcedure 3 log2 [3 __lpython_overloaded_0__log2 3 __lpython_overloaded_1__log2] Public), mod: (GenericProcedure 3 mod [3 __lpython_overloaded_0__mod 3 __lpython_overloaded_1__mod] Public), pi_32: (Variable 3 pi_32 [] Local (Cast (RealConstant 3.141593 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 3.141593 (Real 4 []))) () Default (Real 4 []) Source Public Required .false.), pi_64: (Variable 3 pi_64 [] Local (RealConstant 3.141593 (Real 8 [])) () Default (Real 8 []) Source Public Required .false.), radians: (GenericProcedure 3 radians [3 __lpython_overloaded_0__radians 3 __lpython_overloaded_1__radians] Public), sin: (GenericProcedure 3 sin [3 __lpython_overloaded_0__sin 3 __lpython_overloaded_1__sin] Public), sinh: (GenericProcedure 3 sinh [3 __lpython_overloaded_0__sinh 3 __lpython_overloaded_1__sinh] Public), sqrt: (GenericProcedure 3 sqrt [3 __lpython_overloaded_0__sqrt 3 __lpython_overloaded_1__sqrt] Public), tan: (GenericProcedure 3 tan [3 __lpython_overloaded_0__tan 3 __lpython_overloaded_1__tan] Public), tanh: (GenericProcedure 3 tanh [3 __lpython_overloaded_0__tanh 3 __lpython_overloaded_1__tanh] Public)}) numpy [lpython_builtin lpython_builtin] .false. .false.)}) [])
diff --git a/tests/reference/asr-generics_array_03-fb3706c.json b/tests/reference/asr-generics_array_03-fb3706c.json
deleted file mode 100644
index ba095d0058..0000000000
--- a/tests/reference/asr-generics_array_03-fb3706c.json
+++ /dev/null
@@ -1,13 +0,0 @@
-{
-    "basename": "asr-generics_array_03-fb3706c",
-    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
-    "infile": "tests/../integration_tests/generics_array_03.py",
-    "infile_hash": "66caaf36c724826274bb5288573e19175417a30c8470ce092e569adc",
-    "outfile": null,
-    "outfile_hash": null,
-    "stdout": "asr-generics_array_03-fb3706c.stdout",
-    "stdout_hash": "d6fbdda6dd6603e41ef4fd36c59691e911517712e25b0ba7be737cf4",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
-}
\ No newline at end of file
diff --git a/tests/reference/asr-generics_array_03-fb3706c.stdout b/tests/reference/asr-generics_array_03-fb3706c.stdout
deleted file mode 100644
index c7c4a2b065..0000000000
--- a/tests/reference/asr-generics_array_03-fb3706c.stdout
+++ /dev/null
@@ -1 +0,0 @@
-(TranslationUnit (SymbolTable 1 {T: (Variable 1 T [] Local () () Default (TypeParameter T []) Source Public Required .false.), __asr_generic_g_0: (Function (SymbolTable 178 {_lpython_return_variable: (Variable 178 _lpython_return_variable [n m] ReturnVar () () Default (Integer 4 [((IntegerConstant 0 (Integer 4 [])) (Var 178 n)) ((IntegerConstant 0 (Integer 4 [])) (Var 178 m))]) Source Public Required .false.), a: (Variable 178 a [n m] InOut () () Default (Integer 4 [((IntegerConstant 0 (Integer 4 [])) (Var 178 n)) ((IntegerConstant 0 (Integer 4 [])) (Var 178 m))]) Source Public Required .false.), b: (Variable 178 b [n m] InOut () () Default (Integer 4 [((IntegerConstant 0 (Integer 4 [])) (Var 178 n)) ((IntegerConstant 0 (Integer 4 [])) (Var 178 m))]) Source Public Required .false.), i: (Variable 178 i [] Local () () Default (Integer 4 []) Source Public Required .false.), j: (Variable 178 j [] Local () () Default (Integer 4 []) Source Public Required .false.), m: (Variable 178 m [] In () () Default (Integer 4 []) Source Public Required .false.), n: (Variable 178 n [] In () () Default (Integer 4 []) Source Public Required .false.), r: (Variable 178 r [n m] Local () () Default (Integer 4 [((IntegerConstant 0 (Integer 4 [])) (Var 178 n)) ((IntegerConstant 0 (Integer 4 [])) (Var 178 m))]) Source Public Required .false.)}) __asr_generic_g_0 (FunctionType [(Integer 4 []) (Integer 4 []) (Integer 4 [((IntegerConstant 0 (Integer 4 [])) (Var 178 n)) ((IntegerConstant 0 (Integer 4 [])) (Var 178 m))]) (Integer 4 [((IntegerConstant 0 (Integer 4 [])) (Var 178 n)) ((IntegerConstant 0 (Integer 4 [])) (Var 178 m))])] (Integer 4 [((IntegerConstant 0 (Integer 4 [])) (Var 178 n)) ((IntegerConstant 0 (Integer 4 [])) (Var 178 m))]) Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [add_integer] [(Var 178 n) (Var 178 m) (Var 178 a) (Var 178 b)] [(DoLoop ((Var 178 i) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (Var 178 n) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(DoLoop ((Var 178 j) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (Var 178 m) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(= (ArrayItem (Var 178 r) [(() (Var 178 i) ()) (() (Var 178 j) ())] (Integer 4 []) RowMajor ()) (FunctionCall 1 add_integer () [((ArrayItem (Var 178 a) [(() (Var 178 i) ()) (() (Var 178 j) ())] (Integer 4 []) RowMajor ())) ((ArrayItem (Var 178 b) [(() (Var 178 i) ()) (() (Var 178 j) ())] (Integer 4 []) RowMajor ()))] (Integer 4 []) () ()) ())])]) (Print () [(ArrayItem (Var 178 r) [(() (IntegerConstant 0 (Integer 4 [])) ()) (() (IntegerConstant 0 (Integer 4 [])) ())] (Integer 4 []) RowMajor ())] () ())] (Var 178 _lpython_return_variable) Public .false. .false.), __asr_generic_g_1: (Function (SymbolTable 179 {_lpython_return_variable: (Variable 179 _lpython_return_variable [n m] ReturnVar () () Default (Real 4 [((IntegerConstant 0 (Integer 4 [])) (Var 179 n)) ((IntegerConstant 0 (Integer 4 [])) (Var 179 m))]) Source Public Required .false.), a: (Variable 179 a [n m] InOut () () Default (Real 4 [((IntegerConstant 0 (Integer 4 [])) (Var 179 n)) ((IntegerConstant 0 (Integer 4 [])) (Var 179 m))]) Source Public Required .false.), b: (Variable 179 b [n m] InOut () () Default (Real 4 [((IntegerConstant 0 (Integer 4 [])) (Var 179 n)) ((IntegerConstant 0 (Integer 4 [])) (Var 179 m))]) Source Public Required .false.), i: (Variable 179 i [] Local () () Default (Integer 4 []) Source Public Required .false.), j: (Variable 179 j [] Local () () Default (Integer 4 []) Source Public Required .false.), m: (Variable 179 m [] In () () Default (Integer 4 []) Source Public Required .false.), n: (Variable 179 n [] In () () Default (Integer 4 []) Source Public Required .false.), r: (Variable 179 r [n m] Local () () Default (Real 4 [((IntegerConstant 0 (Integer 4 [])) (Var 179 n)) ((IntegerConstant 0 (Integer 4 [])) (Var 179 m))]) Source Public Required .false.)}) __asr_generic_g_1 (FunctionType [(Integer 4 []) (Integer 4 []) (Real 4 [((IntegerConstant 0 (Integer 4 [])) (Var 179 n)) ((IntegerConstant 0 (Integer 4 [])) (Var 179 m))]) (Real 4 [((IntegerConstant 0 (Integer 4 [])) (Var 179 n)) ((IntegerConstant 0 (Integer 4 [])) (Var 179 m))])] (Real 4 [((IntegerConstant 0 (Integer 4 [])) (Var 179 n)) ((IntegerConstant 0 (Integer 4 [])) (Var 179 m))]) Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [add_float] [(Var 179 n) (Var 179 m) (Var 179 a) (Var 179 b)] [(DoLoop ((Var 179 i) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (Var 179 n) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(DoLoop ((Var 179 j) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (Var 179 m) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(= (ArrayItem (Var 179 r) [(() (Var 179 i) ()) (() (Var 179 j) ())] (Real 4 []) RowMajor ()) (FunctionCall 1 add_float () [((ArrayItem (Var 179 a) [(() (Var 179 i) ()) (() (Var 179 j) ())] (Real 4 []) RowMajor ())) ((ArrayItem (Var 179 b) [(() (Var 179 i) ()) (() (Var 179 j) ())] (Real 4 []) RowMajor ()))] (Real 4 []) () ()) ())])]) (Print () [(ArrayItem (Var 179 r) [(() (IntegerConstant 0 (Integer 4 [])) ()) (() (IntegerConstant 0 (Integer 4 [])) ())] (Real 4 []) RowMajor ())] () ())] (Var 179 _lpython_return_variable) Public .false. .false.), _lpython_main_program: (Function (SymbolTable 181 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [main] [] [(SubroutineCall 1 main () [] ())] () Public .false. .false.), add: (Function (SymbolTable 171 {_lpython_return_variable: (Variable 171 _lpython_return_variable [] ReturnVar () () Default (TypeParameter T []) Source Public Required .false.), x: (Variable 171 x [] In () () Default (TypeParameter T []) Source Public Required .false.), y: (Variable 171 y [] In () () Default (TypeParameter T []) Source Public Required .false.)}) add (FunctionType [(TypeParameter T []) (TypeParameter T [])] (TypeParameter T []) Source Implementation () .false. .false. .false. .false. .false. [(TypeParameter T [])] [] .true.) [] [(Var 171 x) (Var 171 y)] [] (Var 171 _lpython_return_variable) Public .false. .false.), add_float: (Function (SymbolTable 173 {_lpython_return_variable: (Variable 173 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 173 x [] In () () Default (Real 4 []) Source Public Required .false.), y: (Variable 173 y [] In () () Default (Real 4 []) Source Public Required .false.)}) add_float (FunctionType [(Real 4 []) (Real 4 [])] (Real 4 []) Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 173 x) (Var 173 y)] [(= (Var 173 _lpython_return_variable) (RealBinOp (Var 173 x) Add (Var 173 y) (Real 4 []) ()) ()) (Return)] (Var 173 _lpython_return_variable) Public .false. .false.), add_integer: (Function (SymbolTable 172 {_lpython_return_variable: (Variable 172 _lpython_return_variable [] ReturnVar () () Default (Integer 4 []) Source Public Required .false.), x: (Variable 172 x [] In () () Default (Integer 4 []) Source Public Required .false.), y: (Variable 172 y [] In () () Default (Integer 4 []) Source Public Required .false.)}) add_integer (FunctionType [(Integer 4 []) (Integer 4 [])] (Integer 4 []) Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 172 x) (Var 172 y)] [(= (Var 172 _lpython_return_variable) (IntegerBinOp (Var 172 x) Add (Var 172 y) (Integer 4 []) ()) ()) (Return)] (Var 172 _lpython_return_variable) Public .false. .false.), g: (Function (SymbolTable 174 {_lpython_return_variable: (Variable 174 _lpython_return_variable [n m] ReturnVar () () Default (TypeParameter T [((IntegerConstant 0 (Integer 4 [])) (Var 174 n)) ((IntegerConstant 0 (Integer 4 [])) (Var 174 m))]) Source Public Required .false.), a: (Variable 174 a [n m] InOut () () Default (TypeParameter T [((IntegerConstant 0 (Integer 4 [])) (Var 174 n)) ((IntegerConstant 0 (Integer 4 [])) (Var 174 m))]) Source Public Required .false.), b: (Variable 174 b [n m] InOut () () Default (TypeParameter T [((IntegerConstant 0 (Integer 4 [])) (Var 174 n)) ((IntegerConstant 0 (Integer 4 [])) (Var 174 m))]) Source Public Required .false.), i: (Variable 174 i [] Local () () Default (Integer 4 []) Source Public Required .false.), j: (Variable 174 j [] Local () () Default (Integer 4 []) Source Public Required .false.), m: (Variable 174 m [] In () () Default (Integer 4 []) Source Public Required .false.), n: (Variable 174 n [] In () () Default (Integer 4 []) Source Public Required .false.), r: (Variable 174 r [n m] Local () () Default (TypeParameter T [((IntegerConstant 0 (Integer 4 [])) (Var 174 n)) ((IntegerConstant 0 (Integer 4 [])) (Var 174 m))]) Source Public Required .false.)}) g (FunctionType [(Integer 4 []) (Integer 4 []) (TypeParameter T [((IntegerConstant 0 (Integer 4 [])) (Var 174 n)) ((IntegerConstant 0 (Integer 4 [])) (Var 174 m))]) (TypeParameter T [((IntegerConstant 0 (Integer 4 [])) (Var 174 n)) ((IntegerConstant 0 (Integer 4 [])) (Var 174 m))])] (TypeParameter T [((IntegerConstant 0 (Integer 4 [])) (Var 174 n)) ((IntegerConstant 0 (Integer 4 [])) (Var 174 m))]) Source Implementation () .false. .false. .false. .false. .false. [(TypeParameter T [])] [1 add] .false.) [add] [(Var 174 n) (Var 174 m) (Var 174 a) (Var 174 b)] [(DoLoop ((Var 174 i) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (Var 174 n) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(DoLoop ((Var 174 j) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (Var 174 m) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(= (ArrayItem (Var 174 r) [(() (Var 174 i) ()) (() (Var 174 j) ())] (TypeParameter T []) RowMajor ()) (FunctionCall 1 add () [((ArrayItem (Var 174 a) [(() (Var 174 i) ()) (() (Var 174 j) ())] (TypeParameter T []) RowMajor ())) ((ArrayItem (Var 174 b) [(() (Var 174 i) ()) (() (Var 174 j) ())] (TypeParameter T []) RowMajor ()))] (TypeParameter T []) () ()) ())])]) (Print () [(ArrayItem (Var 174 r) [(() (IntegerConstant 0 (Integer 4 [])) ()) (() (IntegerConstant 0 (Integer 4 [])) ())] (TypeParameter T []) RowMajor ())] () ())] (Var 174 _lpython_return_variable) Public .false. .false.), lpython_builtin: (IntrinsicModule lpython_builtin), m: (Variable 1 m [] Local () () Default (Integer 4 []) Source Public Required .false.), main: (Function (SymbolTable 175 {__lcompilers_dummy: (Variable 175 __lcompilers_dummy [] Local () () Default (Integer 4 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 1 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 1 (Integer 4 [])))]) Source Public Required .false.), __lcompilers_dummy1: (Variable 175 __lcompilers_dummy1 [] Local () () Default (Real 4 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 1 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 1 (Integer 4 [])))]) Source Public Required .false.), a_float: (Variable 175 a_float [] Local () () Default (Real 4 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 1 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 1 (Integer 4 [])))]) Source Public Required .false.), a_int: (Variable 175 a_int [] Local () () Default (Integer 4 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 1 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 1 (Integer 4 [])))]) Source Public Required .false.), b_float: (Variable 175 b_float [] Local () () Default (Real 4 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 1 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 1 (Integer 4 [])))]) Source Public Required .false.), b_int: (Variable 175 b_int [] Local () () Default (Integer 4 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 1 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 1 (Integer 4 [])))]) Source Public Required .false.)}) main (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [__asr_generic_g_0 __asr_generic_g_1] [] [(= (ArrayItem (Var 175 a_int) [(() (IntegerConstant 0 (Integer 4 [])) ()) (() (IntegerConstant 0 (Integer 4 [])) ())] (Integer 4 []) RowMajor ()) (IntegerConstant 400 (Integer 4 [])) ()) (= (ArrayItem (Var 175 b_int) [(() (IntegerConstant 0 (Integer 4 [])) ()) (() (IntegerConstant 0 (Integer 4 [])) ())] (Integer 4 []) RowMajor ()) (IntegerConstant 20 (Integer 4 [])) ()) (= (Var 175 __lcompilers_dummy) (FunctionCall 1 __asr_generic_g_0 () [((IntegerConstant 1 (Integer 4 []))) ((IntegerConstant 1 (Integer 4 []))) ((Var 175 a_int)) ((Var 175 b_int))] (Integer 4 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 1 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 1 (Integer 4 [])))]) () ()) ()) (= (ArrayItem (Var 175 a_float) [(() (IntegerConstant 0 (Integer 4 [])) ()) (() (IntegerConstant 0 (Integer 4 [])) ())] (Real 4 []) RowMajor ()) (Cast (IntegerConstant 400 (Integer 4 [])) IntegerToReal (Real 4 []) ()) ()) (= (ArrayItem (Var 175 b_float) [(() (IntegerConstant 0 (Integer 4 [])) ()) (() (IntegerConstant 0 (Integer 4 [])) ())] (Real 4 []) RowMajor ()) (Cast (IntegerConstant 20 (Integer 4 [])) IntegerToReal (Real 4 []) ()) ()) (= (Var 175 __lcompilers_dummy1) (FunctionCall 1 __asr_generic_g_1 () [((IntegerConstant 1 (Integer 4 []))) ((IntegerConstant 1 (Integer 4 []))) ((Var 175 a_float)) ((Var 175 b_float))] (Real 4 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 1 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 1 (Integer 4 [])))]) () ()) ())] () Public .false. .false.), main_program: (Program (SymbolTable 180 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())]), n: (Variable 1 n [] Local () () Default (Integer 4 []) Source Public Required .false.), numpy: (Module (SymbolTable 3 {__lpython_overloaded_0__arccos: (Function (SymbolTable 41 {_lpython_return_variable: (Variable 41 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 41 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arccos (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dacos] [(Var 41 x)] [(= (Var 41 _lpython_return_variable) (FunctionCall 3 _lfortran_dacos () [((Var 41 x))] (Real 8 []) () ()) ()) (Return)] (Var 41 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__arccosh: (Function (SymbolTable 65 {_lpython_return_variable: (Variable 65 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 65 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arccosh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dacosh] [(Var 65 x)] [(= (Var 65 _lpython_return_variable) (FunctionCall 3 _lfortran_dacosh () [((Var 65 x))] (Real 8 []) () ()) ()) (Return)] (Var 65 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__arcsin: (Function (SymbolTable 37 {_lpython_return_variable: (Variable 37 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 37 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arcsin (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dasin] [(Var 37 x)] [(= (Var 37 _lpython_return_variable) (FunctionCall 3 _lfortran_dasin () [((Var 37 x))] (Real 8 []) () ()) ()) (Return)] (Var 37 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__arcsinh: (Function (SymbolTable 61 {_lpython_return_variable: (Variable 61 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 61 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arcsinh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dasinh] [(Var 61 x)] [(= (Var 61 _lpython_return_variable) (FunctionCall 3 _lfortran_dasinh () [((Var 61 x))] (Real 8 []) () ()) ()) (Return)] (Var 61 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__arctan: (Function (SymbolTable 53 {_lpython_return_variable: (Variable 53 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 53 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arctan (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_datan] [(Var 53 x)] [(= (Var 53 _lpython_return_variable) (FunctionCall 3 _lfortran_datan () [((Var 53 x))] (Real 8 []) () ()) ()) (Return)] (Var 53 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__arctanh: (Function (SymbolTable 69 {_lpython_return_variable: (Variable 69 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 69 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arctanh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_datanh] [(Var 69 x)] [(= (Var 69 _lpython_return_variable) (FunctionCall 3 _lfortran_datanh () [((Var 69 x))] (Real 8 []) () ()) ()) (Return)] (Var 69 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__ceil: (Function (SymbolTable 76 {_lpython_return_variable: (Variable 76 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), result: (Variable 76 result [] Local () () Default (Integer 8 []) Source Public Required .false.), x: (Variable 76 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__ceil (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 76 x)] [(= (Var 76 result) (Cast (Var 76 x) RealToInteger (Integer 8 []) ()) ()) (If (LogicalBinOp (RealCompare (Var 76 x) LtE (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToReal (Real 8 []) ()) (Logical 4 []) ()) Or (RealCompare (Var 76 x) Eq (Cast (Var 76 result) IntegerToReal (Real 8 []) ()) (Logical 4 []) ()) (Logical 4 []) ()) [(= (Var 76 _lpython_return_variable) (Cast (Var 76 result) IntegerToReal (Real 8 []) ()) ()) (Return)] []) (= (Var 76 _lpython_return_variable) (Cast (IntegerBinOp (Var 76 result) Add (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 1 (Integer 8 []))) (Integer 8 []) ()) IntegerToReal (Real 8 []) ()) ()) (Return)] (Var 76 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__cos: (Function (SymbolTable 9 {_lpython_return_variable: (Variable 9 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 9 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__cos (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dcos] [(Var 9 x)] [(= (Var 9 _lpython_return_variable) (FunctionCall 3 _lfortran_dcos () [((Var 9 x))] (Real 8 []) () ()) ()) (Return)] (Var 9 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__cosh: (Function (SymbolTable 23 {_lpython_return_variable: (Variable 23 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 23 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__cosh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dcosh] [(Var 23 x)] [(= (Var 23 _lpython_return_variable) (FunctionCall 3 _lfortran_dcosh () [((Var 23 x))] (Real 8 []) () ()) ()) (Return)] (Var 23 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__degrees: (Function (SymbolTable 56 {_lpython_return_variable: (Variable 56 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 56 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__degrees (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 56 x)] [(= (Var 56 _lpython_return_variable) (RealBinOp (RealBinOp (Var 56 x) Mul (RealConstant 180.000000 (Real 8 [])) (Real 8 []) ()) Div (Var 3 pi_64) (Real 8 []) ()) ()) (Return)] (Var 56 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__exp: (Function (SymbolTable 49 {_lpython_return_variable: (Variable 49 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 49 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__exp (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dexp] [(Var 49 x)] [(= (Var 49 _lpython_return_variable) (FunctionCall 3 _lfortran_dexp () [((Var 49 x))] (Real 8 []) () ()) ()) (Return)] (Var 49 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__floor: (Function (SymbolTable 74 {_lpython_return_variable: (Variable 74 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), result: (Variable 74 result [] Local () () Default (Integer 8 []) Source Public Required .false.), x: (Variable 74 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__floor (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 74 x)] [(= (Var 74 result) (Cast (Var 74 x) RealToInteger (Integer 8 []) ()) ()) (If (LogicalBinOp (RealCompare (Var 74 x) GtE (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToReal (Real 8 []) ()) (Logical 4 []) ()) Or (RealCompare (Var 74 x) Eq (Cast (Var 74 result) IntegerToReal (Real 8 []) ()) (Logical 4 []) ()) (Logical 4 []) ()) [(= (Var 74 _lpython_return_variable) (Cast (Var 74 result) IntegerToReal (Real 8 []) ()) ()) (Return)] []) (= (Var 74 _lpython_return_variable) (Cast (IntegerBinOp (Var 74 result) Sub (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 1 (Integer 8 []))) (Integer 8 []) ()) IntegerToReal (Real 8 []) ()) ()) (Return)] (Var 74 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__log: (Function (SymbolTable 27 {_lpython_return_variable: (Variable 27 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 27 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__log (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dlog] [(Var 27 x)] [(= (Var 27 _lpython_return_variable) (FunctionCall 3 _lfortran_dlog () [((Var 27 x))] (Real 8 []) () ()) ()) (Return)] (Var 27 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__log10: (Function (SymbolTable 31 {_lpython_return_variable: (Variable 31 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 31 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__log10 (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dlog10] [(Var 31 x)] [(= (Var 31 _lpython_return_variable) (FunctionCall 3 _lfortran_dlog10 () [((Var 31 x))] (Real 8 []) () ()) ()) (Return)] (Var 31 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__log2: (Function (SymbolTable 34 {_lpython_return_variable: (Variable 34 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 34 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__log2 (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dlog _lfortran_dlog] [(Var 34 x)] [(= (Var 34 _lpython_return_variable) (RealBinOp (FunctionCall 3 _lfortran_dlog () [((Var 34 x))] (Real 8 []) () ()) Div (FunctionCall 3 _lfortran_dlog () [((RealConstant 2.000000 (Real 8 [])))] (Real 8 []) () ()) (Real 8 []) ()) ()) (Return)] (Var 34 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__mod: (Function (SymbolTable 72 {_lpython_return_variable: (Variable 72 _lpython_return_variable [] ReturnVar () () Default (Integer 8 []) Source Public Required .false.), _mod: (ExternalSymbol 72 _mod 79 _mod lpython_builtin [] _mod Private), _mod@__lpython_overloaded_2___mod: (ExternalSymbol 72 _mod@__lpython_overloaded_2___mod 79 __lpython_overloaded_2___mod lpython_builtin [] __lpython_overloaded_2___mod Public), x1: (Variable 72 x1 [] In () () Default (Integer 8 []) Source Public Required .false.), x2: (Variable 72 x2 [] In () () Default (Integer 8 []) Source Public Required .false.)}) __lpython_overloaded_0__mod (FunctionType [(Integer 8 []) (Integer 8 [])] (Integer 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_mod@__lpython_overloaded_2___mod] [(Var 72 x1) (Var 72 x2)] [(If (IntegerCompare (Var 72 x2) Eq (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 0 (Integer 8 []))) (Logical 4 []) ()) [(= (Var 72 _lpython_return_variable) (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToInteger (Integer 8 []) ()) ()) (Return)] []) (= (Var 72 _lpython_return_variable) (FunctionCall 72 _mod@__lpython_overloaded_2___mod 72 _mod [((Var 72 x1)) ((Var 72 x2))] (Integer 8 []) () ()) ()) (Return)] (Var 72 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__radians: (Function (SymbolTable 58 {_lpython_return_variable: (Variable 58 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 58 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__radians (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 58 x)] [(= (Var 58 _lpython_return_variable) (RealBinOp (RealBinOp (Var 58 x) Mul (Var 3 pi_64) (Real 8 []) ()) Div (RealConstant 180.000000 (Real 8 [])) (Real 8 []) ()) ()) (Return)] (Var 58 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__sin: (Function (SymbolTable 5 {_lpython_return_variable: (Variable 5 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 5 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__sin (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dsin] [(Var 5 x)] [(= (Var 5 _lpython_return_variable) (FunctionCall 3 _lfortran_dsin () [((Var 5 x))] (Real 8 []) () ()) ()) (Return)] (Var 5 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__sinh: (Function (SymbolTable 19 {_lpython_return_variable: (Variable 19 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 19 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__sinh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dsinh] [(Var 19 x)] [(= (Var 19 _lpython_return_variable) (FunctionCall 3 _lfortran_dsinh () [((Var 19 x))] (Real 8 []) () ()) ()) (Return)] (Var 19 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__sqrt: (Function (SymbolTable 12 {_lpython_return_variable: (Variable 12 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 12 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__sqrt (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 12 x)] [(= (Var 12 _lpython_return_variable) (RealBinOp (Var 12 x) Pow (RealBinOp (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToReal (Real 8 []) ()) Div (Cast (IntegerConstant 2 (Integer 4 [])) IntegerToReal (Real 8 []) ()) (Real 8 []) ()) (Real 8 []) ()) ()) (Return)] (Var 12 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__tan: (Function (SymbolTable 15 {_lpython_return_variable: (Variable 15 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 15 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__tan (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dtan] [(Var 15 x)] [(= (Var 15 _lpython_return_variable) (FunctionCall 3 _lfortran_dtan () [((Var 15 x))] (Real 8 []) () ()) ()) (Return)] (Var 15 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__tanh: (Function (SymbolTable 45 {_lpython_return_variable: (Variable 45 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 45 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__tanh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dtanh] [(Var 45 x)] [(= (Var 45 _lpython_return_variable) (FunctionCall 3 _lfortran_dtanh () [((Var 45 x))] (Real 8 []) () ()) ()) (Return)] (Var 45 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arccos: (Function (SymbolTable 43 {_lpython_return_variable: (Variable 43 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 43 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arccos (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_sacos] [(Var 43 x)] [(= (Var 43 _lpython_return_variable) (FunctionCall 3 _lfortran_sacos () [((Var 43 x))] (Real 4 []) () ()) ()) (Return)] (Var 43 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arccosh: (Function (SymbolTable 67 {_lpython_return_variable: (Variable 67 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 67 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arccosh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_sacosh] [(Var 67 x)] [(= (Var 67 _lpython_return_variable) (FunctionCall 3 _lfortran_sacosh () [((Var 67 x))] (Real 4 []) () ()) ()) (Return)] (Var 67 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arcsin: (Function (SymbolTable 39 {_lpython_return_variable: (Variable 39 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 39 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arcsin (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_sasin] [(Var 39 x)] [(= (Var 39 _lpython_return_variable) (FunctionCall 3 _lfortran_sasin () [((Var 39 x))] (Real 4 []) () ()) ()) (Return)] (Var 39 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arcsinh: (Function (SymbolTable 63 {_lpython_return_variable: (Variable 63 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 63 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arcsinh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_sasinh] [(Var 63 x)] [(= (Var 63 _lpython_return_variable) (FunctionCall 3 _lfortran_sasinh () [((Var 63 x))] (Real 4 []) () ()) ()) (Return)] (Var 63 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arctan: (Function (SymbolTable 55 {_lpython_return_variable: (Variable 55 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 55 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arctan (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_satan] [(Var 55 x)] [(= (Var 55 _lpython_return_variable) (FunctionCall 3 _lfortran_satan () [((Var 55 x))] (Real 4 []) () ()) ()) (Return)] (Var 55 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arctanh: (Function (SymbolTable 71 {_lpython_return_variable: (Variable 71 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 71 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arctanh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_satanh] [(Var 71 x)] [(= (Var 71 _lpython_return_variable) (FunctionCall 3 _lfortran_satanh () [((Var 71 x))] (Real 4 []) () ()) ()) (Return)] (Var 71 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__ceil: (Function (SymbolTable 77 {_lpython_return_variable: (Variable 77 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), resultf: (Variable 77 resultf [x] Local (Cast (Cast (Var 77 x) RealToInteger (Integer 4 []) ()) IntegerToReal (Real 4 []) ()) () Default (Real 4 []) Source Public Required .false.), x: (Variable 77 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__ceil (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 77 x)] [(= (Var 77 resultf) (Cast (Cast (Var 77 x) RealToInteger (Integer 4 []) ()) IntegerToReal (Real 4 []) ()) ()) (If (LogicalBinOp (RealCompare (Var 77 x) LtE (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Logical 4 []) ()) Or (RealCompare (Var 77 x) Eq (Var 77 resultf) (Logical 4 []) ()) (Logical 4 []) ()) [(= (Var 77 _lpython_return_variable) (Var 77 resultf) ()) (Return)] []) (= (Var 77 _lpython_return_variable) (RealBinOp (Var 77 resultf) Add (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Real 4 []) ()) ()) (Return)] (Var 77 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__cos: (Function (SymbolTable 11 {_lpython_return_variable: (Variable 11 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 11 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__cos (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_scos] [(Var 11 x)] [(= (Var 11 _lpython_return_variable) (FunctionCall 3 _lfortran_scos () [((Var 11 x))] (Real 4 []) () ()) ()) (Return)] (Var 11 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__cosh: (Function (SymbolTable 25 {_lpython_return_variable: (Variable 25 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 25 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__cosh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_scosh] [(Var 25 x)] [(= (Var 25 _lpython_return_variable) (FunctionCall 3 _lfortran_scosh () [((Var 25 x))] (Real 4 []) () ()) ()) (Return)] (Var 25 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__degrees: (Function (SymbolTable 57 {_lpython_return_variable: (Variable 57 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 57 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__degrees (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 57 x)] [(= (Var 57 _lpython_return_variable) (RealBinOp (Var 57 x) Mul (RealBinOp (Cast (IntegerConstant 180 (Integer 4 [])) IntegerToReal (Real 4 []) ()) Div (Var 3 pi_32) (Real 4 []) ()) (Real 4 []) ()) ()) (Return)] (Var 57 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__exp: (Function (SymbolTable 51 {_lpython_return_variable: (Variable 51 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 51 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__exp (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_sexp] [(Var 51 x)] [(= (Var 51 _lpython_return_variable) (FunctionCall 3 _lfortran_sexp () [((Var 51 x))] (Real 4 []) () ()) ()) (Return)] (Var 51 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__floor: (Function (SymbolTable 75 {_lpython_return_variable: (Variable 75 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), resultf: (Variable 75 resultf [x] Local (Cast (Cast (Var 75 x) RealToInteger (Integer 4 []) ()) IntegerToReal (Real 4 []) ()) () Default (Real 4 []) Source Public Required .false.), x: (Variable 75 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__floor (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 75 x)] [(= (Var 75 resultf) (Cast (Cast (Var 75 x) RealToInteger (Integer 4 []) ()) IntegerToReal (Real 4 []) ()) ()) (If (LogicalBinOp (RealCompare (Var 75 x) GtE (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Logical 4 []) ()) Or (RealCompare (Var 75 x) Eq (Var 75 resultf) (Logical 4 []) ()) (Logical 4 []) ()) [(= (Var 75 _lpython_return_variable) (Var 75 resultf) ()) (Return)] []) (= (Var 75 _lpython_return_variable) (RealBinOp (Var 75 resultf) Sub (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Real 4 []) ()) ()) (Return)] (Var 75 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__log: (Function (SymbolTable 29 {_lpython_return_variable: (Variable 29 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 29 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__log (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_slog] [(Var 29 x)] [(= (Var 29 _lpython_return_variable) (FunctionCall 3 _lfortran_slog () [((Var 29 x))] (Real 4 []) () ()) ()) (Return)] (Var 29 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__log10: (Function (SymbolTable 33 {_lpython_return_variable: (Variable 33 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 33 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__log10 (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_slog10] [(Var 33 x)] [(= (Var 33 _lpython_return_variable) (FunctionCall 3 _lfortran_slog10 () [((Var 33 x))] (Real 4 []) () ()) ()) (Return)] (Var 33 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__log2: (Function (SymbolTable 35 {_lpython_return_variable: (Variable 35 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 35 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__log2 (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_slog _lfortran_slog] [(Var 35 x)] [(= (Var 35 _lpython_return_variable) (RealBinOp (FunctionCall 3 _lfortran_slog () [((Var 35 x))] (Real 4 []) () ()) Div (FunctionCall 3 _lfortran_slog () [((Cast (RealConstant 2.000000 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 2.000000 (Real 4 []))))] (Real 4 []) () ()) (Real 4 []) ()) ()) (Return)] (Var 35 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__mod: (Function (SymbolTable 73 {_lpython_return_variable: (Variable 73 _lpython_return_variable [] ReturnVar () () Default (Integer 4 []) Source Public Required .false.), _mod: (ExternalSymbol 73 _mod 79 _mod lpython_builtin [] _mod Private), _mod@__lpython_overloaded_0___mod: (ExternalSymbol 73 _mod@__lpython_overloaded_0___mod 79 __lpython_overloaded_0___mod lpython_builtin [] __lpython_overloaded_0___mod Public), x1: (Variable 73 x1 [] In () () Default (Integer 4 []) Source Public Required .false.), x2: (Variable 73 x2 [] In () () Default (Integer 4 []) Source Public Required .false.)}) __lpython_overloaded_1__mod (FunctionType [(Integer 4 []) (Integer 4 [])] (Integer 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_mod@__lpython_overloaded_0___mod] [(Var 73 x1) (Var 73 x2)] [(If (IntegerCompare (Var 73 x2) Eq (IntegerConstant 0 (Integer 4 [])) (Logical 4 []) ()) [(= (Var 73 _lpython_return_variable) (IntegerConstant 0 (Integer 4 [])) ()) (Return)] []) (= (Var 73 _lpython_return_variable) (FunctionCall 73 _mod@__lpython_overloaded_0___mod 73 _mod [((Var 73 x1)) ((Var 73 x2))] (Integer 4 []) () ()) ()) (Return)] (Var 73 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__radians: (Function (SymbolTable 59 {_lpython_return_variable: (Variable 59 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 59 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__radians (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 59 x)] [(= (Var 59 _lpython_return_variable) (RealBinOp (Var 59 x) Mul (RealBinOp (Var 3 pi_32) Div (Cast (IntegerConstant 180 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Real 4 []) ()) (Real 4 []) ()) ()) (Return)] (Var 59 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__sin: (Function (SymbolTable 7 {_lpython_return_variable: (Variable 7 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 7 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__sin (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_ssin] [(Var 7 x)] [(= (Var 7 _lpython_return_variable) (FunctionCall 3 _lfortran_ssin () [((Var 7 x))] (Real 4 []) () ()) ()) (Return)] (Var 7 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__sinh: (Function (SymbolTable 21 {_lpython_return_variable: (Variable 21 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 21 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__sinh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_ssinh] [(Var 21 x)] [(= (Var 21 _lpython_return_variable) (FunctionCall 3 _lfortran_ssinh () [((Var 21 x))] (Real 4 []) () ()) ()) (Return)] (Var 21 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__sqrt: (Function (SymbolTable 13 {_lpython_return_variable: (Variable 13 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 13 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__sqrt (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 13 x)] [(= (Var 13 _lpython_return_variable) (RealBinOp (Var 13 x) Pow (Cast (RealBinOp (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToReal (Real 8 []) ()) Div (Cast (IntegerConstant 2 (Integer 4 [])) IntegerToReal (Real 8 []) ()) (Real 8 []) ()) RealToReal (Real 4 []) ()) (Real 4 []) ()) ()) (Return)] (Var 13 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__tan: (Function (SymbolTable 17 {_lpython_return_variable: (Variable 17 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 17 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__tan (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_stan] [(Var 17 x)] [(= (Var 17 _lpython_return_variable) (FunctionCall 3 _lfortran_stan () [((Var 17 x))] (Real 4 []) () ()) ()) (Return)] (Var 17 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__tanh: (Function (SymbolTable 47 {_lpython_return_variable: (Variable 47 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 47 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__tanh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_stanh] [(Var 47 x)] [(= (Var 47 _lpython_return_variable) (FunctionCall 3 _lfortran_stanh () [((Var 47 x))] (Real 4 []) () ()) ()) (Return)] (Var 47 _lpython_return_variable) Public .false. .false.), _lfortran_dacos: (Function (SymbolTable 40 {_lpython_return_variable: (Variable 40 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 40 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dacos (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 40 x)] [] (Var 40 _lpython_return_variable) Public .false. .false.), _lfortran_dacosh: (Function (SymbolTable 64 {_lpython_return_variable: (Variable 64 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 64 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dacosh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 64 x)] [] (Var 64 _lpython_return_variable) Public .false. .false.), _lfortran_dasin: (Function (SymbolTable 36 {_lpython_return_variable: (Variable 36 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 36 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dasin (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 36 x)] [] (Var 36 _lpython_return_variable) Public .false. .false.), _lfortran_dasinh: (Function (SymbolTable 60 {_lpython_return_variable: (Variable 60 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 60 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dasinh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 60 x)] [] (Var 60 _lpython_return_variable) Public .false. .false.), _lfortran_datan: (Function (SymbolTable 52 {_lpython_return_variable: (Variable 52 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 52 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_datan (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 52 x)] [] (Var 52 _lpython_return_variable) Public .false. .false.), _lfortran_datanh: (Function (SymbolTable 68 {_lpython_return_variable: (Variable 68 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 68 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_datanh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 68 x)] [] (Var 68 _lpython_return_variable) Public .false. .false.), _lfortran_dcos: (Function (SymbolTable 8 {_lpython_return_variable: (Variable 8 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 8 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dcos (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 8 x)] [] (Var 8 _lpython_return_variable) Public .false. .false.), _lfortran_dcosh: (Function (SymbolTable 22 {_lpython_return_variable: (Variable 22 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 22 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dcosh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 22 x)] [] (Var 22 _lpython_return_variable) Public .false. .false.), _lfortran_dexp: (Function (SymbolTable 48 {_lpython_return_variable: (Variable 48 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 48 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dexp (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 48 x)] [] (Var 48 _lpython_return_variable) Public .false. .false.), _lfortran_dlog: (Function (SymbolTable 26 {_lpython_return_variable: (Variable 26 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 26 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dlog (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 26 x)] [] (Var 26 _lpython_return_variable) Public .false. .false.), _lfortran_dlog10: (Function (SymbolTable 30 {_lpython_return_variable: (Variable 30 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 30 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dlog10 (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 30 x)] [] (Var 30 _lpython_return_variable) Public .false. .false.), _lfortran_dsin: (Function (SymbolTable 4 {_lpython_return_variable: (Variable 4 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 4 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dsin (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 4 x)] [] (Var 4 _lpython_return_variable) Public .false. .false.), _lfortran_dsinh: (Function (SymbolTable 18 {_lpython_return_variable: (Variable 18 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 18 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dsinh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 18 x)] [] (Var 18 _lpython_return_variable) Public .false. .false.), _lfortran_dtan: (Function (SymbolTable 14 {_lpython_return_variable: (Variable 14 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 14 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dtan (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 14 x)] [] (Var 14 _lpython_return_variable) Public .false. .false.), _lfortran_dtanh: (Function (SymbolTable 44 {_lpython_return_variable: (Variable 44 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 44 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dtanh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 44 x)] [] (Var 44 _lpython_return_variable) Public .false. .false.), _lfortran_sacos: (Function (SymbolTable 42 {_lpython_return_variable: (Variable 42 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 42 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_sacos (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 42 x)] [] (Var 42 _lpython_return_variable) Public .false. .false.), _lfortran_sacosh: (Function (SymbolTable 66 {_lpython_return_variable: (Variable 66 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 66 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_sacosh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 66 x)] [] (Var 66 _lpython_return_variable) Public .false. .false.), _lfortran_sasin: (Function (SymbolTable 38 {_lpython_return_variable: (Variable 38 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 38 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_sasin (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 38 x)] [] (Var 38 _lpython_return_variable) Public .false. .false.), _lfortran_sasinh: (Function (SymbolTable 62 {_lpython_return_variable: (Variable 62 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 62 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_sasinh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 62 x)] [] (Var 62 _lpython_return_variable) Public .false. .false.), _lfortran_satan: (Function (SymbolTable 54 {_lpython_return_variable: (Variable 54 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 54 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_satan (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 54 x)] [] (Var 54 _lpython_return_variable) Public .false. .false.), _lfortran_satanh: (Function (SymbolTable 70 {_lpython_return_variable: (Variable 70 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 70 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_satanh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 70 x)] [] (Var 70 _lpython_return_variable) Public .false. .false.), _lfortran_scos: (Function (SymbolTable 10 {_lpython_return_variable: (Variable 10 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 10 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_scos (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 10 x)] [] (Var 10 _lpython_return_variable) Public .false. .false.), _lfortran_scosh: (Function (SymbolTable 24 {_lpython_return_variable: (Variable 24 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 24 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_scosh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 24 x)] [] (Var 24 _lpython_return_variable) Public .false. .false.), _lfortran_sexp: (Function (SymbolTable 50 {_lpython_return_variable: (Variable 50 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 50 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_sexp (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 50 x)] [] (Var 50 _lpython_return_variable) Public .false. .false.), _lfortran_slog: (Function (SymbolTable 28 {_lpython_return_variable: (Variable 28 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 28 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_slog (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 28 x)] [] (Var 28 _lpython_return_variable) Public .false. .false.), _lfortran_slog10: (Function (SymbolTable 32 {_lpython_return_variable: (Variable 32 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 32 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_slog10 (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 32 x)] [] (Var 32 _lpython_return_variable) Public .false. .false.), _lfortran_ssin: (Function (SymbolTable 6 {_lpython_return_variable: (Variable 6 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 6 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_ssin (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 6 x)] [] (Var 6 _lpython_return_variable) Public .false. .false.), _lfortran_ssinh: (Function (SymbolTable 20 {_lpython_return_variable: (Variable 20 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 20 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_ssinh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 20 x)] [] (Var 20 _lpython_return_variable) Public .false. .false.), _lfortran_stan: (Function (SymbolTable 16 {_lpython_return_variable: (Variable 16 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 16 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_stan (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 16 x)] [] (Var 16 _lpython_return_variable) Public .false. .false.), _lfortran_stanh: (Function (SymbolTable 46 {_lpython_return_variable: (Variable 46 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 46 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_stanh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 46 x)] [] (Var 46 _lpython_return_variable) Public .false. .false.), arccos: (GenericProcedure 3 arccos [3 __lpython_overloaded_0__arccos 3 __lpython_overloaded_1__arccos] Public), arccosh: (GenericProcedure 3 arccosh [3 __lpython_overloaded_0__arccosh 3 __lpython_overloaded_1__arccosh] Public), arcsin: (GenericProcedure 3 arcsin [3 __lpython_overloaded_0__arcsin 3 __lpython_overloaded_1__arcsin] Public), arcsinh: (GenericProcedure 3 arcsinh [3 __lpython_overloaded_0__arcsinh 3 __lpython_overloaded_1__arcsinh] Public), arctan: (GenericProcedure 3 arctan [3 __lpython_overloaded_0__arctan 3 __lpython_overloaded_1__arctan] Public), arctanh: (GenericProcedure 3 arctanh [3 __lpython_overloaded_0__arctanh 3 __lpython_overloaded_1__arctanh] Public), ceil: (GenericProcedure 3 ceil [3 __lpython_overloaded_0__ceil 3 __lpython_overloaded_1__ceil] Public), cos: (GenericProcedure 3 cos [3 __lpython_overloaded_0__cos 3 __lpython_overloaded_1__cos] Public), cosh: (GenericProcedure 3 cosh [3 __lpython_overloaded_0__cosh 3 __lpython_overloaded_1__cosh] Public), degrees: (GenericProcedure 3 degrees [3 __lpython_overloaded_0__degrees 3 __lpython_overloaded_1__degrees] Public), exp: (GenericProcedure 3 exp [3 __lpython_overloaded_0__exp 3 __lpython_overloaded_1__exp] Public), floor: (GenericProcedure 3 floor [3 __lpython_overloaded_0__floor 3 __lpython_overloaded_1__floor] Public), log: (GenericProcedure 3 log [3 __lpython_overloaded_0__log 3 __lpython_overloaded_1__log] Public), log10: (GenericProcedure 3 log10 [3 __lpython_overloaded_0__log10 3 __lpython_overloaded_1__log10] Public), log2: (GenericProcedure 3 log2 [3 __lpython_overloaded_0__log2 3 __lpython_overloaded_1__log2] Public), mod: (GenericProcedure 3 mod [3 __lpython_overloaded_0__mod 3 __lpython_overloaded_1__mod] Public), pi_32: (Variable 3 pi_32 [] Local (Cast (RealConstant 3.141593 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 3.141593 (Real 4 []))) () Default (Real 4 []) Source Public Required .false.), pi_64: (Variable 3 pi_64 [] Local (RealConstant 3.141593 (Real 8 [])) () Default (Real 8 []) Source Public Required .false.), radians: (GenericProcedure 3 radians [3 __lpython_overloaded_0__radians 3 __lpython_overloaded_1__radians] Public), sin: (GenericProcedure 3 sin [3 __lpython_overloaded_0__sin 3 __lpython_overloaded_1__sin] Public), sinh: (GenericProcedure 3 sinh [3 __lpython_overloaded_0__sinh 3 __lpython_overloaded_1__sinh] Public), sqrt: (GenericProcedure 3 sqrt [3 __lpython_overloaded_0__sqrt 3 __lpython_overloaded_1__sqrt] Public), tan: (GenericProcedure 3 tan [3 __lpython_overloaded_0__tan 3 __lpython_overloaded_1__tan] Public), tanh: (GenericProcedure 3 tanh [3 __lpython_overloaded_0__tanh 3 __lpython_overloaded_1__tanh] Public)}) numpy [lpython_builtin lpython_builtin] .false. .false.)}) [])
diff --git a/tests/reference/asr-generics_error_01-1e05cd6.json b/tests/reference/asr-generics_error_01-1e05cd6.json
index a7d451e9cc..d93d568003 100644
--- a/tests/reference/asr-generics_error_01-1e05cd6.json
+++ b/tests/reference/asr-generics_error_01-1e05cd6.json
@@ -2,12 +2,12 @@
     "basename": "asr-generics_error_01-1e05cd6",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/errors/generics_error_01.py",
-    "infile_hash": "8149b798615fdeeae18b4557eabaeca31a13383518df60efc842b296",
+    "infile_hash": "2c26a040a0d03561f54a6af9cdd9db262fa0e9db7a6db2b115f6c4eb",
     "outfile": null,
     "outfile_hash": null,
     "stdout": null,
     "stdout_hash": null,
     "stderr": "asr-generics_error_01-1e05cd6.stderr",
-    "stderr_hash": "45a4d8fba734f967b36ed69d703fe503111c67dc6c8887013477c791",
+    "stderr_hash": "c906edc41f270197a279f3bcf5bf514ba66eebb7b10f53cefefd8b2a",
     "returncode": 2
 }
\ No newline at end of file
diff --git a/tests/reference/asr-generics_error_01-1e05cd6.stderr b/tests/reference/asr-generics_error_01-1e05cd6.stderr
index 9d7abb86ef..922cc564d8 100644
--- a/tests/reference/asr-generics_error_01-1e05cd6.stderr
+++ b/tests/reference/asr-generics_error_01-1e05cd6.stderr
@@ -1,5 +1,8 @@
-semantic error: Inconsistent type variable for the function call
-  --> tests/errors/generics_error_01.py:12:7
+semantic error: Type mismatch in procedure call; the types must be compatible
+  --> tests/errors/generics_error_01.py:12:9
    |
 12 | print(f(1,"a"))
-   |       ^^^^^^^^ 
+   |         ^ type mismatch (passed argument type is i32 but required type is T)
+   |
+ 9 | def f(x: T, y: T) -> T:
+   |          ^ type mismatch (passed argument type is i32 but required type is T)
diff --git a/tests/reference/asr-generics_error_02-d614928.json b/tests/reference/asr-generics_error_02-d614928.json
index 48bf090693..46df14bdc4 100644
--- a/tests/reference/asr-generics_error_02-d614928.json
+++ b/tests/reference/asr-generics_error_02-d614928.json
@@ -2,12 +2,12 @@
     "basename": "asr-generics_error_02-d614928",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/errors/generics_error_02.py",
-    "infile_hash": "f27dee9140097b22b38ba3c7155e74e7d98534f710f11488d6422593",
+    "infile_hash": "0cd9c07bbe28138a3cca57b750b625c528773ac79c36b15e5dc5830a",
     "outfile": null,
     "outfile_hash": null,
     "stdout": null,
     "stdout_hash": null,
     "stderr": "asr-generics_error_02-d614928.stderr",
-    "stderr_hash": "2b82c797067dc1c722d416f8f13d837cfec47a0d4adb11c64f5b7e02",
+    "stderr_hash": "ed8e1b5bb3e56a2855182951d7e800079399fd76e100d4aa9749d611",
     "returncode": 2
 }
\ No newline at end of file
diff --git a/tests/reference/asr-generics_error_02-d614928.stderr b/tests/reference/asr-generics_error_02-d614928.stderr
index 22668c4d18..28bff8fa72 100644
--- a/tests/reference/asr-generics_error_02-d614928.stderr
+++ b/tests/reference/asr-generics_error_02-d614928.stderr
@@ -1,5 +1,12 @@
-semantic error: No applicable argument to the restriction zero
-  --> tests/errors/generics_error_02.py:37:7
+semantic error: Type mismatch in procedure call; the types must be compatible
+  --> tests/errors/generics_error_02.py:37:12
    |
 37 | print(mean(["a","b","c"], add=add_string, div=div_string))
-   |       ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 
+   |            ^^^^^^^^^^^^^ type mismatch (passed argument type is list[Allocatable[str]] but required type is list[T])
+   |
+26 |    def mean(x: list[T], **kwargs) -> f64:
+   |    ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^...
+...
+   |
+35 |        return div(res, k)
+   | ...^^^^^^^^^^^^^^^^^^^^^^ type mismatch (passed argument type is list[Allocatable[str]] but required type is list[T])
diff --git a/tests/reference/asr-generics_error_03-208d10d.json b/tests/reference/asr-generics_error_03-208d10d.json
index 7faf2af080..d722ce63dd 100644
--- a/tests/reference/asr-generics_error_03-208d10d.json
+++ b/tests/reference/asr-generics_error_03-208d10d.json
@@ -2,12 +2,12 @@
     "basename": "asr-generics_error_03-208d10d",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/errors/generics_error_03.py",
-    "infile_hash": "1ab7d907f1b683746e2a44b66099cc41b67893ba55f2982db8a19e38",
+    "infile_hash": "d09e6306de96ad3575262220417ea0af090d29b26c6fceb01e73fd6d",
     "outfile": null,
     "outfile_hash": null,
     "stdout": null,
     "stdout_hash": null,
     "stderr": "asr-generics_error_03-208d10d.stderr",
-    "stderr_hash": "e4803340775b153d9eafeae36cff39a9469260a0e139f0fc41e9317d",
+    "stderr_hash": "32d40044275a8027e3ff839c0cb500e1cd641437eb4b3b34789b6cf1",
     "returncode": 2
 }
\ No newline at end of file
diff --git a/tests/reference/asr-generics_error_03-208d10d.stderr b/tests/reference/asr-generics_error_03-208d10d.stderr
index ef155d1bb4..d37a08d078 100644
--- a/tests/reference/asr-generics_error_03-208d10d.stderr
+++ b/tests/reference/asr-generics_error_03-208d10d.stderr
@@ -1,9 +1,12 @@
-semantic error: Restriction mismatch with provided arguments
-  --> tests/errors/generics_error_03.py:20:1 - 21:16
+semantic error: Type mismatch in procedure call; the types must be compatible
+  --> tests/errors/generics_error_03.py:37:12
    |
-20 |    def add_string(x: i32, y: i32) -> i32:
+37 | print(mean(["a","b","c"], zero=empty_string, add=add_string, div=div_string))
+   |            ^^^^^^^^^^^^^ type mismatch (passed argument type is list[Allocatable[str]] but required type is list[T])
+   |
+26 |    def mean(x: list[T], **kwargs) -> f64:
    |    ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^...
 ...
    |
-21 |        return x + y
-   | ...^^^^^^^^^^^^^^^^ 
+35 |        return div(res, k)
+   | ...^^^^^^^^^^^^^^^^^^^^^^ type mismatch (passed argument type is list[Allocatable[str]] but required type is list[T])
diff --git a/tests/reference/asr-generics_list_01-39c4044.json b/tests/reference/asr-generics_list_01-39c4044.json
index 2bfba63dc2..bd8501f2f3 100644
--- a/tests/reference/asr-generics_list_01-39c4044.json
+++ b/tests/reference/asr-generics_list_01-39c4044.json
@@ -2,12 +2,12 @@
     "basename": "asr-generics_list_01-39c4044",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/../integration_tests/generics_list_01.py",
-    "infile_hash": "890fa6a0ba54b9eeb3654b4e1bacd4020a99b1916eac1abea8611b09",
+    "infile_hash": "fee10ba2a43151e515695ea4179e42231e1fd80d7c75637747511144",
     "outfile": null,
     "outfile_hash": null,
-    "stdout": "asr-generics_list_01-39c4044.stdout",
-    "stdout_hash": "023dad68809978fe6a27c415c51a84efe4cf541ecc1b1069d37b048c",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-generics_list_01-39c4044.stderr",
+    "stderr_hash": "4487a512ef669fdb6147786fa3f8a19460016269a3aa54dd32604d18",
+    "returncode": 2
 }
\ No newline at end of file
diff --git a/tests/reference/asr-generics_list_01-39c4044.stderr b/tests/reference/asr-generics_list_01-39c4044.stderr
new file mode 100644
index 0000000000..3fc8f08171
--- /dev/null
+++ b/tests/reference/asr-generics_list_01-39c4044.stderr
@@ -0,0 +1,12 @@
+semantic error: Type mismatch in procedure call; the types must be compatible
+  --> tests/../integration_tests/generics_list_01.py:55:12
+   |
+55 | print(mean([1,2,3], zero=empty_integer, add=add_integer, div=div_integer))
+   |            ^^^^^^^ type mismatch (passed argument type is list[i32] but required type is list[T])
+   |
+44 |    def mean(x: list[T], **kwargs) -> f64:
+   |    ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^...
+...
+   |
+53 |        return div(res, k)
+   | ...^^^^^^^^^^^^^^^^^^^^^^ type mismatch (passed argument type is list[i32] but required type is list[T])
diff --git a/tests/reference/asr-generics_list_01-39c4044.stdout b/tests/reference/asr-generics_list_01-39c4044.stdout
deleted file mode 100644
index 0b1741d840..0000000000
--- a/tests/reference/asr-generics_list_01-39c4044.stdout
+++ /dev/null
@@ -1 +0,0 @@
-(TranslationUnit (SymbolTable 1 {T: (Variable 1 T [] Local () () Default (TypeParameter T []) Source Public Required .false.), __asr_generic_mean_0: (Function (SymbolTable 16 {_lpython_return_variable: (Variable 16 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), i: (Variable 16 i [] Local () () Default (Integer 4 []) Source Public Required .false.), k: (Variable 16 k [] Local () () Default (Integer 4 []) Source Public Required .false.), res: (Variable 16 res [] Local () () Default (Integer 4 []) Source Public Required .false.), x: (Variable 16 x [] In () () Default (List (Integer 4 [])) Source Public Required .false.)}) __asr_generic_mean_0 (FunctionType [(List (Integer 4 []))] (Real 8 []) Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [empty_integer add_integer div_integer] [(Var 16 x)] [(= (Var 16 k) (ListLen (Var 16 x) (Integer 4 []) ()) ()) (If (IntegerCompare (Var 16 k) Eq (IntegerConstant 0 (Integer 4 [])) (Logical 4 []) ()) [(= (Var 16 _lpython_return_variable) (RealConstant 0.000000 (Real 8 [])) ()) (Return)] []) (= (Var 16 res) (FunctionCall 1 empty_integer () [((ListItem (Var 16 x) (IntegerConstant 0 (Integer 4 [])) (Integer 4 []) ()))] (Integer 4 []) () ()) ()) (DoLoop ((Var 16 i) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (Var 16 k) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(= (Var 16 res) (FunctionCall 1 add_integer () [((Var 16 res)) ((ListItem (Var 16 x) (Var 16 i) (Integer 4 []) ()))] (Integer 4 []) () ()) ())]) (= (Var 16 _lpython_return_variable) (FunctionCall 1 div_integer () [((Var 16 res)) ((Var 16 k))] (Real 8 []) () ()) ()) (Return)] (Var 16 _lpython_return_variable) Public .false. .false.), __asr_generic_mean_1: (Function (SymbolTable 17 {_lpython_return_variable: (Variable 17 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), i: (Variable 17 i [] Local () () Default (Integer 4 []) Source Public Required .false.), k: (Variable 17 k [] Local () () Default (Integer 4 []) Source Public Required .false.), res: (Variable 17 res [] Local () () Default (Real 8 []) Source Public Required .false.), x: (Variable 17 x [] In () () Default (List (Real 8 [])) Source Public Required .false.)}) __asr_generic_mean_1 (FunctionType [(List (Real 8 []))] (Real 8 []) Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [empty_float add_float div_float] [(Var 17 x)] [(= (Var 17 k) (ListLen (Var 17 x) (Integer 4 []) ()) ()) (If (IntegerCompare (Var 17 k) Eq (IntegerConstant 0 (Integer 4 [])) (Logical 4 []) ()) [(= (Var 17 _lpython_return_variable) (RealConstant 0.000000 (Real 8 [])) ()) (Return)] []) (= (Var 17 res) (FunctionCall 1 empty_float () [((ListItem (Var 17 x) (IntegerConstant 0 (Integer 4 [])) (Real 8 []) ()))] (Real 8 []) () ()) ()) (DoLoop ((Var 17 i) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (Var 17 k) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(= (Var 17 res) (FunctionCall 1 add_float () [((Var 17 res)) ((ListItem (Var 17 x) (Var 17 i) (Real 8 []) ()))] (Real 8 []) () ()) ())]) (= (Var 17 _lpython_return_variable) (FunctionCall 1 div_float () [((Var 17 res)) ((Var 17 k))] (Real 8 []) () ()) ()) (Return)] (Var 17 _lpython_return_variable) Public .false. .false.), __asr_generic_mean_2: (Function (SymbolTable 18 {_lpython_return_variable: (Variable 18 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), i: (Variable 18 i [] Local () () Default (Integer 4 []) Source Public Required .false.), k: (Variable 18 k [] Local () () Default (Integer 4 []) Source Public Required .false.), res: (Variable 18 res [] Local () () Default (Character 1 1 () []) Source Public Required .false.), x: (Variable 18 x [] In () () Default (List (Character 1 1 () [])) Source Public Required .false.)}) __asr_generic_mean_2 (FunctionType [(List (Character 1 1 () []))] (Real 8 []) Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [empty_string add_string div_string] [(Var 18 x)] [(= (Var 18 k) (ListLen (Var 18 x) (Integer 4 []) ()) ()) (If (IntegerCompare (Var 18 k) Eq (IntegerConstant 0 (Integer 4 [])) (Logical 4 []) ()) [(= (Var 18 _lpython_return_variable) (RealConstant 0.000000 (Real 8 [])) ()) (Return)] []) (= (Var 18 res) (FunctionCall 1 empty_string () [((ListItem (Var 18 x) (IntegerConstant 0 (Integer 4 [])) (Character 1 1 () []) ()))] (Character 1 1 () []) () ()) ()) (DoLoop ((Var 18 i) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (Var 18 k) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(= (Var 18 res) (FunctionCall 1 add_string () [((Var 18 res)) ((ListItem (Var 18 x) (Var 18 i) (Character 1 1 () []) ()))] (Character 1 1 () []) () ()) ())]) (= (Var 18 _lpython_return_variable) (FunctionCall 1 div_string () [((Var 18 res)) ((Var 18 k))] (Real 8 []) () ()) ()) (Return)] (Var 18 _lpython_return_variable) Public .false. .false.), _lpython_main_program: (Function (SymbolTable 20 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [__asr_generic_mean_0 __asr_generic_mean_1 __asr_generic_mean_2] [] [(Print () [(FunctionCall 1 __asr_generic_mean_0 () [((ListConstant [(IntegerConstant 1 (Integer 4 [])) (IntegerConstant 2 (Integer 4 [])) (IntegerConstant 3 (Integer 4 []))] (List (Integer 4 []))))] (Real 8 []) () ())] () ()) (Print () [(FunctionCall 1 __asr_generic_mean_1 () [((ListConstant [(RealConstant 1.000000 (Real 8 [])) (RealConstant 2.000000 (Real 8 [])) (RealConstant 3.000000 (Real 8 []))] (List (Real 8 []))))] (Real 8 []) () ())] () ()) (Print () [(FunctionCall 1 __asr_generic_mean_2 () [((ListConstant [(StringConstant "a" (Character 1 1 () [])) (StringConstant "b" (Character 1 1 () [])) (StringConstant "c" (Character 1 1 () []))] (List (Character 1 1 () []))))] (Real 8 []) () ())] () ())] () Public .false. .false.), add: (Function (SymbolTable 3 {_lpython_return_variable: (Variable 3 _lpython_return_variable [] ReturnVar () () Default (TypeParameter T []) Source Public Required .false.), x: (Variable 3 x [] In () () Default (TypeParameter T []) Source Public Required .false.), y: (Variable 3 y [] In () () Default (TypeParameter T []) Source Public Required .false.)}) add (FunctionType [(TypeParameter T []) (TypeParameter T [])] (TypeParameter T []) Source Implementation () .false. .false. .false. .false. .false. [(TypeParameter T [])] [] .true.) [] [(Var 3 x) (Var 3 y)] [] (Var 3 _lpython_return_variable) Public .false. .false.), add_float: (Function (SymbolTable 9 {_lpython_return_variable: (Variable 9 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 9 x [] In () () Default (Real 8 []) Source Public Required .false.), y: (Variable 9 y [] In () () Default (Real 8 []) Source Public Required .false.)}) add_float (FunctionType [(Real 8 []) (Real 8 [])] (Real 8 []) Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 9 x) (Var 9 y)] [(= (Var 9 _lpython_return_variable) (RealBinOp (Var 9 x) Add (Var 9 y) (Real 8 []) ()) ()) (Return)] (Var 9 _lpython_return_variable) Public .false. .false.), add_integer: (Function (SymbolTable 6 {_lpython_return_variable: (Variable 6 _lpython_return_variable [] ReturnVar () () Default (Integer 4 []) Source Public Required .false.), x: (Variable 6 x [] In () () Default (Integer 4 []) Source Public Required .false.), y: (Variable 6 y [] In () () Default (Integer 4 []) Source Public Required .false.)}) add_integer (FunctionType [(Integer 4 []) (Integer 4 [])] (Integer 4 []) Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 6 x) (Var 6 y)] [(= (Var 6 _lpython_return_variable) (IntegerBinOp (Var 6 x) Add (Var 6 y) (Integer 4 []) ()) ()) (Return)] (Var 6 _lpython_return_variable) Public .false. .false.), add_string: (Function (SymbolTable 12 {_lpython_return_variable: (Variable 12 _lpython_return_variable [] ReturnVar () () Default (Character 1 -2 () []) Source Public Required .false.), x: (Variable 12 x [] In () () Default (Character 1 -2 () []) Source Public Required .false.), y: (Variable 12 y [] In () () Default (Character 1 -2 () []) Source Public Required .false.)}) add_string (FunctionType [(Character 1 -2 () []) (Character 1 -2 () [])] (Character 1 -2 () []) Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 12 x) (Var 12 y)] [(= (Var 12 _lpython_return_variable) (StringConcat (Var 12 x) (Var 12 y) (Character 1 -4 () []) ()) ()) (Return)] (Var 12 _lpython_return_variable) Public .false. .false.), div: (Function (SymbolTable 4 {_lpython_return_variable: (Variable 4 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), k: (Variable 4 k [] In () () Default (Integer 4 []) Source Public Required .false.), x: (Variable 4 x [] In () () Default (TypeParameter T []) Source Public Required .false.)}) div (FunctionType [(TypeParameter T []) (Integer 4 [])] (Real 8 []) Source Implementation () .false. .false. .false. .false. .false. [(TypeParameter T [])] [] .true.) [] [(Var 4 x) (Var 4 k)] [] (Var 4 _lpython_return_variable) Public .false. .false.), div_float: (Function (SymbolTable 10 {_lpython_return_variable: (Variable 10 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), k: (Variable 10 k [] In () () Default (Integer 4 []) Source Public Required .false.), x: (Variable 10 x [] In () () Default (Real 8 []) Source Public Required .false.)}) div_float (FunctionType [(Real 8 []) (Integer 4 [])] (Real 8 []) Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 10 x) (Var 10 k)] [(= (Var 10 _lpython_return_variable) (RealBinOp (Var 10 x) Div (Cast (Var 10 k) IntegerToReal (Real 8 []) ()) (Real 8 []) ()) ()) (Return)] (Var 10 _lpython_return_variable) Public .false. .false.), div_integer: (Function (SymbolTable 7 {_lpython_return_variable: (Variable 7 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), k: (Variable 7 k [] In () () Default (Integer 4 []) Source Public Required .false.), x: (Variable 7 x [] In () () Default (Integer 4 []) Source Public Required .false.)}) div_integer (FunctionType [(Integer 4 []) (Integer 4 [])] (Real 8 []) Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 7 x) (Var 7 k)] [(= (Var 7 _lpython_return_variable) (RealBinOp (Cast (Var 7 x) IntegerToReal (Real 8 []) ()) Div (Cast (Var 7 k) IntegerToReal (Real 8 []) ()) (Real 8 []) ()) ()) (Return)] (Var 7 _lpython_return_variable) Public .false. .false.), div_string: (Function (SymbolTable 13 {_lpython_return_variable: (Variable 13 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), k: (Variable 13 k [] In () () Default (Integer 4 []) Source Public Required .false.), x: (Variable 13 x [] In () () Default (Character 1 -2 () []) Source Public Required .false.)}) div_string (FunctionType [(Character 1 -2 () []) (Integer 4 [])] (Real 8 []) Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 13 x) (Var 13 k)] [(= (Var 13 _lpython_return_variable) (RealConstant 0.000000 (Real 8 [])) ()) (Return)] (Var 13 _lpython_return_variable) Public .false. .false.), empty_float: (Function (SymbolTable 8 {_lpython_return_variable: (Variable 8 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 8 x [] In () () Default (Real 8 []) Source Public Required .false.)}) empty_float (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 8 x)] [(= (Var 8 _lpython_return_variable) (RealConstant 0.000000 (Real 8 [])) ()) (Return)] (Var 8 _lpython_return_variable) Public .false. .false.), empty_integer: (Function (SymbolTable 5 {_lpython_return_variable: (Variable 5 _lpython_return_variable [] ReturnVar () () Default (Integer 4 []) Source Public Required .false.), x: (Variable 5 x [] In () () Default (Integer 4 []) Source Public Required .false.)}) empty_integer (FunctionType [(Integer 4 [])] (Integer 4 []) Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 5 x)] [(= (Var 5 _lpython_return_variable) (IntegerConstant 0 (Integer 4 [])) ()) (Return)] (Var 5 _lpython_return_variable) Public .false. .false.), empty_string: (Function (SymbolTable 11 {_lpython_return_variable: (Variable 11 _lpython_return_variable [] ReturnVar () () Default (Character 1 -2 () []) Source Public Required .false.), x: (Variable 11 x [] In () () Default (Character 1 -2 () []) Source Public Required .false.)}) empty_string (FunctionType [(Character 1 -2 () [])] (Character 1 -2 () []) Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 11 x)] [(= (Var 11 _lpython_return_variable) (StringConstant "" (Character 1 0 () [])) ()) (Return)] (Var 11 _lpython_return_variable) Public .false. .false.), main_program: (Program (SymbolTable 19 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())]), mean: (Function (SymbolTable 14 {_lpython_return_variable: (Variable 14 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), i: (Variable 14 i [] Local () () Default (Integer 4 []) Source Public Required .false.), k: (Variable 14 k [x] Local (ListLen (Var 14 x) (Integer 4 []) ()) () Default (Integer 4 []) Source Public Required .false.), res: (Variable 14 res [] Local () () Default (TypeParameter T []) Source Public Required .false.), x: (Variable 14 x [] In () () Default (List (TypeParameter T [])) Source Public Required .false.)}) mean (FunctionType [(List (TypeParameter T []))] (Real 8 []) Source Implementation () .false. .false. .false. .false. .false. [(TypeParameter T [])] [1 zero 1 add 1 div] .false.) [zero add div] [(Var 14 x)] [(= (Var 14 k) (ListLen (Var 14 x) (Integer 4 []) ()) ()) (If (IntegerCompare (Var 14 k) Eq (IntegerConstant 0 (Integer 4 [])) (Logical 4 []) ()) [(= (Var 14 _lpython_return_variable) (RealConstant 0.000000 (Real 8 [])) ()) (Return)] []) (= (Var 14 res) (FunctionCall 1 zero () [((ListItem (Var 14 x) (IntegerConstant 0 (Integer 4 [])) (TypeParameter T []) ()))] (TypeParameter T []) () ()) ()) (DoLoop ((Var 14 i) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (Var 14 k) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(= (Var 14 res) (FunctionCall 1 add () [((Var 14 res)) ((ListItem (Var 14 x) (Var 14 i) (TypeParameter T []) ()))] (TypeParameter T []) () ()) ())]) (= (Var 14 _lpython_return_variable) (FunctionCall 1 div () [((Var 14 res)) ((Var 14 k))] (Real 8 []) () ()) ()) (Return)] (Var 14 _lpython_return_variable) Public .false. .false.), zero: (Function (SymbolTable 2 {_lpython_return_variable: (Variable 2 _lpython_return_variable [] ReturnVar () () Default (TypeParameter T []) Source Public Required .false.), x: (Variable 2 x [] In () () Default (TypeParameter T []) Source Public Required .false.)}) zero (FunctionType [(TypeParameter T [])] (TypeParameter T []) Source Implementation () .false. .false. .false. .false. .false. [(TypeParameter T [])] [] .true.) [] [(Var 2 x)] [] (Var 2 _lpython_return_variable) Public .false. .false.)}) [])
diff --git a/tests/reference/asr-global_scope1-354e217.json b/tests/reference/asr-global_scope1-354e217.json
index d4f62b9624..d54676eaab 100644
--- a/tests/reference/asr-global_scope1-354e217.json
+++ b/tests/reference/asr-global_scope1-354e217.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "asr-global_scope1-354e217.stdout",
-    "stdout_hash": "a6dcee514f3df3f81956442df3b5cdc59eead0bbf0872cb07e62fcba",
+    "stdout_hash": "58eb94b665200ab3533cdbbe20aafe23804383bedf0f300dac11ac6f",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/asr-global_scope1-354e217.stdout b/tests/reference/asr-global_scope1-354e217.stdout
index ecaf59dbd5..a1b24249a7 100644
--- a/tests/reference/asr-global_scope1-354e217.stdout
+++ b/tests/reference/asr-global_scope1-354e217.stdout
@@ -1 +1,104 @@
-(TranslationUnit (SymbolTable 1 {_lpython_main_program: (Function (SymbolTable 3 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [] [(= (Var 1 i) (IntegerConstant 5 (Integer 4 [])) ())] () Public .false. .false.), i: (Variable 1 i [] Local () () Default (Integer 4 []) Source Public Required .false.), main_program: (Program (SymbolTable 2 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())])}) [])
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            __main__global_stmts:
+                                (Function
+                                    (SymbolTable
+                                        3
+                                        {
+                                            
+                                        })
+                                    __main__global_stmts
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 2 i)
+                                        (IntegerConstant 5 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            i:
+                                (Variable
+                                    2
+                                    i
+                                    []
+                                    Local
+                                    ()
+                                    ()
+                                    Default
+                                    (Integer 4)
+                                    ()
+                                    Source
+                                    Public
+                                    Required
+                                    .false.
+                                    .false.
+                                    .false.
+                                    ()
+                                    .false.
+                                    .false.
+                                )
+                        })
+                    __main__
+                    ()
+                    []
+                    .false.
+                    .false.
+                    .false.
+                ),
+            main_program:
+                (Program
+                    (SymbolTable
+                        4
+                        {
+                            __main__global_stmts:
+                                (ExternalSymbol
+                                    4
+                                    __main__global_stmts
+                                    2 __main__global_stmts
+                                    __main__
+                                    []
+                                    __main__global_stmts
+                                    Public
+                                )
+                        })
+                    main_program
+                    [__main__]
+                    [(SubroutineCall
+                        4 __main__global_stmts
+                        2 __main__global_stmts
+                        []
+                        ()
+                        .false.
+                    )]
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-global_syms_01-273906f.json b/tests/reference/asr-global_syms_01-273906f.json
new file mode 100644
index 0000000000..ccc64aa541
--- /dev/null
+++ b/tests/reference/asr-global_syms_01-273906f.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-global_syms_01-273906f",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/../integration_tests/global_syms_01.py",
+    "infile_hash": "a561c85e452a7be71b45f7b5277fd3ab7ff79fcc596f059f00c9dd45",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": "asr-global_syms_01-273906f.stdout",
+    "stdout_hash": "77ddd9d6871686118ce2bfb0c6130bca6ba1b46182b5bafbfe47ff50",
+    "stderr": null,
+    "stderr_hash": null,
+    "returncode": 0
+}
\ No newline at end of file
diff --git a/tests/reference/asr-global_syms_01-273906f.stdout b/tests/reference/asr-global_syms_01-273906f.stdout
new file mode 100644
index 0000000000..1c4494532b
--- /dev/null
+++ b/tests/reference/asr-global_syms_01-273906f.stdout
@@ -0,0 +1,207 @@
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            __main__global_stmts:
+                                (Function
+                                    (SymbolTable
+                                        4
+                                        {
+                                            
+                                        })
+                                    __main__global_stmts
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [test_global_symbols]
+                                    []
+                                    [(Assignment
+                                        (Var 2 x)
+                                        (ListConstant
+                                            [(IntegerConstant 1 (Integer 4) Decimal)
+                                            (IntegerConstant 2 (Integer 4) Decimal)]
+                                            (List
+                                                (Integer 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 2 i)
+                                        (ListItem
+                                            (Var 2 x)
+                                            (IntegerConstant 0 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (SubroutineCall
+                                        2 test_global_symbols
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            i:
+                                (Variable
+                                    2
+                                    i
+                                    []
+                                    Local
+                                    ()
+                                    ()
+                                    Default
+                                    (Integer 4)
+                                    ()
+                                    Source
+                                    Public
+                                    Required
+                                    .false.
+                                    .false.
+                                    .false.
+                                    ()
+                                    .false.
+                                    .false.
+                                ),
+                            test_global_symbols:
+                                (Function
+                                    (SymbolTable
+                                        3
+                                        {
+                                            
+                                        })
+                                    test_global_symbols
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assert
+                                        (IntegerCompare
+                                            (Var 2 i)
+                                            Eq
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (ListItem
+                                                (Var 2 x)
+                                                (IntegerConstant 1 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerConstant 2 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            x:
+                                (Variable
+                                    2
+                                    x
+                                    []
+                                    Local
+                                    ()
+                                    ()
+                                    Default
+                                    (List
+                                        (Integer 4)
+                                    )
+                                    ()
+                                    Source
+                                    Public
+                                    Required
+                                    .false.
+                                    .false.
+                                    .false.
+                                    ()
+                                    .false.
+                                    .false.
+                                )
+                        })
+                    __main__
+                    ()
+                    []
+                    .false.
+                    .false.
+                    .false.
+                ),
+            main_program:
+                (Program
+                    (SymbolTable
+                        5
+                        {
+                            __main__global_stmts:
+                                (ExternalSymbol
+                                    5
+                                    __main__global_stmts
+                                    2 __main__global_stmts
+                                    __main__
+                                    []
+                                    __main__global_stmts
+                                    Public
+                                )
+                        })
+                    main_program
+                    [__main__]
+                    [(SubroutineCall
+                        5 __main__global_stmts
+                        2 __main__global_stmts
+                        []
+                        ()
+                        .false.
+                    )]
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-intent_01-66824bc.json b/tests/reference/asr-intent_01-66824bc.json
new file mode 100644
index 0000000000..c4001eb20e
--- /dev/null
+++ b/tests/reference/asr-intent_01-66824bc.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-intent_01-66824bc",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/intent_01.py",
+    "infile_hash": "0a8fa2940567fccee2cfccd4af40f353b74dbe542590460a195246a5",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": "asr-intent_01-66824bc.stdout",
+    "stdout_hash": "2ead5794da4c917371e75c62e1d44e27092c8790d76efc1916b7aee8",
+    "stderr": null,
+    "stderr_hash": null,
+    "returncode": 0
+}
\ No newline at end of file
diff --git a/tests/reference/asr-intent_01-66824bc.stdout b/tests/reference/asr-intent_01-66824bc.stdout
new file mode 100644
index 0000000000..41c9008a94
--- /dev/null
+++ b/tests/reference/asr-intent_01-66824bc.stdout
@@ -0,0 +1,224 @@
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            Foo:
+                                (Struct
+                                    (SymbolTable
+                                        3
+                                        {
+                                            p:
+                                                (Variable
+                                                    3
+                                                    p
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    Foo
+                                    (StructType
+                                        [(Integer 4)]
+                                        []
+                                        .true.
+                                        .false.
+                                    )
+                                    []
+                                    [p]
+                                    []
+                                    Source
+                                    Public
+                                    .false.
+                                    .false.
+                                    [(())]
+                                    ()
+                                    ()
+                                ),
+                            f:
+                                (Function
+                                    (SymbolTable
+                                        4
+                                        {
+                                            w:
+                                                (Variable
+                                                    4
+                                                    w
+                                                    []
+                                                    Out
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (StructType
+                                                            [(Integer 4)]
+                                                            []
+                                                            .true.
+                                                            .false.
+                                                        )
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 5 (Integer 4) Decimal))]
+                                                        PointerArray
+                                                    )
+                                                    2 Foo
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            x:
+                                                (Variable
+                                                    4
+                                                    x
+                                                    []
+                                                    In
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            y:
+                                                (Variable
+                                                    4
+                                                    y
+                                                    []
+                                                    In
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            z:
+                                                (Variable
+                                                    4
+                                                    z
+                                                    []
+                                                    InOut
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (List
+                                                        (UnsignedInteger
+                                                            4
+                                                        )
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    f
+                                    (FunctionType
+                                        [(Integer 4)
+                                        (Real 8)
+                                        (List
+                                            (UnsignedInteger
+                                                4
+                                            )
+                                        )
+                                        (Array
+                                            (StructType
+                                                [(Integer 4)]
+                                                []
+                                                .true.
+                                                .false.
+                                            )
+                                            [((IntegerConstant 0 (Integer 4) Decimal)
+                                            (IntegerConstant 5 (Integer 4) Decimal))]
+                                            PointerArray
+                                        )]
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    [(Var 4 x)
+                                    (Var 4 y)
+                                    (Var 4 z)
+                                    (Var 4 w)]
+                                    []
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    []
+                    .false.
+                    .false.
+                    .false.
+                ),
+            main_program:
+                (Program
+                    (SymbolTable
+                        6
+                        {
+                            
+                        })
+                    main_program
+                    []
+                    []
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-kwargs_01_error-ab9530d.json b/tests/reference/asr-kwargs_01_error-ab9530d.json
index 0b35a9ff94..6f05aa772d 100644
--- a/tests/reference/asr-kwargs_01_error-ab9530d.json
+++ b/tests/reference/asr-kwargs_01_error-ab9530d.json
@@ -2,7 +2,7 @@
     "basename": "asr-kwargs_01_error-ab9530d",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/errors/kwargs_01_error.py",
-    "infile_hash": "bd57592c667767b7e7864e17e81feb8faf49fbc1f197c7569caaa221",
+    "infile_hash": "101436b7097d29f2b8dc97561054d2ffe33d11ae5a54336813c7dada",
     "outfile": null,
     "outfile_hash": null,
     "stdout": null,
diff --git a/tests/reference/asr-kwargs_02_error-7c91f8f.json b/tests/reference/asr-kwargs_02_error-7c91f8f.json
index 51aab5f964..228d941171 100644
--- a/tests/reference/asr-kwargs_02_error-7c91f8f.json
+++ b/tests/reference/asr-kwargs_02_error-7c91f8f.json
@@ -2,7 +2,7 @@
     "basename": "asr-kwargs_02_error-7c91f8f",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/errors/kwargs_02_error.py",
-    "infile_hash": "01ebc026fa50ef7ebff1327fc789f8bb3a129b16f8c1e00078eb7a5b",
+    "infile_hash": "9f131c35f01a18365764a32dee072403fcc283705320ef6703627e5c",
     "outfile": null,
     "outfile_hash": null,
     "stdout": null,
diff --git a/tests/reference/asr-kwargs_03_error-a68cc46.json b/tests/reference/asr-kwargs_03_error-a68cc46.json
index c039a25b60..2b3ac444fa 100644
--- a/tests/reference/asr-kwargs_03_error-a68cc46.json
+++ b/tests/reference/asr-kwargs_03_error-a68cc46.json
@@ -2,7 +2,7 @@
     "basename": "asr-kwargs_03_error-a68cc46",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/errors/kwargs_03_error.py",
-    "infile_hash": "9104d22c6e2912557becd7c33744f37364eb43c01b9beff5163a1a7d",
+    "infile_hash": "1cee111472c1f8b7eea276f308ac7a1fea12438606c658bd0757973c",
     "outfile": null,
     "outfile_hash": null,
     "stdout": null,
diff --git a/tests/reference/asr-lambda_01-1ec3e01.json b/tests/reference/asr-lambda_01-1ec3e01.json
new file mode 100644
index 0000000000..31b51267b2
--- /dev/null
+++ b/tests/reference/asr-lambda_01-1ec3e01.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-lambda_01-1ec3e01",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/lambda_01.py",
+    "infile_hash": "0a22dc5de76f7c3f4f97dc4349f62e51261c0a9b3fc5e932926d438e",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-lambda_01-1ec3e01.stderr",
+    "stderr_hash": "99ca916bd82540da6812ad3149c0026c812efdbc777dbb5fb465e868",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-lambda_01-1ec3e01.stderr b/tests/reference/asr-lambda_01-1ec3e01.stderr
new file mode 100644
index 0000000000..482e01b32e
--- /dev/null
+++ b/tests/reference/asr-lambda_01-1ec3e01.stderr
@@ -0,0 +1,5 @@
+semantic error: The number of args to lambda function much match the number of args declared in function type
+ --> tests/errors/lambda_01.py:5:8
+  |
+5 |     x: Callable[[i32, i32, i32], i32] = lambda p, q, r, s: p +  q + r + s
+  |        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^          ^^^^^^^^^^ 
diff --git a/tests/reference/asr-list1-770ba33.json b/tests/reference/asr-list1-770ba33.json
index 87c1414796..34909111b7 100644
--- a/tests/reference/asr-list1-770ba33.json
+++ b/tests/reference/asr-list1-770ba33.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "asr-list1-770ba33.stdout",
-    "stdout_hash": "240932d09fd729812939cbe5cadde0191ffd74bc1e8842a29a63ea86",
+    "stdout_hash": "5e882bc52c0e551058899a83645d40b2427fb2c16c157f42e1a84e6c",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/asr-list1-770ba33.stdout b/tests/reference/asr-list1-770ba33.stdout
index 661769b756..caaf9a7153 100644
--- a/tests/reference/asr-list1-770ba33.stdout
+++ b/tests/reference/asr-list1-770ba33.stdout
@@ -1 +1,514 @@
-(TranslationUnit (SymbolTable 1 {main_program: (Program (SymbolTable 3 {}) main_program [] []), test_List: (Function (SymbolTable 2 {a: (Variable 2 a [] Local () () Default (List (Integer 4 [])) Source Public Required .false.), a11: (Variable 2 a11 [] Local () () Default (List (Integer 4 [])) Source Public Required .false.), b: (Variable 2 b [] Local () () Default (List (Character 1 -2 () [])) Source Public Required .false.), b11: (Variable 2 b11 [] Local () () Default (List (Integer 4 [])) Source Public Required .false.), c: (Variable 2 c [] Local () () Default (List (List (Integer 4 []))) Source Public Required .false.), d: (Variable 2 d [] Local () () Default (Integer 4 []) Source Public Required .false.), e: (Variable 2 e [] Local () () Default (List (List (Character 1 -2 () []))) Source Public Required .false.)}) test_List (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [] [(= (Var 2 a) (ListConstant [(IntegerConstant 1 (Integer 4 [])) (IntegerConstant 2 (Integer 4 [])) (IntegerConstant 3 (Integer 4 []))] (List (Integer 4 []))) ()) (= (Var 2 a) (ListConstant [(IntegerUnaryMinus (IntegerConstant 3 (Integer 4 [])) (Integer 4 []) (IntegerConstant -3 (Integer 4 []))) (IntegerUnaryMinus (IntegerConstant 2 (Integer 4 [])) (Integer 4 []) (IntegerConstant -2 (Integer 4 []))) (IntegerUnaryMinus (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant -1 (Integer 4 [])))] (List (Integer 4 []))) ()) (= (Var 2 b) (ListConstant [(StringConstant "a" (Character 1 1 () [])) (StringConstant "b" (Character 1 1 () [])) (StringConstant "c" (Character 1 1 () []))] (List (Character 1 1 () []))) ()) (= (Var 2 c) (ListConstant [(ListConstant [(IntegerConstant 1 (Integer 4 [])) (IntegerConstant 2 (Integer 4 [])) (IntegerConstant 3 (Integer 4 []))] (List (Integer 4 []))) (ListConstant [(IntegerConstant 4 (Integer 4 [])) (IntegerConstant 5 (Integer 4 [])) (IntegerConstant 6 (Integer 4 []))] (List (Integer 4 [])))] (List (List (Integer 4 [])))) ()) (= (Var 2 d) (ListItem (Var 2 a) (IntegerConstant 2 (Integer 4 [])) (Integer 4 []) ()) ()) (= (Var 2 e) (ListConstant [(ListConstant [(StringConstant "a" (Character 1 1 () [])) (StringConstant "b" (Character 1 1 () [])) (StringConstant "c" (Character 1 1 () []))] (List (Character 1 1 () []))) (ListConstant [(StringConstant "d" (Character 1 1 () [])) (StringConstant "e" (Character 1 1 () []))] (List (Character 1 1 () [])))] (List (List (Character 1 1 () [])))) ()) (ListAppend (Var 2 a) (IntegerConstant 10 (Integer 4 []))) (ListRemove (Var 2 a) (IntegerConstant 1 (Integer 4 []))) (ListInsert (Var 2 a) (IntegerConstant 2 (Integer 4 [])) (IntegerConstant 13 (Integer 4 []))) (= (Var 2 a) (ListSection (Var 2 a) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 2 (Integer 4 [])) ()) (List (Integer 4 [])) ()) ()) (= (Var 2 d) (ListPop (Var 2 a) (IntegerConstant -1 (Integer 4 [])) (Integer 4 []) ()) ()) (= (Var 2 d) (ListPop (Var 2 a) (IntegerConstant 2 (Integer 4 [])) (Integer 4 []) ()) ()) (= (Var 2 a) (ListConcat (Var 2 a) (ListConstant [(IntegerConstant 4 (Integer 4 [])) (IntegerConstant 5 (Integer 4 []))] (List (Integer 4 []))) (List (Integer 4 [])) ()) ()) (= (Var 2 a) (ListConcat (ListConstant [(IntegerConstant 6 (Integer 4 [])) (IntegerConstant 7 (Integer 4 []))] (List (Integer 4 []))) (Var 2 a) (List (Integer 4 [])) ()) ()) (= (Var 2 a11) (ListConstant [(IntegerConstant 1 (Integer 4 [])) (IntegerConstant 2 (Integer 4 []))] (List (Integer 4 []))) ()) (= (Var 2 b11) (ListConstant [(IntegerConstant 3 (Integer 4 [])) (IntegerConstant 4 (Integer 4 []))] (List (Integer 4 []))) ()) (Assert (ListCompare (Var 2 a11) Eq (Var 2 b11) (Logical 4 []) ()) ())] () Public .false. .false.)}) [])
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            test_List:
+                                (Function
+                                    (SymbolTable
+                                        3
+                                        {
+                                            a:
+                                                (Variable
+                                                    3
+                                                    a
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (List
+                                                        (Integer 4)
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            a11:
+                                                (Variable
+                                                    3
+                                                    a11
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (List
+                                                        (Integer 4)
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            b:
+                                                (Variable
+                                                    3
+                                                    b
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            b11:
+                                                (Variable
+                                                    3
+                                                    b11
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (List
+                                                        (Integer 4)
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            c:
+                                                (Variable
+                                                    3
+                                                    c
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (List
+                                                        (List
+                                                            (Integer 4)
+                                                        )
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            d:
+                                                (Variable
+                                                    3
+                                                    d
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            e:
+                                                (Variable
+                                                    3
+                                                    e
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (List
+                                                        (List
+                                                            (Allocatable
+                                                                (String 1 () DeferredLength DescriptorString)
+                                                            )
+                                                        )
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test_List
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 3 a)
+                                        (ListConstant
+                                            [(IntegerConstant 1 (Integer 4) Decimal)
+                                            (IntegerConstant 2 (Integer 4) Decimal)
+                                            (IntegerConstant 3 (Integer 4) Decimal)]
+                                            (List
+                                                (Integer 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 a)
+                                        (ListConstant
+                                            [(IntegerUnaryMinus
+                                                (IntegerConstant 3 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                (IntegerConstant -3 (Integer 4) Decimal)
+                                            )
+                                            (IntegerUnaryMinus
+                                                (IntegerConstant 2 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                (IntegerConstant -2 (Integer 4) Decimal)
+                                            )
+                                            (IntegerUnaryMinus
+                                                (IntegerConstant 1 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                (IntegerConstant -1 (Integer 4) Decimal)
+                                            )]
+                                            (List
+                                                (Integer 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 b)
+                                        (ListConstant
+                                            [(StringConstant
+                                                "a"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (StringConstant
+                                                "b"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (StringConstant
+                                                "c"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )]
+                                            (List
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 c)
+                                        (ListConstant
+                                            [(ListConstant
+                                                [(IntegerConstant 1 (Integer 4) Decimal)
+                                                (IntegerConstant 2 (Integer 4) Decimal)
+                                                (IntegerConstant 3 (Integer 4) Decimal)]
+                                                (List
+                                                    (Integer 4)
+                                                )
+                                            )
+                                            (ListConstant
+                                                [(IntegerConstant 4 (Integer 4) Decimal)
+                                                (IntegerConstant 5 (Integer 4) Decimal)
+                                                (IntegerConstant 6 (Integer 4) Decimal)]
+                                                (List
+                                                    (Integer 4)
+                                                )
+                                            )]
+                                            (List
+                                                (List
+                                                    (Integer 4)
+                                                )
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 d)
+                                        (ListItem
+                                            (Var 3 a)
+                                            (IntegerConstant 2 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 e)
+                                        (ListConstant
+                                            [(ListConstant
+                                                [(StringConstant
+                                                    "a"
+                                                    (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                                (StringConstant
+                                                    "b"
+                                                    (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                                (StringConstant
+                                                    "c"
+                                                    (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )]
+                                                (List
+                                                    (Allocatable
+                                                        (String 1 () DeferredLength DescriptorString)
+                                                    )
+                                                )
+                                            )
+                                            (ListConstant
+                                                [(StringConstant
+                                                    "d"
+                                                    (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                                (StringConstant
+                                                    "e"
+                                                    (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )]
+                                                (List
+                                                    (Allocatable
+                                                        (String 1 () DeferredLength DescriptorString)
+                                                    )
+                                                )
+                                            )]
+                                            (List
+                                                (List
+                                                    (Allocatable
+                                                        (String 1 () DeferredLength DescriptorString)
+                                                    )
+                                                )
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (ListAppend
+                                        (Var 3 a)
+                                        (IntegerConstant 10 (Integer 4) Decimal)
+                                    )
+                                    (ListRemove
+                                        (Var 3 a)
+                                        (IntegerConstant 1 (Integer 4) Decimal)
+                                    )
+                                    (ListInsert
+                                        (Var 3 a)
+                                        (IntegerConstant 2 (Integer 4) Decimal)
+                                        (IntegerConstant 13 (Integer 4) Decimal)
+                                    )
+                                    (Assignment
+                                        (Var 3 a)
+                                        (ListSection
+                                            (Var 3 a)
+                                            ((IntegerConstant 0 (Integer 4) Decimal)
+                                            (IntegerConstant 2 (Integer 4) Decimal)
+                                            ())
+                                            (List
+                                                (Integer 4)
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 d)
+                                        (IntrinsicElementalFunction
+                                            ListPop
+                                            [(Var 3 a)]
+                                            0
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 d)
+                                        (IntrinsicElementalFunction
+                                            ListPop
+                                            [(Var 3 a)
+                                            (IntegerConstant 2 (Integer 4) Decimal)]
+                                            1
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 a)
+                                        (ListConcat
+                                            (Var 3 a)
+                                            (ListConstant
+                                                [(IntegerConstant 4 (Integer 4) Decimal)
+                                                (IntegerConstant 5 (Integer 4) Decimal)]
+                                                (List
+                                                    (Integer 4)
+                                                )
+                                            )
+                                            (List
+                                                (Integer 4)
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 a)
+                                        (ListConcat
+                                            (ListConstant
+                                                [(IntegerConstant 6 (Integer 4) Decimal)
+                                                (IntegerConstant 7 (Integer 4) Decimal)]
+                                                (List
+                                                    (Integer 4)
+                                                )
+                                            )
+                                            (Var 3 a)
+                                            (List
+                                                (Integer 4)
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 a11)
+                                        (ListConstant
+                                            [(IntegerConstant 1 (Integer 4) Decimal)
+                                            (IntegerConstant 2 (Integer 4) Decimal)]
+                                            (List
+                                                (Integer 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 b11)
+                                        (ListConstant
+                                            [(IntegerConstant 3 (Integer 4) Decimal)
+                                            (IntegerConstant 4 (Integer 4) Decimal)]
+                                            (List
+                                                (Integer 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (ListCompare
+                                            (Var 3 a11)
+                                            Eq
+                                            (Var 3 b11)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    []
+                    .false.
+                    .false.
+                    .false.
+                ),
+            main_program:
+                (Program
+                    (SymbolTable
+                        4
+                        {
+                            
+                        })
+                    main_program
+                    []
+                    []
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-loop1-10d3109.json b/tests/reference/asr-loop1-10d3109.json
deleted file mode 100644
index f0c711503e..0000000000
--- a/tests/reference/asr-loop1-10d3109.json
+++ /dev/null
@@ -1,13 +0,0 @@
-{
-    "basename": "asr-loop1-10d3109",
-    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
-    "infile": "tests/loop1.py",
-    "infile_hash": "0eee568be1d20a4c31b59c33ae2b47509fce3f6047fa1ffa592947e9",
-    "outfile": null,
-    "outfile_hash": null,
-    "stdout": "asr-loop1-10d3109.stdout",
-    "stdout_hash": "d539ac6a5ad10d8fe38aa057906effbf3e7c24f189edfee059d1fb68",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
-}
\ No newline at end of file
diff --git a/tests/reference/asr-loop1-10d3109.stdout b/tests/reference/asr-loop1-10d3109.stdout
deleted file mode 100644
index cd318054a8..0000000000
--- a/tests/reference/asr-loop1-10d3109.stdout
+++ /dev/null
@@ -1 +0,0 @@
-(TranslationUnit (SymbolTable 1 {_lpython_main_program: (Function (SymbolTable 8 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [main0] [] [(SubroutineCall 1 main0 () [] ())] () Public .false. .false.), main0: (Function (SymbolTable 5 {i: (Variable 5 i [] Local () () Default (Integer 4 []) Source Public Required .false.), j: (Variable 5 j [] Local () () Default (Integer 8 []) Source Public Required .false.)}) main0 (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [test_factorial_1 test_factorial_2 test_factorial_3] [] [(= (Var 5 i) (FunctionCall 1 test_factorial_1 () [((IntegerConstant 4 (Integer 4 [])))] (Integer 4 []) () ()) ()) (= (Var 5 i) (FunctionCall 1 test_factorial_2 () [((IntegerConstant 4 (Integer 4 [])))] (Integer 4 []) () ()) ()) (= (Var 5 j) (FunctionCall 1 test_factorial_3 () [((IntegerConstant 5 (Integer 4 [])))] (Integer 8 []) () ()) ())] () Public .false. .false.), main_program: (Program (SymbolTable 7 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())]), test_factorial_1: (Function (SymbolTable 2 {_lpython_return_variable: (Variable 2 _lpython_return_variable [] ReturnVar () () Default (Integer 4 []) Source Public Required .false.), result: (Variable 2 result [] Local () () Default (Integer 4 []) Source Public Required .false.), x: (Variable 2 x [] In () () Default (Integer 4 []) Source Public Required .false.)}) test_factorial_1 (FunctionType [(Integer 4 [])] (Integer 4 []) Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 2 x)] [(If (IntegerCompare (Var 2 x) Lt (IntegerConstant 0 (Integer 4 [])) (Logical 4 []) ()) [(= (Var 2 _lpython_return_variable) (IntegerConstant 0 (Integer 4 [])) ()) (Return)] []) (= (Var 2 result) (IntegerConstant 1 (Integer 4 [])) ()) (WhileLoop (IntegerCompare (Var 2 x) Gt (IntegerConstant 0 (Integer 4 [])) (Logical 4 []) ()) [(= (Var 2 result) (IntegerBinOp (Var 2 result) Mul (Var 2 x) (Integer 4 []) ()) ()) (= (Var 2 x) (IntegerBinOp (Var 2 x) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) ())]) (= (Var 2 _lpython_return_variable) (Var 2 result) ()) (Return)] (Var 2 _lpython_return_variable) Public .false. .false.), test_factorial_2: (Function (SymbolTable 3 {_lpython_return_variable: (Variable 3 _lpython_return_variable [] ReturnVar () () Default (Integer 4 []) Source Public Required .false.), i: (Variable 3 i [] Local () () Default (Integer 4 []) Source Public Required .false.), result: (Variable 3 result [] Local () () Default (Integer 4 []) Source Public Required .false.), x: (Variable 3 x [] In () () Default (Integer 4 []) Source Public Required .false.)}) test_factorial_2 (FunctionType [(Integer 4 [])] (Integer 4 []) Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 3 x)] [(= (Var 3 result) (IntegerConstant 1 (Integer 4 [])) ()) (DoLoop ((Var 3 i) (IntegerConstant 1 (Integer 4 [])) (IntegerBinOp (IntegerBinOp (Var 3 x) Add (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(= (Var 3 result) (IntegerBinOp (Var 3 result) Mul (Var 3 i) (Integer 4 []) ()) ())]) (= (Var 3 _lpython_return_variable) (Var 3 result) ()) (Return)] (Var 3 _lpython_return_variable) Public .false. .false.), test_factorial_3: (Function (SymbolTable 4 {_lpython_return_variable: (Variable 4 _lpython_return_variable [] ReturnVar () () Default (Integer 8 []) Source Public Required .false.), result: (Variable 4 result [] Local () () Default (Integer 8 []) Source Public Required .false.), x: (Variable 4 x [] In () () Default (Integer 4 []) Source Public Required .false.)}) test_factorial_3 (FunctionType [(Integer 4 [])] (Integer 8 []) Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 4 x)] [(= (Var 4 result) (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 0 (Integer 8 []))) ()) (If (IntegerCompare (Var 4 x) Lt (IntegerConstant 0 (Integer 4 [])) (Logical 4 []) ()) [(= (Var 4 _lpython_return_variable) (Var 4 result) ()) (Return)] []) (= (Var 4 result) (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 1 (Integer 8 []))) ()) (WhileLoop (IntegerCompare (Var 4 x) Gt (IntegerConstant 0 (Integer 4 [])) (Logical 4 []) ()) [(= (Var 4 result) (IntegerBinOp (Var 4 result) Mul (Cast (Var 4 x) IntegerToInteger (Integer 8 []) ()) (Integer 8 []) ()) ()) (= (Var 4 x) (IntegerBinOp (Var 4 x) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) ())]) (= (Var 4 _lpython_return_variable) (Var 4 result) ()) (Return)] (Var 4 _lpython_return_variable) Public .false. .false.)}) [])
diff --git a/tests/reference/asr-loop2-e874469.json b/tests/reference/asr-loop2-e874469.json
deleted file mode 100644
index fdfcf68e9b..0000000000
--- a/tests/reference/asr-loop2-e874469.json
+++ /dev/null
@@ -1,13 +0,0 @@
-{
-    "basename": "asr-loop2-e874469",
-    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
-    "infile": "tests/loop2.py",
-    "infile_hash": "7946c522ceb16f99810780d4aba7fa2593695a4b49fb35ea1f131f53",
-    "outfile": null,
-    "outfile_hash": null,
-    "stdout": "asr-loop2-e874469.stdout",
-    "stdout_hash": "a9f6695d33dd6b4a57e403bdd5b65244a55aab2ffab8bb9108580ec7",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
-}
\ No newline at end of file
diff --git a/tests/reference/asr-loop2-e874469.stdout b/tests/reference/asr-loop2-e874469.stdout
deleted file mode 100644
index d6d440020b..0000000000
--- a/tests/reference/asr-loop2-e874469.stdout
+++ /dev/null
@@ -1 +0,0 @@
-(TranslationUnit (SymbolTable 1 {_lpython_main_program: (Function (SymbolTable 12 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [test_for] [] [(SubroutineCall 1 test_for () [] ())] () Public .false. .false.), exit: (ExternalSymbol 1 exit 3 exit sys [] exit Public), main_program: (Program (SymbolTable 11 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())]), sys: (Module (SymbolTable 3 {_lpython_argv: (Function (SymbolTable 5 {_lpython_return_variable: (Variable 5 _lpython_return_variable [] ReturnVar () () Default (List (Character 1 -2 () [])) Source Public Required .false.), argc: (Variable 5 argc [] Local (FunctionCall 3 _lpython_get_argc () [] (Integer 4 []) () ()) () Default (Integer 4 []) Source Public Required .false.), argv: (Variable 5 argv [] Local () () Default (List (Character 1 -2 () [])) Source Public Required .false.), i: (Variable 5 i [] Local () () Default (Integer 4 []) Source Public Required .false.)}) _lpython_argv (FunctionType [] (List (Character 1 -2 () [])) Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [_lpython_get_argc _lpython_get_argc _lpython_get_argv] [] [(= (Var 5 argc) (FunctionCall 3 _lpython_get_argc () [] (Integer 4 []) () ()) ()) (DoLoop ((Var 5 i) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (Var 5 argc) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(ListAppend (Var 5 argv) (FunctionCall 3 _lpython_get_argv () [((Var 5 i))] (Character 1 -2 () []) () ()))]) (= (Var 5 _lpython_return_variable) (Var 5 argv) ()) (Return)] (Var 5 _lpython_return_variable) Public .false. .false.), _lpython_get_argc: (Function (SymbolTable 6 {_lpython_return_variable: (Variable 6 _lpython_return_variable [] ReturnVar () () Default (Integer 4 []) BindC Public Required .false.)}) _lpython_get_argc (FunctionType [] (Integer 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [] [] (Var 6 _lpython_return_variable) Public .false. .false.), _lpython_get_argv: (Function (SymbolTable 7 {_lpython_return_variable: (Variable 7 _lpython_return_variable [] ReturnVar () () Default (Character 1 -2 () []) BindC Public Required .false.), index: (Variable 7 index [] In () () Default (Integer 4 []) BindC Public Required .true.)}) _lpython_get_argv (FunctionType [(Integer 4 [])] (Character 1 -2 () []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 7 index)] [] (Var 7 _lpython_return_variable) Public .false. .false.), exit: (Function (SymbolTable 4 {error_code: (Variable 4 error_code [] In () () Default (Integer 4 []) Source Public Required .false.)}) exit (FunctionType [(Integer 4 [])] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 4 error_code)] [(Stop (Var 4 error_code))] () Public .false. .false.)}) sys [] .false. .false.), test_for: (Function (SymbolTable 9 {i: (Variable 9 i [] Local () () Default (Integer 4 []) Source Public Required .false.)}) test_for (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [exit] [] [(DoLoop ((Var 9 i) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (IntegerConstant 10 (Integer 4 [])) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant 9 (Integer 4 []))) (IntegerConstant 1 (Integer 4 []))) [(If (IntegerCompare (Var 9 i) Eq (IntegerConstant 0 (Integer 4 [])) (Logical 4 []) ()) [(Cycle)] []) (If (IntegerCompare (Var 9 i) Gt (IntegerConstant 5 (Integer 4 [])) (Logical 4 []) ()) [(Exit)] []) (If (IntegerCompare (Var 9 i) Eq (IntegerConstant 3 (Integer 4 [])) (Logical 4 []) ()) [(Stop ())] [])]) (SubroutineCall 1 exit () [((IntegerConstant 2 (Integer 4 [])))] ())] () Public .false. .false.)}) [])
diff --git a/tests/reference/asr-loop3-a579196.json b/tests/reference/asr-loop3-a579196.json
index ddd2223dfc..75f1a0f6ca 100644
--- a/tests/reference/asr-loop3-a579196.json
+++ b/tests/reference/asr-loop3-a579196.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "asr-loop3-a579196.stdout",
-    "stdout_hash": "3abf6d5f47236ac1e19bd51bcf889da303bdb23f6102e4cf92f8384d",
+    "stdout_hash": "a52831244585309809ab3beeccf8acb916745ee459e38f628caa89c5",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/asr-loop3-a579196.stdout b/tests/reference/asr-loop3-a579196.stdout
index cd5d4ee425..6f643e1a8d 100644
--- a/tests/reference/asr-loop3-a579196.stdout
+++ b/tests/reference/asr-loop3-a579196.stdout
@@ -1 +1,100 @@
-(TranslationUnit (SymbolTable 1 {main_program: (Program (SymbolTable 3 {}) main_program [] []), test_pass: (Function (SymbolTable 2 {a: (Variable 2 a [] Local () () Default (Integer 4 []) Source Public Required .false.)}) test_pass (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [] [(= (Var 2 a) (IntegerConstant 1 (Integer 4 [])) ()) (WhileLoop (IntegerCompare (Var 2 a) Gt (IntegerConstant 0 (Integer 4 [])) (Logical 4 []) ()) [])] () Public .false. .false.)}) [])
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            test_pass:
+                                (Function
+                                    (SymbolTable
+                                        3
+                                        {
+                                            a:
+                                                (Variable
+                                                    3
+                                                    a
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test_pass
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 3 a)
+                                        (IntegerConstant 1 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (WhileLoop
+                                        ()
+                                        (IntegerCompare
+                                            (Var 3 a)
+                                            Gt
+                                            (IntegerConstant 0 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        []
+                                        []
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    []
+                    .false.
+                    .false.
+                    .false.
+                ),
+            main_program:
+                (Program
+                    (SymbolTable
+                        4
+                        {
+                            
+                        })
+                    main_program
+                    []
+                    []
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-loop4-3d3216e.json b/tests/reference/asr-loop4-3d3216e.json
new file mode 100644
index 0000000000..ec8a11a60e
--- /dev/null
+++ b/tests/reference/asr-loop4-3d3216e.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-loop4-3d3216e",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/loop4.py",
+    "infile_hash": "660eb1a895c81609d791240171fc34b6f0fea02c43de8f86420b06b7",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": "asr-loop4-3d3216e.stdout",
+    "stdout_hash": "545496f1c4d06cad141b117a73ff222c52531dee9e464d85ae5285bd",
+    "stderr": null,
+    "stderr_hash": null,
+    "returncode": 0
+}
\ No newline at end of file
diff --git a/tests/reference/asr-loop4-3d3216e.stdout b/tests/reference/asr-loop4-3d3216e.stdout
new file mode 100644
index 0000000000..a58f4686ce
--- /dev/null
+++ b/tests/reference/asr-loop4-3d3216e.stdout
@@ -0,0 +1,189 @@
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            __main__global_stmts:
+                                (Function
+                                    (SymbolTable
+                                        5
+                                        {
+                                            
+                                        })
+                                    __main__global_stmts
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [test_for]
+                                    []
+                                    [(SubroutineCall
+                                        2 test_for
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            test_for:
+                                (Function
+                                    (SymbolTable
+                                        3
+                                        {
+                                            i:
+                                                (Variable
+                                                    3
+                                                    i
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test_for
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(DoLoop
+                                        ()
+                                        ((Var 3 i)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (IntegerConstant 10 (Integer 4) Decimal)
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            (IntegerConstant 9 (Integer 4) Decimal)
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(If
+                                            ()
+                                            (IntegerCompare
+                                                (Var 3 i)
+                                                Eq
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            [(Cycle
+                                                ()
+                                            )]
+                                            []
+                                        )
+                                        (If
+                                            ()
+                                            (IntegerCompare
+                                                (Var 3 i)
+                                                Gt
+                                                (IntegerConstant 5 (Integer 4) Decimal)
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            [(Exit
+                                                ()
+                                            )]
+                                            []
+                                        )
+                                        (If
+                                            ()
+                                            (IntegerCompare
+                                                (Var 3 i)
+                                                Eq
+                                                (IntegerConstant 3 (Integer 4) Decimal)
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            [(Stop
+                                                ()
+                                            )]
+                                            []
+                                        )]
+                                        []
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    []
+                    .false.
+                    .false.
+                    .false.
+                ),
+            main_program:
+                (Program
+                    (SymbolTable
+                        6
+                        {
+                            __main__global_stmts:
+                                (ExternalSymbol
+                                    6
+                                    __main__global_stmts
+                                    2 __main__global_stmts
+                                    __main__
+                                    []
+                                    __main__global_stmts
+                                    Public
+                                )
+                        })
+                    main_program
+                    [__main__]
+                    [(SubroutineCall
+                        6 __main__global_stmts
+                        2 __main__global_stmts
+                        []
+                        ()
+                        .false.
+                    )]
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-loop_01-e7aa06a.json b/tests/reference/asr-loop_01-e7aa06a.json
index 6a0877e5d6..943ce68e64 100644
--- a/tests/reference/asr-loop_01-e7aa06a.json
+++ b/tests/reference/asr-loop_01-e7aa06a.json
@@ -2,7 +2,7 @@
     "basename": "asr-loop_01-e7aa06a",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/errors/loop_01.py",
-    "infile_hash": "dfe89b806a2b527a01526e9e55edc1271783e1ab916245222b561dee",
+    "infile_hash": "fd8dbfec9ebfe2be47e713f169a8bba58de81c0d1b8988dcc86523b2",
     "outfile": null,
     "outfile_hash": null,
     "stdout": null,
diff --git a/tests/reference/asr-loop_02-5741651.json b/tests/reference/asr-loop_02-5741651.json
index 2e27cb758b..236ad8ba7a 100644
--- a/tests/reference/asr-loop_02-5741651.json
+++ b/tests/reference/asr-loop_02-5741651.json
@@ -2,7 +2,7 @@
     "basename": "asr-loop_02-5741651",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/errors/loop_02.py",
-    "infile_hash": "e88f2cac76a9de67c851a22a64cdae4553321d80ae64f5720a424a15",
+    "infile_hash": "7d28fdea517343528470d43c64f2759fd202ee66764d2d4ddbe5ea27",
     "outfile": null,
     "outfile_hash": null,
     "stdout": null,
diff --git a/tests/reference/asr-loop_03-401ab45.json b/tests/reference/asr-loop_03-401ab45.json
new file mode 100644
index 0000000000..16313f16a7
--- /dev/null
+++ b/tests/reference/asr-loop_03-401ab45.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-loop_03-401ab45",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/loop_03.py",
+    "infile_hash": "0dce15506e10f77faf350e3e7bf5dc4f39a6723c74f33eeb1f6342bc",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-loop_03-401ab45.stderr",
+    "stderr_hash": "cc8945240941626554f3ebeecadc96aa4ee6ea80415352dfefce2786",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-loop_03-401ab45.stderr b/tests/reference/asr-loop_03-401ab45.stderr
new file mode 100644
index 0000000000..f558b6c0fd
--- /dev/null
+++ b/tests/reference/asr-loop_03-401ab45.stderr
@@ -0,0 +1,5 @@
+semantic error: Assignment to loop variable `i` is not allowed
+ --> tests/errors/loop_03.py:5:9
+  |
+5 |         i=i*10
+  |         ^ 
diff --git a/tests/reference/asr-modules_02-ec92e6f.json b/tests/reference/asr-modules_02-ec92e6f.json
index 60b7c833fc..6ccb96ec01 100644
--- a/tests/reference/asr-modules_02-ec92e6f.json
+++ b/tests/reference/asr-modules_02-ec92e6f.json
@@ -2,11 +2,11 @@
     "basename": "asr-modules_02-ec92e6f",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/../integration_tests/modules_02.py",
-    "infile_hash": "d1e8c86cf657c96ea4fb2927ee87b3cd25956936aa49176ff0a0073d",
+    "infile_hash": "dcb00ac27cbbcdec61d81f1df9e852ba81a2197e7804ec89cab76e44",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "asr-modules_02-ec92e6f.stdout",
-    "stdout_hash": "0122e882fabc496512ef8ee73caddadd9b511bca7f20501c1511adee",
+    "stdout_hash": "35714dad9d5e6a6b8de5b6d7b3c902aaccbdd51d7acb34f8f4c38a68",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/asr-modules_02-ec92e6f.stdout b/tests/reference/asr-modules_02-ec92e6f.stdout
index a670b0c86d..f7f5cb01ba 100644
--- a/tests/reference/asr-modules_02-ec92e6f.stdout
+++ b/tests/reference/asr-modules_02-ec92e6f.stdout
@@ -1 +1,310 @@
-(TranslationUnit (SymbolTable 1 {_lpython_main_program: (Function (SymbolTable 10 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [main0] [] [(SubroutineCall 1 main0 () [] ())] () Public .false. .false.), f: (ExternalSymbol 1 f 3 f modules_02b [] f Public), main0: (Function (SymbolTable 8 {x: (Variable 8 x [] Local () () Default (Integer 4 []) Source Public Required .false.)}) main0 (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [f] [] [(= (Var 8 x) (IntegerBinOp (IntegerBinOp (IntegerConstant 2 (Integer 4 [])) Add (IntegerConstant 3 (Integer 4 [])) (Integer 4 []) (IntegerConstant 5 (Integer 4 []))) Mul (IntegerConstant 5 (Integer 4 [])) (Integer 4 []) (IntegerConstant 25 (Integer 4 []))) ()) (Assert (IntegerCompare (Var 8 x) Eq (IntegerConstant 25 (Integer 4 [])) (Logical 4 []) ()) ()) (SubroutineCall 1 f () [] ())] () Public .false. .false.), main_program: (Program (SymbolTable 9 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())]), modules_02b: (Module (SymbolTable 3 {f: (Function (SymbolTable 7 {}) f (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [g] [] [(SubroutineCall 3 g () [] ()) (Print () [(StringConstant "f()" (Character 1 3 () []))] () ())] () Public .false. .false.), g: (ExternalSymbol 3 g 5 g modules_02c [] g Public)}) modules_02b [modules_02c] .false. .false.), modules_02c: (Module (SymbolTable 5 {g: (Function (SymbolTable 6 {}) g (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [] [(Print () [(StringConstant "g()" (Character 1 3 () []))] () ())] () Public .false. .false.)}) modules_02c [] .false. .false.)}) [])
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            __main__global_stmts:
+                                (Function
+                                    (SymbolTable
+                                        8
+                                        {
+                                            
+                                        })
+                                    __main__global_stmts
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [main0]
+                                    []
+                                    [(SubroutineCall
+                                        2 main0
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            f:
+                                (ExternalSymbol
+                                    2
+                                    f
+                                    3 f
+                                    modules_02b
+                                    []
+                                    f
+                                    Public
+                                ),
+                            main0:
+                                (Function
+                                    (SymbolTable
+                                        7
+                                        {
+                                            x:
+                                                (Variable
+                                                    7
+                                                    x
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    main0
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 7 x)
+                                        (IntegerBinOp
+                                            (IntegerBinOp
+                                                (IntegerConstant 2 (Integer 4) Decimal)
+                                                Add
+                                                (IntegerConstant 3 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                (IntegerConstant 5 (Integer 4) Decimal)
+                                            )
+                                            Mul
+                                            (IntegerConstant 5 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            (IntegerConstant 25 (Integer 4) Decimal)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (Var 7 x)
+                                            Eq
+                                            (IntegerConstant 25 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (SubroutineCall
+                                        2 f
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    [modules_02b]
+                    .false.
+                    .false.
+                    .false.
+                ),
+            main_program:
+                (Program
+                    (SymbolTable
+                        9
+                        {
+                            __main__global_stmts:
+                                (ExternalSymbol
+                                    9
+                                    __main__global_stmts
+                                    2 __main__global_stmts
+                                    __main__
+                                    []
+                                    __main__global_stmts
+                                    Public
+                                )
+                        })
+                    main_program
+                    [__main__]
+                    [(SubroutineCall
+                        9 __main__global_stmts
+                        2 __main__global_stmts
+                        []
+                        ()
+                        .false.
+                    )]
+                ),
+            modules_02b:
+                (Module
+                    (SymbolTable
+                        3
+                        {
+                            f:
+                                (Function
+                                    (SymbolTable
+                                        6
+                                        {
+                                            
+                                        })
+                                    f
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(SubroutineCall
+                                        3 g
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(StringConstant
+                                                "f()"
+                                                (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            g:
+                                (ExternalSymbol
+                                    3
+                                    g
+                                    4 g
+                                    modules_02c
+                                    []
+                                    g
+                                    Public
+                                )
+                        })
+                    modules_02b
+                    ()
+                    [modules_02c]
+                    .false.
+                    .false.
+                    .false.
+                ),
+            modules_02c:
+                (Module
+                    (SymbolTable
+                        4
+                        {
+                            g:
+                                (Function
+                                    (SymbolTable
+                                        5
+                                        {
+                                            
+                                        })
+                                    g
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Print
+                                        (StringFormat
+                                            ()
+                                            [(StringConstant
+                                                "g()"
+                                                (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    modules_02c
+                    ()
+                    []
+                    .false.
+                    .false.
+                    .false.
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-print_02-afbe092.json b/tests/reference/asr-print_02-afbe092.json
index 34a60233e2..007f14f3e2 100644
--- a/tests/reference/asr-print_02-afbe092.json
+++ b/tests/reference/asr-print_02-afbe092.json
@@ -2,11 +2,11 @@
     "basename": "asr-print_02-afbe092",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/../integration_tests/print_02.py",
-    "infile_hash": "c2a1fef856c4162154056d5aaea2acdf325f21bf8e43703f71d71fac",
+    "infile_hash": "c4513f1b2ab1a2f33a0784fe80b4d32b506c05799b0c920c4f5b0411",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "asr-print_02-afbe092.stdout",
-    "stdout_hash": "e5b3868693dad083f7efcba720dfcfbb6cba83a6790cd419cff646a3",
+    "stdout_hash": "81b28e9c321e4c2f5c4979702be9155fdb7a0bbe0044b34470a55926",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/asr-print_02-afbe092.stdout b/tests/reference/asr-print_02-afbe092.stdout
index ffe15ac2ff..5fd1be62f2 100644
--- a/tests/reference/asr-print_02-afbe092.stdout
+++ b/tests/reference/asr-print_02-afbe092.stdout
@@ -1 +1,3257 @@
-(TranslationUnit (SymbolTable 1 {_lpython_main_program: (Function (SymbolTable 8 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [check] [] [(SubroutineCall 1 check () [] ())] () Public .false. .false.), check: (Function (SymbolTable 6 {}) check (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [f test_nested_lists test_nested_lists2 test_print_list_tuple] [] [(SubroutineCall 1 f () [] ()) (SubroutineCall 1 test_nested_lists () [] ()) (SubroutineCall 1 test_nested_lists2 () [] ()) (SubroutineCall 1 test_print_list_tuple () [] ())] () Public .false. .false.), f: (Function (SymbolTable 2 {a: (Variable 2 a [] Local () () Default (List (Character 1 -2 () [])) Source Public Required .false.), b: (Variable 2 b [] Local () () Default (List (Integer 4 [])) Source Public Required .false.), c: (Variable 2 c [] Local () () Default (List (Real 8 [])) Source Public Required .false.), d: (Variable 2 d [] Local () () Default (List (Integer 4 [])) Source Public Required .false.)}) f (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [] [(= (Var 2 a) (ListConstant [(StringConstant "ab" (Character 1 2 () [])) (StringConstant "abc" (Character 1 3 () [])) (StringConstant "abcd" (Character 1 4 () []))] (List (Character 1 2 () []))) ()) (= (Var 2 b) (ListConstant [(IntegerConstant 1 (Integer 4 [])) (IntegerConstant 2 (Integer 4 [])) (IntegerConstant 3 (Integer 4 [])) (IntegerConstant 4 (Integer 4 []))] (List (Integer 4 []))) ()) (= (Var 2 c) (ListConstant [(RealConstant 1.230000 (Real 8 [])) (RealConstant 324.300000 (Real 8 [])) (RealConstant 56.431000 (Real 8 [])) (RealConstant 90.500000 (Real 8 [])) (RealConstant 34.100000 (Real 8 []))] (List (Real 8 []))) ()) (= (Var 2 d) (ListConstant [] (List (Integer 4 []))) ()) (Print () [(Var 2 a)] () ()) (Print () [(Var 2 b)] () ()) (Print () [(Var 2 c)] () ()) (Print () [(Var 2 d)] () ()) (Print () [(Var 2 a) (Var 2 a) (Var 2 b) (Var 2 c) (Var 2 d)] () ()) (Print () [(Var 2 a) (Var 2 a) (IntegerConstant 1 (Integer 4 [])) (Var 2 b) (Var 2 c) (RealConstant 1.100000 (Real 8 [])) (Var 2 d)] () ()) (Print () [(ListConstant [(IntegerUnaryMinus (IntegerConstant 3 (Integer 4 [])) (Integer 4 []) (IntegerConstant -3 (Integer 4 []))) (IntegerConstant 2 (Integer 4 [])) (IntegerConstant 1 (Integer 4 [])) (IntegerConstant 0 (Integer 4 []))] (List (Integer 4 [])))] () ()) (Print () [(ListConstant [(StringConstant "a" (Character 1 1 () [])) (StringConstant "b" (Character 1 1 () [])) (StringConstant "c" (Character 1 1 () [])) (StringConstant "d" (Character 1 1 () [])) (StringConstant "e" (Character 1 1 () [])) (StringConstant "f" (Character 1 1 () []))] (List (Character 1 1 () [])))] () ()) (Print () [(ListConstant [(IntegerConstant 1 (Integer 4 [])) (IntegerConstant 2 (Integer 4 [])) (IntegerConstant 3 (Integer 4 [])) (IntegerConstant 4 (Integer 4 []))] (List (Integer 4 []))) (Var 2 a) (Var 2 c)] () ())] () Public .false. .false.), main_program: (Program (SymbolTable 7 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())]), test_nested_lists: (Function (SymbolTable 3 {w: (Variable 3 w [] Local () () Default (List (List (List (List (List (Real 8 [])))))) Source Public Required .false.), x: (Variable 3 x [] Local () () Default (List (List (List (Integer 4 [])))) Source Public Required .false.), y: (Variable 3 y [] Local () () Default (List (List (Real 8 []))) Source Public Required .false.), z: (Variable 3 z [] Local () () Default (List (List (Character 1 -2 () []))) Source Public Required .false.)}) test_nested_lists (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [] [(= (Var 3 w) (ListConstant [(ListConstant [(ListConstant [(ListConstant [(ListConstant [(RealConstant 2.130000 (Real 8 [])) (RealUnaryMinus (RealConstant 98.170000 (Real 8 [])) (Real 8 []) (RealConstant -98.170000 (Real 8 [])))] (List (Real 8 [])))] (List (List (Real 8 []))))] (List (List (List (Real 8 []))))) (ListConstant [(ListConstant [(ListConstant [(RealConstant 1.110000 (Real 8 []))] (List (Real 8 [])))] (List (List (Real 8 []))))] (List (List (List (Real 8 [])))))] (List (List (List (List (Real 8 []))))))] (List (List (List (List (List (Real 8 []))))))) ()) (= (Var 3 x) (ListConstant [(ListConstant [(ListConstant [(IntegerConstant 3 (Integer 4 [])) (IntegerUnaryMinus (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant -1 (Integer 4 [])))] (List (Integer 4 []))) (ListConstant [(IntegerUnaryMinus (IntegerConstant 2 (Integer 4 [])) (Integer 4 []) (IntegerConstant -2 (Integer 4 []))) (IntegerConstant 5 (Integer 4 []))] (List (Integer 4 []))) (ListConstant [(IntegerConstant 5 (Integer 4 []))] (List (Integer 4 [])))] (List (List (Integer 4 [])))) (ListConstant [(ListConstant [(IntegerUnaryMinus (IntegerConstant 3 (Integer 4 [])) (Integer 4 []) (IntegerConstant -3 (Integer 4 []))) (IntegerConstant 1 (Integer 4 []))] (List (Integer 4 []))) (ListConstant [(IntegerConstant 2 (Integer 4 [])) (IntegerUnaryMinus (IntegerConstant 5 (Integer 4 [])) (Integer 4 []) (IntegerConstant -5 (Integer 4 [])))] (List (Integer 4 []))) (ListConstant [(IntegerUnaryMinus (IntegerConstant 5 (Integer 4 [])) (Integer 4 []) (IntegerConstant -5 (Integer 4 [])))] (List (Integer 4 [])))] (List (List (Integer 4 []))))] (List (List (List (Integer 4 []))))) ()) (= (Var 3 y) (ListConstant [(ListConstant [(RealConstant 3.140000 (Real 8 [])) (RealUnaryMinus (RealConstant 1.001200 (Real 8 [])) (Real 8 []) (RealConstant -1.001200 (Real 8 [])))] (List (Real 8 []))) (ListConstant [(RealUnaryMinus (RealConstant 2.380000 (Real 8 [])) (Real 8 []) (RealConstant -2.380000 (Real 8 []))) (RealConstant 5.510000 (Real 8 []))] (List (Real 8 [])))] (List (List (Real 8 [])))) ()) (= (Var 3 z) (ListConstant [(ListConstant [(StringConstant "bat" (Character 1 3 () [])) (StringConstant "ball" (Character 1 4 () []))] (List (Character 1 3 () []))) (ListConstant [(StringConstant "cat" (Character 1 3 () [])) (StringConstant "dog" (Character 1 3 () []))] (List (Character 1 3 () []))) (ListConstant [(StringConstant "c" (Character 1 1 () [])) (StringConstant "c++" (Character 1 3 () [])) (StringConstant "java" (Character 1 4 () [])) (StringConstant "python" (Character 1 6 () []))] (List (Character 1 1 () [])))] (List (List (Character 1 3 () [])))) ()) (Print () [(Var 3 w)] () ()) (Print () [(Var 3 x)] () ()) (Print () [(Var 3 y)] () ()) (Print () [(Var 3 z)] () ())] () Public .false. .false.), test_nested_lists2: (Function (SymbolTable 5 {p: (Variable 5 p [] Local () () Default (List (List (Integer 4 []))) Source Public Required .false.), q: (Variable 5 q [] Local () () Default (List (List (List (List (Real 8 []))))) Source Public Required .false.), r: (Variable 5 r [] Local () () Default (List (List (List (Character 1 -2 () [])))) Source Public Required .false.)}) test_nested_lists2 (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [] [(= (Var 5 p) (ListConstant [(ListConstant [(IntegerConstant 0 (Integer 4 [])) (IntegerConstant 1 (Integer 4 [])) (IntegerConstant 2 (Integer 4 [])) (IntegerConstant 3 (Integer 4 [])) (IntegerConstant 4 (Integer 4 [])) (IntegerConstant 5 (Integer 4 [])) (IntegerConstant 6 (Integer 4 [])) (IntegerConstant 7 (Integer 4 [])) (IntegerConstant 8 (Integer 4 [])) (IntegerConstant 9 (Integer 4 []))] (List (Integer 4 []))) (ListConstant [(IntegerConstant 10 (Integer 4 [])) (IntegerConstant 11 (Integer 4 [])) (IntegerConstant 12 (Integer 4 [])) (IntegerConstant 13 (Integer 4 [])) (IntegerConstant 14 (Integer 4 [])) (IntegerConstant 15 (Integer 4 [])) (IntegerConstant 16 (Integer 4 [])) (IntegerConstant 17 (Integer 4 [])) (IntegerConstant 18 (Integer 4 [])) (IntegerConstant 19 (Integer 4 []))] (List (Integer 4 []))) (ListConstant [(IntegerConstant 20 (Integer 4 [])) (IntegerConstant 21 (Integer 4 [])) (IntegerConstant 22 (Integer 4 [])) (IntegerConstant 23 (Integer 4 [])) (IntegerConstant 24 (Integer 4 [])) (IntegerConstant 25 (Integer 4 [])) (IntegerConstant 26 (Integer 4 [])) (IntegerConstant 27 (Integer 4 [])) (IntegerConstant 28 (Integer 4 [])) (IntegerConstant 29 (Integer 4 []))] (List (Integer 4 []))) (ListConstant [(IntegerConstant 30 (Integer 4 [])) (IntegerConstant 31 (Integer 4 [])) (IntegerConstant 32 (Integer 4 [])) (IntegerConstant 33 (Integer 4 [])) (IntegerConstant 34 (Integer 4 [])) (IntegerConstant 35 (Integer 4 [])) (IntegerConstant 36 (Integer 4 [])) (IntegerConstant 37 (Integer 4 [])) (IntegerConstant 38 (Integer 4 [])) (IntegerConstant 39 (Integer 4 []))] (List (Integer 4 []))) (ListConstant [(IntegerConstant 40 (Integer 4 [])) (IntegerConstant 41 (Integer 4 [])) (IntegerConstant 42 (Integer 4 [])) (IntegerConstant 43 (Integer 4 [])) (IntegerConstant 44 (Integer 4 [])) (IntegerConstant 45 (Integer 4 [])) (IntegerConstant 46 (Integer 4 [])) (IntegerConstant 47 (Integer 4 [])) (IntegerConstant 48 (Integer 4 [])) (IntegerConstant 49 (Integer 4 []))] (List (Integer 4 []))) (ListConstant [(IntegerConstant 50 (Integer 4 [])) (IntegerConstant 51 (Integer 4 [])) (IntegerConstant 52 (Integer 4 [])) (IntegerConstant 53 (Integer 4 [])) (IntegerConstant 54 (Integer 4 [])) (IntegerConstant 55 (Integer 4 [])) (IntegerConstant 56 (Integer 4 [])) (IntegerConstant 57 (Integer 4 [])) (IntegerConstant 58 (Integer 4 [])) (IntegerConstant 59 (Integer 4 []))] (List (Integer 4 []))) (ListConstant [(IntegerConstant 60 (Integer 4 [])) (IntegerConstant 61 (Integer 4 [])) (IntegerConstant 62 (Integer 4 [])) (IntegerConstant 63 (Integer 4 [])) (IntegerConstant 64 (Integer 4 [])) (IntegerConstant 65 (Integer 4 [])) (IntegerConstant 66 (Integer 4 [])) (IntegerConstant 67 (Integer 4 [])) (IntegerConstant 68 (Integer 4 [])) (IntegerConstant 69 (Integer 4 []))] (List (Integer 4 []))) (ListConstant [(IntegerConstant 70 (Integer 4 [])) (IntegerConstant 71 (Integer 4 [])) (IntegerConstant 72 (Integer 4 [])) (IntegerConstant 73 (Integer 4 [])) (IntegerConstant 74 (Integer 4 [])) (IntegerConstant 75 (Integer 4 [])) (IntegerConstant 76 (Integer 4 [])) (IntegerConstant 77 (Integer 4 [])) (IntegerConstant 78 (Integer 4 [])) (IntegerConstant 79 (Integer 4 []))] (List (Integer 4 []))) (ListConstant [(IntegerConstant 80 (Integer 4 [])) (IntegerConstant 81 (Integer 4 [])) (IntegerConstant 82 (Integer 4 [])) (IntegerConstant 83 (Integer 4 [])) (IntegerConstant 84 (Integer 4 [])) (IntegerConstant 85 (Integer 4 [])) (IntegerConstant 86 (Integer 4 [])) (IntegerConstant 87 (Integer 4 [])) (IntegerConstant 88 (Integer 4 [])) (IntegerConstant 89 (Integer 4 []))] (List (Integer 4 []))) (ListConstant [(IntegerConstant 90 (Integer 4 [])) (IntegerConstant 91 (Integer 4 [])) (IntegerConstant 92 (Integer 4 [])) (IntegerConstant 93 (Integer 4 [])) (IntegerConstant 94 (Integer 4 [])) (IntegerConstant 95 (Integer 4 [])) (IntegerConstant 96 (Integer 4 [])) (IntegerConstant 97 (Integer 4 [])) (IntegerConstant 98 (Integer 4 [])) (IntegerConstant 99 (Integer 4 []))] (List (Integer 4 [])))] (List (List (Integer 4 [])))) ()) (= (Var 5 q) (ListConstant [(ListConstant [(ListConstant [(ListConstant [(RealConstant 74.550000 (Real 8 [])) (RealUnaryMinus (RealConstant 77.640000 (Real 8 [])) (Real 8 []) (RealConstant -77.640000 (Real 8 []))) (RealConstant 52.350000 (Real 8 []))] (List (Real 8 []))) (ListConstant [(RealUnaryMinus (RealConstant 78.250000 (Real 8 [])) (Real 8 []) (RealConstant -78.250000 (Real 8 []))) (RealUnaryMinus (RealConstant 19.240000 (Real 8 [])) (Real 8 []) (RealConstant -19.240000 (Real 8 []))) (RealConstant 81.380000 (Real 8 []))] (List (Real 8 []))) (ListConstant [(RealConstant 7.860000 (Real 8 [])) (RealConstant 12.110000 (Real 8 [])) (RealConstant 27.500000 (Real 8 []))] (List (Real 8 [])))] (List (List (Real 8 [])))) (ListConstant [(ListConstant [(RealUnaryMinus (RealConstant 98.930000 (Real 8 [])) (Real 8 []) (RealConstant -98.930000 (Real 8 []))) (RealUnaryMinus (RealConstant 79.620000 (Real 8 [])) (Real 8 []) (RealConstant -79.620000 (Real 8 []))) (RealUnaryMinus (RealConstant 73.760000 (Real 8 [])) (Real 8 []) (RealConstant -73.760000 (Real 8 [])))] (List (Real 8 []))) (ListConstant [(RealConstant 42.050000 (Real 8 [])) (RealUnaryMinus (RealConstant 90.290000 (Real 8 [])) (Real 8 []) (RealConstant -90.290000 (Real 8 []))) (RealConstant 69.950000 (Real 8 []))] (List (Real 8 []))) (ListConstant [(RealConstant 59.320000 (Real 8 [])) (RealUnaryMinus (RealConstant 70.780000 (Real 8 [])) (Real 8 []) (RealConstant -70.780000 (Real 8 []))) (RealUnaryMinus (RealConstant 53.220000 (Real 8 [])) (Real 8 []) (RealConstant -53.220000 (Real 8 [])))] (List (Real 8 [])))] (List (List (Real 8 [])))) (ListConstant [(ListConstant [(RealConstant 53.520000 (Real 8 [])) (RealUnaryMinus (RealConstant 93.880000 (Real 8 [])) (Real 8 []) (RealConstant -93.880000 (Real 8 []))) (RealConstant 49.650000 (Real 8 []))] (List (Real 8 []))) (ListConstant [(RealConstant 2.180000 (Real 8 [])) (RealConstant 19.910000 (Real 8 [])) (RealConstant 69.240000 (Real 8 []))] (List (Real 8 []))) (ListConstant [(RealConstant 78.510000 (Real 8 [])) (RealConstant 89.690000 (Real 8 [])) (RealUnaryMinus (RealConstant 86.680000 (Real 8 [])) (Real 8 []) (RealConstant -86.680000 (Real 8 [])))] (List (Real 8 [])))] (List (List (Real 8 []))))] (List (List (List (Real 8 []))))) (ListConstant [(ListConstant [(ListConstant [(RealUnaryMinus (RealConstant 92.480000 (Real 8 [])) (Real 8 []) (RealConstant -92.480000 (Real 8 []))) (RealUnaryMinus (RealConstant 80.750000 (Real 8 [])) (Real 8 []) (RealConstant -80.750000 (Real 8 []))) (RealUnaryMinus (RealConstant 27.760000 (Real 8 [])) (Real 8 []) (RealConstant -27.760000 (Real 8 [])))] (List (Real 8 []))) (ListConstant [(RealUnaryMinus (RealConstant 13.350000 (Real 8 [])) (Real 8 []) (RealConstant -13.350000 (Real 8 []))) (RealConstant 12.280000 (Real 8 [])) (RealConstant 79.610000 (Real 8 []))] (List (Real 8 []))) (ListConstant [(RealConstant 48.480000 (Real 8 [])) (RealUnaryMinus (RealConstant 10.490000 (Real 8 [])) (Real 8 []) (RealConstant -10.490000 (Real 8 []))) (RealConstant 41.100000 (Real 8 []))] (List (Real 8 [])))] (List (List (Real 8 [])))) (ListConstant [(ListConstant [(RealConstant 20.330000 (Real 8 [])) (RealConstant 14.520000 (Real 8 [])) (RealConstant 82.560000 (Real 8 []))] (List (Real 8 []))) (ListConstant [(RealUnaryMinus (RealConstant 57.760000 (Real 8 [])) (Real 8 []) (RealConstant -57.760000 (Real 8 []))) (RealConstant 76.030000 (Real 8 [])) (RealConstant 67.330000 (Real 8 []))] (List (Real 8 []))) (ListConstant [(RealUnaryMinus (RealConstant 21.500000 (Real 8 [])) (Real 8 []) (RealConstant -21.500000 (Real 8 []))) (RealUnaryMinus (RealConstant 11.920000 (Real 8 [])) (Real 8 []) (RealConstant -11.920000 (Real 8 []))) (RealUnaryMinus (RealConstant 31.840000 (Real 8 [])) (Real 8 []) (RealConstant -31.840000 (Real 8 [])))] (List (Real 8 [])))] (List (List (Real 8 [])))) (ListConstant [(ListConstant [(RealConstant 9.650000 (Real 8 [])) (RealConstant 11.150000 (Real 8 [])) (RealUnaryMinus (RealConstant 36.580000 (Real 8 [])) (Real 8 []) (RealConstant -36.580000 (Real 8 [])))] (List (Real 8 []))) (ListConstant [(RealConstant 56.550000 (Real 8 [])) (RealUnaryMinus (RealConstant 70.850000 (Real 8 [])) (Real 8 []) (RealConstant -70.850000 (Real 8 []))) (RealUnaryMinus (RealConstant 50.670000 (Real 8 [])) (Real 8 []) (RealConstant -50.670000 (Real 8 [])))] (List (Real 8 []))) (ListConstant [(RealConstant 94.630000 (Real 8 [])) (RealConstant 25.680000 (Real 8 [])) (RealConstant 89.300000 (Real 8 []))] (List (Real 8 [])))] (List (List (Real 8 []))))] (List (List (List (Real 8 []))))) (ListConstant [(ListConstant [(ListConstant [(RealConstant 28.530000 (Real 8 [])) (RealConstant 71.220000 (Real 8 [])) (RealConstant 71.870000 (Real 8 []))] (List (Real 8 []))) (ListConstant [(RealUnaryMinus (RealConstant 58.390000 (Real 8 [])) (Real 8 []) (RealConstant -58.390000 (Real 8 []))) (RealUnaryMinus (RealConstant 6.960000 (Real 8 [])) (Real 8 []) (RealConstant -6.960000 (Real 8 []))) (RealConstant 42.980000 (Real 8 []))] (List (Real 8 []))) (ListConstant [(RealUnaryMinus (RealConstant 8.950000 (Real 8 [])) (Real 8 []) (RealConstant -8.950000 (Real 8 []))) (RealUnaryMinus (RealConstant 75.090000 (Real 8 [])) (Real 8 []) (RealConstant -75.090000 (Real 8 []))) (RealConstant 37.960000 (Real 8 []))] (List (Real 8 [])))] (List (List (Real 8 [])))) (ListConstant [(ListConstant [(RealUnaryMinus (RealConstant 31.750000 (Real 8 [])) (Real 8 []) (RealConstant -31.750000 (Real 8 []))) (RealConstant 67.330000 (Real 8 [])) (RealConstant 58.170000 (Real 8 []))] (List (Real 8 []))) (ListConstant [(RealUnaryMinus (RealConstant 64.010000 (Real 8 [])) (Real 8 []) (RealConstant -64.010000 (Real 8 []))) (RealUnaryMinus (RealConstant 9.220000 (Real 8 [])) (Real 8 []) (RealConstant -9.220000 (Real 8 []))) (RealConstant 9.590000 (Real 8 []))] (List (Real 8 []))) (ListConstant [(RealConstant 15.710000 (Real 8 [])) (RealConstant 82.360000 (Real 8 [])) (RealConstant 51.180000 (Real 8 []))] (List (Real 8 [])))] (List (List (Real 8 [])))) (ListConstant [(ListConstant [(RealUnaryMinus (RealConstant 100.290000 (Real 8 [])) (Real 8 []) (RealConstant -100.290000 (Real 8 []))) (RealUnaryMinus (RealConstant 32.720000 (Real 8 [])) (Real 8 []) (RealConstant -32.720000 (Real 8 []))) (RealUnaryMinus (RealConstant 54.940000 (Real 8 [])) (Real 8 []) (RealConstant -54.940000 (Real 8 [])))] (List (Real 8 []))) (ListConstant [(RealUnaryMinus (RealConstant 0.320000 (Real 8 [])) (Real 8 []) (RealConstant -0.320000 (Real 8 []))) (RealConstant 68.810000 (Real 8 [])) (RealUnaryMinus (RealConstant 55.090000 (Real 8 [])) (Real 8 []) (RealConstant -55.090000 (Real 8 [])))] (List (Real 8 []))) (ListConstant [(RealConstant 97.280000 (Real 8 [])) (RealUnaryMinus (RealConstant 28.200000 (Real 8 [])) (Real 8 []) (RealConstant -28.200000 (Real 8 []))) (RealUnaryMinus (RealConstant 62.610000 (Real 8 [])) (Real 8 []) (RealConstant -62.610000 (Real 8 [])))] (List (Real 8 [])))] (List (List (Real 8 []))))] (List (List (List (Real 8 [])))))] (List (List (List (List (Real 8 [])))))) ()) (= (Var 5 r) (ListConstant [(ListConstant [(ListConstant [(StringConstant "Io" (Character 1 2 () [])) (StringConstant "tl" (Character 1 2 () [])) (StringConstant "bLvjV" (Character 1 5 () [])) (StringConstant "wjFKQ" (Character 1 5 () [])) (StringConstant "lY2" (Character 1 3 () []))] (List (Character 1 2 () []))) (ListConstant [(StringConstant "Be2l6bqE" (Character 1 8 () [])) (StringConstant "pQER3utIXA" (Character 1 10 () [])) (StringConstant "llZBJj5Cdu" (Character 1 10 () [])) (StringConstant "C8" (Character 1 2 () [])) (StringConstant "gwTr77PdYR" (Character 1 10 () []))] (List (Character 1 8 () []))) (ListConstant [(StringConstant "4M6L" (Character 1 4 () [])) (StringConstant "ktPdowqERy" (Character 1 10 () [])) (StringConstant "KSifqTkR" (Character 1 8 () [])) (StringConstant "ZE2p1N78f1" (Character 1 10 () [])) (StringConstant "Mi5e87Xw" (Character 1 8 () []))] (List (Character 1 4 () []))) (ListConstant [(StringConstant "uwfzqDq9g" (Character 1 9 () [])) (StringConstant "QaM1s" (Character 1 5 () [])) (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () [])) (StringConstant "LB" (Character 1 2 () []))] (List (Character 1 9 () []))) (ListConstant [(StringConstant "OJFRY6k" (Character 1 7 () [])) (StringConstant "iz7Oie" (Character 1 6 () [])) (StringConstant "" (Character 1 0 () [])) (StringConstant "LUYLF" (Character 1 5 () [])) (StringConstant "JBND5FuV7l" (Character 1 10 () []))] (List (Character 1 7 () [])))] (List (List (Character 1 2 () [])))) (ListConstant [(ListConstant [(StringConstant "m" (Character 1 1 () [])) (StringConstant "WIQBQfV" (Character 1 7 () [])) (StringConstant "jxjDrqxu" (Character 1 8 () [])) (StringConstant "kea" (Character 1 3 () [])) (StringConstant "mu" (Character 1 2 () []))] (List (Character 1 1 () []))) (ListConstant [(StringConstant "" (Character 1 0 () [])) (StringConstant "GI8aOwLMe" (Character 1 9 () [])) (StringConstant "Y5m8" (Character 1 4 () [])) (StringConstant "a02Rz" (Character 1 5 () [])) (StringConstant "xNKCJ" (Character 1 5 () []))] (List (Character 1 0 () []))) (ListConstant [(StringConstant "LzkhyiJQHP" (Character 1 10 () [])) (StringConstant "uzc3xyoXL" (Character 1 9 () [])) (StringConstant "sKGnYfpRy" (Character 1 9 () [])) (StringConstant "7x" (Character 1 2 () [])) (StringConstant "WTVKrnPO" (Character 1 8 () []))] (List (Character 1 10 () []))) (ListConstant [(StringConstant "TZa6" (Character 1 4 () [])) (StringConstant "GXRuyRX" (Character 1 7 () [])) (StringConstant "R" (Character 1 1 () [])) (StringConstant "JQxS" (Character 1 4 () [])) (StringConstant "OH" (Character 1 2 () []))] (List (Character 1 4 () []))) (ListConstant [(StringConstant "bSVJZ1OQ" (Character 1 8 () [])) (StringConstant "M" (Character 1 1 () [])) (StringConstant "I9omlF" (Character 1 6 () [])) (StringConstant "x7FR" (Character 1 4 () [])) (StringConstant "XtpL" (Character 1 4 () []))] (List (Character 1 8 () [])))] (List (List (Character 1 1 () [])))) (ListConstant [(ListConstant [(StringConstant "DKOpK" (Character 1 5 () [])) (StringConstant "eg8Nz" (Character 1 5 () [])) (StringConstant "ru" (Character 1 2 () [])) (StringConstant "Sj" (Character 1 2 () [])) (StringConstant "YUDxyI" (Character 1 6 () []))] (List (Character 1 5 () []))) (ListConstant [(StringConstant "Q5uyhvp" (Character 1 7 () [])) (StringConstant "Ydx" (Character 1 3 () [])) (StringConstant "p" (Character 1 1 () [])) (StringConstant "DLM5RX" (Character 1 6 () [])) (StringConstant "pwOujxCO" (Character 1 8 () []))] (List (Character 1 7 () []))) (ListConstant [(StringConstant "s5GOWnNJV" (Character 1 9 () [])) (StringConstant "af" (Character 1 2 () [])) (StringConstant "KAkD" (Character 1 4 () [])) (StringConstant "4IIZK" (Character 1 5 () [])) (StringConstant "JQK040x" (Character 1 7 () []))] (List (Character 1 9 () []))) (ListConstant [(StringConstant "9vF" (Character 1 3 () [])) (StringConstant "9pc7R8v" (Character 1 7 () [])) (StringConstant "nDReIU7" (Character 1 7 () [])) (StringConstant "K" (Character 1 1 () [])) (StringConstant "btn" (Character 1 3 () []))] (List (Character 1 3 () []))) (ListConstant [(StringConstant "" (Character 1 0 () [])) (StringConstant "wVeivkdi" (Character 1 8 () [])) (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () [])) (StringConstant "C" (Character 1 1 () []))] (List (Character 1 0 () [])))] (List (List (Character 1 5 () [])))) (ListConstant [(ListConstant [(StringConstant "vNTtcRXD" (Character 1 8 () [])) (StringConstant "rsi" (Character 1 3 () [])) (StringConstant "YsoF7mZD" (Character 1 8 () [])) (StringConstant "VrPXU50rgA" (Character 1 10 () [])) (StringConstant "mG7zqN0G" (Character 1 8 () []))] (List (Character 1 8 () []))) (ListConstant [(StringConstant "la7cJ" (Character 1 5 () [])) (StringConstant "M5rLJ8Go" (Character 1 8 () [])) (StringConstant "gb" (Character 1 2 () [])) (StringConstant "FjKwYZ7E" (Character 1 8 () [])) (StringConstant "uSPD" (Character 1 4 () []))] (List (Character 1 5 () []))) (ListConstant [(StringConstant "" (Character 1 0 () [])) (StringConstant "oOa79jWcMx" (Character 1 10 () [])) (StringConstant "yyAYZZ" (Character 1 6 () [])) (StringConstant "wbvggXm" (Character 1 7 () [])) (StringConstant "aE3BkCL4" (Character 1 8 () []))] (List (Character 1 0 () []))) (ListConstant [(StringConstant "RdP" (Character 1 3 () [])) (StringConstant "Hwc0x9RZ" (Character 1 8 () [])) (StringConstant "sy" (Character 1 2 () [])) (StringConstant "9" (Character 1 1 () [])) (StringConstant "W1d9xA2BXe" (Character 1 10 () []))] (List (Character 1 3 () []))) (ListConstant [(StringConstant "A" (Character 1 1 () [])) (StringConstant "" (Character 1 0 () [])) (StringConstant "QnK" (Character 1 3 () [])) (StringConstant "N5tzN" (Character 1 5 () [])) (StringConstant "ou7Lp" (Character 1 5 () []))] (List (Character 1 1 () [])))] (List (List (Character 1 8 () [])))) (ListConstant [(ListConstant [(StringConstant "DL68rDF" (Character 1 7 () [])) (StringConstant "v" (Character 1 1 () [])) (StringConstant "kQ3Mxm" (Character 1 6 () [])) (StringConstant "g" (Character 1 1 () [])) (StringConstant "6KTeF4Eo" (Character 1 8 () []))] (List (Character 1 7 () []))) (ListConstant [(StringConstant "Hx9" (Character 1 3 () [])) (StringConstant "Y1IzQm85Z4" (Character 1 10 () [])) (StringConstant "3D8" (Character 1 3 () [])) (StringConstant "ZLZ5" (Character 1 4 () [])) (StringConstant "rWn" (Character 1 3 () []))] (List (Character 1 3 () []))) (ListConstant [(StringConstant "LtT" (Character 1 3 () [])) (StringConstant "Dh5B" (Character 1 4 () [])) (StringConstant "M" (Character 1 1 () [])) (StringConstant "F" (Character 1 1 () [])) (StringConstant "QTARbY" (Character 1 6 () []))] (List (Character 1 3 () []))) (ListConstant [(StringConstant "Sh" (Character 1 2 () [])) (StringConstant "WL" (Character 1 2 () [])) (StringConstant "yvAfWvZSx1" (Character 1 10 () [])) (StringConstant "90yx" (Character 1 4 () [])) (StringConstant "v" (Character 1 1 () []))] (List (Character 1 2 () []))) (ListConstant [(StringConstant "" (Character 1 0 () [])) (StringConstant "7IBW" (Character 1 4 () [])) (StringConstant "nI" (Character 1 2 () [])) (StringConstant "" (Character 1 0 () [])) (StringConstant "6Cbp5c8RT" (Character 1 9 () []))] (List (Character 1 0 () [])))] (List (List (Character 1 7 () []))))] (List (List (List (Character 1 2 () []))))) ()) (Print () [(Var 5 p)] () ()) (Print () [(Var 5 q)] () ()) (Print () [(Var 5 r)] () ())] () Public .false. .false.), test_print_list_tuple: (Function (SymbolTable 4 {a: (Variable 4 a [] Local () () Default (List (Tuple [(Integer 4 []) (Integer 4 [])])) Source Public Required .false.), b: (Variable 4 b [] Local () () Default (Tuple [(List (Character 1 -2 () [])) (List (Integer 4 [])) (Real 8 [])]) Source Public Required .false.), b1: (Variable 4 b1 [] Local () () Default (List (Character 1 -2 () [])) Source Public Required .false.), b2: (Variable 4 b2 [] Local () () Default (List (Integer 4 [])) Source Public Required .false.), c: (Variable 4 c [] Local () () Default (List (List (Tuple [(Integer 4 []) (Character 1 -2 () [])]))) Source Public Required .false.)}) test_print_list_tuple (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [] [(= (Var 4 a) (ListConstant [(TupleConstant [(IntegerConstant 1 (Integer 4 [])) (IntegerConstant 2 (Integer 4 []))] (Tuple [(Integer 4 []) (Integer 4 [])])) (TupleConstant [(IntegerConstant 3 (Integer 4 [])) (IntegerConstant 4 (Integer 4 []))] (Tuple [(Integer 4 []) (Integer 4 [])])) (TupleConstant [(IntegerConstant 5 (Integer 4 [])) (IntegerConstant 6 (Integer 4 []))] (Tuple [(Integer 4 []) (Integer 4 [])]))] (List (Tuple [(Integer 4 []) (Integer 4 [])]))) ()) (= (Var 4 c) (ListConstant [(ListConstant [(TupleConstant [(IntegerConstant 1 (Integer 4 [])) (StringConstant "a" (Character 1 1 () []))] (Tuple [(Integer 4 []) (Character 1 1 () [])])) (TupleConstant [(IntegerConstant 2 (Integer 4 [])) (StringConstant "b" (Character 1 1 () []))] (Tuple [(Integer 4 []) (Character 1 1 () [])]))] (List (Tuple [(Integer 4 []) (Character 1 1 () [])]))) (ListConstant [(TupleConstant [(IntegerConstant 3 (Integer 4 [])) (StringConstant "c" (Character 1 1 () []))] (Tuple [(Integer 4 []) (Character 1 1 () [])])) (TupleConstant [(IntegerConstant 4 (Integer 4 [])) (StringConstant "d" (Character 1 1 () []))] (Tuple [(Integer 4 []) (Character 1 1 () [])]))] (List (Tuple [(Integer 4 []) (Character 1 1 () [])])))] (List (List (Tuple [(Integer 4 []) (Character 1 1 () [])])))) ()) (= (Var 4 b1) (ListConstant [(StringConstant "a" (Character 1 1 () [])) (StringConstant "bb" (Character 1 2 () [])) (StringConstant "ccc" (Character 1 3 () [])) (StringConstant "dddd" (Character 1 4 () [])) (StringConstant "eeeee" (Character 1 5 () []))] (List (Character 1 1 () []))) ()) (= (Var 4 b2) (ListConstant [(IntegerConstant 10 (Integer 4 [])) (IntegerConstant 20 (Integer 4 [])) (IntegerConstant 30 (Integer 4 [])) (IntegerConstant 40 (Integer 4 []))] (List (Integer 4 []))) ()) (= (Var 4 b) (TupleConstant [(Var 4 b1) (Var 4 b2) (RealConstant 6.030500 (Real 8 []))] (Tuple [(List (Character 1 -2 () [])) (List (Integer 4 [])) (Real 8 [])])) ()) (Print () [(Var 4 a) (Var 4 b)] () ()) (Print () [(Var 4 c) (Var 4 b1) (Var 4 b2) (RealConstant 3.420000 (Real 8 [])) (StringConstant "okay" (Character 1 4 () [])) (LogicalConstant .true. (Logical 4 [])) (IntegerConstant 14483 (Integer 4 []))] () ())] () Public .false. .false.)}) [])
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            __main__global_stmts:
+                                (Function
+                                    (SymbolTable
+                                        8
+                                        {
+                                            
+                                        })
+                                    __main__global_stmts
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [check]
+                                    []
+                                    [(SubroutineCall
+                                        2 check
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            check:
+                                (Function
+                                    (SymbolTable
+                                        7
+                                        {
+                                            
+                                        })
+                                    check
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [f
+                                    test_nested_lists
+                                    test_nested_lists2
+                                    test_print_list_tuple]
+                                    []
+                                    [(SubroutineCall
+                                        2 f
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )
+                                    (SubroutineCall
+                                        2 test_nested_lists
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )
+                                    (SubroutineCall
+                                        2 test_nested_lists2
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )
+                                    (SubroutineCall
+                                        2 test_print_list_tuple
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            f:
+                                (Function
+                                    (SymbolTable
+                                        3
+                                        {
+                                            a:
+                                                (Variable
+                                                    3
+                                                    a
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            b:
+                                                (Variable
+                                                    3
+                                                    b
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (List
+                                                        (Integer 4)
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            c:
+                                                (Variable
+                                                    3
+                                                    c
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (List
+                                                        (Real 8)
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            d:
+                                                (Variable
+                                                    3
+                                                    d
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (List
+                                                        (Integer 4)
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    f
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 3 a)
+                                        (ListConstant
+                                            [(StringConstant
+                                                "ab"
+                                                (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (StringConstant
+                                                "abc"
+                                                (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (StringConstant
+                                                "abcd"
+                                                (String 1 (IntegerConstant 4 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )]
+                                            (List
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 b)
+                                        (ListConstant
+                                            [(IntegerConstant 1 (Integer 4) Decimal)
+                                            (IntegerConstant 2 (Integer 4) Decimal)
+                                            (IntegerConstant 3 (Integer 4) Decimal)
+                                            (IntegerConstant 4 (Integer 4) Decimal)]
+                                            (List
+                                                (Integer 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 c)
+                                        (ListConstant
+                                            [(RealConstant
+                                                1.230000
+                                                (Real 8)
+                                            )
+                                            (RealConstant
+                                                324.300000
+                                                (Real 8)
+                                            )
+                                            (RealConstant
+                                                56.431000
+                                                (Real 8)
+                                            )
+                                            (RealConstant
+                                                90.500000
+                                                (Real 8)
+                                            )
+                                            (RealConstant
+                                                34.100000
+                                                (Real 8)
+                                            )]
+                                            (List
+                                                (Real 8)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 d)
+                                        (ListConstant
+                                            []
+                                            (List
+                                                (Integer 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(Var 3 a)]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(Var 3 b)]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(Var 3 c)]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(Var 3 d)]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(Var 3 a)
+                                            (Var 3 a)
+                                            (Var 3 b)
+                                            (Var 3 c)
+                                            (Var 3 d)]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(Var 3 a)
+                                            (Var 3 a)
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Var 3 b)
+                                            (Var 3 c)
+                                            (RealConstant
+                                                1.100000
+                                                (Real 8)
+                                            )
+                                            (Var 3 d)]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(ListConstant
+                                                [(IntegerUnaryMinus
+                                                    (IntegerConstant 3 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    (IntegerConstant -3 (Integer 4) Decimal)
+                                                )
+                                                (IntegerConstant 2 (Integer 4) Decimal)
+                                                (IntegerConstant 1 (Integer 4) Decimal)
+                                                (IntegerConstant 0 (Integer 4) Decimal)]
+                                                (List
+                                                    (Integer 4)
+                                                )
+                                            )]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(ListConstant
+                                                [(StringConstant
+                                                    "a"
+                                                    (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                                (StringConstant
+                                                    "b"
+                                                    (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                                (StringConstant
+                                                    "c"
+                                                    (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                                (StringConstant
+                                                    "d"
+                                                    (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                                (StringConstant
+                                                    "e"
+                                                    (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                                (StringConstant
+                                                    "f"
+                                                    (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )]
+                                                (List
+                                                    (Allocatable
+                                                        (String 1 () DeferredLength DescriptorString)
+                                                    )
+                                                )
+                                            )]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(ListConstant
+                                                [(IntegerConstant 1 (Integer 4) Decimal)
+                                                (IntegerConstant 2 (Integer 4) Decimal)
+                                                (IntegerConstant 3 (Integer 4) Decimal)
+                                                (IntegerConstant 4 (Integer 4) Decimal)]
+                                                (List
+                                                    (Integer 4)
+                                                )
+                                            )
+                                            (Var 3 a)
+                                            (Var 3 c)]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            test_nested_lists:
+                                (Function
+                                    (SymbolTable
+                                        4
+                                        {
+                                            w:
+                                                (Variable
+                                                    4
+                                                    w
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (List
+                                                        (List
+                                                            (List
+                                                                (List
+                                                                    (List
+                                                                        (Real 8)
+                                                                    )
+                                                                )
+                                                            )
+                                                        )
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            x:
+                                                (Variable
+                                                    4
+                                                    x
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (List
+                                                        (List
+                                                            (List
+                                                                (Integer 4)
+                                                            )
+                                                        )
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            y:
+                                                (Variable
+                                                    4
+                                                    y
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (List
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            z:
+                                                (Variable
+                                                    4
+                                                    z
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (List
+                                                        (List
+                                                            (Allocatable
+                                                                (String 1 () DeferredLength DescriptorString)
+                                                            )
+                                                        )
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test_nested_lists
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 4 w)
+                                        (ListConstant
+                                            [(ListConstant
+                                                [(ListConstant
+                                                    [(ListConstant
+                                                        [(ListConstant
+                                                            [(RealConstant
+                                                                2.130000
+                                                                (Real 8)
+                                                            )
+                                                            (RealUnaryMinus
+                                                                (RealConstant
+                                                                    98.170000
+                                                                    (Real 8)
+                                                                )
+                                                                (Real 8)
+                                                                (RealConstant
+                                                                    -98.170000
+                                                                    (Real 8)
+                                                                )
+                                                            )]
+                                                            (List
+                                                                (Real 8)
+                                                            )
+                                                        )]
+                                                        (List
+                                                            (List
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                    )]
+                                                    (List
+                                                        (List
+                                                            (List
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(ListConstant
+                                                        [(ListConstant
+                                                            [(RealConstant
+                                                                1.110000
+                                                                (Real 8)
+                                                            )]
+                                                            (List
+                                                                (Real 8)
+                                                            )
+                                                        )]
+                                                        (List
+                                                            (List
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                    )]
+                                                    (List
+                                                        (List
+                                                            (List
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                    )
+                                                )]
+                                                (List
+                                                    (List
+                                                        (List
+                                                            (List
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                    )
+                                                )
+                                            )]
+                                            (List
+                                                (List
+                                                    (List
+                                                        (List
+                                                            (List
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                    )
+                                                )
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 x)
+                                        (ListConstant
+                                            [(ListConstant
+                                                [(ListConstant
+                                                    [(IntegerConstant 3 (Integer 4) Decimal)
+                                                    (IntegerUnaryMinus
+                                                        (IntegerConstant 1 (Integer 4) Decimal)
+                                                        (Integer 4)
+                                                        (IntegerConstant -1 (Integer 4) Decimal)
+                                                    )]
+                                                    (List
+                                                        (Integer 4)
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(IntegerUnaryMinus
+                                                        (IntegerConstant 2 (Integer 4) Decimal)
+                                                        (Integer 4)
+                                                        (IntegerConstant -2 (Integer 4) Decimal)
+                                                    )
+                                                    (IntegerConstant 5 (Integer 4) Decimal)]
+                                                    (List
+                                                        (Integer 4)
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(IntegerConstant 5 (Integer 4) Decimal)]
+                                                    (List
+                                                        (Integer 4)
+                                                    )
+                                                )]
+                                                (List
+                                                    (List
+                                                        (Integer 4)
+                                                    )
+                                                )
+                                            )
+                                            (ListConstant
+                                                [(ListConstant
+                                                    [(IntegerUnaryMinus
+                                                        (IntegerConstant 3 (Integer 4) Decimal)
+                                                        (Integer 4)
+                                                        (IntegerConstant -3 (Integer 4) Decimal)
+                                                    )
+                                                    (IntegerConstant 1 (Integer 4) Decimal)]
+                                                    (List
+                                                        (Integer 4)
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(IntegerConstant 2 (Integer 4) Decimal)
+                                                    (IntegerUnaryMinus
+                                                        (IntegerConstant 5 (Integer 4) Decimal)
+                                                        (Integer 4)
+                                                        (IntegerConstant -5 (Integer 4) Decimal)
+                                                    )]
+                                                    (List
+                                                        (Integer 4)
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(IntegerUnaryMinus
+                                                        (IntegerConstant 5 (Integer 4) Decimal)
+                                                        (Integer 4)
+                                                        (IntegerConstant -5 (Integer 4) Decimal)
+                                                    )]
+                                                    (List
+                                                        (Integer 4)
+                                                    )
+                                                )]
+                                                (List
+                                                    (List
+                                                        (Integer 4)
+                                                    )
+                                                )
+                                            )]
+                                            (List
+                                                (List
+                                                    (List
+                                                        (Integer 4)
+                                                    )
+                                                )
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 y)
+                                        (ListConstant
+                                            [(ListConstant
+                                                [(RealConstant
+                                                    3.140000
+                                                    (Real 8)
+                                                )
+                                                (RealUnaryMinus
+                                                    (RealConstant
+                                                        1.001200
+                                                        (Real 8)
+                                                    )
+                                                    (Real 8)
+                                                    (RealConstant
+                                                        -1.001200
+                                                        (Real 8)
+                                                    )
+                                                )]
+                                                (List
+                                                    (Real 8)
+                                                )
+                                            )
+                                            (ListConstant
+                                                [(RealUnaryMinus
+                                                    (RealConstant
+                                                        2.380000
+                                                        (Real 8)
+                                                    )
+                                                    (Real 8)
+                                                    (RealConstant
+                                                        -2.380000
+                                                        (Real 8)
+                                                    )
+                                                )
+                                                (RealConstant
+                                                    5.510000
+                                                    (Real 8)
+                                                )]
+                                                (List
+                                                    (Real 8)
+                                                )
+                                            )]
+                                            (List
+                                                (List
+                                                    (Real 8)
+                                                )
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 z)
+                                        (ListConstant
+                                            [(ListConstant
+                                                [(StringConstant
+                                                    "bat"
+                                                    (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                                (StringConstant
+                                                    "ball"
+                                                    (String 1 (IntegerConstant 4 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )]
+                                                (List
+                                                    (Allocatable
+                                                        (String 1 () DeferredLength DescriptorString)
+                                                    )
+                                                )
+                                            )
+                                            (ListConstant
+                                                [(StringConstant
+                                                    "cat"
+                                                    (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                                (StringConstant
+                                                    "dog"
+                                                    (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )]
+                                                (List
+                                                    (Allocatable
+                                                        (String 1 () DeferredLength DescriptorString)
+                                                    )
+                                                )
+                                            )
+                                            (ListConstant
+                                                [(StringConstant
+                                                    "c"
+                                                    (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                                (StringConstant
+                                                    "c++"
+                                                    (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                                (StringConstant
+                                                    "java"
+                                                    (String 1 (IntegerConstant 4 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                                (StringConstant
+                                                    "python"
+                                                    (String 1 (IntegerConstant 6 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )]
+                                                (List
+                                                    (Allocatable
+                                                        (String 1 () DeferredLength DescriptorString)
+                                                    )
+                                                )
+                                            )]
+                                            (List
+                                                (List
+                                                    (Allocatable
+                                                        (String 1 () DeferredLength DescriptorString)
+                                                    )
+                                                )
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(Var 4 w)]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(Var 4 x)]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(Var 4 y)]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(Var 4 z)]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            test_nested_lists2:
+                                (Function
+                                    (SymbolTable
+                                        6
+                                        {
+                                            p:
+                                                (Variable
+                                                    6
+                                                    p
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (List
+                                                        (List
+                                                            (Integer 4)
+                                                        )
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            q:
+                                                (Variable
+                                                    6
+                                                    q
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (List
+                                                        (List
+                                                            (List
+                                                                (List
+                                                                    (Real 8)
+                                                                )
+                                                            )
+                                                        )
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            r:
+                                                (Variable
+                                                    6
+                                                    r
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (List
+                                                        (List
+                                                            (List
+                                                                (Allocatable
+                                                                    (String 1 () DeferredLength DescriptorString)
+                                                                )
+                                                            )
+                                                        )
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test_nested_lists2
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 6 p)
+                                        (ListConstant
+                                            [(ListConstant
+                                                [(IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 1 (Integer 4) Decimal)
+                                                (IntegerConstant 2 (Integer 4) Decimal)
+                                                (IntegerConstant 3 (Integer 4) Decimal)
+                                                (IntegerConstant 4 (Integer 4) Decimal)
+                                                (IntegerConstant 5 (Integer 4) Decimal)
+                                                (IntegerConstant 6 (Integer 4) Decimal)
+                                                (IntegerConstant 7 (Integer 4) Decimal)
+                                                (IntegerConstant 8 (Integer 4) Decimal)
+                                                (IntegerConstant 9 (Integer 4) Decimal)]
+                                                (List
+                                                    (Integer 4)
+                                                )
+                                            )
+                                            (ListConstant
+                                                [(IntegerConstant 10 (Integer 4) Decimal)
+                                                (IntegerConstant 11 (Integer 4) Decimal)
+                                                (IntegerConstant 12 (Integer 4) Decimal)
+                                                (IntegerConstant 13 (Integer 4) Decimal)
+                                                (IntegerConstant 14 (Integer 4) Decimal)
+                                                (IntegerConstant 15 (Integer 4) Decimal)
+                                                (IntegerConstant 16 (Integer 4) Decimal)
+                                                (IntegerConstant 17 (Integer 4) Decimal)
+                                                (IntegerConstant 18 (Integer 4) Decimal)
+                                                (IntegerConstant 19 (Integer 4) Decimal)]
+                                                (List
+                                                    (Integer 4)
+                                                )
+                                            )
+                                            (ListConstant
+                                                [(IntegerConstant 20 (Integer 4) Decimal)
+                                                (IntegerConstant 21 (Integer 4) Decimal)
+                                                (IntegerConstant 22 (Integer 4) Decimal)
+                                                (IntegerConstant 23 (Integer 4) Decimal)
+                                                (IntegerConstant 24 (Integer 4) Decimal)
+                                                (IntegerConstant 25 (Integer 4) Decimal)
+                                                (IntegerConstant 26 (Integer 4) Decimal)
+                                                (IntegerConstant 27 (Integer 4) Decimal)
+                                                (IntegerConstant 28 (Integer 4) Decimal)
+                                                (IntegerConstant 29 (Integer 4) Decimal)]
+                                                (List
+                                                    (Integer 4)
+                                                )
+                                            )
+                                            (ListConstant
+                                                [(IntegerConstant 30 (Integer 4) Decimal)
+                                                (IntegerConstant 31 (Integer 4) Decimal)
+                                                (IntegerConstant 32 (Integer 4) Decimal)
+                                                (IntegerConstant 33 (Integer 4) Decimal)
+                                                (IntegerConstant 34 (Integer 4) Decimal)
+                                                (IntegerConstant 35 (Integer 4) Decimal)
+                                                (IntegerConstant 36 (Integer 4) Decimal)
+                                                (IntegerConstant 37 (Integer 4) Decimal)
+                                                (IntegerConstant 38 (Integer 4) Decimal)
+                                                (IntegerConstant 39 (Integer 4) Decimal)]
+                                                (List
+                                                    (Integer 4)
+                                                )
+                                            )
+                                            (ListConstant
+                                                [(IntegerConstant 40 (Integer 4) Decimal)
+                                                (IntegerConstant 41 (Integer 4) Decimal)
+                                                (IntegerConstant 42 (Integer 4) Decimal)
+                                                (IntegerConstant 43 (Integer 4) Decimal)
+                                                (IntegerConstant 44 (Integer 4) Decimal)
+                                                (IntegerConstant 45 (Integer 4) Decimal)
+                                                (IntegerConstant 46 (Integer 4) Decimal)
+                                                (IntegerConstant 47 (Integer 4) Decimal)
+                                                (IntegerConstant 48 (Integer 4) Decimal)
+                                                (IntegerConstant 49 (Integer 4) Decimal)]
+                                                (List
+                                                    (Integer 4)
+                                                )
+                                            )
+                                            (ListConstant
+                                                [(IntegerConstant 50 (Integer 4) Decimal)
+                                                (IntegerConstant 51 (Integer 4) Decimal)
+                                                (IntegerConstant 52 (Integer 4) Decimal)
+                                                (IntegerConstant 53 (Integer 4) Decimal)
+                                                (IntegerConstant 54 (Integer 4) Decimal)
+                                                (IntegerConstant 55 (Integer 4) Decimal)
+                                                (IntegerConstant 56 (Integer 4) Decimal)
+                                                (IntegerConstant 57 (Integer 4) Decimal)
+                                                (IntegerConstant 58 (Integer 4) Decimal)
+                                                (IntegerConstant 59 (Integer 4) Decimal)]
+                                                (List
+                                                    (Integer 4)
+                                                )
+                                            )
+                                            (ListConstant
+                                                [(IntegerConstant 60 (Integer 4) Decimal)
+                                                (IntegerConstant 61 (Integer 4) Decimal)
+                                                (IntegerConstant 62 (Integer 4) Decimal)
+                                                (IntegerConstant 63 (Integer 4) Decimal)
+                                                (IntegerConstant 64 (Integer 4) Decimal)
+                                                (IntegerConstant 65 (Integer 4) Decimal)
+                                                (IntegerConstant 66 (Integer 4) Decimal)
+                                                (IntegerConstant 67 (Integer 4) Decimal)
+                                                (IntegerConstant 68 (Integer 4) Decimal)
+                                                (IntegerConstant 69 (Integer 4) Decimal)]
+                                                (List
+                                                    (Integer 4)
+                                                )
+                                            )
+                                            (ListConstant
+                                                [(IntegerConstant 70 (Integer 4) Decimal)
+                                                (IntegerConstant 71 (Integer 4) Decimal)
+                                                (IntegerConstant 72 (Integer 4) Decimal)
+                                                (IntegerConstant 73 (Integer 4) Decimal)
+                                                (IntegerConstant 74 (Integer 4) Decimal)
+                                                (IntegerConstant 75 (Integer 4) Decimal)
+                                                (IntegerConstant 76 (Integer 4) Decimal)
+                                                (IntegerConstant 77 (Integer 4) Decimal)
+                                                (IntegerConstant 78 (Integer 4) Decimal)
+                                                (IntegerConstant 79 (Integer 4) Decimal)]
+                                                (List
+                                                    (Integer 4)
+                                                )
+                                            )
+                                            (ListConstant
+                                                [(IntegerConstant 80 (Integer 4) Decimal)
+                                                (IntegerConstant 81 (Integer 4) Decimal)
+                                                (IntegerConstant 82 (Integer 4) Decimal)
+                                                (IntegerConstant 83 (Integer 4) Decimal)
+                                                (IntegerConstant 84 (Integer 4) Decimal)
+                                                (IntegerConstant 85 (Integer 4) Decimal)
+                                                (IntegerConstant 86 (Integer 4) Decimal)
+                                                (IntegerConstant 87 (Integer 4) Decimal)
+                                                (IntegerConstant 88 (Integer 4) Decimal)
+                                                (IntegerConstant 89 (Integer 4) Decimal)]
+                                                (List
+                                                    (Integer 4)
+                                                )
+                                            )
+                                            (ListConstant
+                                                [(IntegerConstant 90 (Integer 4) Decimal)
+                                                (IntegerConstant 91 (Integer 4) Decimal)
+                                                (IntegerConstant 92 (Integer 4) Decimal)
+                                                (IntegerConstant 93 (Integer 4) Decimal)
+                                                (IntegerConstant 94 (Integer 4) Decimal)
+                                                (IntegerConstant 95 (Integer 4) Decimal)
+                                                (IntegerConstant 96 (Integer 4) Decimal)
+                                                (IntegerConstant 97 (Integer 4) Decimal)
+                                                (IntegerConstant 98 (Integer 4) Decimal)
+                                                (IntegerConstant 99 (Integer 4) Decimal)]
+                                                (List
+                                                    (Integer 4)
+                                                )
+                                            )]
+                                            (List
+                                                (List
+                                                    (Integer 4)
+                                                )
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 6 q)
+                                        (ListConstant
+                                            [(ListConstant
+                                                [(ListConstant
+                                                    [(ListConstant
+                                                        [(RealConstant
+                                                            74.550000
+                                                            (Real 8)
+                                                        )
+                                                        (RealUnaryMinus
+                                                            (RealConstant
+                                                                77.640000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -77.640000
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                        (RealConstant
+                                                            52.350000
+                                                            (Real 8)
+                                                        )]
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                    (ListConstant
+                                                        [(RealUnaryMinus
+                                                            (RealConstant
+                                                                78.250000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -78.250000
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                        (RealUnaryMinus
+                                                            (RealConstant
+                                                                19.240000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -19.240000
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                        (RealConstant
+                                                            81.380000
+                                                            (Real 8)
+                                                        )]
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                    (ListConstant
+                                                        [(RealConstant
+                                                            7.860000
+                                                            (Real 8)
+                                                        )
+                                                        (RealConstant
+                                                            12.110000
+                                                            (Real 8)
+                                                        )
+                                                        (RealConstant
+                                                            27.500000
+                                                            (Real 8)
+                                                        )]
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )]
+                                                    (List
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(ListConstant
+                                                        [(RealUnaryMinus
+                                                            (RealConstant
+                                                                98.930000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -98.930000
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                        (RealUnaryMinus
+                                                            (RealConstant
+                                                                79.620000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -79.620000
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                        (RealUnaryMinus
+                                                            (RealConstant
+                                                                73.760000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -73.760000
+                                                                (Real 8)
+                                                            )
+                                                        )]
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                    (ListConstant
+                                                        [(RealConstant
+                                                            42.050000
+                                                            (Real 8)
+                                                        )
+                                                        (RealUnaryMinus
+                                                            (RealConstant
+                                                                90.290000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -90.290000
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                        (RealConstant
+                                                            69.950000
+                                                            (Real 8)
+                                                        )]
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                    (ListConstant
+                                                        [(RealConstant
+                                                            59.320000
+                                                            (Real 8)
+                                                        )
+                                                        (RealUnaryMinus
+                                                            (RealConstant
+                                                                70.780000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -70.780000
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                        (RealUnaryMinus
+                                                            (RealConstant
+                                                                53.220000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -53.220000
+                                                                (Real 8)
+                                                            )
+                                                        )]
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )]
+                                                    (List
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(ListConstant
+                                                        [(RealConstant
+                                                            53.520000
+                                                            (Real 8)
+                                                        )
+                                                        (RealUnaryMinus
+                                                            (RealConstant
+                                                                93.880000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -93.880000
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                        (RealConstant
+                                                            49.650000
+                                                            (Real 8)
+                                                        )]
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                    (ListConstant
+                                                        [(RealConstant
+                                                            2.180000
+                                                            (Real 8)
+                                                        )
+                                                        (RealConstant
+                                                            19.910000
+                                                            (Real 8)
+                                                        )
+                                                        (RealConstant
+                                                            69.240000
+                                                            (Real 8)
+                                                        )]
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                    (ListConstant
+                                                        [(RealConstant
+                                                            78.510000
+                                                            (Real 8)
+                                                        )
+                                                        (RealConstant
+                                                            89.690000
+                                                            (Real 8)
+                                                        )
+                                                        (RealUnaryMinus
+                                                            (RealConstant
+                                                                86.680000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -86.680000
+                                                                (Real 8)
+                                                            )
+                                                        )]
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )]
+                                                    (List
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                )]
+                                                (List
+                                                    (List
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                )
+                                            )
+                                            (ListConstant
+                                                [(ListConstant
+                                                    [(ListConstant
+                                                        [(RealUnaryMinus
+                                                            (RealConstant
+                                                                92.480000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -92.480000
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                        (RealUnaryMinus
+                                                            (RealConstant
+                                                                80.750000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -80.750000
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                        (RealUnaryMinus
+                                                            (RealConstant
+                                                                27.760000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -27.760000
+                                                                (Real 8)
+                                                            )
+                                                        )]
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                    (ListConstant
+                                                        [(RealUnaryMinus
+                                                            (RealConstant
+                                                                13.350000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -13.350000
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                        (RealConstant
+                                                            12.280000
+                                                            (Real 8)
+                                                        )
+                                                        (RealConstant
+                                                            79.610000
+                                                            (Real 8)
+                                                        )]
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                    (ListConstant
+                                                        [(RealConstant
+                                                            48.480000
+                                                            (Real 8)
+                                                        )
+                                                        (RealUnaryMinus
+                                                            (RealConstant
+                                                                10.490000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -10.490000
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                        (RealConstant
+                                                            41.100000
+                                                            (Real 8)
+                                                        )]
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )]
+                                                    (List
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(ListConstant
+                                                        [(RealConstant
+                                                            20.330000
+                                                            (Real 8)
+                                                        )
+                                                        (RealConstant
+                                                            14.520000
+                                                            (Real 8)
+                                                        )
+                                                        (RealConstant
+                                                            82.560000
+                                                            (Real 8)
+                                                        )]
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                    (ListConstant
+                                                        [(RealUnaryMinus
+                                                            (RealConstant
+                                                                57.760000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -57.760000
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                        (RealConstant
+                                                            76.030000
+                                                            (Real 8)
+                                                        )
+                                                        (RealConstant
+                                                            67.330000
+                                                            (Real 8)
+                                                        )]
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                    (ListConstant
+                                                        [(RealUnaryMinus
+                                                            (RealConstant
+                                                                21.500000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -21.500000
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                        (RealUnaryMinus
+                                                            (RealConstant
+                                                                11.920000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -11.920000
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                        (RealUnaryMinus
+                                                            (RealConstant
+                                                                31.840000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -31.840000
+                                                                (Real 8)
+                                                            )
+                                                        )]
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )]
+                                                    (List
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(ListConstant
+                                                        [(RealConstant
+                                                            9.650000
+                                                            (Real 8)
+                                                        )
+                                                        (RealConstant
+                                                            11.150000
+                                                            (Real 8)
+                                                        )
+                                                        (RealUnaryMinus
+                                                            (RealConstant
+                                                                36.580000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -36.580000
+                                                                (Real 8)
+                                                            )
+                                                        )]
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                    (ListConstant
+                                                        [(RealConstant
+                                                            56.550000
+                                                            (Real 8)
+                                                        )
+                                                        (RealUnaryMinus
+                                                            (RealConstant
+                                                                70.850000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -70.850000
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                        (RealUnaryMinus
+                                                            (RealConstant
+                                                                50.670000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -50.670000
+                                                                (Real 8)
+                                                            )
+                                                        )]
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                    (ListConstant
+                                                        [(RealConstant
+                                                            94.630000
+                                                            (Real 8)
+                                                        )
+                                                        (RealConstant
+                                                            25.680000
+                                                            (Real 8)
+                                                        )
+                                                        (RealConstant
+                                                            89.300000
+                                                            (Real 8)
+                                                        )]
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )]
+                                                    (List
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                )]
+                                                (List
+                                                    (List
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                )
+                                            )
+                                            (ListConstant
+                                                [(ListConstant
+                                                    [(ListConstant
+                                                        [(RealConstant
+                                                            28.530000
+                                                            (Real 8)
+                                                        )
+                                                        (RealConstant
+                                                            71.220000
+                                                            (Real 8)
+                                                        )
+                                                        (RealConstant
+                                                            71.870000
+                                                            (Real 8)
+                                                        )]
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                    (ListConstant
+                                                        [(RealUnaryMinus
+                                                            (RealConstant
+                                                                58.390000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -58.390000
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                        (RealUnaryMinus
+                                                            (RealConstant
+                                                                6.960000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -6.960000
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                        (RealConstant
+                                                            42.980000
+                                                            (Real 8)
+                                                        )]
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                    (ListConstant
+                                                        [(RealUnaryMinus
+                                                            (RealConstant
+                                                                8.950000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -8.950000
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                        (RealUnaryMinus
+                                                            (RealConstant
+                                                                75.090000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -75.090000
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                        (RealConstant
+                                                            37.960000
+                                                            (Real 8)
+                                                        )]
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )]
+                                                    (List
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(ListConstant
+                                                        [(RealUnaryMinus
+                                                            (RealConstant
+                                                                31.750000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -31.750000
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                        (RealConstant
+                                                            67.330000
+                                                            (Real 8)
+                                                        )
+                                                        (RealConstant
+                                                            58.170000
+                                                            (Real 8)
+                                                        )]
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                    (ListConstant
+                                                        [(RealUnaryMinus
+                                                            (RealConstant
+                                                                64.010000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -64.010000
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                        (RealUnaryMinus
+                                                            (RealConstant
+                                                                9.220000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -9.220000
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                        (RealConstant
+                                                            9.590000
+                                                            (Real 8)
+                                                        )]
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                    (ListConstant
+                                                        [(RealConstant
+                                                            15.710000
+                                                            (Real 8)
+                                                        )
+                                                        (RealConstant
+                                                            82.360000
+                                                            (Real 8)
+                                                        )
+                                                        (RealConstant
+                                                            51.180000
+                                                            (Real 8)
+                                                        )]
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )]
+                                                    (List
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(ListConstant
+                                                        [(RealUnaryMinus
+                                                            (RealConstant
+                                                                100.290000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -100.290000
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                        (RealUnaryMinus
+                                                            (RealConstant
+                                                                32.720000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -32.720000
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                        (RealUnaryMinus
+                                                            (RealConstant
+                                                                54.940000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -54.940000
+                                                                (Real 8)
+                                                            )
+                                                        )]
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                    (ListConstant
+                                                        [(RealUnaryMinus
+                                                            (RealConstant
+                                                                0.320000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -0.320000
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                        (RealConstant
+                                                            68.810000
+                                                            (Real 8)
+                                                        )
+                                                        (RealUnaryMinus
+                                                            (RealConstant
+                                                                55.090000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -55.090000
+                                                                (Real 8)
+                                                            )
+                                                        )]
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                    (ListConstant
+                                                        [(RealConstant
+                                                            97.280000
+                                                            (Real 8)
+                                                        )
+                                                        (RealUnaryMinus
+                                                            (RealConstant
+                                                                28.200000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -28.200000
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                        (RealUnaryMinus
+                                                            (RealConstant
+                                                                62.610000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -62.610000
+                                                                (Real 8)
+                                                            )
+                                                        )]
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )]
+                                                    (List
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                )]
+                                                (List
+                                                    (List
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                )
+                                            )]
+                                            (List
+                                                (List
+                                                    (List
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                )
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 6 r)
+                                        (ListConstant
+                                            [(ListConstant
+                                                [(ListConstant
+                                                    [(StringConstant
+                                                        "Io"
+                                                        (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "tl"
+                                                        (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "bLvjV"
+                                                        (String 1 (IntegerConstant 5 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "wjFKQ"
+                                                        (String 1 (IntegerConstant 5 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "lY2"
+                                                        (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(StringConstant
+                                                        "Be2l6bqE"
+                                                        (String 1 (IntegerConstant 8 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "pQER3utIXA"
+                                                        (String 1 (IntegerConstant 10 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "llZBJj5Cdu"
+                                                        (String 1 (IntegerConstant 10 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "C8"
+                                                        (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "gwTr77PdYR"
+                                                        (String 1 (IntegerConstant 10 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(StringConstant
+                                                        "4M6L"
+                                                        (String 1 (IntegerConstant 4 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "ktPdowqERy"
+                                                        (String 1 (IntegerConstant 10 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "KSifqTkR"
+                                                        (String 1 (IntegerConstant 8 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "ZE2p1N78f1"
+                                                        (String 1 (IntegerConstant 10 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "Mi5e87Xw"
+                                                        (String 1 (IntegerConstant 8 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(StringConstant
+                                                        "uwfzqDq9g"
+                                                        (String 1 (IntegerConstant 9 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "QaM1s"
+                                                        (String 1 (IntegerConstant 5 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        ""
+                                                        (String 1 (IntegerConstant 0 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        ""
+                                                        (String 1 (IntegerConstant 0 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "LB"
+                                                        (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(StringConstant
+                                                        "OJFRY6k"
+                                                        (String 1 (IntegerConstant 7 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "iz7Oie"
+                                                        (String 1 (IntegerConstant 6 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        ""
+                                                        (String 1 (IntegerConstant 0 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "LUYLF"
+                                                        (String 1 (IntegerConstant 5 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "JBND5FuV7l"
+                                                        (String 1 (IntegerConstant 10 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )]
+                                                (List
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )
+                                            )
+                                            (ListConstant
+                                                [(ListConstant
+                                                    [(StringConstant
+                                                        "m"
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "WIQBQfV"
+                                                        (String 1 (IntegerConstant 7 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "jxjDrqxu"
+                                                        (String 1 (IntegerConstant 8 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "kea"
+                                                        (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "mu"
+                                                        (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(StringConstant
+                                                        ""
+                                                        (String 1 (IntegerConstant 0 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "GI8aOwLMe"
+                                                        (String 1 (IntegerConstant 9 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "Y5m8"
+                                                        (String 1 (IntegerConstant 4 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "a02Rz"
+                                                        (String 1 (IntegerConstant 5 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "xNKCJ"
+                                                        (String 1 (IntegerConstant 5 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(StringConstant
+                                                        "LzkhyiJQHP"
+                                                        (String 1 (IntegerConstant 10 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "uzc3xyoXL"
+                                                        (String 1 (IntegerConstant 9 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "sKGnYfpRy"
+                                                        (String 1 (IntegerConstant 9 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "7x"
+                                                        (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "WTVKrnPO"
+                                                        (String 1 (IntegerConstant 8 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(StringConstant
+                                                        "TZa6"
+                                                        (String 1 (IntegerConstant 4 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "GXRuyRX"
+                                                        (String 1 (IntegerConstant 7 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "R"
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "JQxS"
+                                                        (String 1 (IntegerConstant 4 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "OH"
+                                                        (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(StringConstant
+                                                        "bSVJZ1OQ"
+                                                        (String 1 (IntegerConstant 8 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "M"
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "I9omlF"
+                                                        (String 1 (IntegerConstant 6 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "x7FR"
+                                                        (String 1 (IntegerConstant 4 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "XtpL"
+                                                        (String 1 (IntegerConstant 4 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )]
+                                                (List
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )
+                                            )
+                                            (ListConstant
+                                                [(ListConstant
+                                                    [(StringConstant
+                                                        "DKOpK"
+                                                        (String 1 (IntegerConstant 5 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "eg8Nz"
+                                                        (String 1 (IntegerConstant 5 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "ru"
+                                                        (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "Sj"
+                                                        (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "YUDxyI"
+                                                        (String 1 (IntegerConstant 6 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(StringConstant
+                                                        "Q5uyhvp"
+                                                        (String 1 (IntegerConstant 7 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "Ydx"
+                                                        (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "p"
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "DLM5RX"
+                                                        (String 1 (IntegerConstant 6 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "pwOujxCO"
+                                                        (String 1 (IntegerConstant 8 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(StringConstant
+                                                        "s5GOWnNJV"
+                                                        (String 1 (IntegerConstant 9 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "af"
+                                                        (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "KAkD"
+                                                        (String 1 (IntegerConstant 4 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "4IIZK"
+                                                        (String 1 (IntegerConstant 5 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "JQK040x"
+                                                        (String 1 (IntegerConstant 7 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(StringConstant
+                                                        "9vF"
+                                                        (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "9pc7R8v"
+                                                        (String 1 (IntegerConstant 7 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "nDReIU7"
+                                                        (String 1 (IntegerConstant 7 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "K"
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "btn"
+                                                        (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(StringConstant
+                                                        ""
+                                                        (String 1 (IntegerConstant 0 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "wVeivkdi"
+                                                        (String 1 (IntegerConstant 8 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        ""
+                                                        (String 1 (IntegerConstant 0 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        ""
+                                                        (String 1 (IntegerConstant 0 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "C"
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )]
+                                                (List
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )
+                                            )
+                                            (ListConstant
+                                                [(ListConstant
+                                                    [(StringConstant
+                                                        "vNTtcRXD"
+                                                        (String 1 (IntegerConstant 8 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "rsi"
+                                                        (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "YsoF7mZD"
+                                                        (String 1 (IntegerConstant 8 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "VrPXU50rgA"
+                                                        (String 1 (IntegerConstant 10 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "mG7zqN0G"
+                                                        (String 1 (IntegerConstant 8 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(StringConstant
+                                                        "la7cJ"
+                                                        (String 1 (IntegerConstant 5 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "M5rLJ8Go"
+                                                        (String 1 (IntegerConstant 8 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "gb"
+                                                        (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "FjKwYZ7E"
+                                                        (String 1 (IntegerConstant 8 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "uSPD"
+                                                        (String 1 (IntegerConstant 4 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(StringConstant
+                                                        ""
+                                                        (String 1 (IntegerConstant 0 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "oOa79jWcMx"
+                                                        (String 1 (IntegerConstant 10 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "yyAYZZ"
+                                                        (String 1 (IntegerConstant 6 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "wbvggXm"
+                                                        (String 1 (IntegerConstant 7 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "aE3BkCL4"
+                                                        (String 1 (IntegerConstant 8 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(StringConstant
+                                                        "RdP"
+                                                        (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "Hwc0x9RZ"
+                                                        (String 1 (IntegerConstant 8 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "sy"
+                                                        (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "9"
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "W1d9xA2BXe"
+                                                        (String 1 (IntegerConstant 10 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(StringConstant
+                                                        "A"
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        ""
+                                                        (String 1 (IntegerConstant 0 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "QnK"
+                                                        (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "N5tzN"
+                                                        (String 1 (IntegerConstant 5 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "ou7Lp"
+                                                        (String 1 (IntegerConstant 5 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )]
+                                                (List
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )
+                                            )
+                                            (ListConstant
+                                                [(ListConstant
+                                                    [(StringConstant
+                                                        "DL68rDF"
+                                                        (String 1 (IntegerConstant 7 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "v"
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "kQ3Mxm"
+                                                        (String 1 (IntegerConstant 6 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "g"
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "6KTeF4Eo"
+                                                        (String 1 (IntegerConstant 8 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(StringConstant
+                                                        "Hx9"
+                                                        (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "Y1IzQm85Z4"
+                                                        (String 1 (IntegerConstant 10 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "3D8"
+                                                        (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "ZLZ5"
+                                                        (String 1 (IntegerConstant 4 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "rWn"
+                                                        (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(StringConstant
+                                                        "LtT"
+                                                        (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "Dh5B"
+                                                        (String 1 (IntegerConstant 4 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "M"
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "F"
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "QTARbY"
+                                                        (String 1 (IntegerConstant 6 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(StringConstant
+                                                        "Sh"
+                                                        (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "WL"
+                                                        (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "yvAfWvZSx1"
+                                                        (String 1 (IntegerConstant 10 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "90yx"
+                                                        (String 1 (IntegerConstant 4 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "v"
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(StringConstant
+                                                        ""
+                                                        (String 1 (IntegerConstant 0 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "7IBW"
+                                                        (String 1 (IntegerConstant 4 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "nI"
+                                                        (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        ""
+                                                        (String 1 (IntegerConstant 0 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "6Cbp5c8RT"
+                                                        (String 1 (IntegerConstant 9 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )]
+                                                (List
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )
+                                            )]
+                                            (List
+                                                (List
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(Var 6 p)]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(Var 6 q)]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(Var 6 r)]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            test_print_list_tuple:
+                                (Function
+                                    (SymbolTable
+                                        5
+                                        {
+                                            a:
+                                                (Variable
+                                                    5
+                                                    a
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (List
+                                                        (Tuple
+                                                            [(Integer 4)
+                                                            (Integer 4)]
+                                                        )
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            b:
+                                                (Variable
+                                                    5
+                                                    b
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Tuple
+                                                        [(List
+                                                            (Allocatable
+                                                                (String 1 () DeferredLength DescriptorString)
+                                                            )
+                                                        )
+                                                        (List
+                                                            (Integer 4)
+                                                        )
+                                                        (Real 8)]
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            b1:
+                                                (Variable
+                                                    5
+                                                    b1
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            b2:
+                                                (Variable
+                                                    5
+                                                    b2
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (List
+                                                        (Integer 4)
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            c:
+                                                (Variable
+                                                    5
+                                                    c
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (List
+                                                        (List
+                                                            (Tuple
+                                                                [(Integer 4)
+                                                                (Allocatable
+                                                                    (String 1 () DeferredLength DescriptorString)
+                                                                )]
+                                                            )
+                                                        )
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test_print_list_tuple
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 5 a)
+                                        (ListConstant
+                                            [(TupleConstant
+                                                [(IntegerConstant 1 (Integer 4) Decimal)
+                                                (IntegerConstant 2 (Integer 4) Decimal)]
+                                                (Tuple
+                                                    [(Integer 4)
+                                                    (Integer 4)]
+                                                )
+                                            )
+                                            (TupleConstant
+                                                [(IntegerConstant 3 (Integer 4) Decimal)
+                                                (IntegerConstant 4 (Integer 4) Decimal)]
+                                                (Tuple
+                                                    [(Integer 4)
+                                                    (Integer 4)]
+                                                )
+                                            )
+                                            (TupleConstant
+                                                [(IntegerConstant 5 (Integer 4) Decimal)
+                                                (IntegerConstant 6 (Integer 4) Decimal)]
+                                                (Tuple
+                                                    [(Integer 4)
+                                                    (Integer 4)]
+                                                )
+                                            )]
+                                            (List
+                                                (Tuple
+                                                    [(Integer 4)
+                                                    (Integer 4)]
+                                                )
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 5 c)
+                                        (ListConstant
+                                            [(ListConstant
+                                                [(TupleConstant
+                                                    [(IntegerConstant 1 (Integer 4) Decimal)
+                                                    (StringConstant
+                                                        "a"
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (Tuple
+                                                        [(Integer 4)
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)]
+                                                    )
+                                                )
+                                                (TupleConstant
+                                                    [(IntegerConstant 2 (Integer 4) Decimal)
+                                                    (StringConstant
+                                                        "b"
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (Tuple
+                                                        [(Integer 4)
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)]
+                                                    )
+                                                )]
+                                                (List
+                                                    (Tuple
+                                                        [(Integer 4)
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)]
+                                                    )
+                                                )
+                                            )
+                                            (ListConstant
+                                                [(TupleConstant
+                                                    [(IntegerConstant 3 (Integer 4) Decimal)
+                                                    (StringConstant
+                                                        "c"
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (Tuple
+                                                        [(Integer 4)
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)]
+                                                    )
+                                                )
+                                                (TupleConstant
+                                                    [(IntegerConstant 4 (Integer 4) Decimal)
+                                                    (StringConstant
+                                                        "d"
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (Tuple
+                                                        [(Integer 4)
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)]
+                                                    )
+                                                )]
+                                                (List
+                                                    (Tuple
+                                                        [(Integer 4)
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)]
+                                                    )
+                                                )
+                                            )]
+                                            (List
+                                                (List
+                                                    (Tuple
+                                                        [(Integer 4)
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)]
+                                                    )
+                                                )
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 5 b1)
+                                        (ListConstant
+                                            [(StringConstant
+                                                "a"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (StringConstant
+                                                "bb"
+                                                (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (StringConstant
+                                                "ccc"
+                                                (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (StringConstant
+                                                "dddd"
+                                                (String 1 (IntegerConstant 4 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (StringConstant
+                                                "eeeee"
+                                                (String 1 (IntegerConstant 5 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )]
+                                            (List
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 5 b2)
+                                        (ListConstant
+                                            [(IntegerConstant 10 (Integer 4) Decimal)
+                                            (IntegerConstant 20 (Integer 4) Decimal)
+                                            (IntegerConstant 30 (Integer 4) Decimal)
+                                            (IntegerConstant 40 (Integer 4) Decimal)]
+                                            (List
+                                                (Integer 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 5 b)
+                                        (TupleConstant
+                                            [(Var 5 b1)
+                                            (Var 5 b2)
+                                            (RealConstant
+                                                6.030500
+                                                (Real 8)
+                                            )]
+                                            (Tuple
+                                                [(List
+                                                    (Allocatable
+                                                        (String 1 () DeferredLength DescriptorString)
+                                                    )
+                                                )
+                                                (List
+                                                    (Integer 4)
+                                                )
+                                                (Real 8)]
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(Var 5 a)
+                                            (Var 5 b)]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(Var 5 c)
+                                            (Var 5 b1)
+                                            (Var 5 b2)
+                                            (RealConstant
+                                                3.420000
+                                                (Real 8)
+                                            )
+                                            (StringConstant
+                                                "okay"
+                                                (String 1 (IntegerConstant 4 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                            (IntegerConstant 14483 (Integer 4) Decimal)]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    []
+                    .false.
+                    .false.
+                    .false.
+                ),
+            main_program:
+                (Program
+                    (SymbolTable
+                        9
+                        {
+                            __main__global_stmts:
+                                (ExternalSymbol
+                                    9
+                                    __main__global_stmts
+                                    2 __main__global_stmts
+                                    __main__
+                                    []
+                                    __main__global_stmts
+                                    Public
+                                )
+                        })
+                    main_program
+                    [__main__]
+                    [(SubroutineCall
+                        9 __main__global_stmts
+                        2 __main__global_stmts
+                        []
+                        ()
+                        .false.
+                    )]
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-print_list_tuple_03-9de3736.json b/tests/reference/asr-print_list_tuple_03-9de3736.json
new file mode 100644
index 0000000000..27b920b5e3
--- /dev/null
+++ b/tests/reference/asr-print_list_tuple_03-9de3736.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-print_list_tuple_03-9de3736",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/../integration_tests/print_list_tuple_03.py",
+    "infile_hash": "5131d7b6049e22c278ad41494969ff1f70c1dc811313032a9fcf58f3",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": "asr-print_list_tuple_03-9de3736.stdout",
+    "stdout_hash": "476ee12aa65d44361a219a2cf76a787ab79c19d07e039cd32f2d2e26",
+    "stderr": null,
+    "stderr_hash": null,
+    "returncode": 0
+}
\ No newline at end of file
diff --git a/tests/reference/asr-print_list_tuple_03-9de3736.stdout b/tests/reference/asr-print_list_tuple_03-9de3736.stdout
new file mode 100644
index 0000000000..debd244bc5
--- /dev/null
+++ b/tests/reference/asr-print_list_tuple_03-9de3736.stdout
@@ -0,0 +1,300 @@
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            __main__global_stmts:
+                                (Function
+                                    (SymbolTable
+                                        4
+                                        {
+                                            
+                                        })
+                                    __main__global_stmts
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [f]
+                                    []
+                                    [(SubroutineCall
+                                        2 f
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            f:
+                                (Function
+                                    (SymbolTable
+                                        3
+                                        {
+                                            x:
+                                                (Variable
+                                                    3
+                                                    x
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Dict
+                                                        (Integer 4)
+                                                        (Tuple
+                                                            [(Integer 4)
+                                                            (Integer 4)]
+                                                        )
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            y:
+                                                (Variable
+                                                    3
+                                                    y
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Dict
+                                                        (Integer 4)
+                                                        (List
+                                                            (Integer 4)
+                                                        )
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    f
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 3 x)
+                                        (DictConstant
+                                            []
+                                            []
+                                            (Dict
+                                                (Integer 4)
+                                                (Tuple
+                                                    [(Integer 4)
+                                                    (Integer 4)]
+                                                )
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 x)
+                                        (DictConstant
+                                            [(IntegerConstant 1 (Integer 4) Decimal)
+                                            (IntegerConstant 2 (Integer 4) Decimal)]
+                                            [(TupleConstant
+                                                [(IntegerConstant 1 (Integer 4) Decimal)
+                                                (IntegerConstant 2 (Integer 4) Decimal)]
+                                                (Tuple
+                                                    [(Integer 4)
+                                                    (Integer 4)]
+                                                )
+                                            )
+                                            (TupleConstant
+                                                [(IntegerConstant 3 (Integer 4) Decimal)
+                                                (IntegerConstant 4 (Integer 4) Decimal)]
+                                                (Tuple
+                                                    [(Integer 4)
+                                                    (Integer 4)]
+                                                )
+                                            )]
+                                            (Dict
+                                                (Integer 4)
+                                                (Tuple
+                                                    [(Integer 4)
+                                                    (Integer 4)]
+                                                )
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 y)
+                                        (DictConstant
+                                            []
+                                            []
+                                            (Dict
+                                                (Integer 4)
+                                                (List
+                                                    (Integer 4)
+                                                )
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 y)
+                                        (DictConstant
+                                            [(IntegerConstant 1 (Integer 4) Decimal)
+                                            (IntegerConstant 2 (Integer 4) Decimal)]
+                                            [(ListConstant
+                                                [(IntegerConstant 1 (Integer 4) Decimal)
+                                                (IntegerConstant 2 (Integer 4) Decimal)]
+                                                (List
+                                                    (Integer 4)
+                                                )
+                                            )
+                                            (ListConstant
+                                                [(IntegerConstant 3 (Integer 4) Decimal)
+                                                (IntegerConstant 4 (Integer 4) Decimal)]
+                                                (List
+                                                    (Integer 4)
+                                                )
+                                            )]
+                                            (Dict
+                                                (Integer 4)
+                                                (List
+                                                    (Integer 4)
+                                                )
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(DictItem
+                                                (Var 3 x)
+                                                (IntegerConstant 1 (Integer 4) Decimal)
+                                                ()
+                                                (Tuple
+                                                    [(Integer 4)
+                                                    (Integer 4)]
+                                                )
+                                                ()
+                                            )
+                                            (DictItem
+                                                (Var 3 x)
+                                                (IntegerConstant 2 (Integer 4) Decimal)
+                                                ()
+                                                (Tuple
+                                                    [(Integer 4)
+                                                    (Integer 4)]
+                                                )
+                                                ()
+                                            )
+                                            (DictItem
+                                                (Var 3 y)
+                                                (IntegerConstant 1 (Integer 4) Decimal)
+                                                ()
+                                                (List
+                                                    (Integer 4)
+                                                )
+                                                ()
+                                            )]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    []
+                    .false.
+                    .false.
+                    .false.
+                ),
+            main_program:
+                (Program
+                    (SymbolTable
+                        5
+                        {
+                            __main__global_stmts:
+                                (ExternalSymbol
+                                    5
+                                    __main__global_stmts
+                                    2 __main__global_stmts
+                                    __main__
+                                    []
+                                    __main__global_stmts
+                                    Public
+                                )
+                        })
+                    main_program
+                    [__main__]
+                    [(SubroutineCall
+                        5 __main__global_stmts
+                        2 __main__global_stmts
+                        []
+                        ()
+                        .false.
+                    )]
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-set1-b7b913a.json b/tests/reference/asr-set1-b7b913a.json
index 3924e94061..6311cec615 100644
--- a/tests/reference/asr-set1-b7b913a.json
+++ b/tests/reference/asr-set1-b7b913a.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "asr-set1-b7b913a.stdout",
-    "stdout_hash": "a3e6e5206220fc3f813f84a9811344a760515b0739338c3666f61abc",
+    "stdout_hash": "2715bc3316e831046147a00c13df06604285a919b3c52883a66be732",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/asr-set1-b7b913a.stdout b/tests/reference/asr-set1-b7b913a.stdout
index 3f7bdb8e97..13fab6e42e 100644
--- a/tests/reference/asr-set1-b7b913a.stdout
+++ b/tests/reference/asr-set1-b7b913a.stdout
@@ -1 +1,217 @@
-(TranslationUnit (SymbolTable 1 {main_program: (Program (SymbolTable 3 {}) main_program [] []), test_Set: (Function (SymbolTable 2 {a: (Variable 2 a [] Local () () Default (Set (Integer 4 [])) Source Public Required .false.), b: (Variable 2 b [] Local () () Default (Set (Character 1 -2 () [])) Source Public Required .false.), s: (Variable 2 s [] Local () () Default (Character 1 -2 () []) Source Public Required .false.)}) test_Set (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [] [(= (Var 2 a) (SetConstant [(IntegerConstant 1 (Integer 4 [])) (IntegerConstant 2 (Integer 4 [])) (IntegerConstant 3 (Integer 4 []))] (Set (Integer 4 []))) ()) (= (Var 2 a) (SetConstant [(IntegerConstant 2 (Integer 4 [])) (IntegerConstant 3 (Integer 4 [])) (IntegerConstant 4 (Integer 4 [])) (IntegerConstant 5 (Integer 4 [])) (IntegerConstant 5 (Integer 4 []))] (Set (Integer 4 []))) ()) (SetInsert (Var 2 a) (IntegerConstant 9 (Integer 4 []))) (SetRemove (Var 2 a) (IntegerConstant 4 (Integer 4 []))) (= (Var 2 b) (SetConstant [(StringConstant "a" (Character 1 1 () [])) (StringConstant "b" (Character 1 1 () [])) (StringConstant "c" (Character 1 1 () []))] (Set (Character 1 1 () []))) ()) (= (Var 2 s) (SetPop (Var 2 b) (Character 1 -2 () []) ()) ())] () Public .false. .false.)}) [])
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            test_Set:
+                                (Function
+                                    (SymbolTable
+                                        3
+                                        {
+                                            a:
+                                                (Variable
+                                                    3
+                                                    a
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Set
+                                                        (Integer 4)
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            b:
+                                                (Variable
+                                                    3
+                                                    b
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Set
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            s:
+                                                (Variable
+                                                    3
+                                                    s
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Allocatable
+                                                        (String 1 () DeferredLength DescriptorString)
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test_Set
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 3 a)
+                                        (SetConstant
+                                            [(IntegerConstant 1 (Integer 4) Decimal)
+                                            (IntegerConstant 2 (Integer 4) Decimal)
+                                            (IntegerConstant 3 (Integer 4) Decimal)]
+                                            (Set
+                                                (Integer 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 a)
+                                        (SetConstant
+                                            [(IntegerConstant 2 (Integer 4) Decimal)
+                                            (IntegerConstant 3 (Integer 4) Decimal)
+                                            (IntegerConstant 4 (Integer 4) Decimal)
+                                            (IntegerConstant 5 (Integer 4) Decimal)
+                                            (IntegerConstant 5 (Integer 4) Decimal)]
+                                            (Set
+                                                (Integer 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Expr
+                                        (IntrinsicElementalFunction
+                                            SetAdd
+                                            [(Var 3 a)
+                                            (IntegerConstant 9 (Integer 4) Decimal)]
+                                            0
+                                            ()
+                                            ()
+                                        )
+                                    )
+                                    (Expr
+                                        (IntrinsicElementalFunction
+                                            SetRemove
+                                            [(Var 3 a)
+                                            (IntegerConstant 4 (Integer 4) Decimal)]
+                                            0
+                                            ()
+                                            ()
+                                        )
+                                    )
+                                    (Assignment
+                                        (Var 3 b)
+                                        (SetConstant
+                                            [(StringConstant
+                                                "a"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (StringConstant
+                                                "b"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (StringConstant
+                                                "c"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )]
+                                            (Set
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 s)
+                                        (SetPop
+                                            (Var 3 b)
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    []
+                    .false.
+                    .false.
+                    .false.
+                ),
+            main_program:
+                (Program
+                    (SymbolTable
+                        4
+                        {
+                            
+                        })
+                    main_program
+                    []
+                    []
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-string_01-78629c4.json b/tests/reference/asr-string_01-78629c4.json
new file mode 100644
index 0000000000..8cf78f4a79
--- /dev/null
+++ b/tests/reference/asr-string_01-78629c4.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-string_01-78629c4",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/string_01.py",
+    "infile_hash": "92496679f4475e3351686f6556f0e68411437beed22a447f9a65bfdf",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-string_01-78629c4.stderr",
+    "stderr_hash": "29aa01d7370a20ada91bdb13c569434f36a0c18309700d946d89fbf0",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-string_01-78629c4.stderr b/tests/reference/asr-string_01-78629c4.stderr
new file mode 100644
index 0000000000..4abe3b2eb9
--- /dev/null
+++ b/tests/reference/asr-string_01-78629c4.stderr
@@ -0,0 +1,5 @@
+semantic error: Type mismatch in index, expected a single integer or slice
+ --> tests/errors/string_01.py:3:13
+  |
+3 |     print(x[2, 5])
+  |             ^^^^ type mismatch (found: 'tuple[i32, i32]', expected: 'i32' or slice)
diff --git a/tests/reference/asr-string_02-499c9ff.json b/tests/reference/asr-string_02-499c9ff.json
new file mode 100644
index 0000000000..ac33dbbf21
--- /dev/null
+++ b/tests/reference/asr-string_02-499c9ff.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-string_02-499c9ff",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/string_02.py",
+    "infile_hash": "ed6511565e893791a4bd8ea0b4750817bab13cd6dc0731332127bf58",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-string_02-499c9ff.stderr",
+    "stderr_hash": "368ba74a1e0d6609f71e6f87f95bd0b6151420c81336e48a172cb613",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-string_02-499c9ff.stderr b/tests/reference/asr-string_02-499c9ff.stderr
new file mode 100644
index 0000000000..196515476b
--- /dev/null
+++ b/tests/reference/asr-string_02-499c9ff.stderr
@@ -0,0 +1,5 @@
+semantic error: str.join() takes type list only
+ --> tests/errors/string_02.py:6:15
+  |
+6 |     res:str = x.join(p)
+  |               ^^^^^^^^^ 
diff --git a/tests/reference/asr-structs_01-0893e35.json b/tests/reference/asr-structs_01-0893e35.json
index 8b22c411d9..b415cd4e5b 100644
--- a/tests/reference/asr-structs_01-0893e35.json
+++ b/tests/reference/asr-structs_01-0893e35.json
@@ -2,7 +2,7 @@
     "basename": "asr-structs_01-0893e35",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/errors/structs_01.py",
-    "infile_hash": "abf9fcde3ae523bf4c33bc957592f202798501a5379fb2621925fa4b",
+    "infile_hash": "9342dd6345fb71bbbfb1c41e643530c58493758d08774f838b1c85e0",
     "outfile": null,
     "outfile_hash": null,
     "stdout": null,
diff --git a/tests/reference/asr-structs_01-66dc2c9.json b/tests/reference/asr-structs_01-66dc2c9.json
new file mode 100644
index 0000000000..abd317edaf
--- /dev/null
+++ b/tests/reference/asr-structs_01-66dc2c9.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-structs_01-66dc2c9",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/structs_01.py",
+    "infile_hash": "3b94e692a074b226736f068daf39c876f113277a73468bd21c01d3cc",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": "asr-structs_01-66dc2c9.stdout",
+    "stdout_hash": "fde67f22c4a17970f3f4622f3f3c5989bba053a748323f007fe0d75c",
+    "stderr": null,
+    "stderr_hash": null,
+    "returncode": 0
+}
\ No newline at end of file
diff --git a/tests/reference/asr-structs_01-66dc2c9.stdout b/tests/reference/asr-structs_01-66dc2c9.stdout
new file mode 100644
index 0000000000..042434939c
--- /dev/null
+++ b/tests/reference/asr-structs_01-66dc2c9.stdout
@@ -0,0 +1,227 @@
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            S:
+                                (Struct
+                                    (SymbolTable
+                                        3
+                                        {
+                                            x:
+                                                (Variable
+                                                    3
+                                                    x
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            y:
+                                                (Variable
+                                                    3
+                                                    y
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    S
+                                    (StructType
+                                        [(Integer 4)
+                                        (Integer 4)]
+                                        []
+                                        .true.
+                                        .false.
+                                    )
+                                    []
+                                    [x
+                                    y]
+                                    []
+                                    Source
+                                    Public
+                                    .false.
+                                    .false.
+                                    [(())
+                                    (())]
+                                    ()
+                                    ()
+                                ),
+                            __main__global_stmts:
+                                (Function
+                                    (SymbolTable
+                                        6
+                                        {
+                                            
+                                        })
+                                    __main__global_stmts
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [main0]
+                                    []
+                                    [(SubroutineCall
+                                        2 main0
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            main0:
+                                (Function
+                                    (SymbolTable
+                                        4
+                                        {
+                                            s:
+                                                (Variable
+                                                    4
+                                                    s
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (StructType
+                                                        [(Integer 4)
+                                                        (Integer 4)]
+                                                        []
+                                                        .true.
+                                                        .false.
+                                                    )
+                                                    2 S
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    main0
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 4 s)
+                                        (StructConstructor
+                                            2 S
+                                            [((IntegerConstant 2 (Integer 4) Decimal))
+                                            (())]
+                                            (StructType
+                                                [(Integer 4)
+                                                (Integer 4)]
+                                                []
+                                                .true.
+                                                .false.
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    []
+                    .false.
+                    .false.
+                    .false.
+                ),
+            main_program:
+                (Program
+                    (SymbolTable
+                        7
+                        {
+                            __main__global_stmts:
+                                (ExternalSymbol
+                                    7
+                                    __main__global_stmts
+                                    2 __main__global_stmts
+                                    __main__
+                                    []
+                                    __main__global_stmts
+                                    Public
+                                )
+                        })
+                    main_program
+                    [__main__]
+                    [(SubroutineCall
+                        7 __main__global_stmts
+                        2 __main__global_stmts
+                        []
+                        ()
+                        .false.
+                    )]
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-structs_01-be14d49.json b/tests/reference/asr-structs_01-be14d49.json
index 41c09f178e..97c1acafc6 100644
--- a/tests/reference/asr-structs_01-be14d49.json
+++ b/tests/reference/asr-structs_01-be14d49.json
@@ -2,11 +2,11 @@
     "basename": "asr-structs_01-be14d49",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/../integration_tests/structs_01.py",
-    "infile_hash": "f79e576d065f9aab50fa4f7bb810c50f637738c7723aa765e6b51eaa",
+    "infile_hash": "9f36a4abcc3a50ccc10df1f6b04998b7a20041853142c85a2e86b724",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "asr-structs_01-be14d49.stdout",
-    "stdout_hash": "c712295044a23fa648e8a4dacd9c8ebb2df072b84f0f49c0def6e361",
+    "stdout_hash": "e55033937a110de9c9d5887c894dd68e255a8f246c055034e12e7d7c",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/asr-structs_01-be14d49.stdout b/tests/reference/asr-structs_01-be14d49.stdout
index 4121a6dc85..e776391811 100644
--- a/tests/reference/asr-structs_01-be14d49.stdout
+++ b/tests/reference/asr-structs_01-be14d49.stdout
@@ -1 +1,619 @@
-(TranslationUnit (SymbolTable 1 {A: (StructType (SymbolTable 2 {x: (Variable 2 x [] Local () () Default (Integer 4 []) Source Public Required .false.), y: (Variable 2 y [] Local () () Default (Real 4 []) Source Public Required .false.)}) A [] [y x] Source Public .false. () ()), _lpython_main_program: (Function (SymbolTable 7 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [g] [] [(SubroutineCall 1 g () [] ())] () Public .false. .false.), change_struct: (Function (SymbolTable 4 {a: (Variable 4 a [] In () () Default (Struct 1 A []) Source Public Required .false.)}) change_struct (FunctionType [(Struct 1 A [])] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 4 a)] [(= (StructInstanceMember (Var 4 a) 2 x (Integer 4 []) ()) (IntegerBinOp (StructInstanceMember (Var 4 a) 2 x (Integer 4 []) ()) Add (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) ()) (= (StructInstanceMember (Var 4 a) 2 y (Real 4 []) ()) (RealBinOp (StructInstanceMember (Var 4 a) 2 y (Real 4 []) ()) Add (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Real 4 []) ()) ())] () Public .false. .false.), f: (Function (SymbolTable 3 {a: (Variable 3 a [] In () () Default (Struct 1 A []) Source Public Required .false.)}) f (FunctionType [(Struct 1 A [])] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 3 a)] [(Print () [(StructInstanceMember (Var 3 a) 2 x (Integer 4 []) ())] () ()) (Print () [(StructInstanceMember (Var 3 a) 2 y (Real 4 []) ())] () ())] () Public .false. .false.), g: (Function (SymbolTable 5 {x: (Variable 5 x [] Local () () Default (Struct 1 A []) Source Public Required .false.)}) g (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [f f change_struct] [] [(= (Var 5 x) (StructTypeConstructor 1 A [(Cast (RealConstant 3.250000 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 3.250000 (Real 4 []))) (IntegerConstant 3 (Integer 4 []))] (Struct 1 A []) ()) ()) (SubroutineCall 1 f () [((Var 5 x))] ()) (Assert (IntegerCompare (StructInstanceMember (Var 5 x) 2 x (Integer 4 []) ()) Eq (IntegerConstant 3 (Integer 4 [])) (Logical 4 []) ()) ()) (Assert (RealCompare (Cast (StructInstanceMember (Var 5 x) 2 y (Real 4 []) ()) RealToReal (Real 8 []) ()) Eq (RealConstant 3.250000 (Real 8 [])) (Logical 4 []) ()) ()) (= (StructInstanceMember (Var 5 x) 2 x (Integer 4 []) ()) (IntegerConstant 5 (Integer 4 [])) ()) (= (StructInstanceMember (Var 5 x) 2 y (Real 4 []) ()) (Cast (RealConstant 5.500000 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 5.500000 (Real 4 []))) ()) (SubroutineCall 1 f () [((Var 5 x))] ()) (Assert (IntegerCompare (StructInstanceMember (Var 5 x) 2 x (Integer 4 []) ()) Eq (IntegerConstant 5 (Integer 4 [])) (Logical 4 []) ()) ()) (Assert (RealCompare (Cast (StructInstanceMember (Var 5 x) 2 y (Real 4 []) ()) RealToReal (Real 8 []) ()) Eq (RealConstant 5.500000 (Real 8 [])) (Logical 4 []) ()) ()) (SubroutineCall 1 change_struct () [((Var 5 x))] ()) (Assert (IntegerCompare (StructInstanceMember (Var 5 x) 2 x (Integer 4 []) ()) Eq (IntegerConstant 6 (Integer 4 [])) (Logical 4 []) ()) ()) (Assert (RealCompare (Cast (StructInstanceMember (Var 5 x) 2 y (Real 4 []) ()) RealToReal (Real 8 []) ()) Eq (RealConstant 6.500000 (Real 8 [])) (Logical 4 []) ()) ())] () Public .false. .false.), main_program: (Program (SymbolTable 6 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())])}) [])
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            A:
+                                (Struct
+                                    (SymbolTable
+                                        3
+                                        {
+                                            x:
+                                                (Variable
+                                                    3
+                                                    x
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            y:
+                                                (Variable
+                                                    3
+                                                    y
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    A
+                                    (StructType
+                                        [(Integer 4)
+                                        (Real 4)]
+                                        []
+                                        .true.
+                                        .false.
+                                    )
+                                    []
+                                    [y
+                                    x]
+                                    []
+                                    Source
+                                    Public
+                                    .false.
+                                    .false.
+                                    [(())
+                                    (())]
+                                    ()
+                                    ()
+                                ),
+                            __main__global_stmts:
+                                (Function
+                                    (SymbolTable
+                                        8
+                                        {
+                                            
+                                        })
+                                    __main__global_stmts
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [g]
+                                    []
+                                    [(SubroutineCall
+                                        2 g
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            change_struct:
+                                (Function
+                                    (SymbolTable
+                                        5
+                                        {
+                                            a:
+                                                (Variable
+                                                    5
+                                                    a
+                                                    []
+                                                    InOut
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (StructType
+                                                        [(Integer 4)
+                                                        (Real 4)]
+                                                        []
+                                                        .true.
+                                                        .false.
+                                                    )
+                                                    2 A
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    change_struct
+                                    (FunctionType
+                                        [(StructType
+                                            [(Integer 4)
+                                            (Real 4)]
+                                            []
+                                            .true.
+                                            .false.
+                                        )]
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    [(Var 5 a)]
+                                    [(Assignment
+                                        (StructInstanceMember
+                                            (Var 5 a)
+                                            3 x
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        (IntegerBinOp
+                                            (StructInstanceMember
+                                                (Var 5 a)
+                                                3 x
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Add
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (StructInstanceMember
+                                            (Var 5 a)
+                                            3 y
+                                            (Real 4)
+                                            ()
+                                        )
+                                        (RealBinOp
+                                            (StructInstanceMember
+                                                (Var 5 a)
+                                                3 y
+                                                (Real 4)
+                                                ()
+                                            )
+                                            Add
+                                            (Cast
+                                                (IntegerConstant 1 (Integer 4) Decimal)
+                                                IntegerToReal
+                                                (Real 4)
+                                                (RealConstant
+                                                    1.000000
+                                                    (Real 4)
+                                                )
+                                            )
+                                            (Real 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            f:
+                                (Function
+                                    (SymbolTable
+                                        4
+                                        {
+                                            a:
+                                                (Variable
+                                                    4
+                                                    a
+                                                    []
+                                                    In
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (StructType
+                                                        [(Integer 4)
+                                                        (Real 4)]
+                                                        []
+                                                        .true.
+                                                        .false.
+                                                    )
+                                                    2 A
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    f
+                                    (FunctionType
+                                        [(StructType
+                                            [(Integer 4)
+                                            (Real 4)]
+                                            []
+                                            .true.
+                                            .false.
+                                        )]
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    [(Var 4 a)]
+                                    [(Print
+                                        (StringFormat
+                                            ()
+                                            [(StructInstanceMember
+                                                (Var 4 a)
+                                                3 x
+                                                (Integer 4)
+                                                ()
+                                            )]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(StructInstanceMember
+                                                (Var 4 a)
+                                                3 y
+                                                (Real 4)
+                                                ()
+                                            )]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            g:
+                                (Function
+                                    (SymbolTable
+                                        6
+                                        {
+                                            x:
+                                                (Variable
+                                                    6
+                                                    x
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (StructType
+                                                        [(Integer 4)
+                                                        (Real 4)]
+                                                        []
+                                                        .true.
+                                                        .false.
+                                                    )
+                                                    2 A
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    g
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [f
+                                    change_struct]
+                                    []
+                                    [(Assignment
+                                        (Var 6 x)
+                                        (StructConstructor
+                                            2 A
+                                            [((Cast
+                                                (RealConstant
+                                                    3.250000
+                                                    (Real 8)
+                                                )
+                                                RealToReal
+                                                (Real 4)
+                                                (RealConstant
+                                                    3.250000
+                                                    (Real 4)
+                                                )
+                                            ))
+                                            ((IntegerConstant 3 (Integer 4) Decimal))]
+                                            (StructType
+                                                [(Integer 4)
+                                                (Real 4)]
+                                                []
+                                                .true.
+                                                .false.
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (SubroutineCall
+                                        2 f
+                                        ()
+                                        [((Var 6 x))]
+                                        ()
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (StructInstanceMember
+                                                (Var 6 x)
+                                                3 x
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerConstant 3 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (Cast
+                                                (StructInstanceMember
+                                                    (Var 6 x)
+                                                    3 y
+                                                    (Real 4)
+                                                    ()
+                                                )
+                                                RealToReal
+                                                (Real 8)
+                                                ()
+                                            )
+                                            Eq
+                                            (RealConstant
+                                                3.250000
+                                                (Real 8)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (StructInstanceMember
+                                            (Var 6 x)
+                                            3 x
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        (IntegerConstant 5 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (StructInstanceMember
+                                            (Var 6 x)
+                                            3 y
+                                            (Real 4)
+                                            ()
+                                        )
+                                        (Cast
+                                            (RealConstant
+                                                5.500000
+                                                (Real 8)
+                                            )
+                                            RealToReal
+                                            (Real 4)
+                                            (RealConstant
+                                                5.500000
+                                                (Real 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (SubroutineCall
+                                        2 f
+                                        ()
+                                        [((Var 6 x))]
+                                        ()
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (StructInstanceMember
+                                                (Var 6 x)
+                                                3 x
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerConstant 5 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (Cast
+                                                (StructInstanceMember
+                                                    (Var 6 x)
+                                                    3 y
+                                                    (Real 4)
+                                                    ()
+                                                )
+                                                RealToReal
+                                                (Real 8)
+                                                ()
+                                            )
+                                            Eq
+                                            (RealConstant
+                                                5.500000
+                                                (Real 8)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (SubroutineCall
+                                        2 change_struct
+                                        ()
+                                        [((Var 6 x))]
+                                        ()
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (StructInstanceMember
+                                                (Var 6 x)
+                                                3 x
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerConstant 6 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (Cast
+                                                (StructInstanceMember
+                                                    (Var 6 x)
+                                                    3 y
+                                                    (Real 4)
+                                                    ()
+                                                )
+                                                RealToReal
+                                                (Real 8)
+                                                ()
+                                            )
+                                            Eq
+                                            (RealConstant
+                                                6.500000
+                                                (Real 8)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    []
+                    .false.
+                    .false.
+                    .false.
+                ),
+            main_program:
+                (Program
+                    (SymbolTable
+                        9
+                        {
+                            __main__global_stmts:
+                                (ExternalSymbol
+                                    9
+                                    __main__global_stmts
+                                    2 __main__global_stmts
+                                    __main__
+                                    []
+                                    __main__global_stmts
+                                    Public
+                                )
+                        })
+                    main_program
+                    [__main__]
+                    [(SubroutineCall
+                        9 __main__global_stmts
+                        2 __main__global_stmts
+                        []
+                        ()
+                        .false.
+                    )]
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-structs_02-2ab459a.json b/tests/reference/asr-structs_02-2ab459a.json
deleted file mode 100644
index a886cfe0ea..0000000000
--- a/tests/reference/asr-structs_02-2ab459a.json
+++ /dev/null
@@ -1,13 +0,0 @@
-{
-    "basename": "asr-structs_02-2ab459a",
-    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
-    "infile": "tests/../integration_tests/structs_02.py",
-    "infile_hash": "de732ccae77457ef2eb696bd3501e6623d437573974df4281b09dc97",
-    "outfile": null,
-    "outfile_hash": null,
-    "stdout": "asr-structs_02-2ab459a.stdout",
-    "stdout_hash": "ca918a7feabfa0b02ec8a0fe126d0347dfabbc293c25c22f47681f78",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
-}
\ No newline at end of file
diff --git a/tests/reference/asr-structs_02-2ab459a.stdout b/tests/reference/asr-structs_02-2ab459a.stdout
deleted file mode 100644
index d5b8ab2d8c..0000000000
--- a/tests/reference/asr-structs_02-2ab459a.stdout
+++ /dev/null
@@ -1 +0,0 @@
-(TranslationUnit (SymbolTable 1 {A: (StructType (SymbolTable 2 {x: (Variable 2 x [] Local () () Default (Integer 4 []) Source Public Required .false.), y: (Variable 2 y [] Local () () Default (Real 4 []) Source Public Required .false.)}) A [] [x y] Source Public .false. () ()), _lpython_main_program: (Function (SymbolTable 6 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [g] [] [(SubroutineCall 1 g () [] ())] () Public .false. .false.), f: (Function (SymbolTable 3 {a: (Variable 3 a [] In () () Default (CPtr) BindC Public Required .true.), a1: (Variable 3 a1 [] Local () () Default (Struct 1 A []) Source Public Required .false.), a2: (Variable 3 a2 [] Local () () Default (Pointer (Struct 1 A [])) Source Public Required .false.), x: (Variable 3 x [] Local () () Default (Integer 4 []) Source Public Required .false.), y: (Variable 3 y [] Local () () Default (Real 4 []) Source Public Required .false.)}) f (FunctionType [(CPtr)] () BindC Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 3 a)] [(= (Var 3 a1) (StructTypeConstructor 1 A [(IntegerConstant 3 (Integer 4 [])) (Cast (RealConstant 3.250000 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 3.250000 (Real 4 [])))] (Struct 1 A []) ()) ()) (= (Var 3 a2) (GetPointer (Var 3 a1) (Pointer (Struct 1 A [])) ()) ()) (Print () [(Var 3 a2) (GetPointer (Var 3 a1) (Pointer (Struct 1 A [])) ())] () ()) (= (Var 3 x) (StructInstanceMember (Var 3 a2) 2 x (Integer 4 []) ()) ()) (= (Var 3 y) (StructInstanceMember (Var 3 a2) 2 y (Real 4 []) ()) ()) (Assert (IntegerCompare (Var 3 x) Eq (IntegerConstant 3 (Integer 4 [])) (Logical 4 []) ()) ()) (Assert (RealCompare (Cast (Var 3 y) RealToReal (Real 8 []) ()) Eq (RealConstant 3.250000 (Real 8 [])) (Logical 4 []) ()) ()) (CPtrToPointer (Var 3 a) (Var 3 a2) ()) (Print () [(Var 3 a) (Var 3 a2) (GetPointer (Var 3 a1) (Pointer (Struct 1 A [])) ())] () ())] () Public .false. .false.), g: (Function (SymbolTable 4 {b: (Variable 4 b [] Local () () Default (CPtr) Source Public Required .false.)}) g (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [f] [] [(SubroutineCall 1 f () [((Var 4 b))] ())] () Public .false. .false.), main_program: (Program (SymbolTable 5 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())])}) [])
diff --git a/tests/reference/asr-structs_02-f95782c.json b/tests/reference/asr-structs_02-f95782c.json
new file mode 100644
index 0000000000..fa782be8d7
--- /dev/null
+++ b/tests/reference/asr-structs_02-f95782c.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-structs_02-f95782c",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/structs_02.py",
+    "infile_hash": "bc4446b7b96cad60bb368378e7af4a8f628bfaaecac2063a1bec5c06",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-structs_02-f95782c.stderr",
+    "stderr_hash": "e77891a7762fcd30afe98c91c7ffeae4342b646a0d44eebd2cb08f1b",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-structs_02-f95782c.stderr b/tests/reference/asr-structs_02-f95782c.stderr
new file mode 100644
index 0000000000..55efe8b586
--- /dev/null
+++ b/tests/reference/asr-structs_02-f95782c.stderr
@@ -0,0 +1,5 @@
+semantic error: `s` must be initialized with an instance of S
+ --> tests/errors/structs_02.py:8:5
+  |
+8 |     s: S
+  |     ^^^^ 
diff --git a/tests/reference/asr-structs_03-0cef911.json b/tests/reference/asr-structs_03-0cef911.json
deleted file mode 100644
index bd05e7bd56..0000000000
--- a/tests/reference/asr-structs_03-0cef911.json
+++ /dev/null
@@ -1,13 +0,0 @@
-{
-    "basename": "asr-structs_03-0cef911",
-    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
-    "infile": "tests/../integration_tests/structs_03.py",
-    "infile_hash": "3ec9774ad757a6facd8a572ad641286849c3fab33659b8e5914fcd0f",
-    "outfile": null,
-    "outfile_hash": null,
-    "stdout": "asr-structs_03-0cef911.stdout",
-    "stdout_hash": "969481518564ee2f3bf4f21ee5ad85b39cbfffaa7223ba7ec0f6643b",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
-}
\ No newline at end of file
diff --git a/tests/reference/asr-structs_03-0cef911.stdout b/tests/reference/asr-structs_03-0cef911.stdout
deleted file mode 100644
index 9d2094dfb0..0000000000
--- a/tests/reference/asr-structs_03-0cef911.stdout
+++ /dev/null
@@ -1 +0,0 @@
-(TranslationUnit (SymbolTable 1 {A: (StructType (SymbolTable 2 {x: (Variable 2 x [] Local () () Default (Integer 4 []) Source Public Required .false.), y: (Variable 2 y [] Local () () Default (Real 4 []) Source Public Required .false.)}) A [] [x y] Source Public .false. () ()), _lpython_main_program: (Function (SymbolTable 6 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [g] [] [(SubroutineCall 1 g () [] ())] () Public .false. .false.), f: (Function (SymbolTable 3 {pa: (Variable 3 pa [] In () () Default (Pointer (Struct 1 A [])) Source Public Required .false.)}) f (FunctionType [(Pointer (Struct 1 A []))] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 3 pa)] [(Print () [(StructInstanceMember (Var 3 pa) 2 x (Integer 4 []) ())] () ()) (Print () [(StructInstanceMember (Var 3 pa) 2 y (Real 4 []) ())] () ())] () Public .false. .false.), g: (Function (SymbolTable 4 {x: (Variable 4 x [] Local () () Default (Struct 1 A []) Source Public Required .false.), xp: (Variable 4 xp [] Local () () Default (Pointer (Struct 1 A [])) Source Public Required .false.)}) g (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [f] [] [(= (Var 4 x) (StructTypeConstructor 1 A [(IntegerConstant 3 (Integer 4 [])) (Cast (RealConstant 3.250000 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 3.250000 (Real 4 [])))] (Struct 1 A []) ()) ()) (= (Var 4 xp) (GetPointer (Var 4 x) (Pointer (Struct 1 A [])) ()) ()) (Assert (IntegerCompare (StructInstanceMember (Var 4 xp) 2 x (Integer 4 []) ()) Eq (IntegerConstant 3 (Integer 4 [])) (Logical 4 []) ()) ()) (Assert (RealCompare (Cast (StructInstanceMember (Var 4 xp) 2 y (Real 4 []) ()) RealToReal (Real 8 []) ()) Eq (RealConstant 3.250000 (Real 8 [])) (Logical 4 []) ()) ()) (= (StructInstanceMember (Var 4 xp) 2 x (Integer 4 []) ()) (IntegerConstant 5 (Integer 4 [])) ()) (= (StructInstanceMember (Var 4 xp) 2 y (Real 4 []) ()) (Cast (RealConstant 5.500000 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 5.500000 (Real 4 []))) ()) (SubroutineCall 1 f () [((Var 4 xp))] ())] () Public .false. .false.), main_program: (Program (SymbolTable 5 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())])}) [])
diff --git a/tests/reference/asr-structs_03-754fb64.json b/tests/reference/asr-structs_03-754fb64.json
new file mode 100644
index 0000000000..7050595260
--- /dev/null
+++ b/tests/reference/asr-structs_03-754fb64.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-structs_03-754fb64",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/structs_03.py",
+    "infile_hash": "19180d0a7a22141e74e61452cc6cc185f1dd1c4f4315446450ce98db",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-structs_03-754fb64.stderr",
+    "stderr_hash": "c6410f9948863d922cb0a0cd36613c529ad45fdf556d393d36e2df07",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-structs_03-754fb64.stderr b/tests/reference/asr-structs_03-754fb64.stderr
new file mode 100644
index 0000000000..2a1c1c0d91
--- /dev/null
+++ b/tests/reference/asr-structs_03-754fb64.stderr
@@ -0,0 +1,5 @@
+semantic error: Member 'y' not found in struct
+ --> tests/errors/structs_03.py:8:14
+  |
+8 |     s: S = S(y=2)
+  |              ^^^ 
diff --git a/tests/reference/asr-structs_04-387747b.json b/tests/reference/asr-structs_04-387747b.json
deleted file mode 100644
index 2bfeb4d353..0000000000
--- a/tests/reference/asr-structs_04-387747b.json
+++ /dev/null
@@ -1,13 +0,0 @@
-{
-    "basename": "asr-structs_04-387747b",
-    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
-    "infile": "tests/../integration_tests/structs_04.py",
-    "infile_hash": "87ec2ee343d4931ce152501fa1d36db33279b93a3d1b25bc4463b0da",
-    "outfile": null,
-    "outfile_hash": null,
-    "stdout": "asr-structs_04-387747b.stdout",
-    "stdout_hash": "e4026d108ddbcc980760fd8fec832cf46a509baa8737ae2ad81586bf",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
-}
\ No newline at end of file
diff --git a/tests/reference/asr-structs_04-387747b.stdout b/tests/reference/asr-structs_04-387747b.stdout
deleted file mode 100644
index 89641c04d3..0000000000
--- a/tests/reference/asr-structs_04-387747b.stdout
+++ /dev/null
@@ -1 +0,0 @@
-(TranslationUnit (SymbolTable 1 {A: (StructType (SymbolTable 2 {x: (Variable 2 x [] Local () () Default (Integer 4 []) Source Public Required .false.), y: (Variable 2 y [] Local () () Default (Real 4 []) Source Public Required .false.)}) A [] [y x] Source Public .false. () ()), B: (StructType (SymbolTable 3 {a: (Variable 3 a [] Local () () Default (Struct 1 A []) Source Public Required .false.), z: (Variable 3 z [] Local () () Default (Integer 4 []) Source Public Required .false.)}) B [A] [a z] Source Public .false. () ()), _lpython_main_program: (Function (SymbolTable 7 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [g] [] [(SubroutineCall 1 g () [] ())] () Public .false. .false.), f: (Function (SymbolTable 4 {b: (Variable 4 b [] In () () Default (Struct 1 B []) Source Public Required .false.)}) f (FunctionType [(Struct 1 B [])] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 4 b)] [(Print () [(StructInstanceMember (Var 4 b) 3 z (Integer 4 []) ()) (StructInstanceMember (StructInstanceMember (Var 4 b) 3 a (Struct 1 A []) ()) 2 x (Integer 4 []) ()) (StructInstanceMember (StructInstanceMember (Var 4 b) 3 a (Struct 1 A []) ()) 2 y (Real 4 []) ())] () ()) (Assert (IntegerCompare (StructInstanceMember (Var 4 b) 3 z (Integer 4 []) ()) Eq (IntegerConstant 1 (Integer 4 [])) (Logical 4 []) ()) ()) (Assert (IntegerCompare (StructInstanceMember (StructInstanceMember (Var 4 b) 3 a (Struct 1 A []) ()) 2 x (Integer 4 []) ()) Eq (IntegerConstant 2 (Integer 4 [])) (Logical 4 []) ()) ()) (Assert (RealCompare (Cast (StructInstanceMember (StructInstanceMember (Var 4 b) 3 a (Struct 1 A []) ()) 2 y (Real 4 []) ()) RealToReal (Real 8 []) ()) Eq (RealConstant 3.000000 (Real 8 [])) (Logical 4 []) ()) ())] () Public .false. .false.), g: (Function (SymbolTable 5 {a1: (Variable 5 a1 [] Local () () Default (Struct 1 A []) Source Public Required .false.), a2: (Variable 5 a2 [] Local () () Default (Struct 1 A []) Source Public Required .false.), b: (Variable 5 b [] Local () () Default (Struct 1 B []) Source Public Required .false.)}) g (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [f] [] [(= (Var 5 a1) (StructTypeConstructor 1 A [(Cast (RealConstant 1.000000 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 1.000000 (Real 4 []))) (IntegerConstant 1 (Integer 4 []))] (Struct 1 A []) ()) ()) (= (Var 5 a2) (StructTypeConstructor 1 A [(Cast (RealConstant 2.000000 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 2.000000 (Real 4 []))) (IntegerConstant 2 (Integer 4 []))] (Struct 1 A []) ()) ()) (= (Var 5 b) (StructTypeConstructor 1 B [(Var 5 a1) (IntegerConstant 1 (Integer 4 []))] (Struct 1 B []) ()) ()) (= (StructInstanceMember (Var 5 b) 3 a (Struct 1 A []) ()) (Var 5 a2) ()) (= (StructInstanceMember (Var 5 b) 3 z (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 [])) ()) (= (StructInstanceMember (StructInstanceMember (Var 5 b) 3 a (Struct 1 A []) ()) 2 x (Integer 4 []) ()) (IntegerConstant 2 (Integer 4 [])) ()) (= (StructInstanceMember (StructInstanceMember (Var 5 b) 3 a (Struct 1 A []) ()) 2 y (Real 4 []) ()) (Cast (RealConstant 3.000000 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 3.000000 (Real 4 []))) ()) (Assert (IntegerCompare (StructInstanceMember (Var 5 a1) 2 x (Integer 4 []) ()) Eq (IntegerConstant 1 (Integer 4 [])) (Logical 4 []) ()) ()) (Assert (RealCompare (Cast (StructInstanceMember (Var 5 a1) 2 y (Real 4 []) ()) RealToReal (Real 8 []) ()) Eq (RealConstant 1.000000 (Real 8 [])) (Logical 4 []) ()) ()) (Assert (IntegerCompare (StructInstanceMember (Var 5 a2) 2 x (Integer 4 []) ()) Eq (IntegerConstant 2 (Integer 4 [])) (Logical 4 []) ()) ()) (Assert (RealCompare (Cast (StructInstanceMember (Var 5 a2) 2 y (Real 4 []) ()) RealToReal (Real 8 []) ()) Eq (RealConstant 2.000000 (Real 8 [])) (Logical 4 []) ()) ()) (SubroutineCall 1 f () [((Var 5 b))] ())] () Public .false. .false.), main_program: (Program (SymbolTable 6 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())])}) [])
diff --git a/tests/reference/asr-structs_04-7b864bc.json b/tests/reference/asr-structs_04-7b864bc.json
new file mode 100644
index 0000000000..c188040d2f
--- /dev/null
+++ b/tests/reference/asr-structs_04-7b864bc.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-structs_04-7b864bc",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/structs_04.py",
+    "infile_hash": "5951c49d2d7f143bbe3d67b982770ceb6d709939eb2d5ed544888f16",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-structs_04-7b864bc.stderr",
+    "stderr_hash": "e4e04a1a30ae38b6587c4c3ad12a7e83839c63938c025a3884f62ef8",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-structs_04-7b864bc.stderr b/tests/reference/asr-structs_04-7b864bc.stderr
new file mode 100644
index 0000000000..906b24c606
--- /dev/null
+++ b/tests/reference/asr-structs_04-7b864bc.stderr
@@ -0,0 +1,5 @@
+semantic error: S() got multiple values for argument 'x'
+ --> tests/errors/structs_04.py:9:18
+  |
+9 |     s: S = S(24, x=2)
+  |                  ^^^ 
diff --git a/tests/reference/asr-structs_05-fa98307.json b/tests/reference/asr-structs_05-fa98307.json
deleted file mode 100644
index 856e7b7179..0000000000
--- a/tests/reference/asr-structs_05-fa98307.json
+++ /dev/null
@@ -1,13 +0,0 @@
-{
-    "basename": "asr-structs_05-fa98307",
-    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
-    "infile": "tests/../integration_tests/structs_05.py",
-    "infile_hash": "de8579ed973a7a0d0edcc19be54e81a5dece462890e0c0d29586b856",
-    "outfile": null,
-    "outfile_hash": null,
-    "stdout": "asr-structs_05-fa98307.stdout",
-    "stdout_hash": "eb6902a33da5a613bc9e47ca33d2f8ccc9bcd527d1e3d78dd8f67f6f",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
-}
\ No newline at end of file
diff --git a/tests/reference/asr-structs_05-fa98307.stdout b/tests/reference/asr-structs_05-fa98307.stdout
deleted file mode 100644
index 882a0c8348..0000000000
--- a/tests/reference/asr-structs_05-fa98307.stdout
+++ /dev/null
@@ -1 +0,0 @@
-(TranslationUnit (SymbolTable 1 {A: (StructType (SymbolTable 2 {a: (Variable 2 a [] Local () () Default (Real 4 []) Source Public Required .false.), b: (Variable 2 b [] Local () () Default (Integer 2 []) Source Public Required .false.), c: (Variable 2 c [] Local () () Default (Integer 1 []) Source Public Required .false.), d: (Variable 2 d [] Local () () Default (Logical 4 []) Source Public Required .false.), x: (Variable 2 x [] Local () () Default (Integer 4 []) Source Public Required .false.), y: (Variable 2 y [] Local () () Default (Real 8 []) Source Public Required .false.), z: (Variable 2 z [] Local () () Default (Integer 8 []) Source Public Required .false.)}) A [] [y x z a b c d] Source Public .false. () ()), _lpython_main_program: (Function (SymbolTable 101 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [g] [] [(SubroutineCall 1 g () [] ())] () Public .false. .false.), g: (Function (SymbolTable 6 {y: (Variable 6 y [] Local () () Default (Struct 1 A [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 2 (Integer 4 [])))]) Source Public Required .false.)}) g (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [verify update_1 update_2 verify] [] [(= (ArrayItem (Var 6 y) [(() (IntegerConstant 0 (Integer 4 [])) ())] (Struct 1 A []) RowMajor ()) (StructTypeConstructor 1 A [(RealConstant 1.100000 (Real 8 [])) (IntegerConstant 1 (Integer 4 [])) (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 1 (Integer 8 []))) (Cast (RealConstant 1.100000 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 1.100000 (Real 4 []))) (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToInteger (Integer 2 []) (IntegerConstant 1 (Integer 2 []))) (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToInteger (Integer 1 []) (IntegerConstant 1 (Integer 1 []))) (LogicalConstant .true. (Logical 4 []))] (Struct 1 A []) ()) ()) (= (ArrayItem (Var 6 y) [(() (IntegerConstant 1 (Integer 4 [])) ())] (Struct 1 A []) RowMajor ()) (StructTypeConstructor 1 A [(RealConstant 2.200000 (Real 8 [])) (IntegerConstant 2 (Integer 4 [])) (Cast (IntegerConstant 2 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 2 (Integer 8 []))) (Cast (RealConstant 2.200000 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 2.200000 (Real 4 []))) (Cast (IntegerConstant 2 (Integer 4 [])) IntegerToInteger (Integer 2 []) (IntegerConstant 2 (Integer 2 []))) (Cast (IntegerConstant 2 (Integer 4 [])) IntegerToInteger (Integer 1 []) (IntegerConstant 2 (Integer 1 []))) (LogicalConstant .true. (Logical 4 []))] (Struct 1 A []) ()) ()) (SubroutineCall 1 verify () [((Var 6 y)) ((IntegerConstant 1 (Integer 4 []))) ((RealConstant 1.100000 (Real 8 []))) ((IntegerConstant 2 (Integer 4 []))) ((RealConstant 2.200000 (Real 8 [])))] ()) (SubroutineCall 1 update_1 () [((ArrayItem (Var 6 y) [(() (IntegerConstant 0 (Integer 4 [])) ())] (Struct 1 A []) RowMajor ()))] ()) (SubroutineCall 1 update_2 () [((Var 6 y))] ()) (SubroutineCall 1 verify () [((Var 6 y)) ((IntegerConstant 2 (Integer 4 []))) ((RealConstant 1.200000 (Real 8 []))) ((IntegerConstant 3 (Integer 4 []))) ((RealConstant 2.300000 (Real 8 [])))] ())] () Public .false. .false.), lpython_builtin: (IntrinsicModule lpython_builtin), main_program: (Program (SymbolTable 100 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())]), update_1: (Function (SymbolTable 4 {s: (Variable 4 s [] In () () Default (Struct 1 A []) Source Public Required .false.)}) update_1 (FunctionType [(Struct 1 A [])] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 4 s)] [(= (StructInstanceMember (Var 4 s) 2 x (Integer 4 []) ()) (IntegerConstant 2 (Integer 4 [])) ()) (= (StructInstanceMember (Var 4 s) 2 y (Real 8 []) ()) (RealConstant 1.200000 (Real 8 [])) ()) (= (StructInstanceMember (Var 4 s) 2 z (Integer 8 []) ()) (Cast (IntegerConstant 2 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 2 (Integer 8 []))) ()) (= (StructInstanceMember (Var 4 s) 2 a (Real 4 []) ()) (Cast (RealConstant 1.200000 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 1.200000 (Real 4 []))) ()) (= (StructInstanceMember (Var 4 s) 2 b (Integer 2 []) ()) (Cast (IntegerConstant 2 (Integer 4 [])) IntegerToInteger (Integer 2 []) (IntegerConstant 2 (Integer 2 []))) ()) (= (StructInstanceMember (Var 4 s) 2 c (Integer 1 []) ()) (Cast (IntegerConstant 2 (Integer 4 [])) IntegerToInteger (Integer 1 []) (IntegerConstant 2 (Integer 1 []))) ())] () Public .false. .false.), update_2: (Function (SymbolTable 5 {s: (Variable 5 s [] InOut () () Default (Struct 1 A [(() ())]) Source Public Required .false.)}) update_2 (FunctionType [(Struct 1 A [(() ())])] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 5 s)] [(= (StructInstanceMember (ArrayItem (Var 5 s) [(() (IntegerConstant 1 (Integer 4 [])) ())] (Struct 1 A []) RowMajor ()) 2 x (Integer 4 []) ()) (IntegerConstant 3 (Integer 4 [])) ()) (= (StructInstanceMember (ArrayItem (Var 5 s) [(() (IntegerConstant 1 (Integer 4 [])) ())] (Struct 1 A []) RowMajor ()) 2 y (Real 8 []) ()) (RealConstant 2.300000 (Real 8 [])) ()) (= (StructInstanceMember (ArrayItem (Var 5 s) [(() (IntegerConstant 1 (Integer 4 [])) ())] (Struct 1 A []) RowMajor ()) 2 z (Integer 8 []) ()) (Cast (IntegerConstant 3 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 3 (Integer 8 []))) ()) (= (StructInstanceMember (ArrayItem (Var 5 s) [(() (IntegerConstant 1 (Integer 4 [])) ())] (Struct 1 A []) RowMajor ()) 2 a (Real 4 []) ()) (Cast (RealConstant 2.300000 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 2.300000 (Real 4 []))) ()) (= (StructInstanceMember (ArrayItem (Var 5 s) [(() (IntegerConstant 1 (Integer 4 [])) ())] (Struct 1 A []) RowMajor ()) 2 b (Integer 2 []) ()) (Cast (IntegerConstant 3 (Integer 4 [])) IntegerToInteger (Integer 2 []) (IntegerConstant 3 (Integer 2 []))) ()) (= (StructInstanceMember (ArrayItem (Var 5 s) [(() (IntegerConstant 1 (Integer 4 [])) ())] (Struct 1 A []) RowMajor ()) 2 c (Integer 1 []) ()) (Cast (IntegerConstant 3 (Integer 4 [])) IntegerToInteger (Integer 1 []) (IntegerConstant 3 (Integer 1 []))) ())] () Public .false. .false.), verify: (Function (SymbolTable 3 {abs: (ExternalSymbol 3 abs 8 abs lpython_builtin [] abs Private), abs@__lpython_overloaded_0__abs: (ExternalSymbol 3 abs@__lpython_overloaded_0__abs 8 __lpython_overloaded_0__abs lpython_builtin [] __lpython_overloaded_0__abs Public), abs@__lpython_overloaded_1__abs: (ExternalSymbol 3 abs@__lpython_overloaded_1__abs 8 __lpython_overloaded_1__abs lpython_builtin [] __lpython_overloaded_1__abs Public), eps: (Variable 3 eps [] Local (RealConstant 0.000000 (Real 8 [])) () Default (Real 8 []) Source Public Required .false.), s: (Variable 3 s [] InOut () () Default (Struct 1 A [(() ())]) Source Public Required .false.), s0: (Variable 3 s0 [] Local () () Default (Struct 1 A []) Source Public Required .false.), s1: (Variable 3 s1 [] Local () () Default (Struct 1 A []) Source Public Required .false.), x1: (Variable 3 x1 [] In () () Default (Integer 4 []) Source Public Required .false.), x2: (Variable 3 x2 [] In () () Default (Integer 4 []) Source Public Required .false.), y1: (Variable 3 y1 [] In () () Default (Real 8 []) Source Public Required .false.), y2: (Variable 3 y2 [] In () () Default (Real 8 []) Source Public Required .false.)}) verify (FunctionType [(Struct 1 A [(() ())]) (Integer 4 []) (Real 8 []) (Integer 4 []) (Real 8 [])] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [abs@__lpython_overloaded_0__abs abs@__lpython_overloaded_1__abs abs@__lpython_overloaded_0__abs abs@__lpython_overloaded_1__abs] [(Var 3 s) (Var 3 x1) (Var 3 y1) (Var 3 x2) (Var 3 y2)] [(= (Var 3 eps) (RealConstant 0.000000 (Real 8 [])) ()) (= (Var 3 s0) (ArrayItem (Var 3 s) [(() (IntegerConstant 0 (Integer 4 [])) ())] (Struct 1 A []) RowMajor ()) ()) (Print () [(StructInstanceMember (Var 3 s0) 2 x (Integer 4 []) ()) (StructInstanceMember (Var 3 s0) 2 y (Real 8 []) ()) (StructInstanceMember (Var 3 s0) 2 z (Integer 8 []) ()) (StructInstanceMember (Var 3 s0) 2 a (Real 4 []) ()) (StructInstanceMember (Var 3 s0) 2 b (Integer 2 []) ()) (StructInstanceMember (Var 3 s0) 2 c (Integer 1 []) ()) (StructInstanceMember (Var 3 s0) 2 d (Logical 4 []) ())] () ()) (Assert (IntegerCompare (StructInstanceMember (Var 3 s0) 2 x (Integer 4 []) ()) Eq (Var 3 x1) (Logical 4 []) ()) ()) (Assert (RealCompare (FunctionCall 3 abs@__lpython_overloaded_0__abs 3 abs [((RealBinOp (StructInstanceMember (Var 3 s0) 2 y (Real 8 []) ()) Sub (Var 3 y1) (Real 8 []) ()))] (Real 8 []) () ()) Lt (Var 3 eps) (Logical 4 []) ()) ()) (Assert (IntegerCompare (StructInstanceMember (Var 3 s0) 2 z (Integer 8 []) ()) Eq (Cast (Var 3 x1) IntegerToInteger (Integer 8 []) ()) (Logical 4 []) ()) ()) (Assert (RealCompare (FunctionCall 3 abs@__lpython_overloaded_1__abs 3 abs [((RealBinOp (StructInstanceMember (Var 3 s0) 2 a (Real 4 []) ()) Sub (Cast (Var 3 y1) RealToReal (Real 4 []) ()) (Real 4 []) ()))] (Real 4 []) () ()) Lt (Cast (RealConstant 0.000001 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 0.000001 (Real 4 []))) (Logical 4 []) ()) ()) (Assert (IntegerCompare (StructInstanceMember (Var 3 s0) 2 b (Integer 2 []) ()) Eq (Cast (Var 3 x1) IntegerToInteger (Integer 2 []) ()) (Logical 4 []) ()) ()) (Assert (IntegerCompare (StructInstanceMember (Var 3 s0) 2 c (Integer 1 []) ()) Eq (Cast (Var 3 x1) IntegerToInteger (Integer 1 []) ()) (Logical 4 []) ()) ()) (Assert (StructInstanceMember (Var 3 s0) 2 d (Logical 4 []) ()) ()) (= (Var 3 s1) (ArrayItem (Var 3 s) [(() (IntegerConstant 1 (Integer 4 [])) ())] (Struct 1 A []) RowMajor ()) ()) (Print () [(StructInstanceMember (Var 3 s1) 2 x (Integer 4 []) ()) (StructInstanceMember (Var 3 s1) 2 y (Real 8 []) ()) (StructInstanceMember (Var 3 s1) 2 z (Integer 8 []) ()) (StructInstanceMember (Var 3 s1) 2 a (Real 4 []) ()) (StructInstanceMember (Var 3 s1) 2 b (Integer 2 []) ()) (StructInstanceMember (Var 3 s1) 2 c (Integer 1 []) ()) (StructInstanceMember (Var 3 s1) 2 d (Logical 4 []) ())] () ()) (Assert (IntegerCompare (StructInstanceMember (Var 3 s1) 2 x (Integer 4 []) ()) Eq (Var 3 x2) (Logical 4 []) ()) ()) (Assert (RealCompare (FunctionCall 3 abs@__lpython_overloaded_0__abs 3 abs [((RealBinOp (StructInstanceMember (Var 3 s1) 2 y (Real 8 []) ()) Sub (Var 3 y2) (Real 8 []) ()))] (Real 8 []) () ()) Lt (Var 3 eps) (Logical 4 []) ()) ()) (Assert (IntegerCompare (StructInstanceMember (Var 3 s1) 2 z (Integer 8 []) ()) Eq (Cast (Var 3 x2) IntegerToInteger (Integer 8 []) ()) (Logical 4 []) ()) ()) (Assert (RealCompare (FunctionCall 3 abs@__lpython_overloaded_1__abs 3 abs [((RealBinOp (StructInstanceMember (Var 3 s1) 2 a (Real 4 []) ()) Sub (Cast (Var 3 y2) RealToReal (Real 4 []) ()) (Real 4 []) ()))] (Real 4 []) () ()) Lt (Cast (RealConstant 0.000001 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 0.000001 (Real 4 []))) (Logical 4 []) ()) ()) (Assert (IntegerCompare (StructInstanceMember (Var 3 s1) 2 b (Integer 2 []) ()) Eq (Cast (Var 3 x2) IntegerToInteger (Integer 2 []) ()) (Logical 4 []) ()) ()) (Assert (IntegerCompare (StructInstanceMember (Var 3 s1) 2 c (Integer 1 []) ()) Eq (Cast (Var 3 x2) IntegerToInteger (Integer 1 []) ()) (Logical 4 []) ()) ()) (Assert (StructInstanceMember (Var 3 s1) 2 d (Logical 4 []) ()) ())] () Public .false. .false.)}) [])
diff --git a/tests/reference/asr-structs_06-6e14537.json b/tests/reference/asr-structs_06-6e14537.json
new file mode 100644
index 0000000000..ef751aa71b
--- /dev/null
+++ b/tests/reference/asr-structs_06-6e14537.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-structs_06-6e14537",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/structs_06.py",
+    "infile_hash": "9f4273c5fb4469837f65003255dcdca067c5c17735d0642757fd069c",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-structs_06-6e14537.stderr",
+    "stderr_hash": "3e984ed48fb675e832a4a372fa7c0b19d155232157ccd74ea2b8c972",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-structs_06-6e14537.stderr b/tests/reference/asr-structs_06-6e14537.stderr
new file mode 100644
index 0000000000..b53b294b79
--- /dev/null
+++ b/tests/reference/asr-structs_06-6e14537.stderr
@@ -0,0 +1,5 @@
+semantic error: StructTypeConstructor has more arguments than the number of struct members
+ --> tests/errors/structs_06.py:9:12
+  |
+9 |     s: S = S(2, 3, 4, 5)
+  |            ^^^^^^^^^^^^^ 
diff --git a/tests/reference/asr-structs_07-83694b7.json b/tests/reference/asr-structs_07-83694b7.json
new file mode 100644
index 0000000000..4c07fec19b
--- /dev/null
+++ b/tests/reference/asr-structs_07-83694b7.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-structs_07-83694b7",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/structs_07.py",
+    "infile_hash": "4e4f15d47dc5d9cdadd653567f6d105365b7fe20b194663c10b3802a",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-structs_07-83694b7.stderr",
+    "stderr_hash": "6b1e1646f11ee384e5dce1ded0d91751f7113eaea7c90da5c1bcf4ff",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-structs_07-83694b7.stderr b/tests/reference/asr-structs_07-83694b7.stderr
new file mode 100644
index 0000000000..13f0aaf0e1
--- /dev/null
+++ b/tests/reference/asr-structs_07-83694b7.stderr
@@ -0,0 +1,5 @@
+semantic error: Not enough arguments to S(), expected 2
+ --> tests/errors/structs_07.py:9:12
+  |
+9 |     s: S = S(y=2)
+  |            ^^^^^^ 
diff --git a/tests/reference/asr-structs_08-fa4dbf0.json b/tests/reference/asr-structs_08-fa4dbf0.json
new file mode 100644
index 0000000000..6dc738e78b
--- /dev/null
+++ b/tests/reference/asr-structs_08-fa4dbf0.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-structs_08-fa4dbf0",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/structs_08.py",
+    "infile_hash": "7779919c90170eb5236c4eeef19bf673996fda618ee8c600b5ecba94",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-structs_08-fa4dbf0.stderr",
+    "stderr_hash": "955a7ff234ab8a63398f621306d840ed419b7cab17ace57d20579df3",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-structs_08-fa4dbf0.stderr b/tests/reference/asr-structs_08-fa4dbf0.stderr
new file mode 100644
index 0000000000..53b80c58df
--- /dev/null
+++ b/tests/reference/asr-structs_08-fa4dbf0.stderr
@@ -0,0 +1,5 @@
+semantic error: StructTypeConstructor has more arguments than the number of struct members
+  --> tests/errors/structs_08.py:13:29
+   |
+13 |     test_dude3 : StringIO = StringIO(integer_asr, 3, 5, 2)
+   |                             ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 
diff --git a/tests/reference/asr-structs_09-f3ffe08.json b/tests/reference/asr-structs_09-f3ffe08.json
new file mode 100644
index 0000000000..a27b365565
--- /dev/null
+++ b/tests/reference/asr-structs_09-f3ffe08.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-structs_09-f3ffe08",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/structs_09.py",
+    "infile_hash": "06fb179f0c0c41124ffc960676a9f32cfe112ab4e39c6f6a7cb2a6e3",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-structs_09-f3ffe08.stderr",
+    "stderr_hash": "14119a0bc6420ad242b99395d457f2092014d96d2a1ac81d376c649d",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-structs_09-f3ffe08.stderr b/tests/reference/asr-structs_09-f3ffe08.stderr
new file mode 100644
index 0000000000..a67cb70dba
--- /dev/null
+++ b/tests/reference/asr-structs_09-f3ffe08.stderr
@@ -0,0 +1,5 @@
+semantic error: Method not found in the class StringIO or it's parents
+  --> tests/errors/structs_09.py:13:23
+   |
+13 |     bytes_read: i32 = fd.read()
+   |                       ^^^^^^^^^ 
diff --git a/tests/reference/asr-structs_10-cb8a283.json b/tests/reference/asr-structs_10-cb8a283.json
new file mode 100644
index 0000000000..2aefb19f3f
--- /dev/null
+++ b/tests/reference/asr-structs_10-cb8a283.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-structs_10-cb8a283",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/structs_10.py",
+    "infile_hash": "3959983b756a75ff1711fa9501d33a283a511aae48dd9922ecf7ae20",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-structs_10-cb8a283.stderr",
+    "stderr_hash": "7fcda3b91446d559e5b93dcb7f6ac1e567d0fa30d5ec9f8f84ef4f50",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-structs_10-cb8a283.stderr b/tests/reference/asr-structs_10-cb8a283.stderr
new file mode 100644
index 0000000000..cff580bb5a
--- /dev/null
+++ b/tests/reference/asr-structs_10-cb8a283.stderr
@@ -0,0 +1,9 @@
+semantic error: StructType member functions are not supported
+ --> tests/errors/structs_10.py:7:5 - 8:24
+  |
+7 |        def print_len(self: StringIO):
+  |        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^...
+...
+  |
+8 |            print(self._len)
+  | ...^^^^^^^^^^^^^^^^^^^^^^^^ 
diff --git a/tests/reference/asr-subscript1-1acfc19.json b/tests/reference/asr-subscript1-1acfc19.json
deleted file mode 100644
index c3d28bd956..0000000000
--- a/tests/reference/asr-subscript1-1acfc19.json
+++ /dev/null
@@ -1,13 +0,0 @@
-{
-    "basename": "asr-subscript1-1acfc19",
-    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
-    "infile": "tests/subscript1.py",
-    "infile_hash": "5d229893d3e13ea4463e8ed47eb3798be0b8c28f5ef6b6c773e87b80",
-    "outfile": null,
-    "outfile_hash": null,
-    "stdout": "asr-subscript1-1acfc19.stdout",
-    "stdout_hash": "1265b98b3029ee20d4dfa3cc793ce71ee06f4aed6f54732554330451",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
-}
\ No newline at end of file
diff --git a/tests/reference/asr-subscript1-1acfc19.stdout b/tests/reference/asr-subscript1-1acfc19.stdout
deleted file mode 100644
index 010dad0ba6..0000000000
--- a/tests/reference/asr-subscript1-1acfc19.stdout
+++ /dev/null
@@ -1 +0,0 @@
-(TranslationUnit (SymbolTable 1 {main_program: (Program (SymbolTable 3 {}) main_program [] []), test_subscript: (Function (SymbolTable 2 {A: (Variable 2 A [] Local () () Default (Integer 4 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 5 (Integer 4 [])))]) Source Public Required .false.), B: (Variable 2 B [] Local () () Default (Integer 4 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 2 (Integer 4 [])))]) Source Public Required .false.), i: (Variable 2 i [] Local () () Default (Integer 4 []) Source Public Required .false.), s: (Variable 2 s [] Local () () Default (Character 1 -2 () []) Source Public Required .false.)}) test_subscript (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [] [(= (Var 2 s) (StringConstant "abc" (Character 1 3 () [])) ()) (= (Var 2 s) (StringItem (Var 2 s) (IntegerBinOp (IntegerConstant 0 (Integer 4 [])) Add (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (Character 1 -2 () []) ()) ()) (= (Var 2 s) (StringSection (Var 2 s) (IntegerConstant 1 (Integer 4 [])) (IntegerConstant 2 (Integer 4 [])) () (Character 1 -2 () []) ()) ()) (= (Var 2 s) (StringSection (Var 2 s) () () () (Character 1 -2 () []) ()) ()) (= (Var 2 s) (StringSection (Var 2 s) () () (IntegerUnaryMinus (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant -1 (Integer 4 []))) (Character 1 -2 () []) ()) ()) (= (Var 2 s) (StringSection (Var 2 s) () () (IntegerConstant 2 (Integer 4 [])) (Character 1 -2 () []) ()) ()) (= (Var 2 s) (StringSection (Var 2 s) (IntegerConstant 1 (Integer 4 [])) (IntegerConstant 88 (Integer 4 [])) (IntegerConstant 1 (Integer 4 [])) (Character 1 -2 () []) ()) ()) (= (Var 2 s) (StringSection (Var 2 s) () (IntegerConstant 1 (Integer 4 [])) (IntegerUnaryMinus (IntegerConstant 4 (Integer 4 [])) (Integer 4 []) (IntegerConstant -4 (Integer 4 []))) (Character 1 -2 () []) ()) ()) (= (Var 2 s) (StringSection (Var 2 s) (IntegerUnaryMinus (IntegerConstant 89 (Integer 4 [])) (Integer 4 []) (IntegerConstant -89 (Integer 4 []))) () (IntegerConstant 4 (Integer 4 [])) (Character 1 -2 () []) ()) ()) (= (Var 2 s) (StringSection (Var 2 s) (IntegerUnaryMinus (IntegerConstant 3 (Integer 4 [])) (Integer 4 []) (IntegerConstant -3 (Integer 4 []))) (IntegerUnaryMinus (IntegerConstant 3 (Integer 4 [])) (Integer 4 []) (IntegerConstant -3 (Integer 4 []))) (IntegerUnaryMinus (IntegerConstant 3 (Integer 4 [])) (Integer 4 []) (IntegerConstant -3 (Integer 4 []))) (Character 1 -2 () []) ()) ()) (= (Var 2 s) (StringSection (Var 2 s) (IntegerConstant 2 (Integer 4 [])) (IntegerConstant 3 (Integer 4 [])) () (Character 1 -2 () []) ()) ()) (= (Var 2 i) (ArrayItem (Var 2 A) [(() (IntegerConstant 0 (Integer 4 [])) ())] (Integer 4 []) RowMajor ()) ()) (= (Var 2 B) (ArraySection (Var 2 A) [((IntegerConstant 1 (Integer 4 [])) (IntegerConstant 3 (Integer 4 [])) ())] (Integer 4 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 5 (Integer 4 [])))]) ()) ()) (= (Var 2 B) (ArraySection (Var 2 A) [((IntegerConstant 1 (Integer 4 [])) (IntegerConstant 2 (Integer 4 [])) (IntegerConstant 3 (Integer 4 [])))] (Integer 4 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 5 (Integer 4 [])))]) ()) ())] () Public .false. .false.)}) [])
diff --git a/tests/reference/asr-test_annassign_01-2f18669.json b/tests/reference/asr-test_annassign_01-2f18669.json
new file mode 100644
index 0000000000..d300379c58
--- /dev/null
+++ b/tests/reference/asr-test_annassign_01-2f18669.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-test_annassign_01-2f18669",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/test_annassign_01.py",
+    "infile_hash": "68f667b69b25d6a5f7f281a6dc7f2e2912511d8f4f20dbeab8442436",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-test_annassign_01-2f18669.stderr",
+    "stderr_hash": "28c68e6612db1644548768280ac3d35d3735a13cd32c04da44cec570",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-test_annassign_01-2f18669.stderr b/tests/reference/asr-test_annassign_01-2f18669.stderr
new file mode 100644
index 0000000000..0f08b0d244
--- /dev/null
+++ b/tests/reference/asr-test_annassign_01-2f18669.stderr
@@ -0,0 +1,5 @@
+semantic error: The type 'Optional' is undeclared.
+ --> tests/errors/test_annassign_01.py:2:8
+  |
+2 |     a: Optional[i32] = 5
+  |        ^^^^^^^^^^^^^ 
diff --git a/tests/reference/asr-test_annassign_02-accf6db.json b/tests/reference/asr-test_annassign_02-accf6db.json
new file mode 100644
index 0000000000..6f7c773278
--- /dev/null
+++ b/tests/reference/asr-test_annassign_02-accf6db.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-test_annassign_02-accf6db",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/test_annassign_02.py",
+    "infile_hash": "419ee1ffc46f3b9fd99f008d4fdde20f4cc65cf82bbd234ad9fcc005",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-test_annassign_02-accf6db.stderr",
+    "stderr_hash": "1183fbf06e8412166eb5ca96b5b07cec67382752789a96c7c04c1950",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-test_annassign_02-accf6db.stderr b/tests/reference/asr-test_annassign_02-accf6db.stderr
new file mode 100644
index 0000000000..90945d34b2
--- /dev/null
+++ b/tests/reference/asr-test_annassign_02-accf6db.stderr
@@ -0,0 +1,5 @@
+semantic error: The type 'Pattern' is undeclared.
+ --> tests/errors/test_annassign_02.py:2:15
+  |
+2 |     hex_pat : Pattern[str] = r'-?0[xX]+'
+  |               ^^^^^^^^^^^^ 
diff --git a/tests/reference/asr-test_annassign_03-f8c6160.json b/tests/reference/asr-test_annassign_03-f8c6160.json
new file mode 100644
index 0000000000..43585bc3b4
--- /dev/null
+++ b/tests/reference/asr-test_annassign_03-f8c6160.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-test_annassign_03-f8c6160",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/test_annassign_03.py",
+    "infile_hash": "aa787a87881a62595216dd4a7710bcf598550c100dda789794eb3c07",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-test_annassign_03-f8c6160.stderr",
+    "stderr_hash": "e87d692cc8404a7e66f41d61635f318e20003991138c3db5a0794884",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-test_annassign_03-f8c6160.stderr b/tests/reference/asr-test_annassign_03-f8c6160.stderr
new file mode 100644
index 0000000000..5a89637eb4
--- /dev/null
+++ b/tests/reference/asr-test_annassign_03-f8c6160.stderr
@@ -0,0 +1,5 @@
+semantic error: Intent annotation 'InOut' cannot be used here
+ --> tests/errors/test_annassign_03.py:6:13
+  |
+6 |     lexer : InOut[LasrLexer] = LasrLexer(5)
+  |             ^^^^^^^^^^^^^^^^ 
diff --git a/tests/reference/asr-test_annassign_type_mismatch-7dac7be.json b/tests/reference/asr-test_annassign_type_mismatch-7dac7be.json
index ed7f8b6351..b9527150ed 100644
--- a/tests/reference/asr-test_annassign_type_mismatch-7dac7be.json
+++ b/tests/reference/asr-test_annassign_type_mismatch-7dac7be.json
@@ -2,12 +2,12 @@
     "basename": "asr-test_annassign_type_mismatch-7dac7be",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/errors/test_annassign_type_mismatch.py",
-    "infile_hash": "5dacc11ffb3bc47fb14e508f454836ce4b196598d1943237cba9c86c",
+    "infile_hash": "ada18a04b70771754e17e884cfa2ec7bd5651d88850ae034049ec7b9",
     "outfile": null,
     "outfile_hash": null,
     "stdout": null,
     "stdout_hash": null,
     "stderr": "asr-test_annassign_type_mismatch-7dac7be.stderr",
-    "stderr_hash": "a794ce35be79f7fcbb0889e04091555055f3c1c537bcf14840d33e60",
+    "stderr_hash": "26fc89f95c7dda5f1d9c3cb1af9843880cf693eb7b97125372b11f80",
     "returncode": 2
 }
\ No newline at end of file
diff --git a/tests/reference/asr-test_annassign_type_mismatch-7dac7be.stderr b/tests/reference/asr-test_annassign_type_mismatch-7dac7be.stderr
index 895ff95d9d..6fd7b199ea 100644
--- a/tests/reference/asr-test_annassign_type_mismatch-7dac7be.stderr
+++ b/tests/reference/asr-test_annassign_type_mismatch-7dac7be.stderr
@@ -2,4 +2,4 @@ semantic error: Type mismatch in annotation-assignment, the types must be compat
  --> tests/errors/test_annassign_type_mismatch.py:4:5
   |
 4 |     x: i32[4] = [1, 2, 3, 4]
-  |     ^           ^^^^^^^^^^^^ type mismatch ('i32[5]' and 'list[i32]')
+  |     ^           ^^^^^^^^^^^^ type mismatch ('i32[4]' and 'list[i32]')
diff --git a/tests/reference/asr-test_annassign_type_mismatch2-fc883f7.json b/tests/reference/asr-test_annassign_type_mismatch2-fc883f7.json
index 97ea09f7e6..2bb48c32dd 100644
--- a/tests/reference/asr-test_annassign_type_mismatch2-fc883f7.json
+++ b/tests/reference/asr-test_annassign_type_mismatch2-fc883f7.json
@@ -2,12 +2,12 @@
     "basename": "asr-test_annassign_type_mismatch2-fc883f7",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/errors/test_annassign_type_mismatch2.py",
-    "infile_hash": "21f89e1a00c786674c46a2a6bb76d9e9fce37e1d9e11532d5134f68d",
+    "infile_hash": "40a5b3f96c7d228110c29dbb56eb03390c8741550408295a2e82d7b0",
     "outfile": null,
     "outfile_hash": null,
     "stdout": null,
     "stdout_hash": null,
     "stderr": "asr-test_annassign_type_mismatch2-fc883f7.stderr",
-    "stderr_hash": "3c2bbba713689c37ed22127cdd7a37ab6b1bce03d01380803884849d",
+    "stderr_hash": "873b4521e2155bc92405db41e7745a4fb5441b5d80f94467d7b1b637",
     "returncode": 2
 }
\ No newline at end of file
diff --git a/tests/reference/asr-test_annassign_type_mismatch2-fc883f7.stderr b/tests/reference/asr-test_annassign_type_mismatch2-fc883f7.stderr
index 9cc02d675f..2a4f9ccd10 100644
--- a/tests/reference/asr-test_annassign_type_mismatch2-fc883f7.stderr
+++ b/tests/reference/asr-test_annassign_type_mismatch2-fc883f7.stderr
@@ -2,4 +2,4 @@ semantic error: Type mismatch in annotation-assignment, the types must be compat
  --> tests/errors/test_annassign_type_mismatch2.py:4:5
   |
 4 |     x: f64[5] = [1.0, 2.0, 3.0, 4.0, 5.0]
-  |     ^           ^^^^^^^^^^^^^^^^^^^^^^^^^ type mismatch ('f64[6]' and 'list[f64]')
+  |     ^           ^^^^^^^^^^^^^^^^^^^^^^^^^ type mismatch ('f64[5]' and 'list[f64]')
diff --git a/tests/reference/asr-test_append_type_mismatch-030e9c7.json b/tests/reference/asr-test_append_type_mismatch-030e9c7.json
index 77ff4228a8..e2edd78183 100644
--- a/tests/reference/asr-test_append_type_mismatch-030e9c7.json
+++ b/tests/reference/asr-test_append_type_mismatch-030e9c7.json
@@ -2,7 +2,7 @@
     "basename": "asr-test_append_type_mismatch-030e9c7",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/errors/test_append_type_mismatch.py",
-    "infile_hash": "84088764cad3e1ba5102f3d32f1dd67bfe2e524ee8d9707a18014f83",
+    "infile_hash": "d545fce3cd501b0c1bbf3f4a705a68a6f66356e4e6f9806dd0c4c9da",
     "outfile": null,
     "outfile_hash": null,
     "stdout": null,
diff --git a/tests/reference/asr-test_assign1-a94d41e.json b/tests/reference/asr-test_assign1-a94d41e.json
index 35e6aa7403..2654663912 100644
--- a/tests/reference/asr-test_assign1-a94d41e.json
+++ b/tests/reference/asr-test_assign1-a94d41e.json
@@ -8,6 +8,6 @@
     "stdout": null,
     "stdout_hash": null,
     "stderr": "asr-test_assign1-a94d41e.stderr",
-    "stderr_hash": "cb4455d360373e13730d3a9fd5e2c551bd0f6640d066ceafd8841f9b",
+    "stderr_hash": "bc4431298c9a669129f5c59f2a9838555d74a8d5620d777a6929dc67",
     "returncode": 2
 }
\ No newline at end of file
diff --git a/tests/reference/asr-test_assign1-a94d41e.stderr b/tests/reference/asr-test_assign1-a94d41e.stderr
index abd1f376fa..699044029d 100644
--- a/tests/reference/asr-test_assign1-a94d41e.stderr
+++ b/tests/reference/asr-test_assign1-a94d41e.stderr
@@ -2,4 +2,4 @@ semantic error: Type mismatch in assignment, the types must be compatible
  --> tests/errors/test_assign1.py:6:5
   |
 6 |     a = b
-  |     ^   ^ type mismatch ('list[i32]' and 'list[str]')
+  |     ^   ^ type mismatch ('list[i32]' and 'list[Allocatable[str]]')
diff --git a/tests/reference/asr-test_assign2-fa29029.json b/tests/reference/asr-test_assign2-fa29029.json
index 4603aee52e..46b3a2cb9b 100644
--- a/tests/reference/asr-test_assign2-fa29029.json
+++ b/tests/reference/asr-test_assign2-fa29029.json
@@ -8,6 +8,6 @@
     "stdout": null,
     "stdout_hash": null,
     "stderr": "asr-test_assign2-fa29029.stderr",
-    "stderr_hash": "55f02e505bda066604eb94cec8bdc5081c7ec25e219f0ea46851100a",
+    "stderr_hash": "d52f8c0fbbd63ff542c7772796426f8ea3bdb2afc4ff155758f2fdb9",
     "returncode": 2
 }
\ No newline at end of file
diff --git a/tests/reference/asr-test_assign2-fa29029.stderr b/tests/reference/asr-test_assign2-fa29029.stderr
index 6a0fbd1522..9449800bf8 100644
--- a/tests/reference/asr-test_assign2-fa29029.stderr
+++ b/tests/reference/asr-test_assign2-fa29029.stderr
@@ -2,4 +2,4 @@ semantic error: Type mismatch in assignment, the types must be compatible
  --> tests/errors/test_assign2.py:6:5
   |
 6 |     a = b
-  |     ^   ^ type mismatch ('set[i32]' and 'set[str]')
+  |     ^   ^ type mismatch ('set[i32]' and 'set[Allocatable[str]]')
diff --git a/tests/reference/asr-test_assign4-a2136e0.json b/tests/reference/asr-test_assign4-a2136e0.json
index 908148d57b..e09dfa9249 100644
--- a/tests/reference/asr-test_assign4-a2136e0.json
+++ b/tests/reference/asr-test_assign4-a2136e0.json
@@ -2,7 +2,7 @@
     "basename": "asr-test_assign4-a2136e0",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/errors/test_assign4.py",
-    "infile_hash": "fa72583bcde55d59b4dae9b510e6d5245eaf3e5cf28e36108dada27a",
+    "infile_hash": "9e1e5ce063f88194008db998896cebd0fabe6dcb4cbda27c17de27da",
     "outfile": null,
     "outfile_hash": null,
     "stdout": null,
diff --git a/tests/reference/asr-test_assign5-694a98f.json b/tests/reference/asr-test_assign5-694a98f.json
index 312c85ffed..66904843a9 100644
--- a/tests/reference/asr-test_assign5-694a98f.json
+++ b/tests/reference/asr-test_assign5-694a98f.json
@@ -8,6 +8,6 @@
     "stdout": null,
     "stdout_hash": null,
     "stderr": "asr-test_assign5-694a98f.stderr",
-    "stderr_hash": "172b2f13e9b7670cbdd718452713fb15ed4bcd19f6193d328e459fbe",
+    "stderr_hash": "7737667c76aa6f2486504fd0328bb46b167d653a5fa104b1ccbb2b49",
     "returncode": 2
 }
\ No newline at end of file
diff --git a/tests/reference/asr-test_assign5-694a98f.stderr b/tests/reference/asr-test_assign5-694a98f.stderr
index 0847cb828c..2616cfe5b3 100644
--- a/tests/reference/asr-test_assign5-694a98f.stderr
+++ b/tests/reference/asr-test_assign5-694a98f.stderr
@@ -2,4 +2,4 @@ semantic error: Type mismatch in assignment, the types must be compatible
  --> tests/errors/test_assign5.py:6:5
   |
 6 |     x = y
-  |     ^   ^ type mismatch ('list[list[i32]]' and 'list[list[str]]')
+  |     ^   ^ type mismatch ('list[list[i32]]' and 'list[list[Allocatable[str]]]')
diff --git a/tests/reference/asr-test_assign6-05cd64f.json b/tests/reference/asr-test_assign6-05cd64f.json
deleted file mode 100644
index 765658fda0..0000000000
--- a/tests/reference/asr-test_assign6-05cd64f.json
+++ /dev/null
@@ -1,13 +0,0 @@
-{
-    "basename": "asr-test_assign6-05cd64f",
-    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
-    "infile": "tests/errors/test_assign6.py",
-    "infile_hash": "6837d07201b8680dbb63908d3ad27e4e9bfb1f1ff77b4bd6a77eddcf",
-    "outfile": null,
-    "outfile_hash": null,
-    "stdout": null,
-    "stdout_hash": null,
-    "stderr": "asr-test_assign6-05cd64f.stderr",
-    "stderr_hash": "294865737572b9ab043b8ebab73fe949fa2bb73e9790c6a04d87dc50",
-    "returncode": 2
-}
\ No newline at end of file
diff --git a/tests/reference/asr-test_assign6-05cd64f.stderr b/tests/reference/asr-test_assign6-05cd64f.stderr
deleted file mode 100644
index b9594977bd..0000000000
--- a/tests/reference/asr-test_assign6-05cd64f.stderr
+++ /dev/null
@@ -1,5 +0,0 @@
-semantic error: 'str' object does not support item assignment
- --> tests/errors/test_assign6.py:4:5
-  |
-4 |     s[0] = 'f'
-  |     ^^^^^^^^^^ 
diff --git a/tests/reference/asr-test_assign7-beebac3.json b/tests/reference/asr-test_assign7-beebac3.json
index 7ddee4fb5a..e5197e2be8 100644
--- a/tests/reference/asr-test_assign7-beebac3.json
+++ b/tests/reference/asr-test_assign7-beebac3.json
@@ -8,6 +8,6 @@
     "stdout": null,
     "stdout_hash": null,
     "stderr": "asr-test_assign7-beebac3.stderr",
-    "stderr_hash": "d12f04efad566740bd562fbe9c00a058210a9adf0f5297475fc41fe6",
+    "stderr_hash": "109f7da7ac86c0c2add0ff034655336396cb58ebe81570c1d0ce6e81",
     "returncode": 2
 }
\ No newline at end of file
diff --git a/tests/reference/asr-test_assign7-beebac3.stderr b/tests/reference/asr-test_assign7-beebac3.stderr
index 88ea06ffd7..87c04ca904 100644
--- a/tests/reference/asr-test_assign7-beebac3.stderr
+++ b/tests/reference/asr-test_assign7-beebac3.stderr
@@ -2,4 +2,4 @@ semantic error: 'tuple[i32, i32]' object does not support item assignment
  --> tests/errors/test_assign7.py:4:5
   |
 4 |     t[0] = 3
-  |     ^^^^^^^^ 
+  |     ^^^^ 
diff --git a/tests/reference/asr-test_assign8-4b26e63.json b/tests/reference/asr-test_assign8-4b26e63.json
index db66ba491d..fb449632d9 100644
--- a/tests/reference/asr-test_assign8-4b26e63.json
+++ b/tests/reference/asr-test_assign8-4b26e63.json
@@ -2,7 +2,7 @@
     "basename": "asr-test_assign8-4b26e63",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/errors/test_assign8.py",
-    "infile_hash": "ecfb2c34cb368f82914aecf2bd4d9b4d77cc4ae2ef794cebb97a86f4",
+    "infile_hash": "e7f5e3dd10847a04fc4634a70fb7908f4360a0b71c1f6718f7beeee9",
     "outfile": null,
     "outfile_hash": null,
     "stdout": null,
diff --git a/tests/reference/asr-test_assign9-51278b8.json b/tests/reference/asr-test_assign9-51278b8.json
new file mode 100644
index 0000000000..2f05c4e5e5
--- /dev/null
+++ b/tests/reference/asr-test_assign9-51278b8.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-test_assign9-51278b8",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/test_assign9.py",
+    "infile_hash": "3aa4fda6489ce46f10fd95cd257f5d29a59629fc340d6d8ea5e983d8",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-test_assign9-51278b8.stderr",
+    "stderr_hash": "602e4fa615e929bad9586849d2a5167741930e56db6373cdca3695d0",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-test_assign9-51278b8.stderr b/tests/reference/asr-test_assign9-51278b8.stderr
new file mode 100644
index 0000000000..f3c3e9716a
--- /dev/null
+++ b/tests/reference/asr-test_assign9-51278b8.stderr
@@ -0,0 +1,5 @@
+semantic error: Assignment to an input function parameter `x` is not allowed
+ --> tests/errors/test_assign9.py:2:5
+  |
+2 |     x = 2
+  |     ^ Hint: create a new local variable with a different name
diff --git a/tests/reference/asr-test_async-361297c.json b/tests/reference/asr-test_async-361297c.json
new file mode 100644
index 0000000000..4477cbad49
--- /dev/null
+++ b/tests/reference/asr-test_async-361297c.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-test_async-361297c",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/test_async.py",
+    "infile_hash": "f4d737246effd50f1798a81f07042ad15a045e275448fe0226334f03",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-test_async-361297c.stderr",
+    "stderr_hash": "abf614594f89a7a6d93d469d512e31de5adc64feef866957de80cd03",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-test_async-361297c.stderr b/tests/reference/asr-test_async-361297c.stderr
new file mode 100644
index 0000000000..c24b2174ae
--- /dev/null
+++ b/tests/reference/asr-test_async-361297c.stderr
@@ -0,0 +1,9 @@
+semantic error: The `async` keyword is currently not supported
+ --> tests/errors/test_async.py:1:1 - 2:17
+  |
+1 |    async def test_async():
+  |    ^^^^^^^^^^^^^^^^^^^^^^^...
+...
+  |
+2 |        print("done")
+  | ...^^^^^^^^^^^^^^^^^ 
diff --git a/tests/reference/asr-test_binop1-50b63f6.json b/tests/reference/asr-test_binop1-50b63f6.json
index 343aa48bf2..ed7421aa62 100644
--- a/tests/reference/asr-test_binop1-50b63f6.json
+++ b/tests/reference/asr-test_binop1-50b63f6.json
@@ -8,6 +8,6 @@
     "stdout": null,
     "stdout_hash": null,
     "stderr": "asr-test_binop1-50b63f6.stderr",
-    "stderr_hash": "6883d11d4de52f03fa684252229715e39aa52c830d186f787159faaa",
+    "stderr_hash": "2b7a1eb6c8d3176e8ae98b37ef0b55741ae73feab5af5a613882bbca",
     "returncode": 2
 }
\ No newline at end of file
diff --git a/tests/reference/asr-test_binop1-50b63f6.stderr b/tests/reference/asr-test_binop1-50b63f6.stderr
index 67e6ee1aa1..a5ce8e009f 100644
--- a/tests/reference/asr-test_binop1-50b63f6.stderr
+++ b/tests/reference/asr-test_binop1-50b63f6.stderr
@@ -2,4 +2,4 @@ semantic error: Type mismatch in binary operator; the types must be compatible
  --> tests/errors/test_binop1.py:6:11
   |
 6 |     print(x+s)
-  |           ^ ^ type mismatch (i32 and str)
+  |           ^ ^ type mismatch (i32 and Allocatable[str])
diff --git a/tests/reference/asr-test_binop3-a67201d.json b/tests/reference/asr-test_binop3-a67201d.json
index 3679f8ddb4..dc238a62cb 100644
--- a/tests/reference/asr-test_binop3-a67201d.json
+++ b/tests/reference/asr-test_binop3-a67201d.json
@@ -2,7 +2,7 @@
     "basename": "asr-test_binop3-a67201d",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/errors/test_binop3.py",
-    "infile_hash": "3e25a0b0167fc2e06dd5797a4f1827108fd2e73d9f61cd95532cdc42",
+    "infile_hash": "eb43132639edd47d89802b8693880ed350800a88c7c5f94eb93a9b3b",
     "outfile": null,
     "outfile_hash": null,
     "stdout": null,
diff --git a/tests/reference/asr-test_bitwise_on_complex-dd9568b.json b/tests/reference/asr-test_bitwise_on_complex-dd9568b.json
index dcb0393cd5..7fa9b4be57 100644
--- a/tests/reference/asr-test_bitwise_on_complex-dd9568b.json
+++ b/tests/reference/asr-test_bitwise_on_complex-dd9568b.json
@@ -2,7 +2,7 @@
     "basename": "asr-test_bitwise_on_complex-dd9568b",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/errors/test_bitwise_on_complex.py",
-    "infile_hash": "249e435a3abb82895e8fef64c71459470314360fb9d7707dc33df049",
+    "infile_hash": "48f71d8eae47a14316e9e7aba182a4a03ff8cc05ae661b8e6d41dc85",
     "outfile": null,
     "outfile_hash": null,
     "stdout": null,
diff --git a/tests/reference/asr-test_bitwise_on_float-2e09b30.json b/tests/reference/asr-test_bitwise_on_float-2e09b30.json
index 26f0fda986..df6b412bad 100644
--- a/tests/reference/asr-test_bitwise_on_float-2e09b30.json
+++ b/tests/reference/asr-test_bitwise_on_float-2e09b30.json
@@ -2,7 +2,7 @@
     "basename": "asr-test_bitwise_on_float-2e09b30",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/errors/test_bitwise_on_float.py",
-    "infile_hash": "34c9ba802bdc18b54b616f3689f76af19a2e62a68b7db1e0daed1c58",
+    "infile_hash": "50e0d4c18ad2fe0db0aedfaa5b3db792db545aeb8ef09a4cb7c4f193",
     "outfile": null,
     "outfile_hash": null,
     "stdout": null,
diff --git a/tests/reference/asr-test_bool_binop-f856ef0.json b/tests/reference/asr-test_bool_binop-f856ef0.json
index fa3581869d..0f64de61db 100644
--- a/tests/reference/asr-test_bool_binop-f856ef0.json
+++ b/tests/reference/asr-test_bool_binop-f856ef0.json
@@ -2,11 +2,11 @@
     "basename": "asr-test_bool_binop-f856ef0",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/../integration_tests/test_bool_binop.py",
-    "infile_hash": "3d525985e7428e1f7351528c319a3f0f00168d851ae6f7fa7aa94b28",
+    "infile_hash": "7c44fe2915b3871b3b85edf3ab129d87a75fa4b9acbb597ae801daf9",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "asr-test_bool_binop-f856ef0.stdout",
-    "stdout_hash": "3f94012e9df705500c86c4e9fab75a8673e8f9af1f32c2481540096e",
+    "stdout_hash": "c07ce23d72b16822d3a5f8241884ba7575242e48cbca7d55ecde77c9",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/asr-test_bool_binop-f856ef0.stdout b/tests/reference/asr-test_bool_binop-f856ef0.stdout
index c377b32a41..8bb39070a8 100644
--- a/tests/reference/asr-test_bool_binop-f856ef0.stdout
+++ b/tests/reference/asr-test_bool_binop-f856ef0.stdout
@@ -1 +1,484 @@
-(TranslationUnit (SymbolTable 1 {_lpython_main_program: (Function (SymbolTable 97 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [f] [] [(SubroutineCall 1 f () [] ())] () Public .false. .false.), f: (Function (SymbolTable 2 {_lpython_floordiv: (ExternalSymbol 2 _lpython_floordiv 4 _lpython_floordiv lpython_builtin [] _lpython_floordiv Private), _lpython_floordiv@__lpython_overloaded_4___lpython_floordiv: (ExternalSymbol 2 _lpython_floordiv@__lpython_overloaded_4___lpython_floordiv 4 __lpython_overloaded_4___lpython_floordiv lpython_builtin [] __lpython_overloaded_4___lpython_floordiv Public), b1: (Variable 2 b1 [] Local (LogicalConstant .false. (Logical 4 [])) () Default (Logical 4 []) Source Public Required .false.), b2: (Variable 2 b2 [] Local (LogicalConstant .true. (Logical 4 [])) () Default (Logical 4 []) Source Public Required .false.), f: (Variable 2 f [] Local () () Default (Real 8 []) Source Public Required .false.), i: (Variable 2 i [] Local () () Default (Integer 4 []) Source Public Required .false.)}) f (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [_lpython_floordiv@__lpython_overloaded_4___lpython_floordiv _lpython_floordiv@__lpython_overloaded_4___lpython_floordiv] [] [(= (Var 2 i) (IntegerBinOp (Cast (LogicalConstant .true. (Logical 4 [])) LogicalToInteger (Integer 4 []) ()) Add (Cast (LogicalConstant .true. (Logical 4 [])) LogicalToInteger (Integer 4 []) ()) (Integer 4 []) ()) ()) (Assert (IntegerCompare (Var 2 i) Eq (IntegerConstant 2 (Integer 4 [])) (Logical 4 []) ()) ()) (= (Var 2 i) (IntegerBinOp (Cast (LogicalConstant .true. (Logical 4 [])) LogicalToInteger (Integer 4 []) ()) Sub (Cast (LogicalConstant .false. (Logical 4 [])) LogicalToInteger (Integer 4 []) ()) (Integer 4 []) ()) ()) (Assert (IntegerCompare (Var 2 i) Eq (IntegerConstant 1 (Integer 4 [])) (Logical 4 []) ()) ()) (= (Var 2 i) (IntegerBinOp (Cast (LogicalConstant .false. (Logical 4 [])) LogicalToInteger (Integer 4 []) ()) Mul (Cast (LogicalConstant .true. (Logical 4 [])) LogicalToInteger (Integer 4 []) ()) (Integer 4 []) ()) ()) (Assert (IntegerCompare (Var 2 i) Eq (IntegerConstant 0 (Integer 4 [])) (Logical 4 []) ()) ()) (= (Var 2 i) (Cast (FunctionCall 2 _lpython_floordiv@__lpython_overloaded_4___lpython_floordiv 2 _lpython_floordiv [((LogicalConstant .true. (Logical 4 []))) ((LogicalConstant .true. (Logical 4 [])))] (Logical 4 []) (LogicalConstant .true. (Logical 1 [])) ()) LogicalToInteger (Integer 4 []) ()) ()) (Assert (IntegerCompare (Var 2 i) Eq (IntegerConstant 1 (Integer 4 [])) (Logical 4 []) ()) ()) (= (Var 2 i) (Cast (FunctionCall 2 _lpython_floordiv@__lpython_overloaded_4___lpython_floordiv 2 _lpython_floordiv [((LogicalConstant .false. (Logical 4 []))) ((LogicalConstant .true. (Logical 4 [])))] (Logical 4 []) (LogicalConstant .false. (Logical 1 [])) ()) LogicalToInteger (Integer 4 []) ()) ()) (Assert (IntegerCompare (Var 2 i) Eq (IntegerConstant 0 (Integer 4 [])) (Logical 4 []) ()) ()) (= (Var 2 i) (IntegerBinOp (Cast (LogicalConstant .true. (Logical 4 [])) LogicalToInteger (Integer 4 []) ()) Pow (Cast (LogicalConstant .true. (Logical 4 [])) LogicalToInteger (Integer 4 []) ()) (Integer 4 []) ()) ()) (Assert (IntegerCompare (Var 2 i) Eq (IntegerConstant 1 (Integer 4 [])) (Logical 4 []) ()) ()) (= (Var 2 b1) (LogicalConstant .false. (Logical 4 [])) ()) (= (Var 2 b2) (LogicalConstant .true. (Logical 4 [])) ()) (= (Var 2 f) (RealBinOp (Cast (Var 2 b1) LogicalToReal (Real 8 []) ()) Div (Cast (Var 2 b2) LogicalToReal (Real 8 []) ()) (Real 8 []) ()) ()) (Assert (RealCompare (Var 2 f) Eq (RealConstant 0.000000 (Real 8 [])) (Logical 4 []) ()) ())] () Public .false. .false.), lpython_builtin: (IntrinsicModule lpython_builtin), main_program: (Program (SymbolTable 96 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())])}) [])
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            __main__global_stmts:
+                                (Function
+                                    (SymbolTable
+                                        4
+                                        {
+                                            
+                                        })
+                                    __main__global_stmts
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [f]
+                                    []
+                                    [(SubroutineCall
+                                        2 f
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            f:
+                                (Function
+                                    (SymbolTable
+                                        3
+                                        {
+                                            b1:
+                                                (Variable
+                                                    3
+                                                    b1
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Logical 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            b2:
+                                                (Variable
+                                                    3
+                                                    b2
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Logical 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            f:
+                                                (Variable
+                                                    3
+                                                    f
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            i:
+                                                (Variable
+                                                    3
+                                                    i
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    f
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 3 i)
+                                        (IntegerBinOp
+                                            (Cast
+                                                (LogicalConstant
+                                                    .true.
+                                                    (Logical 4)
+                                                )
+                                                LogicalToInteger
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Add
+                                            (Cast
+                                                (LogicalConstant
+                                                    .true.
+                                                    (Logical 4)
+                                                )
+                                                LogicalToInteger
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (Var 3 i)
+                                            Eq
+                                            (IntegerConstant 2 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 i)
+                                        (IntegerBinOp
+                                            (Cast
+                                                (LogicalConstant
+                                                    .true.
+                                                    (Logical 4)
+                                                )
+                                                LogicalToInteger
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Sub
+                                            (Cast
+                                                (LogicalConstant
+                                                    .false.
+                                                    (Logical 4)
+                                                )
+                                                LogicalToInteger
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (Var 3 i)
+                                            Eq
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 i)
+                                        (IntegerBinOp
+                                            (Cast
+                                                (LogicalConstant
+                                                    .false.
+                                                    (Logical 4)
+                                                )
+                                                LogicalToInteger
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Mul
+                                            (Cast
+                                                (LogicalConstant
+                                                    .true.
+                                                    (Logical 4)
+                                                )
+                                                LogicalToInteger
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (Var 3 i)
+                                            Eq
+                                            (IntegerConstant 0 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 i)
+                                        (Cast
+                                            (IntrinsicElementalFunction
+                                                FloorDiv
+                                                [(LogicalConstant
+                                                    .true.
+                                                    (Logical 4)
+                                                )
+                                                (LogicalConstant
+                                                    .true.
+                                                    (Logical 4)
+                                                )]
+                                                0
+                                                (Logical 4)
+                                                (LogicalConstant
+                                                    .true.
+                                                    (Logical 4)
+                                                )
+                                            )
+                                            LogicalToInteger
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (Var 3 i)
+                                            Eq
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 i)
+                                        (Cast
+                                            (IntrinsicElementalFunction
+                                                FloorDiv
+                                                [(LogicalConstant
+                                                    .false.
+                                                    (Logical 4)
+                                                )
+                                                (LogicalConstant
+                                                    .true.
+                                                    (Logical 4)
+                                                )]
+                                                0
+                                                (Logical 4)
+                                                (LogicalConstant
+                                                    .false.
+                                                    (Logical 4)
+                                                )
+                                            )
+                                            LogicalToInteger
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (Var 3 i)
+                                            Eq
+                                            (IntegerConstant 0 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 i)
+                                        (IntegerBinOp
+                                            (Cast
+                                                (LogicalConstant
+                                                    .true.
+                                                    (Logical 4)
+                                                )
+                                                LogicalToInteger
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Pow
+                                            (Cast
+                                                (LogicalConstant
+                                                    .true.
+                                                    (Logical 4)
+                                                )
+                                                LogicalToInteger
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (Var 3 i)
+                                            Eq
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 b1)
+                                        (LogicalConstant
+                                            .false.
+                                            (Logical 4)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 b2)
+                                        (LogicalConstant
+                                            .true.
+                                            (Logical 4)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 f)
+                                        (RealBinOp
+                                            (Cast
+                                                (Var 3 b1)
+                                                LogicalToReal
+                                                (Real 8)
+                                                ()
+                                            )
+                                            Div
+                                            (Cast
+                                                (Var 3 b2)
+                                                LogicalToReal
+                                                (Real 8)
+                                                ()
+                                            )
+                                            (Real 8)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (Var 3 f)
+                                            Eq
+                                            (RealConstant
+                                                0.000000
+                                                (Real 8)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    []
+                    .false.
+                    .false.
+                    .false.
+                ),
+            main_program:
+                (Program
+                    (SymbolTable
+                        5
+                        {
+                            __main__global_stmts:
+                                (ExternalSymbol
+                                    5
+                                    __main__global_stmts
+                                    2 __main__global_stmts
+                                    __main__
+                                    []
+                                    __main__global_stmts
+                                    Public
+                                )
+                        })
+                    main_program
+                    [__main__]
+                    [(SubroutineCall
+                        5 __main__global_stmts
+                        2 __main__global_stmts
+                        []
+                        ()
+                        .false.
+                    )]
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-test_builtin-aa64615.json b/tests/reference/asr-test_builtin-aa64615.json
index 85a874b071..14b4528736 100644
--- a/tests/reference/asr-test_builtin-aa64615.json
+++ b/tests/reference/asr-test_builtin-aa64615.json
@@ -2,11 +2,11 @@
     "basename": "asr-test_builtin-aa64615",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/../integration_tests/test_builtin.py",
-    "infile_hash": "b027cd7ebfa6c0ea9d5ebf92fa75ca18f630bb5d3698b37d004bdbb3",
+    "infile_hash": "f3376f18b9927914f7cb97578b40f14d570a48c64648c32a80daef6a",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "asr-test_builtin-aa64615.stdout",
-    "stdout_hash": "6b20ab17ff2991ce065e8dbdef3f2fa3d88a7cd43d45c1207391be50",
+    "stdout_hash": "24e9e5aed5a4649c0b867cb3f97e7ee274d22230781a1e40a88751a9",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/asr-test_builtin-aa64615.stdout b/tests/reference/asr-test_builtin-aa64615.stdout
index 5fc10776a2..c660e9cdb6 100644
--- a/tests/reference/asr-test_builtin-aa64615.stdout
+++ b/tests/reference/asr-test_builtin-aa64615.stdout
@@ -1 +1,2578 @@
-(TranslationUnit (SymbolTable 1 {_lpython_main_program: (Function (SymbolTable 5 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [test_ord test_chr] [] [(SubroutineCall 1 test_ord () [] ()) (SubroutineCall 1 test_chr () [] ())] () Public .false. .false.), main_program: (Program (SymbolTable 4 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())]), test_chr: (Function (SymbolTable 3 {capital_a: (Variable 3 capital_a [] Local () () Default (Character 1 -2 () []) Source Public Required .false.), capital_z: (Variable 3 capital_z [] Local () () Default (Character 1 -2 () []) Source Public Required .false.), dollar: (Variable 3 dollar [] Local () () Default (Character 1 -2 () []) Source Public Required .false.), exclamation: (Variable 3 exclamation [] Local () () Default (Character 1 -2 () []) Source Public Required .false.), i: (Variable 3 i [] Local () () Default (Integer 4 []) Source Public Required .false.), left_parenthesis: (Variable 3 left_parenthesis [] Local () () Default (Character 1 -2 () []) Source Public Required .false.), nine: (Variable 3 nine [] Local () () Default (Character 1 -2 () []) Source Public Required .false.), plus: (Variable 3 plus [] Local () () Default (Character 1 -2 () []) Source Public Required .false.), right_brace: (Variable 3 right_brace [] Local () () Default (Character 1 -2 () []) Source Public Required .false.), right_bracket: (Variable 3 right_bracket [] Local () () Default (Character 1 -2 () []) Source Public Required .false.), semicolon: (Variable 3 semicolon [] Local () () Default (Character 1 -2 () []) Source Public Required .false.), small_a: (Variable 3 small_a [] Local () () Default (Character 1 -2 () []) Source Public Required .false.), small_z: (Variable 3 small_z [] Local () () Default (Character 1 -2 () []) Source Public Required .false.), zero: (Variable 3 zero [] Local () () Default (Character 1 -2 () []) Source Public Required .false.)}) test_chr (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [] [(= (Var 3 i) (IntegerConstant 33 (Integer 4 [])) ()) (= (Var 3 exclamation) (StringChr (Var 3 i) (Character 1 1 () []) ()) ()) (Assert (StringCompare (StringChr (IntegerConstant 33 (Integer 4 [])) (Character 1 1 () []) (StringConstant "!" (Character 1 1 () []))) Eq (StringConstant "!" (Character 1 1 () [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (StringCompare (Var 3 exclamation) Eq (StringConstant "!" (Character 1 1 () [])) (Logical 4 []) ()) ()) (= (Var 3 i) (IntegerConstant 36 (Integer 4 [])) ()) (= (Var 3 dollar) (StringChr (Var 3 i) (Character 1 1 () []) ()) ()) (Assert (StringCompare (StringChr (IntegerConstant 36 (Integer 4 [])) (Character 1 1 () []) (StringConstant "$" (Character 1 1 () []))) Eq (StringConstant "$" (Character 1 1 () [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (StringCompare (Var 3 dollar) Eq (StringConstant "$" (Character 1 1 () [])) (Logical 4 []) ()) ()) (= (Var 3 i) (IntegerConstant 40 (Integer 4 [])) ()) (= (Var 3 left_parenthesis) (StringChr (Var 3 i) (Character 1 1 () []) ()) ()) (Assert (StringCompare (StringChr (IntegerConstant 40 (Integer 4 [])) (Character 1 1 () []) (StringConstant "(" (Character 1 1 () []))) Eq (StringConstant "(" (Character 1 1 () [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (StringCompare (Var 3 left_parenthesis) Eq (StringConstant "(" (Character 1 1 () [])) (Logical 4 []) ()) ()) (= (Var 3 i) (IntegerConstant 43 (Integer 4 [])) ()) (= (Var 3 plus) (StringChr (Var 3 i) (Character 1 1 () []) ()) ()) (Assert (StringCompare (StringChr (IntegerConstant 43 (Integer 4 [])) (Character 1 1 () []) (StringConstant "+" (Character 1 1 () []))) Eq (StringConstant "+" (Character 1 1 () [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (StringCompare (Var 3 plus) Eq (StringConstant "+" (Character 1 1 () [])) (Logical 4 []) ()) ()) (= (Var 3 i) (IntegerConstant 48 (Integer 4 [])) ()) (= (Var 3 zero) (StringChr (Var 3 i) (Character 1 1 () []) ()) ()) (Assert (StringCompare (StringChr (IntegerConstant 48 (Integer 4 [])) (Character 1 1 () []) (StringConstant "0" (Character 1 1 () []))) Eq (StringConstant "0" (Character 1 1 () [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (StringCompare (Var 3 zero) Eq (StringConstant "0" (Character 1 1 () [])) (Logical 4 []) ()) ()) (= (Var 3 i) (IntegerConstant 57 (Integer 4 [])) ()) (= (Var 3 nine) (StringChr (Var 3 i) (Character 1 1 () []) ()) ()) (Assert (StringCompare (StringChr (IntegerConstant 57 (Integer 4 [])) (Character 1 1 () []) (StringConstant "9" (Character 1 1 () []))) Eq (StringConstant "9" (Character 1 1 () [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (StringCompare (Var 3 nine) Eq (StringConstant "9" (Character 1 1 () [])) (Logical 4 []) ()) ()) (= (Var 3 i) (IntegerConstant 59 (Integer 4 [])) ()) (= (Var 3 semicolon) (StringChr (Var 3 i) (Character 1 1 () []) ()) ()) (Assert (StringCompare (StringChr (IntegerConstant 59 (Integer 4 [])) (Character 1 1 () []) (StringConstant ";" (Character 1 1 () []))) Eq (StringConstant ";" (Character 1 1 () [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (StringCompare (Var 3 semicolon) Eq (StringConstant ";" (Character 1 1 () [])) (Logical 4 []) ()) ()) (= (Var 3 i) (IntegerConstant 65 (Integer 4 [])) ()) (= (Var 3 capital_a) (StringChr (Var 3 i) (Character 1 1 () []) ()) ()) (Assert (StringCompare (StringChr (IntegerConstant 65 (Integer 4 [])) (Character 1 1 () []) (StringConstant "A" (Character 1 1 () []))) Eq (StringConstant "A" (Character 1 1 () [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (StringCompare (Var 3 capital_a) Eq (StringConstant "A" (Character 1 1 () [])) (Logical 4 []) ()) ()) (= (Var 3 i) (IntegerConstant 90 (Integer 4 [])) ()) (= (Var 3 capital_z) (StringChr (Var 3 i) (Character 1 1 () []) ()) ()) (Assert (StringCompare (StringChr (IntegerConstant 90 (Integer 4 [])) (Character 1 1 () []) (StringConstant "Z" (Character 1 1 () []))) Eq (StringConstant "Z" (Character 1 1 () [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (StringCompare (Var 3 capital_z) Eq (StringConstant "Z" (Character 1 1 () [])) (Logical 4 []) ()) ()) (= (Var 3 i) (IntegerConstant 93 (Integer 4 [])) ()) (= (Var 3 right_bracket) (StringChr (Var 3 i) (Character 1 1 () []) ()) ()) (Assert (StringCompare (StringChr (IntegerConstant 93 (Integer 4 [])) (Character 1 1 () []) (StringConstant "]" (Character 1 1 () []))) Eq (StringConstant "]" (Character 1 1 () [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (StringCompare (Var 3 right_bracket) Eq (StringConstant "]" (Character 1 1 () [])) (Logical 4 []) ()) ()) (= (Var 3 i) (IntegerConstant 97 (Integer 4 [])) ()) (= (Var 3 small_a) (StringChr (Var 3 i) (Character 1 1 () []) ()) ()) (Assert (StringCompare (StringChr (IntegerConstant 97 (Integer 4 [])) (Character 1 1 () []) (StringConstant "a" (Character 1 1 () []))) Eq (StringConstant "a" (Character 1 1 () [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (StringCompare (Var 3 small_a) Eq (StringConstant "a" (Character 1 1 () [])) (Logical 4 []) ()) ()) (= (Var 3 i) (IntegerConstant 122 (Integer 4 [])) ()) (= (Var 3 small_z) (StringChr (Var 3 i) (Character 1 1 () []) ()) ()) (Assert (StringCompare (StringChr (IntegerConstant 122 (Integer 4 [])) (Character 1 1 () []) (StringConstant "z" (Character 1 1 () []))) Eq (StringConstant "z" (Character 1 1 () [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (StringCompare (Var 3 small_z) Eq (StringConstant "z" (Character 1 1 () [])) (Logical 4 []) ()) ()) (= (Var 3 i) (IntegerConstant 125 (Integer 4 [])) ()) (= (Var 3 right_brace) (StringChr (Var 3 i) (Character 1 1 () []) ()) ()) (Assert (StringCompare (StringChr (IntegerConstant 125 (Integer 4 [])) (Character 1 1 () []) (StringConstant "}" (Character 1 1 () []))) Eq (StringConstant "}" (Character 1 1 () [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (StringCompare (Var 3 right_brace) Eq (StringConstant "}" (Character 1 1 () [])) (Logical 4 []) ()) ())] () Public .false. .false.), test_ord: (Function (SymbolTable 2 {capital_a_unicode: (Variable 2 capital_a_unicode [] Local () () Default (Integer 4 []) Source Public Required .false.), capital_z_unicode: (Variable 2 capital_z_unicode [] Local () () Default (Integer 4 []) Source Public Required .false.), dollar_unicode: (Variable 2 dollar_unicode [] Local () () Default (Integer 4 []) Source Public Required .false.), exclamation_unicode: (Variable 2 exclamation_unicode [] Local () () Default (Integer 4 []) Source Public Required .false.), left_parenthesis_unicode: (Variable 2 left_parenthesis_unicode [] Local () () Default (Integer 4 []) Source Public Required .false.), nine_unicode: (Variable 2 nine_unicode [] Local () () Default (Integer 4 []) Source Public Required .false.), plus_unicode: (Variable 2 plus_unicode [] Local () () Default (Integer 4 []) Source Public Required .false.), right_brace_unicode: (Variable 2 right_brace_unicode [] Local () () Default (Integer 4 []) Source Public Required .false.), right_bracket_unicode: (Variable 2 right_bracket_unicode [] Local () () Default (Integer 4 []) Source Public Required .false.), s: (Variable 2 s [] Local () () Default (Character 1 -2 () []) Source Public Required .false.), semicolon_unicode: (Variable 2 semicolon_unicode [] Local () () Default (Integer 4 []) Source Public Required .false.), small_a_unicode: (Variable 2 small_a_unicode [] Local () () Default (Integer 4 []) Source Public Required .false.), small_z_unicode: (Variable 2 small_z_unicode [] Local () () Default (Integer 4 []) Source Public Required .false.), zero_unicode: (Variable 2 zero_unicode [] Local () () Default (Integer 4 []) Source Public Required .false.)}) test_ord (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [] [(= (Var 2 s) (StringConstant "!" (Character 1 1 () [])) ()) (= (Var 2 exclamation_unicode) (StringOrd (Var 2 s) (Integer 4 []) ()) ()) (Assert (IntegerCompare (StringOrd (StringConstant "!" (Character 1 1 () [])) (Integer 4 []) (IntegerConstant 33 (Integer 4 []))) Eq (IntegerConstant 33 (Integer 4 [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (IntegerCompare (Var 2 exclamation_unicode) Eq (IntegerConstant 33 (Integer 4 [])) (Logical 4 []) ()) ()) (= (Var 2 s) (StringConstant "$" (Character 1 1 () [])) ()) (= (Var 2 dollar_unicode) (StringOrd (Var 2 s) (Integer 4 []) ()) ()) (Assert (IntegerCompare (StringOrd (StringConstant "$" (Character 1 1 () [])) (Integer 4 []) (IntegerConstant 36 (Integer 4 []))) Eq (IntegerConstant 36 (Integer 4 [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (IntegerCompare (Var 2 dollar_unicode) Eq (IntegerConstant 36 (Integer 4 [])) (Logical 4 []) ()) ()) (= (Var 2 s) (StringConstant "(" (Character 1 1 () [])) ()) (= (Var 2 left_parenthesis_unicode) (StringOrd (Var 2 s) (Integer 4 []) ()) ()) (Assert (IntegerCompare (StringOrd (StringConstant "(" (Character 1 1 () [])) (Integer 4 []) (IntegerConstant 40 (Integer 4 []))) Eq (IntegerConstant 40 (Integer 4 [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (IntegerCompare (Var 2 left_parenthesis_unicode) Eq (IntegerConstant 40 (Integer 4 [])) (Logical 4 []) ()) ()) (= (Var 2 s) (StringConstant "+" (Character 1 1 () [])) ()) (= (Var 2 plus_unicode) (StringOrd (Var 2 s) (Integer 4 []) ()) ()) (Assert (IntegerCompare (StringOrd (StringConstant "+" (Character 1 1 () [])) (Integer 4 []) (IntegerConstant 43 (Integer 4 []))) Eq (IntegerConstant 43 (Integer 4 [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (IntegerCompare (Var 2 plus_unicode) Eq (IntegerConstant 43 (Integer 4 [])) (Logical 4 []) ()) ()) (= (Var 2 s) (StringConstant "0" (Character 1 1 () [])) ()) (= (Var 2 zero_unicode) (StringOrd (Var 2 s) (Integer 4 []) ()) ()) (Assert (IntegerCompare (StringOrd (StringConstant "0" (Character 1 1 () [])) (Integer 4 []) (IntegerConstant 48 (Integer 4 []))) Eq (IntegerConstant 48 (Integer 4 [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (IntegerCompare (Var 2 zero_unicode) Eq (IntegerConstant 48 (Integer 4 [])) (Logical 4 []) ()) ()) (= (Var 2 s) (StringConstant "9" (Character 1 1 () [])) ()) (= (Var 2 nine_unicode) (StringOrd (Var 2 s) (Integer 4 []) ()) ()) (Assert (IntegerCompare (StringOrd (StringConstant "9" (Character 1 1 () [])) (Integer 4 []) (IntegerConstant 57 (Integer 4 []))) Eq (IntegerConstant 57 (Integer 4 [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (IntegerCompare (Var 2 nine_unicode) Eq (IntegerConstant 57 (Integer 4 [])) (Logical 4 []) ()) ()) (= (Var 2 s) (StringConstant ";" (Character 1 1 () [])) ()) (= (Var 2 semicolon_unicode) (StringOrd (Var 2 s) (Integer 4 []) ()) ()) (Assert (IntegerCompare (StringOrd (StringConstant ";" (Character 1 1 () [])) (Integer 4 []) (IntegerConstant 59 (Integer 4 []))) Eq (IntegerConstant 59 (Integer 4 [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (IntegerCompare (Var 2 semicolon_unicode) Eq (IntegerConstant 59 (Integer 4 [])) (Logical 4 []) ()) ()) (= (Var 2 s) (StringConstant "A" (Character 1 1 () [])) ()) (= (Var 2 capital_a_unicode) (StringOrd (Var 2 s) (Integer 4 []) ()) ()) (Assert (IntegerCompare (StringOrd (StringConstant "A" (Character 1 1 () [])) (Integer 4 []) (IntegerConstant 65 (Integer 4 []))) Eq (IntegerConstant 65 (Integer 4 [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (IntegerCompare (Var 2 capital_a_unicode) Eq (IntegerConstant 65 (Integer 4 [])) (Logical 4 []) ()) ()) (= (Var 2 s) (StringConstant "Z" (Character 1 1 () [])) ()) (= (Var 2 capital_z_unicode) (StringOrd (Var 2 s) (Integer 4 []) ()) ()) (Assert (IntegerCompare (StringOrd (StringConstant "Z" (Character 1 1 () [])) (Integer 4 []) (IntegerConstant 90 (Integer 4 []))) Eq (IntegerConstant 90 (Integer 4 [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (IntegerCompare (Var 2 capital_z_unicode) Eq (IntegerConstant 90 (Integer 4 [])) (Logical 4 []) ()) ()) (= (Var 2 s) (StringConstant "]" (Character 1 1 () [])) ()) (= (Var 2 right_bracket_unicode) (StringOrd (Var 2 s) (Integer 4 []) ()) ()) (Assert (IntegerCompare (StringOrd (StringConstant "]" (Character 1 1 () [])) (Integer 4 []) (IntegerConstant 93 (Integer 4 []))) Eq (IntegerConstant 93 (Integer 4 [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (IntegerCompare (Var 2 right_bracket_unicode) Eq (IntegerConstant 93 (Integer 4 [])) (Logical 4 []) ()) ()) (= (Var 2 s) (StringConstant "a" (Character 1 1 () [])) ()) (= (Var 2 small_a_unicode) (StringOrd (Var 2 s) (Integer 4 []) ()) ()) (Assert (IntegerCompare (StringOrd (StringConstant "a" (Character 1 1 () [])) (Integer 4 []) (IntegerConstant 97 (Integer 4 []))) Eq (IntegerConstant 97 (Integer 4 [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (IntegerCompare (Var 2 small_a_unicode) Eq (IntegerConstant 97 (Integer 4 [])) (Logical 4 []) ()) ()) (= (Var 2 s) (StringConstant "z" (Character 1 1 () [])) ()) (= (Var 2 small_z_unicode) (StringOrd (Var 2 s) (Integer 4 []) ()) ()) (Assert (IntegerCompare (StringOrd (StringConstant "z" (Character 1 1 () [])) (Integer 4 []) (IntegerConstant 122 (Integer 4 []))) Eq (IntegerConstant 122 (Integer 4 [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (IntegerCompare (Var 2 small_z_unicode) Eq (IntegerConstant 122 (Integer 4 [])) (Logical 4 []) ()) ()) (= (Var 2 s) (StringConstant "}" (Character 1 1 () [])) ()) (= (Var 2 right_brace_unicode) (StringOrd (Var 2 s) (Integer 4 []) ()) ()) (Assert (IntegerCompare (StringOrd (StringConstant "}" (Character 1 1 () [])) (Integer 4 []) (IntegerConstant 125 (Integer 4 []))) Eq (IntegerConstant 125 (Integer 4 [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (IntegerCompare (Var 2 right_brace_unicode) Eq (IntegerConstant 125 (Integer 4 [])) (Logical 4 []) ()) ())] () Public .false. .false.)}) [])
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            __main__global_stmts:
+                                (Function
+                                    (SymbolTable
+                                        6
+                                        {
+                                            
+                                        })
+                                    __main__global_stmts
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [test_ord
+                                    test_chr
+                                    more_test]
+                                    []
+                                    [(SubroutineCall
+                                        2 test_ord
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )
+                                    (SubroutineCall
+                                        2 test_chr
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )
+                                    (SubroutineCall
+                                        2 more_test
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            more_test:
+                                (Function
+                                    (SymbolTable
+                                        5
+                                        {
+                                            a:
+                                                (Variable
+                                                    5
+                                                    a
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Allocatable
+                                                        (String 1 () DeferredLength DescriptorString)
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            b:
+                                                (Variable
+                                                    5
+                                                    b
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Allocatable
+                                                        (String 1 () DeferredLength DescriptorString)
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            c:
+                                                (Variable
+                                                    5
+                                                    c
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Allocatable
+                                                        (String 1 () DeferredLength DescriptorString)
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            d:
+                                                (Variable
+                                                    5
+                                                    d
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Allocatable
+                                                        (String 1 () DeferredLength DescriptorString)
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            p:
+                                                (Variable
+                                                    5
+                                                    p
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            q:
+                                                (Variable
+                                                    5
+                                                    q
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            r:
+                                                (Variable
+                                                    5
+                                                    r
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            s:
+                                                (Variable
+                                                    5
+                                                    s
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    more_test
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 5 p)
+                                        (IntegerConstant 97 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 5 q)
+                                        (IntegerConstant 112 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 5 r)
+                                        (IntegerConstant 10 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 5 s)
+                                        (IntegerConstant 65 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(StringChr
+                                                (Var 5 p)
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                                ()
+                                            )]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(StringChr
+                                                (Var 5 q)
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                                ()
+                                            )]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(StringChr
+                                                (Var 5 r)
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                                ()
+                                            )]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(StringChr
+                                                (Var 5 s)
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                                ()
+                                            )]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )
+                                    (Assignment
+                                        (Var 5 a)
+                                        (StringConstant
+                                            "!"
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 5 b)
+                                        (StringConstant
+                                            " "
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 5 c)
+                                        (StringConstant
+                                            "Z"
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 5 d)
+                                        (StringConstant
+                                            "g"
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(StringOrd
+                                                (Var 5 a)
+                                                (Integer 4)
+                                                ()
+                                            )]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(StringOrd
+                                                (Var 5 b)
+                                                (Integer 4)
+                                                ()
+                                            )]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(StringOrd
+                                                (Var 5 c)
+                                                (Integer 4)
+                                                ()
+                                            )]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(StringOrd
+                                                (Var 5 d)
+                                                (Integer 4)
+                                                ()
+                                            )]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            test_chr:
+                                (Function
+                                    (SymbolTable
+                                        4
+                                        {
+                                            capital_a:
+                                                (Variable
+                                                    4
+                                                    capital_a
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Allocatable
+                                                        (String 1 () DeferredLength DescriptorString)
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            capital_z:
+                                                (Variable
+                                                    4
+                                                    capital_z
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Allocatable
+                                                        (String 1 () DeferredLength DescriptorString)
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            dollar:
+                                                (Variable
+                                                    4
+                                                    dollar
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Allocatable
+                                                        (String 1 () DeferredLength DescriptorString)
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            exclamation:
+                                                (Variable
+                                                    4
+                                                    exclamation
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Allocatable
+                                                        (String 1 () DeferredLength DescriptorString)
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            i:
+                                                (Variable
+                                                    4
+                                                    i
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            left_parenthesis:
+                                                (Variable
+                                                    4
+                                                    left_parenthesis
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Allocatable
+                                                        (String 1 () DeferredLength DescriptorString)
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            nine:
+                                                (Variable
+                                                    4
+                                                    nine
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Allocatable
+                                                        (String 1 () DeferredLength DescriptorString)
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            plus:
+                                                (Variable
+                                                    4
+                                                    plus
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Allocatable
+                                                        (String 1 () DeferredLength DescriptorString)
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            right_brace:
+                                                (Variable
+                                                    4
+                                                    right_brace
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Allocatable
+                                                        (String 1 () DeferredLength DescriptorString)
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            right_bracket:
+                                                (Variable
+                                                    4
+                                                    right_bracket
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Allocatable
+                                                        (String 1 () DeferredLength DescriptorString)
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            semicolon:
+                                                (Variable
+                                                    4
+                                                    semicolon
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Allocatable
+                                                        (String 1 () DeferredLength DescriptorString)
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            small_a:
+                                                (Variable
+                                                    4
+                                                    small_a
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Allocatable
+                                                        (String 1 () DeferredLength DescriptorString)
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            small_z:
+                                                (Variable
+                                                    4
+                                                    small_z
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Allocatable
+                                                        (String 1 () DeferredLength DescriptorString)
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            zero:
+                                                (Variable
+                                                    4
+                                                    zero
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Allocatable
+                                                        (String 1 () DeferredLength DescriptorString)
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test_chr
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 4 i)
+                                        (IntegerConstant 33 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 exclamation)
+                                        (StringChr
+                                            (Var 4 i)
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (StringCompare
+                                            (StringChr
+                                                (IntegerConstant 33 (Integer 4) Decimal)
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                                (StringConstant
+                                                    "!"
+                                                    (Allocatable
+                                                        (String 1 () DeferredLength DescriptorString)
+                                                    )
+                                                )
+                                            )
+                                            Eq
+                                            (StringConstant
+                                                "!"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (StringCompare
+                                            (Var 4 exclamation)
+                                            Eq
+                                            (StringConstant
+                                                "!"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 4 i)
+                                        (IntegerConstant 36 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 dollar)
+                                        (StringChr
+                                            (Var 4 i)
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (StringCompare
+                                            (StringChr
+                                                (IntegerConstant 36 (Integer 4) Decimal)
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                                (StringConstant
+                                                    "$"
+                                                    (Allocatable
+                                                        (String 1 () DeferredLength DescriptorString)
+                                                    )
+                                                )
+                                            )
+                                            Eq
+                                            (StringConstant
+                                                "$"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (StringCompare
+                                            (Var 4 dollar)
+                                            Eq
+                                            (StringConstant
+                                                "$"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 4 i)
+                                        (IntegerConstant 40 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 left_parenthesis)
+                                        (StringChr
+                                            (Var 4 i)
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (StringCompare
+                                            (StringChr
+                                                (IntegerConstant 40 (Integer 4) Decimal)
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                                (StringConstant
+                                                    "("
+                                                    (Allocatable
+                                                        (String 1 () DeferredLength DescriptorString)
+                                                    )
+                                                )
+                                            )
+                                            Eq
+                                            (StringConstant
+                                                "("
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (StringCompare
+                                            (Var 4 left_parenthesis)
+                                            Eq
+                                            (StringConstant
+                                                "("
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 4 i)
+                                        (IntegerConstant 43 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 plus)
+                                        (StringChr
+                                            (Var 4 i)
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (StringCompare
+                                            (StringChr
+                                                (IntegerConstant 43 (Integer 4) Decimal)
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                                (StringConstant
+                                                    "+"
+                                                    (Allocatable
+                                                        (String 1 () DeferredLength DescriptorString)
+                                                    )
+                                                )
+                                            )
+                                            Eq
+                                            (StringConstant
+                                                "+"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (StringCompare
+                                            (Var 4 plus)
+                                            Eq
+                                            (StringConstant
+                                                "+"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 4 i)
+                                        (IntegerConstant 48 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 zero)
+                                        (StringChr
+                                            (Var 4 i)
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (StringCompare
+                                            (StringChr
+                                                (IntegerConstant 48 (Integer 4) Decimal)
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                                (StringConstant
+                                                    "0"
+                                                    (Allocatable
+                                                        (String 1 () DeferredLength DescriptorString)
+                                                    )
+                                                )
+                                            )
+                                            Eq
+                                            (StringConstant
+                                                "0"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (StringCompare
+                                            (Var 4 zero)
+                                            Eq
+                                            (StringConstant
+                                                "0"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 4 i)
+                                        (IntegerConstant 57 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 nine)
+                                        (StringChr
+                                            (Var 4 i)
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (StringCompare
+                                            (StringChr
+                                                (IntegerConstant 57 (Integer 4) Decimal)
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                                (StringConstant
+                                                    "9"
+                                                    (Allocatable
+                                                        (String 1 () DeferredLength DescriptorString)
+                                                    )
+                                                )
+                                            )
+                                            Eq
+                                            (StringConstant
+                                                "9"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (StringCompare
+                                            (Var 4 nine)
+                                            Eq
+                                            (StringConstant
+                                                "9"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 4 i)
+                                        (IntegerConstant 59 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 semicolon)
+                                        (StringChr
+                                            (Var 4 i)
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (StringCompare
+                                            (StringChr
+                                                (IntegerConstant 59 (Integer 4) Decimal)
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                                (StringConstant
+                                                    ";"
+                                                    (Allocatable
+                                                        (String 1 () DeferredLength DescriptorString)
+                                                    )
+                                                )
+                                            )
+                                            Eq
+                                            (StringConstant
+                                                ";"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (StringCompare
+                                            (Var 4 semicolon)
+                                            Eq
+                                            (StringConstant
+                                                ";"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 4 i)
+                                        (IntegerConstant 65 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 capital_a)
+                                        (StringChr
+                                            (Var 4 i)
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (StringCompare
+                                            (StringChr
+                                                (IntegerConstant 65 (Integer 4) Decimal)
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                                (StringConstant
+                                                    "A"
+                                                    (Allocatable
+                                                        (String 1 () DeferredLength DescriptorString)
+                                                    )
+                                                )
+                                            )
+                                            Eq
+                                            (StringConstant
+                                                "A"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (StringCompare
+                                            (Var 4 capital_a)
+                                            Eq
+                                            (StringConstant
+                                                "A"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 4 i)
+                                        (IntegerConstant 90 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 capital_z)
+                                        (StringChr
+                                            (Var 4 i)
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (StringCompare
+                                            (StringChr
+                                                (IntegerConstant 90 (Integer 4) Decimal)
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                                (StringConstant
+                                                    "Z"
+                                                    (Allocatable
+                                                        (String 1 () DeferredLength DescriptorString)
+                                                    )
+                                                )
+                                            )
+                                            Eq
+                                            (StringConstant
+                                                "Z"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (StringCompare
+                                            (Var 4 capital_z)
+                                            Eq
+                                            (StringConstant
+                                                "Z"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 4 i)
+                                        (IntegerConstant 93 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 right_bracket)
+                                        (StringChr
+                                            (Var 4 i)
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (StringCompare
+                                            (StringChr
+                                                (IntegerConstant 93 (Integer 4) Decimal)
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                                (StringConstant
+                                                    "]"
+                                                    (Allocatable
+                                                        (String 1 () DeferredLength DescriptorString)
+                                                    )
+                                                )
+                                            )
+                                            Eq
+                                            (StringConstant
+                                                "]"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (StringCompare
+                                            (Var 4 right_bracket)
+                                            Eq
+                                            (StringConstant
+                                                "]"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 4 i)
+                                        (IntegerConstant 97 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 small_a)
+                                        (StringChr
+                                            (Var 4 i)
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (StringCompare
+                                            (StringChr
+                                                (IntegerConstant 97 (Integer 4) Decimal)
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                                (StringConstant
+                                                    "a"
+                                                    (Allocatable
+                                                        (String 1 () DeferredLength DescriptorString)
+                                                    )
+                                                )
+                                            )
+                                            Eq
+                                            (StringConstant
+                                                "a"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (StringCompare
+                                            (Var 4 small_a)
+                                            Eq
+                                            (StringConstant
+                                                "a"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 4 i)
+                                        (IntegerConstant 122 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 small_z)
+                                        (StringChr
+                                            (Var 4 i)
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (StringCompare
+                                            (StringChr
+                                                (IntegerConstant 122 (Integer 4) Decimal)
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                                (StringConstant
+                                                    "z"
+                                                    (Allocatable
+                                                        (String 1 () DeferredLength DescriptorString)
+                                                    )
+                                                )
+                                            )
+                                            Eq
+                                            (StringConstant
+                                                "z"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (StringCompare
+                                            (Var 4 small_z)
+                                            Eq
+                                            (StringConstant
+                                                "z"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 4 i)
+                                        (IntegerConstant 125 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 right_brace)
+                                        (StringChr
+                                            (Var 4 i)
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (StringCompare
+                                            (StringChr
+                                                (IntegerConstant 125 (Integer 4) Decimal)
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                                (StringConstant
+                                                    "}"
+                                                    (Allocatable
+                                                        (String 1 () DeferredLength DescriptorString)
+                                                    )
+                                                )
+                                            )
+                                            Eq
+                                            (StringConstant
+                                                "}"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (StringCompare
+                                            (Var 4 right_brace)
+                                            Eq
+                                            (StringConstant
+                                                "}"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            test_ord:
+                                (Function
+                                    (SymbolTable
+                                        3
+                                        {
+                                            capital_a_unicode:
+                                                (Variable
+                                                    3
+                                                    capital_a_unicode
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            capital_z_unicode:
+                                                (Variable
+                                                    3
+                                                    capital_z_unicode
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            dollar_unicode:
+                                                (Variable
+                                                    3
+                                                    dollar_unicode
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            exclamation_unicode:
+                                                (Variable
+                                                    3
+                                                    exclamation_unicode
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            left_parenthesis_unicode:
+                                                (Variable
+                                                    3
+                                                    left_parenthesis_unicode
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            nine_unicode:
+                                                (Variable
+                                                    3
+                                                    nine_unicode
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            plus_unicode:
+                                                (Variable
+                                                    3
+                                                    plus_unicode
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            right_brace_unicode:
+                                                (Variable
+                                                    3
+                                                    right_brace_unicode
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            right_bracket_unicode:
+                                                (Variable
+                                                    3
+                                                    right_bracket_unicode
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            s:
+                                                (Variable
+                                                    3
+                                                    s
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Allocatable
+                                                        (String 1 () DeferredLength DescriptorString)
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            semicolon_unicode:
+                                                (Variable
+                                                    3
+                                                    semicolon_unicode
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            small_a_unicode:
+                                                (Variable
+                                                    3
+                                                    small_a_unicode
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            small_z_unicode:
+                                                (Variable
+                                                    3
+                                                    small_z_unicode
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            zero_unicode:
+                                                (Variable
+                                                    3
+                                                    zero_unicode
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test_ord
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 3 s)
+                                        (StringConstant
+                                            "!"
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 exclamation_unicode)
+                                        (StringOrd
+                                            (Var 3 s)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (StringOrd
+                                                (StringConstant
+                                                    "!"
+                                                    (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                                (Integer 4)
+                                                (IntegerConstant 33 (Integer 4) Decimal)
+                                            )
+                                            Eq
+                                            (IntegerConstant 33 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (Var 3 exclamation_unicode)
+                                            Eq
+                                            (IntegerConstant 33 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 s)
+                                        (StringConstant
+                                            "$"
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 dollar_unicode)
+                                        (StringOrd
+                                            (Var 3 s)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (StringOrd
+                                                (StringConstant
+                                                    "$"
+                                                    (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                                (Integer 4)
+                                                (IntegerConstant 36 (Integer 4) Decimal)
+                                            )
+                                            Eq
+                                            (IntegerConstant 36 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (Var 3 dollar_unicode)
+                                            Eq
+                                            (IntegerConstant 36 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 s)
+                                        (StringConstant
+                                            "("
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 left_parenthesis_unicode)
+                                        (StringOrd
+                                            (Var 3 s)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (StringOrd
+                                                (StringConstant
+                                                    "("
+                                                    (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                                (Integer 4)
+                                                (IntegerConstant 40 (Integer 4) Decimal)
+                                            )
+                                            Eq
+                                            (IntegerConstant 40 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (Var 3 left_parenthesis_unicode)
+                                            Eq
+                                            (IntegerConstant 40 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 s)
+                                        (StringConstant
+                                            "+"
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 plus_unicode)
+                                        (StringOrd
+                                            (Var 3 s)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (StringOrd
+                                                (StringConstant
+                                                    "+"
+                                                    (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                                (Integer 4)
+                                                (IntegerConstant 43 (Integer 4) Decimal)
+                                            )
+                                            Eq
+                                            (IntegerConstant 43 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (Var 3 plus_unicode)
+                                            Eq
+                                            (IntegerConstant 43 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 s)
+                                        (StringConstant
+                                            "0"
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 zero_unicode)
+                                        (StringOrd
+                                            (Var 3 s)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (StringOrd
+                                                (StringConstant
+                                                    "0"
+                                                    (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                                (Integer 4)
+                                                (IntegerConstant 48 (Integer 4) Decimal)
+                                            )
+                                            Eq
+                                            (IntegerConstant 48 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (Var 3 zero_unicode)
+                                            Eq
+                                            (IntegerConstant 48 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 s)
+                                        (StringConstant
+                                            "9"
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 nine_unicode)
+                                        (StringOrd
+                                            (Var 3 s)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (StringOrd
+                                                (StringConstant
+                                                    "9"
+                                                    (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                                (Integer 4)
+                                                (IntegerConstant 57 (Integer 4) Decimal)
+                                            )
+                                            Eq
+                                            (IntegerConstant 57 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (Var 3 nine_unicode)
+                                            Eq
+                                            (IntegerConstant 57 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 s)
+                                        (StringConstant
+                                            ";"
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 semicolon_unicode)
+                                        (StringOrd
+                                            (Var 3 s)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (StringOrd
+                                                (StringConstant
+                                                    ";"
+                                                    (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                                (Integer 4)
+                                                (IntegerConstant 59 (Integer 4) Decimal)
+                                            )
+                                            Eq
+                                            (IntegerConstant 59 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (Var 3 semicolon_unicode)
+                                            Eq
+                                            (IntegerConstant 59 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 s)
+                                        (StringConstant
+                                            "A"
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 capital_a_unicode)
+                                        (StringOrd
+                                            (Var 3 s)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (StringOrd
+                                                (StringConstant
+                                                    "A"
+                                                    (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                                (Integer 4)
+                                                (IntegerConstant 65 (Integer 4) Decimal)
+                                            )
+                                            Eq
+                                            (IntegerConstant 65 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (Var 3 capital_a_unicode)
+                                            Eq
+                                            (IntegerConstant 65 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 s)
+                                        (StringConstant
+                                            "Z"
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 capital_z_unicode)
+                                        (StringOrd
+                                            (Var 3 s)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (StringOrd
+                                                (StringConstant
+                                                    "Z"
+                                                    (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                                (Integer 4)
+                                                (IntegerConstant 90 (Integer 4) Decimal)
+                                            )
+                                            Eq
+                                            (IntegerConstant 90 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (Var 3 capital_z_unicode)
+                                            Eq
+                                            (IntegerConstant 90 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 s)
+                                        (StringConstant
+                                            "]"
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 right_bracket_unicode)
+                                        (StringOrd
+                                            (Var 3 s)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (StringOrd
+                                                (StringConstant
+                                                    "]"
+                                                    (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                                (Integer 4)
+                                                (IntegerConstant 93 (Integer 4) Decimal)
+                                            )
+                                            Eq
+                                            (IntegerConstant 93 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (Var 3 right_bracket_unicode)
+                                            Eq
+                                            (IntegerConstant 93 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 s)
+                                        (StringConstant
+                                            "a"
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 small_a_unicode)
+                                        (StringOrd
+                                            (Var 3 s)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (StringOrd
+                                                (StringConstant
+                                                    "a"
+                                                    (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                                (Integer 4)
+                                                (IntegerConstant 97 (Integer 4) Decimal)
+                                            )
+                                            Eq
+                                            (IntegerConstant 97 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (Var 3 small_a_unicode)
+                                            Eq
+                                            (IntegerConstant 97 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 s)
+                                        (StringConstant
+                                            "z"
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 small_z_unicode)
+                                        (StringOrd
+                                            (Var 3 s)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (StringOrd
+                                                (StringConstant
+                                                    "z"
+                                                    (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                                (Integer 4)
+                                                (IntegerConstant 122 (Integer 4) Decimal)
+                                            )
+                                            Eq
+                                            (IntegerConstant 122 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (Var 3 small_z_unicode)
+                                            Eq
+                                            (IntegerConstant 122 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 s)
+                                        (StringConstant
+                                            "}"
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 right_brace_unicode)
+                                        (StringOrd
+                                            (Var 3 s)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (StringOrd
+                                                (StringConstant
+                                                    "}"
+                                                    (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                                (Integer 4)
+                                                (IntegerConstant 125 (Integer 4) Decimal)
+                                            )
+                                            Eq
+                                            (IntegerConstant 125 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (Var 3 right_brace_unicode)
+                                            Eq
+                                            (IntegerConstant 125 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    []
+                    .false.
+                    .false.
+                    .false.
+                ),
+            main_program:
+                (Program
+                    (SymbolTable
+                        7
+                        {
+                            __main__global_stmts:
+                                (ExternalSymbol
+                                    7
+                                    __main__global_stmts
+                                    2 __main__global_stmts
+                                    __main__
+                                    []
+                                    __main__global_stmts
+                                    Public
+                                )
+                        })
+                    main_program
+                    [__main__]
+                    [(SubroutineCall
+                        7 __main__global_stmts
+                        2 __main__global_stmts
+                        []
+                        ()
+                        .false.
+                    )]
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-test_builtin_abs-c74d2c9.json b/tests/reference/asr-test_builtin_abs-c74d2c9.json
index 5559ece288..d05a48cd52 100644
--- a/tests/reference/asr-test_builtin_abs-c74d2c9.json
+++ b/tests/reference/asr-test_builtin_abs-c74d2c9.json
@@ -2,11 +2,11 @@
     "basename": "asr-test_builtin_abs-c74d2c9",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/../integration_tests/test_builtin_abs.py",
-    "infile_hash": "bc2d0fcc50f2824b0c84083216964bee70511f6fdad7d3bab2769682",
+    "infile_hash": "8748a0c131b21523ed4b2d019a4fb74af041845397169d44b00ee041",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "asr-test_builtin_abs-c74d2c9.stdout",
-    "stdout_hash": "d5f9b76893d4a1266cfae258163231c440bb25a64f28ecb75ed5b3d7",
+    "stdout_hash": "197148e66ca2e20e77cca0636672a0cfe5edede1d3febcabcd3bac28",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/asr-test_builtin_abs-c74d2c9.stdout b/tests/reference/asr-test_builtin_abs-c74d2c9.stdout
index e2eda4a16f..37fd921639 100644
--- a/tests/reference/asr-test_builtin_abs-c74d2c9.stdout
+++ b/tests/reference/asr-test_builtin_abs-c74d2c9.stdout
@@ -1 +1,662 @@
-(TranslationUnit (SymbolTable 1 {_lpython_main_program: (Function (SymbolTable 97 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [test_abs] [] [(SubroutineCall 1 test_abs () [] ())] () Public .false. .false.), lpython_builtin: (IntrinsicModule lpython_builtin), main_program: (Program (SymbolTable 96 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())]), test_abs: (Function (SymbolTable 2 {abs: (ExternalSymbol 2 abs 4 abs lpython_builtin [] abs Private), abs@__lpython_overloaded_0__abs: (ExternalSymbol 2 abs@__lpython_overloaded_0__abs 4 __lpython_overloaded_0__abs lpython_builtin [] __lpython_overloaded_0__abs Public), abs@__lpython_overloaded_1__abs: (ExternalSymbol 2 abs@__lpython_overloaded_1__abs 4 __lpython_overloaded_1__abs lpython_builtin [] __lpython_overloaded_1__abs Public), abs@__lpython_overloaded_2__abs: (ExternalSymbol 2 abs@__lpython_overloaded_2__abs 4 __lpython_overloaded_2__abs lpython_builtin [] __lpython_overloaded_2__abs Public), abs@__lpython_overloaded_3__abs: (ExternalSymbol 2 abs@__lpython_overloaded_3__abs 4 __lpython_overloaded_3__abs lpython_builtin [] __lpython_overloaded_3__abs Public), abs@__lpython_overloaded_4__abs: (ExternalSymbol 2 abs@__lpython_overloaded_4__abs 4 __lpython_overloaded_4__abs lpython_builtin [] __lpython_overloaded_4__abs Public), abs@__lpython_overloaded_5__abs: (ExternalSymbol 2 abs@__lpython_overloaded_5__abs 4 __lpython_overloaded_5__abs lpython_builtin [] __lpython_overloaded_5__abs Public), abs@__lpython_overloaded_6__abs: (ExternalSymbol 2 abs@__lpython_overloaded_6__abs 4 __lpython_overloaded_6__abs lpython_builtin [] __lpython_overloaded_6__abs Public), b: (Variable 2 b [] Local () () Default (Logical 4 []) Source Public Required .false.), i: (Variable 2 i [] Local () () Default (Integer 4 []) Source Public Required .false.), i2: (Variable 2 i2 [] Local () () Default (Integer 8 []) Source Public Required .false.), i3: (Variable 2 i3 [] Local () () Default (Integer 1 []) Source Public Required .false.), i4: (Variable 2 i4 [] Local () () Default (Integer 2 []) Source Public Required .false.), x: (Variable 2 x [] Local () () Default (Real 8 []) Source Public Required .false.), x2: (Variable 2 x2 [] Local () () Default (Real 4 []) Source Public Required .false.)}) test_abs (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [abs@__lpython_overloaded_0__abs abs@__lpython_overloaded_0__abs abs@__lpython_overloaded_0__abs abs@__lpython_overloaded_0__abs abs@__lpython_overloaded_1__abs abs@__lpython_overloaded_4__abs abs@__lpython_overloaded_4__abs abs@__lpython_overloaded_5__abs abs@__lpython_overloaded_2__abs abs@__lpython_overloaded_3__abs abs@__lpython_overloaded_6__abs abs@__lpython_overloaded_6__abs] [] [(= (Var 2 x) (RealConstant 5.500000 (Real 8 [])) ()) (Assert (RealCompare (FunctionCall 2 abs@__lpython_overloaded_0__abs 2 abs [((Var 2 x))] (Real 8 []) () ()) Eq (RealConstant 5.500000 (Real 8 [])) (Logical 4 []) ()) ()) (= (Var 2 x) (RealUnaryMinus (RealConstant 5.500000 (Real 8 [])) (Real 8 []) (RealConstant -5.500000 (Real 8 []))) ()) (Assert (RealCompare (FunctionCall 2 abs@__lpython_overloaded_0__abs 2 abs [((Var 2 x))] (Real 8 []) () ()) Eq (RealConstant 5.500000 (Real 8 [])) (Logical 4 []) ()) ()) (Assert (RealCompare (FunctionCall 2 abs@__lpython_overloaded_0__abs 2 abs [((RealConstant 5.500000 (Real 8 [])))] (Real 8 []) (RealConstant 5.500000 (Real 8 [])) ()) Eq (RealConstant 5.500000 (Real 8 [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (RealCompare (FunctionCall 2 abs@__lpython_overloaded_0__abs 2 abs [((RealUnaryMinus (RealConstant 5.500000 (Real 8 [])) (Real 8 []) (RealConstant -5.500000 (Real 8 []))))] (Real 8 []) (RealConstant 5.500000 (Real 8 [])) ()) Eq (RealConstant 5.500000 (Real 8 [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (= (Var 2 x2) (RealUnaryMinus (Cast (RealConstant 5.500000 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 5.500000 (Real 4 []))) (Real 4 []) (RealConstant -5.500000 (Real 4 []))) ()) (Assert (RealCompare (FunctionCall 2 abs@__lpython_overloaded_1__abs 2 abs [((Var 2 x2))] (Real 4 []) () ()) Eq (Cast (RealConstant 5.500000 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 5.500000 (Real 4 []))) (Logical 4 []) ()) ()) (= (Var 2 i) (IntegerUnaryMinus (IntegerConstant 5 (Integer 4 [])) (Integer 4 []) (IntegerConstant -5 (Integer 4 []))) ()) (Assert (IntegerCompare (FunctionCall 2 abs@__lpython_overloaded_4__abs 2 abs [((Var 2 i))] (Integer 4 []) () ()) Eq (IntegerConstant 5 (Integer 4 [])) (Logical 4 []) ()) ()) (Assert (IntegerCompare (FunctionCall 2 abs@__lpython_overloaded_4__abs 2 abs [((IntegerUnaryMinus (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant -1 (Integer 4 []))))] (Integer 4 []) (IntegerConstant 1 (Integer 4 [])) ()) Eq (IntegerConstant 1 (Integer 4 [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (= (Var 2 i2) (IntegerUnaryMinus (Cast (IntegerConstant 6 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 6 (Integer 8 []))) (Integer 8 []) (IntegerConstant -6 (Integer 8 []))) ()) (Assert (IntegerCompare (FunctionCall 2 abs@__lpython_overloaded_5__abs 2 abs [((Var 2 i2))] (Integer 8 []) () ()) Eq (Cast (IntegerConstant 6 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 6 (Integer 8 []))) (Logical 4 []) ()) ()) (= (Var 2 i3) (IntegerUnaryMinus (Cast (IntegerConstant 7 (Integer 4 [])) IntegerToInteger (Integer 1 []) (IntegerConstant 7 (Integer 1 []))) (Integer 1 []) (IntegerConstant -7 (Integer 1 []))) ()) (Assert (IntegerCompare (FunctionCall 2 abs@__lpython_overloaded_2__abs 2 abs [((Var 2 i3))] (Integer 1 []) () ()) Eq (Cast (IntegerConstant 7 (Integer 4 [])) IntegerToInteger (Integer 1 []) (IntegerConstant 7 (Integer 1 []))) (Logical 4 []) ()) ()) (= (Var 2 i4) (IntegerUnaryMinus (Cast (IntegerConstant 8 (Integer 4 [])) IntegerToInteger (Integer 2 []) (IntegerConstant 8 (Integer 2 []))) (Integer 2 []) (IntegerConstant -8 (Integer 2 []))) ()) (Assert (IntegerCompare (FunctionCall 2 abs@__lpython_overloaded_3__abs 2 abs [((Var 2 i4))] (Integer 2 []) () ()) Eq (Cast (IntegerConstant 8 (Integer 4 [])) IntegerToInteger (Integer 2 []) (IntegerConstant 8 (Integer 2 []))) (Logical 4 []) ()) ()) (= (Var 2 b) (LogicalConstant .true. (Logical 4 [])) ()) (Assert (IntegerCompare (FunctionCall 2 abs@__lpython_overloaded_6__abs 2 abs [((Var 2 b))] (Integer 4 []) () ()) Eq (IntegerConstant 1 (Integer 4 [])) (Logical 4 []) ()) ()) (= (Var 2 b) (LogicalConstant .false. (Logical 4 [])) ()) (Assert (IntegerCompare (FunctionCall 2 abs@__lpython_overloaded_6__abs 2 abs [((Var 2 b))] (Integer 4 []) () ()) Eq (IntegerConstant 0 (Integer 4 [])) (Logical 4 []) ()) ())] () Public .false. .false.)}) [])
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            __main__global_stmts:
+                                (Function
+                                    (SymbolTable
+                                        4
+                                        {
+                                            
+                                        })
+                                    __main__global_stmts
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [test_abs]
+                                    []
+                                    [(SubroutineCall
+                                        2 test_abs
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            test_abs:
+                                (Function
+                                    (SymbolTable
+                                        3
+                                        {
+                                            b:
+                                                (Variable
+                                                    3
+                                                    b
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Logical 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            i:
+                                                (Variable
+                                                    3
+                                                    i
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            i2:
+                                                (Variable
+                                                    3
+                                                    i2
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            i3:
+                                                (Variable
+                                                    3
+                                                    i3
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 1)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            i4:
+                                                (Variable
+                                                    3
+                                                    i4
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 2)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            x:
+                                                (Variable
+                                                    3
+                                                    x
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            x2:
+                                                (Variable
+                                                    3
+                                                    x2
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test_abs
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 3 x)
+                                        (RealConstant
+                                            5.500000
+                                            (Real 8)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(Var 3 x)]
+                                                0
+                                                (Real 8)
+                                                ()
+                                            )
+                                            Eq
+                                            (RealConstant
+                                                5.500000
+                                                (Real 8)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 x)
+                                        (RealUnaryMinus
+                                            (RealConstant
+                                                5.500000
+                                                (Real 8)
+                                            )
+                                            (Real 8)
+                                            (RealConstant
+                                                -5.500000
+                                                (Real 8)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(Var 3 x)]
+                                                0
+                                                (Real 8)
+                                                ()
+                                            )
+                                            Eq
+                                            (RealConstant
+                                                5.500000
+                                                (Real 8)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealConstant
+                                                    5.500000
+                                                    (Real 8)
+                                                )]
+                                                0
+                                                (Real 8)
+                                                (RealConstant
+                                                    5.500000
+                                                    (Real 8)
+                                                )
+                                            )
+                                            Eq
+                                            (RealConstant
+                                                5.500000
+                                                (Real 8)
+                                            )
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealUnaryMinus
+                                                    (RealConstant
+                                                        5.500000
+                                                        (Real 8)
+                                                    )
+                                                    (Real 8)
+                                                    (RealConstant
+                                                        -5.500000
+                                                        (Real 8)
+                                                    )
+                                                )]
+                                                0
+                                                (Real 8)
+                                                (RealConstant
+                                                    5.500000
+                                                    (Real 8)
+                                                )
+                                            )
+                                            Eq
+                                            (RealConstant
+                                                5.500000
+                                                (Real 8)
+                                            )
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 x2)
+                                        (RealUnaryMinus
+                                            (Cast
+                                                (RealConstant
+                                                    5.500000
+                                                    (Real 8)
+                                                )
+                                                RealToReal
+                                                (Real 4)
+                                                (RealConstant
+                                                    5.500000
+                                                    (Real 4)
+                                                )
+                                            )
+                                            (Real 4)
+                                            (RealConstant
+                                                -5.500000
+                                                (Real 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(Var 3 x2)]
+                                                0
+                                                (Real 4)
+                                                ()
+                                            )
+                                            Eq
+                                            (Cast
+                                                (RealConstant
+                                                    5.500000
+                                                    (Real 8)
+                                                )
+                                                RealToReal
+                                                (Real 4)
+                                                (RealConstant
+                                                    5.500000
+                                                    (Real 4)
+                                                )
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 i)
+                                        (IntegerUnaryMinus
+                                            (IntegerConstant 5 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            (IntegerConstant -5 (Integer 4) Decimal)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(Var 3 i)]
+                                                0
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerConstant 5 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(IntegerUnaryMinus
+                                                    (IntegerConstant 1 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    (IntegerConstant -1 (Integer 4) Decimal)
+                                                )]
+                                                0
+                                                (Integer 4)
+                                                (IntegerConstant 1 (Integer 4) Decimal)
+                                            )
+                                            Eq
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 i2)
+                                        (IntegerUnaryMinus
+                                            (Cast
+                                                (IntegerConstant 6 (Integer 4) Decimal)
+                                                IntegerToInteger
+                                                (Integer 8)
+                                                (IntegerConstant 6 (Integer 8) Decimal)
+                                            )
+                                            (Integer 8)
+                                            (IntegerConstant -6 (Integer 8) Decimal)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(Var 3 i2)]
+                                                0
+                                                (Integer 8)
+                                                ()
+                                            )
+                                            Eq
+                                            (Cast
+                                                (IntegerConstant 6 (Integer 4) Decimal)
+                                                IntegerToInteger
+                                                (Integer 8)
+                                                (IntegerConstant 6 (Integer 8) Decimal)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 i3)
+                                        (IntegerUnaryMinus
+                                            (Cast
+                                                (IntegerConstant 7 (Integer 4) Decimal)
+                                                IntegerToInteger
+                                                (Integer 1)
+                                                (IntegerConstant 7 (Integer 1) Decimal)
+                                            )
+                                            (Integer 1)
+                                            (IntegerConstant -7 (Integer 1) Decimal)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(Var 3 i3)]
+                                                0
+                                                (Integer 1)
+                                                ()
+                                            )
+                                            Eq
+                                            (Cast
+                                                (IntegerConstant 7 (Integer 4) Decimal)
+                                                IntegerToInteger
+                                                (Integer 1)
+                                                (IntegerConstant 7 (Integer 1) Decimal)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 i4)
+                                        (IntegerUnaryMinus
+                                            (Cast
+                                                (IntegerConstant 8 (Integer 4) Decimal)
+                                                IntegerToInteger
+                                                (Integer 2)
+                                                (IntegerConstant 8 (Integer 2) Decimal)
+                                            )
+                                            (Integer 2)
+                                            (IntegerConstant -8 (Integer 2) Decimal)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(Var 3 i4)]
+                                                0
+                                                (Integer 2)
+                                                ()
+                                            )
+                                            Eq
+                                            (Cast
+                                                (IntegerConstant 8 (Integer 4) Decimal)
+                                                IntegerToInteger
+                                                (Integer 2)
+                                                (IntegerConstant 8 (Integer 2) Decimal)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 b)
+                                        (LogicalConstant
+                                            .true.
+                                            (Logical 4)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(Cast
+                                                    (Var 3 b)
+                                                    LogicalToInteger
+                                                    (Integer 4)
+                                                    ()
+                                                )]
+                                                0
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 b)
+                                        (LogicalConstant
+                                            .false.
+                                            (Logical 4)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(Cast
+                                                    (Var 3 b)
+                                                    LogicalToInteger
+                                                    (Integer 4)
+                                                    ()
+                                                )]
+                                                0
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerConstant 0 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    []
+                    .false.
+                    .false.
+                    .false.
+                ),
+            main_program:
+                (Program
+                    (SymbolTable
+                        5
+                        {
+                            __main__global_stmts:
+                                (ExternalSymbol
+                                    5
+                                    __main__global_stmts
+                                    2 __main__global_stmts
+                                    __main__
+                                    []
+                                    __main__global_stmts
+                                    Public
+                                )
+                        })
+                    main_program
+                    [__main__]
+                    [(SubroutineCall
+                        5 __main__global_stmts
+                        2 __main__global_stmts
+                        []
+                        ()
+                        .false.
+                    )]
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-test_builtin_bin-52ba9fa.json b/tests/reference/asr-test_builtin_bin-52ba9fa.json
deleted file mode 100644
index 250483e8bc..0000000000
--- a/tests/reference/asr-test_builtin_bin-52ba9fa.json
+++ /dev/null
@@ -1,13 +0,0 @@
-{
-    "basename": "asr-test_builtin_bin-52ba9fa",
-    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
-    "infile": "tests/../integration_tests/test_builtin_bin.py",
-    "infile_hash": "202a938e4c8c64b8c906fb99e1c68e0df609ff2e445cb9c90e415a82",
-    "outfile": null,
-    "outfile_hash": null,
-    "stdout": "asr-test_builtin_bin-52ba9fa.stdout",
-    "stdout_hash": "d8fee45e3f0dfa10738f980294172141f710e71e9d8b65f4275e33b4",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
-}
\ No newline at end of file
diff --git a/tests/reference/asr-test_builtin_bin-52ba9fa.stdout b/tests/reference/asr-test_builtin_bin-52ba9fa.stdout
deleted file mode 100644
index d745209ea0..0000000000
--- a/tests/reference/asr-test_builtin_bin-52ba9fa.stdout
+++ /dev/null
@@ -1 +0,0 @@
-(TranslationUnit (SymbolTable 1 {_lpython_main_program: (Function (SymbolTable 97 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [test_bin] [] [(SubroutineCall 1 test_bin () [] ())] () Public .false. .false.), lpython_builtin: (IntrinsicModule lpython_builtin), main_program: (Program (SymbolTable 96 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())]), test_bin: (Function (SymbolTable 2 {bin: (ExternalSymbol 2 bin 4 bin lpython_builtin [] bin Private), i: (Variable 2 i [] Local () () Default (Integer 4 []) Source Public Required .false.)}) test_bin (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [bin bin bin bin bin] [] [(= (Var 2 i) (IntegerConstant 5 (Integer 4 [])) ()) (Assert (StringCompare (FunctionCall 2 bin () [((Var 2 i))] (Character 1 -2 () []) () ()) Eq (StringConstant "0b101" (Character 1 5 () [])) (Logical 4 []) ()) ()) (= (Var 2 i) (IntegerConstant 64 (Integer 4 [])) ()) (Assert (StringCompare (FunctionCall 2 bin () [((Var 2 i))] (Character 1 -2 () []) () ()) Eq (StringConstant "0b1000000" (Character 1 9 () [])) (Logical 4 []) ()) ()) (= (Var 2 i) (IntegerUnaryMinus (IntegerConstant 534 (Integer 4 [])) (Integer 4 []) (IntegerConstant -534 (Integer 4 []))) ()) (Assert (StringCompare (FunctionCall 2 bin () [((Var 2 i))] (Character 1 -2 () []) () ()) Eq (StringConstant "-0b1000010110" (Character 1 13 () [])) (Logical 4 []) ()) ()) (Assert (StringCompare (FunctionCall 2 bin () [((IntegerConstant 64 (Integer 4 [])))] (Character 1 -2 () []) (StringConstant "0b1000000" (Character 1 9 () [])) ()) Eq (StringConstant "0b1000000" (Character 1 9 () [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (StringCompare (FunctionCall 2 bin () [((IntegerUnaryMinus (IntegerConstant 534 (Integer 4 [])) (Integer 4 []) (IntegerConstant -534 (Integer 4 []))))] (Character 1 -2 () []) (StringConstant "-0b1000010110" (Character 1 13 () [])) ()) Eq (StringConstant "-0b1000010110" (Character 1 13 () [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ())] () Public .false. .false.)}) [])
diff --git a/tests/reference/asr-test_builtin_bool-330223a.json b/tests/reference/asr-test_builtin_bool-330223a.json
index 17c8701512..0283e660d0 100644
--- a/tests/reference/asr-test_builtin_bool-330223a.json
+++ b/tests/reference/asr-test_builtin_bool-330223a.json
@@ -2,11 +2,11 @@
     "basename": "asr-test_builtin_bool-330223a",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/../integration_tests/test_builtin_bool.py",
-    "infile_hash": "ca61f2532fc30a67de694bef9bc8819015a3b3c1386727b0b9062620",
+    "infile_hash": "3a740faba0e36b55c179ab0fa08486dc3080332e79c8e38b8f25b4a4",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "asr-test_builtin_bool-330223a.stdout",
-    "stdout_hash": "9c0daf56d11667b7c8df642b958bdf0c2886a7a9e4e28a179d97d3b8",
+    "stdout_hash": "df9de3c200ce413184f7cd99156a6a8da29e4b42048b6380a7b7924f",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/asr-test_builtin_bool-330223a.stdout b/tests/reference/asr-test_builtin_bool-330223a.stdout
index ea1d4374ae..9a9d567c94 100644
--- a/tests/reference/asr-test_builtin_bool-330223a.stdout
+++ b/tests/reference/asr-test_builtin_bool-330223a.stdout
@@ -1 +1,983 @@
-(TranslationUnit (SymbolTable 1 {_lpython_main_program: (Function (SymbolTable 97 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [test_bool] [] [(SubroutineCall 1 test_bool () [] ())] () Public .false. .false.), lpython_builtin: (IntrinsicModule lpython_builtin), main_program: (Program (SymbolTable 96 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())]), test_bool: (Function (SymbolTable 2 {a: (Variable 2 a [] Local () () Default (Integer 4 []) Source Public Required .false.), a2: (Variable 2 a2 [] Local () () Default (Integer 8 []) Source Public Required .false.), a3: (Variable 2 a3 [] Local () () Default (Integer 1 []) Source Public Required .false.), a4: (Variable 2 a4 [] Local () () Default (Integer 2 []) Source Public Required .false.), b: (Variable 2 b [] Local () () Default (Logical 4 []) Source Public Required .false.), c: (Variable 2 c [] Local () () Default (Complex 4 []) Source Public Required .false.), c1: (Variable 2 c1 [] Local () () Default (Complex 8 []) Source Public Required .false.), complex: (ExternalSymbol 2 complex 4 complex lpython_builtin [] complex Private), complex@__lpython_overloaded_13__complex: (ExternalSymbol 2 complex@__lpython_overloaded_13__complex 4 __lpython_overloaded_13__complex lpython_builtin [] __lpython_overloaded_13__complex Public), complex@__lpython_overloaded_9__complex: (ExternalSymbol 2 complex@__lpython_overloaded_9__complex 4 __lpython_overloaded_9__complex lpython_builtin [] __lpython_overloaded_9__complex Public), f: (Variable 2 f [] Local () () Default (Real 8 []) Source Public Required .false.), f2: (Variable 2 f2 [] Local () () Default (Real 4 []) Source Public Required .false.), s: (Variable 2 s [] Local () () Default (Character 1 -2 () []) Source Public Required .false.)}) test_bool (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [complex@__lpython_overloaded_9__complex complex@__lpython_overloaded_9__complex complex@__lpython_overloaded_13__complex complex@__lpython_overloaded_9__complex] [] [(= (Var 2 a) (IntegerConstant 34 (Integer 4 [])) ()) (Assert (Cast (Var 2 a) IntegerToLogical (Logical 4 []) ()) ()) (= (Var 2 a) (IntegerConstant 0 (Integer 4 [])) ()) (Assert (LogicalNot (Cast (Var 2 a) IntegerToLogical (Logical 4 []) ()) (Logical 4 []) ()) ()) (Assert (Cast (IntegerUnaryMinus (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant -1 (Integer 4 []))) IntegerToLogical (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (LogicalNot (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToLogical (Logical 4 []) (LogicalConstant .false. (Logical 4 []))) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (= (Var 2 a2) (Cast (IntegerConstant 34 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 34 (Integer 8 []))) ()) (Assert (Cast (Var 2 a2) IntegerToLogical (Logical 4 []) ()) ()) (= (Var 2 a3) (Cast (IntegerConstant 34 (Integer 4 [])) IntegerToInteger (Integer 1 []) (IntegerConstant 34 (Integer 1 []))) ()) (Assert (Cast (Var 2 a3) IntegerToLogical (Logical 4 []) ()) ()) (= (Var 2 a4) (IntegerUnaryMinus (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToInteger (Integer 2 []) (IntegerConstant 1 (Integer 2 []))) (Integer 2 []) (IntegerConstant -1 (Integer 2 []))) ()) (Assert (Cast (Var 2 a4) IntegerToLogical (Logical 4 []) ()) ()) (= (Var 2 f) (RealConstant 0.000000 (Real 8 [])) ()) (Assert (LogicalNot (Cast (Var 2 f) RealToLogical (Logical 4 []) ()) (Logical 4 []) ()) ()) (= (Var 2 f) (RealConstant 1.000000 (Real 8 [])) ()) (Assert (Cast (Var 2 f) RealToLogical (Logical 4 []) ()) ()) (Assert (Cast (RealConstant 56.786866 (Real 8 [])) RealToLogical (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (LogicalNot (Cast (RealConstant 0.000000 (Real 8 [])) RealToLogical (Logical 4 []) (LogicalConstant .false. (Logical 4 []))) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (= (Var 2 f2) (RealUnaryMinus (Cast (RealConstant 235.600000 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 235.600000 (Real 4 []))) (Real 4 []) (RealConstant -235.600000 (Real 4 []))) ()) (Assert (Cast (Var 2 f2) RealToLogical (Logical 4 []) ()) ()) (= (Var 2 f2) (Cast (RealConstant 0.000053 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 0.000053 (Real 4 []))) ()) (Assert (Cast (Var 2 f2) RealToLogical (Logical 4 []) ()) ()) (= (Var 2 s) (StringConstant "" (Character 1 0 () [])) ()) (Assert (LogicalNot (Cast (Var 2 s) CharacterToLogical (Logical 4 []) ()) (Logical 4 []) ()) ()) (= (Var 2 s) (StringConstant "str" (Character 1 3 () [])) ()) (Assert (Cast (Var 2 s) CharacterToLogical (Logical 4 []) ()) ()) (Assert (LogicalNot (Cast (StringConstant "" (Character 1 0 () [])) CharacterToLogical (Logical 4 []) (LogicalConstant .false. (Logical 4 []))) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (Cast (StringConstant "str" (Character 1 3 () [])) CharacterToLogical (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (= (Var 2 b) (LogicalConstant .true. (Logical 4 [])) ()) (Assert (Var 2 b) ()) (= (Var 2 b) (LogicalConstant .false. (Logical 4 [])) ()) (Assert (LogicalNot (Var 2 b) (Logical 4 []) ()) ()) (Assert (LogicalConstant .true. (Logical 4 [])) ()) (Assert (LogicalNot (LogicalConstant .false. (Logical 4 [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (= (Var 2 c) (Cast (FunctionCall 2 complex@__lpython_overloaded_9__complex 2 complex [((IntegerConstant 2 (Integer 4 []))) ((IntegerConstant 3 (Integer 4 [])))] (Complex 8 []) (ComplexConstant 2.000000 3.000000 (Complex 8 [])) ()) ComplexToComplex (Complex 4 []) (ComplexConstant 2.000000 3.000000 (Complex 4 []))) ()) (Assert (Cast (Var 2 c) ComplexToLogical (Logical 4 []) ()) ()) (= (Var 2 c) (Cast (FunctionCall 2 complex@__lpython_overloaded_9__complex 2 complex [((IntegerConstant 0 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])))] (Complex 8 []) (ComplexConstant 0.000000 0.000000 (Complex 8 [])) ()) ComplexToComplex (Complex 4 []) (ComplexConstant 0.000000 0.000000 (Complex 4 []))) ()) (Assert (LogicalNot (Cast (Var 2 c) ComplexToLogical (Logical 4 []) ()) (Logical 4 []) ()) ()) (Assert (LogicalNot (Cast (ComplexBinOp (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToComplex (Complex 8 []) (ComplexConstant 0.000000 0.000000 (Complex 8 []))) Add (ComplexConstant 0.000000 0.000000 (Complex 8 [])) (Complex 8 []) (ComplexConstant 0.000000 0.000000 (Complex 8 []))) ComplexToLogical (Logical 4 []) (LogicalConstant .false. (Logical 4 []))) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (= (Var 2 c1) (FunctionCall 2 complex@__lpython_overloaded_13__complex 2 complex [((IntegerConstant 0 (Integer 4 []))) ((RealConstant 0.100202 (Real 8 [])))] (Complex 8 []) (ComplexConstant 0.000000 0.100202 (Complex 8 [])) ()) ()) (Assert (Cast (Var 2 c1) ComplexToLogical (Logical 4 []) ()) ()) (Assert (LogicalNot (Cast (FunctionCall 2 complex@__lpython_overloaded_9__complex 2 complex [((IntegerConstant 0 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])))] (Complex 8 []) (ComplexConstant 0.000000 0.000000 (Complex 8 [])) ()) ComplexToLogical (Logical 4 []) (LogicalConstant .false. (Logical 4 []))) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (Cast (ComplexBinOp (Cast (IntegerConstant 3 (Integer 4 [])) IntegerToComplex (Complex 8 []) (ComplexConstant 3.000000 0.000000 (Complex 8 []))) Add (ComplexConstant 0.000000 5.000000 (Complex 8 [])) (Complex 8 []) (ComplexConstant 3.000000 5.000000 (Complex 8 []))) ComplexToLogical (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ())] () Public .false. .false.)}) [])
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            __main__global_stmts:
+                                (Function
+                                    (SymbolTable
+                                        141
+                                        {
+                                            
+                                        })
+                                    __main__global_stmts
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [test_bool]
+                                    []
+                                    [(SubroutineCall
+                                        2 test_bool
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            test_bool:
+                                (Function
+                                    (SymbolTable
+                                        3
+                                        {
+                                            a:
+                                                (Variable
+                                                    3
+                                                    a
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            a2:
+                                                (Variable
+                                                    3
+                                                    a2
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            a3:
+                                                (Variable
+                                                    3
+                                                    a3
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 1)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            a4:
+                                                (Variable
+                                                    3
+                                                    a4
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 2)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            b:
+                                                (Variable
+                                                    3
+                                                    b
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Logical 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            c:
+                                                (Variable
+                                                    3
+                                                    c
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Complex 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            c1:
+                                                (Variable
+                                                    3
+                                                    c1
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Complex 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            complex:
+                                                (ExternalSymbol
+                                                    3
+                                                    complex
+                                                    4 complex
+                                                    lpython_builtin
+                                                    []
+                                                    complex
+                                                    Private
+                                                ),
+                                            complex@__lpython_overloaded_13__complex:
+                                                (ExternalSymbol
+                                                    3
+                                                    complex@__lpython_overloaded_13__complex
+                                                    4 __lpython_overloaded_13__complex
+                                                    lpython_builtin
+                                                    []
+                                                    __lpython_overloaded_13__complex
+                                                    Public
+                                                ),
+                                            complex@__lpython_overloaded_9__complex:
+                                                (ExternalSymbol
+                                                    3
+                                                    complex@__lpython_overloaded_9__complex
+                                                    4 __lpython_overloaded_9__complex
+                                                    lpython_builtin
+                                                    []
+                                                    __lpython_overloaded_9__complex
+                                                    Public
+                                                ),
+                                            f:
+                                                (Variable
+                                                    3
+                                                    f
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            f2:
+                                                (Variable
+                                                    3
+                                                    f2
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            s:
+                                                (Variable
+                                                    3
+                                                    s
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Allocatable
+                                                        (String 1 () DeferredLength DescriptorString)
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test_bool
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 3 a)
+                                        (IntegerConstant 34 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (Cast
+                                            (Var 3 a)
+                                            IntegerToLogical
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 a)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (LogicalNot
+                                            (Cast
+                                                (Var 3 a)
+                                                IntegerToLogical
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (Cast
+                                            (IntegerUnaryMinus
+                                                (IntegerConstant 1 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                (IntegerConstant -1 (Integer 4) Decimal)
+                                            )
+                                            IntegerToLogical
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (LogicalNot
+                                            (Cast
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                IntegerToLogical
+                                                (Logical 4)
+                                                (LogicalConstant
+                                                    .false.
+                                                    (Logical 4)
+                                                )
+                                            )
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 a2)
+                                        (Cast
+                                            (IntegerConstant 34 (Integer 4) Decimal)
+                                            IntegerToInteger
+                                            (Integer 8)
+                                            (IntegerConstant 34 (Integer 8) Decimal)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (Cast
+                                            (Var 3 a2)
+                                            IntegerToLogical
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 a3)
+                                        (Cast
+                                            (IntegerConstant 34 (Integer 4) Decimal)
+                                            IntegerToInteger
+                                            (Integer 1)
+                                            (IntegerConstant 34 (Integer 1) Decimal)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (Cast
+                                            (Var 3 a3)
+                                            IntegerToLogical
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 a4)
+                                        (IntegerUnaryMinus
+                                            (Cast
+                                                (IntegerConstant 1 (Integer 4) Decimal)
+                                                IntegerToInteger
+                                                (Integer 2)
+                                                (IntegerConstant 1 (Integer 2) Decimal)
+                                            )
+                                            (Integer 2)
+                                            (IntegerConstant -1 (Integer 2) Decimal)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (Cast
+                                            (Var 3 a4)
+                                            IntegerToLogical
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 f)
+                                        (RealConstant
+                                            0.000000
+                                            (Real 8)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (LogicalNot
+                                            (Cast
+                                                (Var 3 f)
+                                                RealToLogical
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 f)
+                                        (RealConstant
+                                            1.000000
+                                            (Real 8)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (Cast
+                                            (Var 3 f)
+                                            RealToLogical
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (Cast
+                                            (RealConstant
+                                                56.786866
+                                                (Real 8)
+                                            )
+                                            RealToLogical
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (LogicalNot
+                                            (Cast
+                                                (RealConstant
+                                                    0.000000
+                                                    (Real 8)
+                                                )
+                                                RealToLogical
+                                                (Logical 4)
+                                                (LogicalConstant
+                                                    .false.
+                                                    (Logical 4)
+                                                )
+                                            )
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 f2)
+                                        (RealUnaryMinus
+                                            (Cast
+                                                (RealConstant
+                                                    235.600000
+                                                    (Real 8)
+                                                )
+                                                RealToReal
+                                                (Real 4)
+                                                (RealConstant
+                                                    235.600000
+                                                    (Real 4)
+                                                )
+                                            )
+                                            (Real 4)
+                                            (RealConstant
+                                                -235.600000
+                                                (Real 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (Cast
+                                            (Var 3 f2)
+                                            RealToLogical
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 f2)
+                                        (Cast
+                                            (RealConstant
+                                                0.000053
+                                                (Real 8)
+                                            )
+                                            RealToReal
+                                            (Real 4)
+                                            (RealConstant
+                                                0.000053
+                                                (Real 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (Cast
+                                            (Var 3 f2)
+                                            RealToLogical
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 s)
+                                        (StringConstant
+                                            ""
+                                            (String 1 (IntegerConstant 0 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (LogicalNot
+                                            (Cast
+                                                (Var 3 s)
+                                                StringToLogical
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 s)
+                                        (StringConstant
+                                            "str"
+                                            (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (Cast
+                                            (Var 3 s)
+                                            StringToLogical
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (LogicalNot
+                                            (Cast
+                                                (StringConstant
+                                                    ""
+                                                    (String 1 (IntegerConstant 0 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                                StringToLogical
+                                                (Logical 4)
+                                                (LogicalConstant
+                                                    .false.
+                                                    (Logical 4)
+                                                )
+                                            )
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (Cast
+                                            (StringConstant
+                                                "str"
+                                                (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            StringToLogical
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 b)
+                                        (LogicalConstant
+                                            .true.
+                                            (Logical 4)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (Var 3 b)
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 b)
+                                        (LogicalConstant
+                                            .false.
+                                            (Logical 4)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (LogicalNot
+                                            (Var 3 b)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (LogicalConstant
+                                            .true.
+                                            (Logical 4)
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (LogicalNot
+                                            (LogicalConstant
+                                                .false.
+                                                (Logical 4)
+                                            )
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 c)
+                                        (Cast
+                                            (FunctionCall
+                                                3 complex@__lpython_overloaded_9__complex
+                                                3 complex
+                                                [((IntegerConstant 2 (Integer 4) Decimal))
+                                                ((IntegerConstant 3 (Integer 4) Decimal))]
+                                                (Complex 8)
+                                                (ComplexConstant
+                                                    2.000000
+                                                    3.000000
+                                                    (Complex 8)
+                                                )
+                                                ()
+                                            )
+                                            ComplexToComplex
+                                            (Complex 4)
+                                            (ComplexConstant
+                                                2.000000
+                                                3.000000
+                                                (Complex 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (Cast
+                                            (Var 3 c)
+                                            ComplexToLogical
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 c)
+                                        (Cast
+                                            (FunctionCall
+                                                3 complex@__lpython_overloaded_9__complex
+                                                3 complex
+                                                [((IntegerConstant 0 (Integer 4) Decimal))
+                                                ((IntegerConstant 0 (Integer 4) Decimal))]
+                                                (Complex 8)
+                                                (ComplexConstant
+                                                    0.000000
+                                                    0.000000
+                                                    (Complex 8)
+                                                )
+                                                ()
+                                            )
+                                            ComplexToComplex
+                                            (Complex 4)
+                                            (ComplexConstant
+                                                0.000000
+                                                0.000000
+                                                (Complex 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (LogicalNot
+                                            (Cast
+                                                (Var 3 c)
+                                                ComplexToLogical
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (LogicalNot
+                                            (Cast
+                                                (ComplexBinOp
+                                                    (Cast
+                                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                                        IntegerToComplex
+                                                        (Complex 8)
+                                                        (ComplexConstant
+                                                            0.000000
+                                                            0.000000
+                                                            (Complex 8)
+                                                        )
+                                                    )
+                                                    Add
+                                                    (ComplexConstant
+                                                        0.000000
+                                                        0.000000
+                                                        (Complex 8)
+                                                    )
+                                                    (Complex 8)
+                                                    (ComplexConstant
+                                                        0.000000
+                                                        0.000000
+                                                        (Complex 8)
+                                                    )
+                                                )
+                                                ComplexToLogical
+                                                (Logical 4)
+                                                (LogicalConstant
+                                                    .false.
+                                                    (Logical 4)
+                                                )
+                                            )
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 c1)
+                                        (FunctionCall
+                                            3 complex@__lpython_overloaded_13__complex
+                                            3 complex
+                                            [((IntegerConstant 0 (Integer 4) Decimal))
+                                            ((RealConstant
+                                                0.100202
+                                                (Real 8)
+                                            ))]
+                                            (Complex 8)
+                                            (ComplexConstant
+                                                0.000000
+                                                0.100202
+                                                (Complex 8)
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (Cast
+                                            (Var 3 c1)
+                                            ComplexToLogical
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (LogicalNot
+                                            (Cast
+                                                (FunctionCall
+                                                    3 complex@__lpython_overloaded_9__complex
+                                                    3 complex
+                                                    [((IntegerConstant 0 (Integer 4) Decimal))
+                                                    ((IntegerConstant 0 (Integer 4) Decimal))]
+                                                    (Complex 8)
+                                                    (ComplexConstant
+                                                        0.000000
+                                                        0.000000
+                                                        (Complex 8)
+                                                    )
+                                                    ()
+                                                )
+                                                ComplexToLogical
+                                                (Logical 4)
+                                                (LogicalConstant
+                                                    .false.
+                                                    (Logical 4)
+                                                )
+                                            )
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (Cast
+                                            (ComplexBinOp
+                                                (Cast
+                                                    (IntegerConstant 3 (Integer 4) Decimal)
+                                                    IntegerToComplex
+                                                    (Complex 8)
+                                                    (ComplexConstant
+                                                        3.000000
+                                                        0.000000
+                                                        (Complex 8)
+                                                    )
+                                                )
+                                                Add
+                                                (ComplexConstant
+                                                    0.000000
+                                                    5.000000
+                                                    (Complex 8)
+                                                )
+                                                (Complex 8)
+                                                (ComplexConstant
+                                                    3.000000
+                                                    5.000000
+                                                    (Complex 8)
+                                                )
+                                            )
+                                            ComplexToLogical
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    [lpython_builtin]
+                    .false.
+                    .false.
+                    .false.
+                ),
+            lpython_builtin:
+                (IntrinsicModule lpython_builtin),
+            main_program:
+                (Program
+                    (SymbolTable
+                        142
+                        {
+                            __main__global_stmts:
+                                (ExternalSymbol
+                                    142
+                                    __main__global_stmts
+                                    2 __main__global_stmts
+                                    __main__
+                                    []
+                                    __main__global_stmts
+                                    Public
+                                )
+                        })
+                    main_program
+                    [__main__]
+                    [(SubroutineCall
+                        142 __main__global_stmts
+                        2 __main__global_stmts
+                        []
+                        ()
+                        .false.
+                    )]
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-test_builtin_float-20601dd.json b/tests/reference/asr-test_builtin_float-20601dd.json
index 41fd83afa1..9c80950978 100644
--- a/tests/reference/asr-test_builtin_float-20601dd.json
+++ b/tests/reference/asr-test_builtin_float-20601dd.json
@@ -2,11 +2,11 @@
     "basename": "asr-test_builtin_float-20601dd",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/../integration_tests/test_builtin_float.py",
-    "infile_hash": "0720415fb2124848dbdef8bc7dd56e6e4ffcdba732f76e91511efb43",
+    "infile_hash": "de536c0af182f8e43780193627c24f1085522e86d37316e13d337196",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "asr-test_builtin_float-20601dd.stdout",
-    "stdout_hash": "01fe480a78bf4636f4d8ef7bab8803a87f8dcf7b59d22a37e494535c",
+    "stdout_hash": "0a66ccc49d89afac28c65c2d71030be66779d7e42944ed3a516c1c3f",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/asr-test_builtin_float-20601dd.stdout b/tests/reference/asr-test_builtin_float-20601dd.stdout
index f831930c6d..ab9f52f61b 100644
--- a/tests/reference/asr-test_builtin_float-20601dd.stdout
+++ b/tests/reference/asr-test_builtin_float-20601dd.stdout
@@ -1 +1,566 @@
-(TranslationUnit (SymbolTable 1 {_lpython_main_program: (Function (SymbolTable 4 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [test_float] [] [(SubroutineCall 1 test_float () [] ())] () Public .false. .false.), main_program: (Program (SymbolTable 3 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())]), test_float: (Function (SymbolTable 2 {b: (Variable 2 b [] Local () () Default (Logical 4 []) Source Public Required .false.), f: (Variable 2 f [] Local () () Default (Real 4 []) Source Public Required .false.), f2: (Variable 2 f2 [] Local () () Default (Real 8 []) Source Public Required .false.), i: (Variable 2 i [] Local () () Default (Integer 4 []) Source Public Required .false.)}) test_float (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [] [(= (Var 2 i) (IntegerConstant 34 (Integer 4 [])) ()) (= (Var 2 f) (Cast (RealConstant 0.000000 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 0.000000 (Real 4 []))) ()) (Assert (RealCompare (RealConstant 0.000000 (Real 8 [])) Eq (RealConstant 0.000000 (Real 8 [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (RealCompare (Cast (IntegerConstant 34 (Integer 4 [])) IntegerToReal (Real 8 []) (RealConstant 34.000000 (Real 8 []))) Eq (RealConstant 34.000000 (Real 8 [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (RealCompare (Cast (Var 2 i) IntegerToReal (Real 8 []) ()) Eq (RealConstant 34.000000 (Real 8 [])) (Logical 4 []) ()) ()) (= (Var 2 i) (IntegerUnaryMinus (IntegerConstant 4235 (Integer 4 [])) (Integer 4 []) (IntegerConstant -4235 (Integer 4 []))) ()) (Assert (RealCompare (Cast (IntegerUnaryMinus (IntegerConstant 4235 (Integer 4 [])) (Integer 4 []) (IntegerConstant -4235 (Integer 4 []))) IntegerToReal (Real 8 []) (RealConstant -4235.000000 (Real 8 []))) Eq (RealUnaryMinus (RealConstant 4235.000000 (Real 8 [])) (Real 8 []) (RealConstant -4235.000000 (Real 8 []))) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (RealCompare (Cast (Var 2 i) IntegerToReal (Real 8 []) ()) Eq (RealUnaryMinus (RealConstant 4235.000000 (Real 8 [])) (Real 8 []) (RealConstant -4235.000000 (Real 8 []))) (Logical 4 []) ()) ()) (Assert (RealCompare (Cast (IntegerConstant 34 (Integer 4 [])) IntegerToReal (Real 8 []) (RealConstant 34.000000 (Real 8 []))) Eq (RealConstant 34.000000 (Real 8 [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (RealCompare (Cast (IntegerUnaryMinus (IntegerConstant 4235 (Integer 4 [])) (Integer 4 []) (IntegerConstant -4235 (Integer 4 []))) IntegerToReal (Real 8 []) (RealConstant -4235.000000 (Real 8 []))) Eq (RealUnaryMinus (RealConstant 4235.000000 (Real 8 [])) (Real 8 []) (RealConstant -4235.000000 (Real 8 []))) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (RealCompare (RealConstant 0.000000 (Real 8 [])) Eq (RealConstant 0.000000 (Real 8 [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (RealCompare (Cast (Var 2 f) RealToReal (Real 8 []) ()) Eq (RealConstant 0.000000 (Real 8 [])) (Logical 4 []) ()) ()) (Assert (RealCompare (Cast (LogicalConstant .true. (Logical 4 [])) LogicalToReal (Real 8 []) (RealConstant 1.000000 (Real 8 []))) Eq (RealConstant 1.000000 (Real 8 [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (RealCompare (Cast (LogicalConstant .false. (Logical 4 [])) LogicalToReal (Real 8 []) (RealConstant 0.000000 (Real 8 []))) Eq (RealConstant 0.000000 (Real 8 [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (= (Var 2 b) (LogicalConstant .true. (Logical 4 [])) ()) (= (Var 2 f2) (Cast (Var 2 b) LogicalToReal (Real 8 []) ()) ()) (Assert (RealCompare (Var 2 f2) Eq (RealConstant 1.000000 (Real 8 [])) (Logical 4 []) ()) ()) (= (Var 2 b) (LogicalConstant .false. (Logical 4 [])) ()) (Assert (RealCompare (Cast (Var 2 b) LogicalToReal (Real 8 []) ()) Eq (RealConstant 0.000000 (Real 8 [])) (Logical 4 []) ()) ())] () Public .false. .false.)}) [])
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            __main__global_stmts:
+                                (Function
+                                    (SymbolTable
+                                        4
+                                        {
+                                            
+                                        })
+                                    __main__global_stmts
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [test_float]
+                                    []
+                                    [(SubroutineCall
+                                        2 test_float
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            test_float:
+                                (Function
+                                    (SymbolTable
+                                        3
+                                        {
+                                            b:
+                                                (Variable
+                                                    3
+                                                    b
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Logical 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            f:
+                                                (Variable
+                                                    3
+                                                    f
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            f2:
+                                                (Variable
+                                                    3
+                                                    f2
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            i:
+                                                (Variable
+                                                    3
+                                                    i
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test_float
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 3 i)
+                                        (IntegerConstant 34 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 f)
+                                        (Cast
+                                            (RealConstant
+                                                0.000000
+                                                (Real 8)
+                                            )
+                                            RealToReal
+                                            (Real 4)
+                                            (RealConstant
+                                                0.000000
+                                                (Real 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (RealConstant
+                                                0.000000
+                                                (Real 8)
+                                            )
+                                            Eq
+                                            (RealConstant
+                                                0.000000
+                                                (Real 8)
+                                            )
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (Cast
+                                                (IntegerConstant 34 (Integer 4) Decimal)
+                                                IntegerToReal
+                                                (Real 8)
+                                                (RealConstant
+                                                    34.000000
+                                                    (Real 8)
+                                                )
+                                            )
+                                            Eq
+                                            (RealConstant
+                                                34.000000
+                                                (Real 8)
+                                            )
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (Cast
+                                                (Var 3 i)
+                                                IntegerToReal
+                                                (Real 8)
+                                                ()
+                                            )
+                                            Eq
+                                            (RealConstant
+                                                34.000000
+                                                (Real 8)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 i)
+                                        (IntegerUnaryMinus
+                                            (IntegerConstant 4235 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            (IntegerConstant -4235 (Integer 4) Decimal)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (Cast
+                                                (IntegerUnaryMinus
+                                                    (IntegerConstant 4235 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    (IntegerConstant -4235 (Integer 4) Decimal)
+                                                )
+                                                IntegerToReal
+                                                (Real 8)
+                                                (RealConstant
+                                                    -4235.000000
+                                                    (Real 8)
+                                                )
+                                            )
+                                            Eq
+                                            (RealUnaryMinus
+                                                (RealConstant
+                                                    4235.000000
+                                                    (Real 8)
+                                                )
+                                                (Real 8)
+                                                (RealConstant
+                                                    -4235.000000
+                                                    (Real 8)
+                                                )
+                                            )
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (Cast
+                                                (Var 3 i)
+                                                IntegerToReal
+                                                (Real 8)
+                                                ()
+                                            )
+                                            Eq
+                                            (RealUnaryMinus
+                                                (RealConstant
+                                                    4235.000000
+                                                    (Real 8)
+                                                )
+                                                (Real 8)
+                                                (RealConstant
+                                                    -4235.000000
+                                                    (Real 8)
+                                                )
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (Cast
+                                                (IntegerConstant 34 (Integer 4) Decimal)
+                                                IntegerToReal
+                                                (Real 8)
+                                                (RealConstant
+                                                    34.000000
+                                                    (Real 8)
+                                                )
+                                            )
+                                            Eq
+                                            (RealConstant
+                                                34.000000
+                                                (Real 8)
+                                            )
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (Cast
+                                                (IntegerUnaryMinus
+                                                    (IntegerConstant 4235 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    (IntegerConstant -4235 (Integer 4) Decimal)
+                                                )
+                                                IntegerToReal
+                                                (Real 8)
+                                                (RealConstant
+                                                    -4235.000000
+                                                    (Real 8)
+                                                )
+                                            )
+                                            Eq
+                                            (RealUnaryMinus
+                                                (RealConstant
+                                                    4235.000000
+                                                    (Real 8)
+                                                )
+                                                (Real 8)
+                                                (RealConstant
+                                                    -4235.000000
+                                                    (Real 8)
+                                                )
+                                            )
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (RealConstant
+                                                0.000000
+                                                (Real 8)
+                                            )
+                                            Eq
+                                            (RealConstant
+                                                0.000000
+                                                (Real 8)
+                                            )
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (Cast
+                                                (Var 3 f)
+                                                RealToReal
+                                                (Real 8)
+                                                ()
+                                            )
+                                            Eq
+                                            (RealConstant
+                                                0.000000
+                                                (Real 8)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (Cast
+                                                (LogicalConstant
+                                                    .true.
+                                                    (Logical 4)
+                                                )
+                                                LogicalToReal
+                                                (Real 8)
+                                                (RealConstant
+                                                    1.000000
+                                                    (Real 8)
+                                                )
+                                            )
+                                            Eq
+                                            (RealConstant
+                                                1.000000
+                                                (Real 8)
+                                            )
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (Cast
+                                                (LogicalConstant
+                                                    .false.
+                                                    (Logical 4)
+                                                )
+                                                LogicalToReal
+                                                (Real 8)
+                                                (RealConstant
+                                                    0.000000
+                                                    (Real 8)
+                                                )
+                                            )
+                                            Eq
+                                            (RealConstant
+                                                0.000000
+                                                (Real 8)
+                                            )
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 b)
+                                        (LogicalConstant
+                                            .true.
+                                            (Logical 4)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 f2)
+                                        (Cast
+                                            (Var 3 b)
+                                            LogicalToReal
+                                            (Real 8)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (Var 3 f2)
+                                            Eq
+                                            (RealConstant
+                                                1.000000
+                                                (Real 8)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 b)
+                                        (LogicalConstant
+                                            .false.
+                                            (Logical 4)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (Cast
+                                                (Var 3 b)
+                                                LogicalToReal
+                                                (Real 8)
+                                                ()
+                                            )
+                                            Eq
+                                            (RealConstant
+                                                0.000000
+                                                (Real 8)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    []
+                    .false.
+                    .false.
+                    .false.
+                ),
+            main_program:
+                (Program
+                    (SymbolTable
+                        5
+                        {
+                            __main__global_stmts:
+                                (ExternalSymbol
+                                    5
+                                    __main__global_stmts
+                                    2 __main__global_stmts
+                                    __main__
+                                    []
+                                    __main__global_stmts
+                                    Public
+                                )
+                        })
+                    main_program
+                    [__main__]
+                    [(SubroutineCall
+                        5 __main__global_stmts
+                        2 __main__global_stmts
+                        []
+                        ()
+                        .false.
+                    )]
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-test_builtin_hex-64bd268.json b/tests/reference/asr-test_builtin_hex-64bd268.json
deleted file mode 100644
index 157593b618..0000000000
--- a/tests/reference/asr-test_builtin_hex-64bd268.json
+++ /dev/null
@@ -1,13 +0,0 @@
-{
-    "basename": "asr-test_builtin_hex-64bd268",
-    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
-    "infile": "tests/../integration_tests/test_builtin_hex.py",
-    "infile_hash": "2b694d04794b3ca3ef013c9aa8e25beeb639a8261164904d0f8331bf",
-    "outfile": null,
-    "outfile_hash": null,
-    "stdout": "asr-test_builtin_hex-64bd268.stdout",
-    "stdout_hash": "3f5be22a4bab59d59881eda7175b818b158addaa262ae08111a0dba5",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
-}
\ No newline at end of file
diff --git a/tests/reference/asr-test_builtin_hex-64bd268.stdout b/tests/reference/asr-test_builtin_hex-64bd268.stdout
deleted file mode 100644
index f29fe215ba..0000000000
--- a/tests/reference/asr-test_builtin_hex-64bd268.stdout
+++ /dev/null
@@ -1 +0,0 @@
-(TranslationUnit (SymbolTable 1 {_lpython_main_program: (Function (SymbolTable 97 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [test_hex] [] [(SubroutineCall 1 test_hex () [] ())] () Public .false. .false.), lpython_builtin: (IntrinsicModule lpython_builtin), main_program: (Program (SymbolTable 96 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())]), test_hex: (Function (SymbolTable 2 {hex: (ExternalSymbol 2 hex 4 hex lpython_builtin [] hex Private), i: (Variable 2 i [] Local () () Default (Integer 4 []) Source Public Required .false.)}) test_hex (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [hex hex hex hex] [] [(= (Var 2 i) (IntegerConstant 34 (Integer 4 [])) ()) (Assert (StringCompare (FunctionCall 2 hex () [((Var 2 i))] (Character 1 -2 () []) () ()) Eq (StringConstant "0x22" (Character 1 4 () [])) (Logical 4 []) ()) ()) (= (Var 2 i) (IntegerUnaryMinus (IntegerConstant 4235 (Integer 4 [])) (Integer 4 []) (IntegerConstant -4235 (Integer 4 []))) ()) (Assert (StringCompare (FunctionCall 2 hex () [((Var 2 i))] (Character 1 -2 () []) () ()) Eq (StringConstant "-0x108b" (Character 1 7 () [])) (Logical 4 []) ()) ()) (Assert (StringCompare (FunctionCall 2 hex () [((IntegerConstant 34 (Integer 4 [])))] (Character 1 -2 () []) (StringConstant "0x22" (Character 1 4 () [])) ()) Eq (StringConstant "0x22" (Character 1 4 () [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (StringCompare (FunctionCall 2 hex () [((IntegerUnaryMinus (IntegerConstant 4235 (Integer 4 [])) (Integer 4 []) (IntegerConstant -4235 (Integer 4 []))))] (Character 1 -2 () []) (StringConstant "-0x108b" (Character 1 7 () [])) ()) Eq (StringConstant "-0x108b" (Character 1 7 () [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ())] () Public .false. .false.)}) [])
diff --git a/tests/reference/asr-test_builtin_int-8f88fdc.json b/tests/reference/asr-test_builtin_int-8f88fdc.json
index 1a7b187edc..4eba3b8612 100644
--- a/tests/reference/asr-test_builtin_int-8f88fdc.json
+++ b/tests/reference/asr-test_builtin_int-8f88fdc.json
@@ -2,12 +2,12 @@
     "basename": "asr-test_builtin_int-8f88fdc",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/../integration_tests/test_builtin_int.py",
-    "infile_hash": "93b3b69da02c67575a06e16c67d0a9815f3131b70631b7bf1f3a7143",
+    "infile_hash": "caea15e7c979280f796e815bd1548613d6b21322c43f4ed1306e1e93",
     "outfile": null,
     "outfile_hash": null,
-    "stdout": "asr-test_builtin_int-8f88fdc.stdout",
-    "stdout_hash": "3756366a4f15b53bd069d5ef909f9ee619a35b4df3db11f124d100e6",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-test_builtin_int-8f88fdc.stderr",
+    "stderr_hash": "3b0193f6495c04160915876376a8706d4437220d79766cfc5702e2f3",
+    "returncode": 2
 }
\ No newline at end of file
diff --git a/tests/reference/asr-test_builtin_int-8f88fdc.stderr b/tests/reference/asr-test_builtin_int-8f88fdc.stderr
new file mode 100644
index 0000000000..38bfb05679
--- /dev/null
+++ b/tests/reference/asr-test_builtin_int-8f88fdc.stderr
@@ -0,0 +1,5 @@
+semantic error: Unexpected number of args, Int takes 2 arguments, found 1
+ --> tests/../integration_tests/test_builtin_int.py:8:12
+  |
+8 |     assert int() == i64(0)
+  |            ^^^^^ 
diff --git a/tests/reference/asr-test_builtin_int-8f88fdc.stdout b/tests/reference/asr-test_builtin_int-8f88fdc.stdout
deleted file mode 100644
index b7f0542e6b..0000000000
--- a/tests/reference/asr-test_builtin_int-8f88fdc.stdout
+++ /dev/null
@@ -1 +0,0 @@
-(TranslationUnit (SymbolTable 1 {_lpython_main_program: (Function (SymbolTable 6 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [check_all] [] [(SubroutineCall 1 check_all () [] ())] () Public .false. .false.), check_all: (Function (SymbolTable 4 {}) check_all (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [test_int test_bool_to_int] [] [(SubroutineCall 1 test_int () [] ()) (SubroutineCall 1 test_bool_to_int () [] ())] () Public .false. .false.), main_program: (Program (SymbolTable 5 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())]), test_bool_to_int: (Function (SymbolTable 3 {b: (Variable 3 b [] Local () () Default (Integer 4 []) Source Public Required .false.)}) test_bool_to_int (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [] [(= (Var 3 b) (IntegerBinOp (Cast (LogicalConstant .true. (Logical 4 [])) LogicalToInteger (Integer 4 []) ()) Sub (Cast (LogicalConstant .true. (Logical 4 [])) LogicalToInteger (Integer 4 []) ()) (Integer 4 []) ()) ()) (Assert (IntegerCompare (Var 3 b) Eq (IntegerConstant 0 (Integer 4 [])) (Logical 4 []) ()) ()) (= (Var 3 b) (IntegerBinOp (Cast (LogicalConstant .false. (Logical 4 [])) LogicalToInteger (Integer 4 []) ()) Sub (Cast (LogicalConstant .false. (Logical 4 [])) LogicalToInteger (Integer 4 []) ()) (Integer 4 []) ()) ()) (Assert (IntegerCompare (Var 3 b) Eq (IntegerConstant 0 (Integer 4 [])) (Logical 4 []) ()) ()) (= (Var 3 b) (IntegerBinOp (Cast (LogicalConstant .false. (Logical 4 [])) LogicalToInteger (Integer 4 []) ()) Sub (Cast (LogicalConstant .true. (Logical 4 [])) LogicalToInteger (Integer 4 []) ()) (Integer 4 []) ()) ()) (Assert (IntegerCompare (Var 3 b) Eq (IntegerUnaryMinus (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant -1 (Integer 4 []))) (Logical 4 []) ()) ()) (= (Var 3 b) (IntegerBinOp (Cast (LogicalConstant .true. (Logical 4 [])) LogicalToInteger (Integer 4 []) ()) Sub (Cast (LogicalConstant .false. (Logical 4 [])) LogicalToInteger (Integer 4 []) ()) (Integer 4 []) ()) ()) (Assert (IntegerCompare (Var 3 b) Eq (IntegerConstant 1 (Integer 4 [])) (Logical 4 []) ()) ()) (= (Var 3 b) (IntegerBinOp (Cast (LogicalConstant .true. (Logical 4 [])) LogicalToInteger (Integer 4 []) ()) Add (Cast (LogicalConstant .true. (Logical 4 [])) LogicalToInteger (Integer 4 []) ()) (Integer 4 []) ()) ()) (Assert (IntegerCompare (Var 3 b) Eq (IntegerConstant 2 (Integer 4 [])) (Logical 4 []) ()) ()) (= (Var 3 b) (IntegerBinOp (Cast (LogicalConstant .false. (Logical 4 [])) LogicalToInteger (Integer 4 []) ()) Add (Cast (LogicalConstant .false. (Logical 4 [])) LogicalToInteger (Integer 4 []) ()) (Integer 4 []) ()) ()) (Assert (IntegerCompare (Var 3 b) Eq (IntegerConstant 0 (Integer 4 [])) (Logical 4 []) ()) ()) (= (Var 3 b) (IntegerBinOp (Cast (LogicalConstant .false. (Logical 4 [])) LogicalToInteger (Integer 4 []) ()) Add (Cast (LogicalConstant .true. (Logical 4 [])) LogicalToInteger (Integer 4 []) ()) (Integer 4 []) ()) ()) (Assert (IntegerCompare (Var 3 b) Eq (IntegerConstant 1 (Integer 4 [])) (Logical 4 []) ()) ()) (= (Var 3 b) (IntegerBinOp (Cast (LogicalConstant .true. (Logical 4 [])) LogicalToInteger (Integer 4 []) ()) Add (Cast (LogicalConstant .false. (Logical 4 [])) LogicalToInteger (Integer 4 []) ()) (Integer 4 []) ()) ()) (Assert (IntegerCompare (Var 3 b) Eq (IntegerConstant 1 (Integer 4 [])) (Logical 4 []) ()) ()) (= (Var 3 b) (IntegerBinOp (IntegerBinOp (Cast (LogicalConstant .true. (Logical 4 [])) LogicalToInteger (Integer 4 []) ()) Add (Cast (LogicalConstant .true. (Logical 4 [])) LogicalToInteger (Integer 4 []) ()) (Integer 4 []) ()) Add (IntegerBinOp (Cast (LogicalConstant .true. (Logical 4 [])) LogicalToInteger (Integer 4 []) ()) Sub (Cast (LogicalConstant .false. (Logical 4 [])) LogicalToInteger (Integer 4 []) ()) (Integer 4 []) ()) (Integer 4 []) ()) ()) (Print () [(Var 3 b)] () ()) (Assert (IntegerCompare (Var 3 b) Eq (IntegerConstant 3 (Integer 4 [])) (Logical 4 []) ()) ()) (= (Var 3 b) (IntegerBinOp (IntegerBinOp (Cast (LogicalConstant .true. (Logical 4 [])) LogicalToInteger (Integer 4 []) ()) Add (IntegerBinOp (Cast (LogicalConstant .true. (Logical 4 [])) LogicalToInteger (Integer 4 []) ()) Add (Cast (LogicalConstant .true. (Logical 4 [])) LogicalToInteger (Integer 4 []) ()) (Integer 4 []) ()) (Integer 4 []) ()) Sub (IntegerBinOp (Cast (LogicalConstant .false. (Logical 4 [])) LogicalToInteger (Integer 4 []) ()) Add (Cast (LogicalConstant .true. (Logical 4 [])) LogicalToInteger (Integer 4 []) ()) (Integer 4 []) ()) (Integer 4 []) ()) ()) (Assert (IntegerCompare (Var 3 b) Eq (IntegerConstant 2 (Integer 4 [])) (Logical 4 []) ()) ())] () Public .false. .false.), test_int: (Function (SymbolTable 2 {f: (Variable 2 f [] Local () () Default (Real 8 []) Source Public Required .false.), i: (Variable 2 i [] Local () () Default (Integer 4 []) Source Public Required .false.), i2: (Variable 2 i2 [] Local () () Default (Integer 8 []) Source Public Required .false.)}) test_int (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [] [(= (Var 2 f) (RealConstant 5.678000 (Real 8 [])) ()) (= (Var 2 i) (IntegerConstant 4 (Integer 4 [])) ()) (Assert (IntegerCompare (IntegerConstant 0 (Integer 8 [])) Eq (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 0 (Integer 8 []))) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (IntegerCompare (Cast (Var 2 i) IntegerToInteger (Integer 8 []) ()) Eq (Cast (IntegerConstant 4 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 4 (Integer 8 []))) (Logical 4 []) ()) ()) (= (Var 2 i2) (Cast (RealConstant 3.000000 (Real 8 [])) RealToInteger (Integer 8 []) (IntegerConstant 3 (Integer 8 []))) ()) (Assert (IntegerCompare (Var 2 i2) Eq (Cast (IntegerConstant 3 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 3 (Integer 8 []))) (Logical 4 []) ()) ()) (Assert (IntegerCompare (Cast (RealConstant 5.678000 (Real 8 [])) RealToInteger (Integer 8 []) (IntegerConstant 5 (Integer 8 []))) Eq (Cast (IntegerConstant 5 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 5 (Integer 8 []))) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (IntegerCompare (Cast (Var 2 f) RealToInteger (Integer 8 []) ()) Eq (Cast (IntegerConstant 5 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 5 (Integer 8 []))) (Logical 4 []) ()) ()) (= (Var 2 f) (RealUnaryMinus (RealConstant 183745.230000 (Real 8 [])) (Real 8 []) (RealConstant -183745.230000 (Real 8 []))) ()) (Assert (IntegerCompare (Cast (RealUnaryMinus (RealConstant 183745.230000 (Real 8 [])) (Real 8 []) (RealConstant -183745.230000 (Real 8 []))) RealToInteger (Integer 8 []) (IntegerConstant -183745 (Integer 8 []))) Eq (Cast (IntegerUnaryMinus (IntegerConstant 183745 (Integer 4 [])) (Integer 4 []) (IntegerConstant -183745 (Integer 4 []))) IntegerToInteger (Integer 8 []) (IntegerConstant -183745 (Integer 8 []))) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (IntegerCompare (Cast (Var 2 f) RealToInteger (Integer 8 []) ()) Eq (Cast (IntegerUnaryMinus (IntegerConstant 183745 (Integer 4 [])) (Integer 4 []) (IntegerConstant -183745 (Integer 4 []))) IntegerToInteger (Integer 8 []) (IntegerConstant -183745 (Integer 8 []))) (Logical 4 []) ()) ()) (Assert (IntegerCompare (Cast (RealConstant 5.500000 (Real 8 [])) RealToInteger (Integer 8 []) (IntegerConstant 5 (Integer 8 []))) Eq (Cast (IntegerConstant 5 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 5 (Integer 8 []))) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (IntegerCompare (Cast (RealUnaryMinus (RealConstant 5.500000 (Real 8 [])) (Real 8 []) (RealConstant -5.500000 (Real 8 []))) RealToInteger (Integer 8 []) (IntegerConstant -5 (Integer 8 []))) Eq (Cast (IntegerUnaryMinus (IntegerConstant 5 (Integer 4 [])) (Integer 4 []) (IntegerConstant -5 (Integer 4 []))) IntegerToInteger (Integer 8 []) (IntegerConstant -5 (Integer 8 []))) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (IntegerCompare (Cast (LogicalConstant .true. (Logical 4 [])) LogicalToInteger (Integer 8 []) (IntegerConstant 1 (Integer 8 []))) Eq (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 1 (Integer 8 []))) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (IntegerCompare (Cast (LogicalConstant .false. (Logical 4 [])) LogicalToInteger (Integer 8 []) (IntegerConstant 0 (Integer 8 []))) Eq (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 0 (Integer 8 []))) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ())] () Public .false. .false.)}) [])
diff --git a/tests/reference/asr-test_builtin_len-55b0dec.json b/tests/reference/asr-test_builtin_len-55b0dec.json
index d735d673b8..3961952d18 100644
--- a/tests/reference/asr-test_builtin_len-55b0dec.json
+++ b/tests/reference/asr-test_builtin_len-55b0dec.json
@@ -2,11 +2,11 @@
     "basename": "asr-test_builtin_len-55b0dec",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/../integration_tests/test_builtin_len.py",
-    "infile_hash": "e202dc8c0fe5b9c3e3794ced531009700e2d98fd7e99e2ba2ecb3627",
+    "infile_hash": "fd1048585d9628ca38f6f21cdcfb3b44c355bbf6df2275a133f82a6f",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "asr-test_builtin_len-55b0dec.stdout",
-    "stdout_hash": "62f8a732f345c4e0bb60cb9c8bfdc67eba5a51b25ca041481bac4e51",
+    "stdout_hash": "b2cd8402abe2c03cfa658d19260d285f3dc391c36e793b6e004f5005",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/asr-test_builtin_len-55b0dec.stdout b/tests/reference/asr-test_builtin_len-55b0dec.stdout
index 39024e27b1..ccb509e32e 100644
--- a/tests/reference/asr-test_builtin_len-55b0dec.stdout
+++ b/tests/reference/asr-test_builtin_len-55b0dec.stdout
@@ -1 +1,773 @@
-(TranslationUnit (SymbolTable 1 {_lpython_main_program: (Function (SymbolTable 6 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [test_len] [] [(SubroutineCall 1 test_len () [] ())] () Public .false. .false.), main_program: (Program (SymbolTable 5 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())]), test_len: (Function (SymbolTable 2 {i: (Variable 2 i [] Local () () Default (Integer 4 []) Source Public Required .false.), l: (Variable 2 l [] Local () () Default (List (Integer 4 [])) Source Public Required .false.), l2: (Variable 2 l2 [] Local () () Default (List (Real 8 [])) Source Public Required .false.), l3: (Variable 2 l3 [] Local () () Default (List (Integer 4 [])) Source Public Required .false.), list_len: (Variable 2 list_len [] Local (ListLen (ListConstant [(RealConstant 1.000000 (Real 8 [])) (RealConstant 2.000000 (Real 8 []))] (List (Real 8 []))) (Integer 4 []) (IntegerConstant 2 (Integer 4 []))) () Default (Integer 4 []) Source Public Required .false.), s: (Variable 2 s [] Local () () Default (Character 1 -2 () []) Source Public Required .false.), t: (Variable 2 t [] Local () () Default (Tuple [(Integer 4 []) (Integer 4 []) (Character 1 -2 () [])]) Source Public Required .false.), t2: (Variable 2 t2 [] Local () () Default (Tuple [(Real 8 []) (Logical 4 []) (Logical 4 []) (Character 1 -2 () []) (Integer 4 [])]) Source Public Required .false.), t3: (Variable 2 t3 [] Local (TupleLen (TupleConstant [(IntegerConstant 1 (Integer 4 [])) (IntegerConstant 2 (Integer 4 [])) (IntegerConstant 3 (Integer 4 [])) (IntegerConstant 4 (Integer 4 [])) (IntegerConstant 5 (Integer 4 []))] (Tuple [(Integer 4 []) (Integer 4 []) (Integer 4 []) (Integer 4 []) (Integer 4 [])])) (Integer 4 []) (IntegerConstant 5 (Integer 4 []))) () Default (Integer 4 []) Source Public Required .false.), tmp: (Variable 2 tmp [] Local () () Default (Integer 4 []) Source Public Required .false.)}) test_len (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [] [(= (Var 2 s) (StringConstant "abcd" (Character 1 4 () [])) ()) (Assert (IntegerCompare (StringLen (Var 2 s) (Integer 4 []) ()) Eq (IntegerConstant 4 (Integer 4 [])) (Logical 4 []) ()) ()) (= (Var 2 s) (StringConstant "" (Character 1 0 () [])) ()) (Assert (IntegerCompare (StringLen (Var 2 s) (Integer 4 []) ()) Eq (IntegerConstant 0 (Integer 4 [])) (Logical 4 []) ()) ()) (Assert (IntegerCompare (StringLen (StringConstant "abcd" (Character 1 4 () [])) (Integer 4 []) (IntegerConstant 4 (Integer 4 []))) Eq (IntegerConstant 4 (Integer 4 [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (IntegerCompare (StringLen (StringConstant "" (Character 1 0 () [])) (Integer 4 []) (IntegerConstant 0 (Integer 4 []))) Eq (IntegerConstant 0 (Integer 4 [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (= (Var 2 l) (ListConstant [(IntegerConstant 1 (Integer 4 [])) (IntegerConstant 2 (Integer 4 [])) (IntegerConstant 3 (Integer 4 [])) (IntegerConstant 4 (Integer 4 []))] (List (Integer 4 []))) ()) (Assert (IntegerCompare (ListLen (Var 2 l) (Integer 4 []) ()) Eq (IntegerConstant 4 (Integer 4 [])) (Logical 4 []) ()) ()) (= (Var 2 l2) (ListConstant [(RealConstant 1.200000 (Real 8 [])) (RealConstant 3.400000 (Real 8 [])) (RealConstant 5.600000 (Real 8 [])) (RealConstant 7.800000 (Real 8 [])) (RealConstant 9.000000 (Real 8 []))] (List (Real 8 []))) ()) (Assert (IntegerCompare (ListLen (Var 2 l2) (Integer 4 []) ()) Eq (IntegerConstant 5 (Integer 4 [])) (Logical 4 []) ()) ()) (= (Var 2 l3) (ListConstant [] (List (Integer 4 []))) ()) (Assert (IntegerCompare (ListLen (Var 2 l3) (Integer 4 []) ()) Eq (IntegerConstant 0 (Integer 4 [])) (Logical 4 []) ()) ()) (DoLoop ((Var 2 i) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (IntegerConstant 50 (Integer 4 [])) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant 49 (Integer 4 []))) (IntegerConstant 1 (Integer 4 []))) [(ListAppend (Var 2 l3) (Var 2 i))]) (Assert (IntegerCompare (ListLen (Var 2 l3) (Integer 4 []) ()) Eq (IntegerConstant 50 (Integer 4 [])) (Logical 4 []) ()) ()) (= (Var 2 list_len) (ListLen (ListConstant [(RealConstant 1.000000 (Real 8 [])) (RealConstant 2.000000 (Real 8 []))] (List (Real 8 []))) (Integer 4 []) (IntegerConstant 2 (Integer 4 []))) ()) (Assert (IntegerCompare (Var 2 list_len) Eq (IntegerConstant 2 (Integer 4 [])) (Logical 4 []) ()) ()) (= (Var 2 t) (TupleConstant [(IntegerConstant 1 (Integer 4 [])) (IntegerConstant 2 (Integer 4 [])) (StringConstant "a" (Character 1 1 () []))] (Tuple [(Integer 4 []) (Integer 4 []) (Character 1 1 () [])])) ()) (Assert (IntegerCompare (TupleLen (Var 2 t) (Integer 4 []) (IntegerConstant 3 (Integer 4 []))) Eq (IntegerConstant 3 (Integer 4 [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (= (Var 2 t2) (TupleConstant [(RealConstant 1.200000 (Real 8 [])) (LogicalConstant .true. (Logical 4 [])) (LogicalConstant .false. (Logical 4 [])) (StringConstant "b" (Character 1 1 () [])) (IntegerConstant 3 (Integer 4 []))] (Tuple [(Real 8 []) (Logical 4 []) (Logical 4 []) (Character 1 1 () []) (Integer 4 [])])) ()) (Assert (IntegerCompare (TupleLen (Var 2 t2) (Integer 4 []) (IntegerConstant 5 (Integer 4 []))) Eq (IntegerConstant 5 (Integer 4 [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (= (Var 2 t3) (TupleLen (TupleConstant [(IntegerConstant 1 (Integer 4 [])) (IntegerConstant 2 (Integer 4 [])) (IntegerConstant 3 (Integer 4 [])) (IntegerConstant 4 (Integer 4 [])) (IntegerConstant 5 (Integer 4 []))] (Tuple [(Integer 4 []) (Integer 4 []) (Integer 4 []) (Integer 4 []) (Integer 4 [])])) (Integer 4 []) (IntegerConstant 5 (Integer 4 []))) ()) (Assert (IntegerCompare (Var 2 t3) Eq (IntegerConstant 5 (Integer 4 [])) (Logical 4 []) ()) ()) (= (Var 2 tmp) (ListLen (Var 2 l) (Integer 4 []) ()) ()) (DoLoop ((Var 2 i) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (TupleLen (Var 2 t2) (Integer 4 []) (IntegerConstant 5 (Integer 4 []))) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant 4 (Integer 4 []))) (IntegerConstant 1 (Integer 4 []))) [(ListAppend (Var 2 l) (Var 2 i))]) (Assert (IntegerCompare (ListLen (Var 2 l) (Integer 4 []) ()) Eq (IntegerBinOp (TupleLen (Var 2 t2) (Integer 4 []) (IntegerConstant 5 (Integer 4 []))) Add (Var 2 tmp) (Integer 4 []) ()) (Logical 4 []) ()) ())] () Public .false. .false.)}) [])
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            __main__global_stmts:
+                                (Function
+                                    (SymbolTable
+                                        6
+                                        {
+                                            
+                                        })
+                                    __main__global_stmts
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [test_len]
+                                    []
+                                    [(SubroutineCall
+                                        2 test_len
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            test_len:
+                                (Function
+                                    (SymbolTable
+                                        3
+                                        {
+                                            i:
+                                                (Variable
+                                                    3
+                                                    i
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            l:
+                                                (Variable
+                                                    3
+                                                    l
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (List
+                                                        (Integer 4)
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            l2:
+                                                (Variable
+                                                    3
+                                                    l2
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (List
+                                                        (Real 8)
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            l3:
+                                                (Variable
+                                                    3
+                                                    l3
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (List
+                                                        (Integer 4)
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            list_len:
+                                                (Variable
+                                                    3
+                                                    list_len
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            s:
+                                                (Variable
+                                                    3
+                                                    s
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Allocatable
+                                                        (String 1 () DeferredLength DescriptorString)
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            t:
+                                                (Variable
+                                                    3
+                                                    t
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Tuple
+                                                        [(Integer 4)
+                                                        (Integer 4)
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )]
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            t2:
+                                                (Variable
+                                                    3
+                                                    t2
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Tuple
+                                                        [(Real 8)
+                                                        (Logical 4)
+                                                        (Logical 4)
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                        (Integer 4)]
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            t3:
+                                                (Variable
+                                                    3
+                                                    t3
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            tmp:
+                                                (Variable
+                                                    3
+                                                    tmp
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test_len
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 3 s)
+                                        (StringConstant
+                                            "abcd"
+                                            (String 1 (IntegerConstant 4 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (StringLen
+                                                (Var 3 s)
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerConstant 4 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 s)
+                                        (StringConstant
+                                            ""
+                                            (String 1 (IntegerConstant 0 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (StringLen
+                                                (Var 3 s)
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerConstant 0 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (StringLen
+                                                (StringConstant
+                                                    "abcd"
+                                                    (String 1 (IntegerConstant 4 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                                (Integer 4)
+                                                (IntegerConstant 4 (Integer 4) Decimal)
+                                            )
+                                            Eq
+                                            (IntegerConstant 4 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (StringLen
+                                                (StringConstant
+                                                    ""
+                                                    (String 1 (IntegerConstant 0 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                                (Integer 4)
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                            )
+                                            Eq
+                                            (IntegerConstant 0 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 l)
+                                        (ListConstant
+                                            [(IntegerConstant 1 (Integer 4) Decimal)
+                                            (IntegerConstant 2 (Integer 4) Decimal)
+                                            (IntegerConstant 3 (Integer 4) Decimal)
+                                            (IntegerConstant 4 (Integer 4) Decimal)]
+                                            (List
+                                                (Integer 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (ListLen
+                                                (Var 3 l)
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerConstant 4 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 l2)
+                                        (ListConstant
+                                            [(RealConstant
+                                                1.200000
+                                                (Real 8)
+                                            )
+                                            (RealConstant
+                                                3.400000
+                                                (Real 8)
+                                            )
+                                            (RealConstant
+                                                5.600000
+                                                (Real 8)
+                                            )
+                                            (RealConstant
+                                                7.800000
+                                                (Real 8)
+                                            )
+                                            (RealConstant
+                                                9.000000
+                                                (Real 8)
+                                            )]
+                                            (List
+                                                (Real 8)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (ListLen
+                                                (Var 3 l2)
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerConstant 5 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 l3)
+                                        (ListConstant
+                                            []
+                                            (List
+                                                (Integer 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (ListLen
+                                                (Var 3 l3)
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerConstant 0 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 3 i)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (IntegerConstant 50 (Integer 4) Decimal)
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            (IntegerConstant 49 (Integer 4) Decimal)
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(ListAppend
+                                            (Var 3 l3)
+                                            (Var 3 i)
+                                        )]
+                                        []
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (ListLen
+                                                (Var 3 l3)
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerConstant 50 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 list_len)
+                                        (ListLen
+                                            (ListConstant
+                                                [(RealConstant
+                                                    1.000000
+                                                    (Real 8)
+                                                )
+                                                (RealConstant
+                                                    2.000000
+                                                    (Real 8)
+                                                )]
+                                                (List
+                                                    (Real 8)
+                                                )
+                                            )
+                                            (Integer 4)
+                                            (IntegerConstant 2 (Integer 4) Decimal)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (Var 3 list_len)
+                                            Eq
+                                            (IntegerConstant 2 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 t)
+                                        (TupleConstant
+                                            [(IntegerConstant 1 (Integer 4) Decimal)
+                                            (IntegerConstant 2 (Integer 4) Decimal)
+                                            (StringConstant
+                                                "a"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )]
+                                            (Tuple
+                                                [(Integer 4)
+                                                (Integer 4)
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)]
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (TupleLen
+                                                (Var 3 t)
+                                                (Integer 4)
+                                                (IntegerConstant 3 (Integer 4) Decimal)
+                                            )
+                                            Eq
+                                            (IntegerConstant 3 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 t2)
+                                        (TupleConstant
+                                            [(RealConstant
+                                                1.200000
+                                                (Real 8)
+                                            )
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                            (LogicalConstant
+                                                .false.
+                                                (Logical 4)
+                                            )
+                                            (StringConstant
+                                                "b"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (IntegerConstant 3 (Integer 4) Decimal)]
+                                            (Tuple
+                                                [(Real 8)
+                                                (Logical 4)
+                                                (Logical 4)
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                (Integer 4)]
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (TupleLen
+                                                (Var 3 t2)
+                                                (Integer 4)
+                                                (IntegerConstant 5 (Integer 4) Decimal)
+                                            )
+                                            Eq
+                                            (IntegerConstant 5 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 t3)
+                                        (TupleLen
+                                            (TupleConstant
+                                                [(IntegerConstant 1 (Integer 4) Decimal)
+                                                (IntegerConstant 2 (Integer 4) Decimal)
+                                                (IntegerConstant 3 (Integer 4) Decimal)
+                                                (IntegerConstant 4 (Integer 4) Decimal)
+                                                (IntegerConstant 5 (Integer 4) Decimal)]
+                                                (Tuple
+                                                    [(Integer 4)
+                                                    (Integer 4)
+                                                    (Integer 4)
+                                                    (Integer 4)
+                                                    (Integer 4)]
+                                                )
+                                            )
+                                            (Integer 4)
+                                            (IntegerConstant 5 (Integer 4) Decimal)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (Var 3 t3)
+                                            Eq
+                                            (IntegerConstant 5 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 tmp)
+                                        (ListLen
+                                            (Var 3 l)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 3 i)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (TupleLen
+                                                (Var 3 t2)
+                                                (Integer 4)
+                                                (IntegerConstant 5 (Integer 4) Decimal)
+                                            )
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            (IntegerConstant 4 (Integer 4) Decimal)
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(ListAppend
+                                            (Var 3 l)
+                                            (Var 3 i)
+                                        )]
+                                        []
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (ListLen
+                                                (Var 3 l)
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerBinOp
+                                                (TupleLen
+                                                    (Var 3 t2)
+                                                    (Integer 4)
+                                                    (IntegerConstant 5 (Integer 4) Decimal)
+                                                )
+                                                Add
+                                                (Var 3 tmp)
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    []
+                    .false.
+                    .false.
+                    .false.
+                ),
+            main_program:
+                (Program
+                    (SymbolTable
+                        7
+                        {
+                            __main__global_stmts:
+                                (ExternalSymbol
+                                    7
+                                    __main__global_stmts
+                                    2 __main__global_stmts
+                                    __main__
+                                    []
+                                    __main__global_stmts
+                                    Public
+                                )
+                        })
+                    main_program
+                    [__main__]
+                    [(SubroutineCall
+                        7 __main__global_stmts
+                        2 __main__global_stmts
+                        []
+                        ()
+                        .false.
+                    )]
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-test_builtin_oct-20b9066.json b/tests/reference/asr-test_builtin_oct-20b9066.json
deleted file mode 100644
index 782d8c6840..0000000000
--- a/tests/reference/asr-test_builtin_oct-20b9066.json
+++ /dev/null
@@ -1,13 +0,0 @@
-{
-    "basename": "asr-test_builtin_oct-20b9066",
-    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
-    "infile": "tests/../integration_tests/test_builtin_oct.py",
-    "infile_hash": "e3ad514502baf503fd9204e90fa3e3e87bd6be38752b5419fc626420",
-    "outfile": null,
-    "outfile_hash": null,
-    "stdout": "asr-test_builtin_oct-20b9066.stdout",
-    "stdout_hash": "6ed529bda39d77e5a6cea4fdeb71799645044bb2e2c2e6098004d019",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
-}
\ No newline at end of file
diff --git a/tests/reference/asr-test_builtin_oct-20b9066.stdout b/tests/reference/asr-test_builtin_oct-20b9066.stdout
deleted file mode 100644
index 9e4c671a2b..0000000000
--- a/tests/reference/asr-test_builtin_oct-20b9066.stdout
+++ /dev/null
@@ -1 +0,0 @@
-(TranslationUnit (SymbolTable 1 {_lpython_main_program: (Function (SymbolTable 97 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [test_oct] [] [(SubroutineCall 1 test_oct () [] ())] () Public .false. .false.), lpython_builtin: (IntrinsicModule lpython_builtin), main_program: (Program (SymbolTable 96 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())]), test_oct: (Function (SymbolTable 2 {i: (Variable 2 i [] Local () () Default (Integer 4 []) Source Public Required .false.), oct: (ExternalSymbol 2 oct 4 oct lpython_builtin [] oct Private)}) test_oct (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [oct oct oct oct] [] [(= (Var 2 i) (IntegerConstant 34 (Integer 4 [])) ()) (Assert (StringCompare (FunctionCall 2 oct () [((Var 2 i))] (Character 1 -2 () []) () ()) Eq (StringConstant "0o42" (Character 1 4 () [])) (Logical 4 []) ()) ()) (= (Var 2 i) (IntegerUnaryMinus (IntegerConstant 4235 (Integer 4 [])) (Integer 4 []) (IntegerConstant -4235 (Integer 4 []))) ()) (Assert (StringCompare (FunctionCall 2 oct () [((Var 2 i))] (Character 1 -2 () []) () ()) Eq (StringConstant "-0o10213" (Character 1 8 () [])) (Logical 4 []) ()) ()) (Assert (StringCompare (FunctionCall 2 oct () [((IntegerConstant 34 (Integer 4 [])))] (Character 1 -2 () []) (StringConstant "0o42" (Character 1 4 () [])) ()) Eq (StringConstant "0o42" (Character 1 4 () [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (StringCompare (FunctionCall 2 oct () [((IntegerUnaryMinus (IntegerConstant 4235 (Integer 4 [])) (Integer 4 []) (IntegerConstant -4235 (Integer 4 []))))] (Character 1 -2 () []) (StringConstant "-0o10213" (Character 1 8 () [])) ()) Eq (StringConstant "-0o10213" (Character 1 8 () [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ())] () Public .false. .false.)}) [])
diff --git a/tests/reference/asr-test_builtin_pow-f02fcda.json b/tests/reference/asr-test_builtin_pow-f02fcda.json
index 4369df076a..ebe64423b7 100644
--- a/tests/reference/asr-test_builtin_pow-f02fcda.json
+++ b/tests/reference/asr-test_builtin_pow-f02fcda.json
@@ -2,11 +2,11 @@
     "basename": "asr-test_builtin_pow-f02fcda",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/../integration_tests/test_builtin_pow.py",
-    "infile_hash": "73b7a50686598a8df8a84a6f36e637516e6f140b1d2adbc72f1c4cfe",
+    "infile_hash": "748ff533d02c2ba6aeb5373182e7fbe517cd0305fb85ef758ff7008a",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "asr-test_builtin_pow-f02fcda.stdout",
-    "stdout_hash": "b91f9b2bd0e6da67e86b0e8a357f0a5dd478a7423efc06632501d8c5",
+    "stdout_hash": "1f9ffc8367ea83a2d20959dff7ed03ca0a9a78a2800b614a4080256f",
     "stderr": "asr-test_builtin_pow-f02fcda.stderr",
     "stderr_hash": "859ce76c74748f2d32c7eab92cfbba789a78d4cbf5818646b99806ea",
     "returncode": 0
diff --git a/tests/reference/asr-test_builtin_pow-f02fcda.stdout b/tests/reference/asr-test_builtin_pow-f02fcda.stdout
index 392964ca67..6540cd01cb 100644
--- a/tests/reference/asr-test_builtin_pow-f02fcda.stdout
+++ b/tests/reference/asr-test_builtin_pow-f02fcda.stdout
@@ -1 +1,2028 @@
-(TranslationUnit (SymbolTable 1 {_lpython_main_program: (Function (SymbolTable 97 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [test_pow] [] [(SubroutineCall 1 test_pow () [] ())] () Public .false. .false.), lpython_builtin: (IntrinsicModule lpython_builtin), main_program: (Program (SymbolTable 96 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())]), test_pow: (Function (SymbolTable 2 {a: (Variable 2 a [] Local () () Default (Integer 4 []) Source Public Required .false.), a1: (Variable 2 a1 [] Local (RealConstant 4.500000 (Real 8 [])) () Default (Real 8 []) Source Public Required .false.), a2: (Variable 2 a2 [] Local (RealConstant 2.300000 (Real 8 [])) () Default (Real 8 []) Source Public Required .false.), abs: (ExternalSymbol 2 abs 4 abs lpython_builtin [] abs Private), abs@__lpython_overloaded_0__abs: (ExternalSymbol 2 abs@__lpython_overloaded_0__abs 4 __lpython_overloaded_0__abs lpython_builtin [] __lpython_overloaded_0__abs Public), b: (Variable 2 b [] Local () () Default (Integer 4 []) Source Public Required .false.), b1: (Variable 2 b1 [] Local (LogicalConstant .true. (Logical 4 [])) () Default (Logical 4 []) Source Public Required .false.), b2: (Variable 2 b2 [] Local (LogicalConstant .false. (Logical 4 [])) () Default (Logical 4 []) Source Public Required .false.), c1: (Variable 2 c1 [] Local () () Default (Complex 4 []) Source Public Required .false.), complex: (ExternalSymbol 2 complex 4 complex lpython_builtin [] complex Private), complex@__lpython_overloaded_9__complex: (ExternalSymbol 2 complex@__lpython_overloaded_9__complex 4 __lpython_overloaded_9__complex lpython_builtin [] __lpython_overloaded_9__complex Public), eps: (Variable 2 eps [] Local () () Default (Real 8 []) Source Public Required .false.), f1: (Variable 2 f1 [] Local () () Default (Real 4 []) Source Public Required .false.), f2: (Variable 2 f2 [] Local () () Default (Real 4 []) Source Public Required .false.), i: (Variable 2 i [] Local () () Default (Integer 8 []) Source Public Required .false.), i1: (Variable 2 i1 [] Local () () Default (Integer 8 []) Source Public Required .false.), i2: (Variable 2 i2 [] Local () () Default (Integer 8 []) Source Public Required .false.), j: (Variable 2 j [] Local () () Default (Integer 8 []) Source Public Required .false.), k: (Variable 2 k [] Local () () Default (Integer 8 []) Source Public Required .false.), p: (Variable 2 p [] Local () () Default (Real 4 []) Source Public Required .false.), pow: (ExternalSymbol 2 pow 4 pow lpython_builtin [] pow Private), pow@__lpython_overloaded_0__pow: (ExternalSymbol 2 pow@__lpython_overloaded_0__pow 4 __lpython_overloaded_0__pow lpython_builtin [] __lpython_overloaded_0__pow Public), pow@__lpython_overloaded_10__pow: (ExternalSymbol 2 pow@__lpython_overloaded_10__pow 4 __lpython_overloaded_10__pow lpython_builtin [] __lpython_overloaded_10__pow Public), pow@__lpython_overloaded_11__pow: (ExternalSymbol 2 pow@__lpython_overloaded_11__pow 4 __lpython_overloaded_11__pow lpython_builtin [] __lpython_overloaded_11__pow Public), pow@__lpython_overloaded_1__pow: (ExternalSymbol 2 pow@__lpython_overloaded_1__pow 4 __lpython_overloaded_1__pow lpython_builtin [] __lpython_overloaded_1__pow Public), pow@__lpython_overloaded_2__pow: (ExternalSymbol 2 pow@__lpython_overloaded_2__pow 4 __lpython_overloaded_2__pow lpython_builtin [] __lpython_overloaded_2__pow Public), pow@__lpython_overloaded_3__pow: (ExternalSymbol 2 pow@__lpython_overloaded_3__pow 4 __lpython_overloaded_3__pow lpython_builtin [] __lpython_overloaded_3__pow Public), pow@__lpython_overloaded_4__pow: (ExternalSymbol 2 pow@__lpython_overloaded_4__pow 4 __lpython_overloaded_4__pow lpython_builtin [] __lpython_overloaded_4__pow Public), pow@__lpython_overloaded_5__pow: (ExternalSymbol 2 pow@__lpython_overloaded_5__pow 4 __lpython_overloaded_5__pow lpython_builtin [] __lpython_overloaded_5__pow Public), pow@__lpython_overloaded_6__pow: (ExternalSymbol 2 pow@__lpython_overloaded_6__pow 4 __lpython_overloaded_6__pow lpython_builtin [] __lpython_overloaded_6__pow Public), pow@__lpython_overloaded_7__pow: (ExternalSymbol 2 pow@__lpython_overloaded_7__pow 4 __lpython_overloaded_7__pow lpython_builtin [] __lpython_overloaded_7__pow Public), pow@__lpython_overloaded_8__pow: (ExternalSymbol 2 pow@__lpython_overloaded_8__pow 4 __lpython_overloaded_8__pow lpython_builtin [] __lpython_overloaded_8__pow Public), pow@__lpython_overloaded_9__pow: (ExternalSymbol 2 pow@__lpython_overloaded_9__pow 4 __lpython_overloaded_9__pow lpython_builtin [] __lpython_overloaded_9__pow Public), x: (Variable 2 x [] Local (IntegerConstant 3 (Integer 4 [])) () Default (Integer 4 []) Source Public Required .false.), y: (Variable 2 y [] Local (RealConstant 2.300000 (Real 8 [])) () Default (Real 8 []) Source Public Required .false.)}) test_pow (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [pow@__lpython_overloaded_0__pow pow@__lpython_overloaded_0__pow pow@__lpython_overloaded_0__pow pow@__lpython_overloaded_1__pow pow@__lpython_overloaded_2__pow pow@__lpython_overloaded_4__pow pow@__lpython_overloaded_5__pow pow@__lpython_overloaded_8__pow pow@__lpython_overloaded_8__pow pow@__lpython_overloaded_8__pow pow@__lpython_overloaded_8__pow abs@__lpython_overloaded_0__abs pow@__lpython_overloaded_3__pow abs@__lpython_overloaded_0__abs pow@__lpython_overloaded_3__pow abs@__lpython_overloaded_0__abs pow@__lpython_overloaded_6__pow abs@__lpython_overloaded_0__abs pow@__lpython_overloaded_7__pow abs@__lpython_overloaded_0__abs pow@__lpython_overloaded_6__pow abs@__lpython_overloaded_0__abs pow@__lpython_overloaded_1__pow abs@__lpython_overloaded_0__abs pow@__lpython_overloaded_1__pow abs@__lpython_overloaded_0__abs pow@__lpython_overloaded_1__pow abs@__lpython_overloaded_0__abs pow@__lpython_overloaded_1__pow abs@__lpython_overloaded_0__abs pow@__lpython_overloaded_3__pow abs@__lpython_overloaded_0__abs pow@__lpython_overloaded_3__pow abs@__lpython_overloaded_0__abs pow@__lpython_overloaded_3__pow abs@__lpython_overloaded_0__abs pow@__lpython_overloaded_6__pow abs@__lpython_overloaded_0__abs pow@__lpython_overloaded_6__pow abs@__lpython_overloaded_0__abs pow@__lpython_overloaded_7__pow abs@__lpython_overloaded_0__abs pow@__lpython_overloaded_7__pow pow@__lpython_overloaded_0__pow abs@__lpython_overloaded_0__abs pow@__lpython_overloaded_7__pow pow@__lpython_overloaded_11__pow pow@__lpython_overloaded_10__pow complex@__lpython_overloaded_9__complex pow@__lpython_overloaded_9__pow] [] [(= (Var 2 eps) (RealConstant 0.000000 (Real 8 [])) ()) (= (Var 2 a) (IntegerConstant 2 (Integer 4 [])) ()) (= (Var 2 b) (IntegerConstant 5 (Integer 4 [])) ()) (Assert (IntegerCompare (Cast (FunctionCall 2 pow@__lpython_overloaded_0__pow 2 pow [((Var 2 a)) ((Var 2 b))] (Real 8 []) () ()) RealToInteger (Integer 4 []) ()) Eq (IntegerConstant 32 (Integer 4 [])) (Logical 4 []) ()) ()) (= (Var 2 a) (IntegerConstant 6 (Integer 4 [])) ()) (= (Var 2 b) (IntegerConstant 3 (Integer 4 [])) ()) (Assert (IntegerCompare (Cast (FunctionCall 2 pow@__lpython_overloaded_0__pow 2 pow [((Var 2 a)) ((Var 2 b))] (Real 8 []) () ()) RealToInteger (Integer 4 []) ()) Eq (IntegerConstant 216 (Integer 4 [])) (Logical 4 []) ()) ()) (= (Var 2 a) (IntegerConstant 2 (Integer 4 [])) ()) (= (Var 2 b) (IntegerConstant 0 (Integer 4 [])) ()) (Assert (IntegerCompare (Cast (FunctionCall 2 pow@__lpython_overloaded_0__pow 2 pow [((Var 2 a)) ((Var 2 b))] (Real 8 []) () ()) RealToInteger (Integer 4 []) ()) Eq (IntegerConstant 1 (Integer 4 [])) (Logical 4 []) ()) ()) (= (Var 2 a) (IntegerConstant 2 (Integer 4 [])) ()) (= (Var 2 b) (IntegerUnaryMinus (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant -1 (Integer 4 []))) ()) (= (Var 2 a) (IntegerConstant 6 (Integer 4 [])) ()) (= (Var 2 b) (IntegerUnaryMinus (IntegerConstant 4 (Integer 4 [])) (Integer 4 []) (IntegerConstant -4 (Integer 4 []))) ()) (= (Var 2 i1) (Cast (IntegerConstant 2 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 2 (Integer 8 []))) ()) (= (Var 2 i2) (Cast (IntegerConstant 5 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 5 (Integer 8 []))) ()) (Assert (IntegerCompare (Cast (FunctionCall 2 pow@__lpython_overloaded_1__pow 2 pow [((Var 2 i1)) ((Var 2 i2))] (Real 8 []) () ()) RealToInteger (Integer 8 []) ()) Eq (Cast (IntegerConstant 32 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 32 (Integer 8 []))) (Logical 4 []) ()) ()) (= (Var 2 i1) (Cast (IntegerConstant 6 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 6 (Integer 8 []))) ()) (= (Var 2 i2) (IntegerUnaryMinus (Cast (IntegerConstant 3 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 3 (Integer 8 []))) (Integer 8 []) (IntegerConstant -3 (Integer 8 []))) ()) (= (Var 2 f1) (Cast (RealBinOp (Cast (IntegerConstant 525346 (Integer 4 [])) IntegerToReal (Real 8 []) ()) Div (Cast (IntegerConstant 66456 (Integer 4 [])) IntegerToReal (Real 8 []) ()) (Real 8 []) ()) RealToReal (Real 4 []) ()) ()) (= (Var 2 f2) (Cast (RealConstant 3.000000 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 3.000000 (Real 4 []))) ()) (= (Var 2 p) (FunctionCall 2 pow@__lpython_overloaded_2__pow 2 pow [((Var 2 f1)) ((Var 2 f2))] (Real 4 []) () ()) ()) (= (Var 2 f1) (FunctionCall 2 pow@__lpython_overloaded_4__pow 2 pow [((Var 2 a)) ((Var 2 f2))] (Real 4 []) () ()) ()) (= (Var 2 f1) (FunctionCall 2 pow@__lpython_overloaded_5__pow 2 pow [((Var 2 f2)) ((Var 2 a))] (Real 4 []) () ()) ()) (= (Var 2 b1) (LogicalConstant .true. (Logical 4 [])) ()) (= (Var 2 b2) (LogicalConstant .false. (Logical 4 [])) ()) (Assert (IntegerCompare (FunctionCall 2 pow@__lpython_overloaded_8__pow 2 pow [((Var 2 b1)) ((Var 2 b2))] (Integer 4 []) () ()) Eq (IntegerConstant 1 (Integer 4 [])) (Logical 4 []) ()) ()) (Assert (IntegerCompare (FunctionCall 2 pow@__lpython_overloaded_8__pow 2 pow [((Var 2 b2)) ((Var 2 b1))] (Integer 4 []) () ()) Eq (IntegerConstant 0 (Integer 4 [])) (Logical 4 []) ()) ()) (Assert (IntegerCompare (FunctionCall 2 pow@__lpython_overloaded_8__pow 2 pow [((Var 2 b1)) ((Var 2 b2))] (Integer 4 []) () ()) Eq (IntegerConstant 1 (Integer 4 [])) (Logical 4 []) ()) ()) (Assert (IntegerCompare (FunctionCall 2 pow@__lpython_overloaded_8__pow 2 pow [((LogicalConstant .false. (Logical 4 []))) ((LogicalConstant .false. (Logical 4 [])))] (Integer 4 []) (IntegerConstant 1 (Integer 4 [])) ()) Eq (IntegerConstant 1 (Integer 4 [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (= (Var 2 a1) (RealConstant 4.500000 (Real 8 [])) ()) (= (Var 2 a2) (RealConstant 2.300000 (Real 8 [])) ()) (Assert (RealCompare (FunctionCall 2 abs@__lpython_overloaded_0__abs 2 abs [((RealBinOp (FunctionCall 2 pow@__lpython_overloaded_3__pow 2 pow [((Var 2 a1)) ((Var 2 a2))] (Real 8 []) () ()) Sub (RealConstant 31.797193 (Real 8 [])) (Real 8 []) ()))] (Real 8 []) () ()) Lt (Var 2 eps) (Logical 4 []) ()) ()) (Assert (RealCompare (FunctionCall 2 abs@__lpython_overloaded_0__abs 2 abs [((RealBinOp (FunctionCall 2 pow@__lpython_overloaded_3__pow 2 pow [((Var 2 a2)) ((Var 2 a1))] (Real 8 []) () ()) Sub (RealConstant 42.439989 (Real 8 [])) (Real 8 []) ()))] (Real 8 []) () ()) Lt (Var 2 eps) (Logical 4 []) ()) ()) (= (Var 2 x) (IntegerConstant 3 (Integer 4 [])) ()) (= (Var 2 y) (RealConstant 2.300000 (Real 8 [])) ()) (Assert (RealCompare (FunctionCall 2 abs@__lpython_overloaded_0__abs 2 abs [((RealBinOp (FunctionCall 2 pow@__lpython_overloaded_6__pow 2 pow [((Var 2 x)) ((Var 2 y))] (Real 8 []) () ()) Sub (RealConstant 12.513503 (Real 8 [])) (Real 8 []) ()))] (Real 8 []) () ()) Lt (Var 2 eps) (Logical 4 []) ()) ()) (Assert (RealCompare (FunctionCall 2 abs@__lpython_overloaded_0__abs 2 abs [((RealBinOp (FunctionCall 2 pow@__lpython_overloaded_7__pow 2 pow [((Var 2 y)) ((Var 2 x))] (Real 8 []) () ()) Sub (RealConstant 12.167000 (Real 8 [])) (Real 8 []) ()))] (Real 8 []) () ()) Lt (Var 2 eps) (Logical 4 []) ()) ()) (Assert (RealCompare (FunctionCall 2 abs@__lpython_overloaded_0__abs 2 abs [((RealBinOp (FunctionCall 2 pow@__lpython_overloaded_6__pow 2 pow [((Var 2 x)) ((RealConstant 5.500000 (Real 8 [])))] (Real 8 []) () ()) Sub (RealConstant 420.888346 (Real 8 [])) (Real 8 []) ()))] (Real 8 []) () ()) Lt (Var 2 eps) (Logical 4 []) ()) ()) (Assert (RealCompare (FunctionCall 2 abs@__lpython_overloaded_0__abs 2 abs [((RealBinOp (FunctionCall 2 pow@__lpython_overloaded_1__pow 2 pow [((Cast (IntegerConstant 2 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 2 (Integer 8 [])))) ((IntegerUnaryMinus (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 1 (Integer 8 []))) (Integer 8 []) (IntegerConstant -1 (Integer 8 []))))] (Real 8 []) (RealConstant 0.500000 (Real 8 [])) ()) Sub (RealConstant 0.500000 (Real 8 [])) (Real 8 []) (RealConstant 0.000000 (Real 8 []))))] (Real 8 []) (RealConstant 0.000000 (Real 8 [])) ()) Lt (Var 2 eps) (Logical 4 []) ()) ()) (Assert (RealCompare (FunctionCall 2 abs@__lpython_overloaded_0__abs 2 abs [((RealBinOp (FunctionCall 2 pow@__lpython_overloaded_1__pow 2 pow [((Cast (IntegerConstant 6 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 6 (Integer 8 [])))) ((IntegerUnaryMinus (Cast (IntegerConstant 4 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 4 (Integer 8 []))) (Integer 8 []) (IntegerConstant -4 (Integer 8 []))))] (Real 8 []) (RealConstant 0.000772 (Real 8 [])) ()) Sub (RealConstant 0.000772 (Real 8 [])) (Real 8 []) (RealConstant 0.000000 (Real 8 []))))] (Real 8 []) (RealConstant 0.000000 (Real 8 [])) ()) Lt (Var 2 eps) (Logical 4 []) ()) ()) (Assert (RealCompare (FunctionCall 2 abs@__lpython_overloaded_0__abs 2 abs [((RealBinOp (FunctionCall 2 pow@__lpython_overloaded_1__pow 2 pow [((IntegerUnaryMinus (Cast (IntegerConstant 3 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 3 (Integer 8 []))) (Integer 8 []) (IntegerConstant -3 (Integer 8 [])))) ((IntegerUnaryMinus (Cast (IntegerConstant 5 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 5 (Integer 8 []))) (Integer 8 []) (IntegerConstant -5 (Integer 8 []))))] (Real 8 []) (RealConstant -0.004115 (Real 8 [])) ()) Add (RealConstant 0.004115 (Real 8 [])) (Real 8 []) (RealConstant 0.000000 (Real 8 []))))] (Real 8 []) (RealConstant 0.000000 (Real 8 [])) ()) Lt (Var 2 eps) (Logical 4 []) ()) ()) (Assert (RealCompare (FunctionCall 2 abs@__lpython_overloaded_0__abs 2 abs [((RealBinOp (FunctionCall 2 pow@__lpython_overloaded_1__pow 2 pow [((Cast (IntegerConstant 6 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 6 (Integer 8 [])))) ((IntegerUnaryMinus (Cast (IntegerConstant 4 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 4 (Integer 8 []))) (Integer 8 []) (IntegerConstant -4 (Integer 8 []))))] (Real 8 []) (RealConstant 0.000772 (Real 8 [])) ()) Sub (RealConstant 0.000772 (Real 8 [])) (Real 8 []) (RealConstant 0.000000 (Real 8 []))))] (Real 8 []) (RealConstant 0.000000 (Real 8 [])) ()) Lt (Var 2 eps) (Logical 4 []) ()) ()) (Assert (RealCompare (FunctionCall 2 abs@__lpython_overloaded_0__abs 2 abs [((RealBinOp (FunctionCall 2 pow@__lpython_overloaded_3__pow 2 pow [((RealConstant 4.500000 (Real 8 []))) ((RealConstant 2.300000 (Real 8 [])))] (Real 8 []) (RealConstant 31.797193 (Real 8 [])) ()) Sub (RealConstant 31.797193 (Real 8 [])) (Real 8 []) (RealConstant 0.000000 (Real 8 []))))] (Real 8 []) (RealConstant 0.000000 (Real 8 [])) ()) Lt (Var 2 eps) (Logical 4 []) ()) ()) (Assert (RealCompare (FunctionCall 2 abs@__lpython_overloaded_0__abs 2 abs [((RealBinOp (FunctionCall 2 pow@__lpython_overloaded_3__pow 2 pow [((RealConstant 2.300000 (Real 8 []))) ((RealConstant 0.000000 (Real 8 [])))] (Real 8 []) (RealConstant 1.000000 (Real 8 [])) ()) Sub (RealConstant 1.000000 (Real 8 [])) (Real 8 []) (RealConstant 0.000000 (Real 8 []))))] (Real 8 []) (RealConstant 0.000000 (Real 8 [])) ()) Lt (Var 2 eps) (Logical 4 []) ()) ()) (Assert (RealCompare (FunctionCall 2 abs@__lpython_overloaded_0__abs 2 abs [((RealBinOp (FunctionCall 2 pow@__lpython_overloaded_3__pow 2 pow [((RealConstant 2.300000 (Real 8 []))) ((RealUnaryMinus (RealConstant 1.500000 (Real 8 [])) (Real 8 []) (RealConstant -1.500000 (Real 8 []))))] (Real 8 []) (RealConstant 0.286687 (Real 8 [])) ()) Sub (RealConstant 0.286687 (Real 8 [])) (Real 8 []) (RealConstant 0.000000 (Real 8 []))))] (Real 8 []) (RealConstant 0.000000 (Real 8 [])) ()) Lt (Var 2 eps) (Logical 4 []) ()) ()) (Assert (RealCompare (FunctionCall 2 abs@__lpython_overloaded_0__abs 2 abs [((RealBinOp (FunctionCall 2 pow@__lpython_overloaded_6__pow 2 pow [((IntegerConstant 2 (Integer 4 []))) ((RealConstant 3.400000 (Real 8 [])))] (Real 8 []) (RealConstant 10.556063 (Real 8 [])) ()) Sub (RealConstant 10.556063 (Real 8 [])) (Real 8 []) (RealConstant 0.000000 (Real 8 []))))] (Real 8 []) (RealConstant 0.000000 (Real 8 [])) ()) Lt (Var 2 eps) (Logical 4 []) ()) ()) (Assert (RealCompare (FunctionCall 2 abs@__lpython_overloaded_0__abs 2 abs [((RealBinOp (FunctionCall 2 pow@__lpython_overloaded_6__pow 2 pow [((IntegerConstant 2 (Integer 4 []))) ((RealUnaryMinus (RealConstant 3.400000 (Real 8 [])) (Real 8 []) (RealConstant -3.400000 (Real 8 []))))] (Real 8 []) (RealConstant 0.094732 (Real 8 [])) ()) Sub (RealConstant 0.094732 (Real 8 [])) (Real 8 []) (RealConstant 0.000000 (Real 8 []))))] (Real 8 []) (RealConstant 0.000000 (Real 8 [])) ()) Lt (Var 2 eps) (Logical 4 []) ()) ()) (Assert (RealCompare (FunctionCall 2 abs@__lpython_overloaded_0__abs 2 abs [((RealBinOp (FunctionCall 2 pow@__lpython_overloaded_7__pow 2 pow [((RealConstant 3.400000 (Real 8 []))) ((IntegerConstant 9 (Integer 4 [])))] (Real 8 []) (RealConstant 60716.992766 (Real 8 [])) ()) Sub (RealConstant 60716.992766 (Real 8 [])) (Real 8 []) (RealConstant 0.000000 (Real 8 []))))] (Real 8 []) (RealConstant 0.000000 (Real 8 [])) ()) Lt (Var 2 eps) (Logical 4 []) ()) ()) (Assert (RealCompare (FunctionCall 2 abs@__lpython_overloaded_0__abs 2 abs [((RealBinOp (FunctionCall 2 pow@__lpython_overloaded_7__pow 2 pow [((RealConstant 0.000000 (Real 8 []))) ((IntegerConstant 53 (Integer 4 [])))] (Real 8 []) (RealConstant 0.000000 (Real 8 [])) ()) Sub (RealConstant 0.000000 (Real 8 [])) (Real 8 []) (RealConstant 0.000000 (Real 8 []))))] (Real 8 []) (RealConstant 0.000000 (Real 8 [])) ()) Lt (Var 2 eps) (Logical 4 []) ()) ()) (Assert (IntegerCompare (Cast (FunctionCall 2 pow@__lpython_overloaded_0__pow 2 pow [((IntegerConstant 4 (Integer 4 []))) ((IntegerConstant 2 (Integer 4 [])))] (Real 8 []) (RealConstant 16.000000 (Real 8 [])) ()) RealToInteger (Integer 4 []) (IntegerConstant 16 (Integer 4 []))) Eq (IntegerConstant 16 (Integer 4 [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (RealCompare (FunctionCall 2 abs@__lpython_overloaded_0__abs 2 abs [((RealBinOp (FunctionCall 2 pow@__lpython_overloaded_7__pow 2 pow [((RealUnaryMinus (RealConstant 4235.000000 (Real 8 [])) (Real 8 []) (RealConstant -4235.000000 (Real 8 [])))) ((IntegerConstant 52 (Integer 4 [])))] (Real 8 []) (RealConstant 394800380598526378720936476336799774273305305904443955996320177992404102454228192853661558132283280490733920647962082901303487965679010854404517306573035287122910924343151116372519789002752.000000 (Real 8 [])) ()) Sub (RealConstant 394800380598526378720936476336799774273305305904443955996320177992404102454228192853661558132283280490733920647962082901303487965679010854404517306573035287122910924343151116372519789002752.000000 (Real 8 [])) (Real 8 []) (RealConstant 0.000000 (Real 8 []))))] (Real 8 []) (RealConstant 0.000000 (Real 8 [])) ()) Lt (Var 2 eps) (Logical 4 []) ()) ()) (= (Var 2 i) (Cast (IntegerConstant 7 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 7 (Integer 8 []))) ()) (= (Var 2 j) (Cast (IntegerConstant 2 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 2 (Integer 8 []))) ()) (= (Var 2 k) (Cast (IntegerConstant 5 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 5 (Integer 8 []))) ()) (Assert (IntegerCompare (FunctionCall 2 pow@__lpython_overloaded_11__pow 2 pow [((Var 2 i)) ((Var 2 j)) ((Var 2 k))] (Integer 8 []) () ()) Eq (Cast (IntegerConstant 4 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 4 (Integer 8 []))) (Logical 4 []) ()) ()) (Assert (IntegerCompare (FunctionCall 2 pow@__lpython_overloaded_10__pow 2 pow [((IntegerConstant 102 (Integer 4 []))) ((IntegerConstant 3 (Integer 4 []))) ((IntegerConstant 121 (Integer 4 [])))] (Integer 4 []) (RealConstant 38.000000 (Real 8 [])) ()) Eq (IntegerConstant 38 (Integer 4 [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (= (Var 2 c1) (Cast (FunctionCall 2 complex@__lpython_overloaded_9__complex 2 complex [((IntegerConstant 4 (Integer 4 []))) ((IntegerConstant 5 (Integer 4 [])))] (Complex 8 []) (ComplexConstant 4.000000 5.000000 (Complex 8 [])) ()) ComplexToComplex (Complex 4 []) (ComplexConstant 4.000000 5.000000 (Complex 4 []))) ()) (= (Var 2 c1) (FunctionCall 2 pow@__lpython_overloaded_9__pow 2 pow [((Var 2 c1)) ((IntegerConstant 4 (Integer 4 [])))] (Complex 4 []) () ()) ())] () Public .false. .false.)}) [])
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            __main__global_stmts:
+                                (Function
+                                    (SymbolTable
+                                        141
+                                        {
+                                            
+                                        })
+                                    __main__global_stmts
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [test_pow]
+                                    []
+                                    [(SubroutineCall
+                                        2 test_pow
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            test_pow:
+                                (Function
+                                    (SymbolTable
+                                        3
+                                        {
+                                            a:
+                                                (Variable
+                                                    3
+                                                    a
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            a1:
+                                                (Variable
+                                                    3
+                                                    a1
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            a2:
+                                                (Variable
+                                                    3
+                                                    a2
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            b:
+                                                (Variable
+                                                    3
+                                                    b
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            b1:
+                                                (Variable
+                                                    3
+                                                    b1
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Logical 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            b2:
+                                                (Variable
+                                                    3
+                                                    b2
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Logical 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            c1:
+                                                (Variable
+                                                    3
+                                                    c1
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Complex 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            complex:
+                                                (ExternalSymbol
+                                                    3
+                                                    complex
+                                                    4 complex
+                                                    lpython_builtin
+                                                    []
+                                                    complex
+                                                    Private
+                                                ),
+                                            complex@__lpython_overloaded_9__complex:
+                                                (ExternalSymbol
+                                                    3
+                                                    complex@__lpython_overloaded_9__complex
+                                                    4 __lpython_overloaded_9__complex
+                                                    lpython_builtin
+                                                    []
+                                                    __lpython_overloaded_9__complex
+                                                    Public
+                                                ),
+                                            eps:
+                                                (Variable
+                                                    3
+                                                    eps
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            f1:
+                                                (Variable
+                                                    3
+                                                    f1
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            f2:
+                                                (Variable
+                                                    3
+                                                    f2
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            i:
+                                                (Variable
+                                                    3
+                                                    i
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            i1:
+                                                (Variable
+                                                    3
+                                                    i1
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            i2:
+                                                (Variable
+                                                    3
+                                                    i2
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            j:
+                                                (Variable
+                                                    3
+                                                    j
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            k:
+                                                (Variable
+                                                    3
+                                                    k
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            p:
+                                                (Variable
+                                                    3
+                                                    p
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            pow:
+                                                (ExternalSymbol
+                                                    3
+                                                    pow
+                                                    4 pow
+                                                    lpython_builtin
+                                                    []
+                                                    pow
+                                                    Private
+                                                ),
+                                            pow@__lpython_overloaded_0__pow:
+                                                (ExternalSymbol
+                                                    3
+                                                    pow@__lpython_overloaded_0__pow
+                                                    4 __lpython_overloaded_0__pow
+                                                    lpython_builtin
+                                                    []
+                                                    __lpython_overloaded_0__pow
+                                                    Public
+                                                ),
+                                            pow@__lpython_overloaded_11__pow:
+                                                (ExternalSymbol
+                                                    3
+                                                    pow@__lpython_overloaded_11__pow
+                                                    4 __lpython_overloaded_11__pow
+                                                    lpython_builtin
+                                                    []
+                                                    __lpython_overloaded_11__pow
+                                                    Public
+                                                ),
+                                            pow@__lpython_overloaded_1__pow:
+                                                (ExternalSymbol
+                                                    3
+                                                    pow@__lpython_overloaded_1__pow
+                                                    4 __lpython_overloaded_1__pow
+                                                    lpython_builtin
+                                                    []
+                                                    __lpython_overloaded_1__pow
+                                                    Public
+                                                ),
+                                            pow@__lpython_overloaded_2__pow:
+                                                (ExternalSymbol
+                                                    3
+                                                    pow@__lpython_overloaded_2__pow
+                                                    4 __lpython_overloaded_2__pow
+                                                    lpython_builtin
+                                                    []
+                                                    __lpython_overloaded_2__pow
+                                                    Public
+                                                ),
+                                            pow@__lpython_overloaded_3__pow:
+                                                (ExternalSymbol
+                                                    3
+                                                    pow@__lpython_overloaded_3__pow
+                                                    4 __lpython_overloaded_3__pow
+                                                    lpython_builtin
+                                                    []
+                                                    __lpython_overloaded_3__pow
+                                                    Public
+                                                ),
+                                            pow@__lpython_overloaded_4__pow:
+                                                (ExternalSymbol
+                                                    3
+                                                    pow@__lpython_overloaded_4__pow
+                                                    4 __lpython_overloaded_4__pow
+                                                    lpython_builtin
+                                                    []
+                                                    __lpython_overloaded_4__pow
+                                                    Public
+                                                ),
+                                            pow@__lpython_overloaded_5__pow:
+                                                (ExternalSymbol
+                                                    3
+                                                    pow@__lpython_overloaded_5__pow
+                                                    4 __lpython_overloaded_5__pow
+                                                    lpython_builtin
+                                                    []
+                                                    __lpython_overloaded_5__pow
+                                                    Public
+                                                ),
+                                            pow@__lpython_overloaded_6__pow:
+                                                (ExternalSymbol
+                                                    3
+                                                    pow@__lpython_overloaded_6__pow
+                                                    4 __lpython_overloaded_6__pow
+                                                    lpython_builtin
+                                                    []
+                                                    __lpython_overloaded_6__pow
+                                                    Public
+                                                ),
+                                            pow@__lpython_overloaded_7__pow:
+                                                (ExternalSymbol
+                                                    3
+                                                    pow@__lpython_overloaded_7__pow
+                                                    4 __lpython_overloaded_7__pow
+                                                    lpython_builtin
+                                                    []
+                                                    __lpython_overloaded_7__pow
+                                                    Public
+                                                ),
+                                            pow@__lpython_overloaded_8__pow:
+                                                (ExternalSymbol
+                                                    3
+                                                    pow@__lpython_overloaded_8__pow
+                                                    4 __lpython_overloaded_8__pow
+                                                    lpython_builtin
+                                                    []
+                                                    __lpython_overloaded_8__pow
+                                                    Public
+                                                ),
+                                            pow@__lpython_overloaded_9__pow:
+                                                (ExternalSymbol
+                                                    3
+                                                    pow@__lpython_overloaded_9__pow
+                                                    4 __lpython_overloaded_9__pow
+                                                    lpython_builtin
+                                                    []
+                                                    __lpython_overloaded_9__pow
+                                                    Public
+                                                ),
+                                            x:
+                                                (Variable
+                                                    3
+                                                    x
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            y:
+                                                (Variable
+                                                    3
+                                                    y
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test_pow
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 3 eps)
+                                        (RealConstant
+                                            0.000000
+                                            (Real 8)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 a)
+                                        (IntegerConstant 2 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 b)
+                                        (IntegerConstant 5 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (Cast
+                                                (FunctionCall
+                                                    3 pow@__lpython_overloaded_0__pow
+                                                    3 pow
+                                                    [((Var 3 a))
+                                                    ((Var 3 b))]
+                                                    (Real 8)
+                                                    ()
+                                                    ()
+                                                )
+                                                RealToInteger
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerConstant 32 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 a)
+                                        (IntegerConstant 6 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 b)
+                                        (IntegerConstant 3 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (Cast
+                                                (FunctionCall
+                                                    3 pow@__lpython_overloaded_0__pow
+                                                    3 pow
+                                                    [((Var 3 a))
+                                                    ((Var 3 b))]
+                                                    (Real 8)
+                                                    ()
+                                                    ()
+                                                )
+                                                RealToInteger
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerConstant 216 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 a)
+                                        (IntegerConstant 2 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 b)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (Cast
+                                                (FunctionCall
+                                                    3 pow@__lpython_overloaded_0__pow
+                                                    3 pow
+                                                    [((Var 3 a))
+                                                    ((Var 3 b))]
+                                                    (Real 8)
+                                                    ()
+                                                    ()
+                                                )
+                                                RealToInteger
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 a)
+                                        (IntegerConstant 2 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 b)
+                                        (IntegerUnaryMinus
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            (IntegerConstant -1 (Integer 4) Decimal)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 a)
+                                        (IntegerConstant 6 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 b)
+                                        (IntegerUnaryMinus
+                                            (IntegerConstant 4 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            (IntegerConstant -4 (Integer 4) Decimal)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 i1)
+                                        (Cast
+                                            (IntegerConstant 2 (Integer 4) Decimal)
+                                            IntegerToInteger
+                                            (Integer 8)
+                                            (IntegerConstant 2 (Integer 8) Decimal)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 i2)
+                                        (Cast
+                                            (IntegerConstant 5 (Integer 4) Decimal)
+                                            IntegerToInteger
+                                            (Integer 8)
+                                            (IntegerConstant 5 (Integer 8) Decimal)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (Cast
+                                                (FunctionCall
+                                                    3 pow@__lpython_overloaded_1__pow
+                                                    3 pow
+                                                    [((Var 3 i1))
+                                                    ((Var 3 i2))]
+                                                    (Real 8)
+                                                    ()
+                                                    ()
+                                                )
+                                                RealToInteger
+                                                (Integer 8)
+                                                ()
+                                            )
+                                            Eq
+                                            (Cast
+                                                (IntegerConstant 32 (Integer 4) Decimal)
+                                                IntegerToInteger
+                                                (Integer 8)
+                                                (IntegerConstant 32 (Integer 8) Decimal)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 i1)
+                                        (Cast
+                                            (IntegerConstant 6 (Integer 4) Decimal)
+                                            IntegerToInteger
+                                            (Integer 8)
+                                            (IntegerConstant 6 (Integer 8) Decimal)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 i2)
+                                        (IntegerUnaryMinus
+                                            (Cast
+                                                (IntegerConstant 3 (Integer 4) Decimal)
+                                                IntegerToInteger
+                                                (Integer 8)
+                                                (IntegerConstant 3 (Integer 8) Decimal)
+                                            )
+                                            (Integer 8)
+                                            (IntegerConstant -3 (Integer 8) Decimal)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 f1)
+                                        (Cast
+                                            (RealBinOp
+                                                (Cast
+                                                    (IntegerConstant 525346 (Integer 4) Decimal)
+                                                    IntegerToReal
+                                                    (Real 8)
+                                                    (RealConstant
+                                                        525346.000000
+                                                        (Real 8)
+                                                    )
+                                                )
+                                                Div
+                                                (Cast
+                                                    (IntegerConstant 66456 (Integer 4) Decimal)
+                                                    IntegerToReal
+                                                    (Real 8)
+                                                    (RealConstant
+                                                        66456.000000
+                                                        (Real 8)
+                                                    )
+                                                )
+                                                (Real 8)
+                                                (RealConstant
+                                                    7.905170
+                                                    (Real 8)
+                                                )
+                                            )
+                                            RealToReal
+                                            (Real 4)
+                                            (RealConstant
+                                                7.905170
+                                                (Real 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 f2)
+                                        (Cast
+                                            (RealConstant
+                                                3.000000
+                                                (Real 8)
+                                            )
+                                            RealToReal
+                                            (Real 4)
+                                            (RealConstant
+                                                3.000000
+                                                (Real 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 p)
+                                        (FunctionCall
+                                            3 pow@__lpython_overloaded_2__pow
+                                            3 pow
+                                            [((Var 3 f1))
+                                            ((Var 3 f2))]
+                                            (Real 4)
+                                            ()
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 f1)
+                                        (FunctionCall
+                                            3 pow@__lpython_overloaded_4__pow
+                                            3 pow
+                                            [((Var 3 a))
+                                            ((Var 3 f2))]
+                                            (Real 4)
+                                            ()
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 f1)
+                                        (FunctionCall
+                                            3 pow@__lpython_overloaded_5__pow
+                                            3 pow
+                                            [((Var 3 f2))
+                                            ((Var 3 a))]
+                                            (Real 4)
+                                            ()
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 b1)
+                                        (LogicalConstant
+                                            .true.
+                                            (Logical 4)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 b2)
+                                        (LogicalConstant
+                                            .false.
+                                            (Logical 4)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (FunctionCall
+                                                3 pow@__lpython_overloaded_8__pow
+                                                3 pow
+                                                [((Var 3 b1))
+                                                ((Var 3 b2))]
+                                                (Integer 4)
+                                                ()
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (FunctionCall
+                                                3 pow@__lpython_overloaded_8__pow
+                                                3 pow
+                                                [((Var 3 b2))
+                                                ((Var 3 b1))]
+                                                (Integer 4)
+                                                ()
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerConstant 0 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (FunctionCall
+                                                3 pow@__lpython_overloaded_8__pow
+                                                3 pow
+                                                [((Var 3 b1))
+                                                ((Var 3 b2))]
+                                                (Integer 4)
+                                                ()
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (FunctionCall
+                                                3 pow@__lpython_overloaded_8__pow
+                                                3 pow
+                                                [((LogicalConstant
+                                                    .false.
+                                                    (Logical 4)
+                                                ))
+                                                ((LogicalConstant
+                                                    .false.
+                                                    (Logical 4)
+                                                ))]
+                                                (Integer 4)
+                                                (IntegerConstant 1 (Integer 4) Decimal)
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 a1)
+                                        (RealConstant
+                                            4.500000
+                                            (Real 8)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 a2)
+                                        (RealConstant
+                                            2.300000
+                                            (Real 8)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealBinOp
+                                                    (FunctionCall
+                                                        3 pow@__lpython_overloaded_3__pow
+                                                        3 pow
+                                                        [((Var 3 a1))
+                                                        ((Var 3 a2))]
+                                                        (Real 8)
+                                                        ()
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (RealConstant
+                                                        31.797193
+                                                        (Real 8)
+                                                    )
+                                                    (Real 8)
+                                                    ()
+                                                )]
+                                                0
+                                                (Real 8)
+                                                ()
+                                            )
+                                            Lt
+                                            (Var 3 eps)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealBinOp
+                                                    (FunctionCall
+                                                        3 pow@__lpython_overloaded_3__pow
+                                                        3 pow
+                                                        [((Var 3 a2))
+                                                        ((Var 3 a1))]
+                                                        (Real 8)
+                                                        ()
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (RealConstant
+                                                        42.439989
+                                                        (Real 8)
+                                                    )
+                                                    (Real 8)
+                                                    ()
+                                                )]
+                                                0
+                                                (Real 8)
+                                                ()
+                                            )
+                                            Lt
+                                            (Var 3 eps)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 x)
+                                        (IntegerConstant 3 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 y)
+                                        (RealConstant
+                                            2.300000
+                                            (Real 8)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealBinOp
+                                                    (FunctionCall
+                                                        3 pow@__lpython_overloaded_6__pow
+                                                        3 pow
+                                                        [((Var 3 x))
+                                                        ((Var 3 y))]
+                                                        (Real 8)
+                                                        ()
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (RealConstant
+                                                        12.513503
+                                                        (Real 8)
+                                                    )
+                                                    (Real 8)
+                                                    ()
+                                                )]
+                                                0
+                                                (Real 8)
+                                                ()
+                                            )
+                                            Lt
+                                            (Var 3 eps)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealBinOp
+                                                    (FunctionCall
+                                                        3 pow@__lpython_overloaded_7__pow
+                                                        3 pow
+                                                        [((Var 3 y))
+                                                        ((Var 3 x))]
+                                                        (Real 8)
+                                                        ()
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (RealConstant
+                                                        12.167000
+                                                        (Real 8)
+                                                    )
+                                                    (Real 8)
+                                                    ()
+                                                )]
+                                                0
+                                                (Real 8)
+                                                ()
+                                            )
+                                            Lt
+                                            (Var 3 eps)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealBinOp
+                                                    (FunctionCall
+                                                        3 pow@__lpython_overloaded_6__pow
+                                                        3 pow
+                                                        [((Var 3 x))
+                                                        ((RealConstant
+                                                            5.500000
+                                                            (Real 8)
+                                                        ))]
+                                                        (Real 8)
+                                                        ()
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (RealConstant
+                                                        420.888346
+                                                        (Real 8)
+                                                    )
+                                                    (Real 8)
+                                                    ()
+                                                )]
+                                                0
+                                                (Real 8)
+                                                ()
+                                            )
+                                            Lt
+                                            (Var 3 eps)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealBinOp
+                                                    (FunctionCall
+                                                        3 pow@__lpython_overloaded_1__pow
+                                                        3 pow
+                                                        [((Cast
+                                                            (IntegerConstant 2 (Integer 4) Decimal)
+                                                            IntegerToInteger
+                                                            (Integer 8)
+                                                            (IntegerConstant 2 (Integer 8) Decimal)
+                                                        ))
+                                                        ((IntegerUnaryMinus
+                                                            (Cast
+                                                                (IntegerConstant 1 (Integer 4) Decimal)
+                                                                IntegerToInteger
+                                                                (Integer 8)
+                                                                (IntegerConstant 1 (Integer 8) Decimal)
+                                                            )
+                                                            (Integer 8)
+                                                            (IntegerConstant -1 (Integer 8) Decimal)
+                                                        ))]
+                                                        (Real 8)
+                                                        (RealConstant
+                                                            0.500000
+                                                            (Real 8)
+                                                        )
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (RealConstant
+                                                        0.500000
+                                                        (Real 8)
+                                                    )
+                                                    (Real 8)
+                                                    (RealConstant
+                                                        0.000000
+                                                        (Real 8)
+                                                    )
+                                                )]
+                                                0
+                                                (Real 8)
+                                                (RealConstant
+                                                    0.000000
+                                                    (Real 8)
+                                                )
+                                            )
+                                            Lt
+                                            (Var 3 eps)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealBinOp
+                                                    (FunctionCall
+                                                        3 pow@__lpython_overloaded_1__pow
+                                                        3 pow
+                                                        [((Cast
+                                                            (IntegerConstant 6 (Integer 4) Decimal)
+                                                            IntegerToInteger
+                                                            (Integer 8)
+                                                            (IntegerConstant 6 (Integer 8) Decimal)
+                                                        ))
+                                                        ((IntegerUnaryMinus
+                                                            (Cast
+                                                                (IntegerConstant 4 (Integer 4) Decimal)
+                                                                IntegerToInteger
+                                                                (Integer 8)
+                                                                (IntegerConstant 4 (Integer 8) Decimal)
+                                                            )
+                                                            (Integer 8)
+                                                            (IntegerConstant -4 (Integer 8) Decimal)
+                                                        ))]
+                                                        (Real 8)
+                                                        (RealConstant
+                                                            0.000772
+                                                            (Real 8)
+                                                        )
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (RealConstant
+                                                        0.000772
+                                                        (Real 8)
+                                                    )
+                                                    (Real 8)
+                                                    (RealConstant
+                                                        0.000000
+                                                        (Real 8)
+                                                    )
+                                                )]
+                                                0
+                                                (Real 8)
+                                                (RealConstant
+                                                    0.000000
+                                                    (Real 8)
+                                                )
+                                            )
+                                            Lt
+                                            (Var 3 eps)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealBinOp
+                                                    (FunctionCall
+                                                        3 pow@__lpython_overloaded_1__pow
+                                                        3 pow
+                                                        [((IntegerUnaryMinus
+                                                            (Cast
+                                                                (IntegerConstant 3 (Integer 4) Decimal)
+                                                                IntegerToInteger
+                                                                (Integer 8)
+                                                                (IntegerConstant 3 (Integer 8) Decimal)
+                                                            )
+                                                            (Integer 8)
+                                                            (IntegerConstant -3 (Integer 8) Decimal)
+                                                        ))
+                                                        ((IntegerUnaryMinus
+                                                            (Cast
+                                                                (IntegerConstant 5 (Integer 4) Decimal)
+                                                                IntegerToInteger
+                                                                (Integer 8)
+                                                                (IntegerConstant 5 (Integer 8) Decimal)
+                                                            )
+                                                            (Integer 8)
+                                                            (IntegerConstant -5 (Integer 8) Decimal)
+                                                        ))]
+                                                        (Real 8)
+                                                        (RealConstant
+                                                            -0.004115
+                                                            (Real 8)
+                                                        )
+                                                        ()
+                                                    )
+                                                    Add
+                                                    (RealConstant
+                                                        0.004115
+                                                        (Real 8)
+                                                    )
+                                                    (Real 8)
+                                                    (RealConstant
+                                                        0.000000
+                                                        (Real 8)
+                                                    )
+                                                )]
+                                                0
+                                                (Real 8)
+                                                (RealConstant
+                                                    0.000000
+                                                    (Real 8)
+                                                )
+                                            )
+                                            Lt
+                                            (Var 3 eps)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealBinOp
+                                                    (FunctionCall
+                                                        3 pow@__lpython_overloaded_1__pow
+                                                        3 pow
+                                                        [((Cast
+                                                            (IntegerConstant 6 (Integer 4) Decimal)
+                                                            IntegerToInteger
+                                                            (Integer 8)
+                                                            (IntegerConstant 6 (Integer 8) Decimal)
+                                                        ))
+                                                        ((IntegerUnaryMinus
+                                                            (Cast
+                                                                (IntegerConstant 4 (Integer 4) Decimal)
+                                                                IntegerToInteger
+                                                                (Integer 8)
+                                                                (IntegerConstant 4 (Integer 8) Decimal)
+                                                            )
+                                                            (Integer 8)
+                                                            (IntegerConstant -4 (Integer 8) Decimal)
+                                                        ))]
+                                                        (Real 8)
+                                                        (RealConstant
+                                                            0.000772
+                                                            (Real 8)
+                                                        )
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (RealConstant
+                                                        0.000772
+                                                        (Real 8)
+                                                    )
+                                                    (Real 8)
+                                                    (RealConstant
+                                                        0.000000
+                                                        (Real 8)
+                                                    )
+                                                )]
+                                                0
+                                                (Real 8)
+                                                (RealConstant
+                                                    0.000000
+                                                    (Real 8)
+                                                )
+                                            )
+                                            Lt
+                                            (Var 3 eps)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealBinOp
+                                                    (FunctionCall
+                                                        3 pow@__lpython_overloaded_3__pow
+                                                        3 pow
+                                                        [((RealConstant
+                                                            4.500000
+                                                            (Real 8)
+                                                        ))
+                                                        ((RealConstant
+                                                            2.300000
+                                                            (Real 8)
+                                                        ))]
+                                                        (Real 8)
+                                                        (RealConstant
+                                                            31.797193
+                                                            (Real 8)
+                                                        )
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (RealConstant
+                                                        31.797193
+                                                        (Real 8)
+                                                    )
+                                                    (Real 8)
+                                                    (RealConstant
+                                                        0.000000
+                                                        (Real 8)
+                                                    )
+                                                )]
+                                                0
+                                                (Real 8)
+                                                (RealConstant
+                                                    0.000000
+                                                    (Real 8)
+                                                )
+                                            )
+                                            Lt
+                                            (Var 3 eps)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealBinOp
+                                                    (FunctionCall
+                                                        3 pow@__lpython_overloaded_3__pow
+                                                        3 pow
+                                                        [((RealConstant
+                                                            2.300000
+                                                            (Real 8)
+                                                        ))
+                                                        ((RealConstant
+                                                            0.000000
+                                                            (Real 8)
+                                                        ))]
+                                                        (Real 8)
+                                                        (RealConstant
+                                                            1.000000
+                                                            (Real 8)
+                                                        )
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (RealConstant
+                                                        1.000000
+                                                        (Real 8)
+                                                    )
+                                                    (Real 8)
+                                                    (RealConstant
+                                                        0.000000
+                                                        (Real 8)
+                                                    )
+                                                )]
+                                                0
+                                                (Real 8)
+                                                (RealConstant
+                                                    0.000000
+                                                    (Real 8)
+                                                )
+                                            )
+                                            Lt
+                                            (Var 3 eps)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealBinOp
+                                                    (FunctionCall
+                                                        3 pow@__lpython_overloaded_3__pow
+                                                        3 pow
+                                                        [((RealConstant
+                                                            2.300000
+                                                            (Real 8)
+                                                        ))
+                                                        ((RealUnaryMinus
+                                                            (RealConstant
+                                                                1.500000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -1.500000
+                                                                (Real 8)
+                                                            )
+                                                        ))]
+                                                        (Real 8)
+                                                        (RealConstant
+                                                            0.286687
+                                                            (Real 8)
+                                                        )
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (RealConstant
+                                                        0.286687
+                                                        (Real 8)
+                                                    )
+                                                    (Real 8)
+                                                    (RealConstant
+                                                        0.000000
+                                                        (Real 8)
+                                                    )
+                                                )]
+                                                0
+                                                (Real 8)
+                                                (RealConstant
+                                                    0.000000
+                                                    (Real 8)
+                                                )
+                                            )
+                                            Lt
+                                            (Var 3 eps)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealBinOp
+                                                    (FunctionCall
+                                                        3 pow@__lpython_overloaded_6__pow
+                                                        3 pow
+                                                        [((IntegerConstant 2 (Integer 4) Decimal))
+                                                        ((RealConstant
+                                                            3.400000
+                                                            (Real 8)
+                                                        ))]
+                                                        (Real 8)
+                                                        (RealConstant
+                                                            10.556063
+                                                            (Real 8)
+                                                        )
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (RealConstant
+                                                        10.556063
+                                                        (Real 8)
+                                                    )
+                                                    (Real 8)
+                                                    (RealConstant
+                                                        0.000000
+                                                        (Real 8)
+                                                    )
+                                                )]
+                                                0
+                                                (Real 8)
+                                                (RealConstant
+                                                    0.000000
+                                                    (Real 8)
+                                                )
+                                            )
+                                            Lt
+                                            (Var 3 eps)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealBinOp
+                                                    (FunctionCall
+                                                        3 pow@__lpython_overloaded_6__pow
+                                                        3 pow
+                                                        [((IntegerConstant 2 (Integer 4) Decimal))
+                                                        ((RealUnaryMinus
+                                                            (RealConstant
+                                                                3.400000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -3.400000
+                                                                (Real 8)
+                                                            )
+                                                        ))]
+                                                        (Real 8)
+                                                        (RealConstant
+                                                            0.094732
+                                                            (Real 8)
+                                                        )
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (RealConstant
+                                                        0.094732
+                                                        (Real 8)
+                                                    )
+                                                    (Real 8)
+                                                    (RealConstant
+                                                        0.000000
+                                                        (Real 8)
+                                                    )
+                                                )]
+                                                0
+                                                (Real 8)
+                                                (RealConstant
+                                                    0.000000
+                                                    (Real 8)
+                                                )
+                                            )
+                                            Lt
+                                            (Var 3 eps)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealBinOp
+                                                    (FunctionCall
+                                                        3 pow@__lpython_overloaded_7__pow
+                                                        3 pow
+                                                        [((RealConstant
+                                                            3.400000
+                                                            (Real 8)
+                                                        ))
+                                                        ((IntegerConstant 9 (Integer 4) Decimal))]
+                                                        (Real 8)
+                                                        (RealConstant
+                                                            60716.992766
+                                                            (Real 8)
+                                                        )
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (RealConstant
+                                                        60716.992766
+                                                        (Real 8)
+                                                    )
+                                                    (Real 8)
+                                                    (RealConstant
+                                                        0.000000
+                                                        (Real 8)
+                                                    )
+                                                )]
+                                                0
+                                                (Real 8)
+                                                (RealConstant
+                                                    0.000000
+                                                    (Real 8)
+                                                )
+                                            )
+                                            Lt
+                                            (Var 3 eps)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealBinOp
+                                                    (FunctionCall
+                                                        3 pow@__lpython_overloaded_7__pow
+                                                        3 pow
+                                                        [((RealConstant
+                                                            0.000000
+                                                            (Real 8)
+                                                        ))
+                                                        ((IntegerConstant 53 (Integer 4) Decimal))]
+                                                        (Real 8)
+                                                        (RealConstant
+                                                            0.000000
+                                                            (Real 8)
+                                                        )
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (RealConstant
+                                                        0.000000
+                                                        (Real 8)
+                                                    )
+                                                    (Real 8)
+                                                    (RealConstant
+                                                        0.000000
+                                                        (Real 8)
+                                                    )
+                                                )]
+                                                0
+                                                (Real 8)
+                                                (RealConstant
+                                                    0.000000
+                                                    (Real 8)
+                                                )
+                                            )
+                                            Lt
+                                            (Var 3 eps)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (Cast
+                                                (FunctionCall
+                                                    3 pow@__lpython_overloaded_0__pow
+                                                    3 pow
+                                                    [((IntegerConstant 4 (Integer 4) Decimal))
+                                                    ((IntegerConstant 2 (Integer 4) Decimal))]
+                                                    (Real 8)
+                                                    (RealConstant
+                                                        16.000000
+                                                        (Real 8)
+                                                    )
+                                                    ()
+                                                )
+                                                RealToInteger
+                                                (Integer 4)
+                                                (IntegerConstant 16 (Integer 4) Decimal)
+                                            )
+                                            Eq
+                                            (IntegerConstant 16 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealBinOp
+                                                    (FunctionCall
+                                                        3 pow@__lpython_overloaded_7__pow
+                                                        3 pow
+                                                        [((RealUnaryMinus
+                                                            (RealConstant
+                                                                4235.000000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -4235.000000
+                                                                (Real 8)
+                                                            )
+                                                        ))
+                                                        ((IntegerConstant 52 (Integer 4) Decimal))]
+                                                        (Real 8)
+                                                        (RealConstant
+                                                            394800380598526378720936476336799774273305305904443955996320177992404102454228192853661558132283280490733920647962082901303487965679010854404517306573035287122910924343151116372519789002752.000000
+                                                            (Real 8)
+                                                        )
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (RealConstant
+                                                        394800380598526378720936476336799774273305305904443955996320177992404102454228192853661558132283280490733920647962082901303487965679010854404517306573035287122910924343151116372519789002752.000000
+                                                        (Real 8)
+                                                    )
+                                                    (Real 8)
+                                                    (RealConstant
+                                                        0.000000
+                                                        (Real 8)
+                                                    )
+                                                )]
+                                                0
+                                                (Real 8)
+                                                (RealConstant
+                                                    0.000000
+                                                    (Real 8)
+                                                )
+                                            )
+                                            Lt
+                                            (Var 3 eps)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 i)
+                                        (Cast
+                                            (IntegerConstant 7 (Integer 4) Decimal)
+                                            IntegerToInteger
+                                            (Integer 8)
+                                            (IntegerConstant 7 (Integer 8) Decimal)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 j)
+                                        (Cast
+                                            (IntegerConstant 2 (Integer 4) Decimal)
+                                            IntegerToInteger
+                                            (Integer 8)
+                                            (IntegerConstant 2 (Integer 8) Decimal)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 k)
+                                        (Cast
+                                            (IntegerConstant 5 (Integer 4) Decimal)
+                                            IntegerToInteger
+                                            (Integer 8)
+                                            (IntegerConstant 5 (Integer 8) Decimal)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (FunctionCall
+                                                3 pow@__lpython_overloaded_11__pow
+                                                3 pow
+                                                [((Var 3 i))
+                                                ((Var 3 j))
+                                                ((Var 3 k))]
+                                                (Integer 8)
+                                                ()
+                                                ()
+                                            )
+                                            Eq
+                                            (Cast
+                                                (IntegerConstant 4 (Integer 4) Decimal)
+                                                IntegerToInteger
+                                                (Integer 8)
+                                                (IntegerConstant 4 (Integer 8) Decimal)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 c1)
+                                        (Cast
+                                            (FunctionCall
+                                                3 complex@__lpython_overloaded_9__complex
+                                                3 complex
+                                                [((IntegerConstant 4 (Integer 4) Decimal))
+                                                ((IntegerConstant 5 (Integer 4) Decimal))]
+                                                (Complex 8)
+                                                (ComplexConstant
+                                                    4.000000
+                                                    5.000000
+                                                    (Complex 8)
+                                                )
+                                                ()
+                                            )
+                                            ComplexToComplex
+                                            (Complex 4)
+                                            (ComplexConstant
+                                                4.000000
+                                                5.000000
+                                                (Complex 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 c1)
+                                        (FunctionCall
+                                            3 pow@__lpython_overloaded_9__pow
+                                            3 pow
+                                            [((Var 3 c1))
+                                            ((IntegerConstant 4 (Integer 4) Decimal))]
+                                            (Complex 4)
+                                            ()
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    [lpython_builtin]
+                    .false.
+                    .false.
+                    .false.
+                ),
+            lpython_builtin:
+                (IntrinsicModule lpython_builtin),
+            main_program:
+                (Program
+                    (SymbolTable
+                        142
+                        {
+                            __main__global_stmts:
+                                (ExternalSymbol
+                                    142
+                                    __main__global_stmts
+                                    2 __main__global_stmts
+                                    __main__
+                                    []
+                                    __main__global_stmts
+                                    Public
+                                )
+                        })
+                    main_program
+                    [__main__]
+                    [(SubroutineCall
+                        142 __main__global_stmts
+                        2 __main__global_stmts
+                        []
+                        ()
+                        .false.
+                    )]
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-test_builtin_round-7417a21.json b/tests/reference/asr-test_builtin_round-7417a21.json
index 20d0f9da5f..c71f08357f 100644
--- a/tests/reference/asr-test_builtin_round-7417a21.json
+++ b/tests/reference/asr-test_builtin_round-7417a21.json
@@ -2,11 +2,11 @@
     "basename": "asr-test_builtin_round-7417a21",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/../integration_tests/test_builtin_round.py",
-    "infile_hash": "7e7524f8547f74ff748edff2c7f5ee72d3b42df3294ee263e8c3fb8b",
+    "infile_hash": "a4ff4032a45ce084eb524069046afb6ec44f1b24a667c84c7605f2c7",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "asr-test_builtin_round-7417a21.stdout",
-    "stdout_hash": "4a1b417fbcf5b52d6de041f1224bc8d766882909a12da94a697ea699",
+    "stdout_hash": "292498a812c317150a1ace66d90deffa595b2d7575e85827d16e91ee",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/asr-test_builtin_round-7417a21.stdout b/tests/reference/asr-test_builtin_round-7417a21.stdout
index 3a11f52006..d1b3b204fc 100644
--- a/tests/reference/asr-test_builtin_round-7417a21.stdout
+++ b/tests/reference/asr-test_builtin_round-7417a21.stdout
@@ -1 +1,978 @@
-(TranslationUnit (SymbolTable 1 {_lpython_main_program: (Function (SymbolTable 97 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [test_round] [] [(SubroutineCall 1 test_round () [] ())] () Public .false. .false.), lpython_builtin: (IntrinsicModule lpython_builtin), main_program: (Program (SymbolTable 96 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())]), test_round: (Function (SymbolTable 2 {b: (Variable 2 b [] Local () () Default (Logical 4 []) Source Public Required .false.), f: (Variable 2 f [] Local () () Default (Real 8 []) Source Public Required .false.), f2: (Variable 2 f2 [] Local () () Default (Real 4 []) Source Public Required .false.), i: (Variable 2 i [] Local () () Default (Integer 4 []) Source Public Required .false.), i2: (Variable 2 i2 [] Local () () Default (Integer 1 []) Source Public Required .false.), i3: (Variable 2 i3 [] Local () () Default (Integer 2 []) Source Public Required .false.), i4: (Variable 2 i4 [] Local () () Default (Integer 8 []) Source Public Required .false.), round: (ExternalSymbol 2 round 4 round lpython_builtin [] round Private), round@__lpython_overloaded_0__round: (ExternalSymbol 2 round@__lpython_overloaded_0__round 4 __lpython_overloaded_0__round lpython_builtin [] __lpython_overloaded_0__round Public), round@__lpython_overloaded_1__round: (ExternalSymbol 2 round@__lpython_overloaded_1__round 4 __lpython_overloaded_1__round lpython_builtin [] __lpython_overloaded_1__round Public), round@__lpython_overloaded_2__round: (ExternalSymbol 2 round@__lpython_overloaded_2__round 4 __lpython_overloaded_2__round lpython_builtin [] __lpython_overloaded_2__round Public), round@__lpython_overloaded_3__round: (ExternalSymbol 2 round@__lpython_overloaded_3__round 4 __lpython_overloaded_3__round lpython_builtin [] __lpython_overloaded_3__round Public), round@__lpython_overloaded_4__round: (ExternalSymbol 2 round@__lpython_overloaded_4__round 4 __lpython_overloaded_4__round lpython_builtin [] __lpython_overloaded_4__round Public), round@__lpython_overloaded_5__round: (ExternalSymbol 2 round@__lpython_overloaded_5__round 4 __lpython_overloaded_5__round lpython_builtin [] __lpython_overloaded_5__round Public), round@__lpython_overloaded_6__round: (ExternalSymbol 2 round@__lpython_overloaded_6__round 4 __lpython_overloaded_6__round lpython_builtin [] __lpython_overloaded_6__round Public)}) test_round (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [round@__lpython_overloaded_0__round round@__lpython_overloaded_0__round round@__lpython_overloaded_0__round round@__lpython_overloaded_0__round round@__lpython_overloaded_0__round round@__lpython_overloaded_0__round round@__lpython_overloaded_0__round round@__lpython_overloaded_0__round round@__lpython_overloaded_0__round round@__lpython_overloaded_0__round round@__lpython_overloaded_0__round round@__lpython_overloaded_0__round round@__lpython_overloaded_0__round round@__lpython_overloaded_1__round round@__lpython_overloaded_2__round round@__lpython_overloaded_2__round round@__lpython_overloaded_4__round round@__lpython_overloaded_5__round round@__lpython_overloaded_3__round round@__lpython_overloaded_6__round round@__lpython_overloaded_6__round round@__lpython_overloaded_6__round] [] [(= (Var 2 f) (RealConstant 5.678000 (Real 8 [])) ()) (Assert (IntegerCompare (FunctionCall 2 round@__lpython_overloaded_0__round 2 round [((Var 2 f))] (Integer 4 []) () ()) Eq (IntegerConstant 6 (Integer 4 [])) (Logical 4 []) ()) ()) (= (Var 2 f) (RealUnaryMinus (RealConstant 183745.230000 (Real 8 [])) (Real 8 []) (RealConstant -183745.230000 (Real 8 []))) ()) (Assert (IntegerCompare (FunctionCall 2 round@__lpython_overloaded_0__round 2 round [((Var 2 f))] (Integer 4 []) () ()) Eq (IntegerUnaryMinus (IntegerConstant 183745 (Integer 4 [])) (Integer 4 []) (IntegerConstant -183745 (Integer 4 []))) (Logical 4 []) ()) ()) (= (Var 2 f) (RealConstant 44.340000 (Real 8 [])) ()) (Assert (IntegerCompare (FunctionCall 2 round@__lpython_overloaded_0__round 2 round [((Var 2 f))] (Integer 4 []) () ()) Eq (IntegerConstant 44 (Integer 4 [])) (Logical 4 []) ()) ()) (= (Var 2 f) (RealConstant 0.500000 (Real 8 [])) ()) (Assert (IntegerCompare (FunctionCall 2 round@__lpython_overloaded_0__round 2 round [((Var 2 f))] (Integer 4 []) () ()) Eq (IntegerConstant 0 (Integer 4 [])) (Logical 4 []) ()) ()) (= (Var 2 f) (RealUnaryMinus (RealConstant 50.500000 (Real 8 [])) (Real 8 []) (RealConstant -50.500000 (Real 8 []))) ()) (Assert (IntegerCompare (FunctionCall 2 round@__lpython_overloaded_0__round 2 round [((Var 2 f))] (Integer 4 []) () ()) Eq (IntegerUnaryMinus (IntegerConstant 50 (Integer 4 [])) (Integer 4 []) (IntegerConstant -50 (Integer 4 []))) (Logical 4 []) ()) ()) (= (Var 2 f) (RealConstant 1.500000 (Real 8 [])) ()) (Assert (IntegerCompare (FunctionCall 2 round@__lpython_overloaded_0__round 2 round [((Var 2 f))] (Integer 4 []) () ()) Eq (IntegerConstant 2 (Integer 4 [])) (Logical 4 []) ()) ()) (Assert (IntegerCompare (FunctionCall 2 round@__lpython_overloaded_0__round 2 round [((RealConstant 13.001000 (Real 8 [])))] (Integer 4 []) (IntegerConstant 13 (Integer 4 [])) ()) Eq (IntegerConstant 13 (Integer 4 [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (IntegerCompare (FunctionCall 2 round@__lpython_overloaded_0__round 2 round [((RealUnaryMinus (RealConstant 40.499990 (Real 8 [])) (Real 8 []) (RealConstant -40.499990 (Real 8 []))))] (Integer 4 []) (IntegerConstant -40 (Integer 4 [])) ()) Eq (IntegerUnaryMinus (IntegerConstant 40 (Integer 4 [])) (Integer 4 []) (IntegerConstant -40 (Integer 4 []))) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (IntegerCompare (FunctionCall 2 round@__lpython_overloaded_0__round 2 round [((RealConstant 0.500000 (Real 8 [])))] (Integer 4 []) (IntegerConstant 0 (Integer 4 [])) ()) Eq (IntegerConstant 0 (Integer 4 [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (IntegerCompare (FunctionCall 2 round@__lpython_overloaded_0__round 2 round [((RealUnaryMinus (RealConstant 0.500000 (Real 8 [])) (Real 8 []) (RealConstant -0.500000 (Real 8 []))))] (Integer 4 []) (IntegerConstant 0 (Integer 4 [])) ()) Eq (IntegerConstant 0 (Integer 4 [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (IntegerCompare (FunctionCall 2 round@__lpython_overloaded_0__round 2 round [((RealConstant 1.500000 (Real 8 [])))] (Integer 4 []) (IntegerConstant 2 (Integer 4 [])) ()) Eq (IntegerConstant 2 (Integer 4 [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (IntegerCompare (FunctionCall 2 round@__lpython_overloaded_0__round 2 round [((RealConstant 50.500000 (Real 8 [])))] (Integer 4 []) (IntegerConstant 50 (Integer 4 [])) ()) Eq (IntegerConstant 50 (Integer 4 [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (IntegerCompare (FunctionCall 2 round@__lpython_overloaded_0__round 2 round [((RealConstant 56.780000 (Real 8 [])))] (Integer 4 []) (IntegerConstant 57 (Integer 4 [])) ()) Eq (IntegerConstant 57 (Integer 4 [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (= (Var 2 f2) (Cast (RealConstant 5.678000 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 5.678000 (Real 4 []))) ()) (Assert (IntegerCompare (FunctionCall 2 round@__lpython_overloaded_1__round 2 round [((Var 2 f2))] (Integer 4 []) () ()) Eq (IntegerConstant 6 (Integer 4 [])) (Logical 4 []) ()) ()) (= (Var 2 i) (IntegerUnaryMinus (IntegerConstant 5 (Integer 4 [])) (Integer 4 []) (IntegerConstant -5 (Integer 4 []))) ()) (Assert (IntegerCompare (FunctionCall 2 round@__lpython_overloaded_2__round 2 round [((Var 2 i))] (Integer 4 []) () ()) Eq (IntegerUnaryMinus (IntegerConstant 5 (Integer 4 [])) (Integer 4 []) (IntegerConstant -5 (Integer 4 []))) (Logical 4 []) ()) ()) (Assert (IntegerCompare (FunctionCall 2 round@__lpython_overloaded_2__round 2 round [((IntegerConstant 4 (Integer 4 [])))] (Integer 4 []) (IntegerConstant 4 (Integer 4 [])) ()) Eq (IntegerConstant 4 (Integer 4 [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (= (Var 2 i2) (Cast (IntegerConstant 7 (Integer 4 [])) IntegerToInteger (Integer 1 []) (IntegerConstant 7 (Integer 1 []))) ()) (Assert (IntegerCompare (FunctionCall 2 round@__lpython_overloaded_4__round 2 round [((Var 2 i2))] (Integer 1 []) () ()) Eq (Cast (IntegerConstant 7 (Integer 4 [])) IntegerToInteger (Integer 1 []) (IntegerConstant 7 (Integer 1 []))) (Logical 4 []) ()) ()) (= (Var 2 i3) (Cast (IntegerUnaryMinus (IntegerConstant 8 (Integer 4 [])) (Integer 4 []) (IntegerConstant -8 (Integer 4 []))) IntegerToInteger (Integer 2 []) (IntegerConstant -8 (Integer 2 []))) ()) (Assert (IntegerCompare (FunctionCall 2 round@__lpython_overloaded_5__round 2 round [((Var 2 i3))] (Integer 2 []) () ()) Eq (Cast (IntegerUnaryMinus (IntegerConstant 8 (Integer 4 [])) (Integer 4 []) (IntegerConstant -8 (Integer 4 []))) IntegerToInteger (Integer 2 []) (IntegerConstant -8 (Integer 2 []))) (Logical 4 []) ()) ()) (= (Var 2 i4) (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 0 (Integer 8 []))) ()) (Assert (IntegerCompare (FunctionCall 2 round@__lpython_overloaded_3__round 2 round [((Var 2 i4))] (Integer 8 []) () ()) Eq (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 0 (Integer 8 []))) (Logical 4 []) ()) ()) (= (Var 2 b) (LogicalConstant .true. (Logical 4 [])) ()) (Assert (IntegerCompare (FunctionCall 2 round@__lpython_overloaded_6__round 2 round [((Var 2 b))] (Integer 4 []) () ()) Eq (IntegerConstant 1 (Integer 4 [])) (Logical 4 []) ()) ()) (= (Var 2 b) (LogicalConstant .false. (Logical 4 [])) ()) (Assert (IntegerCompare (FunctionCall 2 round@__lpython_overloaded_6__round 2 round [((Var 2 b))] (Integer 4 []) () ()) Eq (IntegerConstant 0 (Integer 4 [])) (Logical 4 []) ()) ()) (Assert (IntegerCompare (FunctionCall 2 round@__lpython_overloaded_6__round 2 round [((LogicalConstant .false. (Logical 4 [])))] (Integer 4 []) (IntegerConstant 0 (Integer 4 [])) ()) Eq (IntegerConstant 0 (Integer 4 [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ())] () Public .false. .false.)}) [])
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            __main__global_stmts:
+                                (Function
+                                    (SymbolTable
+                                        141
+                                        {
+                                            
+                                        })
+                                    __main__global_stmts
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [test_round]
+                                    []
+                                    [(SubroutineCall
+                                        2 test_round
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            test_round:
+                                (Function
+                                    (SymbolTable
+                                        3
+                                        {
+                                            b:
+                                                (Variable
+                                                    3
+                                                    b
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Logical 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            f:
+                                                (Variable
+                                                    3
+                                                    f
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            f2:
+                                                (Variable
+                                                    3
+                                                    f2
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            i:
+                                                (Variable
+                                                    3
+                                                    i
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            i2:
+                                                (Variable
+                                                    3
+                                                    i2
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 1)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            i3:
+                                                (Variable
+                                                    3
+                                                    i3
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 2)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            i4:
+                                                (Variable
+                                                    3
+                                                    i4
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            round:
+                                                (ExternalSymbol
+                                                    3
+                                                    round
+                                                    4 round
+                                                    lpython_builtin
+                                                    []
+                                                    round
+                                                    Private
+                                                ),
+                                            round@__lpython_overloaded_0__round:
+                                                (ExternalSymbol
+                                                    3
+                                                    round@__lpython_overloaded_0__round
+                                                    4 __lpython_overloaded_0__round
+                                                    lpython_builtin
+                                                    []
+                                                    __lpython_overloaded_0__round
+                                                    Public
+                                                ),
+                                            round@__lpython_overloaded_1__round:
+                                                (ExternalSymbol
+                                                    3
+                                                    round@__lpython_overloaded_1__round
+                                                    4 __lpython_overloaded_1__round
+                                                    lpython_builtin
+                                                    []
+                                                    __lpython_overloaded_1__round
+                                                    Public
+                                                ),
+                                            round@__lpython_overloaded_2__round:
+                                                (ExternalSymbol
+                                                    3
+                                                    round@__lpython_overloaded_2__round
+                                                    4 __lpython_overloaded_2__round
+                                                    lpython_builtin
+                                                    []
+                                                    __lpython_overloaded_2__round
+                                                    Public
+                                                ),
+                                            round@__lpython_overloaded_3__round:
+                                                (ExternalSymbol
+                                                    3
+                                                    round@__lpython_overloaded_3__round
+                                                    4 __lpython_overloaded_3__round
+                                                    lpython_builtin
+                                                    []
+                                                    __lpython_overloaded_3__round
+                                                    Public
+                                                ),
+                                            round@__lpython_overloaded_4__round:
+                                                (ExternalSymbol
+                                                    3
+                                                    round@__lpython_overloaded_4__round
+                                                    4 __lpython_overloaded_4__round
+                                                    lpython_builtin
+                                                    []
+                                                    __lpython_overloaded_4__round
+                                                    Public
+                                                ),
+                                            round@__lpython_overloaded_5__round:
+                                                (ExternalSymbol
+                                                    3
+                                                    round@__lpython_overloaded_5__round
+                                                    4 __lpython_overloaded_5__round
+                                                    lpython_builtin
+                                                    []
+                                                    __lpython_overloaded_5__round
+                                                    Public
+                                                ),
+                                            round@__lpython_overloaded_6__round:
+                                                (ExternalSymbol
+                                                    3
+                                                    round@__lpython_overloaded_6__round
+                                                    4 __lpython_overloaded_6__round
+                                                    lpython_builtin
+                                                    []
+                                                    __lpython_overloaded_6__round
+                                                    Public
+                                                )
+                                        })
+                                    test_round
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 3 f)
+                                        (RealConstant
+                                            5.678000
+                                            (Real 8)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (FunctionCall
+                                                3 round@__lpython_overloaded_0__round
+                                                3 round
+                                                [((Var 3 f))]
+                                                (Integer 4)
+                                                ()
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerConstant 6 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 f)
+                                        (RealUnaryMinus
+                                            (RealConstant
+                                                183745.230000
+                                                (Real 8)
+                                            )
+                                            (Real 8)
+                                            (RealConstant
+                                                -183745.230000
+                                                (Real 8)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (FunctionCall
+                                                3 round@__lpython_overloaded_0__round
+                                                3 round
+                                                [((Var 3 f))]
+                                                (Integer 4)
+                                                ()
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerUnaryMinus
+                                                (IntegerConstant 183745 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                (IntegerConstant -183745 (Integer 4) Decimal)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 f)
+                                        (RealConstant
+                                            44.340000
+                                            (Real 8)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (FunctionCall
+                                                3 round@__lpython_overloaded_0__round
+                                                3 round
+                                                [((Var 3 f))]
+                                                (Integer 4)
+                                                ()
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerConstant 44 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 f)
+                                        (RealConstant
+                                            0.500000
+                                            (Real 8)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (FunctionCall
+                                                3 round@__lpython_overloaded_0__round
+                                                3 round
+                                                [((Var 3 f))]
+                                                (Integer 4)
+                                                ()
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerConstant 0 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 f)
+                                        (RealUnaryMinus
+                                            (RealConstant
+                                                50.500000
+                                                (Real 8)
+                                            )
+                                            (Real 8)
+                                            (RealConstant
+                                                -50.500000
+                                                (Real 8)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (FunctionCall
+                                                3 round@__lpython_overloaded_0__round
+                                                3 round
+                                                [((Var 3 f))]
+                                                (Integer 4)
+                                                ()
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerUnaryMinus
+                                                (IntegerConstant 50 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                (IntegerConstant -50 (Integer 4) Decimal)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 f)
+                                        (RealConstant
+                                            1.500000
+                                            (Real 8)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (FunctionCall
+                                                3 round@__lpython_overloaded_0__round
+                                                3 round
+                                                [((Var 3 f))]
+                                                (Integer 4)
+                                                ()
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerConstant 2 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (FunctionCall
+                                                3 round@__lpython_overloaded_0__round
+                                                3 round
+                                                [((RealConstant
+                                                    13.001000
+                                                    (Real 8)
+                                                ))]
+                                                (Integer 4)
+                                                (IntegerConstant 13 (Integer 4) Decimal)
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerConstant 13 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (FunctionCall
+                                                3 round@__lpython_overloaded_0__round
+                                                3 round
+                                                [((RealUnaryMinus
+                                                    (RealConstant
+                                                        40.499990
+                                                        (Real 8)
+                                                    )
+                                                    (Real 8)
+                                                    (RealConstant
+                                                        -40.499990
+                                                        (Real 8)
+                                                    )
+                                                ))]
+                                                (Integer 4)
+                                                (IntegerConstant -40 (Integer 4) Decimal)
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerUnaryMinus
+                                                (IntegerConstant 40 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                (IntegerConstant -40 (Integer 4) Decimal)
+                                            )
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (FunctionCall
+                                                3 round@__lpython_overloaded_0__round
+                                                3 round
+                                                [((RealConstant
+                                                    0.500000
+                                                    (Real 8)
+                                                ))]
+                                                (Integer 4)
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerConstant 0 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (FunctionCall
+                                                3 round@__lpython_overloaded_0__round
+                                                3 round
+                                                [((RealUnaryMinus
+                                                    (RealConstant
+                                                        0.500000
+                                                        (Real 8)
+                                                    )
+                                                    (Real 8)
+                                                    (RealConstant
+                                                        -0.500000
+                                                        (Real 8)
+                                                    )
+                                                ))]
+                                                (Integer 4)
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerConstant 0 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (FunctionCall
+                                                3 round@__lpython_overloaded_0__round
+                                                3 round
+                                                [((RealConstant
+                                                    1.500000
+                                                    (Real 8)
+                                                ))]
+                                                (Integer 4)
+                                                (IntegerConstant 2 (Integer 4) Decimal)
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerConstant 2 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (FunctionCall
+                                                3 round@__lpython_overloaded_0__round
+                                                3 round
+                                                [((RealConstant
+                                                    50.500000
+                                                    (Real 8)
+                                                ))]
+                                                (Integer 4)
+                                                (IntegerConstant 50 (Integer 4) Decimal)
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerConstant 50 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (FunctionCall
+                                                3 round@__lpython_overloaded_0__round
+                                                3 round
+                                                [((RealConstant
+                                                    56.780000
+                                                    (Real 8)
+                                                ))]
+                                                (Integer 4)
+                                                (IntegerConstant 57 (Integer 4) Decimal)
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerConstant 57 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 f2)
+                                        (Cast
+                                            (RealConstant
+                                                5.678000
+                                                (Real 8)
+                                            )
+                                            RealToReal
+                                            (Real 4)
+                                            (RealConstant
+                                                5.678000
+                                                (Real 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (FunctionCall
+                                                3 round@__lpython_overloaded_1__round
+                                                3 round
+                                                [((Var 3 f2))]
+                                                (Integer 4)
+                                                ()
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerConstant 6 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 i)
+                                        (IntegerUnaryMinus
+                                            (IntegerConstant 5 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            (IntegerConstant -5 (Integer 4) Decimal)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (FunctionCall
+                                                3 round@__lpython_overloaded_2__round
+                                                3 round
+                                                [((Var 3 i))]
+                                                (Integer 4)
+                                                ()
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerUnaryMinus
+                                                (IntegerConstant 5 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                (IntegerConstant -5 (Integer 4) Decimal)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (FunctionCall
+                                                3 round@__lpython_overloaded_2__round
+                                                3 round
+                                                [((IntegerConstant 4 (Integer 4) Decimal))]
+                                                (Integer 4)
+                                                (IntegerConstant 4 (Integer 4) Decimal)
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerConstant 4 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 i2)
+                                        (Cast
+                                            (IntegerConstant 7 (Integer 4) Decimal)
+                                            IntegerToInteger
+                                            (Integer 1)
+                                            (IntegerConstant 7 (Integer 1) Decimal)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (FunctionCall
+                                                3 round@__lpython_overloaded_4__round
+                                                3 round
+                                                [((Var 3 i2))]
+                                                (Integer 1)
+                                                ()
+                                                ()
+                                            )
+                                            Eq
+                                            (Cast
+                                                (IntegerConstant 7 (Integer 4) Decimal)
+                                                IntegerToInteger
+                                                (Integer 1)
+                                                (IntegerConstant 7 (Integer 1) Decimal)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 i3)
+                                        (Cast
+                                            (IntegerUnaryMinus
+                                                (IntegerConstant 8 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                (IntegerConstant -8 (Integer 4) Decimal)
+                                            )
+                                            IntegerToInteger
+                                            (Integer 2)
+                                            (IntegerConstant -8 (Integer 2) Decimal)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (FunctionCall
+                                                3 round@__lpython_overloaded_5__round
+                                                3 round
+                                                [((Var 3 i3))]
+                                                (Integer 2)
+                                                ()
+                                                ()
+                                            )
+                                            Eq
+                                            (Cast
+                                                (IntegerUnaryMinus
+                                                    (IntegerConstant 8 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    (IntegerConstant -8 (Integer 4) Decimal)
+                                                )
+                                                IntegerToInteger
+                                                (Integer 2)
+                                                (IntegerConstant -8 (Integer 2) Decimal)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 i4)
+                                        (Cast
+                                            (IntegerConstant 0 (Integer 4) Decimal)
+                                            IntegerToInteger
+                                            (Integer 8)
+                                            (IntegerConstant 0 (Integer 8) Decimal)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (FunctionCall
+                                                3 round@__lpython_overloaded_3__round
+                                                3 round
+                                                [((Var 3 i4))]
+                                                (Integer 8)
+                                                ()
+                                                ()
+                                            )
+                                            Eq
+                                            (Cast
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                IntegerToInteger
+                                                (Integer 8)
+                                                (IntegerConstant 0 (Integer 8) Decimal)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 b)
+                                        (LogicalConstant
+                                            .true.
+                                            (Logical 4)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (FunctionCall
+                                                3 round@__lpython_overloaded_6__round
+                                                3 round
+                                                [((Var 3 b))]
+                                                (Integer 4)
+                                                ()
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 b)
+                                        (LogicalConstant
+                                            .false.
+                                            (Logical 4)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (FunctionCall
+                                                3 round@__lpython_overloaded_6__round
+                                                3 round
+                                                [((Var 3 b))]
+                                                (Integer 4)
+                                                ()
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerConstant 0 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (FunctionCall
+                                                3 round@__lpython_overloaded_6__round
+                                                3 round
+                                                [((LogicalConstant
+                                                    .false.
+                                                    (Logical 4)
+                                                ))]
+                                                (Integer 4)
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerConstant 0 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    [lpython_builtin]
+                    .false.
+                    .false.
+                    .false.
+                ),
+            lpython_builtin:
+                (IntrinsicModule lpython_builtin),
+            main_program:
+                (Program
+                    (SymbolTable
+                        142
+                        {
+                            __main__global_stmts:
+                                (ExternalSymbol
+                                    142
+                                    __main__global_stmts
+                                    2 __main__global_stmts
+                                    __main__
+                                    []
+                                    __main__global_stmts
+                                    Public
+                                )
+                        })
+                    main_program
+                    [__main__]
+                    [(SubroutineCall
+                        142 __main__global_stmts
+                        2 __main__global_stmts
+                        []
+                        ()
+                        .false.
+                    )]
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-test_builtin_str-580e920.json b/tests/reference/asr-test_builtin_str-580e920.json
deleted file mode 100644
index 8134149cc2..0000000000
--- a/tests/reference/asr-test_builtin_str-580e920.json
+++ /dev/null
@@ -1,13 +0,0 @@
-{
-    "basename": "asr-test_builtin_str-580e920",
-    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
-    "infile": "tests/../integration_tests/test_builtin_str.py",
-    "infile_hash": "4dfef279d78b94604918cff2ef8c2ef5e01f85d492b55d992c3ab126",
-    "outfile": null,
-    "outfile_hash": null,
-    "stdout": "asr-test_builtin_str-580e920.stdout",
-    "stdout_hash": "dac6fa6f8c5517a01af4d57c6182908367bfdb041d04abfc21dcdbdf",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
-}
\ No newline at end of file
diff --git a/tests/reference/asr-test_builtin_str-580e920.stdout b/tests/reference/asr-test_builtin_str-580e920.stdout
deleted file mode 100644
index 7c06c335cf..0000000000
--- a/tests/reference/asr-test_builtin_str-580e920.stdout
+++ /dev/null
@@ -1 +0,0 @@
-(TranslationUnit (SymbolTable 1 {_lpython_main_program: (Function (SymbolTable 8 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [test_str_int_float str_conv_for_variables test_str_slice_step test_issue_883] [] [(SubroutineCall 1 test_str_int_float () [] ()) (SubroutineCall 1 str_conv_for_variables () [] ()) (SubroutineCall 1 test_str_slice_step () [] ()) (SubroutineCall 1 test_issue_883 () [] ())] () Public .false. .false.), main_program: (Program (SymbolTable 7 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())]), str_conv_for_variables: (Function (SymbolTable 3 {bool_t: (Variable 3 bool_t [] Local () () Default (Logical 4 []) Source Public Required .false.), str_t: (Variable 3 str_t [] Local () () Default (Character 1 -2 () []) Source Public Required .false.), x: (Variable 3 x [] Local () () Default (Integer 4 []) Source Public Required .false.), xx: (Variable 3 xx [] Local () () Default (Real 4 []) Source Public Required .false.), yy: (Variable 3 yy [] Local () () Default (Real 8 []) Source Public Required .false.)}) str_conv_for_variables (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [] [(= (Var 3 x) (IntegerConstant 123 (Integer 4 [])) ()) (Assert (StringCompare (StringConstant "123" (Character 1 3 () [])) Eq (Cast (Var 3 x) IntegerToCharacter (Character 1 -2 () []) ()) (Logical 4 []) ()) ()) (= (Var 3 x) (IntegerConstant 12345 (Integer 4 [])) ()) (Assert (StringCompare (StringConstant "12345" (Character 1 5 () [])) Eq (Cast (Var 3 x) IntegerToCharacter (Character 1 -2 () []) ()) (Logical 4 []) ()) ()) (= (Var 3 x) (IntegerUnaryMinus (IntegerConstant 12 (Integer 4 [])) (Integer 4 []) (IntegerConstant -12 (Integer 4 []))) ()) (Assert (StringCompare (StringConstant "-12" (Character 1 3 () [])) Eq (Cast (Var 3 x) IntegerToCharacter (Character 1 -2 () []) ()) (Logical 4 []) ()) ()) (= (Var 3 x) (IntegerUnaryMinus (IntegerConstant 121212 (Integer 4 [])) (Integer 4 []) (IntegerConstant -121212 (Integer 4 []))) ()) (Assert (StringCompare (StringConstant "-121212" (Character 1 7 () [])) Eq (Cast (Var 3 x) IntegerToCharacter (Character 1 -2 () []) ()) (Logical 4 []) ()) ()) (= (Var 3 xx) (Cast (RealConstant 12.322234 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 12.322234 (Real 4 []))) ()) (Assert (StringCompare (Cast (Var 3 xx) RealToCharacter (Character 1 -2 () []) ()) Eq (StringConstant "12.322234" (Character 1 9 () [])) (Logical 4 []) ()) ()) (= (Var 3 yy) (RealConstant 12.322234 (Real 8 [])) ()) (Assert (StringCompare (Cast (Var 3 yy) RealToCharacter (Character 1 -2 () []) ()) Eq (StringConstant "12.322234" (Character 1 9 () [])) (Logical 4 []) ()) ()) (= (Var 3 bool_t) (LogicalConstant .true. (Logical 4 [])) ()) (Assert (StringCompare (Cast (Var 3 bool_t) LogicalToCharacter (Character 1 -2 () []) ()) Eq (StringConstant "True" (Character 1 4 () [])) (Logical 4 []) ()) ()) (= (Var 3 bool_t) (LogicalConstant .false. (Logical 4 [])) ()) (Assert (StringCompare (Cast (Var 3 bool_t) LogicalToCharacter (Character 1 -2 () []) ()) Eq (StringConstant "False" (Character 1 5 () [])) (Logical 4 []) ()) ()) (= (Var 3 str_t) (StringConstant "just a str" (Character 1 10 () [])) ()) (Assert (StringCompare (Var 3 str_t) Eq (Var 3 str_t) (Logical 4 []) ()) ())] () Public .false. .false.), test_issue_883: (Function (SymbolTable 5 {__explicit_iterator: (Variable 5 __explicit_iterator [] Local () () Default (Integer 4 []) Source Public Required .false.), __tmp_assign_for_loop: (Variable 5 __tmp_assign_for_loop [] Local () () Default (Character 1 -2 () []) Source Public Required .false.), c: (Variable 5 c [] Local () () Default (Character 1 -2 () []) Source Public Required .false.), d: (Variable 5 d [] Local () () Default (Character 1 -2 () []) Source Public Required .false.), i: (Variable 5 i [] Local (IntegerConstant 0 (Integer 4 [])) () Default (Integer 4 []) Source Public Required .false.), s: (Variable 5 s [] Local () () Default (Character 1 -2 () []) Source Public Required .false.)}) test_issue_883 (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [] [(= (Var 5 s) (StringConstant "abcde" (Character 1 5 () [])) ()) (= (Var 5 d) (StringConstant "edcba" (Character 1 5 () [])) ()) (= (Var 5 i) (IntegerConstant 0 (Integer 4 [])) ()) (= (Var 5 __tmp_assign_for_loop) (StringSection (Var 5 s) () () (IntegerUnaryMinus (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant -1 (Integer 4 []))) (Character 1 -2 () []) ()) ()) (DoLoop ((Var 5 __explicit_iterator) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (StringLen (Var 5 __tmp_assign_for_loop) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(= (Var 5 c) (StringItem (Var 5 __tmp_assign_for_loop) (IntegerBinOp (Var 5 __explicit_iterator) Add (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (Integer 4 []) ()) ()) (Print () [(Var 5 c)] () ()) (Assert (StringCompare (Var 5 c) Eq (StringItem (Var 5 d) (IntegerBinOp (Var 5 i) Add (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (Character 1 -2 () []) ()) (Logical 4 []) ()) ()) (= (Var 5 i) (IntegerBinOp (Var 5 i) Add (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) ())])] () Public .false. .false.), test_str_int_float: (Function (SymbolTable 2 {s: (Variable 2 s [] Local () () Default (Character 1 -2 () []) Source Public Required .false.)}) test_str_int_float (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [] [(= (Var 2 s) (Cast (IntegerConstant 356 (Integer 4 [])) IntegerToCharacter (Character 1 -2 () []) (StringConstant "356" (Character 1 3 () []))) ()) (Assert (StringCompare (Var 2 s) Eq (StringConstant "356" (Character 1 3 () [])) (Logical 4 []) ()) ()) (= (Var 2 s) (Cast (IntegerUnaryMinus (IntegerConstant 567 (Integer 4 [])) (Integer 4 []) (IntegerConstant -567 (Integer 4 []))) IntegerToCharacter (Character 1 -2 () []) (StringConstant "-567" (Character 1 4 () []))) ()) (Assert (StringCompare (Var 2 s) Eq (StringConstant "-567" (Character 1 4 () [])) (Logical 4 []) ()) ()) (Assert (StringCompare (Cast (IntegerConstant 4 (Integer 4 [])) IntegerToCharacter (Character 1 -2 () []) (StringConstant "4" (Character 1 1 () []))) Eq (StringConstant "4" (Character 1 1 () [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (StringCompare (Cast (IntegerUnaryMinus (IntegerConstant 5 (Integer 4 [])) (Integer 4 []) (IntegerConstant -5 (Integer 4 []))) IntegerToCharacter (Character 1 -2 () []) (StringConstant "-5" (Character 1 2 () []))) Eq (StringConstant "-5" (Character 1 2 () [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (StringCompare (StringConstant "" (Character 1 0 () [])) Eq (StringConstant "" (Character 1 0 () [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (StringCompare (StringConstant "1234" (Character 1 4 () [])) Eq (StringConstant "1234" (Character 1 4 () [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (StringCompare (Cast (LogicalConstant .false. (Logical 4 [])) LogicalToCharacter (Character 1 -2 () []) (StringConstant "False" (Character 1 5 () []))) Eq (StringConstant "False" (Character 1 5 () [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (StringCompare (Cast (LogicalConstant .true. (Logical 4 [])) LogicalToCharacter (Character 1 -2 () []) (StringConstant "True" (Character 1 4 () []))) Eq (StringConstant "True" (Character 1 4 () [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (StringCompare (StringConstant "just a str" (Character 1 10 () [])) Eq (StringConstant "just a str" (Character 1 10 () [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (StringCompare (StringSection (Cast (RealConstant 12.123400 (Real 8 [])) RealToCharacter (Character 1 -2 () []) (StringConstant "12.1234" (Character 1 7 () []))) () (IntegerConstant 7 (Integer 4 [])) () (Character 1 -2 () []) ()) Eq (StringConstant "12.1234" (Character 1 7 () [])) (Logical 4 []) ()) ())] () Public .false. .false.), test_str_slice_step: (Function (SymbolTable 4 {end: (Variable 4 end [] Local () () Default (Integer 4 []) Source Public Required .false.), s: (Variable 4 s [] Local () () Default (Character 1 -2 () []) Source Public Required .false.), start: (Variable 4 start [] Local () () Default (Integer 4 []) Source Public Required .false.), step: (Variable 4 step [] Local () () Default (Integer 4 []) Source Public Required .false.)}) test_str_slice_step (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [] [(= (Var 4 s) (StringConstant "abcdefghijk" (Character 1 11 () [])) ()) (= (Var 4 start) (IntegerConstant 1 (Integer 4 [])) ()) (= (Var 4 end) (IntegerConstant 4 (Integer 4 [])) ()) (= (Var 4 step) (IntegerConstant 1 (Integer 4 [])) ()) (Assert (StringCompare (StringSection (Var 4 s) () () () (Character 1 -2 () []) ()) Eq (StringConstant "abcdefghijk" (Character 1 11 () [])) (Logical 4 []) ()) ()) (Assert (StringCompare (StringSection (Var 4 s) (IntegerConstant 1 (Integer 4 [])) (IntegerConstant 4 (Integer 4 [])) () (Character 1 -2 () []) ()) Eq (StringConstant "bcd" (Character 1 3 () [])) (Logical 4 []) ()) ()) (Assert (StringCompare (StringSection (Var 4 s) () (IntegerConstant 4 (Integer 4 [])) (IntegerConstant 5 (Integer 4 [])) (Character 1 -2 () []) ()) Eq (StringConstant "a" (Character 1 1 () [])) (Logical 4 []) ()) ()) (Assert (StringCompare (StringSection (Var 4 s) () () (IntegerUnaryMinus (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant -1 (Integer 4 []))) (Character 1 -2 () []) ()) Eq (StringConstant "kjihgfedcba" (Character 1 11 () [])) (Logical 4 []) ()) ()) (Assert (StringCompare (StringSection (Var 4 s) (IntegerConstant 3 (Integer 4 [])) (IntegerConstant 12 (Integer 4 [])) (IntegerConstant 3 (Integer 4 [])) (Character 1 -2 () []) ()) Eq (StringConstant "dgj" (Character 1 3 () [])) (Logical 4 []) ()) ()) (Assert (StringCompare (StringSection (Var 4 s) (IntegerConstant 1 (Integer 4 [])) () (IntegerConstant 3 (Integer 4 [])) (Character 1 -2 () []) ()) Eq (StringConstant "behk" (Character 1 4 () [])) (Logical 4 []) ()) ()) (Assert (StringCompare (StringSection (Var 4 s) (IntegerConstant 4 (Integer 4 [])) () () (Character 1 -2 () []) ()) Eq (StringConstant "efghijk" (Character 1 7 () [])) (Logical 4 []) ()) ()) (Assert (StringCompare (StringSection (Var 4 s) () (IntegerConstant 5 (Integer 4 [])) () (Character 1 -2 () []) ()) Eq (StringConstant "abcde" (Character 1 5 () [])) (Logical 4 []) ()) ()) (Assert (StringCompare (StringSection (Var 4 s) (IntegerConstant 3 (Integer 4 [])) (IntegerConstant 9 (Integer 4 [])) (IntegerConstant 3 (Integer 4 [])) (Character 1 -2 () []) ()) Eq (StringConstant "dg" (Character 1 2 () [])) (Logical 4 []) ()) ()) (Assert (StringCompare (StringSection (Var 4 s) (IntegerConstant 10 (Integer 4 [])) (IntegerConstant 3 (Integer 4 [])) (IntegerUnaryMinus (IntegerConstant 2 (Integer 4 [])) (Integer 4 []) (IntegerConstant -2 (Integer 4 []))) (Character 1 -2 () []) ()) Eq (StringConstant "kige" (Character 1 4 () [])) (Logical 4 []) ()) ()) (Assert (StringCompare (StringSection (Var 4 s) (IntegerUnaryMinus (IntegerConstant 2 (Integer 4 [])) (Integer 4 []) (IntegerConstant -2 (Integer 4 []))) (IntegerUnaryMinus (IntegerConstant 10 (Integer 4 [])) (Integer 4 []) (IntegerConstant -10 (Integer 4 []))) () (Character 1 -2 () []) ()) Eq (StringConstant "" (Character 1 0 () [])) (Logical 4 []) ()) ()) (Assert (StringCompare (StringSection (Var 4 s) (IntegerUnaryMinus (IntegerConstant 3 (Integer 4 [])) (Integer 4 []) (IntegerConstant -3 (Integer 4 []))) (IntegerUnaryMinus (IntegerConstant 9 (Integer 4 [])) (Integer 4 []) (IntegerConstant -9 (Integer 4 []))) (IntegerUnaryMinus (IntegerConstant 3 (Integer 4 [])) (Integer 4 []) (IntegerConstant -3 (Integer 4 []))) (Character 1 -2 () []) ()) Eq (StringConstant "if" (Character 1 2 () [])) (Logical 4 []) ()) ()) (Assert (StringCompare (StringSection (Var 4 s) (IntegerUnaryMinus (IntegerConstant 3 (Integer 4 [])) (Integer 4 []) (IntegerConstant -3 (Integer 4 []))) (IntegerUnaryMinus (IntegerConstant 10 (Integer 4 [])) (Integer 4 []) (IntegerConstant -10 (Integer 4 []))) (IntegerUnaryMinus (IntegerConstant 3 (Integer 4 [])) (Integer 4 []) (IntegerConstant -3 (Integer 4 []))) (Character 1 -2 () []) ()) Eq (StringConstant "ifc" (Character 1 3 () [])) (Logical 4 []) ()) ()) (Assert (StringCompare (StringSection (Var 4 s) (Var 4 start) (Var 4 end) (Var 4 step) (Character 1 -2 () []) ()) Eq (StringConstant "bcd" (Character 1 3 () [])) (Logical 4 []) ()) ()) (Assert (StringCompare (StringSection (Var 4 s) (Var 4 start) (IntegerBinOp (IntegerBinOp (IntegerConstant 2 (Integer 4 [])) Mul (Var 4 end) (Integer 4 []) ()) Sub (IntegerConstant 3 (Integer 4 [])) (Integer 4 []) ()) (Var 4 step) (Character 1 -2 () []) ()) Eq (StringConstant "bcde" (Character 1 4 () [])) (Logical 4 []) ()) ()) (Assert (StringCompare (StringSection (Var 4 s) (Var 4 start) (IntegerBinOp (IntegerBinOp (IntegerConstant 2 (Integer 4 [])) Mul (Var 4 end) (Integer 4 []) ()) Sub (IntegerConstant 3 (Integer 4 [])) (Integer 4 []) ()) (IntegerUnaryMinus (Var 4 step) (Integer 4 []) ()) (Character 1 -2 () []) ()) Eq (StringConstant "" (Character 1 0 () [])) (Logical 4 []) ()) ())] () Public .false. .false.)}) [])
diff --git a/tests/reference/asr-test_c_interop_01-e374f43.json b/tests/reference/asr-test_c_interop_01-e374f43.json
index 04c64b6046..79285f8a24 100644
--- a/tests/reference/asr-test_c_interop_01-e374f43.json
+++ b/tests/reference/asr-test_c_interop_01-e374f43.json
@@ -2,11 +2,11 @@
     "basename": "asr-test_c_interop_01-e374f43",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/../integration_tests/test_c_interop_01.py",
-    "infile_hash": "893fdb1fcefcde9c16afd66db7f2fb4639bb79bea3a65f5c4e3b161b",
+    "infile_hash": "26515894348fdf2eb4b6e2e277127972e5cd91232f06ee78e4d52af6",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "asr-test_c_interop_01-e374f43.stdout",
-    "stdout_hash": "f4b937a4615ab8cab03c7aabbfd60ba3997b93b59c20c070d260db36",
+    "stdout_hash": "4a60ed87a99987d2ccc249309d2c17a3ccc95b17d9478c0d681b86ac",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/asr-test_c_interop_01-e374f43.stdout b/tests/reference/asr-test_c_interop_01-e374f43.stdout
index e2e05ecbda..43f2d7df61 100644
--- a/tests/reference/asr-test_c_interop_01-e374f43.stdout
+++ b/tests/reference/asr-test_c_interop_01-e374f43.stdout
@@ -1 +1,488 @@
-(TranslationUnit (SymbolTable 1 {_lfortran_bgt32: (Function (SymbolTable 4 {_lpython_return_variable: (Variable 4 _lpython_return_variable [] ReturnVar () () Default (Integer 4 []) BindC Public Required .false.), i: (Variable 4 i [] In () () Default (Integer 4 []) BindC Public Required .true.), j: (Variable 4 j [] In () () Default (Integer 4 []) BindC Public Required .true.)}) _lfortran_bgt32 (FunctionType [(Integer 4 []) (Integer 4 [])] (Integer 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 4 i) (Var 4 j)] [] (Var 4 _lpython_return_variable) Public .false. .false.), _lfortran_bgt64: (Function (SymbolTable 5 {_lpython_return_variable: (Variable 5 _lpython_return_variable [] ReturnVar () () Default (Integer 4 []) BindC Public Required .false.), i: (Variable 5 i [] In () () Default (Integer 8 []) BindC Public Required .true.), j: (Variable 5 j [] In () () Default (Integer 8 []) BindC Public Required .true.)}) _lfortran_bgt64 (FunctionType [(Integer 8 []) (Integer 8 [])] (Integer 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 5 i) (Var 5 j)] [] (Var 5 _lpython_return_variable) Public .false. .false.), _lfortran_dsin: (Function (SymbolTable 2 {_lpython_return_variable: (Variable 2 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 2 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dsin (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 2 x)] [] (Var 2 _lpython_return_variable) Public .false. .false.), _lfortran_ssin: (Function (SymbolTable 3 {_lpython_return_variable: (Variable 3 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 3 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_ssin (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 3 x)] [] (Var 3 _lpython_return_variable) Public .false. .false.), _lpython_main_program: (Function (SymbolTable 101 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [test_c_callbacks] [] [(SubroutineCall 1 test_c_callbacks () [] ())] () Public .false. .false.), lpython_builtin: (IntrinsicModule lpython_builtin), main_program: (Program (SymbolTable 100 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())]), test_c_callbacks: (Function (SymbolTable 6 {abs: (ExternalSymbol 6 abs 8 abs lpython_builtin [] abs Private), abs@__lpython_overloaded_0__abs: (ExternalSymbol 6 abs@__lpython_overloaded_0__abs 8 __lpython_overloaded_0__abs lpython_builtin [] __lpython_overloaded_0__abs Public), abs@__lpython_overloaded_1__abs: (ExternalSymbol 6 abs@__lpython_overloaded_1__abs 8 __lpython_overloaded_1__abs lpython_builtin [] __lpython_overloaded_1__abs Public), pi: (Variable 6 pi [] Local (RealConstant 3.141593 (Real 8 [])) () Default (Real 8 []) Source Public Required .false.)}) test_c_callbacks (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [abs@__lpython_overloaded_0__abs _lfortran_dsin abs@__lpython_overloaded_0__abs _lfortran_dsin abs@__lpython_overloaded_1__abs _lfortran_ssin abs@__lpython_overloaded_1__abs _lfortran_ssin _lfortran_bgt32 _lfortran_bgt32 _lfortran_bgt64 _lfortran_bgt64] [] [(= (Var 6 pi) (RealConstant 3.141593 (Real 8 [])) ()) (Assert (RealCompare (FunctionCall 6 abs@__lpython_overloaded_0__abs 6 abs [((RealBinOp (FunctionCall 1 _lfortran_dsin () [((Var 6 pi))] (Real 8 []) () ()) Sub (RealConstant 0.000000 (Real 8 [])) (Real 8 []) ()))] (Real 8 []) () ()) Lt (RealConstant 0.000000 (Real 8 [])) (Logical 4 []) ()) ()) (Assert (RealCompare (FunctionCall 6 abs@__lpython_overloaded_0__abs 6 abs [((RealBinOp (FunctionCall 1 _lfortran_dsin () [((RealBinOp (Var 6 pi) Div (Cast (IntegerConstant 2 (Integer 4 [])) IntegerToReal (Real 8 []) ()) (Real 8 []) ()))] (Real 8 []) () ()) Sub (RealConstant 1.000000 (Real 8 [])) (Real 8 []) ()))] (Real 8 []) () ()) Lt (RealConstant 0.000000 (Real 8 [])) (Logical 4 []) ()) ()) (Assert (RealCompare (FunctionCall 6 abs@__lpython_overloaded_1__abs 6 abs [((RealBinOp (FunctionCall 1 _lfortran_ssin () [((Cast (Var 6 pi) RealToReal (Real 4 []) ()))] (Real 4 []) () ()) Sub (Cast (RealConstant 0.000000 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 0.000000 (Real 4 []))) (Real 4 []) ()))] (Real 4 []) () ()) Lt (Cast (RealConstant 0.000001 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 0.000001 (Real 4 []))) (Logical 4 []) ()) ()) (Assert (RealCompare (FunctionCall 6 abs@__lpython_overloaded_1__abs 6 abs [((RealBinOp (FunctionCall 1 _lfortran_ssin () [((Cast (RealBinOp (Var 6 pi) Div (RealConstant 2.000000 (Real 8 [])) (Real 8 []) ()) RealToReal (Real 4 []) ()))] (Real 4 []) () ()) Sub (Cast (RealConstant 1.000000 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 1.000000 (Real 4 []))) (Real 4 []) ()))] (Real 4 []) () ()) Lt (Cast (RealConstant 0.000001 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 0.000001 (Real 4 []))) (Logical 4 []) ()) ()) (Assert (IntegerCompare (FunctionCall 1 _lfortran_bgt32 () [((IntegerConstant 3 (Integer 4 []))) ((IntegerConstant 4 (Integer 4 [])))] (Integer 4 []) () ()) Eq (IntegerConstant 0 (Integer 4 [])) (Logical 4 []) ()) ()) (Assert (IntegerCompare (FunctionCall 1 _lfortran_bgt32 () [((IntegerConstant 4 (Integer 4 []))) ((IntegerConstant 3 (Integer 4 [])))] (Integer 4 []) () ()) Eq (IntegerConstant 1 (Integer 4 [])) (Logical 4 []) ()) ()) (Assert (IntegerCompare (FunctionCall 1 _lfortran_bgt64 () [((Cast (IntegerConstant 3 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 3 (Integer 8 [])))) ((Cast (IntegerConstant 4 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 4 (Integer 8 []))))] (Integer 4 []) () ()) Eq (IntegerConstant 0 (Integer 4 [])) (Logical 4 []) ()) ()) (Assert (IntegerCompare (FunctionCall 1 _lfortran_bgt64 () [((Cast (IntegerConstant 4 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 4 (Integer 8 [])))) ((Cast (IntegerConstant 3 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 3 (Integer 8 []))))] (Integer 4 []) () ()) Eq (IntegerConstant 1 (Integer 4 [])) (Logical 4 []) ()) ())] () Public .false. .false.)}) [])
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            __main__global_stmts:
+                                (Function
+                                    (SymbolTable
+                                        6
+                                        {
+                                            
+                                        })
+                                    __main__global_stmts
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [test_c_callbacks]
+                                    []
+                                    [(SubroutineCall
+                                        2 test_c_callbacks
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            _lfortran_dsin:
+                                (Function
+                                    (SymbolTable
+                                        3
+                                        {
+                                            _lpython_return_variable:
+                                                (Variable
+                                                    3
+                                                    _lpython_return_variable
+                                                    []
+                                                    ReturnVar
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 8)
+                                                    ()
+                                                    BindC
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            x:
+                                                (Variable
+                                                    3
+                                                    x
+                                                    []
+                                                    In
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 8)
+                                                    ()
+                                                    BindC
+                                                    Public
+                                                    Required
+                                                    .true.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    _lfortran_dsin
+                                    (FunctionType
+                                        [(Real 8)]
+                                        (Real 8)
+                                        BindC
+                                        Interface
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    [(Var 3 x)]
+                                    []
+                                    (Var 3 _lpython_return_variable)
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            _lfortran_ssin:
+                                (Function
+                                    (SymbolTable
+                                        4
+                                        {
+                                            _lpython_return_variable:
+                                                (Variable
+                                                    4
+                                                    _lpython_return_variable
+                                                    []
+                                                    ReturnVar
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 4)
+                                                    ()
+                                                    BindC
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            x:
+                                                (Variable
+                                                    4
+                                                    x
+                                                    []
+                                                    In
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 4)
+                                                    ()
+                                                    BindC
+                                                    Public
+                                                    Required
+                                                    .true.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    _lfortran_ssin
+                                    (FunctionType
+                                        [(Real 4)]
+                                        (Real 4)
+                                        BindC
+                                        Interface
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    [(Var 4 x)]
+                                    []
+                                    (Var 4 _lpython_return_variable)
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            test_c_callbacks:
+                                (Function
+                                    (SymbolTable
+                                        5
+                                        {
+                                            pi:
+                                                (Variable
+                                                    5
+                                                    pi
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test_c_callbacks
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [_lfortran_dsin
+                                    _lfortran_ssin]
+                                    []
+                                    [(Assignment
+                                        (Var 5 pi)
+                                        (RealConstant
+                                            3.141593
+                                            (Real 8)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealBinOp
+                                                    (FunctionCall
+                                                        2 _lfortran_dsin
+                                                        ()
+                                                        [((Var 5 pi))]
+                                                        (Real 8)
+                                                        ()
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (RealConstant
+                                                        0.000000
+                                                        (Real 8)
+                                                    )
+                                                    (Real 8)
+                                                    ()
+                                                )]
+                                                0
+                                                (Real 8)
+                                                ()
+                                            )
+                                            Lt
+                                            (RealConstant
+                                                0.000000
+                                                (Real 8)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealBinOp
+                                                    (FunctionCall
+                                                        2 _lfortran_dsin
+                                                        ()
+                                                        [((RealBinOp
+                                                            (Var 5 pi)
+                                                            Div
+                                                            (RealConstant
+                                                                2.000000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            ()
+                                                        ))]
+                                                        (Real 8)
+                                                        ()
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (RealConstant
+                                                        1.000000
+                                                        (Real 8)
+                                                    )
+                                                    (Real 8)
+                                                    ()
+                                                )]
+                                                0
+                                                (Real 8)
+                                                ()
+                                            )
+                                            Lt
+                                            (RealConstant
+                                                0.000000
+                                                (Real 8)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealBinOp
+                                                    (FunctionCall
+                                                        2 _lfortran_ssin
+                                                        ()
+                                                        [((Cast
+                                                            (Var 5 pi)
+                                                            RealToReal
+                                                            (Real 4)
+                                                            ()
+                                                        ))]
+                                                        (Real 4)
+                                                        ()
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (Cast
+                                                        (RealConstant
+                                                            0.000000
+                                                            (Real 8)
+                                                        )
+                                                        RealToReal
+                                                        (Real 4)
+                                                        (RealConstant
+                                                            0.000000
+                                                            (Real 4)
+                                                        )
+                                                    )
+                                                    (Real 4)
+                                                    ()
+                                                )]
+                                                0
+                                                (Real 4)
+                                                ()
+                                            )
+                                            Lt
+                                            (Cast
+                                                (RealConstant
+                                                    0.000001
+                                                    (Real 8)
+                                                )
+                                                RealToReal
+                                                (Real 4)
+                                                (RealConstant
+                                                    0.000001
+                                                    (Real 4)
+                                                )
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealBinOp
+                                                    (FunctionCall
+                                                        2 _lfortran_ssin
+                                                        ()
+                                                        [((Cast
+                                                            (RealBinOp
+                                                                (Var 5 pi)
+                                                                Div
+                                                                (RealConstant
+                                                                    2.000000
+                                                                    (Real 8)
+                                                                )
+                                                                (Real 8)
+                                                                ()
+                                                            )
+                                                            RealToReal
+                                                            (Real 4)
+                                                            ()
+                                                        ))]
+                                                        (Real 4)
+                                                        ()
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (Cast
+                                                        (RealConstant
+                                                            1.000000
+                                                            (Real 8)
+                                                        )
+                                                        RealToReal
+                                                        (Real 4)
+                                                        (RealConstant
+                                                            1.000000
+                                                            (Real 4)
+                                                        )
+                                                    )
+                                                    (Real 4)
+                                                    ()
+                                                )]
+                                                0
+                                                (Real 4)
+                                                ()
+                                            )
+                                            Lt
+                                            (Cast
+                                                (RealConstant
+                                                    0.000001
+                                                    (Real 8)
+                                                )
+                                                RealToReal
+                                                (Real 4)
+                                                (RealConstant
+                                                    0.000001
+                                                    (Real 4)
+                                                )
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    []
+                    .false.
+                    .false.
+                    .false.
+                ),
+            main_program:
+                (Program
+                    (SymbolTable
+                        7
+                        {
+                            __main__global_stmts:
+                                (ExternalSymbol
+                                    7
+                                    __main__global_stmts
+                                    2 __main__global_stmts
+                                    __main__
+                                    []
+                                    __main__global_stmts
+                                    Public
+                                )
+                        })
+                    main_program
+                    [__main__]
+                    [(SubroutineCall
+                        7 __main__global_stmts
+                        2 __main__global_stmts
+                        []
+                        ()
+                        .false.
+                    )]
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-test_compare_01-c594bbe.json b/tests/reference/asr-test_compare_01-c594bbe.json
new file mode 100644
index 0000000000..4871c78f6e
--- /dev/null
+++ b/tests/reference/asr-test_compare_01-c594bbe.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-test_compare_01-c594bbe",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/test_compare_01.py",
+    "infile_hash": "8608b530e3b0ed2d0bff0ce0e137537fff92259ffded965d5f03d5dc",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-test_compare_01-c594bbe.stderr",
+    "stderr_hash": "65fb5b04ca1f56cae946ed2db3cde1380d0d9976114c340acfbbcf7b",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-test_compare_01-c594bbe.stderr b/tests/reference/asr-test_compare_01-c594bbe.stderr
new file mode 100644
index 0000000000..868af63d50
--- /dev/null
+++ b/tests/reference/asr-test_compare_01-c594bbe.stderr
@@ -0,0 +1,5 @@
+semantic error: Type mismatch in comparison operator, the types must be compatible
+ --> tests/errors/test_compare_01.py:6:11
+  |
+6 |     print(i16(x) > f32(y))
+  |           ^^^^^^   ^^^^^^ type mismatch ('i16' and 'f32')
diff --git a/tests/reference/asr-test_compare_02-bf2c76e.json b/tests/reference/asr-test_compare_02-bf2c76e.json
new file mode 100644
index 0000000000..de5b576dce
--- /dev/null
+++ b/tests/reference/asr-test_compare_02-bf2c76e.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-test_compare_02-bf2c76e",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/test_compare_02.py",
+    "infile_hash": "16c5516272fbd5a54c9039bfe614e3813425f92826025c0ed5671341",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-test_compare_02-bf2c76e.stderr",
+    "stderr_hash": "b7fd0ded0c7519927e22a838a2b5156d7cb6b3728bb463ecb5907bfd",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-test_compare_02-bf2c76e.stderr b/tests/reference/asr-test_compare_02-bf2c76e.stderr
new file mode 100644
index 0000000000..a8843ae5ee
--- /dev/null
+++ b/tests/reference/asr-test_compare_02-bf2c76e.stderr
@@ -0,0 +1,5 @@
+semantic error: Type mismatch in comparison operator, the types must be compatible
+ --> tests/errors/test_compare_02.py:6:11
+  |
+6 |     print(x > y)
+  |           ^   ^ type mismatch ('i32' and 'u32')
diff --git a/tests/reference/asr-test_complex-70f026c.json b/tests/reference/asr-test_complex-70f026c.json
deleted file mode 100644
index 874b48bd2e..0000000000
--- a/tests/reference/asr-test_complex-70f026c.json
+++ /dev/null
@@ -1,13 +0,0 @@
-{
-    "basename": "asr-test_complex-70f026c",
-    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
-    "infile": "tests/../integration_tests/test_complex.py",
-    "infile_hash": "0c9a9dbec41e0ad2e587ebdfc9a19e0fdb4a547747f25ac008f31175",
-    "outfile": null,
-    "outfile_hash": null,
-    "stdout": "asr-test_complex-70f026c.stdout",
-    "stdout_hash": "7e1e9fcdc73c6fcf6156e3b19ffc2f84af2e73490a7b963dad70425b",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
-}
\ No newline at end of file
diff --git a/tests/reference/asr-test_complex-70f026c.stdout b/tests/reference/asr-test_complex-70f026c.stdout
deleted file mode 100644
index 1377faecd5..0000000000
--- a/tests/reference/asr-test_complex-70f026c.stdout
+++ /dev/null
@@ -1 +0,0 @@
-(TranslationUnit (SymbolTable 1 {_lpython_main_program: (Function (SymbolTable 104 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [check] [] [(SubroutineCall 1 check () [] ())] () Public .false. .false.), check: (Function (SymbolTable 9 {}) check (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [test_real_imag test_complex test_complex_abs test_complex_binop_32 test_complex_binop_64 test_complex_unary_minus test_complex_not] [] [(SubroutineCall 1 test_real_imag () [] ()) (SubroutineCall 1 test_complex () [] ()) (SubroutineCall 1 test_complex_abs () [] ()) (SubroutineCall 1 test_complex_binop_32 () [] ()) (SubroutineCall 1 test_complex_binop_64 () [] ()) (SubroutineCall 1 test_complex_unary_minus () [] ()) (SubroutineCall 1 test_complex_not () [] ())] () Public .false. .false.), lpython_builtin: (IntrinsicModule lpython_builtin), main_program: (Program (SymbolTable 103 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())]), test_complex: (Function (SymbolTable 3 {a: (Variable 3 a [] Local () () Default (Real 8 []) Source Public Required .false.), a2: (Variable 3 a2 [] Local () () Default (Real 4 []) Source Public Required .false.), a3: (Variable 3 a3 [] Local () () Default (Real 4 []) Source Public Required .false.), abs: (ExternalSymbol 3 abs 11 abs lpython_builtin [] abs Private), abs@__lpython_overloaded_0__abs: (ExternalSymbol 3 abs@__lpython_overloaded_0__abs 11 __lpython_overloaded_0__abs lpython_builtin [] __lpython_overloaded_0__abs Public), abs@__lpython_overloaded_1__abs: (ExternalSymbol 3 abs@__lpython_overloaded_1__abs 11 __lpython_overloaded_1__abs lpython_builtin [] __lpython_overloaded_1__abs Public), complex: (ExternalSymbol 3 complex 11 complex lpython_builtin [] complex Private), complex@__lpython_overloaded_10__complex: (ExternalSymbol 3 complex@__lpython_overloaded_10__complex 11 __lpython_overloaded_10__complex lpython_builtin [] __lpython_overloaded_10__complex Public), complex@__lpython_overloaded_11__complex: (ExternalSymbol 3 complex@__lpython_overloaded_11__complex 11 __lpython_overloaded_11__complex lpython_builtin [] __lpython_overloaded_11__complex Public), complex@__lpython_overloaded_12__complex: (ExternalSymbol 3 complex@__lpython_overloaded_12__complex 11 __lpython_overloaded_12__complex lpython_builtin [] __lpython_overloaded_12__complex Public), complex@__lpython_overloaded_13__complex: (ExternalSymbol 3 complex@__lpython_overloaded_13__complex 11 __lpython_overloaded_13__complex lpython_builtin [] __lpython_overloaded_13__complex Public), complex@__lpython_overloaded_14__complex: (ExternalSymbol 3 complex@__lpython_overloaded_14__complex 11 __lpython_overloaded_14__complex lpython_builtin [] __lpython_overloaded_14__complex Public), complex@__lpython_overloaded_5__complex: (ExternalSymbol 3 complex@__lpython_overloaded_5__complex 11 __lpython_overloaded_5__complex lpython_builtin [] __lpython_overloaded_5__complex Public), complex@__lpython_overloaded_6__complex: (ExternalSymbol 3 complex@__lpython_overloaded_6__complex 11 __lpython_overloaded_6__complex lpython_builtin [] __lpython_overloaded_6__complex Public), complex@__lpython_overloaded_7__complex: (ExternalSymbol 3 complex@__lpython_overloaded_7__complex 11 __lpython_overloaded_7__complex lpython_builtin [] __lpython_overloaded_7__complex Public), complex@__lpython_overloaded_8__complex: (ExternalSymbol 3 complex@__lpython_overloaded_8__complex 11 __lpython_overloaded_8__complex lpython_builtin [] __lpython_overloaded_8__complex Public), complex@__lpython_overloaded_9__complex: (ExternalSymbol 3 complex@__lpython_overloaded_9__complex 11 __lpython_overloaded_9__complex lpython_builtin [] __lpython_overloaded_9__complex Public), eps: (Variable 3 eps [] Local () () Default (Real 8 []) Source Public Required .false.), i1: (Variable 3 i1 [] Local () () Default (Integer 4 []) Source Public Required .false.), i2: (Variable 3 i2 [] Local () () Default (Integer 8 []) Source Public Required .false.), x: (Variable 3 x [] Local () () Default (Complex 8 []) Source Public Required .false.), x2: (Variable 3 x2 [] Local () () Default (Complex 4 []) Source Public Required .false.)}) test_complex (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [complex@__lpython_overloaded_5__complex abs@__lpython_overloaded_0__abs abs@__lpython_overloaded_0__abs complex@__lpython_overloaded_9__complex abs@__lpython_overloaded_0__abs abs@__lpython_overloaded_0__abs complex@__lpython_overloaded_13__complex abs@__lpython_overloaded_0__abs abs@__lpython_overloaded_0__abs complex@__lpython_overloaded_14__complex abs@__lpython_overloaded_0__abs abs@__lpython_overloaded_0__abs complex@__lpython_overloaded_5__complex abs@__lpython_overloaded_0__abs abs@__lpython_overloaded_0__abs complex@__lpython_overloaded_6__complex abs@__lpython_overloaded_1__abs complex@__lpython_overloaded_7__complex complex@__lpython_overloaded_8__complex complex@__lpython_overloaded_11__complex complex@__lpython_overloaded_9__complex complex@__lpython_overloaded_10__complex complex@__lpython_overloaded_12__complex] [] [(= (Var 3 x) (FunctionCall 3 complex@__lpython_overloaded_5__complex 3 complex [((RealConstant 4.500000 (Real 8 []))) ((RealConstant 6.700000 (Real 8 [])))] (Complex 8 []) (ComplexConstant 4.500000 6.700000 (Complex 8 [])) ()) ()) (= (Var 3 eps) (RealConstant 0.000000 (Real 8 [])) ()) (Assert (RealCompare (FunctionCall 3 abs@__lpython_overloaded_0__abs 3 abs [((RealBinOp (ComplexRe (Var 3 x) (Real 8 []) ()) Sub (RealConstant 4.500000 (Real 8 [])) (Real 8 []) ()))] (Real 8 []) () ()) Lt (Var 3 eps) (Logical 4 []) ()) ()) (Assert (RealCompare (FunctionCall 3 abs@__lpython_overloaded_0__abs 3 abs [((RealBinOp (ComplexIm (Var 3 x) (Real 8 []) ()) Sub (RealConstant 6.700000 (Real 8 [])) (Real 8 []) ()))] (Real 8 []) () ()) Lt (Var 3 eps) (Logical 4 []) ()) ()) (= (Var 3 x) (FunctionCall 3 complex@__lpython_overloaded_9__complex 3 complex [((IntegerUnaryMinus (IntegerConstant 4 (Integer 4 [])) (Integer 4 []) (IntegerConstant -4 (Integer 4 [])))) ((IntegerConstant 2 (Integer 4 [])))] (Complex 8 []) (ComplexConstant -4.000000 2.000000 (Complex 8 [])) ()) ()) (Assert (RealCompare (FunctionCall 3 abs@__lpython_overloaded_0__abs 3 abs [((RealBinOp (ComplexRe (Var 3 x) (Real 8 []) ()) Sub (RealUnaryMinus (RealConstant 4.000000 (Real 8 [])) (Real 8 []) (RealConstant -4.000000 (Real 8 []))) (Real 8 []) ()))] (Real 8 []) () ()) Lt (Var 3 eps) (Logical 4 []) ()) ()) (Assert (RealCompare (FunctionCall 3 abs@__lpython_overloaded_0__abs 3 abs [((RealBinOp (ComplexIm (Var 3 x) (Real 8 []) ()) Sub (RealConstant 2.000000 (Real 8 [])) (Real 8 []) ()))] (Real 8 []) () ()) Lt (Var 3 eps) (Logical 4 []) ()) ()) (= (Var 3 x) (FunctionCall 3 complex@__lpython_overloaded_13__complex 3 complex [((IntegerConstant 4 (Integer 4 []))) ((RealConstant 7.890000 (Real 8 [])))] (Complex 8 []) (ComplexConstant 4.000000 7.890000 (Complex 8 [])) ()) ()) (Assert (RealCompare (FunctionCall 3 abs@__lpython_overloaded_0__abs 3 abs [((RealBinOp (ComplexRe (Var 3 x) (Real 8 []) ()) Sub (RealConstant 4.000000 (Real 8 [])) (Real 8 []) ()))] (Real 8 []) () ()) Lt (Var 3 eps) (Logical 4 []) ()) ()) (Assert (RealCompare (FunctionCall 3 abs@__lpython_overloaded_0__abs 3 abs [((RealBinOp (ComplexIm (Var 3 x) (Real 8 []) ()) Sub (RealConstant 7.890000 (Real 8 [])) (Real 8 []) ()))] (Real 8 []) () ()) Lt (Var 3 eps) (Logical 4 []) ()) ()) (= (Var 3 x) (FunctionCall 3 complex@__lpython_overloaded_14__complex 3 complex [((RealConstant 5.600000 (Real 8 []))) ((IntegerConstant 0 (Integer 4 [])))] (Complex 8 []) (ComplexConstant 5.600000 0.000000 (Complex 8 [])) ()) ()) (Assert (RealCompare (FunctionCall 3 abs@__lpython_overloaded_0__abs 3 abs [((RealBinOp (ComplexRe (Var 3 x) (Real 8 []) ()) Sub (RealConstant 5.600000 (Real 8 [])) (Real 8 []) ()))] (Real 8 []) () ()) Lt (Var 3 eps) (Logical 4 []) ()) ()) (Assert (RealCompare (FunctionCall 3 abs@__lpython_overloaded_0__abs 3 abs [((RealBinOp (ComplexIm (Var 3 x) (Real 8 []) ()) Sub (RealConstant 0.000000 (Real 8 [])) (Real 8 []) ()))] (Real 8 []) () ()) Lt (Var 3 eps) (Logical 4 []) ()) ()) (= (Var 3 a) (RealConstant 534.600000 (Real 8 [])) ()) (= (Var 3 x) (FunctionCall 3 complex@__lpython_overloaded_5__complex 3 complex [((Var 3 a)) ((RealUnaryMinus (Var 3 a) (Real 8 []) ()))] (Complex 8 []) () ()) ()) (Assert (RealCompare (FunctionCall 3 abs@__lpython_overloaded_0__abs 3 abs [((RealBinOp (ComplexRe (Var 3 x) (Real 8 []) ()) Sub (RealConstant 534.600000 (Real 8 [])) (Real 8 []) ()))] (Real 8 []) () ()) Lt (Var 3 eps) (Logical 4 []) ()) ()) (Assert (RealCompare (FunctionCall 3 abs@__lpython_overloaded_0__abs 3 abs [((RealBinOp (ComplexIm (Var 3 x) (Real 8 []) ()) Sub (RealUnaryMinus (RealConstant 534.600000 (Real 8 [])) (Real 8 []) (RealConstant -534.600000 (Real 8 []))) (Real 8 []) ()))] (Real 8 []) () ()) Lt (Var 3 eps) (Logical 4 []) ()) ()) (= (Var 3 a2) (RealUnaryMinus (Cast (RealConstant 423.543081 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 423.543081 (Real 4 []))) (Real 4 []) (RealConstant -423.543081 (Real 4 []))) ()) (= (Var 3 a3) (Cast (RealConstant 34.500000 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 34.500000 (Real 4 []))) ()) (= (Var 3 x2) (FunctionCall 3 complex@__lpython_overloaded_6__complex 3 complex [((Var 3 a2)) ((Var 3 a3))] (Complex 4 []) () ()) ()) (Assert (RealCompare (Cast (FunctionCall 3 abs@__lpython_overloaded_1__abs 3 abs [((RealBinOp (ComplexIm (Var 3 x2) (Real 4 []) ()) Sub (Cast (RealConstant 34.500000 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 34.500000 (Real 4 []))) (Real 4 []) ()))] (Real 4 []) () ()) RealToReal (Real 8 []) ()) Lt (Var 3 eps) (Logical 4 []) ()) ()) (= (Var 3 i1) (IntegerUnaryMinus (IntegerConstant 5 (Integer 4 [])) (Integer 4 []) (IntegerConstant -5 (Integer 4 []))) ()) (= (Var 3 i2) (IntegerUnaryMinus (Cast (IntegerConstant 6 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 6 (Integer 8 []))) (Integer 8 []) (IntegerConstant -6 (Integer 8 []))) ()) (= (Var 3 x) (FunctionCall 3 complex@__lpython_overloaded_7__complex 3 complex [((Var 3 a3)) ((Var 3 a))] (Complex 8 []) () ()) ()) (= (Var 3 x) (FunctionCall 3 complex@__lpython_overloaded_8__complex 3 complex [((Var 3 a)) ((Var 3 a3))] (Complex 8 []) () ()) ()) (= (Var 3 x) (FunctionCall 3 complex@__lpython_overloaded_11__complex 3 complex [((Var 3 i1)) ((Var 3 i2))] (Complex 8 []) () ()) ()) (= (Var 3 x) (FunctionCall 3 complex@__lpython_overloaded_9__complex 3 complex [((Var 3 i1)) ((IntegerUnaryMinus (Var 3 i1) (Integer 4 []) ()))] (Complex 8 []) () ()) ()) (= (Var 3 x) (FunctionCall 3 complex@__lpython_overloaded_10__complex 3 complex [((IntegerUnaryMinus (Var 3 i2) (Integer 8 []) ())) ((IntegerUnaryMinus (Var 3 i2) (Integer 8 []) ()))] (Complex 8 []) () ()) ()) (= (Var 3 x) (FunctionCall 3 complex@__lpython_overloaded_12__complex 3 complex [((Var 3 i2)) ((IntegerUnaryMinus (Var 3 i1) (Integer 4 []) ()))] (Complex 8 []) () ()) ())] () Public .false. .false.), test_complex_abs: (Function (SymbolTable 4 {abs: (ExternalSymbol 4 abs 11 abs lpython_builtin [] abs Private), abs@__lpython_overloaded_0__abs: (ExternalSymbol 4 abs@__lpython_overloaded_0__abs 11 __lpython_overloaded_0__abs lpython_builtin [] __lpython_overloaded_0__abs Public), abs@__lpython_overloaded_7__abs: (ExternalSymbol 4 abs@__lpython_overloaded_7__abs 11 __lpython_overloaded_7__abs lpython_builtin [] __lpython_overloaded_7__abs Public), abs@__lpython_overloaded_8__abs: (ExternalSymbol 4 abs@__lpython_overloaded_8__abs 11 __lpython_overloaded_8__abs lpython_builtin [] __lpython_overloaded_8__abs Public), complex: (ExternalSymbol 4 complex 11 complex lpython_builtin [] complex Private), complex@__lpython_overloaded_9__complex: (ExternalSymbol 4 complex@__lpython_overloaded_9__complex 11 __lpython_overloaded_9__complex lpython_builtin [] __lpython_overloaded_9__complex Public), eps: (Variable 4 eps [] Local () () Default (Real 8 []) Source Public Required .false.), x: (Variable 4 x [] Local () () Default (Complex 4 []) Source Public Required .false.), y: (Variable 4 y [] Local () () Default (Complex 8 []) Source Public Required .false.)}) test_complex_abs (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [complex@__lpython_overloaded_9__complex abs@__lpython_overloaded_0__abs abs@__lpython_overloaded_7__abs complex@__lpython_overloaded_9__complex abs@__lpython_overloaded_0__abs abs@__lpython_overloaded_8__abs] [] [(= (Var 4 x) (Cast (FunctionCall 4 complex@__lpython_overloaded_9__complex 4 complex [((IntegerConstant 3 (Integer 4 []))) ((IntegerConstant 4 (Integer 4 [])))] (Complex 8 []) (ComplexConstant 3.000000 4.000000 (Complex 8 [])) ()) ComplexToComplex (Complex 4 []) (ComplexConstant 3.000000 4.000000 (Complex 4 []))) ()) (= (Var 4 eps) (RealConstant 0.000000 (Real 8 [])) ()) (Assert (RealCompare (FunctionCall 4 abs@__lpython_overloaded_0__abs 4 abs [((RealBinOp (Cast (FunctionCall 4 abs@__lpython_overloaded_7__abs 4 abs [((Var 4 x))] (Real 4 []) () ()) RealToReal (Real 8 []) ()) Sub (RealConstant 5.000000 (Real 8 [])) (Real 8 []) ()))] (Real 8 []) () ()) Lt (Var 4 eps) (Logical 4 []) ()) ()) (= (Var 4 y) (FunctionCall 4 complex@__lpython_overloaded_9__complex 4 complex [((IntegerConstant 6 (Integer 4 []))) ((IntegerConstant 8 (Integer 4 [])))] (Complex 8 []) (ComplexConstant 6.000000 8.000000 (Complex 8 [])) ()) ()) (Assert (RealCompare (FunctionCall 4 abs@__lpython_overloaded_0__abs 4 abs [((RealBinOp (FunctionCall 4 abs@__lpython_overloaded_8__abs 4 abs [((Var 4 y))] (Real 8 []) () ()) Sub (RealConstant 10.000000 (Real 8 [])) (Real 8 []) ()))] (Real 8 []) () ()) Lt (Var 4 eps) (Logical 4 []) ()) ())] () Public .false. .false.), test_complex_binop_32: (Function (SymbolTable 5 {x: (Variable 5 x [] Local () () Default (Complex 4 []) Source Public Required .false.), y: (Variable 5 y [] Local () () Default (Complex 4 []) Source Public Required .false.), z: (Variable 5 z [] Local () () Default (Complex 4 []) Source Public Required .false.)}) test_complex_binop_32 (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [] [(= (Var 5 x) (Cast (ComplexBinOp (Cast (IntegerConstant 2 (Integer 4 [])) IntegerToComplex (Complex 8 []) (ComplexConstant 2.000000 0.000000 (Complex 8 []))) Add (ComplexConstant 0.000000 3.000000 (Complex 8 [])) (Complex 8 []) (ComplexConstant 2.000000 3.000000 (Complex 8 []))) ComplexToComplex (Complex 4 []) (ComplexConstant 2.000000 3.000000 (Complex 4 []))) ()) (= (Var 5 y) (Cast (ComplexBinOp (Cast (IntegerConstant 4 (Integer 4 [])) IntegerToComplex (Complex 8 []) (ComplexConstant 4.000000 0.000000 (Complex 8 []))) Add (ComplexConstant 0.000000 5.000000 (Complex 8 [])) (Complex 8 []) (ComplexConstant 4.000000 5.000000 (Complex 8 []))) ComplexToComplex (Complex 4 []) (ComplexConstant 4.000000 5.000000 (Complex 4 []))) ()) (= (Var 5 z) (ComplexBinOp (Var 5 x) Add (Var 5 y) (Complex 4 []) ()) ()) (= (Var 5 z) (ComplexBinOp (Var 5 x) Sub (Var 5 y) (Complex 4 []) ()) ()) (= (Var 5 z) (ComplexBinOp (Var 5 x) Mul (Var 5 y) (Complex 4 []) ()) ()) (= (Var 5 z) (ComplexBinOp (Var 5 x) Pow (Var 5 y) (Complex 4 []) ()) ())] () Public .false. .false.), test_complex_binop_64: (Function (SymbolTable 6 {x: (Variable 6 x [] Local () () Default (Complex 8 []) Source Public Required .false.), y: (Variable 6 y [] Local () () Default (Complex 8 []) Source Public Required .false.), z: (Variable 6 z [] Local () () Default (Complex 8 []) Source Public Required .false.)}) test_complex_binop_64 (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [] [(= (Var 6 x) (ComplexBinOp (Cast (IntegerConstant 2 (Integer 4 [])) IntegerToComplex (Complex 8 []) (ComplexConstant 2.000000 0.000000 (Complex 8 []))) Add (ComplexConstant 0.000000 3.000000 (Complex 8 [])) (Complex 8 []) (ComplexConstant 2.000000 3.000000 (Complex 8 []))) ()) (= (Var 6 y) (ComplexBinOp (Cast (IntegerConstant 4 (Integer 4 [])) IntegerToComplex (Complex 8 []) (ComplexConstant 4.000000 0.000000 (Complex 8 []))) Add (ComplexConstant 0.000000 5.000000 (Complex 8 [])) (Complex 8 []) (ComplexConstant 4.000000 5.000000 (Complex 8 []))) ()) (= (Var 6 z) (ComplexBinOp (Var 6 x) Add (Var 6 y) (Complex 8 []) ()) ()) (= (Var 6 z) (ComplexBinOp (Var 6 x) Sub (Var 6 y) (Complex 8 []) ()) ()) (= (Var 6 z) (ComplexBinOp (Var 6 x) Mul (Var 6 y) (Complex 8 []) ()) ()) (= (Var 6 z) (ComplexBinOp (Var 6 x) Pow (Var 6 y) (Complex 8 []) ()) ())] () Public .false. .false.), test_complex_not: (Function (SymbolTable 8 {b: (Variable 8 b [] Local () () Default (Logical 4 []) Source Public Required .false.), c: (Variable 8 c [] Local () () Default (Complex 4 []) Source Public Required .false.), c2: (Variable 8 c2 [] Local () () Default (Complex 8 []) Source Public Required .false.), complex: (ExternalSymbol 8 complex 11 complex lpython_builtin [] complex Private), complex@__lpython_overloaded_9__complex: (ExternalSymbol 8 complex@__lpython_overloaded_9__complex 11 __lpython_overloaded_9__complex lpython_builtin [] __lpython_overloaded_9__complex Public)}) test_complex_not (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [complex@__lpython_overloaded_9__complex complex@__lpython_overloaded_9__complex] [] [(= (Var 8 c) (Cast (FunctionCall 8 complex@__lpython_overloaded_9__complex 8 complex [((IntegerConstant 4 (Integer 4 []))) ((IntegerConstant 5 (Integer 4 [])))] (Complex 8 []) (ComplexConstant 4.000000 5.000000 (Complex 8 [])) ()) ComplexToComplex (Complex 4 []) (ComplexConstant 4.000000 5.000000 (Complex 4 []))) ()) (= (Var 8 b) (LogicalNot (Cast (Var 8 c) ComplexToLogical (Logical 4 []) ()) (Logical 4 []) ()) ()) (Assert (LogicalNot (Var 8 b) (Logical 4 []) ()) ()) (= (Var 8 c2) (FunctionCall 8 complex@__lpython_overloaded_9__complex 8 complex [((IntegerConstant 0 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])))] (Complex 8 []) (ComplexConstant 0.000000 0.000000 (Complex 8 [])) ()) ()) (= (Var 8 b) (LogicalNot (Cast (Var 8 c2) ComplexToLogical (Logical 4 []) ()) (Logical 4 []) ()) ()) (Assert (Var 8 b) ())] () Public .false. .false.), test_complex_unary_minus: (Function (SymbolTable 7 {_c: (Variable 7 _c [] Local () () Default (Complex 4 []) Source Public Required .false.), abs: (ExternalSymbol 7 abs 11 abs lpython_builtin [] abs Private), abs@__lpython_overloaded_0__abs: (ExternalSymbol 7 abs@__lpython_overloaded_0__abs 11 __lpython_overloaded_0__abs lpython_builtin [] __lpython_overloaded_0__abs Public), c: (Variable 7 c [] Local () () Default (Complex 4 []) Source Public Required .false.), c2: (Variable 7 c2 [] Local () () Default (Complex 8 []) Source Public Required .false.), complex: (ExternalSymbol 7 complex 11 complex lpython_builtin [] complex Private), complex@__lpython_overloaded_13__complex: (ExternalSymbol 7 complex@__lpython_overloaded_13__complex 11 __lpython_overloaded_13__complex lpython_builtin [] __lpython_overloaded_13__complex Public), complex@__lpython_overloaded_5__complex: (ExternalSymbol 7 complex@__lpython_overloaded_5__complex 11 __lpython_overloaded_5__complex lpython_builtin [] __lpython_overloaded_5__complex Public), complex@__lpython_overloaded_9__complex: (ExternalSymbol 7 complex@__lpython_overloaded_9__complex 11 __lpython_overloaded_9__complex lpython_builtin [] __lpython_overloaded_9__complex Public)}) test_complex_unary_minus (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [complex@__lpython_overloaded_13__complex abs@__lpython_overloaded_0__abs abs@__lpython_overloaded_0__abs complex@__lpython_overloaded_9__complex abs@__lpython_overloaded_0__abs abs@__lpython_overloaded_0__abs complex@__lpython_overloaded_5__complex abs@__lpython_overloaded_0__abs abs@__lpython_overloaded_0__abs abs@__lpython_overloaded_0__abs abs@__lpython_overloaded_0__abs] [] [(= (Var 7 c) (Cast (FunctionCall 7 complex@__lpython_overloaded_13__complex 7 complex [((IntegerConstant 3 (Integer 4 []))) ((RealConstant 4.500000 (Real 8 [])))] (Complex 8 []) (ComplexConstant 3.000000 4.500000 (Complex 8 [])) ()) ComplexToComplex (Complex 4 []) (ComplexConstant 3.000000 4.500000 (Complex 4 []))) ()) (= (Var 7 _c) (ComplexUnaryMinus (Var 7 c) (Complex 4 []) ()) ()) (Assert (RealCompare (FunctionCall 7 abs@__lpython_overloaded_0__abs 7 abs [((RealBinOp (Cast (ComplexRe (Var 7 _c) (Real 4 []) ()) RealToReal (Real 8 []) ()) Sub (RealUnaryMinus (RealConstant 3.000000 (Real 8 [])) (Real 8 []) (RealConstant -3.000000 (Real 8 []))) (Real 8 []) ()))] (Real 8 []) () ()) Lt (RealConstant 0.000000 (Real 8 [])) (Logical 4 []) ()) ()) (Assert (RealCompare (FunctionCall 7 abs@__lpython_overloaded_0__abs 7 abs [((RealBinOp (Cast (ComplexIm (Var 7 _c) (Real 4 []) ()) RealToReal (Real 8 []) ()) Sub (RealUnaryMinus (RealConstant 4.500000 (Real 8 [])) (Real 8 []) (RealConstant -4.500000 (Real 8 []))) (Real 8 []) ()))] (Real 8 []) () ()) Lt (RealConstant 0.000000 (Real 8 [])) (Logical 4 []) ()) ()) (= (Var 7 _c) (Cast (FunctionCall 7 complex@__lpython_overloaded_9__complex 7 complex [((IntegerConstant 5 (Integer 4 []))) ((IntegerUnaryMinus (IntegerConstant 78 (Integer 4 [])) (Integer 4 []) (IntegerConstant -78 (Integer 4 []))))] (Complex 8 []) (ComplexConstant 5.000000 -78.000000 (Complex 8 [])) ()) ComplexToComplex (Complex 4 []) (ComplexConstant 5.000000 -78.000000 (Complex 4 []))) ()) (= (Var 7 _c) (ComplexUnaryMinus (Var 7 _c) (Complex 4 []) ()) ()) (Assert (RealCompare (FunctionCall 7 abs@__lpython_overloaded_0__abs 7 abs [((RealBinOp (Cast (ComplexRe (Var 7 _c) (Real 4 []) ()) RealToReal (Real 8 []) ()) Sub (RealUnaryMinus (RealConstant 5.000000 (Real 8 [])) (Real 8 []) (RealConstant -5.000000 (Real 8 []))) (Real 8 []) ()))] (Real 8 []) () ()) Lt (RealConstant 0.000000 (Real 8 [])) (Logical 4 []) ()) ()) (Assert (RealCompare (FunctionCall 7 abs@__lpython_overloaded_0__abs 7 abs [((RealBinOp (Cast (ComplexIm (Var 7 _c) (Real 4 []) ()) RealToReal (Real 8 []) ()) Sub (RealConstant 78.000000 (Real 8 [])) (Real 8 []) ()))] (Real 8 []) () ()) Lt (RealConstant 0.000000 (Real 8 [])) (Logical 4 []) ()) ()) (= (Var 7 c2) (FunctionCall 7 complex@__lpython_overloaded_5__complex 7 complex [((RealUnaryMinus (RealConstant 4.500000 (Real 8 [])) (Real 8 []) (RealConstant -4.500000 (Real 8 [])))) ((RealUnaryMinus (RealConstant 7.800000 (Real 8 [])) (Real 8 []) (RealConstant -7.800000 (Real 8 []))))] (Complex 8 []) (ComplexConstant -4.500000 -7.800000 (Complex 8 [])) ()) ()) (= (Var 7 c2) (ComplexUnaryMinus (Var 7 c2) (Complex 8 []) ()) ()) (Assert (RealCompare (FunctionCall 7 abs@__lpython_overloaded_0__abs 7 abs [((RealBinOp (ComplexRe (Var 7 c2) (Real 8 []) ()) Sub (RealConstant 4.500000 (Real 8 [])) (Real 8 []) ()))] (Real 8 []) () ()) Lt (RealConstant 0.000000 (Real 8 [])) (Logical 4 []) ()) ()) (Assert (RealCompare (FunctionCall 7 abs@__lpython_overloaded_0__abs 7 abs [((RealBinOp (ComplexIm (Var 7 c2) (Real 8 []) ()) Sub (RealConstant 7.800000 (Real 8 [])) (Real 8 []) ()))] (Real 8 []) () ()) Lt (RealConstant 0.000000 (Real 8 [])) (Logical 4 []) ()) ()) (= (Var 7 c2) (ComplexBinOp (Cast (IntegerConstant 3 (Integer 4 [])) IntegerToComplex (Complex 8 []) (ComplexConstant 3.000000 0.000000 (Complex 8 []))) Add (ComplexConstant 0.000000 4.000000 (Complex 8 [])) (Complex 8 []) (ComplexConstant 3.000000 4.000000 (Complex 8 []))) ()) (= (Var 7 c2) (ComplexUnaryMinus (Var 7 c2) (Complex 8 []) ()) ()) (Assert (RealCompare (FunctionCall 7 abs@__lpython_overloaded_0__abs 7 abs [((RealBinOp (ComplexRe (Var 7 c2) (Real 8 []) ()) Sub (RealUnaryMinus (RealConstant 3.000000 (Real 8 [])) (Real 8 []) (RealConstant -3.000000 (Real 8 []))) (Real 8 []) ()))] (Real 8 []) () ()) Lt (RealConstant 0.000000 (Real 8 [])) (Logical 4 []) ()) ()) (Assert (RealCompare (FunctionCall 7 abs@__lpython_overloaded_0__abs 7 abs [((RealBinOp (ComplexIm (Var 7 c2) (Real 8 []) ()) Sub (RealUnaryMinus (RealConstant 4.000000 (Real 8 [])) (Real 8 []) (RealConstant -4.000000 (Real 8 []))) (Real 8 []) ()))] (Real 8 []) () ()) Lt (RealConstant 0.000000 (Real 8 [])) (Logical 4 []) ()) ())] () Public .false. .false.), test_real_imag: (Function (SymbolTable 2 {a: (Variable 2 a [] Local () () Default (Real 8 []) Source Public Required .false.), abs: (ExternalSymbol 2 abs 11 abs lpython_builtin [] abs Private), abs@__lpython_overloaded_0__abs: (ExternalSymbol 2 abs@__lpython_overloaded_0__abs 11 __lpython_overloaded_0__abs lpython_builtin [] __lpython_overloaded_0__abs Public), b: (Variable 2 b [] Local () () Default (Real 8 []) Source Public Required .false.), eps: (Variable 2 eps [] Local () () Default (Real 8 []) Source Public Required .false.), x: (Variable 2 x [] Local () () Default (Complex 8 []) Source Public Required .false.)}) test_real_imag (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [abs@__lpython_overloaded_0__abs abs@__lpython_overloaded_0__abs] [] [(= (Var 2 x) (ComplexBinOp (Cast (IntegerConstant 2 (Integer 4 [])) IntegerToComplex (Complex 8 []) (ComplexConstant 2.000000 0.000000 (Complex 8 []))) Add (ComplexConstant 0.000000 3.000000 (Complex 8 [])) (Complex 8 []) (ComplexConstant 2.000000 3.000000 (Complex 8 []))) ()) (= (Var 2 eps) (RealConstant 0.000000 (Real 8 [])) ()) (= (Var 2 a) (ComplexRe (Var 2 x) (Real 8 []) ()) ()) (= (Var 2 b) (ComplexIm (Var 2 x) (Real 8 []) ()) ()) (Assert (RealCompare (FunctionCall 2 abs@__lpython_overloaded_0__abs 2 abs [((RealBinOp (Var 2 a) Sub (RealConstant 2.000000 (Real 8 [])) (Real 8 []) ()))] (Real 8 []) () ()) Lt (Var 2 eps) (Logical 4 []) ()) ()) (Assert (RealCompare (FunctionCall 2 abs@__lpython_overloaded_0__abs 2 abs [((RealBinOp (Var 2 b) Sub (RealConstant 3.000000 (Real 8 [])) (Real 8 []) ()))] (Real 8 []) () ()) Lt (Var 2 eps) (Logical 4 []) ()) ())] () Public .false. .false.)}) [])
diff --git a/tests/reference/asr-test_complex_01-a6def58.json b/tests/reference/asr-test_complex_01-a6def58.json
new file mode 100644
index 0000000000..1e70c6835b
--- /dev/null
+++ b/tests/reference/asr-test_complex_01-a6def58.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-test_complex_01-a6def58",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/../integration_tests/test_complex_01.py",
+    "infile_hash": "e580480b37e5bbfcd01d5eb412375a8a3c1ef374b5fedfb661485763",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": "asr-test_complex_01-a6def58.stdout",
+    "stdout_hash": "04fdaf2bc02a55e4bd933d02f6cdad5cf8031a14a774f0283ff7ffbf",
+    "stderr": null,
+    "stderr_hash": null,
+    "returncode": 0
+}
\ No newline at end of file
diff --git a/tests/reference/asr-test_complex_01-a6def58.stdout b/tests/reference/asr-test_complex_01-a6def58.stdout
new file mode 100644
index 0000000000..7ea810b735
--- /dev/null
+++ b/tests/reference/asr-test_complex_01-a6def58.stdout
@@ -0,0 +1,2168 @@
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            __main__global_stmts:
+                                (Function
+                                    (SymbolTable
+                                        145
+                                        {
+                                            
+                                        })
+                                    __main__global_stmts
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [check]
+                                    []
+                                    [(SubroutineCall
+                                        2 check
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            check:
+                                (Function
+                                    (SymbolTable
+                                        7
+                                        {
+                                            
+                                        })
+                                    check
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [test_real_imag
+                                    test_complex
+                                    test_complex_unary_minus
+                                    test_complex_not]
+                                    []
+                                    [(SubroutineCall
+                                        2 test_real_imag
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )
+                                    (SubroutineCall
+                                        2 test_complex
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )
+                                    (SubroutineCall
+                                        2 test_complex_unary_minus
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )
+                                    (SubroutineCall
+                                        2 test_complex_not
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            test_complex:
+                                (Function
+                                    (SymbolTable
+                                        4
+                                        {
+                                            a:
+                                                (Variable
+                                                    4
+                                                    a
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            a2:
+                                                (Variable
+                                                    4
+                                                    a2
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            a3:
+                                                (Variable
+                                                    4
+                                                    a3
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            complex:
+                                                (ExternalSymbol
+                                                    4
+                                                    complex
+                                                    8 complex
+                                                    lpython_builtin
+                                                    []
+                                                    complex
+                                                    Private
+                                                ),
+                                            complex@__lpython_overloaded_10__complex:
+                                                (ExternalSymbol
+                                                    4
+                                                    complex@__lpython_overloaded_10__complex
+                                                    8 __lpython_overloaded_10__complex
+                                                    lpython_builtin
+                                                    []
+                                                    __lpython_overloaded_10__complex
+                                                    Public
+                                                ),
+                                            complex@__lpython_overloaded_11__complex:
+                                                (ExternalSymbol
+                                                    4
+                                                    complex@__lpython_overloaded_11__complex
+                                                    8 __lpython_overloaded_11__complex
+                                                    lpython_builtin
+                                                    []
+                                                    __lpython_overloaded_11__complex
+                                                    Public
+                                                ),
+                                            complex@__lpython_overloaded_12__complex:
+                                                (ExternalSymbol
+                                                    4
+                                                    complex@__lpython_overloaded_12__complex
+                                                    8 __lpython_overloaded_12__complex
+                                                    lpython_builtin
+                                                    []
+                                                    __lpython_overloaded_12__complex
+                                                    Public
+                                                ),
+                                            complex@__lpython_overloaded_13__complex:
+                                                (ExternalSymbol
+                                                    4
+                                                    complex@__lpython_overloaded_13__complex
+                                                    8 __lpython_overloaded_13__complex
+                                                    lpython_builtin
+                                                    []
+                                                    __lpython_overloaded_13__complex
+                                                    Public
+                                                ),
+                                            complex@__lpython_overloaded_14__complex:
+                                                (ExternalSymbol
+                                                    4
+                                                    complex@__lpython_overloaded_14__complex
+                                                    8 __lpython_overloaded_14__complex
+                                                    lpython_builtin
+                                                    []
+                                                    __lpython_overloaded_14__complex
+                                                    Public
+                                                ),
+                                            complex@__lpython_overloaded_5__complex:
+                                                (ExternalSymbol
+                                                    4
+                                                    complex@__lpython_overloaded_5__complex
+                                                    8 __lpython_overloaded_5__complex
+                                                    lpython_builtin
+                                                    []
+                                                    __lpython_overloaded_5__complex
+                                                    Public
+                                                ),
+                                            complex@__lpython_overloaded_6__complex:
+                                                (ExternalSymbol
+                                                    4
+                                                    complex@__lpython_overloaded_6__complex
+                                                    8 __lpython_overloaded_6__complex
+                                                    lpython_builtin
+                                                    []
+                                                    __lpython_overloaded_6__complex
+                                                    Public
+                                                ),
+                                            complex@__lpython_overloaded_7__complex:
+                                                (ExternalSymbol
+                                                    4
+                                                    complex@__lpython_overloaded_7__complex
+                                                    8 __lpython_overloaded_7__complex
+                                                    lpython_builtin
+                                                    []
+                                                    __lpython_overloaded_7__complex
+                                                    Public
+                                                ),
+                                            complex@__lpython_overloaded_8__complex:
+                                                (ExternalSymbol
+                                                    4
+                                                    complex@__lpython_overloaded_8__complex
+                                                    8 __lpython_overloaded_8__complex
+                                                    lpython_builtin
+                                                    []
+                                                    __lpython_overloaded_8__complex
+                                                    Public
+                                                ),
+                                            complex@__lpython_overloaded_9__complex:
+                                                (ExternalSymbol
+                                                    4
+                                                    complex@__lpython_overloaded_9__complex
+                                                    8 __lpython_overloaded_9__complex
+                                                    lpython_builtin
+                                                    []
+                                                    __lpython_overloaded_9__complex
+                                                    Public
+                                                ),
+                                            eps:
+                                                (Variable
+                                                    4
+                                                    eps
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            i1:
+                                                (Variable
+                                                    4
+                                                    i1
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            i2:
+                                                (Variable
+                                                    4
+                                                    i2
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            x:
+                                                (Variable
+                                                    4
+                                                    x
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Complex 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            x2:
+                                                (Variable
+                                                    4
+                                                    x2
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Complex 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test_complex
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 4 x)
+                                        (FunctionCall
+                                            4 complex@__lpython_overloaded_5__complex
+                                            4 complex
+                                            [((RealConstant
+                                                4.500000
+                                                (Real 8)
+                                            ))
+                                            ((RealConstant
+                                                6.700000
+                                                (Real 8)
+                                            ))]
+                                            (Complex 8)
+                                            (ComplexConstant
+                                                4.500000
+                                                6.700000
+                                                (Complex 8)
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 eps)
+                                        (RealConstant
+                                            0.000000
+                                            (Real 8)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealBinOp
+                                                    (ComplexRe
+                                                        (Var 4 x)
+                                                        (Real 8)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (RealConstant
+                                                        4.500000
+                                                        (Real 8)
+                                                    )
+                                                    (Real 8)
+                                                    ()
+                                                )]
+                                                0
+                                                (Real 8)
+                                                ()
+                                            )
+                                            LtE
+                                            (Var 4 eps)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealBinOp
+                                                    (ComplexIm
+                                                        (Var 4 x)
+                                                        (Real 8)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (RealConstant
+                                                        6.700000
+                                                        (Real 8)
+                                                    )
+                                                    (Real 8)
+                                                    ()
+                                                )]
+                                                0
+                                                (Real 8)
+                                                ()
+                                            )
+                                            LtE
+                                            (Var 4 eps)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 4 x)
+                                        (FunctionCall
+                                            4 complex@__lpython_overloaded_9__complex
+                                            4 complex
+                                            [((IntegerUnaryMinus
+                                                (IntegerConstant 4 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                (IntegerConstant -4 (Integer 4) Decimal)
+                                            ))
+                                            ((IntegerConstant 2 (Integer 4) Decimal))]
+                                            (Complex 8)
+                                            (ComplexConstant
+                                                -4.000000
+                                                2.000000
+                                                (Complex 8)
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealBinOp
+                                                    (ComplexRe
+                                                        (Var 4 x)
+                                                        (Real 8)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (RealUnaryMinus
+                                                        (RealConstant
+                                                            4.000000
+                                                            (Real 8)
+                                                        )
+                                                        (Real 8)
+                                                        (RealConstant
+                                                            -4.000000
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                    (Real 8)
+                                                    ()
+                                                )]
+                                                0
+                                                (Real 8)
+                                                ()
+                                            )
+                                            LtE
+                                            (Var 4 eps)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealBinOp
+                                                    (ComplexIm
+                                                        (Var 4 x)
+                                                        (Real 8)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (RealConstant
+                                                        2.000000
+                                                        (Real 8)
+                                                    )
+                                                    (Real 8)
+                                                    ()
+                                                )]
+                                                0
+                                                (Real 8)
+                                                ()
+                                            )
+                                            LtE
+                                            (Var 4 eps)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 4 x)
+                                        (FunctionCall
+                                            4 complex@__lpython_overloaded_13__complex
+                                            4 complex
+                                            [((IntegerConstant 4 (Integer 4) Decimal))
+                                            ((RealConstant
+                                                7.890000
+                                                (Real 8)
+                                            ))]
+                                            (Complex 8)
+                                            (ComplexConstant
+                                                4.000000
+                                                7.890000
+                                                (Complex 8)
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealBinOp
+                                                    (ComplexRe
+                                                        (Var 4 x)
+                                                        (Real 8)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (RealConstant
+                                                        4.000000
+                                                        (Real 8)
+                                                    )
+                                                    (Real 8)
+                                                    ()
+                                                )]
+                                                0
+                                                (Real 8)
+                                                ()
+                                            )
+                                            LtE
+                                            (Var 4 eps)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealBinOp
+                                                    (ComplexIm
+                                                        (Var 4 x)
+                                                        (Real 8)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (RealConstant
+                                                        7.890000
+                                                        (Real 8)
+                                                    )
+                                                    (Real 8)
+                                                    ()
+                                                )]
+                                                0
+                                                (Real 8)
+                                                ()
+                                            )
+                                            LtE
+                                            (Var 4 eps)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 4 x)
+                                        (FunctionCall
+                                            4 complex@__lpython_overloaded_14__complex
+                                            4 complex
+                                            [((RealConstant
+                                                5.600000
+                                                (Real 8)
+                                            ))
+                                            ((IntegerConstant 0 (Integer 4) Decimal))]
+                                            (Complex 8)
+                                            (ComplexConstant
+                                                5.600000
+                                                0.000000
+                                                (Complex 8)
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealBinOp
+                                                    (ComplexRe
+                                                        (Var 4 x)
+                                                        (Real 8)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (RealConstant
+                                                        5.600000
+                                                        (Real 8)
+                                                    )
+                                                    (Real 8)
+                                                    ()
+                                                )]
+                                                0
+                                                (Real 8)
+                                                ()
+                                            )
+                                            LtE
+                                            (Var 4 eps)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealBinOp
+                                                    (ComplexIm
+                                                        (Var 4 x)
+                                                        (Real 8)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (RealConstant
+                                                        0.000000
+                                                        (Real 8)
+                                                    )
+                                                    (Real 8)
+                                                    ()
+                                                )]
+                                                0
+                                                (Real 8)
+                                                ()
+                                            )
+                                            LtE
+                                            (Var 4 eps)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 4 a)
+                                        (RealConstant
+                                            534.600000
+                                            (Real 8)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 x)
+                                        (FunctionCall
+                                            4 complex@__lpython_overloaded_5__complex
+                                            4 complex
+                                            [((Var 4 a))
+                                            ((RealUnaryMinus
+                                                (Var 4 a)
+                                                (Real 8)
+                                                ()
+                                            ))]
+                                            (Complex 8)
+                                            ()
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealBinOp
+                                                    (ComplexRe
+                                                        (Var 4 x)
+                                                        (Real 8)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (RealConstant
+                                                        534.600000
+                                                        (Real 8)
+                                                    )
+                                                    (Real 8)
+                                                    ()
+                                                )]
+                                                0
+                                                (Real 8)
+                                                ()
+                                            )
+                                            LtE
+                                            (Var 4 eps)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealBinOp
+                                                    (ComplexIm
+                                                        (Var 4 x)
+                                                        (Real 8)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (RealUnaryMinus
+                                                        (RealConstant
+                                                            534.600000
+                                                            (Real 8)
+                                                        )
+                                                        (Real 8)
+                                                        (RealConstant
+                                                            -534.600000
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                    (Real 8)
+                                                    ()
+                                                )]
+                                                0
+                                                (Real 8)
+                                                ()
+                                            )
+                                            LtE
+                                            (Var 4 eps)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 4 a2)
+                                        (RealUnaryMinus
+                                            (Cast
+                                                (RealConstant
+                                                    423.543081
+                                                    (Real 8)
+                                                )
+                                                RealToReal
+                                                (Real 4)
+                                                (RealConstant
+                                                    423.543081
+                                                    (Real 4)
+                                                )
+                                            )
+                                            (Real 4)
+                                            (RealConstant
+                                                -423.543081
+                                                (Real 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 a3)
+                                        (Cast
+                                            (RealConstant
+                                                34.500000
+                                                (Real 8)
+                                            )
+                                            RealToReal
+                                            (Real 4)
+                                            (RealConstant
+                                                34.500000
+                                                (Real 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 x2)
+                                        (FunctionCall
+                                            4 complex@__lpython_overloaded_6__complex
+                                            4 complex
+                                            [((Var 4 a2))
+                                            ((Var 4 a3))]
+                                            (Complex 4)
+                                            ()
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (Cast
+                                                (IntrinsicElementalFunction
+                                                    Abs
+                                                    [(RealBinOp
+                                                        (ComplexIm
+                                                            (Var 4 x2)
+                                                            (Real 4)
+                                                            ()
+                                                        )
+                                                        Sub
+                                                        (Cast
+                                                            (RealConstant
+                                                                34.500000
+                                                                (Real 8)
+                                                            )
+                                                            RealToReal
+                                                            (Real 4)
+                                                            (RealConstant
+                                                                34.500000
+                                                                (Real 4)
+                                                            )
+                                                        )
+                                                        (Real 4)
+                                                        ()
+                                                    )]
+                                                    0
+                                                    (Real 4)
+                                                    ()
+                                                )
+                                                RealToReal
+                                                (Real 8)
+                                                ()
+                                            )
+                                            LtE
+                                            (Var 4 eps)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 4 i1)
+                                        (IntegerUnaryMinus
+                                            (IntegerConstant 5 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            (IntegerConstant -5 (Integer 4) Decimal)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 i2)
+                                        (IntegerUnaryMinus
+                                            (Cast
+                                                (IntegerConstant 6 (Integer 4) Decimal)
+                                                IntegerToInteger
+                                                (Integer 8)
+                                                (IntegerConstant 6 (Integer 8) Decimal)
+                                            )
+                                            (Integer 8)
+                                            (IntegerConstant -6 (Integer 8) Decimal)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 x)
+                                        (FunctionCall
+                                            4 complex@__lpython_overloaded_7__complex
+                                            4 complex
+                                            [((Var 4 a3))
+                                            ((Var 4 a))]
+                                            (Complex 8)
+                                            ()
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 x)
+                                        (FunctionCall
+                                            4 complex@__lpython_overloaded_8__complex
+                                            4 complex
+                                            [((Var 4 a))
+                                            ((Var 4 a3))]
+                                            (Complex 8)
+                                            ()
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 x)
+                                        (FunctionCall
+                                            4 complex@__lpython_overloaded_11__complex
+                                            4 complex
+                                            [((Var 4 i1))
+                                            ((Var 4 i2))]
+                                            (Complex 8)
+                                            ()
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 x)
+                                        (FunctionCall
+                                            4 complex@__lpython_overloaded_9__complex
+                                            4 complex
+                                            [((Var 4 i1))
+                                            ((IntegerUnaryMinus
+                                                (Var 4 i1)
+                                                (Integer 4)
+                                                ()
+                                            ))]
+                                            (Complex 8)
+                                            ()
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 x)
+                                        (FunctionCall
+                                            4 complex@__lpython_overloaded_10__complex
+                                            4 complex
+                                            [((IntegerUnaryMinus
+                                                (Var 4 i2)
+                                                (Integer 8)
+                                                ()
+                                            ))
+                                            ((IntegerUnaryMinus
+                                                (Var 4 i2)
+                                                (Integer 8)
+                                                ()
+                                            ))]
+                                            (Complex 8)
+                                            ()
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 x)
+                                        (FunctionCall
+                                            4 complex@__lpython_overloaded_12__complex
+                                            4 complex
+                                            [((Var 4 i2))
+                                            ((IntegerUnaryMinus
+                                                (Var 4 i1)
+                                                (Integer 4)
+                                                ()
+                                            ))]
+                                            (Complex 8)
+                                            ()
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            test_complex_not:
+                                (Function
+                                    (SymbolTable
+                                        6
+                                        {
+                                            b:
+                                                (Variable
+                                                    6
+                                                    b
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Logical 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            c:
+                                                (Variable
+                                                    6
+                                                    c
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Complex 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            c2:
+                                                (Variable
+                                                    6
+                                                    c2
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Complex 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            complex:
+                                                (ExternalSymbol
+                                                    6
+                                                    complex
+                                                    8 complex
+                                                    lpython_builtin
+                                                    []
+                                                    complex
+                                                    Private
+                                                ),
+                                            complex@__lpython_overloaded_9__complex:
+                                                (ExternalSymbol
+                                                    6
+                                                    complex@__lpython_overloaded_9__complex
+                                                    8 __lpython_overloaded_9__complex
+                                                    lpython_builtin
+                                                    []
+                                                    __lpython_overloaded_9__complex
+                                                    Public
+                                                )
+                                        })
+                                    test_complex_not
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 6 c)
+                                        (Cast
+                                            (FunctionCall
+                                                6 complex@__lpython_overloaded_9__complex
+                                                6 complex
+                                                [((IntegerConstant 4 (Integer 4) Decimal))
+                                                ((IntegerConstant 5 (Integer 4) Decimal))]
+                                                (Complex 8)
+                                                (ComplexConstant
+                                                    4.000000
+                                                    5.000000
+                                                    (Complex 8)
+                                                )
+                                                ()
+                                            )
+                                            ComplexToComplex
+                                            (Complex 4)
+                                            (ComplexConstant
+                                                4.000000
+                                                5.000000
+                                                (Complex 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 6 b)
+                                        (LogicalNot
+                                            (Cast
+                                                (Var 6 c)
+                                                ComplexToLogical
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (LogicalNot
+                                            (Var 6 b)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 6 c2)
+                                        (FunctionCall
+                                            6 complex@__lpython_overloaded_9__complex
+                                            6 complex
+                                            [((IntegerConstant 0 (Integer 4) Decimal))
+                                            ((IntegerConstant 0 (Integer 4) Decimal))]
+                                            (Complex 8)
+                                            (ComplexConstant
+                                                0.000000
+                                                0.000000
+                                                (Complex 8)
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 6 b)
+                                        (LogicalNot
+                                            (Cast
+                                                (Var 6 c2)
+                                                ComplexToLogical
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (Var 6 b)
+                                        ()
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            test_complex_unary_minus:
+                                (Function
+                                    (SymbolTable
+                                        5
+                                        {
+                                            _c:
+                                                (Variable
+                                                    5
+                                                    _c
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Complex 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            c:
+                                                (Variable
+                                                    5
+                                                    c
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Complex 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            c2:
+                                                (Variable
+                                                    5
+                                                    c2
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Complex 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            complex:
+                                                (ExternalSymbol
+                                                    5
+                                                    complex
+                                                    8 complex
+                                                    lpython_builtin
+                                                    []
+                                                    complex
+                                                    Private
+                                                ),
+                                            complex@__lpython_overloaded_13__complex:
+                                                (ExternalSymbol
+                                                    5
+                                                    complex@__lpython_overloaded_13__complex
+                                                    8 __lpython_overloaded_13__complex
+                                                    lpython_builtin
+                                                    []
+                                                    __lpython_overloaded_13__complex
+                                                    Public
+                                                ),
+                                            complex@__lpython_overloaded_5__complex:
+                                                (ExternalSymbol
+                                                    5
+                                                    complex@__lpython_overloaded_5__complex
+                                                    8 __lpython_overloaded_5__complex
+                                                    lpython_builtin
+                                                    []
+                                                    __lpython_overloaded_5__complex
+                                                    Public
+                                                ),
+                                            complex@__lpython_overloaded_9__complex:
+                                                (ExternalSymbol
+                                                    5
+                                                    complex@__lpython_overloaded_9__complex
+                                                    8 __lpython_overloaded_9__complex
+                                                    lpython_builtin
+                                                    []
+                                                    __lpython_overloaded_9__complex
+                                                    Public
+                                                )
+                                        })
+                                    test_complex_unary_minus
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 5 c)
+                                        (Cast
+                                            (FunctionCall
+                                                5 complex@__lpython_overloaded_13__complex
+                                                5 complex
+                                                [((IntegerConstant 3 (Integer 4) Decimal))
+                                                ((RealConstant
+                                                    4.500000
+                                                    (Real 8)
+                                                ))]
+                                                (Complex 8)
+                                                (ComplexConstant
+                                                    3.000000
+                                                    4.500000
+                                                    (Complex 8)
+                                                )
+                                                ()
+                                            )
+                                            ComplexToComplex
+                                            (Complex 4)
+                                            (ComplexConstant
+                                                3.000000
+                                                4.500000
+                                                (Complex 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 5 _c)
+                                        (ComplexUnaryMinus
+                                            (Var 5 c)
+                                            (Complex 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealBinOp
+                                                    (Cast
+                                                        (ComplexRe
+                                                            (Var 5 _c)
+                                                            (Real 4)
+                                                            ()
+                                                        )
+                                                        RealToReal
+                                                        (Real 8)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (RealUnaryMinus
+                                                        (RealConstant
+                                                            3.000000
+                                                            (Real 8)
+                                                        )
+                                                        (Real 8)
+                                                        (RealConstant
+                                                            -3.000000
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                    (Real 8)
+                                                    ()
+                                                )]
+                                                0
+                                                (Real 8)
+                                                ()
+                                            )
+                                            LtE
+                                            (RealConstant
+                                                0.000000
+                                                (Real 8)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealBinOp
+                                                    (Cast
+                                                        (ComplexIm
+                                                            (Var 5 _c)
+                                                            (Real 4)
+                                                            ()
+                                                        )
+                                                        RealToReal
+                                                        (Real 8)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (RealUnaryMinus
+                                                        (RealConstant
+                                                            4.500000
+                                                            (Real 8)
+                                                        )
+                                                        (Real 8)
+                                                        (RealConstant
+                                                            -4.500000
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                    (Real 8)
+                                                    ()
+                                                )]
+                                                0
+                                                (Real 8)
+                                                ()
+                                            )
+                                            LtE
+                                            (RealConstant
+                                                0.000000
+                                                (Real 8)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 5 _c)
+                                        (Cast
+                                            (FunctionCall
+                                                5 complex@__lpython_overloaded_9__complex
+                                                5 complex
+                                                [((IntegerConstant 5 (Integer 4) Decimal))
+                                                ((IntegerUnaryMinus
+                                                    (IntegerConstant 78 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    (IntegerConstant -78 (Integer 4) Decimal)
+                                                ))]
+                                                (Complex 8)
+                                                (ComplexConstant
+                                                    5.000000
+                                                    -78.000000
+                                                    (Complex 8)
+                                                )
+                                                ()
+                                            )
+                                            ComplexToComplex
+                                            (Complex 4)
+                                            (ComplexConstant
+                                                5.000000
+                                                -78.000000
+                                                (Complex 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 5 _c)
+                                        (ComplexUnaryMinus
+                                            (Var 5 _c)
+                                            (Complex 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealBinOp
+                                                    (Cast
+                                                        (ComplexRe
+                                                            (Var 5 _c)
+                                                            (Real 4)
+                                                            ()
+                                                        )
+                                                        RealToReal
+                                                        (Real 8)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (RealUnaryMinus
+                                                        (RealConstant
+                                                            5.000000
+                                                            (Real 8)
+                                                        )
+                                                        (Real 8)
+                                                        (RealConstant
+                                                            -5.000000
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                    (Real 8)
+                                                    ()
+                                                )]
+                                                0
+                                                (Real 8)
+                                                ()
+                                            )
+                                            LtE
+                                            (RealConstant
+                                                0.000000
+                                                (Real 8)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealBinOp
+                                                    (Cast
+                                                        (ComplexIm
+                                                            (Var 5 _c)
+                                                            (Real 4)
+                                                            ()
+                                                        )
+                                                        RealToReal
+                                                        (Real 8)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (RealConstant
+                                                        78.000000
+                                                        (Real 8)
+                                                    )
+                                                    (Real 8)
+                                                    ()
+                                                )]
+                                                0
+                                                (Real 8)
+                                                ()
+                                            )
+                                            LtE
+                                            (RealConstant
+                                                0.000000
+                                                (Real 8)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 5 c2)
+                                        (FunctionCall
+                                            5 complex@__lpython_overloaded_5__complex
+                                            5 complex
+                                            [((RealUnaryMinus
+                                                (RealConstant
+                                                    4.500000
+                                                    (Real 8)
+                                                )
+                                                (Real 8)
+                                                (RealConstant
+                                                    -4.500000
+                                                    (Real 8)
+                                                )
+                                            ))
+                                            ((RealUnaryMinus
+                                                (RealConstant
+                                                    7.800000
+                                                    (Real 8)
+                                                )
+                                                (Real 8)
+                                                (RealConstant
+                                                    -7.800000
+                                                    (Real 8)
+                                                )
+                                            ))]
+                                            (Complex 8)
+                                            (ComplexConstant
+                                                -4.500000
+                                                -7.800000
+                                                (Complex 8)
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 5 c2)
+                                        (ComplexUnaryMinus
+                                            (Var 5 c2)
+                                            (Complex 8)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealBinOp
+                                                    (ComplexRe
+                                                        (Var 5 c2)
+                                                        (Real 8)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (RealConstant
+                                                        4.500000
+                                                        (Real 8)
+                                                    )
+                                                    (Real 8)
+                                                    ()
+                                                )]
+                                                0
+                                                (Real 8)
+                                                ()
+                                            )
+                                            LtE
+                                            (RealConstant
+                                                0.000000
+                                                (Real 8)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealBinOp
+                                                    (ComplexIm
+                                                        (Var 5 c2)
+                                                        (Real 8)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (RealConstant
+                                                        7.800000
+                                                        (Real 8)
+                                                    )
+                                                    (Real 8)
+                                                    ()
+                                                )]
+                                                0
+                                                (Real 8)
+                                                ()
+                                            )
+                                            LtE
+                                            (RealConstant
+                                                0.000000
+                                                (Real 8)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 5 c2)
+                                        (ComplexBinOp
+                                            (Cast
+                                                (IntegerConstant 3 (Integer 4) Decimal)
+                                                IntegerToComplex
+                                                (Complex 8)
+                                                (ComplexConstant
+                                                    3.000000
+                                                    0.000000
+                                                    (Complex 8)
+                                                )
+                                            )
+                                            Add
+                                            (ComplexConstant
+                                                0.000000
+                                                4.000000
+                                                (Complex 8)
+                                            )
+                                            (Complex 8)
+                                            (ComplexConstant
+                                                3.000000
+                                                4.000000
+                                                (Complex 8)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 5 c2)
+                                        (ComplexUnaryMinus
+                                            (Var 5 c2)
+                                            (Complex 8)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealBinOp
+                                                    (ComplexRe
+                                                        (Var 5 c2)
+                                                        (Real 8)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (RealUnaryMinus
+                                                        (RealConstant
+                                                            3.000000
+                                                            (Real 8)
+                                                        )
+                                                        (Real 8)
+                                                        (RealConstant
+                                                            -3.000000
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                    (Real 8)
+                                                    ()
+                                                )]
+                                                0
+                                                (Real 8)
+                                                ()
+                                            )
+                                            LtE
+                                            (RealConstant
+                                                0.000000
+                                                (Real 8)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealBinOp
+                                                    (ComplexIm
+                                                        (Var 5 c2)
+                                                        (Real 8)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (RealUnaryMinus
+                                                        (RealConstant
+                                                            4.000000
+                                                            (Real 8)
+                                                        )
+                                                        (Real 8)
+                                                        (RealConstant
+                                                            -4.000000
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                    (Real 8)
+                                                    ()
+                                                )]
+                                                0
+                                                (Real 8)
+                                                ()
+                                            )
+                                            LtE
+                                            (RealConstant
+                                                0.000000
+                                                (Real 8)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            test_real_imag:
+                                (Function
+                                    (SymbolTable
+                                        3
+                                        {
+                                            a:
+                                                (Variable
+                                                    3
+                                                    a
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            b:
+                                                (Variable
+                                                    3
+                                                    b
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            eps:
+                                                (Variable
+                                                    3
+                                                    eps
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            x:
+                                                (Variable
+                                                    3
+                                                    x
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Complex 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test_real_imag
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 3 x)
+                                        (ComplexBinOp
+                                            (Cast
+                                                (IntegerConstant 2 (Integer 4) Decimal)
+                                                IntegerToComplex
+                                                (Complex 8)
+                                                (ComplexConstant
+                                                    2.000000
+                                                    0.000000
+                                                    (Complex 8)
+                                                )
+                                            )
+                                            Add
+                                            (ComplexConstant
+                                                0.000000
+                                                3.000000
+                                                (Complex 8)
+                                            )
+                                            (Complex 8)
+                                            (ComplexConstant
+                                                2.000000
+                                                3.000000
+                                                (Complex 8)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 eps)
+                                        (RealConstant
+                                            0.000000
+                                            (Real 8)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 a)
+                                        (ComplexRe
+                                            (Var 3 x)
+                                            (Real 8)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 b)
+                                        (ComplexIm
+                                            (Var 3 x)
+                                            (Real 8)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealBinOp
+                                                    (Var 3 a)
+                                                    Sub
+                                                    (RealConstant
+                                                        2.000000
+                                                        (Real 8)
+                                                    )
+                                                    (Real 8)
+                                                    ()
+                                                )]
+                                                0
+                                                (Real 8)
+                                                ()
+                                            )
+                                            LtE
+                                            (Var 3 eps)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealBinOp
+                                                    (Var 3 b)
+                                                    Sub
+                                                    (RealConstant
+                                                        3.000000
+                                                        (Real 8)
+                                                    )
+                                                    (Real 8)
+                                                    ()
+                                                )]
+                                                0
+                                                (Real 8)
+                                                ()
+                                            )
+                                            LtE
+                                            (Var 3 eps)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    [lpython_builtin]
+                    .false.
+                    .false.
+                    .false.
+                ),
+            lpython_builtin:
+                (IntrinsicModule lpython_builtin),
+            main_program:
+                (Program
+                    (SymbolTable
+                        146
+                        {
+                            __main__global_stmts:
+                                (ExternalSymbol
+                                    146
+                                    __main__global_stmts
+                                    2 __main__global_stmts
+                                    __main__
+                                    []
+                                    __main__global_stmts
+                                    Public
+                                )
+                        })
+                    main_program
+                    [__main__]
+                    [(SubroutineCall
+                        146 __main__global_stmts
+                        2 __main__global_stmts
+                        []
+                        ()
+                        .false.
+                    )]
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-test_complex_02-782ba2d.json b/tests/reference/asr-test_complex_02-782ba2d.json
new file mode 100644
index 0000000000..b01c6fc7ad
--- /dev/null
+++ b/tests/reference/asr-test_complex_02-782ba2d.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-test_complex_02-782ba2d",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/../integration_tests/test_complex_02.py",
+    "infile_hash": "e6ee66d952deccec11d316a09f1d5b4bb4916ceb56a41a11dee03ae9",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": "asr-test_complex_02-782ba2d.stdout",
+    "stdout_hash": "eedcc466455b9ec77018e6e806c864beb715494dcd550cd4c82cd2cd",
+    "stderr": null,
+    "stderr_hash": null,
+    "returncode": 0
+}
\ No newline at end of file
diff --git a/tests/reference/asr-test_complex_02-782ba2d.stdout b/tests/reference/asr-test_complex_02-782ba2d.stdout
new file mode 100644
index 0000000000..3b4ddef7ef
--- /dev/null
+++ b/tests/reference/asr-test_complex_02-782ba2d.stdout
@@ -0,0 +1,800 @@
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            __main__global_stmts:
+                                (Function
+                                    (SymbolTable
+                                        144
+                                        {
+                                            
+                                        })
+                                    __main__global_stmts
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [check]
+                                    []
+                                    [(SubroutineCall
+                                        2 check
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            check:
+                                (Function
+                                    (SymbolTable
+                                        6
+                                        {
+                                            
+                                        })
+                                    check
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [test_complex_abs
+                                    test_complex_binop_32
+                                    test_complex_binop_64]
+                                    []
+                                    [(SubroutineCall
+                                        2 test_complex_abs
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )
+                                    (SubroutineCall
+                                        2 test_complex_binop_32
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )
+                                    (SubroutineCall
+                                        2 test_complex_binop_64
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            test_complex_abs:
+                                (Function
+                                    (SymbolTable
+                                        3
+                                        {
+                                            complex:
+                                                (ExternalSymbol
+                                                    3
+                                                    complex
+                                                    7 complex
+                                                    lpython_builtin
+                                                    []
+                                                    complex
+                                                    Private
+                                                ),
+                                            complex@__lpython_overloaded_9__complex:
+                                                (ExternalSymbol
+                                                    3
+                                                    complex@__lpython_overloaded_9__complex
+                                                    7 __lpython_overloaded_9__complex
+                                                    lpython_builtin
+                                                    []
+                                                    __lpython_overloaded_9__complex
+                                                    Public
+                                                ),
+                                            eps:
+                                                (Variable
+                                                    3
+                                                    eps
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            x:
+                                                (Variable
+                                                    3
+                                                    x
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Complex 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            y:
+                                                (Variable
+                                                    3
+                                                    y
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Complex 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test_complex_abs
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 3 x)
+                                        (Cast
+                                            (FunctionCall
+                                                3 complex@__lpython_overloaded_9__complex
+                                                3 complex
+                                                [((IntegerConstant 3 (Integer 4) Decimal))
+                                                ((IntegerConstant 4 (Integer 4) Decimal))]
+                                                (Complex 8)
+                                                (ComplexConstant
+                                                    3.000000
+                                                    4.000000
+                                                    (Complex 8)
+                                                )
+                                                ()
+                                            )
+                                            ComplexToComplex
+                                            (Complex 4)
+                                            (ComplexConstant
+                                                3.000000
+                                                4.000000
+                                                (Complex 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 eps)
+                                        (RealConstant
+                                            0.000000
+                                            (Real 8)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealBinOp
+                                                    (Cast
+                                                        (IntrinsicElementalFunction
+                                                            Abs
+                                                            [(Var 3 x)]
+                                                            0
+                                                            (Real 4)
+                                                            ()
+                                                        )
+                                                        RealToReal
+                                                        (Real 8)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (RealConstant
+                                                        5.000000
+                                                        (Real 8)
+                                                    )
+                                                    (Real 8)
+                                                    ()
+                                                )]
+                                                0
+                                                (Real 8)
+                                                ()
+                                            )
+                                            Lt
+                                            (Var 3 eps)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 y)
+                                        (FunctionCall
+                                            3 complex@__lpython_overloaded_9__complex
+                                            3 complex
+                                            [((IntegerConstant 6 (Integer 4) Decimal))
+                                            ((IntegerConstant 8 (Integer 4) Decimal))]
+                                            (Complex 8)
+                                            (ComplexConstant
+                                                6.000000
+                                                8.000000
+                                                (Complex 8)
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealBinOp
+                                                    (IntrinsicElementalFunction
+                                                        Abs
+                                                        [(Var 3 y)]
+                                                        0
+                                                        (Real 8)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (RealConstant
+                                                        10.000000
+                                                        (Real 8)
+                                                    )
+                                                    (Real 8)
+                                                    ()
+                                                )]
+                                                0
+                                                (Real 8)
+                                                ()
+                                            )
+                                            Lt
+                                            (Var 3 eps)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            test_complex_binop_32:
+                                (Function
+                                    (SymbolTable
+                                        4
+                                        {
+                                            x:
+                                                (Variable
+                                                    4
+                                                    x
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Complex 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            y:
+                                                (Variable
+                                                    4
+                                                    y
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Complex 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            z:
+                                                (Variable
+                                                    4
+                                                    z
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Complex 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test_complex_binop_32
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 4 x)
+                                        (Cast
+                                            (ComplexBinOp
+                                                (Cast
+                                                    (IntegerConstant 2 (Integer 4) Decimal)
+                                                    IntegerToComplex
+                                                    (Complex 8)
+                                                    (ComplexConstant
+                                                        2.000000
+                                                        0.000000
+                                                        (Complex 8)
+                                                    )
+                                                )
+                                                Add
+                                                (ComplexConstant
+                                                    0.000000
+                                                    3.000000
+                                                    (Complex 8)
+                                                )
+                                                (Complex 8)
+                                                (ComplexConstant
+                                                    2.000000
+                                                    3.000000
+                                                    (Complex 8)
+                                                )
+                                            )
+                                            ComplexToComplex
+                                            (Complex 4)
+                                            (ComplexConstant
+                                                2.000000
+                                                3.000000
+                                                (Complex 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 y)
+                                        (Cast
+                                            (ComplexBinOp
+                                                (Cast
+                                                    (IntegerConstant 4 (Integer 4) Decimal)
+                                                    IntegerToComplex
+                                                    (Complex 8)
+                                                    (ComplexConstant
+                                                        4.000000
+                                                        0.000000
+                                                        (Complex 8)
+                                                    )
+                                                )
+                                                Add
+                                                (ComplexConstant
+                                                    0.000000
+                                                    5.000000
+                                                    (Complex 8)
+                                                )
+                                                (Complex 8)
+                                                (ComplexConstant
+                                                    4.000000
+                                                    5.000000
+                                                    (Complex 8)
+                                                )
+                                            )
+                                            ComplexToComplex
+                                            (Complex 4)
+                                            (ComplexConstant
+                                                4.000000
+                                                5.000000
+                                                (Complex 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 z)
+                                        (ComplexBinOp
+                                            (Var 4 x)
+                                            Add
+                                            (Var 4 y)
+                                            (Complex 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 z)
+                                        (ComplexBinOp
+                                            (Var 4 x)
+                                            Sub
+                                            (Var 4 y)
+                                            (Complex 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 z)
+                                        (ComplexBinOp
+                                            (Var 4 x)
+                                            Mul
+                                            (Var 4 y)
+                                            (Complex 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 z)
+                                        (ComplexBinOp
+                                            (Var 4 x)
+                                            Pow
+                                            (Var 4 y)
+                                            (Complex 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            test_complex_binop_64:
+                                (Function
+                                    (SymbolTable
+                                        5
+                                        {
+                                            x:
+                                                (Variable
+                                                    5
+                                                    x
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Complex 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            y:
+                                                (Variable
+                                                    5
+                                                    y
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Complex 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            z:
+                                                (Variable
+                                                    5
+                                                    z
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Complex 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test_complex_binop_64
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 5 x)
+                                        (ComplexBinOp
+                                            (Cast
+                                                (IntegerConstant 2 (Integer 4) Decimal)
+                                                IntegerToComplex
+                                                (Complex 8)
+                                                (ComplexConstant
+                                                    2.000000
+                                                    0.000000
+                                                    (Complex 8)
+                                                )
+                                            )
+                                            Add
+                                            (ComplexConstant
+                                                0.000000
+                                                3.000000
+                                                (Complex 8)
+                                            )
+                                            (Complex 8)
+                                            (ComplexConstant
+                                                2.000000
+                                                3.000000
+                                                (Complex 8)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 5 y)
+                                        (ComplexBinOp
+                                            (Cast
+                                                (IntegerConstant 4 (Integer 4) Decimal)
+                                                IntegerToComplex
+                                                (Complex 8)
+                                                (ComplexConstant
+                                                    4.000000
+                                                    0.000000
+                                                    (Complex 8)
+                                                )
+                                            )
+                                            Add
+                                            (ComplexConstant
+                                                0.000000
+                                                5.000000
+                                                (Complex 8)
+                                            )
+                                            (Complex 8)
+                                            (ComplexConstant
+                                                4.000000
+                                                5.000000
+                                                (Complex 8)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 5 z)
+                                        (ComplexBinOp
+                                            (Var 5 x)
+                                            Add
+                                            (Var 5 y)
+                                            (Complex 8)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 5 z)
+                                        (ComplexBinOp
+                                            (Var 5 x)
+                                            Sub
+                                            (Var 5 y)
+                                            (Complex 8)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 5 z)
+                                        (ComplexBinOp
+                                            (Var 5 x)
+                                            Mul
+                                            (Var 5 y)
+                                            (Complex 8)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 5 z)
+                                        (ComplexBinOp
+                                            (Var 5 x)
+                                            Pow
+                                            (Var 5 y)
+                                            (Complex 8)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    [lpython_builtin]
+                    .false.
+                    .false.
+                    .false.
+                ),
+            lpython_builtin:
+                (IntrinsicModule lpython_builtin),
+            main_program:
+                (Program
+                    (SymbolTable
+                        145
+                        {
+                            __main__global_stmts:
+                                (ExternalSymbol
+                                    145
+                                    __main__global_stmts
+                                    2 __main__global_stmts
+                                    __main__
+                                    []
+                                    __main__global_stmts
+                                    Public
+                                )
+                        })
+                    main_program
+                    [__main__]
+                    [(SubroutineCall
+                        145 __main__global_stmts
+                        2 __main__global_stmts
+                        []
+                        ()
+                        .false.
+                    )]
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-test_const_dict-59445d7.json b/tests/reference/asr-test_const_dict-59445d7.json
new file mode 100644
index 0000000000..69906db3c2
--- /dev/null
+++ b/tests/reference/asr-test_const_dict-59445d7.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-test_const_dict-59445d7",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/test_const_dict.py",
+    "infile_hash": "51130e98c759eb3cdbd50848e59879e4689d241c7a8674aa06a5b3c7",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-test_const_dict-59445d7.stderr",
+    "stderr_hash": "1d3729d80a7895dd01baaf0905c6cc9ebadd7f7ce623f4ae5970e2b8",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-test_const_dict-59445d7.stderr b/tests/reference/asr-test_const_dict-59445d7.stderr
new file mode 100644
index 0000000000..3b7757fec4
--- /dev/null
+++ b/tests/reference/asr-test_const_dict-59445d7.stderr
@@ -0,0 +1,5 @@
+semantic error: cannot pop elements from a const dict
+ --> tests/errors/test_const_dict.py:6:11
+  |
+6 |     print(CONST_DICTIONARY.pop("a"))
+  |           ^^^^^^^^^^^^^^^^^^^^^^^^^ 
diff --git a/tests/reference/asr-test_const_list_append-ada1ade.json b/tests/reference/asr-test_const_list_append-ada1ade.json
new file mode 100644
index 0000000000..484830324d
--- /dev/null
+++ b/tests/reference/asr-test_const_list_append-ada1ade.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-test_const_list_append-ada1ade",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/test_const_list_append.py",
+    "infile_hash": "1f8e9cdfaf24139c23d0a063fcce8c1765b0349500874c946c2a5bda",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-test_const_list_append-ada1ade.stderr",
+    "stderr_hash": "84fe0a7a75edd73700bce92d3e43cdc85e7f3c58f0047f53fb4412ad",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-test_const_list_append-ada1ade.stderr b/tests/reference/asr-test_const_list_append-ada1ade.stderr
new file mode 100644
index 0000000000..08b7bf6c6b
--- /dev/null
+++ b/tests/reference/asr-test_const_list_append-ada1ade.stderr
@@ -0,0 +1,5 @@
+semantic error: cannot append element to a const list
+ --> tests/errors/test_const_list_append.py:7:5
+  |
+7 |     CONST_INTEGER_LIST.append(6)
+  |     ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 
diff --git a/tests/reference/asr-test_const_list_clear-33bfae7.json b/tests/reference/asr-test_const_list_clear-33bfae7.json
new file mode 100644
index 0000000000..a4ac6699f7
--- /dev/null
+++ b/tests/reference/asr-test_const_list_clear-33bfae7.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-test_const_list_clear-33bfae7",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/test_const_list_clear.py",
+    "infile_hash": "df04c8c3b9063bbbe0a24443f962c70732fecef59a7418cd7d5182af",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-test_const_list_clear-33bfae7.stderr",
+    "stderr_hash": "5c0c698319211c447c76e3309a027ee068dffded22d87bb3024cedf9",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-test_const_list_clear-33bfae7.stderr b/tests/reference/asr-test_const_list_clear-33bfae7.stderr
new file mode 100644
index 0000000000..89fc62b51a
--- /dev/null
+++ b/tests/reference/asr-test_const_list_clear-33bfae7.stderr
@@ -0,0 +1,5 @@
+semantic error: cannot clear elements from a const list
+ --> tests/errors/test_const_list_clear.py:7:5
+  |
+7 |     CONST_INTEGER_LIST.clear()
+  |     ^^^^^^^^^^^^^^^^^^^^^^^^^^ 
diff --git a/tests/reference/asr-test_const_list_insert-4c81295.json b/tests/reference/asr-test_const_list_insert-4c81295.json
new file mode 100644
index 0000000000..6113030e62
--- /dev/null
+++ b/tests/reference/asr-test_const_list_insert-4c81295.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-test_const_list_insert-4c81295",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/test_const_list_insert.py",
+    "infile_hash": "d4a31ff954a49f096c46e38118ab88ac8821d5d691f1ada9ab323828",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-test_const_list_insert-4c81295.stderr",
+    "stderr_hash": "148e2a44028dd423007236ebf7a2c393fcefa4e8c12aad565f1c87fe",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-test_const_list_insert-4c81295.stderr b/tests/reference/asr-test_const_list_insert-4c81295.stderr
new file mode 100644
index 0000000000..0a416adfd3
--- /dev/null
+++ b/tests/reference/asr-test_const_list_insert-4c81295.stderr
@@ -0,0 +1,5 @@
+semantic error: cannot insert element in a const list
+ --> tests/errors/test_const_list_insert.py:7:5
+  |
+7 |     CONST_INTEGER_LIST.insert(3, 8)
+  |     ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 
diff --git a/tests/reference/asr-test_const_list_pop-568b207.json b/tests/reference/asr-test_const_list_pop-568b207.json
new file mode 100644
index 0000000000..eb4e398c99
--- /dev/null
+++ b/tests/reference/asr-test_const_list_pop-568b207.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-test_const_list_pop-568b207",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/test_const_list_pop.py",
+    "infile_hash": "e6cae5dc10a6a3505b3227d8492f32859f5baef086c143b1afcacdbf",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-test_const_list_pop-568b207.stderr",
+    "stderr_hash": "32d57cbb983509ca6c54bc0812c9a74b3c1886ecc94e635c5011c378",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-test_const_list_pop-568b207.stderr b/tests/reference/asr-test_const_list_pop-568b207.stderr
new file mode 100644
index 0000000000..ad22224de1
--- /dev/null
+++ b/tests/reference/asr-test_const_list_pop-568b207.stderr
@@ -0,0 +1,5 @@
+semantic error: cannot pop element from a const list
+ --> tests/errors/test_const_list_pop.py:7:5
+  |
+7 |     CONST_INTEGER_LIST.pop()
+  |     ^^^^^^^^^^^^^^^^^^^^^^^^ 
diff --git a/tests/reference/asr-test_const_list_remove-c5deb20.json b/tests/reference/asr-test_const_list_remove-c5deb20.json
new file mode 100644
index 0000000000..4abd87a66b
--- /dev/null
+++ b/tests/reference/asr-test_const_list_remove-c5deb20.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-test_const_list_remove-c5deb20",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/test_const_list_remove.py",
+    "infile_hash": "e2bfdbf86ced2fae5e85037b6ea8479c1b73ab9b11b21c259739f8c1",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-test_const_list_remove-c5deb20.stderr",
+    "stderr_hash": "3529d822548d9327dbd0eab32aebc7b4a0da518cc0a6c2356e65c7b8",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-test_const_list_remove-c5deb20.stderr b/tests/reference/asr-test_const_list_remove-c5deb20.stderr
new file mode 100644
index 0000000000..cdc585f4fc
--- /dev/null
+++ b/tests/reference/asr-test_const_list_remove-c5deb20.stderr
@@ -0,0 +1,5 @@
+semantic error: cannot remove element from a const list
+ --> tests/errors/test_const_list_remove.py:7:5
+  |
+7 |     CONST_INTEGER_LIST.remove(1)
+  |     ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 
diff --git a/tests/reference/asr-test_const_list_reverse-2df1a6f.json b/tests/reference/asr-test_const_list_reverse-2df1a6f.json
new file mode 100644
index 0000000000..b463e10677
--- /dev/null
+++ b/tests/reference/asr-test_const_list_reverse-2df1a6f.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-test_const_list_reverse-2df1a6f",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/test_const_list_reverse.py",
+    "infile_hash": "b49f332d26356501f60c0342b86303deb62cd13621a821f3f2bc30c9",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-test_const_list_reverse-2df1a6f.stderr",
+    "stderr_hash": "78d4df28bbde66600867165e7c4d2b7e56874ba0f459052f8ab1b7fc",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-test_const_list_reverse-2df1a6f.stderr b/tests/reference/asr-test_const_list_reverse-2df1a6f.stderr
new file mode 100644
index 0000000000..f49888969e
--- /dev/null
+++ b/tests/reference/asr-test_const_list_reverse-2df1a6f.stderr
@@ -0,0 +1,5 @@
+semantic error: cannot reverse a const list
+ --> tests/errors/test_const_list_reverse.py:7:5
+  |
+7 |     CONST_INTEGER_LIST.reverse()
+  |     ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 
diff --git a/tests/reference/asr-test_dict10-8c0beff.json b/tests/reference/asr-test_dict10-8c0beff.json
index 996913b069..2b2342369e 100644
--- a/tests/reference/asr-test_dict10-8c0beff.json
+++ b/tests/reference/asr-test_dict10-8c0beff.json
@@ -2,12 +2,12 @@
     "basename": "asr-test_dict10-8c0beff",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/errors/test_dict10.py",
-    "infile_hash": "6e7e12d241f428b975744850c68f7b4a401a6ba035922e37e66f07d1",
+    "infile_hash": "4cd31b5d018919c4889a0316adea871ea25d0587d04bd28d1d8e6cd4",
     "outfile": null,
     "outfile_hash": null,
     "stdout": null,
     "stdout_hash": null,
     "stderr": "asr-test_dict10-8c0beff.stderr",
-    "stderr_hash": "95d5b555fbf664cf7bc7735845c89acc77393a00ad44b42fcf7c8fe8",
+    "stderr_hash": "06772bed43d8fff0fb889a763afb49307005f50ce26c7a601652e258",
     "returncode": 2
 }
\ No newline at end of file
diff --git a/tests/reference/asr-test_dict10-8c0beff.stderr b/tests/reference/asr-test_dict10-8c0beff.stderr
index 7e0d792c97..58c4edd7d3 100644
--- a/tests/reference/asr-test_dict10-8c0beff.stderr
+++ b/tests/reference/asr-test_dict10-8c0beff.stderr
@@ -1,5 +1,5 @@
 semantic error: 'dict' key type cannot be float/complex because resolving collisions by exact comparison of float/complex values will result in unexpected behaviours. In addition fuzzy equality checks with a certain tolerance does not follow transitivity with float/complex values.
- --> tests/errors/test_dict10.py:4:5
+ --> tests/errors/test_dict10.py:4:8
   |
 4 |     d: dict[c32, f64] = {}
-  |     ^^^^^^^^^^^^^^^^^^^^^^ 
+  |        ^^^^^^^^^^^^^^ 
diff --git a/tests/reference/asr-test_dict11-2ab4e6c.json b/tests/reference/asr-test_dict11-2ab4e6c.json
index 8a49f6e38b..c91886a137 100644
--- a/tests/reference/asr-test_dict11-2ab4e6c.json
+++ b/tests/reference/asr-test_dict11-2ab4e6c.json
@@ -2,12 +2,12 @@
     "basename": "asr-test_dict11-2ab4e6c",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/errors/test_dict11.py",
-    "infile_hash": "c1ffba7ea161c60aa89578a819f9c1ff89863c0e71118a40ce67a702",
+    "infile_hash": "4f1af506664662506acd3ce990f1b72ff744bb873162c9fe32dd9236",
     "outfile": null,
     "outfile_hash": null,
     "stdout": null,
     "stdout_hash": null,
     "stderr": "asr-test_dict11-2ab4e6c.stderr",
-    "stderr_hash": "4944c96752dfe5fcfc190831966428e9568e9d4b8b03a553524df84b",
+    "stderr_hash": "6ef78d7738e0780fc0f9b9567390798b3d74374b95d0dd156ccbdab4",
     "returncode": 2
 }
\ No newline at end of file
diff --git a/tests/reference/asr-test_dict11-2ab4e6c.stderr b/tests/reference/asr-test_dict11-2ab4e6c.stderr
index f4bae6f532..fcc460b76f 100644
--- a/tests/reference/asr-test_dict11-2ab4e6c.stderr
+++ b/tests/reference/asr-test_dict11-2ab4e6c.stderr
@@ -1,5 +1,5 @@
 semantic error: 'dict' key type cannot be float/complex because resolving collisions by exact comparison of float/complex values will result in unexpected behaviours. In addition fuzzy equality checks with a certain tolerance does not follow transitivity with float/complex values.
- --> tests/errors/test_dict11.py:4:5
+ --> tests/errors/test_dict11.py:4:8
   |
 4 |     d: dict[c64, f32] = {}
-  |     ^^^^^^^^^^^^^^^^^^^^^^ 
+  |        ^^^^^^^^^^^^^^ 
diff --git a/tests/reference/asr-test_dict2-4587f02.json b/tests/reference/asr-test_dict2-4587f02.json
index 296c0bbe09..5e4dea8ccf 100644
--- a/tests/reference/asr-test_dict2-4587f02.json
+++ b/tests/reference/asr-test_dict2-4587f02.json
@@ -8,6 +8,6 @@
     "stdout": null,
     "stdout_hash": null,
     "stderr": "asr-test_dict2-4587f02.stderr",
-    "stderr_hash": "00d00b6323fa903c677ea2bf60b453ed2ad4cc0f0aa1886154359dd8",
+    "stderr_hash": "d58d86ec851a0da1df65465275594dfbe973bd4f7f720c96093ac2de",
     "returncode": 2
 }
\ No newline at end of file
diff --git a/tests/reference/asr-test_dict2-4587f02.stderr b/tests/reference/asr-test_dict2-4587f02.stderr
index 465bf0562d..d5ddd8a050 100644
--- a/tests/reference/asr-test_dict2-4587f02.stderr
+++ b/tests/reference/asr-test_dict2-4587f02.stderr
@@ -1,5 +1,5 @@
-semantic error: Type mismatch in dictionary key, the types must be compatible
+semantic error: Key type should be 'Allocatable[str]' instead of 'i32'
  --> tests/errors/test_dict2.py:4:7
   |
 4 |     y[1] = -3
-  |       ^ type mismatch (found: 'i32', expected: 'str')
+  |       ^ 
diff --git a/tests/reference/asr-test_dict3-d28f38f.json b/tests/reference/asr-test_dict3-d28f38f.json
index ea944408ea..51df2ba664 100644
--- a/tests/reference/asr-test_dict3-d28f38f.json
+++ b/tests/reference/asr-test_dict3-d28f38f.json
@@ -8,6 +8,6 @@
     "stdout": null,
     "stdout_hash": null,
     "stderr": "asr-test_dict3-d28f38f.stderr",
-    "stderr_hash": "e2cc26634c1ee7aeca96c006b3bd01205200e1a6187e01fde041c3b4",
+    "stderr_hash": "0f393b8b3bcf1345f1af034f20c9ec21994700187d103629ea7271b9",
     "returncode": 2
 }
\ No newline at end of file
diff --git a/tests/reference/asr-test_dict3-d28f38f.stderr b/tests/reference/asr-test_dict3-d28f38f.stderr
index da5a97b2ce..ebd5d9a85d 100644
--- a/tests/reference/asr-test_dict3-d28f38f.stderr
+++ b/tests/reference/asr-test_dict3-d28f38f.stderr
@@ -2,4 +2,4 @@ semantic error: Type mismatch in get's key value, the types must be compatible
  --> tests/errors/test_dict3.py:5:15
   |
 5 |     x = y.get(1)
-  |               ^ type mismatch (found: 'i32', expected: 'str')
+  |               ^ type mismatch (found: 'i32', expected: 'Allocatable[str]')
diff --git a/tests/reference/asr-test_dict4-39489fa.json b/tests/reference/asr-test_dict4-39489fa.json
index dbe64e91c0..af71213e33 100644
--- a/tests/reference/asr-test_dict4-39489fa.json
+++ b/tests/reference/asr-test_dict4-39489fa.json
@@ -8,6 +8,6 @@
     "stdout": null,
     "stdout_hash": null,
     "stderr": "asr-test_dict4-39489fa.stderr",
-    "stderr_hash": "fee0e93265feaf634ae62eded08ec63f6c37530369217731b552de61",
+    "stderr_hash": "568dff6be48680b191c4fe69e3fddb6bd66dad88645820b11b489f4d",
     "returncode": 2
 }
\ No newline at end of file
diff --git a/tests/reference/asr-test_dict4-39489fa.stderr b/tests/reference/asr-test_dict4-39489fa.stderr
index 1b9e3847a8..ed0257ffd4 100644
--- a/tests/reference/asr-test_dict4-39489fa.stderr
+++ b/tests/reference/asr-test_dict4-39489fa.stderr
@@ -2,4 +2,4 @@ semantic error: Type mismatch in annotation-assignment, the types must be compat
  --> tests/errors/test_dict4.py:2:5
   |
 2 |     d: dict[i32, i32] = {1: "a", 2: "b"}
-  |     ^                   ^^^^^^^^^^^^^^^^ type mismatch ('dict[i32, i32]' and 'dict[i32, str]')
+  |     ^                   ^^^^^^^^^^^^^^^^ type mismatch ('dict[i32, i32]' and 'dict[i32, Allocatable[str]]')
diff --git a/tests/reference/asr-test_dict5-c436d37.json b/tests/reference/asr-test_dict5-c436d37.json
index 4c7034730c..49675e06d2 100644
--- a/tests/reference/asr-test_dict5-c436d37.json
+++ b/tests/reference/asr-test_dict5-c436d37.json
@@ -8,6 +8,6 @@
     "stdout": null,
     "stdout_hash": null,
     "stderr": "asr-test_dict5-c436d37.stderr",
-    "stderr_hash": "85918b86a904812b9f151ec636dac3c770446a33ebac2f5910591ea7",
+    "stderr_hash": "d05b6a704207c710995f2ba205424a557f9edd5160a6eb86e83efd28",
     "returncode": 2
 }
\ No newline at end of file
diff --git a/tests/reference/asr-test_dict5-c436d37.stderr b/tests/reference/asr-test_dict5-c436d37.stderr
index c38b8997ba..564f4a9886 100644
--- a/tests/reference/asr-test_dict5-c436d37.stderr
+++ b/tests/reference/asr-test_dict5-c436d37.stderr
@@ -2,4 +2,4 @@ semantic error: Type mismatch in assignment, the types must be compatible
  --> tests/errors/test_dict5.py:3:5
   |
 3 |     d = {1: "a", 2: "b"}
-  |     ^   ^^^^^^^^^^^^^^^^ type mismatch ('dict[i32, i32]' and 'dict[i32, str]')
+  |     ^   ^^^^^^^^^^^^^^^^ type mismatch ('dict[i32, i32]' and 'dict[i32, Allocatable[str]]')
diff --git a/tests/reference/asr-test_dict7-1415e14.json b/tests/reference/asr-test_dict7-1415e14.json
index 64eb4e7eb3..c8b2efc736 100644
--- a/tests/reference/asr-test_dict7-1415e14.json
+++ b/tests/reference/asr-test_dict7-1415e14.json
@@ -8,6 +8,6 @@
     "stdout": null,
     "stdout_hash": null,
     "stderr": "asr-test_dict7-1415e14.stderr",
-    "stderr_hash": "a51d1d4a46839e1f4258410e979ba83a14abe8c011482e30be2336cd",
+    "stderr_hash": "843409ee199a2581d9cd1abab45bb59e5e0372d56ef94f1b15aea584",
     "returncode": 2
 }
\ No newline at end of file
diff --git a/tests/reference/asr-test_dict7-1415e14.stderr b/tests/reference/asr-test_dict7-1415e14.stderr
index 7884efa64e..4ec6a0fd47 100644
--- a/tests/reference/asr-test_dict7-1415e14.stderr
+++ b/tests/reference/asr-test_dict7-1415e14.stderr
@@ -1,4 +1,4 @@
-semantic error: unhashable type in dict: 'slice'
+semantic error: Unhashable type in dict: 'slice'
  --> tests/errors/test_dict7.py:4:11
   |
 4 |     print(d[1:2])
diff --git a/tests/reference/asr-test_dict8-d960ce0.json b/tests/reference/asr-test_dict8-d960ce0.json
index 8a64d6af99..303c677d1d 100644
--- a/tests/reference/asr-test_dict8-d960ce0.json
+++ b/tests/reference/asr-test_dict8-d960ce0.json
@@ -2,12 +2,12 @@
     "basename": "asr-test_dict8-d960ce0",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/errors/test_dict8.py",
-    "infile_hash": "a0e29d11cde61d2c83b67392048930efb34f8ded6e42a4101f0b248d",
+    "infile_hash": "a27a4c687822a5d03dba00df1201fac438fd4eb20479020de3563655",
     "outfile": null,
     "outfile_hash": null,
     "stdout": null,
     "stdout_hash": null,
     "stderr": "asr-test_dict8-d960ce0.stderr",
-    "stderr_hash": "86744c3a768772a885a4cafef8973f69689fb2522aae6dfe486f7dcd",
+    "stderr_hash": "c2dcf3e38154f9a69328274fafd4940b8b6296d31f442c01c88eaa0e",
     "returncode": 2
 }
\ No newline at end of file
diff --git a/tests/reference/asr-test_dict8-d960ce0.stderr b/tests/reference/asr-test_dict8-d960ce0.stderr
index 51374cc073..050138ffac 100644
--- a/tests/reference/asr-test_dict8-d960ce0.stderr
+++ b/tests/reference/asr-test_dict8-d960ce0.stderr
@@ -1,5 +1,5 @@
 semantic error: 'dict' key type cannot be float/complex because resolving collisions by exact comparison of float/complex values will result in unexpected behaviours. In addition fuzzy equality checks with a certain tolerance does not follow transitivity with float/complex values.
- --> tests/errors/test_dict8.py:4:5
+ --> tests/errors/test_dict8.py:4:8
   |
 4 |     d: dict[f64, f64] = {}
-  |     ^^^^^^^^^^^^^^^^^^^^^^ 
+  |        ^^^^^^^^^^^^^^ 
diff --git a/tests/reference/asr-test_dict9-907bda7.json b/tests/reference/asr-test_dict9-907bda7.json
index 24ee65c481..3603e2ca62 100644
--- a/tests/reference/asr-test_dict9-907bda7.json
+++ b/tests/reference/asr-test_dict9-907bda7.json
@@ -2,12 +2,12 @@
     "basename": "asr-test_dict9-907bda7",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/errors/test_dict9.py",
-    "infile_hash": "90e01bb400b78fa0a8fb11fc90924aacbb7f53677e42ceecc743215d",
+    "infile_hash": "09f382db99b7d322807aa7fcb8d12673a41ea17047b8adcd5b6302b1",
     "outfile": null,
     "outfile_hash": null,
     "stdout": null,
     "stdout_hash": null,
     "stderr": "asr-test_dict9-907bda7.stderr",
-    "stderr_hash": "14a0981e18ecf1948417be8e93c7956f82c76fcc5e84b1d428d525c0",
+    "stderr_hash": "3278571c4f1c492f88f33ca78dcf8fb5051f9e3ca89df7557b7881f6",
     "returncode": 2
 }
\ No newline at end of file
diff --git a/tests/reference/asr-test_dict9-907bda7.stderr b/tests/reference/asr-test_dict9-907bda7.stderr
index e7dee1b91d..a1394398fa 100644
--- a/tests/reference/asr-test_dict9-907bda7.stderr
+++ b/tests/reference/asr-test_dict9-907bda7.stderr
@@ -1,5 +1,5 @@
 semantic error: 'dict' key type cannot be float/complex because resolving collisions by exact comparison of float/complex values will result in unexpected behaviours. In addition fuzzy equality checks with a certain tolerance does not follow transitivity with float/complex values.
- --> tests/errors/test_dict9.py:4:5
+ --> tests/errors/test_dict9.py:4:8
   |
 4 |     d: dict[f32, f64] = {}
-  |     ^^^^^^^^^^^^^^^^^^^^^^ 
+  |        ^^^^^^^^^^^^^^ 
diff --git a/tests/reference/asr-test_dict_key1-6e57a28.json b/tests/reference/asr-test_dict_key1-6e57a28.json
new file mode 100644
index 0000000000..64362c0de1
--- /dev/null
+++ b/tests/reference/asr-test_dict_key1-6e57a28.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-test_dict_key1-6e57a28",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/test_dict_key1.py",
+    "infile_hash": "0ee4ab5e47edab5de323d7cf97cf3e726e54882e4a5fadb82ee9aedc",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-test_dict_key1-6e57a28.stderr",
+    "stderr_hash": "69d0cb3e0858705663d56d8c103a2cfefc794aae781a9d46190f9469",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-test_dict_key1-6e57a28.stderr b/tests/reference/asr-test_dict_key1-6e57a28.stderr
new file mode 100644
index 0000000000..af5f7b788e
--- /dev/null
+++ b/tests/reference/asr-test_dict_key1-6e57a28.stderr
@@ -0,0 +1,5 @@
+semantic error: Unhashable type: 'list[i32]'
+ --> tests/errors/test_dict_key1.py:4:19
+  |
+4 |     my_dict: dict[list[i32], str] = {[1, 2]: "first", [3, 4]: "second"}
+  |                   ^^^^^^^^^ Mutable type 'list[i32]' cannot become a key in dict. Hint: Use an immutable type for key.
diff --git a/tests/reference/asr-test_dict_key2-18ea6fb.json b/tests/reference/asr-test_dict_key2-18ea6fb.json
new file mode 100644
index 0000000000..ffdc6fa539
--- /dev/null
+++ b/tests/reference/asr-test_dict_key2-18ea6fb.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-test_dict_key2-18ea6fb",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/test_dict_key2.py",
+    "infile_hash": "25b325264991082018c989f990a6b71409e7af0df4a27e5b5142a349",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-test_dict_key2-18ea6fb.stderr",
+    "stderr_hash": "54782e9f1627ccb9011f1f1204c00431441d0274c97ebbf5b94e57c4",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-test_dict_key2-18ea6fb.stderr b/tests/reference/asr-test_dict_key2-18ea6fb.stderr
new file mode 100644
index 0000000000..0ef08badab
--- /dev/null
+++ b/tests/reference/asr-test_dict_key2-18ea6fb.stderr
@@ -0,0 +1,5 @@
+semantic error: Unhashable type: 'dict[i32, Allocatable[str]]'
+ --> tests/errors/test_dict_key2.py:4:19
+  |
+4 |     my_dict: dict[dict[i32, str], str] = {{1: "a", 2: "b"}: "first", {3: "c", 4: "d"}: "second"}
+  |                   ^^^^^^^^^^^^^^ Mutable type 'dict[i32, Allocatable[str]]' cannot become a key in dict. Hint: Use an immutable type for key.
diff --git a/tests/reference/asr-test_dict_key3-9fc7793.json b/tests/reference/asr-test_dict_key3-9fc7793.json
new file mode 100644
index 0000000000..3826aa9516
--- /dev/null
+++ b/tests/reference/asr-test_dict_key3-9fc7793.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-test_dict_key3-9fc7793",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/test_dict_key3.py",
+    "infile_hash": "9675711d37ed0e58ddd82a53ec580cc21c58a9b94ad598b706fb78f8",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-test_dict_key3-9fc7793.stderr",
+    "stderr_hash": "46117a6d0b07d8cc2c7ee0cc21bc23f3aca5ae70eedc8bfee72d073e",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-test_dict_key3-9fc7793.stderr b/tests/reference/asr-test_dict_key3-9fc7793.stderr
new file mode 100644
index 0000000000..3a24de8051
--- /dev/null
+++ b/tests/reference/asr-test_dict_key3-9fc7793.stderr
@@ -0,0 +1,5 @@
+semantic error: Unhashable type: 'set[Allocatable[str]]'
+ --> tests/errors/test_dict_key3.py:4:19
+  |
+4 |     my_dict: dict[set[str], str] = {{1, 2}: "first", {3, 4}: "second"}
+  |                   ^^^^^^^^ Mutable type 'set[Allocatable[str]]' cannot become a key in dict. Hint: Use an immutable type for key.
diff --git a/tests/reference/asr-test_dict_key4-dc7abfc.json b/tests/reference/asr-test_dict_key4-dc7abfc.json
new file mode 100644
index 0000000000..4adfe9cbde
--- /dev/null
+++ b/tests/reference/asr-test_dict_key4-dc7abfc.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-test_dict_key4-dc7abfc",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/test_dict_key4.py",
+    "infile_hash": "197ac00a9a0a5763f939d8b5aec2e33a5b3ec769d93149a1c93999c1",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-test_dict_key4-dc7abfc.stderr",
+    "stderr_hash": "5d65724b253174ab38cf9d62ace3028f4a73615832bba93909241c4b",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-test_dict_key4-dc7abfc.stderr b/tests/reference/asr-test_dict_key4-dc7abfc.stderr
new file mode 100644
index 0000000000..ccb104f648
--- /dev/null
+++ b/tests/reference/asr-test_dict_key4-dc7abfc.stderr
@@ -0,0 +1,5 @@
+semantic error: Unhashable type: 'list[i32]'
+ --> tests/errors/test_dict_key4.py:2:12
+  |
+2 |     print({[1, 2]: "first", [3, 4]: "second"})
+  |            ^^^^^^ Mutable type 'list[i32]' cannot become a key in dict. Hint: Use an immutable type for key.
diff --git a/tests/reference/asr-test_dict_key5-87496d1.json b/tests/reference/asr-test_dict_key5-87496d1.json
new file mode 100644
index 0000000000..d0b6c3689e
--- /dev/null
+++ b/tests/reference/asr-test_dict_key5-87496d1.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-test_dict_key5-87496d1",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/test_dict_key5.py",
+    "infile_hash": "08a7118a664a5ac63f470b5a47d19ed7c35a06e3c8ae40a7b44010ea",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-test_dict_key5-87496d1.stderr",
+    "stderr_hash": "553454208928c82e207673c22f7a5e6b3c9eb86eac0785c08c5c85fb",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-test_dict_key5-87496d1.stderr b/tests/reference/asr-test_dict_key5-87496d1.stderr
new file mode 100644
index 0000000000..94934a305f
--- /dev/null
+++ b/tests/reference/asr-test_dict_key5-87496d1.stderr
@@ -0,0 +1,5 @@
+semantic error: Unhashable type: 'dict[i32, Allocatable[str]]'
+ --> tests/errors/test_dict_key5.py:2:12
+  |
+2 |     print({{1: "a", 2: "b"}: "first", {3: "c", 4: "d"}: "second"})
+  |            ^^^^^^^^^^^^^^^^ Mutable type 'dict[i32, Allocatable[str]]' cannot become a key in dict. Hint: Use an immutable type for key.
diff --git a/tests/reference/asr-test_dict_key6-1d334b2.json b/tests/reference/asr-test_dict_key6-1d334b2.json
new file mode 100644
index 0000000000..c301185733
--- /dev/null
+++ b/tests/reference/asr-test_dict_key6-1d334b2.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-test_dict_key6-1d334b2",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/test_dict_key6.py",
+    "infile_hash": "14ea00618e1414afe9f93d0aa0d4fd5b4332883465126cbba6faab76",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-test_dict_key6-1d334b2.stderr",
+    "stderr_hash": "2b2316df5be7ae70b5a600453c0867cffc6d2d2b60ff3bd163161b08",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-test_dict_key6-1d334b2.stderr b/tests/reference/asr-test_dict_key6-1d334b2.stderr
new file mode 100644
index 0000000000..1225cddfce
--- /dev/null
+++ b/tests/reference/asr-test_dict_key6-1d334b2.stderr
@@ -0,0 +1,5 @@
+semantic error: Unhashable type: 'set[i32]'
+ --> tests/errors/test_dict_key6.py:2:12
+  |
+2 |     print({{1, 2}: "first", {3, 4}: "second"})
+  |            ^^^^^^ Mutable type 'set[i32]' cannot become a key in dict. Hint: Use an immutable type for key.
diff --git a/tests/reference/asr-test_end_sep_keywords-2226a67.json b/tests/reference/asr-test_end_sep_keywords-2226a67.json
new file mode 100644
index 0000000000..e2787b0fa9
--- /dev/null
+++ b/tests/reference/asr-test_end_sep_keywords-2226a67.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-test_end_sep_keywords-2226a67",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/test_end_sep_keywords.py",
+    "infile_hash": "5ea30711228d4ebb64266988c1a706a3d64f196457b939ed3bf15ecf",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": "asr-test_end_sep_keywords-2226a67.stdout",
+    "stdout_hash": "3ea853ede6be71d11f73b11e80f3bec41d48d7d64cf7c4e90744ad6e",
+    "stderr": null,
+    "stderr_hash": null,
+    "returncode": 0
+}
\ No newline at end of file
diff --git a/tests/reference/asr-test_end_sep_keywords-2226a67.stdout b/tests/reference/asr-test_end_sep_keywords-2226a67.stdout
new file mode 100644
index 0000000000..cd53509955
--- /dev/null
+++ b/tests/reference/asr-test_end_sep_keywords-2226a67.stdout
@@ -0,0 +1,201 @@
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            __main__global_stmts:
+                                (Function
+                                    (SymbolTable
+                                        4
+                                        {
+                                            
+                                        })
+                                    __main__global_stmts
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [testEndSepKeywords]
+                                    []
+                                    [(SubroutineCall
+                                        2 testEndSepKeywords
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            testEndSepKeywords:
+                                (Function
+                                    (SymbolTable
+                                        3
+                                        {
+                                            
+                                        })
+                                    testEndSepKeywords
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Print
+                                        (StringFormat
+                                            ()
+                                            [(StringConstant
+                                                "abc"
+                                                (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (StringConstant
+                                                "lmn"
+                                                (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (StringConstant
+                                                "pqr"
+                                                (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(StringConstant
+                                                "abc"
+                                                (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (StringConstant
+                                                "lmn"
+                                                (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (StringConstant
+                                                "pqr"
+                                                (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(StringConstant
+                                                "abc"
+                                                (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (StringConstant
+                                                "lmn"
+                                                (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (StringConstant
+                                                "pqr"
+                                                (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(StringConstant
+                                                "abc"
+                                                (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (StringConstant
+                                                "lmn"
+                                                (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (StringConstant
+                                                "pqr"
+                                                (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    []
+                    .false.
+                    .false.
+                    .false.
+                ),
+            main_program:
+                (Program
+                    (SymbolTable
+                        5
+                        {
+                            __main__global_stmts:
+                                (ExternalSymbol
+                                    5
+                                    __main__global_stmts
+                                    2 __main__global_stmts
+                                    __main__
+                                    []
+                                    __main__global_stmts
+                                    Public
+                                )
+                        })
+                    main_program
+                    [__main__]
+                    [(SubroutineCall
+                        5 __main__global_stmts
+                        2 __main__global_stmts
+                        []
+                        ()
+                        .false.
+                    )]
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-test_float_semantic_error-58c0c90.json b/tests/reference/asr-test_float_semantic_error-58c0c90.json
new file mode 100644
index 0000000000..e451309c05
--- /dev/null
+++ b/tests/reference/asr-test_float_semantic_error-58c0c90.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-test_float_semantic_error-58c0c90",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/test_float_semantic_error.py",
+    "infile_hash": "10929e3991a4aee1a2de473fc5f8caa48b6dcf4a35e2329a15ea5f1f",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-test_float_semantic_error-58c0c90.stderr",
+    "stderr_hash": "c11166fb86be513e74796a51f5c9e84653c2eb894ed95d502ed8af57",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-test_float_semantic_error-58c0c90.stderr b/tests/reference/asr-test_float_semantic_error-58c0c90.stderr
new file mode 100644
index 0000000000..2698ced8c9
--- /dev/null
+++ b/tests/reference/asr-test_float_semantic_error-58c0c90.stderr
@@ -0,0 +1,5 @@
+semantic error: float type is not supported yet. 
+ --> tests/errors/test_float_semantic_error.py:4:9
+  |
+4 |     pi: float = 3.14
+  |         ^^^^^ Hint: Use f32 or f64 for now. 
diff --git a/tests/reference/asr-test_func_args-a898a72.json b/tests/reference/asr-test_func_args-a898a72.json
index f317418898..52ff1af35d 100644
--- a/tests/reference/asr-test_func_args-a898a72.json
+++ b/tests/reference/asr-test_func_args-a898a72.json
@@ -2,7 +2,7 @@
     "basename": "asr-test_func_args-a898a72",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/errors/test_func_args.py",
-    "infile_hash": "427f52e1aeb4ccdc2111e7c3e3938eba52b6a422f290eeb677e9dc77",
+    "infile_hash": "5fae2ad01849e5ba3fca0a85455a92199a779be76b908fed30fb6b7d",
     "outfile": null,
     "outfile_hash": null,
     "stdout": null,
diff --git a/tests/reference/asr-test_goto-ba9fd22.json b/tests/reference/asr-test_goto-ba9fd22.json
deleted file mode 100644
index 98b0907e07..0000000000
--- a/tests/reference/asr-test_goto-ba9fd22.json
+++ /dev/null
@@ -1,13 +0,0 @@
-{
-    "basename": "asr-test_goto-ba9fd22",
-    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
-    "infile": "tests/errors/test_goto.py",
-    "infile_hash": "8b81c2245b3ca31576ac41f49247b3781d1759ac6be61e8512bfd0f1",
-    "outfile": null,
-    "outfile_hash": null,
-    "stdout": null,
-    "stdout_hash": null,
-    "stderr": "asr-test_goto-ba9fd22.stderr",
-    "stderr_hash": "a1e26c1edcd8784938199af965004496663f071968ff7d58a33be725",
-    "returncode": 2
-}
\ No newline at end of file
diff --git a/tests/reference/asr-test_goto-ba9fd22.stderr b/tests/reference/asr-test_goto-ba9fd22.stderr
deleted file mode 100644
index 019db15d63..0000000000
--- a/tests/reference/asr-test_goto-ba9fd22.stderr
+++ /dev/null
@@ -1,5 +0,0 @@
-semantic error: Label 'end' is not defined in 'f'
- --> tests/errors/test_goto.py:8:13
-  |
-8 |             goto .end
-  |             ^^^^^^^^^ 
diff --git a/tests/reference/asr-test_import_01-b859c43.json b/tests/reference/asr-test_import_01-b859c43.json
index a53896722b..de43a449d4 100644
--- a/tests/reference/asr-test_import_01-b859c43.json
+++ b/tests/reference/asr-test_import_01-b859c43.json
@@ -2,12 +2,12 @@
     "basename": "asr-test_import_01-b859c43",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/errors/test_import_01.py",
-    "infile_hash": "dcde95aa235a4257a7ee1b22b0d3fa4d9ba54209066e0a4688fd7722",
+    "infile_hash": "291b8bf62b25eaad7edd1fb6e4bd22d21c1dda6e488fa68562a98e99",
     "outfile": null,
     "outfile_hash": null,
     "stdout": null,
     "stdout_hash": null,
     "stderr": "asr-test_import_01-b859c43.stderr",
-    "stderr_hash": "ef59d49c8273cdd97e830cac94b3cc620fb24b07ce00c3394081c9c5",
+    "stderr_hash": "395f6335756273ddbf39384927f53c2f076e00f26ca311034b73a352",
     "returncode": 2
 }
\ No newline at end of file
diff --git a/tests/reference/asr-test_import_01-b859c43.stderr b/tests/reference/asr-test_import_01-b859c43.stderr
index a2a50d4911..59c71bd338 100644
--- a/tests/reference/asr-test_import_01-b859c43.stderr
+++ b/tests/reference/asr-test_import_01-b859c43.stderr
@@ -4,7 +4,7 @@ semantic error: Type mismatch in procedure call; the types must be compatible
 4 | X: Const[f64] = test(5.0)
   |                      ^^^ type mismatch (passed argument type is f64 but required type is i32)
 
- --> tests/errors/test_import/test_import_1.py:3:13
+ --> tests/errors/test_import/test_import_1.py:5:89
   |
-3 | def test(x: i32) -> i32:
-  |             ^^^ type mismatch (passed argument type is f64 but required type is i32)
+5 | 
+  |                                                                                         ^^^ type mismatch (passed argument type is f64 but required type is i32)
diff --git a/tests/reference/asr-test_import_02-55b47fa.json b/tests/reference/asr-test_import_02-55b47fa.json
index 04b0cf247e..1a05a36392 100644
--- a/tests/reference/asr-test_import_02-55b47fa.json
+++ b/tests/reference/asr-test_import_02-55b47fa.json
@@ -8,6 +8,6 @@
     "stdout": null,
     "stdout_hash": null,
     "stderr": "asr-test_import_02-55b47fa.stderr",
-    "stderr_hash": "b30859152322cc22b1593d3af229c7b28fbc8bc03eb6542fec3a3c91",
+    "stderr_hash": "354846dc5a57910757901811b1020d04ce7a98cf5e060ad3992b2e1f",
     "returncode": 2
 }
\ No newline at end of file
diff --git a/tests/reference/asr-test_import_02-55b47fa.stderr b/tests/reference/asr-test_import_02-55b47fa.stderr
index 2c4a4fd389..ddbba39c32 100644
--- a/tests/reference/asr-test_import_02-55b47fa.stderr
+++ b/tests/reference/asr-test_import_02-55b47fa.stderr
@@ -5,7 +5,7 @@ warning: The module 'test_import_2' located in tests/errors/test_import/test_imp
   | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ imported here
 
 semantic error: Type mismatch in annotation-assignment, the types must be compatible
- --> tests/errors/test_import/test_import_2.py:3:1
+ --> tests/errors/test_import/test_import_2.py:4:30
   |
-3 | X: Const[i32] = 1.23
-  | ^               ^^^^ type mismatch ('i32' and 'f64')
+4 | 
+  |                              ^               ^^^^ type mismatch ('i32' and 'f64')
diff --git a/tests/reference/asr-test_int_semantic_error-44fe25e.json b/tests/reference/asr-test_int_semantic_error-44fe25e.json
new file mode 100644
index 0000000000..3747fc7b8b
--- /dev/null
+++ b/tests/reference/asr-test_int_semantic_error-44fe25e.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-test_int_semantic_error-44fe25e",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/test_int_semantic_error.py",
+    "infile_hash": "79ca7d3f440b2538aa0819f910bea5ef24820d245b2179e1bf4cce6d",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-test_int_semantic_error-44fe25e.stderr",
+    "stderr_hash": "a1cd1ec0fee194e3c1651668753a1666ca46c925fa91335c6230e026",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-test_int_semantic_error-44fe25e.stderr b/tests/reference/asr-test_int_semantic_error-44fe25e.stderr
new file mode 100644
index 0000000000..f75e0f05a6
--- /dev/null
+++ b/tests/reference/asr-test_int_semantic_error-44fe25e.stderr
@@ -0,0 +1,5 @@
+semantic error: int type is not supported yet. 
+ --> tests/errors/test_int_semantic_error.py:4:8
+  |
+4 |     x: int = 1
+  |        ^^^ Hint: Use i8, i16, i32 or i64 for now. 
diff --git a/tests/reference/asr-test_integer_bitnot-08e2e96.json b/tests/reference/asr-test_integer_bitnot-08e2e96.json
deleted file mode 100644
index bda5c0058b..0000000000
--- a/tests/reference/asr-test_integer_bitnot-08e2e96.json
+++ /dev/null
@@ -1,13 +0,0 @@
-{
-    "basename": "asr-test_integer_bitnot-08e2e96",
-    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
-    "infile": "tests/../integration_tests/test_integer_bitnot.py",
-    "infile_hash": "dc976a358fbeebedead889f8e85b3eed4ac77ee20f68fcac58b81429",
-    "outfile": null,
-    "outfile_hash": null,
-    "stdout": "asr-test_integer_bitnot-08e2e96.stdout",
-    "stdout_hash": "fa8ccbcd89123c9d45fceff171f470ed5e9d8cbfba39570c64683461",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
-}
\ No newline at end of file
diff --git a/tests/reference/asr-test_integer_bitnot-08e2e96.stdout b/tests/reference/asr-test_integer_bitnot-08e2e96.stdout
deleted file mode 100644
index a53f715c97..0000000000
--- a/tests/reference/asr-test_integer_bitnot-08e2e96.stdout
+++ /dev/null
@@ -1 +0,0 @@
-(TranslationUnit (SymbolTable 1 {_lpython_main_program: (Function (SymbolTable 4 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [f] [] [(SubroutineCall 1 f () [] ())] () Public .false. .false.), f: (Function (SymbolTable 2 {i: (Variable 2 i [] Local () () Default (Integer 4 []) Source Public Required .false.), res: (Variable 2 res [] Local () () Default (Integer 4 []) Source Public Required .false.)}) f (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [] [(= (Var 2 i) (IntegerConstant 5 (Integer 4 [])) ()) (= (Var 2 res) (IntegerBitNot (Var 2 i) (Integer 4 []) ()) ()) (Assert (IntegerCompare (Var 2 res) Eq (IntegerUnaryMinus (IntegerConstant 6 (Integer 4 [])) (Integer 4 []) (IntegerConstant -6 (Integer 4 []))) (Logical 4 []) ()) ()) (= (Var 2 i) (IntegerUnaryMinus (IntegerConstant 235346 (Integer 4 [])) (Integer 4 []) (IntegerConstant -235346 (Integer 4 []))) ()) (Assert (IntegerCompare (IntegerBitNot (Var 2 i) (Integer 4 []) ()) Eq (IntegerConstant 235345 (Integer 4 [])) (Logical 4 []) ()) ())] () Public .false. .false.), main_program: (Program (SymbolTable 3 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())])}) [])
diff --git a/tests/reference/asr-test_list1-73fd538.json b/tests/reference/asr-test_list1-73fd538.json
index 7913f176a4..33b0c94fc7 100644
--- a/tests/reference/asr-test_list1-73fd538.json
+++ b/tests/reference/asr-test_list1-73fd538.json
@@ -2,7 +2,7 @@
     "basename": "asr-test_list1-73fd538",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/errors/test_list1.py",
-    "infile_hash": "86f36c119afcaef5c6f790c88c7c517fa6f766bfcc95d121bc16becd",
+    "infile_hash": "bab0faf6c848b07f8cbce0ed060c0f067f38963ce247d150559a75b4",
     "outfile": null,
     "outfile_hash": null,
     "stdout": null,
diff --git a/tests/reference/asr-test_list2-10ffdd7.json b/tests/reference/asr-test_list2-10ffdd7.json
index b421983d9a..0510d548d4 100644
--- a/tests/reference/asr-test_list2-10ffdd7.json
+++ b/tests/reference/asr-test_list2-10ffdd7.json
@@ -2,7 +2,7 @@
     "basename": "asr-test_list2-10ffdd7",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/errors/test_list2.py",
-    "infile_hash": "0fde6372e40865fa25b4ef87b0ac31978ae2df367215004cad31a414",
+    "infile_hash": "1922554710c3c0cc93710512c5634e4a06f14e5e28dc169b6eac3fe2",
     "outfile": null,
     "outfile_hash": null,
     "stdout": null,
diff --git a/tests/reference/asr-test_list3-5f4d2a8.json b/tests/reference/asr-test_list3-5f4d2a8.json
index 1975f8b077..82936dd2db 100644
--- a/tests/reference/asr-test_list3-5f4d2a8.json
+++ b/tests/reference/asr-test_list3-5f4d2a8.json
@@ -5,9 +5,9 @@
     "infile_hash": "f512b77e66fe356108135243473cf9441bc532310547070a9aeef3e9",
     "outfile": null,
     "outfile_hash": null,
-    "stdout": null,
-    "stdout_hash": null,
+    "stdout": "asr-test_list3-5f4d2a8.stdout",
+    "stdout_hash": "304fa4eea30be46455815d1068012478f71e9f375be98a9fd551c53b",
     "stderr": "asr-test_list3-5f4d2a8.stderr",
-    "stderr_hash": "b6924dd90c3e80d22ea270ba6aeaabe9a121e970c650632c44ad8f4e",
-    "returncode": 2
+    "stderr_hash": "3e8e102841bfe5ae8524aa793b39cdf33de7e7073744a01f0049b424",
+    "returncode": 0
 }
\ No newline at end of file
diff --git a/tests/reference/asr-test_list3-5f4d2a8.stderr b/tests/reference/asr-test_list3-5f4d2a8.stderr
index 09551bf733..45d1ab0536 100644
--- a/tests/reference/asr-test_list3-5f4d2a8.stderr
+++ b/tests/reference/asr-test_list3-5f4d2a8.stderr
@@ -1,5 +1,5 @@
-semantic error: Type mismatch in 'pop', List index should be of integer type
- --> tests/errors/test_list3.py:5:15
+semantic error: Argument to list.pop must be an integer
+ --> tests/errors/test_list3.py:5:9
   |
 5 |     x = a.pop(2.2)
-  |               ^^^ type mismatch (found: 'f64', expected: 'i32')
+  |         ^^^^^^^^^^ 
diff --git a/tests/reference/asr-test_list3-5f4d2a8.stdout b/tests/reference/asr-test_list3-5f4d2a8.stdout
new file mode 100644
index 0000000000..526430e602
--- /dev/null
+++ b/tests/reference/asr-test_list3-5f4d2a8.stdout
@@ -0,0 +1,118 @@
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            test_e1:
+                                (Function
+                                    (SymbolTable
+                                        3
+                                        {
+                                            a:
+                                                (Variable
+                                                    3
+                                                    a
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (List
+                                                        (Integer 4)
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            x:
+                                                (Variable
+                                                    3
+                                                    x
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test_e1
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 3 a)
+                                        (ListConstant
+                                            [(IntegerConstant 1 (Integer 4) Decimal)
+                                            (IntegerConstant 2 (Integer 4) Decimal)
+                                            (IntegerConstant 3 (Integer 4) Decimal)]
+                                            (List
+                                                (Integer 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    []
+                    .false.
+                    .false.
+                    .false.
+                ),
+            main_program:
+                (Program
+                    (SymbolTable
+                        4
+                        {
+                            
+                        })
+                    main_program
+                    []
+                    []
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-test_list4-d18a7e3.json b/tests/reference/asr-test_list4-d18a7e3.json
index 819c559fb6..af9e9f1da7 100644
--- a/tests/reference/asr-test_list4-d18a7e3.json
+++ b/tests/reference/asr-test_list4-d18a7e3.json
@@ -2,12 +2,12 @@
     "basename": "asr-test_list4-d18a7e3",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/errors/test_list4.py",
-    "infile_hash": "868e6603db5b4c01e89c6a7ea6f680f0c0b5848b670121d828126232",
+    "infile_hash": "d93fc79d9b95b91ea6dd5190f2320d2c84f25ff9c108dff9d13086c1",
     "outfile": null,
     "outfile_hash": null,
     "stdout": null,
     "stdout_hash": null,
     "stderr": "asr-test_list4-d18a7e3.stderr",
-    "stderr_hash": "c882f660abef92d6b13a83683a9491d73b8a09e27476fcff3c6d7a07",
+    "stderr_hash": "98922e9f57ab8e9d7af05424e9fdb93a9a1722114f5abb816439b161",
     "returncode": 2
 }
\ No newline at end of file
diff --git a/tests/reference/asr-test_list4-d18a7e3.stderr b/tests/reference/asr-test_list4-d18a7e3.stderr
index dc13f4ff13..b3b4683868 100644
--- a/tests/reference/asr-test_list4-d18a7e3.stderr
+++ b/tests/reference/asr-test_list4-d18a7e3.stderr
@@ -1,5 +1,5 @@
-semantic error: Type mismatch in index, Index should be of integer type
+semantic error: Type mismatch in index, expected a single integer or slice
  --> tests/errors/test_list4.py:7:11
   |
 7 |     x = a[0.2]
-  |           ^^^ type mismatch (found: 'f64', expected: 'i32')
+  |           ^^^ type mismatch (found: 'f64', expected: 'i32' or slice)
diff --git a/tests/reference/asr-test_list_concat-41d186f.json b/tests/reference/asr-test_list_concat-41d186f.json
index fae0af70d9..ff64ae4aac 100644
--- a/tests/reference/asr-test_list_concat-41d186f.json
+++ b/tests/reference/asr-test_list_concat-41d186f.json
@@ -2,7 +2,7 @@
     "basename": "asr-test_list_concat-41d186f",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/errors/test_list_concat.py",
-    "infile_hash": "ae10f20b909a0ace3daca1f4c0856f1cf652753a62fa8c7dceedb93b",
+    "infile_hash": "2dbbc047f2ededbe3c1cdebe412647006e9e7a7043514ad12857b7ec",
     "outfile": null,
     "outfile_hash": null,
     "stdout": null,
diff --git a/tests/reference/asr-test_list_count-4b42498.json b/tests/reference/asr-test_list_count-4b42498.json
new file mode 100644
index 0000000000..f4864b55fb
--- /dev/null
+++ b/tests/reference/asr-test_list_count-4b42498.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-test_list_count-4b42498",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/test_list_count.py",
+    "infile_hash": "01975bd7c4bba02fd811de536b218167da99b532fa955b7bf8339779",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-test_list_count-4b42498.stderr",
+    "stderr_hash": "f26efcc623b68ca43ef871eb01c8e3cbd1ae464baaa491c6e4969696",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-test_list_count-4b42498.stderr b/tests/reference/asr-test_list_count-4b42498.stderr
new file mode 100644
index 0000000000..ad60a50f0e
--- /dev/null
+++ b/tests/reference/asr-test_list_count-4b42498.stderr
@@ -0,0 +1,5 @@
+semantic error: Type mismatch in 'count', the types must be compatible
+ --> tests/errors/test_list_count.py:6:13
+  |
+6 |     a.count(1.0)
+  |             ^^^ type mismatch (found: 'f64', expected: 'i32')
diff --git a/tests/reference/asr-test_list_slicing-984fbf0.json b/tests/reference/asr-test_list_slicing-984fbf0.json
new file mode 100644
index 0000000000..d525b6d6c9
--- /dev/null
+++ b/tests/reference/asr-test_list_slicing-984fbf0.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-test_list_slicing-984fbf0",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/test_list_slicing.py",
+    "infile_hash": "7dfe8cfa4697e4ce8bf18e24c5b11b969e8329febc711d83d2fba746",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-test_list_slicing-984fbf0.stderr",
+    "stderr_hash": "6763533f9c1730429d50f58b653595bfeef48c4d19943c36d037d023",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-test_list_slicing-984fbf0.stderr b/tests/reference/asr-test_list_slicing-984fbf0.stderr
new file mode 100644
index 0000000000..dc773c9f70
--- /dev/null
+++ b/tests/reference/asr-test_list_slicing-984fbf0.stderr
@@ -0,0 +1,5 @@
+semantic error: slice step cannot be zero
+ --> tests/errors/test_list_slicing.py:6:18
+  |
+6 |     print(l[0:10:0])
+  |                  ^ 
diff --git a/tests/reference/asr-test_logical_compare_01-5db0e2e.json b/tests/reference/asr-test_logical_compare_01-5db0e2e.json
new file mode 100644
index 0000000000..7030df8c0e
--- /dev/null
+++ b/tests/reference/asr-test_logical_compare_01-5db0e2e.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-test_logical_compare_01-5db0e2e",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/test_logical_compare_01.py",
+    "infile_hash": "467dc216d8ce90f4b3a1ec06610cea226ae96152763cfa42d5ab8f33",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-test_logical_compare_01-5db0e2e.stderr",
+    "stderr_hash": "d10cac68687315b5d29828e0acb5170f44bd91dd30784f8bd4943bb0",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-test_logical_compare_01-5db0e2e.stderr b/tests/reference/asr-test_logical_compare_01-5db0e2e.stderr
new file mode 100644
index 0000000000..c1e876782c
--- /dev/null
+++ b/tests/reference/asr-test_logical_compare_01-5db0e2e.stderr
@@ -0,0 +1,5 @@
+semantic error: Type mismatch: 'str' and 'i32'. Both operands must be of the same type.
+ --> tests/errors/test_logical_compare_01.py:2:11
+  |
+2 |     print("hello" or 10)
+  |           ^^^^^^^^^^^^^ 
diff --git a/tests/reference/asr-test_max_min-3c2fc51.json b/tests/reference/asr-test_max_min-3c2fc51.json
index 6bde90ee0f..caf0905f24 100644
--- a/tests/reference/asr-test_max_min-3c2fc51.json
+++ b/tests/reference/asr-test_max_min-3c2fc51.json
@@ -2,11 +2,11 @@
     "basename": "asr-test_max_min-3c2fc51",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/../integration_tests/test_max_min.py",
-    "infile_hash": "40074f8e86db8c8b57cb34ac1b632ae503cfd6e1f0bb8f1c9869ae5d",
+    "infile_hash": "1aba932852adf8cc5dbff4a6ff83aa5de030dba5a5721eeace90a5d4",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "asr-test_max_min-3c2fc51.stdout",
-    "stdout_hash": "d2ff0d60b34d11a82623206a37094f34a2ab34eb625f9063c4cc1848",
+    "stdout_hash": "3fd303f7bd373560206ccc2e0faaf8b88599dbc216033f6c4faa5912",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/asr-test_max_min-3c2fc51.stdout b/tests/reference/asr-test_max_min-3c2fc51.stdout
index 3d281d4fcc..52ed7afb58 100644
--- a/tests/reference/asr-test_max_min-3c2fc51.stdout
+++ b/tests/reference/asr-test_max_min-3c2fc51.stdout
@@ -1 +1,836 @@
-(TranslationUnit (SymbolTable 1 {_lpython_main_program: (Function (SymbolTable 101 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [check] [] [(SubroutineCall 1 check () [] ())] () Public .false. .false.), check: (Function (SymbolTable 6 {}) check (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [test_max_int test_max_float test_min_int test_min_float] [] [(SubroutineCall 1 test_max_int () [] ()) (SubroutineCall 1 test_max_float () [] ()) (SubroutineCall 1 test_min_int () [] ()) (SubroutineCall 1 test_min_float () [] ())] () Public .false. .false.), lpython_builtin: (IntrinsicModule lpython_builtin), main_program: (Program (SymbolTable 100 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())]), test_max_float: (Function (SymbolTable 3 {d: (Variable 3 d [] Local (RealConstant 23.233000 (Real 8 [])) () Default (Real 8 []) Source Public Required .false.), e: (Variable 3 e [] Local (RealConstant 23.223300 (Real 8 [])) () Default (Real 8 []) Source Public Required .false.), f: (Variable 3 f [] Local (RealConstant 21.230000 (Real 8 [])) () Default (Real 8 []) Source Public Required .false.), max: (ExternalSymbol 3 max 8 max lpython_builtin [] max Private), max@__lpython_overloaded_2__max: (ExternalSymbol 3 max@__lpython_overloaded_2__max 8 __lpython_overloaded_2__max lpython_builtin [] __lpython_overloaded_2__max Public), max@__lpython_overloaded_3__max: (ExternalSymbol 3 max@__lpython_overloaded_3__max 8 __lpython_overloaded_3__max lpython_builtin [] __lpython_overloaded_3__max Public)}) test_max_float (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [max@__lpython_overloaded_2__max max@__lpython_overloaded_3__max] [] [(= (Var 3 d) (RealConstant 23.233000 (Real 8 [])) ()) (= (Var 3 e) (RealConstant 23.223300 (Real 8 [])) ()) (= (Var 3 f) (RealConstant 21.230000 (Real 8 [])) ()) (Assert (RealCompare (FunctionCall 3 max@__lpython_overloaded_2__max 3 max [((Var 3 d)) ((Var 3 e)) ((Var 3 f))] (Real 8 []) () ()) Eq (Var 3 d) (Logical 4 []) ()) ()) (Assert (RealCompare (FunctionCall 3 max@__lpython_overloaded_3__max 3 max [((Var 3 e)) ((Var 3 f))] (Real 8 []) () ()) Eq (Var 3 e) (Logical 4 []) ()) ())] () Public .false. .false.), test_max_int: (Function (SymbolTable 2 {a: (Variable 2 a [] Local (IntegerConstant 1 (Integer 4 [])) () Default (Integer 4 []) Source Public Required .false.), b: (Variable 2 b [] Local (IntegerConstant 2 (Integer 4 [])) () Default (Integer 4 []) Source Public Required .false.), c: (Variable 2 c [] Local (IntegerConstant 3 (Integer 4 [])) () Default (Integer 4 []) Source Public Required .false.), max: (ExternalSymbol 2 max 8 max lpython_builtin [] max Private), max@__lpython_overloaded_0__max: (ExternalSymbol 2 max@__lpython_overloaded_0__max 8 __lpython_overloaded_0__max lpython_builtin [] __lpython_overloaded_0__max Public), max@__lpython_overloaded_1__max: (ExternalSymbol 2 max@__lpython_overloaded_1__max 8 __lpython_overloaded_1__max lpython_builtin [] __lpython_overloaded_1__max Public)}) test_max_int (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [max@__lpython_overloaded_0__max max@__lpython_overloaded_1__max max@__lpython_overloaded_1__max max@__lpython_overloaded_0__max] [] [(= (Var 2 a) (IntegerConstant 1 (Integer 4 [])) ()) (= (Var 2 b) (IntegerConstant 2 (Integer 4 [])) ()) (= (Var 2 c) (IntegerConstant 3 (Integer 4 [])) ()) (Assert (IntegerCompare (FunctionCall 2 max@__lpython_overloaded_0__max 2 max [((Var 2 a)) ((Var 2 b))] (Integer 4 []) () ()) Eq (Var 2 b) (Logical 4 []) ()) ()) (Assert (IntegerCompare (FunctionCall 2 max@__lpython_overloaded_1__max 2 max [((Var 2 a)) ((Var 2 b)) ((Var 2 c))] (Integer 4 []) () ()) Eq (Var 2 c) (Logical 4 []) ()) ()) (Assert (IntegerCompare (FunctionCall 2 max@__lpython_overloaded_1__max 2 max [((IntegerConstant 1 (Integer 4 []))) ((IntegerConstant 2 (Integer 4 []))) ((IntegerConstant 3 (Integer 4 [])))] (Integer 4 []) (IntegerConstant 3 (Integer 4 [])) ()) Eq (IntegerConstant 3 (Integer 4 [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (IntegerCompare (FunctionCall 2 max@__lpython_overloaded_0__max 2 max [((IntegerConstant 1 (Integer 4 []))) ((IntegerConstant 6 (Integer 4 [])))] (Integer 4 []) (IntegerConstant 6 (Integer 4 [])) ()) Eq (IntegerConstant 6 (Integer 4 [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ())] () Public .false. .false.), test_min_float: (Function (SymbolTable 5 {d: (Variable 5 d [] Local (RealConstant 23.233000 (Real 8 [])) () Default (Real 8 []) Source Public Required .false.), e: (Variable 5 e [] Local (RealConstant 23.223300 (Real 8 [])) () Default (Real 8 []) Source Public Required .false.), f: (Variable 5 f [] Local (RealConstant 21.230000 (Real 8 [])) () Default (Real 8 []) Source Public Required .false.), min: (ExternalSymbol 5 min 8 min lpython_builtin [] min Private), min@__lpython_overloaded_2__min: (ExternalSymbol 5 min@__lpython_overloaded_2__min 8 __lpython_overloaded_2__min lpython_builtin [] __lpython_overloaded_2__min Public), min@__lpython_overloaded_3__min: (ExternalSymbol 5 min@__lpython_overloaded_3__min 8 __lpython_overloaded_3__min lpython_builtin [] __lpython_overloaded_3__min Public)}) test_min_float (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [min@__lpython_overloaded_2__min min@__lpython_overloaded_3__min] [] [(= (Var 5 d) (RealConstant 23.233000 (Real 8 [])) ()) (= (Var 5 e) (RealConstant 23.223300 (Real 8 [])) ()) (= (Var 5 f) (RealConstant 21.230000 (Real 8 [])) ()) (Assert (RealCompare (FunctionCall 5 min@__lpython_overloaded_2__min 5 min [((Var 5 d)) ((Var 5 e)) ((Var 5 f))] (Real 8 []) () ()) Eq (Var 5 f) (Logical 4 []) ()) ()) (Assert (RealCompare (FunctionCall 5 min@__lpython_overloaded_3__min 5 min [((Var 5 e)) ((Var 5 f))] (Real 8 []) () ()) Eq (Var 5 f) (Logical 4 []) ()) ())] () Public .false. .false.), test_min_int: (Function (SymbolTable 4 {a: (Variable 4 a [] Local (IntegerConstant 1 (Integer 4 [])) () Default (Integer 4 []) Source Public Required .false.), b: (Variable 4 b [] Local (IntegerConstant 2 (Integer 4 [])) () Default (Integer 4 []) Source Public Required .false.), c: (Variable 4 c [] Local (IntegerConstant 3 (Integer 4 [])) () Default (Integer 4 []) Source Public Required .false.), min: (ExternalSymbol 4 min 8 min lpython_builtin [] min Private), min@__lpython_overloaded_0__min: (ExternalSymbol 4 min@__lpython_overloaded_0__min 8 __lpython_overloaded_0__min lpython_builtin [] __lpython_overloaded_0__min Public), min@__lpython_overloaded_1__min: (ExternalSymbol 4 min@__lpython_overloaded_1__min 8 __lpython_overloaded_1__min lpython_builtin [] __lpython_overloaded_1__min Public)}) test_min_int (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [min@__lpython_overloaded_0__min min@__lpython_overloaded_1__min min@__lpython_overloaded_1__min min@__lpython_overloaded_0__min] [] [(= (Var 4 a) (IntegerConstant 1 (Integer 4 [])) ()) (= (Var 4 b) (IntegerConstant 2 (Integer 4 [])) ()) (= (Var 4 c) (IntegerConstant 3 (Integer 4 [])) ()) (Assert (IntegerCompare (FunctionCall 4 min@__lpython_overloaded_0__min 4 min [((Var 4 a)) ((Var 4 b))] (Integer 4 []) () ()) Eq (Var 4 a) (Logical 4 []) ()) ()) (Assert (IntegerCompare (FunctionCall 4 min@__lpython_overloaded_1__min 4 min [((Var 4 a)) ((Var 4 b)) ((Var 4 c))] (Integer 4 []) () ()) Eq (Var 4 a) (Logical 4 []) ()) ()) (Assert (IntegerCompare (FunctionCall 4 min@__lpython_overloaded_1__min 4 min [((IntegerConstant 1 (Integer 4 []))) ((IntegerConstant 2 (Integer 4 []))) ((IntegerConstant 3 (Integer 4 [])))] (Integer 4 []) (IntegerConstant 1 (Integer 4 [])) ()) Eq (IntegerConstant 1 (Integer 4 [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ()) (Assert (IntegerCompare (FunctionCall 4 min@__lpython_overloaded_0__min 4 min [((IntegerConstant 1 (Integer 4 []))) ((IntegerConstant 6 (Integer 4 [])))] (Integer 4 []) (IntegerConstant 1 (Integer 4 [])) ()) Eq (IntegerConstant 1 (Integer 4 [])) (Logical 4 []) (LogicalConstant .true. (Logical 4 []))) ())] () Public .false. .false.)}) [])
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            __main__global_stmts:
+                                (Function
+                                    (SymbolTable
+                                        8
+                                        {
+                                            
+                                        })
+                                    __main__global_stmts
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [check]
+                                    []
+                                    [(SubroutineCall
+                                        2 check
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            check:
+                                (Function
+                                    (SymbolTable
+                                        7
+                                        {
+                                            
+                                        })
+                                    check
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [test_max_int
+                                    test_max_float
+                                    test_min_int
+                                    test_min_float]
+                                    []
+                                    [(SubroutineCall
+                                        2 test_max_int
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )
+                                    (SubroutineCall
+                                        2 test_max_float
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )
+                                    (SubroutineCall
+                                        2 test_min_int
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )
+                                    (SubroutineCall
+                                        2 test_min_float
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            test_max_float:
+                                (Function
+                                    (SymbolTable
+                                        4
+                                        {
+                                            d:
+                                                (Variable
+                                                    4
+                                                    d
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            e:
+                                                (Variable
+                                                    4
+                                                    e
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            f:
+                                                (Variable
+                                                    4
+                                                    f
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test_max_float
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 4 d)
+                                        (RealConstant
+                                            23.233000
+                                            (Real 8)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 e)
+                                        (RealConstant
+                                            23.223300
+                                            (Real 8)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 f)
+                                        (RealConstant
+                                            21.230000
+                                            (Real 8)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Max
+                                                [(Var 4 d)
+                                                (Var 4 e)
+                                                (Var 4 f)]
+                                                0
+                                                (Real 8)
+                                                ()
+                                            )
+                                            Eq
+                                            (Var 4 d)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Max
+                                                [(Var 4 e)
+                                                (Var 4 f)]
+                                                0
+                                                (Real 8)
+                                                ()
+                                            )
+                                            Eq
+                                            (Var 4 e)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            test_max_int:
+                                (Function
+                                    (SymbolTable
+                                        3
+                                        {
+                                            a:
+                                                (Variable
+                                                    3
+                                                    a
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            b:
+                                                (Variable
+                                                    3
+                                                    b
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            c:
+                                                (Variable
+                                                    3
+                                                    c
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test_max_int
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 3 a)
+                                        (IntegerConstant 1 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 b)
+                                        (IntegerConstant 2 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 c)
+                                        (IntegerConstant 3 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (IntrinsicElementalFunction
+                                                Max
+                                                [(Var 3 a)
+                                                (Var 3 b)]
+                                                0
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Eq
+                                            (Var 3 b)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (IntrinsicElementalFunction
+                                                Max
+                                                [(Var 3 a)
+                                                (Var 3 b)
+                                                (Var 3 c)]
+                                                0
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Eq
+                                            (Var 3 c)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (IntrinsicElementalFunction
+                                                Max
+                                                [(IntegerConstant 1 (Integer 4) Decimal)
+                                                (IntegerConstant 2 (Integer 4) Decimal)
+                                                (IntegerConstant 3 (Integer 4) Decimal)]
+                                                0
+                                                (Integer 4)
+                                                (IntegerConstant 3 (Integer 4) Decimal)
+                                            )
+                                            Eq
+                                            (IntegerConstant 3 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (IntrinsicElementalFunction
+                                                Max
+                                                [(IntegerConstant 1 (Integer 4) Decimal)
+                                                (IntegerConstant 6 (Integer 4) Decimal)]
+                                                0
+                                                (Integer 4)
+                                                (IntegerConstant 6 (Integer 4) Decimal)
+                                            )
+                                            Eq
+                                            (IntegerConstant 6 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            test_min_float:
+                                (Function
+                                    (SymbolTable
+                                        6
+                                        {
+                                            d:
+                                                (Variable
+                                                    6
+                                                    d
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            e:
+                                                (Variable
+                                                    6
+                                                    e
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            f:
+                                                (Variable
+                                                    6
+                                                    f
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test_min_float
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 6 d)
+                                        (RealConstant
+                                            23.233000
+                                            (Real 8)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 6 e)
+                                        (RealConstant
+                                            23.223300
+                                            (Real 8)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 6 f)
+                                        (RealConstant
+                                            21.230000
+                                            (Real 8)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Min
+                                                [(Var 6 d)
+                                                (Var 6 e)
+                                                (Var 6 f)]
+                                                0
+                                                (Real 8)
+                                                ()
+                                            )
+                                            Eq
+                                            (Var 6 f)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Min
+                                                [(Var 6 e)
+                                                (Var 6 f)]
+                                                0
+                                                (Real 8)
+                                                ()
+                                            )
+                                            Eq
+                                            (Var 6 f)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            test_min_int:
+                                (Function
+                                    (SymbolTable
+                                        5
+                                        {
+                                            a:
+                                                (Variable
+                                                    5
+                                                    a
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            b:
+                                                (Variable
+                                                    5
+                                                    b
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            c:
+                                                (Variable
+                                                    5
+                                                    c
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test_min_int
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 5 a)
+                                        (IntegerConstant 1 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 5 b)
+                                        (IntegerConstant 2 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 5 c)
+                                        (IntegerConstant 3 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (IntrinsicElementalFunction
+                                                Min
+                                                [(Var 5 a)
+                                                (Var 5 b)]
+                                                0
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Eq
+                                            (Var 5 a)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (IntrinsicElementalFunction
+                                                Min
+                                                [(Var 5 a)
+                                                (Var 5 b)
+                                                (Var 5 c)]
+                                                0
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Eq
+                                            (Var 5 a)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (IntrinsicElementalFunction
+                                                Min
+                                                [(IntegerConstant 1 (Integer 4) Decimal)
+                                                (IntegerConstant 2 (Integer 4) Decimal)
+                                                (IntegerConstant 3 (Integer 4) Decimal)]
+                                                0
+                                                (Integer 4)
+                                                (IntegerConstant 1 (Integer 4) Decimal)
+                                            )
+                                            Eq
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (IntrinsicElementalFunction
+                                                Min
+                                                [(IntegerConstant 1 (Integer 4) Decimal)
+                                                (IntegerConstant 6 (Integer 4) Decimal)]
+                                                0
+                                                (Integer 4)
+                                                (IntegerConstant 1 (Integer 4) Decimal)
+                                            )
+                                            Eq
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            (LogicalConstant
+                                                .true.
+                                                (Logical 4)
+                                            )
+                                        )
+                                        ()
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    []
+                    .false.
+                    .false.
+                    .false.
+                ),
+            main_program:
+                (Program
+                    (SymbolTable
+                        9
+                        {
+                            __main__global_stmts:
+                                (ExternalSymbol
+                                    9
+                                    __main__global_stmts
+                                    2 __main__global_stmts
+                                    __main__
+                                    []
+                                    __main__global_stmts
+                                    Public
+                                )
+                        })
+                    main_program
+                    [__main__]
+                    [(SubroutineCall
+                        9 __main__global_stmts
+                        2 __main__global_stmts
+                        []
+                        ()
+                        .false.
+                    )]
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-test_numpy_03-e600a49.json b/tests/reference/asr-test_numpy_03-e600a49.json
index 00717696e1..be9d6b5561 100644
--- a/tests/reference/asr-test_numpy_03-e600a49.json
+++ b/tests/reference/asr-test_numpy_03-e600a49.json
@@ -2,11 +2,11 @@
     "basename": "asr-test_numpy_03-e600a49",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/../integration_tests/test_numpy_03.py",
-    "infile_hash": "bb5a2c89cf7b5c9a341e54751a8fdbda25e6de637b2e60ed87eff898",
+    "infile_hash": "5c3ea7436668441c056bd576ea77cdfb49e44a5f0e95088d0f62184e",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "asr-test_numpy_03-e600a49.stdout",
-    "stdout_hash": "ea97db2eb32f57e271a3c694882449accff7f6a9d5f1fd3def628892",
+    "stdout_hash": "76e7a4e9a9e7de1fc30dbbae4b245e23199dee97965a8e13f4fe34a1",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/asr-test_numpy_03-e600a49.stdout b/tests/reference/asr-test_numpy_03-e600a49.stdout
index 280f76b064..0205e0b24e 100644
--- a/tests/reference/asr-test_numpy_03-e600a49.stdout
+++ b/tests/reference/asr-test_numpy_03-e600a49.stdout
@@ -1 +1,2449 @@
-(TranslationUnit (SymbolTable 1 {_lpython_main_program: (Function (SymbolTable 189 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [test_reshape_with_argument] [] [(SubroutineCall 1 test_reshape_with_argument () [] ())] () Public .false. .false.), lpython_builtin: (IntrinsicModule lpython_builtin), main_program: (Program (SymbolTable 188 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())]), numpy: (Module (SymbolTable 3 {__lpython_overloaded_0__arccos: (Function (SymbolTable 41 {_lpython_return_variable: (Variable 41 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 41 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arccos (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dacos] [(Var 41 x)] [(= (Var 41 _lpython_return_variable) (FunctionCall 3 _lfortran_dacos () [((Var 41 x))] (Real 8 []) () ()) ()) (Return)] (Var 41 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__arccosh: (Function (SymbolTable 65 {_lpython_return_variable: (Variable 65 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 65 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arccosh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dacosh] [(Var 65 x)] [(= (Var 65 _lpython_return_variable) (FunctionCall 3 _lfortran_dacosh () [((Var 65 x))] (Real 8 []) () ()) ()) (Return)] (Var 65 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__arcsin: (Function (SymbolTable 37 {_lpython_return_variable: (Variable 37 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 37 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arcsin (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dasin] [(Var 37 x)] [(= (Var 37 _lpython_return_variable) (FunctionCall 3 _lfortran_dasin () [((Var 37 x))] (Real 8 []) () ()) ()) (Return)] (Var 37 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__arcsinh: (Function (SymbolTable 61 {_lpython_return_variable: (Variable 61 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 61 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arcsinh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dasinh] [(Var 61 x)] [(= (Var 61 _lpython_return_variable) (FunctionCall 3 _lfortran_dasinh () [((Var 61 x))] (Real 8 []) () ()) ()) (Return)] (Var 61 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__arctan: (Function (SymbolTable 53 {_lpython_return_variable: (Variable 53 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 53 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arctan (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_datan] [(Var 53 x)] [(= (Var 53 _lpython_return_variable) (FunctionCall 3 _lfortran_datan () [((Var 53 x))] (Real 8 []) () ()) ()) (Return)] (Var 53 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__arctanh: (Function (SymbolTable 69 {_lpython_return_variable: (Variable 69 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 69 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arctanh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_datanh] [(Var 69 x)] [(= (Var 69 _lpython_return_variable) (FunctionCall 3 _lfortran_datanh () [((Var 69 x))] (Real 8 []) () ()) ()) (Return)] (Var 69 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__ceil: (Function (SymbolTable 76 {_lpython_return_variable: (Variable 76 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), result: (Variable 76 result [] Local () () Default (Integer 8 []) Source Public Required .false.), x: (Variable 76 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__ceil (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 76 x)] [(= (Var 76 result) (Cast (Var 76 x) RealToInteger (Integer 8 []) ()) ()) (If (LogicalBinOp (RealCompare (Var 76 x) LtE (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToReal (Real 8 []) ()) (Logical 4 []) ()) Or (RealCompare (Var 76 x) Eq (Cast (Var 76 result) IntegerToReal (Real 8 []) ()) (Logical 4 []) ()) (Logical 4 []) ()) [(= (Var 76 _lpython_return_variable) (Cast (Var 76 result) IntegerToReal (Real 8 []) ()) ()) (Return)] []) (= (Var 76 _lpython_return_variable) (Cast (IntegerBinOp (Var 76 result) Add (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 1 (Integer 8 []))) (Integer 8 []) ()) IntegerToReal (Real 8 []) ()) ()) (Return)] (Var 76 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__cos: (Function (SymbolTable 9 {_lpython_return_variable: (Variable 9 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 9 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__cos (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dcos] [(Var 9 x)] [(= (Var 9 _lpython_return_variable) (FunctionCall 3 _lfortran_dcos () [((Var 9 x))] (Real 8 []) () ()) ()) (Return)] (Var 9 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__cosh: (Function (SymbolTable 23 {_lpython_return_variable: (Variable 23 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 23 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__cosh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dcosh] [(Var 23 x)] [(= (Var 23 _lpython_return_variable) (FunctionCall 3 _lfortran_dcosh () [((Var 23 x))] (Real 8 []) () ()) ()) (Return)] (Var 23 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__degrees: (Function (SymbolTable 56 {_lpython_return_variable: (Variable 56 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 56 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__degrees (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 56 x)] [(= (Var 56 _lpython_return_variable) (RealBinOp (RealBinOp (Var 56 x) Mul (RealConstant 180.000000 (Real 8 [])) (Real 8 []) ()) Div (Var 3 pi_64) (Real 8 []) ()) ()) (Return)] (Var 56 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__exp: (Function (SymbolTable 49 {_lpython_return_variable: (Variable 49 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 49 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__exp (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dexp] [(Var 49 x)] [(= (Var 49 _lpython_return_variable) (FunctionCall 3 _lfortran_dexp () [((Var 49 x))] (Real 8 []) () ()) ()) (Return)] (Var 49 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__floor: (Function (SymbolTable 74 {_lpython_return_variable: (Variable 74 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), result: (Variable 74 result [] Local () () Default (Integer 8 []) Source Public Required .false.), x: (Variable 74 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__floor (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 74 x)] [(= (Var 74 result) (Cast (Var 74 x) RealToInteger (Integer 8 []) ()) ()) (If (LogicalBinOp (RealCompare (Var 74 x) GtE (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToReal (Real 8 []) ()) (Logical 4 []) ()) Or (RealCompare (Var 74 x) Eq (Cast (Var 74 result) IntegerToReal (Real 8 []) ()) (Logical 4 []) ()) (Logical 4 []) ()) [(= (Var 74 _lpython_return_variable) (Cast (Var 74 result) IntegerToReal (Real 8 []) ()) ()) (Return)] []) (= (Var 74 _lpython_return_variable) (Cast (IntegerBinOp (Var 74 result) Sub (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 1 (Integer 8 []))) (Integer 8 []) ()) IntegerToReal (Real 8 []) ()) ()) (Return)] (Var 74 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__log: (Function (SymbolTable 27 {_lpython_return_variable: (Variable 27 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 27 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__log (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dlog] [(Var 27 x)] [(= (Var 27 _lpython_return_variable) (FunctionCall 3 _lfortran_dlog () [((Var 27 x))] (Real 8 []) () ()) ()) (Return)] (Var 27 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__log10: (Function (SymbolTable 31 {_lpython_return_variable: (Variable 31 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 31 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__log10 (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dlog10] [(Var 31 x)] [(= (Var 31 _lpython_return_variable) (FunctionCall 3 _lfortran_dlog10 () [((Var 31 x))] (Real 8 []) () ()) ()) (Return)] (Var 31 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__log2: (Function (SymbolTable 34 {_lpython_return_variable: (Variable 34 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 34 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__log2 (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dlog _lfortran_dlog] [(Var 34 x)] [(= (Var 34 _lpython_return_variable) (RealBinOp (FunctionCall 3 _lfortran_dlog () [((Var 34 x))] (Real 8 []) () ()) Div (FunctionCall 3 _lfortran_dlog () [((RealConstant 2.000000 (Real 8 [])))] (Real 8 []) () ()) (Real 8 []) ()) ()) (Return)] (Var 34 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__mod: (Function (SymbolTable 72 {_lpython_return_variable: (Variable 72 _lpython_return_variable [] ReturnVar () () Default (Integer 8 []) Source Public Required .false.), _mod: (ExternalSymbol 72 _mod 79 _mod lpython_builtin [] _mod Private), _mod@__lpython_overloaded_2___mod: (ExternalSymbol 72 _mod@__lpython_overloaded_2___mod 79 __lpython_overloaded_2___mod lpython_builtin [] __lpython_overloaded_2___mod Public), x1: (Variable 72 x1 [] In () () Default (Integer 8 []) Source Public Required .false.), x2: (Variable 72 x2 [] In () () Default (Integer 8 []) Source Public Required .false.)}) __lpython_overloaded_0__mod (FunctionType [(Integer 8 []) (Integer 8 [])] (Integer 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_mod@__lpython_overloaded_2___mod] [(Var 72 x1) (Var 72 x2)] [(If (IntegerCompare (Var 72 x2) Eq (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 0 (Integer 8 []))) (Logical 4 []) ()) [(= (Var 72 _lpython_return_variable) (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToInteger (Integer 8 []) ()) ()) (Return)] []) (= (Var 72 _lpython_return_variable) (FunctionCall 72 _mod@__lpython_overloaded_2___mod 72 _mod [((Var 72 x1)) ((Var 72 x2))] (Integer 8 []) () ()) ()) (Return)] (Var 72 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__radians: (Function (SymbolTable 58 {_lpython_return_variable: (Variable 58 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 58 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__radians (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 58 x)] [(= (Var 58 _lpython_return_variable) (RealBinOp (RealBinOp (Var 58 x) Mul (Var 3 pi_64) (Real 8 []) ()) Div (RealConstant 180.000000 (Real 8 [])) (Real 8 []) ()) ()) (Return)] (Var 58 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__sin: (Function (SymbolTable 5 {_lpython_return_variable: (Variable 5 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 5 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__sin (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dsin] [(Var 5 x)] [(= (Var 5 _lpython_return_variable) (FunctionCall 3 _lfortran_dsin () [((Var 5 x))] (Real 8 []) () ()) ()) (Return)] (Var 5 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__sinh: (Function (SymbolTable 19 {_lpython_return_variable: (Variable 19 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 19 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__sinh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dsinh] [(Var 19 x)] [(= (Var 19 _lpython_return_variable) (FunctionCall 3 _lfortran_dsinh () [((Var 19 x))] (Real 8 []) () ()) ()) (Return)] (Var 19 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__sqrt: (Function (SymbolTable 12 {_lpython_return_variable: (Variable 12 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 12 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__sqrt (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 12 x)] [(= (Var 12 _lpython_return_variable) (RealBinOp (Var 12 x) Pow (RealBinOp (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToReal (Real 8 []) ()) Div (Cast (IntegerConstant 2 (Integer 4 [])) IntegerToReal (Real 8 []) ()) (Real 8 []) ()) (Real 8 []) ()) ()) (Return)] (Var 12 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__tan: (Function (SymbolTable 15 {_lpython_return_variable: (Variable 15 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 15 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__tan (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dtan] [(Var 15 x)] [(= (Var 15 _lpython_return_variable) (FunctionCall 3 _lfortran_dtan () [((Var 15 x))] (Real 8 []) () ()) ()) (Return)] (Var 15 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__tanh: (Function (SymbolTable 45 {_lpython_return_variable: (Variable 45 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 45 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__tanh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dtanh] [(Var 45 x)] [(= (Var 45 _lpython_return_variable) (FunctionCall 3 _lfortran_dtanh () [((Var 45 x))] (Real 8 []) () ()) ()) (Return)] (Var 45 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arccos: (Function (SymbolTable 43 {_lpython_return_variable: (Variable 43 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 43 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arccos (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_sacos] [(Var 43 x)] [(= (Var 43 _lpython_return_variable) (FunctionCall 3 _lfortran_sacos () [((Var 43 x))] (Real 4 []) () ()) ()) (Return)] (Var 43 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arccosh: (Function (SymbolTable 67 {_lpython_return_variable: (Variable 67 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 67 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arccosh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_sacosh] [(Var 67 x)] [(= (Var 67 _lpython_return_variable) (FunctionCall 3 _lfortran_sacosh () [((Var 67 x))] (Real 4 []) () ()) ()) (Return)] (Var 67 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arcsin: (Function (SymbolTable 39 {_lpython_return_variable: (Variable 39 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 39 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arcsin (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_sasin] [(Var 39 x)] [(= (Var 39 _lpython_return_variable) (FunctionCall 3 _lfortran_sasin () [((Var 39 x))] (Real 4 []) () ()) ()) (Return)] (Var 39 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arcsinh: (Function (SymbolTable 63 {_lpython_return_variable: (Variable 63 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 63 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arcsinh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_sasinh] [(Var 63 x)] [(= (Var 63 _lpython_return_variable) (FunctionCall 3 _lfortran_sasinh () [((Var 63 x))] (Real 4 []) () ()) ()) (Return)] (Var 63 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arctan: (Function (SymbolTable 55 {_lpython_return_variable: (Variable 55 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 55 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arctan (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_satan] [(Var 55 x)] [(= (Var 55 _lpython_return_variable) (FunctionCall 3 _lfortran_satan () [((Var 55 x))] (Real 4 []) () ()) ()) (Return)] (Var 55 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arctanh: (Function (SymbolTable 71 {_lpython_return_variable: (Variable 71 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 71 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arctanh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_satanh] [(Var 71 x)] [(= (Var 71 _lpython_return_variable) (FunctionCall 3 _lfortran_satanh () [((Var 71 x))] (Real 4 []) () ()) ()) (Return)] (Var 71 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__ceil: (Function (SymbolTable 77 {_lpython_return_variable: (Variable 77 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), resultf: (Variable 77 resultf [x] Local (Cast (Cast (Var 77 x) RealToInteger (Integer 4 []) ()) IntegerToReal (Real 4 []) ()) () Default (Real 4 []) Source Public Required .false.), x: (Variable 77 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__ceil (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 77 x)] [(= (Var 77 resultf) (Cast (Cast (Var 77 x) RealToInteger (Integer 4 []) ()) IntegerToReal (Real 4 []) ()) ()) (If (LogicalBinOp (RealCompare (Var 77 x) LtE (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Logical 4 []) ()) Or (RealCompare (Var 77 x) Eq (Var 77 resultf) (Logical 4 []) ()) (Logical 4 []) ()) [(= (Var 77 _lpython_return_variable) (Var 77 resultf) ()) (Return)] []) (= (Var 77 _lpython_return_variable) (RealBinOp (Var 77 resultf) Add (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Real 4 []) ()) ()) (Return)] (Var 77 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__cos: (Function (SymbolTable 11 {_lpython_return_variable: (Variable 11 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 11 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__cos (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_scos] [(Var 11 x)] [(= (Var 11 _lpython_return_variable) (FunctionCall 3 _lfortran_scos () [((Var 11 x))] (Real 4 []) () ()) ()) (Return)] (Var 11 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__cosh: (Function (SymbolTable 25 {_lpython_return_variable: (Variable 25 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 25 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__cosh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_scosh] [(Var 25 x)] [(= (Var 25 _lpython_return_variable) (FunctionCall 3 _lfortran_scosh () [((Var 25 x))] (Real 4 []) () ()) ()) (Return)] (Var 25 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__degrees: (Function (SymbolTable 57 {_lpython_return_variable: (Variable 57 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 57 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__degrees (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 57 x)] [(= (Var 57 _lpython_return_variable) (RealBinOp (Var 57 x) Mul (RealBinOp (Cast (IntegerConstant 180 (Integer 4 [])) IntegerToReal (Real 4 []) ()) Div (Var 3 pi_32) (Real 4 []) ()) (Real 4 []) ()) ()) (Return)] (Var 57 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__exp: (Function (SymbolTable 51 {_lpython_return_variable: (Variable 51 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 51 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__exp (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_sexp] [(Var 51 x)] [(= (Var 51 _lpython_return_variable) (FunctionCall 3 _lfortran_sexp () [((Var 51 x))] (Real 4 []) () ()) ()) (Return)] (Var 51 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__floor: (Function (SymbolTable 75 {_lpython_return_variable: (Variable 75 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), resultf: (Variable 75 resultf [x] Local (Cast (Cast (Var 75 x) RealToInteger (Integer 4 []) ()) IntegerToReal (Real 4 []) ()) () Default (Real 4 []) Source Public Required .false.), x: (Variable 75 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__floor (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 75 x)] [(= (Var 75 resultf) (Cast (Cast (Var 75 x) RealToInteger (Integer 4 []) ()) IntegerToReal (Real 4 []) ()) ()) (If (LogicalBinOp (RealCompare (Var 75 x) GtE (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Logical 4 []) ()) Or (RealCompare (Var 75 x) Eq (Var 75 resultf) (Logical 4 []) ()) (Logical 4 []) ()) [(= (Var 75 _lpython_return_variable) (Var 75 resultf) ()) (Return)] []) (= (Var 75 _lpython_return_variable) (RealBinOp (Var 75 resultf) Sub (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Real 4 []) ()) ()) (Return)] (Var 75 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__log: (Function (SymbolTable 29 {_lpython_return_variable: (Variable 29 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 29 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__log (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_slog] [(Var 29 x)] [(= (Var 29 _lpython_return_variable) (FunctionCall 3 _lfortran_slog () [((Var 29 x))] (Real 4 []) () ()) ()) (Return)] (Var 29 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__log10: (Function (SymbolTable 33 {_lpython_return_variable: (Variable 33 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 33 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__log10 (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_slog10] [(Var 33 x)] [(= (Var 33 _lpython_return_variable) (FunctionCall 3 _lfortran_slog10 () [((Var 33 x))] (Real 4 []) () ()) ()) (Return)] (Var 33 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__log2: (Function (SymbolTable 35 {_lpython_return_variable: (Variable 35 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 35 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__log2 (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_slog _lfortran_slog] [(Var 35 x)] [(= (Var 35 _lpython_return_variable) (RealBinOp (FunctionCall 3 _lfortran_slog () [((Var 35 x))] (Real 4 []) () ()) Div (FunctionCall 3 _lfortran_slog () [((Cast (RealConstant 2.000000 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 2.000000 (Real 4 []))))] (Real 4 []) () ()) (Real 4 []) ()) ()) (Return)] (Var 35 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__mod: (Function (SymbolTable 73 {_lpython_return_variable: (Variable 73 _lpython_return_variable [] ReturnVar () () Default (Integer 4 []) Source Public Required .false.), _mod: (ExternalSymbol 73 _mod 79 _mod lpython_builtin [] _mod Private), _mod@__lpython_overloaded_0___mod: (ExternalSymbol 73 _mod@__lpython_overloaded_0___mod 79 __lpython_overloaded_0___mod lpython_builtin [] __lpython_overloaded_0___mod Public), x1: (Variable 73 x1 [] In () () Default (Integer 4 []) Source Public Required .false.), x2: (Variable 73 x2 [] In () () Default (Integer 4 []) Source Public Required .false.)}) __lpython_overloaded_1__mod (FunctionType [(Integer 4 []) (Integer 4 [])] (Integer 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_mod@__lpython_overloaded_0___mod] [(Var 73 x1) (Var 73 x2)] [(If (IntegerCompare (Var 73 x2) Eq (IntegerConstant 0 (Integer 4 [])) (Logical 4 []) ()) [(= (Var 73 _lpython_return_variable) (IntegerConstant 0 (Integer 4 [])) ()) (Return)] []) (= (Var 73 _lpython_return_variable) (FunctionCall 73 _mod@__lpython_overloaded_0___mod 73 _mod [((Var 73 x1)) ((Var 73 x2))] (Integer 4 []) () ()) ()) (Return)] (Var 73 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__radians: (Function (SymbolTable 59 {_lpython_return_variable: (Variable 59 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 59 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__radians (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 59 x)] [(= (Var 59 _lpython_return_variable) (RealBinOp (Var 59 x) Mul (RealBinOp (Var 3 pi_32) Div (Cast (IntegerConstant 180 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Real 4 []) ()) (Real 4 []) ()) ()) (Return)] (Var 59 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__sin: (Function (SymbolTable 7 {_lpython_return_variable: (Variable 7 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 7 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__sin (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_ssin] [(Var 7 x)] [(= (Var 7 _lpython_return_variable) (FunctionCall 3 _lfortran_ssin () [((Var 7 x))] (Real 4 []) () ()) ()) (Return)] (Var 7 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__sinh: (Function (SymbolTable 21 {_lpython_return_variable: (Variable 21 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 21 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__sinh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_ssinh] [(Var 21 x)] [(= (Var 21 _lpython_return_variable) (FunctionCall 3 _lfortran_ssinh () [((Var 21 x))] (Real 4 []) () ()) ()) (Return)] (Var 21 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__sqrt: (Function (SymbolTable 13 {_lpython_return_variable: (Variable 13 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 13 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__sqrt (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 13 x)] [(= (Var 13 _lpython_return_variable) (RealBinOp (Var 13 x) Pow (Cast (RealBinOp (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToReal (Real 8 []) ()) Div (Cast (IntegerConstant 2 (Integer 4 [])) IntegerToReal (Real 8 []) ()) (Real 8 []) ()) RealToReal (Real 4 []) ()) (Real 4 []) ()) ()) (Return)] (Var 13 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__tan: (Function (SymbolTable 17 {_lpython_return_variable: (Variable 17 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 17 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__tan (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_stan] [(Var 17 x)] [(= (Var 17 _lpython_return_variable) (FunctionCall 3 _lfortran_stan () [((Var 17 x))] (Real 4 []) () ()) ()) (Return)] (Var 17 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__tanh: (Function (SymbolTable 47 {_lpython_return_variable: (Variable 47 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 47 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__tanh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_stanh] [(Var 47 x)] [(= (Var 47 _lpython_return_variable) (FunctionCall 3 _lfortran_stanh () [((Var 47 x))] (Real 4 []) () ()) ()) (Return)] (Var 47 _lpython_return_variable) Public .false. .false.), _lfortran_dacos: (Function (SymbolTable 40 {_lpython_return_variable: (Variable 40 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 40 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dacos (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 40 x)] [] (Var 40 _lpython_return_variable) Public .false. .false.), _lfortran_dacosh: (Function (SymbolTable 64 {_lpython_return_variable: (Variable 64 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 64 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dacosh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 64 x)] [] (Var 64 _lpython_return_variable) Public .false. .false.), _lfortran_dasin: (Function (SymbolTable 36 {_lpython_return_variable: (Variable 36 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 36 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dasin (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 36 x)] [] (Var 36 _lpython_return_variable) Public .false. .false.), _lfortran_dasinh: (Function (SymbolTable 60 {_lpython_return_variable: (Variable 60 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 60 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dasinh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 60 x)] [] (Var 60 _lpython_return_variable) Public .false. .false.), _lfortran_datan: (Function (SymbolTable 52 {_lpython_return_variable: (Variable 52 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 52 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_datan (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 52 x)] [] (Var 52 _lpython_return_variable) Public .false. .false.), _lfortran_datanh: (Function (SymbolTable 68 {_lpython_return_variable: (Variable 68 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 68 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_datanh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 68 x)] [] (Var 68 _lpython_return_variable) Public .false. .false.), _lfortran_dcos: (Function (SymbolTable 8 {_lpython_return_variable: (Variable 8 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 8 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dcos (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 8 x)] [] (Var 8 _lpython_return_variable) Public .false. .false.), _lfortran_dcosh: (Function (SymbolTable 22 {_lpython_return_variable: (Variable 22 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 22 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dcosh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 22 x)] [] (Var 22 _lpython_return_variable) Public .false. .false.), _lfortran_dexp: (Function (SymbolTable 48 {_lpython_return_variable: (Variable 48 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 48 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dexp (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 48 x)] [] (Var 48 _lpython_return_variable) Public .false. .false.), _lfortran_dlog: (Function (SymbolTable 26 {_lpython_return_variable: (Variable 26 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 26 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dlog (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 26 x)] [] (Var 26 _lpython_return_variable) Public .false. .false.), _lfortran_dlog10: (Function (SymbolTable 30 {_lpython_return_variable: (Variable 30 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 30 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dlog10 (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 30 x)] [] (Var 30 _lpython_return_variable) Public .false. .false.), _lfortran_dsin: (Function (SymbolTable 4 {_lpython_return_variable: (Variable 4 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 4 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dsin (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 4 x)] [] (Var 4 _lpython_return_variable) Public .false. .false.), _lfortran_dsinh: (Function (SymbolTable 18 {_lpython_return_variable: (Variable 18 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 18 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dsinh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 18 x)] [] (Var 18 _lpython_return_variable) Public .false. .false.), _lfortran_dtan: (Function (SymbolTable 14 {_lpython_return_variable: (Variable 14 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 14 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dtan (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 14 x)] [] (Var 14 _lpython_return_variable) Public .false. .false.), _lfortran_dtanh: (Function (SymbolTable 44 {_lpython_return_variable: (Variable 44 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 44 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dtanh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 44 x)] [] (Var 44 _lpython_return_variable) Public .false. .false.), _lfortran_sacos: (Function (SymbolTable 42 {_lpython_return_variable: (Variable 42 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 42 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_sacos (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 42 x)] [] (Var 42 _lpython_return_variable) Public .false. .false.), _lfortran_sacosh: (Function (SymbolTable 66 {_lpython_return_variable: (Variable 66 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 66 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_sacosh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 66 x)] [] (Var 66 _lpython_return_variable) Public .false. .false.), _lfortran_sasin: (Function (SymbolTable 38 {_lpython_return_variable: (Variable 38 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 38 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_sasin (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 38 x)] [] (Var 38 _lpython_return_variable) Public .false. .false.), _lfortran_sasinh: (Function (SymbolTable 62 {_lpython_return_variable: (Variable 62 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 62 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_sasinh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 62 x)] [] (Var 62 _lpython_return_variable) Public .false. .false.), _lfortran_satan: (Function (SymbolTable 54 {_lpython_return_variable: (Variable 54 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 54 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_satan (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 54 x)] [] (Var 54 _lpython_return_variable) Public .false. .false.), _lfortran_satanh: (Function (SymbolTable 70 {_lpython_return_variable: (Variable 70 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 70 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_satanh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 70 x)] [] (Var 70 _lpython_return_variable) Public .false. .false.), _lfortran_scos: (Function (SymbolTable 10 {_lpython_return_variable: (Variable 10 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 10 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_scos (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 10 x)] [] (Var 10 _lpython_return_variable) Public .false. .false.), _lfortran_scosh: (Function (SymbolTable 24 {_lpython_return_variable: (Variable 24 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 24 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_scosh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 24 x)] [] (Var 24 _lpython_return_variable) Public .false. .false.), _lfortran_sexp: (Function (SymbolTable 50 {_lpython_return_variable: (Variable 50 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 50 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_sexp (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 50 x)] [] (Var 50 _lpython_return_variable) Public .false. .false.), _lfortran_slog: (Function (SymbolTable 28 {_lpython_return_variable: (Variable 28 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 28 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_slog (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 28 x)] [] (Var 28 _lpython_return_variable) Public .false. .false.), _lfortran_slog10: (Function (SymbolTable 32 {_lpython_return_variable: (Variable 32 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 32 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_slog10 (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 32 x)] [] (Var 32 _lpython_return_variable) Public .false. .false.), _lfortran_ssin: (Function (SymbolTable 6 {_lpython_return_variable: (Variable 6 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 6 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_ssin (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 6 x)] [] (Var 6 _lpython_return_variable) Public .false. .false.), _lfortran_ssinh: (Function (SymbolTable 20 {_lpython_return_variable: (Variable 20 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 20 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_ssinh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 20 x)] [] (Var 20 _lpython_return_variable) Public .false. .false.), _lfortran_stan: (Function (SymbolTable 16 {_lpython_return_variable: (Variable 16 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 16 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_stan (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 16 x)] [] (Var 16 _lpython_return_variable) Public .false. .false.), _lfortran_stanh: (Function (SymbolTable 46 {_lpython_return_variable: (Variable 46 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 46 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_stanh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 46 x)] [] (Var 46 _lpython_return_variable) Public .false. .false.), arccos: (GenericProcedure 3 arccos [3 __lpython_overloaded_0__arccos 3 __lpython_overloaded_1__arccos] Public), arccosh: (GenericProcedure 3 arccosh [3 __lpython_overloaded_0__arccosh 3 __lpython_overloaded_1__arccosh] Public), arcsin: (GenericProcedure 3 arcsin [3 __lpython_overloaded_0__arcsin 3 __lpython_overloaded_1__arcsin] Public), arcsinh: (GenericProcedure 3 arcsinh [3 __lpython_overloaded_0__arcsinh 3 __lpython_overloaded_1__arcsinh] Public), arctan: (GenericProcedure 3 arctan [3 __lpython_overloaded_0__arctan 3 __lpython_overloaded_1__arctan] Public), arctanh: (GenericProcedure 3 arctanh [3 __lpython_overloaded_0__arctanh 3 __lpython_overloaded_1__arctanh] Public), ceil: (GenericProcedure 3 ceil [3 __lpython_overloaded_0__ceil 3 __lpython_overloaded_1__ceil] Public), cos: (GenericProcedure 3 cos [3 __lpython_overloaded_0__cos 3 __lpython_overloaded_1__cos] Public), cosh: (GenericProcedure 3 cosh [3 __lpython_overloaded_0__cosh 3 __lpython_overloaded_1__cosh] Public), degrees: (GenericProcedure 3 degrees [3 __lpython_overloaded_0__degrees 3 __lpython_overloaded_1__degrees] Public), exp: (GenericProcedure 3 exp [3 __lpython_overloaded_0__exp 3 __lpython_overloaded_1__exp] Public), floor: (GenericProcedure 3 floor [3 __lpython_overloaded_0__floor 3 __lpython_overloaded_1__floor] Public), log: (GenericProcedure 3 log [3 __lpython_overloaded_0__log 3 __lpython_overloaded_1__log] Public), log10: (GenericProcedure 3 log10 [3 __lpython_overloaded_0__log10 3 __lpython_overloaded_1__log10] Public), log2: (GenericProcedure 3 log2 [3 __lpython_overloaded_0__log2 3 __lpython_overloaded_1__log2] Public), mod: (GenericProcedure 3 mod [3 __lpython_overloaded_0__mod 3 __lpython_overloaded_1__mod] Public), pi_32: (Variable 3 pi_32 [] Local (Cast (RealConstant 3.141593 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 3.141593 (Real 4 []))) () Default (Real 4 []) Source Public Required .false.), pi_64: (Variable 3 pi_64 [] Local (RealConstant 3.141593 (Real 8 [])) () Default (Real 8 []) Source Public Required .false.), radians: (GenericProcedure 3 radians [3 __lpython_overloaded_0__radians 3 __lpython_overloaded_1__radians] Public), sin: (GenericProcedure 3 sin [3 __lpython_overloaded_0__sin 3 __lpython_overloaded_1__sin] Public), sinh: (GenericProcedure 3 sinh [3 __lpython_overloaded_0__sinh 3 __lpython_overloaded_1__sinh] Public), sqrt: (GenericProcedure 3 sqrt [3 __lpython_overloaded_0__sqrt 3 __lpython_overloaded_1__sqrt] Public), tan: (GenericProcedure 3 tan [3 __lpython_overloaded_0__tan 3 __lpython_overloaded_1__tan] Public), tanh: (GenericProcedure 3 tanh [3 __lpython_overloaded_0__tanh 3 __lpython_overloaded_1__tanh] Public)}) numpy [lpython_builtin lpython_builtin] .false. .false.), test_1d_to_nd: (Function (SymbolTable 172 {a: (Variable 172 a [] Local () () Default (Real 8 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 16 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 16 (Integer 4 [])))]) Source Public Required .false.), b: (Variable 172 b [] Local () () Default (Real 8 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 256 (Integer 4 [])))]) Source Public Required .false.), block: (Block (SymbolTable 179 {_lpython_floordiv: (ExternalSymbol 179 _lpython_floordiv 79 _lpython_floordiv lpython_builtin [] _lpython_floordiv Private), _lpython_floordiv@__lpython_overloaded_2___lpython_floordiv: (ExternalSymbol 179 _lpython_floordiv@__lpython_overloaded_2___lpython_floordiv 79 __lpython_overloaded_2___lpython_floordiv lpython_builtin [] __lpython_overloaded_2___lpython_floordiv Public)}) block [(= (Var 172 i) (FunctionCall 179 _lpython_floordiv@__lpython_overloaded_2___lpython_floordiv 179 _lpython_floordiv [((Var 172 k)) ((IntegerConstant 16 (Integer 4 [])))] (Integer 4 []) () ()) ()) (= (Var 172 j) (IntegerBinOp (Var 172 k) Sub (IntegerBinOp (Var 172 i) Mul (IntegerConstant 16 (Integer 4 [])) (Integer 4 []) ()) (Integer 4 []) ()) ()) (= (ArrayItem (Var 172 b) [(() (Var 172 k) ())] (Real 8 []) RowMajor ()) (RealBinOp (Cast (IntegerBinOp (Var 172 i) Add (Var 172 j) (Integer 4 []) ()) IntegerToReal (Real 8 []) ()) Add (RealConstant 0.500000 (Real 8 [])) (Real 8 []) ()) ())]), block1: (Block (SymbolTable 180 {block: (Block (SymbolTable 181 {abs: (ExternalSymbol 181 abs 79 abs lpython_builtin [] abs Private), abs@__lpython_overloaded_0__abs: (ExternalSymbol 181 abs@__lpython_overloaded_0__abs 79 __lpython_overloaded_0__abs lpython_builtin [] __lpython_overloaded_0__abs Public)}) block [(Assert (RealCompare (FunctionCall 181 abs@__lpython_overloaded_0__abs 181 abs [((RealBinOp (RealBinOp (ArrayItem (Var 172 a) [(() (Var 172 i) ()) (() (Var 172 j) ())] (Real 8 []) RowMajor ()) Sub (Cast (IntegerBinOp (Var 172 i) Add (Var 172 j) (Integer 4 []) ()) IntegerToReal (Real 8 []) ()) (Real 8 []) ()) Sub (RealConstant 0.500000 (Real 8 [])) (Real 8 []) ()))] (Real 8 []) () ()) LtE (Var 172 eps) (Logical 4 []) ()) ())])}) block1 [(DoLoop ((Var 172 j) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (IntegerConstant 16 (Integer 4 [])) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant 15 (Integer 4 []))) (IntegerConstant 1 (Integer 4 []))) [(BlockCall -1 180 block)])]), block2: (Block (SymbolTable 182 {block: (Block (SymbolTable 183 {block: (Block (SymbolTable 184 {abs: (ExternalSymbol 184 abs 79 abs lpython_builtin [] abs Private), abs@__lpython_overloaded_0__abs: (ExternalSymbol 184 abs@__lpython_overloaded_0__abs 79 __lpython_overloaded_0__abs lpython_builtin [] __lpython_overloaded_0__abs Public)}) block [(Assert (RealCompare (FunctionCall 184 abs@__lpython_overloaded_0__abs 184 abs [((RealBinOp (RealBinOp (ArrayItem (Var 172 c) [(() (Var 172 i) ()) (() (Var 172 j) ()) (() (Var 172 k) ())] (Real 8 []) RowMajor ()) Sub (Cast (IntegerBinOp (IntegerBinOp (Var 172 i) Add (Var 172 j) (Integer 4 []) ()) Add (Var 172 k) (Integer 4 []) ()) IntegerToReal (Real 8 []) ()) (Real 8 []) ()) Sub (RealConstant 0.500000 (Real 8 [])) (Real 8 []) ()))] (Real 8 []) () ()) LtE (Var 172 eps) (Logical 4 []) ()) ())])}) block [(DoLoop ((Var 172 k) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (IntegerConstant 16 (Integer 4 [])) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant 15 (Integer 4 []))) (IntegerConstant 1 (Integer 4 []))) [(BlockCall -1 183 block)])])}) block2 [(DoLoop ((Var 172 j) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (IntegerConstant 16 (Integer 4 [])) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant 15 (Integer 4 []))) (IntegerConstant 1 (Integer 4 []))) [(BlockCall -1 182 block)])]), c: (Variable 172 c [] Local () () Default (Real 8 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 16 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 16 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 16 (Integer 4 [])))]) Source Public Required .false.), d: (Variable 172 d [] InOut () () Default (Real 8 [(() ())]) Source Public Required .false.), eps: (Variable 172 eps [] Local () () Default (Real 8 []) Source Public Required .false.), i: (Variable 172 i [] Local () () Default (Integer 4 []) Source Public Required .false.), j: (Variable 172 j [] Local () () Default (Integer 4 []) Source Public Required .false.), k: (Variable 172 k [] Local () () Default (Integer 4 []) Source Public Required .false.), l: (Variable 172 l [] Local () () Default (Integer 4 []) Source Public Required .false.), newshape: (Variable 172 newshape [] Local () () Default (Integer 4 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 2 (Integer 4 [])))]) Source Public Required .false.), newshape1: (Variable 172 newshape1 [] Local () () Default (Integer 4 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 3 (Integer 4 [])))]) Source Public Required .false.)}) test_1d_to_nd (FunctionType [(Real 8 [(() ())])] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [_lpython_floordiv@__lpython_overloaded_2___lpython_floordiv abs@__lpython_overloaded_0__abs abs@__lpython_overloaded_0__abs] [(Var 172 d)] [(= (Var 172 eps) (RealConstant 0.000000 (Real 8 [])) ()) (DoLoop ((Var 172 k) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (IntegerConstant 256 (Integer 4 [])) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant 255 (Integer 4 []))) (IntegerConstant 1 (Integer 4 []))) [(BlockCall -1 172 block)]) (= (ArrayItem (Var 172 newshape) [(() (IntegerConstant 0 (Integer 4 [])) ())] (Integer 4 []) RowMajor ()) (IntegerConstant 16 (Integer 4 [])) ()) (= (ArrayItem (Var 172 newshape) [(() (IntegerConstant 1 (Integer 4 [])) ())] (Integer 4 []) RowMajor ()) (IntegerConstant 16 (Integer 4 [])) ()) (= (Var 172 a) (ArrayReshape (Var 172 b) (Var 172 newshape) (Real 8 [(() ())]) ()) ()) (DoLoop ((Var 172 i) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (IntegerConstant 16 (Integer 4 [])) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant 15 (Integer 4 []))) (IntegerConstant 1 (Integer 4 []))) [(BlockCall -1 172 block1)]) (= (ArrayItem (Var 172 newshape1) [(() (IntegerConstant 0 (Integer 4 [])) ())] (Integer 4 []) RowMajor ()) (IntegerConstant 16 (Integer 4 [])) ()) (= (ArrayItem (Var 172 newshape1) [(() (IntegerConstant 1 (Integer 4 [])) ())] (Integer 4 []) RowMajor ()) (IntegerConstant 16 (Integer 4 [])) ()) (= (ArrayItem (Var 172 newshape1) [(() (IntegerConstant 2 (Integer 4 [])) ())] (Integer 4 []) RowMajor ()) (IntegerConstant 16 (Integer 4 [])) ()) (= (Var 172 c) (ArrayReshape (Var 172 d) (Var 172 newshape1) (Real 8 [(() ())]) ()) ()) (DoLoop ((Var 172 i) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (IntegerConstant 16 (Integer 4 [])) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant 15 (Integer 4 []))) (IntegerConstant 1 (Integer 4 []))) [(BlockCall -1 172 block2)])] () Public .false. .false.), test_nd_to_1d: (Function (SymbolTable 171 {a: (Variable 171 a [] InOut () () Default (Real 8 [(() ()) (() ())]) Source Public Required .false.), b: (Variable 171 b [] Local () () Default (Real 8 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 256 (Integer 4 [])))]) Source Public Required .false.), block: (Block (SymbolTable 174 {_lpython_floordiv: (ExternalSymbol 174 _lpython_floordiv 79 _lpython_floordiv lpython_builtin [] _lpython_floordiv Private), _lpython_floordiv@__lpython_overloaded_2___lpython_floordiv: (ExternalSymbol 174 _lpython_floordiv@__lpython_overloaded_2___lpython_floordiv 79 __lpython_overloaded_2___lpython_floordiv lpython_builtin [] __lpython_overloaded_2___lpython_floordiv Public), abs: (ExternalSymbol 174 abs 79 abs lpython_builtin [] abs Private), abs@__lpython_overloaded_0__abs: (ExternalSymbol 174 abs@__lpython_overloaded_0__abs 79 __lpython_overloaded_0__abs lpython_builtin [] __lpython_overloaded_0__abs Public)}) block [(= (Var 171 i) (FunctionCall 174 _lpython_floordiv@__lpython_overloaded_2___lpython_floordiv 174 _lpython_floordiv [((Var 171 k)) ((IntegerConstant 16 (Integer 4 [])))] (Integer 4 []) () ()) ()) (= (Var 171 j) (IntegerBinOp (Var 171 k) Sub (IntegerBinOp (Var 171 i) Mul (IntegerConstant 16 (Integer 4 [])) (Integer 4 []) ()) (Integer 4 []) ()) ()) (Assert (RealCompare (FunctionCall 174 abs@__lpython_overloaded_0__abs 174 abs [((RealBinOp (RealBinOp (ArrayItem (Var 171 b) [(() (Var 171 k) ())] (Real 8 []) RowMajor ()) Sub (Cast (IntegerBinOp (Var 171 i) Add (Var 171 j) (Integer 4 []) ()) IntegerToReal (Real 8 []) ()) (Real 8 []) ()) Sub (RealConstant 0.500000 (Real 8 [])) (Real 8 []) ()))] (Real 8 []) () ()) LtE (Var 171 eps) (Logical 4 []) ()) ())]), block1: (Block (SymbolTable 178 {_lpython_floordiv: (ExternalSymbol 178 _lpython_floordiv 79 _lpython_floordiv lpython_builtin [] _lpython_floordiv Private), _lpython_floordiv@__lpython_overloaded_2___lpython_floordiv: (ExternalSymbol 178 _lpython_floordiv@__lpython_overloaded_2___lpython_floordiv 79 __lpython_overloaded_2___lpython_floordiv lpython_builtin [] __lpython_overloaded_2___lpython_floordiv Public), abs: (ExternalSymbol 178 abs 79 abs lpython_builtin [] abs Private), abs@__lpython_overloaded_0__abs: (ExternalSymbol 178 abs@__lpython_overloaded_0__abs 79 __lpython_overloaded_0__abs lpython_builtin [] __lpython_overloaded_0__abs Public)}) block1 [(= (Var 171 i) (Cast (Cast (RealBinOp (Cast (Var 171 l) IntegerToReal (Real 8 []) ()) Div (Cast (IntegerConstant 256 (Integer 4 [])) IntegerToReal (Real 8 []) ()) (Real 8 []) ()) RealToInteger (Integer 8 []) ()) IntegerToInteger (Integer 4 []) ()) ()) (= (Var 171 j) (FunctionCall 178 _lpython_floordiv@__lpython_overloaded_2___lpython_floordiv 178 _lpython_floordiv [((IntegerBinOp (Var 171 l) Sub (IntegerBinOp (Var 171 i) Mul (IntegerConstant 256 (Integer 4 [])) (Integer 4 []) ()) (Integer 4 []) ())) ((IntegerConstant 16 (Integer 4 [])))] (Integer 4 []) () ()) ()) (= (Var 171 k) (IntegerBinOp (IntegerBinOp (Var 171 l) Sub (IntegerBinOp (Var 171 i) Mul (IntegerConstant 256 (Integer 4 [])) (Integer 4 []) ()) (Integer 4 []) ()) Sub (IntegerBinOp (Var 171 j) Mul (IntegerConstant 16 (Integer 4 [])) (Integer 4 []) ()) (Integer 4 []) ()) ()) (Assert (RealCompare (FunctionCall 178 abs@__lpython_overloaded_0__abs 178 abs [((RealBinOp (RealBinOp (ArrayItem (Var 171 d) [(() (Var 171 l) ())] (Real 8 []) RowMajor ()) Sub (Cast (IntegerBinOp (IntegerBinOp (Var 171 i) Add (Var 171 j) (Integer 4 []) ()) Add (Var 171 k) (Integer 4 []) ()) IntegerToReal (Real 8 []) ()) (Real 8 []) ()) Sub (RealConstant 0.500000 (Real 8 [])) (Real 8 []) ()))] (Real 8 []) () ()) LtE (Var 171 eps) (Logical 4 []) ()) ())]), c: (Variable 171 c [] Local () () Default (Real 8 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 16 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 16 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 16 (Integer 4 [])))]) Source Public Required .false.), d: (Variable 171 d [] Local () () Default (Real 8 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 4096 (Integer 4 [])))]) Source Public Required .false.), eps: (Variable 171 eps [] Local () () Default (Real 8 []) Source Public Required .false.), i: (Variable 171 i [] Local () () Default (Integer 4 []) Source Public Required .false.), j: (Variable 171 j [] Local () () Default (Integer 4 []) Source Public Required .false.), k: (Variable 171 k [] Local () () Default (Integer 4 []) Source Public Required .false.), l: (Variable 171 l [] Local () () Default (Integer 4 []) Source Public Required .false.), newshape: (Variable 171 newshape [] Local () () Default (Integer 4 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 1 (Integer 4 [])))]) Source Public Required .false.), newshape1: (Variable 171 newshape1 [] Local () () Default (Integer 4 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 1 (Integer 4 [])))]) Source Public Required .false.)}) test_nd_to_1d (FunctionType [(Real 8 [(() ()) (() ())])] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [_lpython_floordiv@__lpython_overloaded_2___lpython_floordiv abs@__lpython_overloaded_0__abs _lpython_floordiv@__lpython_overloaded_2___lpython_floordiv abs@__lpython_overloaded_0__abs] [(Var 171 a)] [(= (Var 171 eps) (RealConstant 0.000000 (Real 8 [])) ()) (= (ArrayItem (Var 171 newshape) [(() (IntegerConstant 0 (Integer 4 [])) ())] (Integer 4 []) RowMajor ()) (IntegerConstant 256 (Integer 4 [])) ()) (= (Var 171 b) (ArrayReshape (Var 171 a) (Var 171 newshape) (Real 8 [(() ())]) ()) ()) (DoLoop ((Var 171 k) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (IntegerConstant 256 (Integer 4 [])) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant 255 (Integer 4 []))) (IntegerConstant 1 (Integer 4 []))) [(BlockCall -1 171 block)]) (DoLoop ((Var 171 i) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (IntegerConstant 16 (Integer 4 [])) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant 15 (Integer 4 []))) (IntegerConstant 1 (Integer 4 []))) [(DoLoop ((Var 171 j) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (IntegerConstant 16 (Integer 4 [])) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant 15 (Integer 4 []))) (IntegerConstant 1 (Integer 4 []))) [(DoLoop ((Var 171 k) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (IntegerConstant 16 (Integer 4 [])) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant 15 (Integer 4 []))) (IntegerConstant 1 (Integer 4 []))) [(= (ArrayItem (Var 171 c) [(() (Var 171 i) ()) (() (Var 171 j) ()) (() (Var 171 k) ())] (Real 8 []) RowMajor ()) (RealBinOp (Cast (IntegerBinOp (IntegerBinOp (Var 171 i) Add (Var 171 j) (Integer 4 []) ()) Add (Var 171 k) (Integer 4 []) ()) IntegerToReal (Real 8 []) ()) Add (RealConstant 0.500000 (Real 8 [])) (Real 8 []) ()) ())])])]) (= (ArrayItem (Var 171 newshape1) [(() (IntegerConstant 0 (Integer 4 [])) ())] (Integer 4 []) RowMajor ()) (IntegerConstant 4096 (Integer 4 [])) ()) (= (Var 171 d) (ArrayReshape (Var 171 c) (Var 171 newshape1) (Real 8 [(() ())]) ()) ()) (DoLoop ((Var 171 l) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (IntegerConstant 4096 (Integer 4 [])) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant 4095 (Integer 4 []))) (IntegerConstant 1 (Integer 4 []))) [(BlockCall -1 171 block1)])] () Public .false. .false.), test_reshape_with_argument: (Function (SymbolTable 173 {a: (Variable 173 a [] Local () () Default (Real 8 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 16 (Integer 4 []))) ((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 16 (Integer 4 [])))]) Source Public Required .false.), block: (Block (SymbolTable 187 {_lpython_floordiv: (ExternalSymbol 187 _lpython_floordiv 79 _lpython_floordiv lpython_builtin [] _lpython_floordiv Private), _lpython_floordiv@__lpython_overloaded_2___lpython_floordiv: (ExternalSymbol 187 _lpython_floordiv@__lpython_overloaded_2___lpython_floordiv 79 __lpython_overloaded_2___lpython_floordiv lpython_builtin [] __lpython_overloaded_2___lpython_floordiv Public)}) block [(= (Var 173 i) (Cast (Cast (RealBinOp (Cast (Var 173 l) IntegerToReal (Real 8 []) ()) Div (Cast (IntegerConstant 256 (Integer 4 [])) IntegerToReal (Real 8 []) ()) (Real 8 []) ()) RealToInteger (Integer 8 []) ()) IntegerToInteger (Integer 4 []) ()) ()) (= (Var 173 j) (FunctionCall 187 _lpython_floordiv@__lpython_overloaded_2___lpython_floordiv 187 _lpython_floordiv [((IntegerBinOp (Var 173 l) Sub (IntegerBinOp (Var 173 i) Mul (IntegerConstant 256 (Integer 4 [])) (Integer 4 []) ()) (Integer 4 []) ())) ((IntegerConstant 16 (Integer 4 [])))] (Integer 4 []) () ()) ()) (= (Var 173 k) (IntegerBinOp (IntegerBinOp (Var 173 l) Sub (IntegerBinOp (Var 173 i) Mul (IntegerConstant 256 (Integer 4 [])) (Integer 4 []) ()) (Integer 4 []) ()) Sub (IntegerBinOp (Var 173 j) Mul (IntegerConstant 16 (Integer 4 [])) (Integer 4 []) ()) (Integer 4 []) ()) ()) (= (ArrayItem (Var 173 d) [(() (Var 173 l) ())] (Real 8 []) RowMajor ()) (RealBinOp (Cast (IntegerBinOp (IntegerBinOp (Var 173 i) Add (Var 173 j) (Integer 4 []) ()) Add (Var 173 k) (Integer 4 []) ()) IntegerToReal (Real 8 []) ()) Add (RealConstant 0.500000 (Real 8 [])) (Real 8 []) ()) ())]), d: (Variable 173 d [] Local () () Default (Real 8 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 4096 (Integer 4 [])))]) Source Public Required .false.), i: (Variable 173 i [] Local () () Default (Integer 4 []) Source Public Required .false.), j: (Variable 173 j [] Local () () Default (Integer 4 []) Source Public Required .false.), k: (Variable 173 k [] Local () () Default (Integer 4 []) Source Public Required .false.), l: (Variable 173 l [] Local () () Default (Integer 4 []) Source Public Required .false.)}) test_reshape_with_argument (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [_lpython_floordiv@__lpython_overloaded_2___lpython_floordiv test_nd_to_1d test_1d_to_nd] [] [(DoLoop ((Var 173 i) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (IntegerConstant 16 (Integer 4 [])) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant 15 (Integer 4 []))) (IntegerConstant 1 (Integer 4 []))) [(DoLoop ((Var 173 j) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (IntegerConstant 16 (Integer 4 [])) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant 15 (Integer 4 []))) (IntegerConstant 1 (Integer 4 []))) [(= (ArrayItem (Var 173 a) [(() (Var 173 i) ()) (() (Var 173 j) ())] (Real 8 []) RowMajor ()) (RealBinOp (Cast (IntegerBinOp (Var 173 i) Add (Var 173 j) (Integer 4 []) ()) IntegerToReal (Real 8 []) ()) Add (RealConstant 0.500000 (Real 8 [])) (Real 8 []) ()) ())])]) (SubroutineCall 1 test_nd_to_1d () [((Var 173 a))] ()) (DoLoop ((Var 173 l) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (IntegerConstant 4096 (Integer 4 [])) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant 4095 (Integer 4 []))) (IntegerConstant 1 (Integer 4 []))) [(BlockCall -1 173 block)]) (SubroutineCall 1 test_1d_to_nd () [((Var 173 d))] ())] () Public .false. .false.)}) [])
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            __main__global_stmts:
+                                (Function
+                                    (SymbolTable
+                                        242
+                                        {
+                                            
+                                        })
+                                    __main__global_stmts
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [test_reshape_with_argument]
+                                    []
+                                    [(SubroutineCall
+                                        2 test_reshape_with_argument
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            test_1d_to_nd:
+                                (Function
+                                    (SymbolTable
+                                        226
+                                        {
+                                            a:
+                                                (Variable
+                                                    226
+                                                    a
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Real 8)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 16 (Integer 4) Decimal))
+                                                        ((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 16 (Integer 4) Decimal))]
+                                                        FixedSizeArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            b:
+                                                (Variable
+                                                    226
+                                                    b
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Real 8)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 256 (Integer 4) Decimal))]
+                                                        FixedSizeArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            c:
+                                                (Variable
+                                                    226
+                                                    c
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Real 8)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 16 (Integer 4) Decimal))
+                                                        ((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 16 (Integer 4) Decimal))
+                                                        ((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 16 (Integer 4) Decimal))]
+                                                        FixedSizeArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            d:
+                                                (Variable
+                                                    226
+                                                    d
+                                                    []
+                                                    InOut
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Real 8)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        ())]
+                                                        DescriptorArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            eps:
+                                                (Variable
+                                                    226
+                                                    eps
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            i:
+                                                (Variable
+                                                    226
+                                                    i
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            j:
+                                                (Variable
+                                                    226
+                                                    j
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            k:
+                                                (Variable
+                                                    226
+                                                    k
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            l:
+                                                (Variable
+                                                    226
+                                                    l
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            newshape:
+                                                (Variable
+                                                    226
+                                                    newshape
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Integer 4)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 2 (Integer 4) Decimal))]
+                                                        FixedSizeArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            newshape1:
+                                                (Variable
+                                                    226
+                                                    newshape1
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Integer 4)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 3 (Integer 4) Decimal))]
+                                                        FixedSizeArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test_1d_to_nd
+                                    (FunctionType
+                                        [(Array
+                                            (Real 8)
+                                            [((IntegerConstant 0 (Integer 4) Decimal)
+                                            ())]
+                                            DescriptorArray
+                                        )]
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    [(Var 226 d)]
+                                    [(Assignment
+                                        (Var 226 eps)
+                                        (RealConstant
+                                            0.000000
+                                            (Real 8)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 226 b)
+                                        (ArrayBroadcast
+                                            (ArrayItem
+                                                (Var 226 b)
+                                                [(()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())]
+                                                (Real 8)
+                                                RowMajor
+                                                ()
+                                            )
+                                            (ArrayConstant
+                                                4
+                                                [256]
+                                                (Array
+                                                    (Integer 4)
+                                                    [((IntegerConstant 1 (Integer 4) Decimal)
+                                                    (IntegerConstant 1 (Integer 4) Decimal))]
+                                                    FixedSizeArray
+                                                )
+                                                ColMajor
+                                            )
+                                            (Array
+                                                (Real 8)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 256 (Integer 4) Decimal))]
+                                                FixedSizeArray
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 226 k)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (IntegerConstant 256 (Integer 4) Decimal)
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            (IntegerConstant 255 (Integer 4) Decimal)
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(Assignment
+                                            (Var 226 i)
+                                            (IntrinsicElementalFunction
+                                                FloorDiv
+                                                [(Var 226 k)
+                                                (IntegerConstant 16 (Integer 4) Decimal)]
+                                                0
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            ()
+                                            .false.
+                                            .false.
+                                        )
+                                        (Assignment
+                                            (Var 226 j)
+                                            (IntegerBinOp
+                                                (Var 226 k)
+                                                Sub
+                                                (IntegerBinOp
+                                                    (Var 226 i)
+                                                    Mul
+                                                    (IntegerConstant 16 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            ()
+                                            .false.
+                                            .false.
+                                        )
+                                        (Assignment
+                                            (ArrayItem
+                                                (Var 226 b)
+                                                [(()
+                                                (Var 226 k)
+                                                ())]
+                                                (Real 8)
+                                                RowMajor
+                                                ()
+                                            )
+                                            (RealBinOp
+                                                (Cast
+                                                    (IntegerBinOp
+                                                        (Var 226 i)
+                                                        Add
+                                                        (Var 226 j)
+                                                        (Integer 4)
+                                                        ()
+                                                    )
+                                                    IntegerToReal
+                                                    (Real 8)
+                                                    ()
+                                                )
+                                                Add
+                                                (RealConstant
+                                                    0.500000
+                                                    (Real 8)
+                                                )
+                                                (Real 8)
+                                                ()
+                                            )
+                                            ()
+                                            .false.
+                                            .false.
+                                        )]
+                                        []
+                                    )
+                                    (Assignment
+                                        (Var 226 a)
+                                        (ArrayBroadcast
+                                            (ArrayItem
+                                                (Var 226 a)
+                                                [(()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())
+                                                (()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())]
+                                                (Real 8)
+                                                RowMajor
+                                                ()
+                                            )
+                                            (ArrayConstant
+                                                8
+                                                [16, 16]
+                                                (Array
+                                                    (Integer 4)
+                                                    [((IntegerConstant 1 (Integer 4) Decimal)
+                                                    (IntegerConstant 2 (Integer 4) Decimal))]
+                                                    FixedSizeArray
+                                                )
+                                                ColMajor
+                                            )
+                                            (Array
+                                                (Real 8)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 16 (Integer 4) Decimal))
+                                                ((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 16 (Integer 4) Decimal))]
+                                                FixedSizeArray
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 226 newshape)
+                                        (ArrayBroadcast
+                                            (ArrayItem
+                                                (Var 226 newshape)
+                                                [(()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())]
+                                                (Integer 4)
+                                                RowMajor
+                                                ()
+                                            )
+                                            (ArrayConstant
+                                                4
+                                                [2]
+                                                (Array
+                                                    (Integer 4)
+                                                    [((IntegerConstant 1 (Integer 4) Decimal)
+                                                    (IntegerConstant 1 (Integer 4) Decimal))]
+                                                    FixedSizeArray
+                                                )
+                                                ColMajor
+                                            )
+                                            (Array
+                                                (Integer 4)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 2 (Integer 4) Decimal))]
+                                                FixedSizeArray
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (ArrayItem
+                                            (Var 226 newshape)
+                                            [(()
+                                            (IntegerConstant 0 (Integer 4) Decimal)
+                                            ())]
+                                            (Integer 4)
+                                            RowMajor
+                                            ()
+                                        )
+                                        (IntegerConstant 16 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (ArrayItem
+                                            (Var 226 newshape)
+                                            [(()
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            ())]
+                                            (Integer 4)
+                                            RowMajor
+                                            ()
+                                        )
+                                        (IntegerConstant 16 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 226 a)
+                                        (ArrayReshape
+                                            (Var 226 b)
+                                            (ArrayPhysicalCast
+                                                (Var 226 newshape)
+                                                FixedSizeArray
+                                                DescriptorArray
+                                                (Array
+                                                    (Integer 4)
+                                                    [((IntegerConstant 0 (Integer 4) Decimal)
+                                                    (IntegerConstant 2 (Integer 4) Decimal))]
+                                                    DescriptorArray
+                                                )
+                                                ()
+                                            )
+                                            (Array
+                                                (Real 8)
+                                                [(()
+                                                ())]
+                                                FixedSizeArray
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 226 i)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (IntegerConstant 16 (Integer 4) Decimal)
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            (IntegerConstant 15 (Integer 4) Decimal)
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(DoLoop
+                                            ()
+                                            ((Var 226 j)
+                                            (IntegerConstant 0 (Integer 4) Decimal)
+                                            (IntegerBinOp
+                                                (IntegerConstant 16 (Integer 4) Decimal)
+                                                Sub
+                                                (IntegerConstant 1 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                (IntegerConstant 15 (Integer 4) Decimal)
+                                            )
+                                            (IntegerConstant 1 (Integer 4) Decimal))
+                                            [(Assert
+                                                (RealCompare
+                                                    (IntrinsicElementalFunction
+                                                        Abs
+                                                        [(RealBinOp
+                                                            (RealBinOp
+                                                                (ArrayItem
+                                                                    (Var 226 a)
+                                                                    [(()
+                                                                    (Var 226 i)
+                                                                    ())
+                                                                    (()
+                                                                    (Var 226 j)
+                                                                    ())]
+                                                                    (Real 8)
+                                                                    RowMajor
+                                                                    ()
+                                                                )
+                                                                Sub
+                                                                (Cast
+                                                                    (IntegerBinOp
+                                                                        (Var 226 i)
+                                                                        Add
+                                                                        (Var 226 j)
+                                                                        (Integer 4)
+                                                                        ()
+                                                                    )
+                                                                    IntegerToReal
+                                                                    (Real 8)
+                                                                    ()
+                                                                )
+                                                                (Real 8)
+                                                                ()
+                                                            )
+                                                            Sub
+                                                            (RealConstant
+                                                                0.500000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            ()
+                                                        )]
+                                                        0
+                                                        (Real 8)
+                                                        ()
+                                                    )
+                                                    LtE
+                                                    (Var 226 eps)
+                                                    (Logical 4)
+                                                    ()
+                                                )
+                                                ()
+                                            )]
+                                            []
+                                        )]
+                                        []
+                                    )
+                                    (Assignment
+                                        (Var 226 c)
+                                        (ArrayBroadcast
+                                            (ArrayItem
+                                                (Var 226 c)
+                                                [(()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())
+                                                (()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())
+                                                (()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())]
+                                                (Real 8)
+                                                RowMajor
+                                                ()
+                                            )
+                                            (ArrayConstant
+                                                12
+                                                [16, 16, 16]
+                                                (Array
+                                                    (Integer 4)
+                                                    [((IntegerConstant 1 (Integer 4) Decimal)
+                                                    (IntegerConstant 3 (Integer 4) Decimal))]
+                                                    FixedSizeArray
+                                                )
+                                                ColMajor
+                                            )
+                                            (Array
+                                                (Real 8)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 16 (Integer 4) Decimal))
+                                                ((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 16 (Integer 4) Decimal))
+                                                ((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 16 (Integer 4) Decimal))]
+                                                FixedSizeArray
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 226 newshape1)
+                                        (ArrayBroadcast
+                                            (ArrayItem
+                                                (Var 226 newshape1)
+                                                [(()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())]
+                                                (Integer 4)
+                                                RowMajor
+                                                ()
+                                            )
+                                            (ArrayConstant
+                                                4
+                                                [3]
+                                                (Array
+                                                    (Integer 4)
+                                                    [((IntegerConstant 1 (Integer 4) Decimal)
+                                                    (IntegerConstant 1 (Integer 4) Decimal))]
+                                                    FixedSizeArray
+                                                )
+                                                ColMajor
+                                            )
+                                            (Array
+                                                (Integer 4)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 3 (Integer 4) Decimal))]
+                                                FixedSizeArray
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (ArrayItem
+                                            (Var 226 newshape1)
+                                            [(()
+                                            (IntegerConstant 0 (Integer 4) Decimal)
+                                            ())]
+                                            (Integer 4)
+                                            RowMajor
+                                            ()
+                                        )
+                                        (IntegerConstant 16 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (ArrayItem
+                                            (Var 226 newshape1)
+                                            [(()
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            ())]
+                                            (Integer 4)
+                                            RowMajor
+                                            ()
+                                        )
+                                        (IntegerConstant 16 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (ArrayItem
+                                            (Var 226 newshape1)
+                                            [(()
+                                            (IntegerConstant 2 (Integer 4) Decimal)
+                                            ())]
+                                            (Integer 4)
+                                            RowMajor
+                                            ()
+                                        )
+                                        (IntegerConstant 16 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 226 c)
+                                        (ArrayReshape
+                                            (Var 226 d)
+                                            (ArrayPhysicalCast
+                                                (Var 226 newshape1)
+                                                FixedSizeArray
+                                                DescriptorArray
+                                                (Array
+                                                    (Integer 4)
+                                                    [((IntegerConstant 0 (Integer 4) Decimal)
+                                                    (IntegerConstant 3 (Integer 4) Decimal))]
+                                                    DescriptorArray
+                                                )
+                                                ()
+                                            )
+                                            (Array
+                                                (Real 8)
+                                                [(()
+                                                ())]
+                                                DescriptorArray
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 226 i)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (IntegerConstant 16 (Integer 4) Decimal)
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            (IntegerConstant 15 (Integer 4) Decimal)
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(DoLoop
+                                            ()
+                                            ((Var 226 j)
+                                            (IntegerConstant 0 (Integer 4) Decimal)
+                                            (IntegerBinOp
+                                                (IntegerConstant 16 (Integer 4) Decimal)
+                                                Sub
+                                                (IntegerConstant 1 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                (IntegerConstant 15 (Integer 4) Decimal)
+                                            )
+                                            (IntegerConstant 1 (Integer 4) Decimal))
+                                            [(DoLoop
+                                                ()
+                                                ((Var 226 k)
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerBinOp
+                                                    (IntegerConstant 16 (Integer 4) Decimal)
+                                                    Sub
+                                                    (IntegerConstant 1 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    (IntegerConstant 15 (Integer 4) Decimal)
+                                                )
+                                                (IntegerConstant 1 (Integer 4) Decimal))
+                                                [(Assert
+                                                    (RealCompare
+                                                        (IntrinsicElementalFunction
+                                                            Abs
+                                                            [(RealBinOp
+                                                                (RealBinOp
+                                                                    (ArrayItem
+                                                                        (Var 226 c)
+                                                                        [(()
+                                                                        (Var 226 i)
+                                                                        ())
+                                                                        (()
+                                                                        (Var 226 j)
+                                                                        ())
+                                                                        (()
+                                                                        (Var 226 k)
+                                                                        ())]
+                                                                        (Real 8)
+                                                                        RowMajor
+                                                                        ()
+                                                                    )
+                                                                    Sub
+                                                                    (Cast
+                                                                        (IntegerBinOp
+                                                                            (IntegerBinOp
+                                                                                (Var 226 i)
+                                                                                Add
+                                                                                (Var 226 j)
+                                                                                (Integer 4)
+                                                                                ()
+                                                                            )
+                                                                            Add
+                                                                            (Var 226 k)
+                                                                            (Integer 4)
+                                                                            ()
+                                                                        )
+                                                                        IntegerToReal
+                                                                        (Real 8)
+                                                                        ()
+                                                                    )
+                                                                    (Real 8)
+                                                                    ()
+                                                                )
+                                                                Sub
+                                                                (RealConstant
+                                                                    0.500000
+                                                                    (Real 8)
+                                                                )
+                                                                (Real 8)
+                                                                ()
+                                                            )]
+                                                            0
+                                                            (Real 8)
+                                                            ()
+                                                        )
+                                                        LtE
+                                                        (Var 226 eps)
+                                                        (Logical 4)
+                                                        ()
+                                                    )
+                                                    ()
+                                                )]
+                                                []
+                                            )]
+                                            []
+                                        )]
+                                        []
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            test_nd_to_1d:
+                                (Function
+                                    (SymbolTable
+                                        225
+                                        {
+                                            a:
+                                                (Variable
+                                                    225
+                                                    a
+                                                    []
+                                                    InOut
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Real 8)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        ())
+                                                        ((IntegerConstant 0 (Integer 4) Decimal)
+                                                        ())]
+                                                        DescriptorArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            b:
+                                                (Variable
+                                                    225
+                                                    b
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Real 8)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 256 (Integer 4) Decimal))]
+                                                        FixedSizeArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            c:
+                                                (Variable
+                                                    225
+                                                    c
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Real 8)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 16 (Integer 4) Decimal))
+                                                        ((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 16 (Integer 4) Decimal))
+                                                        ((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 16 (Integer 4) Decimal))]
+                                                        FixedSizeArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            d:
+                                                (Variable
+                                                    225
+                                                    d
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Real 8)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 4096 (Integer 4) Decimal))]
+                                                        FixedSizeArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            eps:
+                                                (Variable
+                                                    225
+                                                    eps
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            i:
+                                                (Variable
+                                                    225
+                                                    i
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            j:
+                                                (Variable
+                                                    225
+                                                    j
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            k:
+                                                (Variable
+                                                    225
+                                                    k
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            l:
+                                                (Variable
+                                                    225
+                                                    l
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            newshape:
+                                                (Variable
+                                                    225
+                                                    newshape
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Integer 4)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 1 (Integer 4) Decimal))]
+                                                        FixedSizeArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            newshape1:
+                                                (Variable
+                                                    225
+                                                    newshape1
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Integer 4)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 1 (Integer 4) Decimal))]
+                                                        FixedSizeArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test_nd_to_1d
+                                    (FunctionType
+                                        [(Array
+                                            (Real 8)
+                                            [((IntegerConstant 0 (Integer 4) Decimal)
+                                            ())
+                                            ((IntegerConstant 0 (Integer 4) Decimal)
+                                            ())]
+                                            DescriptorArray
+                                        )]
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    [(Var 225 a)]
+                                    [(Assignment
+                                        (Var 225 eps)
+                                        (RealConstant
+                                            0.000000
+                                            (Real 8)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 225 b)
+                                        (ArrayBroadcast
+                                            (ArrayItem
+                                                (Var 225 b)
+                                                [(()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())]
+                                                (Real 8)
+                                                RowMajor
+                                                ()
+                                            )
+                                            (ArrayConstant
+                                                4
+                                                [256]
+                                                (Array
+                                                    (Integer 4)
+                                                    [((IntegerConstant 1 (Integer 4) Decimal)
+                                                    (IntegerConstant 1 (Integer 4) Decimal))]
+                                                    FixedSizeArray
+                                                )
+                                                ColMajor
+                                            )
+                                            (Array
+                                                (Real 8)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 256 (Integer 4) Decimal))]
+                                                FixedSizeArray
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 225 newshape)
+                                        (ArrayBroadcast
+                                            (ArrayItem
+                                                (Var 225 newshape)
+                                                [(()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())]
+                                                (Integer 4)
+                                                RowMajor
+                                                ()
+                                            )
+                                            (ArrayConstant
+                                                4
+                                                [1]
+                                                (Array
+                                                    (Integer 4)
+                                                    [((IntegerConstant 1 (Integer 4) Decimal)
+                                                    (IntegerConstant 1 (Integer 4) Decimal))]
+                                                    FixedSizeArray
+                                                )
+                                                ColMajor
+                                            )
+                                            (Array
+                                                (Integer 4)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 1 (Integer 4) Decimal))]
+                                                FixedSizeArray
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (ArrayItem
+                                            (Var 225 newshape)
+                                            [(()
+                                            (IntegerConstant 0 (Integer 4) Decimal)
+                                            ())]
+                                            (Integer 4)
+                                            RowMajor
+                                            ()
+                                        )
+                                        (IntegerConstant 256 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 225 b)
+                                        (ArrayReshape
+                                            (Var 225 a)
+                                            (ArrayPhysicalCast
+                                                (Var 225 newshape)
+                                                FixedSizeArray
+                                                DescriptorArray
+                                                (Array
+                                                    (Integer 4)
+                                                    [((IntegerConstant 0 (Integer 4) Decimal)
+                                                    (IntegerConstant 1 (Integer 4) Decimal))]
+                                                    DescriptorArray
+                                                )
+                                                ()
+                                            )
+                                            (Array
+                                                (Real 8)
+                                                [(()
+                                                ())]
+                                                DescriptorArray
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 225 k)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (IntegerConstant 256 (Integer 4) Decimal)
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            (IntegerConstant 255 (Integer 4) Decimal)
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(Assignment
+                                            (Var 225 i)
+                                            (IntrinsicElementalFunction
+                                                FloorDiv
+                                                [(Var 225 k)
+                                                (IntegerConstant 16 (Integer 4) Decimal)]
+                                                0
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            ()
+                                            .false.
+                                            .false.
+                                        )
+                                        (Assignment
+                                            (Var 225 j)
+                                            (IntegerBinOp
+                                                (Var 225 k)
+                                                Sub
+                                                (IntegerBinOp
+                                                    (Var 225 i)
+                                                    Mul
+                                                    (IntegerConstant 16 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            ()
+                                            .false.
+                                            .false.
+                                        )
+                                        (Assert
+                                            (RealCompare
+                                                (IntrinsicElementalFunction
+                                                    Abs
+                                                    [(RealBinOp
+                                                        (RealBinOp
+                                                            (ArrayItem
+                                                                (Var 225 b)
+                                                                [(()
+                                                                (Var 225 k)
+                                                                ())]
+                                                                (Real 8)
+                                                                RowMajor
+                                                                ()
+                                                            )
+                                                            Sub
+                                                            (Cast
+                                                                (IntegerBinOp
+                                                                    (Var 225 i)
+                                                                    Add
+                                                                    (Var 225 j)
+                                                                    (Integer 4)
+                                                                    ()
+                                                                )
+                                                                IntegerToReal
+                                                                (Real 8)
+                                                                ()
+                                                            )
+                                                            (Real 8)
+                                                            ()
+                                                        )
+                                                        Sub
+                                                        (RealConstant
+                                                            0.500000
+                                                            (Real 8)
+                                                        )
+                                                        (Real 8)
+                                                        ()
+                                                    )]
+                                                    0
+                                                    (Real 8)
+                                                    ()
+                                                )
+                                                LtE
+                                                (Var 225 eps)
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            ()
+                                        )]
+                                        []
+                                    )
+                                    (Assignment
+                                        (Var 225 c)
+                                        (ArrayBroadcast
+                                            (ArrayItem
+                                                (Var 225 c)
+                                                [(()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())
+                                                (()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())
+                                                (()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())]
+                                                (Real 8)
+                                                RowMajor
+                                                ()
+                                            )
+                                            (ArrayConstant
+                                                12
+                                                [16, 16, 16]
+                                                (Array
+                                                    (Integer 4)
+                                                    [((IntegerConstant 1 (Integer 4) Decimal)
+                                                    (IntegerConstant 3 (Integer 4) Decimal))]
+                                                    FixedSizeArray
+                                                )
+                                                ColMajor
+                                            )
+                                            (Array
+                                                (Real 8)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 16 (Integer 4) Decimal))
+                                                ((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 16 (Integer 4) Decimal))
+                                                ((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 16 (Integer 4) Decimal))]
+                                                FixedSizeArray
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 225 c)
+                                        (ArrayBroadcast
+                                            (ArrayItem
+                                                (Var 225 c)
+                                                [(()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())
+                                                (()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())
+                                                (()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())]
+                                                (Real 8)
+                                                RowMajor
+                                                ()
+                                            )
+                                            (ArrayConstant
+                                                12
+                                                [16, 16, 16]
+                                                (Array
+                                                    (Integer 4)
+                                                    [((IntegerConstant 1 (Integer 4) Decimal)
+                                                    (IntegerConstant 3 (Integer 4) Decimal))]
+                                                    FixedSizeArray
+                                                )
+                                                ColMajor
+                                            )
+                                            (Array
+                                                (Real 8)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 16 (Integer 4) Decimal))
+                                                ((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 16 (Integer 4) Decimal))
+                                                ((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 16 (Integer 4) Decimal))]
+                                                FixedSizeArray
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 225 i)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (IntegerConstant 16 (Integer 4) Decimal)
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            (IntegerConstant 15 (Integer 4) Decimal)
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(DoLoop
+                                            ()
+                                            ((Var 225 j)
+                                            (IntegerConstant 0 (Integer 4) Decimal)
+                                            (IntegerBinOp
+                                                (IntegerConstant 16 (Integer 4) Decimal)
+                                                Sub
+                                                (IntegerConstant 1 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                (IntegerConstant 15 (Integer 4) Decimal)
+                                            )
+                                            (IntegerConstant 1 (Integer 4) Decimal))
+                                            [(DoLoop
+                                                ()
+                                                ((Var 225 k)
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerBinOp
+                                                    (IntegerConstant 16 (Integer 4) Decimal)
+                                                    Sub
+                                                    (IntegerConstant 1 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    (IntegerConstant 15 (Integer 4) Decimal)
+                                                )
+                                                (IntegerConstant 1 (Integer 4) Decimal))
+                                                [(Assignment
+                                                    (ArrayItem
+                                                        (Var 225 c)
+                                                        [(()
+                                                        (Var 225 i)
+                                                        ())
+                                                        (()
+                                                        (Var 225 j)
+                                                        ())
+                                                        (()
+                                                        (Var 225 k)
+                                                        ())]
+                                                        (Real 8)
+                                                        RowMajor
+                                                        ()
+                                                    )
+                                                    (RealBinOp
+                                                        (Cast
+                                                            (IntegerBinOp
+                                                                (IntegerBinOp
+                                                                    (Var 225 i)
+                                                                    Add
+                                                                    (Var 225 j)
+                                                                    (Integer 4)
+                                                                    ()
+                                                                )
+                                                                Add
+                                                                (Var 225 k)
+                                                                (Integer 4)
+                                                                ()
+                                                            )
+                                                            IntegerToReal
+                                                            (Real 8)
+                                                            ()
+                                                        )
+                                                        Add
+                                                        (RealConstant
+                                                            0.500000
+                                                            (Real 8)
+                                                        )
+                                                        (Real 8)
+                                                        ()
+                                                    )
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )]
+                                                []
+                                            )]
+                                            []
+                                        )]
+                                        []
+                                    )
+                                    (Assignment
+                                        (Var 225 d)
+                                        (ArrayBroadcast
+                                            (ArrayItem
+                                                (Var 225 d)
+                                                [(()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())]
+                                                (Real 8)
+                                                RowMajor
+                                                ()
+                                            )
+                                            (ArrayConstant
+                                                4
+                                                [4096]
+                                                (Array
+                                                    (Integer 4)
+                                                    [((IntegerConstant 1 (Integer 4) Decimal)
+                                                    (IntegerConstant 1 (Integer 4) Decimal))]
+                                                    FixedSizeArray
+                                                )
+                                                ColMajor
+                                            )
+                                            (Array
+                                                (Real 8)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 4096 (Integer 4) Decimal))]
+                                                FixedSizeArray
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 225 newshape1)
+                                        (ArrayBroadcast
+                                            (ArrayItem
+                                                (Var 225 newshape1)
+                                                [(()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())]
+                                                (Integer 4)
+                                                RowMajor
+                                                ()
+                                            )
+                                            (ArrayConstant
+                                                4
+                                                [1]
+                                                (Array
+                                                    (Integer 4)
+                                                    [((IntegerConstant 1 (Integer 4) Decimal)
+                                                    (IntegerConstant 1 (Integer 4) Decimal))]
+                                                    FixedSizeArray
+                                                )
+                                                ColMajor
+                                            )
+                                            (Array
+                                                (Integer 4)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 1 (Integer 4) Decimal))]
+                                                FixedSizeArray
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (ArrayItem
+                                            (Var 225 newshape1)
+                                            [(()
+                                            (IntegerConstant 0 (Integer 4) Decimal)
+                                            ())]
+                                            (Integer 4)
+                                            RowMajor
+                                            ()
+                                        )
+                                        (IntegerConstant 4096 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 225 d)
+                                        (ArrayReshape
+                                            (Var 225 c)
+                                            (ArrayPhysicalCast
+                                                (Var 225 newshape1)
+                                                FixedSizeArray
+                                                DescriptorArray
+                                                (Array
+                                                    (Integer 4)
+                                                    [((IntegerConstant 0 (Integer 4) Decimal)
+                                                    (IntegerConstant 1 (Integer 4) Decimal))]
+                                                    DescriptorArray
+                                                )
+                                                ()
+                                            )
+                                            (Array
+                                                (Real 8)
+                                                [(()
+                                                ())]
+                                                FixedSizeArray
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 225 l)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (IntegerConstant 4096 (Integer 4) Decimal)
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            (IntegerConstant 4095 (Integer 4) Decimal)
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(Assignment
+                                            (Var 225 i)
+                                            (Cast
+                                                (RealBinOp
+                                                    (Cast
+                                                        (Var 225 l)
+                                                        IntegerToReal
+                                                        (Real 8)
+                                                        ()
+                                                    )
+                                                    Div
+                                                    (Cast
+                                                        (IntegerConstant 256 (Integer 4) Decimal)
+                                                        IntegerToReal
+                                                        (Real 8)
+                                                        (RealConstant
+                                                            256.000000
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                    (Real 8)
+                                                    ()
+                                                )
+                                                RealToInteger
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            ()
+                                            .false.
+                                            .false.
+                                        )
+                                        (Assignment
+                                            (Var 225 j)
+                                            (IntrinsicElementalFunction
+                                                FloorDiv
+                                                [(IntegerBinOp
+                                                    (Var 225 l)
+                                                    Sub
+                                                    (IntegerBinOp
+                                                        (Var 225 i)
+                                                        Mul
+                                                        (IntegerConstant 256 (Integer 4) Decimal)
+                                                        (Integer 4)
+                                                        ()
+                                                    )
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                (IntegerConstant 16 (Integer 4) Decimal)]
+                                                0
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            ()
+                                            .false.
+                                            .false.
+                                        )
+                                        (Assignment
+                                            (Var 225 k)
+                                            (IntegerBinOp
+                                                (IntegerBinOp
+                                                    (Var 225 l)
+                                                    Sub
+                                                    (IntegerBinOp
+                                                        (Var 225 i)
+                                                        Mul
+                                                        (IntegerConstant 256 (Integer 4) Decimal)
+                                                        (Integer 4)
+                                                        ()
+                                                    )
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                Sub
+                                                (IntegerBinOp
+                                                    (Var 225 j)
+                                                    Mul
+                                                    (IntegerConstant 16 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            ()
+                                            .false.
+                                            .false.
+                                        )
+                                        (Assert
+                                            (RealCompare
+                                                (IntrinsicElementalFunction
+                                                    Abs
+                                                    [(RealBinOp
+                                                        (RealBinOp
+                                                            (ArrayItem
+                                                                (Var 225 d)
+                                                                [(()
+                                                                (Var 225 l)
+                                                                ())]
+                                                                (Real 8)
+                                                                RowMajor
+                                                                ()
+                                                            )
+                                                            Sub
+                                                            (Cast
+                                                                (IntegerBinOp
+                                                                    (IntegerBinOp
+                                                                        (Var 225 i)
+                                                                        Add
+                                                                        (Var 225 j)
+                                                                        (Integer 4)
+                                                                        ()
+                                                                    )
+                                                                    Add
+                                                                    (Var 225 k)
+                                                                    (Integer 4)
+                                                                    ()
+                                                                )
+                                                                IntegerToReal
+                                                                (Real 8)
+                                                                ()
+                                                            )
+                                                            (Real 8)
+                                                            ()
+                                                        )
+                                                        Sub
+                                                        (RealConstant
+                                                            0.500000
+                                                            (Real 8)
+                                                        )
+                                                        (Real 8)
+                                                        ()
+                                                    )]
+                                                    0
+                                                    (Real 8)
+                                                    ()
+                                                )
+                                                LtE
+                                                (Var 225 eps)
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            ()
+                                        )]
+                                        []
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            test_reshape_with_argument:
+                                (Function
+                                    (SymbolTable
+                                        227
+                                        {
+                                            a:
+                                                (Variable
+                                                    227
+                                                    a
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Real 8)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 16 (Integer 4) Decimal))
+                                                        ((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 16 (Integer 4) Decimal))]
+                                                        FixedSizeArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            d:
+                                                (Variable
+                                                    227
+                                                    d
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Real 8)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 4096 (Integer 4) Decimal))]
+                                                        FixedSizeArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            i:
+                                                (Variable
+                                                    227
+                                                    i
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            j:
+                                                (Variable
+                                                    227
+                                                    j
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            k:
+                                                (Variable
+                                                    227
+                                                    k
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            l:
+                                                (Variable
+                                                    227
+                                                    l
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test_reshape_with_argument
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [test_nd_to_1d
+                                    test_1d_to_nd]
+                                    []
+                                    [(Assignment
+                                        (Var 227 a)
+                                        (ArrayBroadcast
+                                            (ArrayItem
+                                                (Var 227 a)
+                                                [(()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())
+                                                (()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())]
+                                                (Real 8)
+                                                RowMajor
+                                                ()
+                                            )
+                                            (ArrayConstant
+                                                8
+                                                [16, 16]
+                                                (Array
+                                                    (Integer 4)
+                                                    [((IntegerConstant 1 (Integer 4) Decimal)
+                                                    (IntegerConstant 2 (Integer 4) Decimal))]
+                                                    FixedSizeArray
+                                                )
+                                                ColMajor
+                                            )
+                                            (Array
+                                                (Real 8)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 16 (Integer 4) Decimal))
+                                                ((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 16 (Integer 4) Decimal))]
+                                                FixedSizeArray
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 227 i)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (IntegerConstant 16 (Integer 4) Decimal)
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            (IntegerConstant 15 (Integer 4) Decimal)
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(DoLoop
+                                            ()
+                                            ((Var 227 j)
+                                            (IntegerConstant 0 (Integer 4) Decimal)
+                                            (IntegerBinOp
+                                                (IntegerConstant 16 (Integer 4) Decimal)
+                                                Sub
+                                                (IntegerConstant 1 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                (IntegerConstant 15 (Integer 4) Decimal)
+                                            )
+                                            (IntegerConstant 1 (Integer 4) Decimal))
+                                            [(Assignment
+                                                (ArrayItem
+                                                    (Var 227 a)
+                                                    [(()
+                                                    (Var 227 i)
+                                                    ())
+                                                    (()
+                                                    (Var 227 j)
+                                                    ())]
+                                                    (Real 8)
+                                                    RowMajor
+                                                    ()
+                                                )
+                                                (RealBinOp
+                                                    (Cast
+                                                        (IntegerBinOp
+                                                            (Var 227 i)
+                                                            Add
+                                                            (Var 227 j)
+                                                            (Integer 4)
+                                                            ()
+                                                        )
+                                                        IntegerToReal
+                                                        (Real 8)
+                                                        ()
+                                                    )
+                                                    Add
+                                                    (RealConstant
+                                                        0.500000
+                                                        (Real 8)
+                                                    )
+                                                    (Real 8)
+                                                    ()
+                                                )
+                                                ()
+                                                .false.
+                                                .false.
+                                            )]
+                                            []
+                                        )]
+                                        []
+                                    )
+                                    (SubroutineCall
+                                        2 test_nd_to_1d
+                                        ()
+                                        [((ArrayPhysicalCast
+                                            (Var 227 a)
+                                            FixedSizeArray
+                                            DescriptorArray
+                                            (Array
+                                                (Real 8)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 16 (Integer 4) Decimal))
+                                                ((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 16 (Integer 4) Decimal))]
+                                                DescriptorArray
+                                            )
+                                            ()
+                                        ))]
+                                        ()
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 227 d)
+                                        (ArrayBroadcast
+                                            (ArrayItem
+                                                (Var 227 d)
+                                                [(()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())]
+                                                (Real 8)
+                                                RowMajor
+                                                ()
+                                            )
+                                            (ArrayConstant
+                                                4
+                                                [4096]
+                                                (Array
+                                                    (Integer 4)
+                                                    [((IntegerConstant 1 (Integer 4) Decimal)
+                                                    (IntegerConstant 1 (Integer 4) Decimal))]
+                                                    FixedSizeArray
+                                                )
+                                                ColMajor
+                                            )
+                                            (Array
+                                                (Real 8)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 4096 (Integer 4) Decimal))]
+                                                FixedSizeArray
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 227 l)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (IntegerConstant 4096 (Integer 4) Decimal)
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            (IntegerConstant 4095 (Integer 4) Decimal)
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(Assignment
+                                            (Var 227 i)
+                                            (Cast
+                                                (RealBinOp
+                                                    (Cast
+                                                        (Var 227 l)
+                                                        IntegerToReal
+                                                        (Real 8)
+                                                        ()
+                                                    )
+                                                    Div
+                                                    (Cast
+                                                        (IntegerConstant 256 (Integer 4) Decimal)
+                                                        IntegerToReal
+                                                        (Real 8)
+                                                        (RealConstant
+                                                            256.000000
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                    (Real 8)
+                                                    ()
+                                                )
+                                                RealToInteger
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            ()
+                                            .false.
+                                            .false.
+                                        )
+                                        (Assignment
+                                            (Var 227 j)
+                                            (IntrinsicElementalFunction
+                                                FloorDiv
+                                                [(IntegerBinOp
+                                                    (Var 227 l)
+                                                    Sub
+                                                    (IntegerBinOp
+                                                        (Var 227 i)
+                                                        Mul
+                                                        (IntegerConstant 256 (Integer 4) Decimal)
+                                                        (Integer 4)
+                                                        ()
+                                                    )
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                (IntegerConstant 16 (Integer 4) Decimal)]
+                                                0
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            ()
+                                            .false.
+                                            .false.
+                                        )
+                                        (Assignment
+                                            (Var 227 k)
+                                            (IntegerBinOp
+                                                (IntegerBinOp
+                                                    (Var 227 l)
+                                                    Sub
+                                                    (IntegerBinOp
+                                                        (Var 227 i)
+                                                        Mul
+                                                        (IntegerConstant 256 (Integer 4) Decimal)
+                                                        (Integer 4)
+                                                        ()
+                                                    )
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                Sub
+                                                (IntegerBinOp
+                                                    (Var 227 j)
+                                                    Mul
+                                                    (IntegerConstant 16 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            ()
+                                            .false.
+                                            .false.
+                                        )
+                                        (Assignment
+                                            (ArrayItem
+                                                (Var 227 d)
+                                                [(()
+                                                (Var 227 l)
+                                                ())]
+                                                (Real 8)
+                                                RowMajor
+                                                ()
+                                            )
+                                            (RealBinOp
+                                                (Cast
+                                                    (IntegerBinOp
+                                                        (IntegerBinOp
+                                                            (Var 227 i)
+                                                            Add
+                                                            (Var 227 j)
+                                                            (Integer 4)
+                                                            ()
+                                                        )
+                                                        Add
+                                                        (Var 227 k)
+                                                        (Integer 4)
+                                                        ()
+                                                    )
+                                                    IntegerToReal
+                                                    (Real 8)
+                                                    ()
+                                                )
+                                                Add
+                                                (RealConstant
+                                                    0.500000
+                                                    (Real 8)
+                                                )
+                                                (Real 8)
+                                                ()
+                                            )
+                                            ()
+                                            .false.
+                                            .false.
+                                        )]
+                                        []
+                                    )
+                                    (SubroutineCall
+                                        2 test_1d_to_nd
+                                        ()
+                                        [((ArrayPhysicalCast
+                                            (Var 227 d)
+                                            FixedSizeArray
+                                            DescriptorArray
+                                            (Array
+                                                (Real 8)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 4096 (Integer 4) Decimal))]
+                                                DescriptorArray
+                                            )
+                                            ()
+                                        ))]
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    [numpy]
+                    .false.
+                    .false.
+                    .false.
+                ),
+            lpython_builtin:
+                (IntrinsicModule lpython_builtin),
+            main_program:
+                (Program
+                    (SymbolTable
+                        243
+                        {
+                            __main__global_stmts:
+                                (ExternalSymbol
+                                    243
+                                    __main__global_stmts
+                                    2 __main__global_stmts
+                                    __main__
+                                    []
+                                    __main__global_stmts
+                                    Public
+                                )
+                        })
+                    main_program
+                    [__main__]
+                    [(SubroutineCall
+                        243 __main__global_stmts
+                        2 __main__global_stmts
+                        []
+                        ()
+                        .false.
+                    )]
+                ),
+            numpy:
+                (Module numpy)
+        })
+    []
+)
diff --git a/tests/reference/asr-test_numpy_04-ecbb614.json b/tests/reference/asr-test_numpy_04-ecbb614.json
index 2999aa5ff3..6fbe0e9c00 100644
--- a/tests/reference/asr-test_numpy_04-ecbb614.json
+++ b/tests/reference/asr-test_numpy_04-ecbb614.json
@@ -2,11 +2,11 @@
     "basename": "asr-test_numpy_04-ecbb614",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/../integration_tests/test_numpy_04.py",
-    "infile_hash": "d9a0e72a70d0793614d26709f45959d7d43fd60f81bde0a8bf69746b",
+    "infile_hash": "0fbd0a4280966dd9a917d3a005887954325fb1ea5468fd28dcae930f",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "asr-test_numpy_04-ecbb614.stdout",
-    "stdout_hash": "e724a18568953724bbe32ed1e0d5178416797c4b18ae3be24b30c66c",
+    "stdout_hash": "c8dbe65897fa4f36a74365852615f55e665c520e7cd1f439f1736caf",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/asr-test_numpy_04-ecbb614.stdout b/tests/reference/asr-test_numpy_04-ecbb614.stdout
index 4890deee01..37e65bf941 100644
--- a/tests/reference/asr-test_numpy_04-ecbb614.stdout
+++ b/tests/reference/asr-test_numpy_04-ecbb614.stdout
@@ -1 +1,542 @@
-(TranslationUnit (SymbolTable 1 {_lpython_main_program: (Function (SymbolTable 175 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [check] [] [(SubroutineCall 1 check () [] ())] () Public .false. .false.), check: (Function (SymbolTable 173 {}) check (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [test_array_01 test_array_02] [] [(SubroutineCall 1 test_array_01 () [] ()) (SubroutineCall 1 test_array_02 () [] ())] () Public .false. .false.), lpython_builtin: (IntrinsicModule lpython_builtin), main_program: (Program (SymbolTable 174 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())]), numpy: (Module (SymbolTable 3 {__lpython_overloaded_0__arccos: (Function (SymbolTable 41 {_lpython_return_variable: (Variable 41 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 41 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arccos (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dacos] [(Var 41 x)] [(= (Var 41 _lpython_return_variable) (FunctionCall 3 _lfortran_dacos () [((Var 41 x))] (Real 8 []) () ()) ()) (Return)] (Var 41 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__arccosh: (Function (SymbolTable 65 {_lpython_return_variable: (Variable 65 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 65 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arccosh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dacosh] [(Var 65 x)] [(= (Var 65 _lpython_return_variable) (FunctionCall 3 _lfortran_dacosh () [((Var 65 x))] (Real 8 []) () ()) ()) (Return)] (Var 65 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__arcsin: (Function (SymbolTable 37 {_lpython_return_variable: (Variable 37 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 37 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arcsin (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dasin] [(Var 37 x)] [(= (Var 37 _lpython_return_variable) (FunctionCall 3 _lfortran_dasin () [((Var 37 x))] (Real 8 []) () ()) ()) (Return)] (Var 37 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__arcsinh: (Function (SymbolTable 61 {_lpython_return_variable: (Variable 61 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 61 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arcsinh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dasinh] [(Var 61 x)] [(= (Var 61 _lpython_return_variable) (FunctionCall 3 _lfortran_dasinh () [((Var 61 x))] (Real 8 []) () ()) ()) (Return)] (Var 61 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__arctan: (Function (SymbolTable 53 {_lpython_return_variable: (Variable 53 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 53 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arctan (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_datan] [(Var 53 x)] [(= (Var 53 _lpython_return_variable) (FunctionCall 3 _lfortran_datan () [((Var 53 x))] (Real 8 []) () ()) ()) (Return)] (Var 53 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__arctanh: (Function (SymbolTable 69 {_lpython_return_variable: (Variable 69 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 69 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arctanh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_datanh] [(Var 69 x)] [(= (Var 69 _lpython_return_variable) (FunctionCall 3 _lfortran_datanh () [((Var 69 x))] (Real 8 []) () ()) ()) (Return)] (Var 69 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__ceil: (Function (SymbolTable 76 {_lpython_return_variable: (Variable 76 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), result: (Variable 76 result [] Local () () Default (Integer 8 []) Source Public Required .false.), x: (Variable 76 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__ceil (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 76 x)] [(= (Var 76 result) (Cast (Var 76 x) RealToInteger (Integer 8 []) ()) ()) (If (LogicalBinOp (RealCompare (Var 76 x) LtE (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToReal (Real 8 []) ()) (Logical 4 []) ()) Or (RealCompare (Var 76 x) Eq (Cast (Var 76 result) IntegerToReal (Real 8 []) ()) (Logical 4 []) ()) (Logical 4 []) ()) [(= (Var 76 _lpython_return_variable) (Cast (Var 76 result) IntegerToReal (Real 8 []) ()) ()) (Return)] []) (= (Var 76 _lpython_return_variable) (Cast (IntegerBinOp (Var 76 result) Add (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 1 (Integer 8 []))) (Integer 8 []) ()) IntegerToReal (Real 8 []) ()) ()) (Return)] (Var 76 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__cos: (Function (SymbolTable 9 {_lpython_return_variable: (Variable 9 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 9 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__cos (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dcos] [(Var 9 x)] [(= (Var 9 _lpython_return_variable) (FunctionCall 3 _lfortran_dcos () [((Var 9 x))] (Real 8 []) () ()) ()) (Return)] (Var 9 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__cosh: (Function (SymbolTable 23 {_lpython_return_variable: (Variable 23 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 23 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__cosh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dcosh] [(Var 23 x)] [(= (Var 23 _lpython_return_variable) (FunctionCall 3 _lfortran_dcosh () [((Var 23 x))] (Real 8 []) () ()) ()) (Return)] (Var 23 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__degrees: (Function (SymbolTable 56 {_lpython_return_variable: (Variable 56 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 56 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__degrees (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 56 x)] [(= (Var 56 _lpython_return_variable) (RealBinOp (RealBinOp (Var 56 x) Mul (RealConstant 180.000000 (Real 8 [])) (Real 8 []) ()) Div (Var 3 pi_64) (Real 8 []) ()) ()) (Return)] (Var 56 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__exp: (Function (SymbolTable 49 {_lpython_return_variable: (Variable 49 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 49 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__exp (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dexp] [(Var 49 x)] [(= (Var 49 _lpython_return_variable) (FunctionCall 3 _lfortran_dexp () [((Var 49 x))] (Real 8 []) () ()) ()) (Return)] (Var 49 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__floor: (Function (SymbolTable 74 {_lpython_return_variable: (Variable 74 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), result: (Variable 74 result [] Local () () Default (Integer 8 []) Source Public Required .false.), x: (Variable 74 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__floor (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 74 x)] [(= (Var 74 result) (Cast (Var 74 x) RealToInteger (Integer 8 []) ()) ()) (If (LogicalBinOp (RealCompare (Var 74 x) GtE (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToReal (Real 8 []) ()) (Logical 4 []) ()) Or (RealCompare (Var 74 x) Eq (Cast (Var 74 result) IntegerToReal (Real 8 []) ()) (Logical 4 []) ()) (Logical 4 []) ()) [(= (Var 74 _lpython_return_variable) (Cast (Var 74 result) IntegerToReal (Real 8 []) ()) ()) (Return)] []) (= (Var 74 _lpython_return_variable) (Cast (IntegerBinOp (Var 74 result) Sub (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 1 (Integer 8 []))) (Integer 8 []) ()) IntegerToReal (Real 8 []) ()) ()) (Return)] (Var 74 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__log: (Function (SymbolTable 27 {_lpython_return_variable: (Variable 27 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 27 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__log (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dlog] [(Var 27 x)] [(= (Var 27 _lpython_return_variable) (FunctionCall 3 _lfortran_dlog () [((Var 27 x))] (Real 8 []) () ()) ()) (Return)] (Var 27 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__log10: (Function (SymbolTable 31 {_lpython_return_variable: (Variable 31 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 31 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__log10 (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dlog10] [(Var 31 x)] [(= (Var 31 _lpython_return_variable) (FunctionCall 3 _lfortran_dlog10 () [((Var 31 x))] (Real 8 []) () ()) ()) (Return)] (Var 31 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__log2: (Function (SymbolTable 34 {_lpython_return_variable: (Variable 34 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 34 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__log2 (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dlog _lfortran_dlog] [(Var 34 x)] [(= (Var 34 _lpython_return_variable) (RealBinOp (FunctionCall 3 _lfortran_dlog () [((Var 34 x))] (Real 8 []) () ()) Div (FunctionCall 3 _lfortran_dlog () [((RealConstant 2.000000 (Real 8 [])))] (Real 8 []) () ()) (Real 8 []) ()) ()) (Return)] (Var 34 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__mod: (Function (SymbolTable 72 {_lpython_return_variable: (Variable 72 _lpython_return_variable [] ReturnVar () () Default (Integer 8 []) Source Public Required .false.), _mod: (ExternalSymbol 72 _mod 79 _mod lpython_builtin [] _mod Private), _mod@__lpython_overloaded_2___mod: (ExternalSymbol 72 _mod@__lpython_overloaded_2___mod 79 __lpython_overloaded_2___mod lpython_builtin [] __lpython_overloaded_2___mod Public), x1: (Variable 72 x1 [] In () () Default (Integer 8 []) Source Public Required .false.), x2: (Variable 72 x2 [] In () () Default (Integer 8 []) Source Public Required .false.)}) __lpython_overloaded_0__mod (FunctionType [(Integer 8 []) (Integer 8 [])] (Integer 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_mod@__lpython_overloaded_2___mod] [(Var 72 x1) (Var 72 x2)] [(If (IntegerCompare (Var 72 x2) Eq (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 0 (Integer 8 []))) (Logical 4 []) ()) [(= (Var 72 _lpython_return_variable) (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToInteger (Integer 8 []) ()) ()) (Return)] []) (= (Var 72 _lpython_return_variable) (FunctionCall 72 _mod@__lpython_overloaded_2___mod 72 _mod [((Var 72 x1)) ((Var 72 x2))] (Integer 8 []) () ()) ()) (Return)] (Var 72 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__radians: (Function (SymbolTable 58 {_lpython_return_variable: (Variable 58 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 58 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__radians (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 58 x)] [(= (Var 58 _lpython_return_variable) (RealBinOp (RealBinOp (Var 58 x) Mul (Var 3 pi_64) (Real 8 []) ()) Div (RealConstant 180.000000 (Real 8 [])) (Real 8 []) ()) ()) (Return)] (Var 58 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__sin: (Function (SymbolTable 5 {_lpython_return_variable: (Variable 5 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 5 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__sin (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dsin] [(Var 5 x)] [(= (Var 5 _lpython_return_variable) (FunctionCall 3 _lfortran_dsin () [((Var 5 x))] (Real 8 []) () ()) ()) (Return)] (Var 5 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__sinh: (Function (SymbolTable 19 {_lpython_return_variable: (Variable 19 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 19 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__sinh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dsinh] [(Var 19 x)] [(= (Var 19 _lpython_return_variable) (FunctionCall 3 _lfortran_dsinh () [((Var 19 x))] (Real 8 []) () ()) ()) (Return)] (Var 19 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__sqrt: (Function (SymbolTable 12 {_lpython_return_variable: (Variable 12 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 12 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__sqrt (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 12 x)] [(= (Var 12 _lpython_return_variable) (RealBinOp (Var 12 x) Pow (RealBinOp (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToReal (Real 8 []) ()) Div (Cast (IntegerConstant 2 (Integer 4 [])) IntegerToReal (Real 8 []) ()) (Real 8 []) ()) (Real 8 []) ()) ()) (Return)] (Var 12 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__tan: (Function (SymbolTable 15 {_lpython_return_variable: (Variable 15 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 15 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__tan (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dtan] [(Var 15 x)] [(= (Var 15 _lpython_return_variable) (FunctionCall 3 _lfortran_dtan () [((Var 15 x))] (Real 8 []) () ()) ()) (Return)] (Var 15 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__tanh: (Function (SymbolTable 45 {_lpython_return_variable: (Variable 45 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 45 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__tanh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dtanh] [(Var 45 x)] [(= (Var 45 _lpython_return_variable) (FunctionCall 3 _lfortran_dtanh () [((Var 45 x))] (Real 8 []) () ()) ()) (Return)] (Var 45 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arccos: (Function (SymbolTable 43 {_lpython_return_variable: (Variable 43 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 43 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arccos (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_sacos] [(Var 43 x)] [(= (Var 43 _lpython_return_variable) (FunctionCall 3 _lfortran_sacos () [((Var 43 x))] (Real 4 []) () ()) ()) (Return)] (Var 43 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arccosh: (Function (SymbolTable 67 {_lpython_return_variable: (Variable 67 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 67 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arccosh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_sacosh] [(Var 67 x)] [(= (Var 67 _lpython_return_variable) (FunctionCall 3 _lfortran_sacosh () [((Var 67 x))] (Real 4 []) () ()) ()) (Return)] (Var 67 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arcsin: (Function (SymbolTable 39 {_lpython_return_variable: (Variable 39 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 39 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arcsin (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_sasin] [(Var 39 x)] [(= (Var 39 _lpython_return_variable) (FunctionCall 3 _lfortran_sasin () [((Var 39 x))] (Real 4 []) () ()) ()) (Return)] (Var 39 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arcsinh: (Function (SymbolTable 63 {_lpython_return_variable: (Variable 63 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 63 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arcsinh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_sasinh] [(Var 63 x)] [(= (Var 63 _lpython_return_variable) (FunctionCall 3 _lfortran_sasinh () [((Var 63 x))] (Real 4 []) () ()) ()) (Return)] (Var 63 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arctan: (Function (SymbolTable 55 {_lpython_return_variable: (Variable 55 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 55 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arctan (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_satan] [(Var 55 x)] [(= (Var 55 _lpython_return_variable) (FunctionCall 3 _lfortran_satan () [((Var 55 x))] (Real 4 []) () ()) ()) (Return)] (Var 55 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arctanh: (Function (SymbolTable 71 {_lpython_return_variable: (Variable 71 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 71 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arctanh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_satanh] [(Var 71 x)] [(= (Var 71 _lpython_return_variable) (FunctionCall 3 _lfortran_satanh () [((Var 71 x))] (Real 4 []) () ()) ()) (Return)] (Var 71 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__ceil: (Function (SymbolTable 77 {_lpython_return_variable: (Variable 77 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), resultf: (Variable 77 resultf [x] Local (Cast (Cast (Var 77 x) RealToInteger (Integer 4 []) ()) IntegerToReal (Real 4 []) ()) () Default (Real 4 []) Source Public Required .false.), x: (Variable 77 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__ceil (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 77 x)] [(= (Var 77 resultf) (Cast (Cast (Var 77 x) RealToInteger (Integer 4 []) ()) IntegerToReal (Real 4 []) ()) ()) (If (LogicalBinOp (RealCompare (Var 77 x) LtE (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Logical 4 []) ()) Or (RealCompare (Var 77 x) Eq (Var 77 resultf) (Logical 4 []) ()) (Logical 4 []) ()) [(= (Var 77 _lpython_return_variable) (Var 77 resultf) ()) (Return)] []) (= (Var 77 _lpython_return_variable) (RealBinOp (Var 77 resultf) Add (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Real 4 []) ()) ()) (Return)] (Var 77 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__cos: (Function (SymbolTable 11 {_lpython_return_variable: (Variable 11 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 11 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__cos (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_scos] [(Var 11 x)] [(= (Var 11 _lpython_return_variable) (FunctionCall 3 _lfortran_scos () [((Var 11 x))] (Real 4 []) () ()) ()) (Return)] (Var 11 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__cosh: (Function (SymbolTable 25 {_lpython_return_variable: (Variable 25 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 25 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__cosh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_scosh] [(Var 25 x)] [(= (Var 25 _lpython_return_variable) (FunctionCall 3 _lfortran_scosh () [((Var 25 x))] (Real 4 []) () ()) ()) (Return)] (Var 25 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__degrees: (Function (SymbolTable 57 {_lpython_return_variable: (Variable 57 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 57 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__degrees (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 57 x)] [(= (Var 57 _lpython_return_variable) (RealBinOp (Var 57 x) Mul (RealBinOp (Cast (IntegerConstant 180 (Integer 4 [])) IntegerToReal (Real 4 []) ()) Div (Var 3 pi_32) (Real 4 []) ()) (Real 4 []) ()) ()) (Return)] (Var 57 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__exp: (Function (SymbolTable 51 {_lpython_return_variable: (Variable 51 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 51 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__exp (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_sexp] [(Var 51 x)] [(= (Var 51 _lpython_return_variable) (FunctionCall 3 _lfortran_sexp () [((Var 51 x))] (Real 4 []) () ()) ()) (Return)] (Var 51 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__floor: (Function (SymbolTable 75 {_lpython_return_variable: (Variable 75 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), resultf: (Variable 75 resultf [x] Local (Cast (Cast (Var 75 x) RealToInteger (Integer 4 []) ()) IntegerToReal (Real 4 []) ()) () Default (Real 4 []) Source Public Required .false.), x: (Variable 75 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__floor (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 75 x)] [(= (Var 75 resultf) (Cast (Cast (Var 75 x) RealToInteger (Integer 4 []) ()) IntegerToReal (Real 4 []) ()) ()) (If (LogicalBinOp (RealCompare (Var 75 x) GtE (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Logical 4 []) ()) Or (RealCompare (Var 75 x) Eq (Var 75 resultf) (Logical 4 []) ()) (Logical 4 []) ()) [(= (Var 75 _lpython_return_variable) (Var 75 resultf) ()) (Return)] []) (= (Var 75 _lpython_return_variable) (RealBinOp (Var 75 resultf) Sub (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Real 4 []) ()) ()) (Return)] (Var 75 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__log: (Function (SymbolTable 29 {_lpython_return_variable: (Variable 29 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 29 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__log (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_slog] [(Var 29 x)] [(= (Var 29 _lpython_return_variable) (FunctionCall 3 _lfortran_slog () [((Var 29 x))] (Real 4 []) () ()) ()) (Return)] (Var 29 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__log10: (Function (SymbolTable 33 {_lpython_return_variable: (Variable 33 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 33 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__log10 (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_slog10] [(Var 33 x)] [(= (Var 33 _lpython_return_variable) (FunctionCall 3 _lfortran_slog10 () [((Var 33 x))] (Real 4 []) () ()) ()) (Return)] (Var 33 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__log2: (Function (SymbolTable 35 {_lpython_return_variable: (Variable 35 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 35 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__log2 (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_slog _lfortran_slog] [(Var 35 x)] [(= (Var 35 _lpython_return_variable) (RealBinOp (FunctionCall 3 _lfortran_slog () [((Var 35 x))] (Real 4 []) () ()) Div (FunctionCall 3 _lfortran_slog () [((Cast (RealConstant 2.000000 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 2.000000 (Real 4 []))))] (Real 4 []) () ()) (Real 4 []) ()) ()) (Return)] (Var 35 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__mod: (Function (SymbolTable 73 {_lpython_return_variable: (Variable 73 _lpython_return_variable [] ReturnVar () () Default (Integer 4 []) Source Public Required .false.), _mod: (ExternalSymbol 73 _mod 79 _mod lpython_builtin [] _mod Private), _mod@__lpython_overloaded_0___mod: (ExternalSymbol 73 _mod@__lpython_overloaded_0___mod 79 __lpython_overloaded_0___mod lpython_builtin [] __lpython_overloaded_0___mod Public), x1: (Variable 73 x1 [] In () () Default (Integer 4 []) Source Public Required .false.), x2: (Variable 73 x2 [] In () () Default (Integer 4 []) Source Public Required .false.)}) __lpython_overloaded_1__mod (FunctionType [(Integer 4 []) (Integer 4 [])] (Integer 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_mod@__lpython_overloaded_0___mod] [(Var 73 x1) (Var 73 x2)] [(If (IntegerCompare (Var 73 x2) Eq (IntegerConstant 0 (Integer 4 [])) (Logical 4 []) ()) [(= (Var 73 _lpython_return_variable) (IntegerConstant 0 (Integer 4 [])) ()) (Return)] []) (= (Var 73 _lpython_return_variable) (FunctionCall 73 _mod@__lpython_overloaded_0___mod 73 _mod [((Var 73 x1)) ((Var 73 x2))] (Integer 4 []) () ()) ()) (Return)] (Var 73 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__radians: (Function (SymbolTable 59 {_lpython_return_variable: (Variable 59 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 59 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__radians (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 59 x)] [(= (Var 59 _lpython_return_variable) (RealBinOp (Var 59 x) Mul (RealBinOp (Var 3 pi_32) Div (Cast (IntegerConstant 180 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Real 4 []) ()) (Real 4 []) ()) ()) (Return)] (Var 59 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__sin: (Function (SymbolTable 7 {_lpython_return_variable: (Variable 7 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 7 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__sin (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_ssin] [(Var 7 x)] [(= (Var 7 _lpython_return_variable) (FunctionCall 3 _lfortran_ssin () [((Var 7 x))] (Real 4 []) () ()) ()) (Return)] (Var 7 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__sinh: (Function (SymbolTable 21 {_lpython_return_variable: (Variable 21 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 21 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__sinh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_ssinh] [(Var 21 x)] [(= (Var 21 _lpython_return_variable) (FunctionCall 3 _lfortran_ssinh () [((Var 21 x))] (Real 4 []) () ()) ()) (Return)] (Var 21 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__sqrt: (Function (SymbolTable 13 {_lpython_return_variable: (Variable 13 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 13 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__sqrt (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 13 x)] [(= (Var 13 _lpython_return_variable) (RealBinOp (Var 13 x) Pow (Cast (RealBinOp (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToReal (Real 8 []) ()) Div (Cast (IntegerConstant 2 (Integer 4 [])) IntegerToReal (Real 8 []) ()) (Real 8 []) ()) RealToReal (Real 4 []) ()) (Real 4 []) ()) ()) (Return)] (Var 13 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__tan: (Function (SymbolTable 17 {_lpython_return_variable: (Variable 17 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 17 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__tan (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_stan] [(Var 17 x)] [(= (Var 17 _lpython_return_variable) (FunctionCall 3 _lfortran_stan () [((Var 17 x))] (Real 4 []) () ()) ()) (Return)] (Var 17 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__tanh: (Function (SymbolTable 47 {_lpython_return_variable: (Variable 47 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 47 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__tanh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_stanh] [(Var 47 x)] [(= (Var 47 _lpython_return_variable) (FunctionCall 3 _lfortran_stanh () [((Var 47 x))] (Real 4 []) () ()) ()) (Return)] (Var 47 _lpython_return_variable) Public .false. .false.), _lfortran_dacos: (Function (SymbolTable 40 {_lpython_return_variable: (Variable 40 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 40 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dacos (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 40 x)] [] (Var 40 _lpython_return_variable) Public .false. .false.), _lfortran_dacosh: (Function (SymbolTable 64 {_lpython_return_variable: (Variable 64 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 64 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dacosh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 64 x)] [] (Var 64 _lpython_return_variable) Public .false. .false.), _lfortran_dasin: (Function (SymbolTable 36 {_lpython_return_variable: (Variable 36 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 36 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dasin (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 36 x)] [] (Var 36 _lpython_return_variable) Public .false. .false.), _lfortran_dasinh: (Function (SymbolTable 60 {_lpython_return_variable: (Variable 60 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 60 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dasinh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 60 x)] [] (Var 60 _lpython_return_variable) Public .false. .false.), _lfortran_datan: (Function (SymbolTable 52 {_lpython_return_variable: (Variable 52 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 52 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_datan (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 52 x)] [] (Var 52 _lpython_return_variable) Public .false. .false.), _lfortran_datanh: (Function (SymbolTable 68 {_lpython_return_variable: (Variable 68 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 68 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_datanh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 68 x)] [] (Var 68 _lpython_return_variable) Public .false. .false.), _lfortran_dcos: (Function (SymbolTable 8 {_lpython_return_variable: (Variable 8 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 8 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dcos (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 8 x)] [] (Var 8 _lpython_return_variable) Public .false. .false.), _lfortran_dcosh: (Function (SymbolTable 22 {_lpython_return_variable: (Variable 22 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 22 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dcosh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 22 x)] [] (Var 22 _lpython_return_variable) Public .false. .false.), _lfortran_dexp: (Function (SymbolTable 48 {_lpython_return_variable: (Variable 48 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 48 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dexp (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 48 x)] [] (Var 48 _lpython_return_variable) Public .false. .false.), _lfortran_dlog: (Function (SymbolTable 26 {_lpython_return_variable: (Variable 26 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 26 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dlog (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 26 x)] [] (Var 26 _lpython_return_variable) Public .false. .false.), _lfortran_dlog10: (Function (SymbolTable 30 {_lpython_return_variable: (Variable 30 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 30 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dlog10 (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 30 x)] [] (Var 30 _lpython_return_variable) Public .false. .false.), _lfortran_dsin: (Function (SymbolTable 4 {_lpython_return_variable: (Variable 4 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 4 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dsin (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 4 x)] [] (Var 4 _lpython_return_variable) Public .false. .false.), _lfortran_dsinh: (Function (SymbolTable 18 {_lpython_return_variable: (Variable 18 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 18 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dsinh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 18 x)] [] (Var 18 _lpython_return_variable) Public .false. .false.), _lfortran_dtan: (Function (SymbolTable 14 {_lpython_return_variable: (Variable 14 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 14 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dtan (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 14 x)] [] (Var 14 _lpython_return_variable) Public .false. .false.), _lfortran_dtanh: (Function (SymbolTable 44 {_lpython_return_variable: (Variable 44 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 44 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dtanh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 44 x)] [] (Var 44 _lpython_return_variable) Public .false. .false.), _lfortran_sacos: (Function (SymbolTable 42 {_lpython_return_variable: (Variable 42 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 42 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_sacos (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 42 x)] [] (Var 42 _lpython_return_variable) Public .false. .false.), _lfortran_sacosh: (Function (SymbolTable 66 {_lpython_return_variable: (Variable 66 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 66 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_sacosh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 66 x)] [] (Var 66 _lpython_return_variable) Public .false. .false.), _lfortran_sasin: (Function (SymbolTable 38 {_lpython_return_variable: (Variable 38 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 38 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_sasin (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 38 x)] [] (Var 38 _lpython_return_variable) Public .false. .false.), _lfortran_sasinh: (Function (SymbolTable 62 {_lpython_return_variable: (Variable 62 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 62 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_sasinh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 62 x)] [] (Var 62 _lpython_return_variable) Public .false. .false.), _lfortran_satan: (Function (SymbolTable 54 {_lpython_return_variable: (Variable 54 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 54 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_satan (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 54 x)] [] (Var 54 _lpython_return_variable) Public .false. .false.), _lfortran_satanh: (Function (SymbolTable 70 {_lpython_return_variable: (Variable 70 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 70 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_satanh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 70 x)] [] (Var 70 _lpython_return_variable) Public .false. .false.), _lfortran_scos: (Function (SymbolTable 10 {_lpython_return_variable: (Variable 10 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 10 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_scos (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 10 x)] [] (Var 10 _lpython_return_variable) Public .false. .false.), _lfortran_scosh: (Function (SymbolTable 24 {_lpython_return_variable: (Variable 24 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 24 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_scosh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 24 x)] [] (Var 24 _lpython_return_variable) Public .false. .false.), _lfortran_sexp: (Function (SymbolTable 50 {_lpython_return_variable: (Variable 50 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 50 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_sexp (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 50 x)] [] (Var 50 _lpython_return_variable) Public .false. .false.), _lfortran_slog: (Function (SymbolTable 28 {_lpython_return_variable: (Variable 28 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 28 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_slog (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 28 x)] [] (Var 28 _lpython_return_variable) Public .false. .false.), _lfortran_slog10: (Function (SymbolTable 32 {_lpython_return_variable: (Variable 32 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 32 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_slog10 (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 32 x)] [] (Var 32 _lpython_return_variable) Public .false. .false.), _lfortran_ssin: (Function (SymbolTable 6 {_lpython_return_variable: (Variable 6 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 6 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_ssin (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 6 x)] [] (Var 6 _lpython_return_variable) Public .false. .false.), _lfortran_ssinh: (Function (SymbolTable 20 {_lpython_return_variable: (Variable 20 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 20 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_ssinh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 20 x)] [] (Var 20 _lpython_return_variable) Public .false. .false.), _lfortran_stan: (Function (SymbolTable 16 {_lpython_return_variable: (Variable 16 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 16 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_stan (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 16 x)] [] (Var 16 _lpython_return_variable) Public .false. .false.), _lfortran_stanh: (Function (SymbolTable 46 {_lpython_return_variable: (Variable 46 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 46 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_stanh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 46 x)] [] (Var 46 _lpython_return_variable) Public .false. .false.), arccos: (GenericProcedure 3 arccos [3 __lpython_overloaded_0__arccos 3 __lpython_overloaded_1__arccos] Public), arccosh: (GenericProcedure 3 arccosh [3 __lpython_overloaded_0__arccosh 3 __lpython_overloaded_1__arccosh] Public), arcsin: (GenericProcedure 3 arcsin [3 __lpython_overloaded_0__arcsin 3 __lpython_overloaded_1__arcsin] Public), arcsinh: (GenericProcedure 3 arcsinh [3 __lpython_overloaded_0__arcsinh 3 __lpython_overloaded_1__arcsinh] Public), arctan: (GenericProcedure 3 arctan [3 __lpython_overloaded_0__arctan 3 __lpython_overloaded_1__arctan] Public), arctanh: (GenericProcedure 3 arctanh [3 __lpython_overloaded_0__arctanh 3 __lpython_overloaded_1__arctanh] Public), ceil: (GenericProcedure 3 ceil [3 __lpython_overloaded_0__ceil 3 __lpython_overloaded_1__ceil] Public), cos: (GenericProcedure 3 cos [3 __lpython_overloaded_0__cos 3 __lpython_overloaded_1__cos] Public), cosh: (GenericProcedure 3 cosh [3 __lpython_overloaded_0__cosh 3 __lpython_overloaded_1__cosh] Public), degrees: (GenericProcedure 3 degrees [3 __lpython_overloaded_0__degrees 3 __lpython_overloaded_1__degrees] Public), exp: (GenericProcedure 3 exp [3 __lpython_overloaded_0__exp 3 __lpython_overloaded_1__exp] Public), floor: (GenericProcedure 3 floor [3 __lpython_overloaded_0__floor 3 __lpython_overloaded_1__floor] Public), log: (GenericProcedure 3 log [3 __lpython_overloaded_0__log 3 __lpython_overloaded_1__log] Public), log10: (GenericProcedure 3 log10 [3 __lpython_overloaded_0__log10 3 __lpython_overloaded_1__log10] Public), log2: (GenericProcedure 3 log2 [3 __lpython_overloaded_0__log2 3 __lpython_overloaded_1__log2] Public), mod: (GenericProcedure 3 mod [3 __lpython_overloaded_0__mod 3 __lpython_overloaded_1__mod] Public), pi_32: (Variable 3 pi_32 [] Local (Cast (RealConstant 3.141593 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 3.141593 (Real 4 []))) () Default (Real 4 []) Source Public Required .false.), pi_64: (Variable 3 pi_64 [] Local (RealConstant 3.141593 (Real 8 [])) () Default (Real 8 []) Source Public Required .false.), radians: (GenericProcedure 3 radians [3 __lpython_overloaded_0__radians 3 __lpython_overloaded_1__radians] Public), sin: (GenericProcedure 3 sin [3 __lpython_overloaded_0__sin 3 __lpython_overloaded_1__sin] Public), sinh: (GenericProcedure 3 sinh [3 __lpython_overloaded_0__sinh 3 __lpython_overloaded_1__sinh] Public), sqrt: (GenericProcedure 3 sqrt [3 __lpython_overloaded_0__sqrt 3 __lpython_overloaded_1__sqrt] Public), tan: (GenericProcedure 3 tan [3 __lpython_overloaded_0__tan 3 __lpython_overloaded_1__tan] Public), tanh: (GenericProcedure 3 tanh [3 __lpython_overloaded_0__tanh 3 __lpython_overloaded_1__tanh] Public)}) numpy [lpython_builtin lpython_builtin] .false. .false.), test_array_01: (Function (SymbolTable 171 {abs: (ExternalSymbol 171 abs 79 abs lpython_builtin [] abs Private), abs@__lpython_overloaded_0__abs: (ExternalSymbol 171 abs@__lpython_overloaded_0__abs 79 __lpython_overloaded_0__abs lpython_builtin [] __lpython_overloaded_0__abs Public), eps: (Variable 171 eps [] Local (RealConstant 0.000000 (Real 8 [])) () Default (Real 8 []) Source Public Required .false.), x: (Variable 171 x [] Local () () Default (Real 8 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 3 (Integer 4 [])))]) Source Public Required .false.)}) test_array_01 (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [abs@__lpython_overloaded_0__abs abs@__lpython_overloaded_0__abs abs@__lpython_overloaded_0__abs] [] [(= (Var 171 x) (ArrayConstant [(RealConstant 1.000000 (Real 8 [])) (RealConstant 2.000000 (Real 8 [])) (RealConstant 3.000000 (Real 8 []))] (Real 8 []) RowMajor) ()) (= (Var 171 eps) (RealConstant 0.000000 (Real 8 [])) ()) (Assert (RealCompare (FunctionCall 171 abs@__lpython_overloaded_0__abs 171 abs [((RealBinOp (ArrayItem (Var 171 x) [(() (IntegerConstant 0 (Integer 4 [])) ())] (Real 8 []) RowMajor ()) Sub (RealConstant 1.000000 (Real 8 [])) (Real 8 []) ()))] (Real 8 []) () ()) Lt (Var 171 eps) (Logical 4 []) ()) ()) (Assert (RealCompare (FunctionCall 171 abs@__lpython_overloaded_0__abs 171 abs [((RealBinOp (ArrayItem (Var 171 x) [(() (IntegerConstant 1 (Integer 4 [])) ())] (Real 8 []) RowMajor ()) Sub (RealConstant 2.000000 (Real 8 [])) (Real 8 []) ()))] (Real 8 []) () ()) Lt (Var 171 eps) (Logical 4 []) ()) ()) (Assert (RealCompare (FunctionCall 171 abs@__lpython_overloaded_0__abs 171 abs [((RealBinOp (ArrayItem (Var 171 x) [(() (IntegerConstant 2 (Integer 4 [])) ())] (Real 8 []) RowMajor ()) Sub (RealConstant 3.000000 (Real 8 [])) (Real 8 []) ()))] (Real 8 []) () ()) Lt (Var 171 eps) (Logical 4 []) ()) ())] () Public .false. .false.), test_array_02: (Function (SymbolTable 172 {abs: (ExternalSymbol 172 abs 79 abs lpython_builtin [] abs Private), abs@__lpython_overloaded_4__abs: (ExternalSymbol 172 abs@__lpython_overloaded_4__abs 79 __lpython_overloaded_4__abs lpython_builtin [] __lpython_overloaded_4__abs Public), eps: (Variable 172 eps [] Local (RealConstant 0.000000 (Real 8 [])) () Default (Real 8 []) Source Public Required .false.), x: (Variable 172 x [] Local () () Default (Integer 4 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 3 (Integer 4 [])))]) Source Public Required .false.)}) test_array_02 (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [abs@__lpython_overloaded_4__abs abs@__lpython_overloaded_4__abs abs@__lpython_overloaded_4__abs] [] [(= (Var 172 x) (ArrayConstant [(IntegerConstant 1 (Integer 4 [])) (IntegerConstant 2 (Integer 4 [])) (IntegerConstant 3 (Integer 4 []))] (Integer 4 []) RowMajor) ()) (= (Var 172 eps) (RealConstant 0.000000 (Real 8 [])) ()) (Assert (RealCompare (Cast (FunctionCall 172 abs@__lpython_overloaded_4__abs 172 abs [((IntegerBinOp (ArrayItem (Var 172 x) [(() (IntegerConstant 0 (Integer 4 [])) ())] (Integer 4 []) RowMajor ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()))] (Integer 4 []) () ()) IntegerToReal (Real 8 []) ()) Lt (Var 172 eps) (Logical 4 []) ()) ()) (Assert (RealCompare (Cast (FunctionCall 172 abs@__lpython_overloaded_4__abs 172 abs [((IntegerBinOp (ArrayItem (Var 172 x) [(() (IntegerConstant 1 (Integer 4 [])) ())] (Integer 4 []) RowMajor ()) Sub (IntegerConstant 2 (Integer 4 [])) (Integer 4 []) ()))] (Integer 4 []) () ()) IntegerToReal (Real 8 []) ()) Lt (Var 172 eps) (Logical 4 []) ()) ()) (Assert (RealCompare (Cast (FunctionCall 172 abs@__lpython_overloaded_4__abs 172 abs [((IntegerBinOp (ArrayItem (Var 172 x) [(() (IntegerConstant 2 (Integer 4 [])) ())] (Integer 4 []) RowMajor ()) Sub (IntegerConstant 3 (Integer 4 [])) (Integer 4 []) ()))] (Integer 4 []) () ()) IntegerToReal (Real 8 []) ()) Lt (Var 172 eps) (Logical 4 []) ()) ())] () Public .false. .false.)}) [])
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            __main__global_stmts:
+                                (Function
+                                    (SymbolTable
+                                        228
+                                        {
+                                            
+                                        })
+                                    __main__global_stmts
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [check]
+                                    []
+                                    [(SubroutineCall
+                                        2 check
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            check:
+                                (Function
+                                    (SymbolTable
+                                        227
+                                        {
+                                            
+                                        })
+                                    check
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [test_array_01
+                                    test_array_02]
+                                    []
+                                    [(SubroutineCall
+                                        2 test_array_01
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )
+                                    (SubroutineCall
+                                        2 test_array_02
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            test_array_01:
+                                (Function
+                                    (SymbolTable
+                                        225
+                                        {
+                                            eps:
+                                                (Variable
+                                                    225
+                                                    eps
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            x:
+                                                (Variable
+                                                    225
+                                                    x
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Real 8)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 3 (Integer 4) Decimal))]
+                                                        FixedSizeArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test_array_01
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 225 x)
+                                        (ArrayConstant
+                                            24
+                                            [1.0000000000000000e+00, 2.0000000000000000e+00, 3.0000000000000000e+00]
+                                            (Array
+                                                (Real 8)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 3 (Integer 4) Decimal))]
+                                                PointerArray
+                                            )
+                                            RowMajor
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 225 eps)
+                                        (RealConstant
+                                            0.000000
+                                            (Real 8)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealBinOp
+                                                    (ArrayItem
+                                                        (Var 225 x)
+                                                        [(()
+                                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                                        ())]
+                                                        (Real 8)
+                                                        RowMajor
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (RealConstant
+                                                        1.000000
+                                                        (Real 8)
+                                                    )
+                                                    (Real 8)
+                                                    ()
+                                                )]
+                                                0
+                                                (Real 8)
+                                                ()
+                                            )
+                                            Lt
+                                            (Var 225 eps)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealBinOp
+                                                    (ArrayItem
+                                                        (Var 225 x)
+                                                        [(()
+                                                        (IntegerConstant 1 (Integer 4) Decimal)
+                                                        ())]
+                                                        (Real 8)
+                                                        RowMajor
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (RealConstant
+                                                        2.000000
+                                                        (Real 8)
+                                                    )
+                                                    (Real 8)
+                                                    ()
+                                                )]
+                                                0
+                                                (Real 8)
+                                                ()
+                                            )
+                                            Lt
+                                            (Var 225 eps)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (IntrinsicElementalFunction
+                                                Abs
+                                                [(RealBinOp
+                                                    (ArrayItem
+                                                        (Var 225 x)
+                                                        [(()
+                                                        (IntegerConstant 2 (Integer 4) Decimal)
+                                                        ())]
+                                                        (Real 8)
+                                                        RowMajor
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (RealConstant
+                                                        3.000000
+                                                        (Real 8)
+                                                    )
+                                                    (Real 8)
+                                                    ()
+                                                )]
+                                                0
+                                                (Real 8)
+                                                ()
+                                            )
+                                            Lt
+                                            (Var 225 eps)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            test_array_02:
+                                (Function
+                                    (SymbolTable
+                                        226
+                                        {
+                                            eps:
+                                                (Variable
+                                                    226
+                                                    eps
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            x:
+                                                (Variable
+                                                    226
+                                                    x
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Integer 4)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 3 (Integer 4) Decimal))]
+                                                        FixedSizeArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test_array_02
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 226 x)
+                                        (ArrayConstant
+                                            12
+                                            [1, 2, 3]
+                                            (Array
+                                                (Integer 4)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 3 (Integer 4) Decimal))]
+                                                PointerArray
+                                            )
+                                            RowMajor
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 226 eps)
+                                        (RealConstant
+                                            0.000000
+                                            (Real 8)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (Cast
+                                                (IntrinsicElementalFunction
+                                                    Abs
+                                                    [(IntegerBinOp
+                                                        (ArrayItem
+                                                            (Var 226 x)
+                                                            [(()
+                                                            (IntegerConstant 0 (Integer 4) Decimal)
+                                                            ())]
+                                                            (Integer 4)
+                                                            RowMajor
+                                                            ()
+                                                        )
+                                                        Sub
+                                                        (IntegerConstant 1 (Integer 4) Decimal)
+                                                        (Integer 4)
+                                                        ()
+                                                    )]
+                                                    0
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                IntegerToReal
+                                                (Real 8)
+                                                ()
+                                            )
+                                            Lt
+                                            (Var 226 eps)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (Cast
+                                                (IntrinsicElementalFunction
+                                                    Abs
+                                                    [(IntegerBinOp
+                                                        (ArrayItem
+                                                            (Var 226 x)
+                                                            [(()
+                                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                                            ())]
+                                                            (Integer 4)
+                                                            RowMajor
+                                                            ()
+                                                        )
+                                                        Sub
+                                                        (IntegerConstant 2 (Integer 4) Decimal)
+                                                        (Integer 4)
+                                                        ()
+                                                    )]
+                                                    0
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                IntegerToReal
+                                                (Real 8)
+                                                ()
+                                            )
+                                            Lt
+                                            (Var 226 eps)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assert
+                                        (RealCompare
+                                            (Cast
+                                                (IntrinsicElementalFunction
+                                                    Abs
+                                                    [(IntegerBinOp
+                                                        (ArrayItem
+                                                            (Var 226 x)
+                                                            [(()
+                                                            (IntegerConstant 2 (Integer 4) Decimal)
+                                                            ())]
+                                                            (Integer 4)
+                                                            RowMajor
+                                                            ()
+                                                        )
+                                                        Sub
+                                                        (IntegerConstant 3 (Integer 4) Decimal)
+                                                        (Integer 4)
+                                                        ()
+                                                    )]
+                                                    0
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                IntegerToReal
+                                                (Real 8)
+                                                ()
+                                            )
+                                            Lt
+                                            (Var 226 eps)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    [numpy]
+                    .false.
+                    .false.
+                    .false.
+                ),
+            lpython_builtin:
+                (IntrinsicModule lpython_builtin),
+            main_program:
+                (Program
+                    (SymbolTable
+                        229
+                        {
+                            __main__global_stmts:
+                                (ExternalSymbol
+                                    229
+                                    __main__global_stmts
+                                    2 __main__global_stmts
+                                    __main__
+                                    []
+                                    __main__global_stmts
+                                    Public
+                                )
+                        })
+                    main_program
+                    [__main__]
+                    [(SubroutineCall
+                        229 __main__global_stmts
+                        2 __main__global_stmts
+                        []
+                        ()
+                        .false.
+                    )]
+                ),
+            numpy:
+                (Module numpy)
+        })
+    []
+)
diff --git a/tests/reference/asr-test_operator_01-0f232bf.json b/tests/reference/asr-test_operator_01-0f232bf.json
new file mode 100644
index 0000000000..c45acd91e4
--- /dev/null
+++ b/tests/reference/asr-test_operator_01-0f232bf.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-test_operator_01-0f232bf",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/test_operator_01.py",
+    "infile_hash": "fe3fc1c23c2f63265b758b4d5d757943c1462811c5bc5e7a14abb64d",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-test_operator_01-0f232bf.stderr",
+    "stderr_hash": "d291f8cc0413a1d9a1f4450493d17790ceec00cad791cdc4d1283161",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-test_operator_01-0f232bf.stderr b/tests/reference/asr-test_operator_01-0f232bf.stderr
new file mode 100644
index 0000000000..ee3eeeb7a1
--- /dev/null
+++ b/tests/reference/asr-test_operator_01-0f232bf.stderr
@@ -0,0 +1,5 @@
+semantic error: Unary operator '-' not supported for type A
+ --> tests/errors/test_operator_01.py:9:11
+  |
+9 |     print(-a)
+  |           ^^ 
diff --git a/tests/reference/asr-test_optional-97e5371.json b/tests/reference/asr-test_optional-97e5371.json
new file mode 100644
index 0000000000..7dbe53ca63
--- /dev/null
+++ b/tests/reference/asr-test_optional-97e5371.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-test_optional-97e5371",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/test_optional.py",
+    "infile_hash": "2532c73de47afb82c9d1d9fa335d3b274e7c79a14007353639958a45",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-test_optional-97e5371.stderr",
+    "stderr_hash": "b9cc75eb200847db5d4d39d9f511959ebf22faad68cf0096c7a2b68c",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-test_optional-97e5371.stderr b/tests/reference/asr-test_optional-97e5371.stderr
new file mode 100644
index 0000000000..4c93a66d6b
--- /dev/null
+++ b/tests/reference/asr-test_optional-97e5371.stderr
@@ -0,0 +1,5 @@
+semantic error: The type 'Optional' is undeclared.
+ --> tests/errors/test_optional.py:1:39
+  |
+1 | def match(pat : str, string : str) -> Optional[list[str] | str]:
+  |                                       ^^^^^^^^^^^^^^^^^^^^^^^^^ 
diff --git a/tests/reference/asr-test_pointer_types-1bf0d01.json b/tests/reference/asr-test_pointer_types-1bf0d01.json
index 1567717d17..a832067275 100644
--- a/tests/reference/asr-test_pointer_types-1bf0d01.json
+++ b/tests/reference/asr-test_pointer_types-1bf0d01.json
@@ -2,12 +2,12 @@
     "basename": "asr-test_pointer_types-1bf0d01",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/errors/test_pointer_types.py",
-    "infile_hash": "750a2bb08545b8c11e44585855545060693c59a71df5989ac5371720",
+    "infile_hash": "c5290af854c1f4a76252d27a2ae05f309ae55b9d6fc6ee533989cec7",
     "outfile": null,
     "outfile_hash": null,
     "stdout": null,
     "stdout_hash": null,
     "stderr": "asr-test_pointer_types-1bf0d01.stderr",
-    "stderr_hash": "4f3b9512978dfb5d22367aa7b2e4fd20768de78530bf4d83a52fa881",
+    "stderr_hash": "3fcd692a6b79b6b3f22fc7a2957df19219fc817446aa6d46f47d049f",
     "returncode": 2
 }
\ No newline at end of file
diff --git a/tests/reference/asr-test_pointer_types-1bf0d01.stderr b/tests/reference/asr-test_pointer_types-1bf0d01.stderr
index 65d0f1397f..4a61aeb2e6 100644
--- a/tests/reference/asr-test_pointer_types-1bf0d01.stderr
+++ b/tests/reference/asr-test_pointer_types-1bf0d01.stderr
@@ -1,4 +1,4 @@
-semantic error: Casting not supported for different pointer types. Received target pointer type, Pointer[i16[:]] and value pointer type, Pointer[i32[3]]
+semantic error: Casting not supported for different pointer types. Received target pointer type, Pointer[i16[:]] and value pointer type, Pointer[i32[:]]
  --> tests/errors/test_pointer_types.py:8:5
   |
 8 |     yptr1 = pointer(y)
diff --git a/tests/reference/asr-test_pow-3f5d550.json b/tests/reference/asr-test_pow-3f5d550.json
index 31f0ce2c5b..163e253b17 100644
--- a/tests/reference/asr-test_pow-3f5d550.json
+++ b/tests/reference/asr-test_pow-3f5d550.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "asr-test_pow-3f5d550.stdout",
-    "stdout_hash": "086bda2f54116fc8a355a208c3f9506e6fad091cf0105216fb58d8e4",
+    "stdout_hash": "b89c153438c52549ee60dec26f4ac37ae2f1e2b7e2b02682b0064616",
     "stderr": "asr-test_pow-3f5d550.stderr",
     "stderr_hash": "3d950301563cce75654f28bf41f6f53428ed1f5ae997774345f374a3",
     "returncode": 0
diff --git a/tests/reference/asr-test_pow-3f5d550.stdout b/tests/reference/asr-test_pow-3f5d550.stdout
index 73f1379415..1cf8cedee4 100644
--- a/tests/reference/asr-test_pow-3f5d550.stdout
+++ b/tests/reference/asr-test_pow-3f5d550.stdout
@@ -1 +1,173 @@
-(TranslationUnit (SymbolTable 1 {_lpython_main_program: (Function (SymbolTable 97 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [main] [] [(SubroutineCall 1 main () [] ())] () Public .false. .false.), lpython_builtin: (IntrinsicModule lpython_builtin), main: (Function (SymbolTable 2 {pow: (ExternalSymbol 2 pow 4 pow lpython_builtin [] pow Private), pow@__lpython_overloaded_0__pow: (ExternalSymbol 2 pow@__lpython_overloaded_0__pow 4 __lpython_overloaded_0__pow lpython_builtin [] __lpython_overloaded_0__pow Public)}) main (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [pow@__lpython_overloaded_0__pow] [] [(Print () [(FunctionCall 2 pow@__lpython_overloaded_0__pow 2 pow [((IntegerConstant 2 (Integer 4 []))) ((IntegerConstant 2 (Integer 4 [])))] (Real 8 []) (RealConstant 4.000000 (Real 8 [])) ())] () ()) (Print () [(IntegerBinOp (IntegerConstant 2 (Integer 4 [])) Pow (IntegerConstant 2 (Integer 4 [])) (Integer 4 []) (IntegerConstant 4 (Integer 4 [])))] () ())] () Public .false. .false.), main_program: (Program (SymbolTable 96 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())])}) [])
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            __main__global_stmts:
+                                (Function
+                                    (SymbolTable
+                                        141
+                                        {
+                                            
+                                        })
+                                    __main__global_stmts
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [main]
+                                    []
+                                    [(SubroutineCall
+                                        2 main
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            main:
+                                (Function
+                                    (SymbolTable
+                                        3
+                                        {
+                                            pow:
+                                                (ExternalSymbol
+                                                    3
+                                                    pow
+                                                    4 pow
+                                                    lpython_builtin
+                                                    []
+                                                    pow
+                                                    Private
+                                                ),
+                                            pow@__lpython_overloaded_0__pow:
+                                                (ExternalSymbol
+                                                    3
+                                                    pow@__lpython_overloaded_0__pow
+                                                    4 __lpython_overloaded_0__pow
+                                                    lpython_builtin
+                                                    []
+                                                    __lpython_overloaded_0__pow
+                                                    Public
+                                                )
+                                        })
+                                    main
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Print
+                                        (StringFormat
+                                            ()
+                                            [(FunctionCall
+                                                3 pow@__lpython_overloaded_0__pow
+                                                3 pow
+                                                [((IntegerConstant 2 (Integer 4) Decimal))
+                                                ((IntegerConstant 2 (Integer 4) Decimal))]
+                                                (Real 8)
+                                                (RealConstant
+                                                    4.000000
+                                                    (Real 8)
+                                                )
+                                                ()
+                                            )]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(IntegerBinOp
+                                                (IntegerConstant 2 (Integer 4) Decimal)
+                                                Pow
+                                                (IntegerConstant 2 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                (IntegerConstant 4 (Integer 4) Decimal)
+                                            )]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    [lpython_builtin]
+                    .false.
+                    .false.
+                    .false.
+                ),
+            lpython_builtin:
+                (IntrinsicModule lpython_builtin),
+            main_program:
+                (Program
+                    (SymbolTable
+                        142
+                        {
+                            __main__global_stmts:
+                                (ExternalSymbol
+                                    142
+                                    __main__global_stmts
+                                    2 __main__global_stmts
+                                    __main__
+                                    []
+                                    __main__global_stmts
+                                    Public
+                                )
+                        })
+                    main_program
+                    [__main__]
+                    [(SubroutineCall
+                        142 __main__global_stmts
+                        2 __main__global_stmts
+                        []
+                        ()
+                        .false.
+                    )]
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-test_pow2-0dcbd7d.json b/tests/reference/asr-test_pow2-0dcbd7d.json
index 82f7946dec..083bc76b8d 100644
--- a/tests/reference/asr-test_pow2-0dcbd7d.json
+++ b/tests/reference/asr-test_pow2-0dcbd7d.json
@@ -2,7 +2,7 @@
     "basename": "asr-test_pow2-0dcbd7d",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/errors/test_pow2.py",
-    "infile_hash": "c9227a5d028c265531453f259a919e90a782658e15d4a908930a398b",
+    "infile_hash": "0df16d4f512305265cb2924e18db5753a4c422da3a7624f74f71d26f",
     "outfile": null,
     "outfile_hash": null,
     "stdout": null,
diff --git a/tests/reference/asr-test_pow3-79749ed.json b/tests/reference/asr-test_pow3-79749ed.json
index 4cfba3502b..cd0f9f0d33 100644
--- a/tests/reference/asr-test_pow3-79749ed.json
+++ b/tests/reference/asr-test_pow3-79749ed.json
@@ -2,7 +2,7 @@
     "basename": "asr-test_pow3-79749ed",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/errors/test_pow3.py",
-    "infile_hash": "3bcfd872ce4527547e2aeb155a5a980356c71969a1c3fa66906e7933",
+    "infile_hash": "884bdc831e2b2d01c30a2dd841307fd5674ab65e0c3819d17e3db500",
     "outfile": null,
     "outfile_hash": null,
     "stdout": null,
diff --git a/tests/reference/asr-test_pow4-ef60978.json b/tests/reference/asr-test_pow4-ef60978.json
index 1fa1f657f5..2e98c401ce 100644
--- a/tests/reference/asr-test_pow4-ef60978.json
+++ b/tests/reference/asr-test_pow4-ef60978.json
@@ -2,7 +2,7 @@
     "basename": "asr-test_pow4-ef60978",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/errors/test_pow4.py",
-    "infile_hash": "d537682ebec26f198e89723e31dba5ebc84f848103a62868e2c35f96",
+    "infile_hash": "af9b11ec50a82de28afac31faa4a78bdbeb5f317537fc37860b139cd",
     "outfile": null,
     "outfile_hash": null,
     "stdout": null,
diff --git a/tests/reference/asr-test_print1-f1f36f1.json b/tests/reference/asr-test_print1-f1f36f1.json
index 0c4988e3a3..ce01d552eb 100644
--- a/tests/reference/asr-test_print1-f1f36f1.json
+++ b/tests/reference/asr-test_print1-f1f36f1.json
@@ -8,6 +8,6 @@
     "stdout": null,
     "stdout_hash": null,
     "stderr": "asr-test_print1-f1f36f1.stderr",
-    "stderr_hash": "da6324bcc282ecb93fe6784b206f8a9d8f04ae56341339b13de71bd4",
+    "stderr_hash": "ca4252329f68a3caf4ed525e9b183237b7e171be2e6516ef78684db0",
     "returncode": 2
 }
\ No newline at end of file
diff --git a/tests/reference/asr-test_print1-f1f36f1.stderr b/tests/reference/asr-test_print1-f1f36f1.stderr
index b28bc75a72..044e2cc7a8 100644
--- a/tests/reference/asr-test_print1-f1f36f1.stderr
+++ b/tests/reference/asr-test_print1-f1f36f1.stderr
@@ -2,4 +2,4 @@ semantic error: Separator is expected to be of string type
  --> tests/errors/test_print1.py:2:25
   |
 2 |     print("a", "b", sep=2)
-  |                         ^ Expected string, found: integer
+  |                         ^ Expected string, found: i32
diff --git a/tests/reference/asr-test_print2-64acb15.json b/tests/reference/asr-test_print2-64acb15.json
index 050b4cc698..abf30ae64e 100644
--- a/tests/reference/asr-test_print2-64acb15.json
+++ b/tests/reference/asr-test_print2-64acb15.json
@@ -8,6 +8,6 @@
     "stdout": null,
     "stdout_hash": null,
     "stderr": "asr-test_print2-64acb15.stderr",
-    "stderr_hash": "e92bba85b957e7034c5172981b3b27ed7b3f0ac62167d82175890bc9",
+    "stderr_hash": "6f24f07a54a39eeb500be3a0dfa8efa5aeb40c6367346904c53e7c4d",
     "returncode": 2
 }
\ No newline at end of file
diff --git a/tests/reference/asr-test_print2-64acb15.stderr b/tests/reference/asr-test_print2-64acb15.stderr
index 6ed1c334b1..135c673cd4 100644
--- a/tests/reference/asr-test_print2-64acb15.stderr
+++ b/tests/reference/asr-test_print2-64acb15.stderr
@@ -2,4 +2,4 @@ semantic error: End is expected to be of string type
  --> tests/errors/test_print2.py:2:26
   |
 2 |      print("a", "b", end=1)
-  |                          ^ Expected string, found: integer
+  |                          ^ Expected string, found: i32
diff --git a/tests/reference/asr-test_set1-11379c7.json b/tests/reference/asr-test_set1-11379c7.json
index b16ebbd570..a4dd862665 100644
--- a/tests/reference/asr-test_set1-11379c7.json
+++ b/tests/reference/asr-test_set1-11379c7.json
@@ -2,12 +2,12 @@
     "basename": "asr-test_set1-11379c7",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/errors/test_set1.py",
-    "infile_hash": "8b09bdc33cffccdb66d9d70f13474d148c5f422ee3892d30fe45eb95",
+    "infile_hash": "54179c34d3818cd0b57d582c930226ce5443a43386ae981aab02e50b",
     "outfile": null,
     "outfile_hash": null,
-    "stdout": null,
-    "stdout_hash": null,
+    "stdout": "asr-test_set1-11379c7.stdout",
+    "stdout_hash": "a56bd146792dfd82891d160916d9b00f55df8f85e28b057785b8b2a4",
     "stderr": "asr-test_set1-11379c7.stderr",
-    "stderr_hash": "9dcd4fd9b8878cabe6559827531844364da8311d7c8f5f846b38620d",
-    "returncode": 2
+    "stderr_hash": "64dea3d94817d0666cf71481546f7ec61639f47a3b696fe96ae287c6",
+    "returncode": 0
 }
\ No newline at end of file
diff --git a/tests/reference/asr-test_set1-11379c7.stderr b/tests/reference/asr-test_set1-11379c7.stderr
index d153edc1b9..f5851bc83d 100644
--- a/tests/reference/asr-test_set1-11379c7.stderr
+++ b/tests/reference/asr-test_set1-11379c7.stderr
@@ -1,5 +1,5 @@
-semantic error: Type mismatch in 'add', the types must be compatible
- --> tests/errors/test_set1.py:6:11
+semantic error: Argument to set.add must be of same type as set's element type
+ --> tests/errors/test_set1.py:6:5
   |
 6 |     a.add('err')
-  |           ^^^^^ type mismatch (found: 'str', expected: 'i32')
+  |     ^^^^^^^^^^^^ 
diff --git a/tests/reference/asr-test_set1-11379c7.stdout b/tests/reference/asr-test_set1-11379c7.stdout
new file mode 100644
index 0000000000..9d450d786a
--- /dev/null
+++ b/tests/reference/asr-test_set1-11379c7.stdout
@@ -0,0 +1,97 @@
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            test1:
+                                (Function
+                                    (SymbolTable
+                                        3
+                                        {
+                                            a:
+                                                (Variable
+                                                    3
+                                                    a
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Set
+                                                        (Integer 4)
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test1
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 3 a)
+                                        (SetConstant
+                                            [(IntegerConstant 1 (Integer 4) Decimal)
+                                            (IntegerConstant 2 (Integer 4) Decimal)
+                                            (IntegerConstant 3 (Integer 4) Decimal)]
+                                            (Set
+                                                (Integer 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    []
+                    .false.
+                    .false.
+                    .false.
+                ),
+            main_program:
+                (Program
+                    (SymbolTable
+                        4
+                        {
+                            
+                        })
+                    main_program
+                    []
+                    []
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-test_set2-d91a6f0.json b/tests/reference/asr-test_set2-d91a6f0.json
index 549c404f14..5bc0d01a00 100644
--- a/tests/reference/asr-test_set2-d91a6f0.json
+++ b/tests/reference/asr-test_set2-d91a6f0.json
@@ -2,12 +2,12 @@
     "basename": "asr-test_set2-d91a6f0",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/errors/test_set2.py",
-    "infile_hash": "46c06330c2f51316a178c5d487fb5628d19ffb4e8f95e50653a19fcd",
+    "infile_hash": "2d561d934090bedc052b2ef17bc3ac9b59ed94298fd39cbea2c9ba15",
     "outfile": null,
     "outfile_hash": null,
-    "stdout": null,
-    "stdout_hash": null,
+    "stdout": "asr-test_set2-d91a6f0.stdout",
+    "stdout_hash": "a56bd146792dfd82891d160916d9b00f55df8f85e28b057785b8b2a4",
     "stderr": "asr-test_set2-d91a6f0.stderr",
-    "stderr_hash": "5459ddb5148c630f9374c827aad9c37d25967248002dc0dff5314530",
-    "returncode": 2
+    "stderr_hash": "36a3e507b04f030fc4e281ffe82947765ef640b6c558030957bd3e90",
+    "returncode": 0
 }
\ No newline at end of file
diff --git a/tests/reference/asr-test_set2-d91a6f0.stderr b/tests/reference/asr-test_set2-d91a6f0.stderr
index 7c5dfa54d2..29a2683c11 100644
--- a/tests/reference/asr-test_set2-d91a6f0.stderr
+++ b/tests/reference/asr-test_set2-d91a6f0.stderr
@@ -1,4 +1,4 @@
-semantic error: remove() takes exactly one argument
+semantic error: Call to set.remove must have exactly one argument
  --> tests/errors/test_set2.py:6:5
   |
 6 |     a.remove('error', 'error2')
diff --git a/tests/reference/asr-test_set2-d91a6f0.stdout b/tests/reference/asr-test_set2-d91a6f0.stdout
new file mode 100644
index 0000000000..9d450d786a
--- /dev/null
+++ b/tests/reference/asr-test_set2-d91a6f0.stdout
@@ -0,0 +1,97 @@
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            test1:
+                                (Function
+                                    (SymbolTable
+                                        3
+                                        {
+                                            a:
+                                                (Variable
+                                                    3
+                                                    a
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Set
+                                                        (Integer 4)
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test1
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 3 a)
+                                        (SetConstant
+                                            [(IntegerConstant 1 (Integer 4) Decimal)
+                                            (IntegerConstant 2 (Integer 4) Decimal)
+                                            (IntegerConstant 3 (Integer 4) Decimal)]
+                                            (Set
+                                                (Integer 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    []
+                    .false.
+                    .false.
+                    .false.
+                ),
+            main_program:
+                (Program
+                    (SymbolTable
+                        4
+                        {
+                            
+                        })
+                    main_program
+                    []
+                    []
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-test_set4-53fea39.json b/tests/reference/asr-test_set4-53fea39.json
new file mode 100644
index 0000000000..de901307ee
--- /dev/null
+++ b/tests/reference/asr-test_set4-53fea39.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-test_set4-53fea39",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/test_set4.py",
+    "infile_hash": "3d78c7ad82aa32c3a4cc5f1a7d44e53b81639194f55672ddc99b4d2d",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": "asr-test_set4-53fea39.stdout",
+    "stdout_hash": "899f85c60f406392674a5a43af850371dbcd3e7ce2d685f2d5ed8cc8",
+    "stderr": "asr-test_set4-53fea39.stderr",
+    "stderr_hash": "d9646bd3609c55ff39f57ca435fedc7dabed530caf28caddc9e58a06",
+    "returncode": 0
+}
\ No newline at end of file
diff --git a/tests/reference/asr-test_set4-53fea39.stderr b/tests/reference/asr-test_set4-53fea39.stderr
new file mode 100644
index 0000000000..9ce2e3863c
--- /dev/null
+++ b/tests/reference/asr-test_set4-53fea39.stderr
@@ -0,0 +1,5 @@
+semantic error: Call to set.add must have exactly one argument
+ --> tests/errors/test_set4.py:6:5
+  |
+6 |     a.add(3, 4)
+  |     ^^^^^^^^^^^ 
diff --git a/tests/reference/asr-test_set4-53fea39.stdout b/tests/reference/asr-test_set4-53fea39.stdout
new file mode 100644
index 0000000000..011c6e4a52
--- /dev/null
+++ b/tests/reference/asr-test_set4-53fea39.stdout
@@ -0,0 +1,97 @@
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            test4:
+                                (Function
+                                    (SymbolTable
+                                        3
+                                        {
+                                            a:
+                                                (Variable
+                                                    3
+                                                    a
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Set
+                                                        (Integer 4)
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test4
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 3 a)
+                                        (SetConstant
+                                            [(IntegerConstant 1 (Integer 4) Decimal)
+                                            (IntegerConstant 2 (Integer 4) Decimal)
+                                            (IntegerConstant 3 (Integer 4) Decimal)]
+                                            (Set
+                                                (Integer 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    []
+                    .false.
+                    .false.
+                    .false.
+                ),
+            main_program:
+                (Program
+                    (SymbolTable
+                        4
+                        {
+                            
+                        })
+                    main_program
+                    []
+                    []
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-test_set_indexing-a1c21b8.json b/tests/reference/asr-test_set_indexing-a1c21b8.json
index dcab538313..6bb6e96be3 100644
--- a/tests/reference/asr-test_set_indexing-a1c21b8.json
+++ b/tests/reference/asr-test_set_indexing-a1c21b8.json
@@ -2,7 +2,7 @@
     "basename": "asr-test_set_indexing-a1c21b8",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/errors/test_set_indexing.py",
-    "infile_hash": "554078219252203b861616525473a69168f0ab64f1970ce97de43331",
+    "infile_hash": "24f02fc93b8ed20f1c9ea7ae862faa087d070ec288577b90b90b3bc5",
     "outfile": null,
     "outfile_hash": null,
     "stdout": null,
diff --git a/tests/reference/asr-test_set_object1-d9bd2e1.json b/tests/reference/asr-test_set_object1-d9bd2e1.json
new file mode 100644
index 0000000000..7bea07f5a8
--- /dev/null
+++ b/tests/reference/asr-test_set_object1-d9bd2e1.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-test_set_object1-d9bd2e1",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/test_set_object1.py",
+    "infile_hash": "9450d7ca46f30271944800137d28413648bafdbeb7f0a7ac0906c832",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-test_set_object1-d9bd2e1.stderr",
+    "stderr_hash": "584afaf2a54c31e980610b612b5b05885014dbe51897431babd718b2",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-test_set_object1-d9bd2e1.stderr b/tests/reference/asr-test_set_object1-d9bd2e1.stderr
new file mode 100644
index 0000000000..6012cc6a7e
--- /dev/null
+++ b/tests/reference/asr-test_set_object1-d9bd2e1.stderr
@@ -0,0 +1,5 @@
+semantic error: Unhashable type: 'list[i32]'
+ --> tests/errors/test_set_object1.py:4:17
+  |
+4 |     my_set: set[list[i32]] = {[1, 2], [3, 4]}
+  |                 ^^^^^^^^^ Mutable type 'list[i32]' cannot be stored in a set.
diff --git a/tests/reference/asr-test_set_object2-41401ff.json b/tests/reference/asr-test_set_object2-41401ff.json
new file mode 100644
index 0000000000..b1b2e8efa0
--- /dev/null
+++ b/tests/reference/asr-test_set_object2-41401ff.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-test_set_object2-41401ff",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/test_set_object2.py",
+    "infile_hash": "e7360eff7caf0991c5bd4c505a947d23e2bc01277e9a2966362400df",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-test_set_object2-41401ff.stderr",
+    "stderr_hash": "43dc059d716a35df0c0cb2d5758c21dbf5822dc3ea0b0d39cbf64f75",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-test_set_object2-41401ff.stderr b/tests/reference/asr-test_set_object2-41401ff.stderr
new file mode 100644
index 0000000000..52c664dfd4
--- /dev/null
+++ b/tests/reference/asr-test_set_object2-41401ff.stderr
@@ -0,0 +1,5 @@
+semantic error: Unhashable type: 'dict[i32, Allocatable[str]]'
+ --> tests/errors/test_set_object2.py:4:17
+  |
+4 |     my_set: set[dict[i32, str]] = {{1: "a", 2: "b"}, {3: "c", 4: "d"}}
+  |                 ^^^^^^^^^^^^^^ Mutable type 'dict[i32, Allocatable[str]]' cannot be stored in a set.
diff --git a/tests/reference/asr-test_set_object3-680b593.json b/tests/reference/asr-test_set_object3-680b593.json
new file mode 100644
index 0000000000..ca062fd858
--- /dev/null
+++ b/tests/reference/asr-test_set_object3-680b593.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-test_set_object3-680b593",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/test_set_object3.py",
+    "infile_hash": "f1dea0a951aa880721aa38a0dcf254983e7d50ab408c64c87b9a078e",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-test_set_object3-680b593.stderr",
+    "stderr_hash": "348e9ba160b658f1f0176a345acceb20e91893afb8b135489a1804d4",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-test_set_object3-680b593.stderr b/tests/reference/asr-test_set_object3-680b593.stderr
new file mode 100644
index 0000000000..87e9acb8b8
--- /dev/null
+++ b/tests/reference/asr-test_set_object3-680b593.stderr
@@ -0,0 +1,5 @@
+semantic error: Unhashable type: 'set[i32]'
+ --> tests/errors/test_set_object3.py:4:17
+  |
+4 |     my_set: set[set[i32]] = {{1, 2}, {3, 4}}
+  |                 ^^^^^^^^ Mutable type 'set[i32]' cannot be stored in a set.
diff --git a/tests/reference/asr-test_set_object4-243eb04.json b/tests/reference/asr-test_set_object4-243eb04.json
new file mode 100644
index 0000000000..31fdb359ad
--- /dev/null
+++ b/tests/reference/asr-test_set_object4-243eb04.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-test_set_object4-243eb04",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/test_set_object4.py",
+    "infile_hash": "0b339aaa798fca7bd12920c583b0d60d70fe2f8afeb68a1811992f59",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-test_set_object4-243eb04.stderr",
+    "stderr_hash": "920e20563a2e9f5dc188372d13e22eee962a46e80322f8b51716b0df",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-test_set_object4-243eb04.stderr b/tests/reference/asr-test_set_object4-243eb04.stderr
new file mode 100644
index 0000000000..5f8d770d53
--- /dev/null
+++ b/tests/reference/asr-test_set_object4-243eb04.stderr
@@ -0,0 +1,5 @@
+semantic error: Unhashable type: 'list[i32]'
+ --> tests/errors/test_set_object4.py:2:12
+  |
+2 |     print({[1, 2], [3, 4]})
+  |            ^^^^^^ Mutable type 'list[i32]' cannot be stored in a set.
diff --git a/tests/reference/asr-test_set_object5-4bd1044.json b/tests/reference/asr-test_set_object5-4bd1044.json
new file mode 100644
index 0000000000..418ffd5227
--- /dev/null
+++ b/tests/reference/asr-test_set_object5-4bd1044.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-test_set_object5-4bd1044",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/test_set_object5.py",
+    "infile_hash": "6d88885bb6428fe2b63121d653dcdfd23ec30d6b5322eb4cb8faada6",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-test_set_object5-4bd1044.stderr",
+    "stderr_hash": "f75886125a221a4f7cad9a3072a562c6646e83475e112f7cbd63eccc",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-test_set_object5-4bd1044.stderr b/tests/reference/asr-test_set_object5-4bd1044.stderr
new file mode 100644
index 0000000000..d6fc0b4444
--- /dev/null
+++ b/tests/reference/asr-test_set_object5-4bd1044.stderr
@@ -0,0 +1,5 @@
+semantic error: Unhashable type: 'dict[i32, Allocatable[str]]'
+ --> tests/errors/test_set_object5.py:2:12
+  |
+2 |     print({{1: "a", 2: "b"}, {3: "c", 4: "d"}})
+  |            ^^^^^^^^^^^^^^^^ Mutable type 'dict[i32, Allocatable[str]]' cannot be stored in a set.
diff --git a/tests/reference/asr-test_set_object6-01b4fa7.json b/tests/reference/asr-test_set_object6-01b4fa7.json
new file mode 100644
index 0000000000..e3d4651245
--- /dev/null
+++ b/tests/reference/asr-test_set_object6-01b4fa7.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-test_set_object6-01b4fa7",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/test_set_object6.py",
+    "infile_hash": "528a4e950b464e2915259ef826f2322c55efc268b2b5245add9fb6be",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-test_set_object6-01b4fa7.stderr",
+    "stderr_hash": "cff88fb2b2fe0afb0f732ff10b31361452527e2e7575d8ffe030b2d8",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-test_set_object6-01b4fa7.stderr b/tests/reference/asr-test_set_object6-01b4fa7.stderr
new file mode 100644
index 0000000000..9df4271ecd
--- /dev/null
+++ b/tests/reference/asr-test_set_object6-01b4fa7.stderr
@@ -0,0 +1,5 @@
+semantic error: Unhashable type: 'set[i32]'
+ --> tests/errors/test_set_object6.py:2:12
+  |
+2 |     print({{1, 2}, {3, 4}})
+  |            ^^^^^^ Mutable type 'set[i32]' cannot be stored in a set.
diff --git a/tests/reference/asr-test_str_indexing-b200a4e.json b/tests/reference/asr-test_str_indexing-b200a4e.json
index 04bd44e9cd..1193d8bad7 100644
--- a/tests/reference/asr-test_str_indexing-b200a4e.json
+++ b/tests/reference/asr-test_str_indexing-b200a4e.json
@@ -8,6 +8,6 @@
     "stdout": null,
     "stdout_hash": null,
     "stderr": "asr-test_str_indexing-b200a4e.stderr",
-    "stderr_hash": "1af6d788d13f858af5766c0b273362c72caaf4a5267b20e2087a53b4",
+    "stderr_hash": "eddc45a6ba83dc10551fd9685b6ea1096828ae29f6b9cce07cfe5de1",
     "returncode": 2
 }
\ No newline at end of file
diff --git a/tests/reference/asr-test_str_indexing-b200a4e.stderr b/tests/reference/asr-test_str_indexing-b200a4e.stderr
index 3d1091a630..fb521217df 100644
--- a/tests/reference/asr-test_str_indexing-b200a4e.stderr
+++ b/tests/reference/asr-test_str_indexing-b200a4e.stderr
@@ -1,5 +1,5 @@
-semantic error: Type mismatch in index, Index should be of integer type
+semantic error: Type mismatch in index, expected a single integer or slice
  --> tests/errors/test_str_indexing.py:4:13
   |
 4 |     print(s[1.2])
-  |             ^^^ type mismatch (found: 'f64', expected: 'i32')
+  |             ^^^ type mismatch (found: 'f64', expected: 'i32' or slice)
diff --git a/tests/reference/asr-test_str_slicing4-a0c7a69.json b/tests/reference/asr-test_str_slicing4-a0c7a69.json
new file mode 100644
index 0000000000..ceff8659bb
--- /dev/null
+++ b/tests/reference/asr-test_str_slicing4-a0c7a69.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-test_str_slicing4-a0c7a69",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/test_str_slicing4.py",
+    "infile_hash": "7bd3e8d21550f50244ee88e383dbd42cde33f03c516cfcaaeaaadd71",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-test_str_slicing4-a0c7a69.stderr",
+    "stderr_hash": "a5dd047df86649936606a0b134d10e76c6aacb224319be4aefd64bfe",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-test_str_slicing4-a0c7a69.stderr b/tests/reference/asr-test_str_slicing4-a0c7a69.stderr
new file mode 100644
index 0000000000..8709b99ee8
--- /dev/null
+++ b/tests/reference/asr-test_str_slicing4-a0c7a69.stderr
@@ -0,0 +1,5 @@
+semantic error: slice step cannot be zero
+ --> tests/errors/test_str_slicing4.py:4:17
+  |
+4 |     print(s[0:1:0])
+  |                 ^ 
diff --git a/tests/reference/asr-test_str_to_int-61553e7.json b/tests/reference/asr-test_str_to_int-61553e7.json
index ac1093b9c8..2e8283224b 100644
--- a/tests/reference/asr-test_str_to_int-61553e7.json
+++ b/tests/reference/asr-test_str_to_int-61553e7.json
@@ -8,6 +8,6 @@
     "stdout": null,
     "stdout_hash": null,
     "stderr": "asr-test_str_to_int-61553e7.stderr",
-    "stderr_hash": "1998e37d9abe044f164c73ea1e000ce748ed43af5ea14c2eb4715f11",
+    "stderr_hash": "e0b961485e33c4a57237370ab8dff10819d2bb7944f6cb1e898c38cc",
     "returncode": 2
 }
\ No newline at end of file
diff --git a/tests/reference/asr-test_str_to_int-61553e7.stderr b/tests/reference/asr-test_str_to_int-61553e7.stderr
index 785d95ba7f..54e3530588 100644
--- a/tests/reference/asr-test_str_to_int-61553e7.stderr
+++ b/tests/reference/asr-test_str_to_int-61553e7.stderr
@@ -1,5 +1,5 @@
-semantic error: invalid literal for int() with base 10: '3abc'
- --> tests/errors/test_str_to_int.py:2:15
+semantic error: Unexpected args, Int expects (int) or (real) or (complex) as arguments
+ --> tests/errors/test_str_to_int.py:2:11
   |
 2 |     print(int('3abc'))
-  |               ^^^^^^ 
+  |           ^^^^^^^^^^^ 
diff --git a/tests/reference/asr-test_tuple1-7abe88f.json b/tests/reference/asr-test_tuple1-7abe88f.json
index e308970eea..ca02800320 100644
--- a/tests/reference/asr-test_tuple1-7abe88f.json
+++ b/tests/reference/asr-test_tuple1-7abe88f.json
@@ -8,6 +8,6 @@
     "stdout": null,
     "stdout_hash": null,
     "stderr": "asr-test_tuple1-7abe88f.stderr",
-    "stderr_hash": "56df3d46c63077fcdd09c3b54b63e6e096d7d39b2f8cfb61dab0930a",
+    "stderr_hash": "8a9f49861f8298e973d521d9085ba073ad7ab3c90d9d49db20c284f0",
     "returncode": 2
 }
\ No newline at end of file
diff --git a/tests/reference/asr-test_tuple1-7abe88f.stderr b/tests/reference/asr-test_tuple1-7abe88f.stderr
index c66cc64946..d7d3fcfd44 100644
--- a/tests/reference/asr-test_tuple1-7abe88f.stderr
+++ b/tests/reference/asr-test_tuple1-7abe88f.stderr
@@ -2,4 +2,4 @@ semantic error: Type mismatch in assignment, the types must be compatible
  --> tests/errors/test_tuple1.py:3:3
   |
 3 |   t = (1, 2)
-  |   ^   ^^^^^^ type mismatch ('tuple[i32, str]' and 'tuple[i32, i32]')
+  |   ^   ^^^^^^ type mismatch ('tuple[i32, Allocatable[str]]' and 'tuple[i32, i32]')
diff --git a/tests/reference/asr-test_tuple2-b046610.json b/tests/reference/asr-test_tuple2-b046610.json
new file mode 100644
index 0000000000..051ed20bfb
--- /dev/null
+++ b/tests/reference/asr-test_tuple2-b046610.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-test_tuple2-b046610",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/test_tuple2.py",
+    "infile_hash": "84aa4ecdd21f5d633975d08f6927a7d336c47a31c2fd2bc42cae1c7b",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-test_tuple2-b046610.stderr",
+    "stderr_hash": "1e22bbde9c9fdc171314f1158dcac6bf6373d94e00c9878f66d7b667",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-test_tuple2-b046610.stderr b/tests/reference/asr-test_tuple2-b046610.stderr
new file mode 100644
index 0000000000..e99518093e
--- /dev/null
+++ b/tests/reference/asr-test_tuple2-b046610.stderr
@@ -0,0 +1,5 @@
+semantic error: Runtime Indexing with tuple[i32, i32, i32] is not possible.
+ --> tests/errors/test_tuple2.py:4:11
+  |
+4 |     print(t[x])
+  |           ^^^^ 
diff --git a/tests/reference/asr-test_tuple3-19fa47f.json b/tests/reference/asr-test_tuple3-19fa47f.json
new file mode 100644
index 0000000000..0a703f17d4
--- /dev/null
+++ b/tests/reference/asr-test_tuple3-19fa47f.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-test_tuple3-19fa47f",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/test_tuple3.py",
+    "infile_hash": "cfa12cc4d8456bfd45e77cc49c5e8d2417181a1443cdaaf8b15c0528",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-test_tuple3-19fa47f.stderr",
+    "stderr_hash": "780d951c4bfa3476ee84d16d9a89c5a9255691b270bfb312d974608e",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-test_tuple3-19fa47f.stderr b/tests/reference/asr-test_tuple3-19fa47f.stderr
new file mode 100644
index 0000000000..fe438fb382
--- /dev/null
+++ b/tests/reference/asr-test_tuple3-19fa47f.stderr
@@ -0,0 +1,5 @@
+semantic error: Tuple index out of bounds
+ --> tests/errors/test_tuple3.py:3:11
+  |
+3 |     print(t[-4])
+  |           ^^^^^ 
diff --git a/tests/reference/asr-test_type_mismatch_01-09e8af3.json b/tests/reference/asr-test_type_mismatch_01-09e8af3.json
new file mode 100644
index 0000000000..ce2513c935
--- /dev/null
+++ b/tests/reference/asr-test_type_mismatch_01-09e8af3.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-test_type_mismatch_01-09e8af3",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/test_type_mismatch_01.py",
+    "infile_hash": "58baa8f4a5094bfa977527f92814a375ceea1f9a99c08e43bdd18ad4",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-test_type_mismatch_01-09e8af3.stderr",
+    "stderr_hash": "78ff11b22438e133b740e778063db612841fb15ef00f8599bdf8602c",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-test_type_mismatch_01-09e8af3.stderr b/tests/reference/asr-test_type_mismatch_01-09e8af3.stderr
new file mode 100644
index 0000000000..3dc100fad6
--- /dev/null
+++ b/tests/reference/asr-test_type_mismatch_01-09e8af3.stderr
@@ -0,0 +1,5 @@
+semantic error: Type mismatch in shorthand operator, the types must be compatible
+ --> tests/errors/test_type_mismatch_01.py:6:5
+  |
+6 |     a /= b
+  |     ^    ^ type mismatch ('i32' and 'f64')
diff --git a/tests/reference/asr-test_unary_op_03-e799eae.json b/tests/reference/asr-test_unary_op_03-e799eae.json
new file mode 100644
index 0000000000..cbcea5f876
--- /dev/null
+++ b/tests/reference/asr-test_unary_op_03-e799eae.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-test_unary_op_03-e799eae",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/../integration_tests/test_unary_op_03.py",
+    "infile_hash": "ce63509c56eb6c68ca6d64cc2a195644f3d2fc285f3ec8865551eff5",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": "asr-test_unary_op_03-e799eae.stdout",
+    "stdout_hash": "6bbab967e0badba4beea641329f33faa3d28be569f8d42e21c82a86f",
+    "stderr": null,
+    "stderr_hash": null,
+    "returncode": 0
+}
\ No newline at end of file
diff --git a/tests/reference/asr-test_unary_op_03-e799eae.stdout b/tests/reference/asr-test_unary_op_03-e799eae.stdout
new file mode 100644
index 0000000000..13092ae344
--- /dev/null
+++ b/tests/reference/asr-test_unary_op_03-e799eae.stdout
@@ -0,0 +1,211 @@
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            __main__global_stmts:
+                                (Function
+                                    (SymbolTable
+                                        4
+                                        {
+                                            
+                                        })
+                                    __main__global_stmts
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [f]
+                                    []
+                                    [(SubroutineCall
+                                        2 f
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            f:
+                                (Function
+                                    (SymbolTable
+                                        3
+                                        {
+                                            i:
+                                                (Variable
+                                                    3
+                                                    i
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            res:
+                                                (Variable
+                                                    3
+                                                    res
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    f
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 3 i)
+                                        (IntegerConstant 5 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 res)
+                                        (IntegerBitNot
+                                            (Var 3 i)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (Var 3 res)
+                                            Eq
+                                            (IntegerUnaryMinus
+                                                (IntegerConstant 6 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                (IntegerConstant -6 (Integer 4) Decimal)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )
+                                    (Assignment
+                                        (Var 3 i)
+                                        (IntegerUnaryMinus
+                                            (IntegerConstant 235346 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            (IntegerConstant -235346 (Integer 4) Decimal)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (IntegerBitNot
+                                                (Var 3 i)
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Eq
+                                            (IntegerConstant 235345 (Integer 4) Decimal)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    []
+                    .false.
+                    .false.
+                    .false.
+                ),
+            main_program:
+                (Program
+                    (SymbolTable
+                        5
+                        {
+                            __main__global_stmts:
+                                (ExternalSymbol
+                                    5
+                                    __main__global_stmts
+                                    2 __main__global_stmts
+                                    __main__
+                                    []
+                                    __main__global_stmts
+                                    Public
+                                )
+                        })
+                    main_program
+                    [__main__]
+                    [(SubroutineCall
+                        5 __main__global_stmts
+                        2 __main__global_stmts
+                        []
+                        ()
+                        .false.
+                    )]
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-test_unsupported_type-0d813dd.json b/tests/reference/asr-test_unsupported_type-0d813dd.json
index 357b39f378..ab828c49da 100644
--- a/tests/reference/asr-test_unsupported_type-0d813dd.json
+++ b/tests/reference/asr-test_unsupported_type-0d813dd.json
@@ -8,6 +8,6 @@
     "stdout": null,
     "stdout_hash": null,
     "stderr": "asr-test_unsupported_type-0d813dd.stderr",
-    "stderr_hash": "1675de57db132a5a4a589070d7c54ff23a57532bd967ccb416ff8c2a",
+    "stderr_hash": "df2464bbcb9d52d4dbe40236762e965b1b771406f16ef90cf53b8611",
     "returncode": 2
 }
\ No newline at end of file
diff --git a/tests/reference/asr-test_unsupported_type-0d813dd.stderr b/tests/reference/asr-test_unsupported_type-0d813dd.stderr
index 2ea17a3b18..b5e5249813 100644
--- a/tests/reference/asr-test_unsupported_type-0d813dd.stderr
+++ b/tests/reference/asr-test_unsupported_type-0d813dd.stderr
@@ -1,4 +1,4 @@
-semantic error: Unsupported type annotation: i128
+semantic error: The type 'i128' is undeclared.
  --> tests/errors/test_unsupported_type.py:2:8
   |
 2 |     i: i128
diff --git a/tests/reference/asr-test_zero_division-3dd84e8.json b/tests/reference/asr-test_zero_division-3dd84e8.json
index 129e181bef..776d675a14 100644
--- a/tests/reference/asr-test_zero_division-3dd84e8.json
+++ b/tests/reference/asr-test_zero_division-3dd84e8.json
@@ -5,9 +5,9 @@
     "infile_hash": "cef09721d9ea9f3846f213e1b1718f2aac2edba08d555af776293504",
     "outfile": null,
     "outfile_hash": null,
-    "stdout": null,
-    "stdout_hash": null,
-    "stderr": "asr-test_zero_division-3dd84e8.stderr",
-    "stderr_hash": "9403e36c7ace95241bf1d59a108732b298fbee5425c44455fb81ac77",
-    "returncode": 2
+    "stdout": "asr-test_zero_division-3dd84e8.stdout",
+    "stdout_hash": "f005b1ae2dbee8f53c04ba93dc118054f97e2bae99aef636550f11e1",
+    "stderr": null,
+    "stderr_hash": null,
+    "returncode": 0
 }
\ No newline at end of file
diff --git a/tests/reference/asr-test_zero_division-3dd84e8.stderr b/tests/reference/asr-test_zero_division-3dd84e8.stderr
deleted file mode 100644
index 7403437c96..0000000000
--- a/tests/reference/asr-test_zero_division-3dd84e8.stderr
+++ /dev/null
@@ -1,5 +0,0 @@
-semantic error: integer division by zero is not allowed
- --> tests/errors/test_zero_division.py:4:16
-  |
-4 |     print(i // 0)
-  |                ^ integer division by zero
diff --git a/tests/reference/asr-test_zero_division-3dd84e8.stdout b/tests/reference/asr-test_zero_division-3dd84e8.stdout
new file mode 100644
index 0000000000..8edf9cbdd3
--- /dev/null
+++ b/tests/reference/asr-test_zero_division-3dd84e8.stdout
@@ -0,0 +1,158 @@
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            __main__global_stmts:
+                                (Function
+                                    (SymbolTable
+                                        4
+                                        {
+                                            
+                                        })
+                                    __main__global_stmts
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [f]
+                                    []
+                                    [(SubroutineCall
+                                        2 f
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            f:
+                                (Function
+                                    (SymbolTable
+                                        3
+                                        {
+                                            i:
+                                                (Variable
+                                                    3
+                                                    i
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    f
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 3 i)
+                                        (IntegerConstant 4 (Integer 4) Decimal)
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(IntrinsicElementalFunction
+                                                FloorDiv
+                                                [(Var 3 i)
+                                                (IntegerConstant 0 (Integer 4) Decimal)]
+                                                0
+                                                (Integer 4)
+                                                ()
+                                            )]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    []
+                    .false.
+                    .false.
+                    .false.
+                ),
+            main_program:
+                (Program
+                    (SymbolTable
+                        5
+                        {
+                            __main__global_stmts:
+                                (ExternalSymbol
+                                    5
+                                    __main__global_stmts
+                                    2 __main__global_stmts
+                                    __main__
+                                    []
+                                    __main__global_stmts
+                                    Public
+                                )
+                        })
+                    main_program
+                    [__main__]
+                    [(SubroutineCall
+                        5 __main__global_stmts
+                        2 __main__global_stmts
+                        []
+                        ()
+                        .false.
+                    )]
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-test_zero_division2-d84989f.json b/tests/reference/asr-test_zero_division2-d84989f.json
index b9a7de7d1e..0f549b1f8a 100644
--- a/tests/reference/asr-test_zero_division2-d84989f.json
+++ b/tests/reference/asr-test_zero_division2-d84989f.json
@@ -5,9 +5,9 @@
     "infile_hash": "0ddca188fc2e8d665c5af0d438e34ed8afe255611320caa3a27ed483",
     "outfile": null,
     "outfile_hash": null,
-    "stdout": null,
-    "stdout_hash": null,
-    "stderr": "asr-test_zero_division2-d84989f.stderr",
-    "stderr_hash": "09fcb9f6244ddf2c2d14cd76ec91274cffd240e24e2b2f1c0697c8b5",
-    "returncode": 2
+    "stdout": "asr-test_zero_division2-d84989f.stdout",
+    "stdout_hash": "eabc507ecc4e5b5bc462fdcbf9a1b18e96ab91f2d9ee0439b40e5ee5",
+    "stderr": null,
+    "stderr_hash": null,
+    "returncode": 0
 }
\ No newline at end of file
diff --git a/tests/reference/asr-test_zero_division2-d84989f.stderr b/tests/reference/asr-test_zero_division2-d84989f.stderr
deleted file mode 100644
index 8dc523a2a5..0000000000
--- a/tests/reference/asr-test_zero_division2-d84989f.stderr
+++ /dev/null
@@ -1,5 +0,0 @@
-semantic error: float floor division by zero is not allowed
- --> tests/errors/test_zero_division2.py:4:16
-  |
-4 |     print(v // 0.0)
-  |                ^^^ float floor division by zero
diff --git a/tests/reference/asr-test_zero_division2-d84989f.stdout b/tests/reference/asr-test_zero_division2-d84989f.stdout
new file mode 100644
index 0000000000..c700111865
--- /dev/null
+++ b/tests/reference/asr-test_zero_division2-d84989f.stdout
@@ -0,0 +1,164 @@
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            __main__global_stmts:
+                                (Function
+                                    (SymbolTable
+                                        4
+                                        {
+                                            
+                                        })
+                                    __main__global_stmts
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [f]
+                                    []
+                                    [(SubroutineCall
+                                        2 f
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            f:
+                                (Function
+                                    (SymbolTable
+                                        3
+                                        {
+                                            v:
+                                                (Variable
+                                                    3
+                                                    v
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    f
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 3 v)
+                                        (RealConstant
+                                            4.000000
+                                            (Real 8)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(IntrinsicElementalFunction
+                                                FloorDiv
+                                                [(Var 3 v)
+                                                (RealConstant
+                                                    0.000000
+                                                    (Real 8)
+                                                )]
+                                                0
+                                                (Real 8)
+                                                ()
+                                            )]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    []
+                    .false.
+                    .false.
+                    .false.
+                ),
+            main_program:
+                (Program
+                    (SymbolTable
+                        5
+                        {
+                            __main__global_stmts:
+                                (ExternalSymbol
+                                    5
+                                    __main__global_stmts
+                                    2 __main__global_stmts
+                                    __main__
+                                    []
+                                    __main__global_stmts
+                                    Public
+                                )
+                        })
+                    main_program
+                    [__main__]
+                    [(SubroutineCall
+                        5 __main__global_stmts
+                        2 __main__global_stmts
+                        []
+                        ()
+                        .false.
+                    )]
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-test_zero_division4-bf4af64.json b/tests/reference/asr-test_zero_division4-bf4af64.json
index 309ec52006..e1f6ce6bc0 100644
--- a/tests/reference/asr-test_zero_division4-bf4af64.json
+++ b/tests/reference/asr-test_zero_division4-bf4af64.json
@@ -2,7 +2,7 @@
     "basename": "asr-test_zero_division4-bf4af64",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/errors/test_zero_division4.py",
-    "infile_hash": "45d522f85b18d58db962c024609242857ceaf480977a52cd6a7421f6",
+    "infile_hash": "87b6a224572c853741dd70f25b05b257d214bd3269a7e71af117057c",
     "outfile": null,
     "outfile_hash": null,
     "stdout": null,
diff --git a/tests/reference/asr-tuple1-09972ab.json b/tests/reference/asr-tuple1-09972ab.json
index 4d160551d5..e2bdb85de0 100644
--- a/tests/reference/asr-tuple1-09972ab.json
+++ b/tests/reference/asr-tuple1-09972ab.json
@@ -2,11 +2,11 @@
     "basename": "asr-tuple1-09972ab",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/tuple1.py",
-    "infile_hash": "aed9320f34b5eec1d9ce30d9ef28abeaf9c1faaf421d87b34148ae04",
+    "infile_hash": "0ad9c210f19f9e560890c7a67ed06f4a710bbc8535c0097c35736028",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "asr-tuple1-09972ab.stdout",
-    "stdout_hash": "4d9f873957d1fb26029050c205c9f8abf402d955ed114389902a029f",
+    "stdout_hash": "639c2cc9a9a6db4f961bdee39fdaff3b85a4dda684ac62a51315fbc9",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/asr-tuple1-09972ab.stdout b/tests/reference/asr-tuple1-09972ab.stdout
index f0ccc05f06..dda49d62f8 100644
--- a/tests/reference/asr-tuple1-09972ab.stdout
+++ b/tests/reference/asr-tuple1-09972ab.stdout
@@ -1 +1,689 @@
-(TranslationUnit (SymbolTable 1 {main_program: (Program (SymbolTable 3 {}) main_program [] []), test_Tuple: (Function (SymbolTable 2 {a1: (Variable 2 a1 [] Local () () Default (Tuple [(Integer 4 []) (Integer 4 []) (Integer 4 [])]) Source Public Required .false.), a11: (Variable 2 a11 [] Local () () Default (Tuple [(Integer 4 []) (Integer 4 [])]) Source Public Required .false.), a2: (Variable 2 a2 [] Local () () Default (Tuple [(Character 1 -2 () []) (Character 1 -2 () []) (Character 1 -2 () [])]) Source Public Required .false.), a3: (Variable 2 a3 [] Local () () Default (Tuple [(Integer 4 []) (Integer 4 []) (Real 4 []) (Character 1 -2 () [])]) Source Public Required .false.), a4: (Variable 2 a4 [] Local () () Default (Tuple [(Tuple [(Integer 4 []) (Integer 4 []) (Integer 4 [])]) (Tuple [(Integer 4 []) (Integer 4 []) (Integer 4 [])])]) Source Public Required .false.), a5: (Variable 2 a5 [] Local () () Default (Tuple [(Tuple [(Character 1 -2 () []) (Character 1 -2 () []) (Real 4 [])]) (Tuple [(Character 1 -2 () []) (Integer 4 []) (Real 4 [])])]) Source Public Required .false.), b0: (Variable 2 b0 [] Local () () Default (Integer 4 []) Source Public Required .false.), b1: (Variable 2 b1 [] Local () () Default (Integer 4 []) Source Public Required .false.), b11: (Variable 2 b11 [] Local () () Default (Tuple [(Integer 4 []) (Integer 4 [])]) Source Public Required .false.), float_mem: (Variable 2 float_mem [] Local () () Default (Real 4 []) Source Public Required .false.), float_mem1: (Variable 2 float_mem1 [] Local () () Default (Real 4 []) Source Public Required .false.), float_mem2: (Variable 2 float_mem2 [] Local () () Default (Real 4 []) Source Public Required .false.)}) test_Tuple (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [] [(= (Var 2 a1) (TupleConstant [(IntegerConstant 1 (Integer 4 [])) (IntegerConstant 2 (Integer 4 [])) (IntegerConstant 3 (Integer 4 []))] (Tuple [(Integer 4 []) (Integer 4 []) (Integer 4 [])])) ()) (= (Var 2 a1) (TupleConstant [(IntegerUnaryMinus (IntegerConstant 3 (Integer 4 [])) (Integer 4 []) (IntegerConstant -3 (Integer 4 []))) (IntegerUnaryMinus (IntegerConstant 2 (Integer 4 [])) (Integer 4 []) (IntegerConstant -2 (Integer 4 []))) (IntegerUnaryMinus (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant -1 (Integer 4 [])))] (Tuple [(Integer 4 []) (Integer 4 []) (Integer 4 [])])) ()) (= (Var 2 a2) (TupleConstant [(StringConstant "a" (Character 1 1 () [])) (StringConstant "b" (Character 1 1 () [])) (StringConstant "c" (Character 1 1 () []))] (Tuple [(Character 1 1 () []) (Character 1 1 () []) (Character 1 1 () [])])) ()) (= (Var 2 float_mem) (Cast (RealConstant 0.450000 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 0.450000 (Real 4 []))) ()) (= (Var 2 a3) (TupleConstant [(IntegerUnaryMinus (IntegerConstant 2 (Integer 4 [])) (Integer 4 []) (IntegerConstant -2 (Integer 4 []))) (IntegerUnaryMinus (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant -1 (Integer 4 []))) (Var 2 float_mem) (StringConstant "d" (Character 1 1 () []))] (Tuple [(Integer 4 []) (Integer 4 []) (Real 4 []) (Character 1 1 () [])])) ()) (= (Var 2 a4) (TupleConstant [(TupleConstant [(IntegerConstant 1 (Integer 4 [])) (IntegerConstant 2 (Integer 4 [])) (IntegerConstant 3 (Integer 4 []))] (Tuple [(Integer 4 []) (Integer 4 []) (Integer 4 [])])) (TupleConstant [(IntegerConstant 4 (Integer 4 [])) (IntegerConstant 5 (Integer 4 [])) (IntegerConstant 6 (Integer 4 []))] (Tuple [(Integer 4 []) (Integer 4 []) (Integer 4 [])]))] (Tuple [(Tuple [(Integer 4 []) (Integer 4 []) (Integer 4 [])]) (Tuple [(Integer 4 []) (Integer 4 []) (Integer 4 [])])])) ()) (= (Var 2 float_mem1) (Cast (RealConstant 3.400000 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 3.400000 (Real 4 []))) ()) (= (Var 2 float_mem2) (Cast (RealConstant 5.600000 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 5.600000 (Real 4 []))) ()) (= (Var 2 a5) (TupleConstant [(TupleConstant [(StringConstant "a" (Character 1 1 () [])) (StringConstant "b" (Character 1 1 () [])) (Var 2 float_mem1)] (Tuple [(Character 1 1 () []) (Character 1 1 () []) (Real 4 [])])) (TupleConstant [(StringConstant "c" (Character 1 1 () [])) (IntegerConstant 3 (Integer 4 [])) (Var 2 float_mem2)] (Tuple [(Character 1 1 () []) (Integer 4 []) (Real 4 [])]))] (Tuple [(Tuple [(Character 1 1 () []) (Character 1 1 () []) (Real 4 [])]) (Tuple [(Character 1 1 () []) (Integer 4 []) (Real 4 [])])])) ()) (= (Var 2 b0) (TupleItem (Var 2 a1) (IntegerConstant 0 (Integer 4 [])) (Integer 4 []) ()) ()) (= (TupleConstant [(Var 2 b0) (Var 2 b1)] (Tuple [(Integer 4 []) (Integer 4 [])])) (TupleConstant [(TupleItem (Var 2 a1) (IntegerConstant 2 (Integer 4 [])) (Integer 4 []) ()) (TupleItem (Var 2 a1) (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ())] (Tuple [(Integer 4 []) (Integer 4 [])])) ()) (= (Var 2 a11) (TupleConstant [(IntegerConstant 1 (Integer 4 [])) (IntegerConstant 2 (Integer 4 []))] (Tuple [(Integer 4 []) (Integer 4 [])])) ()) (= (Var 2 b11) (TupleConstant [(IntegerConstant 1 (Integer 4 [])) (IntegerConstant 2 (Integer 4 []))] (Tuple [(Integer 4 []) (Integer 4 [])])) ()) (Assert (TupleCompare (Var 2 a11) Eq (Var 2 b11) (Logical 4 []) ()) ())] () Public .false. .false.)}) [])
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            test_Tuple:
+                                (Function
+                                    (SymbolTable
+                                        3
+                                        {
+                                            a1:
+                                                (Variable
+                                                    3
+                                                    a1
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Tuple
+                                                        [(Integer 4)
+                                                        (Integer 4)
+                                                        (Integer 4)]
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            a11:
+                                                (Variable
+                                                    3
+                                                    a11
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Tuple
+                                                        [(Integer 4)
+                                                        (Integer 4)]
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            a2:
+                                                (Variable
+                                                    3
+                                                    a2
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Tuple
+                                                        [(Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )]
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            a3:
+                                                (Variable
+                                                    3
+                                                    a3
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Tuple
+                                                        [(Integer 4)
+                                                        (Integer 4)
+                                                        (Real 4)
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )]
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            a4:
+                                                (Variable
+                                                    3
+                                                    a4
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Tuple
+                                                        [(Tuple
+                                                            [(Integer 4)
+                                                            (Integer 4)
+                                                            (Integer 4)]
+                                                        )
+                                                        (Tuple
+                                                            [(Integer 4)
+                                                            (Integer 4)
+                                                            (Integer 4)]
+                                                        )]
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            a5:
+                                                (Variable
+                                                    3
+                                                    a5
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Tuple
+                                                        [(Tuple
+                                                            [(Allocatable
+                                                                (String 1 () DeferredLength DescriptorString)
+                                                            )
+                                                            (Allocatable
+                                                                (String 1 () DeferredLength DescriptorString)
+                                                            )
+                                                            (Real 4)]
+                                                        )
+                                                        (Tuple
+                                                            [(Allocatable
+                                                                (String 1 () DeferredLength DescriptorString)
+                                                            )
+                                                            (Integer 4)
+                                                            (Real 4)]
+                                                        )]
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            b0:
+                                                (Variable
+                                                    3
+                                                    b0
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            b1:
+                                                (Variable
+                                                    3
+                                                    b1
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            b11:
+                                                (Variable
+                                                    3
+                                                    b11
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Tuple
+                                                        [(Integer 4)
+                                                        (Integer 4)]
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            float_mem:
+                                                (Variable
+                                                    3
+                                                    float_mem
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            float_mem1:
+                                                (Variable
+                                                    3
+                                                    float_mem1
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            float_mem2:
+                                                (Variable
+                                                    3
+                                                    float_mem2
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Real 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test_Tuple
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 3 a1)
+                                        (TupleConstant
+                                            [(IntegerConstant 1 (Integer 4) Decimal)
+                                            (IntegerConstant 2 (Integer 4) Decimal)
+                                            (IntegerConstant 3 (Integer 4) Decimal)]
+                                            (Tuple
+                                                [(Integer 4)
+                                                (Integer 4)
+                                                (Integer 4)]
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 a1)
+                                        (TupleConstant
+                                            [(IntegerUnaryMinus
+                                                (IntegerConstant 3 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                (IntegerConstant -3 (Integer 4) Decimal)
+                                            )
+                                            (IntegerUnaryMinus
+                                                (IntegerConstant 2 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                (IntegerConstant -2 (Integer 4) Decimal)
+                                            )
+                                            (IntegerUnaryMinus
+                                                (IntegerConstant 1 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                (IntegerConstant -1 (Integer 4) Decimal)
+                                            )]
+                                            (Tuple
+                                                [(Integer 4)
+                                                (Integer 4)
+                                                (Integer 4)]
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 a2)
+                                        (TupleConstant
+                                            [(StringConstant
+                                                "a"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (StringConstant
+                                                "b"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (StringConstant
+                                                "c"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )]
+                                            (Tuple
+                                                [(String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)]
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 float_mem)
+                                        (Cast
+                                            (RealConstant
+                                                0.450000
+                                                (Real 8)
+                                            )
+                                            RealToReal
+                                            (Real 4)
+                                            (RealConstant
+                                                0.450000
+                                                (Real 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 a3)
+                                        (TupleConstant
+                                            [(IntegerUnaryMinus
+                                                (IntegerConstant 2 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                (IntegerConstant -2 (Integer 4) Decimal)
+                                            )
+                                            (IntegerUnaryMinus
+                                                (IntegerConstant 1 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                (IntegerConstant -1 (Integer 4) Decimal)
+                                            )
+                                            (Var 3 float_mem)
+                                            (StringConstant
+                                                "d"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )]
+                                            (Tuple
+                                                [(Integer 4)
+                                                (Integer 4)
+                                                (Real 4)
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)]
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 a4)
+                                        (TupleConstant
+                                            [(TupleConstant
+                                                [(IntegerConstant 1 (Integer 4) Decimal)
+                                                (IntegerConstant 2 (Integer 4) Decimal)
+                                                (IntegerConstant 3 (Integer 4) Decimal)]
+                                                (Tuple
+                                                    [(Integer 4)
+                                                    (Integer 4)
+                                                    (Integer 4)]
+                                                )
+                                            )
+                                            (TupleConstant
+                                                [(IntegerConstant 4 (Integer 4) Decimal)
+                                                (IntegerConstant 5 (Integer 4) Decimal)
+                                                (IntegerConstant 6 (Integer 4) Decimal)]
+                                                (Tuple
+                                                    [(Integer 4)
+                                                    (Integer 4)
+                                                    (Integer 4)]
+                                                )
+                                            )]
+                                            (Tuple
+                                                [(Tuple
+                                                    [(Integer 4)
+                                                    (Integer 4)
+                                                    (Integer 4)]
+                                                )
+                                                (Tuple
+                                                    [(Integer 4)
+                                                    (Integer 4)
+                                                    (Integer 4)]
+                                                )]
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 float_mem1)
+                                        (Cast
+                                            (RealConstant
+                                                3.400000
+                                                (Real 8)
+                                            )
+                                            RealToReal
+                                            (Real 4)
+                                            (RealConstant
+                                                3.400000
+                                                (Real 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 float_mem2)
+                                        (Cast
+                                            (RealConstant
+                                                5.600000
+                                                (Real 8)
+                                            )
+                                            RealToReal
+                                            (Real 4)
+                                            (RealConstant
+                                                5.600000
+                                                (Real 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 a5)
+                                        (TupleConstant
+                                            [(TupleConstant
+                                                [(StringConstant
+                                                    "a"
+                                                    (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                                (StringConstant
+                                                    "b"
+                                                    (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                                (Var 3 float_mem1)]
+                                                (Tuple
+                                                    [(String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    (Real 4)]
+                                                )
+                                            )
+                                            (TupleConstant
+                                                [(StringConstant
+                                                    "c"
+                                                    (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                                (IntegerConstant 3 (Integer 4) Decimal)
+                                                (Var 3 float_mem2)]
+                                                (Tuple
+                                                    [(String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    (Integer 4)
+                                                    (Real 4)]
+                                                )
+                                            )]
+                                            (Tuple
+                                                [(Tuple
+                                                    [(String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    (Real 4)]
+                                                )
+                                                (Tuple
+                                                    [(String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    (Integer 4)
+                                                    (Real 4)]
+                                                )]
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 b0)
+                                        (TupleItem
+                                            (Var 3 a1)
+                                            (IntegerConstant 0 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (TupleConstant
+                                            [(Var 3 b0)
+                                            (Var 3 b1)]
+                                            (Tuple
+                                                [(Integer 4)
+                                                (Integer 4)]
+                                            )
+                                        )
+                                        (TupleConstant
+                                            [(TupleItem
+                                                (Var 3 a1)
+                                                (IntegerConstant 2 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            (TupleItem
+                                                (Var 3 a1)
+                                                (IntegerConstant 1 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                ()
+                                            )]
+                                            (Tuple
+                                                [(Integer 4)
+                                                (Integer 4)]
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 a11)
+                                        (TupleConstant
+                                            [(IntegerConstant 1 (Integer 4) Decimal)
+                                            (IntegerConstant 2 (Integer 4) Decimal)]
+                                            (Tuple
+                                                [(Integer 4)
+                                                (Integer 4)]
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 b11)
+                                        (TupleConstant
+                                            [(IntegerConstant 1 (Integer 4) Decimal)
+                                            (IntegerConstant 2 (Integer 4) Decimal)]
+                                            (Tuple
+                                                [(Integer 4)
+                                                (Integer 4)]
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assert
+                                        (TupleCompare
+                                            (Var 3 a11)
+                                            Eq
+                                            (Var 3 b11)
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    []
+                    .false.
+                    .false.
+                    .false.
+                ),
+            main_program:
+                (Program
+                    (SymbolTable
+                        4
+                        {
+                            
+                        })
+                    main_program
+                    []
+                    []
+                )
+        })
+    []
+)
diff --git a/tests/reference/asr-type_mismatch-61052c7.json b/tests/reference/asr-type_mismatch-61052c7.json
index bd3c21b9a4..80ce9f69b3 100644
--- a/tests/reference/asr-type_mismatch-61052c7.json
+++ b/tests/reference/asr-type_mismatch-61052c7.json
@@ -2,7 +2,7 @@
     "basename": "asr-type_mismatch-61052c7",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/errors/type_mismatch.py",
-    "infile_hash": "4a8058c143819d7115c7df976f933af3aab8ca921ca0f93262e2d2c2",
+    "infile_hash": "45ee4815e13c9fc4d58572a2f4ec01f5546e1f67878a2913bda89e5c",
     "outfile": null,
     "outfile_hash": null,
     "stdout": null,
diff --git a/tests/reference/asr-unsigned_01-892b178.json b/tests/reference/asr-unsigned_01-892b178.json
new file mode 100644
index 0000000000..0a797a2c11
--- /dev/null
+++ b/tests/reference/asr-unsigned_01-892b178.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-unsigned_01-892b178",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/unsigned_01.py",
+    "infile_hash": "c176f4ec65c0b5ca7c2c95b2e35d65f22b4cef342baad15c2dd5ef24",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-unsigned_01-892b178.stderr",
+    "stderr_hash": "54c7cfbd16c73cbe802a3492cd9c9e8d2fb25035192d229232c377b2",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-unsigned_01-892b178.stderr b/tests/reference/asr-unsigned_01-892b178.stderr
new file mode 100644
index 0000000000..c3526cf36e
--- /dev/null
+++ b/tests/reference/asr-unsigned_01-892b178.stderr
@@ -0,0 +1,5 @@
+semantic error: Cannot cast negative value to unsigned integer 
+ --> tests/errors/unsigned_01.py:3:10
+  |
+3 | i: u16 = u16(-5)
+  |          ^^^^^^^ 
diff --git a/tests/reference/asr-unsigned_02-6563e58.json b/tests/reference/asr-unsigned_02-6563e58.json
new file mode 100644
index 0000000000..40e7b2a0f0
--- /dev/null
+++ b/tests/reference/asr-unsigned_02-6563e58.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-unsigned_02-6563e58",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/unsigned_02.py",
+    "infile_hash": "7892abcbe7cecdbddc7362fd0940986bf64458880ccd198c16dd2a6e",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-unsigned_02-6563e58.stderr",
+    "stderr_hash": "93f2cf309dfa7f13d56df9184615fde6a832b79510d8541f95ad5a70",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-unsigned_02-6563e58.stderr b/tests/reference/asr-unsigned_02-6563e58.stderr
new file mode 100644
index 0000000000..d00c5647fd
--- /dev/null
+++ b/tests/reference/asr-unsigned_02-6563e58.stderr
@@ -0,0 +1,5 @@
+semantic error: The result of the unary minus `-` operation is negative, thus out of range for u16
+ --> tests/errors/unsigned_02.py:3:10
+  |
+3 | i: u16 = -u16(5)
+  |          ^^^^^^^ use -i32(u) for signed result
diff --git a/tests/reference/asr-unsigned_03-f785652.json b/tests/reference/asr-unsigned_03-f785652.json
new file mode 100644
index 0000000000..6929c59a27
--- /dev/null
+++ b/tests/reference/asr-unsigned_03-f785652.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-unsigned_03-f785652",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/unsigned_03.py",
+    "infile_hash": "72dd2c6e17b137b6b9f66deeaab0af4ebe3044cb16009e0fab25f05a",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-unsigned_03-f785652.stderr",
+    "stderr_hash": "d90013a25d9aaa91fbbf2b1193cd06be94a4e716f0fe99771cde5601",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-unsigned_03-f785652.stderr b/tests/reference/asr-unsigned_03-f785652.stderr
new file mode 100644
index 0000000000..a68ae96697
--- /dev/null
+++ b/tests/reference/asr-unsigned_03-f785652.stderr
@@ -0,0 +1,5 @@
+semantic error: The result of the unary minus `-` operation is negative, thus out of range for u64
+ --> tests/errors/unsigned_03.py:3:7
+  |
+3 | print(-u64(u32(10)))
+  |       ^^^^^^^^^^^^^ use -i64(u) for signed result
diff --git a/tests/reference/asr-unsigned_04-c856d3a.json b/tests/reference/asr-unsigned_04-c856d3a.json
new file mode 100644
index 0000000000..3753e9ae30
--- /dev/null
+++ b/tests/reference/asr-unsigned_04-c856d3a.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr-unsigned_04-c856d3a",
+    "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/unsigned_04.py",
+    "infile_hash": "d1c2f82e9578ce3f2364f4bbd3177bc0ae72357c644953418eaffe4c",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "asr-unsigned_04-c856d3a.stderr",
+    "stderr_hash": "3dcdf2e97f8c5f2816bed266587c7c3743f666cf2a4602f65e8ec9b8",
+    "returncode": 2
+}
\ No newline at end of file
diff --git a/tests/reference/asr-unsigned_04-c856d3a.stderr b/tests/reference/asr-unsigned_04-c856d3a.stderr
new file mode 100644
index 0000000000..8547a0848c
--- /dev/null
+++ b/tests/reference/asr-unsigned_04-c856d3a.stderr
@@ -0,0 +1,5 @@
+semantic error: The result of the bitnot ~ operation is negative, thus out of range for u16
+ --> tests/errors/unsigned_04.py:4:5
+  |
+4 | i = ~i
+  |     ^^ use ~i32(u) for signed result or bitnot_u16(u) for unsigned result
diff --git a/tests/reference/asr-vec_01-66ac423.json b/tests/reference/asr-vec_01-66ac423.json
index 84cb741d60..1175b55077 100644
--- a/tests/reference/asr-vec_01-66ac423.json
+++ b/tests/reference/asr-vec_01-66ac423.json
@@ -2,11 +2,11 @@
     "basename": "asr-vec_01-66ac423",
     "cmd": "lpython --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/../integration_tests/vec_01.py",
-    "infile_hash": "eb012561316a4c1f1359bf7b5a0b9aee40944ece197a5bafd387a19f",
+    "infile_hash": "f85ca108780c53c54878d119822d56fb834cf4b5121511cbaca2c2fe",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "asr-vec_01-66ac423.stdout",
-    "stdout_hash": "039970b6678024e67d63773e5e1895beb1dc37747731a089347abe5c",
+    "stdout_hash": "197ecc16ba47eacf6ae39e4bc2b8fb733d7fb8a03ab7f06168946640",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/asr-vec_01-66ac423.stdout b/tests/reference/asr-vec_01-66ac423.stdout
index da33cd6594..756e700dfa 100644
--- a/tests/reference/asr-vec_01-66ac423.stdout
+++ b/tests/reference/asr-vec_01-66ac423.stdout
@@ -1 +1,363 @@
-(TranslationUnit (SymbolTable 1 {_lpython_main_program: (Function (SymbolTable 176 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [loop_vec] [] [(SubroutineCall 1 loop_vec () [] ())] () Public .false. .false.), loop_vec: (Function (SymbolTable 171 {a: (Variable 171 a [] Local () () Default (Real 8 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 9216 (Integer 4 [])))]) Source Public Required .false.), b: (Variable 171 b [] Local () () Default (Real 8 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 9216 (Integer 4 [])))]) Source Public Required .false.), i: (Variable 171 i [] Local () () Default (Integer 4 []) Source Public Required .false.)}) loop_vec (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [] [(DoLoop ((Var 171 i) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (IntegerConstant 9216 (Integer 4 [])) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant 9215 (Integer 4 []))) (IntegerConstant 1 (Integer 4 []))) [(= (ArrayItem (Var 171 b) [(() (Var 171 i) ())] (Real 8 []) RowMajor ()) (RealConstant 5.000000 (Real 8 [])) ())]) (DoLoop ((Var 171 i) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (IntegerConstant 9216 (Integer 4 [])) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant 9215 (Integer 4 []))) (IntegerConstant 1 (Integer 4 []))) [(= (ArrayItem (Var 171 a) [(() (Var 171 i) ())] (Real 8 []) RowMajor ()) (ArrayItem (Var 171 b) [(() (Var 171 i) ())] (Real 8 []) RowMajor ()) ())]) (DoLoop ((Var 171 i) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (IntegerConstant 9216 (Integer 4 [])) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant 9215 (Integer 4 []))) (IntegerConstant 1 (Integer 4 []))) [(Assert (RealCompare (ArrayItem (Var 171 a) [(() (Var 171 i) ())] (Real 8 []) RowMajor ()) Eq (RealConstant 5.000000 (Real 8 [])) (Logical 4 []) ()) ())])] () Public .false. .false.), lpython_builtin: (IntrinsicModule lpython_builtin), main_program: (Program (SymbolTable 175 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())]), numpy: (Module (SymbolTable 3 {__lpython_overloaded_0__arccos: (Function (SymbolTable 41 {_lpython_return_variable: (Variable 41 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 41 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arccos (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dacos] [(Var 41 x)] [(= (Var 41 _lpython_return_variable) (FunctionCall 3 _lfortran_dacos () [((Var 41 x))] (Real 8 []) () ()) ()) (Return)] (Var 41 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__arccosh: (Function (SymbolTable 65 {_lpython_return_variable: (Variable 65 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 65 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arccosh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dacosh] [(Var 65 x)] [(= (Var 65 _lpython_return_variable) (FunctionCall 3 _lfortran_dacosh () [((Var 65 x))] (Real 8 []) () ()) ()) (Return)] (Var 65 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__arcsin: (Function (SymbolTable 37 {_lpython_return_variable: (Variable 37 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 37 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arcsin (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dasin] [(Var 37 x)] [(= (Var 37 _lpython_return_variable) (FunctionCall 3 _lfortran_dasin () [((Var 37 x))] (Real 8 []) () ()) ()) (Return)] (Var 37 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__arcsinh: (Function (SymbolTable 61 {_lpython_return_variable: (Variable 61 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 61 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arcsinh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dasinh] [(Var 61 x)] [(= (Var 61 _lpython_return_variable) (FunctionCall 3 _lfortran_dasinh () [((Var 61 x))] (Real 8 []) () ()) ()) (Return)] (Var 61 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__arctan: (Function (SymbolTable 53 {_lpython_return_variable: (Variable 53 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 53 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arctan (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_datan] [(Var 53 x)] [(= (Var 53 _lpython_return_variable) (FunctionCall 3 _lfortran_datan () [((Var 53 x))] (Real 8 []) () ()) ()) (Return)] (Var 53 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__arctanh: (Function (SymbolTable 69 {_lpython_return_variable: (Variable 69 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 69 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arctanh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_datanh] [(Var 69 x)] [(= (Var 69 _lpython_return_variable) (FunctionCall 3 _lfortran_datanh () [((Var 69 x))] (Real 8 []) () ()) ()) (Return)] (Var 69 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__ceil: (Function (SymbolTable 76 {_lpython_return_variable: (Variable 76 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), result: (Variable 76 result [] Local () () Default (Integer 8 []) Source Public Required .false.), x: (Variable 76 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__ceil (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 76 x)] [(= (Var 76 result) (Cast (Var 76 x) RealToInteger (Integer 8 []) ()) ()) (If (LogicalBinOp (RealCompare (Var 76 x) LtE (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToReal (Real 8 []) ()) (Logical 4 []) ()) Or (RealCompare (Var 76 x) Eq (Cast (Var 76 result) IntegerToReal (Real 8 []) ()) (Logical 4 []) ()) (Logical 4 []) ()) [(= (Var 76 _lpython_return_variable) (Cast (Var 76 result) IntegerToReal (Real 8 []) ()) ()) (Return)] []) (= (Var 76 _lpython_return_variable) (Cast (IntegerBinOp (Var 76 result) Add (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 1 (Integer 8 []))) (Integer 8 []) ()) IntegerToReal (Real 8 []) ()) ()) (Return)] (Var 76 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__cos: (Function (SymbolTable 9 {_lpython_return_variable: (Variable 9 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 9 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__cos (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dcos] [(Var 9 x)] [(= (Var 9 _lpython_return_variable) (FunctionCall 3 _lfortran_dcos () [((Var 9 x))] (Real 8 []) () ()) ()) (Return)] (Var 9 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__cosh: (Function (SymbolTable 23 {_lpython_return_variable: (Variable 23 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 23 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__cosh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dcosh] [(Var 23 x)] [(= (Var 23 _lpython_return_variable) (FunctionCall 3 _lfortran_dcosh () [((Var 23 x))] (Real 8 []) () ()) ()) (Return)] (Var 23 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__degrees: (Function (SymbolTable 56 {_lpython_return_variable: (Variable 56 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 56 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__degrees (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 56 x)] [(= (Var 56 _lpython_return_variable) (RealBinOp (RealBinOp (Var 56 x) Mul (RealConstant 180.000000 (Real 8 [])) (Real 8 []) ()) Div (Var 3 pi_64) (Real 8 []) ()) ()) (Return)] (Var 56 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__exp: (Function (SymbolTable 49 {_lpython_return_variable: (Variable 49 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 49 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__exp (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dexp] [(Var 49 x)] [(= (Var 49 _lpython_return_variable) (FunctionCall 3 _lfortran_dexp () [((Var 49 x))] (Real 8 []) () ()) ()) (Return)] (Var 49 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__floor: (Function (SymbolTable 74 {_lpython_return_variable: (Variable 74 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), result: (Variable 74 result [] Local () () Default (Integer 8 []) Source Public Required .false.), x: (Variable 74 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__floor (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 74 x)] [(= (Var 74 result) (Cast (Var 74 x) RealToInteger (Integer 8 []) ()) ()) (If (LogicalBinOp (RealCompare (Var 74 x) GtE (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToReal (Real 8 []) ()) (Logical 4 []) ()) Or (RealCompare (Var 74 x) Eq (Cast (Var 74 result) IntegerToReal (Real 8 []) ()) (Logical 4 []) ()) (Logical 4 []) ()) [(= (Var 74 _lpython_return_variable) (Cast (Var 74 result) IntegerToReal (Real 8 []) ()) ()) (Return)] []) (= (Var 74 _lpython_return_variable) (Cast (IntegerBinOp (Var 74 result) Sub (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 1 (Integer 8 []))) (Integer 8 []) ()) IntegerToReal (Real 8 []) ()) ()) (Return)] (Var 74 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__log: (Function (SymbolTable 27 {_lpython_return_variable: (Variable 27 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 27 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__log (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dlog] [(Var 27 x)] [(= (Var 27 _lpython_return_variable) (FunctionCall 3 _lfortran_dlog () [((Var 27 x))] (Real 8 []) () ()) ()) (Return)] (Var 27 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__log10: (Function (SymbolTable 31 {_lpython_return_variable: (Variable 31 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 31 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__log10 (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dlog10] [(Var 31 x)] [(= (Var 31 _lpython_return_variable) (FunctionCall 3 _lfortran_dlog10 () [((Var 31 x))] (Real 8 []) () ()) ()) (Return)] (Var 31 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__log2: (Function (SymbolTable 34 {_lpython_return_variable: (Variable 34 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 34 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__log2 (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dlog _lfortran_dlog] [(Var 34 x)] [(= (Var 34 _lpython_return_variable) (RealBinOp (FunctionCall 3 _lfortran_dlog () [((Var 34 x))] (Real 8 []) () ()) Div (FunctionCall 3 _lfortran_dlog () [((RealConstant 2.000000 (Real 8 [])))] (Real 8 []) () ()) (Real 8 []) ()) ()) (Return)] (Var 34 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__mod: (Function (SymbolTable 72 {_lpython_return_variable: (Variable 72 _lpython_return_variable [] ReturnVar () () Default (Integer 8 []) Source Public Required .false.), _mod: (ExternalSymbol 72 _mod 79 _mod lpython_builtin [] _mod Private), _mod@__lpython_overloaded_2___mod: (ExternalSymbol 72 _mod@__lpython_overloaded_2___mod 79 __lpython_overloaded_2___mod lpython_builtin [] __lpython_overloaded_2___mod Public), x1: (Variable 72 x1 [] In () () Default (Integer 8 []) Source Public Required .false.), x2: (Variable 72 x2 [] In () () Default (Integer 8 []) Source Public Required .false.)}) __lpython_overloaded_0__mod (FunctionType [(Integer 8 []) (Integer 8 [])] (Integer 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_mod@__lpython_overloaded_2___mod] [(Var 72 x1) (Var 72 x2)] [(If (IntegerCompare (Var 72 x2) Eq (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 0 (Integer 8 []))) (Logical 4 []) ()) [(= (Var 72 _lpython_return_variable) (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToInteger (Integer 8 []) ()) ()) (Return)] []) (= (Var 72 _lpython_return_variable) (FunctionCall 72 _mod@__lpython_overloaded_2___mod 72 _mod [((Var 72 x1)) ((Var 72 x2))] (Integer 8 []) () ()) ()) (Return)] (Var 72 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__radians: (Function (SymbolTable 58 {_lpython_return_variable: (Variable 58 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 58 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__radians (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 58 x)] [(= (Var 58 _lpython_return_variable) (RealBinOp (RealBinOp (Var 58 x) Mul (Var 3 pi_64) (Real 8 []) ()) Div (RealConstant 180.000000 (Real 8 [])) (Real 8 []) ()) ()) (Return)] (Var 58 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__sin: (Function (SymbolTable 5 {_lpython_return_variable: (Variable 5 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 5 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__sin (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dsin] [(Var 5 x)] [(= (Var 5 _lpython_return_variable) (FunctionCall 3 _lfortran_dsin () [((Var 5 x))] (Real 8 []) () ()) ()) (Return)] (Var 5 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__sinh: (Function (SymbolTable 19 {_lpython_return_variable: (Variable 19 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 19 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__sinh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dsinh] [(Var 19 x)] [(= (Var 19 _lpython_return_variable) (FunctionCall 3 _lfortran_dsinh () [((Var 19 x))] (Real 8 []) () ()) ()) (Return)] (Var 19 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__sqrt: (Function (SymbolTable 12 {_lpython_return_variable: (Variable 12 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 12 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__sqrt (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 12 x)] [(= (Var 12 _lpython_return_variable) (RealBinOp (Var 12 x) Pow (RealBinOp (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToReal (Real 8 []) ()) Div (Cast (IntegerConstant 2 (Integer 4 [])) IntegerToReal (Real 8 []) ()) (Real 8 []) ()) (Real 8 []) ()) ()) (Return)] (Var 12 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__tan: (Function (SymbolTable 15 {_lpython_return_variable: (Variable 15 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 15 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__tan (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dtan] [(Var 15 x)] [(= (Var 15 _lpython_return_variable) (FunctionCall 3 _lfortran_dtan () [((Var 15 x))] (Real 8 []) () ()) ()) (Return)] (Var 15 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__tanh: (Function (SymbolTable 45 {_lpython_return_variable: (Variable 45 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 45 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__tanh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dtanh] [(Var 45 x)] [(= (Var 45 _lpython_return_variable) (FunctionCall 3 _lfortran_dtanh () [((Var 45 x))] (Real 8 []) () ()) ()) (Return)] (Var 45 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arccos: (Function (SymbolTable 43 {_lpython_return_variable: (Variable 43 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 43 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arccos (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_sacos] [(Var 43 x)] [(= (Var 43 _lpython_return_variable) (FunctionCall 3 _lfortran_sacos () [((Var 43 x))] (Real 4 []) () ()) ()) (Return)] (Var 43 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arccosh: (Function (SymbolTable 67 {_lpython_return_variable: (Variable 67 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 67 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arccosh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_sacosh] [(Var 67 x)] [(= (Var 67 _lpython_return_variable) (FunctionCall 3 _lfortran_sacosh () [((Var 67 x))] (Real 4 []) () ()) ()) (Return)] (Var 67 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arcsin: (Function (SymbolTable 39 {_lpython_return_variable: (Variable 39 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 39 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arcsin (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_sasin] [(Var 39 x)] [(= (Var 39 _lpython_return_variable) (FunctionCall 3 _lfortran_sasin () [((Var 39 x))] (Real 4 []) () ()) ()) (Return)] (Var 39 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arcsinh: (Function (SymbolTable 63 {_lpython_return_variable: (Variable 63 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 63 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arcsinh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_sasinh] [(Var 63 x)] [(= (Var 63 _lpython_return_variable) (FunctionCall 3 _lfortran_sasinh () [((Var 63 x))] (Real 4 []) () ()) ()) (Return)] (Var 63 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arctan: (Function (SymbolTable 55 {_lpython_return_variable: (Variable 55 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 55 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arctan (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_satan] [(Var 55 x)] [(= (Var 55 _lpython_return_variable) (FunctionCall 3 _lfortran_satan () [((Var 55 x))] (Real 4 []) () ()) ()) (Return)] (Var 55 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arctanh: (Function (SymbolTable 71 {_lpython_return_variable: (Variable 71 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 71 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arctanh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_satanh] [(Var 71 x)] [(= (Var 71 _lpython_return_variable) (FunctionCall 3 _lfortran_satanh () [((Var 71 x))] (Real 4 []) () ()) ()) (Return)] (Var 71 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__ceil: (Function (SymbolTable 77 {_lpython_return_variable: (Variable 77 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), resultf: (Variable 77 resultf [x] Local (Cast (Cast (Var 77 x) RealToInteger (Integer 4 []) ()) IntegerToReal (Real 4 []) ()) () Default (Real 4 []) Source Public Required .false.), x: (Variable 77 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__ceil (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 77 x)] [(= (Var 77 resultf) (Cast (Cast (Var 77 x) RealToInteger (Integer 4 []) ()) IntegerToReal (Real 4 []) ()) ()) (If (LogicalBinOp (RealCompare (Var 77 x) LtE (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Logical 4 []) ()) Or (RealCompare (Var 77 x) Eq (Var 77 resultf) (Logical 4 []) ()) (Logical 4 []) ()) [(= (Var 77 _lpython_return_variable) (Var 77 resultf) ()) (Return)] []) (= (Var 77 _lpython_return_variable) (RealBinOp (Var 77 resultf) Add (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Real 4 []) ()) ()) (Return)] (Var 77 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__cos: (Function (SymbolTable 11 {_lpython_return_variable: (Variable 11 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 11 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__cos (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_scos] [(Var 11 x)] [(= (Var 11 _lpython_return_variable) (FunctionCall 3 _lfortran_scos () [((Var 11 x))] (Real 4 []) () ()) ()) (Return)] (Var 11 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__cosh: (Function (SymbolTable 25 {_lpython_return_variable: (Variable 25 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 25 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__cosh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_scosh] [(Var 25 x)] [(= (Var 25 _lpython_return_variable) (FunctionCall 3 _lfortran_scosh () [((Var 25 x))] (Real 4 []) () ()) ()) (Return)] (Var 25 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__degrees: (Function (SymbolTable 57 {_lpython_return_variable: (Variable 57 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 57 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__degrees (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 57 x)] [(= (Var 57 _lpython_return_variable) (RealBinOp (Var 57 x) Mul (RealBinOp (Cast (IntegerConstant 180 (Integer 4 [])) IntegerToReal (Real 4 []) ()) Div (Var 3 pi_32) (Real 4 []) ()) (Real 4 []) ()) ()) (Return)] (Var 57 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__exp: (Function (SymbolTable 51 {_lpython_return_variable: (Variable 51 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 51 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__exp (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_sexp] [(Var 51 x)] [(= (Var 51 _lpython_return_variable) (FunctionCall 3 _lfortran_sexp () [((Var 51 x))] (Real 4 []) () ()) ()) (Return)] (Var 51 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__floor: (Function (SymbolTable 75 {_lpython_return_variable: (Variable 75 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), resultf: (Variable 75 resultf [x] Local (Cast (Cast (Var 75 x) RealToInteger (Integer 4 []) ()) IntegerToReal (Real 4 []) ()) () Default (Real 4 []) Source Public Required .false.), x: (Variable 75 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__floor (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 75 x)] [(= (Var 75 resultf) (Cast (Cast (Var 75 x) RealToInteger (Integer 4 []) ()) IntegerToReal (Real 4 []) ()) ()) (If (LogicalBinOp (RealCompare (Var 75 x) GtE (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Logical 4 []) ()) Or (RealCompare (Var 75 x) Eq (Var 75 resultf) (Logical 4 []) ()) (Logical 4 []) ()) [(= (Var 75 _lpython_return_variable) (Var 75 resultf) ()) (Return)] []) (= (Var 75 _lpython_return_variable) (RealBinOp (Var 75 resultf) Sub (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Real 4 []) ()) ()) (Return)] (Var 75 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__log: (Function (SymbolTable 29 {_lpython_return_variable: (Variable 29 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 29 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__log (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_slog] [(Var 29 x)] [(= (Var 29 _lpython_return_variable) (FunctionCall 3 _lfortran_slog () [((Var 29 x))] (Real 4 []) () ()) ()) (Return)] (Var 29 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__log10: (Function (SymbolTable 33 {_lpython_return_variable: (Variable 33 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 33 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__log10 (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_slog10] [(Var 33 x)] [(= (Var 33 _lpython_return_variable) (FunctionCall 3 _lfortran_slog10 () [((Var 33 x))] (Real 4 []) () ()) ()) (Return)] (Var 33 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__log2: (Function (SymbolTable 35 {_lpython_return_variable: (Variable 35 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 35 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__log2 (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_slog _lfortran_slog] [(Var 35 x)] [(= (Var 35 _lpython_return_variable) (RealBinOp (FunctionCall 3 _lfortran_slog () [((Var 35 x))] (Real 4 []) () ()) Div (FunctionCall 3 _lfortran_slog () [((Cast (RealConstant 2.000000 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 2.000000 (Real 4 []))))] (Real 4 []) () ()) (Real 4 []) ()) ()) (Return)] (Var 35 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__mod: (Function (SymbolTable 73 {_lpython_return_variable: (Variable 73 _lpython_return_variable [] ReturnVar () () Default (Integer 4 []) Source Public Required .false.), _mod: (ExternalSymbol 73 _mod 79 _mod lpython_builtin [] _mod Private), _mod@__lpython_overloaded_0___mod: (ExternalSymbol 73 _mod@__lpython_overloaded_0___mod 79 __lpython_overloaded_0___mod lpython_builtin [] __lpython_overloaded_0___mod Public), x1: (Variable 73 x1 [] In () () Default (Integer 4 []) Source Public Required .false.), x2: (Variable 73 x2 [] In () () Default (Integer 4 []) Source Public Required .false.)}) __lpython_overloaded_1__mod (FunctionType [(Integer 4 []) (Integer 4 [])] (Integer 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_mod@__lpython_overloaded_0___mod] [(Var 73 x1) (Var 73 x2)] [(If (IntegerCompare (Var 73 x2) Eq (IntegerConstant 0 (Integer 4 [])) (Logical 4 []) ()) [(= (Var 73 _lpython_return_variable) (IntegerConstant 0 (Integer 4 [])) ()) (Return)] []) (= (Var 73 _lpython_return_variable) (FunctionCall 73 _mod@__lpython_overloaded_0___mod 73 _mod [((Var 73 x1)) ((Var 73 x2))] (Integer 4 []) () ()) ()) (Return)] (Var 73 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__radians: (Function (SymbolTable 59 {_lpython_return_variable: (Variable 59 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 59 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__radians (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 59 x)] [(= (Var 59 _lpython_return_variable) (RealBinOp (Var 59 x) Mul (RealBinOp (Var 3 pi_32) Div (Cast (IntegerConstant 180 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Real 4 []) ()) (Real 4 []) ()) ()) (Return)] (Var 59 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__sin: (Function (SymbolTable 7 {_lpython_return_variable: (Variable 7 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 7 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__sin (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_ssin] [(Var 7 x)] [(= (Var 7 _lpython_return_variable) (FunctionCall 3 _lfortran_ssin () [((Var 7 x))] (Real 4 []) () ()) ()) (Return)] (Var 7 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__sinh: (Function (SymbolTable 21 {_lpython_return_variable: (Variable 21 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 21 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__sinh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_ssinh] [(Var 21 x)] [(= (Var 21 _lpython_return_variable) (FunctionCall 3 _lfortran_ssinh () [((Var 21 x))] (Real 4 []) () ()) ()) (Return)] (Var 21 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__sqrt: (Function (SymbolTable 13 {_lpython_return_variable: (Variable 13 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 13 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__sqrt (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 13 x)] [(= (Var 13 _lpython_return_variable) (RealBinOp (Var 13 x) Pow (Cast (RealBinOp (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToReal (Real 8 []) ()) Div (Cast (IntegerConstant 2 (Integer 4 [])) IntegerToReal (Real 8 []) ()) (Real 8 []) ()) RealToReal (Real 4 []) ()) (Real 4 []) ()) ()) (Return)] (Var 13 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__tan: (Function (SymbolTable 17 {_lpython_return_variable: (Variable 17 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 17 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__tan (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_stan] [(Var 17 x)] [(= (Var 17 _lpython_return_variable) (FunctionCall 3 _lfortran_stan () [((Var 17 x))] (Real 4 []) () ()) ()) (Return)] (Var 17 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__tanh: (Function (SymbolTable 47 {_lpython_return_variable: (Variable 47 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 47 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__tanh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_stanh] [(Var 47 x)] [(= (Var 47 _lpython_return_variable) (FunctionCall 3 _lfortran_stanh () [((Var 47 x))] (Real 4 []) () ()) ()) (Return)] (Var 47 _lpython_return_variable) Public .false. .false.), _lfortran_dacos: (Function (SymbolTable 40 {_lpython_return_variable: (Variable 40 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 40 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dacos (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 40 x)] [] (Var 40 _lpython_return_variable) Public .false. .false.), _lfortran_dacosh: (Function (SymbolTable 64 {_lpython_return_variable: (Variable 64 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 64 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dacosh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 64 x)] [] (Var 64 _lpython_return_variable) Public .false. .false.), _lfortran_dasin: (Function (SymbolTable 36 {_lpython_return_variable: (Variable 36 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 36 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dasin (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 36 x)] [] (Var 36 _lpython_return_variable) Public .false. .false.), _lfortran_dasinh: (Function (SymbolTable 60 {_lpython_return_variable: (Variable 60 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 60 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dasinh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 60 x)] [] (Var 60 _lpython_return_variable) Public .false. .false.), _lfortran_datan: (Function (SymbolTable 52 {_lpython_return_variable: (Variable 52 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 52 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_datan (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 52 x)] [] (Var 52 _lpython_return_variable) Public .false. .false.), _lfortran_datanh: (Function (SymbolTable 68 {_lpython_return_variable: (Variable 68 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 68 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_datanh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 68 x)] [] (Var 68 _lpython_return_variable) Public .false. .false.), _lfortran_dcos: (Function (SymbolTable 8 {_lpython_return_variable: (Variable 8 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 8 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dcos (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 8 x)] [] (Var 8 _lpython_return_variable) Public .false. .false.), _lfortran_dcosh: (Function (SymbolTable 22 {_lpython_return_variable: (Variable 22 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 22 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dcosh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 22 x)] [] (Var 22 _lpython_return_variable) Public .false. .false.), _lfortran_dexp: (Function (SymbolTable 48 {_lpython_return_variable: (Variable 48 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 48 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dexp (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 48 x)] [] (Var 48 _lpython_return_variable) Public .false. .false.), _lfortran_dlog: (Function (SymbolTable 26 {_lpython_return_variable: (Variable 26 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 26 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dlog (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 26 x)] [] (Var 26 _lpython_return_variable) Public .false. .false.), _lfortran_dlog10: (Function (SymbolTable 30 {_lpython_return_variable: (Variable 30 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 30 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dlog10 (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 30 x)] [] (Var 30 _lpython_return_variable) Public .false. .false.), _lfortran_dsin: (Function (SymbolTable 4 {_lpython_return_variable: (Variable 4 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 4 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dsin (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 4 x)] [] (Var 4 _lpython_return_variable) Public .false. .false.), _lfortran_dsinh: (Function (SymbolTable 18 {_lpython_return_variable: (Variable 18 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 18 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dsinh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 18 x)] [] (Var 18 _lpython_return_variable) Public .false. .false.), _lfortran_dtan: (Function (SymbolTable 14 {_lpython_return_variable: (Variable 14 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 14 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dtan (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 14 x)] [] (Var 14 _lpython_return_variable) Public .false. .false.), _lfortran_dtanh: (Function (SymbolTable 44 {_lpython_return_variable: (Variable 44 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 44 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dtanh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 44 x)] [] (Var 44 _lpython_return_variable) Public .false. .false.), _lfortran_sacos: (Function (SymbolTable 42 {_lpython_return_variable: (Variable 42 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 42 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_sacos (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 42 x)] [] (Var 42 _lpython_return_variable) Public .false. .false.), _lfortran_sacosh: (Function (SymbolTable 66 {_lpython_return_variable: (Variable 66 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 66 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_sacosh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 66 x)] [] (Var 66 _lpython_return_variable) Public .false. .false.), _lfortran_sasin: (Function (SymbolTable 38 {_lpython_return_variable: (Variable 38 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 38 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_sasin (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 38 x)] [] (Var 38 _lpython_return_variable) Public .false. .false.), _lfortran_sasinh: (Function (SymbolTable 62 {_lpython_return_variable: (Variable 62 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 62 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_sasinh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 62 x)] [] (Var 62 _lpython_return_variable) Public .false. .false.), _lfortran_satan: (Function (SymbolTable 54 {_lpython_return_variable: (Variable 54 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 54 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_satan (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 54 x)] [] (Var 54 _lpython_return_variable) Public .false. .false.), _lfortran_satanh: (Function (SymbolTable 70 {_lpython_return_variable: (Variable 70 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 70 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_satanh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 70 x)] [] (Var 70 _lpython_return_variable) Public .false. .false.), _lfortran_scos: (Function (SymbolTable 10 {_lpython_return_variable: (Variable 10 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 10 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_scos (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 10 x)] [] (Var 10 _lpython_return_variable) Public .false. .false.), _lfortran_scosh: (Function (SymbolTable 24 {_lpython_return_variable: (Variable 24 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 24 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_scosh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 24 x)] [] (Var 24 _lpython_return_variable) Public .false. .false.), _lfortran_sexp: (Function (SymbolTable 50 {_lpython_return_variable: (Variable 50 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 50 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_sexp (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 50 x)] [] (Var 50 _lpython_return_variable) Public .false. .false.), _lfortran_slog: (Function (SymbolTable 28 {_lpython_return_variable: (Variable 28 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 28 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_slog (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 28 x)] [] (Var 28 _lpython_return_variable) Public .false. .false.), _lfortran_slog10: (Function (SymbolTable 32 {_lpython_return_variable: (Variable 32 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 32 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_slog10 (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 32 x)] [] (Var 32 _lpython_return_variable) Public .false. .false.), _lfortran_ssin: (Function (SymbolTable 6 {_lpython_return_variable: (Variable 6 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 6 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_ssin (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 6 x)] [] (Var 6 _lpython_return_variable) Public .false. .false.), _lfortran_ssinh: (Function (SymbolTable 20 {_lpython_return_variable: (Variable 20 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 20 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_ssinh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 20 x)] [] (Var 20 _lpython_return_variable) Public .false. .false.), _lfortran_stan: (Function (SymbolTable 16 {_lpython_return_variable: (Variable 16 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 16 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_stan (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 16 x)] [] (Var 16 _lpython_return_variable) Public .false. .false.), _lfortran_stanh: (Function (SymbolTable 46 {_lpython_return_variable: (Variable 46 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 46 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_stanh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 46 x)] [] (Var 46 _lpython_return_variable) Public .false. .false.), arccos: (GenericProcedure 3 arccos [3 __lpython_overloaded_0__arccos 3 __lpython_overloaded_1__arccos] Public), arccosh: (GenericProcedure 3 arccosh [3 __lpython_overloaded_0__arccosh 3 __lpython_overloaded_1__arccosh] Public), arcsin: (GenericProcedure 3 arcsin [3 __lpython_overloaded_0__arcsin 3 __lpython_overloaded_1__arcsin] Public), arcsinh: (GenericProcedure 3 arcsinh [3 __lpython_overloaded_0__arcsinh 3 __lpython_overloaded_1__arcsinh] Public), arctan: (GenericProcedure 3 arctan [3 __lpython_overloaded_0__arctan 3 __lpython_overloaded_1__arctan] Public), arctanh: (GenericProcedure 3 arctanh [3 __lpython_overloaded_0__arctanh 3 __lpython_overloaded_1__arctanh] Public), ceil: (GenericProcedure 3 ceil [3 __lpython_overloaded_0__ceil 3 __lpython_overloaded_1__ceil] Public), cos: (GenericProcedure 3 cos [3 __lpython_overloaded_0__cos 3 __lpython_overloaded_1__cos] Public), cosh: (GenericProcedure 3 cosh [3 __lpython_overloaded_0__cosh 3 __lpython_overloaded_1__cosh] Public), degrees: (GenericProcedure 3 degrees [3 __lpython_overloaded_0__degrees 3 __lpython_overloaded_1__degrees] Public), exp: (GenericProcedure 3 exp [3 __lpython_overloaded_0__exp 3 __lpython_overloaded_1__exp] Public), floor: (GenericProcedure 3 floor [3 __lpython_overloaded_0__floor 3 __lpython_overloaded_1__floor] Public), log: (GenericProcedure 3 log [3 __lpython_overloaded_0__log 3 __lpython_overloaded_1__log] Public), log10: (GenericProcedure 3 log10 [3 __lpython_overloaded_0__log10 3 __lpython_overloaded_1__log10] Public), log2: (GenericProcedure 3 log2 [3 __lpython_overloaded_0__log2 3 __lpython_overloaded_1__log2] Public), mod: (GenericProcedure 3 mod [3 __lpython_overloaded_0__mod 3 __lpython_overloaded_1__mod] Public), pi_32: (Variable 3 pi_32 [] Local (Cast (RealConstant 3.141593 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 3.141593 (Real 4 []))) () Default (Real 4 []) Source Public Required .false.), pi_64: (Variable 3 pi_64 [] Local (RealConstant 3.141593 (Real 8 [])) () Default (Real 8 []) Source Public Required .false.), radians: (GenericProcedure 3 radians [3 __lpython_overloaded_0__radians 3 __lpython_overloaded_1__radians] Public), sin: (GenericProcedure 3 sin [3 __lpython_overloaded_0__sin 3 __lpython_overloaded_1__sin] Public), sinh: (GenericProcedure 3 sinh [3 __lpython_overloaded_0__sinh 3 __lpython_overloaded_1__sinh] Public), sqrt: (GenericProcedure 3 sqrt [3 __lpython_overloaded_0__sqrt 3 __lpython_overloaded_1__sqrt] Public), tan: (GenericProcedure 3 tan [3 __lpython_overloaded_0__tan 3 __lpython_overloaded_1__tan] Public), tanh: (GenericProcedure 3 tanh [3 __lpython_overloaded_0__tanh 3 __lpython_overloaded_1__tanh] Public)}) numpy [lpython_builtin lpython_builtin] .false. .false.)}) [])
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            __main__global_stmts:
+                                (Function
+                                    (SymbolTable
+                                        229
+                                        {
+                                            
+                                        })
+                                    __main__global_stmts
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [loop_vec]
+                                    []
+                                    [(SubroutineCall
+                                        2 loop_vec
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            loop_vec:
+                                (Function
+                                    (SymbolTable
+                                        225
+                                        {
+                                            a:
+                                                (Variable
+                                                    225
+                                                    a
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Real 8)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 9216 (Integer 4) Decimal))]
+                                                        FixedSizeArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            b:
+                                                (Variable
+                                                    225
+                                                    b
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Real 8)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 9216 (Integer 4) Decimal))]
+                                                        FixedSizeArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            i:
+                                                (Variable
+                                                    225
+                                                    i
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    loop_vec
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 225 a)
+                                        (ArrayBroadcast
+                                            (ArrayItem
+                                                (Var 225 a)
+                                                [(()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())]
+                                                (Real 8)
+                                                RowMajor
+                                                ()
+                                            )
+                                            (ArrayConstant
+                                                4
+                                                [9216]
+                                                (Array
+                                                    (Integer 4)
+                                                    [((IntegerConstant 1 (Integer 4) Decimal)
+                                                    (IntegerConstant 1 (Integer 4) Decimal))]
+                                                    FixedSizeArray
+                                                )
+                                                ColMajor
+                                            )
+                                            (Array
+                                                (Real 8)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 9216 (Integer 4) Decimal))]
+                                                FixedSizeArray
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 225 b)
+                                        (ArrayBroadcast
+                                            (ArrayItem
+                                                (Var 225 b)
+                                                [(()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())]
+                                                (Real 8)
+                                                RowMajor
+                                                ()
+                                            )
+                                            (ArrayConstant
+                                                4
+                                                [9216]
+                                                (Array
+                                                    (Integer 4)
+                                                    [((IntegerConstant 1 (Integer 4) Decimal)
+                                                    (IntegerConstant 1 (Integer 4) Decimal))]
+                                                    FixedSizeArray
+                                                )
+                                                ColMajor
+                                            )
+                                            (Array
+                                                (Real 8)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 9216 (Integer 4) Decimal))]
+                                                FixedSizeArray
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 225 i)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (IntegerConstant 9216 (Integer 4) Decimal)
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            (IntegerConstant 9215 (Integer 4) Decimal)
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(Assignment
+                                            (ArrayItem
+                                                (Var 225 b)
+                                                [(()
+                                                (Var 225 i)
+                                                ())]
+                                                (Real 8)
+                                                RowMajor
+                                                ()
+                                            )
+                                            (RealConstant
+                                                5.000000
+                                                (Real 8)
+                                            )
+                                            ()
+                                            .false.
+                                            .false.
+                                        )]
+                                        []
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 225 i)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (IntegerConstant 9216 (Integer 4) Decimal)
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            (IntegerConstant 9215 (Integer 4) Decimal)
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(Assignment
+                                            (ArrayItem
+                                                (Var 225 a)
+                                                [(()
+                                                (Var 225 i)
+                                                ())]
+                                                (Real 8)
+                                                RowMajor
+                                                ()
+                                            )
+                                            (ArrayItem
+                                                (Var 225 b)
+                                                [(()
+                                                (Var 225 i)
+                                                ())]
+                                                (Real 8)
+                                                RowMajor
+                                                ()
+                                            )
+                                            ()
+                                            .false.
+                                            .false.
+                                        )]
+                                        []
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 225 i)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (IntegerConstant 9216 (Integer 4) Decimal)
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            (IntegerConstant 9215 (Integer 4) Decimal)
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(Assert
+                                            (RealCompare
+                                                (ArrayItem
+                                                    (Var 225 a)
+                                                    [(()
+                                                    (Var 225 i)
+                                                    ())]
+                                                    (Real 8)
+                                                    RowMajor
+                                                    ()
+                                                )
+                                                Eq
+                                                (RealConstant
+                                                    5.000000
+                                                    (Real 8)
+                                                )
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            ()
+                                        )]
+                                        []
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    [numpy]
+                    .false.
+                    .false.
+                    .false.
+                ),
+            lpython_builtin:
+                (IntrinsicModule lpython_builtin),
+            main_program:
+                (Program
+                    (SymbolTable
+                        230
+                        {
+                            __main__global_stmts:
+                                (ExternalSymbol
+                                    230
+                                    __main__global_stmts
+                                    2 __main__global_stmts
+                                    __main__
+                                    []
+                                    __main__global_stmts
+                                    Public
+                                )
+                        })
+                    main_program
+                    [__main__]
+                    [(SubroutineCall
+                        230 __main__global_stmts
+                        2 __main__global_stmts
+                        []
+                        ()
+                        .false.
+                    )]
+                ),
+            numpy:
+                (Module numpy)
+        })
+    []
+)
diff --git a/tests/reference/asr_json-modules_02-53952e6.json b/tests/reference/asr_json-modules_02-53952e6.json
new file mode 100644
index 0000000000..0bef6a5a64
--- /dev/null
+++ b/tests/reference/asr_json-modules_02-53952e6.json
@@ -0,0 +1,13 @@
+{
+    "basename": "asr_json-modules_02-53952e6",
+    "cmd": "lpython --show-asr --json --no-color {infile} -o {outfile}",
+    "infile": "tests/../integration_tests/modules_02.py",
+    "infile_hash": "dcb00ac27cbbcdec61d81f1df9e852ba81a2197e7804ec89cab76e44",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": "asr_json-modules_02-53952e6.stdout",
+    "stdout_hash": "7b45d28033bfeb4e267db3524e0426c45f84f695c9b4f70d27bd318d",
+    "stderr": null,
+    "stderr_hash": null,
+    "returncode": 0
+}
\ No newline at end of file
diff --git a/tests/reference/asr_json-modules_02-53952e6.stdout b/tests/reference/asr_json-modules_02-53952e6.stdout
new file mode 100644
index 0000000000..d782cf001f
--- /dev/null
+++ b/tests/reference/asr_json-modules_02-53952e6.stdout
@@ -0,0 +1,1183 @@
+{
+    "node": "TranslationUnit",
+    "fields": {
+        "symtab": {
+            "node": "SymbolTable1",
+            "fields": {
+                "__main__": {
+                    "node": "Module",
+                    "fields": {
+                        "symtab": {
+                            "node": "SymbolTable2",
+                            "fields": {
+                                "__main__global_stmts": {
+                                    "node": "Function",
+                                    "fields": {
+                                        "symtab": {
+                                            "node": "SymbolTable8",
+                                            "fields": {}
+                                        },
+                                        "name": "__main__global_stmts",
+                                        "function_signature": {
+                                            "node": "FunctionType",
+                                            "fields": {
+                                                "arg_types": [],
+                                                "return_var_type": [],
+                                                "abi": "Source",
+                                                "deftype": "Implementation",
+                                                "bindc_name": [],
+                                                "elemental": false,
+                                                "pure": false,
+                                                "module": false,
+                                                "inline": false,
+                                                "static": false,
+                                                "restrictions": [],
+                                                "is_restriction": false
+                                            },
+                                            "loc": {
+                                                "first": 0,
+                                                "last": 125,
+                                                "first_filename": "tests/../integration_tests/modules_02.py",
+                                                "first_line": 1,
+                                                "first_column": 1,
+                                                "last_filename": "tests/../integration_tests/modules_02.py",
+                                                "last_line": 10,
+                                                "last_column": 7
+                                            }
+                                        },
+                                        "dependencies": [
+                                            "main0"
+                                        ],
+                                        "args": [],
+                                        "body": [
+                                            {
+                                                "node": "SubroutineCall",
+                                                "fields": {
+                                                    "name": "main0 (SymbolTable2)",
+                                                    "original_name": [],
+                                                    "args": [],
+                                                    "dt": [],
+                                                    "strict_bounds_checking": false
+                                                },
+                                                "loc": {
+                                                    "first": 119,
+                                                    "last": 125,
+                                                    "first_filename": "tests/../integration_tests/modules_02.py",
+                                                    "first_line": 10,
+                                                    "first_column": 1,
+                                                    "last_filename": "tests/../integration_tests/modules_02.py",
+                                                    "last_line": 10,
+                                                    "last_column": 7
+                                                }
+                                            }
+                                        ],
+                                        "return_var": [],
+                                        "access": "Public",
+                                        "deterministic": false,
+                                        "side_effect_free": false,
+                                        "module_file": []
+                                    },
+                                    "loc": {
+                                        "first": 0,
+                                        "last": 125,
+                                        "first_filename": "tests/../integration_tests/modules_02.py",
+                                        "first_line": 1,
+                                        "first_column": 1,
+                                        "last_filename": "tests/../integration_tests/modules_02.py",
+                                        "last_line": 10,
+                                        "last_column": 7
+                                    }
+                                },
+                                "f": {
+                                    "node": "ExternalSymbol",
+                                    "fields": {
+                                        "parent_symtab": 2,
+                                        "name": "f",
+                                        "external": "f (SymbolTable3)",
+                                        "module_name": "modules_02b",
+                                        "scope_names": [],
+                                        "original_name": "f",
+                                        "access": "Public"
+                                    },
+                                    "loc": {
+                                        "first": 24,
+                                        "last": 24,
+                                        "first_filename": "tests/../integration_tests/modules_02.py",
+                                        "first_line": 1,
+                                        "first_column": 25,
+                                        "last_filename": "tests/../integration_tests/modules_02.py",
+                                        "last_line": 1,
+                                        "last_column": 25
+                                    }
+                                },
+                                "main0": {
+                                    "node": "Function",
+                                    "fields": {
+                                        "symtab": {
+                                            "node": "SymbolTable7",
+                                            "fields": {
+                                                "x": {
+                                                    "node": "Variable",
+                                                    "fields": {
+                                                        "parent_symtab": 7,
+                                                        "name": "x",
+                                                        "dependencies": [],
+                                                        "intent": "Local",
+                                                        "symbolic_value": [],
+                                                        "value": [],
+                                                        "storage": "Default",
+                                                        "type": {
+                                                            "node": "Integer",
+                                                            "fields": {
+                                                                "kind": 4
+                                                            },
+                                                            "loc": {
+                                                                "first": 71,
+                                                                "last": 73,
+                                                                "first_filename": "tests/../integration_tests/modules_02.py",
+                                                                "first_line": 5,
+                                                                "first_column": 8,
+                                                                "last_filename": "tests/../integration_tests/modules_02.py",
+                                                                "last_line": 5,
+                                                                "last_column": 10
+                                                            }
+                                                        },
+                                                        "type_declaration": [],
+                                                        "abi": "Source",
+                                                        "access": "Public",
+                                                        "presence": "Required",
+                                                        "value_attr": false,
+                                                        "target_attr": false,
+                                                        "contiguous_attr": false,
+                                                        "bindc_name": [],
+                                                        "is_volatile": false,
+                                                        "is_protected": false
+                                                    },
+                                                    "loc": {
+                                                        "first": 68,
+                                                        "last": 73,
+                                                        "first_filename": "tests/../integration_tests/modules_02.py",
+                                                        "first_line": 5,
+                                                        "first_column": 5,
+                                                        "last_filename": "tests/../integration_tests/modules_02.py",
+                                                        "last_line": 5,
+                                                        "last_column": 10
+                                                    }
+                                                }
+                                            }
+                                        },
+                                        "name": "main0",
+                                        "function_signature": {
+                                            "node": "FunctionType",
+                                            "fields": {
+                                                "arg_types": [],
+                                                "return_var_type": [],
+                                                "abi": "Source",
+                                                "deftype": "Implementation",
+                                                "bindc_name": [],
+                                                "elemental": false,
+                                                "pure": false,
+                                                "module": false,
+                                                "inline": false,
+                                                "static": false,
+                                                "restrictions": [],
+                                                "is_restriction": false
+                                            },
+                                            "loc": {
+                                                "first": 51,
+                                                "last": 116,
+                                                "first_filename": "tests/../integration_tests/modules_02.py",
+                                                "first_line": 4,
+                                                "first_column": 1,
+                                                "last_filename": "tests/../integration_tests/modules_02.py",
+                                                "last_line": 8,
+                                                "last_column": 7
+                                            }
+                                        },
+                                        "dependencies": [],
+                                        "args": [],
+                                        "body": [
+                                            {
+                                                "node": "Assignment",
+                                                "fields": {
+                                                    "target": {
+                                                        "node": "Var",
+                                                        "fields": {
+                                                            "v": "x (SymbolTable7)"
+                                                        },
+                                                        "loc": {
+                                                            "first": 79,
+                                                            "last": 79,
+                                                            "first_filename": "tests/../integration_tests/modules_02.py",
+                                                            "first_line": 6,
+                                                            "first_column": 5,
+                                                            "last_filename": "tests/../integration_tests/modules_02.py",
+                                                            "last_line": 6,
+                                                            "last_column": 5
+                                                        }
+                                                    },
+                                                    "value": {
+                                                        "node": "IntegerBinOp",
+                                                        "fields": {
+                                                            "left": {
+                                                                "node": "IntegerBinOp",
+                                                                "fields": {
+                                                                    "left": {
+                                                                        "node": "IntegerConstant",
+                                                                        "fields": {
+                                                                            "n": 2,
+                                                                            "type": {
+                                                                                "node": "Integer",
+                                                                                "fields": {
+                                                                                    "kind": 4
+                                                                                },
+                                                                                "loc": {
+                                                                                    "first": 84,
+                                                                                    "last": 84,
+                                                                                    "first_filename": "tests/../integration_tests/modules_02.py",
+                                                                                    "first_line": 6,
+                                                                                    "first_column": 10,
+                                                                                    "last_filename": "tests/../integration_tests/modules_02.py",
+                                                                                    "last_line": 6,
+                                                                                    "last_column": 10
+                                                                                }
+                                                                            },
+                                                                            "intboz_type": "Decimal"
+                                                                        },
+                                                                        "loc": {
+                                                                            "first": 84,
+                                                                            "last": 84,
+                                                                            "first_filename": "tests/../integration_tests/modules_02.py",
+                                                                            "first_line": 6,
+                                                                            "first_column": 10,
+                                                                            "last_filename": "tests/../integration_tests/modules_02.py",
+                                                                            "last_line": 6,
+                                                                            "last_column": 10
+                                                                        }
+                                                                    },
+                                                                    "op": "Add",
+                                                                    "right": {
+                                                                        "node": "IntegerConstant",
+                                                                        "fields": {
+                                                                            "n": 3,
+                                                                            "type": {
+                                                                                "node": "Integer",
+                                                                                "fields": {
+                                                                                    "kind": 4
+                                                                                },
+                                                                                "loc": {
+                                                                                    "first": 86,
+                                                                                    "last": 86,
+                                                                                    "first_filename": "tests/../integration_tests/modules_02.py",
+                                                                                    "first_line": 6,
+                                                                                    "first_column": 12,
+                                                                                    "last_filename": "tests/../integration_tests/modules_02.py",
+                                                                                    "last_line": 6,
+                                                                                    "last_column": 12
+                                                                                }
+                                                                            },
+                                                                            "intboz_type": "Decimal"
+                                                                        },
+                                                                        "loc": {
+                                                                            "first": 86,
+                                                                            "last": 86,
+                                                                            "first_filename": "tests/../integration_tests/modules_02.py",
+                                                                            "first_line": 6,
+                                                                            "first_column": 12,
+                                                                            "last_filename": "tests/../integration_tests/modules_02.py",
+                                                                            "last_line": 6,
+                                                                            "last_column": 12
+                                                                        }
+                                                                    },
+                                                                    "type": {
+                                                                        "node": "Integer",
+                                                                        "fields": {
+                                                                            "kind": 4
+                                                                        },
+                                                                        "loc": {
+                                                                            "first": 84,
+                                                                            "last": 84,
+                                                                            "first_filename": "tests/../integration_tests/modules_02.py",
+                                                                            "first_line": 6,
+                                                                            "first_column": 10,
+                                                                            "last_filename": "tests/../integration_tests/modules_02.py",
+                                                                            "last_line": 6,
+                                                                            "last_column": 10
+                                                                        }
+                                                                    },
+                                                                    "value": {
+                                                                        "node": "IntegerConstant",
+                                                                        "fields": {
+                                                                            "n": 5,
+                                                                            "type": {
+                                                                                "node": "Integer",
+                                                                                "fields": {
+                                                                                    "kind": 4
+                                                                                },
+                                                                                "loc": {
+                                                                                    "first": 84,
+                                                                                    "last": 84,
+                                                                                    "first_filename": "tests/../integration_tests/modules_02.py",
+                                                                                    "first_line": 6,
+                                                                                    "first_column": 10,
+                                                                                    "last_filename": "tests/../integration_tests/modules_02.py",
+                                                                                    "last_line": 6,
+                                                                                    "last_column": 10
+                                                                                }
+                                                                            },
+                                                                            "intboz_type": "Decimal"
+                                                                        },
+                                                                        "loc": {
+                                                                            "first": 84,
+                                                                            "last": 86,
+                                                                            "first_filename": "tests/../integration_tests/modules_02.py",
+                                                                            "first_line": 6,
+                                                                            "first_column": 10,
+                                                                            "last_filename": "tests/../integration_tests/modules_02.py",
+                                                                            "last_line": 6,
+                                                                            "last_column": 12
+                                                                        }
+                                                                    }
+                                                                },
+                                                                "loc": {
+                                                                    "first": 84,
+                                                                    "last": 86,
+                                                                    "first_filename": "tests/../integration_tests/modules_02.py",
+                                                                    "first_line": 6,
+                                                                    "first_column": 10,
+                                                                    "last_filename": "tests/../integration_tests/modules_02.py",
+                                                                    "last_line": 6,
+                                                                    "last_column": 12
+                                                                }
+                                                            },
+                                                            "op": "Mul",
+                                                            "right": {
+                                                                "node": "IntegerConstant",
+                                                                "fields": {
+                                                                    "n": 5,
+                                                                    "type": {
+                                                                        "node": "Integer",
+                                                                        "fields": {
+                                                                            "kind": 4
+                                                                        },
+                                                                        "loc": {
+                                                                            "first": 89,
+                                                                            "last": 89,
+                                                                            "first_filename": "tests/../integration_tests/modules_02.py",
+                                                                            "first_line": 6,
+                                                                            "first_column": 15,
+                                                                            "last_filename": "tests/../integration_tests/modules_02.py",
+                                                                            "last_line": 6,
+                                                                            "last_column": 15
+                                                                        }
+                                                                    },
+                                                                    "intboz_type": "Decimal"
+                                                                },
+                                                                "loc": {
+                                                                    "first": 89,
+                                                                    "last": 89,
+                                                                    "first_filename": "tests/../integration_tests/modules_02.py",
+                                                                    "first_line": 6,
+                                                                    "first_column": 15,
+                                                                    "last_filename": "tests/../integration_tests/modules_02.py",
+                                                                    "last_line": 6,
+                                                                    "last_column": 15
+                                                                }
+                                                            },
+                                                            "type": {
+                                                                "node": "Integer",
+                                                                "fields": {
+                                                                    "kind": 4
+                                                                },
+                                                                "loc": {
+                                                                    "first": 84,
+                                                                    "last": 84,
+                                                                    "first_filename": "tests/../integration_tests/modules_02.py",
+                                                                    "first_line": 6,
+                                                                    "first_column": 10,
+                                                                    "last_filename": "tests/../integration_tests/modules_02.py",
+                                                                    "last_line": 6,
+                                                                    "last_column": 10
+                                                                }
+                                                            },
+                                                            "value": {
+                                                                "node": "IntegerConstant",
+                                                                "fields": {
+                                                                    "n": 25,
+                                                                    "type": {
+                                                                        "node": "Integer",
+                                                                        "fields": {
+                                                                            "kind": 4
+                                                                        },
+                                                                        "loc": {
+                                                                            "first": 84,
+                                                                            "last": 84,
+                                                                            "first_filename": "tests/../integration_tests/modules_02.py",
+                                                                            "first_line": 6,
+                                                                            "first_column": 10,
+                                                                            "last_filename": "tests/../integration_tests/modules_02.py",
+                                                                            "last_line": 6,
+                                                                            "last_column": 10
+                                                                        }
+                                                                    },
+                                                                    "intboz_type": "Decimal"
+                                                                },
+                                                                "loc": {
+                                                                    "first": 83,
+                                                                    "last": 89,
+                                                                    "first_filename": "tests/../integration_tests/modules_02.py",
+                                                                    "first_line": 6,
+                                                                    "first_column": 9,
+                                                                    "last_filename": "tests/../integration_tests/modules_02.py",
+                                                                    "last_line": 6,
+                                                                    "last_column": 15
+                                                                }
+                                                            }
+                                                        },
+                                                        "loc": {
+                                                            "first": 83,
+                                                            "last": 89,
+                                                            "first_filename": "tests/../integration_tests/modules_02.py",
+                                                            "first_line": 6,
+                                                            "first_column": 9,
+                                                            "last_filename": "tests/../integration_tests/modules_02.py",
+                                                            "last_line": 6,
+                                                            "last_column": 15
+                                                        }
+                                                    },
+                                                    "overloaded": [],
+                                                    "realloc_lhs": false,
+                                                    "move_allocation": false
+                                                },
+                                                "loc": {
+                                                    "first": 79,
+                                                    "last": 89,
+                                                    "first_filename": "tests/../integration_tests/modules_02.py",
+                                                    "first_line": 6,
+                                                    "first_column": 5,
+                                                    "last_filename": "tests/../integration_tests/modules_02.py",
+                                                    "last_line": 6,
+                                                    "last_column": 15
+                                                }
+                                            },
+                                            {
+                                                "node": "Assert",
+                                                "fields": {
+                                                    "test": {
+                                                        "node": "IntegerCompare",
+                                                        "fields": {
+                                                            "left": {
+                                                                "node": "Var",
+                                                                "fields": {
+                                                                    "v": "x (SymbolTable7)"
+                                                                },
+                                                                "loc": {
+                                                                    "first": 102,
+                                                                    "last": 102,
+                                                                    "first_filename": "tests/../integration_tests/modules_02.py",
+                                                                    "first_line": 7,
+                                                                    "first_column": 12,
+                                                                    "last_filename": "tests/../integration_tests/modules_02.py",
+                                                                    "last_line": 7,
+                                                                    "last_column": 12
+                                                                }
+                                                            },
+                                                            "op": "Eq",
+                                                            "right": {
+                                                                "node": "IntegerConstant",
+                                                                "fields": {
+                                                                    "n": 25,
+                                                                    "type": {
+                                                                        "node": "Integer",
+                                                                        "fields": {
+                                                                            "kind": 4
+                                                                        },
+                                                                        "loc": {
+                                                                            "first": 107,
+                                                                            "last": 108,
+                                                                            "first_filename": "tests/../integration_tests/modules_02.py",
+                                                                            "first_line": 7,
+                                                                            "first_column": 17,
+                                                                            "last_filename": "tests/../integration_tests/modules_02.py",
+                                                                            "last_line": 7,
+                                                                            "last_column": 18
+                                                                        }
+                                                                    },
+                                                                    "intboz_type": "Decimal"
+                                                                },
+                                                                "loc": {
+                                                                    "first": 107,
+                                                                    "last": 108,
+                                                                    "first_filename": "tests/../integration_tests/modules_02.py",
+                                                                    "first_line": 7,
+                                                                    "first_column": 17,
+                                                                    "last_filename": "tests/../integration_tests/modules_02.py",
+                                                                    "last_line": 7,
+                                                                    "last_column": 18
+                                                                }
+                                                            },
+                                                            "type": {
+                                                                "node": "Logical",
+                                                                "fields": {
+                                                                    "kind": 4
+                                                                },
+                                                                "loc": {
+                                                                    "first": 102,
+                                                                    "last": 108,
+                                                                    "first_filename": "tests/../integration_tests/modules_02.py",
+                                                                    "first_line": 7,
+                                                                    "first_column": 12,
+                                                                    "last_filename": "tests/../integration_tests/modules_02.py",
+                                                                    "last_line": 7,
+                                                                    "last_column": 18
+                                                                }
+                                                            },
+                                                            "value": []
+                                                        },
+                                                        "loc": {
+                                                            "first": 102,
+                                                            "last": 108,
+                                                            "first_filename": "tests/../integration_tests/modules_02.py",
+                                                            "first_line": 7,
+                                                            "first_column": 12,
+                                                            "last_filename": "tests/../integration_tests/modules_02.py",
+                                                            "last_line": 7,
+                                                            "last_column": 18
+                                                        }
+                                                    },
+                                                    "msg": []
+                                                },
+                                                "loc": {
+                                                    "first": 95,
+                                                    "last": 108,
+                                                    "first_filename": "tests/../integration_tests/modules_02.py",
+                                                    "first_line": 7,
+                                                    "first_column": 5,
+                                                    "last_filename": "tests/../integration_tests/modules_02.py",
+                                                    "last_line": 7,
+                                                    "last_column": 18
+                                                }
+                                            },
+                                            {
+                                                "node": "SubroutineCall",
+                                                "fields": {
+                                                    "name": "f (SymbolTable2)",
+                                                    "original_name": [],
+                                                    "args": [],
+                                                    "dt": [],
+                                                    "strict_bounds_checking": false
+                                                },
+                                                "loc": {
+                                                    "first": 114,
+                                                    "last": 116,
+                                                    "first_filename": "tests/../integration_tests/modules_02.py",
+                                                    "first_line": 8,
+                                                    "first_column": 5,
+                                                    "last_filename": "tests/../integration_tests/modules_02.py",
+                                                    "last_line": 8,
+                                                    "last_column": 7
+                                                }
+                                            }
+                                        ],
+                                        "return_var": [],
+                                        "access": "Public",
+                                        "deterministic": false,
+                                        "side_effect_free": false,
+                                        "module_file": []
+                                    },
+                                    "loc": {
+                                        "first": 51,
+                                        "last": 116,
+                                        "first_filename": "tests/../integration_tests/modules_02.py",
+                                        "first_line": 4,
+                                        "first_column": 1,
+                                        "last_filename": "tests/../integration_tests/modules_02.py",
+                                        "last_line": 8,
+                                        "last_column": 7
+                                    }
+                                }
+                            }
+                        },
+                        "name": "__main__",
+                        "parent_module": [],
+                        "dependencies": [
+                            "modules_02b"
+                        ],
+                        "loaded_from_mod": false,
+                        "intrinsic": false,
+                        "has_submodules": false
+                    },
+                    "loc": {
+                        "first": 0,
+                        "last": 125,
+                        "first_filename": "tests/../integration_tests/modules_02.py",
+                        "first_line": 1,
+                        "first_column": 1,
+                        "last_filename": "tests/../integration_tests/modules_02.py",
+                        "last_line": 10,
+                        "last_column": 7
+                    }
+                },
+                "main_program": {
+                    "node": "Program",
+                    "fields": {
+                        "symtab": {
+                            "node": "SymbolTable9",
+                            "fields": {
+                                "__main__global_stmts": {
+                                    "node": "ExternalSymbol",
+                                    "fields": {
+                                        "parent_symtab": 9,
+                                        "name": "__main__global_stmts",
+                                        "external": "__main__global_stmts (SymbolTable2)",
+                                        "module_name": "__main__",
+                                        "scope_names": [],
+                                        "original_name": "__main__global_stmts",
+                                        "access": "Public"
+                                    },
+                                    "loc": {
+                                        "first": 0,
+                                        "last": 125,
+                                        "first_filename": "tests/../integration_tests/modules_02.py",
+                                        "first_line": 1,
+                                        "first_column": 1,
+                                        "last_filename": "tests/../integration_tests/modules_02.py",
+                                        "last_line": 10,
+                                        "last_column": 7
+                                    }
+                                }
+                            }
+                        },
+                        "name": "main_program",
+                        "dependencies": [
+                            "__main__"
+                        ],
+                        "body": [
+                            {
+                                "node": "SubroutineCall",
+                                "fields": {
+                                    "name": "__main__global_stmts (SymbolTable9)",
+                                    "original_name": "__main__global_stmts (SymbolTable2)",
+                                    "args": [],
+                                    "dt": [],
+                                    "strict_bounds_checking": false
+                                },
+                                "loc": {
+                                    "first": 0,
+                                    "last": 125,
+                                    "first_filename": "tests/../integration_tests/modules_02.py",
+                                    "first_line": 1,
+                                    "first_column": 1,
+                                    "last_filename": "tests/../integration_tests/modules_02.py",
+                                    "last_line": 10,
+                                    "last_column": 7
+                                }
+                            }
+                        ]
+                    },
+                    "loc": {
+                        "first": 0,
+                        "last": 125,
+                        "first_filename": "tests/../integration_tests/modules_02.py",
+                        "first_line": 1,
+                        "first_column": 1,
+                        "last_filename": "tests/../integration_tests/modules_02.py",
+                        "last_line": 10,
+                        "last_column": 7
+                    }
+                },
+                "modules_02b": {
+                    "node": "Module",
+                    "fields": {
+                        "symtab": {
+                            "node": "SymbolTable3",
+                            "fields": {
+                                "f": {
+                                    "node": "Function",
+                                    "fields": {
+                                        "symtab": {
+                                            "node": "SymbolTable6",
+                                            "fields": {}
+                                        },
+                                        "name": "f",
+                                        "function_signature": {
+                                            "node": "FunctionType",
+                                            "fields": {
+                                                "arg_types": [],
+                                                "return_var_type": [],
+                                                "abi": "Source",
+                                                "deftype": "Implementation",
+                                                "bindc_name": [],
+                                                "elemental": false,
+                                                "pure": false,
+                                                "module": false,
+                                                "inline": false,
+                                                "static": false,
+                                                "restrictions": [],
+                                                "is_restriction": false
+                                            },
+                                            "loc": {
+                                                "first": 154,
+                                                "last": 186,
+                                                "first_filename": "tests/../integration_tests/modules_02b.py",
+                                                "first_line": 3,
+                                                "first_column": 1,
+                                                "last_filename": "tests/../integration_tests/modules_02b.py",
+                                                "last_line": 5,
+                                                "last_column": 16
+                                            }
+                                        },
+                                        "dependencies": [],
+                                        "args": [],
+                                        "body": [
+                                            {
+                                                "node": "SubroutineCall",
+                                                "fields": {
+                                                    "name": "g (SymbolTable3)",
+                                                    "original_name": [],
+                                                    "args": [],
+                                                    "dt": [],
+                                                    "strict_bounds_checking": false
+                                                },
+                                                "loc": {
+                                                    "first": 167,
+                                                    "last": 169,
+                                                    "first_filename": "tests/../integration_tests/modules_02b.py",
+                                                    "first_line": 4,
+                                                    "first_column": 5,
+                                                    "last_filename": "tests/../integration_tests/modules_02b.py",
+                                                    "last_line": 4,
+                                                    "last_column": 7
+                                                }
+                                            },
+                                            {
+                                                "node": "Print",
+                                                "fields": {
+                                                    "text": {
+                                                        "node": "StringFormat",
+                                                        "fields": {
+                                                            "fmt": [],
+                                                            "args": [
+                                                                {
+                                                                    "node": "StringConstant",
+                                                                    "fields": {
+                                                                        "s": "f()",
+                                                                        "type": {
+                                                                            "node": "String",
+                                                                            "fields": {
+                                                                                "kind": 1,
+                                                                                "len": {
+                                                                                    "node": "IntegerConstant",
+                                                                                    "fields": {
+                                                                                        "n": 3,
+                                                                                        "type": {
+                                                                                            "node": "Integer",
+                                                                                            "fields": {
+                                                                                                "kind": 4
+                                                                                            },
+                                                                                            "loc": {
+                                                                                                "first": 181,
+                                                                                                "last": 185,
+                                                                                                "first_filename": "tests/../integration_tests/modules_02b.py",
+                                                                                                "first_line": 5,
+                                                                                                "first_column": 11,
+                                                                                                "last_filename": "tests/../integration_tests/modules_02b.py",
+                                                                                                "last_line": 5,
+                                                                                                "last_column": 15
+                                                                                            }
+                                                                                        },
+                                                                                        "intboz_type": "Decimal"
+                                                                                    },
+                                                                                    "loc": {
+                                                                                        "first": 181,
+                                                                                        "last": 185,
+                                                                                        "first_filename": "tests/../integration_tests/modules_02b.py",
+                                                                                        "first_line": 5,
+                                                                                        "first_column": 11,
+                                                                                        "last_filename": "tests/../integration_tests/modules_02b.py",
+                                                                                        "last_line": 5,
+                                                                                        "last_column": 15
+                                                                                    }
+                                                                                },
+                                                                                "len_kind": "ExpressionLength",
+                                                                                "physical_type": "DescriptorString"
+                                                                            },
+                                                                            "loc": {
+                                                                                "first": 181,
+                                                                                "last": 185,
+                                                                                "first_filename": "tests/../integration_tests/modules_02b.py",
+                                                                                "first_line": 5,
+                                                                                "first_column": 11,
+                                                                                "last_filename": "tests/../integration_tests/modules_02b.py",
+                                                                                "last_line": 5,
+                                                                                "last_column": 15
+                                                                            }
+                                                                        }
+                                                                    },
+                                                                    "loc": {
+                                                                        "first": 181,
+                                                                        "last": 185,
+                                                                        "first_filename": "tests/../integration_tests/modules_02b.py",
+                                                                        "first_line": 5,
+                                                                        "first_column": 11,
+                                                                        "last_filename": "tests/../integration_tests/modules_02b.py",
+                                                                        "last_line": 5,
+                                                                        "last_column": 15
+                                                                    }
+                                                                }
+                                                            ],
+                                                            "kind": "FormatPythonFormat",
+                                                            "type": {
+                                                                "node": "Allocatable",
+                                                                "fields": {
+                                                                    "type": {
+                                                                        "node": "String",
+                                                                        "fields": {
+                                                                            "kind": 1,
+                                                                            "len": [],
+                                                                            "len_kind": "DeferredLength",
+                                                                            "physical_type": "DescriptorString"
+                                                                        },
+                                                                        "loc": {
+                                                                            "first": 175,
+                                                                            "last": 186,
+                                                                            "first_filename": "tests/../integration_tests/modules_02b.py",
+                                                                            "first_line": 5,
+                                                                            "first_column": 5,
+                                                                            "last_filename": "tests/../integration_tests/modules_02b.py",
+                                                                            "last_line": 5,
+                                                                            "last_column": 16
+                                                                        }
+                                                                    }
+                                                                },
+                                                                "loc": {
+                                                                    "first": 175,
+                                                                    "last": 186,
+                                                                    "first_filename": "tests/../integration_tests/modules_02b.py",
+                                                                    "first_line": 5,
+                                                                    "first_column": 5,
+                                                                    "last_filename": "tests/../integration_tests/modules_02b.py",
+                                                                    "last_line": 5,
+                                                                    "last_column": 16
+                                                                }
+                                                            },
+                                                            "value": []
+                                                        },
+                                                        "loc": {
+                                                            "first": 175,
+                                                            "last": 186,
+                                                            "first_filename": "tests/../integration_tests/modules_02b.py",
+                                                            "first_line": 5,
+                                                            "first_column": 5,
+                                                            "last_filename": "tests/../integration_tests/modules_02b.py",
+                                                            "last_line": 5,
+                                                            "last_column": 16
+                                                        }
+                                                    }
+                                                },
+                                                "loc": {
+                                                    "first": 175,
+                                                    "last": 186,
+                                                    "first_filename": "tests/../integration_tests/modules_02b.py",
+                                                    "first_line": 5,
+                                                    "first_column": 5,
+                                                    "last_filename": "tests/../integration_tests/modules_02b.py",
+                                                    "last_line": 5,
+                                                    "last_column": 16
+                                                }
+                                            }
+                                        ],
+                                        "return_var": [],
+                                        "access": "Public",
+                                        "deterministic": false,
+                                        "side_effect_free": false,
+                                        "module_file": []
+                                    },
+                                    "loc": {
+                                        "first": 154,
+                                        "last": 186,
+                                        "first_filename": "tests/../integration_tests/modules_02b.py",
+                                        "first_line": 3,
+                                        "first_column": 1,
+                                        "last_filename": "tests/../integration_tests/modules_02b.py",
+                                        "last_line": 5,
+                                        "last_column": 16
+                                    }
+                                },
+                                "g": {
+                                    "node": "ExternalSymbol",
+                                    "fields": {
+                                        "parent_symtab": 3,
+                                        "name": "g",
+                                        "external": "g (SymbolTable4)",
+                                        "module_name": "modules_02c",
+                                        "scope_names": [],
+                                        "original_name": "g",
+                                        "access": "Public"
+                                    },
+                                    "loc": {
+                                        "first": 151,
+                                        "last": 151,
+                                        "first_filename": "tests/../integration_tests/modules_02b.py",
+                                        "first_line": 1,
+                                        "first_column": 25,
+                                        "last_filename": "tests/../integration_tests/modules_02b.py",
+                                        "last_line": 1,
+                                        "last_column": 25
+                                    }
+                                }
+                            }
+                        },
+                        "name": "modules_02b",
+                        "parent_module": [],
+                        "dependencies": [
+                            "modules_02c"
+                        ],
+                        "loaded_from_mod": false,
+                        "intrinsic": false,
+                        "has_submodules": false
+                    },
+                    "loc": {
+                        "first": 127,
+                        "last": 186,
+                        "first_filename": "tests/../integration_tests/modules_02b.py",
+                        "first_line": 1,
+                        "first_column": 1,
+                        "last_filename": "tests/../integration_tests/modules_02b.py",
+                        "last_line": 5,
+                        "last_column": 16
+                    }
+                },
+                "modules_02c": {
+                    "node": "Module",
+                    "fields": {
+                        "symtab": {
+                            "node": "SymbolTable4",
+                            "fields": {
+                                "g": {
+                                    "node": "Function",
+                                    "fields": {
+                                        "symtab": {
+                                            "node": "SymbolTable5",
+                                            "fields": {}
+                                        },
+                                        "name": "g",
+                                        "function_signature": {
+                                            "node": "FunctionType",
+                                            "fields": {
+                                                "arg_types": [],
+                                                "return_var_type": [],
+                                                "abi": "Source",
+                                                "deftype": "Implementation",
+                                                "bindc_name": [],
+                                                "elemental": false,
+                                                "pure": false,
+                                                "module": false,
+                                                "inline": false,
+                                                "static": false,
+                                                "restrictions": [],
+                                                "is_restriction": false
+                                            },
+                                            "loc": {
+                                                "first": 188,
+                                                "last": 212,
+                                                "first_filename": "tests/../integration_tests/modules_02c.py",
+                                                "first_line": 1,
+                                                "first_column": 1,
+                                                "last_filename": "tests/../integration_tests/modules_02c.py",
+                                                "last_line": 2,
+                                                "last_column": 16
+                                            }
+                                        },
+                                        "dependencies": [],
+                                        "args": [],
+                                        "body": [
+                                            {
+                                                "node": "Print",
+                                                "fields": {
+                                                    "text": {
+                                                        "node": "StringFormat",
+                                                        "fields": {
+                                                            "fmt": [],
+                                                            "args": [
+                                                                {
+                                                                    "node": "StringConstant",
+                                                                    "fields": {
+                                                                        "s": "g()",
+                                                                        "type": {
+                                                                            "node": "String",
+                                                                            "fields": {
+                                                                                "kind": 1,
+                                                                                "len": {
+                                                                                    "node": "IntegerConstant",
+                                                                                    "fields": {
+                                                                                        "n": 3,
+                                                                                        "type": {
+                                                                                            "node": "Integer",
+                                                                                            "fields": {
+                                                                                                "kind": 4
+                                                                                            },
+                                                                                            "loc": {
+                                                                                                "first": 207,
+                                                                                                "last": 211,
+                                                                                                "first_filename": "tests/../integration_tests/modules_02c.py",
+                                                                                                "first_line": 2,
+                                                                                                "first_column": 11,
+                                                                                                "last_filename": "tests/../integration_tests/modules_02c.py",
+                                                                                                "last_line": 2,
+                                                                                                "last_column": 15
+                                                                                            }
+                                                                                        },
+                                                                                        "intboz_type": "Decimal"
+                                                                                    },
+                                                                                    "loc": {
+                                                                                        "first": 207,
+                                                                                        "last": 211,
+                                                                                        "first_filename": "tests/../integration_tests/modules_02c.py",
+                                                                                        "first_line": 2,
+                                                                                        "first_column": 11,
+                                                                                        "last_filename": "tests/../integration_tests/modules_02c.py",
+                                                                                        "last_line": 2,
+                                                                                        "last_column": 15
+                                                                                    }
+                                                                                },
+                                                                                "len_kind": "ExpressionLength",
+                                                                                "physical_type": "DescriptorString"
+                                                                            },
+                                                                            "loc": {
+                                                                                "first": 207,
+                                                                                "last": 211,
+                                                                                "first_filename": "tests/../integration_tests/modules_02c.py",
+                                                                                "first_line": 2,
+                                                                                "first_column": 11,
+                                                                                "last_filename": "tests/../integration_tests/modules_02c.py",
+                                                                                "last_line": 2,
+                                                                                "last_column": 15
+                                                                            }
+                                                                        }
+                                                                    },
+                                                                    "loc": {
+                                                                        "first": 207,
+                                                                        "last": 211,
+                                                                        "first_filename": "tests/../integration_tests/modules_02c.py",
+                                                                        "first_line": 2,
+                                                                        "first_column": 11,
+                                                                        "last_filename": "tests/../integration_tests/modules_02c.py",
+                                                                        "last_line": 2,
+                                                                        "last_column": 15
+                                                                    }
+                                                                }
+                                                            ],
+                                                            "kind": "FormatPythonFormat",
+                                                            "type": {
+                                                                "node": "Allocatable",
+                                                                "fields": {
+                                                                    "type": {
+                                                                        "node": "String",
+                                                                        "fields": {
+                                                                            "kind": 1,
+                                                                            "len": [],
+                                                                            "len_kind": "DeferredLength",
+                                                                            "physical_type": "DescriptorString"
+                                                                        },
+                                                                        "loc": {
+                                                                            "first": 201,
+                                                                            "last": 212,
+                                                                            "first_filename": "tests/../integration_tests/modules_02c.py",
+                                                                            "first_line": 2,
+                                                                            "first_column": 5,
+                                                                            "last_filename": "tests/../integration_tests/modules_02c.py",
+                                                                            "last_line": 2,
+                                                                            "last_column": 16
+                                                                        }
+                                                                    }
+                                                                },
+                                                                "loc": {
+                                                                    "first": 201,
+                                                                    "last": 212,
+                                                                    "first_filename": "tests/../integration_tests/modules_02c.py",
+                                                                    "first_line": 2,
+                                                                    "first_column": 5,
+                                                                    "last_filename": "tests/../integration_tests/modules_02c.py",
+                                                                    "last_line": 2,
+                                                                    "last_column": 16
+                                                                }
+                                                            },
+                                                            "value": []
+                                                        },
+                                                        "loc": {
+                                                            "first": 201,
+                                                            "last": 212,
+                                                            "first_filename": "tests/../integration_tests/modules_02c.py",
+                                                            "first_line": 2,
+                                                            "first_column": 5,
+                                                            "last_filename": "tests/../integration_tests/modules_02c.py",
+                                                            "last_line": 2,
+                                                            "last_column": 16
+                                                        }
+                                                    }
+                                                },
+                                                "loc": {
+                                                    "first": 201,
+                                                    "last": 212,
+                                                    "first_filename": "tests/../integration_tests/modules_02c.py",
+                                                    "first_line": 2,
+                                                    "first_column": 5,
+                                                    "last_filename": "tests/../integration_tests/modules_02c.py",
+                                                    "last_line": 2,
+                                                    "last_column": 16
+                                                }
+                                            }
+                                        ],
+                                        "return_var": [],
+                                        "access": "Public",
+                                        "deterministic": false,
+                                        "side_effect_free": false,
+                                        "module_file": []
+                                    },
+                                    "loc": {
+                                        "first": 188,
+                                        "last": 212,
+                                        "first_filename": "tests/../integration_tests/modules_02c.py",
+                                        "first_line": 1,
+                                        "first_column": 1,
+                                        "last_filename": "tests/../integration_tests/modules_02c.py",
+                                        "last_line": 2,
+                                        "last_column": 16
+                                    }
+                                }
+                            }
+                        },
+                        "name": "modules_02c",
+                        "parent_module": [],
+                        "dependencies": [],
+                        "loaded_from_mod": false,
+                        "intrinsic": false,
+                        "has_submodules": false
+                    },
+                    "loc": {
+                        "first": 188,
+                        "last": 212,
+                        "first_filename": "tests/../integration_tests/modules_02c.py",
+                        "first_line": 1,
+                        "first_column": 1,
+                        "last_filename": "tests/../integration_tests/modules_02c.py",
+                        "last_line": 2,
+                        "last_column": 16
+                    }
+                }
+            }
+        },
+        "items": []
+    },
+    "loc": {
+        "first": 0,
+        "last": 125,
+        "first_filename": "tests/../integration_tests/modules_02.py",
+        "first_line": 1,
+        "first_column": 1,
+        "last_filename": "tests/../integration_tests/modules_02.py",
+        "last_line": 10,
+        "last_column": 7
+    }
+}
diff --git a/tests/reference/ast-assert1-b0154ee.json b/tests/reference/ast-assert1-b0154ee.json
index afaf5ef5ca..8158218cc4 100644
--- a/tests/reference/ast-assert1-b0154ee.json
+++ b/tests/reference/ast-assert1-b0154ee.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "ast-assert1-b0154ee.stdout",
-    "stdout_hash": "e6f540e08fe6dc2e755b22dcd009be2c88e32d1a3775139f7493501e",
+    "stdout_hash": "f5e00f32dc7ae2feda2e3c495b42ae3f193a79baf8b42e313373aa4b",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/ast-assert1-b0154ee.stdout b/tests/reference/ast-assert1-b0154ee.stdout
index a06eac3aaa..d147d125e1 100644
--- a/tests/reference/ast-assert1-b0154ee.stdout
+++ b/tests/reference/ast-assert1-b0154ee.stdout
@@ -1 +1,70 @@
-(Module [(FunctionDef test_assert ([] [] [] [] [] [] []) [(AnnAssign (Name a Store) (Name i32 Load) () 1) (Assign [(Name a Store)] (ConstantInt 5 ()) ()) (Assert (Compare (Name a Load) Eq [(ConstantInt 5 ())]) (ConstantStr "a is not 5" ())) (Assert (Compare (Name a Load) NotEq [(ConstantInt 10 ())]) ())] [] () ())] [])
+(Module
+    [(FunctionDef
+        test_assert
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(AnnAssign
+            (Name
+                a
+                Store
+            )
+            (Name
+                i32
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (ConstantInt
+                5
+                ()
+            )
+            ()
+        )
+        (Assert
+            (Compare
+                (Name
+                    a
+                    Load
+                )
+                Eq
+                [(ConstantInt
+                    5
+                    ()
+                )]
+            )
+            (ConstantStr
+                "a is not 5"
+                ()
+            )
+        )
+        (Assert
+            (Compare
+                (Name
+                    a
+                    Load
+                )
+                NotEq
+                [(ConstantInt
+                    10
+                    ()
+                )]
+            )
+            ()
+        )]
+        []
+        ()
+        ()
+    )]
+    []
+)
diff --git a/tests/reference/ast-assign1-2a4c9ed.json b/tests/reference/ast-assign1-2a4c9ed.json
deleted file mode 100644
index d61de29aed..0000000000
--- a/tests/reference/ast-assign1-2a4c9ed.json
+++ /dev/null
@@ -1,13 +0,0 @@
-{
-    "basename": "ast-assign1-2a4c9ed",
-    "cmd": "lpython --show-ast --no-color {infile} -o {outfile}",
-    "infile": "tests/assign1.py",
-    "infile_hash": "3b82a73e457bd65e85828b72d56596ca927e7c661e333691f154912b",
-    "outfile": null,
-    "outfile_hash": null,
-    "stdout": "ast-assign1-2a4c9ed.stdout",
-    "stdout_hash": "19d9109b08fcd6ce10cf3f4290371653b686d1d70c702195c3337fad",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
-}
\ No newline at end of file
diff --git a/tests/reference/ast-assign1-2a4c9ed.stdout b/tests/reference/ast-assign1-2a4c9ed.stdout
deleted file mode 100644
index ac99ce30a7..0000000000
--- a/tests/reference/ast-assign1-2a4c9ed.stdout
+++ /dev/null
@@ -1 +0,0 @@
-(Module [(FunctionDef test_augassign ([] [] [] [] [] [] []) [(AnnAssign (Name r Store) (Name i32 Load) () 1) (AnnAssign (Name s Store) (Name i32 Load) () 1) (Assign [(Name r Store)] (ConstantInt 0 ()) ()) (AugAssign (Name r Store) Add (ConstantInt 4 ())) (Assign [(Name s Store)] (ConstantInt 5 ()) ()) (AugAssign (Name r Store) Mult (Name s Load)) (AugAssign (Name r Store) Sub (ConstantInt 2 ())) (Assign [(Name s Store)] (ConstantInt 10 ()) ()) (AugAssign (Name r Store) Div (Name s Load)) (AnnAssign (Name a Store) (Name str Load) () 1) (Assign [(Name a Store)] (ConstantStr "" ()) ()) (AugAssign (Name a Store) Add (ConstantStr "test" ()))] [] () ())] [])
diff --git a/tests/reference/ast-complex1-800b4bb.json b/tests/reference/ast-complex1-800b4bb.json
index 136281ac90..e71d8dddfa 100644
--- a/tests/reference/ast-complex1-800b4bb.json
+++ b/tests/reference/ast-complex1-800b4bb.json
@@ -2,11 +2,11 @@
     "basename": "ast-complex1-800b4bb",
     "cmd": "lpython --show-ast --no-color {infile} -o {outfile}",
     "infile": "tests/complex1.py",
-    "infile_hash": "c6c5e11789f3903056bcf08018573a80c93c1a608c6687cb9181739d",
+    "infile_hash": "60b45de7b88ec768d70a3122b36545e9604a86504ed6e5d9d813c719",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "ast-complex1-800b4bb.stdout",
-    "stdout_hash": "0cfa8b52594cebbab508a836c8c1273408024dfb0c411c258e250292",
+    "stdout_hash": "30482dce2a68624ef71ed52e4c4ce4122e1f2efddcef40bee2a3b10e",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/ast-complex1-800b4bb.stdout b/tests/reference/ast-complex1-800b4bb.stdout
index 6633115524..8044437ea0 100644
--- a/tests/reference/ast-complex1-800b4bb.stdout
+++ b/tests/reference/ast-complex1-800b4bb.stdout
@@ -1 +1,686 @@
-(Module [(ImportFrom ltypes [(c32 ()) (c64 ())] 0) (FunctionDef test_complex ([] [] [] [] [] [] []) [(AnnAssign (Name c Store) (Name c32 Load) () 1) (AnnAssign (Name c1 Store) (Name c32 Load) () 1) (AnnAssign (Name c2 Store) (Name c32 Load) () 1) (AnnAssign (Name c3 Store) (Name c64 Load) () 1) (AnnAssign (Name b Store) (Name bool Load) () 1) (Assign [(Name c Store)] (Call (Name c32 Load) [(Call (Name complex Load) [] [])] []) ()) (Assign [(Name c Store)] (Call (Name c32 Load) [(Call (Name complex Load) [(ConstantFloat 3.400000 ())] [])] []) ()) (Assign [(Name c Store)] (Call (Name c32 Load) [(Call (Name complex Load) [(ConstantFloat 5.000000 ()) (ConstantFloat 4.300000 ())] [])] []) ()) (Assign [(Name c Store)] (Call (Name c32 Load) [(Call (Name complex Load) [(ConstantInt 1 ())] [])] []) ()) (Assign [(Name c1 Store)] (Call (Name c32 Load) [(Call (Name complex Load) [(ConstantInt 3 ()) (ConstantInt 4 ())] [])] []) ()) (Assign [(Name c2 Store)] (Call (Name c32 Load) [(Call (Name complex Load) [(ConstantInt 2 ()) (ConstantFloat 4.500000 ())] [])] []) ()) (Assign [(Name c3 Store)] (Call (Name complex Load) [(ConstantFloat 3.000000 ()) (ConstantFloat 4.000000 ())] []) ()) (Assign [(Name b Store)] (Compare (Name c1 Load) NotEq [(Name c2 Load)]) ()) (Assign [(Name b Store)] (Compare (Call (Name c64 Load) [(Name c1 Load)] []) Eq [(Name c3 Load)]) ()) (Assign [(Name c Store)] (BinOp (Name c1 Load) Add (Name c2 Load)) ()) (Assign [(Name c Store)] (BinOp (Name c2 Load) Sub (Name c1 Load)) ()) (Assign [(Name c Store)] (BinOp (Name c1 Load) Mult (Name c2 Load)) ()) (Assign [(Name c Store)] (Call (Name c32 Load) [(BinOp (Call (Name complex Load) [(ConstantInt 1 ()) (ConstantInt 2 ())] []) Pow (Call (Name complex Load) [(ConstantFloat 3.345340 ()) (ConstantFloat 4.867868 ())] []))] []) ()) (Assign [(Name c Store)] (Call (Name c32 Load) [(BinOp (Call (Name complex Load) [(ConstantInt 1 ()) (ConstantInt 2 ())] []) Mult (Call (Name complex Load) [(ConstantInt 3 ()) (ConstantInt 4 ())] []))] []) ()) (Assign [(Name c Store)] (Call (Name c32 Load) [(BinOp (Call (Name complex Load) [(ConstantInt 4 ()) (ConstantInt 5 ())] []) Sub (Call (Name complex Load) [(ConstantInt 3 ()) (ConstantInt 4 ())] []))] []) ())] [] () ()) (FunctionDef test ([] [] [] [] [] [] []) [(AnnAssign (Name x Store) (Name c64 Load) () 1) (AnnAssign (Name y Store) (Name c64 Load) () 1) (AnnAssign (Name z Store) (Name c32 Load) () 1) (Assign [(Name x Store)] (BinOp (Call (Name c64 Load) [(ConstantInt 2 ())] []) Add (ConstantComplex 0.000000 3.000000 ())) ()) (Assign [(Name y Store)] (BinOp (Call (Name c64 Load) [(ConstantInt 5 ())] []) Add (ConstantComplex 0.000000 5.000000 ())) ()) (Assign [(Name z Store)] (Call (Name c32 Load) [(BinOp (Name x Load) Add (Name y Load))] []) ()) (Assign [(Name z Store)] (Call (Name c32 Load) [(BinOp (Name x Load) Sub (Name y Load))] []) ()) (Assign [(Name z Store)] (Call (Name c32 Load) [(BinOp (Call (Name c64 Load) [(ConstantInt 2 ())] []) Mult (Name x Load))] []) ())] [] () ())] [])
+(Module
+    [(ImportFrom
+        lpython
+        [(c32
+        ())
+        (c64
+        ())]
+        0
+    )
+    (FunctionDef
+        test_complex
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(AnnAssign
+            (Name
+                c
+                Store
+            )
+            (Name
+                c32
+                Load
+            )
+            ()
+            1
+        )
+        (AnnAssign
+            (Name
+                c1
+                Store
+            )
+            (Name
+                c32
+                Load
+            )
+            ()
+            1
+        )
+        (AnnAssign
+            (Name
+                c2
+                Store
+            )
+            (Name
+                c32
+                Load
+            )
+            ()
+            1
+        )
+        (AnnAssign
+            (Name
+                c3
+                Store
+            )
+            (Name
+                c64
+                Load
+            )
+            ()
+            1
+        )
+        (AnnAssign
+            (Name
+                b
+                Store
+            )
+            (Name
+                bool
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                c
+                Store
+            )]
+            (Call
+                (Name
+                    c32
+                    Load
+                )
+                [(Call
+                    (Name
+                        complex
+                        Load
+                    )
+                    []
+                    []
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                c
+                Store
+            )]
+            (Call
+                (Name
+                    c32
+                    Load
+                )
+                [(Call
+                    (Name
+                        complex
+                        Load
+                    )
+                    [(ConstantFloat
+                        3.400000
+                        ()
+                    )]
+                    []
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                c
+                Store
+            )]
+            (Call
+                (Name
+                    c32
+                    Load
+                )
+                [(Call
+                    (Name
+                        complex
+                        Load
+                    )
+                    [(ConstantFloat
+                        5.000000
+                        ()
+                    )
+                    (ConstantFloat
+                        4.300000
+                        ()
+                    )]
+                    []
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                c
+                Store
+            )]
+            (Call
+                (Name
+                    c32
+                    Load
+                )
+                [(Call
+                    (Name
+                        complex
+                        Load
+                    )
+                    [(ConstantInt
+                        1
+                        ()
+                    )]
+                    []
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                c1
+                Store
+            )]
+            (Call
+                (Name
+                    c32
+                    Load
+                )
+                [(Call
+                    (Name
+                        complex
+                        Load
+                    )
+                    [(ConstantInt
+                        3
+                        ()
+                    )
+                    (ConstantInt
+                        4
+                        ()
+                    )]
+                    []
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                c2
+                Store
+            )]
+            (Call
+                (Name
+                    c32
+                    Load
+                )
+                [(Call
+                    (Name
+                        complex
+                        Load
+                    )
+                    [(ConstantInt
+                        2
+                        ()
+                    )
+                    (ConstantFloat
+                        4.500000
+                        ()
+                    )]
+                    []
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                c3
+                Store
+            )]
+            (Call
+                (Name
+                    complex
+                    Load
+                )
+                [(ConstantFloat
+                    3.000000
+                    ()
+                )
+                (ConstantFloat
+                    4.000000
+                    ()
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                b
+                Store
+            )]
+            (Compare
+                (Name
+                    c1
+                    Load
+                )
+                NotEq
+                [(Name
+                    c2
+                    Load
+                )]
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                b
+                Store
+            )]
+            (Compare
+                (Call
+                    (Name
+                        c64
+                        Load
+                    )
+                    [(Name
+                        c1
+                        Load
+                    )]
+                    []
+                )
+                Eq
+                [(Name
+                    c3
+                    Load
+                )]
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                c
+                Store
+            )]
+            (BinOp
+                (Name
+                    c1
+                    Load
+                )
+                Add
+                (Name
+                    c2
+                    Load
+                )
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                c
+                Store
+            )]
+            (BinOp
+                (Name
+                    c2
+                    Load
+                )
+                Sub
+                (Name
+                    c1
+                    Load
+                )
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                c
+                Store
+            )]
+            (BinOp
+                (Name
+                    c1
+                    Load
+                )
+                Mult
+                (Name
+                    c2
+                    Load
+                )
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                c
+                Store
+            )]
+            (Call
+                (Name
+                    c32
+                    Load
+                )
+                [(BinOp
+                    (Call
+                        (Name
+                            complex
+                            Load
+                        )
+                        [(ConstantInt
+                            1
+                            ()
+                        )
+                        (ConstantInt
+                            2
+                            ()
+                        )]
+                        []
+                    )
+                    Pow
+                    (Call
+                        (Name
+                            complex
+                            Load
+                        )
+                        [(ConstantFloat
+                            3.345340
+                            ()
+                        )
+                        (ConstantFloat
+                            4.867868
+                            ()
+                        )]
+                        []
+                    )
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                c
+                Store
+            )]
+            (Call
+                (Name
+                    c32
+                    Load
+                )
+                [(BinOp
+                    (Call
+                        (Name
+                            complex
+                            Load
+                        )
+                        [(ConstantInt
+                            1
+                            ()
+                        )
+                        (ConstantInt
+                            2
+                            ()
+                        )]
+                        []
+                    )
+                    Mult
+                    (Call
+                        (Name
+                            complex
+                            Load
+                        )
+                        [(ConstantInt
+                            3
+                            ()
+                        )
+                        (ConstantInt
+                            4
+                            ()
+                        )]
+                        []
+                    )
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                c
+                Store
+            )]
+            (Call
+                (Name
+                    c32
+                    Load
+                )
+                [(BinOp
+                    (Call
+                        (Name
+                            complex
+                            Load
+                        )
+                        [(ConstantInt
+                            4
+                            ()
+                        )
+                        (ConstantInt
+                            5
+                            ()
+                        )]
+                        []
+                    )
+                    Sub
+                    (Call
+                        (Name
+                            complex
+                            Load
+                        )
+                        [(ConstantInt
+                            3
+                            ()
+                        )
+                        (ConstantInt
+                            4
+                            ()
+                        )]
+                        []
+                    )
+                )]
+                []
+            )
+            ()
+        )]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        test
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(AnnAssign
+            (Name
+                x
+                Store
+            )
+            (Name
+                c64
+                Load
+            )
+            ()
+            1
+        )
+        (AnnAssign
+            (Name
+                y
+                Store
+            )
+            (Name
+                c64
+                Load
+            )
+            ()
+            1
+        )
+        (AnnAssign
+            (Name
+                z
+                Store
+            )
+            (Name
+                c32
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                x
+                Store
+            )]
+            (BinOp
+                (Call
+                    (Name
+                        c64
+                        Load
+                    )
+                    [(ConstantInt
+                        2
+                        ()
+                    )]
+                    []
+                )
+                Add
+                (ConstantComplex
+                    0.000000
+                    3.000000
+                    ()
+                )
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                y
+                Store
+            )]
+            (BinOp
+                (Call
+                    (Name
+                        c64
+                        Load
+                    )
+                    [(ConstantInt
+                        5
+                        ()
+                    )]
+                    []
+                )
+                Add
+                (ConstantComplex
+                    0.000000
+                    5.000000
+                    ()
+                )
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                z
+                Store
+            )]
+            (Call
+                (Name
+                    c32
+                    Load
+                )
+                [(BinOp
+                    (Name
+                        x
+                        Load
+                    )
+                    Add
+                    (Name
+                        y
+                        Load
+                    )
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                z
+                Store
+            )]
+            (Call
+                (Name
+                    c32
+                    Load
+                )
+                [(BinOp
+                    (Name
+                        x
+                        Load
+                    )
+                    Sub
+                    (Name
+                        y
+                        Load
+                    )
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                z
+                Store
+            )]
+            (Call
+                (Name
+                    c32
+                    Load
+                )
+                [(BinOp
+                    (Call
+                        (Name
+                            c64
+                            Load
+                        )
+                        [(ConstantInt
+                            2
+                            ()
+                        )]
+                        []
+                    )
+                    Mult
+                    (Name
+                        x
+                        Load
+                    )
+                )]
+                []
+            )
+            ()
+        )]
+        []
+        ()
+        ()
+    )]
+    []
+)
diff --git a/tests/reference/ast-constants1-91cb6ff.json b/tests/reference/ast-constants1-91cb6ff.json
index 2c58606e91..f84e32ca40 100644
--- a/tests/reference/ast-constants1-91cb6ff.json
+++ b/tests/reference/ast-constants1-91cb6ff.json
@@ -2,11 +2,11 @@
     "basename": "ast-constants1-91cb6ff",
     "cmd": "lpython --show-ast --no-color {infile} -o {outfile}",
     "infile": "tests/constants1.py",
-    "infile_hash": "5d624d8607e3c7f476ef4e7e70e36b0e9779b08b456a2d09d8974abf",
+    "infile_hash": "5dca391c30a1477fb903e17c1d47dad3b9b816088384ba61ff372db1",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "ast-constants1-91cb6ff.stdout",
-    "stdout_hash": "66fbdb5f3b8cbb44977406b34e1041bc1cb8e390c94bb9a3e5a1584d",
+    "stdout_hash": "8c7b5384e18cfcea4b080c39a4d367fc8a57a6785ad936454005d6b1",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/ast-constants1-91cb6ff.stdout b/tests/reference/ast-constants1-91cb6ff.stdout
index 0b333582a0..086dd9ff27 100644
--- a/tests/reference/ast-constants1-91cb6ff.stdout
+++ b/tests/reference/ast-constants1-91cb6ff.stdout
@@ -1 +1,1820 @@
-(Module [(ImportFrom ltypes [(f32 ()) (i32 ()) (i64 ()) (f64 ())] 0) (FunctionDef test_boz ([] [] [] [] [] [] []) [(AnnAssign (Name b Store) (Name str Load) () 1) (Assign [(Name b Store)] (Call (Name bin Load) [(ConstantInt 5 ())] []) ()) (Assign [(Name b Store)] (Call (Name bin Load) [(ConstantInt 64 ())] []) ()) (Assign [(Name b Store)] (Call (Name bin Load) [(UnaryOp USub (ConstantInt 534 ()))] []) ()) (Assign [(Name b Store)] (Call (Name oct Load) [(ConstantInt 8 ())] []) ()) (Assign [(Name b Store)] (Call (Name oct Load) [(ConstantInt 56 ())] []) ()) (Assign [(Name b Store)] (Call (Name oct Load) [(UnaryOp USub (ConstantInt 534 ()))] []) ()) (Assign [(Name b Store)] (Call (Name hex Load) [(ConstantInt 42 ())] []) ()) (Assign [(Name b Store)] (Call (Name hex Load) [(ConstantInt 12648430 ())] []) ()) (Assign [(Name b Store)] (Call (Name hex Load) [(UnaryOp USub (ConstantInt 534 ()))] []) ())] [] () ()) (FunctionDef test_ord_chr ([] [] [] [] [] [] []) [(AnnAssign (Name s Store) (Name str Load) () 1) (AnnAssign (Name a Store) (Name i32 Load) () 1) (Assign [(Name a Store)] (Call (Name ord Load) [(ConstantStr "5" ())] []) ()) (Assign [(Name s Store)] (Call (Name chr Load) [(ConstantInt 43 ())] []) ())] [] () ()) (FunctionDef test_abs ([] [] [] [] [] [] []) [(AnnAssign (Name a Store) (Name i32 Load) () 1) (Assign [(Name a Store)] (Call (Name abs Load) [(ConstantInt 5 ())] []) ()) (Assign [(Name a Store)] (Call (Name abs Load) [(UnaryOp USub (ConstantInt 500 ()))] []) ()) (Assign [(Name a Store)] (Call (Name abs Load) [(ConstantBool .false. ())] []) ()) (Assign [(Name a Store)] (Call (Name abs Load) [(ConstantBool .true. ())] []) ()) (AnnAssign (Name b Store) (Name f32 Load) () 1) (Assign [(Name b Store)] (Call (Name f32 Load) [(Call (Name abs Load) [(ConstantFloat 3.450000 ())] [])] []) ()) (Assign [(Name b Store)] (Call (Name f32 Load) [(Call (Name abs Load) [(UnaryOp USub (ConstantFloat 5346.340000 ()))] [])] []) ()) (Assign [(Name b Store)] (Call (Name f32 Load) [(Call (Name abs Load) [(Call (Name complex Load) [(ConstantFloat 3.450000 ()) (ConstantFloat 5.600000 ())] [])] [])] []) ())] [] () ()) (FunctionDef test_len ([] [] [] [] [] [] []) [(AnnAssign (Name a Store) (Name i32 Load) () 1) (Assign [(Name a Store)] (Call (Name len Load) [(ConstantStr "" ())] []) ()) (Assign [(Name a Store)] (Call (Name len Load) [(ConstantStr "test" ())] []) ()) (Assign [(Name a Store)] (Call (Name len Load) [(ConstantStr "this is a test" ())] []) ()) (Assign [(Name a Store)] (Call (Name len Load) [(Tuple [(ConstantInt 1 ()) (ConstantInt 2 ()) (ConstantInt 3 ())] Load)] []) ()) (Assign [(Name a Store)] (Call (Name len Load) [(Tuple [(Tuple [(ConstantStr "c" ()) (ConstantStr "b" ()) (ConstantFloat 3.400000 ())] Load) (Tuple [(ConstantStr "c" ()) (ConstantInt 3 ()) (ConstantFloat 5.600000 ())] Load)] Load)] []) ()) (Assign [(Name a Store)] (Call (Name len Load) [(List [(ConstantInt 1 ()) (ConstantInt 2 ()) (ConstantInt 3 ())] Load)] []) ()) (Assign [(Name a Store)] (Call (Name len Load) [(List [(List [(UnaryOp USub (ConstantInt 4 ())) (UnaryOp USub (ConstantInt 5 ())) (UnaryOp USub (ConstantInt 6 ()))] Load) (List [(UnaryOp USub (ConstantInt 1 ())) (UnaryOp USub (ConstantInt 2 ())) (UnaryOp USub (ConstantInt 3 ()))] Load)] Load)] []) ()) (Assign [(Name a Store)] (Call (Name len Load) [(Set [(ConstantInt 1 ()) (ConstantInt 2 ()) (ConstantInt 3 ())])] []) ()) (Assign [(Name a Store)] (Call (Name len Load) [(Dict [(ConstantInt 1 ()) (ConstantInt 2 ()) (ConstantInt 3 ())] [(ConstantStr "c" ()) (ConstantStr "b" ()) (ConstantStr "c" ())])] []) ()) (AnnAssign (Name l Store) (Subscript (Name list Load) (Name i32 Load) Load) () 1) (Assign [(Name l Store)] (List [(ConstantInt 1 ()) (ConstantInt 2 ()) (ConstantInt 3 ()) (ConstantInt 4 ())] Load) ()) (Assign [(Name a Store)] (Call (Name len Load) [(Name l Load)] []) ()) (Expr (Call (Attribute (Name l Load) append Load) [(ConstantInt 5 ())] [])) (Assign [(Name a Store)] (Call (Name len Load) [(Name l Load)] []) ())] [] () ()) (FunctionDef test_bool ([] [] [] [] [] [] []) [(AnnAssign (Name a Store) (Name bool Load) () 1) (Assign [(Name a Store)] (Call (Name bool Load) [(ConstantInt 0 ())] []) ()) (Assign [(Name a Store)] (Call (Name bool Load) [(UnaryOp USub (ConstantInt 1 ()))] []) ()) (Assign [(Name a Store)] (Call (Name bool Load) [(ConstantStr "" ())] []) ()) (Assign [(Name a Store)] (Call (Name bool Load) [(Call (Name complex Load) [(ConstantInt 0 ()) (ConstantInt 0 ())] [])] []) ()) (Assert (Compare (Name a Load) Eq [(ConstantBool .false. ())]) ()) (Assign [(Name a Store)] (Call (Name bool Load) [(ConstantStr "t" ())] []) ()) (Assign [(Name a Store)] (Call (Name bool Load) [(ConstantFloat 2.300000 ())] []) ()) (Assert (Compare (Name a Load) Eq [(ConstantBool .true. ())]) ())] [] () ()) (FunctionDef test_str ([] [] [] [] [] [] []) [(AnnAssign (Name s Store) (Name str Load) () 1) (Assign [(Name s Store)] (Call (Name str Load) [] []) ()) (Assign [(Name s Store)] (Call (Name str Load) [(ConstantInt 5 ())] []) ()) (Assign [(Name s Store)] (Call (Name str Load) [(UnaryOp USub (ConstantInt 4 ()))] []) ()) (Assign [(Name s Store)] (Call (Name str Load) [(ConstantFloat 5.600000 ())] []) ()) (Assign [(Name s Store)] (Call (Name str Load) [(ConstantBool .true. ())] []) ()) (Assign [(Name s Store)] (Call (Name str Load) [(ConstantBool .false. ())] []) ()) (Assign [(Name s Store)] (Call (Name str Load) [(ConstantStr "5346" ())] []) ())] [] () ()) (FunctionDef test_callable ([] [] [] [] [] [] []) [(AnnAssign (Name a Store) (Name bool Load) () 1) (AnnAssign (Name b Store) (Name i32 Load) () 1) (Assign [(Name b Store)] (ConstantInt 2 ()) ()) (Assign [(Name a Store)] (Call (Name callable Load) [(Name test_len Load)] []) ()) (Assert (Compare (Name a Load) Eq [(ConstantBool .true. ())]) ()) (Assign [(Name a Store)] (Call (Name callable Load) [(Name b Load)] []) ()) (Assert (Compare (Name a Load) Eq [(ConstantBool .false. ())]) ()) (Assign [(Name a Store)] (Call (Name callable Load) [(ConstantStr "c" ())] []) ()) (Assert (Compare (Name a Load) Eq [(ConstantBool .false. ())]) ())] [] () ()) (FunctionDef test_int ([] [] [] [] [] [] []) [(AnnAssign (Name a Store) (Name i64 Load) () 1) (Assign [(Name a Store)] (Call (Name int Load) [] []) ()) (Assign [(Name a Store)] (Call (Name int Load) [(ConstantFloat 4.560000 ())] []) ()) (Assign [(Name a Store)] (Call (Name int Load) [(ConstantInt 5 ())] []) ()) (Assign [(Name a Store)] (Call (Name int Load) [(UnaryOp USub (ConstantFloat 5.000010 ()))] []) ()) (Assign [(Name a Store)] (Call (Name int Load) [(ConstantBool .true. ())] []) ()) (Assign [(Name a Store)] (Call (Name int Load) [(ConstantBool .false. ())] []) ()) (Assign [(Name a Store)] (Call (Name int Load) [(ConstantStr "5346" ())] []) ())] [] () ()) (FunctionDef test_float ([] [] [] [] [] [] []) [(AnnAssign (Name a Store) (Name f64 Load) () 1) (Assign [(Name a Store)] (Call (Name float Load) [] []) ()) (Assign [(Name a Store)] (Call (Name float Load) [(ConstantFloat 4.560000 ())] []) ()) (Assign [(Name a Store)] (Call (Name float Load) [(ConstantInt 5 ())] []) ()) (Assign [(Name a Store)] (Call (Name float Load) [(UnaryOp USub (ConstantInt 1 ()))] []) ()) (Assign [(Name a Store)] (Call (Name float Load) [(ConstantBool .true. ())] []) ()) (Assign [(Name a Store)] (Call (Name float Load) [(ConstantBool .false. ())] []) ())] [] () ()) (FunctionDef test_divmod ([] [] [] [] [] [] []) [(AnnAssign (Name a Store) (Subscript (Name tuple Load) (Tuple [(Name i32 Load) (Name i32 Load)] Load) Load) () 1) (Assign [(Name a Store)] (Call (Name divmod Load) [(ConstantInt 9 ()) (ConstantInt 3 ())] []) ()) (Assign [(Name a Store)] (Call (Name divmod Load) [(ConstantInt 9 ()) (UnaryOp USub (ConstantInt 3 ()))] []) ()) (Assign [(Name a Store)] (Call (Name divmod Load) [(ConstantInt 3 ()) (ConstantInt 3 ())] []) ()) (Assign [(Name a Store)] (Call (Name divmod Load) [(ConstantInt 4 ()) (ConstantInt 5 ())] []) ()) (Assign [(Name a Store)] (Call (Name divmod Load) [(ConstantInt 0 ()) (ConstantInt 5 ())] []) ())] [] () ())] [])
+(Module
+    [(ImportFrom
+        lpython
+        [(f32
+        ())
+        (i32
+        ())
+        (i64
+        ())
+        (f64
+        ())]
+        0
+    )
+    (FunctionDef
+        test_boz
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(AnnAssign
+            (Name
+                b
+                Store
+            )
+            (Name
+                str
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                b
+                Store
+            )]
+            (Call
+                (Name
+                    bin
+                    Load
+                )
+                [(ConstantInt
+                    5
+                    ()
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                b
+                Store
+            )]
+            (Call
+                (Name
+                    bin
+                    Load
+                )
+                [(ConstantInt
+                    64
+                    ()
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                b
+                Store
+            )]
+            (Call
+                (Name
+                    bin
+                    Load
+                )
+                [(UnaryOp
+                    USub
+                    (ConstantInt
+                        534
+                        ()
+                    )
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                b
+                Store
+            )]
+            (Call
+                (Name
+                    oct
+                    Load
+                )
+                [(ConstantInt
+                    8
+                    ()
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                b
+                Store
+            )]
+            (Call
+                (Name
+                    oct
+                    Load
+                )
+                [(ConstantInt
+                    56
+                    ()
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                b
+                Store
+            )]
+            (Call
+                (Name
+                    oct
+                    Load
+                )
+                [(UnaryOp
+                    USub
+                    (ConstantInt
+                        534
+                        ()
+                    )
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                b
+                Store
+            )]
+            (Call
+                (Name
+                    hex
+                    Load
+                )
+                [(ConstantInt
+                    42
+                    ()
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                b
+                Store
+            )]
+            (Call
+                (Name
+                    hex
+                    Load
+                )
+                [(ConstantInt
+                    12648430
+                    ()
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                b
+                Store
+            )]
+            (Call
+                (Name
+                    hex
+                    Load
+                )
+                [(UnaryOp
+                    USub
+                    (ConstantInt
+                        534
+                        ()
+                    )
+                )]
+                []
+            )
+            ()
+        )]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        test_ord_chr
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(AnnAssign
+            (Name
+                s
+                Store
+            )
+            (Name
+                str
+                Load
+            )
+            ()
+            1
+        )
+        (AnnAssign
+            (Name
+                a
+                Store
+            )
+            (Name
+                i32
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Call
+                (Name
+                    ord
+                    Load
+                )
+                [(ConstantStr
+                    "5"
+                    ()
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                s
+                Store
+            )]
+            (Call
+                (Name
+                    chr
+                    Load
+                )
+                [(ConstantInt
+                    43
+                    ()
+                )]
+                []
+            )
+            ()
+        )]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        test_abs
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(AnnAssign
+            (Name
+                a
+                Store
+            )
+            (Name
+                i32
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Call
+                (Name
+                    abs
+                    Load
+                )
+                [(ConstantInt
+                    5
+                    ()
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Call
+                (Name
+                    abs
+                    Load
+                )
+                [(UnaryOp
+                    USub
+                    (ConstantInt
+                        500
+                        ()
+                    )
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Call
+                (Name
+                    abs
+                    Load
+                )
+                [(Call
+                    (Name
+                        i32
+                        Load
+                    )
+                    [(ConstantBool
+                        .false.
+                        ()
+                    )]
+                    []
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Call
+                (Name
+                    abs
+                    Load
+                )
+                [(Call
+                    (Name
+                        i32
+                        Load
+                    )
+                    [(ConstantBool
+                        .true.
+                        ()
+                    )]
+                    []
+                )]
+                []
+            )
+            ()
+        )
+        (AnnAssign
+            (Name
+                b
+                Store
+            )
+            (Name
+                f32
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                b
+                Store
+            )]
+            (Call
+                (Name
+                    f32
+                    Load
+                )
+                [(Call
+                    (Name
+                        abs
+                        Load
+                    )
+                    [(ConstantFloat
+                        3.450000
+                        ()
+                    )]
+                    []
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                b
+                Store
+            )]
+            (Call
+                (Name
+                    f32
+                    Load
+                )
+                [(Call
+                    (Name
+                        abs
+                        Load
+                    )
+                    [(UnaryOp
+                        USub
+                        (ConstantFloat
+                            5346.340000
+                            ()
+                        )
+                    )]
+                    []
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                b
+                Store
+            )]
+            (Call
+                (Name
+                    f32
+                    Load
+                )
+                [(Call
+                    (Name
+                        abs
+                        Load
+                    )
+                    [(Call
+                        (Name
+                            complex
+                            Load
+                        )
+                        [(ConstantFloat
+                            3.450000
+                            ()
+                        )
+                        (ConstantFloat
+                            5.600000
+                            ()
+                        )]
+                        []
+                    )]
+                    []
+                )]
+                []
+            )
+            ()
+        )]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        test_len
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(AnnAssign
+            (Name
+                a
+                Store
+            )
+            (Name
+                i32
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Call
+                (Name
+                    len
+                    Load
+                )
+                [(ConstantStr
+                    ""
+                    ()
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Call
+                (Name
+                    len
+                    Load
+                )
+                [(ConstantStr
+                    "test"
+                    ()
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Call
+                (Name
+                    len
+                    Load
+                )
+                [(ConstantStr
+                    "this is a test"
+                    ()
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Call
+                (Name
+                    len
+                    Load
+                )
+                [(Tuple
+                    [(ConstantInt
+                        1
+                        ()
+                    )
+                    (ConstantInt
+                        2
+                        ()
+                    )
+                    (ConstantInt
+                        3
+                        ()
+                    )]
+                    Load
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Call
+                (Name
+                    len
+                    Load
+                )
+                [(Tuple
+                    [(Tuple
+                        [(ConstantStr
+                            "c"
+                            ()
+                        )
+                        (ConstantStr
+                            "b"
+                            ()
+                        )
+                        (ConstantFloat
+                            3.400000
+                            ()
+                        )]
+                        Load
+                    )
+                    (Tuple
+                        [(ConstantStr
+                            "c"
+                            ()
+                        )
+                        (ConstantInt
+                            3
+                            ()
+                        )
+                        (ConstantFloat
+                            5.600000
+                            ()
+                        )]
+                        Load
+                    )]
+                    Load
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Call
+                (Name
+                    len
+                    Load
+                )
+                [(List
+                    [(ConstantInt
+                        1
+                        ()
+                    )
+                    (ConstantInt
+                        2
+                        ()
+                    )
+                    (ConstantInt
+                        3
+                        ()
+                    )]
+                    Load
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Call
+                (Name
+                    len
+                    Load
+                )
+                [(List
+                    [(List
+                        [(UnaryOp
+                            USub
+                            (ConstantInt
+                                4
+                                ()
+                            )
+                        )
+                        (UnaryOp
+                            USub
+                            (ConstantInt
+                                5
+                                ()
+                            )
+                        )
+                        (UnaryOp
+                            USub
+                            (ConstantInt
+                                6
+                                ()
+                            )
+                        )]
+                        Load
+                    )
+                    (List
+                        [(UnaryOp
+                            USub
+                            (ConstantInt
+                                1
+                                ()
+                            )
+                        )
+                        (UnaryOp
+                            USub
+                            (ConstantInt
+                                2
+                                ()
+                            )
+                        )
+                        (UnaryOp
+                            USub
+                            (ConstantInt
+                                3
+                                ()
+                            )
+                        )]
+                        Load
+                    )]
+                    Load
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Call
+                (Name
+                    len
+                    Load
+                )
+                [(Set
+                    [(ConstantInt
+                        1
+                        ()
+                    )
+                    (ConstantInt
+                        2
+                        ()
+                    )
+                    (ConstantInt
+                        3
+                        ()
+                    )]
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Call
+                (Name
+                    len
+                    Load
+                )
+                [(Dict
+                    [(ConstantInt
+                        1
+                        ()
+                    )
+                    (ConstantInt
+                        2
+                        ()
+                    )
+                    (ConstantInt
+                        3
+                        ()
+                    )]
+                    [(ConstantStr
+                        "c"
+                        ()
+                    )
+                    (ConstantStr
+                        "b"
+                        ()
+                    )
+                    (ConstantStr
+                        "c"
+                        ()
+                    )]
+                )]
+                []
+            )
+            ()
+        )
+        (AnnAssign
+            (Name
+                l
+                Store
+            )
+            (Subscript
+                (Name
+                    list
+                    Load
+                )
+                (Name
+                    i32
+                    Load
+                )
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                l
+                Store
+            )]
+            (List
+                [(ConstantInt
+                    1
+                    ()
+                )
+                (ConstantInt
+                    2
+                    ()
+                )
+                (ConstantInt
+                    3
+                    ()
+                )
+                (ConstantInt
+                    4
+                    ()
+                )]
+                Load
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Call
+                (Name
+                    len
+                    Load
+                )
+                [(Name
+                    l
+                    Load
+                )]
+                []
+            )
+            ()
+        )
+        (Expr
+            (Call
+                (Attribute
+                    (Name
+                        l
+                        Load
+                    )
+                    append
+                    Load
+                )
+                [(ConstantInt
+                    5
+                    ()
+                )]
+                []
+            )
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Call
+                (Name
+                    len
+                    Load
+                )
+                [(Name
+                    l
+                    Load
+                )]
+                []
+            )
+            ()
+        )]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        test_bool
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(AnnAssign
+            (Name
+                a
+                Store
+            )
+            (Name
+                bool
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Call
+                (Name
+                    bool
+                    Load
+                )
+                [(ConstantInt
+                    0
+                    ()
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Call
+                (Name
+                    bool
+                    Load
+                )
+                [(UnaryOp
+                    USub
+                    (ConstantInt
+                        1
+                        ()
+                    )
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Call
+                (Name
+                    bool
+                    Load
+                )
+                [(ConstantStr
+                    ""
+                    ()
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Call
+                (Name
+                    bool
+                    Load
+                )
+                [(Call
+                    (Name
+                        complex
+                        Load
+                    )
+                    [(ConstantInt
+                        0
+                        ()
+                    )
+                    (ConstantInt
+                        0
+                        ()
+                    )]
+                    []
+                )]
+                []
+            )
+            ()
+        )
+        (Assert
+            (Compare
+                (Name
+                    a
+                    Load
+                )
+                Eq
+                [(ConstantBool
+                    .false.
+                    ()
+                )]
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Call
+                (Name
+                    bool
+                    Load
+                )
+                [(ConstantStr
+                    "t"
+                    ()
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Call
+                (Name
+                    bool
+                    Load
+                )
+                [(ConstantFloat
+                    2.300000
+                    ()
+                )]
+                []
+            )
+            ()
+        )
+        (Assert
+            (Compare
+                (Name
+                    a
+                    Load
+                )
+                Eq
+                [(ConstantBool
+                    .true.
+                    ()
+                )]
+            )
+            ()
+        )]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        test_str
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(AnnAssign
+            (Name
+                s
+                Store
+            )
+            (Name
+                str
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                s
+                Store
+            )]
+            (Call
+                (Name
+                    str
+                    Load
+                )
+                []
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                s
+                Store
+            )]
+            (Call
+                (Name
+                    str
+                    Load
+                )
+                [(ConstantInt
+                    5
+                    ()
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                s
+                Store
+            )]
+            (Call
+                (Name
+                    str
+                    Load
+                )
+                [(UnaryOp
+                    USub
+                    (ConstantInt
+                        4
+                        ()
+                    )
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                s
+                Store
+            )]
+            (Call
+                (Name
+                    str
+                    Load
+                )
+                [(ConstantFloat
+                    5.600000
+                    ()
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                s
+                Store
+            )]
+            (Call
+                (Name
+                    str
+                    Load
+                )
+                [(ConstantBool
+                    .true.
+                    ()
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                s
+                Store
+            )]
+            (Call
+                (Name
+                    str
+                    Load
+                )
+                [(ConstantBool
+                    .false.
+                    ()
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                s
+                Store
+            )]
+            (Call
+                (Name
+                    str
+                    Load
+                )
+                [(ConstantStr
+                    "5346"
+                    ()
+                )]
+                []
+            )
+            ()
+        )]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        test_callable
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(AnnAssign
+            (Name
+                a
+                Store
+            )
+            (Name
+                bool
+                Load
+            )
+            ()
+            1
+        )
+        (AnnAssign
+            (Name
+                b
+                Store
+            )
+            (Name
+                i32
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                b
+                Store
+            )]
+            (ConstantInt
+                2
+                ()
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Call
+                (Name
+                    callable
+                    Load
+                )
+                [(Name
+                    test_len
+                    Load
+                )]
+                []
+            )
+            ()
+        )
+        (Assert
+            (Compare
+                (Name
+                    a
+                    Load
+                )
+                Eq
+                [(ConstantBool
+                    .true.
+                    ()
+                )]
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Call
+                (Name
+                    callable
+                    Load
+                )
+                [(Name
+                    b
+                    Load
+                )]
+                []
+            )
+            ()
+        )
+        (Assert
+            (Compare
+                (Name
+                    a
+                    Load
+                )
+                Eq
+                [(ConstantBool
+                    .false.
+                    ()
+                )]
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Call
+                (Name
+                    callable
+                    Load
+                )
+                [(ConstantStr
+                    "c"
+                    ()
+                )]
+                []
+            )
+            ()
+        )
+        (Assert
+            (Compare
+                (Name
+                    a
+                    Load
+                )
+                Eq
+                [(ConstantBool
+                    .false.
+                    ()
+                )]
+            )
+            ()
+        )]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        test_int
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(AnnAssign
+            (Name
+                a
+                Store
+            )
+            (Name
+                i64
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Call
+                (Name
+                    int
+                    Load
+                )
+                []
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Call
+                (Name
+                    int
+                    Load
+                )
+                [(ConstantFloat
+                    4.560000
+                    ()
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Call
+                (Name
+                    int
+                    Load
+                )
+                [(ConstantInt
+                    5
+                    ()
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Call
+                (Name
+                    int
+                    Load
+                )
+                [(UnaryOp
+                    USub
+                    (ConstantFloat
+                        5.000010
+                        ()
+                    )
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Call
+                (Name
+                    int
+                    Load
+                )
+                [(ConstantBool
+                    .true.
+                    ()
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Call
+                (Name
+                    int
+                    Load
+                )
+                [(ConstantBool
+                    .false.
+                    ()
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Call
+                (Name
+                    int
+                    Load
+                )
+                [(ConstantStr
+                    "5346"
+                    ()
+                )]
+                []
+            )
+            ()
+        )]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        test_float
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(AnnAssign
+            (Name
+                a
+                Store
+            )
+            (Name
+                f64
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Call
+                (Name
+                    float
+                    Load
+                )
+                []
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Call
+                (Name
+                    float
+                    Load
+                )
+                [(ConstantFloat
+                    4.560000
+                    ()
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Call
+                (Name
+                    float
+                    Load
+                )
+                [(ConstantInt
+                    5
+                    ()
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Call
+                (Name
+                    float
+                    Load
+                )
+                [(UnaryOp
+                    USub
+                    (ConstantInt
+                        1
+                        ()
+                    )
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Call
+                (Name
+                    float
+                    Load
+                )
+                [(ConstantBool
+                    .true.
+                    ()
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Call
+                (Name
+                    float
+                    Load
+                )
+                [(ConstantBool
+                    .false.
+                    ()
+                )]
+                []
+            )
+            ()
+        )]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        test_divmod
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(AnnAssign
+            (Name
+                a
+                Store
+            )
+            (Subscript
+                (Name
+                    tuple
+                    Load
+                )
+                (Tuple
+                    [(Name
+                        i32
+                        Load
+                    )
+                    (Name
+                        i32
+                        Load
+                    )]
+                    Load
+                )
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Call
+                (Name
+                    divmod
+                    Load
+                )
+                [(ConstantInt
+                    9
+                    ()
+                )
+                (ConstantInt
+                    3
+                    ()
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Call
+                (Name
+                    divmod
+                    Load
+                )
+                [(ConstantInt
+                    9
+                    ()
+                )
+                (UnaryOp
+                    USub
+                    (ConstantInt
+                        3
+                        ()
+                    )
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Call
+                (Name
+                    divmod
+                    Load
+                )
+                [(ConstantInt
+                    3
+                    ()
+                )
+                (ConstantInt
+                    3
+                    ()
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Call
+                (Name
+                    divmod
+                    Load
+                )
+                [(ConstantInt
+                    4
+                    ()
+                )
+                (ConstantInt
+                    5
+                    ()
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Call
+                (Name
+                    divmod
+                    Load
+                )
+                [(ConstantInt
+                    0
+                    ()
+                )
+                (ConstantInt
+                    5
+                    ()
+                )]
+                []
+            )
+            ()
+        )]
+        []
+        ()
+        ()
+    )]
+    []
+)
diff --git a/tests/reference/ast-dictionary1-1a7e00a.json b/tests/reference/ast-dictionary1-1a7e00a.json
index 39c480871e..ba29488d33 100644
--- a/tests/reference/ast-dictionary1-1a7e00a.json
+++ b/tests/reference/ast-dictionary1-1a7e00a.json
@@ -2,11 +2,11 @@
     "basename": "ast-dictionary1-1a7e00a",
     "cmd": "lpython --show-ast --no-color {infile} -o {outfile}",
     "infile": "tests/dictionary1.py",
-    "infile_hash": "2d9f15b746aa8185afb3f2dc6415c20a7edccc8e711df1b323178d94",
+    "infile_hash": "f164e8dbe52a04e4fd541d6ff6edae2994d683074087d8785a1759e4",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "ast-dictionary1-1a7e00a.stdout",
-    "stdout_hash": "ee1325934dfed20ab01689aab48a7f1573fad7115939b40344e8b017",
+    "stdout_hash": "c347af8c0abbed4664f354dc24c1bd061218c0584aef27889fbf1745",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/ast-dictionary1-1a7e00a.stdout b/tests/reference/ast-dictionary1-1a7e00a.stdout
index 627ec9e39d..d300e7a74d 100644
--- a/tests/reference/ast-dictionary1-1a7e00a.stdout
+++ b/tests/reference/ast-dictionary1-1a7e00a.stdout
@@ -1 +1,618 @@
-(Module [(FunctionDef test_Dict ([] [] [] [] [] [] []) [(AnnAssign (Name x Store) (Subscript (Name dict Load) (Tuple [(Name i32 Load) (Name i32 Load)] Load) Load) () 1) (Assign [(Name x Store)] (Dict [(ConstantInt 1 ()) (ConstantInt 3 ())] [(ConstantInt 2 ()) (ConstantInt 4 ())]) ()) (AnnAssign (Name y Store) (Subscript (Name dict Load) (Tuple [(Name str Load) (Name i32 Load)] Load) Load) () 1) (Assign [(Name y Store)] (Dict [(ConstantStr "a" ()) (ConstantStr "b" ())] [(UnaryOp USub (ConstantInt 1 ())) (UnaryOp USub (ConstantInt 2 ()))]) ()) (AnnAssign (Name z Store) (Name i32 Load) () 1) (Assign [(Name z Store)] (Subscript (Name y Load) (ConstantStr "a" ()) Load) ()) (Assign [(Name z Store)] (Subscript (Name y Load) (ConstantStr "b" ()) Load) ()) (Assign [(Name z Store)] (Subscript (Name x Load) (ConstantInt 1 ()) Load) ())] [] () ()) (FunctionDef test_dict_insert ([] [] [] [] [] [] []) [(AnnAssign (Name y Store) (Subscript (Name dict Load) (Tuple [(Name str Load) (Name i32 Load)] Load) Load) () 1) (Assign [(Name y Store)] (Dict [(ConstantStr "a" ()) (ConstantStr "b" ())] [(UnaryOp USub (ConstantInt 1 ())) (UnaryOp USub (ConstantInt 2 ()))]) ()) (Assign [(Subscript (Name y Load) (ConstantStr "c" ()) Store)] (UnaryOp USub (ConstantInt 3 ())) ())] [] () ()) (FunctionDef test_dict_get ([] [] [] [] [] [] []) [(AnnAssign (Name y Store) (Subscript (Name dict Load) (Tuple [(Name str Load) (Name i32 Load)] Load) Load) () 1) (Assign [(Name y Store)] (Dict [(ConstantStr "a" ()) (ConstantStr "b" ())] [(UnaryOp USub (ConstantInt 1 ())) (UnaryOp USub (ConstantInt 2 ()))]) ()) (AnnAssign (Name x Store) (Name i32 Load) () 1) (Assign [(Name x Store)] (Call (Attribute (Name y Load) get Load) [(ConstantStr "a" ())] []) ()) (Assign [(Name x Store)] (Call (Attribute (Name y Load) get Load) [(ConstantStr "a" ()) (ConstantInt 0 ())] []) ())] [] () ()) (FunctionDef test_dict_pop ([] [] [] [] [] [] []) [(AnnAssign (Name y Store) (Subscript (Name dict Load) (Tuple [(Name str Load) (Name i32 Load)] Load) Load) () 1) (Assign [(Name y Store)] (Dict [(ConstantStr "a" ()) (ConstantStr "b" ())] [(ConstantInt 1 ()) (ConstantInt 2 ())]) ()) (AnnAssign (Name x Store) (Name i32 Load) () 1) (Assign [(Name x Store)] (Call (Attribute (Name y Load) pop Load) [(ConstantStr "a" ())] []) ())] [] () ()) (FunctionDef f ([] [(x (Subscript (Name dict Load) (Tuple [(Name i32 Load) (Name i32 Load)] Load) Load) ())] [] [] [] [] []) [(Assign [(Subscript (Name x Load) (ConstantInt 2 ()) Store)] (ConstantInt 4 ()) ())] [] () ()) (FunctionDef test_issue_204 ([] [] [] [] [] [] []) [(AnnAssign (Name x Store) (Subscript (Name dict Load) (Tuple [(Name i32 Load) (Name i32 Load)] Load) Load) () 1) (Expr (Call (Name f Load) [(Name x Load)] []))] [] () ())] [])
+(Module
+    [(FunctionDef
+        test_Dict
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(AnnAssign
+            (Name
+                x
+                Store
+            )
+            (Subscript
+                (Name
+                    dict
+                    Load
+                )
+                (Tuple
+                    [(Name
+                        i32
+                        Load
+                    )
+                    (Name
+                        i32
+                        Load
+                    )]
+                    Load
+                )
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                x
+                Store
+            )]
+            (Dict
+                [(ConstantInt
+                    1
+                    ()
+                )
+                (ConstantInt
+                    3
+                    ()
+                )]
+                [(ConstantInt
+                    2
+                    ()
+                )
+                (ConstantInt
+                    4
+                    ()
+                )]
+            )
+            ()
+        )
+        (AnnAssign
+            (Name
+                y
+                Store
+            )
+            (Subscript
+                (Name
+                    dict
+                    Load
+                )
+                (Tuple
+                    [(Name
+                        str
+                        Load
+                    )
+                    (Name
+                        i32
+                        Load
+                    )]
+                    Load
+                )
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                y
+                Store
+            )]
+            (Dict
+                [(ConstantStr
+                    "a"
+                    ()
+                )
+                (ConstantStr
+                    "b"
+                    ()
+                )]
+                [(UnaryOp
+                    USub
+                    (ConstantInt
+                        1
+                        ()
+                    )
+                )
+                (UnaryOp
+                    USub
+                    (ConstantInt
+                        2
+                        ()
+                    )
+                )]
+            )
+            ()
+        )
+        (AnnAssign
+            (Name
+                z
+                Store
+            )
+            (Name
+                i32
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                z
+                Store
+            )]
+            (Subscript
+                (Name
+                    y
+                    Load
+                )
+                (ConstantStr
+                    "a"
+                    ()
+                )
+                Load
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                z
+                Store
+            )]
+            (Subscript
+                (Name
+                    y
+                    Load
+                )
+                (ConstantStr
+                    "b"
+                    ()
+                )
+                Load
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                z
+                Store
+            )]
+            (Subscript
+                (Name
+                    x
+                    Load
+                )
+                (ConstantInt
+                    1
+                    ()
+                )
+                Load
+            )
+            ()
+        )]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        test_dict_insert
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(AnnAssign
+            (Name
+                y
+                Store
+            )
+            (Subscript
+                (Name
+                    dict
+                    Load
+                )
+                (Tuple
+                    [(Name
+                        str
+                        Load
+                    )
+                    (Name
+                        i32
+                        Load
+                    )]
+                    Load
+                )
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                y
+                Store
+            )]
+            (Dict
+                [(ConstantStr
+                    "a"
+                    ()
+                )
+                (ConstantStr
+                    "b"
+                    ()
+                )]
+                [(UnaryOp
+                    USub
+                    (ConstantInt
+                        1
+                        ()
+                    )
+                )
+                (UnaryOp
+                    USub
+                    (ConstantInt
+                        2
+                        ()
+                    )
+                )]
+            )
+            ()
+        )
+        (Assign
+            [(Subscript
+                (Name
+                    y
+                    Load
+                )
+                (ConstantStr
+                    "c"
+                    ()
+                )
+                Store
+            )]
+            (UnaryOp
+                USub
+                (ConstantInt
+                    3
+                    ()
+                )
+            )
+            ()
+        )]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        test_dict_get
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(AnnAssign
+            (Name
+                y
+                Store
+            )
+            (Subscript
+                (Name
+                    dict
+                    Load
+                )
+                (Tuple
+                    [(Name
+                        str
+                        Load
+                    )
+                    (Name
+                        i32
+                        Load
+                    )]
+                    Load
+                )
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                y
+                Store
+            )]
+            (Dict
+                [(ConstantStr
+                    "a"
+                    ()
+                )
+                (ConstantStr
+                    "b"
+                    ()
+                )]
+                [(UnaryOp
+                    USub
+                    (ConstantInt
+                        1
+                        ()
+                    )
+                )
+                (UnaryOp
+                    USub
+                    (ConstantInt
+                        2
+                        ()
+                    )
+                )]
+            )
+            ()
+        )
+        (AnnAssign
+            (Name
+                x
+                Store
+            )
+            (Name
+                i32
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                x
+                Store
+            )]
+            (Call
+                (Attribute
+                    (Name
+                        y
+                        Load
+                    )
+                    get
+                    Load
+                )
+                [(ConstantStr
+                    "a"
+                    ()
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                x
+                Store
+            )]
+            (Call
+                (Attribute
+                    (Name
+                        y
+                        Load
+                    )
+                    get
+                    Load
+                )
+                [(ConstantStr
+                    "a"
+                    ()
+                )
+                (ConstantInt
+                    0
+                    ()
+                )]
+                []
+            )
+            ()
+        )]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        test_dict_pop
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(AnnAssign
+            (Name
+                y
+                Store
+            )
+            (Subscript
+                (Name
+                    dict
+                    Load
+                )
+                (Tuple
+                    [(Name
+                        str
+                        Load
+                    )
+                    (Name
+                        i32
+                        Load
+                    )]
+                    Load
+                )
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                y
+                Store
+            )]
+            (Dict
+                [(ConstantStr
+                    "a"
+                    ()
+                )
+                (ConstantStr
+                    "b"
+                    ()
+                )]
+                [(ConstantInt
+                    1
+                    ()
+                )
+                (ConstantInt
+                    2
+                    ()
+                )]
+            )
+            ()
+        )
+        (AnnAssign
+            (Name
+                x
+                Store
+            )
+            (Name
+                i32
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                x
+                Store
+            )]
+            (Call
+                (Attribute
+                    (Name
+                        y
+                        Load
+                    )
+                    pop
+                    Load
+                )
+                [(ConstantStr
+                    "a"
+                    ()
+                )]
+                []
+            )
+            ()
+        )]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        f
+        ([]
+        [(x
+        (Subscript
+            (Name
+                InOut
+                Load
+            )
+            (Subscript
+                (Name
+                    dict
+                    Load
+                )
+                (Tuple
+                    [(Name
+                        i32
+                        Load
+                    )
+                    (Name
+                        i32
+                        Load
+                    )]
+                    Load
+                )
+                Load
+            )
+            Load
+        )
+        ())]
+        []
+        []
+        []
+        []
+        [])
+        [(Assign
+            [(Subscript
+                (Name
+                    x
+                    Load
+                )
+                (ConstantInt
+                    2
+                    ()
+                )
+                Store
+            )]
+            (ConstantInt
+                4
+                ()
+            )
+            ()
+        )]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        test_issue_204
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(AnnAssign
+            (Name
+                x
+                Store
+            )
+            (Subscript
+                (Name
+                    dict
+                    Load
+                )
+                (Tuple
+                    [(Name
+                        i32
+                        Load
+                    )
+                    (Name
+                        i32
+                        Load
+                    )]
+                    Load
+                )
+                Load
+            )
+            ()
+            1
+        )
+        (Expr
+            (Call
+                (Name
+                    f
+                    Load
+                )
+                [(Name
+                    x
+                    Load
+                )]
+                []
+            )
+        )]
+        []
+        ()
+        ()
+    )]
+    []
+)
diff --git a/tests/reference/ast-doconcurrentloop_01-ed7017b.json b/tests/reference/ast-doconcurrentloop_01-ed7017b.json
deleted file mode 100644
index 2b8c00a5f9..0000000000
--- a/tests/reference/ast-doconcurrentloop_01-ed7017b.json
+++ /dev/null
@@ -1,13 +0,0 @@
-{
-    "basename": "ast-doconcurrentloop_01-ed7017b",
-    "cmd": "lpython --show-ast --no-color {infile} -o {outfile}",
-    "infile": "tests/doconcurrentloop_01.py",
-    "infile_hash": "dc0022671a9fa7b620378903a700dd8c4390297cacb1aca2b904069d",
-    "outfile": null,
-    "outfile_hash": null,
-    "stdout": "ast-doconcurrentloop_01-ed7017b.stdout",
-    "stdout_hash": "3abe51b8dc837cd8d8185a9f97b0061aa393ef94ec3461c2406c5c63",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
-}
\ No newline at end of file
diff --git a/tests/reference/ast-doconcurrentloop_01-ed7017b.stdout b/tests/reference/ast-doconcurrentloop_01-ed7017b.stdout
deleted file mode 100644
index 0a0ed27394..0000000000
--- a/tests/reference/ast-doconcurrentloop_01-ed7017b.stdout
+++ /dev/null
@@ -1 +0,0 @@
-(Module [(ImportFrom ltypes [(f32 ()) (i32 ())] 0) (FunctionDef triad ([] [(a (Subscript (Name f32 Load) (Slice () () ()) Load) ()) (b (Subscript (Name f32 Load) (Slice () () ()) Load) ()) (scalar (Name f32 Load) ()) (c (Subscript (Name f32 Load) (Slice () () ()) Load) ())] [] [] [] [] []) [(AnnAssign (Name N Store) (Name i32 Load) () 1) (AnnAssign (Name i Store) (Name i32 Load) () 1) (Assign [(Name N Store)] (Call (Name size Load) [(Name a Load)] []) ()) (For (Name i Store) (Call (Name range Load) [(Name N Load)] []) [(Assign [(Subscript (Name c Load) (Name i Load) Store)] (BinOp (Subscript (Name a Load) (Name i Load) Load) Add (BinOp (Name scalar Load) Mult (Subscript (Name b Load) (Name i Load) Load))) ())] [] "parallel")] [] () ()) (FunctionDef main0 ([] [] [] [] [] [] []) [(AnnAssign (Name a Store) (Subscript (Name f32 Load) (ConstantInt 10000 ()) Load) () 1) (AnnAssign (Name b Store) (Subscript (Name f32 Load) (ConstantInt 10000 ()) Load) () 1) (AnnAssign (Name c Store) (Subscript (Name f32 Load) (ConstantInt 10000 ()) Load) () 1) (AnnAssign (Name scalar Store) (Name f32 Load) () 1) (AnnAssign (Name i Store) (Name i32 Load) () 1) (AnnAssign (Name nsize Store) (Name i32 Load) () 1) (Assign [(Name scalar Store)] (Call (Name f32 Load) [(ConstantFloat 10.000000 ())] []) ()) (Assign [(Name nsize Store)] (Call (Name size Load) [(Name a Load)] []) ()) (For (Name i Store) (Call (Name range Load) [(Name nsize Load)] []) [(Assign [(Subscript (Name a Load) (Name i Load) Store)] (Call (Name f32 Load) [(ConstantFloat 5.000000 ())] []) ()) (Assign [(Subscript (Name b Load) (Name i Load) Store)] (Call (Name f32 Load) [(ConstantFloat 5.000000 ())] []) ())] [] "parallel") (Expr (Call (Name triad Load) [(Name a Load) (Name b Load) (Name scalar Load) (Name c Load)] [])) (Expr (Call (Name print Load) [(ConstantStr "End Stream Triad" ())] []))] [] () ()) (Expr (Call (Name main0 Load) [] []))] [])
diff --git a/tests/reference/ast-ellipsis1-4f6c4dd.json b/tests/reference/ast-ellipsis1-4f6c4dd.json
index 0e042fd21c..1e53be9f78 100644
--- a/tests/reference/ast-ellipsis1-4f6c4dd.json
+++ b/tests/reference/ast-ellipsis1-4f6c4dd.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "ast-ellipsis1-4f6c4dd.stdout",
-    "stdout_hash": "99ae0e12fd8efcd71433e66f10ba7ba5b59e165ddd5ded0072593b12",
+    "stdout_hash": "6d6aef7896c1a43a27f489cb283c508b2bf1238ff6ad0c807b58b9e7",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/ast-ellipsis1-4f6c4dd.stdout b/tests/reference/ast-ellipsis1-4f6c4dd.stdout
index 51aa9eb229..f2c9284c1a 100644
--- a/tests/reference/ast-ellipsis1-4f6c4dd.stdout
+++ b/tests/reference/ast-ellipsis1-4f6c4dd.stdout
@@ -1 +1,427 @@
-(Module [(Import [(numpy np)]) (ImportFrom typing [(Callable ())] 0) (Assign [(Name array Store)] (Call (Attribute (Attribute (Name np Load) random Load) rand Load) [(ConstantInt 2 ()) (ConstantInt 2 ()) (ConstantInt 2 ()) (ConstantInt 2 ())] []) ()) (Expr (Call (Name print Load) [(Subscript (Name array Load) (Tuple [(ConstantEllipsis ()) (ConstantInt 0 ())] Load) Load)] [])) (Expr (Call (Name print Load) [(Subscript (Name array Load) (Tuple [(Name Ellipsis Load) (ConstantInt 0 ())] Load) Load)] [])) (FunctionDef inject ([] [(get_next_item (Subscript (Name Callable Load) (Tuple [(ConstantEllipsis ()) (Name str Load)] Load) Load) ())] [] [] [] [] []) [(Expr (ConstantEllipsis ()))] [] (ConstantNone ()) ()) (FunctionDef foo ([] [(x (ConstantEllipsis ()) ())] [] [] [] [] []) [(Expr (ConstantEllipsis ()))] [] (ConstantNone ()) ()) (ClassDef flow [] [] [(FunctionDef __understand__ ([] [(self () ()) (name (Name str Load) ()) (value (ConstantEllipsis ()) ())] [] [] [] [] []) [(Expr (ConstantEllipsis ()))] [] (ConstantNone ()) ())] []) (FunctionDef foo ([] [(x () ())] [] [] [] [] [(ConstantEllipsis ())]) [(Return (Name x Load))] [] () ()) (FunctionDef test ([] [] [] [] [] [] []) [(Expr (ConstantEllipsis ()))] [] () ()) (ClassDef Todo [] [] [(Expr (ConstantEllipsis ()))] []) (Assign [(Name x Store)] (List [(ConstantInt 1 ()) (List [(ConstantInt 2 ()) (List [(ConstantEllipsis ())] Load) (ConstantInt 3 ())] Load)] Load) ()) (Assign [(Name l Store)] (List [(ConstantEllipsis ()) (ConstantInt 1 ()) (ConstantInt 2 ()) (ConstantInt 3 ())] Load) ()) (If (Compare (Name x Load) Is [(ConstantEllipsis ())]) [(Pass)] []) (FunctionDef partial ([] [(func (Subscript (Name Callable Load) (Tuple [(ConstantEllipsis ()) (Name str Load)] Load) Load) ())] [(args () ())] [] [] [] []) [(Pass)] [] (Subscript (Name Callable Load) (Tuple [(ConstantEllipsis ()) (Name str Load)] Load) Load) ()) (ClassDef xyz [] [] [(AnnAssign (Name abc Store) (Name str Load) (ConstantEllipsis ()) 1) (FunctionDef __init__ ([] [(self () ()) (name (Name str Load) ())] [] [] [] [] [(ConstantEllipsis ())]) [(Expr (ConstantEllipsis ()))] [] (ConstantNone ()) ())] [])] [])
+(Module
+    [(Import
+        [(numpy
+        np)]
+    )
+    (ImportFrom
+        typing
+        [(Callable
+        ())]
+        0
+    )
+    (Assign
+        [(Name
+            array
+            Store
+        )]
+        (Call
+            (Attribute
+                (Attribute
+                    (Name
+                        np
+                        Load
+                    )
+                    random
+                    Load
+                )
+                rand
+                Load
+            )
+            [(ConstantInt
+                2
+                ()
+            )
+            (ConstantInt
+                2
+                ()
+            )
+            (ConstantInt
+                2
+                ()
+            )
+            (ConstantInt
+                2
+                ()
+            )]
+            []
+        )
+        ()
+    )
+    (Expr
+        (Call
+            (Name
+                print
+                Load
+            )
+            [(Subscript
+                (Name
+                    array
+                    Load
+                )
+                (Tuple
+                    [(ConstantEllipsis
+                        ()
+                    )
+                    (ConstantInt
+                        0
+                        ()
+                    )]
+                    Load
+                )
+                Load
+            )]
+            []
+        )
+    )
+    (Expr
+        (Call
+            (Name
+                print
+                Load
+            )
+            [(Subscript
+                (Name
+                    array
+                    Load
+                )
+                (Tuple
+                    [(Name
+                        Ellipsis
+                        Load
+                    )
+                    (ConstantInt
+                        0
+                        ()
+                    )]
+                    Load
+                )
+                Load
+            )]
+            []
+        )
+    )
+    (FunctionDef
+        inject
+        ([]
+        [(get_next_item
+        (Subscript
+            (Name
+                Callable
+                Load
+            )
+            (Tuple
+                [(ConstantEllipsis
+                    ()
+                )
+                (Name
+                    str
+                    Load
+                )]
+                Load
+            )
+            Load
+        )
+        ())]
+        []
+        []
+        []
+        []
+        [])
+        [(Expr
+            (ConstantEllipsis
+                ()
+            )
+        )]
+        []
+        (ConstantNone
+            ()
+        )
+        ()
+    )
+    (FunctionDef
+        foo
+        ([]
+        [(x
+        (ConstantEllipsis
+            ()
+        )
+        ())]
+        []
+        []
+        []
+        []
+        [])
+        [(Expr
+            (ConstantEllipsis
+                ()
+            )
+        )]
+        []
+        (ConstantNone
+            ()
+        )
+        ()
+    )
+    (ClassDef
+        flow
+        []
+        []
+        [(FunctionDef
+            __understand__
+            ([]
+            [(self
+            ()
+            ())
+            (name
+            (Name
+                str
+                Load
+            )
+            ())
+            (value
+            (ConstantEllipsis
+                ()
+            )
+            ())]
+            []
+            []
+            []
+            []
+            [])
+            [(Expr
+                (ConstantEllipsis
+                    ()
+                )
+            )]
+            []
+            (ConstantNone
+                ()
+            )
+            ()
+        )]
+        []
+    )
+    (FunctionDef
+        foo
+        ([]
+        [(x
+        ()
+        ())]
+        []
+        []
+        []
+        []
+        [(ConstantEllipsis
+            ()
+        )])
+        [(Return
+            (Name
+                x
+                Load
+            )
+        )]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        test
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(Expr
+            (ConstantEllipsis
+                ()
+            )
+        )]
+        []
+        ()
+        ()
+    )
+    (ClassDef
+        Todo
+        []
+        []
+        [(Expr
+            (ConstantEllipsis
+                ()
+            )
+        )]
+        []
+    )
+    (Assign
+        [(Name
+            x
+            Store
+        )]
+        (List
+            [(ConstantInt
+                1
+                ()
+            )
+            (List
+                [(ConstantInt
+                    2
+                    ()
+                )
+                (List
+                    [(ConstantEllipsis
+                        ()
+                    )]
+                    Load
+                )
+                (ConstantInt
+                    3
+                    ()
+                )]
+                Load
+            )]
+            Load
+        )
+        ()
+    )
+    (Assign
+        [(Name
+            l
+            Store
+        )]
+        (List
+            [(ConstantEllipsis
+                ()
+            )
+            (ConstantInt
+                1
+                ()
+            )
+            (ConstantInt
+                2
+                ()
+            )
+            (ConstantInt
+                3
+                ()
+            )]
+            Load
+        )
+        ()
+    )
+    (If
+        (Compare
+            (Name
+                x
+                Load
+            )
+            Is
+            [(ConstantEllipsis
+                ()
+            )]
+        )
+        [(Pass)]
+        []
+    )
+    (FunctionDef
+        partial
+        ([]
+        [(func
+        (Subscript
+            (Name
+                Callable
+                Load
+            )
+            (Tuple
+                [(ConstantEllipsis
+                    ()
+                )
+                (Name
+                    str
+                    Load
+                )]
+                Load
+            )
+            Load
+        )
+        ())]
+        [(args
+        ()
+        ())]
+        []
+        []
+        []
+        [])
+        [(Pass)]
+        []
+        (Subscript
+            (Name
+                Callable
+                Load
+            )
+            (Tuple
+                [(ConstantEllipsis
+                    ()
+                )
+                (Name
+                    str
+                    Load
+                )]
+                Load
+            )
+            Load
+        )
+        ()
+    )
+    (ClassDef
+        xyz
+        []
+        []
+        [(AnnAssign
+            (Name
+                abc
+                Store
+            )
+            (Name
+                str
+                Load
+            )
+            (ConstantEllipsis
+                ()
+            )
+            1
+        )
+        (FunctionDef
+            __init__
+            ([]
+            [(self
+            ()
+            ())
+            (name
+            (Name
+                str
+                Load
+            )
+            ())]
+            []
+            []
+            []
+            []
+            [(ConstantEllipsis
+                ()
+            )])
+            [(Expr
+                (ConstantEllipsis
+                    ()
+                )
+            )]
+            []
+            (ConstantNone
+                ()
+            )
+            ()
+        )]
+        []
+    )]
+    []
+)
diff --git a/tests/reference/ast-expr1-1e8f7b1.json b/tests/reference/ast-expr1-1e8f7b1.json
index b1276cb3a2..004b2a39e0 100644
--- a/tests/reference/ast-expr1-1e8f7b1.json
+++ b/tests/reference/ast-expr1-1e8f7b1.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "ast-expr1-1e8f7b1.stdout",
-    "stdout_hash": "90844a048ae067efda9770777e17f963b509403c42080e30b305c542",
+    "stdout_hash": "8de807242a73633d63f3e92bed88eacdd9f283f479d9adf11fefb1fd",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/ast-expr1-1e8f7b1.stdout b/tests/reference/ast-expr1-1e8f7b1.stdout
index 8ae3fe7626..c123e471ca 100644
--- a/tests/reference/ast-expr1-1e8f7b1.stdout
+++ b/tests/reference/ast-expr1-1e8f7b1.stdout
@@ -1 +1,124 @@
-(Module [(FunctionDef test_namedexpr ([] [] [] [] [] [] []) [(AnnAssign (Name a Store) (Name i32 Load) () 1) (AnnAssign (Name x Store) (Name i32 Load) () 1) (AnnAssign (Name y Store) (Name i32 Load) () 1) (Assign [(Name x Store)] (NamedExpr (Name y Store) (ConstantInt 0 ())) ()) (If (NamedExpr (Name a Store) (Call (Name ord Load) [(ConstantStr "3" ())] [])) [(Assign [(Name x Store)] (ConstantInt 1 ()) ())] []) (While (NamedExpr (Name a Store) (ConstantInt 1 ())) [(Assign [(Name y Store)] (ConstantInt 1 ()) ())] [])] [] () ())] [])
+(Module
+    [(FunctionDef
+        test_namedexpr
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(AnnAssign
+            (Name
+                a
+                Store
+            )
+            (Name
+                i32
+                Load
+            )
+            ()
+            1
+        )
+        (AnnAssign
+            (Name
+                x
+                Store
+            )
+            (Name
+                i32
+                Load
+            )
+            ()
+            1
+        )
+        (AnnAssign
+            (Name
+                y
+                Store
+            )
+            (Name
+                i32
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                x
+                Store
+            )]
+            (NamedExpr
+                (Name
+                    y
+                    Store
+                )
+                (ConstantInt
+                    0
+                    ()
+                )
+            )
+            ()
+        )
+        (If
+            (NamedExpr
+                (Name
+                    a
+                    Store
+                )
+                (Call
+                    (Name
+                        ord
+                        Load
+                    )
+                    [(ConstantStr
+                        "3"
+                        ()
+                    )]
+                    []
+                )
+            )
+            [(Assign
+                [(Name
+                    x
+                    Store
+                )]
+                (ConstantInt
+                    1
+                    ()
+                )
+                ()
+            )]
+            []
+        )
+        (While
+            (NamedExpr
+                (Name
+                    a
+                    Store
+                )
+                (ConstantInt
+                    1
+                    ()
+                )
+            )
+            [(Assign
+                [(Name
+                    y
+                    Store
+                )]
+                (ConstantInt
+                    1
+                    ()
+                )
+                ()
+            )]
+            []
+        )]
+        []
+        ()
+        ()
+    )]
+    []
+)
diff --git a/tests/reference/ast-expr10-a8d646d.json b/tests/reference/ast-expr10-a8d646d.json
index 7de18a2de3..8f0222f7aa 100644
--- a/tests/reference/ast-expr10-a8d646d.json
+++ b/tests/reference/ast-expr10-a8d646d.json
@@ -2,11 +2,11 @@
     "basename": "ast-expr10-a8d646d",
     "cmd": "lpython --show-ast --no-color {infile} -o {outfile}",
     "infile": "tests/expr10.py",
-    "infile_hash": "2c90a0c7da6ba455ad6b7c1d43ffd578e78551f9b3e792144b6dd1cd",
+    "infile_hash": "7eb1dd6ad27fcc091e18c4447fb7a56c659565bbdb57f567b68f4a58",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "ast-expr10-a8d646d.stdout",
-    "stdout_hash": "334f50d8cb1e494f547682b1e8f2294f9176d051432f15c6182531a8",
+    "stdout_hash": "b807dc54b7741e61fd091d70d83c68d7c58c2c38fd5a22b279217916",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/ast-expr10-a8d646d.stdout b/tests/reference/ast-expr10-a8d646d.stdout
index 79e138cbae..53ef4ebca1 100644
--- a/tests/reference/ast-expr10-a8d646d.stdout
+++ b/tests/reference/ast-expr10-a8d646d.stdout
@@ -1 +1,434 @@
-(Module [(ImportFrom ltypes [(i32 ()) (f32 ()) (c32 ())] 0) (FunctionDef test_UnaryOp ([] [] [] [] [] [] []) [(AnnAssign (Name a Store) (Name i32 Load) () 1) (Assign [(Name a Store)] (UnaryOp UAdd (ConstantInt 4 ())) ()) (Assign [(Name a Store)] (UnaryOp USub (ConstantInt 500 ())) ()) (Assign [(Name a Store)] (UnaryOp Invert (ConstantInt 5 ())) ()) (AnnAssign (Name b Store) (Name bool Load) () 1) (Assign [(Name b Store)] (UnaryOp Not (ConstantInt 5 ())) ()) (Assign [(Name b Store)] (UnaryOp Not (UnaryOp USub (ConstantInt 1 ()))) ()) (Assign [(Name b Store)] (UnaryOp Not (ConstantInt 0 ())) ()) (AnnAssign (Name f Store) (Name f32 Load) () 1) (Assign [(Name f Store)] (UnaryOp UAdd (Call (Name f32 Load) [(ConstantFloat 1.000000 ())] [])) ()) (Assign [(Name f Store)] (UnaryOp USub (Call (Name f32 Load) [(ConstantFloat 183745.534000 ())] [])) ()) (AnnAssign (Name b1 Store) (Name bool Load) () 1) (AnnAssign (Name b2 Store) (Name bool Load) () 1) (AnnAssign (Name b3 Store) (Name bool Load) () 1) (Assign [(Name b1 Store)] (ConstantBool .true. ()) ()) (Assign [(Name b2 Store)] (UnaryOp Not (ConstantBool .false. ())) ()) (Assign [(Name b3 Store)] (UnaryOp Not (Name b2 Load)) ()) (Assign [(Name a Store)] (UnaryOp UAdd (ConstantBool .true. ())) ()) (Assign [(Name a Store)] (UnaryOp USub (ConstantBool .false. ())) ()) (Assign [(Name a Store)] (UnaryOp Invert (ConstantBool .true. ())) ()) (AnnAssign (Name c Store) (Name c32 Load) () 1) (Assign [(Name c Store)] (UnaryOp UAdd (Call (Name c32 Load) [(Call (Name complex Load) [(ConstantInt 1 ()) (ConstantInt 2 ())] [])] [])) ()) (Assign [(Name c Store)] (UnaryOp USub (Call (Name c32 Load) [(Call (Name complex Load) [(ConstantInt 3 ()) (ConstantFloat 65.000000 ())] [])] [])) ()) (Assign [(Name b1 Store)] (UnaryOp Not (Call (Name complex Load) [(ConstantInt 3 ()) (ConstantInt 4 ())] [])) ()) (Assign [(Name b2 Store)] (UnaryOp Not (Call (Name complex Load) [(ConstantInt 0 ()) (ConstantInt 0 ())] [])) ())] [] () ())] [])
+(Module
+    [(ImportFrom
+        lpython
+        [(i32
+        ())
+        (f32
+        ())
+        (c32
+        ())]
+        0
+    )
+    (FunctionDef
+        test_UnaryOp
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(AnnAssign
+            (Name
+                a
+                Store
+            )
+            (Name
+                i32
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (UnaryOp
+                UAdd
+                (ConstantInt
+                    4
+                    ()
+                )
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (UnaryOp
+                USub
+                (ConstantInt
+                    500
+                    ()
+                )
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (UnaryOp
+                Invert
+                (ConstantInt
+                    5
+                    ()
+                )
+            )
+            ()
+        )
+        (AnnAssign
+            (Name
+                b
+                Store
+            )
+            (Name
+                bool
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                b
+                Store
+            )]
+            (UnaryOp
+                Not
+                (ConstantInt
+                    5
+                    ()
+                )
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                b
+                Store
+            )]
+            (UnaryOp
+                Not
+                (UnaryOp
+                    USub
+                    (ConstantInt
+                        1
+                        ()
+                    )
+                )
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                b
+                Store
+            )]
+            (UnaryOp
+                Not
+                (ConstantInt
+                    0
+                    ()
+                )
+            )
+            ()
+        )
+        (AnnAssign
+            (Name
+                f
+                Store
+            )
+            (Name
+                f32
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                f
+                Store
+            )]
+            (UnaryOp
+                UAdd
+                (Call
+                    (Name
+                        f32
+                        Load
+                    )
+                    [(ConstantFloat
+                        1.000000
+                        ()
+                    )]
+                    []
+                )
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                f
+                Store
+            )]
+            (UnaryOp
+                USub
+                (Call
+                    (Name
+                        f32
+                        Load
+                    )
+                    [(ConstantFloat
+                        183745.534000
+                        ()
+                    )]
+                    []
+                )
+            )
+            ()
+        )
+        (AnnAssign
+            (Name
+                b1
+                Store
+            )
+            (Name
+                bool
+                Load
+            )
+            ()
+            1
+        )
+        (AnnAssign
+            (Name
+                b2
+                Store
+            )
+            (Name
+                bool
+                Load
+            )
+            ()
+            1
+        )
+        (AnnAssign
+            (Name
+                b3
+                Store
+            )
+            (Name
+                bool
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                b1
+                Store
+            )]
+            (ConstantBool
+                .true.
+                ()
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                b2
+                Store
+            )]
+            (UnaryOp
+                Not
+                (ConstantBool
+                    .false.
+                    ()
+                )
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                b3
+                Store
+            )]
+            (UnaryOp
+                Not
+                (Name
+                    b2
+                    Load
+                )
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (UnaryOp
+                UAdd
+                (ConstantBool
+                    .true.
+                    ()
+                )
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (UnaryOp
+                USub
+                (ConstantBool
+                    .false.
+                    ()
+                )
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (UnaryOp
+                Invert
+                (ConstantBool
+                    .true.
+                    ()
+                )
+            )
+            ()
+        )
+        (AnnAssign
+            (Name
+                c
+                Store
+            )
+            (Name
+                c32
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                c
+                Store
+            )]
+            (UnaryOp
+                UAdd
+                (Call
+                    (Name
+                        c32
+                        Load
+                    )
+                    [(Call
+                        (Name
+                            complex
+                            Load
+                        )
+                        [(ConstantInt
+                            1
+                            ()
+                        )
+                        (ConstantInt
+                            2
+                            ()
+                        )]
+                        []
+                    )]
+                    []
+                )
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                c
+                Store
+            )]
+            (UnaryOp
+                USub
+                (Call
+                    (Name
+                        c32
+                        Load
+                    )
+                    [(Call
+                        (Name
+                            complex
+                            Load
+                        )
+                        [(ConstantInt
+                            3
+                            ()
+                        )
+                        (ConstantFloat
+                            65.000000
+                            ()
+                        )]
+                        []
+                    )]
+                    []
+                )
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                b1
+                Store
+            )]
+            (UnaryOp
+                Not
+                (Call
+                    (Name
+                        complex
+                        Load
+                    )
+                    [(ConstantInt
+                        3
+                        ()
+                    )
+                    (ConstantInt
+                        4
+                        ()
+                    )]
+                    []
+                )
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                b2
+                Store
+            )]
+            (UnaryOp
+                Not
+                (Call
+                    (Name
+                        complex
+                        Load
+                    )
+                    [(ConstantInt
+                        0
+                        ()
+                    )
+                    (ConstantInt
+                        0
+                        ()
+                    )]
+                    []
+                )
+            )
+            ()
+        )]
+        []
+        ()
+        ()
+    )]
+    []
+)
diff --git a/tests/reference/ast-expr11-1d29f78.json b/tests/reference/ast-expr11-1d29f78.json
deleted file mode 100644
index 237a8ffe63..0000000000
--- a/tests/reference/ast-expr11-1d29f78.json
+++ /dev/null
@@ -1,13 +0,0 @@
-{
-    "basename": "ast-expr11-1d29f78",
-    "cmd": "lpython --show-ast --no-color {infile} -o {outfile}",
-    "infile": "tests/expr11.py",
-    "infile_hash": "940f2d32759315dfb8d54ea50819f2bfef9737e486615703609fd47a",
-    "outfile": null,
-    "outfile_hash": null,
-    "stdout": "ast-expr11-1d29f78.stdout",
-    "stdout_hash": "d7c2e86dbc750f7d8b235d36013021c28d3e8d4a7219ea65057196b2",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
-}
\ No newline at end of file
diff --git a/tests/reference/ast-expr11-1d29f78.stdout b/tests/reference/ast-expr11-1d29f78.stdout
deleted file mode 100644
index 9f4c0bf156..0000000000
--- a/tests/reference/ast-expr11-1d29f78.stdout
+++ /dev/null
@@ -1 +0,0 @@
-(Module [(FunctionDef test_StrOp_repeat ([] [] [] [] [] [] []) [(AnnAssign (Name s Store) (Name str Load) () 1) (Assign [(Name s Store)] (BinOp (ConstantStr "a" ()) Mult (ConstantInt 2 ())) ()) (Assign [(Name s Store)] (BinOp (ConstantStr "a" ()) Mult (UnaryOp USub (ConstantInt 1 ()))) ()) (Assign [(Name s Store)] (BinOp (ConstantStr "test" ()) Mult (ConstantInt 5 ())) ()) (Assign [(Name s Store)] (BinOp (ConstantInt 4 ()) Mult (ConstantStr "bb" ())) ()) (Assign [(Name s Store)] (BinOp (UnaryOp USub (ConstantInt 40 ())) Mult (ConstantStr "bb" ())) ()) (Assign [(Name s Store)] (BinOp (BinOp (ConstantInt 3 ()) Mult (ConstantStr "a" ())) Mult (ConstantInt 3 ())) ())] [] () ())] [])
diff --git a/tests/reference/ast-expr12-adaecda.json b/tests/reference/ast-expr12-adaecda.json
index b9ed4f40d3..6fa2133b08 100644
--- a/tests/reference/ast-expr12-adaecda.json
+++ b/tests/reference/ast-expr12-adaecda.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "ast-expr12-adaecda.stdout",
-    "stdout_hash": "c969b75d4561a9be66a2dccb7c2e235d695b1733506158b034e8536c",
+    "stdout_hash": "b4fdb14f66196f4692126efb3b349707d3f862d6c045b61125af41cb",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/ast-expr12-adaecda.stdout b/tests/reference/ast-expr12-adaecda.stdout
index d5c30fe59a..38eaedd025 100644
--- a/tests/reference/ast-expr12-adaecda.stdout
+++ b/tests/reference/ast-expr12-adaecda.stdout
@@ -1 +1,149 @@
-(Module [(FunctionDef test ([] [(a (Name i32 Load) ()) (b (Name i32 Load) ())] [] [] [] [] []) [(Return (BinOp (Name a Load) Pow (Name b Load)))] [] (Name i32 Load) ()) (FunctionDef check ([] [] [] [] [] [] []) [(AnnAssign (Name a Store) (Name i32 Load) () 1) (Assign [(Name a Store)] (Call (Name test Load) [(ConstantInt 2 ()) (ConstantInt 2 ())] []) ()) (Return (Name a Load))] [] (Name i32 Load) ()) (FunctionDef main0 ([] [] [] [] [] [] []) [(AnnAssign (Name x Store) (Name i32 Load) () 1) (Assign [(Name x Store)] (Call (Name check Load) [] []) ())] [] () ()) (Expr (Call (Name main0 Load) [] []))] [])
+(Module
+    [(FunctionDef
+        test
+        ([]
+        [(a
+        (Name
+            i32
+            Load
+        )
+        ())
+        (b
+        (Name
+            i32
+            Load
+        )
+        ())]
+        []
+        []
+        []
+        []
+        [])
+        [(Return
+            (BinOp
+                (Name
+                    a
+                    Load
+                )
+                Pow
+                (Name
+                    b
+                    Load
+                )
+            )
+        )]
+        []
+        (Name
+            i32
+            Load
+        )
+        ()
+    )
+    (FunctionDef
+        check
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(AnnAssign
+            (Name
+                a
+                Store
+            )
+            (Name
+                i32
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Call
+                (Name
+                    test
+                    Load
+                )
+                [(ConstantInt
+                    2
+                    ()
+                )
+                (ConstantInt
+                    2
+                    ()
+                )]
+                []
+            )
+            ()
+        )
+        (Return
+            (Name
+                a
+                Load
+            )
+        )]
+        []
+        (Name
+            i32
+            Load
+        )
+        ()
+    )
+    (FunctionDef
+        main0
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(AnnAssign
+            (Name
+                x
+                Store
+            )
+            (Name
+                i32
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                x
+                Store
+            )]
+            (Call
+                (Name
+                    check
+                    Load
+                )
+                []
+                []
+            )
+            ()
+        )]
+        []
+        ()
+        ()
+    )
+    (Expr
+        (Call
+            (Name
+                main0
+                Load
+            )
+            []
+            []
+        )
+    )]
+    []
+)
diff --git a/tests/reference/ast-expr13-c35ace1.json b/tests/reference/ast-expr13-c35ace1.json
index 5a2c133700..8da96d5109 100644
--- a/tests/reference/ast-expr13-c35ace1.json
+++ b/tests/reference/ast-expr13-c35ace1.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "ast-expr13-c35ace1.stdout",
-    "stdout_hash": "4eefbd260e67134f1a3e011aaea29567cd6dde2f94e0c05e952d7101",
+    "stdout_hash": "e92fa43a3f8dd1bdf555b71e6f5a263a5a5c10a8f63582fb57d04ce6",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/ast-expr13-c35ace1.stdout b/tests/reference/ast-expr13-c35ace1.stdout
index 345eda34fd..3fd56b3af2 100644
--- a/tests/reference/ast-expr13-c35ace1.stdout
+++ b/tests/reference/ast-expr13-c35ace1.stdout
@@ -1 +1,374 @@
-(Module [(FunctionDef test_Compare ([] [] [] [] [] [] []) [(AnnAssign (Name a Store) (Name bool Load) () 1) (Assign [(Name a Store)] (Compare (ConstantInt 5 ()) Gt [(ConstantInt 4 ())]) ()) (Assign [(Name a Store)] (Compare (ConstantInt 5 ()) LtE [(ConstantInt 4 ())]) ()) (Assign [(Name a Store)] (Compare (ConstantInt 5 ()) Lt [(ConstantInt 4 ())]) ()) (Assign [(Name a Store)] (Compare (ConstantFloat 5.600000 ()) GtE [(ConstantFloat 5.599990 ())]) ()) (Assign [(Name a Store)] (Compare (ConstantFloat 3.300000 ()) Eq [(ConstantFloat 3.300000 ())]) ()) (Assign [(Name a Store)] (Compare (ConstantFloat 3.300000 ()) NotEq [(ConstantFloat 3.400000 ())]) ()) (Assign [(Name a Store)] (Compare (Call (Name complex Load) [(ConstantInt 3 ()) (ConstantInt 4 ())] []) Eq [(Call (Name complex Load) [(ConstantFloat 3.000000 ()) (ConstantFloat 4.000000 ())] [])]) ()) (Assign [(Name a Store)] (Compare (ConstantStr "abc" ()) Gt [(ConstantStr "abd" ())]) ()) (Assign [(Name a Store)] (Compare (ConstantStr "" ()) Lt [(ConstantStr "s" ())]) ()) (Assign [(Name a Store)] (Compare (ConstantStr "-abs" ()) GtE [(ConstantStr "abs" ())]) ()) (Assign [(Name a Store)] (Compare (ConstantStr "abcd" ()) LtE [(ConstantStr "abcde" ())]) ()) (Assign [(Name a Store)] (Compare (ConstantStr "abc" ()) Eq [(ConstantStr "abc" ())]) ()) (Assign [(Name a Store)] (Compare (ConstantStr "abc" ()) NotEq [(ConstantStr "abd" ())]) ()) (Assign [(Name a Store)] (Compare (ConstantStr "" ()) Eq [(ConstantStr "+" ())]) ()) (Assign [(Name a Store)] (Compare (ConstantBool .true. ()) Gt [(ConstantBool .false. ())]) ()) (Assign [(Name a Store)] (Compare (ConstantBool .true. ()) Eq [(ConstantBool .true. ())]) ()) (Assign [(Name a Store)] (Compare (ConstantBool .false. ()) NotEq [(ConstantBool .true. ())]) ()) (Assign [(Name a Store)] (Compare (ConstantBool .false. ()) GtE [(ConstantBool .true. ())]) ())] [] () ())] [])
+(Module
+    [(FunctionDef
+        test_Compare
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(AnnAssign
+            (Name
+                a
+                Store
+            )
+            (Name
+                bool
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Compare
+                (ConstantInt
+                    5
+                    ()
+                )
+                Gt
+                [(ConstantInt
+                    4
+                    ()
+                )]
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Compare
+                (ConstantInt
+                    5
+                    ()
+                )
+                LtE
+                [(ConstantInt
+                    4
+                    ()
+                )]
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Compare
+                (ConstantInt
+                    5
+                    ()
+                )
+                Lt
+                [(ConstantInt
+                    4
+                    ()
+                )]
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Compare
+                (ConstantFloat
+                    5.600000
+                    ()
+                )
+                GtE
+                [(ConstantFloat
+                    5.599990
+                    ()
+                )]
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Compare
+                (ConstantFloat
+                    3.300000
+                    ()
+                )
+                Eq
+                [(ConstantFloat
+                    3.300000
+                    ()
+                )]
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Compare
+                (ConstantFloat
+                    3.300000
+                    ()
+                )
+                NotEq
+                [(ConstantFloat
+                    3.400000
+                    ()
+                )]
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Compare
+                (Call
+                    (Name
+                        complex
+                        Load
+                    )
+                    [(ConstantInt
+                        3
+                        ()
+                    )
+                    (ConstantInt
+                        4
+                        ()
+                    )]
+                    []
+                )
+                Eq
+                [(Call
+                    (Name
+                        complex
+                        Load
+                    )
+                    [(ConstantFloat
+                        3.000000
+                        ()
+                    )
+                    (ConstantFloat
+                        4.000000
+                        ()
+                    )]
+                    []
+                )]
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Compare
+                (ConstantStr
+                    "abc"
+                    ()
+                )
+                Gt
+                [(ConstantStr
+                    "abd"
+                    ()
+                )]
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Compare
+                (ConstantStr
+                    ""
+                    ()
+                )
+                Lt
+                [(ConstantStr
+                    "s"
+                    ()
+                )]
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Compare
+                (ConstantStr
+                    "-abs"
+                    ()
+                )
+                GtE
+                [(ConstantStr
+                    "abs"
+                    ()
+                )]
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Compare
+                (ConstantStr
+                    "abcd"
+                    ()
+                )
+                LtE
+                [(ConstantStr
+                    "abcde"
+                    ()
+                )]
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Compare
+                (ConstantStr
+                    "abc"
+                    ()
+                )
+                Eq
+                [(ConstantStr
+                    "abc"
+                    ()
+                )]
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Compare
+                (ConstantStr
+                    "abc"
+                    ()
+                )
+                NotEq
+                [(ConstantStr
+                    "abd"
+                    ()
+                )]
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Compare
+                (ConstantStr
+                    ""
+                    ()
+                )
+                Eq
+                [(ConstantStr
+                    "+"
+                    ()
+                )]
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Compare
+                (ConstantBool
+                    .true.
+                    ()
+                )
+                Gt
+                [(ConstantBool
+                    .false.
+                    ()
+                )]
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Compare
+                (ConstantBool
+                    .true.
+                    ()
+                )
+                Eq
+                [(ConstantBool
+                    .true.
+                    ()
+                )]
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Compare
+                (ConstantBool
+                    .false.
+                    ()
+                )
+                NotEq
+                [(ConstantBool
+                    .true.
+                    ()
+                )]
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Compare
+                (ConstantBool
+                    .false.
+                    ()
+                )
+                GtE
+                [(ConstantBool
+                    .true.
+                    ()
+                )]
+            )
+            ()
+        )]
+        []
+        ()
+        ()
+    )]
+    []
+)
diff --git a/tests/reference/ast-expr2-6642d4a.json b/tests/reference/ast-expr2-6642d4a.json
index a322e2573e..779b2b5411 100644
--- a/tests/reference/ast-expr2-6642d4a.json
+++ b/tests/reference/ast-expr2-6642d4a.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "ast-expr2-6642d4a.stdout",
-    "stdout_hash": "c1b1fdf1c3bb69063de9c60f0398a89d5e8cba79ed6949093d0ee2fa",
+    "stdout_hash": "cf996ecb8e3abdced429c59eedcbd9943bf59bbf22dcfd79ef94f799",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/ast-expr2-6642d4a.stdout b/tests/reference/ast-expr2-6642d4a.stdout
index 57c3669931..73a7f49c76 100644
--- a/tests/reference/ast-expr2-6642d4a.stdout
+++ b/tests/reference/ast-expr2-6642d4a.stdout
@@ -1 +1,184 @@
-(Module [(FunctionDef test_boolOp ([] [] [] [] [] [] []) [(AnnAssign (Name a Store) (Name bool Load) () 1) (AnnAssign (Name b Store) (Name bool Load) () 1) (Assign [(Name a Store)] (ConstantBool .false. ()) ()) (Assign [(Name b Store)] (ConstantBool .true. ()) ()) (Assign [(Name a Store)] (BoolOp And [(Name a Load) (Name b Load)]) ()) (Assign [(Name b Store)] (BoolOp Or [(Name a Load) (ConstantBool .true. ())]) ()) (Assign [(Name a Store)] (BoolOp Or [(Name a Load) (Name b Load)]) ()) (Assign [(Name a Store)] (BoolOp And [(Name a Load) (Compare (Name b Load) Eq [(Name b Load)])]) ()) (Assign [(Name a Store)] (BoolOp And [(Name a Load) (Compare (Name b Load) NotEq [(Name b Load)])]) ()) (Assign [(Name a Store)] (BoolOp Or [(Name b Load) (Name b Load)]) ())] [] () ())] [])
+(Module
+    [(FunctionDef
+        test_boolOp
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(AnnAssign
+            (Name
+                a
+                Store
+            )
+            (Name
+                bool
+                Load
+            )
+            ()
+            1
+        )
+        (AnnAssign
+            (Name
+                b
+                Store
+            )
+            (Name
+                bool
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (ConstantBool
+                .false.
+                ()
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                b
+                Store
+            )]
+            (ConstantBool
+                .true.
+                ()
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (BoolOp
+                And
+                [(Name
+                    a
+                    Load
+                )
+                (Name
+                    b
+                    Load
+                )]
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                b
+                Store
+            )]
+            (BoolOp
+                Or
+                [(Name
+                    a
+                    Load
+                )
+                (ConstantBool
+                    .true.
+                    ()
+                )]
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (BoolOp
+                Or
+                [(Name
+                    a
+                    Load
+                )
+                (Name
+                    b
+                    Load
+                )]
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (BoolOp
+                And
+                [(Name
+                    a
+                    Load
+                )
+                (Compare
+                    (Name
+                        b
+                        Load
+                    )
+                    Eq
+                    [(Name
+                        b
+                        Load
+                    )]
+                )]
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (BoolOp
+                And
+                [(Name
+                    a
+                    Load
+                )
+                (Compare
+                    (Name
+                        b
+                        Load
+                    )
+                    NotEq
+                    [(Name
+                        b
+                        Load
+                    )]
+                )]
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (BoolOp
+                Or
+                [(Name
+                    b
+                    Load
+                )
+                (Name
+                    b
+                    Load
+                )]
+            )
+            ()
+        )]
+        []
+        ()
+        ()
+    )]
+    []
+)
diff --git a/tests/reference/ast-expr3-c3dcaab.json b/tests/reference/ast-expr3-c3dcaab.json
deleted file mode 100644
index 9b649ef517..0000000000
--- a/tests/reference/ast-expr3-c3dcaab.json
+++ /dev/null
@@ -1,13 +0,0 @@
-{
-    "basename": "ast-expr3-c3dcaab",
-    "cmd": "lpython --show-ast --no-color {infile} -o {outfile}",
-    "infile": "tests/expr3.py",
-    "infile_hash": "4a8058c143819d7115c7df976f933af3aab8ca921ca0f93262e2d2c2",
-    "outfile": null,
-    "outfile_hash": null,
-    "stdout": "ast-expr3-c3dcaab.stdout",
-    "stdout_hash": "792dd4727e4b9a1bfb5b2ccf709e090c0bee2f2b7b8730924d372e68",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
-}
\ No newline at end of file
diff --git a/tests/reference/ast-expr3-c3dcaab.stdout b/tests/reference/ast-expr3-c3dcaab.stdout
deleted file mode 100644
index 7c1dd7cac4..0000000000
--- a/tests/reference/ast-expr3-c3dcaab.stdout
+++ /dev/null
@@ -1 +0,0 @@
-(Module [(ImportFrom ltypes [(i32 ()) (f32 ())] 0) (FunctionDef test_cast ([] [] [] [] [] [] []) [(AnnAssign (Name a Store) (Name i32 Load) () 1) (AnnAssign (Name b Store) (Name f32 Load) () 1) (Assign [(Name a Store)] (ConstantInt 2 ()) ()) (Assign [(Name b Store)] (Call (Name f32 Load) [(ConstantFloat 4.200000 ())] []) ()) (AugAssign (Name a Store) Mult (Name b Load)) (AugAssign (Name b Store) Add (ConstantInt 1 ())) (Assign [(Name a Store)] (ConstantInt 5 ()) ()) (AugAssign (Name a Store) Sub (ConstantFloat 3.900000 ())) (AugAssign (Name a Store) Div (Name b Load)) (Assign [(Name b Store)] (BinOp (ConstantInt 3 ()) Div (ConstantInt 4 ())) ()) (If (Compare (Name a Load) Lt [(Name b Load)]) [(Expr (Call (Name print Load) [(ConstantStr "a < b" ())] []))] [])] [] () ())] [])
diff --git a/tests/reference/ast-expr4-49316cb.json b/tests/reference/ast-expr4-49316cb.json
index 616e5f940c..f60410170c 100644
--- a/tests/reference/ast-expr4-49316cb.json
+++ b/tests/reference/ast-expr4-49316cb.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "ast-expr4-49316cb.stdout",
-    "stdout_hash": "0021b494511ff634740b74baed3fcad55b0559c874433a63756f257d",
+    "stdout_hash": "8f1ed7fd76dff70c8cca71bda8f528f3e12bda9bb716e3e32ed58657",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/ast-expr4-49316cb.stdout b/tests/reference/ast-expr4-49316cb.stdout
index 295392bbee..e74c2e02ca 100644
--- a/tests/reference/ast-expr4-49316cb.stdout
+++ b/tests/reference/ast-expr4-49316cb.stdout
@@ -1 +1,72 @@
-(Module [(FunctionDef test_del ([] [] [] [] [] [] []) [(AnnAssign (Name a Store) (Name i32 Load) () 1) (AnnAssign (Name b Store) (Name i32 Load) () 1) (Assign [(Name a Store)] (ConstantInt 4 ()) ()) (Assign [(Name b Store)] (ConstantInt 20 ()) ()) (Delete [(Name a Del) (Name b Del)])] [] () ())] [])
+(Module
+    [(FunctionDef
+        test_del
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(AnnAssign
+            (Name
+                a
+                Store
+            )
+            (Name
+                i32
+                Load
+            )
+            ()
+            1
+        )
+        (AnnAssign
+            (Name
+                b
+                Store
+            )
+            (Name
+                i32
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (ConstantInt
+                4
+                ()
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                b
+                Store
+            )]
+            (ConstantInt
+                20
+                ()
+            )
+            ()
+        )
+        (Delete
+            [(Name
+                a
+                Del
+            )
+            (Name
+                b
+                Del
+            )]
+        )]
+        []
+        ()
+        ()
+    )]
+    []
+)
diff --git a/tests/reference/ast-expr5-bbc6e71.json b/tests/reference/ast-expr5-bbc6e71.json
deleted file mode 100644
index fff1a28f34..0000000000
--- a/tests/reference/ast-expr5-bbc6e71.json
+++ /dev/null
@@ -1,13 +0,0 @@
-{
-    "basename": "ast-expr5-bbc6e71",
-    "cmd": "lpython --show-ast --no-color {infile} -o {outfile}",
-    "infile": "tests/expr5.py",
-    "infile_hash": "7bbb5f9dacb13556f99de8f2969f9089235fea372fc2f43fc9c4bb18",
-    "outfile": null,
-    "outfile_hash": null,
-    "stdout": "ast-expr5-bbc6e71.stdout",
-    "stdout_hash": "7061cd6dc59a9e0febea90f570ea6e1e43ca09216fa16b9bce10b0ea",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
-}
\ No newline at end of file
diff --git a/tests/reference/ast-expr5-bbc6e71.stdout b/tests/reference/ast-expr5-bbc6e71.stdout
deleted file mode 100644
index 994c9a0a21..0000000000
--- a/tests/reference/ast-expr5-bbc6e71.stdout
+++ /dev/null
@@ -1 +0,0 @@
-(Module [(FunctionDef test_StrOp_concat ([] [] [] [] [] [] []) [(AnnAssign (Name s Store) (Name str Load) () 1) (Assign [(Name s Store)] (BinOp (ConstantStr "3" ()) Add (ConstantStr "4" ())) ()) (Assign [(Name s Store)] (BinOp (ConstantStr "a " ()) Add (ConstantStr "test" ())) ()) (Assign [(Name s Store)] (BinOp (BinOp (ConstantStr "test" ()) Add (ConstantStr "test" ())) Add (ConstantStr "test" ())) ())] [] () ())] [])
diff --git a/tests/reference/ast-expr6-0b12a67.json b/tests/reference/ast-expr6-0b12a67.json
index ac0ef6de89..5b9e9c3ec4 100644
--- a/tests/reference/ast-expr6-0b12a67.json
+++ b/tests/reference/ast-expr6-0b12a67.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "ast-expr6-0b12a67.stdout",
-    "stdout_hash": "5020a718216a28527f1e957853759e14fd83d2b85625ddd4c4057469",
+    "stdout_hash": "52edb5a692f7bc13f8c9642228f19a7e93960271cd3513a26a97df5d",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/ast-expr6-0b12a67.stdout b/tests/reference/ast-expr6-0b12a67.stdout
index 3e099f8e5e..860f7cd954 100644
--- a/tests/reference/ast-expr6-0b12a67.stdout
+++ b/tests/reference/ast-expr6-0b12a67.stdout
@@ -1 +1,119 @@
-(Module [(FunctionDef test_ifexp ([] [] [] [] [] [] []) [(AnnAssign (Name a Store) (Name i32 Load) () 1) (AnnAssign (Name b Store) (Name i32 Load) () 1) (AnnAssign (Name c Store) (Name bool Load) () 1) (Assign [(Name a Store)] (ConstantInt 2 ()) ()) (Assign [(Name b Store)] (IfExp (Compare (Name a Load) Eq [(ConstantInt 2 ())]) (ConstantInt 6 ()) (ConstantInt 8 ())) ()) (Assign [(Name c Store)] (IfExp (Compare (Name b Load) Gt [(ConstantInt 5 ())]) (ConstantBool .true. ()) (ConstantBool .false. ())) ())] [] () ())] [])
+(Module
+    [(FunctionDef
+        test_ifexp
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(AnnAssign
+            (Name
+                a
+                Store
+            )
+            (Name
+                i32
+                Load
+            )
+            ()
+            1
+        )
+        (AnnAssign
+            (Name
+                b
+                Store
+            )
+            (Name
+                i32
+                Load
+            )
+            ()
+            1
+        )
+        (AnnAssign
+            (Name
+                c
+                Store
+            )
+            (Name
+                bool
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (ConstantInt
+                2
+                ()
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                b
+                Store
+            )]
+            (IfExp
+                (Compare
+                    (Name
+                        a
+                        Load
+                    )
+                    Eq
+                    [(ConstantInt
+                        2
+                        ()
+                    )]
+                )
+                (ConstantInt
+                    6
+                    ()
+                )
+                (ConstantInt
+                    8
+                    ()
+                )
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                c
+                Store
+            )]
+            (IfExp
+                (Compare
+                    (Name
+                        b
+                        Load
+                    )
+                    Gt
+                    [(ConstantInt
+                        5
+                        ()
+                    )]
+                )
+                (ConstantBool
+                    .true.
+                    ()
+                )
+                (ConstantBool
+                    .false.
+                    ()
+                )
+            )
+            ()
+        )]
+        []
+        ()
+        ()
+    )]
+    []
+)
diff --git a/tests/reference/ast-expr7-fe52776.json b/tests/reference/ast-expr7-fe52776.json
index 732c707a1b..f24345a89e 100644
--- a/tests/reference/ast-expr7-fe52776.json
+++ b/tests/reference/ast-expr7-fe52776.json
@@ -2,11 +2,11 @@
     "basename": "ast-expr7-fe52776",
     "cmd": "lpython --show-ast --no-color {infile} -o {outfile}",
     "infile": "tests/expr7.py",
-    "infile_hash": "7e10fd3558ed9a0c805fd1f27740f6cc539142917841585c7679779b",
+    "infile_hash": "7ef1383d1798621ee35adb7296bfe66dcdc08a21ac8dc86b9ce42878",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "ast-expr7-fe52776.stdout",
-    "stdout_hash": "af621183a21cfc4726da5875578cd9cd5a6b943dde44c91d9864947d",
+    "stdout_hash": "5bf8b877e7cfee7d365d1c03622cced374fd006625e861154c8edc1b",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/ast-expr7-fe52776.stdout b/tests/reference/ast-expr7-fe52776.stdout
index d6366f24e5..29e6e4a147 100644
--- a/tests/reference/ast-expr7-fe52776.stdout
+++ b/tests/reference/ast-expr7-fe52776.stdout
@@ -1 +1,204 @@
-(Module [(ImportFrom ltypes [(i32 ())] 0) (FunctionDef test_pow ([] [] [] [] [] [] []) [(AnnAssign (Name a Store) (Name i32 Load) () 1) (Assign [(Name a Store)] (Call (Name i32 Load) [(Call (Name pow Load) [(ConstantInt 2 ()) (ConstantInt 2 ())] [])] []) ())] [] () ()) (FunctionDef test_pow_1 ([] [(a (Name i32 Load) ()) (b (Name i32 Load) ())] [] [] [] [] []) [(AnnAssign (Name res Store) (Name i32 Load) () 1) (Assign [(Name res Store)] (Call (Name i32 Load) [(Call (Name pow Load) [(Name a Load) (Name b Load)] [])] []) ()) (Return (Name res Load))] [] (Name i32 Load) ()) (FunctionDef main0 ([] [] [] [] [] [] []) [(Expr (Call (Name test_pow Load) [] [])) (AnnAssign (Name c Store) (Name i32 Load) () 1) (Assign [(Name c Store)] (Call (Name test_pow_1 Load) [(ConstantInt 1 ()) (ConstantInt 2 ())] []) ())] [] () ()) (Expr (Call (Name main0 Load) [] []))] [])
+(Module
+    [(ImportFrom
+        lpython
+        [(i32
+        ())]
+        0
+    )
+    (FunctionDef
+        test_pow
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(AnnAssign
+            (Name
+                a
+                Store
+            )
+            (Name
+                i32
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Call
+                (Name
+                    i32
+                    Load
+                )
+                [(Call
+                    (Name
+                        pow
+                        Load
+                    )
+                    [(ConstantInt
+                        2
+                        ()
+                    )
+                    (ConstantInt
+                        2
+                        ()
+                    )]
+                    []
+                )]
+                []
+            )
+            ()
+        )]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        test_pow_1
+        ([]
+        [(a
+        (Name
+            i32
+            Load
+        )
+        ())
+        (b
+        (Name
+            i32
+            Load
+        )
+        ())]
+        []
+        []
+        []
+        []
+        [])
+        [(AnnAssign
+            (Name
+                res
+                Store
+            )
+            (Name
+                i32
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                res
+                Store
+            )]
+            (Call
+                (Name
+                    i32
+                    Load
+                )
+                [(Call
+                    (Name
+                        pow
+                        Load
+                    )
+                    [(Name
+                        a
+                        Load
+                    )
+                    (Name
+                        b
+                        Load
+                    )]
+                    []
+                )]
+                []
+            )
+            ()
+        )
+        (Return
+            (Name
+                res
+                Load
+            )
+        )]
+        []
+        (Name
+            i32
+            Load
+        )
+        ()
+    )
+    (FunctionDef
+        main0
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(Expr
+            (Call
+                (Name
+                    test_pow
+                    Load
+                )
+                []
+                []
+            )
+        )
+        (AnnAssign
+            (Name
+                c
+                Store
+            )
+            (Name
+                i32
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                c
+                Store
+            )]
+            (Call
+                (Name
+                    test_pow_1
+                    Load
+                )
+                [(ConstantInt
+                    1
+                    ()
+                )
+                (ConstantInt
+                    2
+                    ()
+                )]
+                []
+            )
+            ()
+        )]
+        []
+        ()
+        ()
+    )
+    (Expr
+        (Call
+            (Name
+                main0
+                Load
+            )
+            []
+            []
+        )
+    )]
+    []
+)
diff --git a/tests/reference/ast-expr8-7db6b28.json b/tests/reference/ast-expr8-7db6b28.json
index b041a445ed..cdac33386b 100644
--- a/tests/reference/ast-expr8-7db6b28.json
+++ b/tests/reference/ast-expr8-7db6b28.json
@@ -2,11 +2,11 @@
     "basename": "ast-expr8-7db6b28",
     "cmd": "lpython --show-ast --no-color {infile} -o {outfile}",
     "infile": "tests/expr8.py",
-    "infile_hash": "4e9a7a5642d721ee6a41db2c3d587c1811c5baad582bddc67cc68842",
+    "infile_hash": "6966e19cf343700cbc11ec1bf6a495e43c685c6fa065669875aa61ce",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "ast-expr8-7db6b28.stdout",
-    "stdout_hash": "d36163ef1638a9f292cac90161af70faa653686821e0b8c362c1661b",
+    "stdout_hash": "b739c4d505f4e1c1a01c7ceaf6230f3a489bd9285a056bfda3a995c2",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/ast-expr8-7db6b28.stdout b/tests/reference/ast-expr8-7db6b28.stdout
index f32efc697f..ea6c8d1606 100644
--- a/tests/reference/ast-expr8-7db6b28.stdout
+++ b/tests/reference/ast-expr8-7db6b28.stdout
@@ -1 +1,352 @@
-(Module [(ImportFrom ltypes [(i32 ()) (f32 ())] 0) (FunctionDef test_binop ([] [] [] [] [] [] []) [(AnnAssign (Name x Store) (Name i32 Load) () 1) (AnnAssign (Name x2 Store) (Name f32 Load) () 1) (Assign [(Name x Store)] (BinOp (ConstantInt 2 ()) Pow (ConstantInt 3 ())) ()) (Assign [(Name x2 Store)] (Call (Name f32 Load) [(BinOp (ConstantFloat 2.000000 ()) Pow (ConstantFloat 3.500000 ()))] []) ()) (Assign [(Name x Store)] (BinOp (ConstantInt 54 ()) Sub (ConstantInt 100 ())) ()) (Assign [(Name x2 Store)] (Call (Name f32 Load) [(BinOp (BinOp (ConstantFloat 3.454000 ()) Sub (ConstantFloat 765.430000 ())) Add (ConstantFloat 534.600000 ()))] []) ()) (Assign [(Name x2 Store)] (Call (Name f32 Load) [(BinOp (ConstantFloat 5346.565000 ()) Mult (ConstantFloat 3.450000 ()))] []) ()) (Assign [(Name x2 Store)] (Call (Name f32 Load) [(BinOp (ConstantFloat 5346.565000 ()) Pow (ConstantFloat 3.450000 ()))] []) ()) (Assign [(Name x Store)] (BinOp (ConstantBool .true. ()) Add (ConstantBool .true. ())) ()) (Assign [(Name x Store)] (BinOp (ConstantBool .true. ()) Sub (ConstantBool .false. ())) ()) (Assign [(Name x Store)] (BinOp (ConstantBool .true. ()) Mult (ConstantBool .false. ())) ()) (Assign [(Name x Store)] (BinOp (ConstantBool .true. ()) Pow (ConstantBool .false. ())) ()) (AnnAssign (Name b1 Store) (Name bool Load) () 1) (AnnAssign (Name b2 Store) (Name bool Load) () 1) (Assign [(Name b1 Store)] (ConstantBool .true. ()) ()) (Assign [(Name b2 Store)] (ConstantBool .false. ()) ()) (Assign [(Name x Store)] (Call (Name i32 Load) [(BinOp (Name b1 Load) FloorDiv (Name b1 Load))] []) ()) (Assign [(Name x Store)] (BinOp (Name b1 Load) Pow (Name b2 Load)) ())] [] () ())] [])
+(Module
+    [(ImportFrom
+        lpython
+        [(i32
+        ())
+        (f32
+        ())]
+        0
+    )
+    (FunctionDef
+        test_binop
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(AnnAssign
+            (Name
+                x
+                Store
+            )
+            (Name
+                i32
+                Load
+            )
+            ()
+            1
+        )
+        (AnnAssign
+            (Name
+                x2
+                Store
+            )
+            (Name
+                f32
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                x
+                Store
+            )]
+            (BinOp
+                (ConstantInt
+                    2
+                    ()
+                )
+                Pow
+                (ConstantInt
+                    3
+                    ()
+                )
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                x2
+                Store
+            )]
+            (Call
+                (Name
+                    f32
+                    Load
+                )
+                [(BinOp
+                    (ConstantFloat
+                        2.000000
+                        ()
+                    )
+                    Pow
+                    (ConstantFloat
+                        3.500000
+                        ()
+                    )
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                x
+                Store
+            )]
+            (BinOp
+                (ConstantInt
+                    54
+                    ()
+                )
+                Sub
+                (ConstantInt
+                    100
+                    ()
+                )
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                x2
+                Store
+            )]
+            (Call
+                (Name
+                    f32
+                    Load
+                )
+                [(BinOp
+                    (BinOp
+                        (ConstantFloat
+                            3.454000
+                            ()
+                        )
+                        Sub
+                        (ConstantFloat
+                            765.430000
+                            ()
+                        )
+                    )
+                    Add
+                    (ConstantFloat
+                        534.600000
+                        ()
+                    )
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                x2
+                Store
+            )]
+            (Call
+                (Name
+                    f32
+                    Load
+                )
+                [(BinOp
+                    (ConstantFloat
+                        5346.565000
+                        ()
+                    )
+                    Mult
+                    (ConstantFloat
+                        3.450000
+                        ()
+                    )
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                x2
+                Store
+            )]
+            (Call
+                (Name
+                    f32
+                    Load
+                )
+                [(BinOp
+                    (ConstantFloat
+                        5346.565000
+                        ()
+                    )
+                    Pow
+                    (ConstantFloat
+                        3.450000
+                        ()
+                    )
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                x
+                Store
+            )]
+            (BinOp
+                (ConstantBool
+                    .true.
+                    ()
+                )
+                Add
+                (ConstantBool
+                    .true.
+                    ()
+                )
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                x
+                Store
+            )]
+            (BinOp
+                (ConstantBool
+                    .true.
+                    ()
+                )
+                Sub
+                (ConstantBool
+                    .false.
+                    ()
+                )
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                x
+                Store
+            )]
+            (BinOp
+                (ConstantBool
+                    .true.
+                    ()
+                )
+                Mult
+                (ConstantBool
+                    .false.
+                    ()
+                )
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                x
+                Store
+            )]
+            (BinOp
+                (ConstantBool
+                    .true.
+                    ()
+                )
+                Pow
+                (ConstantBool
+                    .false.
+                    ()
+                )
+            )
+            ()
+        )
+        (AnnAssign
+            (Name
+                b1
+                Store
+            )
+            (Name
+                bool
+                Load
+            )
+            ()
+            1
+        )
+        (AnnAssign
+            (Name
+                b2
+                Store
+            )
+            (Name
+                bool
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                b1
+                Store
+            )]
+            (ConstantBool
+                .true.
+                ()
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                b2
+                Store
+            )]
+            (ConstantBool
+                .false.
+                ()
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                x
+                Store
+            )]
+            (Call
+                (Name
+                    i32
+                    Load
+                )
+                [(BinOp
+                    (Name
+                        b1
+                        Load
+                    )
+                    FloorDiv
+                    (Name
+                        b1
+                        Load
+                    )
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                x
+                Store
+            )]
+            (BinOp
+                (Name
+                    b1
+                    Load
+                )
+                Pow
+                (Name
+                    b2
+                    Load
+                )
+            )
+            ()
+        )]
+        []
+        ()
+        ()
+    )]
+    []
+)
diff --git a/tests/reference/ast-expr9-d184496.json b/tests/reference/ast-expr9-d184496.json
deleted file mode 100644
index c20bc3f0e6..0000000000
--- a/tests/reference/ast-expr9-d184496.json
+++ /dev/null
@@ -1,13 +0,0 @@
-{
-    "basename": "ast-expr9-d184496",
-    "cmd": "lpython --show-ast --no-color {infile} -o {outfile}",
-    "infile": "tests/expr9.py",
-    "infile_hash": "1f02a7486b298ae9e74a163875a76f8fa7cc25d7f50547133dbbdfab",
-    "outfile": null,
-    "outfile_hash": null,
-    "stdout": "ast-expr9-d184496.stdout",
-    "stdout_hash": "70401839bfcc9628be28d0e6f347a3bda6d4152f168b028c46aa7aed",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
-}
\ No newline at end of file
diff --git a/tests/reference/ast-expr9-d184496.stdout b/tests/reference/ast-expr9-d184496.stdout
deleted file mode 100644
index 8df27ee140..0000000000
--- a/tests/reference/ast-expr9-d184496.stdout
+++ /dev/null
@@ -1 +0,0 @@
-(Module [(FunctionDef test_return_1 ([] [(a (Name i32 Load) ())] [] [] [] [] []) [(AnnAssign (Name x Store) (Name i32 Load) () 1) (Assign [(Name x Store)] (ConstantInt 5 ()) ()) (Return (Name x Load))] [] (Name i32 Load) ()) (FunctionDef test_return_2 ([] [(a (Name i32 Load) ())] [] [] [] [] []) [(AnnAssign (Name x Store) (Name str Load) () 1) (Assign [(Name x Store)] (ConstantStr "test" ()) ()) (Return (Name x Load))] [] (Name str Load) ()) (FunctionDef test_return_3 ([] [(a (Name i32 Load) ())] [] [] [] [] []) [(Assign [(Name a Store)] (ConstantInt 3 ()) ()) (Return (Name a Load))] [] (Name i32 Load) ()) (FunctionDef test_return_4 ([] [(a (Name i32 Load) ())] [] [] [] [] []) [(Assign [(Name a Store)] (ConstantInt 1 ()) ()) (Return ())] [] () ()) (FunctionDef main0 ([] [] [] [] [] [] []) [(AnnAssign (Name i Store) (Name i32 Load) () 1) (Assign [(Name i Store)] (Call (Name test_return_1 Load) [(ConstantInt 4 ())] []) ()) (AnnAssign (Name s Store) (Name str Load) () 1) (Assign [(Name s Store)] (Call (Name test_return_2 Load) [(ConstantInt 4 ())] []) ()) (Assign [(Name i Store)] (Call (Name test_return_3 Load) [(ConstantInt 4 ())] []) ()) (Expr (Call (Name test_return_4 Load) [(ConstantInt 4 ())] []))] [] () ()) (Expr (Call (Name main0 Load) [] []))] [])
diff --git a/tests/reference/ast-expr_01-d0927f9.json b/tests/reference/ast-expr_01-d0927f9.json
index 251be029fe..45b1c2df0e 100644
--- a/tests/reference/ast-expr_01-d0927f9.json
+++ b/tests/reference/ast-expr_01-d0927f9.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "ast-expr_01-d0927f9.stdout",
-    "stdout_hash": "2d00d34bb717af04b125cf16a502116ca9975eed1ca83f43f0acbec6",
+    "stdout_hash": "ba3af72a124b03f3aa21ae8a31d25ef05ee2f442dcf6b9759a659c98",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/ast-expr_01-d0927f9.stdout b/tests/reference/ast-expr_01-d0927f9.stdout
index 0221346c53..2fa44042d3 100644
--- a/tests/reference/ast-expr_01-d0927f9.stdout
+++ b/tests/reference/ast-expr_01-d0927f9.stdout
@@ -1 +1,112 @@
-(Module [(FunctionDef main0 ([] [] [] [] [] [] []) [(AnnAssign (Name x Store) (Name i32 Load) () 1) (AnnAssign (Name x2 Store) (Name i64 Load) () 1) (AnnAssign (Name y Store) (Name f32 Load) () 1) (AnnAssign (Name y2 Store) (Name f64 Load) () 1) (Assign [(Name x Store)] (BinOp (BinOp (ConstantInt 2 ()) Add (ConstantInt 3 ())) Mult (ConstantInt 5 ())) ()) (Expr (Call (Name print Load) [(Name x Load)] []))] [] () ()) (Expr (Call (Name main0 Load) [] []))] [])
+(Module
+    [(FunctionDef
+        main0
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(AnnAssign
+            (Name
+                x
+                Store
+            )
+            (Name
+                i32
+                Load
+            )
+            ()
+            1
+        )
+        (AnnAssign
+            (Name
+                x2
+                Store
+            )
+            (Name
+                i64
+                Load
+            )
+            ()
+            1
+        )
+        (AnnAssign
+            (Name
+                y
+                Store
+            )
+            (Name
+                f32
+                Load
+            )
+            ()
+            1
+        )
+        (AnnAssign
+            (Name
+                y2
+                Store
+            )
+            (Name
+                f64
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                x
+                Store
+            )]
+            (BinOp
+                (BinOp
+                    (ConstantInt
+                        2
+                        ()
+                    )
+                    Add
+                    (ConstantInt
+                        3
+                        ()
+                    )
+                )
+                Mult
+                (ConstantInt
+                    5
+                    ()
+                )
+            )
+            ()
+        )
+        (Expr
+            (Call
+                (Name
+                    print
+                    Load
+                )
+                [(Name
+                    x
+                    Load
+                )]
+                []
+            )
+        )]
+        []
+        ()
+        ()
+    )
+    (Expr
+        (Call
+            (Name
+                main0
+                Load
+            )
+            []
+            []
+        )
+    )]
+    []
+)
diff --git a/tests/reference/ast-global1-b2690cf.json b/tests/reference/ast-global1-b2690cf.json
index ce6c6a5772..a5a57d4dcb 100644
--- a/tests/reference/ast-global1-b2690cf.json
+++ b/tests/reference/ast-global1-b2690cf.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "ast-global1-b2690cf.stdout",
-    "stdout_hash": "3ed3e9f2f93355245cf31de3291cca941d508fd392e0453f00ea0aab",
+    "stdout_hash": "b0b999497a27625582a6dedfa024dba012a6ac1103ac427c49cc7d9d",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/ast-global1-b2690cf.stdout b/tests/reference/ast-global1-b2690cf.stdout
index e066612dc2..9011e976ad 100644
--- a/tests/reference/ast-global1-b2690cf.stdout
+++ b/tests/reference/ast-global1-b2690cf.stdout
@@ -1 +1,219 @@
-(Module [(Assign [(Name x Store)] (ConstantStr "global " ()) ()) (FunctionDef outer ([] [] [] [] [] [] []) [(Assign [(Name x Store)] (ConstantStr "local" ()) ()) (FunctionDef inner ([] [] [] [] [] [] []) [(Nonlocal [x]) (Assign [(Name x Store)] (ConstantStr "nonlocal" ()) ()) (Assert (Compare (Name x Load) Eq [(ConstantStr "nonlocal" ())]) ())] [] () ()) (Expr (Call (Name inner Load) [] [])) (Assert (Compare (Name x Load) Eq [(ConstantStr "nonlocal" ())]) ())] [] () ()) (FunctionDef test_1 ([] [] [] [] [] [] []) [(Global [x]) (Assign [(Name y Store)] (ConstantStr "local" ()) ()) (Assign [(Name x Store)] (BinOp (Name x Load) Mult (ConstantInt 2 ())) ()) (Assert (Compare (Name x Load) Eq [(ConstantStr "global global " ())]) ()) (Assert (Compare (Name y Load) Eq [(ConstantStr "local" ())]) ())] [] () ()) (FunctionDef check ([] [] [] [] [] [] []) [(Expr (Call (Name test_1 Load) [] [])) (Expr (Call (Name outer Load) [] []))] [] () ()) (Expr (Call (Name check Load) [] []))] [])
+(Module
+    [(Assign
+        [(Name
+            x
+            Store
+        )]
+        (ConstantStr
+            "global "
+            ()
+        )
+        ()
+    )
+    (FunctionDef
+        outer
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(Assign
+            [(Name
+                x
+                Store
+            )]
+            (ConstantStr
+                "local"
+                ()
+            )
+            ()
+        )
+        (FunctionDef
+            inner
+            ([]
+            []
+            []
+            []
+            []
+            []
+            [])
+            [(Nonlocal
+                [x]
+            )
+            (Assign
+                [(Name
+                    x
+                    Store
+                )]
+                (ConstantStr
+                    "nonlocal"
+                    ()
+                )
+                ()
+            )
+            (Assert
+                (Compare
+                    (Name
+                        x
+                        Load
+                    )
+                    Eq
+                    [(ConstantStr
+                        "nonlocal"
+                        ()
+                    )]
+                )
+                ()
+            )]
+            []
+            ()
+            ()
+        )
+        (Expr
+            (Call
+                (Name
+                    inner
+                    Load
+                )
+                []
+                []
+            )
+        )
+        (Assert
+            (Compare
+                (Name
+                    x
+                    Load
+                )
+                Eq
+                [(ConstantStr
+                    "nonlocal"
+                    ()
+                )]
+            )
+            ()
+        )]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        test_1
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(Global
+            [x]
+        )
+        (Assign
+            [(Name
+                y
+                Store
+            )]
+            (ConstantStr
+                "local"
+                ()
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                x
+                Store
+            )]
+            (BinOp
+                (Name
+                    x
+                    Load
+                )
+                Mult
+                (ConstantInt
+                    2
+                    ()
+                )
+            )
+            ()
+        )
+        (Assert
+            (Compare
+                (Name
+                    x
+                    Load
+                )
+                Eq
+                [(ConstantStr
+                    "global global "
+                    ()
+                )]
+            )
+            ()
+        )
+        (Assert
+            (Compare
+                (Name
+                    y
+                    Load
+                )
+                Eq
+                [(ConstantStr
+                    "local"
+                    ()
+                )]
+            )
+            ()
+        )]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        check
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(Expr
+            (Call
+                (Name
+                    test_1
+                    Load
+                )
+                []
+                []
+            )
+        )
+        (Expr
+            (Call
+                (Name
+                    outer
+                    Load
+                )
+                []
+                []
+            )
+        )]
+        []
+        ()
+        ()
+    )
+    (Expr
+        (Call
+            (Name
+                check
+                Load
+            )
+            []
+            []
+        )
+    )]
+    []
+)
diff --git a/tests/reference/ast-global_scope1-1d68a6c.json b/tests/reference/ast-global_scope1-1d68a6c.json
index 274a1c4e13..44e3204dee 100644
--- a/tests/reference/ast-global_scope1-1d68a6c.json
+++ b/tests/reference/ast-global_scope1-1d68a6c.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "ast-global_scope1-1d68a6c.stdout",
-    "stdout_hash": "4c24bf0191679b2ae84bccd2c8429c5dd2a913cda2f4624948889781",
+    "stdout_hash": "3311aec1626b395dc1c35208afdb7e3ddab90ac70a8a43f4f3e31325",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/ast-global_scope1-1d68a6c.stdout b/tests/reference/ast-global_scope1-1d68a6c.stdout
index eb4cd3186e..7d099d64fc 100644
--- a/tests/reference/ast-global_scope1-1d68a6c.stdout
+++ b/tests/reference/ast-global_scope1-1d68a6c.stdout
@@ -1 +1,26 @@
-(Module [(AnnAssign (Name i Store) (Name i32 Load) () 1) (Assign [(Name i Store)] (ConstantInt 5 ()) ())] [])
+(Module
+    [(AnnAssign
+        (Name
+            i
+            Store
+        )
+        (Name
+            i32
+            Load
+        )
+        ()
+        1
+    )
+    (Assign
+        [(Name
+            i
+            Store
+        )]
+        (ConstantInt
+            5
+            ()
+        )
+        ()
+    )]
+    []
+)
diff --git a/tests/reference/ast-list1-9ce2da0.json b/tests/reference/ast-list1-9ce2da0.json
index 8149dcf161..af1c5005eb 100644
--- a/tests/reference/ast-list1-9ce2da0.json
+++ b/tests/reference/ast-list1-9ce2da0.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "ast-list1-9ce2da0.stdout",
-    "stdout_hash": "17a1a6a86b913cbe96c4e0a731e2647fffc92b2ad058771fce0158dc",
+    "stdout_hash": "fea2e7f56f26d3848224a3ca52219f76e456b2f4066e1156c22896f5",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/ast-list1-9ce2da0.stdout b/tests/reference/ast-list1-9ce2da0.stdout
index 12e6c46d99..cb4dd75a96 100644
--- a/tests/reference/ast-list1-9ce2da0.stdout
+++ b/tests/reference/ast-list1-9ce2da0.stdout
@@ -1 +1,539 @@
-(Module [(FunctionDef test_List ([] [] [] [] [] [] []) [(AnnAssign (Name a Store) (Subscript (Name list Load) (Name i32 Load) Load) () 1) (Assign [(Name a Store)] (List [(ConstantInt 1 ()) (ConstantInt 2 ()) (ConstantInt 3 ())] Load) ()) (Assign [(Name a Store)] (List [(UnaryOp USub (ConstantInt 3 ())) (UnaryOp USub (ConstantInt 2 ())) (UnaryOp USub (ConstantInt 1 ()))] Load) ()) (AnnAssign (Name b Store) (Subscript (Name list Load) (Name str Load) Load) () 1) (Assign [(Name b Store)] (List [(ConstantStr "a" ()) (ConstantStr "b" ()) (ConstantStr "c" ())] Load) ()) (AnnAssign (Name c Store) (Subscript (Name list Load) (Subscript (Name list Load) (Name i32 Load) Load) Load) () 1) (Assign [(Name c Store)] (List [(List [(ConstantInt 1 ()) (ConstantInt 2 ()) (ConstantInt 3 ())] Load) (List [(ConstantInt 4 ()) (ConstantInt 5 ()) (ConstantInt 6 ())] Load)] Load) ()) (AnnAssign (Name d Store) (Name i32 Load) () 1) (Assign [(Name d Store)] (Subscript (Name a Load) (ConstantInt 2 ()) Load) ()) (AnnAssign (Name e Store) (Subscript (Name list Load) (Subscript (Name list Load) (Name str Load) Load) Load) () 1) (Assign [(Name e Store)] (List [(List [(ConstantStr "a" ()) (ConstantStr "b" ()) (ConstantStr "c" ())] Load) (List [(ConstantStr "d" ()) (ConstantStr "e" ())] Load)] Load) ()) (Expr (Call (Attribute (Name a Load) append Load) [(ConstantInt 10 ())] [])) (Expr (Call (Attribute (Name a Load) remove Load) [(ConstantInt 1 ())] [])) (Expr (Call (Attribute (Name a Load) insert Load) [(ConstantInt 2 ()) (ConstantInt 13 ())] [])) (Assign [(Name a Store)] (Subscript (Name a Load) (Slice (ConstantInt 0 ()) (ConstantInt 2 ()) ()) Load) ()) (Assign [(Name d Store)] (Call (Attribute (Name a Load) pop Load) [] []) ()) (Assign [(Name d Store)] (Call (Attribute (Name a Load) pop Load) [(ConstantInt 2 ())] []) ()) (AugAssign (Name a Store) Add (List [(ConstantInt 4 ()) (ConstantInt 5 ())] Load)) (Assign [(Name a Store)] (BinOp (List [(ConstantInt 6 ()) (ConstantInt 7 ())] Load) Add (Name a Load)) ()) (AnnAssign (Name a11 Store) (Subscript (Name list Load) (Name i32 Load) Load) () 1) (AnnAssign (Name b11 Store) (Subscript (Name list Load) (Name i32 Load) Load) () 1) (Assign [(Name a11 Store)] (List [(ConstantInt 1 ()) (ConstantInt 2 ())] Load) ()) (Assign [(Name b11 Store)] (List [(ConstantInt 3 ()) (ConstantInt 4 ())] Load) ()) (Assert (Compare (Name a11 Load) Eq [(Name b11 Load)]) ())] [] () ())] [])
+(Module
+    [(FunctionDef
+        test_List
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(AnnAssign
+            (Name
+                a
+                Store
+            )
+            (Subscript
+                (Name
+                    list
+                    Load
+                )
+                (Name
+                    i32
+                    Load
+                )
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (List
+                [(ConstantInt
+                    1
+                    ()
+                )
+                (ConstantInt
+                    2
+                    ()
+                )
+                (ConstantInt
+                    3
+                    ()
+                )]
+                Load
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (List
+                [(UnaryOp
+                    USub
+                    (ConstantInt
+                        3
+                        ()
+                    )
+                )
+                (UnaryOp
+                    USub
+                    (ConstantInt
+                        2
+                        ()
+                    )
+                )
+                (UnaryOp
+                    USub
+                    (ConstantInt
+                        1
+                        ()
+                    )
+                )]
+                Load
+            )
+            ()
+        )
+        (AnnAssign
+            (Name
+                b
+                Store
+            )
+            (Subscript
+                (Name
+                    list
+                    Load
+                )
+                (Name
+                    str
+                    Load
+                )
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                b
+                Store
+            )]
+            (List
+                [(ConstantStr
+                    "a"
+                    ()
+                )
+                (ConstantStr
+                    "b"
+                    ()
+                )
+                (ConstantStr
+                    "c"
+                    ()
+                )]
+                Load
+            )
+            ()
+        )
+        (AnnAssign
+            (Name
+                c
+                Store
+            )
+            (Subscript
+                (Name
+                    list
+                    Load
+                )
+                (Subscript
+                    (Name
+                        list
+                        Load
+                    )
+                    (Name
+                        i32
+                        Load
+                    )
+                    Load
+                )
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                c
+                Store
+            )]
+            (List
+                [(List
+                    [(ConstantInt
+                        1
+                        ()
+                    )
+                    (ConstantInt
+                        2
+                        ()
+                    )
+                    (ConstantInt
+                        3
+                        ()
+                    )]
+                    Load
+                )
+                (List
+                    [(ConstantInt
+                        4
+                        ()
+                    )
+                    (ConstantInt
+                        5
+                        ()
+                    )
+                    (ConstantInt
+                        6
+                        ()
+                    )]
+                    Load
+                )]
+                Load
+            )
+            ()
+        )
+        (AnnAssign
+            (Name
+                d
+                Store
+            )
+            (Name
+                i32
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                d
+                Store
+            )]
+            (Subscript
+                (Name
+                    a
+                    Load
+                )
+                (ConstantInt
+                    2
+                    ()
+                )
+                Load
+            )
+            ()
+        )
+        (AnnAssign
+            (Name
+                e
+                Store
+            )
+            (Subscript
+                (Name
+                    list
+                    Load
+                )
+                (Subscript
+                    (Name
+                        list
+                        Load
+                    )
+                    (Name
+                        str
+                        Load
+                    )
+                    Load
+                )
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                e
+                Store
+            )]
+            (List
+                [(List
+                    [(ConstantStr
+                        "a"
+                        ()
+                    )
+                    (ConstantStr
+                        "b"
+                        ()
+                    )
+                    (ConstantStr
+                        "c"
+                        ()
+                    )]
+                    Load
+                )
+                (List
+                    [(ConstantStr
+                        "d"
+                        ()
+                    )
+                    (ConstantStr
+                        "e"
+                        ()
+                    )]
+                    Load
+                )]
+                Load
+            )
+            ()
+        )
+        (Expr
+            (Call
+                (Attribute
+                    (Name
+                        a
+                        Load
+                    )
+                    append
+                    Load
+                )
+                [(ConstantInt
+                    10
+                    ()
+                )]
+                []
+            )
+        )
+        (Expr
+            (Call
+                (Attribute
+                    (Name
+                        a
+                        Load
+                    )
+                    remove
+                    Load
+                )
+                [(ConstantInt
+                    1
+                    ()
+                )]
+                []
+            )
+        )
+        (Expr
+            (Call
+                (Attribute
+                    (Name
+                        a
+                        Load
+                    )
+                    insert
+                    Load
+                )
+                [(ConstantInt
+                    2
+                    ()
+                )
+                (ConstantInt
+                    13
+                    ()
+                )]
+                []
+            )
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Subscript
+                (Name
+                    a
+                    Load
+                )
+                (Slice
+                    (ConstantInt
+                        0
+                        ()
+                    )
+                    (ConstantInt
+                        2
+                        ()
+                    )
+                    ()
+                )
+                Load
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                d
+                Store
+            )]
+            (Call
+                (Attribute
+                    (Name
+                        a
+                        Load
+                    )
+                    pop
+                    Load
+                )
+                []
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                d
+                Store
+            )]
+            (Call
+                (Attribute
+                    (Name
+                        a
+                        Load
+                    )
+                    pop
+                    Load
+                )
+                [(ConstantInt
+                    2
+                    ()
+                )]
+                []
+            )
+            ()
+        )
+        (AugAssign
+            (Name
+                a
+                Store
+            )
+            Add
+            (List
+                [(ConstantInt
+                    4
+                    ()
+                )
+                (ConstantInt
+                    5
+                    ()
+                )]
+                Load
+            )
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (BinOp
+                (List
+                    [(ConstantInt
+                        6
+                        ()
+                    )
+                    (ConstantInt
+                        7
+                        ()
+                    )]
+                    Load
+                )
+                Add
+                (Name
+                    a
+                    Load
+                )
+            )
+            ()
+        )
+        (AnnAssign
+            (Name
+                a11
+                Store
+            )
+            (Subscript
+                (Name
+                    list
+                    Load
+                )
+                (Name
+                    i32
+                    Load
+                )
+                Load
+            )
+            ()
+            1
+        )
+        (AnnAssign
+            (Name
+                b11
+                Store
+            )
+            (Subscript
+                (Name
+                    list
+                    Load
+                )
+                (Name
+                    i32
+                    Load
+                )
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                a11
+                Store
+            )]
+            (List
+                [(ConstantInt
+                    1
+                    ()
+                )
+                (ConstantInt
+                    2
+                    ()
+                )]
+                Load
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                b11
+                Store
+            )]
+            (List
+                [(ConstantInt
+                    3
+                    ()
+                )
+                (ConstantInt
+                    4
+                    ()
+                )]
+                Load
+            )
+            ()
+        )
+        (Assert
+            (Compare
+                (Name
+                    a11
+                    Load
+                )
+                Eq
+                [(Name
+                    b11
+                    Load
+                )]
+            )
+            ()
+        )]
+        []
+        ()
+        ()
+    )]
+    []
+)
diff --git a/tests/reference/ast-loop1-194a137.json b/tests/reference/ast-loop1-194a137.json
deleted file mode 100644
index a1d1104224..0000000000
--- a/tests/reference/ast-loop1-194a137.json
+++ /dev/null
@@ -1,13 +0,0 @@
-{
-    "basename": "ast-loop1-194a137",
-    "cmd": "lpython --show-ast --no-color {infile} -o {outfile}",
-    "infile": "tests/loop1.py",
-    "infile_hash": "0eee568be1d20a4c31b59c33ae2b47509fce3f6047fa1ffa592947e9",
-    "outfile": null,
-    "outfile_hash": null,
-    "stdout": "ast-loop1-194a137.stdout",
-    "stdout_hash": "f80e8babf4c7c844136d04f2e4bc9f79ade9a2202f1cd6f12f6bb781",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
-}
\ No newline at end of file
diff --git a/tests/reference/ast-loop1-194a137.stdout b/tests/reference/ast-loop1-194a137.stdout
deleted file mode 100644
index 73fbcd3b4d..0000000000
--- a/tests/reference/ast-loop1-194a137.stdout
+++ /dev/null
@@ -1 +0,0 @@
-(Module [(ImportFrom ltypes [(i32 ()) (i64 ())] 0) (FunctionDef test_factorial_1 ([] [(x (Name i32 Load) ())] [] [] [] [] []) [(If (Compare (Name x Load) Lt [(ConstantInt 0 ())]) [(Return (ConstantInt 0 ()))] []) (AnnAssign (Name result Store) (Name i32 Load) () 1) (Assign [(Name result Store)] (ConstantInt 1 ()) ()) (While (Compare (Name x Load) Gt [(ConstantInt 0 ())]) [(Assign [(Name result Store)] (BinOp (Name result Load) Mult (Name x Load)) ()) (AugAssign (Name x Store) Sub (ConstantInt 1 ()))] []) (Return (Name result Load))] [] (Name i32 Load) ()) (FunctionDef test_factorial_2 ([] [(x (Name i32 Load) ())] [] [] [] [] []) [(AnnAssign (Name result Store) (Name i32 Load) () 1) (Assign [(Name result Store)] (ConstantInt 1 ()) ()) (AnnAssign (Name i Store) (Name i32 Load) () 1) (For (Name i Store) (Call (Name range Load) [(ConstantInt 1 ()) (BinOp (Name x Load) Add (ConstantInt 1 ()))] []) [(Assign [(Name result Store)] (BinOp (Name result Load) Mult (Name i Load)) ())] [] ()) (Return (Name result Load))] [] (Name i32 Load) ()) (FunctionDef test_factorial_3 ([] [(x (Name i32 Load) ())] [] [] [] [] []) [(AnnAssign (Name result Store) (Name i64 Load) () 1) (Assign [(Name result Store)] (Call (Name i64 Load) [(ConstantInt 0 ())] []) ()) (If (Compare (Name x Load) Lt [(ConstantInt 0 ())]) [(Return (Name result Load))] []) (Assign [(Name result Store)] (Call (Name i64 Load) [(ConstantInt 1 ())] []) ()) (While (Compare (Name x Load) Gt [(ConstantInt 0 ())]) [(Assign [(Name result Store)] (BinOp (Name result Load) Mult (Call (Name i64 Load) [(Name x Load)] [])) ()) (AugAssign (Name x Store) Sub (ConstantInt 1 ()))] []) (Return (Name result Load))] [] (Name i64 Load) ()) (FunctionDef main0 ([] [] [] [] [] [] []) [(AnnAssign (Name i Store) (Name i32 Load) () 1) (Assign [(Name i Store)] (Call (Name test_factorial_1 Load) [(ConstantInt 4 ())] []) ()) (Assign [(Name i Store)] (Call (Name test_factorial_2 Load) [(ConstantInt 4 ())] []) ()) (AnnAssign (Name j Store) (Name i64 Load) () 1) (Assign [(Name j Store)] (Call (Name test_factorial_3 Load) [(ConstantInt 5 ())] []) ())] [] () ()) (Expr (Call (Name main0 Load) [] []))] [])
diff --git a/tests/reference/ast-loop2-63bf329.json b/tests/reference/ast-loop2-63bf329.json
deleted file mode 100644
index 7750a6dd5b..0000000000
--- a/tests/reference/ast-loop2-63bf329.json
+++ /dev/null
@@ -1,13 +0,0 @@
-{
-    "basename": "ast-loop2-63bf329",
-    "cmd": "lpython --show-ast --no-color {infile} -o {outfile}",
-    "infile": "tests/loop2.py",
-    "infile_hash": "7946c522ceb16f99810780d4aba7fa2593695a4b49fb35ea1f131f53",
-    "outfile": null,
-    "outfile_hash": null,
-    "stdout": "ast-loop2-63bf329.stdout",
-    "stdout_hash": "5317e07f2df3b9e037ab5b1a76f1f1c873098a9931b4b85bc59360cd",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
-}
\ No newline at end of file
diff --git a/tests/reference/ast-loop2-63bf329.stdout b/tests/reference/ast-loop2-63bf329.stdout
deleted file mode 100644
index 643499511b..0000000000
--- a/tests/reference/ast-loop2-63bf329.stdout
+++ /dev/null
@@ -1 +0,0 @@
-(Module [(ImportFrom sys [(exit ())] 0) (FunctionDef test_for ([] [] [] [] [] [] []) [(AnnAssign (Name i Store) (Name i32 Load) () 1) (For (Name i Store) (Call (Name range Load) [(ConstantInt 0 ()) (ConstantInt 10 ())] []) [(If (Compare (Name i Load) Eq [(ConstantInt 0 ())]) [(Continue)] []) (If (Compare (Name i Load) Gt [(ConstantInt 5 ())]) [(Break)] []) (If (Compare (Name i Load) Eq [(ConstantInt 3 ())]) [(Expr (Call (Name quit Load) [] []))] [])] [] ()) (Expr (Call (Name exit Load) [(ConstantInt 2 ())] []))] [] () ()) (Expr (Call (Name test_for Load) [] []))] [])
diff --git a/tests/reference/ast-loop3-f7e0393.json b/tests/reference/ast-loop3-f7e0393.json
index ebff9d08a1..1dc5625553 100644
--- a/tests/reference/ast-loop3-f7e0393.json
+++ b/tests/reference/ast-loop3-f7e0393.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "ast-loop3-f7e0393.stdout",
-    "stdout_hash": "be67a3e6ee1476ffdec959b2875d68f1d4fe16418327c746d3e64a14",
+    "stdout_hash": "edf8630a987fb8f9e62d064eb7c1d37f08f896b1453a141fd4db15cf",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/ast-loop3-f7e0393.stdout b/tests/reference/ast-loop3-f7e0393.stdout
index 301bace0af..956b2b5e86 100644
--- a/tests/reference/ast-loop3-f7e0393.stdout
+++ b/tests/reference/ast-loop3-f7e0393.stdout
@@ -1 +1,54 @@
-(Module [(FunctionDef test_pass ([] [] [] [] [] [] []) [(AnnAssign (Name a Store) (Name i32 Load) () 1) (Assign [(Name a Store)] (ConstantInt 1 ()) ()) (While (Compare (Name a Load) Gt [(ConstantInt 0 ())]) [(Pass)] [])] [] () ())] [])
+(Module
+    [(FunctionDef
+        test_pass
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(AnnAssign
+            (Name
+                a
+                Store
+            )
+            (Name
+                i32
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (ConstantInt
+                1
+                ()
+            )
+            ()
+        )
+        (While
+            (Compare
+                (Name
+                    a
+                    Load
+                )
+                Gt
+                [(ConstantInt
+                    0
+                    ()
+                )]
+            )
+            [(Pass)]
+            []
+        )]
+        []
+        ()
+        ()
+    )]
+    []
+)
diff --git a/tests/reference/ast-prefix_string_01-cf221fd.json b/tests/reference/ast-prefix_string_01-cf221fd.json
new file mode 100644
index 0000000000..ed1984236e
--- /dev/null
+++ b/tests/reference/ast-prefix_string_01-cf221fd.json
@@ -0,0 +1,13 @@
+{
+    "basename": "ast-prefix_string_01-cf221fd",
+    "cmd": "lpython --show-ast --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/prefix_string_01.py",
+    "infile_hash": "0d83c0e32a78023fccb343a4d3358071792265c1ae357176fe0912eb",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "ast-prefix_string_01-cf221fd.stderr",
+    "stderr_hash": "b600057f41f59ba7fdebe3971bfea0eadca972747ccf70d575c1cdcd",
+    "returncode": 1
+}
\ No newline at end of file
diff --git a/tests/reference/ast-prefix_string_01-cf221fd.stderr b/tests/reference/ast-prefix_string_01-cf221fd.stderr
new file mode 100644
index 0000000000..e2a05a52c7
--- /dev/null
+++ b/tests/reference/ast-prefix_string_01-cf221fd.stderr
@@ -0,0 +1,5 @@
+syntax error: Token '"Hello"' (of type 'string') is unexpected here
+ --> tests/errors/prefix_string_01.py:3:11
+  |
+3 |     print "Hello", "World" 
+  |           ^^^^^^^ 
diff --git a/tests/reference/ast-prefix_string_02-3d530b2.json b/tests/reference/ast-prefix_string_02-3d530b2.json
new file mode 100644
index 0000000000..9c3ce1081b
--- /dev/null
+++ b/tests/reference/ast-prefix_string_02-3d530b2.json
@@ -0,0 +1,13 @@
+{
+    "basename": "ast-prefix_string_02-3d530b2",
+    "cmd": "lpython --show-ast --no-color {infile} -o {outfile}",
+    "infile": "tests/errors/prefix_string_02.py",
+    "infile_hash": "5d0c279ea735e60d5243a4b33100832dc1564917d6ef83c9b32705f9",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "ast-prefix_string_02-3d530b2.stderr",
+    "stderr_hash": "cd72affed29823c0364d52bfb3ba0674d9d7950390b7cd6b04f7538b",
+    "returncode": 1
+}
\ No newline at end of file
diff --git a/tests/reference/ast-prefix_string_02-3d530b2.stderr b/tests/reference/ast-prefix_string_02-3d530b2.stderr
new file mode 100644
index 0000000000..869d52864a
--- /dev/null
+++ b/tests/reference/ast-prefix_string_02-3d530b2.stderr
@@ -0,0 +1,5 @@
+syntax error: Token '"Hello World"' (of type 'string') is unexpected here
+ --> tests/errors/prefix_string_02.py:7:13
+  |
+7 |     print(r "Hello World")
+  |             ^^^^^^^^^^^^^ 
diff --git a/tests/reference/ast-set1-ebd6ee0.json b/tests/reference/ast-set1-ebd6ee0.json
index 15b5704012..a04c792797 100644
--- a/tests/reference/ast-set1-ebd6ee0.json
+++ b/tests/reference/ast-set1-ebd6ee0.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "ast-set1-ebd6ee0.stdout",
-    "stdout_hash": "bc412431f1754c75ece480170de1a8433d23f985ce6875622f85a27e",
+    "stdout_hash": "f2003da3359a1713befbdd7bd1c789dcec22ac91a6d1f5b25cac1c77",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/ast-set1-ebd6ee0.stdout b/tests/reference/ast-set1-ebd6ee0.stdout
index 24db8c8547..d8617e4d12 100644
--- a/tests/reference/ast-set1-ebd6ee0.stdout
+++ b/tests/reference/ast-set1-ebd6ee0.stdout
@@ -1 +1,190 @@
-(Module [(FunctionDef test_Set ([] [] [] [] [] [] []) [(AnnAssign (Name a Store) (Subscript (Name set Load) (Name i32 Load) Load) () 1) (Assign [(Name a Store)] (Set [(ConstantInt 1 ()) (ConstantInt 2 ()) (ConstantInt 3 ())]) ()) (Assign [(Name a Store)] (Set [(ConstantInt 2 ()) (ConstantInt 3 ()) (ConstantInt 4 ()) (ConstantInt 5 ()) (ConstantInt 5 ())]) ()) (Expr (Call (Attribute (Name a Load) add Load) [(ConstantInt 9 ())] [])) (Expr (Call (Attribute (Name a Load) remove Load) [(ConstantInt 4 ())] [])) (AnnAssign (Name b Store) (Subscript (Name set Load) (Name str Load) Load) () 1) (Assign [(Name b Store)] (Set [(ConstantStr "a" ()) (ConstantStr "b" ()) (ConstantStr "c" ())]) ()) (AnnAssign (Name s Store) (Name str Load) () 1) (Assign [(Name s Store)] (Call (Attribute (Name b Load) pop Load) [] []) ())] [] () ())] [])
+(Module
+    [(FunctionDef
+        test_Set
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(AnnAssign
+            (Name
+                a
+                Store
+            )
+            (Subscript
+                (Name
+                    set
+                    Load
+                )
+                (Name
+                    i32
+                    Load
+                )
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Set
+                [(ConstantInt
+                    1
+                    ()
+                )
+                (ConstantInt
+                    2
+                    ()
+                )
+                (ConstantInt
+                    3
+                    ()
+                )]
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Set
+                [(ConstantInt
+                    2
+                    ()
+                )
+                (ConstantInt
+                    3
+                    ()
+                )
+                (ConstantInt
+                    4
+                    ()
+                )
+                (ConstantInt
+                    5
+                    ()
+                )
+                (ConstantInt
+                    5
+                    ()
+                )]
+            )
+            ()
+        )
+        (Expr
+            (Call
+                (Attribute
+                    (Name
+                        a
+                        Load
+                    )
+                    add
+                    Load
+                )
+                [(ConstantInt
+                    9
+                    ()
+                )]
+                []
+            )
+        )
+        (Expr
+            (Call
+                (Attribute
+                    (Name
+                        a
+                        Load
+                    )
+                    remove
+                    Load
+                )
+                [(ConstantInt
+                    4
+                    ()
+                )]
+                []
+            )
+        )
+        (AnnAssign
+            (Name
+                b
+                Store
+            )
+            (Subscript
+                (Name
+                    set
+                    Load
+                )
+                (Name
+                    str
+                    Load
+                )
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                b
+                Store
+            )]
+            (Set
+                [(ConstantStr
+                    "a"
+                    ()
+                )
+                (ConstantStr
+                    "b"
+                    ()
+                )
+                (ConstantStr
+                    "c"
+                    ()
+                )]
+            )
+            ()
+        )
+        (AnnAssign
+            (Name
+                s
+                Store
+            )
+            (Name
+                str
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                s
+                Store
+            )]
+            (Call
+                (Attribute
+                    (Name
+                        b
+                        Load
+                    )
+                    pop
+                    Load
+                )
+                []
+                []
+            )
+            ()
+        )]
+        []
+        ()
+        ()
+    )]
+    []
+)
diff --git a/tests/reference/ast-subscript1-bd5584b.json b/tests/reference/ast-subscript1-bd5584b.json
deleted file mode 100644
index 6abc6f878e..0000000000
--- a/tests/reference/ast-subscript1-bd5584b.json
+++ /dev/null
@@ -1,13 +0,0 @@
-{
-    "basename": "ast-subscript1-bd5584b",
-    "cmd": "lpython --show-ast --no-color {infile} -o {outfile}",
-    "infile": "tests/subscript1.py",
-    "infile_hash": "5d229893d3e13ea4463e8ed47eb3798be0b8c28f5ef6b6c773e87b80",
-    "outfile": null,
-    "outfile_hash": null,
-    "stdout": "ast-subscript1-bd5584b.stdout",
-    "stdout_hash": "64e0e5bf1c53e455034996484f2449e2e18f526448a00dd79b58fb32",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
-}
\ No newline at end of file
diff --git a/tests/reference/ast-subscript1-bd5584b.stdout b/tests/reference/ast-subscript1-bd5584b.stdout
deleted file mode 100644
index 573c86740e..0000000000
--- a/tests/reference/ast-subscript1-bd5584b.stdout
+++ /dev/null
@@ -1 +0,0 @@
-(Module [(FunctionDef test_subscript ([] [] [] [] [] [] []) [(AnnAssign (Name s Store) (Name str Load) () 1) (Assign [(Name s Store)] (ConstantStr "abc" ()) ()) (Assign [(Name s Store)] (Subscript (Name s Load) (ConstantInt 0 ()) Load) ()) (Assign [(Name s Store)] (Subscript (Name s Load) (Slice (ConstantInt 1 ()) (ConstantInt 2 ()) ()) Load) ()) (Assign [(Name s Store)] (Subscript (Name s Load) (Slice () () ()) Load) ()) (Assign [(Name s Store)] (Subscript (Name s Load) (Slice () () (UnaryOp USub (ConstantInt 1 ()))) Load) ()) (Assign [(Name s Store)] (Subscript (Name s Load) (Slice () () (ConstantInt 2 ())) Load) ()) (Assign [(Name s Store)] (Subscript (Name s Load) (Slice (ConstantInt 1 ()) (ConstantInt 88 ()) (ConstantInt 1 ())) Load) ()) (Assign [(Name s Store)] (Subscript (Name s Load) (Slice () (ConstantInt 1 ()) (UnaryOp USub (ConstantInt 4 ()))) Load) ()) (Assign [(Name s Store)] (Subscript (Name s Load) (Slice (UnaryOp USub (ConstantInt 89 ())) () (ConstantInt 4 ())) Load) ()) (Assign [(Name s Store)] (Subscript (Name s Load) (Slice (UnaryOp USub (ConstantInt 3 ())) (UnaryOp USub (ConstantInt 3 ())) (UnaryOp USub (ConstantInt 3 ()))) Load) ()) (Assign [(Name s Store)] (Subscript (Name s Load) (Slice (ConstantInt 2 ()) (ConstantInt 3 ()) ()) Load) ()) (AnnAssign (Name A Store) (Subscript (Name i32 Load) (ConstantInt 5 ()) Load) () 1) (AnnAssign (Name B Store) (Subscript (Name i32 Load) (ConstantInt 2 ()) Load) () 1) (AnnAssign (Name i Store) (Name i32 Load) () 1) (Assign [(Name i Store)] (Subscript (Name A Load) (ConstantInt 0 ()) Load) ()) (Assign [(Name B Store)] (Subscript (Name A Load) (Slice (ConstantInt 1 ()) (ConstantInt 3 ()) ()) Load) ()) (Assign [(Name B Store)] (Subscript (Name A Load) (Slice (ConstantInt 1 ()) (ConstantInt 2 ()) (ConstantInt 3 ())) Load) ())] [] () ())] [])
diff --git a/tests/reference/ast-tuple1-2fb5396.json b/tests/reference/ast-tuple1-2fb5396.json
index 8e2207c1ee..feb6e53223 100644
--- a/tests/reference/ast-tuple1-2fb5396.json
+++ b/tests/reference/ast-tuple1-2fb5396.json
@@ -2,11 +2,11 @@
     "basename": "ast-tuple1-2fb5396",
     "cmd": "lpython --show-ast --no-color {infile} -o {outfile}",
     "infile": "tests/tuple1.py",
-    "infile_hash": "aed9320f34b5eec1d9ce30d9ef28abeaf9c1faaf421d87b34148ae04",
+    "infile_hash": "0ad9c210f19f9e560890c7a67ed06f4a710bbc8535c0097c35736028",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "ast-tuple1-2fb5396.stdout",
-    "stdout_hash": "bc73bf5b72859d4177c36b3d062b7a12489017a09541be328d9ad727",
+    "stdout_hash": "b8f815cc5c9d9732bca16340aca88fd5b4453cf499a305fb0b036316",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/ast-tuple1-2fb5396.stdout b/tests/reference/ast-tuple1-2fb5396.stdout
index 190e743047..e50cc5b28c 100644
--- a/tests/reference/ast-tuple1-2fb5396.stdout
+++ b/tests/reference/ast-tuple1-2fb5396.stdout
@@ -1 +1,702 @@
-(Module [(ImportFrom ltypes [(i32 ()) (f32 ())] 0) (FunctionDef test_Tuple ([] [] [] [] [] [] []) [(AnnAssign (Name a1 Store) (Subscript (Name tuple Load) (Tuple [(Name i32 Load) (Name i32 Load) (Name i32 Load)] Load) Load) () 1) (Assign [(Name a1 Store)] (Tuple [(ConstantInt 1 ()) (ConstantInt 2 ()) (ConstantInt 3 ())] Load) ()) (Assign [(Name a1 Store)] (Tuple [(UnaryOp USub (ConstantInt 3 ())) (UnaryOp USub (ConstantInt 2 ())) (UnaryOp USub (ConstantInt 1 ()))] Load) ()) (AnnAssign (Name a2 Store) (Subscript (Name tuple Load) (Tuple [(Name str Load) (Name str Load) (Name str Load)] Load) Load) () 1) (Assign [(Name a2 Store)] (Tuple [(ConstantStr "a" ()) (ConstantStr "b" ()) (ConstantStr "c" ())] Load) ()) (AnnAssign (Name a3 Store) (Subscript (Name tuple Load) (Tuple [(Name i32 Load) (Name i32 Load) (Name f32 Load) (Name str Load)] Load) Load) () 1) (AnnAssign (Name float_mem Store) (Name f32 Load) () 1) (Assign [(Name float_mem Store)] (Call (Name f32 Load) [(ConstantFloat 0.450000 ())] []) ()) (Assign [(Name a3 Store)] (Tuple [(UnaryOp USub (ConstantInt 2 ())) (UnaryOp USub (ConstantInt 1 ())) (Name float_mem Load) (ConstantStr "d" ())] Load) ()) (AnnAssign (Name a4 Store) (Subscript (Name tuple Load) (Tuple [(Subscript (Name tuple Load) (Tuple [(Name i32 Load) (Name i32 Load) (Name i32 Load)] Load) Load) (Subscript (Name tuple Load) (Tuple [(Name i32 Load) (Name i32 Load) (Name i32 Load)] Load) Load)] Load) Load) () 1) (Assign [(Name a4 Store)] (Tuple [(Tuple [(ConstantInt 1 ()) (ConstantInt 2 ()) (ConstantInt 3 ())] Load) (Tuple [(ConstantInt 4 ()) (ConstantInt 5 ()) (ConstantInt 6 ())] Load)] Load) ()) (AnnAssign (Name a5 Store) (Subscript (Name tuple Load) (Tuple [(Subscript (Name tuple Load) (Tuple [(Name str Load) (Name str Load) (Name f32 Load)] Load) Load) (Subscript (Name tuple Load) (Tuple [(Name str Load) (Name i32 Load) (Name f32 Load)] Load) Load)] Load) Load) () 1) (AnnAssign (Name float_mem1 Store) (Name f32 Load) () 1) (AnnAssign (Name float_mem2 Store) (Name f32 Load) () 1) (Assign [(Name float_mem1 Store)] (Call (Name f32 Load) [(ConstantFloat 3.400000 ())] []) ()) (Assign [(Name float_mem2 Store)] (Call (Name f32 Load) [(ConstantFloat 5.600000 ())] []) ()) (Assign [(Name a5 Store)] (Tuple [(Tuple [(ConstantStr "a" ()) (ConstantStr "b" ()) (Name float_mem1 Load)] Load) (Tuple [(ConstantStr "c" ()) (ConstantInt 3 ()) (Name float_mem2 Load)] Load)] Load) ()) (AnnAssign (Name b0 Store) (Name i32 Load) () 1) (AnnAssign (Name b1 Store) (Name i32 Load) () 1) (Assign [(Name b0 Store)] (Subscript (Name a1 Load) (ConstantInt 0 ()) Load) ()) (Assign [(Tuple [(Name b0 Store) (Name b1 Store)] Store)] (Tuple [(Subscript (Name a1 Load) (ConstantInt 2 ()) Load) (Subscript (Name a1 Load) (ConstantInt 1 ()) Load)] Load) ()) (AnnAssign (Name a11 Store) (Subscript (Name tuple Load) (Tuple [(Name i32 Load) (Name i32 Load)] Load) Load) () 1) (AnnAssign (Name b11 Store) (Subscript (Name tuple Load) (Tuple [(Name i32 Load) (Name i32 Load)] Load) Load) () 1) (Assign [(Name a11 Store)] (Tuple [(ConstantInt 1 ()) (ConstantInt 2 ())] Load) ()) (Assign [(Name b11 Store)] (Tuple [(ConstantInt 1 ()) (ConstantInt 2 ())] Load) ()) (Assert (Compare (Name a11 Load) Eq [(Name b11 Load)]) ())] [] () ())] [])
+(Module
+    [(ImportFrom
+        lpython
+        [(i32
+        ())
+        (f32
+        ())]
+        0
+    )
+    (FunctionDef
+        test_Tuple
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(AnnAssign
+            (Name
+                a1
+                Store
+            )
+            (Subscript
+                (Name
+                    tuple
+                    Load
+                )
+                (Tuple
+                    [(Name
+                        i32
+                        Load
+                    )
+                    (Name
+                        i32
+                        Load
+                    )
+                    (Name
+                        i32
+                        Load
+                    )]
+                    Load
+                )
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                a1
+                Store
+            )]
+            (Tuple
+                [(ConstantInt
+                    1
+                    ()
+                )
+                (ConstantInt
+                    2
+                    ()
+                )
+                (ConstantInt
+                    3
+                    ()
+                )]
+                Load
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a1
+                Store
+            )]
+            (Tuple
+                [(UnaryOp
+                    USub
+                    (ConstantInt
+                        3
+                        ()
+                    )
+                )
+                (UnaryOp
+                    USub
+                    (ConstantInt
+                        2
+                        ()
+                    )
+                )
+                (UnaryOp
+                    USub
+                    (ConstantInt
+                        1
+                        ()
+                    )
+                )]
+                Load
+            )
+            ()
+        )
+        (AnnAssign
+            (Name
+                a2
+                Store
+            )
+            (Subscript
+                (Name
+                    tuple
+                    Load
+                )
+                (Tuple
+                    [(Name
+                        str
+                        Load
+                    )
+                    (Name
+                        str
+                        Load
+                    )
+                    (Name
+                        str
+                        Load
+                    )]
+                    Load
+                )
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                a2
+                Store
+            )]
+            (Tuple
+                [(ConstantStr
+                    "a"
+                    ()
+                )
+                (ConstantStr
+                    "b"
+                    ()
+                )
+                (ConstantStr
+                    "c"
+                    ()
+                )]
+                Load
+            )
+            ()
+        )
+        (AnnAssign
+            (Name
+                a3
+                Store
+            )
+            (Subscript
+                (Name
+                    tuple
+                    Load
+                )
+                (Tuple
+                    [(Name
+                        i32
+                        Load
+                    )
+                    (Name
+                        i32
+                        Load
+                    )
+                    (Name
+                        f32
+                        Load
+                    )
+                    (Name
+                        str
+                        Load
+                    )]
+                    Load
+                )
+                Load
+            )
+            ()
+            1
+        )
+        (AnnAssign
+            (Name
+                float_mem
+                Store
+            )
+            (Name
+                f32
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                float_mem
+                Store
+            )]
+            (Call
+                (Name
+                    f32
+                    Load
+                )
+                [(ConstantFloat
+                    0.450000
+                    ()
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a3
+                Store
+            )]
+            (Tuple
+                [(UnaryOp
+                    USub
+                    (ConstantInt
+                        2
+                        ()
+                    )
+                )
+                (UnaryOp
+                    USub
+                    (ConstantInt
+                        1
+                        ()
+                    )
+                )
+                (Name
+                    float_mem
+                    Load
+                )
+                (ConstantStr
+                    "d"
+                    ()
+                )]
+                Load
+            )
+            ()
+        )
+        (AnnAssign
+            (Name
+                a4
+                Store
+            )
+            (Subscript
+                (Name
+                    tuple
+                    Load
+                )
+                (Tuple
+                    [(Subscript
+                        (Name
+                            tuple
+                            Load
+                        )
+                        (Tuple
+                            [(Name
+                                i32
+                                Load
+                            )
+                            (Name
+                                i32
+                                Load
+                            )
+                            (Name
+                                i32
+                                Load
+                            )]
+                            Load
+                        )
+                        Load
+                    )
+                    (Subscript
+                        (Name
+                            tuple
+                            Load
+                        )
+                        (Tuple
+                            [(Name
+                                i32
+                                Load
+                            )
+                            (Name
+                                i32
+                                Load
+                            )
+                            (Name
+                                i32
+                                Load
+                            )]
+                            Load
+                        )
+                        Load
+                    )]
+                    Load
+                )
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                a4
+                Store
+            )]
+            (Tuple
+                [(Tuple
+                    [(ConstantInt
+                        1
+                        ()
+                    )
+                    (ConstantInt
+                        2
+                        ()
+                    )
+                    (ConstantInt
+                        3
+                        ()
+                    )]
+                    Load
+                )
+                (Tuple
+                    [(ConstantInt
+                        4
+                        ()
+                    )
+                    (ConstantInt
+                        5
+                        ()
+                    )
+                    (ConstantInt
+                        6
+                        ()
+                    )]
+                    Load
+                )]
+                Load
+            )
+            ()
+        )
+        (AnnAssign
+            (Name
+                a5
+                Store
+            )
+            (Subscript
+                (Name
+                    tuple
+                    Load
+                )
+                (Tuple
+                    [(Subscript
+                        (Name
+                            tuple
+                            Load
+                        )
+                        (Tuple
+                            [(Name
+                                str
+                                Load
+                            )
+                            (Name
+                                str
+                                Load
+                            )
+                            (Name
+                                f32
+                                Load
+                            )]
+                            Load
+                        )
+                        Load
+                    )
+                    (Subscript
+                        (Name
+                            tuple
+                            Load
+                        )
+                        (Tuple
+                            [(Name
+                                str
+                                Load
+                            )
+                            (Name
+                                i32
+                                Load
+                            )
+                            (Name
+                                f32
+                                Load
+                            )]
+                            Load
+                        )
+                        Load
+                    )]
+                    Load
+                )
+                Load
+            )
+            ()
+            1
+        )
+        (AnnAssign
+            (Name
+                float_mem1
+                Store
+            )
+            (Name
+                f32
+                Load
+            )
+            ()
+            1
+        )
+        (AnnAssign
+            (Name
+                float_mem2
+                Store
+            )
+            (Name
+                f32
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                float_mem1
+                Store
+            )]
+            (Call
+                (Name
+                    f32
+                    Load
+                )
+                [(ConstantFloat
+                    3.400000
+                    ()
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                float_mem2
+                Store
+            )]
+            (Call
+                (Name
+                    f32
+                    Load
+                )
+                [(ConstantFloat
+                    5.600000
+                    ()
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a5
+                Store
+            )]
+            (Tuple
+                [(Tuple
+                    [(ConstantStr
+                        "a"
+                        ()
+                    )
+                    (ConstantStr
+                        "b"
+                        ()
+                    )
+                    (Name
+                        float_mem1
+                        Load
+                    )]
+                    Load
+                )
+                (Tuple
+                    [(ConstantStr
+                        "c"
+                        ()
+                    )
+                    (ConstantInt
+                        3
+                        ()
+                    )
+                    (Name
+                        float_mem2
+                        Load
+                    )]
+                    Load
+                )]
+                Load
+            )
+            ()
+        )
+        (AnnAssign
+            (Name
+                b0
+                Store
+            )
+            (Name
+                i32
+                Load
+            )
+            ()
+            1
+        )
+        (AnnAssign
+            (Name
+                b1
+                Store
+            )
+            (Name
+                i32
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                b0
+                Store
+            )]
+            (Subscript
+                (Name
+                    a1
+                    Load
+                )
+                (ConstantInt
+                    0
+                    ()
+                )
+                Load
+            )
+            ()
+        )
+        (Assign
+            [(Tuple
+                [(Name
+                    b0
+                    Store
+                )
+                (Name
+                    b1
+                    Store
+                )]
+                Store
+            )]
+            (Tuple
+                [(Subscript
+                    (Name
+                        a1
+                        Load
+                    )
+                    (ConstantInt
+                        2
+                        ()
+                    )
+                    Load
+                )
+                (Subscript
+                    (Name
+                        a1
+                        Load
+                    )
+                    (ConstantInt
+                        1
+                        ()
+                    )
+                    Load
+                )]
+                Load
+            )
+            ()
+        )
+        (AnnAssign
+            (Name
+                a11
+                Store
+            )
+            (Subscript
+                (Name
+                    tuple
+                    Load
+                )
+                (Tuple
+                    [(Name
+                        i32
+                        Load
+                    )
+                    (Name
+                        i32
+                        Load
+                    )]
+                    Load
+                )
+                Load
+            )
+            ()
+            1
+        )
+        (AnnAssign
+            (Name
+                b11
+                Store
+            )
+            (Subscript
+                (Name
+                    tuple
+                    Load
+                )
+                (Tuple
+                    [(Name
+                        i32
+                        Load
+                    )
+                    (Name
+                        i32
+                        Load
+                    )]
+                    Load
+                )
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                a11
+                Store
+            )]
+            (Tuple
+                [(ConstantInt
+                    1
+                    ()
+                )
+                (ConstantInt
+                    2
+                    ()
+                )]
+                Load
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                b11
+                Store
+            )]
+            (Tuple
+                [(ConstantInt
+                    1
+                    ()
+                )
+                (ConstantInt
+                    2
+                    ()
+                )]
+                Load
+            )
+            ()
+        )
+        (Assert
+            (Compare
+                (Name
+                    a11
+                    Load
+                )
+                Eq
+                [(Name
+                    b11
+                    Load
+                )]
+            )
+            ()
+        )]
+        []
+        ()
+        ()
+    )]
+    []
+)
diff --git a/tests/reference/ast_new-async1-b3d07ed.json b/tests/reference/ast_new-async1-b3d07ed.json
index db04b2aed7..78595a5beb 100644
--- a/tests/reference/ast_new-async1-b3d07ed.json
+++ b/tests/reference/ast_new-async1-b3d07ed.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "ast_new-async1-b3d07ed.stdout",
-    "stdout_hash": "1580c6f5bca7b5bd74f5cca0f2dc7f165fe454d2a19f12897ea133bd",
+    "stdout_hash": "1f809509a8c0637d93e82cf35a231a0f5e001a0b4bb2cfb37cc962ad",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/ast_new-async1-b3d07ed.stdout b/tests/reference/ast_new-async1-b3d07ed.stdout
index 3896a13631..bf824f2524 100644
--- a/tests/reference/ast_new-async1-b3d07ed.stdout
+++ b/tests/reference/ast_new-async1-b3d07ed.stdout
@@ -1 +1,752 @@
-(Module [(AsyncFunctionDef func ([] [(param1 () ()) (param2 () ())] [] [] [] [] []) [(Expr (Await (Call (Attribute (Name asyncio Load) sleep Load) [(ConstantInt 1 ())] []))) (Expr (Call (Name do_something Load) [] [])) (AsyncFor (Name x Store) (Name y Load) [(Expr (Call (Name do_something Load) [(Name x Load)] []))] [] ()) (AsyncWith [((Call (Name open Load) [(ConstantStr "examples/expr2.py" ()) (ConstantStr "r" ())] []) (Name file Store))] [(Assign [(Name x Store)] (Call (Attribute (Name file Load) read Load) [] []) ())] ())] [] () ()) (AsyncFunctionDef test_01 ([] [] [] [] [] [] []) [(Assign [(Name results Store)] (Await (Call (Attribute (Name tasks Load) gather Load) [(Starred (ListComp (Call (Attribute (Name ag Load) aclose Load) [] []) [((Name ag Store) (Name closing_agens Load) [] 0)]) Load)] [(return_exceptions (ConstantBool .true. ()))])) ()) (With [((Await (Name lock Load)) ())] [(Pass)] ()) (AugAssign (Name data Store) Add (Await (Call (Attribute (Attribute (Name self Load) loop Load) sock_recv Load) [(Name sock Load) (Name DATA_SIZE Load)] []))) (Return (Await (Call (Attribute (Name self Load) run_in_executor Load) [(ConstantNone ()) (Name getaddr_func Load) (Name host Load) (Name port Load) (Name family Load) (Name type Load) (Name proto Load) (Name flags Load)] [])))] [] () ()) (AsyncFunctionDef test_02 ([] [] [] [] [] [] []) [(Assign [(Name items Store)] (ListComp (Await (Call (Attribute (Name q Load) get Load) [] [])) [((Name _ Store) (Call (Name range Load) [(ConstantInt 3 ())] []) [] 0)]) ()) (Expr (SetComp (Await (Name c Load)) [((Name c Store) (List [(Call (Name f Load) [(ConstantInt 1 ())] []) (Call (Name f Load) [(ConstantInt 41 ())] [])] Load) [] 0)])) (Expr (DictComp (Name i Load) (Await (Name c Load)) [((Tuple [(Name i Store) (Name c Store)] Store) (Call (Name enumerate Load) [(List [(Call (Name f Load) [(ConstantInt 1 ())] []) (Call (Name f Load) [(ConstantInt 41 ())] [])] Load)] []) [] 0)])) (Expr (ListComp (Name s Load) [((Name c Store) (List [(Call (Name f Load) [(ConstantStr "" ())] []) (Call (Name f Load) [(ConstantStr "abc" ())] []) (Call (Name f Load) [(ConstantStr "" ())] []) (Call (Name f Load) [(List [(ConstantStr "de" ()) (ConstantStr "fg" ())] Load)] [])] Load) [] 0) ((Name s Store) (Await (Name c Load)) [] 0)])) (Return (GeneratorExp (BinOp (Name i Load) Mult (ConstantInt 2 ())) [((Name i Store) (Call (Name range Load) [(Name n Load)] []) [(Await (Call (Name wrap Load) [(Name i Load)] []))] 0)]))] [] () ()) (AsyncFunctionDef t ([] [] [] [] [] [] []) [(Expr (Call (Attribute (Name results Load) append Load) [(Await (Call (Name anext Load) [(Name g Load)] []))] [])) (Expr (Call (Attribute (Name self Load) assertIn Load) [(ConstantStr "..." ()) (Call (Name repr Load) [(Await (Call (Attribute (Name asyncio Load) wait_for Load) [(Call (Name func Load) [] [])] [(timeout (ConstantInt 10 ()))]))] [])] [])) (Assign [(Name x Store)] (UnaryOp USub (Await (Call (Name bar Load) [] []))) ()) (Return (BinOp (BinOp (BinOp (BinOp (Await (Call (Name bar Load) [] [])) Add (Await (Call (Call (Name wrap Load) [] []) [] []))) Add (Await (Call (Call (Call (Subscript (Name db Load) (ConstantStr "b" ()) Load) [] []) [] []) [] []))) Add (BinOp (Await (Call (Name bar Load) [] [])) Mult (ConstantInt 1000 ()))) Add (Await (Call (Call (Attribute (Name DB Load) b Load) [] []) [] []))))] [] () ())] [])
+(Module
+    [(AsyncFunctionDef
+        func
+        ([]
+        [(param1
+        ()
+        ())
+        (param2
+        ()
+        ())]
+        []
+        []
+        []
+        []
+        [])
+        [(Expr
+            (Await
+                (Call
+                    (Attribute
+                        (Name
+                            asyncio
+                            Load
+                        )
+                        sleep
+                        Load
+                    )
+                    [(ConstantInt
+                        1
+                        ()
+                    )]
+                    []
+                )
+            )
+        )
+        (Expr
+            (Call
+                (Name
+                    do_something
+                    Load
+                )
+                []
+                []
+            )
+        )
+        (AsyncFor
+            (Name
+                x
+                Store
+            )
+            (Name
+                y
+                Load
+            )
+            [(Expr
+                (Call
+                    (Name
+                        do_something
+                        Load
+                    )
+                    [(Name
+                        x
+                        Load
+                    )]
+                    []
+                )
+            )]
+            []
+            ()
+        )
+        (AsyncWith
+            [((Call
+                (Name
+                    open
+                    Load
+                )
+                [(ConstantStr
+                    "examples/expr2.py"
+                    ()
+                )
+                (ConstantStr
+                    "r"
+                    ()
+                )]
+                []
+            )
+            (Name
+                file
+                Store
+            ))]
+            [(Assign
+                [(Name
+                    x
+                    Store
+                )]
+                (Call
+                    (Attribute
+                        (Name
+                            file
+                            Load
+                        )
+                        read
+                        Load
+                    )
+                    []
+                    []
+                )
+                ()
+            )]
+            ()
+        )]
+        []
+        ()
+        ()
+    )
+    (AsyncFunctionDef
+        test_01
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(Assign
+            [(Name
+                results
+                Store
+            )]
+            (Await
+                (Call
+                    (Attribute
+                        (Name
+                            tasks
+                            Load
+                        )
+                        gather
+                        Load
+                    )
+                    [(Starred
+                        (ListComp
+                            (Call
+                                (Attribute
+                                    (Name
+                                        ag
+                                        Load
+                                    )
+                                    aclose
+                                    Load
+                                )
+                                []
+                                []
+                            )
+                            [((Name
+                                ag
+                                Store
+                            )
+                            (Name
+                                closing_agens
+                                Load
+                            )
+                            []
+                            0)]
+                        )
+                        Load
+                    )]
+                    [(return_exceptions
+                    (ConstantBool
+                        .true.
+                        ()
+                    ))]
+                )
+            )
+            ()
+        )
+        (With
+            [((Await
+                (Name
+                    lock
+                    Load
+                )
+            )
+            ())]
+            [(Pass)]
+            ()
+        )
+        (AugAssign
+            (Name
+                data
+                Store
+            )
+            Add
+            (Await
+                (Call
+                    (Attribute
+                        (Attribute
+                            (Name
+                                self
+                                Load
+                            )
+                            loop
+                            Load
+                        )
+                        sock_recv
+                        Load
+                    )
+                    [(Name
+                        sock
+                        Load
+                    )
+                    (Name
+                        DATA_SIZE
+                        Load
+                    )]
+                    []
+                )
+            )
+        )
+        (Return
+            (Await
+                (Call
+                    (Attribute
+                        (Name
+                            self
+                            Load
+                        )
+                        run_in_executor
+                        Load
+                    )
+                    [(ConstantNone
+                        ()
+                    )
+                    (Name
+                        getaddr_func
+                        Load
+                    )
+                    (Name
+                        host
+                        Load
+                    )
+                    (Name
+                        port
+                        Load
+                    )
+                    (Name
+                        family
+                        Load
+                    )
+                    (Name
+                        type
+                        Load
+                    )
+                    (Name
+                        proto
+                        Load
+                    )
+                    (Name
+                        flags
+                        Load
+                    )]
+                    []
+                )
+            )
+        )]
+        []
+        ()
+        ()
+    )
+    (AsyncFunctionDef
+        test_02
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(Assign
+            [(Name
+                items
+                Store
+            )]
+            (ListComp
+                (Await
+                    (Call
+                        (Attribute
+                            (Name
+                                q
+                                Load
+                            )
+                            get
+                            Load
+                        )
+                        []
+                        []
+                    )
+                )
+                [((Name
+                    _
+                    Store
+                )
+                (Call
+                    (Name
+                        range
+                        Load
+                    )
+                    [(ConstantInt
+                        3
+                        ()
+                    )]
+                    []
+                )
+                []
+                0)]
+            )
+            ()
+        )
+        (Expr
+            (SetComp
+                (Await
+                    (Name
+                        c
+                        Load
+                    )
+                )
+                [((Name
+                    c
+                    Store
+                )
+                (List
+                    [(Call
+                        (Name
+                            f
+                            Load
+                        )
+                        [(ConstantInt
+                            1
+                            ()
+                        )]
+                        []
+                    )
+                    (Call
+                        (Name
+                            f
+                            Load
+                        )
+                        [(ConstantInt
+                            41
+                            ()
+                        )]
+                        []
+                    )]
+                    Load
+                )
+                []
+                0)]
+            )
+        )
+        (Expr
+            (DictComp
+                (Name
+                    i
+                    Load
+                )
+                (Await
+                    (Name
+                        c
+                        Load
+                    )
+                )
+                [((Tuple
+                    [(Name
+                        i
+                        Store
+                    )
+                    (Name
+                        c
+                        Store
+                    )]
+                    Store
+                )
+                (Call
+                    (Name
+                        enumerate
+                        Load
+                    )
+                    [(List
+                        [(Call
+                            (Name
+                                f
+                                Load
+                            )
+                            [(ConstantInt
+                                1
+                                ()
+                            )]
+                            []
+                        )
+                        (Call
+                            (Name
+                                f
+                                Load
+                            )
+                            [(ConstantInt
+                                41
+                                ()
+                            )]
+                            []
+                        )]
+                        Load
+                    )]
+                    []
+                )
+                []
+                0)]
+            )
+        )
+        (Expr
+            (ListComp
+                (Name
+                    s
+                    Load
+                )
+                [((Name
+                    c
+                    Store
+                )
+                (List
+                    [(Call
+                        (Name
+                            f
+                            Load
+                        )
+                        [(ConstantStr
+                            ""
+                            ()
+                        )]
+                        []
+                    )
+                    (Call
+                        (Name
+                            f
+                            Load
+                        )
+                        [(ConstantStr
+                            "abc"
+                            ()
+                        )]
+                        []
+                    )
+                    (Call
+                        (Name
+                            f
+                            Load
+                        )
+                        [(ConstantStr
+                            ""
+                            ()
+                        )]
+                        []
+                    )
+                    (Call
+                        (Name
+                            f
+                            Load
+                        )
+                        [(List
+                            [(ConstantStr
+                                "de"
+                                ()
+                            )
+                            (ConstantStr
+                                "fg"
+                                ()
+                            )]
+                            Load
+                        )]
+                        []
+                    )]
+                    Load
+                )
+                []
+                0)
+                ((Name
+                    s
+                    Store
+                )
+                (Await
+                    (Name
+                        c
+                        Load
+                    )
+                )
+                []
+                0)]
+            )
+        )
+        (Return
+            (GeneratorExp
+                (BinOp
+                    (Name
+                        i
+                        Load
+                    )
+                    Mult
+                    (ConstantInt
+                        2
+                        ()
+                    )
+                )
+                [((Name
+                    i
+                    Store
+                )
+                (Call
+                    (Name
+                        range
+                        Load
+                    )
+                    [(Name
+                        n
+                        Load
+                    )]
+                    []
+                )
+                [(Await
+                    (Call
+                        (Name
+                            wrap
+                            Load
+                        )
+                        [(Name
+                            i
+                            Load
+                        )]
+                        []
+                    )
+                )]
+                0)]
+            )
+        )]
+        []
+        ()
+        ()
+    )
+    (AsyncFunctionDef
+        t
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(Expr
+            (Call
+                (Attribute
+                    (Name
+                        results
+                        Load
+                    )
+                    append
+                    Load
+                )
+                [(Await
+                    (Call
+                        (Name
+                            anext
+                            Load
+                        )
+                        [(Name
+                            g
+                            Load
+                        )]
+                        []
+                    )
+                )]
+                []
+            )
+        )
+        (Expr
+            (Call
+                (Attribute
+                    (Name
+                        self
+                        Load
+                    )
+                    assertIn
+                    Load
+                )
+                [(ConstantStr
+                    "..."
+                    ()
+                )
+                (Call
+                    (Name
+                        repr
+                        Load
+                    )
+                    [(Await
+                        (Call
+                            (Attribute
+                                (Name
+                                    asyncio
+                                    Load
+                                )
+                                wait_for
+                                Load
+                            )
+                            [(Call
+                                (Name
+                                    func
+                                    Load
+                                )
+                                []
+                                []
+                            )]
+                            [(timeout
+                            (ConstantInt
+                                10
+                                ()
+                            ))]
+                        )
+                    )]
+                    []
+                )]
+                []
+            )
+        )
+        (Assign
+            [(Name
+                x
+                Store
+            )]
+            (UnaryOp
+                USub
+                (Await
+                    (Call
+                        (Name
+                            bar
+                            Load
+                        )
+                        []
+                        []
+                    )
+                )
+            )
+            ()
+        )
+        (Return
+            (BinOp
+                (BinOp
+                    (BinOp
+                        (BinOp
+                            (Await
+                                (Call
+                                    (Name
+                                        bar
+                                        Load
+                                    )
+                                    []
+                                    []
+                                )
+                            )
+                            Add
+                            (Await
+                                (Call
+                                    (Call
+                                        (Name
+                                            wrap
+                                            Load
+                                        )
+                                        []
+                                        []
+                                    )
+                                    []
+                                    []
+                                )
+                            )
+                        )
+                        Add
+                        (Await
+                            (Call
+                                (Call
+                                    (Call
+                                        (Subscript
+                                            (Name
+                                                db
+                                                Load
+                                            )
+                                            (ConstantStr
+                                                "b"
+                                                ()
+                                            )
+                                            Load
+                                        )
+                                        []
+                                        []
+                                    )
+                                    []
+                                    []
+                                )
+                                []
+                                []
+                            )
+                        )
+                    )
+                    Add
+                    (BinOp
+                        (Await
+                            (Call
+                                (Name
+                                    bar
+                                    Load
+                                )
+                                []
+                                []
+                            )
+                        )
+                        Mult
+                        (ConstantInt
+                            1000
+                            ()
+                        )
+                    )
+                )
+                Add
+                (Await
+                    (Call
+                        (Call
+                            (Attribute
+                                (Name
+                                    DB
+                                    Load
+                                )
+                                b
+                                Load
+                            )
+                            []
+                            []
+                        )
+                        []
+                        []
+                    )
+                )
+            )
+        )]
+        []
+        ()
+        ()
+    )]
+    []
+)
diff --git a/tests/reference/ast_new-boolOp1-478328f.json b/tests/reference/ast_new-boolOp1-478328f.json
index 5c0b0a1b23..561331afd8 100644
--- a/tests/reference/ast_new-boolOp1-478328f.json
+++ b/tests/reference/ast_new-boolOp1-478328f.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "ast_new-boolOp1-478328f.stdout",
-    "stdout_hash": "54fed9e79b839b525e9971e086295a412fabd1ccc27820e3432a83f3",
+    "stdout_hash": "e17703190ca113a29b38292421ba27f4d2d8e235a51115e9d3a2710f",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/ast_new-boolOp1-478328f.stdout b/tests/reference/ast_new-boolOp1-478328f.stdout
index 0b1d2bb543..665f42a764 100644
--- a/tests/reference/ast_new-boolOp1-478328f.stdout
+++ b/tests/reference/ast_new-boolOp1-478328f.stdout
@@ -1 +1,206 @@
-(Module [(Expr (BoolOp And [(Name a Load) (Name b Load)])) (Expr (BoolOp Or [(BoolOp And [(Name a Load) (Name b Load)]) (Name c Load)])) (Expr (BoolOp Or [(Name a Load) (Name b Load)])) (Expr (BoolOp Or [(Name a Load) (BoolOp And [(Name b Load) (Name c Load)])])) (Expr (BoolOp Or [(BoolOp And [(BoolOp And [(Name a Load) (Name b Load)]) (Name c Load)]) (BoolOp Or [(BoolOp Or [(Name x Load) (BoolOp And [(Name y Load) (BoolOp Or [(Name z Load) (Name i Load)])])]) (Name j Load)])])) (Expr (BoolOp And [(BoolOp Or [(BoolOp And [(BoolOp And [(Name a Load) (BoolOp And [(Name b Load) (BoolOp Or [(Name c Load) (Name d Load)])])]) (BoolOp And [(Name e Load) (Name f Load)])]) (Name x Load)]) (Name y Load)])) (Expr (BoolOp Or [(BoolOp Or [(Name a Load) (BoolOp And [(Name b Load) (Name c Load)])]) (Name z Load)]))] [])
+(Module
+    [(Expr
+        (BoolOp
+            And
+            [(Name
+                a
+                Load
+            )
+            (Name
+                b
+                Load
+            )]
+        )
+    )
+    (Expr
+        (BoolOp
+            Or
+            [(BoolOp
+                And
+                [(Name
+                    a
+                    Load
+                )
+                (Name
+                    b
+                    Load
+                )]
+            )
+            (Name
+                c
+                Load
+            )]
+        )
+    )
+    (Expr
+        (BoolOp
+            Or
+            [(Name
+                a
+                Load
+            )
+            (Name
+                b
+                Load
+            )]
+        )
+    )
+    (Expr
+        (BoolOp
+            Or
+            [(Name
+                a
+                Load
+            )
+            (BoolOp
+                And
+                [(Name
+                    b
+                    Load
+                )
+                (Name
+                    c
+                    Load
+                )]
+            )]
+        )
+    )
+    (Expr
+        (BoolOp
+            Or
+            [(BoolOp
+                And
+                [(BoolOp
+                    And
+                    [(Name
+                        a
+                        Load
+                    )
+                    (Name
+                        b
+                        Load
+                    )]
+                )
+                (Name
+                    c
+                    Load
+                )]
+            )
+            (BoolOp
+                Or
+                [(BoolOp
+                    Or
+                    [(Name
+                        x
+                        Load
+                    )
+                    (BoolOp
+                        And
+                        [(Name
+                            y
+                            Load
+                        )
+                        (BoolOp
+                            Or
+                            [(Name
+                                z
+                                Load
+                            )
+                            (Name
+                                i
+                                Load
+                            )]
+                        )]
+                    )]
+                )
+                (Name
+                    j
+                    Load
+                )]
+            )]
+        )
+    )
+    (Expr
+        (BoolOp
+            And
+            [(BoolOp
+                Or
+                [(BoolOp
+                    And
+                    [(BoolOp
+                        And
+                        [(Name
+                            a
+                            Load
+                        )
+                        (BoolOp
+                            And
+                            [(Name
+                                b
+                                Load
+                            )
+                            (BoolOp
+                                Or
+                                [(Name
+                                    c
+                                    Load
+                                )
+                                (Name
+                                    d
+                                    Load
+                                )]
+                            )]
+                        )]
+                    )
+                    (BoolOp
+                        And
+                        [(Name
+                            e
+                            Load
+                        )
+                        (Name
+                            f
+                            Load
+                        )]
+                    )]
+                )
+                (Name
+                    x
+                    Load
+                )]
+            )
+            (Name
+                y
+                Load
+            )]
+        )
+    )
+    (Expr
+        (BoolOp
+            Or
+            [(BoolOp
+                Or
+                [(Name
+                    a
+                    Load
+                )
+                (BoolOp
+                    And
+                    [(Name
+                        b
+                        Load
+                    )
+                    (Name
+                        c
+                        Load
+                    )]
+                )]
+            )
+            (Name
+                z
+                Load
+            )]
+        )
+    )]
+    []
+)
diff --git a/tests/reference/ast_new-class_def1-fe69291.json b/tests/reference/ast_new-class_def1-fe69291.json
index 6c58f71b1b..77bc5ba91c 100644
--- a/tests/reference/ast_new-class_def1-fe69291.json
+++ b/tests/reference/ast_new-class_def1-fe69291.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "ast_new-class_def1-fe69291.stdout",
-    "stdout_hash": "90418d0042429c9bdeb1f15ad1f0cf4916d53a9bd7c7daf5fe901591",
+    "stdout_hash": "9802c1d135072a26d8cc97d779d5c89b93317138aa7903dde7d42fb0",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/ast_new-class_def1-fe69291.stdout b/tests/reference/ast_new-class_def1-fe69291.stdout
index d4eb5c98ca..8f8913cfba 100644
--- a/tests/reference/ast_new-class_def1-fe69291.stdout
+++ b/tests/reference/ast_new-class_def1-fe69291.stdout
@@ -1 +1,500 @@
-(Module [(ClassDef Person [] [] [(FunctionDef __init__ ([] [(self () ()) (name () ()) (age () ())] [] [] [] [] []) [(Assign [(Attribute (Name self Load) name Store)] (Name name Load) ()) (Assign [(Attribute (Name self Load) age Store)] (Name age Load) ())] [] () ()) (FunctionDef print_name ([] [(self () ())] [] [] [] [] []) [(Pass) (Expr (Call (Name print Load) [(BinOp (ConstantStr "Hello my name is " ()) Add (Attribute (Name self Load) name Load))] []))] [] () ())] []) (ClassDef Dog [] [] [(FunctionDef __init__ ([] [(self () ()) (name () ())] [] [] [] [] []) [(Assign [(Attribute (Name self Load) name Store)] (Name name Load) ()) (Assign [(Attribute (Name self Load) tricks Store)] (List [] Load) ())] [] () ()) (FunctionDef add_trick ([] [(self () ()) (trick () ())] [] [] [] [] []) [(Expr (Call (Attribute (Attribute (Name self Load) tricks Load) append Load) [(Name trick Load)] []))] [] () ())] []) (ClassDef Mapping [] [] [(FunctionDef __init__ ([] [(self () ()) (iterable () ())] [] [] [] [] []) [(Assign [(Attribute (Name self Load) items_list Store)] (List [] Load) ()) (Expr (Call (Attribute (Name self Load) __update Load) [(Name iterable Load)] []))] [] () ()) (FunctionDef update ([] [(self () ()) (iterable () ())] [] [] [] [] []) [(For (Name item Store) (Name iterable Load) [(Expr (Call (Attribute (Attribute (Name self Load) items_list Load) append Load) [(Name item Load)] []))] [] ())] [] () ()) (Assign [(Name __update Store)] (Name update Load) ())] []) (ClassDef MappingSubclass [(Name Mapping Load)] [] [(FunctionDef update ([] [(self () ()) (keys () ()) (values () ())] [] [] [] [] []) [(For (Name item Store) (Call (Name zip Load) [(Name keys Load) (Name values Load)] []) [(Expr (Call (Attribute (Attribute (Name self Load) items_list Load) append Load) [(Name item Load)] []))] [] ())] [] () ())] []) (FunctionDef check ([] [] [] [] [] [] []) [(Assign [(Name p Store)] (Call (Name Person Load) [(ConstantStr "John" ()) (ConstantInt 36 ())] []) ()) (Assign [(Name d Store)] (Call (Name Dog Load) [(ConstantStr "Fido" ())] []) ()) (Expr (Call (Attribute (Name d Load) add_trick Load) [(ConstantStr "roll over" ())] [])) (Assign [(Name m Store)] (Call (Name Mapping Load) [(ConstantStr "x" ())] []) ()) (Expr (Call (Attribute (Name m Load) update Load) [(ConstantStr "y" ())] []))] [] () ()) (Expr (Call (Name check Load) [] []))] [])
+(Module
+    [(ClassDef
+        Person
+        []
+        []
+        [(FunctionDef
+            __init__
+            ([]
+            [(self
+            ()
+            ())
+            (name
+            ()
+            ())
+            (age
+            ()
+            ())]
+            []
+            []
+            []
+            []
+            [])
+            [(Assign
+                [(Attribute
+                    (Name
+                        self
+                        Load
+                    )
+                    name
+                    Store
+                )]
+                (Name
+                    name
+                    Load
+                )
+                ()
+            )
+            (Assign
+                [(Attribute
+                    (Name
+                        self
+                        Load
+                    )
+                    age
+                    Store
+                )]
+                (Name
+                    age
+                    Load
+                )
+                ()
+            )]
+            []
+            ()
+            ()
+        )
+        (FunctionDef
+            print_name
+            ([]
+            [(self
+            ()
+            ())]
+            []
+            []
+            []
+            []
+            [])
+            [(Pass)
+            (Expr
+                (Call
+                    (Name
+                        print
+                        Load
+                    )
+                    [(BinOp
+                        (ConstantStr
+                            "Hello my name is "
+                            ()
+                        )
+                        Add
+                        (Attribute
+                            (Name
+                                self
+                                Load
+                            )
+                            name
+                            Load
+                        )
+                    )]
+                    []
+                )
+            )]
+            []
+            ()
+            ()
+        )]
+        []
+    )
+    (ClassDef
+        Dog
+        []
+        []
+        [(FunctionDef
+            __init__
+            ([]
+            [(self
+            ()
+            ())
+            (name
+            ()
+            ())]
+            []
+            []
+            []
+            []
+            [])
+            [(Assign
+                [(Attribute
+                    (Name
+                        self
+                        Load
+                    )
+                    name
+                    Store
+                )]
+                (Name
+                    name
+                    Load
+                )
+                ()
+            )
+            (Assign
+                [(Attribute
+                    (Name
+                        self
+                        Load
+                    )
+                    tricks
+                    Store
+                )]
+                (List
+                    []
+                    Load
+                )
+                ()
+            )]
+            []
+            ()
+            ()
+        )
+        (FunctionDef
+            add_trick
+            ([]
+            [(self
+            ()
+            ())
+            (trick
+            ()
+            ())]
+            []
+            []
+            []
+            []
+            [])
+            [(Expr
+                (Call
+                    (Attribute
+                        (Attribute
+                            (Name
+                                self
+                                Load
+                            )
+                            tricks
+                            Load
+                        )
+                        append
+                        Load
+                    )
+                    [(Name
+                        trick
+                        Load
+                    )]
+                    []
+                )
+            )]
+            []
+            ()
+            ()
+        )]
+        []
+    )
+    (ClassDef
+        Mapping
+        []
+        []
+        [(FunctionDef
+            __init__
+            ([]
+            [(self
+            ()
+            ())
+            (iterable
+            ()
+            ())]
+            []
+            []
+            []
+            []
+            [])
+            [(Assign
+                [(Attribute
+                    (Name
+                        self
+                        Load
+                    )
+                    items_list
+                    Store
+                )]
+                (List
+                    []
+                    Load
+                )
+                ()
+            )
+            (Expr
+                (Call
+                    (Attribute
+                        (Name
+                            self
+                            Load
+                        )
+                        __update
+                        Load
+                    )
+                    [(Name
+                        iterable
+                        Load
+                    )]
+                    []
+                )
+            )]
+            []
+            ()
+            ()
+        )
+        (FunctionDef
+            update
+            ([]
+            [(self
+            ()
+            ())
+            (iterable
+            ()
+            ())]
+            []
+            []
+            []
+            []
+            [])
+            [(For
+                (Name
+                    item
+                    Store
+                )
+                (Name
+                    iterable
+                    Load
+                )
+                [(Expr
+                    (Call
+                        (Attribute
+                            (Attribute
+                                (Name
+                                    self
+                                    Load
+                                )
+                                items_list
+                                Load
+                            )
+                            append
+                            Load
+                        )
+                        [(Name
+                            item
+                            Load
+                        )]
+                        []
+                    )
+                )]
+                []
+                ()
+            )]
+            []
+            ()
+            ()
+        )
+        (Assign
+            [(Name
+                __update
+                Store
+            )]
+            (Name
+                update
+                Load
+            )
+            ()
+        )]
+        []
+    )
+    (ClassDef
+        MappingSubclass
+        [(Name
+            Mapping
+            Load
+        )]
+        []
+        [(FunctionDef
+            update
+            ([]
+            [(self
+            ()
+            ())
+            (keys
+            ()
+            ())
+            (values
+            ()
+            ())]
+            []
+            []
+            []
+            []
+            [])
+            [(For
+                (Name
+                    item
+                    Store
+                )
+                (Call
+                    (Name
+                        zip
+                        Load
+                    )
+                    [(Name
+                        keys
+                        Load
+                    )
+                    (Name
+                        values
+                        Load
+                    )]
+                    []
+                )
+                [(Expr
+                    (Call
+                        (Attribute
+                            (Attribute
+                                (Name
+                                    self
+                                    Load
+                                )
+                                items_list
+                                Load
+                            )
+                            append
+                            Load
+                        )
+                        [(Name
+                            item
+                            Load
+                        )]
+                        []
+                    )
+                )]
+                []
+                ()
+            )]
+            []
+            ()
+            ()
+        )]
+        []
+    )
+    (FunctionDef
+        check
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(Assign
+            [(Name
+                p
+                Store
+            )]
+            (Call
+                (Name
+                    Person
+                    Load
+                )
+                [(ConstantStr
+                    "John"
+                    ()
+                )
+                (ConstantInt
+                    36
+                    ()
+                )]
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                d
+                Store
+            )]
+            (Call
+                (Name
+                    Dog
+                    Load
+                )
+                [(ConstantStr
+                    "Fido"
+                    ()
+                )]
+                []
+            )
+            ()
+        )
+        (Expr
+            (Call
+                (Attribute
+                    (Name
+                        d
+                        Load
+                    )
+                    add_trick
+                    Load
+                )
+                [(ConstantStr
+                    "roll over"
+                    ()
+                )]
+                []
+            )
+        )
+        (Assign
+            [(Name
+                m
+                Store
+            )]
+            (Call
+                (Name
+                    Mapping
+                    Load
+                )
+                [(ConstantStr
+                    "x"
+                    ()
+                )]
+                []
+            )
+            ()
+        )
+        (Expr
+            (Call
+                (Attribute
+                    (Name
+                        m
+                        Load
+                    )
+                    update
+                    Load
+                )
+                [(ConstantStr
+                    "y"
+                    ()
+                )]
+                []
+            )
+        )]
+        []
+        ()
+        ()
+    )
+    (Expr
+        (Call
+            (Name
+                check
+                Load
+            )
+            []
+            []
+        )
+    )]
+    []
+)
diff --git a/tests/reference/ast_new-class_def2-c6db986.json b/tests/reference/ast_new-class_def2-c6db986.json
index 2d70f7b6f9..e03cb049fb 100644
--- a/tests/reference/ast_new-class_def2-c6db986.json
+++ b/tests/reference/ast_new-class_def2-c6db986.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "ast_new-class_def2-c6db986.stdout",
-    "stdout_hash": "0258c4bd6a67c9603ac8761d7ed1cc27dcbe049a04dad480af7be41f",
+    "stdout_hash": "25cb94d2ea083f3e06cf057b1c074808a51365717dca131ce67f06f6",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/ast_new-class_def2-c6db986.stdout b/tests/reference/ast_new-class_def2-c6db986.stdout
index f88677355d..3412c6b551 100644
--- a/tests/reference/ast_new-class_def2-c6db986.stdout
+++ b/tests/reference/ast_new-class_def2-c6db986.stdout
@@ -1 +1,201 @@
-(Module [(ClassDef _DTypeDict [(Name _DTypeDictBase Load)] [(total (ConstantBool .false. ()))] [(Pass)] []) (ClassDef test_01 [] [] [(Pass)] []) (ClassDef test_02 [(Name x Load) (Name y Load)] [] [(Pass)] []) (ClassDef test_03 [(Name x Load)] [(y (ConstantInt 1 ())) (z (ConstantStr "123" ()))] [(Pass)] []) (ClassDef test_04 [(ConstantInt 100 ())] [(() (Name x Load))] [(Pass)] []) (ClassDef test_05 [(Starred (Name x Load) Load)] [(() (Name y Load))] [(Pass)] []) (ClassDef test_06 [(Starred (Name x Load) Load) (Name y Load)] [] [(Pass)] []) (ClassDef test_07 [(Starred (Name x Load) Load) (Starred (Name y Load) Load)] [] [(Pass)] []) (ClassDef test_08 [] [(() (Name x Load)) (() (Name y Load))] [(Pass)] []) (ClassDef test_08 [(Name x Load)] [] [(Pass)] []) (ClassDef sub [(Attribute (Name np Load) ndarray Load)] [] [(Pass)] []) (ClassDef name [] [] [(Expr (ConstantEllipsis ()))] []) (ClassDef MMatrix [(Name MaskedArray Load) (Attribute (Name np Load) matrix Load)] [] [(Expr (ConstantEllipsis ()))] [])] [(TypeIgnore 0 "[misc]")])
+(Module
+    [(ClassDef
+        _DTypeDict
+        [(Name
+            _DTypeDictBase
+            Load
+        )]
+        [(total
+        (ConstantBool
+            .false.
+            ()
+        ))]
+        [(Pass)]
+        []
+    )
+    (ClassDef
+        test_01
+        []
+        []
+        [(Pass)]
+        []
+    )
+    (ClassDef
+        test_02
+        [(Name
+            x
+            Load
+        )
+        (Name
+            y
+            Load
+        )]
+        []
+        [(Pass)]
+        []
+    )
+    (ClassDef
+        test_03
+        [(Name
+            x
+            Load
+        )]
+        [(y
+        (ConstantInt
+            1
+            ()
+        ))
+        (z
+        (ConstantStr
+            "123"
+            ()
+        ))]
+        [(Pass)]
+        []
+    )
+    (ClassDef
+        test_04
+        [(ConstantInt
+            100
+            ()
+        )]
+        [(()
+        (Name
+            x
+            Load
+        ))]
+        [(Pass)]
+        []
+    )
+    (ClassDef
+        test_05
+        [(Starred
+            (Name
+                x
+                Load
+            )
+            Load
+        )]
+        [(()
+        (Name
+            y
+            Load
+        ))]
+        [(Pass)]
+        []
+    )
+    (ClassDef
+        test_06
+        [(Starred
+            (Name
+                x
+                Load
+            )
+            Load
+        )
+        (Name
+            y
+            Load
+        )]
+        []
+        [(Pass)]
+        []
+    )
+    (ClassDef
+        test_07
+        [(Starred
+            (Name
+                x
+                Load
+            )
+            Load
+        )
+        (Starred
+            (Name
+                y
+                Load
+            )
+            Load
+        )]
+        []
+        [(Pass)]
+        []
+    )
+    (ClassDef
+        test_08
+        []
+        [(()
+        (Name
+            x
+            Load
+        ))
+        (()
+        (Name
+            y
+            Load
+        ))]
+        [(Pass)]
+        []
+    )
+    (ClassDef
+        test_08
+        [(Name
+            x
+            Load
+        )]
+        []
+        [(Pass)]
+        []
+    )
+    (ClassDef
+        sub
+        [(Attribute
+            (Name
+                np
+                Load
+            )
+            ndarray
+            Load
+        )]
+        []
+        [(Pass)]
+        []
+    )
+    (ClassDef
+        name
+        []
+        []
+        [(Expr
+            (ConstantEllipsis
+                ()
+            )
+        )]
+        []
+    )
+    (ClassDef
+        MMatrix
+        [(Name
+            MaskedArray
+            Load
+        )
+        (Attribute
+            (Name
+                np
+                Load
+            )
+            matrix
+            Load
+        )]
+        []
+        [(Expr
+            (ConstantEllipsis
+                ()
+            )
+        )]
+        []
+    )]
+    [(TypeIgnore
+        0
+        "[misc]"
+    )]
+)
diff --git a/tests/reference/ast_new-comment2-f0984d5.json b/tests/reference/ast_new-comment2-f0984d5.json
index 660c8782f2..1309f6159f 100644
--- a/tests/reference/ast_new-comment2-f0984d5.json
+++ b/tests/reference/ast_new-comment2-f0984d5.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "ast_new-comment2-f0984d5.stdout",
-    "stdout_hash": "2a109027d057438f0517cc77b3ce793a3f5f35574c09aec9862cd247",
+    "stdout_hash": "4dd8b313619df81c518cdfbddd523b3486b2ad5406ff720dde825af9",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/ast_new-comment2-f0984d5.stdout b/tests/reference/ast_new-comment2-f0984d5.stdout
index 01e4383131..9a9e90f873 100644
--- a/tests/reference/ast_new-comment2-f0984d5.stdout
+++ b/tests/reference/ast_new-comment2-f0984d5.stdout
@@ -1 +1,150 @@
-(Module [(FunctionDef main ([] [] [] [] [] [] []) [(If (Name foo Load) [(If (Name bar Load) [(Pass)] [])] [(Pass)]) (Return ())] [] () ()) (FunctionDef test ([] [] [] [] [] [] []) [(Expr (Call (Name print Load) [] []))] [] () ()) (FunctionDef main ([] [] [] [] [] [] []) [(Expr (Call (Name print Load) [] []))] [] () ()) (FunctionDef main ([] [] [] [] [] [] []) [(Expr (Call (Name print Load) [] [])) (Pass)] [] () ()) (FunctionDef main ([] [] [] [] [] [] []) [(If (Name foo Load) [(Pass) (Pass) (If (Name bar Load) [(Pass)] []) (Pass)] []) (Pass)] [] () ()) (Assign [(Name x Store)] (List [(Name a Load)] Load) ())] [])
+(Module
+    [(FunctionDef
+        main
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(If
+            (Name
+                foo
+                Load
+            )
+            [(If
+                (Name
+                    bar
+                    Load
+                )
+                [(Pass)]
+                []
+            )]
+            [(Pass)]
+        )
+        (Return
+            ()
+        )]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        test
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(Expr
+            (Call
+                (Name
+                    print
+                    Load
+                )
+                []
+                []
+            )
+        )]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        main
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(Expr
+            (Call
+                (Name
+                    print
+                    Load
+                )
+                []
+                []
+            )
+        )]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        main
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(Expr
+            (Call
+                (Name
+                    print
+                    Load
+                )
+                []
+                []
+            )
+        )
+        (Pass)]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        main
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(If
+            (Name
+                foo
+                Load
+            )
+            [(Pass)
+            (Pass)
+            (If
+                (Name
+                    bar
+                    Load
+                )
+                [(Pass)]
+                []
+            )
+            (Pass)]
+            []
+        )
+        (Pass)]
+        []
+        ()
+        ()
+    )
+    (Assign
+        [(Name
+            x
+            Store
+        )]
+        (List
+            [(Name
+                a
+                Load
+            )]
+            Load
+        )
+        ()
+    )]
+    []
+)
diff --git a/tests/reference/ast_new-comprehension1-69cf2af.json b/tests/reference/ast_new-comprehension1-69cf2af.json
index 6e4a0072f3..5bda7d0179 100644
--- a/tests/reference/ast_new-comprehension1-69cf2af.json
+++ b/tests/reference/ast_new-comprehension1-69cf2af.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "ast_new-comprehension1-69cf2af.stdout",
-    "stdout_hash": "05cf378b41fac3311e877082cb0135dd1fc0f806fcc429387d5f6b89",
+    "stdout_hash": "93c8b1b23bf7419338573fda46fd07fc907c0637e0985124bd9f49b1",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/ast_new-comprehension1-69cf2af.stdout b/tests/reference/ast_new-comprehension1-69cf2af.stdout
index 3c3231ddf3..6506a37763 100644
--- a/tests/reference/ast_new-comprehension1-69cf2af.stdout
+++ b/tests/reference/ast_new-comprehension1-69cf2af.stdout
@@ -1 +1,1363 @@
-(Module [(Assign [(Name fruits Store)] (ListComp (Name f Load) [((Name f Store) (Name fruit_list Load) [(Call (Attribute (Name f Load) startswith Load) [(ConstantStr "a" ())] [])] 0)]) ()) (Assign [(Name fruit_list Store)] (ListComp (Name fruit Load) [((Name fruit Store) (Name fruits Load) [] 0)]) ()) (Assign [(Name sum_cord Store)] (ListComp (BinOp (Name x Load) Add (Name y Load)) [((Tuple [(Name x Store) (Name y Store)] Store) (Name points Load) [(BoolOp And [(Compare (Name x Load) Gt [(ConstantInt 0 ())]) (Compare (Name y Load) Gt [(ConstantInt 0 ())])])] 0)]) ()) (Assign [(Name transform_1 Store)] (ListComp (BinOp (BinOp (ConstantInt 2 ()) Mult (Name x Load)) Add (ConstantInt 6 ())) [((Name x Store) (Call (Name range Load) [(ConstantInt 10 ())] []) [] 0)]) ()) (Assign [(Name distance_orig Store)] (ListComp (BinOp (BinOp (BinOp (Name x Load) Pow (ConstantInt 2 ())) Add (BinOp (Name y Load) Pow (ConstantInt 2 ()))) Add (BinOp (Name z Load) Pow (ConstantInt 2 ()))) [((Tuple [(Name x Store) (Name y Store) (Name z Store)] Store) (Name points Load) [] 0)]) ()) (Assign [(Name odd_elements Store)] (ListComp (Name i Load) [((Name i Store) (Name main_list Load) [(BinOp (Name i Load) BitAnd (ConstantInt 1 ()))] 0)]) ()) (Assign [(Name first_ten_elements Store)] (ListComp (Name i Load) [((Name i Store) (Call (Name range Load) [(ConstantInt 10 ())] []) [] 0)]) ()) (Assign [(Name another_ten_elements Store)] (ListComp (Name i Load) [((Name i Store) (Call (Name range Load) [(ConstantInt 10 ())] []) [] 0)]) ()) (Assign [(Name comp Store)] (ListComp (BinOp (Name i Load) Pow (ConstantInt 2 ())) [((Name i Store) (Call (Name range Load) [(ConstantInt 10 ())] []) [(BoolOp And [(Compare (Name i Load) NotIn [(List [(ConstantInt 3 ()) (ConstantInt 5 ()) (ConstantInt 7 ())] Load)]) (Compare (Name i Load) In [(Name list3 Load)])])] 0)]) ()) (Assign [(Name items Store)] (ListComp (Name name Load) [((Tuple [(Name name Store) (Name value Store)] Store) (Call (Attribute (Call (Name vars Load) [(Name argparse Load)] []) items Load) [] []) [(UnaryOp Not (BoolOp Or [(Call (Attribute (Name name Load) startswith Load) [(ConstantStr "_" ())] []) (Compare (Name name Load) Eq [(ConstantStr "ngettext" ())])])) (UnaryOp Not (Call (Attribute (Name inspect Load) ismodule Load) [(Name value Load)] []))] 0)]) ()) (Expr (ListComp (ConstantInt 0 ()) [((Subscript (Name tgt Load) (ConstantInt 0 ()) Store) (Call (Name source Load) [] []) [] 1)])) (Assign [(Name prm_tup Store)] (Call (Name tuple Load) [(GeneratorExp (Call (Name next Load) [(Name parameters Load)] []) [((Name _ Store) (Attribute (Name i Load) __parameters__ Load) [] 0)])] []) ()) (Assign [(Name args Store)] (Call (Attribute (ConstantStr ", " ()) join Load) [(GeneratorExp (Call (Name _to_str Load) [(Name i Load)] []) [((Name i Store) (Attribute (Name self Load) __args__ Load) [] 0)])] []) ()) (Assign [(Name rest Store)] (Call (Name tuple Load) [(GeneratorExp (Name i Load) [((Name i Store) (Call (Name range Load) [(Attribute (Name a Load) ndim Load)] []) [(Compare (Name i Load) NotIn [(Name axis Load)])] 0)])] []) ()) (Expr (GeneratorExp (Call (Name sstr Load) [(Name x Load)] []) [((List [(Name x Store)] Store) (Attribute (Attribute (Name self Load) _module Load) gens Load) [] 0)])) (Expr (Call (Name func Load) [(Starred (ListComp (List [(BinOp (Name x Load) Mult (Name y Load))] Load) [((List [(Name x Store)] Store) (Attribute (Attribute (Name self Load) _module Load) gens Load) [] 0) ((List [(Name y Store)] Store) (Attribute (Attribute (Name J Load) _module Load) gens Load) [] 0)]) Load)] [])) (Expr (GeneratorExp (Name x Load) [((List [(Name a Store) (Name b Store)] Store) (Name y Load) [] 0)])) (Expr (GeneratorExp (Name x Load) [((List [(Name a Store) (Tuple [(Name b Store) (Name c Store)] Store)] Store) (Name y Load) [] 0)])) (Expr (GeneratorExp (Name x Load) [((List [(Tuple [(Name b Store) (Name c Store)] Store)] Store) (Name y Load) [] 0)])) (Expr (GeneratorExp (Name x Load) [((List [] Store) (Name y Load) [] 0)])) (Expr (GeneratorExp (Subscript (Name string Load) (Name i Load) Load) [((Name i Store) (Call (Name range Load) [(BinOp (Call (Name len Load) [(Name string Load)] []) Sub (ConstantInt 1 ())) (UnaryOp USub (ConstantInt 1 ())) (UnaryOp USub (ConstantInt 1 ()))] []) [] 0)])) (Assign [(Name k Store)] (GeneratorExp (BinOp (Name j Load) Add (Name k Load)) [((Tuple [(Name j Store) (Name k Store)] Store) (Call (Name range Load) [(ConstantInt 10 ())] []) [(Compare (Name j Load) Gt [(ConstantInt 0 ())])] 0)]) ()) (Expr (GeneratorExp (BinOp (BinOp (Name left Load) Add (Name size Load)) Add (Name right Load)) [((Tuple [(Name size Store) (Tuple [(Name left Store) (Name right Store)] Store)] Store) (Call (Name zip Load) [(Attribute (Name array Load) shape Load) (Name pad_width Load)] []) [] 0)])) (Assign [(Name viter Store)] (GeneratorExp (Tuple [(Name i Load) (Name j Load)] Load) [((Tuple [(Tuple [(Name i Store) (Name _ Store)] Store) (Tuple [(Name j Store) (Name _ Store)] Store)] Store) (Call (Name zip Load) [(Subscript (Name newargs Load) (Slice (ConstantInt 1 ()) () ()) Load) (Subscript (Name args Load) (Slice (ConstantInt 1 ()) () ()) Load)] []) [] 0)]) ()) (Assign [(Name newSet Store)] (SetComp (BinOp (Name element Load) Mult (ConstantInt 3 ())) [((Name element Store) (Name myList Load) [] 0)]) ()) (Assign [(Name newSet Store)] (SetComp (BinOp (Name element Load) Mult (ConstantInt 3 ())) [((Name element Store) (Name myList Load) [(Compare (BinOp (Name element Load) Mod (ConstantInt 2 ())) Eq [(ConstantInt 0 ())])] 0)]) ()) (Expr (DictComp (Name x Load) (BinOp (Name x Load) Pow (ConstantInt 3 ())) [((Name x Store) (Call (Name range Load) [(ConstantInt 10 ())] []) [(Compare (BinOp (BinOp (Name x Load) Pow (ConstantInt 3 ())) Mod (ConstantInt 4 ())) Eq [(ConstantInt 0 ())])] 0)])) (Assign [(Name square_dict Store)] (DictComp (Name num Load) (BinOp (Name num Load) Mult (Name num Load)) [((Name num Store) (Call (Name range Load) [(ConstantInt 1 ()) (ConstantInt 11 ())] []) [] 0)]) ()) (Assign [(Name error_names Store)] (ListComp (Subscript (Call (Attribute (Name test_full_name Load) split Load) [(ConstantStr " " ())] []) (ConstantInt 0 ()) Load) [((Tuple [(Name test_full_name Store) (Starred (Name _ Store) Store)] Store) (Name errors Load) [] 0)]) ())] [])
+(Module
+    [(Assign
+        [(Name
+            fruits
+            Store
+        )]
+        (ListComp
+            (Name
+                f
+                Load
+            )
+            [((Name
+                f
+                Store
+            )
+            (Name
+                fruit_list
+                Load
+            )
+            [(Call
+                (Attribute
+                    (Name
+                        f
+                        Load
+                    )
+                    startswith
+                    Load
+                )
+                [(ConstantStr
+                    "a"
+                    ()
+                )]
+                []
+            )]
+            0)]
+        )
+        ()
+    )
+    (Assign
+        [(Name
+            fruit_list
+            Store
+        )]
+        (ListComp
+            (Name
+                fruit
+                Load
+            )
+            [((Name
+                fruit
+                Store
+            )
+            (Name
+                fruits
+                Load
+            )
+            []
+            0)]
+        )
+        ()
+    )
+    (Assign
+        [(Name
+            sum_cord
+            Store
+        )]
+        (ListComp
+            (BinOp
+                (Name
+                    x
+                    Load
+                )
+                Add
+                (Name
+                    y
+                    Load
+                )
+            )
+            [((Tuple
+                [(Name
+                    x
+                    Store
+                )
+                (Name
+                    y
+                    Store
+                )]
+                Store
+            )
+            (Name
+                points
+                Load
+            )
+            [(BoolOp
+                And
+                [(Compare
+                    (Name
+                        x
+                        Load
+                    )
+                    Gt
+                    [(ConstantInt
+                        0
+                        ()
+                    )]
+                )
+                (Compare
+                    (Name
+                        y
+                        Load
+                    )
+                    Gt
+                    [(ConstantInt
+                        0
+                        ()
+                    )]
+                )]
+            )]
+            0)]
+        )
+        ()
+    )
+    (Assign
+        [(Name
+            transform_1
+            Store
+        )]
+        (ListComp
+            (BinOp
+                (BinOp
+                    (ConstantInt
+                        2
+                        ()
+                    )
+                    Mult
+                    (Name
+                        x
+                        Load
+                    )
+                )
+                Add
+                (ConstantInt
+                    6
+                    ()
+                )
+            )
+            [((Name
+                x
+                Store
+            )
+            (Call
+                (Name
+                    range
+                    Load
+                )
+                [(ConstantInt
+                    10
+                    ()
+                )]
+                []
+            )
+            []
+            0)]
+        )
+        ()
+    )
+    (Assign
+        [(Name
+            distance_orig
+            Store
+        )]
+        (ListComp
+            (BinOp
+                (BinOp
+                    (BinOp
+                        (Name
+                            x
+                            Load
+                        )
+                        Pow
+                        (ConstantInt
+                            2
+                            ()
+                        )
+                    )
+                    Add
+                    (BinOp
+                        (Name
+                            y
+                            Load
+                        )
+                        Pow
+                        (ConstantInt
+                            2
+                            ()
+                        )
+                    )
+                )
+                Add
+                (BinOp
+                    (Name
+                        z
+                        Load
+                    )
+                    Pow
+                    (ConstantInt
+                        2
+                        ()
+                    )
+                )
+            )
+            [((Tuple
+                [(Name
+                    x
+                    Store
+                )
+                (Name
+                    y
+                    Store
+                )
+                (Name
+                    z
+                    Store
+                )]
+                Store
+            )
+            (Name
+                points
+                Load
+            )
+            []
+            0)]
+        )
+        ()
+    )
+    (Assign
+        [(Name
+            odd_elements
+            Store
+        )]
+        (ListComp
+            (Name
+                i
+                Load
+            )
+            [((Name
+                i
+                Store
+            )
+            (Name
+                main_list
+                Load
+            )
+            [(BinOp
+                (Name
+                    i
+                    Load
+                )
+                BitAnd
+                (ConstantInt
+                    1
+                    ()
+                )
+            )]
+            0)]
+        )
+        ()
+    )
+    (Assign
+        [(Name
+            first_ten_elements
+            Store
+        )]
+        (ListComp
+            (Name
+                i
+                Load
+            )
+            [((Name
+                i
+                Store
+            )
+            (Call
+                (Name
+                    range
+                    Load
+                )
+                [(ConstantInt
+                    10
+                    ()
+                )]
+                []
+            )
+            []
+            0)]
+        )
+        ()
+    )
+    (Assign
+        [(Name
+            another_ten_elements
+            Store
+        )]
+        (ListComp
+            (Name
+                i
+                Load
+            )
+            [((Name
+                i
+                Store
+            )
+            (Call
+                (Name
+                    range
+                    Load
+                )
+                [(ConstantInt
+                    10
+                    ()
+                )]
+                []
+            )
+            []
+            0)]
+        )
+        ()
+    )
+    (Assign
+        [(Name
+            comp
+            Store
+        )]
+        (ListComp
+            (BinOp
+                (Name
+                    i
+                    Load
+                )
+                Pow
+                (ConstantInt
+                    2
+                    ()
+                )
+            )
+            [((Name
+                i
+                Store
+            )
+            (Call
+                (Name
+                    range
+                    Load
+                )
+                [(ConstantInt
+                    10
+                    ()
+                )]
+                []
+            )
+            [(BoolOp
+                And
+                [(Membership
+                    (Name
+                        i
+                        Load
+                    )
+                    NotIn
+                    (List
+                        [(ConstantInt
+                            3
+                            ()
+                        )
+                        (ConstantInt
+                            5
+                            ()
+                        )
+                        (ConstantInt
+                            7
+                            ()
+                        )]
+                        Load
+                    )
+                )
+                (Membership
+                    (Name
+                        i
+                        Load
+                    )
+                    In
+                    (Name
+                        list3
+                        Load
+                    )
+                )]
+            )]
+            0)]
+        )
+        ()
+    )
+    (Assign
+        [(Name
+            items
+            Store
+        )]
+        (ListComp
+            (Name
+                name
+                Load
+            )
+            [((Tuple
+                [(Name
+                    name
+                    Store
+                )
+                (Name
+                    value
+                    Store
+                )]
+                Store
+            )
+            (Call
+                (Attribute
+                    (Call
+                        (Name
+                            vars
+                            Load
+                        )
+                        [(Name
+                            argparse
+                            Load
+                        )]
+                        []
+                    )
+                    items
+                    Load
+                )
+                []
+                []
+            )
+            [(UnaryOp
+                Not
+                (BoolOp
+                    Or
+                    [(Call
+                        (Attribute
+                            (Name
+                                name
+                                Load
+                            )
+                            startswith
+                            Load
+                        )
+                        [(ConstantStr
+                            "_"
+                            ()
+                        )]
+                        []
+                    )
+                    (Compare
+                        (Name
+                            name
+                            Load
+                        )
+                        Eq
+                        [(ConstantStr
+                            "ngettext"
+                            ()
+                        )]
+                    )]
+                )
+            )
+            (UnaryOp
+                Not
+                (Call
+                    (Attribute
+                        (Name
+                            inspect
+                            Load
+                        )
+                        ismodule
+                        Load
+                    )
+                    [(Name
+                        value
+                        Load
+                    )]
+                    []
+                )
+            )]
+            0)]
+        )
+        ()
+    )
+    (Expr
+        (ListComp
+            (ConstantInt
+                0
+                ()
+            )
+            [((Subscript
+                (Name
+                    tgt
+                    Load
+                )
+                (ConstantInt
+                    0
+                    ()
+                )
+                Store
+            )
+            (Call
+                (Name
+                    source
+                    Load
+                )
+                []
+                []
+            )
+            []
+            1)]
+        )
+    )
+    (Assign
+        [(Name
+            prm_tup
+            Store
+        )]
+        (Call
+            (Name
+                tuple
+                Load
+            )
+            [(GeneratorExp
+                (Call
+                    (Name
+                        next
+                        Load
+                    )
+                    [(Name
+                        parameters
+                        Load
+                    )]
+                    []
+                )
+                [((Name
+                    _
+                    Store
+                )
+                (Attribute
+                    (Name
+                        i
+                        Load
+                    )
+                    __parameters__
+                    Load
+                )
+                []
+                0)]
+            )]
+            []
+        )
+        ()
+    )
+    (Assign
+        [(Name
+            args
+            Store
+        )]
+        (Call
+            (Attribute
+                (ConstantStr
+                    ", "
+                    ()
+                )
+                join
+                Load
+            )
+            [(GeneratorExp
+                (Call
+                    (Name
+                        _to_str
+                        Load
+                    )
+                    [(Name
+                        i
+                        Load
+                    )]
+                    []
+                )
+                [((Name
+                    i
+                    Store
+                )
+                (Attribute
+                    (Name
+                        self
+                        Load
+                    )
+                    __args__
+                    Load
+                )
+                []
+                0)]
+            )]
+            []
+        )
+        ()
+    )
+    (Assign
+        [(Name
+            rest
+            Store
+        )]
+        (Call
+            (Name
+                tuple
+                Load
+            )
+            [(GeneratorExp
+                (Name
+                    i
+                    Load
+                )
+                [((Name
+                    i
+                    Store
+                )
+                (Call
+                    (Name
+                        range
+                        Load
+                    )
+                    [(Attribute
+                        (Name
+                            a
+                            Load
+                        )
+                        ndim
+                        Load
+                    )]
+                    []
+                )
+                [(Membership
+                    (Name
+                        i
+                        Load
+                    )
+                    NotIn
+                    (Name
+                        axis
+                        Load
+                    )
+                )]
+                0)]
+            )]
+            []
+        )
+        ()
+    )
+    (Expr
+        (GeneratorExp
+            (Call
+                (Name
+                    sstr
+                    Load
+                )
+                [(Name
+                    x
+                    Load
+                )]
+                []
+            )
+            [((List
+                [(Name
+                    x
+                    Store
+                )]
+                Store
+            )
+            (Attribute
+                (Attribute
+                    (Name
+                        self
+                        Load
+                    )
+                    _module
+                    Load
+                )
+                gens
+                Load
+            )
+            []
+            0)]
+        )
+    )
+    (Expr
+        (Call
+            (Name
+                func
+                Load
+            )
+            [(Starred
+                (ListComp
+                    (List
+                        [(BinOp
+                            (Name
+                                x
+                                Load
+                            )
+                            Mult
+                            (Name
+                                y
+                                Load
+                            )
+                        )]
+                        Load
+                    )
+                    [((List
+                        [(Name
+                            x
+                            Store
+                        )]
+                        Store
+                    )
+                    (Attribute
+                        (Attribute
+                            (Name
+                                self
+                                Load
+                            )
+                            _module
+                            Load
+                        )
+                        gens
+                        Load
+                    )
+                    []
+                    0)
+                    ((List
+                        [(Name
+                            y
+                            Store
+                        )]
+                        Store
+                    )
+                    (Attribute
+                        (Attribute
+                            (Name
+                                J
+                                Load
+                            )
+                            _module
+                            Load
+                        )
+                        gens
+                        Load
+                    )
+                    []
+                    0)]
+                )
+                Load
+            )]
+            []
+        )
+    )
+    (Expr
+        (GeneratorExp
+            (Name
+                x
+                Load
+            )
+            [((List
+                [(Name
+                    a
+                    Store
+                )
+                (Name
+                    b
+                    Store
+                )]
+                Store
+            )
+            (Name
+                y
+                Load
+            )
+            []
+            0)]
+        )
+    )
+    (Expr
+        (GeneratorExp
+            (Name
+                x
+                Load
+            )
+            [((List
+                [(Name
+                    a
+                    Store
+                )
+                (Tuple
+                    [(Name
+                        b
+                        Store
+                    )
+                    (Name
+                        c
+                        Store
+                    )]
+                    Store
+                )]
+                Store
+            )
+            (Name
+                y
+                Load
+            )
+            []
+            0)]
+        )
+    )
+    (Expr
+        (GeneratorExp
+            (Name
+                x
+                Load
+            )
+            [((List
+                [(Tuple
+                    [(Name
+                        b
+                        Store
+                    )
+                    (Name
+                        c
+                        Store
+                    )]
+                    Store
+                )]
+                Store
+            )
+            (Name
+                y
+                Load
+            )
+            []
+            0)]
+        )
+    )
+    (Expr
+        (GeneratorExp
+            (Name
+                x
+                Load
+            )
+            [((List
+                []
+                Store
+            )
+            (Name
+                y
+                Load
+            )
+            []
+            0)]
+        )
+    )
+    (Expr
+        (GeneratorExp
+            (Subscript
+                (Name
+                    string
+                    Load
+                )
+                (Name
+                    i
+                    Load
+                )
+                Load
+            )
+            [((Name
+                i
+                Store
+            )
+            (Call
+                (Name
+                    range
+                    Load
+                )
+                [(BinOp
+                    (Call
+                        (Name
+                            len
+                            Load
+                        )
+                        [(Name
+                            string
+                            Load
+                        )]
+                        []
+                    )
+                    Sub
+                    (ConstantInt
+                        1
+                        ()
+                    )
+                )
+                (UnaryOp
+                    USub
+                    (ConstantInt
+                        1
+                        ()
+                    )
+                )
+                (UnaryOp
+                    USub
+                    (ConstantInt
+                        1
+                        ()
+                    )
+                )]
+                []
+            )
+            []
+            0)]
+        )
+    )
+    (Assign
+        [(Name
+            k
+            Store
+        )]
+        (GeneratorExp
+            (BinOp
+                (Name
+                    j
+                    Load
+                )
+                Add
+                (Name
+                    k
+                    Load
+                )
+            )
+            [((Tuple
+                [(Name
+                    j
+                    Store
+                )
+                (Name
+                    k
+                    Store
+                )]
+                Store
+            )
+            (Call
+                (Name
+                    range
+                    Load
+                )
+                [(ConstantInt
+                    10
+                    ()
+                )]
+                []
+            )
+            [(Compare
+                (Name
+                    j
+                    Load
+                )
+                Gt
+                [(ConstantInt
+                    0
+                    ()
+                )]
+            )]
+            0)]
+        )
+        ()
+    )
+    (Expr
+        (GeneratorExp
+            (BinOp
+                (BinOp
+                    (Name
+                        left
+                        Load
+                    )
+                    Add
+                    (Name
+                        size
+                        Load
+                    )
+                )
+                Add
+                (Name
+                    right
+                    Load
+                )
+            )
+            [((Tuple
+                [(Name
+                    size
+                    Store
+                )
+                (Tuple
+                    [(Name
+                        left
+                        Store
+                    )
+                    (Name
+                        right
+                        Store
+                    )]
+                    Store
+                )]
+                Store
+            )
+            (Call
+                (Name
+                    zip
+                    Load
+                )
+                [(Attribute
+                    (Name
+                        array
+                        Load
+                    )
+                    shape
+                    Load
+                )
+                (Name
+                    pad_width
+                    Load
+                )]
+                []
+            )
+            []
+            0)]
+        )
+    )
+    (Assign
+        [(Name
+            viter
+            Store
+        )]
+        (GeneratorExp
+            (Tuple
+                [(Name
+                    i
+                    Load
+                )
+                (Name
+                    j
+                    Load
+                )]
+                Load
+            )
+            [((Tuple
+                [(Tuple
+                    [(Name
+                        i
+                        Store
+                    )
+                    (Name
+                        _
+                        Store
+                    )]
+                    Store
+                )
+                (Tuple
+                    [(Name
+                        j
+                        Store
+                    )
+                    (Name
+                        _
+                        Store
+                    )]
+                    Store
+                )]
+                Store
+            )
+            (Call
+                (Name
+                    zip
+                    Load
+                )
+                [(Subscript
+                    (Name
+                        newargs
+                        Load
+                    )
+                    (Slice
+                        (ConstantInt
+                            1
+                            ()
+                        )
+                        ()
+                        ()
+                    )
+                    Load
+                )
+                (Subscript
+                    (Name
+                        args
+                        Load
+                    )
+                    (Slice
+                        (ConstantInt
+                            1
+                            ()
+                        )
+                        ()
+                        ()
+                    )
+                    Load
+                )]
+                []
+            )
+            []
+            0)]
+        )
+        ()
+    )
+    (Assign
+        [(Name
+            newSet
+            Store
+        )]
+        (SetComp
+            (BinOp
+                (Name
+                    element
+                    Load
+                )
+                Mult
+                (ConstantInt
+                    3
+                    ()
+                )
+            )
+            [((Name
+                element
+                Store
+            )
+            (Name
+                myList
+                Load
+            )
+            []
+            0)]
+        )
+        ()
+    )
+    (Assign
+        [(Name
+            newSet
+            Store
+        )]
+        (SetComp
+            (BinOp
+                (Name
+                    element
+                    Load
+                )
+                Mult
+                (ConstantInt
+                    3
+                    ()
+                )
+            )
+            [((Name
+                element
+                Store
+            )
+            (Name
+                myList
+                Load
+            )
+            [(Compare
+                (BinOp
+                    (Name
+                        element
+                        Load
+                    )
+                    Mod
+                    (ConstantInt
+                        2
+                        ()
+                    )
+                )
+                Eq
+                [(ConstantInt
+                    0
+                    ()
+                )]
+            )]
+            0)]
+        )
+        ()
+    )
+    (Expr
+        (DictComp
+            (Name
+                x
+                Load
+            )
+            (BinOp
+                (Name
+                    x
+                    Load
+                )
+                Pow
+                (ConstantInt
+                    3
+                    ()
+                )
+            )
+            [((Name
+                x
+                Store
+            )
+            (Call
+                (Name
+                    range
+                    Load
+                )
+                [(ConstantInt
+                    10
+                    ()
+                )]
+                []
+            )
+            [(Compare
+                (BinOp
+                    (BinOp
+                        (Name
+                            x
+                            Load
+                        )
+                        Pow
+                        (ConstantInt
+                            3
+                            ()
+                        )
+                    )
+                    Mod
+                    (ConstantInt
+                        4
+                        ()
+                    )
+                )
+                Eq
+                [(ConstantInt
+                    0
+                    ()
+                )]
+            )]
+            0)]
+        )
+    )
+    (Assign
+        [(Name
+            square_dict
+            Store
+        )]
+        (DictComp
+            (Name
+                num
+                Load
+            )
+            (BinOp
+                (Name
+                    num
+                    Load
+                )
+                Mult
+                (Name
+                    num
+                    Load
+                )
+            )
+            [((Name
+                num
+                Store
+            )
+            (Call
+                (Name
+                    range
+                    Load
+                )
+                [(ConstantInt
+                    1
+                    ()
+                )
+                (ConstantInt
+                    11
+                    ()
+                )]
+                []
+            )
+            []
+            0)]
+        )
+        ()
+    )
+    (Assign
+        [(Name
+            error_names
+            Store
+        )]
+        (ListComp
+            (Subscript
+                (Call
+                    (Attribute
+                        (Name
+                            test_full_name
+                            Load
+                        )
+                        split
+                        Load
+                    )
+                    [(ConstantStr
+                        " "
+                        ()
+                    )]
+                    []
+                )
+                (ConstantInt
+                    0
+                    ()
+                )
+                Load
+            )
+            [((Tuple
+                [(Name
+                    test_full_name
+                    Store
+                )
+                (Starred
+                    (Name
+                        _
+                        Store
+                    )
+                    Store
+                )]
+                Store
+            )
+            (Name
+                errors
+                Load
+            )
+            []
+            0)]
+        )
+        ()
+    )]
+    []
+)
diff --git a/tests/reference/ast_new-conditional_expr1-07ccb9e.json b/tests/reference/ast_new-conditional_expr1-07ccb9e.json
index 0dc3787c20..c3a1c95270 100644
--- a/tests/reference/ast_new-conditional_expr1-07ccb9e.json
+++ b/tests/reference/ast_new-conditional_expr1-07ccb9e.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "ast_new-conditional_expr1-07ccb9e.stdout",
-    "stdout_hash": "251284c9d204fc5bea30416beb5eae7c591f6fdc2fa050307a249157",
+    "stdout_hash": "dfedb3fe94d880e8827e7569eabc8d1f0e975060db35d4b736e1361d",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/ast_new-conditional_expr1-07ccb9e.stdout b/tests/reference/ast_new-conditional_expr1-07ccb9e.stdout
index defe0e0dfa..2d53752fa7 100644
--- a/tests/reference/ast_new-conditional_expr1-07ccb9e.stdout
+++ b/tests/reference/ast_new-conditional_expr1-07ccb9e.stdout
@@ -1 +1,1069 @@
-(Module [(Assign [(Name b Store)] (IfExp (Compare (Name a Load) Eq [(ConstantInt 2 ())]) (ConstantInt 6 ()) (ConstantInt 8 ())) ()) (Expr (IfExp (ConstantBool .true. ()) (ConstantStr "true" ()) (ConstantStr "false" ()))) (Assign [(Name result Store)] (IfExp (UnaryOp Not (Compare (Name a Load) Gt [(Name b Load)])) (Name x Load) (Name y Load)) ()) (Expr (IfExp (Compare (Name a Load) Gt [(Name b Load)]) (Call (Name print Load) [(Name a Load) (ConstantStr "is greater" ())] []) (Call (Name print Load) [(Name b Load) (ConstantStr "is Greater" ())] []))) (Expr (Call (Name x Load) [(IfExp (ConstantBool .true. ()) (ConstantStr "True" ()) (ConstantStr "False" ()))] [])) (Assign [(Name test Store)] (IfExp (Name a Load) (Call (Name x Load) [(ConstantInt 123 ())] []) (Attribute (Name b Load) c Load)) ()) (Assign [(Name res Store)] (Call (Attribute (Name test Load) x Load) [(IfExp (Compare (Name z Load) Is [(ConstantNone ())]) (ConstantStr "" ()) (Name var Load))] []) ()) (Assign [(Name size Store)] (BinOp (Call (Name sum Load) [(GeneratorExp (IfExp (Compare (Call (Name ord Load) [(Name c Load)] []) Gt [(ConstantInt 65535 ())]) (ConstantInt 2 ()) (ConstantInt 1 ())) [((Name c Store) (Name init Load) [] 0)])] []) Add (ConstantInt 1 ())) ()) (Expr (Tuple [(Name x Load) (Name y Load) (IfExp (Name a Load) (ConstantStr "a" ()) (ConstantStr "b" ()))] Load)) (AugAssign (Name x Store) Add (IfExp (Name true Load) (UnaryOp USub (ConstantInt 1 ())) (ConstantInt 1 ()))) (Expr (Call (IfExp (Compare (Name tktype Load) In [(Name whentrue Load)]) (Attribute (Name self Load) assertTrue Load) (Attribute (Name self Load) assertFalse Load)) [(Call (Name func Load) [] [])] [])) (Assign [(Name x Store)] (SetComp (IfExp (Compare (Call (Name len Load) [(Attribute (Name f Load) parts Load)] []) Gt [(ConstantInt 1 ())]) (Subscript (Attribute (Name f Load) parts Load) (ConstantInt 0 ()) Load) (Attribute (Call (Attribute (Name f Load) with_suffix Load) [(ConstantStr "" ())] []) name Load)) [((Name f Store) (Call (Name always_iterable Load) [(Attribute (Name dist Load) files Load)] []) [(Compare (Attribute (Name f Load) suffix Load) Eq [(ConstantStr ".py" ())])] 0)]) ()) (Assign [(Name return_value Store)] (DictComp (Name key Load) (IfExp (UnaryOp Not (Call (Name isinstance Load) [(Name value Load) (Name str Load)] [])) (Name value Load) (Call (Name eval Load) [(Name value Load) (Name globals Load) (Name locals Load)] [])) [((Tuple [(Name key Store) (Name value Store)] Store) (Call (Attribute (Name ann Load) items Load) [] []) [] 0)]) ()) (Assign [(Name kwonly_sig Store)] (BinOp (Name msg Load) Mod (Tuple [(IfExp (Compare (Name given Load) NotEq [(ConstantInt 1 ())]) (ConstantStr "s" ()) (ConstantStr "" ())) (Name kwonly_given Load) (IfExp (Compare (Name kwonly_given Load) NotEq [(ConstantInt 1 ())]) (ConstantStr "s" ()) (ConstantStr "" ()))] Load)) ()) (Expr (Call (Attribute (Name struct Load) pack_into Load) [(Call (Attribute (ConstantStr "" ()) join Load) [(Name _formats Load)] []) (Attribute (Attribute (Name self Load) shm Load) buf Load) (Attribute (Name self Load) _offset_data_start Load) (Starred (GeneratorExp (IfExp (Call (Name isinstance Load) [(Name v Load) (Name str Load)] []) (Call (Attribute (Name v Load) encode Load) [(Name _enc Load)] []) (Name v Load)) [((Name v Store) (Name sequence Load) [] 0)]) Load)] [])) (For (Name name Store) (IfExp (Compare (Name entries Load) Is [(ConstantNone ())]) (Name dirs Load) (Call (Name zip Load) [(Name dirs Load) (Name entries Load)] [])) [(Expr (ConstantEllipsis ()))] [] ()) (If (IfExp (Compare (Name n Load) Eq [(ConstantInt 0 ())]) (BoolOp Or [(Name root Load) (Name drv Load)]) (Compare (Call (Name cf Load) [(Subscript (Name abs_parts Load) (Slice () (Name n Load) ()) Load)] []) NotEq [(Call (Name cf Load) [(Name to_abs_parts Load)] [])])) [(Expr (ConstantEllipsis ()))] []) (Assign [(Tuple [(Name x Store) (Name y Store)] Store)] (Tuple [(Name thing Load) (IfExp (Call (Name isinstance Load) [(Name name Load) (Name str Load)] []) (Name name Load) (ConstantNone ()))] Load) ()) (Expr (Call (Name print Load) [(BinOp (ConstantStr "%*d%s " ()) Mod (Tuple [(Name offset_width Load) (Name start Load) (IfExp (Compare (Name start Load) In [(Name labels Load)]) (ConstantStr ":" ()) (ConstantStr "." ()))] Load))] [(end (BinOp (ConstantStr "  " ()) Mult (BinOp (Name level Load) Sub (ConstantInt 1 ()))))])) (Assign [(Name Signals Store)] (Dict [(Name C Load) (Name P Load)] [(IfExp (Name C Load) (Call (Name tuple Load) [(Call (Attribute (Attribute (Call (Attribute (Name C Load) getcontext Load) [] []) flags Load) keys Load) [] [])] []) (ConstantNone ())) (Call (Name tuple Load) [(Call (Attribute (Attribute (Call (Attribute (Name P Load) getcontext Load) [] []) flags Load) keys Load) [] [])] [])]) ()) (Assign [(Name chunks Store)] (ListComp (IfExp (Name cond2 Load) (IfExp (Name cond1 Load) (ConstantBytes "b'z'" ()) (ConstantBytes "b'y'" ())) (Name x Load)) [((Name word Store) (Name words Load) [] 0)]) ())] [])
+(Module
+    [(Assign
+        [(Name
+            b
+            Store
+        )]
+        (IfExp
+            (Compare
+                (Name
+                    a
+                    Load
+                )
+                Eq
+                [(ConstantInt
+                    2
+                    ()
+                )]
+            )
+            (ConstantInt
+                6
+                ()
+            )
+            (ConstantInt
+                8
+                ()
+            )
+        )
+        ()
+    )
+    (Expr
+        (IfExp
+            (ConstantBool
+                .true.
+                ()
+            )
+            (ConstantStr
+                "true"
+                ()
+            )
+            (ConstantStr
+                "false"
+                ()
+            )
+        )
+    )
+    (Assign
+        [(Name
+            result
+            Store
+        )]
+        (IfExp
+            (UnaryOp
+                Not
+                (Compare
+                    (Name
+                        a
+                        Load
+                    )
+                    Gt
+                    [(Name
+                        b
+                        Load
+                    )]
+                )
+            )
+            (Name
+                x
+                Load
+            )
+            (Name
+                y
+                Load
+            )
+        )
+        ()
+    )
+    (Expr
+        (IfExp
+            (Compare
+                (Name
+                    a
+                    Load
+                )
+                Gt
+                [(Name
+                    b
+                    Load
+                )]
+            )
+            (Call
+                (Name
+                    print
+                    Load
+                )
+                [(Name
+                    a
+                    Load
+                )
+                (ConstantStr
+                    "is greater"
+                    ()
+                )]
+                []
+            )
+            (Call
+                (Name
+                    print
+                    Load
+                )
+                [(Name
+                    b
+                    Load
+                )
+                (ConstantStr
+                    "is Greater"
+                    ()
+                )]
+                []
+            )
+        )
+    )
+    (Expr
+        (Call
+            (Name
+                x
+                Load
+            )
+            [(IfExp
+                (ConstantBool
+                    .true.
+                    ()
+                )
+                (ConstantStr
+                    "True"
+                    ()
+                )
+                (ConstantStr
+                    "False"
+                    ()
+                )
+            )]
+            []
+        )
+    )
+    (Assign
+        [(Name
+            test
+            Store
+        )]
+        (IfExp
+            (Name
+                a
+                Load
+            )
+            (Call
+                (Name
+                    x
+                    Load
+                )
+                [(ConstantInt
+                    123
+                    ()
+                )]
+                []
+            )
+            (Attribute
+                (Name
+                    b
+                    Load
+                )
+                c
+                Load
+            )
+        )
+        ()
+    )
+    (Assign
+        [(Name
+            res
+            Store
+        )]
+        (Call
+            (Attribute
+                (Name
+                    test
+                    Load
+                )
+                x
+                Load
+            )
+            [(IfExp
+                (Compare
+                    (Name
+                        z
+                        Load
+                    )
+                    Is
+                    [(ConstantNone
+                        ()
+                    )]
+                )
+                (ConstantStr
+                    ""
+                    ()
+                )
+                (Name
+                    var
+                    Load
+                )
+            )]
+            []
+        )
+        ()
+    )
+    (Assign
+        [(Name
+            size
+            Store
+        )]
+        (BinOp
+            (Call
+                (Name
+                    sum
+                    Load
+                )
+                [(GeneratorExp
+                    (IfExp
+                        (Compare
+                            (Call
+                                (Name
+                                    ord
+                                    Load
+                                )
+                                [(Name
+                                    c
+                                    Load
+                                )]
+                                []
+                            )
+                            Gt
+                            [(ConstantInt
+                                65535
+                                ()
+                            )]
+                        )
+                        (ConstantInt
+                            2
+                            ()
+                        )
+                        (ConstantInt
+                            1
+                            ()
+                        )
+                    )
+                    [((Name
+                        c
+                        Store
+                    )
+                    (Name
+                        init
+                        Load
+                    )
+                    []
+                    0)]
+                )]
+                []
+            )
+            Add
+            (ConstantInt
+                1
+                ()
+            )
+        )
+        ()
+    )
+    (Expr
+        (Tuple
+            [(Name
+                x
+                Load
+            )
+            (Name
+                y
+                Load
+            )
+            (IfExp
+                (Name
+                    a
+                    Load
+                )
+                (ConstantStr
+                    "a"
+                    ()
+                )
+                (ConstantStr
+                    "b"
+                    ()
+                )
+            )]
+            Load
+        )
+    )
+    (AugAssign
+        (Name
+            x
+            Store
+        )
+        Add
+        (IfExp
+            (Name
+                true
+                Load
+            )
+            (UnaryOp
+                USub
+                (ConstantInt
+                    1
+                    ()
+                )
+            )
+            (ConstantInt
+                1
+                ()
+            )
+        )
+    )
+    (Expr
+        (Call
+            (IfExp
+                (Membership
+                    (Name
+                        tktype
+                        Load
+                    )
+                    In
+                    (Name
+                        whentrue
+                        Load
+                    )
+                )
+                (Attribute
+                    (Name
+                        self
+                        Load
+                    )
+                    assertTrue
+                    Load
+                )
+                (Attribute
+                    (Name
+                        self
+                        Load
+                    )
+                    assertFalse
+                    Load
+                )
+            )
+            [(Call
+                (Name
+                    func
+                    Load
+                )
+                []
+                []
+            )]
+            []
+        )
+    )
+    (Assign
+        [(Name
+            x
+            Store
+        )]
+        (SetComp
+            (IfExp
+                (Compare
+                    (Call
+                        (Name
+                            len
+                            Load
+                        )
+                        [(Attribute
+                            (Name
+                                f
+                                Load
+                            )
+                            parts
+                            Load
+                        )]
+                        []
+                    )
+                    Gt
+                    [(ConstantInt
+                        1
+                        ()
+                    )]
+                )
+                (Subscript
+                    (Attribute
+                        (Name
+                            f
+                            Load
+                        )
+                        parts
+                        Load
+                    )
+                    (ConstantInt
+                        0
+                        ()
+                    )
+                    Load
+                )
+                (Attribute
+                    (Call
+                        (Attribute
+                            (Name
+                                f
+                                Load
+                            )
+                            with_suffix
+                            Load
+                        )
+                        [(ConstantStr
+                            ""
+                            ()
+                        )]
+                        []
+                    )
+                    name
+                    Load
+                )
+            )
+            [((Name
+                f
+                Store
+            )
+            (Call
+                (Name
+                    always_iterable
+                    Load
+                )
+                [(Attribute
+                    (Name
+                        dist
+                        Load
+                    )
+                    files
+                    Load
+                )]
+                []
+            )
+            [(Compare
+                (Attribute
+                    (Name
+                        f
+                        Load
+                    )
+                    suffix
+                    Load
+                )
+                Eq
+                [(ConstantStr
+                    ".py"
+                    ()
+                )]
+            )]
+            0)]
+        )
+        ()
+    )
+    (Assign
+        [(Name
+            return_value
+            Store
+        )]
+        (DictComp
+            (Name
+                key
+                Load
+            )
+            (IfExp
+                (UnaryOp
+                    Not
+                    (Call
+                        (Name
+                            isinstance
+                            Load
+                        )
+                        [(Name
+                            value
+                            Load
+                        )
+                        (Name
+                            str
+                            Load
+                        )]
+                        []
+                    )
+                )
+                (Name
+                    value
+                    Load
+                )
+                (Call
+                    (Name
+                        eval
+                        Load
+                    )
+                    [(Name
+                        value
+                        Load
+                    )
+                    (Name
+                        globals
+                        Load
+                    )
+                    (Name
+                        locals
+                        Load
+                    )]
+                    []
+                )
+            )
+            [((Tuple
+                [(Name
+                    key
+                    Store
+                )
+                (Name
+                    value
+                    Store
+                )]
+                Store
+            )
+            (Call
+                (Attribute
+                    (Name
+                        ann
+                        Load
+                    )
+                    items
+                    Load
+                )
+                []
+                []
+            )
+            []
+            0)]
+        )
+        ()
+    )
+    (Assign
+        [(Name
+            kwonly_sig
+            Store
+        )]
+        (BinOp
+            (Name
+                msg
+                Load
+            )
+            Mod
+            (Tuple
+                [(IfExp
+                    (Compare
+                        (Name
+                            given
+                            Load
+                        )
+                        NotEq
+                        [(ConstantInt
+                            1
+                            ()
+                        )]
+                    )
+                    (ConstantStr
+                        "s"
+                        ()
+                    )
+                    (ConstantStr
+                        ""
+                        ()
+                    )
+                )
+                (Name
+                    kwonly_given
+                    Load
+                )
+                (IfExp
+                    (Compare
+                        (Name
+                            kwonly_given
+                            Load
+                        )
+                        NotEq
+                        [(ConstantInt
+                            1
+                            ()
+                        )]
+                    )
+                    (ConstantStr
+                        "s"
+                        ()
+                    )
+                    (ConstantStr
+                        ""
+                        ()
+                    )
+                )]
+                Load
+            )
+        )
+        ()
+    )
+    (Expr
+        (Call
+            (Attribute
+                (Name
+                    struct
+                    Load
+                )
+                pack_into
+                Load
+            )
+            [(Call
+                (Attribute
+                    (ConstantStr
+                        ""
+                        ()
+                    )
+                    join
+                    Load
+                )
+                [(Name
+                    _formats
+                    Load
+                )]
+                []
+            )
+            (Attribute
+                (Attribute
+                    (Name
+                        self
+                        Load
+                    )
+                    shm
+                    Load
+                )
+                buf
+                Load
+            )
+            (Attribute
+                (Name
+                    self
+                    Load
+                )
+                _offset_data_start
+                Load
+            )
+            (Starred
+                (GeneratorExp
+                    (IfExp
+                        (Call
+                            (Name
+                                isinstance
+                                Load
+                            )
+                            [(Name
+                                v
+                                Load
+                            )
+                            (Name
+                                str
+                                Load
+                            )]
+                            []
+                        )
+                        (Call
+                            (Attribute
+                                (Name
+                                    v
+                                    Load
+                                )
+                                encode
+                                Load
+                            )
+                            [(Name
+                                _enc
+                                Load
+                            )]
+                            []
+                        )
+                        (Name
+                            v
+                            Load
+                        )
+                    )
+                    [((Name
+                        v
+                        Store
+                    )
+                    (Name
+                        sequence
+                        Load
+                    )
+                    []
+                    0)]
+                )
+                Load
+            )]
+            []
+        )
+    )
+    (For
+        (Name
+            name
+            Store
+        )
+        (IfExp
+            (Compare
+                (Name
+                    entries
+                    Load
+                )
+                Is
+                [(ConstantNone
+                    ()
+                )]
+            )
+            (Name
+                dirs
+                Load
+            )
+            (Call
+                (Name
+                    zip
+                    Load
+                )
+                [(Name
+                    dirs
+                    Load
+                )
+                (Name
+                    entries
+                    Load
+                )]
+                []
+            )
+        )
+        [(Expr
+            (ConstantEllipsis
+                ()
+            )
+        )]
+        []
+        ()
+    )
+    (If
+        (IfExp
+            (Compare
+                (Name
+                    n
+                    Load
+                )
+                Eq
+                [(ConstantInt
+                    0
+                    ()
+                )]
+            )
+            (BoolOp
+                Or
+                [(Name
+                    root
+                    Load
+                )
+                (Name
+                    drv
+                    Load
+                )]
+            )
+            (Compare
+                (Call
+                    (Name
+                        cf
+                        Load
+                    )
+                    [(Subscript
+                        (Name
+                            abs_parts
+                            Load
+                        )
+                        (Slice
+                            ()
+                            (Name
+                                n
+                                Load
+                            )
+                            ()
+                        )
+                        Load
+                    )]
+                    []
+                )
+                NotEq
+                [(Call
+                    (Name
+                        cf
+                        Load
+                    )
+                    [(Name
+                        to_abs_parts
+                        Load
+                    )]
+                    []
+                )]
+            )
+        )
+        [(Expr
+            (ConstantEllipsis
+                ()
+            )
+        )]
+        []
+    )
+    (Assign
+        [(Tuple
+            [(Name
+                x
+                Store
+            )
+            (Name
+                y
+                Store
+            )]
+            Store
+        )]
+        (Tuple
+            [(Name
+                thing
+                Load
+            )
+            (IfExp
+                (Call
+                    (Name
+                        isinstance
+                        Load
+                    )
+                    [(Name
+                        name
+                        Load
+                    )
+                    (Name
+                        str
+                        Load
+                    )]
+                    []
+                )
+                (Name
+                    name
+                    Load
+                )
+                (ConstantNone
+                    ()
+                )
+            )]
+            Load
+        )
+        ()
+    )
+    (Expr
+        (Call
+            (Name
+                print
+                Load
+            )
+            [(BinOp
+                (ConstantStr
+                    "%*d%s "
+                    ()
+                )
+                Mod
+                (Tuple
+                    [(Name
+                        offset_width
+                        Load
+                    )
+                    (Name
+                        start
+                        Load
+                    )
+                    (IfExp
+                        (Membership
+                            (Name
+                                start
+                                Load
+                            )
+                            In
+                            (Name
+                                labels
+                                Load
+                            )
+                        )
+                        (ConstantStr
+                            ":"
+                            ()
+                        )
+                        (ConstantStr
+                            "."
+                            ()
+                        )
+                    )]
+                    Load
+                )
+            )]
+            [(end
+            (BinOp
+                (ConstantStr
+                    "  "
+                    ()
+                )
+                Mult
+                (BinOp
+                    (Name
+                        level
+                        Load
+                    )
+                    Sub
+                    (ConstantInt
+                        1
+                        ()
+                    )
+                )
+            ))]
+        )
+    )
+    (Assign
+        [(Name
+            Signals
+            Store
+        )]
+        (Dict
+            [(Name
+                C
+                Load
+            )
+            (Name
+                P
+                Load
+            )]
+            [(IfExp
+                (Name
+                    C
+                    Load
+                )
+                (Call
+                    (Name
+                        tuple
+                        Load
+                    )
+                    [(Call
+                        (Attribute
+                            (Attribute
+                                (Call
+                                    (Attribute
+                                        (Name
+                                            C
+                                            Load
+                                        )
+                                        getcontext
+                                        Load
+                                    )
+                                    []
+                                    []
+                                )
+                                flags
+                                Load
+                            )
+                            keys
+                            Load
+                        )
+                        []
+                        []
+                    )]
+                    []
+                )
+                (ConstantNone
+                    ()
+                )
+            )
+            (Call
+                (Name
+                    tuple
+                    Load
+                )
+                [(Call
+                    (Attribute
+                        (Attribute
+                            (Call
+                                (Attribute
+                                    (Name
+                                        P
+                                        Load
+                                    )
+                                    getcontext
+                                    Load
+                                )
+                                []
+                                []
+                            )
+                            flags
+                            Load
+                        )
+                        keys
+                        Load
+                    )
+                    []
+                    []
+                )]
+                []
+            )]
+        )
+        ()
+    )
+    (Assign
+        [(Name
+            chunks
+            Store
+        )]
+        (ListComp
+            (IfExp
+                (Name
+                    cond2
+                    Load
+                )
+                (IfExp
+                    (Name
+                        cond1
+                        Load
+                    )
+                    (ConstantBytes
+                        "b'z'"
+                        ()
+                    )
+                    (ConstantBytes
+                        "b'y'"
+                        ()
+                    )
+                )
+                (Name
+                    x
+                    Load
+                )
+            )
+            [((Name
+                word
+                Store
+            )
+            (Name
+                words
+                Load
+            )
+            []
+            0)]
+        )
+        ()
+    )]
+    []
+)
diff --git a/tests/reference/ast_new-dictionary1-445e718.json b/tests/reference/ast_new-dictionary1-445e718.json
index 7c6c7610aa..5d739b9a9b 100644
--- a/tests/reference/ast_new-dictionary1-445e718.json
+++ b/tests/reference/ast_new-dictionary1-445e718.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "ast_new-dictionary1-445e718.stdout",
-    "stdout_hash": "e9aefdd2d9d42dfe673563ff13d1f91ce6dcd672d1237506f540cb90",
+    "stdout_hash": "dfae0ace6e4267478ecfd053f2be4a56fddf1f635099b4f6695d250b",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/ast_new-dictionary1-445e718.stdout b/tests/reference/ast_new-dictionary1-445e718.stdout
index 54634242db..f468f9e1f4 100644
--- a/tests/reference/ast_new-dictionary1-445e718.stdout
+++ b/tests/reference/ast_new-dictionary1-445e718.stdout
@@ -1,3 +1,299 @@
-(Module [(FunctionDef test ([] [] [] [] [] [] []) [(Assign [(Name x Store)] (Dict [] []) ()) (Assign [(Name dict Store)] (Dict [(ConstantStr "brand" ()) (ConstantStr "electric" ()) (ConstantStr "year" ()) (ConstantStr "colors" ())] [(ConstantStr "Ford" ()) (ConstantBool .false. ()) (ConstantInt 1964 ()) (List [(ConstantStr "red" ()) (ConstantStr "white" ())] Load)]) ()) (Assign [(Name num Store)] (Dict [(ConstantInt 1 ()) (ConstantInt 2 ())] [(ConstantInt 2 ()) (ConstantInt 3 ())]) ()) (AnnAssign (Name y Store) (Subscript (Name dict Load) (Tuple [(Name str Load) (Name i32 Load)] Load) Load) () 1) (Assign [(Name y Store)] (Dict [(ConstantStr "a" ()) (ConstantStr "b" ())] [(UnaryOp USub (ConstantInt 1 ())) (UnaryOp USub (ConstantInt 2 ()))]) ()) (Assign [(Name y Store)] (Dict [(ConstantStr "a" ()) (ConstantStr "b" ())] [(UnaryOp USub (ConstantInt 1 ())) (UnaryOp USub (ConstantInt 2 ()))]) ()) (Assign [(Subscript (Name y Load) (ConstantStr "a" ()) Store)] (ConstantInt 123 ()) ()) (Assign [(Name a Store)] (Dict [(ConstantStr "a" ()) (ConstantStr "b" ())] [(ConstantInt 1 ()) (ConstantInt 2 ())]) ()) (Assign [(Name x Store)] (Dict [(ConstantStr "markdown2.tpl" ())] [(ConstantStr "\
-          Text
-          " ())]) ()) (Assign [(Name x Store)] (Dict [(ConstantNone ()) (Name y Load) (ConstantNone ()) (ConstantNone ())] [(Name x Load) (ConstantStr "Text" ()) (Name z Load) (ConstantStr "None" ())]) ())] [] () ()) (Expr (Call (Name test Load) [] []))] [(TypeIgnore 0 "")])
+(Module
+    [(FunctionDef
+        test
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(Assign
+            [(Name
+                x
+                Store
+            )]
+            (Dict
+                []
+                []
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                dict
+                Store
+            )]
+            (Dict
+                [(ConstantStr
+                    "brand"
+                    ()
+                )
+                (ConstantStr
+                    "electric"
+                    ()
+                )
+                (ConstantStr
+                    "year"
+                    ()
+                )
+                (ConstantStr
+                    "colors"
+                    ()
+                )]
+                [(ConstantStr
+                    "Ford"
+                    ()
+                )
+                (ConstantBool
+                    .false.
+                    ()
+                )
+                (ConstantInt
+                    1964
+                    ()
+                )
+                (List
+                    [(ConstantStr
+                        "red"
+                        ()
+                    )
+                    (ConstantStr
+                        "white"
+                        ()
+                    )]
+                    Load
+                )]
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                num
+                Store
+            )]
+            (Dict
+                [(ConstantInt
+                    1
+                    ()
+                )
+                (ConstantInt
+                    2
+                    ()
+                )]
+                [(ConstantInt
+                    2
+                    ()
+                )
+                (ConstantInt
+                    3
+                    ()
+                )]
+            )
+            ()
+        )
+        (AnnAssign
+            (Name
+                y
+                Store
+            )
+            (Subscript
+                (Name
+                    dict
+                    Load
+                )
+                (Tuple
+                    [(Name
+                        str
+                        Load
+                    )
+                    (Name
+                        i32
+                        Load
+                    )]
+                    Load
+                )
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                y
+                Store
+            )]
+            (Dict
+                [(ConstantStr
+                    "a"
+                    ()
+                )
+                (ConstantStr
+                    "b"
+                    ()
+                )]
+                [(UnaryOp
+                    USub
+                    (ConstantInt
+                        1
+                        ()
+                    )
+                )
+                (UnaryOp
+                    USub
+                    (ConstantInt
+                        2
+                        ()
+                    )
+                )]
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                y
+                Store
+            )]
+            (Dict
+                [(ConstantStr
+                    "a"
+                    ()
+                )
+                (ConstantStr
+                    "b"
+                    ()
+                )]
+                [(UnaryOp
+                    USub
+                    (ConstantInt
+                        1
+                        ()
+                    )
+                )
+                (UnaryOp
+                    USub
+                    (ConstantInt
+                        2
+                        ()
+                    )
+                )]
+            )
+            ()
+        )
+        (Assign
+            [(Subscript
+                (Name
+                    y
+                    Load
+                )
+                (ConstantStr
+                    "a"
+                    ()
+                )
+                Store
+            )]
+            (ConstantInt
+                123
+                ()
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                a
+                Store
+            )]
+            (Dict
+                [(ConstantStr
+                    "a"
+                    ()
+                )
+                (ConstantStr
+                    "b"
+                    ()
+                )]
+                [(ConstantInt
+                    1
+                    ()
+                )
+                (ConstantInt
+                    2
+                    ()
+                )]
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                x
+                Store
+            )]
+            (Dict
+                [(ConstantStr
+                    "markdown2.tpl"
+                    ()
+                )]
+                [(ConstantStr
+                    "          Text\n          "
+                    ()
+                )]
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                x
+                Store
+            )]
+            (Dict
+                [(ConstantNone
+                    ()
+                )
+                (Name
+                    y
+                    Load
+                )
+                (ConstantNone
+                    ()
+                )
+                (ConstantNone
+                    ()
+                )]
+                [(Name
+                    x
+                    Load
+                )
+                (ConstantStr
+                    "Text"
+                    ()
+                )
+                (Name
+                    z
+                    Load
+                )
+                (ConstantStr
+                    "None"
+                    ()
+                )]
+            )
+            ()
+        )]
+        []
+        ()
+        ()
+    )
+    (Expr
+        (Call
+            (Name
+                test
+                Load
+            )
+            []
+            []
+        )
+    )]
+    [(TypeIgnore
+        0
+        ""
+    )]
+)
diff --git a/tests/reference/ast_new-ellipsis2-3a9750b.json b/tests/reference/ast_new-ellipsis2-3a9750b.json
index 8247382fd5..90701cb0d6 100644
--- a/tests/reference/ast_new-ellipsis2-3a9750b.json
+++ b/tests/reference/ast_new-ellipsis2-3a9750b.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "ast_new-ellipsis2-3a9750b.stdout",
-    "stdout_hash": "fea13952d8c4d5fda5c9ceb115f42765ff0855c332776a5589037bad",
+    "stdout_hash": "c31c7abbb37cfb16b2e919f083ffc3839162529f9e18e82dc3a1ed7c",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/ast_new-ellipsis2-3a9750b.stdout b/tests/reference/ast_new-ellipsis2-3a9750b.stdout
index cc4da52a66..a86c90395c 100644
--- a/tests/reference/ast_new-ellipsis2-3a9750b.stdout
+++ b/tests/reference/ast_new-ellipsis2-3a9750b.stdout
@@ -1 +1,336 @@
-(Module [(Import [(numpy np)]) (ImportFrom typing [(Callable ())] 0) (Expr (Call (Name print Load) [(ConstantEllipsis ())] [])) (Assign [(Name array Store)] (Call (Attribute (Attribute (Name np Load) random Load) rand Load) [(ConstantInt 2 ()) (ConstantInt 2 ()) (ConstantInt 2 ()) (ConstantInt 2 ())] []) ()) (Expr (Call (Name print Load) [(Subscript (Name array Load) (Tuple [(ConstantEllipsis ()) (ConstantInt 0 ())] Load) Load)] [])) (Expr (Call (Name print Load) [(Subscript (Name array Load) (Tuple [(Name Ellipsis Load) (ConstantInt 0 ())] Load) Load)] [])) (FunctionDef test1 ([] [] [] [] [] [] []) [(Expr (ConstantEllipsis ()))] [] () ()) (FunctionDef test2 ([] [] [] [] [] [] []) [(Assign [(Name x Store)] (List [(ConstantInt 1 ()) (List [(ConstantInt 2 ()) (List [(ConstantEllipsis ())] Load) (ConstantInt 3 ())] Load)] Load) ()) (Assign [(Name l Store)] (List [(ConstantEllipsis ()) (ConstantInt 1 ()) (ConstantInt 2 ()) (ConstantInt 3 ())] Load) ()) (Expr (ConstantEllipsis ()))] [] (ConstantNone ()) ()) (Assign [(Name array Store)] (Call (Attribute (Attribute (Name np Load) random Load) rand Load) [(ConstantInt 2 ()) (ConstantInt 2 ()) (ConstantInt 2 ()) (ConstantInt 2 ())] []) ()) (Expr (Call (Name print Load) [(Subscript (Name array Load) (Tuple [(ConstantEllipsis ()) (ConstantInt 0 ())] Load) Load)] [])) (FunctionDef foo ([] [(x (ConstantEllipsis ()) ())] [] [] [] [] []) [(Expr (ConstantEllipsis ()))] [] (ConstantNone ()) ()) (FunctionDef inject ([] [(get_next_item (Subscript (Name Callable Load) (Tuple [(ConstantEllipsis ()) (Name str Load)] Load) Load) ())] [] [] [] [] []) [(Expr (ConstantEllipsis ()))] [] (ConstantNone ()) ())] [])
+(Module
+    [(Import
+        [(numpy
+        np)]
+    )
+    (ImportFrom
+        typing
+        [(Callable
+        ())]
+        0
+    )
+    (Expr
+        (Call
+            (Name
+                print
+                Load
+            )
+            [(ConstantEllipsis
+                ()
+            )]
+            []
+        )
+    )
+    (Assign
+        [(Name
+            array
+            Store
+        )]
+        (Call
+            (Attribute
+                (Attribute
+                    (Name
+                        np
+                        Load
+                    )
+                    random
+                    Load
+                )
+                rand
+                Load
+            )
+            [(ConstantInt
+                2
+                ()
+            )
+            (ConstantInt
+                2
+                ()
+            )
+            (ConstantInt
+                2
+                ()
+            )
+            (ConstantInt
+                2
+                ()
+            )]
+            []
+        )
+        ()
+    )
+    (Expr
+        (Call
+            (Name
+                print
+                Load
+            )
+            [(Subscript
+                (Name
+                    array
+                    Load
+                )
+                (Tuple
+                    [(ConstantEllipsis
+                        ()
+                    )
+                    (ConstantInt
+                        0
+                        ()
+                    )]
+                    Load
+                )
+                Load
+            )]
+            []
+        )
+    )
+    (Expr
+        (Call
+            (Name
+                print
+                Load
+            )
+            [(Subscript
+                (Name
+                    array
+                    Load
+                )
+                (Tuple
+                    [(Name
+                        Ellipsis
+                        Load
+                    )
+                    (ConstantInt
+                        0
+                        ()
+                    )]
+                    Load
+                )
+                Load
+            )]
+            []
+        )
+    )
+    (FunctionDef
+        test1
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(Expr
+            (ConstantEllipsis
+                ()
+            )
+        )]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        test2
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(Assign
+            [(Name
+                x
+                Store
+            )]
+            (List
+                [(ConstantInt
+                    1
+                    ()
+                )
+                (List
+                    [(ConstantInt
+                        2
+                        ()
+                    )
+                    (List
+                        [(ConstantEllipsis
+                            ()
+                        )]
+                        Load
+                    )
+                    (ConstantInt
+                        3
+                        ()
+                    )]
+                    Load
+                )]
+                Load
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                l
+                Store
+            )]
+            (List
+                [(ConstantEllipsis
+                    ()
+                )
+                (ConstantInt
+                    1
+                    ()
+                )
+                (ConstantInt
+                    2
+                    ()
+                )
+                (ConstantInt
+                    3
+                    ()
+                )]
+                Load
+            )
+            ()
+        )
+        (Expr
+            (ConstantEllipsis
+                ()
+            )
+        )]
+        []
+        (ConstantNone
+            ()
+        )
+        ()
+    )
+    (Assign
+        [(Name
+            array
+            Store
+        )]
+        (Call
+            (Attribute
+                (Attribute
+                    (Name
+                        np
+                        Load
+                    )
+                    random
+                    Load
+                )
+                rand
+                Load
+            )
+            [(ConstantInt
+                2
+                ()
+            )
+            (ConstantInt
+                2
+                ()
+            )
+            (ConstantInt
+                2
+                ()
+            )
+            (ConstantInt
+                2
+                ()
+            )]
+            []
+        )
+        ()
+    )
+    (Expr
+        (Call
+            (Name
+                print
+                Load
+            )
+            [(Subscript
+                (Name
+                    array
+                    Load
+                )
+                (Tuple
+                    [(ConstantEllipsis
+                        ()
+                    )
+                    (ConstantInt
+                        0
+                        ()
+                    )]
+                    Load
+                )
+                Load
+            )]
+            []
+        )
+    )
+    (FunctionDef
+        foo
+        ([]
+        [(x
+        (ConstantEllipsis
+            ()
+        )
+        ())]
+        []
+        []
+        []
+        []
+        [])
+        [(Expr
+            (ConstantEllipsis
+                ()
+            )
+        )]
+        []
+        (ConstantNone
+            ()
+        )
+        ()
+    )
+    (FunctionDef
+        inject
+        ([]
+        [(get_next_item
+        (Subscript
+            (Name
+                Callable
+                Load
+            )
+            (Tuple
+                [(ConstantEllipsis
+                    ()
+                )
+                (Name
+                    str
+                    Load
+                )]
+                Load
+            )
+            Load
+        )
+        ())]
+        []
+        []
+        []
+        []
+        [])
+        [(Expr
+            (ConstantEllipsis
+                ()
+            )
+        )]
+        []
+        (ConstantNone
+            ()
+        )
+        ()
+    )]
+    []
+)
diff --git a/tests/reference/ast_new-for1-887432e.json b/tests/reference/ast_new-for1-887432e.json
index 3cd9680d17..3e2c929fae 100644
--- a/tests/reference/ast_new-for1-887432e.json
+++ b/tests/reference/ast_new-for1-887432e.json
@@ -2,11 +2,11 @@
     "basename": "ast_new-for1-887432e",
     "cmd": "lpython --show-ast --new-parser --no-color {infile} -o {outfile}",
     "infile": "tests/parser/for1.py",
-    "infile_hash": "f025995384e87a428a605ae718932f3fbc25aa3f8baa5508f2018997",
+    "infile_hash": "8f9e8ef938c302e9ec566be988c563e0378002ac96687c46d7d9c137",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "ast_new-for1-887432e.stdout",
-    "stdout_hash": "ddf8b7ff93327c03459a9ed17dfa3706131a59b3219e2b13739c7a55",
+    "stdout_hash": "f9f49679cca12cff7db1a7828457e033b55aae6dd408b3a4326d1d7e",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/ast_new-for1-887432e.stdout b/tests/reference/ast_new-for1-887432e.stdout
index 63365817d1..ac3f1c279f 100644
--- a/tests/reference/ast_new-for1-887432e.stdout
+++ b/tests/reference/ast_new-for1-887432e.stdout
@@ -1 +1,485 @@
-(Module [(ImportFrom ltypes [(i32 ())] 0) (For (Name x Store) (Name fruits Load) [(Expr (Call (Name print Load) [(Name x Load)] []))] [] ()) (For (Name x Store) (Name fruits Load) [(Expr (Call (Name print Load) [(Name x Load)] [])) (If (Compare (Name x Load) Eq [(ConstantStr "banana" ())]) [(Break)] [])] [] ()) (For (Name x Store) (ConstantStr "banana" ()) [(Expr (Call (Name print Load) [(Name x Load)] []))] [] ()) (For (Name i Store) (Call (Name range Load) [(ConstantInt 6 ())] []) [(Expr (Call (Name print Load) [(Name i Load)] []))] [] ()) (For (Name i Store) (Call (Name range Load) [(ConstantInt 2 ()) (ConstantInt 30 ()) (ConstantInt 3 ())] []) [(Expr (Call (Name print Load) [(Name i Load)] []))] [] ()) (For (Name i Store) (Call (Name range Load) [(ConstantInt 5 ())] []) [(If (Compare (Name i Load) Eq [(ConstantInt 3 ())]) [(Continue)] []) (Expr (Call (Name print Load) [(Name i Load)] []))] [(Expr (Call (Name print Load) [(ConstantStr "Finally Completed!" ())] []))] ()) (For (Name i Store) (Call (Name range Load) [(ConstantInt 5 ())] []) [(For (Name j Store) (Call (Name range Load) [(ConstantInt 5 ())] []) [(Expr (Call (Name print Load) [(Name i Load) (Name j Load)] []))] [] ())] [] ()) (AnnAssign (Name sum Store) (Name i32 Load) (ConstantInt 0 ()) 1) (For (Name j Store) (Call (Name range Load) [(ConstantInt 5 ())] []) [(AugAssign (Name sum Store) Add (Name j Load))] [] ()) (For (Tuple [(Name _ Store) (Name x Store)] Store) (Name y Load) [(Pass)] [] ()) (For (Tuple [(Name x Store) (Name y Store)] Store) (Name z Load) [(Pass)] [] ()) (For (Tuple [(Name i Store) (Name a Store)] Store) (Call (Name enumerate Load) [(List [(ConstantInt 4 ()) (ConstantInt 5 ()) (ConstantInt 6 ()) (ConstantInt 7 ())] Load)] []) [(Expr (Call (Name print Load) [(Name i Load) (ConstantStr ": " ()) (Name a Load)] []))] [] ()) (For (Name i Store) (Call (Name range Load) [(ConstantInt 5 ())] []) [(Pass)] [] "int") (For (Name j Store) (Name k Load) [(Pass)] [] "List[str]") (For (Name i Store) (Call (Name range Load) [(ConstantInt 5 ())] []) [(Pass)] [(Pass)] "int")] [])
+(Module
+    [(ImportFrom
+        lpython
+        [(i32
+        ())]
+        0
+    )
+    (For
+        (Name
+            x
+            Store
+        )
+        (Name
+            fruits
+            Load
+        )
+        [(Expr
+            (Call
+                (Name
+                    print
+                    Load
+                )
+                [(Name
+                    x
+                    Load
+                )]
+                []
+            )
+        )]
+        []
+        ()
+    )
+    (For
+        (Name
+            x
+            Store
+        )
+        (Name
+            fruits
+            Load
+        )
+        [(Expr
+            (Call
+                (Name
+                    print
+                    Load
+                )
+                [(Name
+                    x
+                    Load
+                )]
+                []
+            )
+        )
+        (If
+            (Compare
+                (Name
+                    x
+                    Load
+                )
+                Eq
+                [(ConstantStr
+                    "banana"
+                    ()
+                )]
+            )
+            [(Break)]
+            []
+        )]
+        []
+        ()
+    )
+    (For
+        (Name
+            x
+            Store
+        )
+        (ConstantStr
+            "banana"
+            ()
+        )
+        [(Expr
+            (Call
+                (Name
+                    print
+                    Load
+                )
+                [(Name
+                    x
+                    Load
+                )]
+                []
+            )
+        )]
+        []
+        ()
+    )
+    (For
+        (Name
+            i
+            Store
+        )
+        (Call
+            (Name
+                range
+                Load
+            )
+            [(ConstantInt
+                6
+                ()
+            )]
+            []
+        )
+        [(Expr
+            (Call
+                (Name
+                    print
+                    Load
+                )
+                [(Name
+                    i
+                    Load
+                )]
+                []
+            )
+        )]
+        []
+        ()
+    )
+    (For
+        (Name
+            i
+            Store
+        )
+        (Call
+            (Name
+                range
+                Load
+            )
+            [(ConstantInt
+                2
+                ()
+            )
+            (ConstantInt
+                30
+                ()
+            )
+            (ConstantInt
+                3
+                ()
+            )]
+            []
+        )
+        [(Expr
+            (Call
+                (Name
+                    print
+                    Load
+                )
+                [(Name
+                    i
+                    Load
+                )]
+                []
+            )
+        )]
+        []
+        ()
+    )
+    (For
+        (Name
+            i
+            Store
+        )
+        (Call
+            (Name
+                range
+                Load
+            )
+            [(ConstantInt
+                5
+                ()
+            )]
+            []
+        )
+        [(If
+            (Compare
+                (Name
+                    i
+                    Load
+                )
+                Eq
+                [(ConstantInt
+                    3
+                    ()
+                )]
+            )
+            [(Continue)]
+            []
+        )
+        (Expr
+            (Call
+                (Name
+                    print
+                    Load
+                )
+                [(Name
+                    i
+                    Load
+                )]
+                []
+            )
+        )]
+        [(Expr
+            (Call
+                (Name
+                    print
+                    Load
+                )
+                [(ConstantStr
+                    "Finally Completed!"
+                    ()
+                )]
+                []
+            )
+        )]
+        ()
+    )
+    (For
+        (Name
+            i
+            Store
+        )
+        (Call
+            (Name
+                range
+                Load
+            )
+            [(ConstantInt
+                5
+                ()
+            )]
+            []
+        )
+        [(For
+            (Name
+                j
+                Store
+            )
+            (Call
+                (Name
+                    range
+                    Load
+                )
+                [(ConstantInt
+                    5
+                    ()
+                )]
+                []
+            )
+            [(Expr
+                (Call
+                    (Name
+                        print
+                        Load
+                    )
+                    [(Name
+                        i
+                        Load
+                    )
+                    (Name
+                        j
+                        Load
+                    )]
+                    []
+                )
+            )]
+            []
+            ()
+        )]
+        []
+        ()
+    )
+    (AnnAssign
+        (Name
+            sum
+            Store
+        )
+        (Name
+            i32
+            Load
+        )
+        (ConstantInt
+            0
+            ()
+        )
+        1
+    )
+    (For
+        (Name
+            j
+            Store
+        )
+        (Call
+            (Name
+                range
+                Load
+            )
+            [(ConstantInt
+                5
+                ()
+            )]
+            []
+        )
+        [(AugAssign
+            (Name
+                sum
+                Store
+            )
+            Add
+            (Name
+                j
+                Load
+            )
+        )]
+        []
+        ()
+    )
+    (For
+        (Tuple
+            [(Name
+                _
+                Store
+            )
+            (Name
+                x
+                Store
+            )]
+            Store
+        )
+        (Name
+            y
+            Load
+        )
+        [(Pass)]
+        []
+        ()
+    )
+    (For
+        (Tuple
+            [(Name
+                x
+                Store
+            )
+            (Name
+                y
+                Store
+            )]
+            Store
+        )
+        (Name
+            z
+            Load
+        )
+        [(Pass)]
+        []
+        ()
+    )
+    (For
+        (Tuple
+            [(Name
+                i
+                Store
+            )
+            (Name
+                a
+                Store
+            )]
+            Store
+        )
+        (Call
+            (Name
+                enumerate
+                Load
+            )
+            [(List
+                [(ConstantInt
+                    4
+                    ()
+                )
+                (ConstantInt
+                    5
+                    ()
+                )
+                (ConstantInt
+                    6
+                    ()
+                )
+                (ConstantInt
+                    7
+                    ()
+                )]
+                Load
+            )]
+            []
+        )
+        [(Expr
+            (Call
+                (Name
+                    print
+                    Load
+                )
+                [(Name
+                    i
+                    Load
+                )
+                (ConstantStr
+                    ": "
+                    ()
+                )
+                (Name
+                    a
+                    Load
+                )]
+                []
+            )
+        )]
+        []
+        ()
+    )
+    (For
+        (Name
+            i
+            Store
+        )
+        (Call
+            (Name
+                range
+                Load
+            )
+            [(ConstantInt
+                5
+                ()
+            )]
+            []
+        )
+        [(Pass)]
+        []
+        "int"
+    )
+    (For
+        (Name
+            j
+            Store
+        )
+        (Name
+            k
+            Load
+        )
+        [(Pass)]
+        []
+        "List[str]"
+    )
+    (For
+        (Name
+            i
+            Store
+        )
+        (Call
+            (Name
+                range
+                Load
+            )
+            [(ConstantInt
+                5
+                ()
+            )]
+            []
+        )
+        [(Pass)]
+        [(Pass)]
+        "int"
+    )]
+    []
+)
diff --git a/tests/reference/ast_new-for2-af08901.json b/tests/reference/ast_new-for2-af08901.json
index a3e69a308d..6e65b70d3a 100644
--- a/tests/reference/ast_new-for2-af08901.json
+++ b/tests/reference/ast_new-for2-af08901.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "ast_new-for2-af08901.stdout",
-    "stdout_hash": "d8c03cf0ef7c1473ea457b1282da26a047e1b110c5fab6494cf434cd",
+    "stdout_hash": "40d6e5ac6ca4865a1b3b257fb4c7f4b2df3b6d8f52e7f38d66e72487",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/ast_new-for2-af08901.stdout b/tests/reference/ast_new-for2-af08901.stdout
index a84b61557d..9b75c2b12e 100644
--- a/tests/reference/ast_new-for2-af08901.stdout
+++ b/tests/reference/ast_new-for2-af08901.stdout
@@ -1 +1,504 @@
-(Module [(For (Name i Store) (Call (Name range Load) [(Name N Load)] []) [(Assign [(Subscript (Name c Load) (Name i Load) Store)] (BinOp (Subscript (Name a Load) (Name i Load) Load) Add (BinOp (Name scalar Load) Mult (Subscript (Name b Load) (Name i Load) Load))) ())] [] "parallel") (AnnAssign (Name i Store) (Name i32 Load) () 1) (For (Name i Store) (Call (Name range Load) [(ConstantInt 10 ())] []) [(If (Compare (ConstantInt 2 ()) Gt [(Name i Load)]) [(Pass)] []) (If (Compare (Name i Load) Gt [(ConstantInt 5 ())]) [(Break)] []) (If (BoolOp And [(Compare (Name i Load) Eq [(ConstantInt 5 ())]) (Compare (Name i Load) Lt [(ConstantInt 10 ())])]) [(Assign [(Name i Store)] (ConstantInt 3 ()) ())] [])] [] ()) (For (Name i Store) (Compare (Name a Load) In [(Name list1 Load)]) [(Pass)] [] ()) (For (Name item Store) (Name list1 Load) [(If (Compare (Name item Load) In [(Name list2 Load)]) [(Pass)] [])] [] ()) (If (BoolOp Or [(BoolOp And [(Compare (Name a Load) In [(Name list1 Load)]) (Compare (Name b Load) NotIn [(Name list2 Load)])]) (Compare (Name c Load) In [(Name list3 Load)])]) [(Pass)] []) (For (Name f Store) (Tuple [(Name a Load) (Name b Load) (Name c Load) (Name d Load)] Load) [(Pass)] [] ()) (For (Name x Store) (Tuple [(Name a Load)] Load) [(Pass)] [] ()) (For (Name x Store) (Tuple [(Name a Load)] Load) [(Pass)] [] ()) (For (Name x Store) (Tuple [(Name a Load) (Name b Load)] Load) [(Pass)] [] ()) (AsyncFunctionDef test ([] [] [] [] [] [] []) [(AsyncFor (Name x Store) (Tuple [(Name a Load) (Name b Load)] Load) [(Pass)] [] ()) (AsyncFor (Name x Store) (Tuple [(Name a Load)] Load) [(Pass)] [] ())] [] () ()) (For (Name a Store) (Tuple [(Name b Load) (Name c Load)] Load) [(Expr (BinOp (Name a Load) Pow (ConstantInt 2 ()))) (Pass)] [] ()) (AsyncFor (Name a Store) (Call (Name range Load) [(ConstantInt 5 ())] []) [(Expr (Call (Name print Load) [(Name a Load)] []))] [] ()) (For (Name like_function Store) (Tuple [(Attribute (Name np Load) zeros_like Load) (Attribute (Name np Load) ones_like Load) (Attribute (Name np Load) empty_like Load)] Load) [(Pass)] [] ()) (For (Tuple [(Name a Store)] Store) (Name t Load) [(Pass)] [] ())] [])
+(Module
+    [(For
+        (Name
+            i
+            Store
+        )
+        (Call
+            (Name
+                range
+                Load
+            )
+            [(Name
+                N
+                Load
+            )]
+            []
+        )
+        [(Assign
+            [(Subscript
+                (Name
+                    c
+                    Load
+                )
+                (Name
+                    i
+                    Load
+                )
+                Store
+            )]
+            (BinOp
+                (Subscript
+                    (Name
+                        a
+                        Load
+                    )
+                    (Name
+                        i
+                        Load
+                    )
+                    Load
+                )
+                Add
+                (BinOp
+                    (Name
+                        scalar
+                        Load
+                    )
+                    Mult
+                    (Subscript
+                        (Name
+                            b
+                            Load
+                        )
+                        (Name
+                            i
+                            Load
+                        )
+                        Load
+                    )
+                )
+            )
+            ()
+        )]
+        []
+        "parallel"
+    )
+    (AnnAssign
+        (Name
+            i
+            Store
+        )
+        (Name
+            i32
+            Load
+        )
+        ()
+        1
+    )
+    (For
+        (Name
+            i
+            Store
+        )
+        (Call
+            (Name
+                range
+                Load
+            )
+            [(ConstantInt
+                10
+                ()
+            )]
+            []
+        )
+        [(If
+            (Compare
+                (ConstantInt
+                    2
+                    ()
+                )
+                Gt
+                [(Name
+                    i
+                    Load
+                )]
+            )
+            [(Pass)]
+            []
+        )
+        (If
+            (Compare
+                (Name
+                    i
+                    Load
+                )
+                Gt
+                [(ConstantInt
+                    5
+                    ()
+                )]
+            )
+            [(Break)]
+            []
+        )
+        (If
+            (BoolOp
+                And
+                [(Compare
+                    (Name
+                        i
+                        Load
+                    )
+                    Eq
+                    [(ConstantInt
+                        5
+                        ()
+                    )]
+                )
+                (Compare
+                    (Name
+                        i
+                        Load
+                    )
+                    Lt
+                    [(ConstantInt
+                        10
+                        ()
+                    )]
+                )]
+            )
+            [(Assign
+                [(Name
+                    i
+                    Store
+                )]
+                (ConstantInt
+                    3
+                    ()
+                )
+                ()
+            )]
+            []
+        )]
+        []
+        ()
+    )
+    (For
+        (Name
+            i
+            Store
+        )
+        (Membership
+            (Name
+                a
+                Load
+            )
+            In
+            (Name
+                list1
+                Load
+            )
+        )
+        [(Pass)]
+        []
+        ()
+    )
+    (For
+        (Name
+            item
+            Store
+        )
+        (Name
+            list1
+            Load
+        )
+        [(If
+            (Membership
+                (Name
+                    item
+                    Load
+                )
+                In
+                (Name
+                    list2
+                    Load
+                )
+            )
+            [(Pass)]
+            []
+        )]
+        []
+        ()
+    )
+    (If
+        (BoolOp
+            Or
+            [(BoolOp
+                And
+                [(Membership
+                    (Name
+                        a
+                        Load
+                    )
+                    In
+                    (Name
+                        list1
+                        Load
+                    )
+                )
+                (Membership
+                    (Name
+                        b
+                        Load
+                    )
+                    NotIn
+                    (Name
+                        list2
+                        Load
+                    )
+                )]
+            )
+            (Membership
+                (Name
+                    c
+                    Load
+                )
+                In
+                (Name
+                    list3
+                    Load
+                )
+            )]
+        )
+        [(Pass)]
+        []
+    )
+    (For
+        (Name
+            f
+            Store
+        )
+        (Tuple
+            [(Name
+                a
+                Load
+            )
+            (Name
+                b
+                Load
+            )
+            (Name
+                c
+                Load
+            )
+            (Name
+                d
+                Load
+            )]
+            Load
+        )
+        [(Pass)]
+        []
+        ()
+    )
+    (For
+        (Name
+            x
+            Store
+        )
+        (Tuple
+            [(Name
+                a
+                Load
+            )]
+            Load
+        )
+        [(Pass)]
+        []
+        ()
+    )
+    (For
+        (Name
+            x
+            Store
+        )
+        (Tuple
+            [(Name
+                a
+                Load
+            )]
+            Load
+        )
+        [(Pass)]
+        []
+        ()
+    )
+    (For
+        (Name
+            x
+            Store
+        )
+        (Tuple
+            [(Name
+                a
+                Load
+            )
+            (Name
+                b
+                Load
+            )]
+            Load
+        )
+        [(Pass)]
+        []
+        ()
+    )
+    (AsyncFunctionDef
+        test
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(AsyncFor
+            (Name
+                x
+                Store
+            )
+            (Tuple
+                [(Name
+                    a
+                    Load
+                )
+                (Name
+                    b
+                    Load
+                )]
+                Load
+            )
+            [(Pass)]
+            []
+            ()
+        )
+        (AsyncFor
+            (Name
+                x
+                Store
+            )
+            (Tuple
+                [(Name
+                    a
+                    Load
+                )]
+                Load
+            )
+            [(Pass)]
+            []
+            ()
+        )]
+        []
+        ()
+        ()
+    )
+    (For
+        (Name
+            a
+            Store
+        )
+        (Tuple
+            [(Name
+                b
+                Load
+            )
+            (Name
+                c
+                Load
+            )]
+            Load
+        )
+        [(Expr
+            (BinOp
+                (Name
+                    a
+                    Load
+                )
+                Pow
+                (ConstantInt
+                    2
+                    ()
+                )
+            )
+        )
+        (Pass)]
+        []
+        ()
+    )
+    (AsyncFor
+        (Name
+            a
+            Store
+        )
+        (Call
+            (Name
+                range
+                Load
+            )
+            [(ConstantInt
+                5
+                ()
+            )]
+            []
+        )
+        [(Expr
+            (Call
+                (Name
+                    print
+                    Load
+                )
+                [(Name
+                    a
+                    Load
+                )]
+                []
+            )
+        )]
+        []
+        ()
+    )
+    (For
+        (Name
+            like_function
+            Store
+        )
+        (Tuple
+            [(Attribute
+                (Name
+                    np
+                    Load
+                )
+                zeros_like
+                Load
+            )
+            (Attribute
+                (Name
+                    np
+                    Load
+                )
+                ones_like
+                Load
+            )
+            (Attribute
+                (Name
+                    np
+                    Load
+                )
+                empty_like
+                Load
+            )]
+            Load
+        )
+        [(Pass)]
+        []
+        ()
+    )
+    (For
+        (Tuple
+            [(Name
+                a
+                Store
+            )]
+            Store
+        )
+        (Name
+            t
+            Load
+        )
+        [(Pass)]
+        []
+        ()
+    )]
+    []
+)
diff --git a/tests/reference/ast_new-function_def1-1a872df.json b/tests/reference/ast_new-function_def1-1a872df.json
index cb33100145..ff54698350 100644
--- a/tests/reference/ast_new-function_def1-1a872df.json
+++ b/tests/reference/ast_new-function_def1-1a872df.json
@@ -2,11 +2,11 @@
     "basename": "ast_new-function_def1-1a872df",
     "cmd": "lpython --show-ast --new-parser --no-color {infile} -o {outfile}",
     "infile": "tests/parser/function_def1.py",
-    "infile_hash": "96c4a34f72e609e55af1688b793dc2d6fb375f82f661d16de0ea6fa9",
+    "infile_hash": "1afa1fb49c292eabdb1a8798f8b0642d878f3a67f8f069ab0bac4574",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "ast_new-function_def1-1a872df.stdout",
-    "stdout_hash": "ad5ea65f2ef1994819a5c48936f936ea955303c08253419d72aa450b",
+    "stdout_hash": "0110165ec922436f3a1dcf21de9d64353f410bb4b5dab943df168d79",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/ast_new-function_def1-1a872df.stdout b/tests/reference/ast_new-function_def1-1a872df.stdout
index 9e22d8927e..982d9d5371 100644
--- a/tests/reference/ast_new-function_def1-1a872df.stdout
+++ b/tests/reference/ast_new-function_def1-1a872df.stdout
@@ -1,6 +1,558 @@
-(Module [(ImportFrom ltypes [(i32 ()) (overload ())] 0) (FunctionDef greet ([] [(name () ())] [] [] [] [] []) [(Expr (ConstantStr "
-    This function greets to
-    the person passed in as
-    a parameter
-    " ())) (Expr (Call (Name print Load) [(BinOp (BinOp (ConstantStr "Hello, " ()) Add (Name name Load)) Add (ConstantStr ". Good morning!" ()))] []))] [] () ()) (FunctionDef absolute_value ([] [(num () ())] [] [] [] [] []) [(Expr (ConstantStr "This function returns the absolute
-    value of the entered number" ())) (If (Compare (Name num Load) GtE [(ConstantInt 0 ())]) [(Return (Name num Load))] [(Return (UnaryOp USub (Name num Load)))])] [] () ()) (FunctionDef combine ([] [(fname () ()) (lname () ())] [] [] [] [] []) [(Expr (Call (Name print Load) [(BinOp (BinOp (Name fname Load) Add (ConstantStr " " ())) Add (Name lname Load))] []))] [] () ()) (FunctionDef tri_recursion ([] [(k () ())] [] [] [] [] []) [(If (Compare (Name k Load) Gt [(ConstantInt 0 ())]) [(Assign [(Name result Store)] (BinOp (Name k Load) Add (Call (Name tri_recursion Load) [(BinOp (Name k Load) Sub (ConstantInt 1 ()))] [])) ()) (Expr (Call (Name print Load) [(Name result Load)] []))] [(Assign [(Name result Store)] (ConstantInt 0 ()) ())]) (Return (Name result Load))] [] () ()) (FunctionDef test ([] [(a (Name i32 Load) ())] [] [] [] [] []) [(Return (BinOp (Name a Load) Add (ConstantInt 10 ())))] [(Name overload Load)] (Name i32 Load) ()) (FunctionDef test ([] [(a (Name i64 Load) ())] [] [] [] [] []) [(Return (BinOp (Name a Load) Add (ConstantInt 10 ())))] [(Name overload Load)] (Name i64 Load) ()) (FunctionDef test ([] [(a (Name bool Load) ())] [] [] [] [] []) [(If (Name a Load) [(Return (ConstantInt 10 ()))] []) (Return (UnaryOp USub (ConstantInt 10 ())))] [(Name overload Load)] (Name i32 Load) ()) (FunctionDef check ([] [] [] [] [] [] []) [(Expr (Call (Name greet Load) [(ConstantStr "Xyz" ())] [])) (Expr (Call (Name print Load) [(Call (Name absolute_value Load) [(ConstantInt 2 ())] [])] [])) (Expr (Call (Name combine Load) [(ConstantStr "LPython" ()) (ConstantStr "Compiler" ())] [])) (Expr (Call (Name print Load) [(ConstantStr "Recursion Example Results: " ())] [])) (Expr (Call (Name tri_recursion Load) [(ConstantInt 6 ())] [])) (Expr (Call (Name print Load) [(Call (Name test Load) [(ConstantInt 15 ())] [])] [])) (Expr (Call (Name print Load) [(Call (Name test Load) [(ConstantBool .true. ())] [])] []))] [] () ()) (Expr (Call (Name check Load) [] [])) (FunctionDef print_args ([] [] [(args () ())] [] [] [] []) [(Expr (Call (Name print Load) [(Name args Load)] []))] [] () ()) (FunctionDef print_kwargs ([] [] [] [] [] [(kwargs () ())] []) [(Expr (Call (Name print Load) [(Name kwargs Load)] []))] [] () ())] [])
+(Module
+    [(ImportFrom
+        lpython
+        [(i32
+        ())
+        (overload
+        ())]
+        0
+    )
+    (FunctionDef
+        greet
+        ([]
+        [(name
+        ()
+        ())]
+        []
+        []
+        []
+        []
+        [])
+        [(Expr
+            (ConstantStr
+                "\n    This function greets to\n    the person passed in as\n    a parameter\n    "
+                ()
+            )
+        )
+        (Expr
+            (Call
+                (Name
+                    print
+                    Load
+                )
+                [(BinOp
+                    (BinOp
+                        (ConstantStr
+                            "Hello, "
+                            ()
+                        )
+                        Add
+                        (Name
+                            name
+                            Load
+                        )
+                    )
+                    Add
+                    (ConstantStr
+                        ". Good morning!"
+                        ()
+                    )
+                )]
+                []
+            )
+        )]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        absolute_value
+        ([]
+        [(num
+        ()
+        ())]
+        []
+        []
+        []
+        []
+        [])
+        [(Expr
+            (ConstantStr
+                "This function returns the absolute\n    value of the entered number"
+                ()
+            )
+        )
+        (If
+            (Compare
+                (Name
+                    num
+                    Load
+                )
+                GtE
+                [(ConstantInt
+                    0
+                    ()
+                )]
+            )
+            [(Return
+                (Name
+                    num
+                    Load
+                )
+            )]
+            [(Return
+                (UnaryOp
+                    USub
+                    (Name
+                        num
+                        Load
+                    )
+                )
+            )]
+        )]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        combine
+        ([]
+        [(fname
+        ()
+        ())
+        (lname
+        ()
+        ())]
+        []
+        []
+        []
+        []
+        [])
+        [(Expr
+            (Call
+                (Name
+                    print
+                    Load
+                )
+                [(BinOp
+                    (BinOp
+                        (Name
+                            fname
+                            Load
+                        )
+                        Add
+                        (ConstantStr
+                            " "
+                            ()
+                        )
+                    )
+                    Add
+                    (Name
+                        lname
+                        Load
+                    )
+                )]
+                []
+            )
+        )]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        tri_recursion
+        ([]
+        [(k
+        ()
+        ())]
+        []
+        []
+        []
+        []
+        [])
+        [(If
+            (Compare
+                (Name
+                    k
+                    Load
+                )
+                Gt
+                [(ConstantInt
+                    0
+                    ()
+                )]
+            )
+            [(Assign
+                [(Name
+                    result
+                    Store
+                )]
+                (BinOp
+                    (Name
+                        k
+                        Load
+                    )
+                    Add
+                    (Call
+                        (Name
+                            tri_recursion
+                            Load
+                        )
+                        [(BinOp
+                            (Name
+                                k
+                                Load
+                            )
+                            Sub
+                            (ConstantInt
+                                1
+                                ()
+                            )
+                        )]
+                        []
+                    )
+                )
+                ()
+            )
+            (Expr
+                (Call
+                    (Name
+                        print
+                        Load
+                    )
+                    [(Name
+                        result
+                        Load
+                    )]
+                    []
+                )
+            )]
+            [(Assign
+                [(Name
+                    result
+                    Store
+                )]
+                (ConstantInt
+                    0
+                    ()
+                )
+                ()
+            )]
+        )
+        (Return
+            (Name
+                result
+                Load
+            )
+        )]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        test
+        ([]
+        [(a
+        (Name
+            i32
+            Load
+        )
+        ())]
+        []
+        []
+        []
+        []
+        [])
+        [(Return
+            (BinOp
+                (Name
+                    a
+                    Load
+                )
+                Add
+                (ConstantInt
+                    10
+                    ()
+                )
+            )
+        )]
+        [(Name
+            overload
+            Load
+        )]
+        (Name
+            i32
+            Load
+        )
+        ()
+    )
+    (FunctionDef
+        test
+        ([]
+        [(a
+        (Name
+            i64
+            Load
+        )
+        ())]
+        []
+        []
+        []
+        []
+        [])
+        [(Return
+            (BinOp
+                (Name
+                    a
+                    Load
+                )
+                Add
+                (ConstantInt
+                    10
+                    ()
+                )
+            )
+        )]
+        [(Name
+            overload
+            Load
+        )]
+        (Name
+            i64
+            Load
+        )
+        ()
+    )
+    (FunctionDef
+        test
+        ([]
+        [(a
+        (Name
+            bool
+            Load
+        )
+        ())]
+        []
+        []
+        []
+        []
+        [])
+        [(If
+            (Name
+                a
+                Load
+            )
+            [(Return
+                (ConstantInt
+                    10
+                    ()
+                )
+            )]
+            []
+        )
+        (Return
+            (UnaryOp
+                USub
+                (ConstantInt
+                    10
+                    ()
+                )
+            )
+        )]
+        [(Name
+            overload
+            Load
+        )]
+        (Name
+            i32
+            Load
+        )
+        ()
+    )
+    (FunctionDef
+        check
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(Expr
+            (Call
+                (Name
+                    greet
+                    Load
+                )
+                [(ConstantStr
+                    "Xyz"
+                    ()
+                )]
+                []
+            )
+        )
+        (Expr
+            (Call
+                (Name
+                    print
+                    Load
+                )
+                [(Call
+                    (Name
+                        absolute_value
+                        Load
+                    )
+                    [(ConstantInt
+                        2
+                        ()
+                    )]
+                    []
+                )]
+                []
+            )
+        )
+        (Expr
+            (Call
+                (Name
+                    combine
+                    Load
+                )
+                [(ConstantStr
+                    "LPython"
+                    ()
+                )
+                (ConstantStr
+                    "Compiler"
+                    ()
+                )]
+                []
+            )
+        )
+        (Expr
+            (Call
+                (Name
+                    print
+                    Load
+                )
+                [(ConstantStr
+                    "Recursion Example Results: "
+                    ()
+                )]
+                []
+            )
+        )
+        (Expr
+            (Call
+                (Name
+                    tri_recursion
+                    Load
+                )
+                [(ConstantInt
+                    6
+                    ()
+                )]
+                []
+            )
+        )
+        (Expr
+            (Call
+                (Name
+                    print
+                    Load
+                )
+                [(Call
+                    (Name
+                        test
+                        Load
+                    )
+                    [(ConstantInt
+                        15
+                        ()
+                    )]
+                    []
+                )]
+                []
+            )
+        )
+        (Expr
+            (Call
+                (Name
+                    print
+                    Load
+                )
+                [(Call
+                    (Name
+                        test
+                        Load
+                    )
+                    [(ConstantBool
+                        .true.
+                        ()
+                    )]
+                    []
+                )]
+                []
+            )
+        )]
+        []
+        ()
+        ()
+    )
+    (Expr
+        (Call
+            (Name
+                check
+                Load
+            )
+            []
+            []
+        )
+    )
+    (FunctionDef
+        print_args
+        ([]
+        []
+        [(args
+        ()
+        ())]
+        []
+        []
+        []
+        [])
+        [(Expr
+            (Call
+                (Name
+                    print
+                    Load
+                )
+                [(Name
+                    args
+                    Load
+                )]
+                []
+            )
+        )]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        print_kwargs
+        ([]
+        []
+        []
+        []
+        []
+        [(kwargs
+        ()
+        ())]
+        [])
+        [(Expr
+            (Call
+                (Name
+                    print
+                    Load
+                )
+                [(Name
+                    kwargs
+                    Load
+                )]
+                []
+            )
+        )]
+        []
+        ()
+        ()
+    )]
+    []
+)
diff --git a/tests/reference/ast_new-function_def2-52c4587.json b/tests/reference/ast_new-function_def2-52c4587.json
index 6ef3ef9568..6a84a1afa5 100644
--- a/tests/reference/ast_new-function_def2-52c4587.json
+++ b/tests/reference/ast_new-function_def2-52c4587.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "ast_new-function_def2-52c4587.stdout",
-    "stdout_hash": "487f9f6f7ee1f07bfceae82a4dcff7b35d1861d587cd1f1f5d156912",
+    "stdout_hash": "701f1ddbc26053b77201943dc8be23c2cb86b979a207ebf11d5c0772",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/ast_new-function_def2-52c4587.stdout b/tests/reference/ast_new-function_def2-52c4587.stdout
index 534ca081b7..6102745649 100644
--- a/tests/reference/ast_new-function_def2-52c4587.stdout
+++ b/tests/reference/ast_new-function_def2-52c4587.stdout
@@ -1 +1,1315 @@
-(Module [(FunctionDef test_01 ([] [] [] [] [] [] []) [(Pass)] [] () ()) (FunctionDef test_02 ([] [] [(x (Name i32 Load) ())] [] [] [] []) [(Pass)] [] () ()) (FunctionDef test_03 ([] [] [(x () ())] [(y () ()) (z () ())] [(ConstantNone ()) (ConstantNone ())] [] []) [(Pass)] [] () ()) (FunctionDef test_04 ([] [] [(x () ())] [(y () ()) (z () ())] [(ConstantNone ()) (ConstantNone ())] [(args () ())] []) [(Pass)] [] () ()) (FunctionDef test_05 ([] [] [(x () ())] [] [] [(args () ())] []) [(Pass)] [] () ()) (FunctionDef test_06 ([] [] [] [] [] [(args () ())] []) [(Pass)] [] () ()) (FunctionDef test_07 ([] [(x (Name i32 Load) ()) (y () ())] [] [] [] [] []) [(Pass)] [] () ()) (FunctionDef test_08 ([] [(x () ())] [(y () ())] [] [] [] []) [(Pass)] [] () ()) (FunctionDef test_09 ([] [(x () ())] [(y () ())] [(z () ())] [(ConstantNone ())] [] []) [(Pass)] [] () ()) (FunctionDef test_10 ([] [(x () ())] [(y () ())] [(z () ())] [(ConstantNone ())] [(args (Name i32 Load) ())] []) [(Pass)] [] () ()) (FunctionDef test_11 ([] [(x () ())] [(y () ())] [] [] [(args () ())] []) [(Pass)] [] () ()) (FunctionDef test_12 ([] [(x () ())] [] [] [] [(args () ())] []) [(Pass)] [] () ()) (FunctionDef test_13 ([] [(x (Name i32 Load) ()) (y (Name i32 Load) ())] [] [] [] [] [(ConstantInt 1 ()) (ConstantInt 1 ())]) [(Pass)] [] () ()) (FunctionDef test_14 ([] [(x () ())] [(y () ())] [(z () ())] [(ConstantNone ())] [(args (Name i32 Load) ())] []) [(Pass)] [] (Name i32 Load) ()) (FunctionDef test_15 ([(a () ())] [] [] [] [] [] []) [(Pass)] [] () ()) (FunctionDef test_16 ([(a () ())] [(b () ()) (c () ())] [] [] [] [] []) [(Pass)] [] () ()) (FunctionDef test_17 ([(a () ())] [] [(b () ())] [] [] [] []) [(Pass)] [] () ()) (FunctionDef test_18 ([(a (Name i32 Load) ())] [] [(b (Name i64 Load) ())] [(c (Name i32 Load) ()) (d (Name i32 Load) ())] [(ConstantNone ()) (ConstantNone ())] [] []) [(Pass)] [] () ()) (FunctionDef test_19 ([(a () ())] [] [(b () ())] [(c () ())] [(ConstantNone ())] [(d () ())] []) [(Pass)] [] () ()) (FunctionDef test_20 ([(a () ())] [] [] [] [] [(b () ())] []) [(Pass)] [] () ()) (FunctionDef test_21 ([(a () ())] [] [(b () ())] [] [] [(c () ())] []) [(Pass)] [] () ()) (FunctionDef test_22 ([(a () ())] [(b () ()) (c () ())] [(d () ())] [] [] [] []) [(Pass)] [] () ()) (FunctionDef test_23 ([(a () ())] [(b () ()) (c () ())] [] [] [] [(d () ())] []) [(Pass)] [] () ()) (FunctionDef test_24 ([(a () ())] [(b () ()) (c () ())] [(d () ())] [] [] [(e () ())] []) [(Pass)] [] () ()) (FunctionDef test_25 ([(a () ())] [(b () ()) (c () ())] [(d () ())] [(e () ())] [(ConstantNone ())] [(f () ())] []) [(Pass)] [] () ()) (FunctionDef test_26 ([] [] [] [(a () ())] [(ConstantNone ())] [] []) [(Pass)] [] () ()) (FunctionDef test_27 ([] [] [] [(a () ())] [(ConstantNone ())] [(b () ())] []) [(Pass)] [] () ()) (FunctionDef test_28 ([] [(a () ())] [] [(b () ())] [(ConstantNone ())] [] []) [(Pass)] [] () ()) (FunctionDef test_29 ([] [(a () ())] [] [(b () ())] [(ConstantNone ())] [(c () ())] []) [(Pass)] [] () ()) (FunctionDef test_30 ([(a () ())] [] [] [(b () ())] [(ConstantNone ())] [] []) [(Pass)] [] () ()) (FunctionDef test_31 ([(a () ())] [(b () ())] [] [(c () ())] [(ConstantNone ())] [] []) [(Pass)] [] () ()) (FunctionDef test_32 ([(a () ())] [] [] [(c () ())] [(ConstantNone ())] [(d () ())] []) [(Pass)] [] () ()) (FunctionDef test_33 ([(a () ())] [(b () ())] [] [(c () ())] [(ConstantNone ())] [(d () ())] []) [(Pass)] [] () ()) (Expr (Call (Name test Load) [] [])) (Expr (Call (Name test Load) [(Name x Load) (Name y Load)] [])) (Expr (Call (Name test Load) [(Name x Load)] [(y (ConstantInt 1 ())) (z (ConstantStr "123" ()))])) (Expr (Call (Name test Load) [(ConstantInt 100 ())] [(() (Name x Load))])) (Expr (Call (Name test Load) [(Starred (Name x Load) Load)] [(() (Name y Load))])) (Expr (Call (Name test Load) [(Starred (Name x Load) Load) (Name y Load)] [])) (Expr (Call (Name test Load) [(Starred (Name x Load) Load) (Starred (Name y Load) Load)] [])) (Expr (Call (Name test Load) [] [(() (Name x Load)) (() (Name y Load))])) (Expr (Call (Name test Load) [(Starred (Name x Load) Load)] [(y (ConstantInt 1 ())) (z (ConstantInt 2 ())) (() (Name a Load)) (b (ConstantInt 1 ()))])) (Expr (Call (Name test Load) [(Starred (Name x Load) Load)] [(() (Name a Load)) (b (ConstantStr "1" ()))])) (Expr (Call (Name test Load) [(Starred (Name y Load) Load)] [(x (ConstantInt 1 ())) (z (ConstantInt 2 ())) (() (Name a Load)) (b (ConstantStr "1" ()))])) (Expr (Call (Attribute (Name lp Load) test Load) [] [])) (Expr (Call (Attribute (Name lp Load) test Load) [(Name x Load) (Name y Load)] [])) (Expr (Call (Attribute (Name lp Load) test Load) [(Name x Load)] [(y (ConstantInt 1 ())) (z (ConstantStr "123" ()))])) (Expr (Subscript (Call (Name test Load) [] []) (ConstantStr "version" ()) Load)) (Expr (Subscript (Call (Name test Load) [(Name x Load) (Name y Load)] []) (ConstantStr "version" ()) Load)) (Expr (Subscript (Call (Name test Load) [(Name x Load) (Starred (Name y Load) Load)] []) (Slice () (UnaryOp USub (ConstantInt 1 ())) ()) Load)) (Expr (Subscript (Subscript (Call (Name test Load) [] []) (ConstantInt 1 ()) Load) (ConstantInt 1 ()) Load)) (Expr (Call (Subscript (Name x Load) (ConstantStr "numpystr" ()) Load) [] [])) (Expr (Call (Subscript (Name x Load) (ConstantStr "int" ()) Load) [] [])) (Expr (Call (Subscript (Name x Load) (Name func Load) Load) [(Starred (Name args Load) Load)] [(() (Name kwargs Load))])) (Expr (Call (Subscript (Name test Load) (ConstantInt 0 ()) Load) [(Starred (Subscript (Name test Load) (Slice (ConstantInt 1 ()) () ()) Load) Load)] [])) (Expr (Call (BinOp (Name obj Load) Mult (Attribute (Attribute (Name self Load) _arr Load) ndim Load)) [(Starred (Attribute (Attribute (Name self Load) _arr Load) shape Load) Load)] [])) (Expr (Call (Name traverse Load) [(Tuple [(Name index Load) (Name value Load)] Load) (Name visit Load) (Starred (Name args Load) Load)] [(result (Name result Load)) (() (Name kwargs Load))]))] [])
+(Module
+    [(FunctionDef
+        test_01
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(Pass)]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        test_02
+        ([]
+        []
+        [(x
+        (Name
+            i32
+            Load
+        )
+        ())]
+        []
+        []
+        []
+        [])
+        [(Pass)]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        test_03
+        ([]
+        []
+        [(x
+        ()
+        ())]
+        [(y
+        ()
+        ())
+        (z
+        ()
+        ())]
+        [(ConstantNone
+            ()
+        )
+        (ConstantNone
+            ()
+        )]
+        []
+        [])
+        [(Pass)]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        test_04
+        ([]
+        []
+        [(x
+        ()
+        ())]
+        [(y
+        ()
+        ())
+        (z
+        ()
+        ())]
+        [(ConstantNone
+            ()
+        )
+        (ConstantNone
+            ()
+        )]
+        [(args
+        ()
+        ())]
+        [])
+        [(Pass)]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        test_05
+        ([]
+        []
+        [(x
+        ()
+        ())]
+        []
+        []
+        [(args
+        ()
+        ())]
+        [])
+        [(Pass)]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        test_06
+        ([]
+        []
+        []
+        []
+        []
+        [(args
+        ()
+        ())]
+        [])
+        [(Pass)]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        test_07
+        ([]
+        [(x
+        (Name
+            i32
+            Load
+        )
+        ())
+        (y
+        ()
+        ())]
+        []
+        []
+        []
+        []
+        [])
+        [(Pass)]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        test_08
+        ([]
+        [(x
+        ()
+        ())]
+        [(y
+        ()
+        ())]
+        []
+        []
+        []
+        [])
+        [(Pass)]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        test_09
+        ([]
+        [(x
+        ()
+        ())]
+        [(y
+        ()
+        ())]
+        [(z
+        ()
+        ())]
+        [(ConstantNone
+            ()
+        )]
+        []
+        [])
+        [(Pass)]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        test_10
+        ([]
+        [(x
+        ()
+        ())]
+        [(y
+        ()
+        ())]
+        [(z
+        ()
+        ())]
+        [(ConstantNone
+            ()
+        )]
+        [(args
+        (Name
+            i32
+            Load
+        )
+        ())]
+        [])
+        [(Pass)]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        test_11
+        ([]
+        [(x
+        ()
+        ())]
+        [(y
+        ()
+        ())]
+        []
+        []
+        [(args
+        ()
+        ())]
+        [])
+        [(Pass)]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        test_12
+        ([]
+        [(x
+        ()
+        ())]
+        []
+        []
+        []
+        [(args
+        ()
+        ())]
+        [])
+        [(Pass)]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        test_13
+        ([]
+        [(x
+        (Name
+            i32
+            Load
+        )
+        ())
+        (y
+        (Name
+            i32
+            Load
+        )
+        ())]
+        []
+        []
+        []
+        []
+        [(ConstantInt
+            1
+            ()
+        )
+        (ConstantInt
+            1
+            ()
+        )])
+        [(Pass)]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        test_14
+        ([]
+        [(x
+        ()
+        ())]
+        [(y
+        ()
+        ())]
+        [(z
+        ()
+        ())]
+        [(ConstantNone
+            ()
+        )]
+        [(args
+        (Name
+            i32
+            Load
+        )
+        ())]
+        [])
+        [(Pass)]
+        []
+        (Name
+            i32
+            Load
+        )
+        ()
+    )
+    (FunctionDef
+        test_15
+        ([(a
+        ()
+        ())]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(Pass)]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        test_16
+        ([(a
+        ()
+        ())]
+        [(b
+        ()
+        ())
+        (c
+        ()
+        ())]
+        []
+        []
+        []
+        []
+        [])
+        [(Pass)]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        test_17
+        ([(a
+        ()
+        ())]
+        []
+        [(b
+        ()
+        ())]
+        []
+        []
+        []
+        [])
+        [(Pass)]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        test_18
+        ([(a
+        (Name
+            i32
+            Load
+        )
+        ())]
+        []
+        [(b
+        (Name
+            i64
+            Load
+        )
+        ())]
+        [(c
+        (Name
+            i32
+            Load
+        )
+        ())
+        (d
+        (Name
+            i32
+            Load
+        )
+        ())]
+        [(ConstantNone
+            ()
+        )
+        (ConstantNone
+            ()
+        )]
+        []
+        [])
+        [(Pass)]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        test_19
+        ([(a
+        ()
+        ())]
+        []
+        [(b
+        ()
+        ())]
+        [(c
+        ()
+        ())]
+        [(ConstantNone
+            ()
+        )]
+        [(d
+        ()
+        ())]
+        [])
+        [(Pass)]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        test_20
+        ([(a
+        ()
+        ())]
+        []
+        []
+        []
+        []
+        [(b
+        ()
+        ())]
+        [])
+        [(Pass)]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        test_21
+        ([(a
+        ()
+        ())]
+        []
+        [(b
+        ()
+        ())]
+        []
+        []
+        [(c
+        ()
+        ())]
+        [])
+        [(Pass)]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        test_22
+        ([(a
+        ()
+        ())]
+        [(b
+        ()
+        ())
+        (c
+        ()
+        ())]
+        [(d
+        ()
+        ())]
+        []
+        []
+        []
+        [])
+        [(Pass)]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        test_23
+        ([(a
+        ()
+        ())]
+        [(b
+        ()
+        ())
+        (c
+        ()
+        ())]
+        []
+        []
+        []
+        [(d
+        ()
+        ())]
+        [])
+        [(Pass)]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        test_24
+        ([(a
+        ()
+        ())]
+        [(b
+        ()
+        ())
+        (c
+        ()
+        ())]
+        [(d
+        ()
+        ())]
+        []
+        []
+        [(e
+        ()
+        ())]
+        [])
+        [(Pass)]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        test_25
+        ([(a
+        ()
+        ())]
+        [(b
+        ()
+        ())
+        (c
+        ()
+        ())]
+        [(d
+        ()
+        ())]
+        [(e
+        ()
+        ())]
+        [(ConstantNone
+            ()
+        )]
+        [(f
+        ()
+        ())]
+        [])
+        [(Pass)]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        test_26
+        ([]
+        []
+        []
+        [(a
+        ()
+        ())]
+        [(ConstantNone
+            ()
+        )]
+        []
+        [])
+        [(Pass)]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        test_27
+        ([]
+        []
+        []
+        [(a
+        ()
+        ())]
+        [(ConstantNone
+            ()
+        )]
+        [(b
+        ()
+        ())]
+        [])
+        [(Pass)]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        test_28
+        ([]
+        [(a
+        ()
+        ())]
+        []
+        [(b
+        ()
+        ())]
+        [(ConstantNone
+            ()
+        )]
+        []
+        [])
+        [(Pass)]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        test_29
+        ([]
+        [(a
+        ()
+        ())]
+        []
+        [(b
+        ()
+        ())]
+        [(ConstantNone
+            ()
+        )]
+        [(c
+        ()
+        ())]
+        [])
+        [(Pass)]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        test_30
+        ([(a
+        ()
+        ())]
+        []
+        []
+        [(b
+        ()
+        ())]
+        [(ConstantNone
+            ()
+        )]
+        []
+        [])
+        [(Pass)]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        test_31
+        ([(a
+        ()
+        ())]
+        [(b
+        ()
+        ())]
+        []
+        [(c
+        ()
+        ())]
+        [(ConstantNone
+            ()
+        )]
+        []
+        [])
+        [(Pass)]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        test_32
+        ([(a
+        ()
+        ())]
+        []
+        []
+        [(c
+        ()
+        ())]
+        [(ConstantNone
+            ()
+        )]
+        [(d
+        ()
+        ())]
+        [])
+        [(Pass)]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        test_33
+        ([(a
+        ()
+        ())]
+        [(b
+        ()
+        ())]
+        []
+        [(c
+        ()
+        ())]
+        [(ConstantNone
+            ()
+        )]
+        [(d
+        ()
+        ())]
+        [])
+        [(Pass)]
+        []
+        ()
+        ()
+    )
+    (Expr
+        (Call
+            (Name
+                test
+                Load
+            )
+            []
+            []
+        )
+    )
+    (Expr
+        (Call
+            (Name
+                test
+                Load
+            )
+            [(Name
+                x
+                Load
+            )
+            (Name
+                y
+                Load
+            )]
+            []
+        )
+    )
+    (Expr
+        (Call
+            (Name
+                test
+                Load
+            )
+            [(Name
+                x
+                Load
+            )]
+            [(y
+            (ConstantInt
+                1
+                ()
+            ))
+            (z
+            (ConstantStr
+                "123"
+                ()
+            ))]
+        )
+    )
+    (Expr
+        (Call
+            (Name
+                test
+                Load
+            )
+            [(ConstantInt
+                100
+                ()
+            )]
+            [(()
+            (Name
+                x
+                Load
+            ))]
+        )
+    )
+    (Expr
+        (Call
+            (Name
+                test
+                Load
+            )
+            [(Starred
+                (Name
+                    x
+                    Load
+                )
+                Load
+            )]
+            [(()
+            (Name
+                y
+                Load
+            ))]
+        )
+    )
+    (Expr
+        (Call
+            (Name
+                test
+                Load
+            )
+            [(Starred
+                (Name
+                    x
+                    Load
+                )
+                Load
+            )
+            (Name
+                y
+                Load
+            )]
+            []
+        )
+    )
+    (Expr
+        (Call
+            (Name
+                test
+                Load
+            )
+            [(Starred
+                (Name
+                    x
+                    Load
+                )
+                Load
+            )
+            (Starred
+                (Name
+                    y
+                    Load
+                )
+                Load
+            )]
+            []
+        )
+    )
+    (Expr
+        (Call
+            (Name
+                test
+                Load
+            )
+            []
+            [(()
+            (Name
+                x
+                Load
+            ))
+            (()
+            (Name
+                y
+                Load
+            ))]
+        )
+    )
+    (Expr
+        (Call
+            (Name
+                test
+                Load
+            )
+            [(Starred
+                (Name
+                    x
+                    Load
+                )
+                Load
+            )]
+            [(y
+            (ConstantInt
+                1
+                ()
+            ))
+            (z
+            (ConstantInt
+                2
+                ()
+            ))
+            (()
+            (Name
+                a
+                Load
+            ))
+            (b
+            (ConstantInt
+                1
+                ()
+            ))]
+        )
+    )
+    (Expr
+        (Call
+            (Name
+                test
+                Load
+            )
+            [(Starred
+                (Name
+                    x
+                    Load
+                )
+                Load
+            )]
+            [(()
+            (Name
+                a
+                Load
+            ))
+            (b
+            (ConstantStr
+                "1"
+                ()
+            ))]
+        )
+    )
+    (Expr
+        (Call
+            (Name
+                test
+                Load
+            )
+            [(Starred
+                (Name
+                    y
+                    Load
+                )
+                Load
+            )]
+            [(x
+            (ConstantInt
+                1
+                ()
+            ))
+            (z
+            (ConstantInt
+                2
+                ()
+            ))
+            (()
+            (Name
+                a
+                Load
+            ))
+            (b
+            (ConstantStr
+                "1"
+                ()
+            ))]
+        )
+    )
+    (Expr
+        (Call
+            (Attribute
+                (Name
+                    lp
+                    Load
+                )
+                test
+                Load
+            )
+            []
+            []
+        )
+    )
+    (Expr
+        (Call
+            (Attribute
+                (Name
+                    lp
+                    Load
+                )
+                test
+                Load
+            )
+            [(Name
+                x
+                Load
+            )
+            (Name
+                y
+                Load
+            )]
+            []
+        )
+    )
+    (Expr
+        (Call
+            (Attribute
+                (Name
+                    lp
+                    Load
+                )
+                test
+                Load
+            )
+            [(Name
+                x
+                Load
+            )]
+            [(y
+            (ConstantInt
+                1
+                ()
+            ))
+            (z
+            (ConstantStr
+                "123"
+                ()
+            ))]
+        )
+    )
+    (Expr
+        (Subscript
+            (Call
+                (Name
+                    test
+                    Load
+                )
+                []
+                []
+            )
+            (ConstantStr
+                "version"
+                ()
+            )
+            Load
+        )
+    )
+    (Expr
+        (Subscript
+            (Call
+                (Name
+                    test
+                    Load
+                )
+                [(Name
+                    x
+                    Load
+                )
+                (Name
+                    y
+                    Load
+                )]
+                []
+            )
+            (ConstantStr
+                "version"
+                ()
+            )
+            Load
+        )
+    )
+    (Expr
+        (Subscript
+            (Call
+                (Name
+                    test
+                    Load
+                )
+                [(Name
+                    x
+                    Load
+                )
+                (Starred
+                    (Name
+                        y
+                        Load
+                    )
+                    Load
+                )]
+                []
+            )
+            (Slice
+                ()
+                (UnaryOp
+                    USub
+                    (ConstantInt
+                        1
+                        ()
+                    )
+                )
+                ()
+            )
+            Load
+        )
+    )
+    (Expr
+        (Subscript
+            (Subscript
+                (Call
+                    (Name
+                        test
+                        Load
+                    )
+                    []
+                    []
+                )
+                (ConstantInt
+                    1
+                    ()
+                )
+                Load
+            )
+            (ConstantInt
+                1
+                ()
+            )
+            Load
+        )
+    )
+    (Expr
+        (Call
+            (Subscript
+                (Name
+                    x
+                    Load
+                )
+                (ConstantStr
+                    "numpystr"
+                    ()
+                )
+                Load
+            )
+            []
+            []
+        )
+    )
+    (Expr
+        (Call
+            (Subscript
+                (Name
+                    x
+                    Load
+                )
+                (ConstantStr
+                    "int"
+                    ()
+                )
+                Load
+            )
+            []
+            []
+        )
+    )
+    (Expr
+        (Call
+            (Subscript
+                (Name
+                    x
+                    Load
+                )
+                (Name
+                    func
+                    Load
+                )
+                Load
+            )
+            [(Starred
+                (Name
+                    args
+                    Load
+                )
+                Load
+            )]
+            [(()
+            (Name
+                kwargs
+                Load
+            ))]
+        )
+    )
+    (Expr
+        (Call
+            (Subscript
+                (Name
+                    test
+                    Load
+                )
+                (ConstantInt
+                    0
+                    ()
+                )
+                Load
+            )
+            [(Starred
+                (Subscript
+                    (Name
+                        test
+                        Load
+                    )
+                    (Slice
+                        (ConstantInt
+                            1
+                            ()
+                        )
+                        ()
+                        ()
+                    )
+                    Load
+                )
+                Load
+            )]
+            []
+        )
+    )
+    (Expr
+        (Call
+            (BinOp
+                (Name
+                    obj
+                    Load
+                )
+                Mult
+                (Attribute
+                    (Attribute
+                        (Name
+                            self
+                            Load
+                        )
+                        _arr
+                        Load
+                    )
+                    ndim
+                    Load
+                )
+            )
+            [(Starred
+                (Attribute
+                    (Attribute
+                        (Name
+                            self
+                            Load
+                        )
+                        _arr
+                        Load
+                    )
+                    shape
+                    Load
+                )
+                Load
+            )]
+            []
+        )
+    )
+    (Expr
+        (Call
+            (Name
+                traverse
+                Load
+            )
+            [(Tuple
+                [(Name
+                    index
+                    Load
+                )
+                (Name
+                    value
+                    Load
+                )]
+                Load
+            )
+            (Name
+                visit
+                Load
+            )
+            (Starred
+                (Name
+                    args
+                    Load
+                )
+                Load
+            )]
+            [(result
+            (Name
+                result
+                Load
+            ))
+            (()
+            (Name
+                kwargs
+                Load
+            ))]
+        )
+    )]
+    []
+)
diff --git a/tests/reference/ast_new-function_def3-f66064a.json b/tests/reference/ast_new-function_def3-f66064a.json
index f97b9b0722..ef5687d117 100644
--- a/tests/reference/ast_new-function_def3-f66064a.json
+++ b/tests/reference/ast_new-function_def3-f66064a.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "ast_new-function_def3-f66064a.stdout",
-    "stdout_hash": "926e7c2dba8ad4f0536cb81c654f3ace4d4edce1b719da3dccc35f51",
+    "stdout_hash": "5e5db40257c0c509b0496cf33a9ed0d4d7da8b4c16428b4c2fb264b0",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/ast_new-function_def3-f66064a.stdout b/tests/reference/ast_new-function_def3-f66064a.stdout
index 9077050528..c9869c9776 100644
--- a/tests/reference/ast_new-function_def3-f66064a.stdout
+++ b/tests/reference/ast_new-function_def3-f66064a.stdout
@@ -1 +1,538 @@
-(Module [(FunctionDef main0 ([] [(i () ())] [] [] [] [] []) [(Pass)] [] () ()) (FunctionDef example ([] [(text () ()) (width () ()) (fill_char () ())] [] [] [] [] [(ConstantInt 80 ()) (ConstantStr "-" ())]) [(Return ())] [] () "(...) -> str") (Expr (Call (Name example Load) [(Name text Load)] [(width (ConstantInt 80 ())) (fill_char (ConstantStr "-" ()))])) (FunctionDef test_1 ([] [(x () ())] [] [] [] [] []) [(Pass)] [] () ()) (FunctionDef test_2 ([] [(y () ())] [] [] [] [] []) [(Pass)] [] () ()) (FunctionDef func ([] [(a () "str") (b () "int") (c (Name str Load) "str")] [] [] [] [] [(ConstantInt 80 ()) (ConstantStr "-" ())]) [(Pass)] [] () ()) (FunctionDef abc ([] [(a () ()) (b () "int") (c () "list[str]")] [] [] [] [] [(List [(ConstantStr "-" ())] Load)]) [(Return ())] [] () "(...) -> str") (FunctionDef test_01 ([] [(a () "int") (b () ())] [] [] [] [] [(ConstantInt 0 ())]) [(Pass)] [] () ()) (FunctionDef test_02 ([] [(a () "int") (b () ())] [] [] [] [] []) [(Pass)] [] () ()) (FunctionDef quantiles ([(dist () ())] [] [] [(n () ())] [(ConstantNone ())] [] []) [(Expr (ConstantEllipsis ()))] [] () ()) (FunctionDef quantiles ([(dist () ())] [] [] [(n () ()) (method () ())] [(ConstantInt 4 ()) (ConstantStr "exclusive" ())] [] []) [(Expr (ConstantEllipsis ()))] [] () ()) (FunctionDef func ([(self () ()) (param1 () ()) (param2 () ())] [(param3 () ())] [] [(param4 () ()) (param5 () ())] [(ConstantNone ()) (ConstantNone ())] [] []) [(Expr (ConstantEllipsis ()))] [] () ()) (FunctionDef func ([(self () ()) (param1 () ()) (param2 () ())] [(param3 () ())] [] [(param4 () ()) (param5 () ())] [(ConstantNone ()) (ConstantNone ())] [] [(ConstantInt 7 ())]) [(Expr (ConstantEllipsis ()))] [] () ()) (FunctionDef func ([(self () ()) (param1 () ()) (param2 () ())] [(param3 () ()) (param3_1 () ())] [] [(param4 () ()) (param5 () ())] [(ConstantNone ()) (ConstantNone ())] [] [(ConstantInt 2 ())]) [(Expr (ConstantEllipsis ()))] [] () ()) (FunctionDef add ([] [(a () ()) (b () ())] [] [(c () ()) (d () ())] [(ConstantNone ()) (ConstantNone ())] [] []) [(Expr (ConstantEllipsis ()))] [] () ()) (FunctionDef func ([] [] [] [(param4 () ()) (param5 () ())] [(ConstantNone ()) (ConstantNone ())] [] []) [(Expr (ConstantEllipsis ()))] [] () ()) (FunctionDef func ([] [] [] [(param4 () ()) (param5 () ())] [(ConstantNone ()) (ConstantNone ())] [] []) [(Expr (ConstantEllipsis ()))] [] () ()) (AsyncFunctionDef main ([] [] [] [] [] [] []) [(Assign [(Name a Store)] (Name b Load) ()) (Return (Tuple [(Name a Load)] Load))] [] () ()) (FunctionDef dtype ([] [(self () ())] [] [] [] [] []) [(Expr (ConstantEllipsis ()))] [] (Name _DType_co Load) ())] [(TypeIgnore 0 "[misc]") (TypeIgnore 0 "")])
+(Module
+    [(FunctionDef
+        main0
+        ([]
+        [(i
+        ()
+        ())]
+        []
+        []
+        []
+        []
+        [])
+        [(Pass)]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        example
+        ([]
+        [(text
+        ()
+        ())
+        (width
+        ()
+        ())
+        (fill_char
+        ()
+        ())]
+        []
+        []
+        []
+        []
+        [(ConstantInt
+            80
+            ()
+        )
+        (ConstantStr
+            "-"
+            ()
+        )])
+        [(Return
+            ()
+        )]
+        []
+        ()
+        "(...) -> str"
+    )
+    (Expr
+        (Call
+            (Name
+                example
+                Load
+            )
+            [(Name
+                text
+                Load
+            )]
+            [(width
+            (ConstantInt
+                80
+                ()
+            ))
+            (fill_char
+            (ConstantStr
+                "-"
+                ()
+            ))]
+        )
+    )
+    (FunctionDef
+        test_1
+        ([]
+        [(x
+        ()
+        ())]
+        []
+        []
+        []
+        []
+        [])
+        [(Pass)]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        test_2
+        ([]
+        [(y
+        ()
+        ())]
+        []
+        []
+        []
+        []
+        [])
+        [(Pass)]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        func
+        ([]
+        [(a
+        ()
+        "str")
+        (b
+        ()
+        "int")
+        (c
+        (Name
+            str
+            Load
+        )
+        "str")]
+        []
+        []
+        []
+        []
+        [(ConstantInt
+            80
+            ()
+        )
+        (ConstantStr
+            "-"
+            ()
+        )])
+        [(Pass)]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        abc
+        ([]
+        [(a
+        ()
+        ())
+        (b
+        ()
+        "int")
+        (c
+        ()
+        "list[str]")]
+        []
+        []
+        []
+        []
+        [(List
+            [(ConstantStr
+                "-"
+                ()
+            )]
+            Load
+        )])
+        [(Return
+            ()
+        )]
+        []
+        ()
+        "(...) -> str"
+    )
+    (FunctionDef
+        test_01
+        ([]
+        [(a
+        ()
+        "int")
+        (b
+        ()
+        ())]
+        []
+        []
+        []
+        []
+        [(ConstantInt
+            0
+            ()
+        )])
+        [(Pass)]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        test_02
+        ([]
+        [(a
+        ()
+        "int")
+        (b
+        ()
+        ())]
+        []
+        []
+        []
+        []
+        [])
+        [(Pass)]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        quantiles
+        ([(dist
+        ()
+        ())]
+        []
+        []
+        [(n
+        ()
+        ())]
+        [(ConstantNone
+            ()
+        )]
+        []
+        [])
+        [(Expr
+            (ConstantEllipsis
+                ()
+            )
+        )]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        quantiles
+        ([(dist
+        ()
+        ())]
+        []
+        []
+        [(n
+        ()
+        ())
+        (method
+        ()
+        ())]
+        [(ConstantInt
+            4
+            ()
+        )
+        (ConstantStr
+            "exclusive"
+            ()
+        )]
+        []
+        [])
+        [(Expr
+            (ConstantEllipsis
+                ()
+            )
+        )]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        func
+        ([(self
+        ()
+        ())
+        (param1
+        ()
+        ())
+        (param2
+        ()
+        ())]
+        [(param3
+        ()
+        ())]
+        []
+        [(param4
+        ()
+        ())
+        (param5
+        ()
+        ())]
+        [(ConstantNone
+            ()
+        )
+        (ConstantNone
+            ()
+        )]
+        []
+        [])
+        [(Expr
+            (ConstantEllipsis
+                ()
+            )
+        )]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        func
+        ([(self
+        ()
+        ())
+        (param1
+        ()
+        ())
+        (param2
+        ()
+        ())]
+        [(param3
+        ()
+        ())]
+        []
+        [(param4
+        ()
+        ())
+        (param5
+        ()
+        ())]
+        [(ConstantNone
+            ()
+        )
+        (ConstantNone
+            ()
+        )]
+        []
+        [(ConstantInt
+            7
+            ()
+        )])
+        [(Expr
+            (ConstantEllipsis
+                ()
+            )
+        )]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        func
+        ([(self
+        ()
+        ())
+        (param1
+        ()
+        ())
+        (param2
+        ()
+        ())]
+        [(param3
+        ()
+        ())
+        (param3_1
+        ()
+        ())]
+        []
+        [(param4
+        ()
+        ())
+        (param5
+        ()
+        ())]
+        [(ConstantNone
+            ()
+        )
+        (ConstantNone
+            ()
+        )]
+        []
+        [(ConstantInt
+            2
+            ()
+        )])
+        [(Expr
+            (ConstantEllipsis
+                ()
+            )
+        )]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        add
+        ([]
+        [(a
+        ()
+        ())
+        (b
+        ()
+        ())]
+        []
+        [(c
+        ()
+        ())
+        (d
+        ()
+        ())]
+        [(ConstantNone
+            ()
+        )
+        (ConstantNone
+            ()
+        )]
+        []
+        [])
+        [(Expr
+            (ConstantEllipsis
+                ()
+            )
+        )]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        func
+        ([]
+        []
+        []
+        [(param4
+        ()
+        ())
+        (param5
+        ()
+        ())]
+        [(ConstantNone
+            ()
+        )
+        (ConstantNone
+            ()
+        )]
+        []
+        [])
+        [(Expr
+            (ConstantEllipsis
+                ()
+            )
+        )]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        func
+        ([]
+        []
+        []
+        [(param4
+        ()
+        ())
+        (param5
+        ()
+        ())]
+        [(ConstantNone
+            ()
+        )
+        (ConstantNone
+            ()
+        )]
+        []
+        [])
+        [(Expr
+            (ConstantEllipsis
+                ()
+            )
+        )]
+        []
+        ()
+        ()
+    )
+    (AsyncFunctionDef
+        main
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(Assign
+            [(Name
+                a
+                Store
+            )]
+            (Name
+                b
+                Load
+            )
+            ()
+        )
+        (Return
+            (Tuple
+                [(Name
+                    a
+                    Load
+                )]
+                Load
+            )
+        )]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        dtype
+        ([]
+        [(self
+        ()
+        ())]
+        []
+        []
+        []
+        []
+        [])
+        [(Expr
+            (ConstantEllipsis
+                ()
+            )
+        )]
+        []
+        (Name
+            _DType_co
+            Load
+        )
+        ()
+    )]
+    [(TypeIgnore
+        0
+        "[misc]"
+    )
+    (TypeIgnore
+        0
+        ""
+    )]
+)
diff --git a/tests/reference/ast_new-global1-38edfbd.json b/tests/reference/ast_new-global1-38edfbd.json
index 185eab13e3..e064ef2044 100644
--- a/tests/reference/ast_new-global1-38edfbd.json
+++ b/tests/reference/ast_new-global1-38edfbd.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "ast_new-global1-38edfbd.stdout",
-    "stdout_hash": "3ed3e9f2f93355245cf31de3291cca941d508fd392e0453f00ea0aab",
+    "stdout_hash": "b0b999497a27625582a6dedfa024dba012a6ac1103ac427c49cc7d9d",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/ast_new-global1-38edfbd.stdout b/tests/reference/ast_new-global1-38edfbd.stdout
index e066612dc2..9011e976ad 100644
--- a/tests/reference/ast_new-global1-38edfbd.stdout
+++ b/tests/reference/ast_new-global1-38edfbd.stdout
@@ -1 +1,219 @@
-(Module [(Assign [(Name x Store)] (ConstantStr "global " ()) ()) (FunctionDef outer ([] [] [] [] [] [] []) [(Assign [(Name x Store)] (ConstantStr "local" ()) ()) (FunctionDef inner ([] [] [] [] [] [] []) [(Nonlocal [x]) (Assign [(Name x Store)] (ConstantStr "nonlocal" ()) ()) (Assert (Compare (Name x Load) Eq [(ConstantStr "nonlocal" ())]) ())] [] () ()) (Expr (Call (Name inner Load) [] [])) (Assert (Compare (Name x Load) Eq [(ConstantStr "nonlocal" ())]) ())] [] () ()) (FunctionDef test_1 ([] [] [] [] [] [] []) [(Global [x]) (Assign [(Name y Store)] (ConstantStr "local" ()) ()) (Assign [(Name x Store)] (BinOp (Name x Load) Mult (ConstantInt 2 ())) ()) (Assert (Compare (Name x Load) Eq [(ConstantStr "global global " ())]) ()) (Assert (Compare (Name y Load) Eq [(ConstantStr "local" ())]) ())] [] () ()) (FunctionDef check ([] [] [] [] [] [] []) [(Expr (Call (Name test_1 Load) [] [])) (Expr (Call (Name outer Load) [] []))] [] () ()) (Expr (Call (Name check Load) [] []))] [])
+(Module
+    [(Assign
+        [(Name
+            x
+            Store
+        )]
+        (ConstantStr
+            "global "
+            ()
+        )
+        ()
+    )
+    (FunctionDef
+        outer
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(Assign
+            [(Name
+                x
+                Store
+            )]
+            (ConstantStr
+                "local"
+                ()
+            )
+            ()
+        )
+        (FunctionDef
+            inner
+            ([]
+            []
+            []
+            []
+            []
+            []
+            [])
+            [(Nonlocal
+                [x]
+            )
+            (Assign
+                [(Name
+                    x
+                    Store
+                )]
+                (ConstantStr
+                    "nonlocal"
+                    ()
+                )
+                ()
+            )
+            (Assert
+                (Compare
+                    (Name
+                        x
+                        Load
+                    )
+                    Eq
+                    [(ConstantStr
+                        "nonlocal"
+                        ()
+                    )]
+                )
+                ()
+            )]
+            []
+            ()
+            ()
+        )
+        (Expr
+            (Call
+                (Name
+                    inner
+                    Load
+                )
+                []
+                []
+            )
+        )
+        (Assert
+            (Compare
+                (Name
+                    x
+                    Load
+                )
+                Eq
+                [(ConstantStr
+                    "nonlocal"
+                    ()
+                )]
+            )
+            ()
+        )]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        test_1
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(Global
+            [x]
+        )
+        (Assign
+            [(Name
+                y
+                Store
+            )]
+            (ConstantStr
+                "local"
+                ()
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                x
+                Store
+            )]
+            (BinOp
+                (Name
+                    x
+                    Load
+                )
+                Mult
+                (ConstantInt
+                    2
+                    ()
+                )
+            )
+            ()
+        )
+        (Assert
+            (Compare
+                (Name
+                    x
+                    Load
+                )
+                Eq
+                [(ConstantStr
+                    "global global "
+                    ()
+                )]
+            )
+            ()
+        )
+        (Assert
+            (Compare
+                (Name
+                    y
+                    Load
+                )
+                Eq
+                [(ConstantStr
+                    "local"
+                    ()
+                )]
+            )
+            ()
+        )]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        check
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(Expr
+            (Call
+                (Name
+                    test_1
+                    Load
+                )
+                []
+                []
+            )
+        )
+        (Expr
+            (Call
+                (Name
+                    outer
+                    Load
+                )
+                []
+                []
+            )
+        )]
+        []
+        ()
+        ()
+    )
+    (Expr
+        (Call
+            (Name
+                check
+                Load
+            )
+            []
+            []
+        )
+    )]
+    []
+)
diff --git a/tests/reference/ast_new-if1-db43586.json b/tests/reference/ast_new-if1-db43586.json
index 6b66223491..61c6c14427 100644
--- a/tests/reference/ast_new-if1-db43586.json
+++ b/tests/reference/ast_new-if1-db43586.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "ast_new-if1-db43586.stdout",
-    "stdout_hash": "267cff14e40641f5155167245af70ec048b692c5644aaf4d60d4334d",
+    "stdout_hash": "c21dfca87b12c05bb7230f342ad43cdee10fd7a574dcd2733d8736c8",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/ast_new-if1-db43586.stdout b/tests/reference/ast_new-if1-db43586.stdout
index 72d005e020..47f33b7a1f 100644
--- a/tests/reference/ast_new-if1-db43586.stdout
+++ b/tests/reference/ast_new-if1-db43586.stdout
@@ -1 +1,458 @@
-(Module [(Assign [(Name x Store)] (ConstantInt 10 ()) ()) (Assign [(Name y Store)] (ConstantInt 14 ()) ()) (Assign [(Name z Store)] (ConstantInt 12 ()) ()) (If (BoolOp And [(Compare (Name x Load) GtE [(Name y Load)]) (Compare (Name x Load) GtE [(Name z Load)])]) [(Assign [(Name largest Store)] (Name x Load) ()) (Expr (Call (Name print Load) [(ConstantStr "Largest: " ()) (Name x Load)] []))] [(If (BoolOp And [(Compare (Name y Load) GtE [(Name x Load)]) (Compare (Name y Load) GtE [(Name z Load)])]) [(Assign [(Name largest Store)] (Name y Load) ()) (Expr (Call (Name print Load) [(ConstantStr "Largest: " ()) (Name y Load)] []))] [(Assign [(Name largest Store)] (Name z Load) ()) (Expr (Call (Name print Load) [(ConstantStr "Largest: " ()) (Name z Load)] []))])]) (If (Compare (Name y Load) Gt [(ConstantInt 10 ())]) [(Expr (Call (Name print Load) [(ConstantStr "Above ten," ())] [])) (If (Compare (Name y Load) Gt [(ConstantInt 20 ())]) [(Expr (Call (Name print Load) [(ConstantStr "and also above 20!" ())] []))] [(Expr (Call (Name print Load) [(ConstantStr "but not above 20." ())] []))])] []) (If (Compare (Name a Load) Eq [(Name b Load)]) [(Expr (ConstantEllipsis ())) (AugAssign (Name a Store) Add (Name b Load))] []) (If (Compare (Name a Load) Eq [(Name b Load)]) [(Expr (ConstantEllipsis ())) (AugAssign (Name a Store) Add (Name b Load))] []) (If (Name b Load) [(Expr (ConstantEllipsis ()))] [(Assign [(Name a Store)] (Name b Load) ())]) (If (Name b Load) [(Expr (ConstantEllipsis ()))] [(Assign [(Name a Store)] (Name b Load) ())]) (If (Name b Load) [(Pass)] [(Assign [(Name a Store)] (Name b Load) ())]) (If (Compare (Name a Load) Eq [(Name b Load)]) [(Pass)] []) (If (Compare (Name a Load) Eq [(Name b Load)]) [(Pass)] []) (If (Compare (Name a Load) Eq [(Name b Load)]) [(Assign [(Name x Store)] (BinOp (Name a Load) Add (Name b Load)) ()) (Break)] []) (If (Compare (Name a Load) Eq [(Name b Load)]) [(Assign [(Name x Store)] (BinOp (Name a Load) Add (Name b Load)) ()) (Break)] [])] [])
+(Module
+    [(Assign
+        [(Name
+            x
+            Store
+        )]
+        (ConstantInt
+            10
+            ()
+        )
+        ()
+    )
+    (Assign
+        [(Name
+            y
+            Store
+        )]
+        (ConstantInt
+            14
+            ()
+        )
+        ()
+    )
+    (Assign
+        [(Name
+            z
+            Store
+        )]
+        (ConstantInt
+            12
+            ()
+        )
+        ()
+    )
+    (If
+        (BoolOp
+            And
+            [(Compare
+                (Name
+                    x
+                    Load
+                )
+                GtE
+                [(Name
+                    y
+                    Load
+                )]
+            )
+            (Compare
+                (Name
+                    x
+                    Load
+                )
+                GtE
+                [(Name
+                    z
+                    Load
+                )]
+            )]
+        )
+        [(Assign
+            [(Name
+                largest
+                Store
+            )]
+            (Name
+                x
+                Load
+            )
+            ()
+        )
+        (Expr
+            (Call
+                (Name
+                    print
+                    Load
+                )
+                [(ConstantStr
+                    "Largest: "
+                    ()
+                )
+                (Name
+                    x
+                    Load
+                )]
+                []
+            )
+        )]
+        [(If
+            (BoolOp
+                And
+                [(Compare
+                    (Name
+                        y
+                        Load
+                    )
+                    GtE
+                    [(Name
+                        x
+                        Load
+                    )]
+                )
+                (Compare
+                    (Name
+                        y
+                        Load
+                    )
+                    GtE
+                    [(Name
+                        z
+                        Load
+                    )]
+                )]
+            )
+            [(Assign
+                [(Name
+                    largest
+                    Store
+                )]
+                (Name
+                    y
+                    Load
+                )
+                ()
+            )
+            (Expr
+                (Call
+                    (Name
+                        print
+                        Load
+                    )
+                    [(ConstantStr
+                        "Largest: "
+                        ()
+                    )
+                    (Name
+                        y
+                        Load
+                    )]
+                    []
+                )
+            )]
+            [(Assign
+                [(Name
+                    largest
+                    Store
+                )]
+                (Name
+                    z
+                    Load
+                )
+                ()
+            )
+            (Expr
+                (Call
+                    (Name
+                        print
+                        Load
+                    )
+                    [(ConstantStr
+                        "Largest: "
+                        ()
+                    )
+                    (Name
+                        z
+                        Load
+                    )]
+                    []
+                )
+            )]
+        )]
+    )
+    (If
+        (Compare
+            (Name
+                y
+                Load
+            )
+            Gt
+            [(ConstantInt
+                10
+                ()
+            )]
+        )
+        [(Expr
+            (Call
+                (Name
+                    print
+                    Load
+                )
+                [(ConstantStr
+                    "Above ten,"
+                    ()
+                )]
+                []
+            )
+        )
+        (If
+            (Compare
+                (Name
+                    y
+                    Load
+                )
+                Gt
+                [(ConstantInt
+                    20
+                    ()
+                )]
+            )
+            [(Expr
+                (Call
+                    (Name
+                        print
+                        Load
+                    )
+                    [(ConstantStr
+                        "and also above 20!"
+                        ()
+                    )]
+                    []
+                )
+            )]
+            [(Expr
+                (Call
+                    (Name
+                        print
+                        Load
+                    )
+                    [(ConstantStr
+                        "but not above 20."
+                        ()
+                    )]
+                    []
+                )
+            )]
+        )]
+        []
+    )
+    (If
+        (Compare
+            (Name
+                a
+                Load
+            )
+            Eq
+            [(Name
+                b
+                Load
+            )]
+        )
+        [(Expr
+            (ConstantEllipsis
+                ()
+            )
+        )
+        (AugAssign
+            (Name
+                a
+                Store
+            )
+            Add
+            (Name
+                b
+                Load
+            )
+        )]
+        []
+    )
+    (If
+        (Compare
+            (Name
+                a
+                Load
+            )
+            Eq
+            [(Name
+                b
+                Load
+            )]
+        )
+        [(Expr
+            (ConstantEllipsis
+                ()
+            )
+        )
+        (AugAssign
+            (Name
+                a
+                Store
+            )
+            Add
+            (Name
+                b
+                Load
+            )
+        )]
+        []
+    )
+    (If
+        (Name
+            b
+            Load
+        )
+        [(Expr
+            (ConstantEllipsis
+                ()
+            )
+        )]
+        [(Assign
+            [(Name
+                a
+                Store
+            )]
+            (Name
+                b
+                Load
+            )
+            ()
+        )]
+    )
+    (If
+        (Name
+            b
+            Load
+        )
+        [(Expr
+            (ConstantEllipsis
+                ()
+            )
+        )]
+        [(Assign
+            [(Name
+                a
+                Store
+            )]
+            (Name
+                b
+                Load
+            )
+            ()
+        )]
+    )
+    (If
+        (Name
+            b
+            Load
+        )
+        [(Pass)]
+        [(Assign
+            [(Name
+                a
+                Store
+            )]
+            (Name
+                b
+                Load
+            )
+            ()
+        )]
+    )
+    (If
+        (Compare
+            (Name
+                a
+                Load
+            )
+            Eq
+            [(Name
+                b
+                Load
+            )]
+        )
+        [(Pass)]
+        []
+    )
+    (If
+        (Compare
+            (Name
+                a
+                Load
+            )
+            Eq
+            [(Name
+                b
+                Load
+            )]
+        )
+        [(Pass)]
+        []
+    )
+    (If
+        (Compare
+            (Name
+                a
+                Load
+            )
+            Eq
+            [(Name
+                b
+                Load
+            )]
+        )
+        [(Assign
+            [(Name
+                x
+                Store
+            )]
+            (BinOp
+                (Name
+                    a
+                    Load
+                )
+                Add
+                (Name
+                    b
+                    Load
+                )
+            )
+            ()
+        )
+        (Break)]
+        []
+    )
+    (If
+        (Compare
+            (Name
+                a
+                Load
+            )
+            Eq
+            [(Name
+                b
+                Load
+            )]
+        )
+        [(Assign
+            [(Name
+                x
+                Store
+            )]
+            (BinOp
+                (Name
+                    a
+                    Load
+                )
+                Add
+                (Name
+                    b
+                    Load
+                )
+            )
+            ()
+        )
+        (Break)]
+        []
+    )]
+    []
+)
diff --git a/tests/reference/ast_new-if2-c3b6022.json b/tests/reference/ast_new-if2-c3b6022.json
index 68eeeb6545..d154a2684e 100644
--- a/tests/reference/ast_new-if2-c3b6022.json
+++ b/tests/reference/ast_new-if2-c3b6022.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "ast_new-if2-c3b6022.stdout",
-    "stdout_hash": "cb778d8d08214947ff555ccfee7329a9c5fa9ec7238e4951b1c35974",
+    "stdout_hash": "f87ec76a617cdbffb26b6f30b0acfdec3fde29a027ae6bcc1bf03a14",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/ast_new-if2-c3b6022.stdout b/tests/reference/ast_new-if2-c3b6022.stdout
index 7ff8be941f..69bc755dd7 100644
--- a/tests/reference/ast_new-if2-c3b6022.stdout
+++ b/tests/reference/ast_new-if2-c3b6022.stdout
@@ -1 +1,364 @@
-(Module [(If (Compare (Call (Name type Load) [(Name x Load)] []) Is [(Name int Load)]) [(Pass)] []) (If (Compare (Compare (BinOp (BinOp (BinOp (ConstantInt 2 ()) Add (ConstantInt 3 ())) Div (ConstantInt 2 ())) Sub (ConstantInt 1 ())) Is [(ConstantInt 5 ())]) Is [(ConstantBool .true. ())]) [(Pass)] []) (If (Compare (Name x Load) IsNot [(Call (Name type Load) [(Name float Load)] [])]) [(Pass)] []) (If (Compare (Name x Load) IsNot [(Call (Name type Load) [(Name int Load)] [])]) [(Pass)] []) (Assign [(Name a Store)] (List [(ConstantInt 1 ()) (ConstantInt 2 ()) (ConstantInt 3 ())] Load) ()) (If (Compare (Name a Load) NotIn [(List [(ConstantInt 1 ()) (ConstantInt 2 ())] Load)]) [(Pass)] []) (If (Compare (Compare (Name a Load) NotIn [(List [(ConstantInt 1 ()) (ConstantInt 2 ())] Load)]) NotIn [(List [(ConstantBool .true. ()) (ConstantBool .false. ())] Load)]) [(Pass)] []) (If (Compare (Name field Load) In [(List [(ConstantStr "vararg" ()) (ConstantStr "kwarg" ())] Load)]) [(If (Compare (Name value Load) Is [(ConstantNone ())]) [(Pass)] [])] []) (If (Compare (Name a Load) In [(Name list1 Load)]) [(Pass)] []) (If (BoolOp Or [(BoolOp Or [(Compare (Attribute (Name x Load) shape Load) Eq [(Tuple [] Load)]) (Compare (Attribute (Name y Load) shape Load) Eq [(Tuple [] Load)])]) (Compare (Subscript (Attribute (Name x Load) shape Load) (ConstantInt 1 ()) Load) NotEq [(Subscript (Attribute (Name y Load) shape Load) (ConstantInt 0 ()) Load)])]) [(Assert (Compare (Subscript (Name arr Load) (Tuple [] Load) Load) Is [(Name ArrayLike Load)]) ()) (Pass)] []) (AsyncFor (Tuple [(Name i1 Store) (Name i2 Store)] Store) (Call (Name AsyncIter Load) [] []) [(Expr (ConstantEllipsis ()))] [] ())] [])
+(Module
+    [(If
+        (Compare
+            (Call
+                (Name
+                    type
+                    Load
+                )
+                [(Name
+                    x
+                    Load
+                )]
+                []
+            )
+            Is
+            [(Name
+                int
+                Load
+            )]
+        )
+        [(Pass)]
+        []
+    )
+    (If
+        (Compare
+            (Compare
+                (BinOp
+                    (BinOp
+                        (BinOp
+                            (ConstantInt
+                                2
+                                ()
+                            )
+                            Add
+                            (ConstantInt
+                                3
+                                ()
+                            )
+                        )
+                        Div
+                        (ConstantInt
+                            2
+                            ()
+                        )
+                    )
+                    Sub
+                    (ConstantInt
+                        1
+                        ()
+                    )
+                )
+                Is
+                [(ConstantInt
+                    5
+                    ()
+                )]
+            )
+            Is
+            [(ConstantBool
+                .true.
+                ()
+            )]
+        )
+        [(Pass)]
+        []
+    )
+    (If
+        (Compare
+            (Name
+                x
+                Load
+            )
+            IsNot
+            [(Call
+                (Name
+                    type
+                    Load
+                )
+                [(Name
+                    float
+                    Load
+                )]
+                []
+            )]
+        )
+        [(Pass)]
+        []
+    )
+    (If
+        (Compare
+            (Name
+                x
+                Load
+            )
+            IsNot
+            [(Call
+                (Name
+                    type
+                    Load
+                )
+                [(Name
+                    int
+                    Load
+                )]
+                []
+            )]
+        )
+        [(Pass)]
+        []
+    )
+    (Assign
+        [(Name
+            a
+            Store
+        )]
+        (List
+            [(ConstantInt
+                1
+                ()
+            )
+            (ConstantInt
+                2
+                ()
+            )
+            (ConstantInt
+                3
+                ()
+            )]
+            Load
+        )
+        ()
+    )
+    (If
+        (Membership
+            (Name
+                a
+                Load
+            )
+            NotIn
+            (List
+                [(ConstantInt
+                    1
+                    ()
+                )
+                (ConstantInt
+                    2
+                    ()
+                )]
+                Load
+            )
+        )
+        [(Pass)]
+        []
+    )
+    (If
+        (Membership
+            (Membership
+                (Name
+                    a
+                    Load
+                )
+                NotIn
+                (List
+                    [(ConstantInt
+                        1
+                        ()
+                    )
+                    (ConstantInt
+                        2
+                        ()
+                    )]
+                    Load
+                )
+            )
+            NotIn
+            (List
+                [(ConstantBool
+                    .true.
+                    ()
+                )
+                (ConstantBool
+                    .false.
+                    ()
+                )]
+                Load
+            )
+        )
+        [(Pass)]
+        []
+    )
+    (If
+        (Membership
+            (Name
+                field
+                Load
+            )
+            In
+            (List
+                [(ConstantStr
+                    "vararg"
+                    ()
+                )
+                (ConstantStr
+                    "kwarg"
+                    ()
+                )]
+                Load
+            )
+        )
+        [(If
+            (Compare
+                (Name
+                    value
+                    Load
+                )
+                Is
+                [(ConstantNone
+                    ()
+                )]
+            )
+            [(Pass)]
+            []
+        )]
+        []
+    )
+    (If
+        (Membership
+            (Name
+                a
+                Load
+            )
+            In
+            (Name
+                list1
+                Load
+            )
+        )
+        [(Pass)]
+        []
+    )
+    (If
+        (BoolOp
+            Or
+            [(BoolOp
+                Or
+                [(Compare
+                    (Attribute
+                        (Name
+                            x
+                            Load
+                        )
+                        shape
+                        Load
+                    )
+                    Eq
+                    [(Tuple
+                        []
+                        Load
+                    )]
+                )
+                (Compare
+                    (Attribute
+                        (Name
+                            y
+                            Load
+                        )
+                        shape
+                        Load
+                    )
+                    Eq
+                    [(Tuple
+                        []
+                        Load
+                    )]
+                )]
+            )
+            (Compare
+                (Subscript
+                    (Attribute
+                        (Name
+                            x
+                            Load
+                        )
+                        shape
+                        Load
+                    )
+                    (ConstantInt
+                        1
+                        ()
+                    )
+                    Load
+                )
+                NotEq
+                [(Subscript
+                    (Attribute
+                        (Name
+                            y
+                            Load
+                        )
+                        shape
+                        Load
+                    )
+                    (ConstantInt
+                        0
+                        ()
+                    )
+                    Load
+                )]
+            )]
+        )
+        [(Assert
+            (Compare
+                (Subscript
+                    (Name
+                        arr
+                        Load
+                    )
+                    (Tuple
+                        []
+                        Load
+                    )
+                    Load
+                )
+                Is
+                [(Name
+                    ArrayLike
+                    Load
+                )]
+            )
+            ()
+        )
+        (Pass)]
+        []
+    )
+    (AsyncFor
+        (Tuple
+            [(Name
+                i1
+                Store
+            )
+            (Name
+                i2
+                Store
+            )]
+            Store
+        )
+        (Call
+            (Name
+                AsyncIter
+                Load
+            )
+            []
+            []
+        )
+        [(Expr
+            (ConstantEllipsis
+                ()
+            )
+        )]
+        []
+        ()
+    )]
+    []
+)
diff --git a/tests/reference/ast_new-import1-f643fd3.json b/tests/reference/ast_new-import1-f643fd3.json
index 49643fe8ca..2d9ee2fae2 100644
--- a/tests/reference/ast_new-import1-f643fd3.json
+++ b/tests/reference/ast_new-import1-f643fd3.json
@@ -2,11 +2,11 @@
     "basename": "ast_new-import1-f643fd3",
     "cmd": "lpython --show-ast --new-parser --no-color {infile} -o {outfile}",
     "infile": "tests/parser/import1.py",
-    "infile_hash": "baedeb917c7640e02e97e04f46abac34111f55f714d6ad43091bf3de",
+    "infile_hash": "be84cf9989667702a391da31494811cc4a2a0a2f7a6be764bcedc4bf",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "ast_new-import1-f643fd3.stdout",
-    "stdout_hash": "a8919447efc54901c0c9906888abcf95001c7a649ee51ed5c42e98bb",
+    "stdout_hash": "ac5f443b72953c6b307da4cdd6d5c3976c3db1591a9703223614dd72",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/ast_new-import1-f643fd3.stdout b/tests/reference/ast_new-import1-f643fd3.stdout
index edf8d5d509..16c491648c 100644
--- a/tests/reference/ast_new-import1-f643fd3.stdout
+++ b/tests/reference/ast_new-import1-f643fd3.stdout
@@ -1 +1,185 @@
-(Module [(Import [(os ())]) (Import [(random r)]) (Import [(random r) (abc a)]) (Import [(x.y.z ())]) (Import [(x.y.z xyz)]) (ImportFrom ltypes [(i8 ()) (i16 ()) (i32 ()) (i64 ()) (f32 ()) (f64 ()) (c32 ()) (c64 ()) (overload ()) (ccall ()) (TypeVar ())] 0) (ImportFrom __future__ [(division ())] 0) (ImportFrom math [(* ())] 0) (ImportFrom math [(sin ()) (cos ()) (tan ())] 0) (ImportFrom math [(sin ()) (cos ())] 0) (ImportFrom math [(factorial fact)] 0) (ImportFrom x.y [(z ())] 0) (ImportFrom () [(a ())] 1) (ImportFrom a.b [(a ())] 1) (ImportFrom a.b [(* ())] 1) (ImportFrom abc [(a ())] 1) (ImportFrom abc [(a ()) (b ()) (c ())] 1) (ImportFrom x [(a ()) (b ()) (c ()) (d ())] 0) (ImportFrom x [(a ()) (b ()) (c ()) (d ())] 0) (ImportFrom x [(a ()) (b ()) (c ()) (d ())] 0) (ImportFrom x [(a ()) (b ())] 0) (ImportFrom x [(a ()) (b ())] 0) (ImportFrom x [(a ())] 0)] [])
+(Module
+    [(Import
+        [(os
+        ())]
+    )
+    (Import
+        [(random
+        r)]
+    )
+    (Import
+        [(random
+        r)
+        (abc
+        a)]
+    )
+    (Import
+        [(x.y.z
+        ())]
+    )
+    (Import
+        [(x.y.z
+        xyz)]
+    )
+    (ImportFrom
+        lpython
+        [(i8
+        ())
+        (i16
+        ())
+        (i32
+        ())
+        (i64
+        ())
+        (f32
+        ())
+        (f64
+        ())
+        (c32
+        ())
+        (c64
+        ())
+        (overload
+        ())
+        (ccall
+        ())
+        (TypeVar
+        ())]
+        0
+    )
+    (ImportFrom
+        __future__
+        [(division
+        ())]
+        0
+    )
+    (ImportFrom
+        math
+        [(*
+        ())]
+        0
+    )
+    (ImportFrom
+        math
+        [(sin
+        ())
+        (cos
+        ())
+        (tan
+        ())]
+        0
+    )
+    (ImportFrom
+        math
+        [(sin
+        ())
+        (cos
+        ())]
+        0
+    )
+    (ImportFrom
+        math
+        [(factorial
+        fact)]
+        0
+    )
+    (ImportFrom
+        x.y
+        [(z
+        ())]
+        0
+    )
+    (ImportFrom
+        ()
+        [(a
+        ())]
+        1
+    )
+    (ImportFrom
+        a.b
+        [(a
+        ())]
+        1
+    )
+    (ImportFrom
+        a.b
+        [(*
+        ())]
+        1
+    )
+    (ImportFrom
+        abc
+        [(a
+        ())]
+        1
+    )
+    (ImportFrom
+        abc
+        [(a
+        ())
+        (b
+        ())
+        (c
+        ())]
+        1
+    )
+    (ImportFrom
+        x
+        [(a
+        ())
+        (b
+        ())
+        (c
+        ())
+        (d
+        ())]
+        0
+    )
+    (ImportFrom
+        x
+        [(a
+        ())
+        (b
+        ())
+        (c
+        ())
+        (d
+        ())]
+        0
+    )
+    (ImportFrom
+        x
+        [(a
+        ())
+        (b
+        ())
+        (c
+        ())
+        (d
+        ())]
+        0
+    )
+    (ImportFrom
+        x
+        [(a
+        ())
+        (b
+        ())]
+        0
+    )
+    (ImportFrom
+        x
+        [(a
+        ())
+        (b
+        ())]
+        0
+    )
+    (ImportFrom
+        x
+        [(a
+        ())]
+        0
+    )]
+    []
+)
diff --git a/tests/reference/ast_new-lambda1-260d046.json b/tests/reference/ast_new-lambda1-260d046.json
index f10ae00efe..5acaaa551c 100644
--- a/tests/reference/ast_new-lambda1-260d046.json
+++ b/tests/reference/ast_new-lambda1-260d046.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "ast_new-lambda1-260d046.stdout",
-    "stdout_hash": "5af30a890c92ce3522986d3e0f800d1b6e1f4f238d5799d3ce47d7e8",
+    "stdout_hash": "9efeee85a5a565024e5487cec1f868ce923dba161bfb2e7a0d24431f",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/ast_new-lambda1-260d046.stdout b/tests/reference/ast_new-lambda1-260d046.stdout
index 8c901ca898..0757477c6b 100644
--- a/tests/reference/ast_new-lambda1-260d046.stdout
+++ b/tests/reference/ast_new-lambda1-260d046.stdout
@@ -1 +1,1093 @@
-(Module [(If (Compare (Name x Load) Is [(ConstantInt 0 ())]) [(Assign [(Name x Store)] (Lambda ([] [(a () ())] [] [] [] [] []) (ConstantStr "``{a}```" ())) ())] [(Assign [(Name y Store)] (Lambda ([] [(b () ()) (c () ())] [] [] [] [] []) (Call (Name x Load) [(Name a Load)] [])) ())]) (Assign [(Name x Store)] (Call (Name sorted Load) [(Name x Load)] [(key (Lambda ([] [(f () ())] [] [] [] [] []) (Subscript (Name f Load) (ConstantInt 0 ()) Load)))]) ()) (Assign [(Name add Store)] (Lambda ([] [(x () ()) (y () ())] [] [] [] [] []) (BinOp (Call (Attribute (Name np Load) add Load) [(Name x Load) (Name y Load)] []) Mod (ConstantInt 5 ()))) ()) (Expr (Call (Attribute (Name var Load) sort Load) [] [(key (Lambda ([] [(x () ())] [] [] [] [] []) (Subscript (Name x Load) (ConstantInt 2 ()) Load)))])) (FunctionDef __lt__ ([] [(self () ()) (other () ())] [] [] [] [] []) [(Return (Call (Attribute (Name self Load) _compare Load) [(Name other Load) (Lambda ([] [(s () ()) (o () ())] [] [] [] [] []) (Compare (Name s Load) Lt [(Name o Load)]))] []))] [] () ()) (FunctionDef formatargspec ([] [(args () ()) (varargs () ()) (varkw () ()) (defaults () ()) (formatarg () ()) (formatvarargs () ()) (formatvarkw () ()) (formatvalue () ()) (join () ())] [] [] [] [] [(ConstantInt 0 ()) (ConstantInt 0 ()) (ConstantInt 0 ()) (Name str Load) (Lambda ([] [(name () ())] [] [] [] [] []) (BinOp (ConstantStr "*" ()) Add (Name name Load))) (Lambda ([] [(name () ())] [] [] [] [] []) (BinOp (ConstantStr "**" ()) Add (Name name Load))) (Lambda ([] [(value () ())] [] [] [] [] []) (BinOp (ConstantStr "=" ()) Add (Call (Name repr Load) [(Name value Load)] []))) (Name joinseq Load)]) [(Pass)] [] () ()) (FunctionDef __init__ ([] [(self () ()) (float_conv () ()) (int_conv () ()) (float_to_float () ()) (float_to_str () ()) (title () ())] [] [] [] [] [(Name float Load) (Name int Load) (Name float Load) (Lambda ([] [(v () ())] [] [] [] [] []) (BinOp (ConstantStr "%24.16e" ()) Mod (Name v Load))) (ConstantStr "Python floating point numbe" ())]) [(Pass)] [] () ()) (FunctionDef test_deprecated ([] [(self () ()) (func () ())] [] [] [] [] []) [(Expr (Call (Attribute (Name self Load) assert_deprecated Load) [(Lambda ([] [] [] [] [] [] []) (Call (Name func Load) [(List [(ConstantFloat 0.000000 ()) (ConstantFloat 1.000000 ())] Load) (ConstantFloat 0.000000 ())] [(interpolation (ConstantStr "linear" ()))]))] [])) (Expr (Call (Attribute (Name self Load) assert_deprecated Load) [(Lambda ([] [] [] [] [] [] []) (Call (Name func Load) [(List [(ConstantFloat 0.000000 ()) (ConstantFloat 1.000000 ())] Load) (ConstantFloat 0.000000 ())] [(interpolation (ConstantStr "nearest" ()))]))] []))] [] () ()) (FunctionDef indirect ([] [(x () ())] [] [] [] [] []) [(Return (Lambda ([] [] [] [] [] [] []) (Name x Load)))] [] () ()) (FunctionDef _discovered_machar ([] [(ftype () ())] [] [] [] [] []) [(Assign [(Name params Store)] (Subscript (Name _MACHAR_PARAMS Load) (Name ftype Load) Load) ()) (Return (Call (Name MachAr Load) [(Lambda ([] [(v () ())] [] [] [] [] []) (Call (Name array Load) [(List [(Name v Load)] Load) (Name ftype Load)] [])) (Lambda ([] [(v () ())] [] [] [] [] []) (Subscript (Call (Name _fr0 Load) [(Call (Attribute (Name v Load) astype Load) [(Subscript (Name params Load) (ConstantStr "itype" ()) Load)] [])] []) (ConstantInt 0 ()) Load)) (Lambda ([] [(v () ())] [] [] [] [] []) (Call (Name array Load) [(Subscript (Call (Name _fr0 Load) [(Name v Load)] []) (ConstantInt 0 ()) Load) (Name ftype Load)] [])) (Lambda ([] [(v () ())] [] [] [] [] []) (BinOp (Subscript (Name params Load) (ConstantStr "fmt" ()) Load) Mod (Call (Name array Load) [(Subscript (Call (Name _fr0 Load) [(Name v Load)] []) (ConstantInt 0 ()) Load) (Name ftype Load)] []))) (Subscript (Name params Load) (ConstantStr "title" ()) Load)] []))] [] () ()) (Expr (Call (Name assert_raises Load) [(Name IndexError Load) (Lambda ([] [] [] [] [] [] []) (Subscript (Name a Load) (Slice () (ConstantInt 4 ()) ()) Load))] [])) (Expr (Call (Name assert_equal Load) [(Call (Attribute (Name np Load) array2string Load) [(Name x Load)] [(formatter (Dict [(ConstantStr "int" ())] [(Lambda ([] [(x () ())] [] [] [] [] []) (Call (Name oct Load) [(Name x Load)] []))]))]) (Name x_oct Load)] [])) (Expr (Call (Name assert_equal Load) [(Call (Attribute (Name np Load) array2string Load) [(Name a Load)] [(separator (ConstantStr ", " ())) (formatter (Dict [(ConstantStr "datetime" ())] [(Lambda ([] [(x () ())] [] [] [] [] []) (BinOp (ConstantStr "'%s'" ()) Mod (Call (Attribute (Name np Load) datetime_as_string Load) [(Name x Load)] [(timezone (ConstantStr "UTC" ()))])))]))]) (ConstantStr "['2011-03-16T13:55Z', '1920-01-01T03:12Z']" ())] [])) (Expr (Call (Name assert_raises_fpe Load) [(ConstantStr "underflow" ()) (Lambda ([] [(a () ()) (b () ())] [] [] [] [] []) (BinOp (Name a Load) Div (Name b Load))) (Name sy16 Load) (Name by16 Load)] [])) (Assign [(Name MyArr Store)] (Call (Name type Load) [(ConstantStr "MyArr" ()) (Dict [(Name protocol Load) (ConstantStr "__float__" ())] [(Call (Name getattr Load) [(Name blueprint Load) (Name protocol Load)] []) (Lambda ([] [(_ () ())] [] [] [] [] []) (ConstantFloat 0.500000 ()))])] []) ())] [])
+(Module
+    [(If
+        (Compare
+            (Name
+                x
+                Load
+            )
+            Is
+            [(ConstantInt
+                0
+                ()
+            )]
+        )
+        [(Assign
+            [(Name
+                x
+                Store
+            )]
+            (Lambda
+                ([]
+                [(a
+                ()
+                ())]
+                []
+                []
+                []
+                []
+                [])
+                (ConstantStr
+                    "``{a}```"
+                    ()
+                )
+            )
+            ()
+        )]
+        [(Assign
+            [(Name
+                y
+                Store
+            )]
+            (Lambda
+                ([]
+                [(b
+                ()
+                ())
+                (c
+                ()
+                ())]
+                []
+                []
+                []
+                []
+                [])
+                (Call
+                    (Name
+                        x
+                        Load
+                    )
+                    [(Name
+                        a
+                        Load
+                    )]
+                    []
+                )
+            )
+            ()
+        )]
+    )
+    (Assign
+        [(Name
+            x
+            Store
+        )]
+        (Call
+            (Name
+                sorted
+                Load
+            )
+            [(Name
+                x
+                Load
+            )]
+            [(key
+            (Lambda
+                ([]
+                [(f
+                ()
+                ())]
+                []
+                []
+                []
+                []
+                [])
+                (Subscript
+                    (Name
+                        f
+                        Load
+                    )
+                    (ConstantInt
+                        0
+                        ()
+                    )
+                    Load
+                )
+            ))]
+        )
+        ()
+    )
+    (Assign
+        [(Name
+            add
+            Store
+        )]
+        (Lambda
+            ([]
+            [(x
+            ()
+            ())
+            (y
+            ()
+            ())]
+            []
+            []
+            []
+            []
+            [])
+            (BinOp
+                (Call
+                    (Attribute
+                        (Name
+                            np
+                            Load
+                        )
+                        add
+                        Load
+                    )
+                    [(Name
+                        x
+                        Load
+                    )
+                    (Name
+                        y
+                        Load
+                    )]
+                    []
+                )
+                Mod
+                (ConstantInt
+                    5
+                    ()
+                )
+            )
+        )
+        ()
+    )
+    (Expr
+        (Call
+            (Attribute
+                (Name
+                    var
+                    Load
+                )
+                sort
+                Load
+            )
+            []
+            [(key
+            (Lambda
+                ([]
+                [(x
+                ()
+                ())]
+                []
+                []
+                []
+                []
+                [])
+                (Subscript
+                    (Name
+                        x
+                        Load
+                    )
+                    (ConstantInt
+                        2
+                        ()
+                    )
+                    Load
+                )
+            ))]
+        )
+    )
+    (FunctionDef
+        __lt__
+        ([]
+        [(self
+        ()
+        ())
+        (other
+        ()
+        ())]
+        []
+        []
+        []
+        []
+        [])
+        [(Return
+            (Call
+                (Attribute
+                    (Name
+                        self
+                        Load
+                    )
+                    _compare
+                    Load
+                )
+                [(Name
+                    other
+                    Load
+                )
+                (Lambda
+                    ([]
+                    [(s
+                    ()
+                    ())
+                    (o
+                    ()
+                    ())]
+                    []
+                    []
+                    []
+                    []
+                    [])
+                    (Compare
+                        (Name
+                            s
+                            Load
+                        )
+                        Lt
+                        [(Name
+                            o
+                            Load
+                        )]
+                    )
+                )]
+                []
+            )
+        )]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        formatargspec
+        ([]
+        [(args
+        ()
+        ())
+        (varargs
+        ()
+        ())
+        (varkw
+        ()
+        ())
+        (defaults
+        ()
+        ())
+        (formatarg
+        ()
+        ())
+        (formatvarargs
+        ()
+        ())
+        (formatvarkw
+        ()
+        ())
+        (formatvalue
+        ()
+        ())
+        (join
+        ()
+        ())]
+        []
+        []
+        []
+        []
+        [(ConstantInt
+            0
+            ()
+        )
+        (ConstantInt
+            0
+            ()
+        )
+        (ConstantInt
+            0
+            ()
+        )
+        (Name
+            str
+            Load
+        )
+        (Lambda
+            ([]
+            [(name
+            ()
+            ())]
+            []
+            []
+            []
+            []
+            [])
+            (BinOp
+                (ConstantStr
+                    "*"
+                    ()
+                )
+                Add
+                (Name
+                    name
+                    Load
+                )
+            )
+        )
+        (Lambda
+            ([]
+            [(name
+            ()
+            ())]
+            []
+            []
+            []
+            []
+            [])
+            (BinOp
+                (ConstantStr
+                    "**"
+                    ()
+                )
+                Add
+                (Name
+                    name
+                    Load
+                )
+            )
+        )
+        (Lambda
+            ([]
+            [(value
+            ()
+            ())]
+            []
+            []
+            []
+            []
+            [])
+            (BinOp
+                (ConstantStr
+                    "="
+                    ()
+                )
+                Add
+                (Call
+                    (Name
+                        repr
+                        Load
+                    )
+                    [(Name
+                        value
+                        Load
+                    )]
+                    []
+                )
+            )
+        )
+        (Name
+            joinseq
+            Load
+        )])
+        [(Pass)]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        __init__
+        ([]
+        [(self
+        ()
+        ())
+        (float_conv
+        ()
+        ())
+        (int_conv
+        ()
+        ())
+        (float_to_float
+        ()
+        ())
+        (float_to_str
+        ()
+        ())
+        (title
+        ()
+        ())]
+        []
+        []
+        []
+        []
+        [(Name
+            float
+            Load
+        )
+        (Name
+            int
+            Load
+        )
+        (Name
+            float
+            Load
+        )
+        (Lambda
+            ([]
+            [(v
+            ()
+            ())]
+            []
+            []
+            []
+            []
+            [])
+            (BinOp
+                (ConstantStr
+                    "%24.16e"
+                    ()
+                )
+                Mod
+                (Name
+                    v
+                    Load
+                )
+            )
+        )
+        (ConstantStr
+            "Python floating point numbe"
+            ()
+        )])
+        [(Pass)]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        test_deprecated
+        ([]
+        [(self
+        ()
+        ())
+        (func
+        ()
+        ())]
+        []
+        []
+        []
+        []
+        [])
+        [(Expr
+            (Call
+                (Attribute
+                    (Name
+                        self
+                        Load
+                    )
+                    assert_deprecated
+                    Load
+                )
+                [(Lambda
+                    ([]
+                    []
+                    []
+                    []
+                    []
+                    []
+                    [])
+                    (Call
+                        (Name
+                            func
+                            Load
+                        )
+                        [(List
+                            [(ConstantFloat
+                                0.000000
+                                ()
+                            )
+                            (ConstantFloat
+                                1.000000
+                                ()
+                            )]
+                            Load
+                        )
+                        (ConstantFloat
+                            0.000000
+                            ()
+                        )]
+                        [(interpolation
+                        (ConstantStr
+                            "linear"
+                            ()
+                        ))]
+                    )
+                )]
+                []
+            )
+        )
+        (Expr
+            (Call
+                (Attribute
+                    (Name
+                        self
+                        Load
+                    )
+                    assert_deprecated
+                    Load
+                )
+                [(Lambda
+                    ([]
+                    []
+                    []
+                    []
+                    []
+                    []
+                    [])
+                    (Call
+                        (Name
+                            func
+                            Load
+                        )
+                        [(List
+                            [(ConstantFloat
+                                0.000000
+                                ()
+                            )
+                            (ConstantFloat
+                                1.000000
+                                ()
+                            )]
+                            Load
+                        )
+                        (ConstantFloat
+                            0.000000
+                            ()
+                        )]
+                        [(interpolation
+                        (ConstantStr
+                            "nearest"
+                            ()
+                        ))]
+                    )
+                )]
+                []
+            )
+        )]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        indirect
+        ([]
+        [(x
+        ()
+        ())]
+        []
+        []
+        []
+        []
+        [])
+        [(Return
+            (Lambda
+                ([]
+                []
+                []
+                []
+                []
+                []
+                [])
+                (Name
+                    x
+                    Load
+                )
+            )
+        )]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        _discovered_machar
+        ([]
+        [(ftype
+        ()
+        ())]
+        []
+        []
+        []
+        []
+        [])
+        [(Assign
+            [(Name
+                params
+                Store
+            )]
+            (Subscript
+                (Name
+                    _MACHAR_PARAMS
+                    Load
+                )
+                (Name
+                    ftype
+                    Load
+                )
+                Load
+            )
+            ()
+        )
+        (Return
+            (Call
+                (Name
+                    MachAr
+                    Load
+                )
+                [(Lambda
+                    ([]
+                    [(v
+                    ()
+                    ())]
+                    []
+                    []
+                    []
+                    []
+                    [])
+                    (Call
+                        (Name
+                            array
+                            Load
+                        )
+                        [(List
+                            [(Name
+                                v
+                                Load
+                            )]
+                            Load
+                        )
+                        (Name
+                            ftype
+                            Load
+                        )]
+                        []
+                    )
+                )
+                (Lambda
+                    ([]
+                    [(v
+                    ()
+                    ())]
+                    []
+                    []
+                    []
+                    []
+                    [])
+                    (Subscript
+                        (Call
+                            (Name
+                                _fr0
+                                Load
+                            )
+                            [(Call
+                                (Attribute
+                                    (Name
+                                        v
+                                        Load
+                                    )
+                                    astype
+                                    Load
+                                )
+                                [(Subscript
+                                    (Name
+                                        params
+                                        Load
+                                    )
+                                    (ConstantStr
+                                        "itype"
+                                        ()
+                                    )
+                                    Load
+                                )]
+                                []
+                            )]
+                            []
+                        )
+                        (ConstantInt
+                            0
+                            ()
+                        )
+                        Load
+                    )
+                )
+                (Lambda
+                    ([]
+                    [(v
+                    ()
+                    ())]
+                    []
+                    []
+                    []
+                    []
+                    [])
+                    (Call
+                        (Name
+                            array
+                            Load
+                        )
+                        [(Subscript
+                            (Call
+                                (Name
+                                    _fr0
+                                    Load
+                                )
+                                [(Name
+                                    v
+                                    Load
+                                )]
+                                []
+                            )
+                            (ConstantInt
+                                0
+                                ()
+                            )
+                            Load
+                        )
+                        (Name
+                            ftype
+                            Load
+                        )]
+                        []
+                    )
+                )
+                (Lambda
+                    ([]
+                    [(v
+                    ()
+                    ())]
+                    []
+                    []
+                    []
+                    []
+                    [])
+                    (BinOp
+                        (Subscript
+                            (Name
+                                params
+                                Load
+                            )
+                            (ConstantStr
+                                "fmt"
+                                ()
+                            )
+                            Load
+                        )
+                        Mod
+                        (Call
+                            (Name
+                                array
+                                Load
+                            )
+                            [(Subscript
+                                (Call
+                                    (Name
+                                        _fr0
+                                        Load
+                                    )
+                                    [(Name
+                                        v
+                                        Load
+                                    )]
+                                    []
+                                )
+                                (ConstantInt
+                                    0
+                                    ()
+                                )
+                                Load
+                            )
+                            (Name
+                                ftype
+                                Load
+                            )]
+                            []
+                        )
+                    )
+                )
+                (Subscript
+                    (Name
+                        params
+                        Load
+                    )
+                    (ConstantStr
+                        "title"
+                        ()
+                    )
+                    Load
+                )]
+                []
+            )
+        )]
+        []
+        ()
+        ()
+    )
+    (Expr
+        (Call
+            (Name
+                assert_raises
+                Load
+            )
+            [(Name
+                IndexError
+                Load
+            )
+            (Lambda
+                ([]
+                []
+                []
+                []
+                []
+                []
+                [])
+                (Subscript
+                    (Name
+                        a
+                        Load
+                    )
+                    (Slice
+                        ()
+                        (ConstantInt
+                            4
+                            ()
+                        )
+                        ()
+                    )
+                    Load
+                )
+            )]
+            []
+        )
+    )
+    (Expr
+        (Call
+            (Name
+                assert_equal
+                Load
+            )
+            [(Call
+                (Attribute
+                    (Name
+                        np
+                        Load
+                    )
+                    array2string
+                    Load
+                )
+                [(Name
+                    x
+                    Load
+                )]
+                [(formatter
+                (Dict
+                    [(ConstantStr
+                        "int"
+                        ()
+                    )]
+                    [(Lambda
+                        ([]
+                        [(x
+                        ()
+                        ())]
+                        []
+                        []
+                        []
+                        []
+                        [])
+                        (Call
+                            (Name
+                                oct
+                                Load
+                            )
+                            [(Name
+                                x
+                                Load
+                            )]
+                            []
+                        )
+                    )]
+                ))]
+            )
+            (Name
+                x_oct
+                Load
+            )]
+            []
+        )
+    )
+    (Expr
+        (Call
+            (Name
+                assert_equal
+                Load
+            )
+            [(Call
+                (Attribute
+                    (Name
+                        np
+                        Load
+                    )
+                    array2string
+                    Load
+                )
+                [(Name
+                    a
+                    Load
+                )]
+                [(separator
+                (ConstantStr
+                    ", "
+                    ()
+                ))
+                (formatter
+                (Dict
+                    [(ConstantStr
+                        "datetime"
+                        ()
+                    )]
+                    [(Lambda
+                        ([]
+                        [(x
+                        ()
+                        ())]
+                        []
+                        []
+                        []
+                        []
+                        [])
+                        (BinOp
+                            (ConstantStr
+                                "'%s'"
+                                ()
+                            )
+                            Mod
+                            (Call
+                                (Attribute
+                                    (Name
+                                        np
+                                        Load
+                                    )
+                                    datetime_as_string
+                                    Load
+                                )
+                                [(Name
+                                    x
+                                    Load
+                                )]
+                                [(timezone
+                                (ConstantStr
+                                    "UTC"
+                                    ()
+                                ))]
+                            )
+                        )
+                    )]
+                ))]
+            )
+            (ConstantStr
+                "['2011-03-16T13:55Z', '1920-01-01T03:12Z']"
+                ()
+            )]
+            []
+        )
+    )
+    (Expr
+        (Call
+            (Name
+                assert_raises_fpe
+                Load
+            )
+            [(ConstantStr
+                "underflow"
+                ()
+            )
+            (Lambda
+                ([]
+                [(a
+                ()
+                ())
+                (b
+                ()
+                ())]
+                []
+                []
+                []
+                []
+                [])
+                (BinOp
+                    (Name
+                        a
+                        Load
+                    )
+                    Div
+                    (Name
+                        b
+                        Load
+                    )
+                )
+            )
+            (Name
+                sy16
+                Load
+            )
+            (Name
+                by16
+                Load
+            )]
+            []
+        )
+    )
+    (Assign
+        [(Name
+            MyArr
+            Store
+        )]
+        (Call
+            (Name
+                type
+                Load
+            )
+            [(ConstantStr
+                "MyArr"
+                ()
+            )
+            (Dict
+                [(Name
+                    protocol
+                    Load
+                )
+                (ConstantStr
+                    "__float__"
+                    ()
+                )]
+                [(Call
+                    (Name
+                        getattr
+                        Load
+                    )
+                    [(Name
+                        blueprint
+                        Load
+                    )
+                    (Name
+                        protocol
+                        Load
+                    )]
+                    []
+                )
+                (Lambda
+                    ([]
+                    [(_
+                    ()
+                    ())]
+                    []
+                    []
+                    []
+                    []
+                    [])
+                    (ConstantFloat
+                        0.500000
+                        ()
+                    )
+                )]
+            )]
+            []
+        )
+        ()
+    )]
+    []
+)
diff --git a/tests/reference/ast_new-lambda2-d84336e.json b/tests/reference/ast_new-lambda2-d84336e.json
index d1d12837a8..42cda2aa2a 100644
--- a/tests/reference/ast_new-lambda2-d84336e.json
+++ b/tests/reference/ast_new-lambda2-d84336e.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "ast_new-lambda2-d84336e.stdout",
-    "stdout_hash": "6a7f8d092211440e7307db947c4ec0869e27c0a3b28de94d4681294e",
+    "stdout_hash": "b16a532dd4c0c68c374093e9f11bbc4b3f97736a10aa82634c0cbce9",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/ast_new-lambda2-d84336e.stdout b/tests/reference/ast_new-lambda2-d84336e.stdout
index 86922de21c..096851e48d 100644
--- a/tests/reference/ast_new-lambda2-d84336e.stdout
+++ b/tests/reference/ast_new-lambda2-d84336e.stdout
@@ -1 +1,968 @@
-(Module [(Expr (Call (Name verify_matching_signatures Load) [(Lambda ([] [(x () ())] [] [] [] [] [(ConstantInt 0 ())]) (ConstantInt 0 ())) (Lambda ([] [(x () ())] [] [] [] [] [(ConstantInt 0 ())]) (ConstantInt 0 ()))] [])) (Assign [(Name input_func Store)] (Lambda ([] [(prompt () ())] [] [] [] [] [(ConstantStr "" ())]) (Call (Name next Load) [(Name gen Load)] [])) ()) (Assign [(Subscript (Name cast Load) (Name key Load) Store)] (Lambda ([] [(x () ()) (k () ())] [] [] [] [] [(Name key Load)]) (Call (Attribute (Call (Name array Load) [(Name x Load)] [(copy (ConstantBool .false. ()))]) astype Load) [(Name k Load)] [])) ()) (Assign [(Name x Store)] (Lambda ([] [(func () ()) (attr () ())] [] [] [] [] [(Attribute (Name self Load) _try_call Load) (Name attr Load)]) (Call (Name func Load) [(Name attr Load)] [])) ()) (Assign [(Name fpos32 Store)] (Lambda ([] [(x () ())] [] [] [] [(k () ())] []) (Call (Attribute (Name np Load) format_float_positional Load) [(Call (Attribute (Name np Load) float32 Load) [(Name x Load)] [])] [(() (Name k Load))])) ()) (Assign [(Name m Store)] (Lambda ([] [(self () ())] [(args () ())] [] [] [(kw () ())] []) (Call (Name func Load) [(Name self Load) (Starred (Name args Load) Load)] [(() (Name kw Load))])) ()) (Expr (Call (Attribute (Name stack Load) push Load) [(Lambda ([] [] [(exc () ())] [] [] [] []) (Subscript (Dict [] []) (ConstantInt 1 ()) Load))] [])) (Expr (Lambda ([] [] [(x () ())] [(y () ()) (z () ())] [(ConstantNone ()) (ConstantNone ())] [] []) (Name test Load))) (Expr (Lambda ([] [] [(x () ())] [(y () ()) (z () ())] [(ConstantNone ()) (ConstantNone ())] [(args () ())] []) (Name test Load))) (Expr (Lambda ([] [] [(x () ())] [] [] [(args () ())] []) (Name test Load))) (Expr (Lambda ([] [] [] [] [] [(args () ())] []) (Name test Load))) (Expr (Lambda ([] [(x () ()) (y () ())] [] [] [] [] []) (Name test Load))) (Expr (Lambda ([] [(x () ())] [(y () ())] [] [] [] []) (Name test Load))) (Expr (Lambda ([] [(x () ())] [(y () ())] [(z () ())] [(ConstantNone ())] [] []) (Name test Load))) (Expr (Lambda ([] [(x () ())] [(y () ())] [(z () ())] [(ConstantNone ())] [(args () ())] []) (Name test Load))) (Expr (Lambda ([] [(x () ())] [(y () ())] [] [] [(args () ())] []) (Name test Load))) (Expr (Lambda ([] [(x () ())] [] [] [] [(args () ())] []) (Name test Load))) (Expr (Lambda ([] [(x () ())] [(y () ())] [(z () ())] [(ConstantNone ())] [(args () ())] []) (Name test Load))) (Expr (Lambda ([(a () ())] [(b () ()) (c () ())] [] [] [] [] []) (Name test Load))) (Expr (Lambda ([(a () ())] [] [(b () ())] [] [] [] []) (Name test Load))) (Expr (Lambda ([(a () ())] [] [(b () ())] [(c () ()) (d () ())] [(ConstantNone ()) (ConstantNone ())] [] []) (Name test Load))) (Expr (Lambda ([(a () ())] [] [(b () ())] [(c () ())] [(ConstantNone ())] [(d () ())] []) (Name test Load))) (Expr (Lambda ([(a () ())] [] [] [] [] [(b () ())] []) (Name test Load))) (Expr (Lambda ([(a () ())] [] [(b () ())] [] [] [(c () ())] []) (Name test Load))) (Expr (Lambda ([(a () ())] [(b () ()) (c () ())] [(d () ())] [] [] [] []) (Name test Load))) (Expr (Lambda ([(a () ())] [(b () ()) (c () ())] [] [] [] [(d () ())] []) (Name test Load))) (Expr (Lambda ([(a () ())] [(b () ()) (c () ())] [(d () ())] [] [] [(e () ())] []) (Name test Load))) (Expr (Lambda ([(a () ())] [(b () ()) (c () ())] [(d () ())] [(e () ())] [(ConstantNone ())] [(f () ())] []) (Name test Load))) (Expr (Lambda ([] [] [] [(a () ())] [(ConstantNone ())] [] []) (Name test Load))) (Expr (Lambda ([] [] [] [(a () ())] [(ConstantNone ())] [(b () ())] []) (Name test Load))) (Expr (Lambda ([] [(a () ())] [] [(b () ())] [(ConstantNone ())] [] []) (Name test Load))) (Expr (Lambda ([] [(a () ())] [] [(b () ())] [(ConstantNone ())] [(c () ())] []) (Name test Load))) (Expr (Lambda ([(a () ())] [] [] [(b () ())] [(ConstantNone ())] [] []) (Name test Load))) (Expr (Lambda ([(a () ())] [(b () ())] [] [(c () ())] [(ConstantNone ())] [] []) (Name test Load))) (Expr (Lambda ([(a () ())] [] [] [(c () ())] [(ConstantNone ())] [(d () ())] []) (Name test Load))) (Expr (Lambda ([(a () ())] [(b () ())] [] [(c () ())] [(ConstantNone ())] [(d () ())] []) (Name test Load)))] [])
+(Module
+    [(Expr
+        (Call
+            (Name
+                verify_matching_signatures
+                Load
+            )
+            [(Lambda
+                ([]
+                [(x
+                ()
+                ())]
+                []
+                []
+                []
+                []
+                [(ConstantInt
+                    0
+                    ()
+                )])
+                (ConstantInt
+                    0
+                    ()
+                )
+            )
+            (Lambda
+                ([]
+                [(x
+                ()
+                ())]
+                []
+                []
+                []
+                []
+                [(ConstantInt
+                    0
+                    ()
+                )])
+                (ConstantInt
+                    0
+                    ()
+                )
+            )]
+            []
+        )
+    )
+    (Assign
+        [(Name
+            input_func
+            Store
+        )]
+        (Lambda
+            ([]
+            [(prompt
+            ()
+            ())]
+            []
+            []
+            []
+            []
+            [(ConstantStr
+                ""
+                ()
+            )])
+            (Call
+                (Name
+                    next
+                    Load
+                )
+                [(Name
+                    gen
+                    Load
+                )]
+                []
+            )
+        )
+        ()
+    )
+    (Assign
+        [(Subscript
+            (Name
+                cast
+                Load
+            )
+            (Name
+                key
+                Load
+            )
+            Store
+        )]
+        (Lambda
+            ([]
+            [(x
+            ()
+            ())
+            (k
+            ()
+            ())]
+            []
+            []
+            []
+            []
+            [(Name
+                key
+                Load
+            )])
+            (Call
+                (Attribute
+                    (Call
+                        (Name
+                            array
+                            Load
+                        )
+                        [(Name
+                            x
+                            Load
+                        )]
+                        [(copy
+                        (ConstantBool
+                            .false.
+                            ()
+                        ))]
+                    )
+                    astype
+                    Load
+                )
+                [(Name
+                    k
+                    Load
+                )]
+                []
+            )
+        )
+        ()
+    )
+    (Assign
+        [(Name
+            x
+            Store
+        )]
+        (Lambda
+            ([]
+            [(func
+            ()
+            ())
+            (attr
+            ()
+            ())]
+            []
+            []
+            []
+            []
+            [(Attribute
+                (Name
+                    self
+                    Load
+                )
+                _try_call
+                Load
+            )
+            (Name
+                attr
+                Load
+            )])
+            (Call
+                (Name
+                    func
+                    Load
+                )
+                [(Name
+                    attr
+                    Load
+                )]
+                []
+            )
+        )
+        ()
+    )
+    (Assign
+        [(Name
+            fpos32
+            Store
+        )]
+        (Lambda
+            ([]
+            [(x
+            ()
+            ())]
+            []
+            []
+            []
+            [(k
+            ()
+            ())]
+            [])
+            (Call
+                (Attribute
+                    (Name
+                        np
+                        Load
+                    )
+                    format_float_positional
+                    Load
+                )
+                [(Call
+                    (Attribute
+                        (Name
+                            np
+                            Load
+                        )
+                        float32
+                        Load
+                    )
+                    [(Name
+                        x
+                        Load
+                    )]
+                    []
+                )]
+                [(()
+                (Name
+                    k
+                    Load
+                ))]
+            )
+        )
+        ()
+    )
+    (Assign
+        [(Name
+            m
+            Store
+        )]
+        (Lambda
+            ([]
+            [(self
+            ()
+            ())]
+            [(args
+            ()
+            ())]
+            []
+            []
+            [(kw
+            ()
+            ())]
+            [])
+            (Call
+                (Name
+                    func
+                    Load
+                )
+                [(Name
+                    self
+                    Load
+                )
+                (Starred
+                    (Name
+                        args
+                        Load
+                    )
+                    Load
+                )]
+                [(()
+                (Name
+                    kw
+                    Load
+                ))]
+            )
+        )
+        ()
+    )
+    (Expr
+        (Call
+            (Attribute
+                (Name
+                    stack
+                    Load
+                )
+                push
+                Load
+            )
+            [(Lambda
+                ([]
+                []
+                [(exc
+                ()
+                ())]
+                []
+                []
+                []
+                [])
+                (Subscript
+                    (Dict
+                        []
+                        []
+                    )
+                    (ConstantInt
+                        1
+                        ()
+                    )
+                    Load
+                )
+            )]
+            []
+        )
+    )
+    (Expr
+        (Lambda
+            ([]
+            []
+            [(x
+            ()
+            ())]
+            [(y
+            ()
+            ())
+            (z
+            ()
+            ())]
+            [(ConstantNone
+                ()
+            )
+            (ConstantNone
+                ()
+            )]
+            []
+            [])
+            (Name
+                test
+                Load
+            )
+        )
+    )
+    (Expr
+        (Lambda
+            ([]
+            []
+            [(x
+            ()
+            ())]
+            [(y
+            ()
+            ())
+            (z
+            ()
+            ())]
+            [(ConstantNone
+                ()
+            )
+            (ConstantNone
+                ()
+            )]
+            [(args
+            ()
+            ())]
+            [])
+            (Name
+                test
+                Load
+            )
+        )
+    )
+    (Expr
+        (Lambda
+            ([]
+            []
+            [(x
+            ()
+            ())]
+            []
+            []
+            [(args
+            ()
+            ())]
+            [])
+            (Name
+                test
+                Load
+            )
+        )
+    )
+    (Expr
+        (Lambda
+            ([]
+            []
+            []
+            []
+            []
+            [(args
+            ()
+            ())]
+            [])
+            (Name
+                test
+                Load
+            )
+        )
+    )
+    (Expr
+        (Lambda
+            ([]
+            [(x
+            ()
+            ())
+            (y
+            ()
+            ())]
+            []
+            []
+            []
+            []
+            [])
+            (Name
+                test
+                Load
+            )
+        )
+    )
+    (Expr
+        (Lambda
+            ([]
+            [(x
+            ()
+            ())]
+            [(y
+            ()
+            ())]
+            []
+            []
+            []
+            [])
+            (Name
+                test
+                Load
+            )
+        )
+    )
+    (Expr
+        (Lambda
+            ([]
+            [(x
+            ()
+            ())]
+            [(y
+            ()
+            ())]
+            [(z
+            ()
+            ())]
+            [(ConstantNone
+                ()
+            )]
+            []
+            [])
+            (Name
+                test
+                Load
+            )
+        )
+    )
+    (Expr
+        (Lambda
+            ([]
+            [(x
+            ()
+            ())]
+            [(y
+            ()
+            ())]
+            [(z
+            ()
+            ())]
+            [(ConstantNone
+                ()
+            )]
+            [(args
+            ()
+            ())]
+            [])
+            (Name
+                test
+                Load
+            )
+        )
+    )
+    (Expr
+        (Lambda
+            ([]
+            [(x
+            ()
+            ())]
+            [(y
+            ()
+            ())]
+            []
+            []
+            [(args
+            ()
+            ())]
+            [])
+            (Name
+                test
+                Load
+            )
+        )
+    )
+    (Expr
+        (Lambda
+            ([]
+            [(x
+            ()
+            ())]
+            []
+            []
+            []
+            [(args
+            ()
+            ())]
+            [])
+            (Name
+                test
+                Load
+            )
+        )
+    )
+    (Expr
+        (Lambda
+            ([]
+            [(x
+            ()
+            ())]
+            [(y
+            ()
+            ())]
+            [(z
+            ()
+            ())]
+            [(ConstantNone
+                ()
+            )]
+            [(args
+            ()
+            ())]
+            [])
+            (Name
+                test
+                Load
+            )
+        )
+    )
+    (Expr
+        (Lambda
+            ([(a
+            ()
+            ())]
+            [(b
+            ()
+            ())
+            (c
+            ()
+            ())]
+            []
+            []
+            []
+            []
+            [])
+            (Name
+                test
+                Load
+            )
+        )
+    )
+    (Expr
+        (Lambda
+            ([(a
+            ()
+            ())]
+            []
+            [(b
+            ()
+            ())]
+            []
+            []
+            []
+            [])
+            (Name
+                test
+                Load
+            )
+        )
+    )
+    (Expr
+        (Lambda
+            ([(a
+            ()
+            ())]
+            []
+            [(b
+            ()
+            ())]
+            [(c
+            ()
+            ())
+            (d
+            ()
+            ())]
+            [(ConstantNone
+                ()
+            )
+            (ConstantNone
+                ()
+            )]
+            []
+            [])
+            (Name
+                test
+                Load
+            )
+        )
+    )
+    (Expr
+        (Lambda
+            ([(a
+            ()
+            ())]
+            []
+            [(b
+            ()
+            ())]
+            [(c
+            ()
+            ())]
+            [(ConstantNone
+                ()
+            )]
+            [(d
+            ()
+            ())]
+            [])
+            (Name
+                test
+                Load
+            )
+        )
+    )
+    (Expr
+        (Lambda
+            ([(a
+            ()
+            ())]
+            []
+            []
+            []
+            []
+            [(b
+            ()
+            ())]
+            [])
+            (Name
+                test
+                Load
+            )
+        )
+    )
+    (Expr
+        (Lambda
+            ([(a
+            ()
+            ())]
+            []
+            [(b
+            ()
+            ())]
+            []
+            []
+            [(c
+            ()
+            ())]
+            [])
+            (Name
+                test
+                Load
+            )
+        )
+    )
+    (Expr
+        (Lambda
+            ([(a
+            ()
+            ())]
+            [(b
+            ()
+            ())
+            (c
+            ()
+            ())]
+            [(d
+            ()
+            ())]
+            []
+            []
+            []
+            [])
+            (Name
+                test
+                Load
+            )
+        )
+    )
+    (Expr
+        (Lambda
+            ([(a
+            ()
+            ())]
+            [(b
+            ()
+            ())
+            (c
+            ()
+            ())]
+            []
+            []
+            []
+            [(d
+            ()
+            ())]
+            [])
+            (Name
+                test
+                Load
+            )
+        )
+    )
+    (Expr
+        (Lambda
+            ([(a
+            ()
+            ())]
+            [(b
+            ()
+            ())
+            (c
+            ()
+            ())]
+            [(d
+            ()
+            ())]
+            []
+            []
+            [(e
+            ()
+            ())]
+            [])
+            (Name
+                test
+                Load
+            )
+        )
+    )
+    (Expr
+        (Lambda
+            ([(a
+            ()
+            ())]
+            [(b
+            ()
+            ())
+            (c
+            ()
+            ())]
+            [(d
+            ()
+            ())]
+            [(e
+            ()
+            ())]
+            [(ConstantNone
+                ()
+            )]
+            [(f
+            ()
+            ())]
+            [])
+            (Name
+                test
+                Load
+            )
+        )
+    )
+    (Expr
+        (Lambda
+            ([]
+            []
+            []
+            [(a
+            ()
+            ())]
+            [(ConstantNone
+                ()
+            )]
+            []
+            [])
+            (Name
+                test
+                Load
+            )
+        )
+    )
+    (Expr
+        (Lambda
+            ([]
+            []
+            []
+            [(a
+            ()
+            ())]
+            [(ConstantNone
+                ()
+            )]
+            [(b
+            ()
+            ())]
+            [])
+            (Name
+                test
+                Load
+            )
+        )
+    )
+    (Expr
+        (Lambda
+            ([]
+            [(a
+            ()
+            ())]
+            []
+            [(b
+            ()
+            ())]
+            [(ConstantNone
+                ()
+            )]
+            []
+            [])
+            (Name
+                test
+                Load
+            )
+        )
+    )
+    (Expr
+        (Lambda
+            ([]
+            [(a
+            ()
+            ())]
+            []
+            [(b
+            ()
+            ())]
+            [(ConstantNone
+                ()
+            )]
+            [(c
+            ()
+            ())]
+            [])
+            (Name
+                test
+                Load
+            )
+        )
+    )
+    (Expr
+        (Lambda
+            ([(a
+            ()
+            ())]
+            []
+            []
+            [(b
+            ()
+            ())]
+            [(ConstantNone
+                ()
+            )]
+            []
+            [])
+            (Name
+                test
+                Load
+            )
+        )
+    )
+    (Expr
+        (Lambda
+            ([(a
+            ()
+            ())]
+            [(b
+            ()
+            ())]
+            []
+            [(c
+            ()
+            ())]
+            [(ConstantNone
+                ()
+            )]
+            []
+            [])
+            (Name
+                test
+                Load
+            )
+        )
+    )
+    (Expr
+        (Lambda
+            ([(a
+            ()
+            ())]
+            []
+            []
+            [(c
+            ()
+            ())]
+            [(ConstantNone
+                ()
+            )]
+            [(d
+            ()
+            ())]
+            [])
+            (Name
+                test
+                Load
+            )
+        )
+    )
+    (Expr
+        (Lambda
+            ([(a
+            ()
+            ())]
+            [(b
+            ()
+            ())]
+            []
+            [(c
+            ()
+            ())]
+            [(ConstantNone
+                ()
+            )]
+            [(d
+            ()
+            ())]
+            [])
+            (Name
+                test
+                Load
+            )
+        )
+    )]
+    []
+)
diff --git a/tests/reference/ast_new-match_stmt1-9e84d24.json b/tests/reference/ast_new-match_stmt1-9e84d24.json
index 2ea0af21ce..6e096f25ea 100644
--- a/tests/reference/ast_new-match_stmt1-9e84d24.json
+++ b/tests/reference/ast_new-match_stmt1-9e84d24.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "ast_new-match_stmt1-9e84d24.stdout",
-    "stdout_hash": "77d2c29f4a5ebc77955d2c5eb39684c1def8a19f93a8e32367ac58c7",
+    "stdout_hash": "8e43bb4b05ebab0df9520dac9908702af0d2e7f63ddb42bf93baf0a0",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/ast_new-match_stmt1-9e84d24.stdout b/tests/reference/ast_new-match_stmt1-9e84d24.stdout
index e7bd023d50..f368aa9399 100644
--- a/tests/reference/ast_new-match_stmt1-9e84d24.stdout
+++ b/tests/reference/ast_new-match_stmt1-9e84d24.stdout
@@ -1 +1,2245 @@
-(Module [(Match (ConstantInt 0 ()) [((MatchValue (ConstantInt 0 ())) (ConstantBool .false. ()) [(Assign [(Name x Store)] (ConstantBool .false. ()) ())]) ((MatchValue (ConstantInt 0 ())) (ConstantBool .true. ()) [(Assign [(Name x Store)] (ConstantBool .true. ()) ())]) ((MatchAs () x) (Name x Load) [(Assign [(Name z Store)] (ConstantInt 0 ()) ())]) ((MatchAs (MatchAs () _) y) (BoolOp And [(Compare (Name y Load) Eq [(Name x Load)]) (Name y Load)]) [(Assign [(Name z Store)] (ConstantInt 1 ()) ())])]) (Match (Name match Load) [((MatchAs () case) () [(Assign [(Name x Store)] (ConstantInt 0 ()) ())])]) (Match (Call (Name match Load) [] []) [((MatchClass (Name case Load) [] [] []) () [(Assign [(Name x Store)] (ConstantInt 0 ()) ())])]) (Match (Name case Load) [((MatchAs () match) () [(Assign [(Name x Store)] (ConstantInt 0 ()) ())])]) (Match (Name x Load) [((MatchAs (MatchValue (Attribute (Name A Load) y Load)) z) () [(Pass)]) ((MatchAs (MatchValue (ConstantInt 0 ())) z) () [(Assign [(Name y Store)] (ConstantInt 0 ()) ())]) ((MatchAs (MatchSequence [(MatchAs () p) (MatchAs () q)]) x) () [(Assign [(Name out Store)] (Call (Name locals Load) [] []) ())]) ((MatchValue (Attribute (Name A Load) B Load)) () [(Assign [(Name z Store)] (ConstantInt 2 ()) ())]) ((MatchValue (Attribute (Attribute (Attribute (Name A Load) B Load) C Load) D Load)) () [(Assign [(Name y Store)] (ConstantInt 0 ()) ())])]) (Match (ConstantInt 0 ()) [((MatchOr [(MatchAs (MatchValue (ConstantInt 0 ())) z) (MatchAs (MatchValue (ConstantInt 1 ())) z) (MatchAs (MatchValue (ConstantInt 2 ())) z)]) (Compare (Name z Load) Eq [(BinOp (Name x Load) Mod (ConstantInt 2 ()))]) [(Assign [(Name y Store)] (ConstantInt 0 ()) ())]) ((MatchSequence [(MatchAs (MatchAs (MatchSequence [(MatchAs (MatchAs () a) b) (MatchAs (MatchAs () c) d)]) e) w) (MatchAs (MatchAs (MatchSequence [(MatchAs (MatchAs () f) g) (MatchAs () h)]) i) z)]) () [(Assign [(Name y Store)] (ConstantInt 0 ()) ())]) ((MatchOr [(MatchValue (ConstantInt 0 ())) (MatchValue (ConstantInt 1 ())) (MatchValue (ConstantInt 2 ())) (MatchValue (ConstantInt 3 ()))]) () [(Assign [(Name x Store)] (ConstantBool .true. ()) ())]) ((MatchOr [(MatchMapping [(ConstantInt 0 ())] [(MatchOr [(MatchSequence [(MatchValue (ConstantInt 1 ())) (MatchValue (ConstantInt 2 ())) (MatchMapping [] [] ())]) (MatchSingleton (ConstantBool .false. ()))])] ()) (MatchMapping [(ConstantInt 1 ())] [(MatchSequence [(MatchSequence [])])] ()) (MatchMapping [(ConstantInt 0 ())] [(MatchSequence [(MatchValue (ConstantInt 1 ())) (MatchValue (ConstantInt 2 ())) (MatchMapping [] [] ())])] ()) (MatchSequence []) (MatchValue (ConstantStr "X" ())) (MatchMapping [] [] ())]) () [(Assign [(Name y Store)] (ConstantInt 1 ()) ())]) ((MatchOr [(MatchMapping [(ConstantInt 0 ())] [(MatchOr [(MatchSequence [(MatchValue (ConstantInt 1 ())) (MatchValue (ConstantInt 2 ())) (MatchMapping [] [] ())]) (MatchSingleton (ConstantBool .false. ()))])] ()) (MatchMapping [(ConstantInt 1 ())] [(MatchSequence [(MatchSequence [])])] ()) (MatchMapping [(ConstantInt 0 ())] [(MatchSequence [(MatchValue (ConstantInt 1 ())) (MatchValue (ConstantInt 2 ())) (MatchMapping [] [] ())])] ()) (MatchSequence []) (MatchValue (ConstantStr "X" ())) (MatchMapping [] [] ())]) () [(Assign [(Name y Store)] (ConstantInt 1 ()) ())]) ((MatchMapping [(ConstantInt 0 ())] [(MatchSequence [(MatchValue (ConstantInt 1 ())) (MatchValue (ConstantInt 2 ())) (MatchMapping [] [] ())])] ()) () [(Assign [(Name y Store)] (ConstantInt 0 ()) ())]) ((MatchMapping [(ConstantInt 0 ()) (ConstantInt 1 ())] [(MatchSequence [(MatchValue (ConstantInt 1 ())) (MatchValue (ConstantInt 2 ())) (MatchMapping [] [] ())]) (MatchSequence [(MatchSequence [])])] ()) () [(Assign [(Name y Store)] (ConstantInt 1 ()) ())]) ((MatchMapping [] [] z) () [(Assign [(Name y Store)] (ConstantInt 1 ()) ())]) ((MatchMapping [(ConstantInt 1 ())] [(MatchValue (ConstantInt 2 ()))] z) () [(Assign [(Name y Store)] (ConstantInt 1 ()) ())])]) (Match (Tuple [(ConstantInt 0 ()) (ConstantInt 1 ()) (ConstantInt 2 ())] Load) [((MatchSequence [(MatchValue (ConstantInt 0 ())) (MatchValue (ConstantInt 1 ())) (MatchStar x)]) () [(Assign [(Name y Store)] (ConstantInt 0 ()) ())]) ((MatchSequence [(MatchStar _) (MatchAs () _)]) () [(Assign [(Name z Store)] (ConstantInt 0 ()) ())]) ((MatchMapping [(ConstantInt 0 ())] [(MatchAs (MatchOr [(MatchValue (ConstantInt 0 ())) (MatchValue (ConstantInt 1 ())) (MatchValue (ConstantInt 2 ()))]) z)] ()) () [(Assign [(Name y Store)] (ConstantInt 0 ()) ())])]) (Match (Name x Load) [((MatchSequence []) () [(Assign [(Name y Store)] (ConstantInt 2 ()) ())]) ((MatchSequence []) () [(Assign [(Name y Store)] (ConstantInt 0 ()) ())]) ((MatchValue (UnaryOp USub (ConstantFloat 1.500000 ()))) () [(Assign [(Name y Store)] (ConstantInt 0 ()) ())]) ((MatchValue (UnaryOp USub (ConstantComplex 0.000000 0.000000 ()))) () [(Assign [(Name y Store)] (ConstantInt 0 ()) ())]) ((MatchValue (BinOp (UnaryOp USub (ConstantInt 0 ())) Add (ConstantComplex 0.000000 0.000000 ()))) () [(Assign [(Name y Store)] (ConstantInt 0 ()) ())]) ((MatchValue (ConstantBytes "b'x'" ())) () [(Assign [(Name y Store)] (ConstantInt 4 ()) ())])]) (Match (Tuple [(Name x Load)] Load) [((MatchSequence [(MatchAs () y)]) () [(Assign [(Name z Store)] (ConstantInt 0 ()) ())]) ((MatchSequence [(MatchStar x)]) () [(Assign [(Name y Store)] (ConstantInt 0 ()) ())])]) (Match (Tuple [(Name w Load) (Name x Load)] Load) [((MatchSequence [(MatchAs () y) (MatchAs () z)]) () [(Assign [(Name v Store)] (ConstantInt 0 ()) ())])]) (Match (Tuple [(ConstantInt 0 ()) (ConstantInt 1 ()) (ConstantInt 2 ())] Load) [((MatchSequence [(MatchValue (ConstantInt 0 ())) (MatchStar x)]) () [(Assign [(Name y Store)] (ConstantInt 0 ()) ())]) ((MatchSequence [(MatchValue (ConstantInt 0 ())) (MatchStar x) (MatchValue (ConstantInt 1 ()))]) () [(Assign [(Name y Store)] (ConstantInt 1 ()) ())]) ((MatchSequence [(MatchStar x) (MatchValue (ConstantInt 1 ())) (MatchValue (ConstantInt 2 ()))]) () [(Assign [(Name y Store)] (ConstantInt 2 ()) ())]) ((MatchSequence [(MatchStar x)]) () [(Assign [(Name y Store)] (ConstantInt 2 ()) ())])]) (Match (Tuple [(NamedExpr (Name w Store) (Name x Load))] Load) [((MatchSequence [(MatchAs (MatchAs () y) v)]) () [(Assign [(Name z Store)] (ConstantInt 0 ()) ())]) ((MatchClass (Name bool Load) [(MatchAs () z)] [] []) () [(Assign [(Name y Store)] (ConstantInt 0 ()) ())]) ((MatchClass (Name Point Load) [(MatchValue (ConstantInt 1 ()))] [y] [(MatchAs () var)]) () [(Assign [(Name x Store)] (Name var Load) ())]) ((MatchClass (Name Point Load) [] [x y] [(MatchValue (ConstantInt 1 ())) (MatchAs () var)]) () [(Assign [(Name x Store)] (Name var Load) ())]) ((MatchSequence [(MatchClass (Name Point Load) [(MatchAs () x) (MatchAs () y)] [] [])]) () [(Assign [(Name x Store)] (ConstantStr "string" ()) ())]) ((MatchClass (Name Point Load) [(MatchClass (Name int Load) [(MatchAs () xx)] [] [])] [y] [(MatchValue (ConstantStr "hello" ()))]) () [(Assign [(Name out Store)] (Call (Name locals Load) [] []) ())])]) (Match (Tuple [(ConstantEllipsis ()) (ConstantEllipsis ())] Load) [((MatchSequence [(MatchAs () a) (MatchAs () b)]) () [(Assign [(Name out Store)] (Call (Name locals Load) [] []) ())])]) (Match (Dict [(ConstantStr "k" ()) (ConstantStr "l" ())] [(ConstantEllipsis ()) (ConstantEllipsis ())]) [((MatchMapping [(ConstantStr "k" ()) (ConstantStr "l" ())] [(MatchAs () a) (MatchAs () b)] ()) () [(Assign [(Name out Store)] (Call (Name locals Load) [] []) ())])]) (Match (Name x Load) [((MatchSingleton (ConstantBool .false. ())) () [(Assign [(Name y Store)] (ConstantInt 0 ()) ())]) ((MatchSingleton (ConstantBool .true. ())) () [(Assign [(Name y Store)] (ConstantInt 1 ()) ())])]) (FunctionDef t ([] [] [] [] [] [] []) [(Match (Name status Load) [((MatchValue (ConstantInt 400 ())) () [(Return (ConstantStr "Bad request" ()))]) ((MatchOr [(MatchValue (ConstantInt 401 ())) (MatchValue (ConstantInt 403 ())) (MatchValue (ConstantInt 404 ()))]) () [(Return (ConstantStr "Not allowed" ()))]) ((MatchValue (ConstantInt 418 ())) () [(Return (ConstantStr "I'm a teapot" ()))])])] [] () ()) (FunctionDef _get_slots ([] [(cls () ())] [] [] [] [] []) [(Match (Name x Load) [((MatchSingleton (ConstantNone ())) () [(Return ())]) ((MatchClass (Name str Load) [(MatchAs () slot)] [] []) () [(Expr (Yield (Name slot Load)))]) ((MatchAs () iterable) (UnaryOp Not (Call (Name hasattr Load) [(Name iterable Load) (ConstantStr "__next__" ())] [])) [(Expr (YieldFrom (Name iterable Load)))]) ((MatchAs () _) () [(Raise (Call (Name TypeError Load) [(JoinedStr [(ConstantStr "Slots of '" ()) (FormattedValue (Name cls.__name__ Load) -1 ()) (ConstantStr "' cannot be determined" ())])] []) ())])])] [] () ()) (FunctionDef check_mapping_then_sequence ([] [(x () ())] [] [] [] [] []) [(Match (Name x Load) [((MatchSequence [(MatchStar _)]) () [(Return (ConstantStr "seq" ()))]) ((MatchMapping [] [] ()) () [(Return (ConstantStr "map" ()))])])] [(Name staticmethod Load)] () ()) (FunctionDef file_handler_v1 ([] [(command () ())] [] [] [] [] []) [(Match (Call (Attribute (Name command Load) split Load) [] []) [((MatchSequence [(MatchValue (ConstantStr "show" ()))]) () [(Expr (Call (Name print Load) [(ConstantStr "List all files and directories: " ())] []))]) ((MatchSequence [(MatchValue (ConstantStr "remove" ())) (MatchStar files)]) () [(Expr (Call (Name print Load) [(Call (Attribute (ConstantStr "Removing files: {}" ()) format Load) [(Name files Load)] [])] []))]) ((MatchAs () _) () [(Expr (Call (Name print Load) [(ConstantStr "Command not recognized" ())] []))])])] [] () ()) (Match (Tuple [] Load) [((MatchSequence []) () [(Assign [(Name x Store)] (ConstantInt 0 ()) ())])]) (Match (Tuple [] Load) [((MatchSequence []) () [(Pass)])]) (FunctionDef case ([] [(x () ())] [] [] [] [] []) [(Pass)] [] () ()) (FunctionDef match ([] [(x () ())] [] [] [] [] []) [(Pass)] [] () ()) (For (Name match Store) (Call (Name range Load) [(ConstantInt 10 ())] []) [(Pass)] [] ()) (For (Name case Store) (Call (Name range Load) [(ConstantInt 10 ())] []) [(Pass)] [] ()) (ClassDef match [] [] [(Pass)] []) (ClassDef case [] [] [(Pass)] []) (AnnAssign (Name match Store) (Name i32 Load) () 1) (AnnAssign (Name case Store) (Name i32 Load) () 1) (Assign [(Name match Store)] (ConstantInt 5 ()) ()) (Assign [(Name case Store)] (ConstantInt 5 ()) ()) (Assign [(Name match Store)] (Dict [(ConstantInt 2 ())] [(ConstantInt 3 ())]) ()) (Assign [(Name match Store)] (Subscript (Name A Load) (Tuple [(ConstantInt 1 ()) (Slice () () ())] Load) Load) ()) (Expr (Call (Name print Load) [(Subscript (Name match Load) (Slice (ConstantInt 2 ()) (ConstantInt 8 ()) ()) Load)] [])) (Assign [(Name match Store)] (ConstantInt 5 ()) ()) (Assign [(Name a Store)] (Dict [(Name match Load)] [(ConstantInt 3 ())]) ()) (Expr (Call (Name print Load) [(Name a Load)] [])) (Assign [(Name case Store)] (Dict [(ConstantStr "ok" ())] [(ConstantInt 5 ())]) ()) (Assign [(Name a Store)] (Dict [(Subscript (Name case Load) (ConstantStr "ok" ()) Load)] [(ConstantInt 6 ())]) ()) (Expr (Call (Name print Load) [(Name a Load)] [])) (Assign [(Name match Store)] (Dict [(ConstantInt 2 ())] [(ConstantInt 3 ())]) ()) (Expr (Subscript (Name match Load) (Slice (ConstantInt 2 ()) (ConstantInt 8 ()) ()) Load))] [])
+(Module
+    [(Match
+        (ConstantInt
+            0
+            ()
+        )
+        [((MatchValue
+            (ConstantInt
+                0
+                ()
+            )
+        )
+        (ConstantBool
+            .false.
+            ()
+        )
+        [(Assign
+            [(Name
+                x
+                Store
+            )]
+            (ConstantBool
+                .false.
+                ()
+            )
+            ()
+        )])
+        ((MatchValue
+            (ConstantInt
+                0
+                ()
+            )
+        )
+        (ConstantBool
+            .true.
+            ()
+        )
+        [(Assign
+            [(Name
+                x
+                Store
+            )]
+            (ConstantBool
+                .true.
+                ()
+            )
+            ()
+        )])
+        ((MatchAs
+            ()
+            x
+        )
+        (Name
+            x
+            Load
+        )
+        [(Assign
+            [(Name
+                z
+                Store
+            )]
+            (ConstantInt
+                0
+                ()
+            )
+            ()
+        )])
+        ((MatchAs
+            (MatchAs
+                ()
+                _
+            )
+            y
+        )
+        (BoolOp
+            And
+            [(Compare
+                (Name
+                    y
+                    Load
+                )
+                Eq
+                [(Name
+                    x
+                    Load
+                )]
+            )
+            (Name
+                y
+                Load
+            )]
+        )
+        [(Assign
+            [(Name
+                z
+                Store
+            )]
+            (ConstantInt
+                1
+                ()
+            )
+            ()
+        )])]
+    )
+    (Match
+        (Name
+            match
+            Load
+        )
+        [((MatchAs
+            ()
+            case
+        )
+        ()
+        [(Assign
+            [(Name
+                x
+                Store
+            )]
+            (ConstantInt
+                0
+                ()
+            )
+            ()
+        )])]
+    )
+    (Match
+        (Call
+            (Name
+                match
+                Load
+            )
+            []
+            []
+        )
+        [((MatchClass
+            (Name
+                case
+                Load
+            )
+            []
+            []
+            []
+        )
+        ()
+        [(Assign
+            [(Name
+                x
+                Store
+            )]
+            (ConstantInt
+                0
+                ()
+            )
+            ()
+        )])]
+    )
+    (Match
+        (Name
+            case
+            Load
+        )
+        [((MatchAs
+            ()
+            match
+        )
+        ()
+        [(Assign
+            [(Name
+                x
+                Store
+            )]
+            (ConstantInt
+                0
+                ()
+            )
+            ()
+        )])]
+    )
+    (Match
+        (Name
+            x
+            Load
+        )
+        [((MatchAs
+            (MatchValue
+                (Attribute
+                    (Name
+                        A
+                        Load
+                    )
+                    y
+                    Load
+                )
+            )
+            z
+        )
+        ()
+        [(Pass)])
+        ((MatchAs
+            (MatchValue
+                (ConstantInt
+                    0
+                    ()
+                )
+            )
+            z
+        )
+        ()
+        [(Assign
+            [(Name
+                y
+                Store
+            )]
+            (ConstantInt
+                0
+                ()
+            )
+            ()
+        )])
+        ((MatchAs
+            (MatchSequence
+                [(MatchAs
+                    ()
+                    p
+                )
+                (MatchAs
+                    ()
+                    q
+                )]
+            )
+            x
+        )
+        ()
+        [(Assign
+            [(Name
+                out
+                Store
+            )]
+            (Call
+                (Name
+                    locals
+                    Load
+                )
+                []
+                []
+            )
+            ()
+        )])
+        ((MatchValue
+            (Attribute
+                (Name
+                    A
+                    Load
+                )
+                B
+                Load
+            )
+        )
+        ()
+        [(Assign
+            [(Name
+                z
+                Store
+            )]
+            (ConstantInt
+                2
+                ()
+            )
+            ()
+        )])
+        ((MatchValue
+            (Attribute
+                (Attribute
+                    (Attribute
+                        (Name
+                            A
+                            Load
+                        )
+                        B
+                        Load
+                    )
+                    C
+                    Load
+                )
+                D
+                Load
+            )
+        )
+        ()
+        [(Assign
+            [(Name
+                y
+                Store
+            )]
+            (ConstantInt
+                0
+                ()
+            )
+            ()
+        )])]
+    )
+    (Match
+        (ConstantInt
+            0
+            ()
+        )
+        [((MatchOr
+            [(MatchAs
+                (MatchValue
+                    (ConstantInt
+                        0
+                        ()
+                    )
+                )
+                z
+            )
+            (MatchAs
+                (MatchValue
+                    (ConstantInt
+                        1
+                        ()
+                    )
+                )
+                z
+            )
+            (MatchAs
+                (MatchValue
+                    (ConstantInt
+                        2
+                        ()
+                    )
+                )
+                z
+            )]
+        )
+        (Compare
+            (Name
+                z
+                Load
+            )
+            Eq
+            [(BinOp
+                (Name
+                    x
+                    Load
+                )
+                Mod
+                (ConstantInt
+                    2
+                    ()
+                )
+            )]
+        )
+        [(Assign
+            [(Name
+                y
+                Store
+            )]
+            (ConstantInt
+                0
+                ()
+            )
+            ()
+        )])
+        ((MatchSequence
+            [(MatchAs
+                (MatchAs
+                    (MatchSequence
+                        [(MatchAs
+                            (MatchAs
+                                ()
+                                a
+                            )
+                            b
+                        )
+                        (MatchAs
+                            (MatchAs
+                                ()
+                                c
+                            )
+                            d
+                        )]
+                    )
+                    e
+                )
+                w
+            )
+            (MatchAs
+                (MatchAs
+                    (MatchSequence
+                        [(MatchAs
+                            (MatchAs
+                                ()
+                                f
+                            )
+                            g
+                        )
+                        (MatchAs
+                            ()
+                            h
+                        )]
+                    )
+                    i
+                )
+                z
+            )]
+        )
+        ()
+        [(Assign
+            [(Name
+                y
+                Store
+            )]
+            (ConstantInt
+                0
+                ()
+            )
+            ()
+        )])
+        ((MatchOr
+            [(MatchValue
+                (ConstantInt
+                    0
+                    ()
+                )
+            )
+            (MatchValue
+                (ConstantInt
+                    1
+                    ()
+                )
+            )
+            (MatchValue
+                (ConstantInt
+                    2
+                    ()
+                )
+            )
+            (MatchValue
+                (ConstantInt
+                    3
+                    ()
+                )
+            )]
+        )
+        ()
+        [(Assign
+            [(Name
+                x
+                Store
+            )]
+            (ConstantBool
+                .true.
+                ()
+            )
+            ()
+        )])
+        ((MatchOr
+            [(MatchMapping
+                [(ConstantInt
+                    0
+                    ()
+                )]
+                [(MatchOr
+                    [(MatchSequence
+                        [(MatchValue
+                            (ConstantInt
+                                1
+                                ()
+                            )
+                        )
+                        (MatchValue
+                            (ConstantInt
+                                2
+                                ()
+                            )
+                        )
+                        (MatchMapping
+                            []
+                            []
+                            ()
+                        )]
+                    )
+                    (MatchSingleton
+                        (ConstantBool
+                            .false.
+                            ()
+                        )
+                    )]
+                )]
+                ()
+            )
+            (MatchMapping
+                [(ConstantInt
+                    1
+                    ()
+                )]
+                [(MatchSequence
+                    [(MatchSequence
+                        []
+                    )]
+                )]
+                ()
+            )
+            (MatchMapping
+                [(ConstantInt
+                    0
+                    ()
+                )]
+                [(MatchSequence
+                    [(MatchValue
+                        (ConstantInt
+                            1
+                            ()
+                        )
+                    )
+                    (MatchValue
+                        (ConstantInt
+                            2
+                            ()
+                        )
+                    )
+                    (MatchMapping
+                        []
+                        []
+                        ()
+                    )]
+                )]
+                ()
+            )
+            (MatchSequence
+                []
+            )
+            (MatchValue
+                (ConstantStr
+                    "X"
+                    ()
+                )
+            )
+            (MatchMapping
+                []
+                []
+                ()
+            )]
+        )
+        ()
+        [(Assign
+            [(Name
+                y
+                Store
+            )]
+            (ConstantInt
+                1
+                ()
+            )
+            ()
+        )])
+        ((MatchOr
+            [(MatchMapping
+                [(ConstantInt
+                    0
+                    ()
+                )]
+                [(MatchOr
+                    [(MatchSequence
+                        [(MatchValue
+                            (ConstantInt
+                                1
+                                ()
+                            )
+                        )
+                        (MatchValue
+                            (ConstantInt
+                                2
+                                ()
+                            )
+                        )
+                        (MatchMapping
+                            []
+                            []
+                            ()
+                        )]
+                    )
+                    (MatchSingleton
+                        (ConstantBool
+                            .false.
+                            ()
+                        )
+                    )]
+                )]
+                ()
+            )
+            (MatchMapping
+                [(ConstantInt
+                    1
+                    ()
+                )]
+                [(MatchSequence
+                    [(MatchSequence
+                        []
+                    )]
+                )]
+                ()
+            )
+            (MatchMapping
+                [(ConstantInt
+                    0
+                    ()
+                )]
+                [(MatchSequence
+                    [(MatchValue
+                        (ConstantInt
+                            1
+                            ()
+                        )
+                    )
+                    (MatchValue
+                        (ConstantInt
+                            2
+                            ()
+                        )
+                    )
+                    (MatchMapping
+                        []
+                        []
+                        ()
+                    )]
+                )]
+                ()
+            )
+            (MatchSequence
+                []
+            )
+            (MatchValue
+                (ConstantStr
+                    "X"
+                    ()
+                )
+            )
+            (MatchMapping
+                []
+                []
+                ()
+            )]
+        )
+        ()
+        [(Assign
+            [(Name
+                y
+                Store
+            )]
+            (ConstantInt
+                1
+                ()
+            )
+            ()
+        )])
+        ((MatchMapping
+            [(ConstantInt
+                0
+                ()
+            )]
+            [(MatchSequence
+                [(MatchValue
+                    (ConstantInt
+                        1
+                        ()
+                    )
+                )
+                (MatchValue
+                    (ConstantInt
+                        2
+                        ()
+                    )
+                )
+                (MatchMapping
+                    []
+                    []
+                    ()
+                )]
+            )]
+            ()
+        )
+        ()
+        [(Assign
+            [(Name
+                y
+                Store
+            )]
+            (ConstantInt
+                0
+                ()
+            )
+            ()
+        )])
+        ((MatchMapping
+            [(ConstantInt
+                0
+                ()
+            )
+            (ConstantInt
+                1
+                ()
+            )]
+            [(MatchSequence
+                [(MatchValue
+                    (ConstantInt
+                        1
+                        ()
+                    )
+                )
+                (MatchValue
+                    (ConstantInt
+                        2
+                        ()
+                    )
+                )
+                (MatchMapping
+                    []
+                    []
+                    ()
+                )]
+            )
+            (MatchSequence
+                [(MatchSequence
+                    []
+                )]
+            )]
+            ()
+        )
+        ()
+        [(Assign
+            [(Name
+                y
+                Store
+            )]
+            (ConstantInt
+                1
+                ()
+            )
+            ()
+        )])
+        ((MatchMapping
+            []
+            []
+            z
+        )
+        ()
+        [(Assign
+            [(Name
+                y
+                Store
+            )]
+            (ConstantInt
+                1
+                ()
+            )
+            ()
+        )])
+        ((MatchMapping
+            [(ConstantInt
+                1
+                ()
+            )]
+            [(MatchValue
+                (ConstantInt
+                    2
+                    ()
+                )
+            )]
+            z
+        )
+        ()
+        [(Assign
+            [(Name
+                y
+                Store
+            )]
+            (ConstantInt
+                1
+                ()
+            )
+            ()
+        )])]
+    )
+    (Match
+        (Tuple
+            [(ConstantInt
+                0
+                ()
+            )
+            (ConstantInt
+                1
+                ()
+            )
+            (ConstantInt
+                2
+                ()
+            )]
+            Load
+        )
+        [((MatchSequence
+            [(MatchValue
+                (ConstantInt
+                    0
+                    ()
+                )
+            )
+            (MatchValue
+                (ConstantInt
+                    1
+                    ()
+                )
+            )
+            (MatchStar
+                x
+            )]
+        )
+        ()
+        [(Assign
+            [(Name
+                y
+                Store
+            )]
+            (ConstantInt
+                0
+                ()
+            )
+            ()
+        )])
+        ((MatchSequence
+            [(MatchStar
+                _
+            )
+            (MatchAs
+                ()
+                _
+            )]
+        )
+        ()
+        [(Assign
+            [(Name
+                z
+                Store
+            )]
+            (ConstantInt
+                0
+                ()
+            )
+            ()
+        )])
+        ((MatchMapping
+            [(ConstantInt
+                0
+                ()
+            )]
+            [(MatchAs
+                (MatchOr
+                    [(MatchValue
+                        (ConstantInt
+                            0
+                            ()
+                        )
+                    )
+                    (MatchValue
+                        (ConstantInt
+                            1
+                            ()
+                        )
+                    )
+                    (MatchValue
+                        (ConstantInt
+                            2
+                            ()
+                        )
+                    )]
+                )
+                z
+            )]
+            ()
+        )
+        ()
+        [(Assign
+            [(Name
+                y
+                Store
+            )]
+            (ConstantInt
+                0
+                ()
+            )
+            ()
+        )])]
+    )
+    (Match
+        (Name
+            x
+            Load
+        )
+        [((MatchSequence
+            []
+        )
+        ()
+        [(Assign
+            [(Name
+                y
+                Store
+            )]
+            (ConstantInt
+                2
+                ()
+            )
+            ()
+        )])
+        ((MatchSequence
+            []
+        )
+        ()
+        [(Assign
+            [(Name
+                y
+                Store
+            )]
+            (ConstantInt
+                0
+                ()
+            )
+            ()
+        )])
+        ((MatchValue
+            (UnaryOp
+                USub
+                (ConstantFloat
+                    1.500000
+                    ()
+                )
+            )
+        )
+        ()
+        [(Assign
+            [(Name
+                y
+                Store
+            )]
+            (ConstantInt
+                0
+                ()
+            )
+            ()
+        )])
+        ((MatchValue
+            (UnaryOp
+                USub
+                (ConstantComplex
+                    0.000000
+                    0.000000
+                    ()
+                )
+            )
+        )
+        ()
+        [(Assign
+            [(Name
+                y
+                Store
+            )]
+            (ConstantInt
+                0
+                ()
+            )
+            ()
+        )])
+        ((MatchValue
+            (BinOp
+                (UnaryOp
+                    USub
+                    (ConstantInt
+                        0
+                        ()
+                    )
+                )
+                Add
+                (ConstantComplex
+                    0.000000
+                    0.000000
+                    ()
+                )
+            )
+        )
+        ()
+        [(Assign
+            [(Name
+                y
+                Store
+            )]
+            (ConstantInt
+                0
+                ()
+            )
+            ()
+        )])
+        ((MatchValue
+            (ConstantBytes
+                "b'x'"
+                ()
+            )
+        )
+        ()
+        [(Assign
+            [(Name
+                y
+                Store
+            )]
+            (ConstantInt
+                4
+                ()
+            )
+            ()
+        )])]
+    )
+    (Match
+        (Tuple
+            [(Name
+                x
+                Load
+            )]
+            Load
+        )
+        [((MatchSequence
+            [(MatchAs
+                ()
+                y
+            )]
+        )
+        ()
+        [(Assign
+            [(Name
+                z
+                Store
+            )]
+            (ConstantInt
+                0
+                ()
+            )
+            ()
+        )])
+        ((MatchSequence
+            [(MatchStar
+                x
+            )]
+        )
+        ()
+        [(Assign
+            [(Name
+                y
+                Store
+            )]
+            (ConstantInt
+                0
+                ()
+            )
+            ()
+        )])]
+    )
+    (Match
+        (Tuple
+            [(Name
+                w
+                Load
+            )
+            (Name
+                x
+                Load
+            )]
+            Load
+        )
+        [((MatchSequence
+            [(MatchAs
+                ()
+                y
+            )
+            (MatchAs
+                ()
+                z
+            )]
+        )
+        ()
+        [(Assign
+            [(Name
+                v
+                Store
+            )]
+            (ConstantInt
+                0
+                ()
+            )
+            ()
+        )])]
+    )
+    (Match
+        (Tuple
+            [(ConstantInt
+                0
+                ()
+            )
+            (ConstantInt
+                1
+                ()
+            )
+            (ConstantInt
+                2
+                ()
+            )]
+            Load
+        )
+        [((MatchSequence
+            [(MatchValue
+                (ConstantInt
+                    0
+                    ()
+                )
+            )
+            (MatchStar
+                x
+            )]
+        )
+        ()
+        [(Assign
+            [(Name
+                y
+                Store
+            )]
+            (ConstantInt
+                0
+                ()
+            )
+            ()
+        )])
+        ((MatchSequence
+            [(MatchValue
+                (ConstantInt
+                    0
+                    ()
+                )
+            )
+            (MatchStar
+                x
+            )
+            (MatchValue
+                (ConstantInt
+                    1
+                    ()
+                )
+            )]
+        )
+        ()
+        [(Assign
+            [(Name
+                y
+                Store
+            )]
+            (ConstantInt
+                1
+                ()
+            )
+            ()
+        )])
+        ((MatchSequence
+            [(MatchStar
+                x
+            )
+            (MatchValue
+                (ConstantInt
+                    1
+                    ()
+                )
+            )
+            (MatchValue
+                (ConstantInt
+                    2
+                    ()
+                )
+            )]
+        )
+        ()
+        [(Assign
+            [(Name
+                y
+                Store
+            )]
+            (ConstantInt
+                2
+                ()
+            )
+            ()
+        )])
+        ((MatchSequence
+            [(MatchStar
+                x
+            )]
+        )
+        ()
+        [(Assign
+            [(Name
+                y
+                Store
+            )]
+            (ConstantInt
+                2
+                ()
+            )
+            ()
+        )])]
+    )
+    (Match
+        (Tuple
+            [(NamedExpr
+                (Name
+                    w
+                    Store
+                )
+                (Name
+                    x
+                    Load
+                )
+            )]
+            Load
+        )
+        [((MatchSequence
+            [(MatchAs
+                (MatchAs
+                    ()
+                    y
+                )
+                v
+            )]
+        )
+        ()
+        [(Assign
+            [(Name
+                z
+                Store
+            )]
+            (ConstantInt
+                0
+                ()
+            )
+            ()
+        )])
+        ((MatchClass
+            (Name
+                bool
+                Load
+            )
+            [(MatchAs
+                ()
+                z
+            )]
+            []
+            []
+        )
+        ()
+        [(Assign
+            [(Name
+                y
+                Store
+            )]
+            (ConstantInt
+                0
+                ()
+            )
+            ()
+        )])
+        ((MatchClass
+            (Name
+                Point
+                Load
+            )
+            [(MatchValue
+                (ConstantInt
+                    1
+                    ()
+                )
+            )]
+            [y]
+            [(MatchAs
+                ()
+                var
+            )]
+        )
+        ()
+        [(Assign
+            [(Name
+                x
+                Store
+            )]
+            (Name
+                var
+                Load
+            )
+            ()
+        )])
+        ((MatchClass
+            (Name
+                Point
+                Load
+            )
+            []
+            [x
+            y]
+            [(MatchValue
+                (ConstantInt
+                    1
+                    ()
+                )
+            )
+            (MatchAs
+                ()
+                var
+            )]
+        )
+        ()
+        [(Assign
+            [(Name
+                x
+                Store
+            )]
+            (Name
+                var
+                Load
+            )
+            ()
+        )])
+        ((MatchSequence
+            [(MatchClass
+                (Name
+                    Point
+                    Load
+                )
+                [(MatchAs
+                    ()
+                    x
+                )
+                (MatchAs
+                    ()
+                    y
+                )]
+                []
+                []
+            )]
+        )
+        ()
+        [(Assign
+            [(Name
+                x
+                Store
+            )]
+            (ConstantStr
+                "string"
+                ()
+            )
+            ()
+        )])
+        ((MatchClass
+            (Name
+                Point
+                Load
+            )
+            [(MatchClass
+                (Name
+                    int
+                    Load
+                )
+                [(MatchAs
+                    ()
+                    xx
+                )]
+                []
+                []
+            )]
+            [y]
+            [(MatchValue
+                (ConstantStr
+                    "hello"
+                    ()
+                )
+            )]
+        )
+        ()
+        [(Assign
+            [(Name
+                out
+                Store
+            )]
+            (Call
+                (Name
+                    locals
+                    Load
+                )
+                []
+                []
+            )
+            ()
+        )])]
+    )
+    (Match
+        (Tuple
+            [(ConstantEllipsis
+                ()
+            )
+            (ConstantEllipsis
+                ()
+            )]
+            Load
+        )
+        [((MatchSequence
+            [(MatchAs
+                ()
+                a
+            )
+            (MatchAs
+                ()
+                b
+            )]
+        )
+        ()
+        [(Assign
+            [(Name
+                out
+                Store
+            )]
+            (Call
+                (Name
+                    locals
+                    Load
+                )
+                []
+                []
+            )
+            ()
+        )])]
+    )
+    (Match
+        (Dict
+            [(ConstantStr
+                "k"
+                ()
+            )
+            (ConstantStr
+                "l"
+                ()
+            )]
+            [(ConstantEllipsis
+                ()
+            )
+            (ConstantEllipsis
+                ()
+            )]
+        )
+        [((MatchMapping
+            [(ConstantStr
+                "k"
+                ()
+            )
+            (ConstantStr
+                "l"
+                ()
+            )]
+            [(MatchAs
+                ()
+                a
+            )
+            (MatchAs
+                ()
+                b
+            )]
+            ()
+        )
+        ()
+        [(Assign
+            [(Name
+                out
+                Store
+            )]
+            (Call
+                (Name
+                    locals
+                    Load
+                )
+                []
+                []
+            )
+            ()
+        )])]
+    )
+    (Match
+        (Name
+            x
+            Load
+        )
+        [((MatchSingleton
+            (ConstantBool
+                .false.
+                ()
+            )
+        )
+        ()
+        [(Assign
+            [(Name
+                y
+                Store
+            )]
+            (ConstantInt
+                0
+                ()
+            )
+            ()
+        )])
+        ((MatchSingleton
+            (ConstantBool
+                .true.
+                ()
+            )
+        )
+        ()
+        [(Assign
+            [(Name
+                y
+                Store
+            )]
+            (ConstantInt
+                1
+                ()
+            )
+            ()
+        )])]
+    )
+    (FunctionDef
+        t
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(Match
+            (Name
+                status
+                Load
+            )
+            [((MatchValue
+                (ConstantInt
+                    400
+                    ()
+                )
+            )
+            ()
+            [(Return
+                (ConstantStr
+                    "Bad request"
+                    ()
+                )
+            )])
+            ((MatchOr
+                [(MatchValue
+                    (ConstantInt
+                        401
+                        ()
+                    )
+                )
+                (MatchValue
+                    (ConstantInt
+                        403
+                        ()
+                    )
+                )
+                (MatchValue
+                    (ConstantInt
+                        404
+                        ()
+                    )
+                )]
+            )
+            ()
+            [(Return
+                (ConstantStr
+                    "Not allowed"
+                    ()
+                )
+            )])
+            ((MatchValue
+                (ConstantInt
+                    418
+                    ()
+                )
+            )
+            ()
+            [(Return
+                (ConstantStr
+                    "I'm a teapot"
+                    ()
+                )
+            )])]
+        )]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        _get_slots
+        ([]
+        [(cls
+        ()
+        ())]
+        []
+        []
+        []
+        []
+        [])
+        [(Match
+            (Name
+                x
+                Load
+            )
+            [((MatchSingleton
+                (ConstantNone
+                    ()
+                )
+            )
+            ()
+            [(Return
+                ()
+            )])
+            ((MatchClass
+                (Name
+                    str
+                    Load
+                )
+                [(MatchAs
+                    ()
+                    slot
+                )]
+                []
+                []
+            )
+            ()
+            [(Expr
+                (Yield
+                    (Name
+                        slot
+                        Load
+                    )
+                )
+            )])
+            ((MatchAs
+                ()
+                iterable
+            )
+            (UnaryOp
+                Not
+                (Call
+                    (Name
+                        hasattr
+                        Load
+                    )
+                    [(Name
+                        iterable
+                        Load
+                    )
+                    (ConstantStr
+                        "__next__"
+                        ()
+                    )]
+                    []
+                )
+            )
+            [(Expr
+                (YieldFrom
+                    (Name
+                        iterable
+                        Load
+                    )
+                )
+            )])
+            ((MatchAs
+                ()
+                _
+            )
+            ()
+            [(Raise
+                (Call
+                    (Name
+                        TypeError
+                        Load
+                    )
+                    [(JoinedStr
+                        [(ConstantStr
+                            "Slots of '"
+                            ()
+                        )
+                        (FormattedValue
+                            (Name
+                                cls.__name__
+                                Load
+                            )
+                            -1
+                            ()
+                        )
+                        (ConstantStr
+                            "' cannot be determined"
+                            ()
+                        )]
+                    )]
+                    []
+                )
+                ()
+            )])]
+        )]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        check_mapping_then_sequence
+        ([]
+        [(x
+        ()
+        ())]
+        []
+        []
+        []
+        []
+        [])
+        [(Match
+            (Name
+                x
+                Load
+            )
+            [((MatchSequence
+                [(MatchStar
+                    _
+                )]
+            )
+            ()
+            [(Return
+                (ConstantStr
+                    "seq"
+                    ()
+                )
+            )])
+            ((MatchMapping
+                []
+                []
+                ()
+            )
+            ()
+            [(Return
+                (ConstantStr
+                    "map"
+                    ()
+                )
+            )])]
+        )]
+        [(Name
+            staticmethod
+            Load
+        )]
+        ()
+        ()
+    )
+    (FunctionDef
+        file_handler_v1
+        ([]
+        [(command
+        ()
+        ())]
+        []
+        []
+        []
+        []
+        [])
+        [(Match
+            (Call
+                (Attribute
+                    (Name
+                        command
+                        Load
+                    )
+                    split
+                    Load
+                )
+                []
+                []
+            )
+            [((MatchSequence
+                [(MatchValue
+                    (ConstantStr
+                        "show"
+                        ()
+                    )
+                )]
+            )
+            ()
+            [(Expr
+                (Call
+                    (Name
+                        print
+                        Load
+                    )
+                    [(ConstantStr
+                        "List all files and directories: "
+                        ()
+                    )]
+                    []
+                )
+            )])
+            ((MatchSequence
+                [(MatchValue
+                    (ConstantStr
+                        "remove"
+                        ()
+                    )
+                )
+                (MatchStar
+                    files
+                )]
+            )
+            ()
+            [(Expr
+                (Call
+                    (Name
+                        print
+                        Load
+                    )
+                    [(Call
+                        (Attribute
+                            (ConstantStr
+                                "Removing files: {}"
+                                ()
+                            )
+                            format
+                            Load
+                        )
+                        [(Name
+                            files
+                            Load
+                        )]
+                        []
+                    )]
+                    []
+                )
+            )])
+            ((MatchAs
+                ()
+                _
+            )
+            ()
+            [(Expr
+                (Call
+                    (Name
+                        print
+                        Load
+                    )
+                    [(ConstantStr
+                        "Command not recognized"
+                        ()
+                    )]
+                    []
+                )
+            )])]
+        )]
+        []
+        ()
+        ()
+    )
+    (Match
+        (Tuple
+            []
+            Load
+        )
+        [((MatchSequence
+            []
+        )
+        ()
+        [(Assign
+            [(Name
+                x
+                Store
+            )]
+            (ConstantInt
+                0
+                ()
+            )
+            ()
+        )])]
+    )
+    (Match
+        (Tuple
+            []
+            Load
+        )
+        [((MatchSequence
+            []
+        )
+        ()
+        [(Pass)])]
+    )
+    (FunctionDef
+        case
+        ([]
+        [(x
+        ()
+        ())]
+        []
+        []
+        []
+        []
+        [])
+        [(Pass)]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        match
+        ([]
+        [(x
+        ()
+        ())]
+        []
+        []
+        []
+        []
+        [])
+        [(Pass)]
+        []
+        ()
+        ()
+    )
+    (For
+        (Name
+            match
+            Store
+        )
+        (Call
+            (Name
+                range
+                Load
+            )
+            [(ConstantInt
+                10
+                ()
+            )]
+            []
+        )
+        [(Pass)]
+        []
+        ()
+    )
+    (For
+        (Name
+            case
+            Store
+        )
+        (Call
+            (Name
+                range
+                Load
+            )
+            [(ConstantInt
+                10
+                ()
+            )]
+            []
+        )
+        [(Pass)]
+        []
+        ()
+    )
+    (ClassDef
+        match
+        []
+        []
+        [(Pass)]
+        []
+    )
+    (ClassDef
+        case
+        []
+        []
+        [(Pass)]
+        []
+    )
+    (AnnAssign
+        (Name
+            match
+            Store
+        )
+        (Name
+            i32
+            Load
+        )
+        ()
+        1
+    )
+    (AnnAssign
+        (Name
+            case
+            Store
+        )
+        (Name
+            i32
+            Load
+        )
+        ()
+        1
+    )
+    (Assign
+        [(Name
+            match
+            Store
+        )]
+        (ConstantInt
+            5
+            ()
+        )
+        ()
+    )
+    (Assign
+        [(Name
+            case
+            Store
+        )]
+        (ConstantInt
+            5
+            ()
+        )
+        ()
+    )
+    (Assign
+        [(Name
+            match
+            Store
+        )]
+        (Dict
+            [(ConstantInt
+                2
+                ()
+            )]
+            [(ConstantInt
+                3
+                ()
+            )]
+        )
+        ()
+    )
+    (Assign
+        [(Name
+            match
+            Store
+        )]
+        (Subscript
+            (Name
+                A
+                Load
+            )
+            (Tuple
+                [(ConstantInt
+                    1
+                    ()
+                )
+                (Slice
+                    ()
+                    ()
+                    ()
+                )]
+                Load
+            )
+            Load
+        )
+        ()
+    )
+    (Expr
+        (Call
+            (Name
+                print
+                Load
+            )
+            [(Subscript
+                (Name
+                    match
+                    Load
+                )
+                (Slice
+                    (ConstantInt
+                        2
+                        ()
+                    )
+                    (ConstantInt
+                        8
+                        ()
+                    )
+                    ()
+                )
+                Load
+            )]
+            []
+        )
+    )
+    (Assign
+        [(Name
+            match
+            Store
+        )]
+        (ConstantInt
+            5
+            ()
+        )
+        ()
+    )
+    (Assign
+        [(Name
+            a
+            Store
+        )]
+        (Dict
+            [(Name
+                match
+                Load
+            )]
+            [(ConstantInt
+                3
+                ()
+            )]
+        )
+        ()
+    )
+    (Expr
+        (Call
+            (Name
+                print
+                Load
+            )
+            [(Name
+                a
+                Load
+            )]
+            []
+        )
+    )
+    (Assign
+        [(Name
+            case
+            Store
+        )]
+        (Dict
+            [(ConstantStr
+                "ok"
+                ()
+            )]
+            [(ConstantInt
+                5
+                ()
+            )]
+        )
+        ()
+    )
+    (Assign
+        [(Name
+            a
+            Store
+        )]
+        (Dict
+            [(Subscript
+                (Name
+                    case
+                    Load
+                )
+                (ConstantStr
+                    "ok"
+                    ()
+                )
+                Load
+            )]
+            [(ConstantInt
+                6
+                ()
+            )]
+        )
+        ()
+    )
+    (Expr
+        (Call
+            (Name
+                print
+                Load
+            )
+            [(Name
+                a
+                Load
+            )]
+            []
+        )
+    )
+    (Assign
+        [(Name
+            match
+            Store
+        )]
+        (Dict
+            [(ConstantInt
+                2
+                ()
+            )]
+            [(ConstantInt
+                3
+                ()
+            )]
+        )
+        ()
+    )
+    (Expr
+        (Subscript
+            (Name
+                match
+                Load
+            )
+            (Slice
+                (ConstantInt
+                    2
+                    ()
+                )
+                (ConstantInt
+                    8
+                    ()
+                )
+                ()
+            )
+            Load
+        )
+    )]
+    []
+)
diff --git a/tests/reference/ast_new-slice1-9c440e3.json b/tests/reference/ast_new-slice1-9c440e3.json
index 1b1ae1043c..5efa42035d 100644
--- a/tests/reference/ast_new-slice1-9c440e3.json
+++ b/tests/reference/ast_new-slice1-9c440e3.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "ast_new-slice1-9c440e3.stdout",
-    "stdout_hash": "e32a15008b87145584f86f6e11fcf70530e2f3b49adbe97542de4c21",
+    "stdout_hash": "f2c5ce2eeecd08f73104a45cfb87a2bcabc55ca3a65e3c751c207beb",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/ast_new-slice1-9c440e3.stdout b/tests/reference/ast_new-slice1-9c440e3.stdout
index 5b0b6372a8..2a2e4db3a5 100644
--- a/tests/reference/ast_new-slice1-9c440e3.stdout
+++ b/tests/reference/ast_new-slice1-9c440e3.stdout
@@ -1 +1,291 @@
-(Module [(Expr (Subscript (ConstantStr "LPython" ()) (Slice (ConstantInt 1 ()) (ConstantInt 2 ()) ()) Load)) (Expr (Subscript (ConstantStr "LPython" ()) (Slice (ConstantInt 1 ()) () ()) Load)) (Expr (Subscript (ConstantStr "LPython" ()) (Slice () (ConstantInt 2 ()) ()) Load)) (Expr (Subscript (ConstantStr "LPython" ()) (Slice () () ()) Load)) (Expr (Subscript (ConstantStr "LPython" ()) (Slice (ConstantInt 1 ()) (ConstantInt 2 ()) (ConstantInt 3 ())) Load)) (Expr (Subscript (ConstantStr "LPython" ()) (Slice (ConstantInt 1 ()) (ConstantInt 2 ()) ()) Load)) (Expr (Subscript (ConstantStr "LPython" ()) (Slice (ConstantInt 1 ()) () (ConstantInt 3 ())) Load)) (Expr (Subscript (ConstantStr "LPython" ()) (Slice () (ConstantInt 2 ()) (ConstantInt 3 ())) Load)) (Expr (Subscript (ConstantStr "LPython" ()) (Slice () () (ConstantInt 3 ())) Load)) (Expr (Subscript (ConstantStr "LPython" ()) (Slice () (ConstantInt 2 ()) ()) Load)) (Expr (Subscript (ConstantStr "LPython" ()) (Slice (ConstantInt 1 ()) () ()) Load)) (Expr (Subscript (ConstantStr "LPython" ()) (Slice () () ()) Load)) (Assign [(Name List Store)] (List [(ConstantStr "a" ()) (ConstantStr "b" ()) (ConstantStr "c" ()) (ConstantStr "d" ())] Load) ()) (Assign [(Name List Store)] (List [(ConstantStr "a" ()) (ConstantStr "b" ()) (ConstantStr "c" ()) (ConstantStr "d" ())] Load) ()) (Expr (Subscript (Name List Load) (Slice () () (UnaryOp USub (ConstantInt 2 ()))) Load))] [])
+(Module
+    [(Expr
+        (Subscript
+            (ConstantStr
+                "LPython"
+                ()
+            )
+            (Slice
+                (ConstantInt
+                    1
+                    ()
+                )
+                (ConstantInt
+                    2
+                    ()
+                )
+                ()
+            )
+            Load
+        )
+    )
+    (Expr
+        (Subscript
+            (ConstantStr
+                "LPython"
+                ()
+            )
+            (Slice
+                (ConstantInt
+                    1
+                    ()
+                )
+                ()
+                ()
+            )
+            Load
+        )
+    )
+    (Expr
+        (Subscript
+            (ConstantStr
+                "LPython"
+                ()
+            )
+            (Slice
+                ()
+                (ConstantInt
+                    2
+                    ()
+                )
+                ()
+            )
+            Load
+        )
+    )
+    (Expr
+        (Subscript
+            (ConstantStr
+                "LPython"
+                ()
+            )
+            (Slice
+                ()
+                ()
+                ()
+            )
+            Load
+        )
+    )
+    (Expr
+        (Subscript
+            (ConstantStr
+                "LPython"
+                ()
+            )
+            (Slice
+                (ConstantInt
+                    1
+                    ()
+                )
+                (ConstantInt
+                    2
+                    ()
+                )
+                (ConstantInt
+                    3
+                    ()
+                )
+            )
+            Load
+        )
+    )
+    (Expr
+        (Subscript
+            (ConstantStr
+                "LPython"
+                ()
+            )
+            (Slice
+                (ConstantInt
+                    1
+                    ()
+                )
+                (ConstantInt
+                    2
+                    ()
+                )
+                ()
+            )
+            Load
+        )
+    )
+    (Expr
+        (Subscript
+            (ConstantStr
+                "LPython"
+                ()
+            )
+            (Slice
+                (ConstantInt
+                    1
+                    ()
+                )
+                ()
+                (ConstantInt
+                    3
+                    ()
+                )
+            )
+            Load
+        )
+    )
+    (Expr
+        (Subscript
+            (ConstantStr
+                "LPython"
+                ()
+            )
+            (Slice
+                ()
+                (ConstantInt
+                    2
+                    ()
+                )
+                (ConstantInt
+                    3
+                    ()
+                )
+            )
+            Load
+        )
+    )
+    (Expr
+        (Subscript
+            (ConstantStr
+                "LPython"
+                ()
+            )
+            (Slice
+                ()
+                ()
+                (ConstantInt
+                    3
+                    ()
+                )
+            )
+            Load
+        )
+    )
+    (Expr
+        (Subscript
+            (ConstantStr
+                "LPython"
+                ()
+            )
+            (Slice
+                ()
+                (ConstantInt
+                    2
+                    ()
+                )
+                ()
+            )
+            Load
+        )
+    )
+    (Expr
+        (Subscript
+            (ConstantStr
+                "LPython"
+                ()
+            )
+            (Slice
+                (ConstantInt
+                    1
+                    ()
+                )
+                ()
+                ()
+            )
+            Load
+        )
+    )
+    (Expr
+        (Subscript
+            (ConstantStr
+                "LPython"
+                ()
+            )
+            (Slice
+                ()
+                ()
+                ()
+            )
+            Load
+        )
+    )
+    (Assign
+        [(Name
+            List
+            Store
+        )]
+        (List
+            [(ConstantStr
+                "a"
+                ()
+            )
+            (ConstantStr
+                "b"
+                ()
+            )
+            (ConstantStr
+                "c"
+                ()
+            )
+            (ConstantStr
+                "d"
+                ()
+            )]
+            Load
+        )
+        ()
+    )
+    (Assign
+        [(Name
+            List
+            Store
+        )]
+        (List
+            [(ConstantStr
+                "a"
+                ()
+            )
+            (ConstantStr
+                "b"
+                ()
+            )
+            (ConstantStr
+                "c"
+                ()
+            )
+            (ConstantStr
+                "d"
+                ()
+            )]
+            Load
+        )
+        ()
+    )
+    (Expr
+        (Subscript
+            (Name
+                List
+                Load
+            )
+            (Slice
+                ()
+                ()
+                (UnaryOp
+                    USub
+                    (ConstantInt
+                        2
+                        ()
+                    )
+                )
+            )
+            Load
+        )
+    )]
+    []
+)
diff --git a/tests/reference/ast_new-statements1-e081093.json b/tests/reference/ast_new-statements1-e081093.json
index 820eabc63f..4615757975 100644
--- a/tests/reference/ast_new-statements1-e081093.json
+++ b/tests/reference/ast_new-statements1-e081093.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "ast_new-statements1-e081093.stdout",
-    "stdout_hash": "ca1326a095da9613e6d61bf7c2f028d651f1dbf31b1878c266af9bf9",
+    "stdout_hash": "bc316e311b5cc06fc517c2f40759673385f44af66b32bb5f85e0867a",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/ast_new-statements1-e081093.stdout b/tests/reference/ast_new-statements1-e081093.stdout
index dbe8943f15..adac7b7c1b 100644
--- a/tests/reference/ast_new-statements1-e081093.stdout
+++ b/tests/reference/ast_new-statements1-e081093.stdout
@@ -1 +1,1695 @@
-(Module [(Pass) (Break) (Continue) (Raise () ()) (Raise (Call (Name NameError Load) [(ConstantStr "String" ())] []) ()) (Raise (Name RuntimeError Load) (Name exc Load)) (Assert (Compare (Call (Name len Load) [(Name marks Load)] []) NotEq [(ConstantInt 0 ())]) (ConstantStr "List is empty." ())) (Assert (Compare (Name x Load) Eq [(ConstantStr "String" ())]) ()) (Assign [(Name x Store)] (ConstantInt 1 ()) ()) (Assign [(Tuple [(Name x Store) (Name y Store)] Store)] (Call (Name x Load) [] []) ()) (Assign [(Name x Store) (Name y Store)] (ConstantInt 1 ()) ()) (Assign [(Tuple [(Name x Store) (Name y Store)] Store)] (Tuple [(ConstantInt 1 ()) (ConstantInt 2 ())] Load) ()) (Assign [(Subscript (Name x Load) (Name i Load) Store)] (Tuple [(ConstantInt 1 ()) (ConstantInt 2 ())] Load) ()) (Assign [(Tuple [(Name x Store) (Name y Store) (Name z Store)] Store)] (Name t Load) ()) (Assign [(Tuple [(Name x Store) (Name y Store) (Name z Store)] Store)] (Name t Load) ()) (Assign [(Tuple [(Name x Store)] Store)] (Name t Load) ()) (Assign [(Tuple [(Name x Store)] Store)] (Name t Load) ()) (Assign [(Name obj Store)] (Tuple [(Name obj Load)] Load) ()) (AugAssign (Name x Store) Add (ConstantInt 1 ())) (AugAssign (Name x Store) Add (Tuple [(Name y Load) (Name z Load)] Load)) (AugAssign (Name x Store) Add (Tuple [(Tuple [(Name y Load) (Name z Load)] Load)] Load)) (AnnAssign (Name x Store) (Name i64 Load) () 1) (AnnAssign (Name y Store) (Name i32 Load) (ConstantInt 1 ()) 1) (Delete [(Name x Del)]) (Delete [(Tuple [] Del)]) (Delete [(Tuple [(Name x Del) (Name y Del)] Del)]) (Delete [(Tuple [(Name x Del) (Name y Del)] Del)]) (Delete [(Name x Del) (Name y Del)]) (Delete [(Name x Del) (Name y Del)]) (Return ()) (Return (BinOp (Name a Load) Add (Name b Load))) (Return (Call (Name x Load) [(Name a Load)] [])) (Return (Tuple [] Load)) (Return (Tuple [(Name x Load) (Name y Load)] Load)) (Return (Tuple [(Name x Load) (Name y Load)] Load)) (Return (Tuple [(Name x Load) (Name y Load)] Load)) (Return (Tuple [(Name x Load) (Name y Load)] Load)) (Global [a]) (Global [a b]) (Nonlocal [a]) (Nonlocal [a b]) (Expr (ConstantInt 123 ())) (Expr (UnaryOp USub (ConstantInt 123 ()))) (Expr (UnaryOp USub (ConstantInt 291 ()))) (Expr (ConstantInt 6844 ())) (Expr (UnaryOp USub (ConstantInt 83 ()))) (Expr (ConstantInt 87 ())) (Expr (UnaryOp USub (ConstantInt 13 ()))) (Expr (ConstantInt 13 ())) (Expr (ConstantInt 32768 ())) (Expr (ConstantInt 12 ())) (Expr (ConstantInt 23440334322333 ())) (Expr (ConstantFloat 123.000000 ())) (Expr (ConstantFloat 123.450000 ())) (Expr (ConstantFloat 123400000000.000000 ())) (Expr (BinOp (ConstantInt 12 ()) Add (ConstantComplex 0.000000 3.000000 ()))) (Expr (BinOp (ConstantFloat 0.120000 ()) Add (ConstantComplex 0.000000 0.001000 ()))) (Expr (ConstantStr "String" ())) (Expr (ConstantStr "String String" ())) (Expr (ConstantStr "String String" ())) (Expr (ConstantStr "String String" ())) (Expr (Subscript (ConstantStr "String String" ()) (Slice (ConstantInt 1 ()) () ()) Load)) (Assign [(Name x Store)] (ConstantStr "String String" ()) ()) (Assign [(Name x Store)] (BinOp (ConstantStr "String " ()) Add (ConstantStr "String" ())) ()) (Assign [(Name x Store)] (ConstantStr "String String" ()) ()) (Assign [(Name x Store)] (ConstantStr "String String" ()) ()) (Assign [(Name x Store)] (ConstantStr "String " ()) ()) (Expr (ConstantStr "String" ())) (Expr (ConstantBool .true. ())) (Expr (ConstantBool .false. ())) (Expr (BinOp (BinOp (Name x Load) Add (Name y Load)) Mult (Name z Load))) (Expr (BinOp (Name x Load) Sub (Name y Load))) (Expr (BinOp (Name x Load) Mult (Name y Load))) (Expr (BinOp (Name x Load) Div (Name y Load))) (Expr (BinOp (Name x Load) Mod (Name y Load))) (Expr (UnaryOp USub (Name y Load))) (Expr (UnaryOp UAdd (Name y Load))) (Expr (UnaryOp Invert (Name y Load))) (Expr (BinOp (Name x Load) Pow (Name y Load))) (Expr (BinOp (Name x Load) FloorDiv (Name y Load))) (Expr (BinOp (Name x Load) MatMult (Name y Load))) (Expr (BinOp (Name x Load) BitAnd (Name y Load))) (Expr (BinOp (Name x Load) BitOr (Name y Load))) (Expr (BinOp (Name x Load) BitXor (Name y Load))) (Expr (BinOp (Name x Load) LShift (Name y Load))) (Expr (BinOp (Name x Load) RShift (Name y Load))) (Expr (Compare (Name x Load) Eq [(Name y Load)])) (Expr (Compare (Name x Load) NotEq [(Name y Load)])) (Expr (Compare (Name x Load) Lt [(Name y Load)])) (Expr (Compare (Name x Load) LtE [(Name y Load)])) (Expr (Compare (Name x Load) Gt [(Name y Load)])) (Expr (Compare (Name x Load) GtE [(Name y Load)])) (Expr (Compare (ConstantStr "hello" ()) In [(Name x Load)])) (Expr (Compare (ConstantStr "a" ()) In [(Call (Attribute (Name a Load) func Load) [] [])])) (Expr (Compare (ConstantStr "lo" ()) In [(ConstantStr "hello" ())])) (Expr (Subscript (Attribute (Name a Load) b Load) (ConstantInt 1 ()) Load)) (Expr (Subscript (Attribute (Name a Load) b Load) (Tuple [(ConstantInt 1 ())] Load) Load)) (Expr (Subscript (Attribute (Name a Load) b Load) (Slice (ConstantInt 1 ()) () ()) Load)) (Expr (Subscript (Attribute (Name a Load) b Load) (Slice () (UnaryOp USub (ConstantInt 1 ())) ()) Load)) (Expr (Subscript (Attribute (Name a Load) b Load) (Slice (ConstantInt 1 ()) (ConstantInt 2 ()) ()) Load)) (Expr (Subscript (Attribute (Name a Load) b Load) (Slice () () ()) Load)) (Expr (Subscript (Attribute (Name y Load) z Load) (Slice (ConstantInt 1 ()) (ConstantInt 2 ()) (ConstantInt 3 ())) Load)) (Expr (Subscript (Attribute (Name y Load) z Load) (Slice (ConstantInt 1 ()) () (ConstantInt 3 ())) Load)) (Expr (Subscript (Attribute (Name y Load) z Load) (Slice (ConstantInt 1 ()) () ()) Load)) (Assign [(Name x Store)] (NamedExpr (Name y Store) (ConstantInt 0 ())) ()) (If (NamedExpr (Name a Store) (Call (Name ord Load) [(ConstantStr "3" ())] [])) [(Assign [(Name x Store)] (ConstantInt 1 ()) ())] []) (Assign [(Name a Store)] (Set [(ConstantInt 1 ()) (ConstantInt 2 ()) (ConstantInt 3 ())]) ()) (Assign [(Name a Store)] (Set [(ConstantInt 1 ()) (ConstantInt 2 ()) (ConstantInt 3 ())]) ()) (AnnAssign (Name output Store) (Name bool Load) (Compare (Name x Load) Eq [(Name y Load)]) 1) (AnnAssign (Name output Store) (Name bool Load) () 1) (Assign [(Name output Store)] (Compare (Name x Load) Eq [(Name y Load)]) ()) (AnnAssign (Name output Store) (Name bool Load) (Compare (Name x Load) Gt [(Name y Load)]) 1) (AnnAssign (Name output Store) (Name bool Load) () 1) (Assign [(Name output Store)] (Compare (Name x Load) Gt [(Name y Load)]) ()) (AnnAssign (Name output Store) (Name bool Load) (Compare (List [(Name x Load)] Load) NotIn [(List [(Name y Load)] Load)]) 1) (AnnAssign (Name output Store) (Name bool Load) () 1) (Assign [(Name output Store)] (Compare (List [(Name x Load)] Load) NotIn [(List [(Name y Load)] Load)]) ()) (FunctionDef comparison_return ([] [(a () ()) (b () ())] [] [] [] [] []) [(Return (Compare (Name a Load) Gt [(Name b Load)]))] [] () ()) (FunctionDef comparison_return ([] [(a () ()) (b () ())] [] [] [] [] []) [(Return (Compare (List [(Name a Load)] Load) In [(List [(Name b Load)] Load)]))] [] () ()) (FunctionDef comparison_return ([] [(a () ()) (b () ())] [] [] [] [] []) [(AnnAssign (Name output Store) (Name bool Load) () 1) (Assign [(Name output Store)] (Compare (List [(Name a Load)] Load) NotIn [(List [(Name b Load)] Load)]) ()) (Return (Name output Load))] [] () ()) (FunctionDef comparison_return ([] [(a () ()) (b () ())] [] [] [] [] []) [(Assign [(Name output Store)] (Compare (List [(Name a Load)] Load) NotIn [(List [(Name b Load)] Load)]) ()) (Return (Name output Load))] [] () ())] [])
+(Module
+    [(Pass)
+    (Break)
+    (Continue)
+    (Raise
+        ()
+        ()
+    )
+    (Raise
+        (Call
+            (Name
+                NameError
+                Load
+            )
+            [(ConstantStr
+                "String"
+                ()
+            )]
+            []
+        )
+        ()
+    )
+    (Raise
+        (Name
+            RuntimeError
+            Load
+        )
+        (Name
+            exc
+            Load
+        )
+    )
+    (Assert
+        (Compare
+            (Call
+                (Name
+                    len
+                    Load
+                )
+                [(Name
+                    marks
+                    Load
+                )]
+                []
+            )
+            NotEq
+            [(ConstantInt
+                0
+                ()
+            )]
+        )
+        (ConstantStr
+            "List is empty."
+            ()
+        )
+    )
+    (Assert
+        (Compare
+            (Name
+                x
+                Load
+            )
+            Eq
+            [(ConstantStr
+                "String"
+                ()
+            )]
+        )
+        ()
+    )
+    (Assign
+        [(Name
+            x
+            Store
+        )]
+        (ConstantInt
+            1
+            ()
+        )
+        ()
+    )
+    (Assign
+        [(Tuple
+            [(Name
+                x
+                Store
+            )
+            (Name
+                y
+                Store
+            )]
+            Store
+        )]
+        (Call
+            (Name
+                x
+                Load
+            )
+            []
+            []
+        )
+        ()
+    )
+    (Assign
+        [(Name
+            x
+            Store
+        )
+        (Name
+            y
+            Store
+        )]
+        (ConstantInt
+            1
+            ()
+        )
+        ()
+    )
+    (Assign
+        [(Tuple
+            [(Name
+                x
+                Store
+            )
+            (Name
+                y
+                Store
+            )]
+            Store
+        )]
+        (Tuple
+            [(ConstantInt
+                1
+                ()
+            )
+            (ConstantInt
+                2
+                ()
+            )]
+            Load
+        )
+        ()
+    )
+    (Assign
+        [(Subscript
+            (Name
+                x
+                Load
+            )
+            (Name
+                i
+                Load
+            )
+            Store
+        )]
+        (Tuple
+            [(ConstantInt
+                1
+                ()
+            )
+            (ConstantInt
+                2
+                ()
+            )]
+            Load
+        )
+        ()
+    )
+    (Assign
+        [(Tuple
+            [(Name
+                x
+                Store
+            )
+            (Name
+                y
+                Store
+            )
+            (Name
+                z
+                Store
+            )]
+            Store
+        )]
+        (Name
+            t
+            Load
+        )
+        ()
+    )
+    (Assign
+        [(Tuple
+            [(Name
+                x
+                Store
+            )
+            (Name
+                y
+                Store
+            )
+            (Name
+                z
+                Store
+            )]
+            Store
+        )]
+        (Name
+            t
+            Load
+        )
+        ()
+    )
+    (Assign
+        [(Tuple
+            [(Name
+                x
+                Store
+            )]
+            Store
+        )]
+        (Name
+            t
+            Load
+        )
+        ()
+    )
+    (Assign
+        [(Tuple
+            [(Name
+                x
+                Store
+            )]
+            Store
+        )]
+        (Name
+            t
+            Load
+        )
+        ()
+    )
+    (Assign
+        [(Name
+            obj
+            Store
+        )]
+        (Tuple
+            [(Name
+                obj
+                Load
+            )]
+            Load
+        )
+        ()
+    )
+    (AugAssign
+        (Name
+            x
+            Store
+        )
+        Add
+        (ConstantInt
+            1
+            ()
+        )
+    )
+    (AugAssign
+        (Name
+            x
+            Store
+        )
+        Add
+        (Tuple
+            [(Name
+                y
+                Load
+            )
+            (Name
+                z
+                Load
+            )]
+            Load
+        )
+    )
+    (AugAssign
+        (Name
+            x
+            Store
+        )
+        Add
+        (Tuple
+            [(Tuple
+                [(Name
+                    y
+                    Load
+                )
+                (Name
+                    z
+                    Load
+                )]
+                Load
+            )]
+            Load
+        )
+    )
+    (AnnAssign
+        (Name
+            x
+            Store
+        )
+        (Name
+            i64
+            Load
+        )
+        ()
+        1
+    )
+    (AnnAssign
+        (Name
+            y
+            Store
+        )
+        (Name
+            i32
+            Load
+        )
+        (ConstantInt
+            1
+            ()
+        )
+        1
+    )
+    (Delete
+        [(Name
+            x
+            Del
+        )]
+    )
+    (Delete
+        [(Tuple
+            []
+            Del
+        )]
+    )
+    (Delete
+        [(Tuple
+            [(Name
+                x
+                Del
+            )
+            (Name
+                y
+                Del
+            )]
+            Del
+        )]
+    )
+    (Delete
+        [(Tuple
+            [(Name
+                x
+                Del
+            )
+            (Name
+                y
+                Del
+            )]
+            Del
+        )]
+    )
+    (Delete
+        [(Name
+            x
+            Del
+        )
+        (Name
+            y
+            Del
+        )]
+    )
+    (Delete
+        [(Name
+            x
+            Del
+        )
+        (Name
+            y
+            Del
+        )]
+    )
+    (Return
+        ()
+    )
+    (Return
+        (BinOp
+            (Name
+                a
+                Load
+            )
+            Add
+            (Name
+                b
+                Load
+            )
+        )
+    )
+    (Return
+        (Call
+            (Name
+                x
+                Load
+            )
+            [(Name
+                a
+                Load
+            )]
+            []
+        )
+    )
+    (Return
+        (Tuple
+            []
+            Load
+        )
+    )
+    (Return
+        (Tuple
+            [(Name
+                x
+                Load
+            )
+            (Name
+                y
+                Load
+            )]
+            Load
+        )
+    )
+    (Return
+        (Tuple
+            [(Name
+                x
+                Load
+            )
+            (Name
+                y
+                Load
+            )]
+            Load
+        )
+    )
+    (Return
+        (Tuple
+            [(Name
+                x
+                Load
+            )
+            (Name
+                y
+                Load
+            )]
+            Load
+        )
+    )
+    (Return
+        (Tuple
+            [(Name
+                x
+                Load
+            )
+            (Name
+                y
+                Load
+            )]
+            Load
+        )
+    )
+    (Global
+        [a]
+    )
+    (Global
+        [a
+        b]
+    )
+    (Nonlocal
+        [a]
+    )
+    (Nonlocal
+        [a
+        b]
+    )
+    (Expr
+        (ConstantInt
+            123
+            ()
+        )
+    )
+    (Expr
+        (UnaryOp
+            USub
+            (ConstantInt
+                123
+                ()
+            )
+        )
+    )
+    (Expr
+        (UnaryOp
+            USub
+            (ConstantInt
+                291
+                ()
+            )
+        )
+    )
+    (Expr
+        (ConstantInt
+            6844
+            ()
+        )
+    )
+    (Expr
+        (UnaryOp
+            USub
+            (ConstantInt
+                83
+                ()
+            )
+        )
+    )
+    (Expr
+        (ConstantInt
+            87
+            ()
+        )
+    )
+    (Expr
+        (UnaryOp
+            USub
+            (ConstantInt
+                13
+                ()
+            )
+        )
+    )
+    (Expr
+        (ConstantInt
+            13
+            ()
+        )
+    )
+    (Expr
+        (ConstantInt
+            32768
+            ()
+        )
+    )
+    (Expr
+        (ConstantInt
+            12
+            ()
+        )
+    )
+    (Expr
+        (ConstantInt
+            23440334322333
+            ()
+        )
+    )
+    (Expr
+        (ConstantFloat
+            123.000000
+            ()
+        )
+    )
+    (Expr
+        (ConstantFloat
+            123.450000
+            ()
+        )
+    )
+    (Expr
+        (ConstantFloat
+            123400000000.000000
+            ()
+        )
+    )
+    (Expr
+        (BinOp
+            (ConstantInt
+                12
+                ()
+            )
+            Add
+            (ConstantComplex
+                0.000000
+                3.000000
+                ()
+            )
+        )
+    )
+    (Expr
+        (BinOp
+            (ConstantFloat
+                0.120000
+                ()
+            )
+            Add
+            (ConstantComplex
+                0.000000
+                0.001000
+                ()
+            )
+        )
+    )
+    (Expr
+        (ConstantStr
+            "String"
+            ()
+        )
+    )
+    (Expr
+        (ConstantStr
+            "String String"
+            ()
+        )
+    )
+    (Expr
+        (ConstantStr
+            "String String"
+            ()
+        )
+    )
+    (Expr
+        (ConstantStr
+            "String String"
+            ()
+        )
+    )
+    (Expr
+        (Subscript
+            (ConstantStr
+                "String String"
+                ()
+            )
+            (Slice
+                (ConstantInt
+                    1
+                    ()
+                )
+                ()
+                ()
+            )
+            Load
+        )
+    )
+    (Assign
+        [(Name
+            x
+            Store
+        )]
+        (ConstantStr
+            "String String"
+            ()
+        )
+        ()
+    )
+    (Assign
+        [(Name
+            x
+            Store
+        )]
+        (BinOp
+            (ConstantStr
+                "String "
+                ()
+            )
+            Add
+            (ConstantStr
+                "String"
+                ()
+            )
+        )
+        ()
+    )
+    (Assign
+        [(Name
+            x
+            Store
+        )]
+        (ConstantStr
+            "String String"
+            ()
+        )
+        ()
+    )
+    (Assign
+        [(Name
+            x
+            Store
+        )]
+        (ConstantStr
+            "String String"
+            ()
+        )
+        ()
+    )
+    (Assign
+        [(Name
+            x
+            Store
+        )]
+        (ConstantStr
+            "String "
+            ()
+        )
+        ()
+    )
+    (Expr
+        (ConstantStr
+            "String"
+            ()
+        )
+    )
+    (Expr
+        (ConstantBool
+            .true.
+            ()
+        )
+    )
+    (Expr
+        (ConstantBool
+            .false.
+            ()
+        )
+    )
+    (Expr
+        (BinOp
+            (BinOp
+                (Name
+                    x
+                    Load
+                )
+                Add
+                (Name
+                    y
+                    Load
+                )
+            )
+            Mult
+            (Name
+                z
+                Load
+            )
+        )
+    )
+    (Expr
+        (BinOp
+            (Name
+                x
+                Load
+            )
+            Sub
+            (Name
+                y
+                Load
+            )
+        )
+    )
+    (Expr
+        (BinOp
+            (Name
+                x
+                Load
+            )
+            Mult
+            (Name
+                y
+                Load
+            )
+        )
+    )
+    (Expr
+        (BinOp
+            (Name
+                x
+                Load
+            )
+            Div
+            (Name
+                y
+                Load
+            )
+        )
+    )
+    (Expr
+        (BinOp
+            (Name
+                x
+                Load
+            )
+            Mod
+            (Name
+                y
+                Load
+            )
+        )
+    )
+    (Expr
+        (UnaryOp
+            USub
+            (Name
+                y
+                Load
+            )
+        )
+    )
+    (Expr
+        (UnaryOp
+            UAdd
+            (Name
+                y
+                Load
+            )
+        )
+    )
+    (Expr
+        (UnaryOp
+            Invert
+            (Name
+                y
+                Load
+            )
+        )
+    )
+    (Expr
+        (BinOp
+            (Name
+                x
+                Load
+            )
+            Pow
+            (Name
+                y
+                Load
+            )
+        )
+    )
+    (Expr
+        (BinOp
+            (Name
+                x
+                Load
+            )
+            FloorDiv
+            (Name
+                y
+                Load
+            )
+        )
+    )
+    (Expr
+        (BinOp
+            (Name
+                x
+                Load
+            )
+            MatMult
+            (Name
+                y
+                Load
+            )
+        )
+    )
+    (Expr
+        (BinOp
+            (Name
+                x
+                Load
+            )
+            BitAnd
+            (Name
+                y
+                Load
+            )
+        )
+    )
+    (Expr
+        (BinOp
+            (Name
+                x
+                Load
+            )
+            BitOr
+            (Name
+                y
+                Load
+            )
+        )
+    )
+    (Expr
+        (BinOp
+            (Name
+                x
+                Load
+            )
+            BitXor
+            (Name
+                y
+                Load
+            )
+        )
+    )
+    (Expr
+        (BinOp
+            (Name
+                x
+                Load
+            )
+            LShift
+            (Name
+                y
+                Load
+            )
+        )
+    )
+    (Expr
+        (BinOp
+            (Name
+                x
+                Load
+            )
+            RShift
+            (Name
+                y
+                Load
+            )
+        )
+    )
+    (Expr
+        (Compare
+            (Name
+                x
+                Load
+            )
+            Eq
+            [(Name
+                y
+                Load
+            )]
+        )
+    )
+    (Expr
+        (Compare
+            (Name
+                x
+                Load
+            )
+            NotEq
+            [(Name
+                y
+                Load
+            )]
+        )
+    )
+    (Expr
+        (Compare
+            (Name
+                x
+                Load
+            )
+            Lt
+            [(Name
+                y
+                Load
+            )]
+        )
+    )
+    (Expr
+        (Compare
+            (Name
+                x
+                Load
+            )
+            LtE
+            [(Name
+                y
+                Load
+            )]
+        )
+    )
+    (Expr
+        (Compare
+            (Name
+                x
+                Load
+            )
+            Gt
+            [(Name
+                y
+                Load
+            )]
+        )
+    )
+    (Expr
+        (Compare
+            (Name
+                x
+                Load
+            )
+            GtE
+            [(Name
+                y
+                Load
+            )]
+        )
+    )
+    (Expr
+        (Membership
+            (ConstantStr
+                "hello"
+                ()
+            )
+            In
+            (Name
+                x
+                Load
+            )
+        )
+    )
+    (Expr
+        (Membership
+            (ConstantStr
+                "a"
+                ()
+            )
+            In
+            (Call
+                (Attribute
+                    (Name
+                        a
+                        Load
+                    )
+                    func
+                    Load
+                )
+                []
+                []
+            )
+        )
+    )
+    (Expr
+        (Membership
+            (ConstantStr
+                "lo"
+                ()
+            )
+            In
+            (ConstantStr
+                "hello"
+                ()
+            )
+        )
+    )
+    (Expr
+        (Subscript
+            (Attribute
+                (Name
+                    a
+                    Load
+                )
+                b
+                Load
+            )
+            (ConstantInt
+                1
+                ()
+            )
+            Load
+        )
+    )
+    (Expr
+        (Subscript
+            (Attribute
+                (Name
+                    a
+                    Load
+                )
+                b
+                Load
+            )
+            (Tuple
+                [(ConstantInt
+                    1
+                    ()
+                )]
+                Load
+            )
+            Load
+        )
+    )
+    (Expr
+        (Subscript
+            (Attribute
+                (Name
+                    a
+                    Load
+                )
+                b
+                Load
+            )
+            (Slice
+                (ConstantInt
+                    1
+                    ()
+                )
+                ()
+                ()
+            )
+            Load
+        )
+    )
+    (Expr
+        (Subscript
+            (Attribute
+                (Name
+                    a
+                    Load
+                )
+                b
+                Load
+            )
+            (Slice
+                ()
+                (UnaryOp
+                    USub
+                    (ConstantInt
+                        1
+                        ()
+                    )
+                )
+                ()
+            )
+            Load
+        )
+    )
+    (Expr
+        (Subscript
+            (Attribute
+                (Name
+                    a
+                    Load
+                )
+                b
+                Load
+            )
+            (Slice
+                (ConstantInt
+                    1
+                    ()
+                )
+                (ConstantInt
+                    2
+                    ()
+                )
+                ()
+            )
+            Load
+        )
+    )
+    (Expr
+        (Subscript
+            (Attribute
+                (Name
+                    a
+                    Load
+                )
+                b
+                Load
+            )
+            (Slice
+                ()
+                ()
+                ()
+            )
+            Load
+        )
+    )
+    (Expr
+        (Subscript
+            (Attribute
+                (Name
+                    y
+                    Load
+                )
+                z
+                Load
+            )
+            (Slice
+                (ConstantInt
+                    1
+                    ()
+                )
+                (ConstantInt
+                    2
+                    ()
+                )
+                (ConstantInt
+                    3
+                    ()
+                )
+            )
+            Load
+        )
+    )
+    (Expr
+        (Subscript
+            (Attribute
+                (Name
+                    y
+                    Load
+                )
+                z
+                Load
+            )
+            (Slice
+                (ConstantInt
+                    1
+                    ()
+                )
+                ()
+                (ConstantInt
+                    3
+                    ()
+                )
+            )
+            Load
+        )
+    )
+    (Expr
+        (Subscript
+            (Attribute
+                (Name
+                    y
+                    Load
+                )
+                z
+                Load
+            )
+            (Slice
+                (ConstantInt
+                    1
+                    ()
+                )
+                ()
+                ()
+            )
+            Load
+        )
+    )
+    (Assign
+        [(Name
+            x
+            Store
+        )]
+        (NamedExpr
+            (Name
+                y
+                Store
+            )
+            (ConstantInt
+                0
+                ()
+            )
+        )
+        ()
+    )
+    (If
+        (NamedExpr
+            (Name
+                a
+                Store
+            )
+            (Call
+                (Name
+                    ord
+                    Load
+                )
+                [(ConstantStr
+                    "3"
+                    ()
+                )]
+                []
+            )
+        )
+        [(Assign
+            [(Name
+                x
+                Store
+            )]
+            (ConstantInt
+                1
+                ()
+            )
+            ()
+        )]
+        []
+    )
+    (Assign
+        [(Name
+            a
+            Store
+        )]
+        (Set
+            [(ConstantInt
+                1
+                ()
+            )
+            (ConstantInt
+                2
+                ()
+            )
+            (ConstantInt
+                3
+                ()
+            )]
+        )
+        ()
+    )
+    (Assign
+        [(Name
+            a
+            Store
+        )]
+        (Set
+            [(ConstantInt
+                1
+                ()
+            )
+            (ConstantInt
+                2
+                ()
+            )
+            (ConstantInt
+                3
+                ()
+            )]
+        )
+        ()
+    )
+    (AnnAssign
+        (Name
+            output
+            Store
+        )
+        (Name
+            bool
+            Load
+        )
+        (Compare
+            (Name
+                x
+                Load
+            )
+            Eq
+            [(Name
+                y
+                Load
+            )]
+        )
+        1
+    )
+    (AnnAssign
+        (Name
+            output
+            Store
+        )
+        (Name
+            bool
+            Load
+        )
+        ()
+        1
+    )
+    (Assign
+        [(Name
+            output
+            Store
+        )]
+        (Compare
+            (Name
+                x
+                Load
+            )
+            Eq
+            [(Name
+                y
+                Load
+            )]
+        )
+        ()
+    )
+    (AnnAssign
+        (Name
+            output
+            Store
+        )
+        (Name
+            bool
+            Load
+        )
+        (Compare
+            (Name
+                x
+                Load
+            )
+            Gt
+            [(Name
+                y
+                Load
+            )]
+        )
+        1
+    )
+    (AnnAssign
+        (Name
+            output
+            Store
+        )
+        (Name
+            bool
+            Load
+        )
+        ()
+        1
+    )
+    (Assign
+        [(Name
+            output
+            Store
+        )]
+        (Compare
+            (Name
+                x
+                Load
+            )
+            Gt
+            [(Name
+                y
+                Load
+            )]
+        )
+        ()
+    )
+    (AnnAssign
+        (Name
+            output
+            Store
+        )
+        (Name
+            bool
+            Load
+        )
+        (Membership
+            (List
+                [(Name
+                    x
+                    Load
+                )]
+                Load
+            )
+            NotIn
+            (List
+                [(Name
+                    y
+                    Load
+                )]
+                Load
+            )
+        )
+        1
+    )
+    (AnnAssign
+        (Name
+            output
+            Store
+        )
+        (Name
+            bool
+            Load
+        )
+        ()
+        1
+    )
+    (Assign
+        [(Name
+            output
+            Store
+        )]
+        (Membership
+            (List
+                [(Name
+                    x
+                    Load
+                )]
+                Load
+            )
+            NotIn
+            (List
+                [(Name
+                    y
+                    Load
+                )]
+                Load
+            )
+        )
+        ()
+    )
+    (FunctionDef
+        comparison_return
+        ([]
+        [(a
+        ()
+        ())
+        (b
+        ()
+        ())]
+        []
+        []
+        []
+        []
+        [])
+        [(Return
+            (Compare
+                (Name
+                    a
+                    Load
+                )
+                Gt
+                [(Name
+                    b
+                    Load
+                )]
+            )
+        )]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        comparison_return
+        ([]
+        [(a
+        ()
+        ())
+        (b
+        ()
+        ())]
+        []
+        []
+        []
+        []
+        [])
+        [(Return
+            (Membership
+                (List
+                    [(Name
+                        a
+                        Load
+                    )]
+                    Load
+                )
+                In
+                (List
+                    [(Name
+                        b
+                        Load
+                    )]
+                    Load
+                )
+            )
+        )]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        comparison_return
+        ([]
+        [(a
+        ()
+        ())
+        (b
+        ()
+        ())]
+        []
+        []
+        []
+        []
+        [])
+        [(AnnAssign
+            (Name
+                output
+                Store
+            )
+            (Name
+                bool
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                output
+                Store
+            )]
+            (Membership
+                (List
+                    [(Name
+                        a
+                        Load
+                    )]
+                    Load
+                )
+                NotIn
+                (List
+                    [(Name
+                        b
+                        Load
+                    )]
+                    Load
+                )
+            )
+            ()
+        )
+        (Return
+            (Name
+                output
+                Load
+            )
+        )]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        comparison_return
+        ([]
+        [(a
+        ()
+        ())
+        (b
+        ()
+        ())]
+        []
+        []
+        []
+        []
+        [])
+        [(Assign
+            [(Name
+                output
+                Store
+            )]
+            (Membership
+                (List
+                    [(Name
+                        a
+                        Load
+                    )]
+                    Load
+                )
+                NotIn
+                (List
+                    [(Name
+                        b
+                        Load
+                    )]
+                    Load
+                )
+            )
+            ()
+        )
+        (Return
+            (Name
+                output
+                Load
+            )
+        )]
+        []
+        ()
+        ()
+    )]
+    []
+)
diff --git a/tests/reference/ast_new-statements2-c4cdc5f.json b/tests/reference/ast_new-statements2-c4cdc5f.json
index 138050e88f..2d579649cd 100644
--- a/tests/reference/ast_new-statements2-c4cdc5f.json
+++ b/tests/reference/ast_new-statements2-c4cdc5f.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "ast_new-statements2-c4cdc5f.stdout",
-    "stdout_hash": "24a915b924b34f39fd72c541e9132c6e887faee540d6a9f5f63b0b4e",
+    "stdout_hash": "5df7c032836575768db845fd1aba55609d5691833e3439d5c077ebae",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/ast_new-statements2-c4cdc5f.stdout b/tests/reference/ast_new-statements2-c4cdc5f.stdout
index 80fafe2e2c..49de84c2a4 100644
--- a/tests/reference/ast_new-statements2-c4cdc5f.stdout
+++ b/tests/reference/ast_new-statements2-c4cdc5f.stdout
@@ -1 +1,507 @@
-(Module [(Expr (Call (Call (Call (Name getattr Load) [(Name x Load) (Name y Load)] []) [(Name a Load) (Name b Load)] []) [(ConstantInt 5 ())] [(a (Name a Load)) (b (ConstantInt 0 ()))])) (Expr (Call (Call (Name func Load) [(Name a Load) (Name _op Load)] []) [(Name s Load)] [])) (Expr (Call (Call (Name test Load) [] []) [] [])) (Assign [(Name a Store)] (Subscript (List [(ConstantInt 1 ()) (ConstantInt 2 ())] Load) (ConstantInt 0 ()) Load) ()) (Assign [(Tuple [(Name a Store) (Name b Store)] Store)] (Subscript (BinOp (List [(ConstantInt 1 ()) (ConstantInt 2 ())] Load) Add (List [(ConstantInt 0 ()) (ConstantInt 0 ())] Load)) (Slice () (ConstantInt 2 ()) ()) Load) ()) (Assign [(Tuple [(Name a Store) (Name b Store)] Store)] (Subscript (BinOp (Call (Attribute (Name c Load) d Load) [] []) Add (List [(ConstantInt 1 ()) (ConstantInt 0 ())] Load)) (Slice () () ()) Load) ()) (Expr (Subscript (Dict [(ConstantStr "a" ()) (ConstantStr "b" ())] [(Name a Load) (Name b Load)]) (Name val Load) Load)) (If (Compare (Subscript (Subscript (Name args Load) (Name i Load) Load) (Slice () (ConstantInt 1 ()) ()) Load) In [(List [(ConstantStr "" ()) (ConstantStr "." ())] Load)]) [(Pass)] []) (Assign [(Name x Store)] (List [(Subscript (ListComp (BinOp (UnaryOp USub (Name c Load)) Mod (Name self Load)) [((Name c Store) (Call (Name reversed Load) [(Attribute (Attribute (Name T Load) rep Load) rep Load)] []) [] 0)]) (Slice () (UnaryOp USub (ConstantInt 1 ())) ()) Load)] Load) ()) (Expr (Subscript (ListComp (Name x Load) [((Name x Store) (Name G Load) [(Call (Attribute (Attribute (Name self Load) ring Load) is_unit Load) [(Subscript (Name x Load) (ConstantInt 0 ()) Load)] [])] 0)]) (ConstantInt 0 ()) Load)) (If (Compare (Name x Load) NotIn [(Name z Load)]) [(Expr (ConstantEllipsis ()))] []) (If (Compare (Name x Load) NotIn [(Name z Load)]) [(Expr (ConstantEllipsis ()))] []) (If (Compare (Name x Load) NotIn [(Name z Load)]) [(Expr (ConstantEllipsis ()))] []) (If (Compare (Name x Load) NotIn [(Name z Load)]) [(Expr (ConstantEllipsis ()))] []) (FunctionDef imatmul ([] [(a () ()) (b () ())] [] [] [] [] []) [(Expr (ConstantStr "Same as a @= b." ())) (AugAssign (Name a Store) MatMult (Name b Load)) (Return (Name a Load))] [] () ())] [])
+(Module
+    [(Expr
+        (Call
+            (Call
+                (Call
+                    (Name
+                        getattr
+                        Load
+                    )
+                    [(Name
+                        x
+                        Load
+                    )
+                    (Name
+                        y
+                        Load
+                    )]
+                    []
+                )
+                [(Name
+                    a
+                    Load
+                )
+                (Name
+                    b
+                    Load
+                )]
+                []
+            )
+            [(ConstantInt
+                5
+                ()
+            )]
+            [(a
+            (Name
+                a
+                Load
+            ))
+            (b
+            (ConstantInt
+                0
+                ()
+            ))]
+        )
+    )
+    (Expr
+        (Call
+            (Call
+                (Name
+                    func
+                    Load
+                )
+                [(Name
+                    a
+                    Load
+                )
+                (Name
+                    _op
+                    Load
+                )]
+                []
+            )
+            [(Name
+                s
+                Load
+            )]
+            []
+        )
+    )
+    (Expr
+        (Call
+            (Call
+                (Name
+                    test
+                    Load
+                )
+                []
+                []
+            )
+            []
+            []
+        )
+    )
+    (Assign
+        [(Name
+            a
+            Store
+        )]
+        (Subscript
+            (List
+                [(ConstantInt
+                    1
+                    ()
+                )
+                (ConstantInt
+                    2
+                    ()
+                )]
+                Load
+            )
+            (ConstantInt
+                0
+                ()
+            )
+            Load
+        )
+        ()
+    )
+    (Assign
+        [(Tuple
+            [(Name
+                a
+                Store
+            )
+            (Name
+                b
+                Store
+            )]
+            Store
+        )]
+        (Subscript
+            (BinOp
+                (List
+                    [(ConstantInt
+                        1
+                        ()
+                    )
+                    (ConstantInt
+                        2
+                        ()
+                    )]
+                    Load
+                )
+                Add
+                (List
+                    [(ConstantInt
+                        0
+                        ()
+                    )
+                    (ConstantInt
+                        0
+                        ()
+                    )]
+                    Load
+                )
+            )
+            (Slice
+                ()
+                (ConstantInt
+                    2
+                    ()
+                )
+                ()
+            )
+            Load
+        )
+        ()
+    )
+    (Assign
+        [(Tuple
+            [(Name
+                a
+                Store
+            )
+            (Name
+                b
+                Store
+            )]
+            Store
+        )]
+        (Subscript
+            (BinOp
+                (Call
+                    (Attribute
+                        (Name
+                            c
+                            Load
+                        )
+                        d
+                        Load
+                    )
+                    []
+                    []
+                )
+                Add
+                (List
+                    [(ConstantInt
+                        1
+                        ()
+                    )
+                    (ConstantInt
+                        0
+                        ()
+                    )]
+                    Load
+                )
+            )
+            (Slice
+                ()
+                ()
+                ()
+            )
+            Load
+        )
+        ()
+    )
+    (Expr
+        (Subscript
+            (Dict
+                [(ConstantStr
+                    "a"
+                    ()
+                )
+                (ConstantStr
+                    "b"
+                    ()
+                )]
+                [(Name
+                    a
+                    Load
+                )
+                (Name
+                    b
+                    Load
+                )]
+            )
+            (Name
+                val
+                Load
+            )
+            Load
+        )
+    )
+    (If
+        (Membership
+            (Subscript
+                (Subscript
+                    (Name
+                        args
+                        Load
+                    )
+                    (Name
+                        i
+                        Load
+                    )
+                    Load
+                )
+                (Slice
+                    ()
+                    (ConstantInt
+                        1
+                        ()
+                    )
+                    ()
+                )
+                Load
+            )
+            In
+            (List
+                [(ConstantStr
+                    ""
+                    ()
+                )
+                (ConstantStr
+                    "."
+                    ()
+                )]
+                Load
+            )
+        )
+        [(Pass)]
+        []
+    )
+    (Assign
+        [(Name
+            x
+            Store
+        )]
+        (List
+            [(Subscript
+                (ListComp
+                    (BinOp
+                        (UnaryOp
+                            USub
+                            (Name
+                                c
+                                Load
+                            )
+                        )
+                        Mod
+                        (Name
+                            self
+                            Load
+                        )
+                    )
+                    [((Name
+                        c
+                        Store
+                    )
+                    (Call
+                        (Name
+                            reversed
+                            Load
+                        )
+                        [(Attribute
+                            (Attribute
+                                (Name
+                                    T
+                                    Load
+                                )
+                                rep
+                                Load
+                            )
+                            rep
+                            Load
+                        )]
+                        []
+                    )
+                    []
+                    0)]
+                )
+                (Slice
+                    ()
+                    (UnaryOp
+                        USub
+                        (ConstantInt
+                            1
+                            ()
+                        )
+                    )
+                    ()
+                )
+                Load
+            )]
+            Load
+        )
+        ()
+    )
+    (Expr
+        (Subscript
+            (ListComp
+                (Name
+                    x
+                    Load
+                )
+                [((Name
+                    x
+                    Store
+                )
+                (Name
+                    G
+                    Load
+                )
+                [(Call
+                    (Attribute
+                        (Attribute
+                            (Name
+                                self
+                                Load
+                            )
+                            ring
+                            Load
+                        )
+                        is_unit
+                        Load
+                    )
+                    [(Subscript
+                        (Name
+                            x
+                            Load
+                        )
+                        (ConstantInt
+                            0
+                            ()
+                        )
+                        Load
+                    )]
+                    []
+                )]
+                0)]
+            )
+            (ConstantInt
+                0
+                ()
+            )
+            Load
+        )
+    )
+    (If
+        (Membership
+            (Name
+                x
+                Load
+            )
+            NotIn
+            (Name
+                z
+                Load
+            )
+        )
+        [(Expr
+            (ConstantEllipsis
+                ()
+            )
+        )]
+        []
+    )
+    (If
+        (Membership
+            (Name
+                x
+                Load
+            )
+            NotIn
+            (Name
+                z
+                Load
+            )
+        )
+        [(Expr
+            (ConstantEllipsis
+                ()
+            )
+        )]
+        []
+    )
+    (If
+        (Membership
+            (Name
+                x
+                Load
+            )
+            NotIn
+            (Name
+                z
+                Load
+            )
+        )
+        [(Expr
+            (ConstantEllipsis
+                ()
+            )
+        )]
+        []
+    )
+    (If
+        (Membership
+            (Name
+                x
+                Load
+            )
+            NotIn
+            (Name
+                z
+                Load
+            )
+        )
+        [(Expr
+            (ConstantEllipsis
+                ()
+            )
+        )]
+        []
+    )
+    (FunctionDef
+        imatmul
+        ([]
+        [(a
+        ()
+        ())
+        (b
+        ()
+        ())]
+        []
+        []
+        []
+        []
+        [])
+        [(Expr
+            (ConstantStr
+                "Same as a @= b."
+                ()
+            )
+        )
+        (AugAssign
+            (Name
+                a
+                Store
+            )
+            MatMult
+            (Name
+                b
+                Load
+            )
+        )
+        (Return
+            (Name
+                a
+                Load
+            )
+        )]
+        []
+        ()
+        ()
+    )]
+    []
+)
diff --git a/tests/reference/ast_new-string1-96b90b3.json b/tests/reference/ast_new-string1-96b90b3.json
index 8b54377bc9..49a78caf38 100644
--- a/tests/reference/ast_new-string1-96b90b3.json
+++ b/tests/reference/ast_new-string1-96b90b3.json
@@ -2,11 +2,11 @@
     "basename": "ast_new-string1-96b90b3",
     "cmd": "lpython --show-ast --new-parser --no-color {infile} -o {outfile}",
     "infile": "tests/parser/string1.py",
-    "infile_hash": "fd64c289d2ab5638fcc3093bda8f07fdde0e034798d4c04791fd441b",
+    "infile_hash": "278e24162e6d88441f13d84bab068f1862b4fa490bf95e145fb71318",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "ast_new-string1-96b90b3.stdout",
-    "stdout_hash": "e23911e24aada1bf320ffde6cca77cc2a19700d09a2e9b01bbd37afa",
+    "stdout_hash": "51806e5893017a386c0ce7a4f3260c7605cabd5ea4e6a16aa300d8c2",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/ast_new-string1-96b90b3.stdout b/tests/reference/ast_new-string1-96b90b3.stdout
index a8262b29e9..cc011f29f2 100644
--- a/tests/reference/ast_new-string1-96b90b3.stdout
+++ b/tests/reference/ast_new-string1-96b90b3.stdout
@@ -1,8 +1,520 @@
-(Module [(Expr (JoinedStr [(ConstantStr "Hello, " ()) (FormattedValue (Name first_name Load) -1 ()) (ConstantStr " " ()) (FormattedValue (Name last_name Load) -1 ()) (ConstantStr ". You are " ()) (FormattedValue (Name age Load) -1 ()) (ConstantStr " years old." ())])) (Expr (Call (Name print Load) [(JoinedStr [(FormattedValue (Name __file__ Load) -1 ()) (ConstantStr " executed in " ()) (FormattedValue (Name elapsed Load) -1 ()) (ConstantStr " seconds." ())])] [])) (Expr (ConstantStr "
-sometext
-anotherline
-" ())) (Expr (ConstantBytes "b'Some text goes here.'" ())) (Expr (ConstantBytes "b'\nMultiple texts goes here.\n'" ())) (Expr (ConstantStr "
-Text
-" ())) (Expr (ConstantStr "Text" ())) (Expr (ConstantStr "a\tb\nA\tB" ())) (Expr (ConstantStr "1,2,3 # comment" "u")) (Expr (ConstantStr "Text" "u")) (Expr (ConstantStr "Text" ())) (Expr (JoinedStr [(ConstantStr "Text " ()) (FormattedValue (Name id Load) -1 ())])) (Expr (JoinedStr [(ConstantStr "Text " ()) (FormattedValue (Name id Load) -1 ())])) (Expr (JoinedStr [(ConstantStr "Text " ()) (FormattedValue (Name id Load) -1 ())])) (Expr (JoinedStr [(ConstantStr "Text " ()) (FormattedValue (Name id Load) -1 ())])) (Expr (JoinedStr [(ConstantStr "Text " ()) (FormattedValue (Name id Load) -1 ())])) (Expr (JoinedStr [(ConstantStr "
-Text " ()) (FormattedValue (Name id Load) -1 ()) (ConstantStr "
-" ())])) (Expr (JoinedStr [(ConstantStr "Text " ()) (FormattedValue (Name id Load) -1 ())])) (Expr (JoinedStr [(ConstantStr "Text " ()) (FormattedValue (Name id Load) -1 ())])) (Expr (ConstantBytes "b'Text'" ())) (Expr (ConstantBytes "b'\nText\n'" ())) (Expr (ConstantBytes "b'Text'" ())) (Expr (ConstantBytes "b'Text'" ())) (Expr (ConstantBytes "b'Text'" ())) (Expr (ConstantBytes "b'\nText\n'" ())) (Expr (ConstantBytes "b'Text'" ())) (Expr (ConstantBytes "b'Text'" ())) (Expr (JoinedStr [(ConstantStr "\N" ()) (FormattedValue (Name AMPERSAND Load) -1 ())])) (Expr (JoinedStr [(ConstantStr "Text" ()) (FormattedValue (Name a Load) -1 ()) (ConstantStr ", " ()) (FormattedValue (Name b Load) -1 ()) (ConstantStr "Text " ()) (FormattedValue (Name a Load) -1 ())])) (Expr (JoinedStr [(ConstantStr "Text" ()) (FormattedValue (Name a Load) -1 ()) (ConstantStr ", " ()) (FormattedValue (Name b Load) -1 ()) (ConstantStr "Text" ())])) (Expr (JoinedStr [(ConstantStr "Text" ()) (FormattedValue (Name b Load) -1 ()) (ConstantStr ", Text" ())])) (Expr (JoinedStr [(ConstantStr "Text " ()) (FormattedValue (Name a Load) -1 ()) (ConstantStr "Text" ())])) (Expr (ConstantStr "TextText" ())) (Expr (ConstantStr "TextText" ())) (Expr (JoinedStr [(ConstantStr "Text" ()) (FormattedValue (Name a Load) -1 ()) (ConstantStr " Text" ())])) (Expr (ConstantBytes "b'TextText'" ()))] [])
+(Module
+    [(Expr
+        (JoinedStr
+            [(ConstantStr
+                "Hello, "
+                ()
+            )
+            (FormattedValue
+                (Name
+                    first_name
+                    Load
+                )
+                -1
+                ()
+            )
+            (ConstantStr
+                " "
+                ()
+            )
+            (FormattedValue
+                (Name
+                    last_name
+                    Load
+                )
+                -1
+                ()
+            )
+            (ConstantStr
+                ". You are "
+                ()
+            )
+            (FormattedValue
+                (Name
+                    age
+                    Load
+                )
+                -1
+                ()
+            )
+            (ConstantStr
+                " years old."
+                ()
+            )]
+        )
+    )
+    (Expr
+        (Call
+            (Name
+                print
+                Load
+            )
+            [(JoinedStr
+                [(FormattedValue
+                    (Name
+                        __file__
+                        Load
+                    )
+                    -1
+                    ()
+                )
+                (ConstantStr
+                    " executed in "
+                    ()
+                )
+                (FormattedValue
+                    (Name
+                        elapsed
+                        Load
+                    )
+                    -1
+                    ()
+                )
+                (ConstantStr
+                    " seconds."
+                    ()
+                )]
+            )]
+            []
+        )
+    )
+    (Expr
+        (ConstantStr
+            "\nsometext\nanotherline\n"
+            ()
+        )
+    )
+    (Expr
+        (ConstantBytes
+            "b'Some text goes here.'"
+            ()
+        )
+    )
+    (Expr
+        (ConstantBytes
+            "b'\nMultiple texts goes here.\n'"
+            ()
+        )
+    )
+    (Expr
+        (ConstantStr
+            "\nText\n"
+            ()
+        )
+    )
+    (Expr
+        (ConstantStr
+            "Text"
+            ()
+        )
+    )
+    (Expr
+        (ConstantStr
+            "a\\tb\\nA\\tB"
+            ()
+        )
+    )
+    (Expr
+        (ConstantStr
+            "1,2,3 # comment"
+            "u"
+        )
+    )
+    (Expr
+        (ConstantStr
+            "Text"
+            "u"
+        )
+    )
+    (Expr
+        (ConstantStr
+            "Text"
+            ()
+        )
+    )
+    (Expr
+        (JoinedStr
+            [(ConstantStr
+                "Text "
+                ()
+            )
+            (FormattedValue
+                (Name
+                    id
+                    Load
+                )
+                -1
+                ()
+            )]
+        )
+    )
+    (Expr
+        (JoinedStr
+            [(ConstantStr
+                "Text "
+                ()
+            )
+            (FormattedValue
+                (Name
+                    id
+                    Load
+                )
+                -1
+                ()
+            )]
+        )
+    )
+    (Expr
+        (JoinedStr
+            [(ConstantStr
+                "Text "
+                ()
+            )
+            (FormattedValue
+                (Name
+                    id
+                    Load
+                )
+                -1
+                ()
+            )]
+        )
+    )
+    (Expr
+        (JoinedStr
+            [(ConstantStr
+                "Text "
+                ()
+            )
+            (FormattedValue
+                (Name
+                    id
+                    Load
+                )
+                -1
+                ()
+            )]
+        )
+    )
+    (Expr
+        (JoinedStr
+            [(ConstantStr
+                "Text "
+                ()
+            )
+            (FormattedValue
+                (Name
+                    id
+                    Load
+                )
+                -1
+                ()
+            )]
+        )
+    )
+    (Expr
+        (JoinedStr
+            [(ConstantStr
+                "\nText "
+                ()
+            )
+            (FormattedValue
+                (Name
+                    id
+                    Load
+                )
+                -1
+                ()
+            )
+            (ConstantStr
+                "\n"
+                ()
+            )]
+        )
+    )
+    (Expr
+        (JoinedStr
+            [(ConstantStr
+                "Text "
+                ()
+            )
+            (FormattedValue
+                (Name
+                    id
+                    Load
+                )
+                -1
+                ()
+            )]
+        )
+    )
+    (Expr
+        (JoinedStr
+            [(ConstantStr
+                "Text "
+                ()
+            )
+            (FormattedValue
+                (Name
+                    id
+                    Load
+                )
+                -1
+                ()
+            )]
+        )
+    )
+    (Expr
+        (ConstantBytes
+            "b'Text'"
+            ()
+        )
+    )
+    (Expr
+        (ConstantBytes
+            "b'\nText\n'"
+            ()
+        )
+    )
+    (Expr
+        (ConstantBytes
+            "b'Text'"
+            ()
+        )
+    )
+    (Expr
+        (ConstantBytes
+            "b'Text'"
+            ()
+        )
+    )
+    (Expr
+        (ConstantBytes
+            "b'Text'"
+            ()
+        )
+    )
+    (Expr
+        (ConstantBytes
+            "b'\nText\n'"
+            ()
+        )
+    )
+    (Expr
+        (ConstantBytes
+            "b'Text'"
+            ()
+        )
+    )
+    (Expr
+        (ConstantBytes
+            "b'Text'"
+            ()
+        )
+    )
+    (Expr
+        (JoinedStr
+            [(ConstantStr
+                "\\N"
+                ()
+            )
+            (FormattedValue
+                (Name
+                    AMPERSAND
+                    Load
+                )
+                -1
+                ()
+            )]
+        )
+    )
+    (Expr
+        (JoinedStr
+            [(ConstantStr
+                "Text"
+                ()
+            )
+            (FormattedValue
+                (Name
+                    a
+                    Load
+                )
+                -1
+                ()
+            )
+            (ConstantStr
+                ", "
+                ()
+            )
+            (FormattedValue
+                (Name
+                    b
+                    Load
+                )
+                -1
+                ()
+            )
+            (ConstantStr
+                "Text "
+                ()
+            )
+            (FormattedValue
+                (Name
+                    a
+                    Load
+                )
+                -1
+                ()
+            )]
+        )
+    )
+    (Expr
+        (JoinedStr
+            [(ConstantStr
+                "Text"
+                ()
+            )
+            (FormattedValue
+                (Name
+                    a
+                    Load
+                )
+                -1
+                ()
+            )
+            (ConstantStr
+                ", "
+                ()
+            )
+            (FormattedValue
+                (Name
+                    b
+                    Load
+                )
+                -1
+                ()
+            )
+            (ConstantStr
+                "Text"
+                ()
+            )]
+        )
+    )
+    (Expr
+        (JoinedStr
+            [(ConstantStr
+                "Text"
+                ()
+            )
+            (FormattedValue
+                (Name
+                    b
+                    Load
+                )
+                -1
+                ()
+            )
+            (ConstantStr
+                ", Text"
+                ()
+            )]
+        )
+    )
+    (Expr
+        (JoinedStr
+            [(ConstantStr
+                "Text "
+                ()
+            )
+            (FormattedValue
+                (Name
+                    a
+                    Load
+                )
+                -1
+                ()
+            )
+            (ConstantStr
+                "Text"
+                ()
+            )]
+        )
+    )
+    (Expr
+        (ConstantStr
+            "TextText"
+            ()
+        )
+    )
+    (Expr
+        (ConstantStr
+            "TextText"
+            ()
+        )
+    )
+    (Expr
+        (JoinedStr
+            [(ConstantStr
+                "Text"
+                ()
+            )
+            (FormattedValue
+                (Name
+                    a
+                    Load
+                )
+                -1
+                ()
+            )
+            (ConstantStr
+                " Text"
+                ()
+            )]
+        )
+    )
+    (Expr
+        (ConstantBytes
+            "b'TextText'"
+            ()
+        )
+    )
+    (Expr
+        (ConstantStr
+            "\\n"
+            ()
+        )
+    )
+    (Expr
+        (ConstantStr
+            "\nText\n123\\n\\t\n"
+            ()
+        )
+    )
+    (Expr
+        (ConstantBytes
+            "b'\\n'"
+            ()
+        )
+    )
+    (Expr
+        (JoinedStr
+            [(ConstantStr
+                "\\n"
+                ()
+            )]
+        )
+    )
+    (Expr
+        (ConstantBytes
+            "b'\n'"
+            ()
+        )
+    )
+    (Expr
+        (ConstantBytes
+            "b'\n\n\\n'"
+            ()
+        )
+    )]
+    []
+)
diff --git a/tests/reference/ast_new-string2-44323ea.json b/tests/reference/ast_new-string2-44323ea.json
index 45dbe67653..3bcc6c58df 100644
--- a/tests/reference/ast_new-string2-44323ea.json
+++ b/tests/reference/ast_new-string2-44323ea.json
@@ -2,11 +2,11 @@
     "basename": "ast_new-string2-44323ea",
     "cmd": "lpython --show-ast --new-parser --no-color {infile} -o {outfile}",
     "infile": "tests/parser/string2.py",
-    "infile_hash": "02d7463c30650df9791af7669856669f0a948670cea5d26642f9a30c",
+    "infile_hash": "58397718a6e0dc5cc453081e82ad1b2ca378639dfb516c3f28d34323",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "ast_new-string2-44323ea.stdout",
-    "stdout_hash": "b6bd901a34260e3a2109285fb3f422406e6e5147e9932713dcd9f138",
+    "stdout_hash": "52d1edc0e332527fc6e077ed895f9d01a6eb79b3fb43405319864a1c",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/ast_new-string2-44323ea.stdout b/tests/reference/ast_new-string2-44323ea.stdout
index b8b3a747ff..d72c5709ff 100644
--- a/tests/reference/ast_new-string2-44323ea.stdout
+++ b/tests/reference/ast_new-string2-44323ea.stdout
@@ -1,12 +1,118 @@
-(Module [(Expr (ConstantStr "\"\\" ())) (Expr (ConstantStr "
-\\" ())) (Expr (ConstantStr "\\" ())) (Expr (ConstantStr "   \\" ())) (Expr (ConstantStr "\\ " ())) (Expr (ConstantStr "\
-" ())) (Expr (ConstantStr "\\|" ())) (Expr (ConstantStr "Text\\" ())) (Expr (ConstantStr "\
-" ())) (Expr (Call (Name x Load) [(ConstantStr "\
-class a:
-    def test():
-        return r"\\LaTeX"
-" ())] [])) (Expr (ConstantStr "
-    "\\"
-" ())) (Expr (ConstantStr "
-    '\'
-" ()))] [])
+(Module
+    [(Expr
+        (ConstantStr
+            "\"\\"
+            ()
+        )
+    )
+    (Expr
+        (ConstantStr
+            "\n\\"
+            ()
+        )
+    )
+    (Expr
+        (ConstantStr
+            "\\"
+            ()
+        )
+    )
+    (Expr
+        (ConstantStr
+            "   \\"
+            ()
+        )
+    )
+    (Expr
+        (ConstantStr
+            "\\ "
+            ()
+        )
+    )
+    (Expr
+        (ConstantStr
+            ""
+            ()
+        )
+    )
+    (Expr
+        (ConstantStr
+            "\\|"
+            ()
+        )
+    )
+    (Expr
+        (ConstantStr
+            "I said 'Wow' "
+            ()
+        )
+    )
+    (Expr
+        (ConstantStr
+            "I said \"hi\" "
+            ()
+        )
+    )
+    (Expr
+        (ConstantStr
+            "I said \\\"hi\" "
+            ()
+        )
+    )
+    (Expr
+        (ConstantStr
+            "I said '\\'hi\\hey' "
+            ()
+        )
+    )
+    (Expr
+        (ConstantStr
+            "ab"
+            ()
+        )
+    )
+    (Expr
+        (ConstantStr
+            "ab"
+            ()
+        )
+    )
+    (Expr
+        (ConstantStr
+            "Text\\\\"
+            ()
+        )
+    )
+    (Expr
+        (ConstantStr
+            ""
+            ()
+        )
+    )
+    (Expr
+        (Call
+            (Name
+                x
+                Load
+            )
+            [(ConstantStr
+                "class a:\n    def test():\n        return r\"\\LaTeX\"\n"
+                ()
+            )]
+            []
+        )
+    )
+    (Expr
+        (ConstantStr
+            "\n    \"\\\\\"\n"
+            ()
+        )
+    )
+    (Expr
+        (ConstantStr
+            "\n    '\\'\n"
+            ()
+        )
+    )]
+    []
+)
diff --git a/tests/reference/ast_new-string3-37f35a0.json b/tests/reference/ast_new-string3-37f35a0.json
new file mode 100644
index 0000000000..bd16a6a8a7
--- /dev/null
+++ b/tests/reference/ast_new-string3-37f35a0.json
@@ -0,0 +1,13 @@
+{
+    "basename": "ast_new-string3-37f35a0",
+    "cmd": "lpython --show-ast --new-parser --no-color {infile} -o {outfile}",
+    "infile": "tests/parser/string3.py",
+    "infile_hash": "61a3cd7139d6c429a037d74fe12b8f8305cabe9b91218082851dd7ca",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": "ast_new-string3-37f35a0.stdout",
+    "stdout_hash": "9d8ca937b551799ff4908f347ff6685917d0bfc41977c5316af4e108",
+    "stderr": null,
+    "stderr_hash": null,
+    "returncode": 0
+}
\ No newline at end of file
diff --git a/tests/reference/ast_new-string3-37f35a0.stdout b/tests/reference/ast_new-string3-37f35a0.stdout
new file mode 100644
index 0000000000..6d104153f6
--- /dev/null
+++ b/tests/reference/ast_new-string3-37f35a0.stdout
@@ -0,0 +1,129 @@
+(Module
+    [(Expr
+        (ConstantStr
+            "\n"
+            ()
+        )
+    )
+    (Expr
+        (ConstantStr
+            "\r"
+            ()
+        )
+    )
+    (Expr
+        (ConstantStr
+            "\t"
+            ()
+        )
+    )
+    (Expr
+        (ConstantStr
+            "'"
+            ()
+        )
+    )
+    (Expr
+        (ConstantStr
+            "\""
+            ()
+        )
+    )
+    (Expr
+        (ConstantStr
+            "\\"
+            ()
+        )
+    )
+    (Expr
+        (ConstantStr
+            "\n\r\t'\"\\"
+            ()
+        )
+    )
+    (Expr
+        (ConstantStr
+            "\n"
+            ()
+        )
+    )
+    (Expr
+        (ConstantStr
+            "\r"
+            ()
+        )
+    )
+    (Expr
+        (ConstantStr
+            "\t"
+            ()
+        )
+    )
+    (Expr
+        (ConstantStr
+            "'"
+            ()
+        )
+    )
+    (Expr
+        (ConstantStr
+            "\""
+            ()
+        )
+    )
+    (Expr
+        (ConstantStr
+            "\\"
+            ()
+        )
+    )
+    (Expr
+        (ConstantStr
+            "\n\r\t'\"\\"
+            ()
+        )
+    )
+    (Expr
+        (ConstantStr
+            "hi\n"
+            ()
+        )
+    )
+    (Expr
+        (ConstantStr
+            "hi\r\n\t"
+            ()
+        )
+    )
+    (Expr
+        (ConstantStr
+            "1234\n\t\\jdlasf\t"
+            ()
+        )
+    )
+    (Expr
+        (ConstantStr
+            "Hi this is a \"test case\"."
+            ()
+        )
+    )
+    (Expr
+        (ConstantStr
+            "\nThis is \n\nabcd123\nThis is \r\nefgh\n"
+            ()
+        )
+    )
+    (Expr
+        (ConstantStr
+            "This is \n\n"
+            ()
+        )
+    )
+    (Expr
+        (ConstantStr
+            "hi          dsjfklad"
+            ()
+        )
+    )]
+    []
+)
diff --git a/tests/reference/ast_new-try1-a9a22cf.json b/tests/reference/ast_new-try1-a9a22cf.json
index 22e0bd6258..a252588d6f 100644
--- a/tests/reference/ast_new-try1-a9a22cf.json
+++ b/tests/reference/ast_new-try1-a9a22cf.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "ast_new-try1-a9a22cf.stdout",
-    "stdout_hash": "982c63018438411840534b326ca965a092580607a33d232bd3ce023a",
+    "stdout_hash": "2d208d18296ba0b82463ef7c49b2dedaed5d5600b0956f27084b454e",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/ast_new-try1-a9a22cf.stdout b/tests/reference/ast_new-try1-a9a22cf.stdout
index a864c644f7..8e8c909961 100644
--- a/tests/reference/ast_new-try1-a9a22cf.stdout
+++ b/tests/reference/ast_new-try1-a9a22cf.stdout
@@ -1 +1,301 @@
-(Module [(For (Name i Store) (Call (Name range Load) [(ConstantInt 3 ()) (ConstantInt 0 ()) (UnaryOp USub (ConstantInt 1 ()))] []) [(Try [(Expr (Call (Name print Load) [] []))] [(ExceptHandler (Name IOError Load) () [(If (Compare (Name i Load) Eq [(ConstantInt 1 ())]) [(Raise () ())] []) (Expr (Call (Name print Load) [(ConstantStr "retry" ())] []))])] [(Break)] [])] [] ()) (Try [(Pass)] [(ExceptHandler (Name ValueError Load) () [(Pass)]) (ExceptHandler (Name TypeError Load) () [(Pass)]) (ExceptHandler (Name ZeroDivisionError Load) () [(Pass)]) (ExceptHandler () () [(Pass)])] [] []) (Try [(Assign [(Name a Store)] (ConstantInt 1 ()) ()) (If (Compare (Name a Load) LtE [(ConstantInt 0 ())]) [(Raise (Call (Name ValueError Load) [(ConstantStr "That is not a positive number!" ())] []) ())] [])] [(ExceptHandler (Name ValueError Load) ve [(Expr (Call (Name print Load) [(Name ve Load)] []))])] [] []) (Try [(Raise (Name KeyboardInterrupt Load) ())] [] [] [(Expr (Call (Name print Load) [(ConstantStr "Goodbye, world!" ())] []))]) (Try [(Expr (ConstantEllipsis ()))] [(ExceptHandler (Name Exception Load) e [(Expr (ConstantEllipsis ()))])] [] []) (Try [(Expr (ConstantEllipsis ()))] [(ExceptHandler () () [(Expr (ConstantEllipsis ()))])] [(Expr (ConstantEllipsis ()))] [(Expr (ConstantEllipsis ()))]) (Try [(Expr (Call (Attribute (Name shutil Load) rmtree Load) [(Call (Attribute (Attribute (Name os Load) path Load) join Load) [(Name asv_build_cache Load) (Name c Load)] [])] []))] [(ExceptHandler (Name OSError Load) () [(Pass)])] [] [])] [])
+(Module
+    [(For
+        (Name
+            i
+            Store
+        )
+        (Call
+            (Name
+                range
+                Load
+            )
+            [(ConstantInt
+                3
+                ()
+            )
+            (ConstantInt
+                0
+                ()
+            )
+            (UnaryOp
+                USub
+                (ConstantInt
+                    1
+                    ()
+                )
+            )]
+            []
+        )
+        [(Try
+            [(Expr
+                (Call
+                    (Name
+                        print
+                        Load
+                    )
+                    []
+                    []
+                )
+            )]
+            [(ExceptHandler
+                (Name
+                    IOError
+                    Load
+                )
+                ()
+                [(If
+                    (Compare
+                        (Name
+                            i
+                            Load
+                        )
+                        Eq
+                        [(ConstantInt
+                            1
+                            ()
+                        )]
+                    )
+                    [(Raise
+                        ()
+                        ()
+                    )]
+                    []
+                )
+                (Expr
+                    (Call
+                        (Name
+                            print
+                            Load
+                        )
+                        [(ConstantStr
+                            "retry"
+                            ()
+                        )]
+                        []
+                    )
+                )]
+            )]
+            [(Break)]
+            []
+        )]
+        []
+        ()
+    )
+    (Try
+        [(Pass)]
+        [(ExceptHandler
+            (Name
+                ValueError
+                Load
+            )
+            ()
+            [(Pass)]
+        )
+        (ExceptHandler
+            (Name
+                TypeError
+                Load
+            )
+            ()
+            [(Pass)]
+        )
+        (ExceptHandler
+            (Name
+                ZeroDivisionError
+                Load
+            )
+            ()
+            [(Pass)]
+        )
+        (ExceptHandler
+            ()
+            ()
+            [(Pass)]
+        )]
+        []
+        []
+    )
+    (Try
+        [(Assign
+            [(Name
+                a
+                Store
+            )]
+            (ConstantInt
+                1
+                ()
+            )
+            ()
+        )
+        (If
+            (Compare
+                (Name
+                    a
+                    Load
+                )
+                LtE
+                [(ConstantInt
+                    0
+                    ()
+                )]
+            )
+            [(Raise
+                (Call
+                    (Name
+                        ValueError
+                        Load
+                    )
+                    [(ConstantStr
+                        "That is not a positive number!"
+                        ()
+                    )]
+                    []
+                )
+                ()
+            )]
+            []
+        )]
+        [(ExceptHandler
+            (Name
+                ValueError
+                Load
+            )
+            ve
+            [(Expr
+                (Call
+                    (Name
+                        print
+                        Load
+                    )
+                    [(Name
+                        ve
+                        Load
+                    )]
+                    []
+                )
+            )]
+        )]
+        []
+        []
+    )
+    (Try
+        [(Raise
+            (Name
+                KeyboardInterrupt
+                Load
+            )
+            ()
+        )]
+        []
+        []
+        [(Expr
+            (Call
+                (Name
+                    print
+                    Load
+                )
+                [(ConstantStr
+                    "Goodbye, world!"
+                    ()
+                )]
+                []
+            )
+        )]
+    )
+    (Try
+        [(Expr
+            (ConstantEllipsis
+                ()
+            )
+        )]
+        [(ExceptHandler
+            (Name
+                Exception
+                Load
+            )
+            e
+            [(Expr
+                (ConstantEllipsis
+                    ()
+                )
+            )]
+        )]
+        []
+        []
+    )
+    (Try
+        [(Expr
+            (ConstantEllipsis
+                ()
+            )
+        )]
+        [(ExceptHandler
+            ()
+            ()
+            [(Expr
+                (ConstantEllipsis
+                    ()
+                )
+            )]
+        )]
+        [(Expr
+            (ConstantEllipsis
+                ()
+            )
+        )]
+        [(Expr
+            (ConstantEllipsis
+                ()
+            )
+        )]
+    )
+    (Try
+        [(Expr
+            (Call
+                (Attribute
+                    (Name
+                        shutil
+                        Load
+                    )
+                    rmtree
+                    Load
+                )
+                [(Call
+                    (Attribute
+                        (Attribute
+                            (Name
+                                os
+                                Load
+                            )
+                            path
+                            Load
+                        )
+                        join
+                        Load
+                    )
+                    [(Name
+                        asv_build_cache
+                        Load
+                    )
+                    (Name
+                        c
+                        Load
+                    )]
+                    []
+                )]
+                []
+            )
+        )]
+        [(ExceptHandler
+            (Name
+                OSError
+                Load
+            )
+            ()
+            [(Pass)]
+        )]
+        []
+        []
+    )]
+    []
+)
diff --git a/tests/reference/ast_new-tuple1-29c08af.json b/tests/reference/ast_new-tuple1-29c08af.json
index 68ca2bdf47..c23dd5efe2 100644
--- a/tests/reference/ast_new-tuple1-29c08af.json
+++ b/tests/reference/ast_new-tuple1-29c08af.json
@@ -2,11 +2,11 @@
     "basename": "ast_new-tuple1-29c08af",
     "cmd": "lpython --show-ast --new-parser --no-color {infile} -o {outfile}",
     "infile": "tests/parser/tuple1.py",
-    "infile_hash": "921763bd0566e7c1d7afe5cbf4cd8718721598b557d26e26833e8d97",
+    "infile_hash": "a598d163f33a7eb37376592c8018780cb4024618f4a8024bd728ff15",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "ast_new-tuple1-29c08af.stdout",
-    "stdout_hash": "79318056f942a6bfd156eeb50a4b48c025adee99f3a26ba81a5ffef9",
+    "stdout_hash": "ba3dcb7011c5466eb869001acbc2c1a89c60f15e59dcdf8e7974baab",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/ast_new-tuple1-29c08af.stdout b/tests/reference/ast_new-tuple1-29c08af.stdout
index 1355c748e6..7b546c6ad3 100644
--- a/tests/reference/ast_new-tuple1-29c08af.stdout
+++ b/tests/reference/ast_new-tuple1-29c08af.stdout
@@ -1 +1,650 @@
-(Module [(Assign [(Name a Store)] (BinOp (Tuple [(ConstantInt 1 ())] Load) Add (ConstantInt 4 ())) ()) (Assign [(Name a Store)] (BinOp (BinOp (ConstantInt 3 ()) Mult (Tuple [(ConstantInt 1 ()) (ConstantInt 2 ())] Load)) Add (ConstantInt 4 ())) ()) (Expr (Call (Name f Load) [(Tuple [(Name x Load) (Name y Load)] Load)] [])) (Expr (Call (Name f Load) [(Tuple [(Name x Load)] Load)] [])) (Assign [(Name a Store)] (Call (Name len Load) [(Tuple [(ConstantInt 1 ()) (ConstantInt 2 ()) (ConstantInt 3 ())] Load)] []) ()) (Assign [(Name a4 Store)] (Tuple [(Tuple [(ConstantInt 1 ()) (ConstantInt 2 ()) (ConstantInt 3 ())] Load) (Tuple [(ConstantInt 4 ()) (ConstantInt 5 ()) (ConstantInt 6 ())] Load)] Load) ()) (Expr (Tuple [(ConstantInt 1 ()) (ConstantInt 2 ()) (ConstantInt 3 ())] Load)) (Expr (Tuple [(ConstantInt 1 ()) (ConstantInt 2 ())] Load)) (Expr (BinOp (Tuple [(ConstantInt 1 ()) (ConstantInt 2 ())] Load) Mult (ConstantInt 3 ()))) (Expr (Call (Name print Load) [(BinOp (ConstantStr "%s%s%s" ()) Mod (Tuple [(Name a Load) (Name b Load) (Name c Load)] Load))] [])) (Expr (Call (Name print Load) [(BinOp (ConstantStr "%s%s%s" ()) Mod (Tuple [(BinOp (ConstantInt 10 ()) Add (Name x Load)) (Name y Load) (BinOp (Name z Load) Add (ConstantInt 20 ()))] Load))] [])) (If (Compare (Attribute (Name sys Load) version_info Load) GtE [(Tuple [(ConstantInt 3 ()) (ConstantInt 9 ())] Load)]) [(Pass)] []) (Assign [(Name NDArray Store)] (Call (Name _GenericAlias Load) [(Attribute (Name np Load) ndarray Load) (Tuple [(Name Any Load) (Name _DType Load)] Load)] []) ()) (FunctionDef test ([] [] [] [] [] [] []) [(Pass)] [(Call (Attribute (Attribute (Name pytest Load) mark Load) parametrize Load) [(ConstantStr "shape" ()) (List [(ConstantInt 5 ()) (Tuple [(ConstantInt 3 ()) (ConstantInt 3 ()) (ConstantInt 3 ())] Load)] Load)] [])] () ()) (Assign [(Name _promotion_table Store)] (Dict [(Tuple [(Name int8 Load) (Name int8 Load)] Load)] [(Name int8 Load)]) ()) (Expr (Tuple [(Name x Load) (Name y Load)] Load)) (Expr (Tuple [(Name x Load) (Name y Load)] Load)) (Expr (Tuple [(Call (Name assert_ Load) [(Call (Attribute (Name np Load) isnan Load) [(Name div Load)] [])] []) (BinOp (ConstantStr "dt: %s, rem: %s" ()) Mod (Tuple [(Name dt Load) (Name rem Load)] Load))] Load)) (Expr (Call (Name sum Load) [(ListComp (Subscript (Tuple [(ConstantInt 1 ()) (UnaryOp USub (ConstantInt 1 ()))] Load) (BinOp (Name i Load) Mod (ConstantInt 2 ())) Load) [((Name i Store) (Name x Load) [] 0)])] [])) (Expr (Call (Name sum Load) [(ListComp (Subscript (Tuple [(ConstantInt 1 ()) (UnaryOp USub (ConstantInt 1 ()))] Load) (BinOp (Name i Load) Mod (ConstantInt 2 ())) Load) [((Name i Store) (Name x Load) [] 0)])] [])) (Assign [(Name a Store)] (Tuple [(Name x Load) (Name y Load)] Load) ())] [(TypeIgnore 0 "")])
+(Module
+    [(Assign
+        [(Name
+            a
+            Store
+        )]
+        (BinOp
+            (Tuple
+                [(ConstantInt
+                    1
+                    ()
+                )]
+                Load
+            )
+            Add
+            (ConstantInt
+                4
+                ()
+            )
+        )
+        ()
+    )
+    (Assign
+        [(Name
+            a
+            Store
+        )]
+        (BinOp
+            (BinOp
+                (ConstantInt
+                    3
+                    ()
+                )
+                Mult
+                (Tuple
+                    [(ConstantInt
+                        1
+                        ()
+                    )
+                    (ConstantInt
+                        2
+                        ()
+                    )]
+                    Load
+                )
+            )
+            Add
+            (ConstantInt
+                4
+                ()
+            )
+        )
+        ()
+    )
+    (Expr
+        (Call
+            (Name
+                f
+                Load
+            )
+            [(Tuple
+                [(Name
+                    x
+                    Load
+                )
+                (Name
+                    y
+                    Load
+                )]
+                Load
+            )]
+            []
+        )
+    )
+    (Expr
+        (Call
+            (Name
+                f
+                Load
+            )
+            [(Tuple
+                [(Name
+                    x
+                    Load
+                )]
+                Load
+            )]
+            []
+        )
+    )
+    (Assign
+        [(Name
+            a
+            Store
+        )]
+        (Call
+            (Name
+                len
+                Load
+            )
+            [(Tuple
+                [(ConstantInt
+                    1
+                    ()
+                )
+                (ConstantInt
+                    2
+                    ()
+                )
+                (ConstantInt
+                    3
+                    ()
+                )]
+                Load
+            )]
+            []
+        )
+        ()
+    )
+    (Assign
+        [(Name
+            a4
+            Store
+        )]
+        (Tuple
+            [(Tuple
+                [(ConstantInt
+                    1
+                    ()
+                )
+                (ConstantInt
+                    2
+                    ()
+                )
+                (ConstantInt
+                    3
+                    ()
+                )]
+                Load
+            )
+            (Tuple
+                [(ConstantInt
+                    4
+                    ()
+                )
+                (ConstantInt
+                    5
+                    ()
+                )
+                (ConstantInt
+                    6
+                    ()
+                )]
+                Load
+            )]
+            Load
+        )
+        ()
+    )
+    (Expr
+        (Tuple
+            [(ConstantInt
+                1
+                ()
+            )
+            (ConstantInt
+                2
+                ()
+            )
+            (ConstantInt
+                3
+                ()
+            )]
+            Load
+        )
+    )
+    (Expr
+        (Tuple
+            [(ConstantInt
+                1
+                ()
+            )
+            (ConstantInt
+                2
+                ()
+            )]
+            Load
+        )
+    )
+    (Expr
+        (BinOp
+            (Tuple
+                [(ConstantInt
+                    1
+                    ()
+                )
+                (ConstantInt
+                    2
+                    ()
+                )]
+                Load
+            )
+            Mult
+            (ConstantInt
+                3
+                ()
+            )
+        )
+    )
+    (Expr
+        (Call
+            (Name
+                print
+                Load
+            )
+            [(BinOp
+                (ConstantStr
+                    "%s%s%s"
+                    ()
+                )
+                Mod
+                (Tuple
+                    [(Name
+                        a
+                        Load
+                    )
+                    (Name
+                        b
+                        Load
+                    )
+                    (Name
+                        c
+                        Load
+                    )]
+                    Load
+                )
+            )]
+            []
+        )
+    )
+    (Expr
+        (Call
+            (Name
+                print
+                Load
+            )
+            [(BinOp
+                (ConstantStr
+                    "%s%s%s"
+                    ()
+                )
+                Mod
+                (Tuple
+                    [(BinOp
+                        (ConstantInt
+                            10
+                            ()
+                        )
+                        Add
+                        (Name
+                            x
+                            Load
+                        )
+                    )
+                    (Name
+                        y
+                        Load
+                    )
+                    (BinOp
+                        (Name
+                            z
+                            Load
+                        )
+                        Add
+                        (ConstantInt
+                            20
+                            ()
+                        )
+                    )]
+                    Load
+                )
+            )]
+            []
+        )
+    )
+    (If
+        (Compare
+            (Attribute
+                (Name
+                    sys
+                    Load
+                )
+                version_info
+                Load
+            )
+            GtE
+            [(Tuple
+                [(ConstantInt
+                    3
+                    ()
+                )
+                (ConstantInt
+                    9
+                    ()
+                )]
+                Load
+            )]
+        )
+        [(Pass)]
+        []
+    )
+    (Assign
+        [(Name
+            NDArray
+            Store
+        )]
+        (Call
+            (Name
+                _GenericAlias
+                Load
+            )
+            [(Attribute
+                (Name
+                    np
+                    Load
+                )
+                ndarray
+                Load
+            )
+            (Tuple
+                [(Name
+                    Any
+                    Load
+                )
+                (Name
+                    _DType
+                    Load
+                )]
+                Load
+            )]
+            []
+        )
+        ()
+    )
+    (FunctionDef
+        test
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(Pass)]
+        [(Call
+            (Attribute
+                (Attribute
+                    (Name
+                        pytest
+                        Load
+                    )
+                    mark
+                    Load
+                )
+                parametrize
+                Load
+            )
+            [(ConstantStr
+                "shape"
+                ()
+            )
+            (List
+                [(ConstantInt
+                    5
+                    ()
+                )
+                (Tuple
+                    [(ConstantInt
+                        3
+                        ()
+                    )
+                    (ConstantInt
+                        3
+                        ()
+                    )
+                    (ConstantInt
+                        3
+                        ()
+                    )]
+                    Load
+                )]
+                Load
+            )]
+            []
+        )]
+        ()
+        ()
+    )
+    (Assign
+        [(Name
+            _promotion_table
+            Store
+        )]
+        (Dict
+            [(Tuple
+                [(Name
+                    int8
+                    Load
+                )
+                (Name
+                    int8
+                    Load
+                )]
+                Load
+            )]
+            [(Name
+                int8
+                Load
+            )]
+        )
+        ()
+    )
+    (Expr
+        (Tuple
+            [(Name
+                x
+                Load
+            )
+            (Name
+                y
+                Load
+            )]
+            Load
+        )
+    )
+    (Expr
+        (Tuple
+            [(Name
+                x
+                Load
+            )
+            (Name
+                y
+                Load
+            )]
+            Load
+        )
+    )
+    (Expr
+        (Tuple
+            [(Call
+                (Name
+                    assert_
+                    Load
+                )
+                [(Call
+                    (Attribute
+                        (Name
+                            np
+                            Load
+                        )
+                        isnan
+                        Load
+                    )
+                    [(Name
+                        div
+                        Load
+                    )]
+                    []
+                )]
+                []
+            )
+            (BinOp
+                (ConstantStr
+                    "dt: %s, rem: %s"
+                    ()
+                )
+                Mod
+                (Tuple
+                    [(Name
+                        dt
+                        Load
+                    )
+                    (Name
+                        rem
+                        Load
+                    )]
+                    Load
+                )
+            )]
+            Load
+        )
+    )
+    (Expr
+        (Call
+            (Name
+                sum
+                Load
+            )
+            [(ListComp
+                (Subscript
+                    (Tuple
+                        [(ConstantInt
+                            1
+                            ()
+                        )
+                        (UnaryOp
+                            USub
+                            (ConstantInt
+                                1
+                                ()
+                            )
+                        )]
+                        Load
+                    )
+                    (BinOp
+                        (Name
+                            i
+                            Load
+                        )
+                        Mod
+                        (ConstantInt
+                            2
+                            ()
+                        )
+                    )
+                    Load
+                )
+                [((Name
+                    i
+                    Store
+                )
+                (Name
+                    x
+                    Load
+                )
+                []
+                0)]
+            )]
+            []
+        )
+    )
+    (Expr
+        (Call
+            (Name
+                sum
+                Load
+            )
+            [(ListComp
+                (Subscript
+                    (Tuple
+                        [(ConstantInt
+                            1
+                            ()
+                        )
+                        (UnaryOp
+                            USub
+                            (ConstantInt
+                                1
+                                ()
+                            )
+                        )]
+                        Load
+                    )
+                    (BinOp
+                        (Name
+                            i
+                            Load
+                        )
+                        Mod
+                        (ConstantInt
+                            2
+                            ()
+                        )
+                    )
+                    Load
+                )
+                [((Name
+                    i
+                    Store
+                )
+                (Name
+                    x
+                    Load
+                )
+                []
+                0)]
+            )]
+            []
+        )
+    )
+    (Assign
+        [(Name
+            a
+            Store
+        )]
+        (Tuple
+            [(Name
+                x
+                Load
+            )
+            (Name
+                y
+                Load
+            )]
+            Load
+        )
+        ()
+    )
+    (AnnAssign
+        (Name
+            t
+            Store
+        )
+        (Subscript
+            (Name
+                tuple
+                Load
+            )
+            (Tuple
+                [(Name
+                    i32
+                    Load
+                )
+                (Name
+                    i32
+                    Load
+                )]
+                Load
+            )
+            Load
+        )
+        (Tuple
+            [(ConstantInt
+                2
+                ()
+            )
+            (ConstantInt
+                3
+                ()
+            )]
+            Load
+        )
+        1
+    )]
+    [(TypeIgnore
+        0
+        ""
+    )]
+)
diff --git a/tests/reference/ast_new-type_comment1-710ea6c.json b/tests/reference/ast_new-type_comment1-710ea6c.json
index d779580878..5cabf43401 100644
--- a/tests/reference/ast_new-type_comment1-710ea6c.json
+++ b/tests/reference/ast_new-type_comment1-710ea6c.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "ast_new-type_comment1-710ea6c.stdout",
-    "stdout_hash": "272ac1a567b7b87ede290df9502f6a79817af997b41edb9fe05090b9",
+    "stdout_hash": "ef1c4024c790cdf5ef3262c9b94f127a5d546dcc24932b87d98ed980",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/ast_new-type_comment1-710ea6c.stdout b/tests/reference/ast_new-type_comment1-710ea6c.stdout
index 00ef6de115..f388bf722c 100644
--- a/tests/reference/ast_new-type_comment1-710ea6c.stdout
+++ b/tests/reference/ast_new-type_comment1-710ea6c.stdout
@@ -1 +1,175 @@
-(Module [(Import [(pytest ())]) (FunctionDef ndarray_func ([] [(x () ())] [] [] [] [] []) [(Return (Name x Load))] [] () "(np.ndarray) -> np.ndarray") (FunctionDef test ([] [(x () ())] [] [] [] [] []) [(Return (Name x Load))] [(Name decorator1 Load) (Name decorator2 Load) (Name decorator3 Load)] () "(np.ndarray) -> np.ndarray") (FunctionDef test ([] [] [] [] [] [] []) [(Expr (ConstantEllipsis ()))] [] () ()) (FunctionDef main ([] [] [] [] [] [] []) [(Pass)] [] () ()) (Expr (Call (Name x Load) [(Name x Load) (Name y Load)] [])) (ImportFrom sympy.simplify [(collect ()) (powsimp ()) (separatevars ()) (simplify ())] 0) (Expr (Await (Call (Name test Load) [(Name x Load) (Name y Load) (Name z Load)] [])))] [(TypeIgnore 0 "") (TypeIgnore 0 "") (TypeIgnore 0 "") (TypeIgnore 0 "") (TypeIgnore 0 "") (TypeIgnore 0 "") (TypeIgnore 0 "") (TypeIgnore 0 "")])
+(Module
+    [(Import
+        [(pytest
+        ())]
+    )
+    (FunctionDef
+        ndarray_func
+        ([]
+        [(x
+        ()
+        ())]
+        []
+        []
+        []
+        []
+        [])
+        [(Return
+            (Name
+                x
+                Load
+            )
+        )]
+        []
+        ()
+        "(np.ndarray) -> np.ndarray"
+    )
+    (FunctionDef
+        test
+        ([]
+        [(x
+        ()
+        ())]
+        []
+        []
+        []
+        []
+        [])
+        [(Return
+            (Name
+                x
+                Load
+            )
+        )]
+        [(Name
+            decorator1
+            Load
+        )
+        (Name
+            decorator2
+            Load
+        )
+        (Name
+            decorator3
+            Load
+        )]
+        ()
+        "(np.ndarray) -> np.ndarray"
+    )
+    (FunctionDef
+        test
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(Expr
+            (ConstantEllipsis
+                ()
+            )
+        )]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        main
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(Pass)]
+        []
+        ()
+        ()
+    )
+    (Expr
+        (Call
+            (Name
+                x
+                Load
+            )
+            [(Name
+                x
+                Load
+            )
+            (Name
+                y
+                Load
+            )]
+            []
+        )
+    )
+    (ImportFrom
+        sympy.simplify
+        [(collect
+        ())
+        (powsimp
+        ())
+        (separatevars
+        ())
+        (simplify
+        ())]
+        0
+    )
+    (Expr
+        (Await
+            (Call
+                (Name
+                    test
+                    Load
+                )
+                [(Name
+                    x
+                    Load
+                )
+                (Name
+                    y
+                    Load
+                )
+                (Name
+                    z
+                    Load
+                )]
+                []
+            )
+        )
+    )]
+    [(TypeIgnore
+        0
+        ""
+    )
+    (TypeIgnore
+        0
+        ""
+    )
+    (TypeIgnore
+        0
+        ""
+    )
+    (TypeIgnore
+        0
+        ""
+    )
+    (TypeIgnore
+        0
+        ""
+    )
+    (TypeIgnore
+        0
+        ""
+    )
+    (TypeIgnore
+        0
+        ""
+    )
+    (TypeIgnore
+        0
+        ""
+    )]
+)
diff --git a/tests/reference/ast_new-unicode-d3199dc.json b/tests/reference/ast_new-unicode-d3199dc.json
index 96d8398ef6..953033c69f 100644
--- a/tests/reference/ast_new-unicode-d3199dc.json
+++ b/tests/reference/ast_new-unicode-d3199dc.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "ast_new-unicode-d3199dc.stdout",
-    "stdout_hash": "bdca5ecb774b300120d0fb96e5d605081cc605679407404407f9b050",
+    "stdout_hash": "094e93359015843e391595911489ad12bf6abeb7fdc92649bb97ca3a",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/ast_new-unicode-d3199dc.stdout b/tests/reference/ast_new-unicode-d3199dc.stdout
index 0f34519ea8..25bedb5aa2 100644
--- a/tests/reference/ast_new-unicode-d3199dc.stdout
+++ b/tests/reference/ast_new-unicode-d3199dc.stdout
@@ -1 +1,96 @@
-(Module [(FunctionDef test_frompyfunc_name ([] [(self () ())] [] [] [] [] []) [(FunctionDef cassé ([] [(x () ())] [] [] [] [] []) [(Return (Name x Load))] [] () ())] [] () ()) (Assign [(Name ℙƴtℌøἤ Store)] (ConstantInt 1 ()) ()) (Expr (Call (Name print Load) [(Name ℙƴtℌøἤ Load)] [])) (If (Compare (Name 诶 Load) NotEq [(ConstantInt 2 ())]) [(Pass)] []) (FunctionDef क१ ([] [] [] [] [] [] []) [(Expr (ConstantEllipsis ()))] [] () ())] [])
+(Module
+    [(FunctionDef
+        test_frompyfunc_name
+        ([]
+        [(self
+        ()
+        ())]
+        []
+        []
+        []
+        []
+        [])
+        [(FunctionDef
+            cassé
+            ([]
+            [(x
+            ()
+            ())]
+            []
+            []
+            []
+            []
+            [])
+            [(Return
+                (Name
+                    x
+                    Load
+                )
+            )]
+            []
+            ()
+            ()
+        )]
+        []
+        ()
+        ()
+    )
+    (Assign
+        [(Name
+            ℙƴtℌøἤ
+            Store
+        )]
+        (ConstantInt
+            1
+            ()
+        )
+        ()
+    )
+    (Expr
+        (Call
+            (Name
+                print
+                Load
+            )
+            [(Name
+                ℙƴtℌøἤ
+                Load
+            )]
+            []
+        )
+    )
+    (If
+        (Compare
+            (Name
+                诶
+                Load
+            )
+            NotEq
+            [(ConstantInt
+                2
+                ()
+            )]
+        )
+        [(Pass)]
+        []
+    )
+    (FunctionDef
+        क१
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(Expr
+            (ConstantEllipsis
+                ()
+            )
+        )]
+        []
+        ()
+        ()
+    )]
+    []
+)
diff --git a/tests/reference/ast_new-while1-a4c6382.json b/tests/reference/ast_new-while1-a4c6382.json
index 641ef928c1..b007957ac4 100644
--- a/tests/reference/ast_new-while1-a4c6382.json
+++ b/tests/reference/ast_new-while1-a4c6382.json
@@ -2,11 +2,11 @@
     "basename": "ast_new-while1-a4c6382",
     "cmd": "lpython --show-ast --new-parser --no-color {infile} -o {outfile}",
     "infile": "tests/parser/while1.py",
-    "infile_hash": "ca6e1d6f8809936e2738bd4d409e5a8e2ada7517ca212f4bcf84f01f",
+    "infile_hash": "d013884f95378177c308b9e8cc762e1f1a57ff5b49ea7aae5461901e",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "ast_new-while1-a4c6382.stdout",
-    "stdout_hash": "8e2753c78ac1905a1030d969fb71401418730c29b92662405007a3d6",
+    "stdout_hash": "90f2e03370e7ea2eb4cfc10b32b6c7b24b4abb61491c46e5e23b8629",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/ast_new-while1-a4c6382.stdout b/tests/reference/ast_new-while1-a4c6382.stdout
index e18d48e4e1..4bbcf5b705 100644
--- a/tests/reference/ast_new-while1-a4c6382.stdout
+++ b/tests/reference/ast_new-while1-a4c6382.stdout
@@ -1 +1,84 @@
-(Module [(ImportFrom ltypes [(i32 ())] 0) (AnnAssign (Name i Store) (Name i32 Load) (ConstantInt 10 ()) 1) (While (Compare (Name i Load) Lt [(ConstantInt 3 ())]) [(Pass)] []) (While (Compare (Name i Load) Lt [(ConstantInt 6 ())]) [(Pass)] [(Pass)]) (While (Compare (Name i Load) Lt [(ConstantInt 3 ())]) [(Pass)] []) (While (Compare (Name i Load) Lt [(ConstantInt 6 ())]) [(Pass)] [(Pass)])] [])
+(Module
+    [(ImportFrom
+        lpython
+        [(i32
+        ())]
+        0
+    )
+    (AnnAssign
+        (Name
+            i
+            Store
+        )
+        (Name
+            i32
+            Load
+        )
+        (ConstantInt
+            10
+            ()
+        )
+        1
+    )
+    (While
+        (Compare
+            (Name
+                i
+                Load
+            )
+            Lt
+            [(ConstantInt
+                3
+                ()
+            )]
+        )
+        [(Pass)]
+        []
+    )
+    (While
+        (Compare
+            (Name
+                i
+                Load
+            )
+            Lt
+            [(ConstantInt
+                6
+                ()
+            )]
+        )
+        [(Pass)]
+        [(Pass)]
+    )
+    (While
+        (Compare
+            (Name
+                i
+                Load
+            )
+            Lt
+            [(ConstantInt
+                3
+                ()
+            )]
+        )
+        [(Pass)]
+        []
+    )
+    (While
+        (Compare
+            (Name
+                i
+                Load
+            )
+            Lt
+            [(ConstantInt
+                6
+                ()
+            )]
+        )
+        [(Pass)]
+        [(Pass)]
+    )]
+    []
+)
diff --git a/tests/reference/ast_new-with1-6c88c0f.json b/tests/reference/ast_new-with1-6c88c0f.json
index 48cb4921df..379e083532 100644
--- a/tests/reference/ast_new-with1-6c88c0f.json
+++ b/tests/reference/ast_new-with1-6c88c0f.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "ast_new-with1-6c88c0f.stdout",
-    "stdout_hash": "8cb25ca954354d5367a8eb2e070c8db664cf3aa3773802d1da54c2ba",
+    "stdout_hash": "da9e18ca666189ea27993cfac36f5193654225e29453bd37b5df0a17",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/ast_new-with1-6c88c0f.stdout b/tests/reference/ast_new-with1-6c88c0f.stdout
index 536c0e98c4..d1cef145af 100644
--- a/tests/reference/ast_new-with1-6c88c0f.stdout
+++ b/tests/reference/ast_new-with1-6c88c0f.stdout
@@ -1 +1,331 @@
-(Module [(With [((Call (Name A Load) [] []) (Name a Store)) ((Call (Name B Load) [] []) (Name b Store))] [(Expr (Call (Name f Load) [(Name a Load) (Name b Load)] []))] ()) (With [((Call (Name A Load) [] []) (Name a Store)) ((Call (Name B Load) [(Name a Load)] []) (Name b Store)) ((Call (Name C Load) [(Name a Load) (Name b Load)] []) (Name c Store))] [(Expr (Call (Name f Load) [(Name a Load) (Name c Load)] []))] ()) (With [((Call (Name open Load) [(ConstantStr "examples/expr2.py" ()) (ConstantStr "r" ())] []) (Name file Store))] [(Assign [(Name x Store)] (Call (Attribute (Name file Load) read Load) [] []) ())] ()) (With [((Call (Name open Load) [(ConstantEllipsis ())] []) (Name f Store))] [(Expr (ConstantEllipsis ()))] ()) (With [((Call (Name open Load) [(ConstantStr "examples/expr2.py" ()) (ConstantStr "r" ())] []) (Name file Store))] [(Assign [(Name x Store)] (Call (Attribute (Name file Load) read Load) [] []) ())] ()) (With [((Name a Load) ()) ((Name b Load) ()) ((Name c Load) (Name y Store)) ((Name z Load) ())] [(Pass)] ()) (With [((Call (Name tag Load) [(ConstantStr "x" ())] []) ())] [(Pass)] ()) (With [((Name t Load) (Name x Store)) ((Call (Name y Load) [] []) ())] [(Expr (ConstantEllipsis ()))] ()) (With [((Name a Load) (Name b Store)) ((Call (Name c Load) [] []) ()) ((Call (Name d Load) [] []) ()) ((Name e Load) (Name f Store)) ((Name g Load) (Name x Store))] [(Pass)] ())] [])
+(Module
+    [(With
+        [((Call
+            (Name
+                A
+                Load
+            )
+            []
+            []
+        )
+        (Name
+            a
+            Store
+        ))
+        ((Call
+            (Name
+                B
+                Load
+            )
+            []
+            []
+        )
+        (Name
+            b
+            Store
+        ))]
+        [(Expr
+            (Call
+                (Name
+                    f
+                    Load
+                )
+                [(Name
+                    a
+                    Load
+                )
+                (Name
+                    b
+                    Load
+                )]
+                []
+            )
+        )]
+        ()
+    )
+    (With
+        [((Call
+            (Name
+                A
+                Load
+            )
+            []
+            []
+        )
+        (Name
+            a
+            Store
+        ))
+        ((Call
+            (Name
+                B
+                Load
+            )
+            [(Name
+                a
+                Load
+            )]
+            []
+        )
+        (Name
+            b
+            Store
+        ))
+        ((Call
+            (Name
+                C
+                Load
+            )
+            [(Name
+                a
+                Load
+            )
+            (Name
+                b
+                Load
+            )]
+            []
+        )
+        (Name
+            c
+            Store
+        ))]
+        [(Expr
+            (Call
+                (Name
+                    f
+                    Load
+                )
+                [(Name
+                    a
+                    Load
+                )
+                (Name
+                    c
+                    Load
+                )]
+                []
+            )
+        )]
+        ()
+    )
+    (With
+        [((Call
+            (Name
+                open
+                Load
+            )
+            [(ConstantStr
+                "examples/expr2.py"
+                ()
+            )
+            (ConstantStr
+                "r"
+                ()
+            )]
+            []
+        )
+        (Name
+            file
+            Store
+        ))]
+        [(Assign
+            [(Name
+                x
+                Store
+            )]
+            (Call
+                (Attribute
+                    (Name
+                        file
+                        Load
+                    )
+                    read
+                    Load
+                )
+                []
+                []
+            )
+            ()
+        )]
+        ()
+    )
+    (With
+        [((Call
+            (Name
+                open
+                Load
+            )
+            [(ConstantEllipsis
+                ()
+            )]
+            []
+        )
+        (Name
+            f
+            Store
+        ))]
+        [(Expr
+            (ConstantEllipsis
+                ()
+            )
+        )]
+        ()
+    )
+    (With
+        [((Call
+            (Name
+                open
+                Load
+            )
+            [(ConstantStr
+                "examples/expr2.py"
+                ()
+            )
+            (ConstantStr
+                "r"
+                ()
+            )]
+            []
+        )
+        (Name
+            file
+            Store
+        ))]
+        [(Assign
+            [(Name
+                x
+                Store
+            )]
+            (Call
+                (Attribute
+                    (Name
+                        file
+                        Load
+                    )
+                    read
+                    Load
+                )
+                []
+                []
+            )
+            ()
+        )]
+        ()
+    )
+    (With
+        [((Name
+            a
+            Load
+        )
+        ())
+        ((Name
+            b
+            Load
+        )
+        ())
+        ((Name
+            c
+            Load
+        )
+        (Name
+            y
+            Store
+        ))
+        ((Name
+            z
+            Load
+        )
+        ())]
+        [(Pass)]
+        ()
+    )
+    (With
+        [((Call
+            (Name
+                tag
+                Load
+            )
+            [(ConstantStr
+                "x"
+                ()
+            )]
+            []
+        )
+        ())]
+        [(Pass)]
+        ()
+    )
+    (With
+        [((Name
+            t
+            Load
+        )
+        (Name
+            x
+            Store
+        ))
+        ((Call
+            (Name
+                y
+                Load
+            )
+            []
+            []
+        )
+        ())]
+        [(Expr
+            (ConstantEllipsis
+                ()
+            )
+        )]
+        ()
+    )
+    (With
+        [((Name
+            a
+            Load
+        )
+        (Name
+            b
+            Store
+        ))
+        ((Call
+            (Name
+                c
+                Load
+            )
+            []
+            []
+        )
+        ())
+        ((Call
+            (Name
+                d
+                Load
+            )
+            []
+            []
+        )
+        ())
+        ((Name
+            e
+            Load
+        )
+        (Name
+            f
+            Store
+        ))
+        ((Name
+            g
+            Load
+        )
+        (Name
+            x
+            Store
+        ))]
+        [(Pass)]
+        ()
+    )]
+    []
+)
diff --git a/tests/reference/ast_new-yield-4c41668.json b/tests/reference/ast_new-yield-4c41668.json
index ecf2a1553c..84c7e07ded 100644
--- a/tests/reference/ast_new-yield-4c41668.json
+++ b/tests/reference/ast_new-yield-4c41668.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "ast_new-yield-4c41668.stdout",
-    "stdout_hash": "57b53209a43ea3c08dfd63cf5ef940e96e60c46457babb93c30d5ba7",
+    "stdout_hash": "86dec82fdfba5c8c8fe63c0a67dac680041e208fb7f372bf1744ce7d",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/ast_new-yield-4c41668.stdout b/tests/reference/ast_new-yield-4c41668.stdout
index 11e8878e0c..f6007b5793 100644
--- a/tests/reference/ast_new-yield-4c41668.stdout
+++ b/tests/reference/ast_new-yield-4c41668.stdout
@@ -1 +1,346 @@
-(Module [(FunctionDef func ([] [] [] [] [] [] []) [(AnnAssign (Name x Store) (Subscript (Name list Load) (Name i32 Load) Load) () 1) (Assign [(Name x Store)] (List [(ConstantInt 1 ()) (ConstantInt 2 ()) (ConstantInt 3 ())] Load) ()) (AnnAssign (Name i Store) (Name i32 Load) () 1) (For (Name i Store) (Name x Load) [(Expr (Yield (Name i Load)))] [] ()) (For (Name i Store) (Name x Load) [(Expr (Yield (Name i Load)))] [] ()) (For (Name i Store) (Name x Load) [(Expr (Yield (Tuple [] Load)))] [] ()) (For (Name _ Store) (Name x Load) [(Expr (Yield ()))] [] ()) (Expr (Yield (Tuple [(Name x Load) (Name y Load)] Load))) (Expr (Yield (Tuple [(Name x Load) (Name y Load)] Load)))] [] () ()) (FunctionDef iterable1 ([] [] [] [] [] [] []) [(Expr (Yield (ConstantInt 1 ()))) (Expr (Yield (ConstantInt 2 ())))] [] () ()) (FunctionDef iterable2 ([] [] [] [] [] [] []) [(Expr (YieldFrom (Call (Name iterable1 Load) [] []))) (Expr (Yield (ConstantInt 3 ())))] [] () ()) (Assert (Compare (Call (Name list Load) [(Call (Name iterable2 Load) [] [])] []) Eq [(List [(ConstantInt 1 ()) (ConstantInt 2 ()) (ConstantInt 3 ())] Load)]) ()) (FunctionDef test_02 ([] [] [] [] [] [] []) [(Assign [(Name x Store)] (Yield (ConstantInt 123 ())) ()) (Assign [(Name generator Store)] (Call (Name type Load) [(Call (Lambda ([] [] [] [] [] [] []) (Yield ())) [] [])] []) ()) (Return (YieldFrom (Call (Attribute (Name awaitable Load) __await__ Load) [] [])))] [] () ())] [])
+(Module
+    [(FunctionDef
+        func
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(AnnAssign
+            (Name
+                x
+                Store
+            )
+            (Subscript
+                (Name
+                    list
+                    Load
+                )
+                (Name
+                    i32
+                    Load
+                )
+                Load
+            )
+            ()
+            1
+        )
+        (Assign
+            [(Name
+                x
+                Store
+            )]
+            (List
+                [(ConstantInt
+                    1
+                    ()
+                )
+                (ConstantInt
+                    2
+                    ()
+                )
+                (ConstantInt
+                    3
+                    ()
+                )]
+                Load
+            )
+            ()
+        )
+        (AnnAssign
+            (Name
+                i
+                Store
+            )
+            (Name
+                i32
+                Load
+            )
+            ()
+            1
+        )
+        (For
+            (Name
+                i
+                Store
+            )
+            (Name
+                x
+                Load
+            )
+            [(Expr
+                (Yield
+                    (Name
+                        i
+                        Load
+                    )
+                )
+            )]
+            []
+            ()
+        )
+        (For
+            (Name
+                i
+                Store
+            )
+            (Name
+                x
+                Load
+            )
+            [(Expr
+                (Yield
+                    (Name
+                        i
+                        Load
+                    )
+                )
+            )]
+            []
+            ()
+        )
+        (For
+            (Name
+                i
+                Store
+            )
+            (Name
+                x
+                Load
+            )
+            [(Expr
+                (Yield
+                    (Tuple
+                        []
+                        Load
+                    )
+                )
+            )]
+            []
+            ()
+        )
+        (For
+            (Name
+                _
+                Store
+            )
+            (Name
+                x
+                Load
+            )
+            [(Expr
+                (Yield
+                    ()
+                )
+            )]
+            []
+            ()
+        )
+        (Expr
+            (Yield
+                (Tuple
+                    [(Name
+                        x
+                        Load
+                    )
+                    (Name
+                        y
+                        Load
+                    )]
+                    Load
+                )
+            )
+        )
+        (Expr
+            (Yield
+                (Tuple
+                    [(Name
+                        x
+                        Load
+                    )
+                    (Name
+                        y
+                        Load
+                    )]
+                    Load
+                )
+            )
+        )]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        iterable1
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(Expr
+            (Yield
+                (ConstantInt
+                    1
+                    ()
+                )
+            )
+        )
+        (Expr
+            (Yield
+                (ConstantInt
+                    2
+                    ()
+                )
+            )
+        )]
+        []
+        ()
+        ()
+    )
+    (FunctionDef
+        iterable2
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(Expr
+            (YieldFrom
+                (Call
+                    (Name
+                        iterable1
+                        Load
+                    )
+                    []
+                    []
+                )
+            )
+        )
+        (Expr
+            (Yield
+                (ConstantInt
+                    3
+                    ()
+                )
+            )
+        )]
+        []
+        ()
+        ()
+    )
+    (Assert
+        (Compare
+            (Call
+                (Name
+                    list
+                    Load
+                )
+                [(Call
+                    (Name
+                        iterable2
+                        Load
+                    )
+                    []
+                    []
+                )]
+                []
+            )
+            Eq
+            [(List
+                [(ConstantInt
+                    1
+                    ()
+                )
+                (ConstantInt
+                    2
+                    ()
+                )
+                (ConstantInt
+                    3
+                    ()
+                )]
+                Load
+            )]
+        )
+        ()
+    )
+    (FunctionDef
+        test_02
+        ([]
+        []
+        []
+        []
+        []
+        []
+        [])
+        [(Assign
+            [(Name
+                x
+                Store
+            )]
+            (Yield
+                (ConstantInt
+                    123
+                    ()
+                )
+            )
+            ()
+        )
+        (Assign
+            [(Name
+                generator
+                Store
+            )]
+            (Call
+                (Name
+                    type
+                    Load
+                )
+                [(Call
+                    (Lambda
+                        ([]
+                        []
+                        []
+                        []
+                        []
+                        []
+                        [])
+                        (Yield
+                            ()
+                        )
+                    )
+                    []
+                    []
+                )]
+                []
+            )
+            ()
+        )
+        (Return
+            (YieldFrom
+                (Call
+                    (Attribute
+                        (Name
+                            awaitable
+                            Load
+                        )
+                        __await__
+                        Load
+                    )
+                    []
+                    []
+                )
+            )
+        )]
+        []
+        ()
+        ()
+    )]
+    []
+)
diff --git a/tests/reference/c-c_interop1-e215531.json b/tests/reference/c-c_interop1-e215531.json
index ba410a23fa..9cd8533dac 100644
--- a/tests/reference/c-c_interop1-e215531.json
+++ b/tests/reference/c-c_interop1-e215531.json
@@ -2,11 +2,11 @@
     "basename": "c-c_interop1-e215531",
     "cmd": "lpython --no-color --show-c {infile}",
     "infile": "tests/c_interop1.py",
-    "infile_hash": "9e22168a97e0bbf12aef953048f7e7b781460c70cebd355e903f0934",
+    "infile_hash": "aeb797508318740ae58a14cf663910a8fa077c574eaf79b9f54656ef",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "c-c_interop1-e215531.stdout",
-    "stdout_hash": "3bc9bc474cda656a2012aad05b9bf9b9a498016da571f8e5a4857138",
+    "stdout_hash": "9d9dd1715b625024203f8b4de330a936a806c5e8031ae7b643c23e71",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/c-c_interop1-e215531.stdout b/tests/reference/c-c_interop1-e215531.stdout
index 047aad9374..60c6da2270 100644
--- a/tests/reference/c-c_interop1-e215531.stdout
+++ b/tests/reference/c-c_interop1-e215531.stdout
@@ -6,34 +6,8 @@
 #include <string.h>
 #include <lfortran_intrinsics.h>
 
-#define ASSERT(cond)                                                           \
-    {                                                                          \
-        if (!(cond)) {                                                         \
-            printf("%s%s", "ASSERT failed: ", __FILE__);                       \
-            printf("%s%s", "\nfunction ", __func__);                           \
-            printf("%s%d%s", "(), line number ", __LINE__, " at \n");          \
-            printf("%s%s", #cond, "\n");                                       \
-            exit(1);                                                           \
-        }                                                                      \
-    }
-#define ASSERT_MSG(cond, msg)                                                  \
-    {                                                                          \
-        if (!(cond)) {                                                         \
-            printf("%s%s", "ASSERT failed: ", __FILE__);                       \
-            printf("%s%s", "\nfunction ", __func__);                           \
-            printf("%s%d%s", "(), line number ", __LINE__, " at \n");          \
-            printf("%s%s", #cond, "\n");                                       \
-            printf("%s", "ERROR MESSAGE:\n");                                  \
-            printf("%s%s", msg, "\n");                                         \
-            exit(1);                                                           \
-        }                                                                      \
-    }
 
 
-struct dimension_descriptor
-{
-    int32_t lower_bound, length;
-};
 
 // Implementations
 double f(double x);
@@ -52,24 +26,8 @@ void l(double a, float b, int64_t c, int32_t d)
     printf("%s\n", "OK");
 }
 
-void main0()
-{
-    double i;
-    double x;
-    float y;
-    int64_t z;
-    int32_t zz;
-    x =   5.00000000000000000e+00;
-    i = f(x);
-    y =   5.40000000000000036e+00;
-    z = 3;
-    zz = 2;
-    g(x, y, z, zz);
-    i = h(x);
-    l(x, y, z, zz);
-}
-
 int main(int argc, char* argv[])
 {
+    _lpython_set_argv(argc, argv);
     return 0;
 }
diff --git a/tests/reference/c-expr7-bb2692a.json b/tests/reference/c-expr7-bb2692a.json
index ea7dedcec9..0b4ec36079 100644
--- a/tests/reference/c-expr7-bb2692a.json
+++ b/tests/reference/c-expr7-bb2692a.json
@@ -2,11 +2,11 @@
     "basename": "c-expr7-bb2692a",
     "cmd": "lpython --no-color --show-c {infile}",
     "infile": "tests/expr7.py",
-    "infile_hash": "7e10fd3558ed9a0c805fd1f27740f6cc539142917841585c7679779b",
+    "infile_hash": "7ef1383d1798621ee35adb7296bfe66dcdc08a21ac8dc86b9ce42878",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "c-expr7-bb2692a.stdout",
-    "stdout_hash": "a70492b4943357f24d3b7b469928d227d0b1e7d2807e81b2a57b82ce",
+    "stdout_hash": "acb3f8641841f12a51c741ce5aa036be98d50c0feba7d729bf8ed5eb",
     "stderr": "c-expr7-bb2692a.stderr",
     "stderr_hash": "6e9790ac88db1a9ead8f64a91ba8a6605de67167037908a74b77be0c",
     "returncode": 0
diff --git a/tests/reference/c-expr7-bb2692a.stdout b/tests/reference/c-expr7-bb2692a.stdout
index 6241214f85..c07786982e 100644
--- a/tests/reference/c-expr7-bb2692a.stdout
+++ b/tests/reference/c-expr7-bb2692a.stdout
@@ -1,4 +1,3 @@
-#include <complex.h>
 #include <inttypes.h>
 #include <math.h>
 
@@ -8,34 +7,12 @@
 #include <string.h>
 #include <lfortran_intrinsics.h>
 
-#define ASSERT(cond)                                                           \
-    {                                                                          \
-        if (!(cond)) {                                                         \
-            printf("%s%s", "ASSERT failed: ", __FILE__);                       \
-            printf("%s%s", "\nfunction ", __func__);                           \
-            printf("%s%d%s", "(), line number ", __LINE__, " at \n");          \
-            printf("%s%s", #cond, "\n");                                       \
-            exit(1);                                                           \
-        }                                                                      \
-    }
-#define ASSERT_MSG(cond, msg)                                                  \
-    {                                                                          \
-        if (!(cond)) {                                                         \
-            printf("%s%s", "ASSERT failed: ", __FILE__);                       \
-            printf("%s%s", "\nfunction ", __func__);                           \
-            printf("%s%d%s", "(), line number ", __LINE__, " at \n");          \
-            printf("%s%s", #cond, "\n");                                       \
-            printf("%s", "ERROR MESSAGE:\n");                                  \
-            printf("%s%s", msg, "\n");                                         \
-            exit(1);                                                           \
-        }                                                                      \
-    }
+void test_pow();
+int32_t test_pow_1(int32_t a, int32_t b);
+void main0();
+void __main__global_stmts();
 
 
-struct dimension_descriptor
-{
-    int32_t lower_bound, length;
-};
 
 // Implementations
 double __lpython_overloaded_0__pow(int32_t x, int32_t y)
@@ -45,10 +22,6 @@ double __lpython_overloaded_0__pow(int32_t x, int32_t y)
     return _lpython_return_variable;
 }
 
-float _lfortran_caimag(float complex x);
-
-double _lfortran_zaimag(double complex x);
-
 void test_pow()
 {
     int32_t a;
@@ -71,13 +44,14 @@ void main0()
     c = test_pow_1(1, 2);
 }
 
-void _lpython_main_program()
+void __main__global_stmts()
 {
     main0();
 }
 
 int main(int argc, char* argv[])
 {
-    _lpython_main_program();
+    _lpython_set_argv(argc, argv);
+    __main__global_stmts();
     return 0;
 }
diff --git a/tests/reference/c-expr_01-28f449f.json b/tests/reference/c-expr_01-28f449f.json
index 980dfcff7f..e26f28894a 100644
--- a/tests/reference/c-expr_01-28f449f.json
+++ b/tests/reference/c-expr_01-28f449f.json
@@ -2,11 +2,11 @@
     "basename": "c-expr_01-28f449f",
     "cmd": "lpython --no-color --show-c {infile}",
     "infile": "tests/../integration_tests/expr_01.py",
-    "infile_hash": "c391a2740682aec6070efdfb508697052e45950589fdabd9728127a4",
+    "infile_hash": "230a65e2cddb76f58d56747325caf24b8a1f6277810186581948c514",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "c-expr_01-28f449f.stdout",
-    "stdout_hash": "0225fdec50673f9edc47db50d6269f15ccdc41d87057ba70c89a6748",
+    "stdout_hash": "182f1a13f6ba0679a3107a8a9cc181130651a9f5d2f2acf7c382e431",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/c-expr_01-28f449f.stdout b/tests/reference/c-expr_01-28f449f.stdout
index 5805d65d27..817a7c4225 100644
--- a/tests/reference/c-expr_01-28f449f.stdout
+++ b/tests/reference/c-expr_01-28f449f.stdout
@@ -6,34 +6,12 @@
 #include <string.h>
 #include <lfortran_intrinsics.h>
 
-#define ASSERT(cond)                                                           \
-    {                                                                          \
-        if (!(cond)) {                                                         \
-            printf("%s%s", "ASSERT failed: ", __FILE__);                       \
-            printf("%s%s", "\nfunction ", __func__);                           \
-            printf("%s%d%s", "(), line number ", __LINE__, " at \n");          \
-            printf("%s%s", #cond, "\n");                                       \
-            exit(1);                                                           \
-        }                                                                      \
-    }
-#define ASSERT_MSG(cond, msg)                                                  \
-    {                                                                          \
-        if (!(cond)) {                                                         \
-            printf("%s%s", "ASSERT failed: ", __FILE__);                       \
-            printf("%s%s", "\nfunction ", __func__);                           \
-            printf("%s%d%s", "(), line number ", __LINE__, " at \n");          \
-            printf("%s%s", #cond, "\n");                                       \
-            printf("%s", "ERROR MESSAGE:\n");                                  \
-            printf("%s%s", msg, "\n");                                         \
-            exit(1);                                                           \
-        }                                                                      \
-    }
+inline __attribute__((always_inline)) int32_t add(int32_t x, int32_t y);
+inline __attribute__((always_inline)) int32_t and_op(int32_t x, int32_t y);
+void main0();
+void __main__global_stmts();
 
 
-struct dimension_descriptor
-{
-    int32_t lower_bound, length;
-};
 
 // Implementations
 inline __attribute__((always_inline)) int32_t add(int32_t x, int32_t y)
@@ -63,13 +41,14 @@ void main0()
     ASSERT(z == 16);
 }
 
-void _lpython_main_program()
+void __main__global_stmts()
 {
     main0();
 }
 
 int main(int argc, char* argv[])
 {
-    _lpython_main_program();
+    _lpython_set_argv(argc, argv);
+    __main__global_stmts();
     return 0;
 }
diff --git a/tests/reference/c-expr_11-c452314.json b/tests/reference/c-expr_11-c452314.json
index 4356c6467c..b6c5580a8a 100644
--- a/tests/reference/c-expr_11-c452314.json
+++ b/tests/reference/c-expr_11-c452314.json
@@ -2,11 +2,11 @@
     "basename": "c-expr_11-c452314",
     "cmd": "lpython --no-color --show-c {infile}",
     "infile": "tests/../integration_tests/expr_11.py",
-    "infile_hash": "0519507fdfc01296c8161d8fae6706269bdb2d7b7da54512f5410fca",
+    "infile_hash": "d5027dd0f515c653c66202e02cc961bfbe09e628e069ce57b5f5ffe2",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "c-expr_11-c452314.stdout",
-    "stdout_hash": "0368594379af05335bc6dad09959775ee2f41be4477f8dc1c3f749fd",
+    "stdout_hash": "2d6fe10d9189c578a5a20e042153115de54220d02a56baedc15efc31",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/c-expr_11-c452314.stdout b/tests/reference/c-expr_11-c452314.stdout
index 96910272fc..9edc21adfe 100644
--- a/tests/reference/c-expr_11-c452314.stdout
+++ b/tests/reference/c-expr_11-c452314.stdout
@@ -6,34 +6,10 @@
 #include <string.h>
 #include <lfortran_intrinsics.h>
 
-#define ASSERT(cond)                                                           \
-    {                                                                          \
-        if (!(cond)) {                                                         \
-            printf("%s%s", "ASSERT failed: ", __FILE__);                       \
-            printf("%s%s", "\nfunction ", __func__);                           \
-            printf("%s%d%s", "(), line number ", __LINE__, " at \n");          \
-            printf("%s%s", #cond, "\n");                                       \
-            exit(1);                                                           \
-        }                                                                      \
-    }
-#define ASSERT_MSG(cond, msg)                                                  \
-    {                                                                          \
-        if (!(cond)) {                                                         \
-            printf("%s%s", "ASSERT failed: ", __FILE__);                       \
-            printf("%s%s", "\nfunction ", __func__);                           \
-            printf("%s%d%s", "(), line number ", __LINE__, " at \n");          \
-            printf("%s%s", #cond, "\n");                                       \
-            printf("%s", "ERROR MESSAGE:\n");                                  \
-            printf("%s%s", msg, "\n");                                         \
-            exit(1);                                                           \
-        }                                                                      \
-    }
+void f();
+void __main__global_stmts();
 
 
-struct dimension_descriptor
-{
-    int32_t lower_bound, length;
-};
 
 // Implementations
 void f()
@@ -46,13 +22,14 @@ void f()
     printf("%d\n", b);
 }
 
-void _lpython_main_program()
+void __main__global_stmts()
 {
     f();
 }
 
 int main(int argc, char* argv[])
 {
-    _lpython_main_program();
+    _lpython_set_argv(argc, argv);
+    __main__global_stmts();
     return 0;
 }
diff --git a/tests/reference/c-expr_12-93c7780.json b/tests/reference/c-expr_12-93c7780.json
deleted file mode 100644
index 625367ecc9..0000000000
--- a/tests/reference/c-expr_12-93c7780.json
+++ /dev/null
@@ -1,13 +0,0 @@
-{
-    "basename": "c-expr_12-93c7780",
-    "cmd": "lpython --no-color --show-c {infile}",
-    "infile": "tests/../integration_tests/expr_12.py",
-    "infile_hash": "0d98c6e93b5c0765f6829f51bf12d6487b9fa0d1381e07e11bddbea7",
-    "outfile": null,
-    "outfile_hash": null,
-    "stdout": "c-expr_12-93c7780.stdout",
-    "stdout_hash": "eb08879462b433e55fbbfe330788bea1af316edb842fde0b772f6716",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
-}
\ No newline at end of file
diff --git a/tests/reference/c-expr_12-93c7780.stdout b/tests/reference/c-expr_12-93c7780.stdout
deleted file mode 100644
index 31db71523c..0000000000
--- a/tests/reference/c-expr_12-93c7780.stdout
+++ /dev/null
@@ -1,86 +0,0 @@
-#include <inttypes.h>
-
-#include <stdlib.h>
-#include <stdbool.h>
-#include <stdio.h>
-#include <string.h>
-#include <lfortran_intrinsics.h>
-
-#define ASSERT(cond)                                                           \
-    {                                                                          \
-        if (!(cond)) {                                                         \
-            printf("%s%s", "ASSERT failed: ", __FILE__);                       \
-            printf("%s%s", "\nfunction ", __func__);                           \
-            printf("%s%d%s", "(), line number ", __LINE__, " at \n");          \
-            printf("%s%s", #cond, "\n");                                       \
-            exit(1);                                                           \
-        }                                                                      \
-    }
-#define ASSERT_MSG(cond, msg)                                                  \
-    {                                                                          \
-        if (!(cond)) {                                                         \
-            printf("%s%s", "ASSERT failed: ", __FILE__);                       \
-            printf("%s%s", "\nfunction ", __func__);                           \
-            printf("%s%d%s", "(), line number ", __LINE__, " at \n");          \
-            printf("%s%s", #cond, "\n");                                       \
-            printf("%s", "ERROR MESSAGE:\n");                                  \
-            printf("%s%s", msg, "\n");                                         \
-            exit(1);                                                           \
-        }                                                                      \
-    }
-
-
-struct dimension_descriptor
-{
-    int32_t lower_bound, length;
-};
-
-struct i16
-{
-    int16_t *data;
-    struct dimension_descriptor dims[32];
-    int32_t n_dims;
-    bool is_allocated;
-};
-
-
-// Implementations
-void g(struct i16* *x, struct i16* y)
-{
-    y->data[(0 - y->dims[0].lower_bound)] = 1;
-    y->data[(1 - y->dims[0].lower_bound)] = 2;
-    (*x) = y;
-    printf("%d%s%d\n", (*x)->data[(0 - (*x)->dims[0].lower_bound)], " ", (*x)->data[(1 - (*x)->dims[0].lower_bound)]);
-}
-
-void check(struct i16* *ptr)
-{
-    ASSERT((*ptr)->data[(0 - (*ptr)->dims[0].lower_bound)] == 1);
-    ASSERT((*ptr)->data[(1 - (*ptr)->dims[0].lower_bound)] == 2);
-}
-
-void f()
-{
-    struct i16 y_value;
-    struct i16* y = &y_value;
-    int16_t y_data[2];
-    y->data = y_data;
-    y->n_dims = 1;
-    y->dims[0].lower_bound = 0;
-    y->dims[0].length = 2;
-    struct i16 yptr1_value;
-    struct i16* yptr1 = &yptr1_value;
-    g(&yptr1, y);
-    check(&yptr1);
-}
-
-void _lpython_main_program()
-{
-    f();
-}
-
-int main(int argc, char* argv[])
-{
-    _lpython_main_program();
-    return 0;
-}
diff --git a/tests/reference/c-func_static_01-fc146ec.json b/tests/reference/c-func_static_01-fc146ec.json
index 1f4b4295cd..237ebd35cc 100644
--- a/tests/reference/c-func_static_01-fc146ec.json
+++ b/tests/reference/c-func_static_01-fc146ec.json
@@ -2,11 +2,11 @@
     "basename": "c-func_static_01-fc146ec",
     "cmd": "lpython --no-color --show-c {infile}",
     "infile": "tests/../integration_tests/func_static_01.py",
-    "infile_hash": "33b4434e54b59722232bb2712288cda05ba70bffa9f8161ce8a2c4f4",
+    "infile_hash": "073b018c3b06cdbf34c603363c53e12bf471a80c457aecc676316c29",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "c-func_static_01-fc146ec.stdout",
-    "stdout_hash": "9103c7ffb57004b19818c1bd431686c127abe33733f7bc79f43238b7",
+    "stdout_hash": "ba4195c88f493b5e4d007ced548cd22bb7b12a7ba6a21df7526018bb",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/c-func_static_01-fc146ec.stdout b/tests/reference/c-func_static_01-fc146ec.stdout
index 6aebd0b7b6..38379130dc 100644
--- a/tests/reference/c-func_static_01-fc146ec.stdout
+++ b/tests/reference/c-func_static_01-fc146ec.stdout
@@ -6,34 +6,11 @@
 #include <string.h>
 #include <lfortran_intrinsics.h>
 
-#define ASSERT(cond)                                                           \
-    {                                                                          \
-        if (!(cond)) {                                                         \
-            printf("%s%s", "ASSERT failed: ", __FILE__);                       \
-            printf("%s%s", "\nfunction ", __func__);                           \
-            printf("%s%d%s", "(), line number ", __LINE__, " at \n");          \
-            printf("%s%s", #cond, "\n");                                       \
-            exit(1);                                                           \
-        }                                                                      \
-    }
-#define ASSERT_MSG(cond, msg)                                                  \
-    {                                                                          \
-        if (!(cond)) {                                                         \
-            printf("%s%s", "ASSERT failed: ", __FILE__);                       \
-            printf("%s%s", "\nfunction ", __func__);                           \
-            printf("%s%d%s", "(), line number ", __LINE__, " at \n");          \
-            printf("%s%s", #cond, "\n");                                       \
-            printf("%s", "ERROR MESSAGE:\n");                                  \
-            printf("%s%s", msg, "\n");                                         \
-            exit(1);                                                           \
-        }                                                                      \
-    }
+static int64_t fib(int64_t n);
+void main0();
+void __main__global_stmts();
 
 
-struct dimension_descriptor
-{
-    int32_t lower_bound, length;
-};
 
 // Implementations
 static int64_t fib(int64_t n)
@@ -56,13 +33,14 @@ void main0()
     ASSERT(ans == 5);
 }
 
-void _lpython_main_program()
+void __main__global_stmts()
 {
     main0();
 }
 
 int main(int argc, char* argv[])
 {
-    _lpython_main_program();
+    _lpython_set_argv(argc, argv);
+    __main__global_stmts();
     return 0;
 }
diff --git a/tests/reference/c-import_order_01-3ebf3c3.json b/tests/reference/c-import_order_01-3ebf3c3.json
new file mode 100644
index 0000000000..8a602aa1fc
--- /dev/null
+++ b/tests/reference/c-import_order_01-3ebf3c3.json
@@ -0,0 +1,13 @@
+{
+    "basename": "c-import_order_01-3ebf3c3",
+    "cmd": "lpython --no-color --disable-main --show-c {infile}",
+    "infile": "tests/../integration_tests/import_order_01.py",
+    "infile_hash": "b6f67090973a5fce0778dbdd86fdb12272a8da5bbae2f50051df34e5",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": "c-import_order_01-3ebf3c3.stdout",
+    "stdout_hash": "f3e4798c2ffb4df885977927d38d89b0354c812264ae40b4e7103ced",
+    "stderr": null,
+    "stderr_hash": null,
+    "returncode": 0
+}
\ No newline at end of file
diff --git a/tests/reference/c-import_order_01-3ebf3c3.stdout b/tests/reference/c-import_order_01-3ebf3c3.stdout
new file mode 100644
index 0000000000..3a50069788
--- /dev/null
+++ b/tests/reference/c-import_order_01-3ebf3c3.stdout
@@ -0,0 +1,27 @@
+#include <inttypes.h>
+
+#include <stdlib.h>
+#include <stdbool.h>
+#include <stdio.h>
+#include <string.h>
+#include <lfortran_intrinsics.h>
+
+int32_t f();
+
+
+
+// Implementations
+int32_t f()
+{
+    int32_t _lpython_return_variable;
+    _lpython_return_variable = 42;
+    return _lpython_return_variable;
+}
+
+void main1()
+{
+    int32_t a;
+    a = f();
+    printf("%d\n", a);
+}
+
diff --git a/tests/reference/c-loop1-3e341c7.json b/tests/reference/c-loop1-3e341c7.json
deleted file mode 100644
index 332b6b671e..0000000000
--- a/tests/reference/c-loop1-3e341c7.json
+++ /dev/null
@@ -1,13 +0,0 @@
-{
-    "basename": "c-loop1-3e341c7",
-    "cmd": "lpython --no-color --show-c {infile}",
-    "infile": "tests/loop1.py",
-    "infile_hash": "0eee568be1d20a4c31b59c33ae2b47509fce3f6047fa1ffa592947e9",
-    "outfile": null,
-    "outfile_hash": null,
-    "stdout": "c-loop1-3e341c7.stdout",
-    "stdout_hash": "9f44ec0aa178c5904de5ffcad9892f5a9734ccc16df6a130494bf9d6",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
-}
\ No newline at end of file
diff --git a/tests/reference/c-loop1-3e341c7.stdout b/tests/reference/c-loop1-3e341c7.stdout
deleted file mode 100644
index 6f058bf665..0000000000
--- a/tests/reference/c-loop1-3e341c7.stdout
+++ /dev/null
@@ -1,105 +0,0 @@
-#include <inttypes.h>
-
-#include <stdlib.h>
-#include <stdbool.h>
-#include <stdio.h>
-#include <string.h>
-#include <lfortran_intrinsics.h>
-
-#define ASSERT(cond)                                                           \
-    {                                                                          \
-        if (!(cond)) {                                                         \
-            printf("%s%s", "ASSERT failed: ", __FILE__);                       \
-            printf("%s%s", "\nfunction ", __func__);                           \
-            printf("%s%d%s", "(), line number ", __LINE__, " at \n");          \
-            printf("%s%s", #cond, "\n");                                       \
-            exit(1);                                                           \
-        }                                                                      \
-    }
-#define ASSERT_MSG(cond, msg)                                                  \
-    {                                                                          \
-        if (!(cond)) {                                                         \
-            printf("%s%s", "ASSERT failed: ", __FILE__);                       \
-            printf("%s%s", "\nfunction ", __func__);                           \
-            printf("%s%d%s", "(), line number ", __LINE__, " at \n");          \
-            printf("%s%s", #cond, "\n");                                       \
-            printf("%s", "ERROR MESSAGE:\n");                                  \
-            printf("%s%s", msg, "\n");                                         \
-            exit(1);                                                           \
-        }                                                                      \
-    }
-
-
-struct dimension_descriptor
-{
-    int32_t lower_bound, length;
-};
-
-// Implementations
-int32_t test_factorial_1(int32_t x)
-{
-    int32_t _lpython_return_variable;
-    int32_t result;
-    if (x < 0) {
-        _lpython_return_variable = 0;
-        return _lpython_return_variable;
-    }
-    result = 1;
-    while (x > 0) {
-        result = result*x;
-        x = x - 1;
-    }
-    _lpython_return_variable = result;
-    return _lpython_return_variable;
-}
-
-int32_t test_factorial_2(int32_t x)
-{
-    int32_t _lpython_return_variable;
-    int32_t i;
-    int32_t result;
-    result = 1;
-    for (i=1; i<=x + 1 - 1; i++) {
-        result = result*i;
-    }
-    _lpython_return_variable = result;
-    return _lpython_return_variable;
-}
-
-int64_t test_factorial_3(int32_t x)
-{
-    int64_t _lpython_return_variable;
-    int64_t result;
-    result = 0;
-    if (x < 0) {
-        _lpython_return_variable = result;
-        return _lpython_return_variable;
-    }
-    result = 1;
-    while (x > 0) {
-        result = result*x;
-        x = x - 1;
-    }
-    _lpython_return_variable = result;
-    return _lpython_return_variable;
-}
-
-void main0()
-{
-    int32_t i;
-    int64_t j;
-    i = test_factorial_1(4);
-    i = test_factorial_2(4);
-    j = test_factorial_3(5);
-}
-
-void _lpython_main_program()
-{
-    main0();
-}
-
-int main(int argc, char* argv[])
-{
-    _lpython_main_program();
-    return 0;
-}
diff --git a/tests/reference/c-loop2-ce7de51.json b/tests/reference/c-loop2-ce7de51.json
deleted file mode 100644
index d3ecf0fd0d..0000000000
--- a/tests/reference/c-loop2-ce7de51.json
+++ /dev/null
@@ -1,13 +0,0 @@
-{
-    "basename": "c-loop2-ce7de51",
-    "cmd": "lpython --no-color --show-c {infile}",
-    "infile": "tests/loop2.py",
-    "infile_hash": "7946c522ceb16f99810780d4aba7fa2593695a4b49fb35ea1f131f53",
-    "outfile": null,
-    "outfile_hash": null,
-    "stdout": "c-loop2-ce7de51.stdout",
-    "stdout_hash": "d6afc255b7317940abf6e44bfc800a0e5b0adcb3f3a9213567d3ea26",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
-}
\ No newline at end of file
diff --git a/tests/reference/c-loop2-ce7de51.stdout b/tests/reference/c-loop2-ce7de51.stdout
deleted file mode 100644
index a2afa84b50..0000000000
--- a/tests/reference/c-loop2-ce7de51.stdout
+++ /dev/null
@@ -1,74 +0,0 @@
-#include <inttypes.h>
-
-#include <stdlib.h>
-#include <stdbool.h>
-#include <stdio.h>
-#include <string.h>
-#include <lfortran_intrinsics.h>
-
-#define ASSERT(cond)                                                           \
-    {                                                                          \
-        if (!(cond)) {                                                         \
-            printf("%s%s", "ASSERT failed: ", __FILE__);                       \
-            printf("%s%s", "\nfunction ", __func__);                           \
-            printf("%s%d%s", "(), line number ", __LINE__, " at \n");          \
-            printf("%s%s", #cond, "\n");                                       \
-            exit(1);                                                           \
-        }                                                                      \
-    }
-#define ASSERT_MSG(cond, msg)                                                  \
-    {                                                                          \
-        if (!(cond)) {                                                         \
-            printf("%s%s", "ASSERT failed: ", __FILE__);                       \
-            printf("%s%s", "\nfunction ", __func__);                           \
-            printf("%s%d%s", "(), line number ", __LINE__, " at \n");          \
-            printf("%s%s", #cond, "\n");                                       \
-            printf("%s", "ERROR MESSAGE:\n");                                  \
-            printf("%s%s", msg, "\n");                                         \
-            exit(1);                                                           \
-        }                                                                      \
-    }
-
-
-struct dimension_descriptor
-{
-    int32_t lower_bound, length;
-};
-
-// Implementations
-int32_t _lpython_get_argc();
-
-char* _lpython_get_argv(int32_t index);
-
-void _xx_lcompilers_changed_exit_xx(int32_t error_code)
-{
-    exit(error_code);
-}
-
-void test_for()
-{
-    int32_t i;
-    for (i=0; i<=10 - 1; i++) {
-        if (i == 0) {
-            continue;
-        }
-        if (i > 5) {
-            break;
-        }
-        if (i == 3) {
-            exit(0);
-        }
-    }
-    _xx_lcompilers_changed_exit_xx(2);
-}
-
-void _lpython_main_program()
-{
-    test_for();
-}
-
-int main(int argc, char* argv[])
-{
-    _lpython_main_program();
-    return 0;
-}
diff --git a/tests/reference/c-loop4-eec10d3.json b/tests/reference/c-loop4-eec10d3.json
new file mode 100644
index 0000000000..3ee5448d4f
--- /dev/null
+++ b/tests/reference/c-loop4-eec10d3.json
@@ -0,0 +1,13 @@
+{
+    "basename": "c-loop4-eec10d3",
+    "cmd": "lpython --no-color --show-c {infile}",
+    "infile": "tests/loop4.py",
+    "infile_hash": "660eb1a895c81609d791240171fc34b6f0fea02c43de8f86420b06b7",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": "c-loop4-eec10d3.stdout",
+    "stdout_hash": "8eea5321c1fd80c9bce62d443a5bc4709a5a9cfcb95fc38c8f369ce4",
+    "stderr": null,
+    "stderr_hash": null,
+    "returncode": 0
+}
\ No newline at end of file
diff --git a/tests/reference/c-loop4-eec10d3.stdout b/tests/reference/c-loop4-eec10d3.stdout
new file mode 100644
index 0000000000..d273d2a9c5
--- /dev/null
+++ b/tests/reference/c-loop4-eec10d3.stdout
@@ -0,0 +1,41 @@
+#include <inttypes.h>
+
+#include <stdlib.h>
+#include <stdbool.h>
+#include <stdio.h>
+#include <string.h>
+#include <lfortran_intrinsics.h>
+
+void test_for();
+void __main__global_stmts();
+
+
+
+// Implementations
+void test_for()
+{
+    int32_t i;
+    for (i=0; i<=10 - 1; i++) {
+        if (i == 0) {
+            continue;
+        }
+        if (i > 5) {
+            break;
+        }
+        if (i == 3) {
+            exit(0);
+        }
+    }
+}
+
+void __main__global_stmts()
+{
+    test_for();
+}
+
+int main(int argc, char* argv[])
+{
+    _lpython_set_argv(argc, argv);
+    __main__global_stmts();
+    return 0;
+}
diff --git a/tests/reference/c-print_01-4d44628.json b/tests/reference/c-print_01-4d44628.json
deleted file mode 100644
index 452218c31a..0000000000
--- a/tests/reference/c-print_01-4d44628.json
+++ /dev/null
@@ -1,13 +0,0 @@
-{
-    "basename": "c-print_01-4d44628",
-    "cmd": "lpython --no-color --show-c {infile}",
-    "infile": "tests/../integration_tests/print_01.py",
-    "infile_hash": "4755131262f8eb382c206da769880635ad00787824c37f788d1c3d44",
-    "outfile": null,
-    "outfile_hash": null,
-    "stdout": "c-print_01-4d44628.stdout",
-    "stdout_hash": "876b77dde0878832747e9695554503be1fe752bf6bc76eb6be0ec50e",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
-}
\ No newline at end of file
diff --git a/tests/reference/c-print_01-4d44628.stdout b/tests/reference/c-print_01-4d44628.stdout
deleted file mode 100644
index a163f4cccb..0000000000
--- a/tests/reference/c-print_01-4d44628.stdout
+++ /dev/null
@@ -1,63 +0,0 @@
-
-#include <stdlib.h>
-#include <stdbool.h>
-#include <stdio.h>
-#include <string.h>
-#include <lfortran_intrinsics.h>
-
-#define ASSERT(cond)                                                           \
-    {                                                                          \
-        if (!(cond)) {                                                         \
-            printf("%s%s", "ASSERT failed: ", __FILE__);                       \
-            printf("%s%s", "\nfunction ", __func__);                           \
-            printf("%s%d%s", "(), line number ", __LINE__, " at \n");          \
-            printf("%s%s", #cond, "\n");                                       \
-            exit(1);                                                           \
-        }                                                                      \
-    }
-#define ASSERT_MSG(cond, msg)                                                  \
-    {                                                                          \
-        if (!(cond)) {                                                         \
-            printf("%s%s", "ASSERT failed: ", __FILE__);                       \
-            printf("%s%s", "\nfunction ", __func__);                           \
-            printf("%s%d%s", "(), line number ", __LINE__, " at \n");          \
-            printf("%s%s", #cond, "\n");                                       \
-            printf("%s", "ERROR MESSAGE:\n");                                  \
-            printf("%s%s", msg, "\n");                                         \
-            exit(1);                                                           \
-        }                                                                      \
-    }
-
-
-struct dimension_descriptor
-{
-    int32_t lower_bound, length;
-};
-
-// Implementations
-void f()
-{
-    char * x = NULL;
-    char * y = NULL;
-    printf("%s\n", "Hello World!");
-    _lfortran_strcpy(&x, ",");
-    _lfortran_strcpy(&y, "!!");
-    printf("%s%s%s\n", "a", x, "b");
-    _lfortran_strcpy(&x, "-+-+-");
-    printf("%s%s%s%s%s\n", "a", x, "b", x, "c");
-    printf("%s%s%s%s%s%s", "d", "=", "e", "=", "f", "+\n");
-    printf("%s%s%s%s%s%s", "x", "*\n", "y", "*\n", "z", y);
-    printf("%s%s%s\n", "1", ":", "2");
-    printf("%s%s%s\n", "LCompilers", " ", "LPython");
-}
-
-void _lpython_main_program()
-{
-    f();
-}
-
-int main(int argc, char* argv[])
-{
-    _lpython_main_program();
-    return 0;
-}
diff --git a/tests/reference/c-test_import_02-d2c54c4.json b/tests/reference/c-test_import_02-d2c54c4.json
index 00900f9763..7d54ac11e7 100644
--- a/tests/reference/c-test_import_02-d2c54c4.json
+++ b/tests/reference/c-test_import_02-d2c54c4.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "c-test_import_02-d2c54c4.stdout",
-    "stdout_hash": "f9b88f238f975b6430540713f230a55f96c2a161a1e4cc086beefb4a",
+    "stdout_hash": "7e53f6ff192dc96d09d2f72f5db260acea02d1057e58ec06b3e0bcb0",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/c-test_import_02-d2c54c4.stdout b/tests/reference/c-test_import_02-d2c54c4.stdout
index 84412b8542..bf8235aab9 100644
--- a/tests/reference/c-test_import_02-d2c54c4.stdout
+++ b/tests/reference/c-test_import_02-d2c54c4.stdout
@@ -6,71 +6,48 @@
 #include <string.h>
 #include <lfortran_intrinsics.h>
 
-#define ASSERT(cond)                                                           \
-    {                                                                          \
-        if (!(cond)) {                                                         \
-            printf("%s%s", "ASSERT failed: ", __FILE__);                       \
-            printf("%s%s", "\nfunction ", __func__);                           \
-            printf("%s%d%s", "(), line number ", __LINE__, " at \n");          \
-            printf("%s%s", #cond, "\n");                                       \
-            exit(1);                                                           \
-        }                                                                      \
-    }
-#define ASSERT_MSG(cond, msg)                                                  \
-    {                                                                          \
-        if (!(cond)) {                                                         \
-            printf("%s%s", "ASSERT failed: ", __FILE__);                       \
-            printf("%s%s", "\nfunction ", __func__);                           \
-            printf("%s%d%s", "(), line number ", __LINE__, " at \n");          \
-            printf("%s%s", #cond, "\n");                                       \
-            printf("%s", "ERROR MESSAGE:\n");                                  \
-            printf("%s%s", msg, "\n");                                         \
-            exit(1);                                                           \
-        }                                                                      \
-    }
+int32_t add(int32_t x, int32_t y);
+int32_t multiply(int32_t x, int32_t y);
+void f();
+void __main__global_stmts();
 
 
-struct dimension_descriptor
-{
-    int32_t lower_bound, length;
-};
 
 // Implementations
-#define e   2.71828182845904509e+00
-
-int32_t multiply(int32_t x, int32_t y)
+const double μ =   1.45136923488338110e+00;
+int32_t add(int32_t x, int32_t y)
 {
     int32_t _lpython_return_variable;
-    _lpython_return_variable = x*y;
+    _lpython_return_variable = x + y;
     return _lpython_return_variable;
 }
 
-#define μ   1.45136923488338110e+00
-
-int32_t add(int32_t x, int32_t y)
+const double e =   2.71828182845904509e+00;
+int32_t multiply(int32_t x, int32_t y)
 {
     int32_t _lpython_return_variable;
-    _lpython_return_variable = x + y;
+    _lpython_return_variable = x*y;
     return _lpython_return_variable;
 }
 
 void f()
 {
-    printf("%lf\n", e);
-    printf("%lf\n", μ);
+    printf("%lf\n",   2.71828182845904509e+00);
+    printf("%lf\n",   1.45136923488338110e+00);
     printf("%d\n", add(10, 20));
     printf("%d\n", multiply(10, 20));
     ASSERT(add(10, 20) == 30);
     ASSERT(multiply(10, 20) == 200);
 }
 
-void _lpython_main_program()
+void __main__global_stmts()
 {
     f();
 }
 
 int main(int argc, char* argv[])
 {
-    _lpython_main_program();
+    _lpython_set_argv(argc, argv);
+    __main__global_stmts();
     return 0;
 }
diff --git a/tests/reference/c-test_issue_518-fbbd299.json b/tests/reference/c-test_issue_518-fbbd299.json
index f97c94821a..329271b124 100644
--- a/tests/reference/c-test_issue_518-fbbd299.json
+++ b/tests/reference/c-test_issue_518-fbbd299.json
@@ -2,11 +2,11 @@
     "basename": "c-test_issue_518-fbbd299",
     "cmd": "lpython --no-color --show-c {infile}",
     "infile": "tests/../integration_tests/test_issue_518.py",
-    "infile_hash": "a1e1222536e4b64cb96e0e8087120fe0ab4c18b09f32ef9b05719aaa",
+    "infile_hash": "9cf223e018e0affc76044dff23cb75157fbdca458be3ae68871da8db",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "c-test_issue_518-fbbd299.stdout",
-    "stdout_hash": "be32ee6f42f8fa4ad96f6aec6cc8ec1c46aac25b197cb8de4d07ee54",
+    "stdout_hash": "2140b84aa94533cf8a3cc994b6eefa42b22cb03615c99967a9e3b1e9",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/c-test_issue_518-fbbd299.stdout b/tests/reference/c-test_issue_518-fbbd299.stdout
index 1392cac943..b5733123da 100644
--- a/tests/reference/c-test_issue_518-fbbd299.stdout
+++ b/tests/reference/c-test_issue_518-fbbd299.stdout
@@ -6,34 +6,12 @@
 #include <string.h>
 #include <lfortran_intrinsics.h>
 
-#define ASSERT(cond)                                                           \
-    {                                                                          \
-        if (!(cond)) {                                                         \
-            printf("%s%s", "ASSERT failed: ", __FILE__);                       \
-            printf("%s%s", "\nfunction ", __func__);                           \
-            printf("%s%d%s", "(), line number ", __LINE__, " at \n");          \
-            printf("%s%s", #cond, "\n");                                       \
-            exit(1);                                                           \
-        }                                                                      \
-    }
-#define ASSERT_MSG(cond, msg)                                                  \
-    {                                                                          \
-        if (!(cond)) {                                                         \
-            printf("%s%s", "ASSERT failed: ", __FILE__);                       \
-            printf("%s%s", "\nfunction ", __func__);                           \
-            printf("%s%d%s", "(), line number ", __LINE__, " at \n");          \
-            printf("%s%s", #cond, "\n");                                       \
-            printf("%s", "ERROR MESSAGE:\n");                                  \
-            printf("%s%s", msg, "\n");                                         \
-            exit(1);                                                           \
-        }                                                                      \
-    }
+int64_t fib(int64_t n);
+void main0();
+void _xx_lcompilers_changed_main_xx();
+void __main__global_stmts();
 
 
-struct dimension_descriptor
-{
-    int32_t lower_bound, length;
-};
 
 // Implementations
 int64_t fib(int64_t n)
@@ -63,7 +41,7 @@ void _xx_lcompilers_changed_main_xx()
     ASSERT(ans == 55);
 }
 
-void _lpython_main_program()
+void __main__global_stmts()
 {
     main0();
     _xx_lcompilers_changed_main_xx();
@@ -71,6 +49,7 @@ void _lpython_main_program()
 
 int main(int argc, char* argv[])
 {
-    _lpython_main_program();
+    _lpython_set_argv(argc, argv);
+    __main__global_stmts();
     return 0;
 }
diff --git a/tests/reference/c-variable_decl_03-fa1823b.json b/tests/reference/c-variable_decl_03-fa1823b.json
new file mode 100644
index 0000000000..1060de968b
--- /dev/null
+++ b/tests/reference/c-variable_decl_03-fa1823b.json
@@ -0,0 +1,13 @@
+{
+    "basename": "c-variable_decl_03-fa1823b",
+    "cmd": "lpython --no-color --show-c {infile}",
+    "infile": "tests/../integration_tests/variable_decl_03.py",
+    "infile_hash": "1e6bd54d3ca0db90eec540b68eff063ae2186d623cf0d64335b09cfe",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": "c-variable_decl_03-fa1823b.stdout",
+    "stdout_hash": "b8397cdd7e8998d29574393db30b5638aedd2ecd34a596b8b1c29f7f",
+    "stderr": null,
+    "stderr_hash": null,
+    "returncode": 0
+}
\ No newline at end of file
diff --git a/tests/reference/c-variable_decl_03-fa1823b.stdout b/tests/reference/c-variable_decl_03-fa1823b.stdout
new file mode 100644
index 0000000000..7c25386e04
--- /dev/null
+++ b/tests/reference/c-variable_decl_03-fa1823b.stdout
@@ -0,0 +1,52 @@
+
+#include <stdlib.h>
+#include <stdbool.h>
+#include <stdio.h>
+#include <string.h>
+#include <lfortran_intrinsics.h>
+
+double _lcompilers_abs_f64(double x);
+double f();
+void _xx_lcompilers_changed_main_xx();
+void __main__global_stmts();
+
+
+
+// Implementations
+double _lcompilers_abs_f64(double x)
+{
+    double _lcompilers_abs_f64;
+    if (x >=   0.00000000000000000e+00) {
+        _lcompilers_abs_f64 = x;
+    } else {
+        _lcompilers_abs_f64 = -x;
+    }
+    return _lcompilers_abs_f64;
+}
+
+double f()
+{
+    double _lpython_return_variable;
+    _lpython_return_variable =   5.50000000000000000e+00;
+    return _lpython_return_variable;
+}
+
+void _xx_lcompilers_changed_main_xx()
+{
+    double t1;
+    t1 = f()*  1.00000000000000000e+06;
+    printf("%lf\n", t1);
+    ASSERT(_lcompilers_abs_f64(t1 -   5.50000000000000000e+00*  1.00000000000000000e+06) <=   9.99999999999999955e-07);
+}
+
+void __main__global_stmts()
+{
+    _xx_lcompilers_changed_main_xx();
+}
+
+int main(int argc, char* argv[])
+{
+    _lpython_set_argv(argc, argv);
+    __main__global_stmts();
+    return 0;
+}
diff --git a/tests/reference/cpp-assert1-ba60925.json b/tests/reference/cpp-assert1-ba60925.json
index a3e74ad142..9e0008db37 100644
--- a/tests/reference/cpp-assert1-ba60925.json
+++ b/tests/reference/cpp-assert1-ba60925.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "cpp-assert1-ba60925.stdout",
-    "stdout_hash": "9fb92dc2310b01633d4a2de3d1378200d4de8ed88b880c54ac69c72e",
+    "stdout_hash": "7ac638e8146f048bd5444436ee2b2ac4f85ffa7a1d791cf526adacb4",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/cpp-assert1-ba60925.stdout b/tests/reference/cpp-assert1-ba60925.stdout
index 077e668ebd..ea744708f9 100644
--- a/tests/reference/cpp-assert1-ba60925.stdout
+++ b/tests/reference/cpp-assert1-ba60925.stdout
@@ -17,25 +17,11 @@ Kokkos::View<T*> from_std_vector(const std::vector<T> &v)
     return r;
 }
 
-
-struct dimension_descriptor
-{
-    int32_t lower_bound, length;
-};
 // Forward declarations
-void test_assert();
 namespace {
 }
 
 // Implementations
-void test_assert()
-{
-    int32_t a;
-    a = 5;
-    assert (("a is not 5", a == 5));
-    assert (a != 10);
-}
-
 namespace {
 
 void main2() {
diff --git a/tests/reference/cpp-doconcurrentloop_01-4e9f274.json b/tests/reference/cpp-doconcurrentloop_01-4e9f274.json
deleted file mode 100644
index cd110a8214..0000000000
--- a/tests/reference/cpp-doconcurrentloop_01-4e9f274.json
+++ /dev/null
@@ -1,13 +0,0 @@
-{
-    "basename": "cpp-doconcurrentloop_01-4e9f274",
-    "cmd": "lpython --no-color --show-cpp {infile}",
-    "infile": "tests/doconcurrentloop_01.py",
-    "infile_hash": "dc0022671a9fa7b620378903a700dd8c4390297cacb1aca2b904069d",
-    "outfile": null,
-    "outfile_hash": null,
-    "stdout": "cpp-doconcurrentloop_01-4e9f274.stdout",
-    "stdout_hash": "b01128b49ef0e395e4398f5aa360c654c67d396e038777e3a7986ab1",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
-}
\ No newline at end of file
diff --git a/tests/reference/cpp-doconcurrentloop_01-4e9f274.stdout b/tests/reference/cpp-doconcurrentloop_01-4e9f274.stdout
deleted file mode 100644
index b53f160909..0000000000
--- a/tests/reference/cpp-doconcurrentloop_01-4e9f274.stdout
+++ /dev/null
@@ -1,105 +0,0 @@
-#include <iostream>
-#include <string>
-#include <vector>
-#include <cassert>
-#include <cmath>
-#include <complex>
-#include <Kokkos_Core.hpp>
-#include <lfortran_intrinsics.h>
-
-template <typename T>
-Kokkos::View<T*> from_std_vector(const std::vector<T> &v)
-{
-    Kokkos::View<T*> r("r", v.size());
-    for (size_t i=0; i < v.size(); i++) {
-        r(i) = v[i];
-    }
-    return r;
-}
-
-
-struct dimension_descriptor
-{
-    int32_t lower_bound, length;
-};
-
-struct f32_10000_1
-{
-    Kokkos::View<float*>* data;
-    dimension_descriptor dims[1];
-    bool is_allocated;
-
-    f32_10000_1(Kokkos::View<float*>* data_): data{data_} {};
-};
-
-// Forward declarations
-void _lpython_main_program();
-void main0();
-
-template <typename T0, typename T1, typename T2>
-void triad(T0* a, T1* b, float scalar, T2* c);
-namespace {
-}
-
-// Implementations
-void _lpython_main_program()
-{
-    main0();
-}
-
-void main0()
-{
-    Kokkos::View<float*> a_data("a_data", 10000);
-    f32_10000_1 a_value(&a_data);
-    f32_10000_1* a = &a_value;
-    a->dims[0].lower_bound = 0;
-    a->dims[0].length = 10000;
-    Kokkos::View<float*> b_data("b_data", 10000);
-    f32_10000_1 b_value(&b_data);
-    f32_10000_1* b = &b_value;
-    b->dims[0].lower_bound = 0;
-    b->dims[0].length = 10000;
-    Kokkos::View<float*> c_data("c_data", 10000);
-    f32_10000_1 c_value(&c_data);
-    f32_10000_1* c = &c_value;
-    c->dims[0].lower_bound = 0;
-    c->dims[0].length = 10000;
-    int32_t i;
-    int32_t nsize;
-    float scalar;
-    scalar =   1.00000000000000000e+01;
-    nsize = 1234;
-    Kokkos::parallel_for(Kokkos::RangePolicy<Kokkos::DefaultExecutionSpace>(0, nsize - 1+1), KOKKOS_LAMBDA(const long i) {
-        a->data->operator[](i - a->dims[0].lower_bound) =   5.00000000000000000e+00;
-        b->data->operator[](i - b->dims[0].lower_bound) =   5.00000000000000000e+00;
-    });
-    triad(a, b, scalar, c);
-    std::cout << "End Stream Triad" << std::endl;
-}
-
-
-template <typename T0, typename T1, typename T2>
-void triad(T0* a, T1* b, float scalar, T2* c)
-{
-    int32_t N;
-    int32_t i;
-    N = 1234;
-    Kokkos::parallel_for(Kokkos::RangePolicy<Kokkos::DefaultExecutionSpace>(0, N - 1+1), KOKKOS_LAMBDA(const long i) {
-        c->data->operator[](i - c->dims[0].lower_bound) = a->data->operator[](i - a->dims[0].lower_bound) + scalar*b->data->operator[](i - b->dims[0].lower_bound);
-    });
-}
-
-namespace {
-
-void main2() {
-    _lpython_main_program();
-}
-
-}
-int main(int argc, char* argv[])
-{
-    Kokkos::initialize(argc, argv);
-    main2();
-    Kokkos::finalize();
-    return 0;
-}
diff --git a/tests/reference/cpp-expr12-fd2ea87.json b/tests/reference/cpp-expr12-fd2ea87.json
index 5b62d69284..abfda3e82e 100644
--- a/tests/reference/cpp-expr12-fd2ea87.json
+++ b/tests/reference/cpp-expr12-fd2ea87.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "cpp-expr12-fd2ea87.stdout",
-    "stdout_hash": "7e6b2cd10b506c82466757c4bc96483339eccb75975404a903b61fea",
+    "stdout_hash": "3fd932aa8477bf21939c1376aa02973ffaa27249dded08685a4f8a27",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/cpp-expr12-fd2ea87.stdout b/tests/reference/cpp-expr12-fd2ea87.stdout
index c3868ddc48..55b3be2423 100644
--- a/tests/reference/cpp-expr12-fd2ea87.stdout
+++ b/tests/reference/cpp-expr12-fd2ea87.stdout
@@ -17,13 +17,8 @@ Kokkos::View<T*> from_std_vector(const std::vector<T> &v)
     return r;
 }
 
-
-struct dimension_descriptor
-{
-    int32_t lower_bound, length;
-};
 // Forward declarations
-void _lpython_main_program();
+void __main__global_stmts();
 int32_t check();
 void main0();
 int32_t test(int32_t a, int32_t b);
@@ -31,9 +26,11 @@ namespace {
 }
 
 // Implementations
-void _lpython_main_program()
+int32_t test(int32_t a, int32_t b)
 {
-    main0();
+    int32_t _lpython_return_variable;
+    _lpython_return_variable = std::pow(a, b);
+    return _lpython_return_variable;
 }
 
 int32_t check()
@@ -51,17 +48,15 @@ void main0()
     x = check();
 }
 
-int32_t test(int32_t a, int32_t b)
+void __main__global_stmts()
 {
-    int32_t _lpython_return_variable;
-    _lpython_return_variable = std::pow(a, b);
-    return _lpython_return_variable;
+    main0();
 }
 
 namespace {
 
 void main2() {
-    _lpython_main_program();
+    __main__global_stmts();
 }
 
 }
diff --git a/tests/reference/cpp-expr15-1661c0d.json b/tests/reference/cpp-expr15-1661c0d.json
index 48287a020e..c2a9730239 100644
--- a/tests/reference/cpp-expr15-1661c0d.json
+++ b/tests/reference/cpp-expr15-1661c0d.json
@@ -2,11 +2,11 @@
     "basename": "cpp-expr15-1661c0d",
     "cmd": "lpython --no-color --show-cpp {infile}",
     "infile": "tests/expr15.py",
-    "infile_hash": "309febe805e4092e33e7b75adb0efdd10fbfc310a50a88718eb7cef7",
+    "infile_hash": "f3fa7c8efa999392edc0a94ff9c7820ed0c3f1e849c77655151b8d72",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "cpp-expr15-1661c0d.stdout",
-    "stdout_hash": "20951d251ebc5ce94f1b8456cc344bb85022b23d0a724c96de9cf2ad",
+    "stdout_hash": "89ea3f4e66182b1d6619b5babff51fde20752f5940bdfa027f9e9aa4",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/cpp-expr15-1661c0d.stdout b/tests/reference/cpp-expr15-1661c0d.stdout
index b177a7fe1b..a3f757d0fe 100644
--- a/tests/reference/cpp-expr15-1661c0d.stdout
+++ b/tests/reference/cpp-expr15-1661c0d.stdout
@@ -17,28 +17,21 @@ Kokkos::View<T*> from_std_vector(const std::vector<T> &v)
     return r;
 }
 
-
-struct dimension_descriptor
-{
-    int32_t lower_bound, length;
-};
 // Forward declarations
-void _lpython_main_program();
+void __main__global_stmts();
 double test1();
 std::complex<double> test2();
 int32_t test3();
 std::complex<double> __lpython_overloaded_9__complex(int32_t x, int32_t y);
-float _lfortran_caimag(std::complex<float> x);
-double _lfortran_zaimag(std::complex<double> x);
 namespace {
 }
 
 // Implementations
-void _lpython_main_program()
+std::complex<double> __lpython_overloaded_9__complex(int32_t x, int32_t y)
 {
-    std::cout << test1() << std::endl;
-    std::cout << test2() << std::endl;
-    std::cout << test3() << std::endl;
+    std::complex<double> _lpython_return_variable;
+    _lpython_return_variable = std::complex<double>(x) + std::complex<double>(y)*std::complex<double>(0.000000, 1.000000);
+    return _lpython_return_variable;
 }
 
 double test1()
@@ -70,21 +63,17 @@ int32_t test3()
     return _lpython_return_variable;
 }
 
-std::complex<double> __lpython_overloaded_9__complex(int32_t x, int32_t y)
+void __main__global_stmts()
 {
-    std::complex<double> _lpython_return_variable;
-    _lpython_return_variable = std::complex<double>(x) + std::complex<double>(y)*std::complex<double>(0.000000, 1.000000);
-    return _lpython_return_variable;
+    std::cout << test1() << std::endl;
+    std::cout << test2() << std::endl;
+    std::cout << test3() << std::endl;
 }
 
-float _lfortran_caimag(std::complex<float> x);
-
-double _lfortran_zaimag(std::complex<double> x);
-
 namespace {
 
 void main2() {
-    _lpython_main_program();
+    __main__global_stmts();
 }
 
 }
diff --git a/tests/reference/cpp-expr2-09c05ad.json b/tests/reference/cpp-expr2-09c05ad.json
index 536809d1ff..7f2a65d8fe 100644
--- a/tests/reference/cpp-expr2-09c05ad.json
+++ b/tests/reference/cpp-expr2-09c05ad.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "cpp-expr2-09c05ad.stdout",
-    "stdout_hash": "69ef58997a788c80db293cfeeffb14d1bb1a94f630fff4c8d11b235b",
+    "stdout_hash": "7ac638e8146f048bd5444436ee2b2ac4f85ffa7a1d791cf526adacb4",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/cpp-expr2-09c05ad.stdout b/tests/reference/cpp-expr2-09c05ad.stdout
index ce20983e1e..ea744708f9 100644
--- a/tests/reference/cpp-expr2-09c05ad.stdout
+++ b/tests/reference/cpp-expr2-09c05ad.stdout
@@ -17,31 +17,11 @@ Kokkos::View<T*> from_std_vector(const std::vector<T> &v)
     return r;
 }
 
-
-struct dimension_descriptor
-{
-    int32_t lower_bound, length;
-};
 // Forward declarations
-void test_boolOp();
 namespace {
 }
 
 // Implementations
-void test_boolOp()
-{
-    bool a;
-    bool b;
-    a = false;
-    b = true;
-    a = a && b;
-    b = a || true;
-    a = a || b;
-    a = a && b == b;
-    a = a && b != b;
-    a = b || b;
-}
-
 namespace {
 
 void main2() {
diff --git a/tests/reference/cpp-expr5-1de0e30.json b/tests/reference/cpp-expr5-1de0e30.json
deleted file mode 100644
index 9ff5a7fed2..0000000000
--- a/tests/reference/cpp-expr5-1de0e30.json
+++ /dev/null
@@ -1,13 +0,0 @@
-{
-    "basename": "cpp-expr5-1de0e30",
-    "cmd": "lpython --no-color --show-cpp {infile}",
-    "infile": "tests/expr5.py",
-    "infile_hash": "7bbb5f9dacb13556f99de8f2969f9089235fea372fc2f43fc9c4bb18",
-    "outfile": null,
-    "outfile_hash": null,
-    "stdout": "cpp-expr5-1de0e30.stdout",
-    "stdout_hash": "1f68a424d42810751fdd0169e4415cd9efcd4b7c5fb5932eddcf231c",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
-}
\ No newline at end of file
diff --git a/tests/reference/cpp-expr5-1de0e30.stdout b/tests/reference/cpp-expr5-1de0e30.stdout
deleted file mode 100644
index 6ad233dae4..0000000000
--- a/tests/reference/cpp-expr5-1de0e30.stdout
+++ /dev/null
@@ -1,51 +0,0 @@
-#include <iostream>
-#include <string>
-#include <vector>
-#include <cassert>
-#include <cmath>
-#include <complex>
-#include <Kokkos_Core.hpp>
-#include <lfortran_intrinsics.h>
-
-template <typename T>
-Kokkos::View<T*> from_std_vector(const std::vector<T> &v)
-{
-    Kokkos::View<T*> r("r", v.size());
-    for (size_t i=0; i < v.size(); i++) {
-        r(i) = v[i];
-    }
-    return r;
-}
-
-
-struct dimension_descriptor
-{
-    int32_t lower_bound, length;
-};
-// Forward declarations
-void test_StrOp_concat();
-namespace {
-}
-
-// Implementations
-void test_StrOp_concat()
-{
-    std::string s;
-    s = std::string("3") + std::string("4");
-    s = std::string("a ") + std::string("test");
-    s = std::string(std::string("test") + std::string("test")) + std::string("test");
-}
-
-namespace {
-
-void main2() {
-}
-
-}
-int main(int argc, char* argv[])
-{
-    Kokkos::initialize(argc, argv);
-    main2();
-    Kokkos::finalize();
-    return 0;
-}
diff --git a/tests/reference/cpp-expr6-f337f4f.json b/tests/reference/cpp-expr6-f337f4f.json
index 89285a7eb2..8115193f00 100644
--- a/tests/reference/cpp-expr6-f337f4f.json
+++ b/tests/reference/cpp-expr6-f337f4f.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "cpp-expr6-f337f4f.stdout",
-    "stdout_hash": "f804ce32ccbbaa39b2b00595c1a920caa64cd6edc786a3c4a11f4c50",
+    "stdout_hash": "7ac638e8146f048bd5444436ee2b2ac4f85ffa7a1d791cf526adacb4",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/cpp-expr6-f337f4f.stdout b/tests/reference/cpp-expr6-f337f4f.stdout
index 1bf0e20d5a..ea744708f9 100644
--- a/tests/reference/cpp-expr6-f337f4f.stdout
+++ b/tests/reference/cpp-expr6-f337f4f.stdout
@@ -17,27 +17,11 @@ Kokkos::View<T*> from_std_vector(const std::vector<T> &v)
     return r;
 }
 
-
-struct dimension_descriptor
-{
-    int32_t lower_bound, length;
-};
 // Forward declarations
-void test_ifexp();
 namespace {
 }
 
 // Implementations
-void test_ifexp()
-{
-    int32_t a;
-    int32_t b;
-    bool c;
-    a = 2;
-    b = (a == 2) ? (6) : (8);
-    c = (b > 5) ? (true) : (false);
-}
-
 namespace {
 
 void main2() {
diff --git a/tests/reference/cpp-expr7-529bd53.json b/tests/reference/cpp-expr7-529bd53.json
index 87b1bfb895..b596a0f097 100644
--- a/tests/reference/cpp-expr7-529bd53.json
+++ b/tests/reference/cpp-expr7-529bd53.json
@@ -2,11 +2,11 @@
     "basename": "cpp-expr7-529bd53",
     "cmd": "lpython --no-color --show-cpp {infile}",
     "infile": "tests/expr7.py",
-    "infile_hash": "7e10fd3558ed9a0c805fd1f27740f6cc539142917841585c7679779b",
+    "infile_hash": "7ef1383d1798621ee35adb7296bfe66dcdc08a21ac8dc86b9ce42878",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "cpp-expr7-529bd53.stdout",
-    "stdout_hash": "0d9fc3925dab973a245845011037dd0582674d5c8a4db07b300289fb",
+    "stdout_hash": "24b9dbec9975483d188f9ff05d5bda7117eb1b6d618424118db3e359",
     "stderr": "cpp-expr7-529bd53.stderr",
     "stderr_hash": "6e9790ac88db1a9ead8f64a91ba8a6605de67167037908a74b77be0c",
     "returncode": 0
diff --git a/tests/reference/cpp-expr7-529bd53.stdout b/tests/reference/cpp-expr7-529bd53.stdout
index 07301da0e5..5113ddcc72 100644
--- a/tests/reference/cpp-expr7-529bd53.stdout
+++ b/tests/reference/cpp-expr7-529bd53.stdout
@@ -17,33 +17,21 @@ Kokkos::View<T*> from_std_vector(const std::vector<T> &v)
     return r;
 }
 
-
-struct dimension_descriptor
-{
-    int32_t lower_bound, length;
-};
 // Forward declarations
-void _lpython_main_program();
+void __main__global_stmts();
 void main0();
 void test_pow();
 int32_t test_pow_1(int32_t a, int32_t b);
 double __lpython_overloaded_0__pow(int32_t x, int32_t y);
-float _lfortran_caimag(std::complex<float> x);
-double _lfortran_zaimag(std::complex<double> x);
 namespace {
 }
 
 // Implementations
-void _lpython_main_program()
-{
-    main0();
-}
-
-void main0()
+double __lpython_overloaded_0__pow(int32_t x, int32_t y)
 {
-    int32_t c;
-    test_pow();
-    c = test_pow_1(1, 2);
+    double _lpython_return_variable;
+    _lpython_return_variable = (double)(std::pow(x, y));
+    return _lpython_return_variable;
 }
 
 void test_pow()
@@ -61,21 +49,22 @@ int32_t test_pow_1(int32_t a, int32_t b)
     return _lpython_return_variable;
 }
 
-double __lpython_overloaded_0__pow(int32_t x, int32_t y)
+void main0()
 {
-    double _lpython_return_variable;
-    _lpython_return_variable = (double)(std::pow(x, y));
-    return _lpython_return_variable;
+    int32_t c;
+    test_pow();
+    c = test_pow_1(1, 2);
 }
 
-float _lfortran_caimag(std::complex<float> x);
-
-double _lfortran_zaimag(std::complex<double> x);
+void __main__global_stmts()
+{
+    main0();
+}
 
 namespace {
 
 void main2() {
-    _lpython_main_program();
+    __main__global_stmts();
 }
 
 }
diff --git a/tests/reference/cpp-expr8-704cece.json b/tests/reference/cpp-expr8-704cece.json
index 11a8f6aaa6..1fac6d1530 100644
--- a/tests/reference/cpp-expr8-704cece.json
+++ b/tests/reference/cpp-expr8-704cece.json
@@ -2,11 +2,11 @@
     "basename": "cpp-expr8-704cece",
     "cmd": "lpython --no-color --show-cpp {infile}",
     "infile": "tests/expr8.py",
-    "infile_hash": "4e9a7a5642d721ee6a41db2c3d587c1811c5baad582bddc67cc68842",
+    "infile_hash": "6966e19cf343700cbc11ec1bf6a495e43c685c6fa065669875aa61ce",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "cpp-expr8-704cece.stdout",
-    "stdout_hash": "2f2d7f22f494b9a50890f6e33a12e4dcb7aa728a108157e38448f22f",
+    "stdout_hash": "7ac638e8146f048bd5444436ee2b2ac4f85ffa7a1d791cf526adacb4",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/cpp-expr8-704cece.stdout b/tests/reference/cpp-expr8-704cece.stdout
index 12ec9a3b7a..ea744708f9 100644
--- a/tests/reference/cpp-expr8-704cece.stdout
+++ b/tests/reference/cpp-expr8-704cece.stdout
@@ -17,57 +17,11 @@ Kokkos::View<T*> from_std_vector(const std::vector<T> &v)
     return r;
 }
 
-
-struct dimension_descriptor
-{
-    int32_t lower_bound, length;
-};
 // Forward declarations
-void test_binop();
-bool __lpython_overloaded_4___lpython_floordiv(bool a, bool b);
-float _lfortran_caimag(std::complex<float> x);
-double _lfortran_zaimag(std::complex<double> x);
 namespace {
 }
 
 // Implementations
-void test_binop()
-{
-    bool b1;
-    bool b2;
-    int32_t x;
-    float x2;
-    x = std::pow(2, 3);
-    x2 = std::pow(  2.00000000000000000e+00,   3.50000000000000000e+00);
-    x = 54 - 100;
-    x2 =   3.45400000000000018e+00 -   7.65429999999999950e+02 +   5.34600000000000023e+02;
-    x2 =   5.34656499999999960e+03*  3.45000000000000018e+00;
-    x2 = std::pow(  5.34656499999999960e+03,   3.45000000000000018e+00);
-    x = (int)(true) + (int)(true);
-    x = (int)(true) - (int)(false);
-    x = (int)(true)*(int)(false);
-    x = std::pow((int)(true), (int)(false));
-    b1 = true;
-    b2 = false;
-    x = (int)(__lpython_overloaded_4___lpython_floordiv(b1, b1));
-    x = std::pow((int)(b1), (int)(b2));
-}
-
-bool __lpython_overloaded_4___lpython_floordiv(bool a, bool b)
-{
-    bool _lpython_return_variable;
-    if (b == false) {
-        std::cerr << "ERROR STOP" << std::endl;
-        exit(1);
-    }
-    _lpython_return_variable = a;
-    return _lpython_return_variable;
-}
-
-float _lfortran_caimag(std::complex<float> x);
-
-double _lfortran_zaimag(std::complex<double> x);
-
 namespace {
 
 void main2() {
diff --git a/tests/reference/cpp-expr9-48868e9.json b/tests/reference/cpp-expr9-48868e9.json
deleted file mode 100644
index 3e258fb373..0000000000
--- a/tests/reference/cpp-expr9-48868e9.json
+++ /dev/null
@@ -1,13 +0,0 @@
-{
-    "basename": "cpp-expr9-48868e9",
-    "cmd": "lpython --no-color --show-cpp {infile}",
-    "infile": "tests/expr9.py",
-    "infile_hash": "1f02a7486b298ae9e74a163875a76f8fa7cc25d7f50547133dbbdfab",
-    "outfile": null,
-    "outfile_hash": null,
-    "stdout": "cpp-expr9-48868e9.stdout",
-    "stdout_hash": "ed7d8995ef39e19d80721fa7c44ddc55f5433c56a874cb261e641ba9",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
-}
\ No newline at end of file
diff --git a/tests/reference/cpp-expr9-48868e9.stdout b/tests/reference/cpp-expr9-48868e9.stdout
deleted file mode 100644
index 65f2689217..0000000000
--- a/tests/reference/cpp-expr9-48868e9.stdout
+++ /dev/null
@@ -1,96 +0,0 @@
-#include <iostream>
-#include <string>
-#include <vector>
-#include <cassert>
-#include <cmath>
-#include <complex>
-#include <Kokkos_Core.hpp>
-#include <lfortran_intrinsics.h>
-
-template <typename T>
-Kokkos::View<T*> from_std_vector(const std::vector<T> &v)
-{
-    Kokkos::View<T*> r("r", v.size());
-    for (size_t i=0; i < v.size(); i++) {
-        r(i) = v[i];
-    }
-    return r;
-}
-
-
-struct dimension_descriptor
-{
-    int32_t lower_bound, length;
-};
-// Forward declarations
-void _lpython_main_program();
-void main0();
-int32_t test_return_1(int32_t a);
-std::string test_return_2(int32_t a);
-int32_t test_return_3(int32_t a);
-void test_return_4(int32_t a);
-namespace {
-}
-
-// Implementations
-void _lpython_main_program()
-{
-    main0();
-}
-
-void main0()
-{
-    int32_t i;
-    std::string s;
-    i = test_return_1(4);
-    s = test_return_2(4);
-    i = test_return_3(4);
-    test_return_4(4);
-}
-
-int32_t test_return_1(int32_t a)
-{
-    int32_t _lpython_return_variable;
-    int32_t x;
-    x = 5;
-    _lpython_return_variable = x;
-    return _lpython_return_variable;
-}
-
-std::string test_return_2(int32_t a)
-{
-    std::string _lpython_return_variable;
-    std::string x;
-    x = "test";
-    _lpython_return_variable = x;
-    return _lpython_return_variable;
-}
-
-int32_t test_return_3(int32_t a)
-{
-    int32_t _lpython_return_variable;
-    a = 3;
-    _lpython_return_variable = a;
-    return _lpython_return_variable;
-}
-
-void test_return_4(int32_t a)
-{
-    a = 1;
-    return;
-}
-
-namespace {
-
-void main2() {
-    _lpython_main_program();
-}
-
-}
-int main(int argc, char* argv[])
-{
-    Kokkos::initialize(argc, argv);
-    main2();
-    Kokkos::finalize();
-    return 0;
-}
diff --git a/tests/reference/cpp-expr_11-422c839.json b/tests/reference/cpp-expr_11-422c839.json
index f2eda95eea..ab8387e398 100644
--- a/tests/reference/cpp-expr_11-422c839.json
+++ b/tests/reference/cpp-expr_11-422c839.json
@@ -2,11 +2,11 @@
     "basename": "cpp-expr_11-422c839",
     "cmd": "lpython --no-color --show-cpp {infile}",
     "infile": "tests/../integration_tests/expr_11.py",
-    "infile_hash": "0519507fdfc01296c8161d8fae6706269bdb2d7b7da54512f5410fca",
+    "infile_hash": "d5027dd0f515c653c66202e02cc961bfbe09e628e069ce57b5f5ffe2",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "cpp-expr_11-422c839.stdout",
-    "stdout_hash": "d96583795bcc9f8213eb2575dc940ae194901c2f18c8a7020ad8e436",
+    "stdout_hash": "c015d4446b89b36b010a37f5651e19ef8615ca00148c4ff51f8c5e3d",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/cpp-expr_11-422c839.stdout b/tests/reference/cpp-expr_11-422c839.stdout
index 963758d95d..82be5bfb91 100644
--- a/tests/reference/cpp-expr_11-422c839.stdout
+++ b/tests/reference/cpp-expr_11-422c839.stdout
@@ -17,23 +17,13 @@ Kokkos::View<T*> from_std_vector(const std::vector<T> &v)
     return r;
 }
 
-
-struct dimension_descriptor
-{
-    int32_t lower_bound, length;
-};
 // Forward declarations
-void _lpython_main_program();
+void __main__global_stmts();
 void f();
 namespace {
 }
 
 // Implementations
-void _lpython_main_program()
-{
-    f();
-}
-
 void f()
 {
     bool b;
@@ -44,10 +34,15 @@ void f()
     std::cout << b << std::endl;
 }
 
+void __main__global_stmts()
+{
+    f();
+}
+
 namespace {
 
 void main2() {
-    _lpython_main_program();
+    __main__global_stmts();
 }
 
 }
diff --git a/tests/reference/cpp-loop1-0a8cf3b.json b/tests/reference/cpp-loop1-0a8cf3b.json
deleted file mode 100644
index 5e1b6fbb17..0000000000
--- a/tests/reference/cpp-loop1-0a8cf3b.json
+++ /dev/null
@@ -1,13 +0,0 @@
-{
-    "basename": "cpp-loop1-0a8cf3b",
-    "cmd": "lpython --no-color --show-cpp {infile}",
-    "infile": "tests/loop1.py",
-    "infile_hash": "0eee568be1d20a4c31b59c33ae2b47509fce3f6047fa1ffa592947e9",
-    "outfile": null,
-    "outfile_hash": null,
-    "stdout": "cpp-loop1-0a8cf3b.stdout",
-    "stdout_hash": "b6a85b8f6c08d7dd64cf8bffe330dd2bef4a216fd02c87b311c890d1",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
-}
\ No newline at end of file
diff --git a/tests/reference/cpp-loop1-0a8cf3b.stdout b/tests/reference/cpp-loop1-0a8cf3b.stdout
deleted file mode 100644
index 65c6ce719d..0000000000
--- a/tests/reference/cpp-loop1-0a8cf3b.stdout
+++ /dev/null
@@ -1,110 +0,0 @@
-#include <iostream>
-#include <string>
-#include <vector>
-#include <cassert>
-#include <cmath>
-#include <complex>
-#include <Kokkos_Core.hpp>
-#include <lfortran_intrinsics.h>
-
-template <typename T>
-Kokkos::View<T*> from_std_vector(const std::vector<T> &v)
-{
-    Kokkos::View<T*> r("r", v.size());
-    for (size_t i=0; i < v.size(); i++) {
-        r(i) = v[i];
-    }
-    return r;
-}
-
-
-struct dimension_descriptor
-{
-    int32_t lower_bound, length;
-};
-// Forward declarations
-void _lpython_main_program();
-void main0();
-int32_t test_factorial_1(int32_t x);
-int32_t test_factorial_2(int32_t x);
-int64_t test_factorial_3(int32_t x);
-namespace {
-}
-
-// Implementations
-void _lpython_main_program()
-{
-    main0();
-}
-
-void main0()
-{
-    int32_t i;
-    int64_t j;
-    i = test_factorial_1(4);
-    i = test_factorial_2(4);
-    j = test_factorial_3(5);
-}
-
-int32_t test_factorial_1(int32_t x)
-{
-    int32_t _lpython_return_variable;
-    int32_t result;
-    if (x < 0) {
-        _lpython_return_variable = 0;
-        return _lpython_return_variable;
-    }
-    result = 1;
-    while (x > 0) {
-        result = result*x;
-        x = x - 1;
-    }
-    _lpython_return_variable = result;
-    return _lpython_return_variable;
-}
-
-int32_t test_factorial_2(int32_t x)
-{
-    int32_t _lpython_return_variable;
-    int32_t i;
-    int32_t result;
-    result = 1;
-    for (i=1; i<=x + 1 - 1; i++) {
-        result = result*i;
-    }
-    _lpython_return_variable = result;
-    return _lpython_return_variable;
-}
-
-int64_t test_factorial_3(int32_t x)
-{
-    int64_t _lpython_return_variable;
-    int64_t result;
-    result = 0;
-    if (x < 0) {
-        _lpython_return_variable = result;
-        return _lpython_return_variable;
-    }
-    result = 1;
-    while (x > 0) {
-        result = result*x;
-        x = x - 1;
-    }
-    _lpython_return_variable = result;
-    return _lpython_return_variable;
-}
-
-namespace {
-
-void main2() {
-    _lpython_main_program();
-}
-
-}
-int main(int argc, char* argv[])
-{
-    Kokkos::initialize(argc, argv);
-    main2();
-    Kokkos::finalize();
-    return 0;
-}
diff --git a/tests/reference/cpp-loop2-0686fc4.json b/tests/reference/cpp-loop2-0686fc4.json
deleted file mode 100644
index 819cb84db5..0000000000
--- a/tests/reference/cpp-loop2-0686fc4.json
+++ /dev/null
@@ -1,13 +0,0 @@
-{
-    "basename": "cpp-loop2-0686fc4",
-    "cmd": "lpython --no-color --show-cpp {infile}",
-    "infile": "tests/loop2.py",
-    "infile_hash": "7946c522ceb16f99810780d4aba7fa2593695a4b49fb35ea1f131f53",
-    "outfile": null,
-    "outfile_hash": null,
-    "stdout": "cpp-loop2-0686fc4.stdout",
-    "stdout_hash": "fb6161615a40e454e7fd771ed48ff186739fbb8bdd210208dd3e99b0",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
-}
\ No newline at end of file
diff --git a/tests/reference/cpp-loop2-0686fc4.stdout b/tests/reference/cpp-loop2-0686fc4.stdout
deleted file mode 100644
index abfb471d50..0000000000
--- a/tests/reference/cpp-loop2-0686fc4.stdout
+++ /dev/null
@@ -1,79 +0,0 @@
-#include <iostream>
-#include <string>
-#include <vector>
-#include <cassert>
-#include <cmath>
-#include <complex>
-#include <Kokkos_Core.hpp>
-#include <lfortran_intrinsics.h>
-
-template <typename T>
-Kokkos::View<T*> from_std_vector(const std::vector<T> &v)
-{
-    Kokkos::View<T*> r("r", v.size());
-    for (size_t i=0; i < v.size(); i++) {
-        r(i) = v[i];
-    }
-    return r;
-}
-
-
-struct dimension_descriptor
-{
-    int32_t lower_bound, length;
-};
-// Forward declarations
-void _lpython_main_program();
-void test_for();
-namespace {
-}
-int32_t _lpython_get_argc();
-std::string _lpython_get_argv(int32_t index);
-void _xx_lcompilers_changed_exit_xx(int32_t error_code);
-
-// Implementations
-void _lpython_main_program()
-{
-    test_for();
-}
-
-void test_for()
-{
-    int32_t i;
-    for (i=0; i<=10 - 1; i++) {
-        if (i == 0) {
-            continue;
-        }
-        if (i > 5) {
-            break;
-        }
-        if (i == 3) {
-            exit(0);
-        }
-    }
-    _xx_lcompilers_changed_exit_xx(2);
-}
-
-int32_t _lpython_get_argc();
-
-std::string _lpython_get_argv(int32_t index);
-
-void _xx_lcompilers_changed_exit_xx(int32_t error_code)
-{
-    exit(error_code);
-}
-
-namespace {
-
-void main2() {
-    _lpython_main_program();
-}
-
-}
-int main(int argc, char* argv[])
-{
-    Kokkos::initialize(argc, argv);
-    main2();
-    Kokkos::finalize();
-    return 0;
-}
diff --git a/tests/reference/cpp-loop3-6020091.json b/tests/reference/cpp-loop3-6020091.json
index 716ed50761..8705b64cc5 100644
--- a/tests/reference/cpp-loop3-6020091.json
+++ b/tests/reference/cpp-loop3-6020091.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "cpp-loop3-6020091.stdout",
-    "stdout_hash": "f98dcda4a54fd19d7580613adcee035efef61bc3aa675d881f6de934",
+    "stdout_hash": "7ac638e8146f048bd5444436ee2b2ac4f85ffa7a1d791cf526adacb4",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/cpp-loop3-6020091.stdout b/tests/reference/cpp-loop3-6020091.stdout
index ba17b3012f..ea744708f9 100644
--- a/tests/reference/cpp-loop3-6020091.stdout
+++ b/tests/reference/cpp-loop3-6020091.stdout
@@ -17,25 +17,11 @@ Kokkos::View<T*> from_std_vector(const std::vector<T> &v)
     return r;
 }
 
-
-struct dimension_descriptor
-{
-    int32_t lower_bound, length;
-};
 // Forward declarations
-void test_pass();
 namespace {
 }
 
 // Implementations
-void test_pass()
-{
-    int32_t a;
-    a = 1;
-    while (a > 0) {
-    }
-}
-
 namespace {
 
 void main2() {
diff --git a/tests/reference/cpp-loop4-cdb2174.json b/tests/reference/cpp-loop4-cdb2174.json
new file mode 100644
index 0000000000..d5637d4b89
--- /dev/null
+++ b/tests/reference/cpp-loop4-cdb2174.json
@@ -0,0 +1,13 @@
+{
+    "basename": "cpp-loop4-cdb2174",
+    "cmd": "lpython --no-color --show-cpp {infile}",
+    "infile": "tests/loop4.py",
+    "infile_hash": "660eb1a895c81609d791240171fc34b6f0fea02c43de8f86420b06b7",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": "cpp-loop4-cdb2174.stdout",
+    "stdout_hash": "a7a82cd77e9ab3cc7ed092234263ce57db724e0352d8bad31d090fcb",
+    "stderr": null,
+    "stderr_hash": null,
+    "returncode": 0
+}
\ No newline at end of file
diff --git a/tests/reference/cpp-loop4-cdb2174.stdout b/tests/reference/cpp-loop4-cdb2174.stdout
new file mode 100644
index 0000000000..60b9ac1969
--- /dev/null
+++ b/tests/reference/cpp-loop4-cdb2174.stdout
@@ -0,0 +1,61 @@
+#include <iostream>
+#include <string>
+#include <vector>
+#include <cassert>
+#include <cmath>
+#include <complex>
+#include <Kokkos_Core.hpp>
+#include <lfortran_intrinsics.h>
+
+template <typename T>
+Kokkos::View<T*> from_std_vector(const std::vector<T> &v)
+{
+    Kokkos::View<T*> r("r", v.size());
+    for (size_t i=0; i < v.size(); i++) {
+        r(i) = v[i];
+    }
+    return r;
+}
+
+// Forward declarations
+void __main__global_stmts();
+void test_for();
+namespace {
+}
+
+// Implementations
+void test_for()
+{
+    int32_t i;
+    for (i=0; i<=10 - 1; i++) {
+        if (i == 0) {
+            continue;
+        }
+        if (i > 5) {
+            break;
+        }
+        if (i == 3) {
+            exit(0);
+        }
+    }
+}
+
+void __main__global_stmts()
+{
+    test_for();
+}
+
+namespace {
+
+void main2() {
+    __main__global_stmts();
+}
+
+}
+int main(int argc, char* argv[])
+{
+    Kokkos::initialize(argc, argv);
+    main2();
+    Kokkos::finalize();
+    return 0;
+}
diff --git a/tests/reference/cpp-print_01-026ef17.json b/tests/reference/cpp-print_01-026ef17.json
deleted file mode 100644
index 247e9a6c69..0000000000
--- a/tests/reference/cpp-print_01-026ef17.json
+++ /dev/null
@@ -1,13 +0,0 @@
-{
-    "basename": "cpp-print_01-026ef17",
-    "cmd": "lpython --no-color --show-cpp {infile}",
-    "infile": "tests/../integration_tests/print_01.py",
-    "infile_hash": "4755131262f8eb382c206da769880635ad00787824c37f788d1c3d44",
-    "outfile": null,
-    "outfile_hash": null,
-    "stdout": "cpp-print_01-026ef17.stdout",
-    "stdout_hash": "a4a8382918fbd80f38a7fff4321eef0f34da9a540e105ab9c415f748",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
-}
\ No newline at end of file
diff --git a/tests/reference/cpp-print_01-026ef17.stdout b/tests/reference/cpp-print_01-026ef17.stdout
deleted file mode 100644
index d91c8cbd01..0000000000
--- a/tests/reference/cpp-print_01-026ef17.stdout
+++ /dev/null
@@ -1,66 +0,0 @@
-#include <iostream>
-#include <string>
-#include <vector>
-#include <cassert>
-#include <cmath>
-#include <complex>
-#include <Kokkos_Core.hpp>
-#include <lfortran_intrinsics.h>
-
-template <typename T>
-Kokkos::View<T*> from_std_vector(const std::vector<T> &v)
-{
-    Kokkos::View<T*> r("r", v.size());
-    for (size_t i=0; i < v.size(); i++) {
-        r(i) = v[i];
-    }
-    return r;
-}
-
-
-struct dimension_descriptor
-{
-    int32_t lower_bound, length;
-};
-// Forward declarations
-void _lpython_main_program();
-void f();
-namespace {
-}
-
-// Implementations
-void _lpython_main_program()
-{
-    f();
-}
-
-void f()
-{
-    std::string x;
-    std::string y;
-    std::cout << "Hello World!" << std::endl;
-    x = ",";
-    y = "!!";
-    std::cout << "a" << x << "b" << std::endl;
-    x = "-+-+-";
-    std::cout << "a" << x << "b" << x << "c" << std::endl;
-    std::cout << "d" << "=" << "e" << "=" << "f" << "+\n";
-    std::cout << "x" << "*\n" << "y" << "*\n" << "z" << y;
-    std::cout << "1" << ":" << "2" << std::endl;
-    std::cout << "LCompilers" << " " << "LPython" << std::endl;
-}
-
-namespace {
-
-void main2() {
-    _lpython_main_program();
-}
-
-}
-int main(int argc, char* argv[])
-{
-    Kokkos::initialize(argc, argv);
-    main2();
-    Kokkos::finalize();
-    return 0;
-}
diff --git a/tests/reference/cpp-test_builtin_pow-56b3f92.json b/tests/reference/cpp-test_builtin_pow-56b3f92.json
index cc540cef13..8d267d3b66 100644
--- a/tests/reference/cpp-test_builtin_pow-56b3f92.json
+++ b/tests/reference/cpp-test_builtin_pow-56b3f92.json
@@ -2,11 +2,11 @@
     "basename": "cpp-test_builtin_pow-56b3f92",
     "cmd": "lpython --no-color --show-cpp {infile}",
     "infile": "tests/../integration_tests/test_builtin_pow.py",
-    "infile_hash": "73b7a50686598a8df8a84a6f36e637516e6f140b1d2adbc72f1c4cfe",
+    "infile_hash": "748ff533d02c2ba6aeb5373182e7fbe517cd0305fb85ef758ff7008a",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "cpp-test_builtin_pow-56b3f92.stdout",
-    "stdout_hash": "41c478d67f732ffe9d91fd3d998beb70ee539241488586971b1a2690",
+    "stdout_hash": "6e1fbf9ddf9a5d58571177561591e443768bd4b3fc777ec390fc1537",
     "stderr": "cpp-test_builtin_pow-56b3f92.stderr",
     "stderr_hash": "859ce76c74748f2d32c7eab92cfbba789a78d4cbf5818646b99806ea",
     "returncode": 0
diff --git a/tests/reference/cpp-test_builtin_pow-56b3f92.stdout b/tests/reference/cpp-test_builtin_pow-56b3f92.stdout
index 42aecd598a..8e5bf7278b 100644
--- a/tests/reference/cpp-test_builtin_pow-56b3f92.stdout
+++ b/tests/reference/cpp-test_builtin_pow-56b3f92.stdout
@@ -1,3 +1,4 @@
+#include <math.h>
 #include <iostream>
 #include <string>
 #include <vector>
@@ -17,159 +18,26 @@ Kokkos::View<T*> from_std_vector(const std::vector<T> &v)
     return r;
 }
 
-
-struct dimension_descriptor
-{
-    int32_t lower_bound, length;
-};
 // Forward declarations
-void _lpython_main_program();
+void __main__global_stmts();
 void test_pow();
-int32_t __lpython_overloaded_0___mod(int32_t a, int32_t b);
-double __lpython_overloaded_0__abs(double x);
 double __lpython_overloaded_0__pow(int32_t x, int32_t y);
-int32_t __lpython_overloaded_10__pow(int32_t x, int32_t y, int32_t z);
 int64_t __lpython_overloaded_11__pow(int64_t x, int64_t y, int64_t z);
 double __lpython_overloaded_1__pow(int64_t x, int64_t y);
-int32_t __lpython_overloaded_2___lpython_floordiv(int32_t a, int32_t b);
-int64_t __lpython_overloaded_2___mod(int64_t a, int64_t b);
 float __lpython_overloaded_2__pow(float x, float y);
-int64_t __lpython_overloaded_3___lpython_floordiv(int64_t a, int64_t b);
 double __lpython_overloaded_3__pow(double x, double y);
 float __lpython_overloaded_4__pow(int32_t x, float y);
 float __lpython_overloaded_5__pow(float x, int32_t y);
 double __lpython_overloaded_6__pow(int32_t x, double y);
 double __lpython_overloaded_7__pow(double x, int32_t y);
+int64_t __lpython_overloaded_8___mod(int64_t a, int64_t b);
 int32_t __lpython_overloaded_8__pow(bool x, bool y);
 std::complex<double> __lpython_overloaded_9__complex(int32_t x, int32_t y);
 std::complex<float> __lpython_overloaded_9__pow(std::complex<float> c, int32_t y);
-float _lfortran_caimag(std::complex<float> x);
-double _lfortran_zaimag(std::complex<double> x);
 namespace {
 }
 
 // Implementations
-void _lpython_main_program()
-{
-    test_pow();
-}
-
-void test_pow()
-{
-    int32_t a;
-    double a1=  4.50000000000000000e+00;
-    double a2=  2.29999999999999982e+00;
-    int32_t b;
-    bool b1=true;
-    bool b2=false;
-    std::complex<float> c1;
-    double eps;
-    float f1;
-    float f2;
-    int64_t i;
-    int64_t i1;
-    int64_t i2;
-    int64_t j;
-    int64_t k;
-    float p;
-    int32_t x=3;
-    double y=  2.29999999999999982e+00;
-    eps =   9.99999999999999980e-13;
-    a = 2;
-    b = 5;
-    assert ((int32_t)(__lpython_overloaded_0__pow(a, b)) == 32);
-    a = 6;
-    b = 3;
-    assert ((int32_t)(__lpython_overloaded_0__pow(a, b)) == 216);
-    a = 2;
-    b = 0;
-    assert ((int32_t)(__lpython_overloaded_0__pow(a, b)) == 1);
-    a = 2;
-    b = -1;
-    a = 6;
-    b = -4;
-    i1 = 2;
-    i2 = 5;
-    assert ((int64_t)(__lpython_overloaded_1__pow(i1, i2)) == 32);
-    i1 = 6;
-    i2 = -3;
-    f1 = (double)(525346)/(double)(66456);
-    f2 =   3.00000000000000000e+00;
-    p = __lpython_overloaded_2__pow(f1, f2);
-    f1 = __lpython_overloaded_4__pow(a, f2);
-    f1 = __lpython_overloaded_5__pow(f2, a);
-    b1 = true;
-    b2 = false;
-    assert (__lpython_overloaded_8__pow(b1, b2) == 1);
-    assert (__lpython_overloaded_8__pow(b2, b1) == 0);
-    assert (__lpython_overloaded_8__pow(b1, b2) == 1);
-    assert (__lpython_overloaded_8__pow(false, false) == 1);
-    a1 =   4.50000000000000000e+00;
-    a2 =   2.29999999999999982e+00;
-    assert (__lpython_overloaded_0__abs(__lpython_overloaded_3__pow(a1, a2) -   3.17971929089206000e+01) < eps);
-    assert (__lpython_overloaded_0__abs(__lpython_overloaded_3__pow(a2, a1) -   4.24399889427765871e+01) < eps);
-    x = 3;
-    y =   2.29999999999999982e+00;
-    assert (__lpython_overloaded_0__abs(__lpython_overloaded_6__pow(x, y) -   1.25135025328431819e+01) < eps);
-    assert (__lpython_overloaded_0__abs(__lpython_overloaded_7__pow(y, x) -   1.21669999999999980e+01) < eps);
-    assert (__lpython_overloaded_0__abs(__lpython_overloaded_6__pow(x,   5.50000000000000000e+00) -   4.20888346239237194e+02) < eps);
-    assert (__lpython_overloaded_0__abs(__lpython_overloaded_1__pow(2, -1) -   5.00000000000000000e-01) < eps);
-    assert (__lpython_overloaded_0__abs(__lpython_overloaded_1__pow(6, -4) -   7.71604938271604895e-04) < eps);
-    assert (__lpython_overloaded_0__abs(__lpython_overloaded_1__pow(-3, -5) +   4.11522633744856002e-03) < eps);
-    assert (__lpython_overloaded_0__abs(__lpython_overloaded_1__pow(6, -4) -   7.71604938271604895e-04) < eps);
-    assert (__lpython_overloaded_0__abs(__lpython_overloaded_3__pow(  4.50000000000000000e+00,   2.29999999999999982e+00) -   3.17971929089206000e+01) < eps);
-    assert (__lpython_overloaded_0__abs(__lpython_overloaded_3__pow(  2.29999999999999982e+00,   0.00000000000000000e+00) -   1.00000000000000000e+00) < eps);
-    assert (__lpython_overloaded_0__abs(__lpython_overloaded_3__pow(  2.29999999999999982e+00, -  1.50000000000000000e+00) -   2.86687162345994395e-01) < eps);
-    assert (__lpython_overloaded_0__abs(__lpython_overloaded_6__pow(2,   3.39999999999999991e+00) -   1.05560632861831536e+01) < eps);
-    assert (__lpython_overloaded_0__abs(__lpython_overloaded_6__pow(2, -  3.39999999999999991e+00) -   9.47322854068998882e-02) < eps);
-    assert (__lpython_overloaded_0__abs(__lpython_overloaded_7__pow(  3.39999999999999991e+00, 9) -   6.07169927664639836e+04) < eps);
-    assert (__lpython_overloaded_0__abs(__lpython_overloaded_7__pow(  0.00000000000000000e+00, 53) -   0.00000000000000000e+00) < eps);
-    assert ((int32_t)(__lpython_overloaded_0__pow(4, 2)) == 16);
-    assert (__lpython_overloaded_0__abs(__lpython_overloaded_7__pow(-  4.23500000000000000e+03, 52) -  3.94800380598526379e+188) < eps);
-    i = 7;
-    j = 2;
-    k = 5;
-    assert (__lpython_overloaded_11__pow(i, j, k) == 4);
-    assert (__lpython_overloaded_10__pow(102, 3, 121) == 38);
-    c1 = __lpython_overloaded_9__complex(4, 5);
-    c1 = __lpython_overloaded_9__pow(c1, 4);
-}
-
-int32_t __lpython_overloaded_2___lpython_floordiv(int32_t a, int32_t b)
-{
-    int32_t _lpython_return_variable;
-    double r;
-    int32_t result;
-    r = (double)(a)/(double)(b);
-    result = (int32_t)(r);
-    if (r >=   0.00000000000000000e+00 || (double)(result) == r) {
-        _lpython_return_variable = result;
-        return _lpython_return_variable;
-    }
-    _lpython_return_variable = result - 1;
-    return _lpython_return_variable;
-}
-
-int32_t __lpython_overloaded_0___mod(int32_t a, int32_t b)
-{
-    int32_t _lpython_return_variable;
-    _lpython_return_variable = a - __lpython_overloaded_2___lpython_floordiv(a, b)*b;
-    return _lpython_return_variable;
-}
-
-double __lpython_overloaded_0__abs(double x)
-{
-    double _lpython_return_variable;
-    double result;
-    if (x >=   0.00000000000000000e+00) {
-        result = x;
-    } else {
-        result = -x;
-    }
-    _lpython_return_variable = result;
-    return _lpython_return_variable;
-}
-
 double __lpython_overloaded_0__pow(int32_t x, int32_t y)
 {
     double _lpython_return_variable;
@@ -177,38 +45,10 @@ double __lpython_overloaded_0__pow(int32_t x, int32_t y)
     return _lpython_return_variable;
 }
 
-int32_t __lpython_overloaded_10__pow(int32_t x, int32_t y, int32_t z)
-{
-    int32_t _lpython_return_variable;
-    int32_t result;
-    if (y < 0) {
-        std::cerr << "ERROR STOP" << std::endl;
-        exit(1);
-    }
-    result = __lpython_overloaded_0___mod(std::pow(x, y), z);
-    _lpython_return_variable = result;
-    return _lpython_return_variable;
-}
-
-int64_t __lpython_overloaded_3___lpython_floordiv(int64_t a, int64_t b)
-{
-    int64_t _lpython_return_variable;
-    double r;
-    int64_t result;
-    r = (double)(a)/(double)(b);
-    result = (int64_t)(r);
-    if (r >=   0.00000000000000000e+00 || (double)(result) == r) {
-        _lpython_return_variable = result;
-        return _lpython_return_variable;
-    }
-    _lpython_return_variable = result - 1;
-    return _lpython_return_variable;
-}
-
-int64_t __lpython_overloaded_2___mod(int64_t a, int64_t b)
+int64_t __lpython_overloaded_8___mod(int64_t a, int64_t b)
 {
     int64_t _lpython_return_variable;
-    _lpython_return_variable = a - __lpython_overloaded_3___lpython_floordiv(a, b)*b;
+    _lpython_return_variable = a - floordiv(a)*b;
     return _lpython_return_variable;
 }
 
@@ -220,7 +60,7 @@ int64_t __lpython_overloaded_11__pow(int64_t x, int64_t y, int64_t z)
         std::cerr << "ERROR STOP" << std::endl;
         exit(1);
     }
-    result = __lpython_overloaded_2___mod(std::pow(x, y), z);
+    result = __lpython_overloaded_8___mod(std::pow(x, y), z);
     _lpython_return_variable = result;
     return _lpython_return_variable;
 }
@@ -299,14 +139,95 @@ std::complex<float> __lpython_overloaded_9__pow(std::complex<float> c, int32_t y
     return _lpython_return_variable;
 }
 
-float _lfortran_caimag(std::complex<float> x);
+void test_pow()
+{
+    int32_t a;
+    double a1;
+    double a2;
+    int32_t b;
+    bool b1;
+    bool b2;
+    std::complex<float> c1;
+    double eps;
+    float f1;
+    float f2;
+    int64_t i;
+    int64_t i1;
+    int64_t i2;
+    int64_t j;
+    int64_t k;
+    float p;
+    int32_t x;
+    double y;
+    eps =   9.99999999999999980e-13;
+    a = 2;
+    b = 5;
+    assert ((int32_t)(__lpython_overloaded_0__pow(a, b)) == 32);
+    a = 6;
+    b = 3;
+    assert ((int32_t)(__lpython_overloaded_0__pow(a, b)) == 216);
+    a = 2;
+    b = 0;
+    assert ((int32_t)(__lpython_overloaded_0__pow(a, b)) == 1);
+    a = 2;
+    b = -1;
+    a = 6;
+    b = -4;
+    i1 = 2;
+    i2 = 5;
+    assert ((int64_t)(__lpython_overloaded_1__pow(i1, i2)) == 32);
+    i1 = 6;
+    i2 = -3;
+    f1 = (double)(525346)/(double)(66456);
+    f2 =   3.00000000000000000e+00;
+    p = __lpython_overloaded_2__pow(f1, f2);
+    f1 = __lpython_overloaded_4__pow(a, f2);
+    f1 = __lpython_overloaded_5__pow(f2, a);
+    b1 = true;
+    b2 = false;
+    assert (__lpython_overloaded_8__pow(b1, b2) == 1);
+    assert (__lpython_overloaded_8__pow(b2, b1) == 0);
+    assert (__lpython_overloaded_8__pow(b1, b2) == 1);
+    assert (__lpython_overloaded_8__pow(false, false) == 1);
+    a1 =   4.50000000000000000e+00;
+    a2 =   2.29999999999999982e+00;
+    assert (abs(__lpython_overloaded_3__pow(a1, a2) -   3.17971929089206000e+01) < eps);
+    assert (abs(__lpython_overloaded_3__pow(a2, a1) -   4.24399889427765871e+01) < eps);
+    x = 3;
+    y =   2.29999999999999982e+00;
+    assert (abs(__lpython_overloaded_6__pow(x, y) -   1.25135025328431819e+01) < eps);
+    assert (abs(__lpython_overloaded_7__pow(y, x) -   1.21669999999999980e+01) < eps);
+    assert (abs(__lpython_overloaded_6__pow(x,   5.50000000000000000e+00) -   4.20888346239237194e+02) < eps);
+    assert (abs(__lpython_overloaded_1__pow(2, -1) -   5.00000000000000000e-01) < eps);
+    assert (abs(__lpython_overloaded_1__pow(6, -4) -   7.71604938271604895e-04) < eps);
+    assert (abs(__lpython_overloaded_1__pow(-3, -5) +   4.11522633744856002e-03) < eps);
+    assert (abs(__lpython_overloaded_1__pow(6, -4) -   7.71604938271604895e-04) < eps);
+    assert (abs(__lpython_overloaded_3__pow(  4.50000000000000000e+00,   2.29999999999999982e+00) -   3.17971929089206000e+01) < eps);
+    assert (abs(__lpython_overloaded_3__pow(  2.29999999999999982e+00,   0.00000000000000000e+00) -   1.00000000000000000e+00) < eps);
+    assert (abs(__lpython_overloaded_3__pow(  2.29999999999999982e+00, -  1.50000000000000000e+00) -   2.86687162345994395e-01) < eps);
+    assert (abs(__lpython_overloaded_6__pow(2,   3.39999999999999991e+00) -   1.05560632861831536e+01) < eps);
+    assert (abs(__lpython_overloaded_6__pow(2, -  3.39999999999999991e+00) -   9.47322854068998882e-02) < eps);
+    assert (abs(__lpython_overloaded_7__pow(  3.39999999999999991e+00, 9) -   6.07169927664639836e+04) < eps);
+    assert (abs(__lpython_overloaded_7__pow(  0.00000000000000000e+00, 53) -   0.00000000000000000e+00) < eps);
+    assert ((int32_t)(__lpython_overloaded_0__pow(4, 2)) == 16);
+    assert (abs(__lpython_overloaded_7__pow(-  4.23500000000000000e+03, 52) -  3.94800380598526379e+188) < eps);
+    i = 7;
+    j = 2;
+    k = 5;
+    assert (__lpython_overloaded_11__pow(i, j, k) == 4);
+    c1 = __lpython_overloaded_9__complex(4, 5);
+    c1 = __lpython_overloaded_9__pow(c1, 4);
+}
 
-double _lfortran_zaimag(std::complex<double> x);
+void __main__global_stmts()
+{
+    test_pow();
+}
 
 namespace {
 
 void main2() {
-    _lpython_main_program();
+    __main__global_stmts();
 }
 
 }
diff --git a/tests/reference/cpp-test_integer_bitnot-20195fd.json b/tests/reference/cpp-test_integer_bitnot-20195fd.json
deleted file mode 100644
index 07aeff3f4c..0000000000
--- a/tests/reference/cpp-test_integer_bitnot-20195fd.json
+++ /dev/null
@@ -1,13 +0,0 @@
-{
-    "basename": "cpp-test_integer_bitnot-20195fd",
-    "cmd": "lpython --no-color --show-cpp {infile}",
-    "infile": "tests/../integration_tests/test_integer_bitnot.py",
-    "infile_hash": "dc976a358fbeebedead889f8e85b3eed4ac77ee20f68fcac58b81429",
-    "outfile": null,
-    "outfile_hash": null,
-    "stdout": "cpp-test_integer_bitnot-20195fd.stdout",
-    "stdout_hash": "117be1bb7fcfc2cdcd250abb2c4f7d40481426d064bd0b7fa9f5d6bf",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
-}
\ No newline at end of file
diff --git a/tests/reference/cpp-test_integer_bitnot-20195fd.stdout b/tests/reference/cpp-test_integer_bitnot-20195fd.stdout
deleted file mode 100644
index 778b4953ca..0000000000
--- a/tests/reference/cpp-test_integer_bitnot-20195fd.stdout
+++ /dev/null
@@ -1,61 +0,0 @@
-#include <iostream>
-#include <string>
-#include <vector>
-#include <cassert>
-#include <cmath>
-#include <complex>
-#include <Kokkos_Core.hpp>
-#include <lfortran_intrinsics.h>
-
-template <typename T>
-Kokkos::View<T*> from_std_vector(const std::vector<T> &v)
-{
-    Kokkos::View<T*> r("r", v.size());
-    for (size_t i=0; i < v.size(); i++) {
-        r(i) = v[i];
-    }
-    return r;
-}
-
-
-struct dimension_descriptor
-{
-    int32_t lower_bound, length;
-};
-// Forward declarations
-void _lpython_main_program();
-void f();
-namespace {
-}
-
-// Implementations
-void _lpython_main_program()
-{
-    f();
-}
-
-void f()
-{
-    int32_t i;
-    int32_t res;
-    i = 5;
-    res = ~i;
-    assert (res == -6);
-    i = -235346;
-    assert (~i == 235345);
-}
-
-namespace {
-
-void main2() {
-    _lpython_main_program();
-}
-
-}
-int main(int argc, char* argv[])
-{
-    Kokkos::initialize(argc, argv);
-    main2();
-    Kokkos::finalize();
-    return 0;
-}
diff --git a/tests/reference/cpp-test_list_repeat2-698d7f4.json b/tests/reference/cpp-test_list_repeat2-698d7f4.json
new file mode 100644
index 0000000000..c2e854a654
--- /dev/null
+++ b/tests/reference/cpp-test_list_repeat2-698d7f4.json
@@ -0,0 +1,13 @@
+{
+    "basename": "cpp-test_list_repeat2-698d7f4",
+    "cmd": "lpython --no-color --show-cpp {infile}",
+    "infile": "tests/../integration_tests/test_list_repeat2.py",
+    "infile_hash": "3f1fa9fd655b76efa451a83734ddc61af0a917090588ef53afe30b04",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": "cpp-test_list_repeat2-698d7f4.stdout",
+    "stdout_hash": "6e6428a71e48dbad6de969a48a9b958be8fb6d5ec2ed8490ee3f72ff",
+    "stderr": null,
+    "stderr_hash": null,
+    "returncode": 0
+}
\ No newline at end of file
diff --git a/tests/reference/cpp-test_list_repeat2-698d7f4.stdout b/tests/reference/cpp-test_list_repeat2-698d7f4.stdout
new file mode 100644
index 0000000000..cca6955e7c
--- /dev/null
+++ b/tests/reference/cpp-test_list_repeat2-698d7f4.stdout
@@ -0,0 +1,256 @@
+#include <iostream>
+#include <string>
+#include <vector>
+#include <cassert>
+#include <cmath>
+#include <complex>
+#include <Kokkos_Core.hpp>
+#include <lfortran_intrinsics.h>
+
+template <typename T>
+Kokkos::View<T*> from_std_vector(const std::vector<T> &v)
+{
+    Kokkos::View<T*> r("r", v.size());
+    for (size_t i=0; i < v.size(); i++) {
+        r(i) = v[i];
+    }
+    return r;
+}
+
+
+struct dimension_descriptor
+{
+    int32_t lower_bound, length, stride;
+};
+
+struct list_r32 {
+    int32_t capacity;
+    int32_t current_end_point;
+    float* data;
+};
+
+inline bool compare_list_r32_(struct list_r32 a, struct list_r32 b);
+inline bool compare_r32(float a, float b);
+inline void print_list_r32_(struct list_r32 a);
+inline void print_r32(float a);
+inline void list_init_r32(struct list_r32* x, int32_t capacity);
+inline void list_deepcopy_r32(struct list_r32* src, struct list_r32* dest);
+inline void resize_if_needed_r32(struct list_r32* x);
+inline void list_append_r32(struct list_r32* x, float element);
+inline void list_insert_r32(struct list_r32* x, int pos, float element);
+inline int list_find_item_r32(struct list_r32* x, float element);
+inline void list_remove_r32(struct list_r32* x, float element);
+inline void list_clear_r32(struct list_r32* x);
+inline struct list_r32* list_concat_r32(struct list_r32* left, struct list_r32* right);
+inline struct list_r32* list_repeat_r32(struct list_r32* x, int32_t freq);
+inline struct list_r32* list_section_r32(struct list_r32* x, int32_t idx1, int32_t idx2, int32_t step, bool i1_present, bool i2_present);
+
+// Forward declarations
+void __main__global_stmts();
+float add_list(struct list_r32 x);
+struct list_r32 create_list(int32_t n);
+void main0();
+namespace {
+}
+
+// Implementations
+struct list_r32 create_list(int32_t n)
+{
+    struct list_r32 _lpython_return_variable;
+    int32_t i;
+    struct list_r32 x;
+    struct list_r32 constname0;
+    list_init_r32(&constname0, 1);
+    constname0.data[0] =   0.00000000000000000e+00;
+    constname0.current_end_point = 1;
+    list_deepcopy_r32(&(*list_repeat_r32(&constname0, n)), &x);
+
+    for (i=0; i<=n - 1; i++) {
+        x.data[i] = (float)(i);
+    }
+    list_deepcopy_r32(&x, &_lpython_return_variable);
+
+    return _lpython_return_variable;
+}
+
+float add_list(struct list_r32 x)
+{
+    float _lpython_return_variable;
+    int32_t i;
+    float sum;
+    sum =   0.00000000000000000e+00;
+    for (i=0; i<=x.current_end_point - 1; i++) {
+        sum = sum + x.data[i];
+    }
+    _lpython_return_variable = sum;
+    return _lpython_return_variable;
+}
+
+void main0()
+{
+    struct list_r32 x;
+    struct list_r32 constname01 = create_list(10);
+    list_deepcopy_r32(&constname01, &x);
+
+    std::cout << add_list(x) << std::endl;
+}
+
+void __main__global_stmts()
+{
+    main0();
+}
+
+namespace {
+
+void main2() {
+    __main__global_stmts();
+}
+
+}
+int main(int argc, char* argv[])
+{
+    Kokkos::initialize(argc, argv);
+    main2();
+    Kokkos::finalize();
+    return 0;
+}
+
+bool compare_r32(float a, float b) {
+    return a == b;
+}
+
+bool compare_list_r32_(struct list_r32 a, struct list_r32 b) {
+    if (a.current_end_point != b.current_end_point)
+        return false;
+    for (int i=0; i<a.current_end_point; i++) {
+        if (!compare_r32(a.data[i], b.data[i]))
+            return false;
+    }
+    return true;
+}
+
+void print_r32(float a) {
+    printf("%f", a);
+}
+
+void print_list_r32_(struct list_r32 a) {
+    printf("[");
+    for (int i=0; i<a.current_end_point; i++) {
+        print_r32(a.data[i]);
+        if (i+1!=a.current_end_point)
+            printf(", ");
+    }
+    printf("]");
+}
+
+void list_init_r32(struct list_r32* x, int32_t capacity) {
+    x->capacity = capacity;
+    x->current_end_point = 0;
+    x->data = (float*) malloc(capacity * sizeof(float));
+}
+
+void list_deepcopy_r32(struct list_r32* src, struct list_r32* dest) {
+    dest->capacity = src->capacity;
+    dest->current_end_point = src->current_end_point;
+    dest->data = (float*) malloc(src->capacity * sizeof(float));
+    memcpy(dest->data, src->data, src->capacity * sizeof(float));
+}
+
+void resize_if_needed_r32(struct list_r32* x) {
+    if (x->capacity == x->current_end_point) {
+        x->capacity = 2 * x->capacity + 1;
+        x->data = (float*) realloc(x->data, x->capacity * sizeof(float));
+    }
+}
+
+void list_append_r32(struct list_r32* x, float element) {
+    resize_if_needed_r32(x);
+    x->data[x->current_end_point] = element;
+    x->current_end_point += 1;
+}
+
+void list_insert_r32(struct list_r32* x, int pos, float element) {
+    resize_if_needed_r32(x);
+    int pos_ptr = pos;
+    float tmp_ptr = x->data[pos];
+    float tmp;
+    while (x->current_end_point > pos_ptr) {
+        tmp = x->data[pos_ptr + 1];
+        x->data[pos_ptr + 1] = tmp_ptr;
+        tmp_ptr = tmp;
+        pos_ptr++;
+    }
+
+    x->data[pos] = element;
+    x->current_end_point += 1;
+}
+
+int list_find_item_r32(struct list_r32* x, float element) {
+    int el_pos = 0;
+    while (x->current_end_point > el_pos) {
+        if (compare_r32(x->data[el_pos], element)) return el_pos;
+        el_pos++;
+    }
+    return -1;
+}
+
+void list_remove_r32(struct list_r32* x, float element) {
+    int el_pos = list_find_item_r32(x, element);
+    while (x->current_end_point > el_pos) {
+        int tmp = el_pos + 1;
+        x->data[el_pos] = x->data[tmp];
+        el_pos = tmp;
+    }
+    x->current_end_point -= 1;
+}
+
+void list_clear_r32(struct list_r32* x) {
+    free(x->data);
+    x->capacity = 4;
+    x->current_end_point = 0;
+    x->data = (float*) malloc(x->capacity * sizeof(float));
+}
+
+struct list_r32* list_concat_r32(struct list_r32* left, struct list_r32* right) {
+    struct list_r32 *result = (struct list_r32*)malloc(sizeof(struct list_r32));
+    list_init_r32(result, left->current_end_point + right->current_end_point);
+    memcpy(result->data, left->data, left->current_end_point * sizeof(float));
+    memcpy(result->data + left->current_end_point, right->data, right->current_end_point * sizeof(float));
+    result->current_end_point = left->current_end_point + right->current_end_point;
+    return result;
+}
+
+struct list_r32* list_repeat_r32(struct list_r32* x, int32_t freq) {
+    struct list_r32 *result = (struct list_r32*)malloc(sizeof(struct list_r32));
+    list_init_r32(result, x->current_end_point * freq);
+    for (int i=0; i<freq; i++) {
+        memcpy(&result->data[i*x->current_end_point], x->data, x->current_end_point * sizeof(float));
+    }
+    result->current_end_point = x->current_end_point * freq;
+    return result;
+}
+
+struct list_r32* list_section_r32(struct list_r32* x, int32_t idx1, int32_t idx2, int32_t step, bool i1_present, bool i2_present) {
+    int s_len = x->current_end_point;
+    if (step == 0) {
+        printf("slice step cannot be zero");
+        exit(1);
+    }
+    idx1 = idx1 < 0 ? idx1 + s_len : idx1;
+    idx2 = idx2 < 0 ? idx2 + s_len : idx2;
+    idx1 = i1_present ? idx1 : (step > 0 ? 0 : s_len-1);
+    idx2 = i2_present ? idx2 : (step > 0 ? s_len : -1);
+    idx2 = step > 0 ? (idx2 > s_len ? s_len : idx2) : idx2;
+    idx1 = step < 0 ? (idx1 >= s_len ? s_len-1 : idx1) : idx1;
+    struct list_r32 *__tmp = (struct list_r32*) malloc(sizeof(struct list_r32));
+    list_init_r32(__tmp, 4);
+    int s_i = idx1;
+    while((step > 0 && s_i >= idx1 && s_i < idx2) ||
+        (step < 0 && s_i <= idx1 && s_i > idx2)) {
+    list_append_r32(__tmp, x->data[s_i]);
+    s_i+=step;
+    }
+    return __tmp;
+}
+
+
diff --git a/tests/reference/cpp-test_unary_op_03-fd9669a.json b/tests/reference/cpp-test_unary_op_03-fd9669a.json
new file mode 100644
index 0000000000..b09b2a94a3
--- /dev/null
+++ b/tests/reference/cpp-test_unary_op_03-fd9669a.json
@@ -0,0 +1,13 @@
+{
+    "basename": "cpp-test_unary_op_03-fd9669a",
+    "cmd": "lpython --no-color --show-cpp {infile}",
+    "infile": "tests/../integration_tests/test_unary_op_03.py",
+    "infile_hash": "ce63509c56eb6c68ca6d64cc2a195644f3d2fc285f3ec8865551eff5",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": "cpp-test_unary_op_03-fd9669a.stdout",
+    "stdout_hash": "50205765dbafb525c90c7551a7217ca5b5c197047dfe471ffd2f4dec",
+    "stderr": null,
+    "stderr_hash": null,
+    "returncode": 0
+}
\ No newline at end of file
diff --git a/tests/reference/cpp-test_unary_op_03-fd9669a.stdout b/tests/reference/cpp-test_unary_op_03-fd9669a.stdout
new file mode 100644
index 0000000000..1f8faa116b
--- /dev/null
+++ b/tests/reference/cpp-test_unary_op_03-fd9669a.stdout
@@ -0,0 +1,56 @@
+#include <iostream>
+#include <string>
+#include <vector>
+#include <cassert>
+#include <cmath>
+#include <complex>
+#include <Kokkos_Core.hpp>
+#include <lfortran_intrinsics.h>
+
+template <typename T>
+Kokkos::View<T*> from_std_vector(const std::vector<T> &v)
+{
+    Kokkos::View<T*> r("r", v.size());
+    for (size_t i=0; i < v.size(); i++) {
+        r(i) = v[i];
+    }
+    return r;
+}
+
+// Forward declarations
+void __main__global_stmts();
+void f();
+namespace {
+}
+
+// Implementations
+void f()
+{
+    int32_t i;
+    int32_t res;
+    i = 5;
+    res = ~i;
+    assert (res == -6);
+    i = -235346;
+    assert (~i == 235345);
+}
+
+void __main__global_stmts()
+{
+    f();
+}
+
+namespace {
+
+void main2() {
+    __main__global_stmts();
+}
+
+}
+int main(int argc, char* argv[])
+{
+    Kokkos::initialize(argc, argv);
+    main2();
+    Kokkos::finalize();
+    return 0;
+}
diff --git a/tests/reference/llvm-assert1-8df4f31.json b/tests/reference/llvm-assert1-8df4f31.json
index c6d9ae72d6..3e83b5f547 100644
--- a/tests/reference/llvm-assert1-8df4f31.json
+++ b/tests/reference/llvm-assert1-8df4f31.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "llvm-assert1-8df4f31.stdout",
-    "stdout_hash": "548c0c52815267c5937b3877f09bb670683ce69013461d6bc9441cee",
+    "stdout_hash": "73a5745e5573b99fa88c67a3b77f188d17377c77ed1bcc363e3eba5c",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/llvm-assert1-8df4f31.stdout b/tests/reference/llvm-assert1-8df4f31.stdout
index bdbf0f8f47..5d3c6b17a6 100644
--- a/tests/reference/llvm-assert1-8df4f31.stdout
+++ b/tests/reference/llvm-assert1-8df4f31.stdout
@@ -1,54 +1,19 @@
 ; ModuleID = 'LFortran'
 source_filename = "LFortran"
 
-@0 = private unnamed_addr constant [20 x i8] c"AssertionError: %s\0A\00", align 1
-@1 = private unnamed_addr constant [11 x i8] c"a is not 5\00", align 1
-@2 = private unnamed_addr constant [16 x i8] c"AssertionError\0A\00", align 1
-
-define void @test_assert() {
+define i32 @main(i32 %0, i8** %1) {
 .entry:
-  %a = alloca i32, align 4
-  store i32 5, i32* %a, align 4
-  %0 = load i32, i32* %a, align 4
-  %1 = icmp eq i32 %0, 5
-  br i1 %1, label %then, label %else
-
-then:                                             ; preds = %.entry
-  br label %ifcont
-
-else:                                             ; preds = %.entry
-  call void (i8*, ...) @_lcompilers_print_error(i8* getelementptr inbounds ([20 x i8], [20 x i8]* @0, i32 0, i32 0), i8* getelementptr inbounds ([11 x i8], [11 x i8]* @1, i32 0, i32 0))
-  call void @exit(i32 1)
-  br label %ifcont
-
-ifcont:                                           ; preds = %else, %then
-  %2 = load i32, i32* %a, align 4
-  %3 = icmp ne i32 %2, 10
-  br i1 %3, label %then1, label %else2
-
-then1:                                            ; preds = %ifcont
-  br label %ifcont3
-
-else2:                                            ; preds = %ifcont
-  call void (i8*, ...) @_lcompilers_print_error(i8* getelementptr inbounds ([16 x i8], [16 x i8]* @2, i32 0, i32 0))
-  call void @exit(i32 1)
-  br label %ifcont3
-
-ifcont3:                                          ; preds = %else2, %then1
+  call void @_lpython_call_initial_functions(i32 %0, i8** %1)
+  call void @_lpython_free_argv()
   br label %return
 
-return:                                           ; preds = %ifcont3
-  ret void
-}
-
-declare void @_lcompilers_print_error(i8*, ...)
-
-declare void @exit(i32)
+return:                                           ; preds = %.entry
+  br label %FINALIZE_SYMTABLE_main_program
 
-define i32 @main(i32 %0, i8** %1) {
-.entry:
-  call void @_lpython_set_argv(i32 %0, i8** %1)
+FINALIZE_SYMTABLE_main_program:                   ; preds = %return
   ret i32 0
 }
 
-declare void @_lpython_set_argv(i32, i8**)
+declare void @_lpython_call_initial_functions(i32, i8**)
+
+declare void @_lpython_free_argv()
diff --git a/tests/reference/llvm-bindc_01-c984f09.json b/tests/reference/llvm-bindc_01-c984f09.json
index 8c96d88eab..046d80c8fb 100644
--- a/tests/reference/llvm-bindc_01-c984f09.json
+++ b/tests/reference/llvm-bindc_01-c984f09.json
@@ -2,12 +2,12 @@
     "basename": "llvm-bindc_01-c984f09",
     "cmd": "lpython --no-color --show-llvm {infile} -o {outfile}",
     "infile": "tests/../integration_tests/bindc_01.py",
-    "infile_hash": "3402ae1e5ed454e63ac3105da5d7264c880b666ac0ae672bf6b2dcfe",
+    "infile_hash": "3cfb601d3294c470842a85777832f5582ab52cb5bd64c0e02d40deb6",
     "outfile": null,
     "outfile_hash": null,
-    "stdout": "llvm-bindc_01-c984f09.stdout",
-    "stdout_hash": "74bfe69592dd65ef51a27bc97be1d387a484b1908fbae5b1fb2f061c",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "llvm-bindc_01-c984f09.stderr",
+    "stderr_hash": "966ff6032c983c2d80535d8c75db8cf87e1896d40a321a39f7f634c3",
+    "returncode": 2
 }
\ No newline at end of file
diff --git a/tests/reference/llvm-bindc_01-c984f09.stderr b/tests/reference/llvm-bindc_01-c984f09.stderr
new file mode 100644
index 0000000000..54e570a77e
--- /dev/null
+++ b/tests/reference/llvm-bindc_01-c984f09.stderr
@@ -0,0 +1,5 @@
+semantic error: Function 'empty_c_void_p' is not declared and not intrinsic
+ --> tests/../integration_tests/bindc_01.py:3:17
+  |
+3 | queries: CPtr = empty_c_void_p()
+  |                 ^^^^^^^^^^^^^^^^ 
diff --git a/tests/reference/llvm-bindc_01-c984f09.stdout b/tests/reference/llvm-bindc_01-c984f09.stdout
deleted file mode 100644
index 2dee4a969c..0000000000
--- a/tests/reference/llvm-bindc_01-c984f09.stdout
+++ /dev/null
@@ -1,35 +0,0 @@
-; ModuleID = 'LFortran'
-source_filename = "LFortran"
-
-@queries = global void* null
-@x = global i16* null
-@0 = private unnamed_addr constant [2 x i8] c" \00", align 1
-@1 = private unnamed_addr constant [2 x i8] c"\0A\00", align 1
-@2 = private unnamed_addr constant [13 x i8] c"%lld%s%lld%s\00", align 1
-
-define void @_lpython_main_program() {
-.entry:
-  %0 = load void*, void** @queries, align 8
-  %1 = bitcast void* %0 to i16*
-  store i16* %1, i16** @x, align 8
-  %2 = load void*, void** @queries, align 8
-  %3 = ptrtoint void* %2 to i64
-  %4 = load i16*, i16** @x, align 8
-  %5 = ptrtoint i16* %4 to i64
-  call void (i8*, ...) @_lfortran_printf(i8* getelementptr inbounds ([13 x i8], [13 x i8]* @2, i32 0, i32 0), i64 %3, i8* getelementptr inbounds ([2 x i8], [2 x i8]* @0, i32 0, i32 0), i64 %5, i8* getelementptr inbounds ([2 x i8], [2 x i8]* @1, i32 0, i32 0))
-  br label %return
-
-return:                                           ; preds = %.entry
-  ret void
-}
-
-declare void @_lfortran_printf(i8*, ...)
-
-define i32 @main(i32 %0, i8** %1) {
-.entry:
-  call void @_lpython_set_argv(i32 %0, i8** %1)
-  call void @_lpython_main_program()
-  ret i32 0
-}
-
-declare void @_lpython_set_argv(i32, i8**)
diff --git a/tests/reference/llvm-bool1-af4376b.json b/tests/reference/llvm-bool1-af4376b.json
index 317c59afee..f933df1ddb 100644
--- a/tests/reference/llvm-bool1-af4376b.json
+++ b/tests/reference/llvm-bool1-af4376b.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "llvm-bool1-af4376b.stdout",
-    "stdout_hash": "0076cb19c5d5fc94ba92f3d0a24a3150c636f31d1cf226ad74e896b2",
+    "stdout_hash": "4f5e9e47913b161e75dbb0d660944f50aaa93833807e5a8a27266421",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/llvm-bool1-af4376b.stdout b/tests/reference/llvm-bool1-af4376b.stdout
index e63526165e..87b2ef9511 100644
--- a/tests/reference/llvm-bool1-af4376b.stdout
+++ b/tests/reference/llvm-bool1-af4376b.stdout
@@ -1,64 +1,131 @@
 ; ModuleID = 'LFortran'
 source_filename = "LFortran"
 
-@0 = private unnamed_addr constant [2 x i8] c" \00", align 1
-@1 = private unnamed_addr constant [2 x i8] c"\0A\00", align 1
-@2 = private unnamed_addr constant [6 x i8] c"False\00", align 1
-@3 = private unnamed_addr constant [5 x i8] c"True\00", align 1
-@4 = private unnamed_addr constant [5 x i8] c"%s%s\00", align 1
-@5 = private unnamed_addr constant [2 x i8] c" \00", align 1
+%string_descriptor = type <{ i8*, i64 }>
+
+@0 = private unnamed_addr constant [2 x i8] c"\0A\00", align 1
+@serialization_info = private unnamed_addr constant [2 x i8] c"L\00", align 1
+@1 = private unnamed_addr constant [5 x i8] c"%s%s\00", align 1
+@2 = private unnamed_addr constant [2 x i8] c"\0A\00", align 1
+@serialization_info.1 = private unnamed_addr constant [2 x i8] c"L\00", align 1
+@3 = private unnamed_addr constant [5 x i8] c"%s%s\00", align 1
+@4 = private unnamed_addr constant [2 x i8] c"\0A\00", align 1
+@serialization_info.2 = private unnamed_addr constant [2 x i8] c"L\00", align 1
+@5 = private unnamed_addr constant [5 x i8] c"%s%s\00", align 1
 @6 = private unnamed_addr constant [2 x i8] c"\0A\00", align 1
-@7 = private unnamed_addr constant [6 x i8] c"False\00", align 1
-@8 = private unnamed_addr constant [5 x i8] c"True\00", align 1
-@9 = private unnamed_addr constant [5 x i8] c"%s%s\00", align 1
-@10 = private unnamed_addr constant [2 x i8] c" \00", align 1
-@11 = private unnamed_addr constant [2 x i8] c"\0A\00", align 1
-@12 = private unnamed_addr constant [6 x i8] c"False\00", align 1
-@13 = private unnamed_addr constant [5 x i8] c"True\00", align 1
-@14 = private unnamed_addr constant [5 x i8] c"%s%s\00", align 1
-@15 = private unnamed_addr constant [2 x i8] c" \00", align 1
-@16 = private unnamed_addr constant [2 x i8] c"\0A\00", align 1
-@17 = private unnamed_addr constant [6 x i8] c"False\00", align 1
-@18 = private unnamed_addr constant [5 x i8] c"True\00", align 1
-@19 = private unnamed_addr constant [5 x i8] c"%s%s\00", align 1
-
-define void @_lpython_main_program() {
+@serialization_info.3 = private unnamed_addr constant [2 x i8] c"L\00", align 1
+@7 = private unnamed_addr constant [5 x i8] c"%s%s\00", align 1
+
+define void @__module___main_____main__global_stmts() {
 .entry:
-  call void @test_bool()
+  call void @__module___main___test_bool()
   br label %return
 
 return:                                           ; preds = %.entry
+  br label %FINALIZE_SYMTABLE___main__global_stmts
+
+FINALIZE_SYMTABLE___main__global_stmts:           ; preds = %return
   ret void
 }
 
-define void @test_bool() {
+define void @__module___main___test_bool() {
 .entry:
   %b = alloca i1, align 1
-  call void (i8*, ...) @_lfortran_printf(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @4, i32 0, i32 0), i8* getelementptr inbounds ([5 x i8], [5 x i8]* @3, i32 0, i32 0), i8* getelementptr inbounds ([2 x i8], [2 x i8]* @1, i32 0, i32 0))
-  call void (i8*, ...) @_lfortran_printf(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @9, i32 0, i32 0), i8* getelementptr inbounds ([6 x i8], [6 x i8]* @7, i32 0, i32 0), i8* getelementptr inbounds ([2 x i8], [2 x i8]* @6, i32 0, i32 0))
+  %0 = alloca i64, align 8
+  %1 = alloca i1, align 1
+  store i1 true, i1* %1, align 1
+  %2 = call i8* (i8*, i64, i8*, i64*, i32, i32, ...) @_lcompilers_string_format_fortran(i8* null, i64 0, i8* getelementptr inbounds ([2 x i8], [2 x i8]* @serialization_info, i32 0, i32 0), i64* %0, i32 0, i32 0, i1* %1)
+  %3 = load i64, i64* %0, align 4
+  %stringFormat_desc = alloca %string_descriptor, align 8
+  %4 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc, i32 0, i32 0
+  store i8* %2, i8** %4, align 8
+  %5 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc, i32 0, i32 1
+  store i64 %3, i64* %5, align 4
+  %6 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc, i32 0, i32 0
+  %7 = load i8*, i8** %6, align 8
+  %8 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc, i32 0, i32 1
+  %9 = load i64, i64* %8, align 4
+  %10 = trunc i64 %9 to i32
+  call void @_lfortran_printf(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @1, i32 0, i32 0), i8* %7, i32 %10, i8* getelementptr inbounds ([2 x i8], [2 x i8]* @0, i32 0, i32 0), i32 1)
+  call void @_lfortran_free(i8* %2)
+  %11 = alloca i64, align 8
+  %12 = alloca i1, align 1
+  store i1 false, i1* %12, align 1
+  %13 = call i8* (i8*, i64, i8*, i64*, i32, i32, ...) @_lcompilers_string_format_fortran(i8* null, i64 0, i8* getelementptr inbounds ([2 x i8], [2 x i8]* @serialization_info.1, i32 0, i32 0), i64* %11, i32 0, i32 0, i1* %12)
+  %14 = load i64, i64* %11, align 4
+  %stringFormat_desc1 = alloca %string_descriptor, align 8
+  %15 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc1, i32 0, i32 0
+  store i8* %13, i8** %15, align 8
+  %16 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc1, i32 0, i32 1
+  store i64 %14, i64* %16, align 4
+  %17 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc1, i32 0, i32 0
+  %18 = load i8*, i8** %17, align 8
+  %19 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc1, i32 0, i32 1
+  %20 = load i64, i64* %19, align 4
+  %21 = trunc i64 %20 to i32
+  call void @_lfortran_printf(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @3, i32 0, i32 0), i8* %18, i32 %21, i8* getelementptr inbounds ([2 x i8], [2 x i8]* @2, i32 0, i32 0), i32 1)
+  call void @_lfortran_free(i8* %13)
   store i1 true, i1* %b, align 1
-  %0 = load i1, i1* %b, align 1
-  %1 = icmp eq i1 %0, false
-  %2 = select i1 %1, i8* getelementptr inbounds ([6 x i8], [6 x i8]* @12, i32 0, i32 0), i8* getelementptr inbounds ([5 x i8], [5 x i8]* @13, i32 0, i32 0)
-  call void (i8*, ...) @_lfortran_printf(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @14, i32 0, i32 0), i8* %2, i8* getelementptr inbounds ([2 x i8], [2 x i8]* @11, i32 0, i32 0))
+  %22 = alloca i64, align 8
+  %23 = call i8* (i8*, i64, i8*, i64*, i32, i32, ...) @_lcompilers_string_format_fortran(i8* null, i64 0, i8* getelementptr inbounds ([2 x i8], [2 x i8]* @serialization_info.2, i32 0, i32 0), i64* %22, i32 0, i32 0, i1* %b)
+  %24 = load i64, i64* %22, align 4
+  %stringFormat_desc2 = alloca %string_descriptor, align 8
+  %25 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc2, i32 0, i32 0
+  store i8* %23, i8** %25, align 8
+  %26 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc2, i32 0, i32 1
+  store i64 %24, i64* %26, align 4
+  %27 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc2, i32 0, i32 0
+  %28 = load i8*, i8** %27, align 8
+  %29 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc2, i32 0, i32 1
+  %30 = load i64, i64* %29, align 4
+  %31 = trunc i64 %30 to i32
+  call void @_lfortran_printf(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @5, i32 0, i32 0), i8* %28, i32 %31, i8* getelementptr inbounds ([2 x i8], [2 x i8]* @4, i32 0, i32 0), i32 1)
+  call void @_lfortran_free(i8* %23)
   store i1 false, i1* %b, align 1
-  %3 = load i1, i1* %b, align 1
-  %4 = icmp eq i1 %3, false
-  %5 = select i1 %4, i8* getelementptr inbounds ([6 x i8], [6 x i8]* @17, i32 0, i32 0), i8* getelementptr inbounds ([5 x i8], [5 x i8]* @18, i32 0, i32 0)
-  call void (i8*, ...) @_lfortran_printf(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @19, i32 0, i32 0), i8* %5, i8* getelementptr inbounds ([2 x i8], [2 x i8]* @16, i32 0, i32 0))
+  %32 = alloca i64, align 8
+  %33 = call i8* (i8*, i64, i8*, i64*, i32, i32, ...) @_lcompilers_string_format_fortran(i8* null, i64 0, i8* getelementptr inbounds ([2 x i8], [2 x i8]* @serialization_info.3, i32 0, i32 0), i64* %32, i32 0, i32 0, i1* %b)
+  %34 = load i64, i64* %32, align 4
+  %stringFormat_desc3 = alloca %string_descriptor, align 8
+  %35 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc3, i32 0, i32 0
+  store i8* %33, i8** %35, align 8
+  %36 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc3, i32 0, i32 1
+  store i64 %34, i64* %36, align 4
+  %37 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc3, i32 0, i32 0
+  %38 = load i8*, i8** %37, align 8
+  %39 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc3, i32 0, i32 1
+  %40 = load i64, i64* %39, align 4
+  %41 = trunc i64 %40 to i32
+  call void @_lfortran_printf(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @7, i32 0, i32 0), i8* %38, i32 %41, i8* getelementptr inbounds ([2 x i8], [2 x i8]* @6, i32 0, i32 0), i32 1)
+  call void @_lfortran_free(i8* %33)
   br label %return
 
 return:                                           ; preds = %.entry
+  br label %FINALIZE_SYMTABLE_test_bool
+
+FINALIZE_SYMTABLE_test_bool:                      ; preds = %return
   ret void
 }
 
-declare void @_lfortran_printf(i8*, ...)
+declare i8* @_lcompilers_string_format_fortran(i8*, i64, i8*, i64*, i32, i32, ...)
+
+declare void @_lfortran_printf(i8*, i8*, i32, i8*, i32)
+
+declare void @_lfortran_free(i8*)
 
 define i32 @main(i32 %0, i8** %1) {
 .entry:
-  call void @_lpython_set_argv(i32 %0, i8** %1)
-  call void @_lpython_main_program()
+  call void @_lpython_call_initial_functions(i32 %0, i8** %1)
+  call void @__module___main_____main__global_stmts()
+  call void @_lpython_free_argv()
+  br label %return
+
+return:                                           ; preds = %.entry
+  br label %FINALIZE_SYMTABLE_main_program
+
+FINALIZE_SYMTABLE_main_program:                   ; preds = %return
   ret i32 0
 }
 
-declare void @_lpython_set_argv(i32, i8**)
+declare void @_lpython_call_initial_functions(i32, i8**)
+
+declare void @_lpython_free_argv()
diff --git a/tests/reference/llvm-expr14-b96b5b1.json b/tests/reference/llvm-expr14-b96b5b1.json
index 879ff7531d..c5e0c4cd1e 100644
--- a/tests/reference/llvm-expr14-b96b5b1.json
+++ b/tests/reference/llvm-expr14-b96b5b1.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "llvm-expr14-b96b5b1.stdout",
-    "stdout_hash": "1c7f09339ec9e1be7e8a01d8a7977cbd38e4d2fd17c736228ef860fe",
+    "stdout_hash": "73a5745e5573b99fa88c67a3b77f188d17377c77ed1bcc363e3eba5c",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/llvm-expr14-b96b5b1.stdout b/tests/reference/llvm-expr14-b96b5b1.stdout
index 87a515e7c2..5d3c6b17a6 100644
--- a/tests/reference/llvm-expr14-b96b5b1.stdout
+++ b/tests/reference/llvm-expr14-b96b5b1.stdout
@@ -1,54 +1,19 @@
 ; ModuleID = 'LFortran'
 source_filename = "LFortran"
 
-define void @test_boolean_comparison() {
+define i32 @main(i32 %0, i8** %1) {
 .entry:
-  %b1 = alloca i1, align 1
-  %b2 = alloca i1, align 1
-  %b3 = alloca i1, align 1
-  store i1 true, i1* %b1, align 1
-  store i1 true, i1* %b2, align 1
-  store i1 false, i1* %b3, align 1
-  %0 = load i1, i1* %b1, align 1
-  %1 = load i1, i1* %b2, align 1
-  %2 = zext i1 %0 to i32
-  %3 = zext i1 %1 to i32
-  %4 = icmp ugt i32 %2, %3
-  store i1 %4, i1* %b1, align 1
-  %5 = load i1, i1* %b1, align 1
-  %6 = load i1, i1* %b2, align 1
-  %7 = zext i1 %5 to i32
-  %8 = zext i1 %6 to i32
-  %9 = icmp eq i32 %7, %8
-  store i1 %9, i1* %b1, align 1
-  %10 = load i1, i1* %b2, align 1
-  %11 = load i1, i1* %b3, align 1
-  %12 = zext i1 %10 to i32
-  %13 = zext i1 %11 to i32
-  %14 = icmp ne i32 %12, %13
-  store i1 %14, i1* %b1, align 1
-  %15 = load i1, i1* %b2, align 1
-  %16 = load i1, i1* %b3, align 1
-  %17 = zext i1 %15 to i32
-  %18 = zext i1 %16 to i32
-  %19 = icmp uge i32 %17, %18
-  store i1 %19, i1* %b1, align 1
-  %20 = load i1, i1* %b2, align 1
-  %21 = load i1, i1* %b3, align 1
-  %22 = zext i1 %20 to i32
-  %23 = zext i1 %21 to i32
-  %24 = icmp ule i32 %22, %23
-  store i1 %24, i1* %b1, align 1
+  call void @_lpython_call_initial_functions(i32 %0, i8** %1)
+  call void @_lpython_free_argv()
   br label %return
 
 return:                                           ; preds = %.entry
-  ret void
-}
+  br label %FINALIZE_SYMTABLE_main_program
 
-define i32 @main(i32 %0, i8** %1) {
-.entry:
-  call void @_lpython_set_argv(i32 %0, i8** %1)
+FINALIZE_SYMTABLE_main_program:                   ; preds = %return
   ret i32 0
 }
 
-declare void @_lpython_set_argv(i32, i8**)
+declare void @_lpython_call_initial_functions(i32, i8**)
+
+declare void @_lpython_free_argv()
diff --git a/tests/reference/llvm-expr_01-54467c1.json b/tests/reference/llvm-expr_01-54467c1.json
index cee71cf17e..4f25a972f7 100644
--- a/tests/reference/llvm-expr_01-54467c1.json
+++ b/tests/reference/llvm-expr_01-54467c1.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "llvm-expr_01-54467c1.stdout",
-    "stdout_hash": "a9697d265a7e8f07974543e04f19d80cadd7d874c820afb6f9ec2569",
+    "stdout_hash": "ebd056da5b17b5948f274361494023fbc8f6901f94b8cd4e9c9fda54",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/llvm-expr_01-54467c1.stdout b/tests/reference/llvm-expr_01-54467c1.stdout
index 557d38aba8..7cb73ff076 100644
--- a/tests/reference/llvm-expr_01-54467c1.stdout
+++ b/tests/reference/llvm-expr_01-54467c1.stdout
@@ -1,41 +1,75 @@
 ; ModuleID = 'LFortran'
 source_filename = "LFortran"
 
-@0 = private unnamed_addr constant [2 x i8] c" \00", align 1
-@1 = private unnamed_addr constant [2 x i8] c"\0A\00", align 1
-@2 = private unnamed_addr constant [5 x i8] c"%d%s\00", align 1
+%string_descriptor = type <{ i8*, i64 }>
 
-define void @_lpython_main_program() {
+@0 = private unnamed_addr constant [2 x i8] c"\0A\00", align 1
+@serialization_info = private unnamed_addr constant [3 x i8] c"I4\00", align 1
+@1 = private unnamed_addr constant [5 x i8] c"%s%s\00", align 1
+
+define void @__module___main_____main__global_stmts() {
 .entry:
-  call void @main0()
+  call void @__module___main___main0()
   br label %return
 
 return:                                           ; preds = %.entry
+  br label %FINALIZE_SYMTABLE___main__global_stmts
+
+FINALIZE_SYMTABLE___main__global_stmts:           ; preds = %return
   ret void
 }
 
-define void @main0() {
+define void @__module___main___main0() {
 .entry:
   %x = alloca i32, align 4
   %x2 = alloca i64, align 8
   %y = alloca float, align 4
   %y2 = alloca double, align 8
   store i32 25, i32* %x, align 4
-  %0 = load i32, i32* %x, align 4
-  call void (i8*, ...) @_lfortran_printf(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @2, i32 0, i32 0), i32 %0, i8* getelementptr inbounds ([2 x i8], [2 x i8]* @1, i32 0, i32 0))
+  %0 = alloca i64, align 8
+  %1 = call i8* (i8*, i64, i8*, i64*, i32, i32, ...) @_lcompilers_string_format_fortran(i8* null, i64 0, i8* getelementptr inbounds ([3 x i8], [3 x i8]* @serialization_info, i32 0, i32 0), i64* %0, i32 0, i32 0, i32* %x)
+  %2 = load i64, i64* %0, align 4
+  %stringFormat_desc = alloca %string_descriptor, align 8
+  %3 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc, i32 0, i32 0
+  store i8* %1, i8** %3, align 8
+  %4 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc, i32 0, i32 1
+  store i64 %2, i64* %4, align 4
+  %5 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc, i32 0, i32 0
+  %6 = load i8*, i8** %5, align 8
+  %7 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc, i32 0, i32 1
+  %8 = load i64, i64* %7, align 4
+  %9 = trunc i64 %8 to i32
+  call void @_lfortran_printf(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @1, i32 0, i32 0), i8* %6, i32 %9, i8* getelementptr inbounds ([2 x i8], [2 x i8]* @0, i32 0, i32 0), i32 1)
+  call void @_lfortran_free(i8* %1)
   br label %return
 
 return:                                           ; preds = %.entry
+  br label %FINALIZE_SYMTABLE_main0
+
+FINALIZE_SYMTABLE_main0:                          ; preds = %return
   ret void
 }
 
-declare void @_lfortran_printf(i8*, ...)
+declare i8* @_lcompilers_string_format_fortran(i8*, i64, i8*, i64*, i32, i32, ...)
+
+declare void @_lfortran_printf(i8*, i8*, i32, i8*, i32)
+
+declare void @_lfortran_free(i8*)
 
 define i32 @main(i32 %0, i8** %1) {
 .entry:
-  call void @_lpython_set_argv(i32 %0, i8** %1)
-  call void @_lpython_main_program()
+  call void @_lpython_call_initial_functions(i32 %0, i8** %1)
+  call void @__module___main_____main__global_stmts()
+  call void @_lpython_free_argv()
+  br label %return
+
+return:                                           ; preds = %.entry
+  br label %FINALIZE_SYMTABLE_main_program
+
+FINALIZE_SYMTABLE_main_program:                   ; preds = %return
   ret i32 0
 }
 
-declare void @_lpython_set_argv(i32, i8**)
+declare void @_lpython_call_initial_functions(i32, i8**)
+
+declare void @_lpython_free_argv()
diff --git a/tests/reference/llvm-func_inline_01-2d4583a.json b/tests/reference/llvm-func_inline_01-2d4583a.json
index fc4754ca76..61f683adf1 100644
--- a/tests/reference/llvm-func_inline_01-2d4583a.json
+++ b/tests/reference/llvm-func_inline_01-2d4583a.json
@@ -2,11 +2,11 @@
     "basename": "llvm-func_inline_01-2d4583a",
     "cmd": "lpython --no-color --show-llvm {infile} -o {outfile}",
     "infile": "tests/../integration_tests/func_inline_01.py",
-    "infile_hash": "e9d50789dd554b57842e52e0818c0803943173620119bfb6f3787f83",
+    "infile_hash": "65a2e9a9bc7ad68a5e104549eed00cafd02b643a1d91ab2e175b2198",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "llvm-func_inline_01-2d4583a.stdout",
-    "stdout_hash": "271f85efa207940e0fe0db01176ac4c26c7531651bf9b77e6e79921c",
+    "stdout_hash": "46430e9433d6bf4ec78b924c4a58204916e658b2b3721c5baf9b8e35",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/llvm-func_inline_01-2d4583a.stdout b/tests/reference/llvm-func_inline_01-2d4583a.stdout
index ac60e0f73d..c480acd514 100644
--- a/tests/reference/llvm-func_inline_01-2d4583a.stdout
+++ b/tests/reference/llvm-func_inline_01-2d4583a.stdout
@@ -1,21 +1,26 @@
 ; ModuleID = 'LFortran'
 source_filename = "LFortran"
 
-@0 = private unnamed_addr constant [2 x i8] c" \00", align 1
-@1 = private unnamed_addr constant [2 x i8] c"\0A\00", align 1
-@2 = private unnamed_addr constant [7 x i8] c"%lld%s\00", align 1
-@3 = private unnamed_addr constant [16 x i8] c"AssertionError\0A\00", align 1
+%string_descriptor = type <{ i8*, i64 }>
 
-define void @_lpython_main_program() {
+@0 = private unnamed_addr constant [2 x i8] c"\0A\00", align 1
+@serialization_info = private unnamed_addr constant [3 x i8] c"I8\00", align 1
+@1 = private unnamed_addr constant [5 x i8] c"%s%s\00", align 1
+@2 = private unnamed_addr constant [16 x i8] c"AssertionError\0A\00", align 1
+
+define void @__module___main_____main__global_stmts() {
 .entry:
-  call void @_xx_lcompilers_changed_main_xx()
+  call void @__module___main____xx_lcompilers_changed_main_xx()
   br label %return
 
 return:                                           ; preds = %.entry
+  br label %FINALIZE_SYMTABLE___main__global_stmts
+
+FINALIZE_SYMTABLE___main__global_stmts:           ; preds = %return
   ret void
 }
 
-define i64 @fib(i64* %n) {
+define i64 @__module___main___fib(i64* %n) {
 .entry:
   %call_arg_value1 = alloca i64, align 8
   %call_arg_value = alloca i64, align 8
@@ -39,11 +44,11 @@ ifcont:                                           ; preds = %else, %unreachable_
   %3 = load i64, i64* %n, align 4
   %4 = sub i64 %3, 1
   store i64 %4, i64* %call_arg_value, align 4
-  %5 = call i64 @fib(i64* %call_arg_value)
+  %5 = call i64 @__module___main___fib(i64* %call_arg_value)
   %6 = load i64, i64* %n, align 4
   %7 = sub i64 %6, 2
   store i64 %7, i64* %call_arg_value1, align 4
-  %8 = call i64 @fib(i64* %call_arg_value1)
+  %8 = call i64 @__module___main___fib(i64* %call_arg_value1)
   %9 = add i64 %5, %8
   store i64 %9, i64* %_lpython_return_variable, align 4
   br label %return
@@ -52,28 +57,44 @@ unreachable_after_return2:                        ; No predecessors!
   br label %return
 
 return:                                           ; preds = %unreachable_after_return2, %ifcont, %then
+  br label %FINALIZE_SYMTABLE_fib
+
+FINALIZE_SYMTABLE_fib:                            ; preds = %return
   %10 = load i64, i64* %_lpython_return_variable, align 4
   ret i64 %10
 }
 
-define void @_xx_lcompilers_changed_main_xx() {
+define void @__module___main____xx_lcompilers_changed_main_xx() {
 .entry:
   %ans = alloca i64, align 8
   %x = alloca i64, align 8
   store i64 40, i64* %x, align 4
-  %0 = call i64 @fib(i64* %x)
+  %0 = call i64 @__module___main___fib(i64* %x)
   store i64 %0, i64* %ans, align 4
-  %1 = load i64, i64* %ans, align 4
-  call void (i8*, ...) @_lfortran_printf(i8* getelementptr inbounds ([7 x i8], [7 x i8]* @2, i32 0, i32 0), i64 %1, i8* getelementptr inbounds ([2 x i8], [2 x i8]* @1, i32 0, i32 0))
-  %2 = load i64, i64* %ans, align 4
-  %3 = icmp eq i64 %2, 102334155
-  br i1 %3, label %then, label %else
+  %1 = alloca i64, align 8
+  %2 = call i8* (i8*, i64, i8*, i64*, i32, i32, ...) @_lcompilers_string_format_fortran(i8* null, i64 0, i8* getelementptr inbounds ([3 x i8], [3 x i8]* @serialization_info, i32 0, i32 0), i64* %1, i32 0, i32 0, i64* %ans)
+  %3 = load i64, i64* %1, align 4
+  %stringFormat_desc = alloca %string_descriptor, align 8
+  %4 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc, i32 0, i32 0
+  store i8* %2, i8** %4, align 8
+  %5 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc, i32 0, i32 1
+  store i64 %3, i64* %5, align 4
+  %6 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc, i32 0, i32 0
+  %7 = load i8*, i8** %6, align 8
+  %8 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc, i32 0, i32 1
+  %9 = load i64, i64* %8, align 4
+  %10 = trunc i64 %9 to i32
+  call void @_lfortran_printf(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @1, i32 0, i32 0), i8* %7, i32 %10, i8* getelementptr inbounds ([2 x i8], [2 x i8]* @0, i32 0, i32 0), i32 1)
+  call void @_lfortran_free(i8* %2)
+  %11 = load i64, i64* %ans, align 4
+  %12 = icmp eq i64 %11, 102334155
+  br i1 %12, label %then, label %else
 
 then:                                             ; preds = %.entry
   br label %ifcont
 
 else:                                             ; preds = %.entry
-  call void (i8*, ...) @_lcompilers_print_error(i8* getelementptr inbounds ([16 x i8], [16 x i8]* @3, i32 0, i32 0))
+  call void (i8*, ...) @_lcompilers_print_error(i8* getelementptr inbounds ([16 x i8], [16 x i8]* @2, i32 0, i32 0))
   call void @exit(i32 1)
   br label %ifcont
 
@@ -81,10 +102,17 @@ ifcont:                                           ; preds = %else, %then
   br label %return
 
 return:                                           ; preds = %ifcont
+  br label %FINALIZE_SYMTABLE_main
+
+FINALIZE_SYMTABLE_main:                           ; preds = %return
   ret void
 }
 
-declare void @_lfortran_printf(i8*, ...)
+declare i8* @_lcompilers_string_format_fortran(i8*, i64, i8*, i64*, i32, i32, ...)
+
+declare void @_lfortran_printf(i8*, i8*, i32, i8*, i32)
+
+declare void @_lfortran_free(i8*)
 
 declare void @_lcompilers_print_error(i8*, ...)
 
@@ -92,9 +120,18 @@ declare void @exit(i32)
 
 define i32 @main(i32 %0, i8** %1) {
 .entry:
-  call void @_lpython_set_argv(i32 %0, i8** %1)
-  call void @_lpython_main_program()
+  call void @_lpython_call_initial_functions(i32 %0, i8** %1)
+  call void @__module___main_____main__global_stmts()
+  call void @_lpython_free_argv()
+  br label %return
+
+return:                                           ; preds = %.entry
+  br label %FINALIZE_SYMTABLE_main_program
+
+FINALIZE_SYMTABLE_main_program:                   ; preds = %return
   ret i32 0
 }
 
-declare void @_lpython_set_argv(i32, i8**)
+declare void @_lpython_call_initial_functions(i32, i8**)
+
+declare void @_lpython_free_argv()
diff --git a/tests/reference/llvm-lpython1-23c5987.json b/tests/reference/llvm-lpython1-23c5987.json
new file mode 100644
index 0000000000..9f332e6a2f
--- /dev/null
+++ b/tests/reference/llvm-lpython1-23c5987.json
@@ -0,0 +1,13 @@
+{
+    "basename": "llvm-lpython1-23c5987",
+    "cmd": "lpython --no-color --show-llvm {infile} -o {outfile}",
+    "infile": "tests/lpython1.py",
+    "infile_hash": "195a467b66705e0f2638aee8c8a6e9145112b2964e05896c328e0d86",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": "llvm-lpython1-23c5987.stdout",
+    "stdout_hash": "73a5745e5573b99fa88c67a3b77f188d17377c77ed1bcc363e3eba5c",
+    "stderr": null,
+    "stderr_hash": null,
+    "returncode": 0
+}
\ No newline at end of file
diff --git a/tests/reference/llvm-lpython1-23c5987.stdout b/tests/reference/llvm-lpython1-23c5987.stdout
new file mode 100644
index 0000000000..5d3c6b17a6
--- /dev/null
+++ b/tests/reference/llvm-lpython1-23c5987.stdout
@@ -0,0 +1,19 @@
+; ModuleID = 'LFortran'
+source_filename = "LFortran"
+
+define i32 @main(i32 %0, i8** %1) {
+.entry:
+  call void @_lpython_call_initial_functions(i32 %0, i8** %1)
+  call void @_lpython_free_argv()
+  br label %return
+
+return:                                           ; preds = %.entry
+  br label %FINALIZE_SYMTABLE_main_program
+
+FINALIZE_SYMTABLE_main_program:                   ; preds = %return
+  ret i32 0
+}
+
+declare void @_lpython_call_initial_functions(i32, i8**)
+
+declare void @_lpython_free_argv()
diff --git a/tests/reference/llvm-ltypes1-dacf939.json b/tests/reference/llvm-ltypes1-dacf939.json
deleted file mode 100644
index 9039974332..0000000000
--- a/tests/reference/llvm-ltypes1-dacf939.json
+++ /dev/null
@@ -1,13 +0,0 @@
-{
-    "basename": "llvm-ltypes1-dacf939",
-    "cmd": "lpython --no-color --show-llvm {infile} -o {outfile}",
-    "infile": "tests/ltypes1.py",
-    "infile_hash": "b7a01bc04b8f62742e57da116fe5c16f2404ac86a03fb7064354078f",
-    "outfile": null,
-    "outfile_hash": null,
-    "stdout": "llvm-ltypes1-dacf939.stdout",
-    "stdout_hash": "e159629de1a0c099150b091e961cc50a9388c3096ef63bc0d3aa12a1",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
-}
\ No newline at end of file
diff --git a/tests/reference/llvm-ltypes1-dacf939.stdout b/tests/reference/llvm-ltypes1-dacf939.stdout
deleted file mode 100644
index e778dfdde9..0000000000
--- a/tests/reference/llvm-ltypes1-dacf939.stdout
+++ /dev/null
@@ -1,73 +0,0 @@
-; ModuleID = 'LFortran'
-source_filename = "LFortran"
-
-@0 = private unnamed_addr constant [2 x i8] c" \00", align 1
-@1 = private unnamed_addr constant [2 x i8] c"\0A\00", align 1
-@2 = private unnamed_addr constant [6 x i8] c"%hi%s\00", align 1
-@3 = private unnamed_addr constant [2 x i8] c" \00", align 1
-@4 = private unnamed_addr constant [2 x i8] c"\0A\00", align 1
-@5 = private unnamed_addr constant [5 x i8] c"%d%s\00", align 1
-@6 = private unnamed_addr constant [2 x i8] c" \00", align 1
-@7 = private unnamed_addr constant [2 x i8] c"\0A\00", align 1
-@8 = private unnamed_addr constant [7 x i8] c"%lld%s\00", align 1
-@9 = private unnamed_addr constant [2 x i8] c" \00", align 1
-@10 = private unnamed_addr constant [2 x i8] c"\0A\00", align 1
-@11 = private unnamed_addr constant [7 x i8] c"%hhi%s\00", align 1
-
-define void @test_i16() {
-.entry:
-  %i = alloca i16, align 2
-  store i16 4, i16* %i, align 2
-  %0 = load i16, i16* %i, align 2
-  call void (i8*, ...) @_lfortran_printf(i8* getelementptr inbounds ([6 x i8], [6 x i8]* @2, i32 0, i32 0), i16 %0, i8* getelementptr inbounds ([2 x i8], [2 x i8]* @1, i32 0, i32 0))
-  br label %return
-
-return:                                           ; preds = %.entry
-  ret void
-}
-
-define void @test_i32() {
-.entry:
-  %i = alloca i32, align 4
-  store i32 3, i32* %i, align 4
-  %0 = load i32, i32* %i, align 4
-  call void (i8*, ...) @_lfortran_printf(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @5, i32 0, i32 0), i32 %0, i8* getelementptr inbounds ([2 x i8], [2 x i8]* @4, i32 0, i32 0))
-  br label %return
-
-return:                                           ; preds = %.entry
-  ret void
-}
-
-define void @test_i64() {
-.entry:
-  %i = alloca i64, align 8
-  store i64 2, i64* %i, align 4
-  %0 = load i64, i64* %i, align 4
-  call void (i8*, ...) @_lfortran_printf(i8* getelementptr inbounds ([7 x i8], [7 x i8]* @8, i32 0, i32 0), i64 %0, i8* getelementptr inbounds ([2 x i8], [2 x i8]* @7, i32 0, i32 0))
-  br label %return
-
-return:                                           ; preds = %.entry
-  ret void
-}
-
-define void @test_i8() {
-.entry:
-  %i = alloca i8, align 1
-  store i8 5, i8* %i, align 1
-  %0 = load i8, i8* %i, align 1
-  call void (i8*, ...) @_lfortran_printf(i8* getelementptr inbounds ([7 x i8], [7 x i8]* @11, i32 0, i32 0), i8 %0, i8* getelementptr inbounds ([2 x i8], [2 x i8]* @10, i32 0, i32 0))
-  br label %return
-
-return:                                           ; preds = %.entry
-  ret void
-}
-
-declare void @_lfortran_printf(i8*, ...)
-
-define i32 @main(i32 %0, i8** %1) {
-.entry:
-  call void @_lpython_set_argv(i32 %0, i8** %1)
-  ret i32 0
-}
-
-declare void @_lpython_set_argv(i32, i8**)
diff --git a/tests/reference/llvm-print_04-443a8d8.json b/tests/reference/llvm-print_04-443a8d8.json
index 79fed62f0d..03a20489d5 100644
--- a/tests/reference/llvm-print_04-443a8d8.json
+++ b/tests/reference/llvm-print_04-443a8d8.json
@@ -2,11 +2,11 @@
     "basename": "llvm-print_04-443a8d8",
     "cmd": "lpython --no-color --show-llvm {infile} -o {outfile}",
     "infile": "tests/../integration_tests/print_04.py",
-    "infile_hash": "d9eb6feb9aaa52c5cac94b3edd6c62f2611eda2c5ad191e44b42f480",
+    "infile_hash": "88affcdc1013b979debbf8b47a481909670b62c91fc5963af42c2495",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "llvm-print_04-443a8d8.stdout",
-    "stdout_hash": "1155cc520c53a4f152706d469e9abb0a2fbb96924300f27168b92c82",
+    "stdout_hash": "90d292a24e2d8532a4f06b5c03e04593f66b36025ea9668b3f931114",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/llvm-print_04-443a8d8.stdout b/tests/reference/llvm-print_04-443a8d8.stdout
index 851cb3ef12..f0c76d1a84 100644
--- a/tests/reference/llvm-print_04-443a8d8.stdout
+++ b/tests/reference/llvm-print_04-443a8d8.stdout
@@ -1,46 +1,116 @@
 ; ModuleID = 'LFortran'
 source_filename = "LFortran"
 
-@u = global i64 -922337203685477580
-@x = global i32 -2147483648
-@y = global i16 -32768
-@z = global i8 -128
-@0 = private unnamed_addr constant [2 x i8] c" \00", align 1
-@1 = private unnamed_addr constant [2 x i8] c"\0A\00", align 1
-@2 = private unnamed_addr constant [7 x i8] c"%lld%s\00", align 1
-@3 = private unnamed_addr constant [2 x i8] c" \00", align 1
+%string_descriptor = type <{ i8*, i64 }>
+
+@__module___main___u = global i64 -922337203685477580
+@__module___main___x = global i32 -2147483648
+@__module___main___y = global i16 -32768
+@__module___main___z = global i8 -128
+@0 = private unnamed_addr constant [2 x i8] c"\0A\00", align 1
+@serialization_info = private unnamed_addr constant [3 x i8] c"I8\00", align 1
+@1 = private unnamed_addr constant [5 x i8] c"%s%s\00", align 1
+@2 = private unnamed_addr constant [2 x i8] c"\0A\00", align 1
+@serialization_info.1 = private unnamed_addr constant [3 x i8] c"I4\00", align 1
+@3 = private unnamed_addr constant [5 x i8] c"%s%s\00", align 1
 @4 = private unnamed_addr constant [2 x i8] c"\0A\00", align 1
-@5 = private unnamed_addr constant [5 x i8] c"%d%s\00", align 1
-@6 = private unnamed_addr constant [2 x i8] c" \00", align 1
-@7 = private unnamed_addr constant [2 x i8] c"\0A\00", align 1
-@8 = private unnamed_addr constant [6 x i8] c"%hi%s\00", align 1
-@9 = private unnamed_addr constant [2 x i8] c" \00", align 1
-@10 = private unnamed_addr constant [2 x i8] c"\0A\00", align 1
-@11 = private unnamed_addr constant [7 x i8] c"%hhi%s\00", align 1
-
-define void @_lpython_main_program() {
+@serialization_info.2 = private unnamed_addr constant [3 x i8] c"I2\00", align 1
+@5 = private unnamed_addr constant [5 x i8] c"%s%s\00", align 1
+@6 = private unnamed_addr constant [2 x i8] c"\0A\00", align 1
+@serialization_info.3 = private unnamed_addr constant [3 x i8] c"I1\00", align 1
+@7 = private unnamed_addr constant [5 x i8] c"%s%s\00", align 1
+
+define void @__module___main_____main__global_stmts() {
 .entry:
-  %0 = load i64, i64* @u, align 4
-  call void (i8*, ...) @_lfortran_printf(i8* getelementptr inbounds ([7 x i8], [7 x i8]* @2, i32 0, i32 0), i64 %0, i8* getelementptr inbounds ([2 x i8], [2 x i8]* @1, i32 0, i32 0))
-  %1 = load i32, i32* @x, align 4
-  call void (i8*, ...) @_lfortran_printf(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @5, i32 0, i32 0), i32 %1, i8* getelementptr inbounds ([2 x i8], [2 x i8]* @4, i32 0, i32 0))
-  %2 = load i16, i16* @y, align 2
-  call void (i8*, ...) @_lfortran_printf(i8* getelementptr inbounds ([6 x i8], [6 x i8]* @8, i32 0, i32 0), i16 %2, i8* getelementptr inbounds ([2 x i8], [2 x i8]* @7, i32 0, i32 0))
-  %3 = load i8, i8* @z, align 1
-  call void (i8*, ...) @_lfortran_printf(i8* getelementptr inbounds ([7 x i8], [7 x i8]* @11, i32 0, i32 0), i8 %3, i8* getelementptr inbounds ([2 x i8], [2 x i8]* @10, i32 0, i32 0))
+  %0 = alloca i64, align 8
+  %1 = call i8* (i8*, i64, i8*, i64*, i32, i32, ...) @_lcompilers_string_format_fortran(i8* null, i64 0, i8* getelementptr inbounds ([3 x i8], [3 x i8]* @serialization_info, i32 0, i32 0), i64* %0, i32 0, i32 0, i64* @__module___main___u)
+  %2 = load i64, i64* %0, align 4
+  %stringFormat_desc = alloca %string_descriptor, align 8
+  %3 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc, i32 0, i32 0
+  store i8* %1, i8** %3, align 8
+  %4 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc, i32 0, i32 1
+  store i64 %2, i64* %4, align 4
+  %5 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc, i32 0, i32 0
+  %6 = load i8*, i8** %5, align 8
+  %7 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc, i32 0, i32 1
+  %8 = load i64, i64* %7, align 4
+  %9 = trunc i64 %8 to i32
+  call void @_lfortran_printf(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @1, i32 0, i32 0), i8* %6, i32 %9, i8* getelementptr inbounds ([2 x i8], [2 x i8]* @0, i32 0, i32 0), i32 1)
+  call void @_lfortran_free(i8* %1)
+  %10 = alloca i64, align 8
+  %11 = call i8* (i8*, i64, i8*, i64*, i32, i32, ...) @_lcompilers_string_format_fortran(i8* null, i64 0, i8* getelementptr inbounds ([3 x i8], [3 x i8]* @serialization_info.1, i32 0, i32 0), i64* %10, i32 0, i32 0, i32* @__module___main___x)
+  %12 = load i64, i64* %10, align 4
+  %stringFormat_desc1 = alloca %string_descriptor, align 8
+  %13 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc1, i32 0, i32 0
+  store i8* %11, i8** %13, align 8
+  %14 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc1, i32 0, i32 1
+  store i64 %12, i64* %14, align 4
+  %15 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc1, i32 0, i32 0
+  %16 = load i8*, i8** %15, align 8
+  %17 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc1, i32 0, i32 1
+  %18 = load i64, i64* %17, align 4
+  %19 = trunc i64 %18 to i32
+  call void @_lfortran_printf(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @3, i32 0, i32 0), i8* %16, i32 %19, i8* getelementptr inbounds ([2 x i8], [2 x i8]* @2, i32 0, i32 0), i32 1)
+  call void @_lfortran_free(i8* %11)
+  %20 = alloca i64, align 8
+  %21 = call i8* (i8*, i64, i8*, i64*, i32, i32, ...) @_lcompilers_string_format_fortran(i8* null, i64 0, i8* getelementptr inbounds ([3 x i8], [3 x i8]* @serialization_info.2, i32 0, i32 0), i64* %20, i32 0, i32 0, i16* @__module___main___y)
+  %22 = load i64, i64* %20, align 4
+  %stringFormat_desc2 = alloca %string_descriptor, align 8
+  %23 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc2, i32 0, i32 0
+  store i8* %21, i8** %23, align 8
+  %24 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc2, i32 0, i32 1
+  store i64 %22, i64* %24, align 4
+  %25 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc2, i32 0, i32 0
+  %26 = load i8*, i8** %25, align 8
+  %27 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc2, i32 0, i32 1
+  %28 = load i64, i64* %27, align 4
+  %29 = trunc i64 %28 to i32
+  call void @_lfortran_printf(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @5, i32 0, i32 0), i8* %26, i32 %29, i8* getelementptr inbounds ([2 x i8], [2 x i8]* @4, i32 0, i32 0), i32 1)
+  call void @_lfortran_free(i8* %21)
+  %30 = alloca i64, align 8
+  %31 = call i8* (i8*, i64, i8*, i64*, i32, i32, ...) @_lcompilers_string_format_fortran(i8* null, i64 0, i8* getelementptr inbounds ([3 x i8], [3 x i8]* @serialization_info.3, i32 0, i32 0), i64* %30, i32 0, i32 0, i8* @__module___main___z)
+  %32 = load i64, i64* %30, align 4
+  %stringFormat_desc3 = alloca %string_descriptor, align 8
+  %33 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc3, i32 0, i32 0
+  store i8* %31, i8** %33, align 8
+  %34 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc3, i32 0, i32 1
+  store i64 %32, i64* %34, align 4
+  %35 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc3, i32 0, i32 0
+  %36 = load i8*, i8** %35, align 8
+  %37 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc3, i32 0, i32 1
+  %38 = load i64, i64* %37, align 4
+  %39 = trunc i64 %38 to i32
+  call void @_lfortran_printf(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @7, i32 0, i32 0), i8* %36, i32 %39, i8* getelementptr inbounds ([2 x i8], [2 x i8]* @6, i32 0, i32 0), i32 1)
+  call void @_lfortran_free(i8* %31)
   br label %return
 
 return:                                           ; preds = %.entry
+  br label %FINALIZE_SYMTABLE___main__global_stmts
+
+FINALIZE_SYMTABLE___main__global_stmts:           ; preds = %return
   ret void
 }
 
-declare void @_lfortran_printf(i8*, ...)
+declare i8* @_lcompilers_string_format_fortran(i8*, i64, i8*, i64*, i32, i32, ...)
+
+declare void @_lfortran_printf(i8*, i8*, i32, i8*, i32)
+
+declare void @_lfortran_free(i8*)
 
 define i32 @main(i32 %0, i8** %1) {
 .entry:
-  call void @_lpython_set_argv(i32 %0, i8** %1)
-  call void @_lpython_main_program()
+  call void @_lpython_call_initial_functions(i32 %0, i8** %1)
+  call void @__module___main_____main__global_stmts()
+  call void @_lpython_free_argv()
+  br label %return
+
+return:                                           ; preds = %.entry
+  br label %FINALIZE_SYMTABLE_main_program
+
+FINALIZE_SYMTABLE_main_program:                   ; preds = %return
   ret i32 0
 }
 
-declare void @_lpython_set_argv(i32, i8**)
+declare void @_lpython_call_initial_functions(i32, i8**)
+
+declare void @_lpython_free_argv()
diff --git a/tests/reference/llvm-test_integer_bitnot-6894b6d.json b/tests/reference/llvm-test_integer_bitnot-6894b6d.json
deleted file mode 100644
index 89cfac4974..0000000000
--- a/tests/reference/llvm-test_integer_bitnot-6894b6d.json
+++ /dev/null
@@ -1,13 +0,0 @@
-{
-    "basename": "llvm-test_integer_bitnot-6894b6d",
-    "cmd": "lpython --no-color --show-llvm {infile} -o {outfile}",
-    "infile": "tests/../integration_tests/test_integer_bitnot.py",
-    "infile_hash": "dc976a358fbeebedead889f8e85b3eed4ac77ee20f68fcac58b81429",
-    "outfile": null,
-    "outfile_hash": null,
-    "stdout": "llvm-test_integer_bitnot-6894b6d.stdout",
-    "stdout_hash": "5affc2493c6e9b5c9fd6dc20d838c9b2b6d63c9d198ae477e7f4b38d",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
-}
\ No newline at end of file
diff --git a/tests/reference/llvm-test_integer_bitnot-6894b6d.stdout b/tests/reference/llvm-test_integer_bitnot-6894b6d.stdout
deleted file mode 100644
index c843145837..0000000000
--- a/tests/reference/llvm-test_integer_bitnot-6894b6d.stdout
+++ /dev/null
@@ -1,69 +0,0 @@
-; ModuleID = 'LFortran'
-source_filename = "LFortran"
-
-@0 = private unnamed_addr constant [16 x i8] c"AssertionError\0A\00", align 1
-@1 = private unnamed_addr constant [16 x i8] c"AssertionError\0A\00", align 1
-
-define void @_lpython_main_program() {
-.entry:
-  call void @f()
-  br label %return
-
-return:                                           ; preds = %.entry
-  ret void
-}
-
-define void @f() {
-.entry:
-  %i = alloca i32, align 4
-  %res = alloca i32, align 4
-  store i32 5, i32* %i, align 4
-  %0 = load i32, i32* %i, align 4
-  %1 = xor i32 %0, -1
-  store i32 %1, i32* %res, align 4
-  %2 = load i32, i32* %res, align 4
-  %3 = icmp eq i32 %2, -6
-  br i1 %3, label %then, label %else
-
-then:                                             ; preds = %.entry
-  br label %ifcont
-
-else:                                             ; preds = %.entry
-  call void (i8*, ...) @_lcompilers_print_error(i8* getelementptr inbounds ([16 x i8], [16 x i8]* @0, i32 0, i32 0))
-  call void @exit(i32 1)
-  br label %ifcont
-
-ifcont:                                           ; preds = %else, %then
-  store i32 -235346, i32* %i, align 4
-  %4 = load i32, i32* %i, align 4
-  %5 = xor i32 %4, -1
-  %6 = icmp eq i32 %5, 235345
-  br i1 %6, label %then1, label %else2
-
-then1:                                            ; preds = %ifcont
-  br label %ifcont3
-
-else2:                                            ; preds = %ifcont
-  call void (i8*, ...) @_lcompilers_print_error(i8* getelementptr inbounds ([16 x i8], [16 x i8]* @1, i32 0, i32 0))
-  call void @exit(i32 1)
-  br label %ifcont3
-
-ifcont3:                                          ; preds = %else2, %then1
-  br label %return
-
-return:                                           ; preds = %ifcont3
-  ret void
-}
-
-declare void @_lcompilers_print_error(i8*, ...)
-
-declare void @exit(i32)
-
-define i32 @main(i32 %0, i8** %1) {
-.entry:
-  call void @_lpython_set_argv(i32 %0, i8** %1)
-  call void @_lpython_main_program()
-  ret i32 0
-}
-
-declare void @_lpython_set_argv(i32, i8**)
diff --git a/tests/reference/llvm-test_issue_518-cdb641a.json b/tests/reference/llvm-test_issue_518-cdb641a.json
index 0d30dcc6b9..f80a2640bb 100644
--- a/tests/reference/llvm-test_issue_518-cdb641a.json
+++ b/tests/reference/llvm-test_issue_518-cdb641a.json
@@ -2,11 +2,11 @@
     "basename": "llvm-test_issue_518-cdb641a",
     "cmd": "lpython --no-color --show-llvm {infile} -o {outfile}",
     "infile": "tests/../integration_tests/test_issue_518.py",
-    "infile_hash": "a1e1222536e4b64cb96e0e8087120fe0ab4c18b09f32ef9b05719aaa",
+    "infile_hash": "9cf223e018e0affc76044dff23cb75157fbdca458be3ae68871da8db",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "llvm-test_issue_518-cdb641a.stdout",
-    "stdout_hash": "c7e5b541ad8f2e87be58d83c8dcf970e9086c5d8e083148ea5e40b6d",
+    "stdout_hash": "85ff823581b50af2a7174ab24f8ae40ee7eac67a616724a034e4d4a9",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/llvm-test_issue_518-cdb641a.stdout b/tests/reference/llvm-test_issue_518-cdb641a.stdout
index fe4bd86ed9..7d17fe955c 100644
--- a/tests/reference/llvm-test_issue_518-cdb641a.stdout
+++ b/tests/reference/llvm-test_issue_518-cdb641a.stdout
@@ -4,17 +4,20 @@ source_filename = "LFortran"
 @0 = private unnamed_addr constant [16 x i8] c"AssertionError\0A\00", align 1
 @1 = private unnamed_addr constant [16 x i8] c"AssertionError\0A\00", align 1
 
-define void @_lpython_main_program() {
+define void @__module___main_____main__global_stmts() {
 .entry:
-  call void @main0()
-  call void @_xx_lcompilers_changed_main_xx()
+  call void @__module___main___main0()
+  call void @__module___main____xx_lcompilers_changed_main_xx()
   br label %return
 
 return:                                           ; preds = %.entry
+  br label %FINALIZE_SYMTABLE___main__global_stmts
+
+FINALIZE_SYMTABLE___main__global_stmts:           ; preds = %return
   ret void
 }
 
-define i64 @fib(i64* %n) {
+define i64 @__module___main___fib(i64* %n) {
 .entry:
   %call_arg_value1 = alloca i64, align 8
   %call_arg_value = alloca i64, align 8
@@ -35,11 +38,11 @@ else:                                             ; preds = %.entry
   %3 = load i64, i64* %n, align 4
   %4 = sub i64 %3, 1
   store i64 %4, i64* %call_arg_value, align 4
-  %5 = call i64 @fib(i64* %call_arg_value)
+  %5 = call i64 @__module___main___fib(i64* %call_arg_value)
   %6 = load i64, i64* %n, align 4
   %7 = sub i64 %6, 2
   store i64 %7, i64* %call_arg_value1, align 4
-  %8 = call i64 @fib(i64* %call_arg_value1)
+  %8 = call i64 @__module___main___fib(i64* %call_arg_value1)
   %9 = add i64 %5, %8
   store i64 %9, i64* %_lpython_return_variable, align 4
   br label %return
@@ -51,16 +54,19 @@ ifcont:                                           ; preds = %unreachable_after_r
   br label %return
 
 return:                                           ; preds = %ifcont, %else, %then
+  br label %FINALIZE_SYMTABLE_fib
+
+FINALIZE_SYMTABLE_fib:                            ; preds = %return
   %10 = load i64, i64* %_lpython_return_variable, align 4
   ret i64 %10
 }
 
-define void @_xx_lcompilers_changed_main_xx() {
+define void @__module___main____xx_lcompilers_changed_main_xx() {
 .entry:
   %call_arg_value = alloca i64, align 8
   %ans = alloca i64, align 8
   store i64 10, i64* %call_arg_value, align 4
-  %0 = call i64 @fib(i64* %call_arg_value)
+  %0 = call i64 @__module___main___fib(i64* %call_arg_value)
   store i64 %0, i64* %ans, align 4
   %1 = load i64, i64* %ans, align 4
   %2 = icmp eq i64 %1, 55
@@ -78,15 +84,18 @@ ifcont:                                           ; preds = %else, %then
   br label %return
 
 return:                                           ; preds = %ifcont
+  br label %FINALIZE_SYMTABLE_main
+
+FINALIZE_SYMTABLE_main:                           ; preds = %return
   ret void
 }
 
-define void @main0() {
+define void @__module___main___main0() {
 .entry:
   %call_arg_value = alloca i64, align 8
   %ans = alloca i64, align 8
   store i64 15, i64* %call_arg_value, align 4
-  %0 = call i64 @fib(i64* %call_arg_value)
+  %0 = call i64 @__module___main___fib(i64* %call_arg_value)
   store i64 %0, i64* %ans, align 4
   %1 = load i64, i64* %ans, align 4
   %2 = icmp eq i64 %1, 610
@@ -104,6 +113,9 @@ ifcont:                                           ; preds = %else, %then
   br label %return
 
 return:                                           ; preds = %ifcont
+  br label %FINALIZE_SYMTABLE_main0
+
+FINALIZE_SYMTABLE_main0:                          ; preds = %return
   ret void
 }
 
@@ -113,9 +125,18 @@ declare void @exit(i32)
 
 define i32 @main(i32 %0, i8** %1) {
 .entry:
-  call void @_lpython_set_argv(i32 %0, i8** %1)
-  call void @_lpython_main_program()
+  call void @_lpython_call_initial_functions(i32 %0, i8** %1)
+  call void @__module___main_____main__global_stmts()
+  call void @_lpython_free_argv()
+  br label %return
+
+return:                                           ; preds = %.entry
+  br label %FINALIZE_SYMTABLE_main_program
+
+FINALIZE_SYMTABLE_main_program:                   ; preds = %return
   ret i32 0
 }
 
-declare void @_lpython_set_argv(i32, i8**)
+declare void @_lpython_call_initial_functions(i32, i8**)
+
+declare void @_lpython_free_argv()
diff --git a/tests/reference/llvm-test_unary_op_03-046fb86.json b/tests/reference/llvm-test_unary_op_03-046fb86.json
new file mode 100644
index 0000000000..6ecb0ac69c
--- /dev/null
+++ b/tests/reference/llvm-test_unary_op_03-046fb86.json
@@ -0,0 +1,13 @@
+{
+    "basename": "llvm-test_unary_op_03-046fb86",
+    "cmd": "lpython --no-color --show-llvm {infile} -o {outfile}",
+    "infile": "tests/../integration_tests/test_unary_op_03.py",
+    "infile_hash": "ce63509c56eb6c68ca6d64cc2a195644f3d2fc285f3ec8865551eff5",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": "llvm-test_unary_op_03-046fb86.stdout",
+    "stdout_hash": "3d91ae8777832d314f7805d2a70f5b02b4ffaee8f4f05cdb05c520b2",
+    "stderr": null,
+    "stderr_hash": null,
+    "returncode": 0
+}
\ No newline at end of file
diff --git a/tests/reference/llvm-test_unary_op_03-046fb86.stdout b/tests/reference/llvm-test_unary_op_03-046fb86.stdout
new file mode 100644
index 0000000000..135210cfc6
--- /dev/null
+++ b/tests/reference/llvm-test_unary_op_03-046fb86.stdout
@@ -0,0 +1,84 @@
+; ModuleID = 'LFortran'
+source_filename = "LFortran"
+
+@0 = private unnamed_addr constant [16 x i8] c"AssertionError\0A\00", align 1
+@1 = private unnamed_addr constant [16 x i8] c"AssertionError\0A\00", align 1
+
+define void @__module___main_____main__global_stmts() {
+.entry:
+  call void @__module___main___f()
+  br label %return
+
+return:                                           ; preds = %.entry
+  br label %FINALIZE_SYMTABLE___main__global_stmts
+
+FINALIZE_SYMTABLE___main__global_stmts:           ; preds = %return
+  ret void
+}
+
+define void @__module___main___f() {
+.entry:
+  %i = alloca i32, align 4
+  %res = alloca i32, align 4
+  store i32 5, i32* %i, align 4
+  %0 = load i32, i32* %i, align 4
+  %1 = xor i32 %0, -1
+  store i32 %1, i32* %res, align 4
+  %2 = load i32, i32* %res, align 4
+  %3 = icmp eq i32 %2, -6
+  br i1 %3, label %then, label %else
+
+then:                                             ; preds = %.entry
+  br label %ifcont
+
+else:                                             ; preds = %.entry
+  call void (i8*, ...) @_lcompilers_print_error(i8* getelementptr inbounds ([16 x i8], [16 x i8]* @0, i32 0, i32 0))
+  call void @exit(i32 1)
+  br label %ifcont
+
+ifcont:                                           ; preds = %else, %then
+  store i32 -235346, i32* %i, align 4
+  %4 = load i32, i32* %i, align 4
+  %5 = xor i32 %4, -1
+  %6 = icmp eq i32 %5, 235345
+  br i1 %6, label %then1, label %else2
+
+then1:                                            ; preds = %ifcont
+  br label %ifcont3
+
+else2:                                            ; preds = %ifcont
+  call void (i8*, ...) @_lcompilers_print_error(i8* getelementptr inbounds ([16 x i8], [16 x i8]* @1, i32 0, i32 0))
+  call void @exit(i32 1)
+  br label %ifcont3
+
+ifcont3:                                          ; preds = %else2, %then1
+  br label %return
+
+return:                                           ; preds = %ifcont3
+  br label %FINALIZE_SYMTABLE_f
+
+FINALIZE_SYMTABLE_f:                              ; preds = %return
+  ret void
+}
+
+declare void @_lcompilers_print_error(i8*, ...)
+
+declare void @exit(i32)
+
+define i32 @main(i32 %0, i8** %1) {
+.entry:
+  call void @_lpython_call_initial_functions(i32 %0, i8** %1)
+  call void @__module___main_____main__global_stmts()
+  call void @_lpython_free_argv()
+  br label %return
+
+return:                                           ; preds = %.entry
+  br label %FINALIZE_SYMTABLE_main_program
+
+FINALIZE_SYMTABLE_main_program:                   ; preds = %return
+  ret i32 0
+}
+
+declare void @_lpython_call_initial_functions(i32, i8**)
+
+declare void @_lpython_free_argv()
diff --git a/tests/reference/llvm_dbg-expr_01-9fc5f30.json b/tests/reference/llvm_dbg-expr_01-9fc5f30.json
index d6a9cca10e..e541634d02 100644
--- a/tests/reference/llvm_dbg-expr_01-9fc5f30.json
+++ b/tests/reference/llvm_dbg-expr_01-9fc5f30.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "llvm_dbg-expr_01-9fc5f30.stdout",
-    "stdout_hash": "9f307dfa468563bd849a146009850040409550f95bf7dbe5c49cbb80",
+    "stdout_hash": "bfee947cdf74468b9ae47a79c4f93a36d2dea1d313029b7bd7b7b7ca",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/llvm_dbg-expr_01-9fc5f30.stdout b/tests/reference/llvm_dbg-expr_01-9fc5f30.stdout
index 12c9e0d946..6c1b3935a1 100644
--- a/tests/reference/llvm_dbg-expr_01-9fc5f30.stdout
+++ b/tests/reference/llvm_dbg-expr_01-9fc5f30.stdout
@@ -1,20 +1,25 @@
 ; ModuleID = 'LFortran'
 source_filename = "LFortran"
 
-@0 = private unnamed_addr constant [2 x i8] c" \00", align 1
-@1 = private unnamed_addr constant [2 x i8] c"\0A\00", align 1
-@2 = private unnamed_addr constant [5 x i8] c"%d%s\00", align 1
+%string_descriptor = type <{ i8*, i64 }>
 
-define void @_lpython_main_program() !dbg !3 {
+@0 = private unnamed_addr constant [2 x i8] c"\0A\00", align 1
+@serialization_info = private unnamed_addr constant [3 x i8] c"I4\00", align 1
+@1 = private unnamed_addr constant [5 x i8] c"%s%s\00", align 1
+
+define void @__module___main_____main__global_stmts() !dbg !3 {
 .entry:
-  call void @main0(), !dbg !6
+  call void @__module___main___main0(), !dbg !6
   br label %return, !dbg !6
 
 return:                                           ; preds = %.entry
+  br label %FINALIZE_SYMTABLE___main__global_stmts, !dbg !6
+
+FINALIZE_SYMTABLE___main__global_stmts:           ; preds = %return
   ret void, !dbg !6
 }
 
-define void @main0() !dbg !7 {
+define void @__module___main___main0() !dbg !7 {
 .entry:
   %x = alloca i32, align 4, !dbg !8
   call void @llvm.dbg.declare(metadata i32* %x, metadata !9, metadata !DIExpression()), !dbg !11
@@ -25,27 +30,56 @@ define void @main0() !dbg !7 {
   %y2 = alloca double, align 8
   call void @llvm.dbg.declare(metadata double* %y2, metadata !18, metadata !DIExpression()), !dbg !20
   store i32 25, i32* %x, align 4, !dbg !21
-  %0 = load i32, i32* %x, align 4, !dbg !21
-  call void (i8*, ...) @_lfortran_printf(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @2, i32 0, i32 0), i32 %0, i8* getelementptr inbounds ([2 x i8], [2 x i8]* @1, i32 0, i32 0)), !dbg !21
+  %0 = alloca i64, align 8, !dbg !21
+  %1 = call i8* (i8*, i64, i8*, i64*, i32, i32, ...) @_lcompilers_string_format_fortran(i8* null, i64 0, i8* getelementptr inbounds ([3 x i8], [3 x i8]* @serialization_info, i32 0, i32 0), i64* %0, i32 0, i32 0, i32* %x), !dbg !21
+  %2 = load i64, i64* %0, align 4, !dbg !21
+  %stringFormat_desc = alloca %string_descriptor, align 8, !dbg !21
+  %3 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc, i32 0, i32 0, !dbg !21
+  store i8* %1, i8** %3, align 8, !dbg !21
+  %4 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc, i32 0, i32 1, !dbg !21
+  store i64 %2, i64* %4, align 4, !dbg !21
+  %5 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc, i32 0, i32 0, !dbg !21
+  %6 = load i8*, i8** %5, align 8, !dbg !21
+  %7 = getelementptr %string_descriptor, %string_descriptor* %stringFormat_desc, i32 0, i32 1, !dbg !21
+  %8 = load i64, i64* %7, align 4, !dbg !21
+  %9 = trunc i64 %8 to i32, !dbg !21
+  call void @_lfortran_printf(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @1, i32 0, i32 0), i8* %6, i32 %9, i8* getelementptr inbounds ([2 x i8], [2 x i8]* @0, i32 0, i32 0), i32 1), !dbg !21
+  call void @_lfortran_free(i8* %1), !dbg !21
   br label %return, !dbg !21
 
 return:                                           ; preds = %.entry
+  br label %FINALIZE_SYMTABLE_main0, !dbg !21
+
+FINALIZE_SYMTABLE_main0:                          ; preds = %return
   ret void, !dbg !21
 }
 
 ; Function Attrs: nounwind readnone speculatable willreturn
 declare void @llvm.dbg.declare(metadata, metadata, metadata) #0
 
-declare void @_lfortran_printf(i8*, ...)
+declare i8* @_lcompilers_string_format_fortran(i8*, i64, i8*, i64*, i32, i32, ...)
+
+declare void @_lfortran_printf(i8*, i8*, i32, i8*, i32)
+
+declare void @_lfortran_free(i8*)
 
 define i32 @main(i32 %0, i8** %1) !dbg !22 {
 .entry:
-  call void @_lpython_set_argv(i32 %0, i8** %1), !dbg !25
-  call void @_lpython_main_program(), !dbg !25
+  call void @_lpython_call_initial_functions(i32 %0, i8** %1), !dbg !25
+  call void @__module___main_____main__global_stmts(), !dbg !25
+  call void @_lpython_free_argv(), !dbg !25
+  br label %return, !dbg !25
+
+return:                                           ; preds = %.entry
+  br label %FINALIZE_SYMTABLE_main_program, !dbg !25
+
+FINALIZE_SYMTABLE_main_program:                   ; preds = %return
   ret i32 0, !dbg !25
 }
 
-declare void @_lpython_set_argv(i32, i8**)
+declare void @_lpython_call_initial_functions(i32, i8**)
+
+declare void @_lpython_free_argv()
 
 attributes #0 = { nounwind readnone speculatable willreturn }
 
@@ -54,7 +88,7 @@ attributes #0 = { nounwind readnone speculatable willreturn }
 !0 = distinct !DICompileUnit(language: DW_LANG_C, file: !1, producer: "LPython Compiler", isOptimized: false, runtimeVersion: 0, emissionKind: FullDebug, enums: !2)
 !1 = !DIFile(filename: "tests/expr_01.py", directory: ".")
 !2 = !{}
-!3 = distinct !DISubprogram(name: "_lpython_main_program", scope: !1, file: !1, line: 1, type: !4, flags: DIFlagPrototyped, spFlags: DISPFlagDefinition, unit: !0, retainedNodes: !2)
+!3 = distinct !DISubprogram(name: "__main__global_stmts", scope: !1, file: !1, line: 1, type: !4, flags: DIFlagPrototyped, spFlags: DISPFlagDefinition, unit: !0, retainedNodes: !2)
 !4 = !DISubroutineType(types: !5)
 !5 = !{null}
 !6 = !DILocation(line: 9, column: 1, scope: !3)
diff --git a/tests/reference/pass_inline_function_calls-func_inline_01-8b6a5da.json b/tests/reference/pass_inline_function_calls-func_inline_01-8b6a5da.json
deleted file mode 100644
index de91f54c8c..0000000000
--- a/tests/reference/pass_inline_function_calls-func_inline_01-8b6a5da.json
+++ /dev/null
@@ -1,13 +0,0 @@
-{
-    "basename": "pass_inline_function_calls-func_inline_01-8b6a5da",
-    "cmd": "lpython --pass=inline_function_calls --show-asr --no-color {infile} -o {outfile}",
-    "infile": "tests/../integration_tests/func_inline_01.py",
-    "infile_hash": "e9d50789dd554b57842e52e0818c0803943173620119bfb6f3787f83",
-    "outfile": null,
-    "outfile_hash": null,
-    "stdout": "pass_inline_function_calls-func_inline_01-8b6a5da.stdout",
-    "stdout_hash": "18be3b1c243ce08ad1cbb1d93f91137bbe28b5956fe08f45cfeceb55",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
-}
\ No newline at end of file
diff --git a/tests/reference/pass_inline_function_calls-func_inline_01-8b6a5da.stdout b/tests/reference/pass_inline_function_calls-func_inline_01-8b6a5da.stdout
deleted file mode 100644
index 89142f40a3..0000000000
--- a/tests/reference/pass_inline_function_calls-func_inline_01-8b6a5da.stdout
+++ /dev/null
@@ -1 +0,0 @@
-(TranslationUnit (SymbolTable 1 {_lpython_main_program: (Function (SymbolTable 5 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [main] [] [(SubroutineCall 1 main () [] ())] () Public .false. .false.), fib: (Function (SymbolTable 2 {_lpython_return_variable: (Variable 2 _lpython_return_variable [] ReturnVar () () Default (Integer 8 []) Source Public Required .false.), n: (Variable 2 n [] In () () Default (Integer 8 []) Source Public Required .false.)}) fib (FunctionType [(Integer 8 [])] (Integer 8 []) Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [fib fib] [(Var 2 n)] [(If (IntegerCompare (Var 2 n) Lt (Cast (IntegerConstant 2 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 2 (Integer 8 []))) (Logical 4 []) ()) [(= (Var 2 _lpython_return_variable) (Var 2 n) ()) (Return)] []) (= (Var 2 _lpython_return_variable) (IntegerBinOp (FunctionCall 1 fib () [((IntegerBinOp (Var 2 n) Sub (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 1 (Integer 8 []))) (Integer 8 []) ()))] (Integer 8 []) () ()) Add (FunctionCall 1 fib () [((IntegerBinOp (Var 2 n) Sub (Cast (IntegerConstant 2 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 2 (Integer 8 []))) (Integer 8 []) ()))] (Integer 8 []) () ()) (Integer 8 []) ()) ()) (Return)] (Var 2 _lpython_return_variable) Public .false. .false.), main: (Function (SymbolTable 3 {_lpython_return_variable_fib: (Variable 3 _lpython_return_variable_fib [] Local () () Default (Integer 8 []) Source Public Required .false.), ans: (Variable 3 ans [] Local () () Default (Integer 8 []) Source Public Required .false.), n_fib: (Variable 3 n_fib [] Local () () Default (Integer 8 []) Source Public Required .false.), x: (Variable 3 x [] Local () () Default (Integer 8 []) Source Public Required .false.), ~empty_block: (Block (SymbolTable 6 {}) ~empty_block [])}) main (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [fib fib] [] [(= (Var 3 x) (Cast (IntegerConstant 40 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 40 (Integer 8 []))) ()) (= (Var 3 n_fib) (Var 3 x) ()) (If (IntegerCompare (Var 3 n_fib) Lt (Cast (IntegerConstant 2 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 2 (Integer 8 []))) (Logical 4 []) ()) [(= (Var 3 _lpython_return_variable_fib) (Var 3 n_fib) ()) (GoTo 1 __1)] []) (= (Var 3 _lpython_return_variable_fib) (IntegerBinOp (FunctionCall 1 fib () [((IntegerBinOp (Var 3 n_fib) Sub (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 1 (Integer 8 []))) (Integer 8 []) ()))] (Integer 8 []) () ()) Add (FunctionCall 1 fib () [((IntegerBinOp (Var 3 n_fib) Sub (Cast (IntegerConstant 2 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 2 (Integer 8 []))) (Integer 8 []) ()))] (Integer 8 []) () ()) (Integer 8 []) ()) ()) (GoTo 1 __1) (BlockCall 1 3 ~empty_block) (= (Var 3 ans) (Var 3 _lpython_return_variable_fib) ()) (Print () [(Var 3 ans)] () ()) (Assert (IntegerCompare (Var 3 ans) Eq (Cast (IntegerConstant 102334155 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 102334155 (Integer 8 []))) (Logical 4 []) ()) ())] () Public .false. .false.), main_program: (Program (SymbolTable 4 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())])}) [])
diff --git a/tests/reference/pass_inline_function_calls-func_inline_01-fba3c47.json b/tests/reference/pass_inline_function_calls-func_inline_01-fba3c47.json
new file mode 100644
index 0000000000..9b14c3e2cd
--- /dev/null
+++ b/tests/reference/pass_inline_function_calls-func_inline_01-fba3c47.json
@@ -0,0 +1,13 @@
+{
+    "basename": "pass_inline_function_calls-func_inline_01-fba3c47",
+    "cmd": "lpython --fast --pass=inline_function_calls --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/../integration_tests/func_inline_01.py",
+    "infile_hash": "65a2e9a9bc7ad68a5e104549eed00cafd02b643a1d91ab2e175b2198",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": "pass_inline_function_calls-func_inline_01-fba3c47.stdout",
+    "stdout_hash": "bca9ee522d656688561cf62fa9e8d6ce7a9f226fa9743ffa32ad63a2",
+    "stderr": null,
+    "stderr_hash": null,
+    "returncode": 0
+}
\ No newline at end of file
diff --git a/tests/reference/pass_inline_function_calls-func_inline_01-fba3c47.stdout b/tests/reference/pass_inline_function_calls-func_inline_01-fba3c47.stdout
new file mode 100644
index 0000000000..d460762417
--- /dev/null
+++ b/tests/reference/pass_inline_function_calls-func_inline_01-fba3c47.stdout
@@ -0,0 +1,351 @@
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            __main__global_stmts:
+                                (Function
+                                    (SymbolTable
+                                        5
+                                        {
+                                            
+                                        })
+                                    __main__global_stmts
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [main]
+                                    []
+                                    [(SubroutineCall
+                                        2 main
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            fib:
+                                (Function
+                                    (SymbolTable
+                                        3
+                                        {
+                                            _lpython_return_variable:
+                                                (Variable
+                                                    3
+                                                    _lpython_return_variable
+                                                    []
+                                                    ReturnVar
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            n:
+                                                (Variable
+                                                    3
+                                                    n
+                                                    []
+                                                    In
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    fib
+                                    (FunctionType
+                                        [(Integer 8)]
+                                        (Integer 8)
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [fib]
+                                    [(Var 3 n)]
+                                    [(If
+                                        ()
+                                        (IntegerCompare
+                                            (Var 3 n)
+                                            Lt
+                                            (Cast
+                                                (IntegerConstant 2 (Integer 4) Decimal)
+                                                IntegerToInteger
+                                                (Integer 8)
+                                                (IntegerConstant 2 (Integer 8) Decimal)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        [(Assignment
+                                            (Var 3 _lpython_return_variable)
+                                            (Var 3 n)
+                                            ()
+                                            .false.
+                                            .false.
+                                        )
+                                        (Return)]
+                                        []
+                                    )
+                                    (Assignment
+                                        (Var 3 _lpython_return_variable)
+                                        (IntegerBinOp
+                                            (FunctionCall
+                                                2 fib
+                                                ()
+                                                [((IntegerBinOp
+                                                    (Var 3 n)
+                                                    Sub
+                                                    (Cast
+                                                        (IntegerConstant 1 (Integer 4) Decimal)
+                                                        IntegerToInteger
+                                                        (Integer 8)
+                                                        (IntegerConstant 1 (Integer 8) Decimal)
+                                                    )
+                                                    (Integer 8)
+                                                    ()
+                                                ))]
+                                                (Integer 8)
+                                                ()
+                                                ()
+                                            )
+                                            Add
+                                            (FunctionCall
+                                                2 fib
+                                                ()
+                                                [((IntegerBinOp
+                                                    (Var 3 n)
+                                                    Sub
+                                                    (Cast
+                                                        (IntegerConstant 2 (Integer 4) Decimal)
+                                                        IntegerToInteger
+                                                        (Integer 8)
+                                                        (IntegerConstant 2 (Integer 8) Decimal)
+                                                    )
+                                                    (Integer 8)
+                                                    ()
+                                                ))]
+                                                (Integer 8)
+                                                ()
+                                                ()
+                                            )
+                                            (Integer 8)
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Return)]
+                                    (Var 3 _lpython_return_variable)
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            main:
+                                (Function
+                                    (SymbolTable
+                                        4
+                                        {
+                                            ans:
+                                                (Variable
+                                                    4
+                                                    ans
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            x:
+                                                (Variable
+                                                    4
+                                                    x
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 8)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    main
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [fib]
+                                    []
+                                    [(Assignment
+                                        (Var 4 x)
+                                        (Cast
+                                            (IntegerConstant 40 (Integer 4) Decimal)
+                                            IntegerToInteger
+                                            (Integer 8)
+                                            (IntegerConstant 40 (Integer 8) Decimal)
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 ans)
+                                        (FunctionCall
+                                            2 fib
+                                            ()
+                                            [((Var 4 x))]
+                                            (Integer 8)
+                                            ()
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(Var 4 ans)]
+                                            FormatPythonFormat
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )
+                                    (Assert
+                                        (IntegerCompare
+                                            (Var 4 ans)
+                                            Eq
+                                            (Cast
+                                                (IntegerConstant 102334155 (Integer 4) Decimal)
+                                                IntegerToInteger
+                                                (Integer 8)
+                                                (IntegerConstant 102334155 (Integer 8) Decimal)
+                                            )
+                                            (Logical 4)
+                                            ()
+                                        )
+                                        ()
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    []
+                    .false.
+                    .false.
+                    .false.
+                ),
+            main_program:
+                (Program
+                    (SymbolTable
+                        6
+                        {
+                            __main__global_stmts:
+                                (ExternalSymbol
+                                    6
+                                    __main__global_stmts
+                                    2 __main__global_stmts
+                                    __main__
+                                    []
+                                    __main__global_stmts
+                                    Public
+                                )
+                        })
+                    main_program
+                    [__main__]
+                    [(SubroutineCall
+                        6 __main__global_stmts
+                        2 __main__global_stmts
+                        []
+                        ()
+                        .false.
+                    )]
+                )
+        })
+    []
+)
diff --git a/tests/reference/pass_loop_vectorise-vec_01-be9985e.json b/tests/reference/pass_loop_vectorise-vec_01-be9985e.json
index c9653c78ef..3dbd350322 100644
--- a/tests/reference/pass_loop_vectorise-vec_01-be9985e.json
+++ b/tests/reference/pass_loop_vectorise-vec_01-be9985e.json
@@ -2,11 +2,11 @@
     "basename": "pass_loop_vectorise-vec_01-be9985e",
     "cmd": "lpython --pass=loop_vectorise --show-asr --no-color {infile} -o {outfile}",
     "infile": "tests/../integration_tests/vec_01.py",
-    "infile_hash": "eb012561316a4c1f1359bf7b5a0b9aee40944ece197a5bafd387a19f",
+    "infile_hash": "f85ca108780c53c54878d119822d56fb834cf4b5121511cbaca2c2fe",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "pass_loop_vectorise-vec_01-be9985e.stdout",
-    "stdout_hash": "89201bd0a98fa8da20e6c4ad102d198283c168e142883c21abcf59ad",
+    "stdout_hash": "7656bfbbbd033c3906aab5713819859011489f9dd9847700fbba1546",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/pass_loop_vectorise-vec_01-be9985e.stdout b/tests/reference/pass_loop_vectorise-vec_01-be9985e.stdout
index a494f05c2b..25b97b735e 100644
--- a/tests/reference/pass_loop_vectorise-vec_01-be9985e.stdout
+++ b/tests/reference/pass_loop_vectorise-vec_01-be9985e.stdout
@@ -1 +1,636 @@
-(TranslationUnit (SymbolTable 1 {_lpython_main_program: (Function (SymbolTable 176 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [loop_vec] [] [(SubroutineCall 1 loop_vec () [] ())] () Public .false. .false.), loop_vec: (Function (SymbolTable 171 {a: (Variable 171 a [] Local () () Default (Real 8 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 9216 (Integer 4 [])))]) Source Public Required .false.), b: (Variable 171 b [] Local () () Default (Real 8 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 9216 (Integer 4 [])))]) Source Public Required .false.), i: (Variable 171 i [] Local () () Default (Integer 4 []) Source Public Required .false.), vector_copy_f64f64i32@IntrinsicOptimization: (Function (SymbolTable 177 {__1_k: (Variable 177 __1_k [] Local () () Default (Integer 4 []) Source Public Required .false.), arg0: (Variable 177 arg0 [] In () () Default (Real 8 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 9216 (Integer 4 [])))]) Source Public Required .false.), arg1: (Variable 177 arg1 [] In () () Default (Real 8 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 9216 (Integer 4 [])))]) Source Public Required .false.), arg2: (Variable 177 arg2 [] In () () Default (Integer 4 []) Source Public Required .false.), arg3: (Variable 177 arg3 [] In () () Default (Integer 4 []) Source Public Required .false.), arg4: (Variable 177 arg4 [] In () () Default (Integer 4 []) Source Public Required .false.), arg5: (Variable 177 arg5 [] In () () Default (Integer 4 []) Source Public Required .false.)}) vector_copy_f64f64i32@IntrinsicOptimization (FunctionType [(Real 8 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 9216 (Integer 4 [])))]) (Real 8 [((IntegerConstant 0 (Integer 4 [])) (IntegerConstant 9216 (Integer 4 [])))]) (Integer 4 []) (Integer 4 []) (Integer 4 []) (Integer 4 [])] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 177 arg0) (Var 177 arg1) (Var 177 arg2) (Var 177 arg3) (Var 177 arg4) (Var 177 arg5)] [(= (Var 177 __1_k) (IntegerBinOp (Var 177 arg2) Sub (Var 177 arg4) (Integer 4 []) ()) ()) (WhileLoop (IntegerCompare (IntegerBinOp (Var 177 __1_k) Add (Var 177 arg4) (Integer 4 []) ()) Lt (Var 177 arg3) (Logical 4 []) ()) [(= (Var 177 __1_k) (IntegerBinOp (Var 177 __1_k) Add (Var 177 arg4) (Integer 4 []) ()) ()) (= (ArrayItem (Var 177 arg0) [(() (Var 177 __1_k) ())] (Real 8 []) RowMajor ()) (ArrayItem (Var 177 arg1) [(() (Var 177 __1_k) ())] (Real 8 []) RowMajor ()) ())])] () Public .false. .false.)}) loop_vec (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [vector_copy_f64f64i32@IntrinsicOptimization] [] [(DoLoop ((Var 171 i) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (IntegerConstant 9216 (Integer 4 [])) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant 9215 (Integer 4 []))) (IntegerConstant 1 (Integer 4 []))) [(= (ArrayItem (Var 171 b) [(() (Var 171 i) ())] (Real 8 []) RowMajor ()) (RealConstant 5.000000 (Real 8 [])) ())]) (DoLoop ((Var 171 i) (IntegerConstant 0 (Integer 4 [])) (IntegerConstant 1151 (Integer 4 [])) (IntegerConstant 1 (Integer 4 []))) [(SubroutineCall 171 vector_copy_f64f64i32@IntrinsicOptimization () [((Var 171 a)) ((Var 171 b)) ((IntegerBinOp (Var 171 i) Mul (IntegerConstant 8 (Integer 4 [])) (Integer 4 []) ())) ((IntegerBinOp (IntegerBinOp (Var 171 i) Add (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) Mul (IntegerConstant 8 (Integer 4 [])) (Integer 4 []) ())) ((IntegerConstant 1 (Integer 4 []))) ((IntegerConstant 8 (Integer 4 [])))] ())]) (DoLoop ((Var 171 i) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (IntegerConstant 9216 (Integer 4 [])) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant 9215 (Integer 4 []))) (IntegerConstant 1 (Integer 4 []))) [(Assert (RealCompare (ArrayItem (Var 171 a) [(() (Var 171 i) ())] (Real 8 []) RowMajor ()) Eq (RealConstant 5.000000 (Real 8 [])) (Logical 4 []) ()) ())])] () Public .false. .false.), lpython_builtin: (IntrinsicModule lpython_builtin), main_program: (Program (SymbolTable 175 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())]), numpy: (Module (SymbolTable 3 {__lpython_overloaded_0__arccos: (Function (SymbolTable 41 {_lpython_return_variable: (Variable 41 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 41 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arccos (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dacos] [(Var 41 x)] [(= (Var 41 _lpython_return_variable) (FunctionCall 3 _lfortran_dacos () [((Var 41 x))] (Real 8 []) () ()) ()) (Return)] (Var 41 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__arccosh: (Function (SymbolTable 65 {_lpython_return_variable: (Variable 65 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 65 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arccosh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dacosh] [(Var 65 x)] [(= (Var 65 _lpython_return_variable) (FunctionCall 3 _lfortran_dacosh () [((Var 65 x))] (Real 8 []) () ()) ()) (Return)] (Var 65 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__arcsin: (Function (SymbolTable 37 {_lpython_return_variable: (Variable 37 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 37 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arcsin (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dasin] [(Var 37 x)] [(= (Var 37 _lpython_return_variable) (FunctionCall 3 _lfortran_dasin () [((Var 37 x))] (Real 8 []) () ()) ()) (Return)] (Var 37 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__arcsinh: (Function (SymbolTable 61 {_lpython_return_variable: (Variable 61 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 61 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arcsinh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dasinh] [(Var 61 x)] [(= (Var 61 _lpython_return_variable) (FunctionCall 3 _lfortran_dasinh () [((Var 61 x))] (Real 8 []) () ()) ()) (Return)] (Var 61 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__arctan: (Function (SymbolTable 53 {_lpython_return_variable: (Variable 53 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 53 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arctan (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_datan] [(Var 53 x)] [(= (Var 53 _lpython_return_variable) (FunctionCall 3 _lfortran_datan () [((Var 53 x))] (Real 8 []) () ()) ()) (Return)] (Var 53 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__arctanh: (Function (SymbolTable 69 {_lpython_return_variable: (Variable 69 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 69 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__arctanh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_datanh] [(Var 69 x)] [(= (Var 69 _lpython_return_variable) (FunctionCall 3 _lfortran_datanh () [((Var 69 x))] (Real 8 []) () ()) ()) (Return)] (Var 69 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__ceil: (Function (SymbolTable 76 {_lpython_return_variable: (Variable 76 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), result: (Variable 76 result [] Local () () Default (Integer 8 []) Source Public Required .false.), x: (Variable 76 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__ceil (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 76 x)] [(= (Var 76 result) (Cast (Var 76 x) RealToInteger (Integer 8 []) ()) ()) (If (LogicalBinOp (RealCompare (Var 76 x) LtE (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToReal (Real 8 []) ()) (Logical 4 []) ()) Or (RealCompare (Var 76 x) Eq (Cast (Var 76 result) IntegerToReal (Real 8 []) ()) (Logical 4 []) ()) (Logical 4 []) ()) [(= (Var 76 _lpython_return_variable) (Cast (Var 76 result) IntegerToReal (Real 8 []) ()) ()) (Return)] []) (= (Var 76 _lpython_return_variable) (Cast (IntegerBinOp (Var 76 result) Add (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 1 (Integer 8 []))) (Integer 8 []) ()) IntegerToReal (Real 8 []) ()) ()) (Return)] (Var 76 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__cos: (Function (SymbolTable 9 {_lpython_return_variable: (Variable 9 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 9 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__cos (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dcos] [(Var 9 x)] [(= (Var 9 _lpython_return_variable) (FunctionCall 3 _lfortran_dcos () [((Var 9 x))] (Real 8 []) () ()) ()) (Return)] (Var 9 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__cosh: (Function (SymbolTable 23 {_lpython_return_variable: (Variable 23 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 23 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__cosh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dcosh] [(Var 23 x)] [(= (Var 23 _lpython_return_variable) (FunctionCall 3 _lfortran_dcosh () [((Var 23 x))] (Real 8 []) () ()) ()) (Return)] (Var 23 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__degrees: (Function (SymbolTable 56 {_lpython_return_variable: (Variable 56 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 56 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__degrees (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 56 x)] [(= (Var 56 _lpython_return_variable) (RealBinOp (RealBinOp (Var 56 x) Mul (RealConstant 180.000000 (Real 8 [])) (Real 8 []) ()) Div (Var 3 pi_64) (Real 8 []) ()) ()) (Return)] (Var 56 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__exp: (Function (SymbolTable 49 {_lpython_return_variable: (Variable 49 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 49 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__exp (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dexp] [(Var 49 x)] [(= (Var 49 _lpython_return_variable) (FunctionCall 3 _lfortran_dexp () [((Var 49 x))] (Real 8 []) () ()) ()) (Return)] (Var 49 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__floor: (Function (SymbolTable 74 {_lpython_return_variable: (Variable 74 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), result: (Variable 74 result [] Local () () Default (Integer 8 []) Source Public Required .false.), x: (Variable 74 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__floor (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 74 x)] [(= (Var 74 result) (Cast (Var 74 x) RealToInteger (Integer 8 []) ()) ()) (If (LogicalBinOp (RealCompare (Var 74 x) GtE (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToReal (Real 8 []) ()) (Logical 4 []) ()) Or (RealCompare (Var 74 x) Eq (Cast (Var 74 result) IntegerToReal (Real 8 []) ()) (Logical 4 []) ()) (Logical 4 []) ()) [(= (Var 74 _lpython_return_variable) (Cast (Var 74 result) IntegerToReal (Real 8 []) ()) ()) (Return)] []) (= (Var 74 _lpython_return_variable) (Cast (IntegerBinOp (Var 74 result) Sub (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 1 (Integer 8 []))) (Integer 8 []) ()) IntegerToReal (Real 8 []) ()) ()) (Return)] (Var 74 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__log: (Function (SymbolTable 27 {_lpython_return_variable: (Variable 27 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 27 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__log (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dlog] [(Var 27 x)] [(= (Var 27 _lpython_return_variable) (FunctionCall 3 _lfortran_dlog () [((Var 27 x))] (Real 8 []) () ()) ()) (Return)] (Var 27 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__log10: (Function (SymbolTable 31 {_lpython_return_variable: (Variable 31 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 31 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__log10 (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dlog10] [(Var 31 x)] [(= (Var 31 _lpython_return_variable) (FunctionCall 3 _lfortran_dlog10 () [((Var 31 x))] (Real 8 []) () ()) ()) (Return)] (Var 31 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__log2: (Function (SymbolTable 34 {_lpython_return_variable: (Variable 34 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 34 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__log2 (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dlog _lfortran_dlog] [(Var 34 x)] [(= (Var 34 _lpython_return_variable) (RealBinOp (FunctionCall 3 _lfortran_dlog () [((Var 34 x))] (Real 8 []) () ()) Div (FunctionCall 3 _lfortran_dlog () [((RealConstant 2.000000 (Real 8 [])))] (Real 8 []) () ()) (Real 8 []) ()) ()) (Return)] (Var 34 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__mod: (Function (SymbolTable 72 {_lpython_return_variable: (Variable 72 _lpython_return_variable [] ReturnVar () () Default (Integer 8 []) Source Public Required .false.), _mod: (ExternalSymbol 72 _mod 79 _mod lpython_builtin [] _mod Private), _mod@__lpython_overloaded_2___mod: (ExternalSymbol 72 _mod@__lpython_overloaded_2___mod 79 __lpython_overloaded_2___mod lpython_builtin [] __lpython_overloaded_2___mod Public), x1: (Variable 72 x1 [] In () () Default (Integer 8 []) Source Public Required .false.), x2: (Variable 72 x2 [] In () () Default (Integer 8 []) Source Public Required .false.)}) __lpython_overloaded_0__mod (FunctionType [(Integer 8 []) (Integer 8 [])] (Integer 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_mod@__lpython_overloaded_2___mod] [(Var 72 x1) (Var 72 x2)] [(If (IntegerCompare (Var 72 x2) Eq (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToInteger (Integer 8 []) (IntegerConstant 0 (Integer 8 []))) (Logical 4 []) ()) [(= (Var 72 _lpython_return_variable) (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToInteger (Integer 8 []) ()) ()) (Return)] []) (= (Var 72 _lpython_return_variable) (FunctionCall 72 _mod@__lpython_overloaded_2___mod 72 _mod [((Var 72 x1)) ((Var 72 x2))] (Integer 8 []) () ()) ()) (Return)] (Var 72 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__radians: (Function (SymbolTable 58 {_lpython_return_variable: (Variable 58 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 58 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__radians (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 58 x)] [(= (Var 58 _lpython_return_variable) (RealBinOp (RealBinOp (Var 58 x) Mul (Var 3 pi_64) (Real 8 []) ()) Div (RealConstant 180.000000 (Real 8 [])) (Real 8 []) ()) ()) (Return)] (Var 58 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__sin: (Function (SymbolTable 5 {_lpython_return_variable: (Variable 5 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 5 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__sin (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dsin] [(Var 5 x)] [(= (Var 5 _lpython_return_variable) (FunctionCall 3 _lfortran_dsin () [((Var 5 x))] (Real 8 []) () ()) ()) (Return)] (Var 5 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__sinh: (Function (SymbolTable 19 {_lpython_return_variable: (Variable 19 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 19 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__sinh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dsinh] [(Var 19 x)] [(= (Var 19 _lpython_return_variable) (FunctionCall 3 _lfortran_dsinh () [((Var 19 x))] (Real 8 []) () ()) ()) (Return)] (Var 19 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__sqrt: (Function (SymbolTable 12 {_lpython_return_variable: (Variable 12 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 12 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__sqrt (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 12 x)] [(= (Var 12 _lpython_return_variable) (RealBinOp (Var 12 x) Pow (RealBinOp (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToReal (Real 8 []) ()) Div (Cast (IntegerConstant 2 (Integer 4 [])) IntegerToReal (Real 8 []) ()) (Real 8 []) ()) (Real 8 []) ()) ()) (Return)] (Var 12 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__tan: (Function (SymbolTable 15 {_lpython_return_variable: (Variable 15 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 15 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__tan (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dtan] [(Var 15 x)] [(= (Var 15 _lpython_return_variable) (FunctionCall 3 _lfortran_dtan () [((Var 15 x))] (Real 8 []) () ()) ()) (Return)] (Var 15 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_0__tanh: (Function (SymbolTable 45 {_lpython_return_variable: (Variable 45 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) Source Public Required .false.), x: (Variable 45 x [] In () () Default (Real 8 []) Source Public Required .false.)}) __lpython_overloaded_0__tanh (FunctionType [(Real 8 [])] (Real 8 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_dtanh] [(Var 45 x)] [(= (Var 45 _lpython_return_variable) (FunctionCall 3 _lfortran_dtanh () [((Var 45 x))] (Real 8 []) () ()) ()) (Return)] (Var 45 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arccos: (Function (SymbolTable 43 {_lpython_return_variable: (Variable 43 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 43 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arccos (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_sacos] [(Var 43 x)] [(= (Var 43 _lpython_return_variable) (FunctionCall 3 _lfortran_sacos () [((Var 43 x))] (Real 4 []) () ()) ()) (Return)] (Var 43 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arccosh: (Function (SymbolTable 67 {_lpython_return_variable: (Variable 67 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 67 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arccosh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_sacosh] [(Var 67 x)] [(= (Var 67 _lpython_return_variable) (FunctionCall 3 _lfortran_sacosh () [((Var 67 x))] (Real 4 []) () ()) ()) (Return)] (Var 67 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arcsin: (Function (SymbolTable 39 {_lpython_return_variable: (Variable 39 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 39 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arcsin (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_sasin] [(Var 39 x)] [(= (Var 39 _lpython_return_variable) (FunctionCall 3 _lfortran_sasin () [((Var 39 x))] (Real 4 []) () ()) ()) (Return)] (Var 39 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arcsinh: (Function (SymbolTable 63 {_lpython_return_variable: (Variable 63 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 63 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arcsinh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_sasinh] [(Var 63 x)] [(= (Var 63 _lpython_return_variable) (FunctionCall 3 _lfortran_sasinh () [((Var 63 x))] (Real 4 []) () ()) ()) (Return)] (Var 63 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arctan: (Function (SymbolTable 55 {_lpython_return_variable: (Variable 55 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 55 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arctan (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_satan] [(Var 55 x)] [(= (Var 55 _lpython_return_variable) (FunctionCall 3 _lfortran_satan () [((Var 55 x))] (Real 4 []) () ()) ()) (Return)] (Var 55 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__arctanh: (Function (SymbolTable 71 {_lpython_return_variable: (Variable 71 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 71 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__arctanh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_satanh] [(Var 71 x)] [(= (Var 71 _lpython_return_variable) (FunctionCall 3 _lfortran_satanh () [((Var 71 x))] (Real 4 []) () ()) ()) (Return)] (Var 71 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__ceil: (Function (SymbolTable 77 {_lpython_return_variable: (Variable 77 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), resultf: (Variable 77 resultf [x] Local (Cast (Cast (Var 77 x) RealToInteger (Integer 4 []) ()) IntegerToReal (Real 4 []) ()) () Default (Real 4 []) Source Public Required .false.), x: (Variable 77 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__ceil (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 77 x)] [(= (Var 77 resultf) (Cast (Cast (Var 77 x) RealToInteger (Integer 4 []) ()) IntegerToReal (Real 4 []) ()) ()) (If (LogicalBinOp (RealCompare (Var 77 x) LtE (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Logical 4 []) ()) Or (RealCompare (Var 77 x) Eq (Var 77 resultf) (Logical 4 []) ()) (Logical 4 []) ()) [(= (Var 77 _lpython_return_variable) (Var 77 resultf) ()) (Return)] []) (= (Var 77 _lpython_return_variable) (RealBinOp (Var 77 resultf) Add (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Real 4 []) ()) ()) (Return)] (Var 77 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__cos: (Function (SymbolTable 11 {_lpython_return_variable: (Variable 11 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 11 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__cos (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_scos] [(Var 11 x)] [(= (Var 11 _lpython_return_variable) (FunctionCall 3 _lfortran_scos () [((Var 11 x))] (Real 4 []) () ()) ()) (Return)] (Var 11 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__cosh: (Function (SymbolTable 25 {_lpython_return_variable: (Variable 25 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 25 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__cosh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_scosh] [(Var 25 x)] [(= (Var 25 _lpython_return_variable) (FunctionCall 3 _lfortran_scosh () [((Var 25 x))] (Real 4 []) () ()) ()) (Return)] (Var 25 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__degrees: (Function (SymbolTable 57 {_lpython_return_variable: (Variable 57 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 57 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__degrees (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 57 x)] [(= (Var 57 _lpython_return_variable) (RealBinOp (Var 57 x) Mul (RealBinOp (Cast (IntegerConstant 180 (Integer 4 [])) IntegerToReal (Real 4 []) ()) Div (Var 3 pi_32) (Real 4 []) ()) (Real 4 []) ()) ()) (Return)] (Var 57 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__exp: (Function (SymbolTable 51 {_lpython_return_variable: (Variable 51 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 51 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__exp (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_sexp] [(Var 51 x)] [(= (Var 51 _lpython_return_variable) (FunctionCall 3 _lfortran_sexp () [((Var 51 x))] (Real 4 []) () ()) ()) (Return)] (Var 51 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__floor: (Function (SymbolTable 75 {_lpython_return_variable: (Variable 75 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), resultf: (Variable 75 resultf [x] Local (Cast (Cast (Var 75 x) RealToInteger (Integer 4 []) ()) IntegerToReal (Real 4 []) ()) () Default (Real 4 []) Source Public Required .false.), x: (Variable 75 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__floor (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 75 x)] [(= (Var 75 resultf) (Cast (Cast (Var 75 x) RealToInteger (Integer 4 []) ()) IntegerToReal (Real 4 []) ()) ()) (If (LogicalBinOp (RealCompare (Var 75 x) GtE (Cast (IntegerConstant 0 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Logical 4 []) ()) Or (RealCompare (Var 75 x) Eq (Var 75 resultf) (Logical 4 []) ()) (Logical 4 []) ()) [(= (Var 75 _lpython_return_variable) (Var 75 resultf) ()) (Return)] []) (= (Var 75 _lpython_return_variable) (RealBinOp (Var 75 resultf) Sub (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Real 4 []) ()) ()) (Return)] (Var 75 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__log: (Function (SymbolTable 29 {_lpython_return_variable: (Variable 29 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 29 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__log (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_slog] [(Var 29 x)] [(= (Var 29 _lpython_return_variable) (FunctionCall 3 _lfortran_slog () [((Var 29 x))] (Real 4 []) () ()) ()) (Return)] (Var 29 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__log10: (Function (SymbolTable 33 {_lpython_return_variable: (Variable 33 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 33 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__log10 (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_slog10] [(Var 33 x)] [(= (Var 33 _lpython_return_variable) (FunctionCall 3 _lfortran_slog10 () [((Var 33 x))] (Real 4 []) () ()) ()) (Return)] (Var 33 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__log2: (Function (SymbolTable 35 {_lpython_return_variable: (Variable 35 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 35 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__log2 (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_slog _lfortran_slog] [(Var 35 x)] [(= (Var 35 _lpython_return_variable) (RealBinOp (FunctionCall 3 _lfortran_slog () [((Var 35 x))] (Real 4 []) () ()) Div (FunctionCall 3 _lfortran_slog () [((Cast (RealConstant 2.000000 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 2.000000 (Real 4 []))))] (Real 4 []) () ()) (Real 4 []) ()) ()) (Return)] (Var 35 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__mod: (Function (SymbolTable 73 {_lpython_return_variable: (Variable 73 _lpython_return_variable [] ReturnVar () () Default (Integer 4 []) Source Public Required .false.), _mod: (ExternalSymbol 73 _mod 79 _mod lpython_builtin [] _mod Private), _mod@__lpython_overloaded_0___mod: (ExternalSymbol 73 _mod@__lpython_overloaded_0___mod 79 __lpython_overloaded_0___mod lpython_builtin [] __lpython_overloaded_0___mod Public), x1: (Variable 73 x1 [] In () () Default (Integer 4 []) Source Public Required .false.), x2: (Variable 73 x2 [] In () () Default (Integer 4 []) Source Public Required .false.)}) __lpython_overloaded_1__mod (FunctionType [(Integer 4 []) (Integer 4 [])] (Integer 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_mod@__lpython_overloaded_0___mod] [(Var 73 x1) (Var 73 x2)] [(If (IntegerCompare (Var 73 x2) Eq (IntegerConstant 0 (Integer 4 [])) (Logical 4 []) ()) [(= (Var 73 _lpython_return_variable) (IntegerConstant 0 (Integer 4 [])) ()) (Return)] []) (= (Var 73 _lpython_return_variable) (FunctionCall 73 _mod@__lpython_overloaded_0___mod 73 _mod [((Var 73 x1)) ((Var 73 x2))] (Integer 4 []) () ()) ()) (Return)] (Var 73 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__radians: (Function (SymbolTable 59 {_lpython_return_variable: (Variable 59 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 59 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__radians (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 59 x)] [(= (Var 59 _lpython_return_variable) (RealBinOp (Var 59 x) Mul (RealBinOp (Var 3 pi_32) Div (Cast (IntegerConstant 180 (Integer 4 [])) IntegerToReal (Real 4 []) ()) (Real 4 []) ()) (Real 4 []) ()) ()) (Return)] (Var 59 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__sin: (Function (SymbolTable 7 {_lpython_return_variable: (Variable 7 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 7 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__sin (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_ssin] [(Var 7 x)] [(= (Var 7 _lpython_return_variable) (FunctionCall 3 _lfortran_ssin () [((Var 7 x))] (Real 4 []) () ()) ()) (Return)] (Var 7 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__sinh: (Function (SymbolTable 21 {_lpython_return_variable: (Variable 21 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 21 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__sinh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_ssinh] [(Var 21 x)] [(= (Var 21 _lpython_return_variable) (FunctionCall 3 _lfortran_ssinh () [((Var 21 x))] (Real 4 []) () ()) ()) (Return)] (Var 21 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__sqrt: (Function (SymbolTable 13 {_lpython_return_variable: (Variable 13 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 13 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__sqrt (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [] [(Var 13 x)] [(= (Var 13 _lpython_return_variable) (RealBinOp (Var 13 x) Pow (Cast (RealBinOp (Cast (IntegerConstant 1 (Integer 4 [])) IntegerToReal (Real 8 []) ()) Div (Cast (IntegerConstant 2 (Integer 4 [])) IntegerToReal (Real 8 []) ()) (Real 8 []) ()) RealToReal (Real 4 []) ()) (Real 4 []) ()) ()) (Return)] (Var 13 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__tan: (Function (SymbolTable 17 {_lpython_return_variable: (Variable 17 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 17 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__tan (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_stan] [(Var 17 x)] [(= (Var 17 _lpython_return_variable) (FunctionCall 3 _lfortran_stan () [((Var 17 x))] (Real 4 []) () ()) ()) (Return)] (Var 17 _lpython_return_variable) Public .false. .false.), __lpython_overloaded_1__tanh: (Function (SymbolTable 47 {_lpython_return_variable: (Variable 47 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) Source Public Required .false.), x: (Variable 47 x [] In () () Default (Real 4 []) Source Public Required .false.)}) __lpython_overloaded_1__tanh (FunctionType [(Real 4 [])] (Real 4 []) Source Implementation () .true. .false. .false. .false. .false. [] [] .false.) [_lfortran_stanh] [(Var 47 x)] [(= (Var 47 _lpython_return_variable) (FunctionCall 3 _lfortran_stanh () [((Var 47 x))] (Real 4 []) () ()) ()) (Return)] (Var 47 _lpython_return_variable) Public .false. .false.), _lfortran_dacos: (Function (SymbolTable 40 {_lpython_return_variable: (Variable 40 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 40 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dacos (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 40 x)] [] (Var 40 _lpython_return_variable) Public .false. .false.), _lfortran_dacosh: (Function (SymbolTable 64 {_lpython_return_variable: (Variable 64 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 64 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dacosh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 64 x)] [] (Var 64 _lpython_return_variable) Public .false. .false.), _lfortran_dasin: (Function (SymbolTable 36 {_lpython_return_variable: (Variable 36 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 36 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dasin (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 36 x)] [] (Var 36 _lpython_return_variable) Public .false. .false.), _lfortran_dasinh: (Function (SymbolTable 60 {_lpython_return_variable: (Variable 60 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 60 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dasinh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 60 x)] [] (Var 60 _lpython_return_variable) Public .false. .false.), _lfortran_datan: (Function (SymbolTable 52 {_lpython_return_variable: (Variable 52 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 52 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_datan (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 52 x)] [] (Var 52 _lpython_return_variable) Public .false. .false.), _lfortran_datanh: (Function (SymbolTable 68 {_lpython_return_variable: (Variable 68 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 68 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_datanh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 68 x)] [] (Var 68 _lpython_return_variable) Public .false. .false.), _lfortran_dcos: (Function (SymbolTable 8 {_lpython_return_variable: (Variable 8 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 8 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dcos (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 8 x)] [] (Var 8 _lpython_return_variable) Public .false. .false.), _lfortran_dcosh: (Function (SymbolTable 22 {_lpython_return_variable: (Variable 22 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 22 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dcosh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 22 x)] [] (Var 22 _lpython_return_variable) Public .false. .false.), _lfortran_dexp: (Function (SymbolTable 48 {_lpython_return_variable: (Variable 48 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 48 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dexp (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 48 x)] [] (Var 48 _lpython_return_variable) Public .false. .false.), _lfortran_dlog: (Function (SymbolTable 26 {_lpython_return_variable: (Variable 26 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 26 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dlog (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 26 x)] [] (Var 26 _lpython_return_variable) Public .false. .false.), _lfortran_dlog10: (Function (SymbolTable 30 {_lpython_return_variable: (Variable 30 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 30 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dlog10 (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 30 x)] [] (Var 30 _lpython_return_variable) Public .false. .false.), _lfortran_dsin: (Function (SymbolTable 4 {_lpython_return_variable: (Variable 4 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 4 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dsin (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 4 x)] [] (Var 4 _lpython_return_variable) Public .false. .false.), _lfortran_dsinh: (Function (SymbolTable 18 {_lpython_return_variable: (Variable 18 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 18 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dsinh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 18 x)] [] (Var 18 _lpython_return_variable) Public .false. .false.), _lfortran_dtan: (Function (SymbolTable 14 {_lpython_return_variable: (Variable 14 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 14 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dtan (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 14 x)] [] (Var 14 _lpython_return_variable) Public .false. .false.), _lfortran_dtanh: (Function (SymbolTable 44 {_lpython_return_variable: (Variable 44 _lpython_return_variable [] ReturnVar () () Default (Real 8 []) BindC Public Required .false.), x: (Variable 44 x [] In () () Default (Real 8 []) BindC Public Required .true.)}) _lfortran_dtanh (FunctionType [(Real 8 [])] (Real 8 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 44 x)] [] (Var 44 _lpython_return_variable) Public .false. .false.), _lfortran_sacos: (Function (SymbolTable 42 {_lpython_return_variable: (Variable 42 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 42 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_sacos (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 42 x)] [] (Var 42 _lpython_return_variable) Public .false. .false.), _lfortran_sacosh: (Function (SymbolTable 66 {_lpython_return_variable: (Variable 66 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 66 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_sacosh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 66 x)] [] (Var 66 _lpython_return_variable) Public .false. .false.), _lfortran_sasin: (Function (SymbolTable 38 {_lpython_return_variable: (Variable 38 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 38 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_sasin (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 38 x)] [] (Var 38 _lpython_return_variable) Public .false. .false.), _lfortran_sasinh: (Function (SymbolTable 62 {_lpython_return_variable: (Variable 62 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 62 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_sasinh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 62 x)] [] (Var 62 _lpython_return_variable) Public .false. .false.), _lfortran_satan: (Function (SymbolTable 54 {_lpython_return_variable: (Variable 54 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 54 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_satan (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 54 x)] [] (Var 54 _lpython_return_variable) Public .false. .false.), _lfortran_satanh: (Function (SymbolTable 70 {_lpython_return_variable: (Variable 70 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 70 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_satanh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 70 x)] [] (Var 70 _lpython_return_variable) Public .false. .false.), _lfortran_scos: (Function (SymbolTable 10 {_lpython_return_variable: (Variable 10 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 10 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_scos (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 10 x)] [] (Var 10 _lpython_return_variable) Public .false. .false.), _lfortran_scosh: (Function (SymbolTable 24 {_lpython_return_variable: (Variable 24 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 24 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_scosh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 24 x)] [] (Var 24 _lpython_return_variable) Public .false. .false.), _lfortran_sexp: (Function (SymbolTable 50 {_lpython_return_variable: (Variable 50 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 50 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_sexp (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 50 x)] [] (Var 50 _lpython_return_variable) Public .false. .false.), _lfortran_slog: (Function (SymbolTable 28 {_lpython_return_variable: (Variable 28 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 28 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_slog (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 28 x)] [] (Var 28 _lpython_return_variable) Public .false. .false.), _lfortran_slog10: (Function (SymbolTable 32 {_lpython_return_variable: (Variable 32 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 32 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_slog10 (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 32 x)] [] (Var 32 _lpython_return_variable) Public .false. .false.), _lfortran_ssin: (Function (SymbolTable 6 {_lpython_return_variable: (Variable 6 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 6 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_ssin (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 6 x)] [] (Var 6 _lpython_return_variable) Public .false. .false.), _lfortran_ssinh: (Function (SymbolTable 20 {_lpython_return_variable: (Variable 20 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 20 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_ssinh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 20 x)] [] (Var 20 _lpython_return_variable) Public .false. .false.), _lfortran_stan: (Function (SymbolTable 16 {_lpython_return_variable: (Variable 16 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 16 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_stan (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 16 x)] [] (Var 16 _lpython_return_variable) Public .false. .false.), _lfortran_stanh: (Function (SymbolTable 46 {_lpython_return_variable: (Variable 46 _lpython_return_variable [] ReturnVar () () Default (Real 4 []) BindC Public Required .false.), x: (Variable 46 x [] In () () Default (Real 4 []) BindC Public Required .true.)}) _lfortran_stanh (FunctionType [(Real 4 [])] (Real 4 []) BindC Interface () .false. .false. .false. .false. .false. [] [] .false.) [] [(Var 46 x)] [] (Var 46 _lpython_return_variable) Public .false. .false.), arccos: (GenericProcedure 3 arccos [3 __lpython_overloaded_0__arccos 3 __lpython_overloaded_1__arccos] Public), arccosh: (GenericProcedure 3 arccosh [3 __lpython_overloaded_0__arccosh 3 __lpython_overloaded_1__arccosh] Public), arcsin: (GenericProcedure 3 arcsin [3 __lpython_overloaded_0__arcsin 3 __lpython_overloaded_1__arcsin] Public), arcsinh: (GenericProcedure 3 arcsinh [3 __lpython_overloaded_0__arcsinh 3 __lpython_overloaded_1__arcsinh] Public), arctan: (GenericProcedure 3 arctan [3 __lpython_overloaded_0__arctan 3 __lpython_overloaded_1__arctan] Public), arctanh: (GenericProcedure 3 arctanh [3 __lpython_overloaded_0__arctanh 3 __lpython_overloaded_1__arctanh] Public), ceil: (GenericProcedure 3 ceil [3 __lpython_overloaded_0__ceil 3 __lpython_overloaded_1__ceil] Public), cos: (GenericProcedure 3 cos [3 __lpython_overloaded_0__cos 3 __lpython_overloaded_1__cos] Public), cosh: (GenericProcedure 3 cosh [3 __lpython_overloaded_0__cosh 3 __lpython_overloaded_1__cosh] Public), degrees: (GenericProcedure 3 degrees [3 __lpython_overloaded_0__degrees 3 __lpython_overloaded_1__degrees] Public), exp: (GenericProcedure 3 exp [3 __lpython_overloaded_0__exp 3 __lpython_overloaded_1__exp] Public), floor: (GenericProcedure 3 floor [3 __lpython_overloaded_0__floor 3 __lpython_overloaded_1__floor] Public), log: (GenericProcedure 3 log [3 __lpython_overloaded_0__log 3 __lpython_overloaded_1__log] Public), log10: (GenericProcedure 3 log10 [3 __lpython_overloaded_0__log10 3 __lpython_overloaded_1__log10] Public), log2: (GenericProcedure 3 log2 [3 __lpython_overloaded_0__log2 3 __lpython_overloaded_1__log2] Public), mod: (GenericProcedure 3 mod [3 __lpython_overloaded_0__mod 3 __lpython_overloaded_1__mod] Public), pi_32: (Variable 3 pi_32 [] Local (Cast (RealConstant 3.141593 (Real 8 [])) RealToReal (Real 4 []) (RealConstant 3.141593 (Real 4 []))) () Default (Real 4 []) Source Public Required .false.), pi_64: (Variable 3 pi_64 [] Local (RealConstant 3.141593 (Real 8 [])) () Default (Real 8 []) Source Public Required .false.), radians: (GenericProcedure 3 radians [3 __lpython_overloaded_0__radians 3 __lpython_overloaded_1__radians] Public), sin: (GenericProcedure 3 sin [3 __lpython_overloaded_0__sin 3 __lpython_overloaded_1__sin] Public), sinh: (GenericProcedure 3 sinh [3 __lpython_overloaded_0__sinh 3 __lpython_overloaded_1__sinh] Public), sqrt: (GenericProcedure 3 sqrt [3 __lpython_overloaded_0__sqrt 3 __lpython_overloaded_1__sqrt] Public), tan: (GenericProcedure 3 tan [3 __lpython_overloaded_0__tan 3 __lpython_overloaded_1__tan] Public), tanh: (GenericProcedure 3 tanh [3 __lpython_overloaded_0__tanh 3 __lpython_overloaded_1__tanh] Public)}) numpy [lpython_builtin lpython_builtin] .false. .false.)}) [])
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            __main__global_stmts:
+                                (Function
+                                    (SymbolTable
+                                        229
+                                        {
+                                            
+                                        })
+                                    __main__global_stmts
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [loop_vec]
+                                    []
+                                    [(SubroutineCall
+                                        2 loop_vec
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            loop_vec:
+                                (Function
+                                    (SymbolTable
+                                        225
+                                        {
+                                            a:
+                                                (Variable
+                                                    225
+                                                    a
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Real 8)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 9216 (Integer 4) Decimal))]
+                                                        FixedSizeArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            b:
+                                                (Variable
+                                                    225
+                                                    b
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Array
+                                                        (Real 8)
+                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerConstant 9216 (Integer 4) Decimal))]
+                                                        FixedSizeArray
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            i:
+                                                (Variable
+                                                    225
+                                                    i
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            vector_copy_f64[9216]f64[9216]i32@IntrinsicOptimization:
+                                                (Function
+                                                    (SymbolTable
+                                                        231
+                                                        {
+                                                            __1_k:
+                                                                (Variable
+                                                                    231
+                                                                    __1_k
+                                                                    []
+                                                                    Local
+                                                                    ()
+                                                                    ()
+                                                                    Default
+                                                                    (Integer 4)
+                                                                    ()
+                                                                    Source
+                                                                    Public
+                                                                    Required
+                                                                    .false.
+                                                                    .false.
+                                                                    .false.
+                                                                    ()
+                                                                    .false.
+                                                                    .false.
+                                                                ),
+                                                            arg0:
+                                                                (Variable
+                                                                    231
+                                                                    arg0
+                                                                    []
+                                                                    In
+                                                                    ()
+                                                                    ()
+                                                                    Default
+                                                                    (Array
+                                                                        (Real 8)
+                                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                                        (IntegerConstant 9216 (Integer 4) Decimal))]
+                                                                        FixedSizeArray
+                                                                    )
+                                                                    ()
+                                                                    Source
+                                                                    Public
+                                                                    Required
+                                                                    .false.
+                                                                    .false.
+                                                                    .false.
+                                                                    ()
+                                                                    .false.
+                                                                    .false.
+                                                                ),
+                                                            arg1:
+                                                                (Variable
+                                                                    231
+                                                                    arg1
+                                                                    []
+                                                                    In
+                                                                    ()
+                                                                    ()
+                                                                    Default
+                                                                    (Array
+                                                                        (Real 8)
+                                                                        [((IntegerConstant 0 (Integer 4) Decimal)
+                                                                        (IntegerConstant 9216 (Integer 4) Decimal))]
+                                                                        FixedSizeArray
+                                                                    )
+                                                                    ()
+                                                                    Source
+                                                                    Public
+                                                                    Required
+                                                                    .false.
+                                                                    .false.
+                                                                    .false.
+                                                                    ()
+                                                                    .false.
+                                                                    .false.
+                                                                ),
+                                                            arg2:
+                                                                (Variable
+                                                                    231
+                                                                    arg2
+                                                                    []
+                                                                    In
+                                                                    ()
+                                                                    ()
+                                                                    Default
+                                                                    (Integer 4)
+                                                                    ()
+                                                                    Source
+                                                                    Public
+                                                                    Required
+                                                                    .false.
+                                                                    .false.
+                                                                    .false.
+                                                                    ()
+                                                                    .false.
+                                                                    .false.
+                                                                ),
+                                                            arg3:
+                                                                (Variable
+                                                                    231
+                                                                    arg3
+                                                                    []
+                                                                    In
+                                                                    ()
+                                                                    ()
+                                                                    Default
+                                                                    (Integer 4)
+                                                                    ()
+                                                                    Source
+                                                                    Public
+                                                                    Required
+                                                                    .false.
+                                                                    .false.
+                                                                    .false.
+                                                                    ()
+                                                                    .false.
+                                                                    .false.
+                                                                ),
+                                                            arg4:
+                                                                (Variable
+                                                                    231
+                                                                    arg4
+                                                                    []
+                                                                    In
+                                                                    ()
+                                                                    ()
+                                                                    Default
+                                                                    (Integer 4)
+                                                                    ()
+                                                                    Source
+                                                                    Public
+                                                                    Required
+                                                                    .false.
+                                                                    .false.
+                                                                    .false.
+                                                                    ()
+                                                                    .false.
+                                                                    .false.
+                                                                ),
+                                                            arg5:
+                                                                (Variable
+                                                                    231
+                                                                    arg5
+                                                                    []
+                                                                    In
+                                                                    ()
+                                                                    ()
+                                                                    Default
+                                                                    (Integer 4)
+                                                                    ()
+                                                                    Source
+                                                                    Public
+                                                                    Required
+                                                                    .false.
+                                                                    .false.
+                                                                    .false.
+                                                                    ()
+                                                                    .false.
+                                                                    .false.
+                                                                )
+                                                        })
+                                                    vector_copy_f64[9216]f64[9216]i32@IntrinsicOptimization
+                                                    (FunctionType
+                                                        [(Array
+                                                            (Real 8)
+                                                            [((IntegerConstant 0 (Integer 4) Decimal)
+                                                            (IntegerConstant 9216 (Integer 4) Decimal))]
+                                                            FixedSizeArray
+                                                        )
+                                                        (Array
+                                                            (Real 8)
+                                                            [((IntegerConstant 0 (Integer 4) Decimal)
+                                                            (IntegerConstant 9216 (Integer 4) Decimal))]
+                                                            FixedSizeArray
+                                                        )
+                                                        (Integer 4)
+                                                        (Integer 4)
+                                                        (Integer 4)
+                                                        (Integer 4)]
+                                                        ()
+                                                        Source
+                                                        Implementation
+                                                        ()
+                                                        .false.
+                                                        .false.
+                                                        .false.
+                                                        .false.
+                                                        .false.
+                                                        []
+                                                        .false.
+                                                    )
+                                                    []
+                                                    [(Var 231 arg0)
+                                                    (Var 231 arg1)
+                                                    (Var 231 arg2)
+                                                    (Var 231 arg3)
+                                                    (Var 231 arg4)
+                                                    (Var 231 arg5)]
+                                                    [(Assignment
+                                                        (Var 231 __1_k)
+                                                        (IntegerBinOp
+                                                            (Var 231 arg2)
+                                                            Sub
+                                                            (Var 231 arg4)
+                                                            (Integer 4)
+                                                            ()
+                                                        )
+                                                        ()
+                                                        .false.
+                                                        .false.
+                                                    )
+                                                    (WhileLoop
+                                                        ()
+                                                        (IntegerCompare
+                                                            (IntegerBinOp
+                                                                (Var 231 __1_k)
+                                                                Add
+                                                                (Var 231 arg4)
+                                                                (Integer 4)
+                                                                ()
+                                                            )
+                                                            Lt
+                                                            (Var 231 arg3)
+                                                            (Logical 4)
+                                                            ()
+                                                        )
+                                                        [(Assignment
+                                                            (Var 231 __1_k)
+                                                            (IntegerBinOp
+                                                                (Var 231 __1_k)
+                                                                Add
+                                                                (Var 231 arg4)
+                                                                (Integer 4)
+                                                                ()
+                                                            )
+                                                            ()
+                                                            .false.
+                                                            .false.
+                                                        )
+                                                        (Assignment
+                                                            (ArrayItem
+                                                                (Var 231 arg0)
+                                                                [(()
+                                                                (Var 231 __1_k)
+                                                                ())]
+                                                                (Real 8)
+                                                                RowMajor
+                                                                ()
+                                                            )
+                                                            (ArrayItem
+                                                                (Var 231 arg1)
+                                                                [(()
+                                                                (Var 231 __1_k)
+                                                                ())]
+                                                                (Real 8)
+                                                                RowMajor
+                                                                ()
+                                                            )
+                                                            ()
+                                                            .false.
+                                                            .false.
+                                                        )]
+                                                        []
+                                                    )]
+                                                    ()
+                                                    Public
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                )
+                                        })
+                                    loop_vec
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 225 a)
+                                        (ArrayBroadcast
+                                            (ArrayItem
+                                                (Var 225 a)
+                                                [(()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())]
+                                                (Real 8)
+                                                RowMajor
+                                                ()
+                                            )
+                                            (ArrayConstant
+                                                4
+                                                [9216]
+                                                (Array
+                                                    (Integer 4)
+                                                    [((IntegerConstant 1 (Integer 4) Decimal)
+                                                    (IntegerConstant 1 (Integer 4) Decimal))]
+                                                    FixedSizeArray
+                                                )
+                                                ColMajor
+                                            )
+                                            (Array
+                                                (Real 8)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 9216 (Integer 4) Decimal))]
+                                                FixedSizeArray
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 225 b)
+                                        (ArrayBroadcast
+                                            (ArrayItem
+                                                (Var 225 b)
+                                                [(()
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                ())]
+                                                (Real 8)
+                                                RowMajor
+                                                ()
+                                            )
+                                            (ArrayConstant
+                                                4
+                                                [9216]
+                                                (Array
+                                                    (Integer 4)
+                                                    [((IntegerConstant 1 (Integer 4) Decimal)
+                                                    (IntegerConstant 1 (Integer 4) Decimal))]
+                                                    FixedSizeArray
+                                                )
+                                                ColMajor
+                                            )
+                                            (Array
+                                                (Real 8)
+                                                [((IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 9216 (Integer 4) Decimal))]
+                                                FixedSizeArray
+                                            )
+                                            ()
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 225 i)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (IntegerConstant 9216 (Integer 4) Decimal)
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            (IntegerConstant 9215 (Integer 4) Decimal)
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(Assignment
+                                            (ArrayItem
+                                                (Var 225 b)
+                                                [(()
+                                                (Var 225 i)
+                                                ())]
+                                                (Real 8)
+                                                RowMajor
+                                                ()
+                                            )
+                                            (RealConstant
+                                                5.000000
+                                                (Real 8)
+                                            )
+                                            ()
+                                            .false.
+                                            .false.
+                                        )]
+                                        []
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 225 i)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerConstant 1151 (Integer 4) Decimal)
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(SubroutineCall
+                                            225 vector_copy_f64[9216]f64[9216]i32@IntrinsicOptimization
+                                            ()
+                                            [((Var 225 a))
+                                            ((Var 225 b))
+                                            ((IntegerBinOp
+                                                (Var 225 i)
+                                                Mul
+                                                (IntegerConstant 8 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                ()
+                                            ))
+                                            ((IntegerBinOp
+                                                (IntegerBinOp
+                                                    (Var 225 i)
+                                                    Add
+                                                    (IntegerConstant 1 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                Mul
+                                                (IntegerConstant 8 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                ()
+                                            ))
+                                            ((IntegerConstant 1 (Integer 4) Decimal))
+                                            ((IntegerConstant 8 (Integer 4) Decimal))]
+                                            ()
+                                            .false.
+                                        )]
+                                        []
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 225 i)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (IntegerConstant 9216 (Integer 4) Decimal)
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            (IntegerConstant 9215 (Integer 4) Decimal)
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(Assert
+                                            (RealCompare
+                                                (ArrayItem
+                                                    (Var 225 a)
+                                                    [(()
+                                                    (Var 225 i)
+                                                    ())]
+                                                    (Real 8)
+                                                    RowMajor
+                                                    ()
+                                                )
+                                                Eq
+                                                (RealConstant
+                                                    5.000000
+                                                    (Real 8)
+                                                )
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            ()
+                                        )]
+                                        []
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    [numpy]
+                    .false.
+                    .false.
+                    .false.
+                ),
+            lpython_builtin:
+                (IntrinsicModule lpython_builtin),
+            main_program:
+                (Program
+                    (SymbolTable
+                        230
+                        {
+                            __main__global_stmts:
+                                (ExternalSymbol
+                                    230
+                                    __main__global_stmts
+                                    2 __main__global_stmts
+                                    __main__
+                                    []
+                                    __main__global_stmts
+                                    Public
+                                )
+                        })
+                    main_program
+                    [__main__]
+                    [(SubroutineCall
+                        230 __main__global_stmts
+                        2 __main__global_stmts
+                        []
+                        ()
+                        .false.
+                    )]
+                ),
+            numpy:
+                (Module numpy)
+        })
+    []
+)
diff --git a/tests/reference/pass_print_list-print_02-d2853f6.json b/tests/reference/pass_print_list-print_02-d2853f6.json
deleted file mode 100644
index e96a4e31c3..0000000000
--- a/tests/reference/pass_print_list-print_02-d2853f6.json
+++ /dev/null
@@ -1,13 +0,0 @@
-{
-    "basename": "pass_print_list-print_02-d2853f6",
-    "cmd": "lpython --pass=print_list --show-asr --no-color {infile} -o {outfile}",
-    "infile": "tests/../integration_tests/print_02.py",
-    "infile_hash": "c2a1fef856c4162154056d5aaea2acdf325f21bf8e43703f71d71fac",
-    "outfile": null,
-    "outfile_hash": null,
-    "stdout": "pass_print_list-print_02-d2853f6.stdout",
-    "stdout_hash": "ec6264230ae2d462976ddb1e59b7d1dd14d5d8ee649e51c9255190f4",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
-}
\ No newline at end of file
diff --git a/tests/reference/pass_print_list-print_02-d2853f6.stdout b/tests/reference/pass_print_list-print_02-d2853f6.stdout
deleted file mode 100644
index 1a011cdf8c..0000000000
--- a/tests/reference/pass_print_list-print_02-d2853f6.stdout
+++ /dev/null
@@ -1 +0,0 @@
-(TranslationUnit (SymbolTable 1 {_lpython_main_program: (Function (SymbolTable 8 {}) _lpython_main_program (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [check] [] [(SubroutineCall 1 check () [] ())] () Public .false. .false.), check: (Function (SymbolTable 6 {}) check (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [f test_nested_lists test_nested_lists2 test_print_list_tuple] [] [(SubroutineCall 1 f () [] ()) (SubroutineCall 1 test_nested_lists () [] ()) (SubroutineCall 1 test_nested_lists2 () [] ()) (SubroutineCall 1 test_print_list_tuple () [] ())] () Public .false. .false.), f: (Function (SymbolTable 2 {__list_iterator: (Variable 2 __list_iterator [] Local () () Default (Integer 4 []) Source Public Required .false.), __list_iterator1: (Variable 2 __list_iterator1 [] Local () () Default (Integer 4 []) Source Public Required .false.), __list_iterator10: (Variable 2 __list_iterator10 [] Local () () Default (Integer 4 []) Source Public Required .false.), __list_iterator11: (Variable 2 __list_iterator11 [] Local () () Default (Integer 4 []) Source Public Required .false.), __list_iterator12: (Variable 2 __list_iterator12 [] Local () () Default (Integer 4 []) Source Public Required .false.), __list_iterator13: (Variable 2 __list_iterator13 [] Local () () Default (Integer 4 []) Source Public Required .false.), __list_iterator14: (Variable 2 __list_iterator14 [] Local () () Default (Integer 4 []) Source Public Required .false.), __list_iterator15: (Variable 2 __list_iterator15 [] Local () () Default (Integer 4 []) Source Public Required .false.), __list_iterator16: (Variable 2 __list_iterator16 [] Local () () Default (Integer 4 []) Source Public Required .false.), __list_iterator17: (Variable 2 __list_iterator17 [] Local () () Default (Integer 4 []) Source Public Required .false.), __list_iterator18: (Variable 2 __list_iterator18 [] Local () () Default (Integer 4 []) Source Public Required .false.), __list_iterator2: (Variable 2 __list_iterator2 [] Local () () Default (Integer 4 []) Source Public Required .false.), __list_iterator3: (Variable 2 __list_iterator3 [] Local () () Default (Integer 4 []) Source Public Required .false.), __list_iterator4: (Variable 2 __list_iterator4 [] Local () () Default (Integer 4 []) Source Public Required .false.), __list_iterator5: (Variable 2 __list_iterator5 [] Local () () Default (Integer 4 []) Source Public Required .false.), __list_iterator6: (Variable 2 __list_iterator6 [] Local () () Default (Integer 4 []) Source Public Required .false.), __list_iterator7: (Variable 2 __list_iterator7 [] Local () () Default (Integer 4 []) Source Public Required .false.), __list_iterator8: (Variable 2 __list_iterator8 [] Local () () Default (Integer 4 []) Source Public Required .false.), __list_iterator9: (Variable 2 __list_iterator9 [] Local () () Default (Integer 4 []) Source Public Required .false.), a: (Variable 2 a [] Local () () Default (List (Character 1 -2 () [])) Source Public Required .false.), b: (Variable 2 b [] Local () () Default (List (Integer 4 [])) Source Public Required .false.), c: (Variable 2 c [] Local () () Default (List (Real 8 [])) Source Public Required .false.), d: (Variable 2 d [] Local () () Default (List (Integer 4 [])) Source Public Required .false.)}) f (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [] [(= (Var 2 a) (ListConstant [(StringConstant "ab" (Character 1 2 () [])) (StringConstant "abc" (Character 1 3 () [])) (StringConstant "abcd" (Character 1 4 () []))] (List (Character 1 2 () []))) ()) (= (Var 2 b) (ListConstant [(IntegerConstant 1 (Integer 4 [])) (IntegerConstant 2 (Integer 4 [])) (IntegerConstant 3 (Integer 4 [])) (IntegerConstant 4 (Integer 4 []))] (List (Integer 4 []))) ()) (= (Var 2 c) (ListConstant [(RealConstant 1.230000 (Real 8 [])) (RealConstant 324.300000 (Real 8 [])) (RealConstant 56.431000 (Real 8 [])) (RealConstant 90.500000 (Real 8 [])) (RealConstant 34.100000 (Real 8 []))] (List (Real 8 []))) ()) (= (Var 2 d) (ListConstant [] (List (Integer 4 []))) ()) (Print () [(StringConstant "[" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (DoLoop ((Var 2 __list_iterator) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (ListLen (Var 2 a) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(Print () [(StringConstant "'" (Character 1 1 () [])) (ListItem (Var 2 a) (Var 2 __list_iterator) (Character 1 -2 () []) ()) (StringConstant "'" (Character 1 1 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () []))) (If (IntegerCompare (Var 2 __list_iterator) Lt (IntegerBinOp (ListLen (Var 2 a) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (Logical 4 []) ()) [(Print () [(StringConstant ", " (Character 1 2 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () [])))] [])]) (Print () [(StringConstant "]" (Character 1 1 () []))] () ()) (Print () [(StringConstant "[" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (DoLoop ((Var 2 __list_iterator1) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (ListLen (Var 2 b) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(Print () [(ListItem (Var 2 b) (Var 2 __list_iterator1) (Integer 4 []) ())] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () []))) (If (IntegerCompare (Var 2 __list_iterator1) Lt (IntegerBinOp (ListLen (Var 2 b) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (Logical 4 []) ()) [(Print () [(StringConstant ", " (Character 1 2 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () [])))] [])]) (Print () [(StringConstant "]" (Character 1 1 () []))] () ()) (Print () [(StringConstant "[" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (DoLoop ((Var 2 __list_iterator2) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (ListLen (Var 2 c) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(Print () [(ListItem (Var 2 c) (Var 2 __list_iterator2) (Real 8 []) ())] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () []))) (If (IntegerCompare (Var 2 __list_iterator2) Lt (IntegerBinOp (ListLen (Var 2 c) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (Logical 4 []) ()) [(Print () [(StringConstant ", " (Character 1 2 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () [])))] [])]) (Print () [(StringConstant "]" (Character 1 1 () []))] () ()) (Print () [(StringConstant "[" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (DoLoop ((Var 2 __list_iterator3) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (ListLen (Var 2 d) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(Print () [(ListItem (Var 2 d) (Var 2 __list_iterator3) (Integer 4 []) ())] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () []))) (If (IntegerCompare (Var 2 __list_iterator3) Lt (IntegerBinOp (ListLen (Var 2 d) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (Logical 4 []) ()) [(Print () [(StringConstant ", " (Character 1 2 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () [])))] [])]) (Print () [(StringConstant "]" (Character 1 1 () []))] () ()) (Print () [(StringConstant "[" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (DoLoop ((Var 2 __list_iterator4) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (ListLen (Var 2 a) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(Print () [(StringConstant "'" (Character 1 1 () [])) (ListItem (Var 2 a) (Var 2 __list_iterator4) (Character 1 -2 () []) ()) (StringConstant "'" (Character 1 1 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () []))) (If (IntegerCompare (Var 2 __list_iterator4) Lt (IntegerBinOp (ListLen (Var 2 a) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (Logical 4 []) ()) [(Print () [(StringConstant ", " (Character 1 2 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () [])))] [])]) (Print () [(StringConstant "]" (Character 1 1 () []))] () ()) (Print () [(StringConstant "[" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (DoLoop ((Var 2 __list_iterator5) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (ListLen (Var 2 a) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(Print () [(StringConstant "'" (Character 1 1 () [])) (ListItem (Var 2 a) (Var 2 __list_iterator5) (Character 1 -2 () []) ()) (StringConstant "'" (Character 1 1 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () []))) (If (IntegerCompare (Var 2 __list_iterator5) Lt (IntegerBinOp (ListLen (Var 2 a) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (Logical 4 []) ()) [(Print () [(StringConstant ", " (Character 1 2 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () [])))] [])]) (Print () [(StringConstant "]" (Character 1 1 () []))] () ()) (Print () [(StringConstant "[" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (DoLoop ((Var 2 __list_iterator6) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (ListLen (Var 2 b) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(Print () [(ListItem (Var 2 b) (Var 2 __list_iterator6) (Integer 4 []) ())] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () []))) (If (IntegerCompare (Var 2 __list_iterator6) Lt (IntegerBinOp (ListLen (Var 2 b) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (Logical 4 []) ()) [(Print () [(StringConstant ", " (Character 1 2 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () [])))] [])]) (Print () [(StringConstant "]" (Character 1 1 () []))] () ()) (Print () [(StringConstant "[" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (DoLoop ((Var 2 __list_iterator7) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (ListLen (Var 2 c) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(Print () [(ListItem (Var 2 c) (Var 2 __list_iterator7) (Real 8 []) ())] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () []))) (If (IntegerCompare (Var 2 __list_iterator7) Lt (IntegerBinOp (ListLen (Var 2 c) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (Logical 4 []) ()) [(Print () [(StringConstant ", " (Character 1 2 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () [])))] [])]) (Print () [(StringConstant "]" (Character 1 1 () []))] () ()) (Print () [(StringConstant "[" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (DoLoop ((Var 2 __list_iterator8) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (ListLen (Var 2 d) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(Print () [(ListItem (Var 2 d) (Var 2 __list_iterator8) (Integer 4 []) ())] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () []))) (If (IntegerCompare (Var 2 __list_iterator8) Lt (IntegerBinOp (ListLen (Var 2 d) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (Logical 4 []) ()) [(Print () [(StringConstant ", " (Character 1 2 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () [])))] [])]) (Print () [(StringConstant "]" (Character 1 1 () []))] () ()) (Print () [(StringConstant "[" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (DoLoop ((Var 2 __list_iterator9) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (ListLen (Var 2 a) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(Print () [(StringConstant "'" (Character 1 1 () [])) (ListItem (Var 2 a) (Var 2 __list_iterator9) (Character 1 -2 () []) ()) (StringConstant "'" (Character 1 1 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () []))) (If (IntegerCompare (Var 2 __list_iterator9) Lt (IntegerBinOp (ListLen (Var 2 a) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (Logical 4 []) ()) [(Print () [(StringConstant ", " (Character 1 2 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () [])))] [])]) (Print () [(StringConstant "]" (Character 1 1 () []))] () ()) (Print () [(StringConstant "[" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (DoLoop ((Var 2 __list_iterator10) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (ListLen (Var 2 a) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(Print () [(StringConstant "'" (Character 1 1 () [])) (ListItem (Var 2 a) (Var 2 __list_iterator10) (Character 1 -2 () []) ()) (StringConstant "'" (Character 1 1 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () []))) (If (IntegerCompare (Var 2 __list_iterator10) Lt (IntegerBinOp (ListLen (Var 2 a) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (Logical 4 []) ()) [(Print () [(StringConstant ", " (Character 1 2 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () [])))] [])]) (Print () [(StringConstant "]" (Character 1 1 () []))] () ()) (Print () [(IntegerConstant 1 (Integer 4 []))] () ()) (Print () [(StringConstant "[" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (DoLoop ((Var 2 __list_iterator11) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (ListLen (Var 2 b) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(Print () [(ListItem (Var 2 b) (Var 2 __list_iterator11) (Integer 4 []) ())] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () []))) (If (IntegerCompare (Var 2 __list_iterator11) Lt (IntegerBinOp (ListLen (Var 2 b) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (Logical 4 []) ()) [(Print () [(StringConstant ", " (Character 1 2 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () [])))] [])]) (Print () [(StringConstant "]" (Character 1 1 () []))] () ()) (Print () [(StringConstant "[" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (DoLoop ((Var 2 __list_iterator12) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (ListLen (Var 2 c) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(Print () [(ListItem (Var 2 c) (Var 2 __list_iterator12) (Real 8 []) ())] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () []))) (If (IntegerCompare (Var 2 __list_iterator12) Lt (IntegerBinOp (ListLen (Var 2 c) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (Logical 4 []) ()) [(Print () [(StringConstant ", " (Character 1 2 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () [])))] [])]) (Print () [(StringConstant "]" (Character 1 1 () []))] () ()) (Print () [(RealConstant 1.100000 (Real 8 []))] () ()) (Print () [(StringConstant "[" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (DoLoop ((Var 2 __list_iterator13) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (ListLen (Var 2 d) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(Print () [(ListItem (Var 2 d) (Var 2 __list_iterator13) (Integer 4 []) ())] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () []))) (If (IntegerCompare (Var 2 __list_iterator13) Lt (IntegerBinOp (ListLen (Var 2 d) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (Logical 4 []) ()) [(Print () [(StringConstant ", " (Character 1 2 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () [])))] [])]) (Print () [(StringConstant "]" (Character 1 1 () []))] () ()) (Print () [(StringConstant "[" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (DoLoop ((Var 2 __list_iterator14) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (ListLen (ListConstant [(IntegerUnaryMinus (IntegerConstant 3 (Integer 4 [])) (Integer 4 []) (IntegerConstant -3 (Integer 4 []))) (IntegerConstant 2 (Integer 4 [])) (IntegerConstant 1 (Integer 4 [])) (IntegerConstant 0 (Integer 4 []))] (List (Integer 4 []))) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(Print () [(ListItem (ListConstant [(IntegerUnaryMinus (IntegerConstant 3 (Integer 4 [])) (Integer 4 []) (IntegerConstant -3 (Integer 4 []))) (IntegerConstant 2 (Integer 4 [])) (IntegerConstant 1 (Integer 4 [])) (IntegerConstant 0 (Integer 4 []))] (List (Integer 4 []))) (Var 2 __list_iterator14) (Integer 4 []) ())] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () []))) (If (IntegerCompare (Var 2 __list_iterator14) Lt (IntegerBinOp (ListLen (ListConstant [(IntegerUnaryMinus (IntegerConstant 3 (Integer 4 [])) (Integer 4 []) (IntegerConstant -3 (Integer 4 []))) (IntegerConstant 2 (Integer 4 [])) (IntegerConstant 1 (Integer 4 [])) (IntegerConstant 0 (Integer 4 []))] (List (Integer 4 []))) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (Logical 4 []) ()) [(Print () [(StringConstant ", " (Character 1 2 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () [])))] [])]) (Print () [(StringConstant "]" (Character 1 1 () []))] () ()) (Print () [(StringConstant "[" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (DoLoop ((Var 2 __list_iterator15) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (ListLen (ListConstant [(StringConstant "a" (Character 1 1 () [])) (StringConstant "b" (Character 1 1 () [])) (StringConstant "c" (Character 1 1 () [])) (StringConstant "d" (Character 1 1 () [])) (StringConstant "e" (Character 1 1 () [])) (StringConstant "f" (Character 1 1 () []))] (List (Character 1 1 () []))) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(Print () [(StringConstant "'" (Character 1 1 () [])) (ListItem (ListConstant [(StringConstant "a" (Character 1 1 () [])) (StringConstant "b" (Character 1 1 () [])) (StringConstant "c" (Character 1 1 () [])) (StringConstant "d" (Character 1 1 () [])) (StringConstant "e" (Character 1 1 () [])) (StringConstant "f" (Character 1 1 () []))] (List (Character 1 1 () []))) (Var 2 __list_iterator15) (Character 1 1 () []) ()) (StringConstant "'" (Character 1 1 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () []))) (If (IntegerCompare (Var 2 __list_iterator15) Lt (IntegerBinOp (ListLen (ListConstant [(StringConstant "a" (Character 1 1 () [])) (StringConstant "b" (Character 1 1 () [])) (StringConstant "c" (Character 1 1 () [])) (StringConstant "d" (Character 1 1 () [])) (StringConstant "e" (Character 1 1 () [])) (StringConstant "f" (Character 1 1 () []))] (List (Character 1 1 () []))) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (Logical 4 []) ()) [(Print () [(StringConstant ", " (Character 1 2 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () [])))] [])]) (Print () [(StringConstant "]" (Character 1 1 () []))] () ()) (Print () [(StringConstant "[" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (DoLoop ((Var 2 __list_iterator16) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (ListLen (ListConstant [(IntegerConstant 1 (Integer 4 [])) (IntegerConstant 2 (Integer 4 [])) (IntegerConstant 3 (Integer 4 [])) (IntegerConstant 4 (Integer 4 []))] (List (Integer 4 []))) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(Print () [(ListItem (ListConstant [(IntegerConstant 1 (Integer 4 [])) (IntegerConstant 2 (Integer 4 [])) (IntegerConstant 3 (Integer 4 [])) (IntegerConstant 4 (Integer 4 []))] (List (Integer 4 []))) (Var 2 __list_iterator16) (Integer 4 []) ())] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () []))) (If (IntegerCompare (Var 2 __list_iterator16) Lt (IntegerBinOp (ListLen (ListConstant [(IntegerConstant 1 (Integer 4 [])) (IntegerConstant 2 (Integer 4 [])) (IntegerConstant 3 (Integer 4 [])) (IntegerConstant 4 (Integer 4 []))] (List (Integer 4 []))) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (Logical 4 []) ()) [(Print () [(StringConstant ", " (Character 1 2 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () [])))] [])]) (Print () [(StringConstant "]" (Character 1 1 () []))] () ()) (Print () [(StringConstant "[" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (DoLoop ((Var 2 __list_iterator17) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (ListLen (Var 2 a) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(Print () [(StringConstant "'" (Character 1 1 () [])) (ListItem (Var 2 a) (Var 2 __list_iterator17) (Character 1 -2 () []) ()) (StringConstant "'" (Character 1 1 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () []))) (If (IntegerCompare (Var 2 __list_iterator17) Lt (IntegerBinOp (ListLen (Var 2 a) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (Logical 4 []) ()) [(Print () [(StringConstant ", " (Character 1 2 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () [])))] [])]) (Print () [(StringConstant "]" (Character 1 1 () []))] () ()) (Print () [(StringConstant "[" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (DoLoop ((Var 2 __list_iterator18) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (ListLen (Var 2 c) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(Print () [(ListItem (Var 2 c) (Var 2 __list_iterator18) (Real 8 []) ())] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () []))) (If (IntegerCompare (Var 2 __list_iterator18) Lt (IntegerBinOp (ListLen (Var 2 c) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (Logical 4 []) ()) [(Print () [(StringConstant ", " (Character 1 2 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () [])))] [])]) (Print () [(StringConstant "]" (Character 1 1 () []))] () ())] () Public .false. .false.), main_program: (Program (SymbolTable 7 {}) main_program [] [(SubroutineCall 1 _lpython_main_program () [] ())]), test_nested_lists: (Function (SymbolTable 3 {__list_iterator: (Variable 3 __list_iterator [] Local () () Default (Integer 4 []) Source Public Required .false.), __list_iterator1: (Variable 3 __list_iterator1 [] Local () () Default (Integer 4 []) Source Public Required .false.), __list_iterator10: (Variable 3 __list_iterator10 [] Local () () Default (Integer 4 []) Source Public Required .false.), __list_iterator11: (Variable 3 __list_iterator11 [] Local () () Default (Integer 4 []) Source Public Required .false.), __list_iterator2: (Variable 3 __list_iterator2 [] Local () () Default (Integer 4 []) Source Public Required .false.), __list_iterator3: (Variable 3 __list_iterator3 [] Local () () Default (Integer 4 []) Source Public Required .false.), __list_iterator4: (Variable 3 __list_iterator4 [] Local () () Default (Integer 4 []) Source Public Required .false.), __list_iterator5: (Variable 3 __list_iterator5 [] Local () () Default (Integer 4 []) Source Public Required .false.), __list_iterator6: (Variable 3 __list_iterator6 [] Local () () Default (Integer 4 []) Source Public Required .false.), __list_iterator7: (Variable 3 __list_iterator7 [] Local () () Default (Integer 4 []) Source Public Required .false.), __list_iterator8: (Variable 3 __list_iterator8 [] Local () () Default (Integer 4 []) Source Public Required .false.), __list_iterator9: (Variable 3 __list_iterator9 [] Local () () Default (Integer 4 []) Source Public Required .false.), w: (Variable 3 w [] Local () () Default (List (List (List (List (List (Real 8 [])))))) Source Public Required .false.), x: (Variable 3 x [] Local () () Default (List (List (List (Integer 4 [])))) Source Public Required .false.), y: (Variable 3 y [] Local () () Default (List (List (Real 8 []))) Source Public Required .false.), z: (Variable 3 z [] Local () () Default (List (List (Character 1 -2 () []))) Source Public Required .false.)}) test_nested_lists (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [] [(= (Var 3 w) (ListConstant [(ListConstant [(ListConstant [(ListConstant [(ListConstant [(RealConstant 2.130000 (Real 8 [])) (RealUnaryMinus (RealConstant 98.170000 (Real 8 [])) (Real 8 []) (RealConstant -98.170000 (Real 8 [])))] (List (Real 8 [])))] (List (List (Real 8 []))))] (List (List (List (Real 8 []))))) (ListConstant [(ListConstant [(ListConstant [(RealConstant 1.110000 (Real 8 []))] (List (Real 8 [])))] (List (List (Real 8 []))))] (List (List (List (Real 8 [])))))] (List (List (List (List (Real 8 []))))))] (List (List (List (List (List (Real 8 []))))))) ()) (= (Var 3 x) (ListConstant [(ListConstant [(ListConstant [(IntegerConstant 3 (Integer 4 [])) (IntegerUnaryMinus (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) (IntegerConstant -1 (Integer 4 [])))] (List (Integer 4 []))) (ListConstant [(IntegerUnaryMinus (IntegerConstant 2 (Integer 4 [])) (Integer 4 []) (IntegerConstant -2 (Integer 4 []))) (IntegerConstant 5 (Integer 4 []))] (List (Integer 4 []))) (ListConstant [(IntegerConstant 5 (Integer 4 []))] (List (Integer 4 [])))] (List (List (Integer 4 [])))) (ListConstant [(ListConstant [(IntegerUnaryMinus (IntegerConstant 3 (Integer 4 [])) (Integer 4 []) (IntegerConstant -3 (Integer 4 []))) (IntegerConstant 1 (Integer 4 []))] (List (Integer 4 []))) (ListConstant [(IntegerConstant 2 (Integer 4 [])) (IntegerUnaryMinus (IntegerConstant 5 (Integer 4 [])) (Integer 4 []) (IntegerConstant -5 (Integer 4 [])))] (List (Integer 4 []))) (ListConstant [(IntegerUnaryMinus (IntegerConstant 5 (Integer 4 [])) (Integer 4 []) (IntegerConstant -5 (Integer 4 [])))] (List (Integer 4 [])))] (List (List (Integer 4 []))))] (List (List (List (Integer 4 []))))) ()) (= (Var 3 y) (ListConstant [(ListConstant [(RealConstant 3.140000 (Real 8 [])) (RealUnaryMinus (RealConstant 1.001200 (Real 8 [])) (Real 8 []) (RealConstant -1.001200 (Real 8 [])))] (List (Real 8 []))) (ListConstant [(RealUnaryMinus (RealConstant 2.380000 (Real 8 [])) (Real 8 []) (RealConstant -2.380000 (Real 8 []))) (RealConstant 5.510000 (Real 8 []))] (List (Real 8 [])))] (List (List (Real 8 [])))) ()) (= (Var 3 z) (ListConstant [(ListConstant [(StringConstant "bat" (Character 1 3 () [])) (StringConstant "ball" (Character 1 4 () []))] (List (Character 1 3 () []))) (ListConstant [(StringConstant "cat" (Character 1 3 () [])) (StringConstant "dog" (Character 1 3 () []))] (List (Character 1 3 () []))) (ListConstant [(StringConstant "c" (Character 1 1 () [])) (StringConstant "c++" (Character 1 3 () [])) (StringConstant "java" (Character 1 4 () [])) (StringConstant "python" (Character 1 6 () []))] (List (Character 1 1 () [])))] (List (List (Character 1 3 () [])))) ()) (Print () [(StringConstant "[" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (DoLoop ((Var 3 __list_iterator) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (ListLen (Var 3 w) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(Print () [(StringConstant "[" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (DoLoop ((Var 3 __list_iterator1) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (ListLen (ListItem (Var 3 w) (Var 3 __list_iterator) (List (List (List (List (Real 8 []))))) ()) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(Print () [(StringConstant "[" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (DoLoop ((Var 3 __list_iterator2) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (ListLen (ListItem (ListItem (Var 3 w) (Var 3 __list_iterator) (List (List (List (List (Real 8 []))))) ()) (Var 3 __list_iterator1) (List (List (List (Real 8 [])))) ()) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(Print () [(StringConstant "[" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (DoLoop ((Var 3 __list_iterator3) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (ListLen (ListItem (ListItem (ListItem (Var 3 w) (Var 3 __list_iterator) (List (List (List (List (Real 8 []))))) ()) (Var 3 __list_iterator1) (List (List (List (Real 8 [])))) ()) (Var 3 __list_iterator2) (List (List (Real 8 []))) ()) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(Print () [(StringConstant "[" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (DoLoop ((Var 3 __list_iterator4) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (ListLen (ListItem (ListItem (ListItem (ListItem (Var 3 w) (Var 3 __list_iterator) (List (List (List (List (Real 8 []))))) ()) (Var 3 __list_iterator1) (List (List (List (Real 8 [])))) ()) (Var 3 __list_iterator2) (List (List (Real 8 []))) ()) (Var 3 __list_iterator3) (List (Real 8 [])) ()) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(Print () [(ListItem (ListItem (ListItem (ListItem (ListItem (Var 3 w) (Var 3 __list_iterator) (List (List (List (List (Real 8 []))))) ()) (Var 3 __list_iterator1) (List (List (List (Real 8 [])))) ()) (Var 3 __list_iterator2) (List (List (Real 8 []))) ()) (Var 3 __list_iterator3) (List (Real 8 [])) ()) (Var 3 __list_iterator4) (Real 8 []) ())] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () []))) (If (IntegerCompare (Var 3 __list_iterator4) Lt (IntegerBinOp (ListLen (ListItem (ListItem (ListItem (ListItem (Var 3 w) (Var 3 __list_iterator) (List (List (List (List (Real 8 []))))) ()) (Var 3 __list_iterator1) (List (List (List (Real 8 [])))) ()) (Var 3 __list_iterator2) (List (List (Real 8 []))) ()) (Var 3 __list_iterator3) (List (Real 8 [])) ()) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (Logical 4 []) ()) [(Print () [(StringConstant ", " (Character 1 2 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () [])))] [])]) (Print () [(StringConstant "]" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (If (IntegerCompare (Var 3 __list_iterator3) Lt (IntegerBinOp (ListLen (ListItem (ListItem (ListItem (Var 3 w) (Var 3 __list_iterator) (List (List (List (List (Real 8 []))))) ()) (Var 3 __list_iterator1) (List (List (List (Real 8 [])))) ()) (Var 3 __list_iterator2) (List (List (Real 8 []))) ()) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (Logical 4 []) ()) [(Print () [(StringConstant ", " (Character 1 2 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () [])))] [])]) (Print () [(StringConstant "]" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (If (IntegerCompare (Var 3 __list_iterator2) Lt (IntegerBinOp (ListLen (ListItem (ListItem (Var 3 w) (Var 3 __list_iterator) (List (List (List (List (Real 8 []))))) ()) (Var 3 __list_iterator1) (List (List (List (Real 8 [])))) ()) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (Logical 4 []) ()) [(Print () [(StringConstant ", " (Character 1 2 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () [])))] [])]) (Print () [(StringConstant "]" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (If (IntegerCompare (Var 3 __list_iterator1) Lt (IntegerBinOp (ListLen (ListItem (Var 3 w) (Var 3 __list_iterator) (List (List (List (List (Real 8 []))))) ()) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (Logical 4 []) ()) [(Print () [(StringConstant ", " (Character 1 2 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () [])))] [])]) (Print () [(StringConstant "]" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (If (IntegerCompare (Var 3 __list_iterator) Lt (IntegerBinOp (ListLen (Var 3 w) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (Logical 4 []) ()) [(Print () [(StringConstant ", " (Character 1 2 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () [])))] [])]) (Print () [(StringConstant "]" (Character 1 1 () []))] () ()) (Print () [(StringConstant "[" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (DoLoop ((Var 3 __list_iterator5) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (ListLen (Var 3 x) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(Print () [(StringConstant "[" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (DoLoop ((Var 3 __list_iterator6) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (ListLen (ListItem (Var 3 x) (Var 3 __list_iterator5) (List (List (Integer 4 []))) ()) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(Print () [(StringConstant "[" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (DoLoop ((Var 3 __list_iterator7) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (ListLen (ListItem (ListItem (Var 3 x) (Var 3 __list_iterator5) (List (List (Integer 4 []))) ()) (Var 3 __list_iterator6) (List (Integer 4 [])) ()) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(Print () [(ListItem (ListItem (ListItem (Var 3 x) (Var 3 __list_iterator5) (List (List (Integer 4 []))) ()) (Var 3 __list_iterator6) (List (Integer 4 [])) ()) (Var 3 __list_iterator7) (Integer 4 []) ())] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () []))) (If (IntegerCompare (Var 3 __list_iterator7) Lt (IntegerBinOp (ListLen (ListItem (ListItem (Var 3 x) (Var 3 __list_iterator5) (List (List (Integer 4 []))) ()) (Var 3 __list_iterator6) (List (Integer 4 [])) ()) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (Logical 4 []) ()) [(Print () [(StringConstant ", " (Character 1 2 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () [])))] [])]) (Print () [(StringConstant "]" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (If (IntegerCompare (Var 3 __list_iterator6) Lt (IntegerBinOp (ListLen (ListItem (Var 3 x) (Var 3 __list_iterator5) (List (List (Integer 4 []))) ()) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (Logical 4 []) ()) [(Print () [(StringConstant ", " (Character 1 2 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () [])))] [])]) (Print () [(StringConstant "]" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (If (IntegerCompare (Var 3 __list_iterator5) Lt (IntegerBinOp (ListLen (Var 3 x) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (Logical 4 []) ()) [(Print () [(StringConstant ", " (Character 1 2 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () [])))] [])]) (Print () [(StringConstant "]" (Character 1 1 () []))] () ()) (Print () [(StringConstant "[" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (DoLoop ((Var 3 __list_iterator8) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (ListLen (Var 3 y) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(Print () [(StringConstant "[" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (DoLoop ((Var 3 __list_iterator9) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (ListLen (ListItem (Var 3 y) (Var 3 __list_iterator8) (List (Real 8 [])) ()) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(Print () [(ListItem (ListItem (Var 3 y) (Var 3 __list_iterator8) (List (Real 8 [])) ()) (Var 3 __list_iterator9) (Real 8 []) ())] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () []))) (If (IntegerCompare (Var 3 __list_iterator9) Lt (IntegerBinOp (ListLen (ListItem (Var 3 y) (Var 3 __list_iterator8) (List (Real 8 [])) ()) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (Logical 4 []) ()) [(Print () [(StringConstant ", " (Character 1 2 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () [])))] [])]) (Print () [(StringConstant "]" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (If (IntegerCompare (Var 3 __list_iterator8) Lt (IntegerBinOp (ListLen (Var 3 y) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (Logical 4 []) ()) [(Print () [(StringConstant ", " (Character 1 2 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () [])))] [])]) (Print () [(StringConstant "]" (Character 1 1 () []))] () ()) (Print () [(StringConstant "[" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (DoLoop ((Var 3 __list_iterator10) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (ListLen (Var 3 z) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(Print () [(StringConstant "[" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (DoLoop ((Var 3 __list_iterator11) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (ListLen (ListItem (Var 3 z) (Var 3 __list_iterator10) (List (Character 1 -2 () [])) ()) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(Print () [(StringConstant "'" (Character 1 1 () [])) (ListItem (ListItem (Var 3 z) (Var 3 __list_iterator10) (List (Character 1 -2 () [])) ()) (Var 3 __list_iterator11) (Character 1 -2 () []) ()) (StringConstant "'" (Character 1 1 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () []))) (If (IntegerCompare (Var 3 __list_iterator11) Lt (IntegerBinOp (ListLen (ListItem (Var 3 z) (Var 3 __list_iterator10) (List (Character 1 -2 () [])) ()) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (Logical 4 []) ()) [(Print () [(StringConstant ", " (Character 1 2 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () [])))] [])]) (Print () [(StringConstant "]" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (If (IntegerCompare (Var 3 __list_iterator10) Lt (IntegerBinOp (ListLen (Var 3 z) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (Logical 4 []) ()) [(Print () [(StringConstant ", " (Character 1 2 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () [])))] [])]) (Print () [(StringConstant "]" (Character 1 1 () []))] () ())] () Public .false. .false.), test_nested_lists2: (Function (SymbolTable 5 {__list_iterator: (Variable 5 __list_iterator [] Local () () Default (Integer 4 []) Source Public Required .false.), __list_iterator1: (Variable 5 __list_iterator1 [] Local () () Default (Integer 4 []) Source Public Required .false.), __list_iterator2: (Variable 5 __list_iterator2 [] Local () () Default (Integer 4 []) Source Public Required .false.), __list_iterator3: (Variable 5 __list_iterator3 [] Local () () Default (Integer 4 []) Source Public Required .false.), __list_iterator4: (Variable 5 __list_iterator4 [] Local () () Default (Integer 4 []) Source Public Required .false.), __list_iterator5: (Variable 5 __list_iterator5 [] Local () () Default (Integer 4 []) Source Public Required .false.), __list_iterator6: (Variable 5 __list_iterator6 [] Local () () Default (Integer 4 []) Source Public Required .false.), __list_iterator7: (Variable 5 __list_iterator7 [] Local () () Default (Integer 4 []) Source Public Required .false.), __list_iterator8: (Variable 5 __list_iterator8 [] Local () () Default (Integer 4 []) Source Public Required .false.), p: (Variable 5 p [] Local () () Default (List (List (Integer 4 []))) Source Public Required .false.), q: (Variable 5 q [] Local () () Default (List (List (List (List (Real 8 []))))) Source Public Required .false.), r: (Variable 5 r [] Local () () Default (List (List (List (Character 1 -2 () [])))) Source Public Required .false.)}) test_nested_lists2 (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [] [(= (Var 5 p) (ListConstant [(ListConstant [(IntegerConstant 0 (Integer 4 [])) (IntegerConstant 1 (Integer 4 [])) (IntegerConstant 2 (Integer 4 [])) (IntegerConstant 3 (Integer 4 [])) (IntegerConstant 4 (Integer 4 [])) (IntegerConstant 5 (Integer 4 [])) (IntegerConstant 6 (Integer 4 [])) (IntegerConstant 7 (Integer 4 [])) (IntegerConstant 8 (Integer 4 [])) (IntegerConstant 9 (Integer 4 []))] (List (Integer 4 []))) (ListConstant [(IntegerConstant 10 (Integer 4 [])) (IntegerConstant 11 (Integer 4 [])) (IntegerConstant 12 (Integer 4 [])) (IntegerConstant 13 (Integer 4 [])) (IntegerConstant 14 (Integer 4 [])) (IntegerConstant 15 (Integer 4 [])) (IntegerConstant 16 (Integer 4 [])) (IntegerConstant 17 (Integer 4 [])) (IntegerConstant 18 (Integer 4 [])) (IntegerConstant 19 (Integer 4 []))] (List (Integer 4 []))) (ListConstant [(IntegerConstant 20 (Integer 4 [])) (IntegerConstant 21 (Integer 4 [])) (IntegerConstant 22 (Integer 4 [])) (IntegerConstant 23 (Integer 4 [])) (IntegerConstant 24 (Integer 4 [])) (IntegerConstant 25 (Integer 4 [])) (IntegerConstant 26 (Integer 4 [])) (IntegerConstant 27 (Integer 4 [])) (IntegerConstant 28 (Integer 4 [])) (IntegerConstant 29 (Integer 4 []))] (List (Integer 4 []))) (ListConstant [(IntegerConstant 30 (Integer 4 [])) (IntegerConstant 31 (Integer 4 [])) (IntegerConstant 32 (Integer 4 [])) (IntegerConstant 33 (Integer 4 [])) (IntegerConstant 34 (Integer 4 [])) (IntegerConstant 35 (Integer 4 [])) (IntegerConstant 36 (Integer 4 [])) (IntegerConstant 37 (Integer 4 [])) (IntegerConstant 38 (Integer 4 [])) (IntegerConstant 39 (Integer 4 []))] (List (Integer 4 []))) (ListConstant [(IntegerConstant 40 (Integer 4 [])) (IntegerConstant 41 (Integer 4 [])) (IntegerConstant 42 (Integer 4 [])) (IntegerConstant 43 (Integer 4 [])) (IntegerConstant 44 (Integer 4 [])) (IntegerConstant 45 (Integer 4 [])) (IntegerConstant 46 (Integer 4 [])) (IntegerConstant 47 (Integer 4 [])) (IntegerConstant 48 (Integer 4 [])) (IntegerConstant 49 (Integer 4 []))] (List (Integer 4 []))) (ListConstant [(IntegerConstant 50 (Integer 4 [])) (IntegerConstant 51 (Integer 4 [])) (IntegerConstant 52 (Integer 4 [])) (IntegerConstant 53 (Integer 4 [])) (IntegerConstant 54 (Integer 4 [])) (IntegerConstant 55 (Integer 4 [])) (IntegerConstant 56 (Integer 4 [])) (IntegerConstant 57 (Integer 4 [])) (IntegerConstant 58 (Integer 4 [])) (IntegerConstant 59 (Integer 4 []))] (List (Integer 4 []))) (ListConstant [(IntegerConstant 60 (Integer 4 [])) (IntegerConstant 61 (Integer 4 [])) (IntegerConstant 62 (Integer 4 [])) (IntegerConstant 63 (Integer 4 [])) (IntegerConstant 64 (Integer 4 [])) (IntegerConstant 65 (Integer 4 [])) (IntegerConstant 66 (Integer 4 [])) (IntegerConstant 67 (Integer 4 [])) (IntegerConstant 68 (Integer 4 [])) (IntegerConstant 69 (Integer 4 []))] (List (Integer 4 []))) (ListConstant [(IntegerConstant 70 (Integer 4 [])) (IntegerConstant 71 (Integer 4 [])) (IntegerConstant 72 (Integer 4 [])) (IntegerConstant 73 (Integer 4 [])) (IntegerConstant 74 (Integer 4 [])) (IntegerConstant 75 (Integer 4 [])) (IntegerConstant 76 (Integer 4 [])) (IntegerConstant 77 (Integer 4 [])) (IntegerConstant 78 (Integer 4 [])) (IntegerConstant 79 (Integer 4 []))] (List (Integer 4 []))) (ListConstant [(IntegerConstant 80 (Integer 4 [])) (IntegerConstant 81 (Integer 4 [])) (IntegerConstant 82 (Integer 4 [])) (IntegerConstant 83 (Integer 4 [])) (IntegerConstant 84 (Integer 4 [])) (IntegerConstant 85 (Integer 4 [])) (IntegerConstant 86 (Integer 4 [])) (IntegerConstant 87 (Integer 4 [])) (IntegerConstant 88 (Integer 4 [])) (IntegerConstant 89 (Integer 4 []))] (List (Integer 4 []))) (ListConstant [(IntegerConstant 90 (Integer 4 [])) (IntegerConstant 91 (Integer 4 [])) (IntegerConstant 92 (Integer 4 [])) (IntegerConstant 93 (Integer 4 [])) (IntegerConstant 94 (Integer 4 [])) (IntegerConstant 95 (Integer 4 [])) (IntegerConstant 96 (Integer 4 [])) (IntegerConstant 97 (Integer 4 [])) (IntegerConstant 98 (Integer 4 [])) (IntegerConstant 99 (Integer 4 []))] (List (Integer 4 [])))] (List (List (Integer 4 [])))) ()) (= (Var 5 q) (ListConstant [(ListConstant [(ListConstant [(ListConstant [(RealConstant 74.550000 (Real 8 [])) (RealUnaryMinus (RealConstant 77.640000 (Real 8 [])) (Real 8 []) (RealConstant -77.640000 (Real 8 []))) (RealConstant 52.350000 (Real 8 []))] (List (Real 8 []))) (ListConstant [(RealUnaryMinus (RealConstant 78.250000 (Real 8 [])) (Real 8 []) (RealConstant -78.250000 (Real 8 []))) (RealUnaryMinus (RealConstant 19.240000 (Real 8 [])) (Real 8 []) (RealConstant -19.240000 (Real 8 []))) (RealConstant 81.380000 (Real 8 []))] (List (Real 8 []))) (ListConstant [(RealConstant 7.860000 (Real 8 [])) (RealConstant 12.110000 (Real 8 [])) (RealConstant 27.500000 (Real 8 []))] (List (Real 8 [])))] (List (List (Real 8 [])))) (ListConstant [(ListConstant [(RealUnaryMinus (RealConstant 98.930000 (Real 8 [])) (Real 8 []) (RealConstant -98.930000 (Real 8 []))) (RealUnaryMinus (RealConstant 79.620000 (Real 8 [])) (Real 8 []) (RealConstant -79.620000 (Real 8 []))) (RealUnaryMinus (RealConstant 73.760000 (Real 8 [])) (Real 8 []) (RealConstant -73.760000 (Real 8 [])))] (List (Real 8 []))) (ListConstant [(RealConstant 42.050000 (Real 8 [])) (RealUnaryMinus (RealConstant 90.290000 (Real 8 [])) (Real 8 []) (RealConstant -90.290000 (Real 8 []))) (RealConstant 69.950000 (Real 8 []))] (List (Real 8 []))) (ListConstant [(RealConstant 59.320000 (Real 8 [])) (RealUnaryMinus (RealConstant 70.780000 (Real 8 [])) (Real 8 []) (RealConstant -70.780000 (Real 8 []))) (RealUnaryMinus (RealConstant 53.220000 (Real 8 [])) (Real 8 []) (RealConstant -53.220000 (Real 8 [])))] (List (Real 8 [])))] (List (List (Real 8 [])))) (ListConstant [(ListConstant [(RealConstant 53.520000 (Real 8 [])) (RealUnaryMinus (RealConstant 93.880000 (Real 8 [])) (Real 8 []) (RealConstant -93.880000 (Real 8 []))) (RealConstant 49.650000 (Real 8 []))] (List (Real 8 []))) (ListConstant [(RealConstant 2.180000 (Real 8 [])) (RealConstant 19.910000 (Real 8 [])) (RealConstant 69.240000 (Real 8 []))] (List (Real 8 []))) (ListConstant [(RealConstant 78.510000 (Real 8 [])) (RealConstant 89.690000 (Real 8 [])) (RealUnaryMinus (RealConstant 86.680000 (Real 8 [])) (Real 8 []) (RealConstant -86.680000 (Real 8 [])))] (List (Real 8 [])))] (List (List (Real 8 []))))] (List (List (List (Real 8 []))))) (ListConstant [(ListConstant [(ListConstant [(RealUnaryMinus (RealConstant 92.480000 (Real 8 [])) (Real 8 []) (RealConstant -92.480000 (Real 8 []))) (RealUnaryMinus (RealConstant 80.750000 (Real 8 [])) (Real 8 []) (RealConstant -80.750000 (Real 8 []))) (RealUnaryMinus (RealConstant 27.760000 (Real 8 [])) (Real 8 []) (RealConstant -27.760000 (Real 8 [])))] (List (Real 8 []))) (ListConstant [(RealUnaryMinus (RealConstant 13.350000 (Real 8 [])) (Real 8 []) (RealConstant -13.350000 (Real 8 []))) (RealConstant 12.280000 (Real 8 [])) (RealConstant 79.610000 (Real 8 []))] (List (Real 8 []))) (ListConstant [(RealConstant 48.480000 (Real 8 [])) (RealUnaryMinus (RealConstant 10.490000 (Real 8 [])) (Real 8 []) (RealConstant -10.490000 (Real 8 []))) (RealConstant 41.100000 (Real 8 []))] (List (Real 8 [])))] (List (List (Real 8 [])))) (ListConstant [(ListConstant [(RealConstant 20.330000 (Real 8 [])) (RealConstant 14.520000 (Real 8 [])) (RealConstant 82.560000 (Real 8 []))] (List (Real 8 []))) (ListConstant [(RealUnaryMinus (RealConstant 57.760000 (Real 8 [])) (Real 8 []) (RealConstant -57.760000 (Real 8 []))) (RealConstant 76.030000 (Real 8 [])) (RealConstant 67.330000 (Real 8 []))] (List (Real 8 []))) (ListConstant [(RealUnaryMinus (RealConstant 21.500000 (Real 8 [])) (Real 8 []) (RealConstant -21.500000 (Real 8 []))) (RealUnaryMinus (RealConstant 11.920000 (Real 8 [])) (Real 8 []) (RealConstant -11.920000 (Real 8 []))) (RealUnaryMinus (RealConstant 31.840000 (Real 8 [])) (Real 8 []) (RealConstant -31.840000 (Real 8 [])))] (List (Real 8 [])))] (List (List (Real 8 [])))) (ListConstant [(ListConstant [(RealConstant 9.650000 (Real 8 [])) (RealConstant 11.150000 (Real 8 [])) (RealUnaryMinus (RealConstant 36.580000 (Real 8 [])) (Real 8 []) (RealConstant -36.580000 (Real 8 [])))] (List (Real 8 []))) (ListConstant [(RealConstant 56.550000 (Real 8 [])) (RealUnaryMinus (RealConstant 70.850000 (Real 8 [])) (Real 8 []) (RealConstant -70.850000 (Real 8 []))) (RealUnaryMinus (RealConstant 50.670000 (Real 8 [])) (Real 8 []) (RealConstant -50.670000 (Real 8 [])))] (List (Real 8 []))) (ListConstant [(RealConstant 94.630000 (Real 8 [])) (RealConstant 25.680000 (Real 8 [])) (RealConstant 89.300000 (Real 8 []))] (List (Real 8 [])))] (List (List (Real 8 []))))] (List (List (List (Real 8 []))))) (ListConstant [(ListConstant [(ListConstant [(RealConstant 28.530000 (Real 8 [])) (RealConstant 71.220000 (Real 8 [])) (RealConstant 71.870000 (Real 8 []))] (List (Real 8 []))) (ListConstant [(RealUnaryMinus (RealConstant 58.390000 (Real 8 [])) (Real 8 []) (RealConstant -58.390000 (Real 8 []))) (RealUnaryMinus (RealConstant 6.960000 (Real 8 [])) (Real 8 []) (RealConstant -6.960000 (Real 8 []))) (RealConstant 42.980000 (Real 8 []))] (List (Real 8 []))) (ListConstant [(RealUnaryMinus (RealConstant 8.950000 (Real 8 [])) (Real 8 []) (RealConstant -8.950000 (Real 8 []))) (RealUnaryMinus (RealConstant 75.090000 (Real 8 [])) (Real 8 []) (RealConstant -75.090000 (Real 8 []))) (RealConstant 37.960000 (Real 8 []))] (List (Real 8 [])))] (List (List (Real 8 [])))) (ListConstant [(ListConstant [(RealUnaryMinus (RealConstant 31.750000 (Real 8 [])) (Real 8 []) (RealConstant -31.750000 (Real 8 []))) (RealConstant 67.330000 (Real 8 [])) (RealConstant 58.170000 (Real 8 []))] (List (Real 8 []))) (ListConstant [(RealUnaryMinus (RealConstant 64.010000 (Real 8 [])) (Real 8 []) (RealConstant -64.010000 (Real 8 []))) (RealUnaryMinus (RealConstant 9.220000 (Real 8 [])) (Real 8 []) (RealConstant -9.220000 (Real 8 []))) (RealConstant 9.590000 (Real 8 []))] (List (Real 8 []))) (ListConstant [(RealConstant 15.710000 (Real 8 [])) (RealConstant 82.360000 (Real 8 [])) (RealConstant 51.180000 (Real 8 []))] (List (Real 8 [])))] (List (List (Real 8 [])))) (ListConstant [(ListConstant [(RealUnaryMinus (RealConstant 100.290000 (Real 8 [])) (Real 8 []) (RealConstant -100.290000 (Real 8 []))) (RealUnaryMinus (RealConstant 32.720000 (Real 8 [])) (Real 8 []) (RealConstant -32.720000 (Real 8 []))) (RealUnaryMinus (RealConstant 54.940000 (Real 8 [])) (Real 8 []) (RealConstant -54.940000 (Real 8 [])))] (List (Real 8 []))) (ListConstant [(RealUnaryMinus (RealConstant 0.320000 (Real 8 [])) (Real 8 []) (RealConstant -0.320000 (Real 8 []))) (RealConstant 68.810000 (Real 8 [])) (RealUnaryMinus (RealConstant 55.090000 (Real 8 [])) (Real 8 []) (RealConstant -55.090000 (Real 8 [])))] (List (Real 8 []))) (ListConstant [(RealConstant 97.280000 (Real 8 [])) (RealUnaryMinus (RealConstant 28.200000 (Real 8 [])) (Real 8 []) (RealConstant -28.200000 (Real 8 []))) (RealUnaryMinus (RealConstant 62.610000 (Real 8 [])) (Real 8 []) (RealConstant -62.610000 (Real 8 [])))] (List (Real 8 [])))] (List (List (Real 8 []))))] (List (List (List (Real 8 [])))))] (List (List (List (List (Real 8 [])))))) ()) (= (Var 5 r) (ListConstant [(ListConstant [(ListConstant [(StringConstant "Io" (Character 1 2 () [])) (StringConstant "tl" (Character 1 2 () [])) (StringConstant "bLvjV" (Character 1 5 () [])) (StringConstant "wjFKQ" (Character 1 5 () [])) (StringConstant "lY2" (Character 1 3 () []))] (List (Character 1 2 () []))) (ListConstant [(StringConstant "Be2l6bqE" (Character 1 8 () [])) (StringConstant "pQER3utIXA" (Character 1 10 () [])) (StringConstant "llZBJj5Cdu" (Character 1 10 () [])) (StringConstant "C8" (Character 1 2 () [])) (StringConstant "gwTr77PdYR" (Character 1 10 () []))] (List (Character 1 8 () []))) (ListConstant [(StringConstant "4M6L" (Character 1 4 () [])) (StringConstant "ktPdowqERy" (Character 1 10 () [])) (StringConstant "KSifqTkR" (Character 1 8 () [])) (StringConstant "ZE2p1N78f1" (Character 1 10 () [])) (StringConstant "Mi5e87Xw" (Character 1 8 () []))] (List (Character 1 4 () []))) (ListConstant [(StringConstant "uwfzqDq9g" (Character 1 9 () [])) (StringConstant "QaM1s" (Character 1 5 () [])) (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () [])) (StringConstant "LB" (Character 1 2 () []))] (List (Character 1 9 () []))) (ListConstant [(StringConstant "OJFRY6k" (Character 1 7 () [])) (StringConstant "iz7Oie" (Character 1 6 () [])) (StringConstant "" (Character 1 0 () [])) (StringConstant "LUYLF" (Character 1 5 () [])) (StringConstant "JBND5FuV7l" (Character 1 10 () []))] (List (Character 1 7 () [])))] (List (List (Character 1 2 () [])))) (ListConstant [(ListConstant [(StringConstant "m" (Character 1 1 () [])) (StringConstant "WIQBQfV" (Character 1 7 () [])) (StringConstant "jxjDrqxu" (Character 1 8 () [])) (StringConstant "kea" (Character 1 3 () [])) (StringConstant "mu" (Character 1 2 () []))] (List (Character 1 1 () []))) (ListConstant [(StringConstant "" (Character 1 0 () [])) (StringConstant "GI8aOwLMe" (Character 1 9 () [])) (StringConstant "Y5m8" (Character 1 4 () [])) (StringConstant "a02Rz" (Character 1 5 () [])) (StringConstant "xNKCJ" (Character 1 5 () []))] (List (Character 1 0 () []))) (ListConstant [(StringConstant "LzkhyiJQHP" (Character 1 10 () [])) (StringConstant "uzc3xyoXL" (Character 1 9 () [])) (StringConstant "sKGnYfpRy" (Character 1 9 () [])) (StringConstant "7x" (Character 1 2 () [])) (StringConstant "WTVKrnPO" (Character 1 8 () []))] (List (Character 1 10 () []))) (ListConstant [(StringConstant "TZa6" (Character 1 4 () [])) (StringConstant "GXRuyRX" (Character 1 7 () [])) (StringConstant "R" (Character 1 1 () [])) (StringConstant "JQxS" (Character 1 4 () [])) (StringConstant "OH" (Character 1 2 () []))] (List (Character 1 4 () []))) (ListConstant [(StringConstant "bSVJZ1OQ" (Character 1 8 () [])) (StringConstant "M" (Character 1 1 () [])) (StringConstant "I9omlF" (Character 1 6 () [])) (StringConstant "x7FR" (Character 1 4 () [])) (StringConstant "XtpL" (Character 1 4 () []))] (List (Character 1 8 () [])))] (List (List (Character 1 1 () [])))) (ListConstant [(ListConstant [(StringConstant "DKOpK" (Character 1 5 () [])) (StringConstant "eg8Nz" (Character 1 5 () [])) (StringConstant "ru" (Character 1 2 () [])) (StringConstant "Sj" (Character 1 2 () [])) (StringConstant "YUDxyI" (Character 1 6 () []))] (List (Character 1 5 () []))) (ListConstant [(StringConstant "Q5uyhvp" (Character 1 7 () [])) (StringConstant "Ydx" (Character 1 3 () [])) (StringConstant "p" (Character 1 1 () [])) (StringConstant "DLM5RX" (Character 1 6 () [])) (StringConstant "pwOujxCO" (Character 1 8 () []))] (List (Character 1 7 () []))) (ListConstant [(StringConstant "s5GOWnNJV" (Character 1 9 () [])) (StringConstant "af" (Character 1 2 () [])) (StringConstant "KAkD" (Character 1 4 () [])) (StringConstant "4IIZK" (Character 1 5 () [])) (StringConstant "JQK040x" (Character 1 7 () []))] (List (Character 1 9 () []))) (ListConstant [(StringConstant "9vF" (Character 1 3 () [])) (StringConstant "9pc7R8v" (Character 1 7 () [])) (StringConstant "nDReIU7" (Character 1 7 () [])) (StringConstant "K" (Character 1 1 () [])) (StringConstant "btn" (Character 1 3 () []))] (List (Character 1 3 () []))) (ListConstant [(StringConstant "" (Character 1 0 () [])) (StringConstant "wVeivkdi" (Character 1 8 () [])) (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () [])) (StringConstant "C" (Character 1 1 () []))] (List (Character 1 0 () [])))] (List (List (Character 1 5 () [])))) (ListConstant [(ListConstant [(StringConstant "vNTtcRXD" (Character 1 8 () [])) (StringConstant "rsi" (Character 1 3 () [])) (StringConstant "YsoF7mZD" (Character 1 8 () [])) (StringConstant "VrPXU50rgA" (Character 1 10 () [])) (StringConstant "mG7zqN0G" (Character 1 8 () []))] (List (Character 1 8 () []))) (ListConstant [(StringConstant "la7cJ" (Character 1 5 () [])) (StringConstant "M5rLJ8Go" (Character 1 8 () [])) (StringConstant "gb" (Character 1 2 () [])) (StringConstant "FjKwYZ7E" (Character 1 8 () [])) (StringConstant "uSPD" (Character 1 4 () []))] (List (Character 1 5 () []))) (ListConstant [(StringConstant "" (Character 1 0 () [])) (StringConstant "oOa79jWcMx" (Character 1 10 () [])) (StringConstant "yyAYZZ" (Character 1 6 () [])) (StringConstant "wbvggXm" (Character 1 7 () [])) (StringConstant "aE3BkCL4" (Character 1 8 () []))] (List (Character 1 0 () []))) (ListConstant [(StringConstant "RdP" (Character 1 3 () [])) (StringConstant "Hwc0x9RZ" (Character 1 8 () [])) (StringConstant "sy" (Character 1 2 () [])) (StringConstant "9" (Character 1 1 () [])) (StringConstant "W1d9xA2BXe" (Character 1 10 () []))] (List (Character 1 3 () []))) (ListConstant [(StringConstant "A" (Character 1 1 () [])) (StringConstant "" (Character 1 0 () [])) (StringConstant "QnK" (Character 1 3 () [])) (StringConstant "N5tzN" (Character 1 5 () [])) (StringConstant "ou7Lp" (Character 1 5 () []))] (List (Character 1 1 () [])))] (List (List (Character 1 8 () [])))) (ListConstant [(ListConstant [(StringConstant "DL68rDF" (Character 1 7 () [])) (StringConstant "v" (Character 1 1 () [])) (StringConstant "kQ3Mxm" (Character 1 6 () [])) (StringConstant "g" (Character 1 1 () [])) (StringConstant "6KTeF4Eo" (Character 1 8 () []))] (List (Character 1 7 () []))) (ListConstant [(StringConstant "Hx9" (Character 1 3 () [])) (StringConstant "Y1IzQm85Z4" (Character 1 10 () [])) (StringConstant "3D8" (Character 1 3 () [])) (StringConstant "ZLZ5" (Character 1 4 () [])) (StringConstant "rWn" (Character 1 3 () []))] (List (Character 1 3 () []))) (ListConstant [(StringConstant "LtT" (Character 1 3 () [])) (StringConstant "Dh5B" (Character 1 4 () [])) (StringConstant "M" (Character 1 1 () [])) (StringConstant "F" (Character 1 1 () [])) (StringConstant "QTARbY" (Character 1 6 () []))] (List (Character 1 3 () []))) (ListConstant [(StringConstant "Sh" (Character 1 2 () [])) (StringConstant "WL" (Character 1 2 () [])) (StringConstant "yvAfWvZSx1" (Character 1 10 () [])) (StringConstant "90yx" (Character 1 4 () [])) (StringConstant "v" (Character 1 1 () []))] (List (Character 1 2 () []))) (ListConstant [(StringConstant "" (Character 1 0 () [])) (StringConstant "7IBW" (Character 1 4 () [])) (StringConstant "nI" (Character 1 2 () [])) (StringConstant "" (Character 1 0 () [])) (StringConstant "6Cbp5c8RT" (Character 1 9 () []))] (List (Character 1 0 () [])))] (List (List (Character 1 7 () []))))] (List (List (List (Character 1 2 () []))))) ()) (Print () [(StringConstant "[" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (DoLoop ((Var 5 __list_iterator) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (ListLen (Var 5 p) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(Print () [(StringConstant "[" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (DoLoop ((Var 5 __list_iterator1) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (ListLen (ListItem (Var 5 p) (Var 5 __list_iterator) (List (Integer 4 [])) ()) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(Print () [(ListItem (ListItem (Var 5 p) (Var 5 __list_iterator) (List (Integer 4 [])) ()) (Var 5 __list_iterator1) (Integer 4 []) ())] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () []))) (If (IntegerCompare (Var 5 __list_iterator1) Lt (IntegerBinOp (ListLen (ListItem (Var 5 p) (Var 5 __list_iterator) (List (Integer 4 [])) ()) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (Logical 4 []) ()) [(Print () [(StringConstant ", " (Character 1 2 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () [])))] [])]) (Print () [(StringConstant "]" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (If (IntegerCompare (Var 5 __list_iterator) Lt (IntegerBinOp (ListLen (Var 5 p) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (Logical 4 []) ()) [(Print () [(StringConstant ", " (Character 1 2 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () [])))] [])]) (Print () [(StringConstant "]" (Character 1 1 () []))] () ()) (Print () [(StringConstant "[" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (DoLoop ((Var 5 __list_iterator2) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (ListLen (Var 5 q) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(Print () [(StringConstant "[" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (DoLoop ((Var 5 __list_iterator3) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (ListLen (ListItem (Var 5 q) (Var 5 __list_iterator2) (List (List (List (Real 8 [])))) ()) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(Print () [(StringConstant "[" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (DoLoop ((Var 5 __list_iterator4) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (ListLen (ListItem (ListItem (Var 5 q) (Var 5 __list_iterator2) (List (List (List (Real 8 [])))) ()) (Var 5 __list_iterator3) (List (List (Real 8 []))) ()) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(Print () [(StringConstant "[" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (DoLoop ((Var 5 __list_iterator5) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (ListLen (ListItem (ListItem (ListItem (Var 5 q) (Var 5 __list_iterator2) (List (List (List (Real 8 [])))) ()) (Var 5 __list_iterator3) (List (List (Real 8 []))) ()) (Var 5 __list_iterator4) (List (Real 8 [])) ()) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(Print () [(ListItem (ListItem (ListItem (ListItem (Var 5 q) (Var 5 __list_iterator2) (List (List (List (Real 8 [])))) ()) (Var 5 __list_iterator3) (List (List (Real 8 []))) ()) (Var 5 __list_iterator4) (List (Real 8 [])) ()) (Var 5 __list_iterator5) (Real 8 []) ())] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () []))) (If (IntegerCompare (Var 5 __list_iterator5) Lt (IntegerBinOp (ListLen (ListItem (ListItem (ListItem (Var 5 q) (Var 5 __list_iterator2) (List (List (List (Real 8 [])))) ()) (Var 5 __list_iterator3) (List (List (Real 8 []))) ()) (Var 5 __list_iterator4) (List (Real 8 [])) ()) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (Logical 4 []) ()) [(Print () [(StringConstant ", " (Character 1 2 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () [])))] [])]) (Print () [(StringConstant "]" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (If (IntegerCompare (Var 5 __list_iterator4) Lt (IntegerBinOp (ListLen (ListItem (ListItem (Var 5 q) (Var 5 __list_iterator2) (List (List (List (Real 8 [])))) ()) (Var 5 __list_iterator3) (List (List (Real 8 []))) ()) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (Logical 4 []) ()) [(Print () [(StringConstant ", " (Character 1 2 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () [])))] [])]) (Print () [(StringConstant "]" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (If (IntegerCompare (Var 5 __list_iterator3) Lt (IntegerBinOp (ListLen (ListItem (Var 5 q) (Var 5 __list_iterator2) (List (List (List (Real 8 [])))) ()) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (Logical 4 []) ()) [(Print () [(StringConstant ", " (Character 1 2 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () [])))] [])]) (Print () [(StringConstant "]" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (If (IntegerCompare (Var 5 __list_iterator2) Lt (IntegerBinOp (ListLen (Var 5 q) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (Logical 4 []) ()) [(Print () [(StringConstant ", " (Character 1 2 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () [])))] [])]) (Print () [(StringConstant "]" (Character 1 1 () []))] () ()) (Print () [(StringConstant "[" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (DoLoop ((Var 5 __list_iterator6) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (ListLen (Var 5 r) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(Print () [(StringConstant "[" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (DoLoop ((Var 5 __list_iterator7) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (ListLen (ListItem (Var 5 r) (Var 5 __list_iterator6) (List (List (Character 1 -2 () []))) ()) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(Print () [(StringConstant "[" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (DoLoop ((Var 5 __list_iterator8) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (ListLen (ListItem (ListItem (Var 5 r) (Var 5 __list_iterator6) (List (List (Character 1 -2 () []))) ()) (Var 5 __list_iterator7) (List (Character 1 -2 () [])) ()) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(Print () [(StringConstant "'" (Character 1 1 () [])) (ListItem (ListItem (ListItem (Var 5 r) (Var 5 __list_iterator6) (List (List (Character 1 -2 () []))) ()) (Var 5 __list_iterator7) (List (Character 1 -2 () [])) ()) (Var 5 __list_iterator8) (Character 1 -2 () []) ()) (StringConstant "'" (Character 1 1 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () []))) (If (IntegerCompare (Var 5 __list_iterator8) Lt (IntegerBinOp (ListLen (ListItem (ListItem (Var 5 r) (Var 5 __list_iterator6) (List (List (Character 1 -2 () []))) ()) (Var 5 __list_iterator7) (List (Character 1 -2 () [])) ()) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (Logical 4 []) ()) [(Print () [(StringConstant ", " (Character 1 2 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () [])))] [])]) (Print () [(StringConstant "]" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (If (IntegerCompare (Var 5 __list_iterator7) Lt (IntegerBinOp (ListLen (ListItem (Var 5 r) (Var 5 __list_iterator6) (List (List (Character 1 -2 () []))) ()) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (Logical 4 []) ()) [(Print () [(StringConstant ", " (Character 1 2 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () [])))] [])]) (Print () [(StringConstant "]" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (If (IntegerCompare (Var 5 __list_iterator6) Lt (IntegerBinOp (ListLen (Var 5 r) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (Logical 4 []) ()) [(Print () [(StringConstant ", " (Character 1 2 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () [])))] [])]) (Print () [(StringConstant "]" (Character 1 1 () []))] () ())] () Public .false. .false.), test_print_list_tuple: (Function (SymbolTable 4 {__list_iterator: (Variable 4 __list_iterator [] Local () () Default (Integer 4 []) Source Public Required .false.), __list_iterator1: (Variable 4 __list_iterator1 [] Local () () Default (Integer 4 []) Source Public Required .false.), __list_iterator2: (Variable 4 __list_iterator2 [] Local () () Default (Integer 4 []) Source Public Required .false.), __list_iterator3: (Variable 4 __list_iterator3 [] Local () () Default (Integer 4 []) Source Public Required .false.), __list_iterator4: (Variable 4 __list_iterator4 [] Local () () Default (Integer 4 []) Source Public Required .false.), __list_iterator5: (Variable 4 __list_iterator5 [] Local () () Default (Integer 4 []) Source Public Required .false.), __list_iterator6: (Variable 4 __list_iterator6 [] Local () () Default (Integer 4 []) Source Public Required .false.), a: (Variable 4 a [] Local () () Default (List (Tuple [(Integer 4 []) (Integer 4 [])])) Source Public Required .false.), b: (Variable 4 b [] Local () () Default (Tuple [(List (Character 1 -2 () [])) (List (Integer 4 [])) (Real 8 [])]) Source Public Required .false.), b1: (Variable 4 b1 [] Local () () Default (List (Character 1 -2 () [])) Source Public Required .false.), b2: (Variable 4 b2 [] Local () () Default (List (Integer 4 [])) Source Public Required .false.), c: (Variable 4 c [] Local () () Default (List (List (Tuple [(Integer 4 []) (Character 1 -2 () [])]))) Source Public Required .false.)}) test_print_list_tuple (FunctionType [] () Source Implementation () .false. .false. .false. .false. .false. [] [] .false.) [] [] [(= (Var 4 a) (ListConstant [(TupleConstant [(IntegerConstant 1 (Integer 4 [])) (IntegerConstant 2 (Integer 4 []))] (Tuple [(Integer 4 []) (Integer 4 [])])) (TupleConstant [(IntegerConstant 3 (Integer 4 [])) (IntegerConstant 4 (Integer 4 []))] (Tuple [(Integer 4 []) (Integer 4 [])])) (TupleConstant [(IntegerConstant 5 (Integer 4 [])) (IntegerConstant 6 (Integer 4 []))] (Tuple [(Integer 4 []) (Integer 4 [])]))] (List (Tuple [(Integer 4 []) (Integer 4 [])]))) ()) (= (Var 4 c) (ListConstant [(ListConstant [(TupleConstant [(IntegerConstant 1 (Integer 4 [])) (StringConstant "a" (Character 1 1 () []))] (Tuple [(Integer 4 []) (Character 1 1 () [])])) (TupleConstant [(IntegerConstant 2 (Integer 4 [])) (StringConstant "b" (Character 1 1 () []))] (Tuple [(Integer 4 []) (Character 1 1 () [])]))] (List (Tuple [(Integer 4 []) (Character 1 1 () [])]))) (ListConstant [(TupleConstant [(IntegerConstant 3 (Integer 4 [])) (StringConstant "c" (Character 1 1 () []))] (Tuple [(Integer 4 []) (Character 1 1 () [])])) (TupleConstant [(IntegerConstant 4 (Integer 4 [])) (StringConstant "d" (Character 1 1 () []))] (Tuple [(Integer 4 []) (Character 1 1 () [])]))] (List (Tuple [(Integer 4 []) (Character 1 1 () [])])))] (List (List (Tuple [(Integer 4 []) (Character 1 1 () [])])))) ()) (= (Var 4 b1) (ListConstant [(StringConstant "a" (Character 1 1 () [])) (StringConstant "bb" (Character 1 2 () [])) (StringConstant "ccc" (Character 1 3 () [])) (StringConstant "dddd" (Character 1 4 () [])) (StringConstant "eeeee" (Character 1 5 () []))] (List (Character 1 1 () []))) ()) (= (Var 4 b2) (ListConstant [(IntegerConstant 10 (Integer 4 [])) (IntegerConstant 20 (Integer 4 [])) (IntegerConstant 30 (Integer 4 [])) (IntegerConstant 40 (Integer 4 []))] (List (Integer 4 []))) ()) (= (Var 4 b) (TupleConstant [(Var 4 b1) (Var 4 b2) (RealConstant 6.030500 (Real 8 []))] (Tuple [(List (Character 1 -2 () [])) (List (Integer 4 [])) (Real 8 [])])) ()) (Print () [(StringConstant "[" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (DoLoop ((Var 4 __list_iterator) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (ListLen (Var 4 a) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(Print () [(StringConstant "(" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (Print () [(TupleItem (ListItem (Var 4 a) (Var 4 __list_iterator) (Tuple [(Integer 4 []) (Integer 4 [])]) ()) (IntegerConstant 0 (Integer 4 [])) (Integer 4 []) ())] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () []))) (Print () [(StringConstant ", " (Character 1 2 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () []))) (Print () [(TupleItem (ListItem (Var 4 a) (Var 4 __list_iterator) (Tuple [(Integer 4 []) (Integer 4 [])]) ()) (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ())] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () []))) (Print () [(StringConstant ")" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (If (IntegerCompare (Var 4 __list_iterator) Lt (IntegerBinOp (ListLen (Var 4 a) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (Logical 4 []) ()) [(Print () [(StringConstant ", " (Character 1 2 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () [])))] [])]) (Print () [(StringConstant "]" (Character 1 1 () []))] () ()) (Print () [(StringConstant "(" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (Print () [(StringConstant "[" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (DoLoop ((Var 4 __list_iterator1) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (ListLen (TupleItem (Var 4 b) (IntegerConstant 0 (Integer 4 [])) (List (Character 1 -2 () [])) ()) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(Print () [(StringConstant "'" (Character 1 1 () [])) (ListItem (TupleItem (Var 4 b) (IntegerConstant 0 (Integer 4 [])) (List (Character 1 -2 () [])) ()) (Var 4 __list_iterator1) (Character 1 -2 () []) ()) (StringConstant "'" (Character 1 1 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () []))) (If (IntegerCompare (Var 4 __list_iterator1) Lt (IntegerBinOp (ListLen (TupleItem (Var 4 b) (IntegerConstant 0 (Integer 4 [])) (List (Character 1 -2 () [])) ()) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (Logical 4 []) ()) [(Print () [(StringConstant ", " (Character 1 2 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () [])))] [])]) (Print () [(StringConstant "]" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (Print () [(StringConstant ", " (Character 1 2 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () []))) (Print () [(StringConstant "[" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (DoLoop ((Var 4 __list_iterator2) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (ListLen (TupleItem (Var 4 b) (IntegerConstant 1 (Integer 4 [])) (List (Integer 4 [])) ()) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(Print () [(ListItem (TupleItem (Var 4 b) (IntegerConstant 1 (Integer 4 [])) (List (Integer 4 [])) ()) (Var 4 __list_iterator2) (Integer 4 []) ())] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () []))) (If (IntegerCompare (Var 4 __list_iterator2) Lt (IntegerBinOp (ListLen (TupleItem (Var 4 b) (IntegerConstant 1 (Integer 4 [])) (List (Integer 4 [])) ()) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (Logical 4 []) ()) [(Print () [(StringConstant ", " (Character 1 2 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () [])))] [])]) (Print () [(StringConstant "]" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (Print () [(StringConstant ", " (Character 1 2 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () []))) (Print () [(TupleItem (Var 4 b) (IntegerConstant 2 (Integer 4 [])) (Real 8 []) ())] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () []))) (Print () [(StringConstant ")" (Character 1 1 () []))] () ()) (Print () [(StringConstant "[" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (DoLoop ((Var 4 __list_iterator3) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (ListLen (Var 4 c) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(Print () [(StringConstant "[" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (DoLoop ((Var 4 __list_iterator4) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (ListLen (ListItem (Var 4 c) (Var 4 __list_iterator3) (List (Tuple [(Integer 4 []) (Character 1 -2 () [])])) ()) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(Print () [(StringConstant "(" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (Print () [(TupleItem (ListItem (ListItem (Var 4 c) (Var 4 __list_iterator3) (List (Tuple [(Integer 4 []) (Character 1 -2 () [])])) ()) (Var 4 __list_iterator4) (Tuple [(Integer 4 []) (Character 1 -2 () [])]) ()) (IntegerConstant 0 (Integer 4 [])) (Integer 4 []) ())] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () []))) (Print () [(StringConstant ", " (Character 1 2 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () []))) (Print () [(StringConstant "'" (Character 1 1 () [])) (TupleItem (ListItem (ListItem (Var 4 c) (Var 4 __list_iterator3) (List (Tuple [(Integer 4 []) (Character 1 -2 () [])])) ()) (Var 4 __list_iterator4) (Tuple [(Integer 4 []) (Character 1 -2 () [])]) ()) (IntegerConstant 1 (Integer 4 [])) (Character 1 -2 () []) ()) (StringConstant "'" (Character 1 1 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () []))) (Print () [(StringConstant ")" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (If (IntegerCompare (Var 4 __list_iterator4) Lt (IntegerBinOp (ListLen (ListItem (Var 4 c) (Var 4 __list_iterator3) (List (Tuple [(Integer 4 []) (Character 1 -2 () [])])) ()) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (Logical 4 []) ()) [(Print () [(StringConstant ", " (Character 1 2 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () [])))] [])]) (Print () [(StringConstant "]" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (If (IntegerCompare (Var 4 __list_iterator3) Lt (IntegerBinOp (ListLen (Var 4 c) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (Logical 4 []) ()) [(Print () [(StringConstant ", " (Character 1 2 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () [])))] [])]) (Print () [(StringConstant "]" (Character 1 1 () []))] () ()) (Print () [(StringConstant "[" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (DoLoop ((Var 4 __list_iterator5) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (ListLen (Var 4 b1) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(Print () [(StringConstant "'" (Character 1 1 () [])) (ListItem (Var 4 b1) (Var 4 __list_iterator5) (Character 1 -2 () []) ()) (StringConstant "'" (Character 1 1 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () []))) (If (IntegerCompare (Var 4 __list_iterator5) Lt (IntegerBinOp (ListLen (Var 4 b1) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (Logical 4 []) ()) [(Print () [(StringConstant ", " (Character 1 2 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () [])))] [])]) (Print () [(StringConstant "]" (Character 1 1 () []))] () ()) (Print () [(StringConstant "[" (Character 1 1 () []))] () (StringConstant "" (Character 1 0 () []))) (DoLoop ((Var 4 __list_iterator6) (IntegerConstant 0 (Integer 4 [])) (IntegerBinOp (ListLen (Var 4 b2) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (IntegerConstant 1 (Integer 4 []))) [(Print () [(ListItem (Var 4 b2) (Var 4 __list_iterator6) (Integer 4 []) ())] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () []))) (If (IntegerCompare (Var 4 __list_iterator6) Lt (IntegerBinOp (ListLen (Var 4 b2) (Integer 4 []) ()) Sub (IntegerConstant 1 (Integer 4 [])) (Integer 4 []) ()) (Logical 4 []) ()) [(Print () [(StringConstant ", " (Character 1 2 () []))] (StringConstant "" (Character 1 0 () [])) (StringConstant "" (Character 1 0 () [])))] [])]) (Print () [(StringConstant "]" (Character 1 1 () []))] () ()) (Print () [(RealConstant 3.420000 (Real 8 [])) (StringConstant "okay" (Character 1 4 () [])) (LogicalConstant .true. (Logical 4 [])) (IntegerConstant 14483 (Integer 4 []))] () ())] () Public .false. .false.)}) [])
diff --git a/tests/reference/pass_print_list_tuple-print_02-09600eb.json b/tests/reference/pass_print_list_tuple-print_02-09600eb.json
new file mode 100644
index 0000000000..171e8ff3a4
--- /dev/null
+++ b/tests/reference/pass_print_list_tuple-print_02-09600eb.json
@@ -0,0 +1,13 @@
+{
+    "basename": "pass_print_list_tuple-print_02-09600eb",
+    "cmd": "lpython --pass=print_list_tuple --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/../integration_tests/print_02.py",
+    "infile_hash": "c4513f1b2ab1a2f33a0784fe80b4d32b506c05799b0c920c4f5b0411",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": "pass_print_list_tuple-print_02-09600eb.stdout",
+    "stdout_hash": "45287b2b8687c93c743646c0f46a1df04b98717114b36fe5ded301c3",
+    "stderr": null,
+    "stderr_hash": null,
+    "returncode": 0
+}
\ No newline at end of file
diff --git a/tests/reference/pass_print_list_tuple-print_02-09600eb.stdout b/tests/reference/pass_print_list_tuple-print_02-09600eb.stdout
new file mode 100644
index 0000000000..0285cc6f12
--- /dev/null
+++ b/tests/reference/pass_print_list_tuple-print_02-09600eb.stdout
@@ -0,0 +1,8119 @@
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            __main__global_stmts:
+                                (Function
+                                    (SymbolTable
+                                        8
+                                        {
+                                            
+                                        })
+                                    __main__global_stmts
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [check]
+                                    []
+                                    [(SubroutineCall
+                                        2 check
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            check:
+                                (Function
+                                    (SymbolTable
+                                        7
+                                        {
+                                            
+                                        })
+                                    check
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [f
+                                    test_nested_lists
+                                    test_nested_lists2
+                                    test_print_list_tuple]
+                                    []
+                                    [(SubroutineCall
+                                        2 f
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )
+                                    (SubroutineCall
+                                        2 test_nested_lists
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )
+                                    (SubroutineCall
+                                        2 test_nested_lists2
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )
+                                    (SubroutineCall
+                                        2 test_print_list_tuple
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            f:
+                                (Function
+                                    (SymbolTable
+                                        3
+                                        {
+                                            __list_iterator:
+                                                (Variable
+                                                    3
+                                                    __list_iterator
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            __list_iterator1:
+                                                (Variable
+                                                    3
+                                                    __list_iterator1
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            __list_iterator10:
+                                                (Variable
+                                                    3
+                                                    __list_iterator10
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            __list_iterator11:
+                                                (Variable
+                                                    3
+                                                    __list_iterator11
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            __list_iterator12:
+                                                (Variable
+                                                    3
+                                                    __list_iterator12
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            __list_iterator13:
+                                                (Variable
+                                                    3
+                                                    __list_iterator13
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            __list_iterator14:
+                                                (Variable
+                                                    3
+                                                    __list_iterator14
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            __list_iterator15:
+                                                (Variable
+                                                    3
+                                                    __list_iterator15
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            __list_iterator16:
+                                                (Variable
+                                                    3
+                                                    __list_iterator16
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            __list_iterator17:
+                                                (Variable
+                                                    3
+                                                    __list_iterator17
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            __list_iterator18:
+                                                (Variable
+                                                    3
+                                                    __list_iterator18
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            __list_iterator2:
+                                                (Variable
+                                                    3
+                                                    __list_iterator2
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            __list_iterator3:
+                                                (Variable
+                                                    3
+                                                    __list_iterator3
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            __list_iterator4:
+                                                (Variable
+                                                    3
+                                                    __list_iterator4
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            __list_iterator5:
+                                                (Variable
+                                                    3
+                                                    __list_iterator5
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            __list_iterator6:
+                                                (Variable
+                                                    3
+                                                    __list_iterator6
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            __list_iterator7:
+                                                (Variable
+                                                    3
+                                                    __list_iterator7
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            __list_iterator8:
+                                                (Variable
+                                                    3
+                                                    __list_iterator8
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            __list_iterator9:
+                                                (Variable
+                                                    3
+                                                    __list_iterator9
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            a:
+                                                (Variable
+                                                    3
+                                                    a
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            b:
+                                                (Variable
+                                                    3
+                                                    b
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (List
+                                                        (Integer 4)
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            c:
+                                                (Variable
+                                                    3
+                                                    c
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (List
+                                                        (Real 8)
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            d:
+                                                (Variable
+                                                    3
+                                                    d
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (List
+                                                        (Integer 4)
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    f
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 3 a)
+                                        (ListConstant
+                                            [(StringConstant
+                                                "ab"
+                                                (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (StringConstant
+                                                "abc"
+                                                (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (StringConstant
+                                                "abcd"
+                                                (String 1 (IntegerConstant 4 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )]
+                                            (List
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 b)
+                                        (ListConstant
+                                            [(IntegerConstant 1 (Integer 4) Decimal)
+                                            (IntegerConstant 2 (Integer 4) Decimal)
+                                            (IntegerConstant 3 (Integer 4) Decimal)
+                                            (IntegerConstant 4 (Integer 4) Decimal)]
+                                            (List
+                                                (Integer 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 c)
+                                        (ListConstant
+                                            [(RealConstant
+                                                1.230000
+                                                (Real 8)
+                                            )
+                                            (RealConstant
+                                                324.300000
+                                                (Real 8)
+                                            )
+                                            (RealConstant
+                                                56.431000
+                                                (Real 8)
+                                            )
+                                            (RealConstant
+                                                90.500000
+                                                (Real 8)
+                                            )
+                                            (RealConstant
+                                                34.100000
+                                                (Real 8)
+                                            )]
+                                            (List
+                                                (Real 8)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 d)
+                                        (ListConstant
+                                            []
+                                            (List
+                                                (Integer 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "["
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 3 __list_iterator)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (ListLen
+                                                (Var 3 a)
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(Print
+                                            (ListItem
+                                                (Var 3 a)
+                                                (Var 3 __list_iterator)
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                                ()
+                                            )
+                                        )
+                                        (If
+                                            ()
+                                            (IntegerCompare
+                                                (Var 3 __list_iterator)
+                                                Lt
+                                                (IntegerBinOp
+                                                    (ListLen
+                                                        (Var 3 a)
+                                                        (Integer 4)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (IntegerConstant 1 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            [(Print
+                                                (StringConstant
+                                                    ", "
+                                                    (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                            )]
+                                            []
+                                        )]
+                                        []
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "]"
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "["
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 3 __list_iterator1)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (ListLen
+                                                (Var 3 b)
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(Print
+                                            (StringFormat
+                                                ()
+                                                [(ListItem
+                                                    (Var 3 b)
+                                                    (Var 3 __list_iterator1)
+                                                    (Integer 4)
+                                                    ()
+                                                )]
+                                                FormatFortran
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                                ()
+                                            )
+                                        )
+                                        (If
+                                            ()
+                                            (IntegerCompare
+                                                (Var 3 __list_iterator1)
+                                                Lt
+                                                (IntegerBinOp
+                                                    (ListLen
+                                                        (Var 3 b)
+                                                        (Integer 4)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (IntegerConstant 1 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            [(Print
+                                                (StringConstant
+                                                    ", "
+                                                    (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                            )]
+                                            []
+                                        )]
+                                        []
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "]"
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "["
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 3 __list_iterator2)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (ListLen
+                                                (Var 3 c)
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(Print
+                                            (StringFormat
+                                                ()
+                                                [(ListItem
+                                                    (Var 3 c)
+                                                    (Var 3 __list_iterator2)
+                                                    (Real 8)
+                                                    ()
+                                                )]
+                                                FormatFortran
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                                ()
+                                            )
+                                        )
+                                        (If
+                                            ()
+                                            (IntegerCompare
+                                                (Var 3 __list_iterator2)
+                                                Lt
+                                                (IntegerBinOp
+                                                    (ListLen
+                                                        (Var 3 c)
+                                                        (Integer 4)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (IntegerConstant 1 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            [(Print
+                                                (StringConstant
+                                                    ", "
+                                                    (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                            )]
+                                            []
+                                        )]
+                                        []
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "]"
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "["
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 3 __list_iterator3)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (ListLen
+                                                (Var 3 d)
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(Print
+                                            (StringFormat
+                                                ()
+                                                [(ListItem
+                                                    (Var 3 d)
+                                                    (Var 3 __list_iterator3)
+                                                    (Integer 4)
+                                                    ()
+                                                )]
+                                                FormatFortran
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                                ()
+                                            )
+                                        )
+                                        (If
+                                            ()
+                                            (IntegerCompare
+                                                (Var 3 __list_iterator3)
+                                                Lt
+                                                (IntegerBinOp
+                                                    (ListLen
+                                                        (Var 3 d)
+                                                        (Integer 4)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (IntegerConstant 1 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            [(Print
+                                                (StringConstant
+                                                    ", "
+                                                    (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                            )]
+                                            []
+                                        )]
+                                        []
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "]"
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "["
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 3 __list_iterator4)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (ListLen
+                                                (Var 3 a)
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(Print
+                                            (ListItem
+                                                (Var 3 a)
+                                                (Var 3 __list_iterator4)
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                                ()
+                                            )
+                                        )
+                                        (If
+                                            ()
+                                            (IntegerCompare
+                                                (Var 3 __list_iterator4)
+                                                Lt
+                                                (IntegerBinOp
+                                                    (ListLen
+                                                        (Var 3 a)
+                                                        (Integer 4)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (IntegerConstant 1 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            [(Print
+                                                (StringConstant
+                                                    ", "
+                                                    (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                            )]
+                                            []
+                                        )]
+                                        []
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "]"
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "["
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 3 __list_iterator5)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (ListLen
+                                                (Var 3 a)
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(Print
+                                            (ListItem
+                                                (Var 3 a)
+                                                (Var 3 __list_iterator5)
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                                ()
+                                            )
+                                        )
+                                        (If
+                                            ()
+                                            (IntegerCompare
+                                                (Var 3 __list_iterator5)
+                                                Lt
+                                                (IntegerBinOp
+                                                    (ListLen
+                                                        (Var 3 a)
+                                                        (Integer 4)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (IntegerConstant 1 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            [(Print
+                                                (StringConstant
+                                                    ", "
+                                                    (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                            )]
+                                            []
+                                        )]
+                                        []
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "]"
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "["
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 3 __list_iterator6)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (ListLen
+                                                (Var 3 b)
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(Print
+                                            (StringFormat
+                                                ()
+                                                [(ListItem
+                                                    (Var 3 b)
+                                                    (Var 3 __list_iterator6)
+                                                    (Integer 4)
+                                                    ()
+                                                )]
+                                                FormatFortran
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                                ()
+                                            )
+                                        )
+                                        (If
+                                            ()
+                                            (IntegerCompare
+                                                (Var 3 __list_iterator6)
+                                                Lt
+                                                (IntegerBinOp
+                                                    (ListLen
+                                                        (Var 3 b)
+                                                        (Integer 4)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (IntegerConstant 1 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            [(Print
+                                                (StringConstant
+                                                    ", "
+                                                    (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                            )]
+                                            []
+                                        )]
+                                        []
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "]"
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "["
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 3 __list_iterator7)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (ListLen
+                                                (Var 3 c)
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(Print
+                                            (StringFormat
+                                                ()
+                                                [(ListItem
+                                                    (Var 3 c)
+                                                    (Var 3 __list_iterator7)
+                                                    (Real 8)
+                                                    ()
+                                                )]
+                                                FormatFortran
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                                ()
+                                            )
+                                        )
+                                        (If
+                                            ()
+                                            (IntegerCompare
+                                                (Var 3 __list_iterator7)
+                                                Lt
+                                                (IntegerBinOp
+                                                    (ListLen
+                                                        (Var 3 c)
+                                                        (Integer 4)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (IntegerConstant 1 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            [(Print
+                                                (StringConstant
+                                                    ", "
+                                                    (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                            )]
+                                            []
+                                        )]
+                                        []
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "]"
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "["
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 3 __list_iterator8)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (ListLen
+                                                (Var 3 d)
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(Print
+                                            (StringFormat
+                                                ()
+                                                [(ListItem
+                                                    (Var 3 d)
+                                                    (Var 3 __list_iterator8)
+                                                    (Integer 4)
+                                                    ()
+                                                )]
+                                                FormatFortran
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                                ()
+                                            )
+                                        )
+                                        (If
+                                            ()
+                                            (IntegerCompare
+                                                (Var 3 __list_iterator8)
+                                                Lt
+                                                (IntegerBinOp
+                                                    (ListLen
+                                                        (Var 3 d)
+                                                        (Integer 4)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (IntegerConstant 1 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            [(Print
+                                                (StringConstant
+                                                    ", "
+                                                    (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                            )]
+                                            []
+                                        )]
+                                        []
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "]"
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "["
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 3 __list_iterator9)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (ListLen
+                                                (Var 3 a)
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(Print
+                                            (ListItem
+                                                (Var 3 a)
+                                                (Var 3 __list_iterator9)
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                                ()
+                                            )
+                                        )
+                                        (If
+                                            ()
+                                            (IntegerCompare
+                                                (Var 3 __list_iterator9)
+                                                Lt
+                                                (IntegerBinOp
+                                                    (ListLen
+                                                        (Var 3 a)
+                                                        (Integer 4)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (IntegerConstant 1 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            [(Print
+                                                (StringConstant
+                                                    ", "
+                                                    (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                            )]
+                                            []
+                                        )]
+                                        []
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "]"
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "["
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 3 __list_iterator10)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (ListLen
+                                                (Var 3 a)
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(Print
+                                            (ListItem
+                                                (Var 3 a)
+                                                (Var 3 __list_iterator10)
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                                ()
+                                            )
+                                        )
+                                        (If
+                                            ()
+                                            (IntegerCompare
+                                                (Var 3 __list_iterator10)
+                                                Lt
+                                                (IntegerBinOp
+                                                    (ListLen
+                                                        (Var 3 a)
+                                                        (Integer 4)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (IntegerConstant 1 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            [(Print
+                                                (StringConstant
+                                                    ", "
+                                                    (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                            )]
+                                            []
+                                        )]
+                                        []
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "]"
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(IntegerConstant 1 (Integer 4) Decimal)]
+                                            FormatFortran
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "["
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 3 __list_iterator11)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (ListLen
+                                                (Var 3 b)
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(Print
+                                            (StringFormat
+                                                ()
+                                                [(ListItem
+                                                    (Var 3 b)
+                                                    (Var 3 __list_iterator11)
+                                                    (Integer 4)
+                                                    ()
+                                                )]
+                                                FormatFortran
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                                ()
+                                            )
+                                        )
+                                        (If
+                                            ()
+                                            (IntegerCompare
+                                                (Var 3 __list_iterator11)
+                                                Lt
+                                                (IntegerBinOp
+                                                    (ListLen
+                                                        (Var 3 b)
+                                                        (Integer 4)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (IntegerConstant 1 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            [(Print
+                                                (StringConstant
+                                                    ", "
+                                                    (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                            )]
+                                            []
+                                        )]
+                                        []
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "]"
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "["
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 3 __list_iterator12)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (ListLen
+                                                (Var 3 c)
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(Print
+                                            (StringFormat
+                                                ()
+                                                [(ListItem
+                                                    (Var 3 c)
+                                                    (Var 3 __list_iterator12)
+                                                    (Real 8)
+                                                    ()
+                                                )]
+                                                FormatFortran
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                                ()
+                                            )
+                                        )
+                                        (If
+                                            ()
+                                            (IntegerCompare
+                                                (Var 3 __list_iterator12)
+                                                Lt
+                                                (IntegerBinOp
+                                                    (ListLen
+                                                        (Var 3 c)
+                                                        (Integer 4)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (IntegerConstant 1 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            [(Print
+                                                (StringConstant
+                                                    ", "
+                                                    (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                            )]
+                                            []
+                                        )]
+                                        []
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "]"
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(RealConstant
+                                                1.100000
+                                                (Real 8)
+                                            )]
+                                            FormatFortran
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "["
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 3 __list_iterator13)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (ListLen
+                                                (Var 3 d)
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(Print
+                                            (StringFormat
+                                                ()
+                                                [(ListItem
+                                                    (Var 3 d)
+                                                    (Var 3 __list_iterator13)
+                                                    (Integer 4)
+                                                    ()
+                                                )]
+                                                FormatFortran
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                                ()
+                                            )
+                                        )
+                                        (If
+                                            ()
+                                            (IntegerCompare
+                                                (Var 3 __list_iterator13)
+                                                Lt
+                                                (IntegerBinOp
+                                                    (ListLen
+                                                        (Var 3 d)
+                                                        (Integer 4)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (IntegerConstant 1 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            [(Print
+                                                (StringConstant
+                                                    ", "
+                                                    (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                            )]
+                                            []
+                                        )]
+                                        []
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "]"
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "["
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 3 __list_iterator14)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (ListLen
+                                                (ListConstant
+                                                    [(IntegerUnaryMinus
+                                                        (IntegerConstant 3 (Integer 4) Decimal)
+                                                        (Integer 4)
+                                                        (IntegerConstant -3 (Integer 4) Decimal)
+                                                    )
+                                                    (IntegerConstant 2 (Integer 4) Decimal)
+                                                    (IntegerConstant 1 (Integer 4) Decimal)
+                                                    (IntegerConstant 0 (Integer 4) Decimal)]
+                                                    (List
+                                                        (Integer 4)
+                                                    )
+                                                )
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(Print
+                                            (StringFormat
+                                                ()
+                                                [(ListItem
+                                                    (ListConstant
+                                                        [(IntegerUnaryMinus
+                                                            (IntegerConstant 3 (Integer 4) Decimal)
+                                                            (Integer 4)
+                                                            (IntegerConstant -3 (Integer 4) Decimal)
+                                                        )
+                                                        (IntegerConstant 2 (Integer 4) Decimal)
+                                                        (IntegerConstant 1 (Integer 4) Decimal)
+                                                        (IntegerConstant 0 (Integer 4) Decimal)]
+                                                        (List
+                                                            (Integer 4)
+                                                        )
+                                                    )
+                                                    (Var 3 __list_iterator14)
+                                                    (Integer 4)
+                                                    ()
+                                                )]
+                                                FormatFortran
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                                ()
+                                            )
+                                        )
+                                        (If
+                                            ()
+                                            (IntegerCompare
+                                                (Var 3 __list_iterator14)
+                                                Lt
+                                                (IntegerBinOp
+                                                    (ListLen
+                                                        (ListConstant
+                                                            [(IntegerUnaryMinus
+                                                                (IntegerConstant 3 (Integer 4) Decimal)
+                                                                (Integer 4)
+                                                                (IntegerConstant -3 (Integer 4) Decimal)
+                                                            )
+                                                            (IntegerConstant 2 (Integer 4) Decimal)
+                                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                                            (IntegerConstant 0 (Integer 4) Decimal)]
+                                                            (List
+                                                                (Integer 4)
+                                                            )
+                                                        )
+                                                        (Integer 4)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (IntegerConstant 1 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            [(Print
+                                                (StringConstant
+                                                    ", "
+                                                    (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                            )]
+                                            []
+                                        )]
+                                        []
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "]"
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "["
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 3 __list_iterator15)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (ListLen
+                                                (ListConstant
+                                                    [(StringConstant
+                                                        "a"
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "b"
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "c"
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "d"
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "e"
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "f"
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(Print
+                                            (ListItem
+                                                (ListConstant
+                                                    [(StringConstant
+                                                        "a"
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "b"
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "c"
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "d"
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "e"
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "f"
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )
+                                                (Var 3 __list_iterator15)
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                                ()
+                                            )
+                                        )
+                                        (If
+                                            ()
+                                            (IntegerCompare
+                                                (Var 3 __list_iterator15)
+                                                Lt
+                                                (IntegerBinOp
+                                                    (ListLen
+                                                        (ListConstant
+                                                            [(StringConstant
+                                                                "a"
+                                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                            )
+                                                            (StringConstant
+                                                                "b"
+                                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                            )
+                                                            (StringConstant
+                                                                "c"
+                                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                            )
+                                                            (StringConstant
+                                                                "d"
+                                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                            )
+                                                            (StringConstant
+                                                                "e"
+                                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                            )
+                                                            (StringConstant
+                                                                "f"
+                                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                            )]
+                                                            (List
+                                                                (Allocatable
+                                                                    (String 1 () DeferredLength DescriptorString)
+                                                                )
+                                                            )
+                                                        )
+                                                        (Integer 4)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (IntegerConstant 1 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            [(Print
+                                                (StringConstant
+                                                    ", "
+                                                    (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                            )]
+                                            []
+                                        )]
+                                        []
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "]"
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "["
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 3 __list_iterator16)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (ListLen
+                                                (ListConstant
+                                                    [(IntegerConstant 1 (Integer 4) Decimal)
+                                                    (IntegerConstant 2 (Integer 4) Decimal)
+                                                    (IntegerConstant 3 (Integer 4) Decimal)
+                                                    (IntegerConstant 4 (Integer 4) Decimal)]
+                                                    (List
+                                                        (Integer 4)
+                                                    )
+                                                )
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(Print
+                                            (StringFormat
+                                                ()
+                                                [(ListItem
+                                                    (ListConstant
+                                                        [(IntegerConstant 1 (Integer 4) Decimal)
+                                                        (IntegerConstant 2 (Integer 4) Decimal)
+                                                        (IntegerConstant 3 (Integer 4) Decimal)
+                                                        (IntegerConstant 4 (Integer 4) Decimal)]
+                                                        (List
+                                                            (Integer 4)
+                                                        )
+                                                    )
+                                                    (Var 3 __list_iterator16)
+                                                    (Integer 4)
+                                                    ()
+                                                )]
+                                                FormatFortran
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                                ()
+                                            )
+                                        )
+                                        (If
+                                            ()
+                                            (IntegerCompare
+                                                (Var 3 __list_iterator16)
+                                                Lt
+                                                (IntegerBinOp
+                                                    (ListLen
+                                                        (ListConstant
+                                                            [(IntegerConstant 1 (Integer 4) Decimal)
+                                                            (IntegerConstant 2 (Integer 4) Decimal)
+                                                            (IntegerConstant 3 (Integer 4) Decimal)
+                                                            (IntegerConstant 4 (Integer 4) Decimal)]
+                                                            (List
+                                                                (Integer 4)
+                                                            )
+                                                        )
+                                                        (Integer 4)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (IntegerConstant 1 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            [(Print
+                                                (StringConstant
+                                                    ", "
+                                                    (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                            )]
+                                            []
+                                        )]
+                                        []
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "]"
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "["
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 3 __list_iterator17)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (ListLen
+                                                (Var 3 a)
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(Print
+                                            (ListItem
+                                                (Var 3 a)
+                                                (Var 3 __list_iterator17)
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                                ()
+                                            )
+                                        )
+                                        (If
+                                            ()
+                                            (IntegerCompare
+                                                (Var 3 __list_iterator17)
+                                                Lt
+                                                (IntegerBinOp
+                                                    (ListLen
+                                                        (Var 3 a)
+                                                        (Integer 4)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (IntegerConstant 1 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            [(Print
+                                                (StringConstant
+                                                    ", "
+                                                    (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                            )]
+                                            []
+                                        )]
+                                        []
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "]"
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "["
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 3 __list_iterator18)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (ListLen
+                                                (Var 3 c)
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(Print
+                                            (StringFormat
+                                                ()
+                                                [(ListItem
+                                                    (Var 3 c)
+                                                    (Var 3 __list_iterator18)
+                                                    (Real 8)
+                                                    ()
+                                                )]
+                                                FormatFortran
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                                ()
+                                            )
+                                        )
+                                        (If
+                                            ()
+                                            (IntegerCompare
+                                                (Var 3 __list_iterator18)
+                                                Lt
+                                                (IntegerBinOp
+                                                    (ListLen
+                                                        (Var 3 c)
+                                                        (Integer 4)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (IntegerConstant 1 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            [(Print
+                                                (StringConstant
+                                                    ", "
+                                                    (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                            )]
+                                            []
+                                        )]
+                                        []
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "]"
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            test_nested_lists:
+                                (Function
+                                    (SymbolTable
+                                        4
+                                        {
+                                            __list_iterator:
+                                                (Variable
+                                                    4
+                                                    __list_iterator
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            __list_iterator1:
+                                                (Variable
+                                                    4
+                                                    __list_iterator1
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            __list_iterator10:
+                                                (Variable
+                                                    4
+                                                    __list_iterator10
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            __list_iterator11:
+                                                (Variable
+                                                    4
+                                                    __list_iterator11
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            __list_iterator2:
+                                                (Variable
+                                                    4
+                                                    __list_iterator2
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            __list_iterator3:
+                                                (Variable
+                                                    4
+                                                    __list_iterator3
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            __list_iterator4:
+                                                (Variable
+                                                    4
+                                                    __list_iterator4
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            __list_iterator5:
+                                                (Variable
+                                                    4
+                                                    __list_iterator5
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            __list_iterator6:
+                                                (Variable
+                                                    4
+                                                    __list_iterator6
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            __list_iterator7:
+                                                (Variable
+                                                    4
+                                                    __list_iterator7
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            __list_iterator8:
+                                                (Variable
+                                                    4
+                                                    __list_iterator8
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            __list_iterator9:
+                                                (Variable
+                                                    4
+                                                    __list_iterator9
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            w:
+                                                (Variable
+                                                    4
+                                                    w
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (List
+                                                        (List
+                                                            (List
+                                                                (List
+                                                                    (List
+                                                                        (Real 8)
+                                                                    )
+                                                                )
+                                                            )
+                                                        )
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            x:
+                                                (Variable
+                                                    4
+                                                    x
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (List
+                                                        (List
+                                                            (List
+                                                                (Integer 4)
+                                                            )
+                                                        )
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            y:
+                                                (Variable
+                                                    4
+                                                    y
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (List
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            z:
+                                                (Variable
+                                                    4
+                                                    z
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (List
+                                                        (List
+                                                            (Allocatable
+                                                                (String 1 () DeferredLength DescriptorString)
+                                                            )
+                                                        )
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test_nested_lists
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 4 w)
+                                        (ListConstant
+                                            [(ListConstant
+                                                [(ListConstant
+                                                    [(ListConstant
+                                                        [(ListConstant
+                                                            [(RealConstant
+                                                                2.130000
+                                                                (Real 8)
+                                                            )
+                                                            (RealUnaryMinus
+                                                                (RealConstant
+                                                                    98.170000
+                                                                    (Real 8)
+                                                                )
+                                                                (Real 8)
+                                                                (RealConstant
+                                                                    -98.170000
+                                                                    (Real 8)
+                                                                )
+                                                            )]
+                                                            (List
+                                                                (Real 8)
+                                                            )
+                                                        )]
+                                                        (List
+                                                            (List
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                    )]
+                                                    (List
+                                                        (List
+                                                            (List
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(ListConstant
+                                                        [(ListConstant
+                                                            [(RealConstant
+                                                                1.110000
+                                                                (Real 8)
+                                                            )]
+                                                            (List
+                                                                (Real 8)
+                                                            )
+                                                        )]
+                                                        (List
+                                                            (List
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                    )]
+                                                    (List
+                                                        (List
+                                                            (List
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                    )
+                                                )]
+                                                (List
+                                                    (List
+                                                        (List
+                                                            (List
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                    )
+                                                )
+                                            )]
+                                            (List
+                                                (List
+                                                    (List
+                                                        (List
+                                                            (List
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                    )
+                                                )
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 x)
+                                        (ListConstant
+                                            [(ListConstant
+                                                [(ListConstant
+                                                    [(IntegerConstant 3 (Integer 4) Decimal)
+                                                    (IntegerUnaryMinus
+                                                        (IntegerConstant 1 (Integer 4) Decimal)
+                                                        (Integer 4)
+                                                        (IntegerConstant -1 (Integer 4) Decimal)
+                                                    )]
+                                                    (List
+                                                        (Integer 4)
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(IntegerUnaryMinus
+                                                        (IntegerConstant 2 (Integer 4) Decimal)
+                                                        (Integer 4)
+                                                        (IntegerConstant -2 (Integer 4) Decimal)
+                                                    )
+                                                    (IntegerConstant 5 (Integer 4) Decimal)]
+                                                    (List
+                                                        (Integer 4)
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(IntegerConstant 5 (Integer 4) Decimal)]
+                                                    (List
+                                                        (Integer 4)
+                                                    )
+                                                )]
+                                                (List
+                                                    (List
+                                                        (Integer 4)
+                                                    )
+                                                )
+                                            )
+                                            (ListConstant
+                                                [(ListConstant
+                                                    [(IntegerUnaryMinus
+                                                        (IntegerConstant 3 (Integer 4) Decimal)
+                                                        (Integer 4)
+                                                        (IntegerConstant -3 (Integer 4) Decimal)
+                                                    )
+                                                    (IntegerConstant 1 (Integer 4) Decimal)]
+                                                    (List
+                                                        (Integer 4)
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(IntegerConstant 2 (Integer 4) Decimal)
+                                                    (IntegerUnaryMinus
+                                                        (IntegerConstant 5 (Integer 4) Decimal)
+                                                        (Integer 4)
+                                                        (IntegerConstant -5 (Integer 4) Decimal)
+                                                    )]
+                                                    (List
+                                                        (Integer 4)
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(IntegerUnaryMinus
+                                                        (IntegerConstant 5 (Integer 4) Decimal)
+                                                        (Integer 4)
+                                                        (IntegerConstant -5 (Integer 4) Decimal)
+                                                    )]
+                                                    (List
+                                                        (Integer 4)
+                                                    )
+                                                )]
+                                                (List
+                                                    (List
+                                                        (Integer 4)
+                                                    )
+                                                )
+                                            )]
+                                            (List
+                                                (List
+                                                    (List
+                                                        (Integer 4)
+                                                    )
+                                                )
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 y)
+                                        (ListConstant
+                                            [(ListConstant
+                                                [(RealConstant
+                                                    3.140000
+                                                    (Real 8)
+                                                )
+                                                (RealUnaryMinus
+                                                    (RealConstant
+                                                        1.001200
+                                                        (Real 8)
+                                                    )
+                                                    (Real 8)
+                                                    (RealConstant
+                                                        -1.001200
+                                                        (Real 8)
+                                                    )
+                                                )]
+                                                (List
+                                                    (Real 8)
+                                                )
+                                            )
+                                            (ListConstant
+                                                [(RealUnaryMinus
+                                                    (RealConstant
+                                                        2.380000
+                                                        (Real 8)
+                                                    )
+                                                    (Real 8)
+                                                    (RealConstant
+                                                        -2.380000
+                                                        (Real 8)
+                                                    )
+                                                )
+                                                (RealConstant
+                                                    5.510000
+                                                    (Real 8)
+                                                )]
+                                                (List
+                                                    (Real 8)
+                                                )
+                                            )]
+                                            (List
+                                                (List
+                                                    (Real 8)
+                                                )
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 4 z)
+                                        (ListConstant
+                                            [(ListConstant
+                                                [(StringConstant
+                                                    "bat"
+                                                    (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                                (StringConstant
+                                                    "ball"
+                                                    (String 1 (IntegerConstant 4 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )]
+                                                (List
+                                                    (Allocatable
+                                                        (String 1 () DeferredLength DescriptorString)
+                                                    )
+                                                )
+                                            )
+                                            (ListConstant
+                                                [(StringConstant
+                                                    "cat"
+                                                    (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                                (StringConstant
+                                                    "dog"
+                                                    (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )]
+                                                (List
+                                                    (Allocatable
+                                                        (String 1 () DeferredLength DescriptorString)
+                                                    )
+                                                )
+                                            )
+                                            (ListConstant
+                                                [(StringConstant
+                                                    "c"
+                                                    (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                                (StringConstant
+                                                    "c++"
+                                                    (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                                (StringConstant
+                                                    "java"
+                                                    (String 1 (IntegerConstant 4 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                                (StringConstant
+                                                    "python"
+                                                    (String 1 (IntegerConstant 6 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )]
+                                                (List
+                                                    (Allocatable
+                                                        (String 1 () DeferredLength DescriptorString)
+                                                    )
+                                                )
+                                            )]
+                                            (List
+                                                (List
+                                                    (Allocatable
+                                                        (String 1 () DeferredLength DescriptorString)
+                                                    )
+                                                )
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "["
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 4 __list_iterator)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (ListLen
+                                                (Var 4 w)
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(Print
+                                            (StringConstant
+                                                "["
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                        )
+                                        (DoLoop
+                                            ()
+                                            ((Var 4 __list_iterator1)
+                                            (IntegerConstant 0 (Integer 4) Decimal)
+                                            (IntegerBinOp
+                                                (ListLen
+                                                    (ListItem
+                                                        (Var 4 w)
+                                                        (Var 4 __list_iterator)
+                                                        (List
+                                                            (List
+                                                                (List
+                                                                    (List
+                                                                        (Real 8)
+                                                                    )
+                                                                )
+                                                            )
+                                                        )
+                                                        ()
+                                                    )
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                Sub
+                                                (IntegerConstant 1 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            (IntegerConstant 1 (Integer 4) Decimal))
+                                            [(Print
+                                                (StringConstant
+                                                    "["
+                                                    (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                            )
+                                            (DoLoop
+                                                ()
+                                                ((Var 4 __list_iterator2)
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerBinOp
+                                                    (ListLen
+                                                        (ListItem
+                                                            (ListItem
+                                                                (Var 4 w)
+                                                                (Var 4 __list_iterator)
+                                                                (List
+                                                                    (List
+                                                                        (List
+                                                                            (List
+                                                                                (Real 8)
+                                                                            )
+                                                                        )
+                                                                    )
+                                                                )
+                                                                ()
+                                                            )
+                                                            (Var 4 __list_iterator1)
+                                                            (List
+                                                                (List
+                                                                    (List
+                                                                        (Real 8)
+                                                                    )
+                                                                )
+                                                            )
+                                                            ()
+                                                        )
+                                                        (Integer 4)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (IntegerConstant 1 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                (IntegerConstant 1 (Integer 4) Decimal))
+                                                [(Print
+                                                    (StringConstant
+                                                        "["
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                )
+                                                (DoLoop
+                                                    ()
+                                                    ((Var 4 __list_iterator3)
+                                                    (IntegerConstant 0 (Integer 4) Decimal)
+                                                    (IntegerBinOp
+                                                        (ListLen
+                                                            (ListItem
+                                                                (ListItem
+                                                                    (ListItem
+                                                                        (Var 4 w)
+                                                                        (Var 4 __list_iterator)
+                                                                        (List
+                                                                            (List
+                                                                                (List
+                                                                                    (List
+                                                                                        (Real 8)
+                                                                                    )
+                                                                                )
+                                                                            )
+                                                                        )
+                                                                        ()
+                                                                    )
+                                                                    (Var 4 __list_iterator1)
+                                                                    (List
+                                                                        (List
+                                                                            (List
+                                                                                (Real 8)
+                                                                            )
+                                                                        )
+                                                                    )
+                                                                    ()
+                                                                )
+                                                                (Var 4 __list_iterator2)
+                                                                (List
+                                                                    (List
+                                                                        (Real 8)
+                                                                    )
+                                                                )
+                                                                ()
+                                                            )
+                                                            (Integer 4)
+                                                            ()
+                                                        )
+                                                        Sub
+                                                        (IntegerConstant 1 (Integer 4) Decimal)
+                                                        (Integer 4)
+                                                        ()
+                                                    )
+                                                    (IntegerConstant 1 (Integer 4) Decimal))
+                                                    [(Print
+                                                        (StringConstant
+                                                            "["
+                                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                        )
+                                                    )
+                                                    (DoLoop
+                                                        ()
+                                                        ((Var 4 __list_iterator4)
+                                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                                        (IntegerBinOp
+                                                            (ListLen
+                                                                (ListItem
+                                                                    (ListItem
+                                                                        (ListItem
+                                                                            (ListItem
+                                                                                (Var 4 w)
+                                                                                (Var 4 __list_iterator)
+                                                                                (List
+                                                                                    (List
+                                                                                        (List
+                                                                                            (List
+                                                                                                (Real 8)
+                                                                                            )
+                                                                                        )
+                                                                                    )
+                                                                                )
+                                                                                ()
+                                                                            )
+                                                                            (Var 4 __list_iterator1)
+                                                                            (List
+                                                                                (List
+                                                                                    (List
+                                                                                        (Real 8)
+                                                                                    )
+                                                                                )
+                                                                            )
+                                                                            ()
+                                                                        )
+                                                                        (Var 4 __list_iterator2)
+                                                                        (List
+                                                                            (List
+                                                                                (Real 8)
+                                                                            )
+                                                                        )
+                                                                        ()
+                                                                    )
+                                                                    (Var 4 __list_iterator3)
+                                                                    (List
+                                                                        (Real 8)
+                                                                    )
+                                                                    ()
+                                                                )
+                                                                (Integer 4)
+                                                                ()
+                                                            )
+                                                            Sub
+                                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                                            (Integer 4)
+                                                            ()
+                                                        )
+                                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                                        [(Print
+                                                            (StringFormat
+                                                                ()
+                                                                [(ListItem
+                                                                    (ListItem
+                                                                        (ListItem
+                                                                            (ListItem
+                                                                                (ListItem
+                                                                                    (Var 4 w)
+                                                                                    (Var 4 __list_iterator)
+                                                                                    (List
+                                                                                        (List
+                                                                                            (List
+                                                                                                (List
+                                                                                                    (Real 8)
+                                                                                                )
+                                                                                            )
+                                                                                        )
+                                                                                    )
+                                                                                    ()
+                                                                                )
+                                                                                (Var 4 __list_iterator1)
+                                                                                (List
+                                                                                    (List
+                                                                                        (List
+                                                                                            (Real 8)
+                                                                                        )
+                                                                                    )
+                                                                                )
+                                                                                ()
+                                                                            )
+                                                                            (Var 4 __list_iterator2)
+                                                                            (List
+                                                                                (List
+                                                                                    (Real 8)
+                                                                                )
+                                                                            )
+                                                                            ()
+                                                                        )
+                                                                        (Var 4 __list_iterator3)
+                                                                        (List
+                                                                            (Real 8)
+                                                                        )
+                                                                        ()
+                                                                    )
+                                                                    (Var 4 __list_iterator4)
+                                                                    (Real 8)
+                                                                    ()
+                                                                )]
+                                                                FormatFortran
+                                                                (Allocatable
+                                                                    (String 1 () DeferredLength DescriptorString)
+                                                                )
+                                                                ()
+                                                            )
+                                                        )
+                                                        (If
+                                                            ()
+                                                            (IntegerCompare
+                                                                (Var 4 __list_iterator4)
+                                                                Lt
+                                                                (IntegerBinOp
+                                                                    (ListLen
+                                                                        (ListItem
+                                                                            (ListItem
+                                                                                (ListItem
+                                                                                    (ListItem
+                                                                                        (Var 4 w)
+                                                                                        (Var 4 __list_iterator)
+                                                                                        (List
+                                                                                            (List
+                                                                                                (List
+                                                                                                    (List
+                                                                                                        (Real 8)
+                                                                                                    )
+                                                                                                )
+                                                                                            )
+                                                                                        )
+                                                                                        ()
+                                                                                    )
+                                                                                    (Var 4 __list_iterator1)
+                                                                                    (List
+                                                                                        (List
+                                                                                            (List
+                                                                                                (Real 8)
+                                                                                            )
+                                                                                        )
+                                                                                    )
+                                                                                    ()
+                                                                                )
+                                                                                (Var 4 __list_iterator2)
+                                                                                (List
+                                                                                    (List
+                                                                                        (Real 8)
+                                                                                    )
+                                                                                )
+                                                                                ()
+                                                                            )
+                                                                            (Var 4 __list_iterator3)
+                                                                            (List
+                                                                                (Real 8)
+                                                                            )
+                                                                            ()
+                                                                        )
+                                                                        (Integer 4)
+                                                                        ()
+                                                                    )
+                                                                    Sub
+                                                                    (IntegerConstant 1 (Integer 4) Decimal)
+                                                                    (Integer 4)
+                                                                    ()
+                                                                )
+                                                                (Logical 4)
+                                                                ()
+                                                            )
+                                                            [(Print
+                                                                (StringConstant
+                                                                    ", "
+                                                                    (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                                )
+                                                            )]
+                                                            []
+                                                        )]
+                                                        []
+                                                    )
+                                                    (Print
+                                                        (StringConstant
+                                                            "]"
+                                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                        )
+                                                    )
+                                                    (If
+                                                        ()
+                                                        (IntegerCompare
+                                                            (Var 4 __list_iterator3)
+                                                            Lt
+                                                            (IntegerBinOp
+                                                                (ListLen
+                                                                    (ListItem
+                                                                        (ListItem
+                                                                            (ListItem
+                                                                                (Var 4 w)
+                                                                                (Var 4 __list_iterator)
+                                                                                (List
+                                                                                    (List
+                                                                                        (List
+                                                                                            (List
+                                                                                                (Real 8)
+                                                                                            )
+                                                                                        )
+                                                                                    )
+                                                                                )
+                                                                                ()
+                                                                            )
+                                                                            (Var 4 __list_iterator1)
+                                                                            (List
+                                                                                (List
+                                                                                    (List
+                                                                                        (Real 8)
+                                                                                    )
+                                                                                )
+                                                                            )
+                                                                            ()
+                                                                        )
+                                                                        (Var 4 __list_iterator2)
+                                                                        (List
+                                                                            (List
+                                                                                (Real 8)
+                                                                            )
+                                                                        )
+                                                                        ()
+                                                                    )
+                                                                    (Integer 4)
+                                                                    ()
+                                                                )
+                                                                Sub
+                                                                (IntegerConstant 1 (Integer 4) Decimal)
+                                                                (Integer 4)
+                                                                ()
+                                                            )
+                                                            (Logical 4)
+                                                            ()
+                                                        )
+                                                        [(Print
+                                                            (StringConstant
+                                                                ", "
+                                                                (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                            )
+                                                        )]
+                                                        []
+                                                    )]
+                                                    []
+                                                )
+                                                (Print
+                                                    (StringConstant
+                                                        "]"
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                )
+                                                (If
+                                                    ()
+                                                    (IntegerCompare
+                                                        (Var 4 __list_iterator2)
+                                                        Lt
+                                                        (IntegerBinOp
+                                                            (ListLen
+                                                                (ListItem
+                                                                    (ListItem
+                                                                        (Var 4 w)
+                                                                        (Var 4 __list_iterator)
+                                                                        (List
+                                                                            (List
+                                                                                (List
+                                                                                    (List
+                                                                                        (Real 8)
+                                                                                    )
+                                                                                )
+                                                                            )
+                                                                        )
+                                                                        ()
+                                                                    )
+                                                                    (Var 4 __list_iterator1)
+                                                                    (List
+                                                                        (List
+                                                                            (List
+                                                                                (Real 8)
+                                                                            )
+                                                                        )
+                                                                    )
+                                                                    ()
+                                                                )
+                                                                (Integer 4)
+                                                                ()
+                                                            )
+                                                            Sub
+                                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                                            (Integer 4)
+                                                            ()
+                                                        )
+                                                        (Logical 4)
+                                                        ()
+                                                    )
+                                                    [(Print
+                                                        (StringConstant
+                                                            ", "
+                                                            (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                        )
+                                                    )]
+                                                    []
+                                                )]
+                                                []
+                                            )
+                                            (Print
+                                                (StringConstant
+                                                    "]"
+                                                    (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                            )
+                                            (If
+                                                ()
+                                                (IntegerCompare
+                                                    (Var 4 __list_iterator1)
+                                                    Lt
+                                                    (IntegerBinOp
+                                                        (ListLen
+                                                            (ListItem
+                                                                (Var 4 w)
+                                                                (Var 4 __list_iterator)
+                                                                (List
+                                                                    (List
+                                                                        (List
+                                                                            (List
+                                                                                (Real 8)
+                                                                            )
+                                                                        )
+                                                                    )
+                                                                )
+                                                                ()
+                                                            )
+                                                            (Integer 4)
+                                                            ()
+                                                        )
+                                                        Sub
+                                                        (IntegerConstant 1 (Integer 4) Decimal)
+                                                        (Integer 4)
+                                                        ()
+                                                    )
+                                                    (Logical 4)
+                                                    ()
+                                                )
+                                                [(Print
+                                                    (StringConstant
+                                                        ", "
+                                                        (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                )]
+                                                []
+                                            )]
+                                            []
+                                        )
+                                        (Print
+                                            (StringConstant
+                                                "]"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                        )
+                                        (If
+                                            ()
+                                            (IntegerCompare
+                                                (Var 4 __list_iterator)
+                                                Lt
+                                                (IntegerBinOp
+                                                    (ListLen
+                                                        (Var 4 w)
+                                                        (Integer 4)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (IntegerConstant 1 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            [(Print
+                                                (StringConstant
+                                                    ", "
+                                                    (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                            )]
+                                            []
+                                        )]
+                                        []
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "]"
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "["
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 4 __list_iterator5)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (ListLen
+                                                (Var 4 x)
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(Print
+                                            (StringConstant
+                                                "["
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                        )
+                                        (DoLoop
+                                            ()
+                                            ((Var 4 __list_iterator6)
+                                            (IntegerConstant 0 (Integer 4) Decimal)
+                                            (IntegerBinOp
+                                                (ListLen
+                                                    (ListItem
+                                                        (Var 4 x)
+                                                        (Var 4 __list_iterator5)
+                                                        (List
+                                                            (List
+                                                                (Integer 4)
+                                                            )
+                                                        )
+                                                        ()
+                                                    )
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                Sub
+                                                (IntegerConstant 1 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            (IntegerConstant 1 (Integer 4) Decimal))
+                                            [(Print
+                                                (StringConstant
+                                                    "["
+                                                    (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                            )
+                                            (DoLoop
+                                                ()
+                                                ((Var 4 __list_iterator7)
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerBinOp
+                                                    (ListLen
+                                                        (ListItem
+                                                            (ListItem
+                                                                (Var 4 x)
+                                                                (Var 4 __list_iterator5)
+                                                                (List
+                                                                    (List
+                                                                        (Integer 4)
+                                                                    )
+                                                                )
+                                                                ()
+                                                            )
+                                                            (Var 4 __list_iterator6)
+                                                            (List
+                                                                (Integer 4)
+                                                            )
+                                                            ()
+                                                        )
+                                                        (Integer 4)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (IntegerConstant 1 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                (IntegerConstant 1 (Integer 4) Decimal))
+                                                [(Print
+                                                    (StringFormat
+                                                        ()
+                                                        [(ListItem
+                                                            (ListItem
+                                                                (ListItem
+                                                                    (Var 4 x)
+                                                                    (Var 4 __list_iterator5)
+                                                                    (List
+                                                                        (List
+                                                                            (Integer 4)
+                                                                        )
+                                                                    )
+                                                                    ()
+                                                                )
+                                                                (Var 4 __list_iterator6)
+                                                                (List
+                                                                    (Integer 4)
+                                                                )
+                                                                ()
+                                                            )
+                                                            (Var 4 __list_iterator7)
+                                                            (Integer 4)
+                                                            ()
+                                                        )]
+                                                        FormatFortran
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                        ()
+                                                    )
+                                                )
+                                                (If
+                                                    ()
+                                                    (IntegerCompare
+                                                        (Var 4 __list_iterator7)
+                                                        Lt
+                                                        (IntegerBinOp
+                                                            (ListLen
+                                                                (ListItem
+                                                                    (ListItem
+                                                                        (Var 4 x)
+                                                                        (Var 4 __list_iterator5)
+                                                                        (List
+                                                                            (List
+                                                                                (Integer 4)
+                                                                            )
+                                                                        )
+                                                                        ()
+                                                                    )
+                                                                    (Var 4 __list_iterator6)
+                                                                    (List
+                                                                        (Integer 4)
+                                                                    )
+                                                                    ()
+                                                                )
+                                                                (Integer 4)
+                                                                ()
+                                                            )
+                                                            Sub
+                                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                                            (Integer 4)
+                                                            ()
+                                                        )
+                                                        (Logical 4)
+                                                        ()
+                                                    )
+                                                    [(Print
+                                                        (StringConstant
+                                                            ", "
+                                                            (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                        )
+                                                    )]
+                                                    []
+                                                )]
+                                                []
+                                            )
+                                            (Print
+                                                (StringConstant
+                                                    "]"
+                                                    (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                            )
+                                            (If
+                                                ()
+                                                (IntegerCompare
+                                                    (Var 4 __list_iterator6)
+                                                    Lt
+                                                    (IntegerBinOp
+                                                        (ListLen
+                                                            (ListItem
+                                                                (Var 4 x)
+                                                                (Var 4 __list_iterator5)
+                                                                (List
+                                                                    (List
+                                                                        (Integer 4)
+                                                                    )
+                                                                )
+                                                                ()
+                                                            )
+                                                            (Integer 4)
+                                                            ()
+                                                        )
+                                                        Sub
+                                                        (IntegerConstant 1 (Integer 4) Decimal)
+                                                        (Integer 4)
+                                                        ()
+                                                    )
+                                                    (Logical 4)
+                                                    ()
+                                                )
+                                                [(Print
+                                                    (StringConstant
+                                                        ", "
+                                                        (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                )]
+                                                []
+                                            )]
+                                            []
+                                        )
+                                        (Print
+                                            (StringConstant
+                                                "]"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                        )
+                                        (If
+                                            ()
+                                            (IntegerCompare
+                                                (Var 4 __list_iterator5)
+                                                Lt
+                                                (IntegerBinOp
+                                                    (ListLen
+                                                        (Var 4 x)
+                                                        (Integer 4)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (IntegerConstant 1 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            [(Print
+                                                (StringConstant
+                                                    ", "
+                                                    (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                            )]
+                                            []
+                                        )]
+                                        []
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "]"
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "["
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 4 __list_iterator8)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (ListLen
+                                                (Var 4 y)
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(Print
+                                            (StringConstant
+                                                "["
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                        )
+                                        (DoLoop
+                                            ()
+                                            ((Var 4 __list_iterator9)
+                                            (IntegerConstant 0 (Integer 4) Decimal)
+                                            (IntegerBinOp
+                                                (ListLen
+                                                    (ListItem
+                                                        (Var 4 y)
+                                                        (Var 4 __list_iterator8)
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                        ()
+                                                    )
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                Sub
+                                                (IntegerConstant 1 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            (IntegerConstant 1 (Integer 4) Decimal))
+                                            [(Print
+                                                (StringFormat
+                                                    ()
+                                                    [(ListItem
+                                                        (ListItem
+                                                            (Var 4 y)
+                                                            (Var 4 __list_iterator8)
+                                                            (List
+                                                                (Real 8)
+                                                            )
+                                                            ()
+                                                        )
+                                                        (Var 4 __list_iterator9)
+                                                        (Real 8)
+                                                        ()
+                                                    )]
+                                                    FormatFortran
+                                                    (Allocatable
+                                                        (String 1 () DeferredLength DescriptorString)
+                                                    )
+                                                    ()
+                                                )
+                                            )
+                                            (If
+                                                ()
+                                                (IntegerCompare
+                                                    (Var 4 __list_iterator9)
+                                                    Lt
+                                                    (IntegerBinOp
+                                                        (ListLen
+                                                            (ListItem
+                                                                (Var 4 y)
+                                                                (Var 4 __list_iterator8)
+                                                                (List
+                                                                    (Real 8)
+                                                                )
+                                                                ()
+                                                            )
+                                                            (Integer 4)
+                                                            ()
+                                                        )
+                                                        Sub
+                                                        (IntegerConstant 1 (Integer 4) Decimal)
+                                                        (Integer 4)
+                                                        ()
+                                                    )
+                                                    (Logical 4)
+                                                    ()
+                                                )
+                                                [(Print
+                                                    (StringConstant
+                                                        ", "
+                                                        (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                )]
+                                                []
+                                            )]
+                                            []
+                                        )
+                                        (Print
+                                            (StringConstant
+                                                "]"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                        )
+                                        (If
+                                            ()
+                                            (IntegerCompare
+                                                (Var 4 __list_iterator8)
+                                                Lt
+                                                (IntegerBinOp
+                                                    (ListLen
+                                                        (Var 4 y)
+                                                        (Integer 4)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (IntegerConstant 1 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            [(Print
+                                                (StringConstant
+                                                    ", "
+                                                    (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                            )]
+                                            []
+                                        )]
+                                        []
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "]"
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "["
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 4 __list_iterator10)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (ListLen
+                                                (Var 4 z)
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(Print
+                                            (StringConstant
+                                                "["
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                        )
+                                        (DoLoop
+                                            ()
+                                            ((Var 4 __list_iterator11)
+                                            (IntegerConstant 0 (Integer 4) Decimal)
+                                            (IntegerBinOp
+                                                (ListLen
+                                                    (ListItem
+                                                        (Var 4 z)
+                                                        (Var 4 __list_iterator10)
+                                                        (List
+                                                            (Allocatable
+                                                                (String 1 () DeferredLength DescriptorString)
+                                                            )
+                                                        )
+                                                        ()
+                                                    )
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                Sub
+                                                (IntegerConstant 1 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            (IntegerConstant 1 (Integer 4) Decimal))
+                                            [(Print
+                                                (ListItem
+                                                    (ListItem
+                                                        (Var 4 z)
+                                                        (Var 4 __list_iterator10)
+                                                        (List
+                                                            (Allocatable
+                                                                (String 1 () DeferredLength DescriptorString)
+                                                            )
+                                                        )
+                                                        ()
+                                                    )
+                                                    (Var 4 __list_iterator11)
+                                                    (Allocatable
+                                                        (String 1 () DeferredLength DescriptorString)
+                                                    )
+                                                    ()
+                                                )
+                                            )
+                                            (If
+                                                ()
+                                                (IntegerCompare
+                                                    (Var 4 __list_iterator11)
+                                                    Lt
+                                                    (IntegerBinOp
+                                                        (ListLen
+                                                            (ListItem
+                                                                (Var 4 z)
+                                                                (Var 4 __list_iterator10)
+                                                                (List
+                                                                    (Allocatable
+                                                                        (String 1 () DeferredLength DescriptorString)
+                                                                    )
+                                                                )
+                                                                ()
+                                                            )
+                                                            (Integer 4)
+                                                            ()
+                                                        )
+                                                        Sub
+                                                        (IntegerConstant 1 (Integer 4) Decimal)
+                                                        (Integer 4)
+                                                        ()
+                                                    )
+                                                    (Logical 4)
+                                                    ()
+                                                )
+                                                [(Print
+                                                    (StringConstant
+                                                        ", "
+                                                        (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                )]
+                                                []
+                                            )]
+                                            []
+                                        )
+                                        (Print
+                                            (StringConstant
+                                                "]"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                        )
+                                        (If
+                                            ()
+                                            (IntegerCompare
+                                                (Var 4 __list_iterator10)
+                                                Lt
+                                                (IntegerBinOp
+                                                    (ListLen
+                                                        (Var 4 z)
+                                                        (Integer 4)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (IntegerConstant 1 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            [(Print
+                                                (StringConstant
+                                                    ", "
+                                                    (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                            )]
+                                            []
+                                        )]
+                                        []
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "]"
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            test_nested_lists2:
+                                (Function
+                                    (SymbolTable
+                                        6
+                                        {
+                                            __list_iterator:
+                                                (Variable
+                                                    6
+                                                    __list_iterator
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            __list_iterator1:
+                                                (Variable
+                                                    6
+                                                    __list_iterator1
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            __list_iterator2:
+                                                (Variable
+                                                    6
+                                                    __list_iterator2
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            __list_iterator3:
+                                                (Variable
+                                                    6
+                                                    __list_iterator3
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            __list_iterator4:
+                                                (Variable
+                                                    6
+                                                    __list_iterator4
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            __list_iterator5:
+                                                (Variable
+                                                    6
+                                                    __list_iterator5
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            __list_iterator6:
+                                                (Variable
+                                                    6
+                                                    __list_iterator6
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            __list_iterator7:
+                                                (Variable
+                                                    6
+                                                    __list_iterator7
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            __list_iterator8:
+                                                (Variable
+                                                    6
+                                                    __list_iterator8
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            p:
+                                                (Variable
+                                                    6
+                                                    p
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (List
+                                                        (List
+                                                            (Integer 4)
+                                                        )
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            q:
+                                                (Variable
+                                                    6
+                                                    q
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (List
+                                                        (List
+                                                            (List
+                                                                (List
+                                                                    (Real 8)
+                                                                )
+                                                            )
+                                                        )
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            r:
+                                                (Variable
+                                                    6
+                                                    r
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (List
+                                                        (List
+                                                            (List
+                                                                (Allocatable
+                                                                    (String 1 () DeferredLength DescriptorString)
+                                                                )
+                                                            )
+                                                        )
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test_nested_lists2
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 6 p)
+                                        (ListConstant
+                                            [(ListConstant
+                                                [(IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerConstant 1 (Integer 4) Decimal)
+                                                (IntegerConstant 2 (Integer 4) Decimal)
+                                                (IntegerConstant 3 (Integer 4) Decimal)
+                                                (IntegerConstant 4 (Integer 4) Decimal)
+                                                (IntegerConstant 5 (Integer 4) Decimal)
+                                                (IntegerConstant 6 (Integer 4) Decimal)
+                                                (IntegerConstant 7 (Integer 4) Decimal)
+                                                (IntegerConstant 8 (Integer 4) Decimal)
+                                                (IntegerConstant 9 (Integer 4) Decimal)]
+                                                (List
+                                                    (Integer 4)
+                                                )
+                                            )
+                                            (ListConstant
+                                                [(IntegerConstant 10 (Integer 4) Decimal)
+                                                (IntegerConstant 11 (Integer 4) Decimal)
+                                                (IntegerConstant 12 (Integer 4) Decimal)
+                                                (IntegerConstant 13 (Integer 4) Decimal)
+                                                (IntegerConstant 14 (Integer 4) Decimal)
+                                                (IntegerConstant 15 (Integer 4) Decimal)
+                                                (IntegerConstant 16 (Integer 4) Decimal)
+                                                (IntegerConstant 17 (Integer 4) Decimal)
+                                                (IntegerConstant 18 (Integer 4) Decimal)
+                                                (IntegerConstant 19 (Integer 4) Decimal)]
+                                                (List
+                                                    (Integer 4)
+                                                )
+                                            )
+                                            (ListConstant
+                                                [(IntegerConstant 20 (Integer 4) Decimal)
+                                                (IntegerConstant 21 (Integer 4) Decimal)
+                                                (IntegerConstant 22 (Integer 4) Decimal)
+                                                (IntegerConstant 23 (Integer 4) Decimal)
+                                                (IntegerConstant 24 (Integer 4) Decimal)
+                                                (IntegerConstant 25 (Integer 4) Decimal)
+                                                (IntegerConstant 26 (Integer 4) Decimal)
+                                                (IntegerConstant 27 (Integer 4) Decimal)
+                                                (IntegerConstant 28 (Integer 4) Decimal)
+                                                (IntegerConstant 29 (Integer 4) Decimal)]
+                                                (List
+                                                    (Integer 4)
+                                                )
+                                            )
+                                            (ListConstant
+                                                [(IntegerConstant 30 (Integer 4) Decimal)
+                                                (IntegerConstant 31 (Integer 4) Decimal)
+                                                (IntegerConstant 32 (Integer 4) Decimal)
+                                                (IntegerConstant 33 (Integer 4) Decimal)
+                                                (IntegerConstant 34 (Integer 4) Decimal)
+                                                (IntegerConstant 35 (Integer 4) Decimal)
+                                                (IntegerConstant 36 (Integer 4) Decimal)
+                                                (IntegerConstant 37 (Integer 4) Decimal)
+                                                (IntegerConstant 38 (Integer 4) Decimal)
+                                                (IntegerConstant 39 (Integer 4) Decimal)]
+                                                (List
+                                                    (Integer 4)
+                                                )
+                                            )
+                                            (ListConstant
+                                                [(IntegerConstant 40 (Integer 4) Decimal)
+                                                (IntegerConstant 41 (Integer 4) Decimal)
+                                                (IntegerConstant 42 (Integer 4) Decimal)
+                                                (IntegerConstant 43 (Integer 4) Decimal)
+                                                (IntegerConstant 44 (Integer 4) Decimal)
+                                                (IntegerConstant 45 (Integer 4) Decimal)
+                                                (IntegerConstant 46 (Integer 4) Decimal)
+                                                (IntegerConstant 47 (Integer 4) Decimal)
+                                                (IntegerConstant 48 (Integer 4) Decimal)
+                                                (IntegerConstant 49 (Integer 4) Decimal)]
+                                                (List
+                                                    (Integer 4)
+                                                )
+                                            )
+                                            (ListConstant
+                                                [(IntegerConstant 50 (Integer 4) Decimal)
+                                                (IntegerConstant 51 (Integer 4) Decimal)
+                                                (IntegerConstant 52 (Integer 4) Decimal)
+                                                (IntegerConstant 53 (Integer 4) Decimal)
+                                                (IntegerConstant 54 (Integer 4) Decimal)
+                                                (IntegerConstant 55 (Integer 4) Decimal)
+                                                (IntegerConstant 56 (Integer 4) Decimal)
+                                                (IntegerConstant 57 (Integer 4) Decimal)
+                                                (IntegerConstant 58 (Integer 4) Decimal)
+                                                (IntegerConstant 59 (Integer 4) Decimal)]
+                                                (List
+                                                    (Integer 4)
+                                                )
+                                            )
+                                            (ListConstant
+                                                [(IntegerConstant 60 (Integer 4) Decimal)
+                                                (IntegerConstant 61 (Integer 4) Decimal)
+                                                (IntegerConstant 62 (Integer 4) Decimal)
+                                                (IntegerConstant 63 (Integer 4) Decimal)
+                                                (IntegerConstant 64 (Integer 4) Decimal)
+                                                (IntegerConstant 65 (Integer 4) Decimal)
+                                                (IntegerConstant 66 (Integer 4) Decimal)
+                                                (IntegerConstant 67 (Integer 4) Decimal)
+                                                (IntegerConstant 68 (Integer 4) Decimal)
+                                                (IntegerConstant 69 (Integer 4) Decimal)]
+                                                (List
+                                                    (Integer 4)
+                                                )
+                                            )
+                                            (ListConstant
+                                                [(IntegerConstant 70 (Integer 4) Decimal)
+                                                (IntegerConstant 71 (Integer 4) Decimal)
+                                                (IntegerConstant 72 (Integer 4) Decimal)
+                                                (IntegerConstant 73 (Integer 4) Decimal)
+                                                (IntegerConstant 74 (Integer 4) Decimal)
+                                                (IntegerConstant 75 (Integer 4) Decimal)
+                                                (IntegerConstant 76 (Integer 4) Decimal)
+                                                (IntegerConstant 77 (Integer 4) Decimal)
+                                                (IntegerConstant 78 (Integer 4) Decimal)
+                                                (IntegerConstant 79 (Integer 4) Decimal)]
+                                                (List
+                                                    (Integer 4)
+                                                )
+                                            )
+                                            (ListConstant
+                                                [(IntegerConstant 80 (Integer 4) Decimal)
+                                                (IntegerConstant 81 (Integer 4) Decimal)
+                                                (IntegerConstant 82 (Integer 4) Decimal)
+                                                (IntegerConstant 83 (Integer 4) Decimal)
+                                                (IntegerConstant 84 (Integer 4) Decimal)
+                                                (IntegerConstant 85 (Integer 4) Decimal)
+                                                (IntegerConstant 86 (Integer 4) Decimal)
+                                                (IntegerConstant 87 (Integer 4) Decimal)
+                                                (IntegerConstant 88 (Integer 4) Decimal)
+                                                (IntegerConstant 89 (Integer 4) Decimal)]
+                                                (List
+                                                    (Integer 4)
+                                                )
+                                            )
+                                            (ListConstant
+                                                [(IntegerConstant 90 (Integer 4) Decimal)
+                                                (IntegerConstant 91 (Integer 4) Decimal)
+                                                (IntegerConstant 92 (Integer 4) Decimal)
+                                                (IntegerConstant 93 (Integer 4) Decimal)
+                                                (IntegerConstant 94 (Integer 4) Decimal)
+                                                (IntegerConstant 95 (Integer 4) Decimal)
+                                                (IntegerConstant 96 (Integer 4) Decimal)
+                                                (IntegerConstant 97 (Integer 4) Decimal)
+                                                (IntegerConstant 98 (Integer 4) Decimal)
+                                                (IntegerConstant 99 (Integer 4) Decimal)]
+                                                (List
+                                                    (Integer 4)
+                                                )
+                                            )]
+                                            (List
+                                                (List
+                                                    (Integer 4)
+                                                )
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 6 q)
+                                        (ListConstant
+                                            [(ListConstant
+                                                [(ListConstant
+                                                    [(ListConstant
+                                                        [(RealConstant
+                                                            74.550000
+                                                            (Real 8)
+                                                        )
+                                                        (RealUnaryMinus
+                                                            (RealConstant
+                                                                77.640000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -77.640000
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                        (RealConstant
+                                                            52.350000
+                                                            (Real 8)
+                                                        )]
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                    (ListConstant
+                                                        [(RealUnaryMinus
+                                                            (RealConstant
+                                                                78.250000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -78.250000
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                        (RealUnaryMinus
+                                                            (RealConstant
+                                                                19.240000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -19.240000
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                        (RealConstant
+                                                            81.380000
+                                                            (Real 8)
+                                                        )]
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                    (ListConstant
+                                                        [(RealConstant
+                                                            7.860000
+                                                            (Real 8)
+                                                        )
+                                                        (RealConstant
+                                                            12.110000
+                                                            (Real 8)
+                                                        )
+                                                        (RealConstant
+                                                            27.500000
+                                                            (Real 8)
+                                                        )]
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )]
+                                                    (List
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(ListConstant
+                                                        [(RealUnaryMinus
+                                                            (RealConstant
+                                                                98.930000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -98.930000
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                        (RealUnaryMinus
+                                                            (RealConstant
+                                                                79.620000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -79.620000
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                        (RealUnaryMinus
+                                                            (RealConstant
+                                                                73.760000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -73.760000
+                                                                (Real 8)
+                                                            )
+                                                        )]
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                    (ListConstant
+                                                        [(RealConstant
+                                                            42.050000
+                                                            (Real 8)
+                                                        )
+                                                        (RealUnaryMinus
+                                                            (RealConstant
+                                                                90.290000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -90.290000
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                        (RealConstant
+                                                            69.950000
+                                                            (Real 8)
+                                                        )]
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                    (ListConstant
+                                                        [(RealConstant
+                                                            59.320000
+                                                            (Real 8)
+                                                        )
+                                                        (RealUnaryMinus
+                                                            (RealConstant
+                                                                70.780000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -70.780000
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                        (RealUnaryMinus
+                                                            (RealConstant
+                                                                53.220000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -53.220000
+                                                                (Real 8)
+                                                            )
+                                                        )]
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )]
+                                                    (List
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(ListConstant
+                                                        [(RealConstant
+                                                            53.520000
+                                                            (Real 8)
+                                                        )
+                                                        (RealUnaryMinus
+                                                            (RealConstant
+                                                                93.880000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -93.880000
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                        (RealConstant
+                                                            49.650000
+                                                            (Real 8)
+                                                        )]
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                    (ListConstant
+                                                        [(RealConstant
+                                                            2.180000
+                                                            (Real 8)
+                                                        )
+                                                        (RealConstant
+                                                            19.910000
+                                                            (Real 8)
+                                                        )
+                                                        (RealConstant
+                                                            69.240000
+                                                            (Real 8)
+                                                        )]
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                    (ListConstant
+                                                        [(RealConstant
+                                                            78.510000
+                                                            (Real 8)
+                                                        )
+                                                        (RealConstant
+                                                            89.690000
+                                                            (Real 8)
+                                                        )
+                                                        (RealUnaryMinus
+                                                            (RealConstant
+                                                                86.680000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -86.680000
+                                                                (Real 8)
+                                                            )
+                                                        )]
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )]
+                                                    (List
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                )]
+                                                (List
+                                                    (List
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                )
+                                            )
+                                            (ListConstant
+                                                [(ListConstant
+                                                    [(ListConstant
+                                                        [(RealUnaryMinus
+                                                            (RealConstant
+                                                                92.480000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -92.480000
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                        (RealUnaryMinus
+                                                            (RealConstant
+                                                                80.750000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -80.750000
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                        (RealUnaryMinus
+                                                            (RealConstant
+                                                                27.760000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -27.760000
+                                                                (Real 8)
+                                                            )
+                                                        )]
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                    (ListConstant
+                                                        [(RealUnaryMinus
+                                                            (RealConstant
+                                                                13.350000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -13.350000
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                        (RealConstant
+                                                            12.280000
+                                                            (Real 8)
+                                                        )
+                                                        (RealConstant
+                                                            79.610000
+                                                            (Real 8)
+                                                        )]
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                    (ListConstant
+                                                        [(RealConstant
+                                                            48.480000
+                                                            (Real 8)
+                                                        )
+                                                        (RealUnaryMinus
+                                                            (RealConstant
+                                                                10.490000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -10.490000
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                        (RealConstant
+                                                            41.100000
+                                                            (Real 8)
+                                                        )]
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )]
+                                                    (List
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(ListConstant
+                                                        [(RealConstant
+                                                            20.330000
+                                                            (Real 8)
+                                                        )
+                                                        (RealConstant
+                                                            14.520000
+                                                            (Real 8)
+                                                        )
+                                                        (RealConstant
+                                                            82.560000
+                                                            (Real 8)
+                                                        )]
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                    (ListConstant
+                                                        [(RealUnaryMinus
+                                                            (RealConstant
+                                                                57.760000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -57.760000
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                        (RealConstant
+                                                            76.030000
+                                                            (Real 8)
+                                                        )
+                                                        (RealConstant
+                                                            67.330000
+                                                            (Real 8)
+                                                        )]
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                    (ListConstant
+                                                        [(RealUnaryMinus
+                                                            (RealConstant
+                                                                21.500000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -21.500000
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                        (RealUnaryMinus
+                                                            (RealConstant
+                                                                11.920000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -11.920000
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                        (RealUnaryMinus
+                                                            (RealConstant
+                                                                31.840000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -31.840000
+                                                                (Real 8)
+                                                            )
+                                                        )]
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )]
+                                                    (List
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(ListConstant
+                                                        [(RealConstant
+                                                            9.650000
+                                                            (Real 8)
+                                                        )
+                                                        (RealConstant
+                                                            11.150000
+                                                            (Real 8)
+                                                        )
+                                                        (RealUnaryMinus
+                                                            (RealConstant
+                                                                36.580000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -36.580000
+                                                                (Real 8)
+                                                            )
+                                                        )]
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                    (ListConstant
+                                                        [(RealConstant
+                                                            56.550000
+                                                            (Real 8)
+                                                        )
+                                                        (RealUnaryMinus
+                                                            (RealConstant
+                                                                70.850000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -70.850000
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                        (RealUnaryMinus
+                                                            (RealConstant
+                                                                50.670000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -50.670000
+                                                                (Real 8)
+                                                            )
+                                                        )]
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                    (ListConstant
+                                                        [(RealConstant
+                                                            94.630000
+                                                            (Real 8)
+                                                        )
+                                                        (RealConstant
+                                                            25.680000
+                                                            (Real 8)
+                                                        )
+                                                        (RealConstant
+                                                            89.300000
+                                                            (Real 8)
+                                                        )]
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )]
+                                                    (List
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                )]
+                                                (List
+                                                    (List
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                )
+                                            )
+                                            (ListConstant
+                                                [(ListConstant
+                                                    [(ListConstant
+                                                        [(RealConstant
+                                                            28.530000
+                                                            (Real 8)
+                                                        )
+                                                        (RealConstant
+                                                            71.220000
+                                                            (Real 8)
+                                                        )
+                                                        (RealConstant
+                                                            71.870000
+                                                            (Real 8)
+                                                        )]
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                    (ListConstant
+                                                        [(RealUnaryMinus
+                                                            (RealConstant
+                                                                58.390000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -58.390000
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                        (RealUnaryMinus
+                                                            (RealConstant
+                                                                6.960000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -6.960000
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                        (RealConstant
+                                                            42.980000
+                                                            (Real 8)
+                                                        )]
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                    (ListConstant
+                                                        [(RealUnaryMinus
+                                                            (RealConstant
+                                                                8.950000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -8.950000
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                        (RealUnaryMinus
+                                                            (RealConstant
+                                                                75.090000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -75.090000
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                        (RealConstant
+                                                            37.960000
+                                                            (Real 8)
+                                                        )]
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )]
+                                                    (List
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(ListConstant
+                                                        [(RealUnaryMinus
+                                                            (RealConstant
+                                                                31.750000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -31.750000
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                        (RealConstant
+                                                            67.330000
+                                                            (Real 8)
+                                                        )
+                                                        (RealConstant
+                                                            58.170000
+                                                            (Real 8)
+                                                        )]
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                    (ListConstant
+                                                        [(RealUnaryMinus
+                                                            (RealConstant
+                                                                64.010000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -64.010000
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                        (RealUnaryMinus
+                                                            (RealConstant
+                                                                9.220000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -9.220000
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                        (RealConstant
+                                                            9.590000
+                                                            (Real 8)
+                                                        )]
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                    (ListConstant
+                                                        [(RealConstant
+                                                            15.710000
+                                                            (Real 8)
+                                                        )
+                                                        (RealConstant
+                                                            82.360000
+                                                            (Real 8)
+                                                        )
+                                                        (RealConstant
+                                                            51.180000
+                                                            (Real 8)
+                                                        )]
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )]
+                                                    (List
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(ListConstant
+                                                        [(RealUnaryMinus
+                                                            (RealConstant
+                                                                100.290000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -100.290000
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                        (RealUnaryMinus
+                                                            (RealConstant
+                                                                32.720000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -32.720000
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                        (RealUnaryMinus
+                                                            (RealConstant
+                                                                54.940000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -54.940000
+                                                                (Real 8)
+                                                            )
+                                                        )]
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                    (ListConstant
+                                                        [(RealUnaryMinus
+                                                            (RealConstant
+                                                                0.320000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -0.320000
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                        (RealConstant
+                                                            68.810000
+                                                            (Real 8)
+                                                        )
+                                                        (RealUnaryMinus
+                                                            (RealConstant
+                                                                55.090000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -55.090000
+                                                                (Real 8)
+                                                            )
+                                                        )]
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                    (ListConstant
+                                                        [(RealConstant
+                                                            97.280000
+                                                            (Real 8)
+                                                        )
+                                                        (RealUnaryMinus
+                                                            (RealConstant
+                                                                28.200000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -28.200000
+                                                                (Real 8)
+                                                            )
+                                                        )
+                                                        (RealUnaryMinus
+                                                            (RealConstant
+                                                                62.610000
+                                                                (Real 8)
+                                                            )
+                                                            (Real 8)
+                                                            (RealConstant
+                                                                -62.610000
+                                                                (Real 8)
+                                                            )
+                                                        )]
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )]
+                                                    (List
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                )]
+                                                (List
+                                                    (List
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                )
+                                            )]
+                                            (List
+                                                (List
+                                                    (List
+                                                        (List
+                                                            (Real 8)
+                                                        )
+                                                    )
+                                                )
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 6 r)
+                                        (ListConstant
+                                            [(ListConstant
+                                                [(ListConstant
+                                                    [(StringConstant
+                                                        "Io"
+                                                        (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "tl"
+                                                        (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "bLvjV"
+                                                        (String 1 (IntegerConstant 5 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "wjFKQ"
+                                                        (String 1 (IntegerConstant 5 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "lY2"
+                                                        (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(StringConstant
+                                                        "Be2l6bqE"
+                                                        (String 1 (IntegerConstant 8 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "pQER3utIXA"
+                                                        (String 1 (IntegerConstant 10 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "llZBJj5Cdu"
+                                                        (String 1 (IntegerConstant 10 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "C8"
+                                                        (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "gwTr77PdYR"
+                                                        (String 1 (IntegerConstant 10 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(StringConstant
+                                                        "4M6L"
+                                                        (String 1 (IntegerConstant 4 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "ktPdowqERy"
+                                                        (String 1 (IntegerConstant 10 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "KSifqTkR"
+                                                        (String 1 (IntegerConstant 8 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "ZE2p1N78f1"
+                                                        (String 1 (IntegerConstant 10 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "Mi5e87Xw"
+                                                        (String 1 (IntegerConstant 8 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(StringConstant
+                                                        "uwfzqDq9g"
+                                                        (String 1 (IntegerConstant 9 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "QaM1s"
+                                                        (String 1 (IntegerConstant 5 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        ""
+                                                        (String 1 (IntegerConstant 0 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        ""
+                                                        (String 1 (IntegerConstant 0 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "LB"
+                                                        (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(StringConstant
+                                                        "OJFRY6k"
+                                                        (String 1 (IntegerConstant 7 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "iz7Oie"
+                                                        (String 1 (IntegerConstant 6 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        ""
+                                                        (String 1 (IntegerConstant 0 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "LUYLF"
+                                                        (String 1 (IntegerConstant 5 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "JBND5FuV7l"
+                                                        (String 1 (IntegerConstant 10 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )]
+                                                (List
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )
+                                            )
+                                            (ListConstant
+                                                [(ListConstant
+                                                    [(StringConstant
+                                                        "m"
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "WIQBQfV"
+                                                        (String 1 (IntegerConstant 7 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "jxjDrqxu"
+                                                        (String 1 (IntegerConstant 8 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "kea"
+                                                        (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "mu"
+                                                        (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(StringConstant
+                                                        ""
+                                                        (String 1 (IntegerConstant 0 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "GI8aOwLMe"
+                                                        (String 1 (IntegerConstant 9 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "Y5m8"
+                                                        (String 1 (IntegerConstant 4 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "a02Rz"
+                                                        (String 1 (IntegerConstant 5 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "xNKCJ"
+                                                        (String 1 (IntegerConstant 5 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(StringConstant
+                                                        "LzkhyiJQHP"
+                                                        (String 1 (IntegerConstant 10 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "uzc3xyoXL"
+                                                        (String 1 (IntegerConstant 9 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "sKGnYfpRy"
+                                                        (String 1 (IntegerConstant 9 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "7x"
+                                                        (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "WTVKrnPO"
+                                                        (String 1 (IntegerConstant 8 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(StringConstant
+                                                        "TZa6"
+                                                        (String 1 (IntegerConstant 4 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "GXRuyRX"
+                                                        (String 1 (IntegerConstant 7 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "R"
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "JQxS"
+                                                        (String 1 (IntegerConstant 4 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "OH"
+                                                        (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(StringConstant
+                                                        "bSVJZ1OQ"
+                                                        (String 1 (IntegerConstant 8 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "M"
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "I9omlF"
+                                                        (String 1 (IntegerConstant 6 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "x7FR"
+                                                        (String 1 (IntegerConstant 4 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "XtpL"
+                                                        (String 1 (IntegerConstant 4 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )]
+                                                (List
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )
+                                            )
+                                            (ListConstant
+                                                [(ListConstant
+                                                    [(StringConstant
+                                                        "DKOpK"
+                                                        (String 1 (IntegerConstant 5 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "eg8Nz"
+                                                        (String 1 (IntegerConstant 5 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "ru"
+                                                        (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "Sj"
+                                                        (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "YUDxyI"
+                                                        (String 1 (IntegerConstant 6 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(StringConstant
+                                                        "Q5uyhvp"
+                                                        (String 1 (IntegerConstant 7 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "Ydx"
+                                                        (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "p"
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "DLM5RX"
+                                                        (String 1 (IntegerConstant 6 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "pwOujxCO"
+                                                        (String 1 (IntegerConstant 8 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(StringConstant
+                                                        "s5GOWnNJV"
+                                                        (String 1 (IntegerConstant 9 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "af"
+                                                        (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "KAkD"
+                                                        (String 1 (IntegerConstant 4 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "4IIZK"
+                                                        (String 1 (IntegerConstant 5 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "JQK040x"
+                                                        (String 1 (IntegerConstant 7 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(StringConstant
+                                                        "9vF"
+                                                        (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "9pc7R8v"
+                                                        (String 1 (IntegerConstant 7 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "nDReIU7"
+                                                        (String 1 (IntegerConstant 7 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "K"
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "btn"
+                                                        (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(StringConstant
+                                                        ""
+                                                        (String 1 (IntegerConstant 0 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "wVeivkdi"
+                                                        (String 1 (IntegerConstant 8 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        ""
+                                                        (String 1 (IntegerConstant 0 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        ""
+                                                        (String 1 (IntegerConstant 0 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "C"
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )]
+                                                (List
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )
+                                            )
+                                            (ListConstant
+                                                [(ListConstant
+                                                    [(StringConstant
+                                                        "vNTtcRXD"
+                                                        (String 1 (IntegerConstant 8 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "rsi"
+                                                        (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "YsoF7mZD"
+                                                        (String 1 (IntegerConstant 8 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "VrPXU50rgA"
+                                                        (String 1 (IntegerConstant 10 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "mG7zqN0G"
+                                                        (String 1 (IntegerConstant 8 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(StringConstant
+                                                        "la7cJ"
+                                                        (String 1 (IntegerConstant 5 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "M5rLJ8Go"
+                                                        (String 1 (IntegerConstant 8 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "gb"
+                                                        (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "FjKwYZ7E"
+                                                        (String 1 (IntegerConstant 8 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "uSPD"
+                                                        (String 1 (IntegerConstant 4 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(StringConstant
+                                                        ""
+                                                        (String 1 (IntegerConstant 0 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "oOa79jWcMx"
+                                                        (String 1 (IntegerConstant 10 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "yyAYZZ"
+                                                        (String 1 (IntegerConstant 6 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "wbvggXm"
+                                                        (String 1 (IntegerConstant 7 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "aE3BkCL4"
+                                                        (String 1 (IntegerConstant 8 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(StringConstant
+                                                        "RdP"
+                                                        (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "Hwc0x9RZ"
+                                                        (String 1 (IntegerConstant 8 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "sy"
+                                                        (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "9"
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "W1d9xA2BXe"
+                                                        (String 1 (IntegerConstant 10 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(StringConstant
+                                                        "A"
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        ""
+                                                        (String 1 (IntegerConstant 0 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "QnK"
+                                                        (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "N5tzN"
+                                                        (String 1 (IntegerConstant 5 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "ou7Lp"
+                                                        (String 1 (IntegerConstant 5 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )]
+                                                (List
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )
+                                            )
+                                            (ListConstant
+                                                [(ListConstant
+                                                    [(StringConstant
+                                                        "DL68rDF"
+                                                        (String 1 (IntegerConstant 7 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "v"
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "kQ3Mxm"
+                                                        (String 1 (IntegerConstant 6 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "g"
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "6KTeF4Eo"
+                                                        (String 1 (IntegerConstant 8 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(StringConstant
+                                                        "Hx9"
+                                                        (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "Y1IzQm85Z4"
+                                                        (String 1 (IntegerConstant 10 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "3D8"
+                                                        (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "ZLZ5"
+                                                        (String 1 (IntegerConstant 4 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "rWn"
+                                                        (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(StringConstant
+                                                        "LtT"
+                                                        (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "Dh5B"
+                                                        (String 1 (IntegerConstant 4 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "M"
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "F"
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "QTARbY"
+                                                        (String 1 (IntegerConstant 6 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(StringConstant
+                                                        "Sh"
+                                                        (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "WL"
+                                                        (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "yvAfWvZSx1"
+                                                        (String 1 (IntegerConstant 10 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "90yx"
+                                                        (String 1 (IntegerConstant 4 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "v"
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )
+                                                (ListConstant
+                                                    [(StringConstant
+                                                        ""
+                                                        (String 1 (IntegerConstant 0 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "7IBW"
+                                                        (String 1 (IntegerConstant 4 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "nI"
+                                                        (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        ""
+                                                        (String 1 (IntegerConstant 0 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                    (StringConstant
+                                                        "6Cbp5c8RT"
+                                                        (String 1 (IntegerConstant 9 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )]
+                                                (List
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )
+                                            )]
+                                            (List
+                                                (List
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                )
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "["
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 6 __list_iterator)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (ListLen
+                                                (Var 6 p)
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(Print
+                                            (StringConstant
+                                                "["
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                        )
+                                        (DoLoop
+                                            ()
+                                            ((Var 6 __list_iterator1)
+                                            (IntegerConstant 0 (Integer 4) Decimal)
+                                            (IntegerBinOp
+                                                (ListLen
+                                                    (ListItem
+                                                        (Var 6 p)
+                                                        (Var 6 __list_iterator)
+                                                        (List
+                                                            (Integer 4)
+                                                        )
+                                                        ()
+                                                    )
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                Sub
+                                                (IntegerConstant 1 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            (IntegerConstant 1 (Integer 4) Decimal))
+                                            [(Print
+                                                (StringFormat
+                                                    ()
+                                                    [(ListItem
+                                                        (ListItem
+                                                            (Var 6 p)
+                                                            (Var 6 __list_iterator)
+                                                            (List
+                                                                (Integer 4)
+                                                            )
+                                                            ()
+                                                        )
+                                                        (Var 6 __list_iterator1)
+                                                        (Integer 4)
+                                                        ()
+                                                    )]
+                                                    FormatFortran
+                                                    (Allocatable
+                                                        (String 1 () DeferredLength DescriptorString)
+                                                    )
+                                                    ()
+                                                )
+                                            )
+                                            (If
+                                                ()
+                                                (IntegerCompare
+                                                    (Var 6 __list_iterator1)
+                                                    Lt
+                                                    (IntegerBinOp
+                                                        (ListLen
+                                                            (ListItem
+                                                                (Var 6 p)
+                                                                (Var 6 __list_iterator)
+                                                                (List
+                                                                    (Integer 4)
+                                                                )
+                                                                ()
+                                                            )
+                                                            (Integer 4)
+                                                            ()
+                                                        )
+                                                        Sub
+                                                        (IntegerConstant 1 (Integer 4) Decimal)
+                                                        (Integer 4)
+                                                        ()
+                                                    )
+                                                    (Logical 4)
+                                                    ()
+                                                )
+                                                [(Print
+                                                    (StringConstant
+                                                        ", "
+                                                        (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                )]
+                                                []
+                                            )]
+                                            []
+                                        )
+                                        (Print
+                                            (StringConstant
+                                                "]"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                        )
+                                        (If
+                                            ()
+                                            (IntegerCompare
+                                                (Var 6 __list_iterator)
+                                                Lt
+                                                (IntegerBinOp
+                                                    (ListLen
+                                                        (Var 6 p)
+                                                        (Integer 4)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (IntegerConstant 1 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            [(Print
+                                                (StringConstant
+                                                    ", "
+                                                    (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                            )]
+                                            []
+                                        )]
+                                        []
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "]"
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "["
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 6 __list_iterator2)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (ListLen
+                                                (Var 6 q)
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(Print
+                                            (StringConstant
+                                                "["
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                        )
+                                        (DoLoop
+                                            ()
+                                            ((Var 6 __list_iterator3)
+                                            (IntegerConstant 0 (Integer 4) Decimal)
+                                            (IntegerBinOp
+                                                (ListLen
+                                                    (ListItem
+                                                        (Var 6 q)
+                                                        (Var 6 __list_iterator2)
+                                                        (List
+                                                            (List
+                                                                (List
+                                                                    (Real 8)
+                                                                )
+                                                            )
+                                                        )
+                                                        ()
+                                                    )
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                Sub
+                                                (IntegerConstant 1 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            (IntegerConstant 1 (Integer 4) Decimal))
+                                            [(Print
+                                                (StringConstant
+                                                    "["
+                                                    (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                            )
+                                            (DoLoop
+                                                ()
+                                                ((Var 6 __list_iterator4)
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerBinOp
+                                                    (ListLen
+                                                        (ListItem
+                                                            (ListItem
+                                                                (Var 6 q)
+                                                                (Var 6 __list_iterator2)
+                                                                (List
+                                                                    (List
+                                                                        (List
+                                                                            (Real 8)
+                                                                        )
+                                                                    )
+                                                                )
+                                                                ()
+                                                            )
+                                                            (Var 6 __list_iterator3)
+                                                            (List
+                                                                (List
+                                                                    (Real 8)
+                                                                )
+                                                            )
+                                                            ()
+                                                        )
+                                                        (Integer 4)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (IntegerConstant 1 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                (IntegerConstant 1 (Integer 4) Decimal))
+                                                [(Print
+                                                    (StringConstant
+                                                        "["
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                )
+                                                (DoLoop
+                                                    ()
+                                                    ((Var 6 __list_iterator5)
+                                                    (IntegerConstant 0 (Integer 4) Decimal)
+                                                    (IntegerBinOp
+                                                        (ListLen
+                                                            (ListItem
+                                                                (ListItem
+                                                                    (ListItem
+                                                                        (Var 6 q)
+                                                                        (Var 6 __list_iterator2)
+                                                                        (List
+                                                                            (List
+                                                                                (List
+                                                                                    (Real 8)
+                                                                                )
+                                                                            )
+                                                                        )
+                                                                        ()
+                                                                    )
+                                                                    (Var 6 __list_iterator3)
+                                                                    (List
+                                                                        (List
+                                                                            (Real 8)
+                                                                        )
+                                                                    )
+                                                                    ()
+                                                                )
+                                                                (Var 6 __list_iterator4)
+                                                                (List
+                                                                    (Real 8)
+                                                                )
+                                                                ()
+                                                            )
+                                                            (Integer 4)
+                                                            ()
+                                                        )
+                                                        Sub
+                                                        (IntegerConstant 1 (Integer 4) Decimal)
+                                                        (Integer 4)
+                                                        ()
+                                                    )
+                                                    (IntegerConstant 1 (Integer 4) Decimal))
+                                                    [(Print
+                                                        (StringFormat
+                                                            ()
+                                                            [(ListItem
+                                                                (ListItem
+                                                                    (ListItem
+                                                                        (ListItem
+                                                                            (Var 6 q)
+                                                                            (Var 6 __list_iterator2)
+                                                                            (List
+                                                                                (List
+                                                                                    (List
+                                                                                        (Real 8)
+                                                                                    )
+                                                                                )
+                                                                            )
+                                                                            ()
+                                                                        )
+                                                                        (Var 6 __list_iterator3)
+                                                                        (List
+                                                                            (List
+                                                                                (Real 8)
+                                                                            )
+                                                                        )
+                                                                        ()
+                                                                    )
+                                                                    (Var 6 __list_iterator4)
+                                                                    (List
+                                                                        (Real 8)
+                                                                    )
+                                                                    ()
+                                                                )
+                                                                (Var 6 __list_iterator5)
+                                                                (Real 8)
+                                                                ()
+                                                            )]
+                                                            FormatFortran
+                                                            (Allocatable
+                                                                (String 1 () DeferredLength DescriptorString)
+                                                            )
+                                                            ()
+                                                        )
+                                                    )
+                                                    (If
+                                                        ()
+                                                        (IntegerCompare
+                                                            (Var 6 __list_iterator5)
+                                                            Lt
+                                                            (IntegerBinOp
+                                                                (ListLen
+                                                                    (ListItem
+                                                                        (ListItem
+                                                                            (ListItem
+                                                                                (Var 6 q)
+                                                                                (Var 6 __list_iterator2)
+                                                                                (List
+                                                                                    (List
+                                                                                        (List
+                                                                                            (Real 8)
+                                                                                        )
+                                                                                    )
+                                                                                )
+                                                                                ()
+                                                                            )
+                                                                            (Var 6 __list_iterator3)
+                                                                            (List
+                                                                                (List
+                                                                                    (Real 8)
+                                                                                )
+                                                                            )
+                                                                            ()
+                                                                        )
+                                                                        (Var 6 __list_iterator4)
+                                                                        (List
+                                                                            (Real 8)
+                                                                        )
+                                                                        ()
+                                                                    )
+                                                                    (Integer 4)
+                                                                    ()
+                                                                )
+                                                                Sub
+                                                                (IntegerConstant 1 (Integer 4) Decimal)
+                                                                (Integer 4)
+                                                                ()
+                                                            )
+                                                            (Logical 4)
+                                                            ()
+                                                        )
+                                                        [(Print
+                                                            (StringConstant
+                                                                ", "
+                                                                (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                            )
+                                                        )]
+                                                        []
+                                                    )]
+                                                    []
+                                                )
+                                                (Print
+                                                    (StringConstant
+                                                        "]"
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                )
+                                                (If
+                                                    ()
+                                                    (IntegerCompare
+                                                        (Var 6 __list_iterator4)
+                                                        Lt
+                                                        (IntegerBinOp
+                                                            (ListLen
+                                                                (ListItem
+                                                                    (ListItem
+                                                                        (Var 6 q)
+                                                                        (Var 6 __list_iterator2)
+                                                                        (List
+                                                                            (List
+                                                                                (List
+                                                                                    (Real 8)
+                                                                                )
+                                                                            )
+                                                                        )
+                                                                        ()
+                                                                    )
+                                                                    (Var 6 __list_iterator3)
+                                                                    (List
+                                                                        (List
+                                                                            (Real 8)
+                                                                        )
+                                                                    )
+                                                                    ()
+                                                                )
+                                                                (Integer 4)
+                                                                ()
+                                                            )
+                                                            Sub
+                                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                                            (Integer 4)
+                                                            ()
+                                                        )
+                                                        (Logical 4)
+                                                        ()
+                                                    )
+                                                    [(Print
+                                                        (StringConstant
+                                                            ", "
+                                                            (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                        )
+                                                    )]
+                                                    []
+                                                )]
+                                                []
+                                            )
+                                            (Print
+                                                (StringConstant
+                                                    "]"
+                                                    (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                            )
+                                            (If
+                                                ()
+                                                (IntegerCompare
+                                                    (Var 6 __list_iterator3)
+                                                    Lt
+                                                    (IntegerBinOp
+                                                        (ListLen
+                                                            (ListItem
+                                                                (Var 6 q)
+                                                                (Var 6 __list_iterator2)
+                                                                (List
+                                                                    (List
+                                                                        (List
+                                                                            (Real 8)
+                                                                        )
+                                                                    )
+                                                                )
+                                                                ()
+                                                            )
+                                                            (Integer 4)
+                                                            ()
+                                                        )
+                                                        Sub
+                                                        (IntegerConstant 1 (Integer 4) Decimal)
+                                                        (Integer 4)
+                                                        ()
+                                                    )
+                                                    (Logical 4)
+                                                    ()
+                                                )
+                                                [(Print
+                                                    (StringConstant
+                                                        ", "
+                                                        (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                )]
+                                                []
+                                            )]
+                                            []
+                                        )
+                                        (Print
+                                            (StringConstant
+                                                "]"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                        )
+                                        (If
+                                            ()
+                                            (IntegerCompare
+                                                (Var 6 __list_iterator2)
+                                                Lt
+                                                (IntegerBinOp
+                                                    (ListLen
+                                                        (Var 6 q)
+                                                        (Integer 4)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (IntegerConstant 1 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            [(Print
+                                                (StringConstant
+                                                    ", "
+                                                    (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                            )]
+                                            []
+                                        )]
+                                        []
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "]"
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "["
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 6 __list_iterator6)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (ListLen
+                                                (Var 6 r)
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(Print
+                                            (StringConstant
+                                                "["
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                        )
+                                        (DoLoop
+                                            ()
+                                            ((Var 6 __list_iterator7)
+                                            (IntegerConstant 0 (Integer 4) Decimal)
+                                            (IntegerBinOp
+                                                (ListLen
+                                                    (ListItem
+                                                        (Var 6 r)
+                                                        (Var 6 __list_iterator6)
+                                                        (List
+                                                            (List
+                                                                (Allocatable
+                                                                    (String 1 () DeferredLength DescriptorString)
+                                                                )
+                                                            )
+                                                        )
+                                                        ()
+                                                    )
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                Sub
+                                                (IntegerConstant 1 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            (IntegerConstant 1 (Integer 4) Decimal))
+                                            [(Print
+                                                (StringConstant
+                                                    "["
+                                                    (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                            )
+                                            (DoLoop
+                                                ()
+                                                ((Var 6 __list_iterator8)
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                (IntegerBinOp
+                                                    (ListLen
+                                                        (ListItem
+                                                            (ListItem
+                                                                (Var 6 r)
+                                                                (Var 6 __list_iterator6)
+                                                                (List
+                                                                    (List
+                                                                        (Allocatable
+                                                                            (String 1 () DeferredLength DescriptorString)
+                                                                        )
+                                                                    )
+                                                                )
+                                                                ()
+                                                            )
+                                                            (Var 6 __list_iterator7)
+                                                            (List
+                                                                (Allocatable
+                                                                    (String 1 () DeferredLength DescriptorString)
+                                                                )
+                                                            )
+                                                            ()
+                                                        )
+                                                        (Integer 4)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (IntegerConstant 1 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                (IntegerConstant 1 (Integer 4) Decimal))
+                                                [(Print
+                                                    (ListItem
+                                                        (ListItem
+                                                            (ListItem
+                                                                (Var 6 r)
+                                                                (Var 6 __list_iterator6)
+                                                                (List
+                                                                    (List
+                                                                        (Allocatable
+                                                                            (String 1 () DeferredLength DescriptorString)
+                                                                        )
+                                                                    )
+                                                                )
+                                                                ()
+                                                            )
+                                                            (Var 6 __list_iterator7)
+                                                            (List
+                                                                (Allocatable
+                                                                    (String 1 () DeferredLength DescriptorString)
+                                                                )
+                                                            )
+                                                            ()
+                                                        )
+                                                        (Var 6 __list_iterator8)
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                        ()
+                                                    )
+                                                )
+                                                (If
+                                                    ()
+                                                    (IntegerCompare
+                                                        (Var 6 __list_iterator8)
+                                                        Lt
+                                                        (IntegerBinOp
+                                                            (ListLen
+                                                                (ListItem
+                                                                    (ListItem
+                                                                        (Var 6 r)
+                                                                        (Var 6 __list_iterator6)
+                                                                        (List
+                                                                            (List
+                                                                                (Allocatable
+                                                                                    (String 1 () DeferredLength DescriptorString)
+                                                                                )
+                                                                            )
+                                                                        )
+                                                                        ()
+                                                                    )
+                                                                    (Var 6 __list_iterator7)
+                                                                    (List
+                                                                        (Allocatable
+                                                                            (String 1 () DeferredLength DescriptorString)
+                                                                        )
+                                                                    )
+                                                                    ()
+                                                                )
+                                                                (Integer 4)
+                                                                ()
+                                                            )
+                                                            Sub
+                                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                                            (Integer 4)
+                                                            ()
+                                                        )
+                                                        (Logical 4)
+                                                        ()
+                                                    )
+                                                    [(Print
+                                                        (StringConstant
+                                                            ", "
+                                                            (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                        )
+                                                    )]
+                                                    []
+                                                )]
+                                                []
+                                            )
+                                            (Print
+                                                (StringConstant
+                                                    "]"
+                                                    (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                            )
+                                            (If
+                                                ()
+                                                (IntegerCompare
+                                                    (Var 6 __list_iterator7)
+                                                    Lt
+                                                    (IntegerBinOp
+                                                        (ListLen
+                                                            (ListItem
+                                                                (Var 6 r)
+                                                                (Var 6 __list_iterator6)
+                                                                (List
+                                                                    (List
+                                                                        (Allocatable
+                                                                            (String 1 () DeferredLength DescriptorString)
+                                                                        )
+                                                                    )
+                                                                )
+                                                                ()
+                                                            )
+                                                            (Integer 4)
+                                                            ()
+                                                        )
+                                                        Sub
+                                                        (IntegerConstant 1 (Integer 4) Decimal)
+                                                        (Integer 4)
+                                                        ()
+                                                    )
+                                                    (Logical 4)
+                                                    ()
+                                                )
+                                                [(Print
+                                                    (StringConstant
+                                                        ", "
+                                                        (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                )]
+                                                []
+                                            )]
+                                            []
+                                        )
+                                        (Print
+                                            (StringConstant
+                                                "]"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                        )
+                                        (If
+                                            ()
+                                            (IntegerCompare
+                                                (Var 6 __list_iterator6)
+                                                Lt
+                                                (IntegerBinOp
+                                                    (ListLen
+                                                        (Var 6 r)
+                                                        (Integer 4)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (IntegerConstant 1 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            [(Print
+                                                (StringConstant
+                                                    ", "
+                                                    (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                            )]
+                                            []
+                                        )]
+                                        []
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "]"
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            test_print_list_tuple:
+                                (Function
+                                    (SymbolTable
+                                        5
+                                        {
+                                            __list_iterator:
+                                                (Variable
+                                                    5
+                                                    __list_iterator
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            __list_iterator1:
+                                                (Variable
+                                                    5
+                                                    __list_iterator1
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            __list_iterator2:
+                                                (Variable
+                                                    5
+                                                    __list_iterator2
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            __list_iterator3:
+                                                (Variable
+                                                    5
+                                                    __list_iterator3
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            __list_iterator4:
+                                                (Variable
+                                                    5
+                                                    __list_iterator4
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            __list_iterator5:
+                                                (Variable
+                                                    5
+                                                    __list_iterator5
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            __list_iterator6:
+                                                (Variable
+                                                    5
+                                                    __list_iterator6
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            a:
+                                                (Variable
+                                                    5
+                                                    a
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (List
+                                                        (Tuple
+                                                            [(Integer 4)
+                                                            (Integer 4)]
+                                                        )
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            b:
+                                                (Variable
+                                                    5
+                                                    b
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Tuple
+                                                        [(List
+                                                            (Allocatable
+                                                                (String 1 () DeferredLength DescriptorString)
+                                                            )
+                                                        )
+                                                        (List
+                                                            (Integer 4)
+                                                        )
+                                                        (Real 8)]
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            b1:
+                                                (Variable
+                                                    5
+                                                    b1
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            b2:
+                                                (Variable
+                                                    5
+                                                    b2
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (List
+                                                        (Integer 4)
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            c:
+                                                (Variable
+                                                    5
+                                                    c
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (List
+                                                        (List
+                                                            (Tuple
+                                                                [(Integer 4)
+                                                                (Allocatable
+                                                                    (String 1 () DeferredLength DescriptorString)
+                                                                )]
+                                                            )
+                                                        )
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    test_print_list_tuple
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 5 a)
+                                        (ListConstant
+                                            [(TupleConstant
+                                                [(IntegerConstant 1 (Integer 4) Decimal)
+                                                (IntegerConstant 2 (Integer 4) Decimal)]
+                                                (Tuple
+                                                    [(Integer 4)
+                                                    (Integer 4)]
+                                                )
+                                            )
+                                            (TupleConstant
+                                                [(IntegerConstant 3 (Integer 4) Decimal)
+                                                (IntegerConstant 4 (Integer 4) Decimal)]
+                                                (Tuple
+                                                    [(Integer 4)
+                                                    (Integer 4)]
+                                                )
+                                            )
+                                            (TupleConstant
+                                                [(IntegerConstant 5 (Integer 4) Decimal)
+                                                (IntegerConstant 6 (Integer 4) Decimal)]
+                                                (Tuple
+                                                    [(Integer 4)
+                                                    (Integer 4)]
+                                                )
+                                            )]
+                                            (List
+                                                (Tuple
+                                                    [(Integer 4)
+                                                    (Integer 4)]
+                                                )
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 5 c)
+                                        (ListConstant
+                                            [(ListConstant
+                                                [(TupleConstant
+                                                    [(IntegerConstant 1 (Integer 4) Decimal)
+                                                    (StringConstant
+                                                        "a"
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (Tuple
+                                                        [(Integer 4)
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)]
+                                                    )
+                                                )
+                                                (TupleConstant
+                                                    [(IntegerConstant 2 (Integer 4) Decimal)
+                                                    (StringConstant
+                                                        "b"
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (Tuple
+                                                        [(Integer 4)
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)]
+                                                    )
+                                                )]
+                                                (List
+                                                    (Tuple
+                                                        [(Integer 4)
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)]
+                                                    )
+                                                )
+                                            )
+                                            (ListConstant
+                                                [(TupleConstant
+                                                    [(IntegerConstant 3 (Integer 4) Decimal)
+                                                    (StringConstant
+                                                        "c"
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (Tuple
+                                                        [(Integer 4)
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)]
+                                                    )
+                                                )
+                                                (TupleConstant
+                                                    [(IntegerConstant 4 (Integer 4) Decimal)
+                                                    (StringConstant
+                                                        "d"
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )]
+                                                    (Tuple
+                                                        [(Integer 4)
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)]
+                                                    )
+                                                )]
+                                                (List
+                                                    (Tuple
+                                                        [(Integer 4)
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)]
+                                                    )
+                                                )
+                                            )]
+                                            (List
+                                                (List
+                                                    (Tuple
+                                                        [(Integer 4)
+                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)]
+                                                    )
+                                                )
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 5 b1)
+                                        (ListConstant
+                                            [(StringConstant
+                                                "a"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (StringConstant
+                                                "bb"
+                                                (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (StringConstant
+                                                "ccc"
+                                                (String 1 (IntegerConstant 3 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (StringConstant
+                                                "dddd"
+                                                (String 1 (IntegerConstant 4 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                            (StringConstant
+                                                "eeeee"
+                                                (String 1 (IntegerConstant 5 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )]
+                                            (List
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 5 b2)
+                                        (ListConstant
+                                            [(IntegerConstant 10 (Integer 4) Decimal)
+                                            (IntegerConstant 20 (Integer 4) Decimal)
+                                            (IntegerConstant 30 (Integer 4) Decimal)
+                                            (IntegerConstant 40 (Integer 4) Decimal)]
+                                            (List
+                                                (Integer 4)
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 5 b)
+                                        (TupleConstant
+                                            [(Var 5 b1)
+                                            (Var 5 b2)
+                                            (RealConstant
+                                                6.030500
+                                                (Real 8)
+                                            )]
+                                            (Tuple
+                                                [(List
+                                                    (Allocatable
+                                                        (String 1 () DeferredLength DescriptorString)
+                                                    )
+                                                )
+                                                (List
+                                                    (Integer 4)
+                                                )
+                                                (Real 8)]
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "["
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 5 __list_iterator)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (ListLen
+                                                (Var 5 a)
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(Print
+                                            (StringConstant
+                                                "("
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                        )
+                                        (Print
+                                            (StringFormat
+                                                ()
+                                                [(TupleItem
+                                                    (ListItem
+                                                        (Var 5 a)
+                                                        (Var 5 __list_iterator)
+                                                        (Tuple
+                                                            [(Integer 4)
+                                                            (Integer 4)]
+                                                        )
+                                                        ()
+                                                    )
+                                                    (IntegerConstant 0 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    ()
+                                                )]
+                                                FormatFortran
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                                ()
+                                            )
+                                        )
+                                        (Print
+                                            (StringConstant
+                                                ", "
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                        )
+                                        (Print
+                                            (StringFormat
+                                                ()
+                                                [(TupleItem
+                                                    (ListItem
+                                                        (Var 5 a)
+                                                        (Var 5 __list_iterator)
+                                                        (Tuple
+                                                            [(Integer 4)
+                                                            (Integer 4)]
+                                                        )
+                                                        ()
+                                                    )
+                                                    (IntegerConstant 1 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    ()
+                                                )]
+                                                FormatFortran
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                                ()
+                                            )
+                                        )
+                                        (Print
+                                            (StringConstant
+                                                ")"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                        )
+                                        (If
+                                            ()
+                                            (IntegerCompare
+                                                (Var 5 __list_iterator)
+                                                Lt
+                                                (IntegerBinOp
+                                                    (ListLen
+                                                        (Var 5 a)
+                                                        (Integer 4)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (IntegerConstant 1 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            [(Print
+                                                (StringConstant
+                                                    ", "
+                                                    (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                            )]
+                                            []
+                                        )]
+                                        []
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "]"
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "("
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "["
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 5 __list_iterator1)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (ListLen
+                                                (TupleItem
+                                                    (Var 5 b)
+                                                    (IntegerConstant 0 (Integer 4) Decimal)
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                    ()
+                                                )
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(Print
+                                            (ListItem
+                                                (TupleItem
+                                                    (Var 5 b)
+                                                    (IntegerConstant 0 (Integer 4) Decimal)
+                                                    (List
+                                                        (Allocatable
+                                                            (String 1 () DeferredLength DescriptorString)
+                                                        )
+                                                    )
+                                                    ()
+                                                )
+                                                (Var 5 __list_iterator1)
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                                ()
+                                            )
+                                        )
+                                        (If
+                                            ()
+                                            (IntegerCompare
+                                                (Var 5 __list_iterator1)
+                                                Lt
+                                                (IntegerBinOp
+                                                    (ListLen
+                                                        (TupleItem
+                                                            (Var 5 b)
+                                                            (IntegerConstant 0 (Integer 4) Decimal)
+                                                            (List
+                                                                (Allocatable
+                                                                    (String 1 () DeferredLength DescriptorString)
+                                                                )
+                                                            )
+                                                            ()
+                                                        )
+                                                        (Integer 4)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (IntegerConstant 1 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            [(Print
+                                                (StringConstant
+                                                    ", "
+                                                    (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                            )]
+                                            []
+                                        )]
+                                        []
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "]"
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            ", "
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "["
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 5 __list_iterator2)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (ListLen
+                                                (TupleItem
+                                                    (Var 5 b)
+                                                    (IntegerConstant 1 (Integer 4) Decimal)
+                                                    (List
+                                                        (Integer 4)
+                                                    )
+                                                    ()
+                                                )
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(Print
+                                            (StringFormat
+                                                ()
+                                                [(ListItem
+                                                    (TupleItem
+                                                        (Var 5 b)
+                                                        (IntegerConstant 1 (Integer 4) Decimal)
+                                                        (List
+                                                            (Integer 4)
+                                                        )
+                                                        ()
+                                                    )
+                                                    (Var 5 __list_iterator2)
+                                                    (Integer 4)
+                                                    ()
+                                                )]
+                                                FormatFortran
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                                ()
+                                            )
+                                        )
+                                        (If
+                                            ()
+                                            (IntegerCompare
+                                                (Var 5 __list_iterator2)
+                                                Lt
+                                                (IntegerBinOp
+                                                    (ListLen
+                                                        (TupleItem
+                                                            (Var 5 b)
+                                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                                            (List
+                                                                (Integer 4)
+                                                            )
+                                                            ()
+                                                        )
+                                                        (Integer 4)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (IntegerConstant 1 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            [(Print
+                                                (StringConstant
+                                                    ", "
+                                                    (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                            )]
+                                            []
+                                        )]
+                                        []
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "]"
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            ", "
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(TupleItem
+                                                (Var 5 b)
+                                                (IntegerConstant 2 (Integer 4) Decimal)
+                                                (Real 8)
+                                                ()
+                                            )]
+                                            FormatFortran
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            ")"
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "["
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 5 __list_iterator3)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (ListLen
+                                                (Var 5 c)
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(Print
+                                            (StringConstant
+                                                "["
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                        )
+                                        (DoLoop
+                                            ()
+                                            ((Var 5 __list_iterator4)
+                                            (IntegerConstant 0 (Integer 4) Decimal)
+                                            (IntegerBinOp
+                                                (ListLen
+                                                    (ListItem
+                                                        (Var 5 c)
+                                                        (Var 5 __list_iterator3)
+                                                        (List
+                                                            (Tuple
+                                                                [(Integer 4)
+                                                                (Allocatable
+                                                                    (String 1 () DeferredLength DescriptorString)
+                                                                )]
+                                                            )
+                                                        )
+                                                        ()
+                                                    )
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                Sub
+                                                (IntegerConstant 1 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            (IntegerConstant 1 (Integer 4) Decimal))
+                                            [(Print
+                                                (StringConstant
+                                                    "("
+                                                    (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                            )
+                                            (Print
+                                                (StringFormat
+                                                    ()
+                                                    [(TupleItem
+                                                        (ListItem
+                                                            (ListItem
+                                                                (Var 5 c)
+                                                                (Var 5 __list_iterator3)
+                                                                (List
+                                                                    (Tuple
+                                                                        [(Integer 4)
+                                                                        (Allocatable
+                                                                            (String 1 () DeferredLength DescriptorString)
+                                                                        )]
+                                                                    )
+                                                                )
+                                                                ()
+                                                            )
+                                                            (Var 5 __list_iterator4)
+                                                            (Tuple
+                                                                [(Integer 4)
+                                                                (Allocatable
+                                                                    (String 1 () DeferredLength DescriptorString)
+                                                                )]
+                                                            )
+                                                            ()
+                                                        )
+                                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                                        (Integer 4)
+                                                        ()
+                                                    )]
+                                                    FormatFortran
+                                                    (Allocatable
+                                                        (String 1 () DeferredLength DescriptorString)
+                                                    )
+                                                    ()
+                                                )
+                                            )
+                                            (Print
+                                                (StringConstant
+                                                    ", "
+                                                    (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                            )
+                                            (Print
+                                                (TupleItem
+                                                    (ListItem
+                                                        (ListItem
+                                                            (Var 5 c)
+                                                            (Var 5 __list_iterator3)
+                                                            (List
+                                                                (Tuple
+                                                                    [(Integer 4)
+                                                                    (Allocatable
+                                                                        (String 1 () DeferredLength DescriptorString)
+                                                                    )]
+                                                                )
+                                                            )
+                                                            ()
+                                                        )
+                                                        (Var 5 __list_iterator4)
+                                                        (Tuple
+                                                            [(Integer 4)
+                                                            (Allocatable
+                                                                (String 1 () DeferredLength DescriptorString)
+                                                            )]
+                                                        )
+                                                        ()
+                                                    )
+                                                    (IntegerConstant 1 (Integer 4) Decimal)
+                                                    (Allocatable
+                                                        (String 1 () DeferredLength DescriptorString)
+                                                    )
+                                                    ()
+                                                )
+                                            )
+                                            (Print
+                                                (StringConstant
+                                                    ")"
+                                                    (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                            )
+                                            (If
+                                                ()
+                                                (IntegerCompare
+                                                    (Var 5 __list_iterator4)
+                                                    Lt
+                                                    (IntegerBinOp
+                                                        (ListLen
+                                                            (ListItem
+                                                                (Var 5 c)
+                                                                (Var 5 __list_iterator3)
+                                                                (List
+                                                                    (Tuple
+                                                                        [(Integer 4)
+                                                                        (Allocatable
+                                                                            (String 1 () DeferredLength DescriptorString)
+                                                                        )]
+                                                                    )
+                                                                )
+                                                                ()
+                                                            )
+                                                            (Integer 4)
+                                                            ()
+                                                        )
+                                                        Sub
+                                                        (IntegerConstant 1 (Integer 4) Decimal)
+                                                        (Integer 4)
+                                                        ()
+                                                    )
+                                                    (Logical 4)
+                                                    ()
+                                                )
+                                                [(Print
+                                                    (StringConstant
+                                                        ", "
+                                                        (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                    )
+                                                )]
+                                                []
+                                            )]
+                                            []
+                                        )
+                                        (Print
+                                            (StringConstant
+                                                "]"
+                                                (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                            )
+                                        )
+                                        (If
+                                            ()
+                                            (IntegerCompare
+                                                (Var 5 __list_iterator3)
+                                                Lt
+                                                (IntegerBinOp
+                                                    (ListLen
+                                                        (Var 5 c)
+                                                        (Integer 4)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (IntegerConstant 1 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            [(Print
+                                                (StringConstant
+                                                    ", "
+                                                    (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                            )]
+                                            []
+                                        )]
+                                        []
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "]"
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "["
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 5 __list_iterator5)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (ListLen
+                                                (Var 5 b1)
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(Print
+                                            (ListItem
+                                                (Var 5 b1)
+                                                (Var 5 __list_iterator5)
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                                ()
+                                            )
+                                        )
+                                        (If
+                                            ()
+                                            (IntegerCompare
+                                                (Var 5 __list_iterator5)
+                                                Lt
+                                                (IntegerBinOp
+                                                    (ListLen
+                                                        (Var 5 b1)
+                                                        (Integer 4)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (IntegerConstant 1 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            [(Print
+                                                (StringConstant
+                                                    ", "
+                                                    (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                            )]
+                                            []
+                                        )]
+                                        []
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "]"
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "["
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 5 __list_iterator6)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (ListLen
+                                                (Var 5 b2)
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(Print
+                                            (StringFormat
+                                                ()
+                                                [(ListItem
+                                                    (Var 5 b2)
+                                                    (Var 5 __list_iterator6)
+                                                    (Integer 4)
+                                                    ()
+                                                )]
+                                                FormatFortran
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                                ()
+                                            )
+                                        )
+                                        (If
+                                            ()
+                                            (IntegerCompare
+                                                (Var 5 __list_iterator6)
+                                                Lt
+                                                (IntegerBinOp
+                                                    (ListLen
+                                                        (Var 5 b2)
+                                                        (Integer 4)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (IntegerConstant 1 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            [(Print
+                                                (StringConstant
+                                                    ", "
+                                                    (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                            )]
+                                            []
+                                        )]
+                                        []
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "]"
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    []
+                    .false.
+                    .false.
+                    .false.
+                ),
+            main_program:
+                (Program
+                    (SymbolTable
+                        9
+                        {
+                            __main__global_stmts:
+                                (ExternalSymbol
+                                    9
+                                    __main__global_stmts
+                                    2 __main__global_stmts
+                                    __main__
+                                    []
+                                    __main__global_stmts
+                                    Public
+                                )
+                        })
+                    main_program
+                    [__main__]
+                    [(SubroutineCall
+                        9 __main__global_stmts
+                        2 __main__global_stmts
+                        []
+                        ()
+                        .false.
+                    )]
+                )
+        })
+    []
+)
diff --git a/tests/reference/pass_print_list_tuple-print_list_tuple_03-195fa9c.json b/tests/reference/pass_print_list_tuple-print_list_tuple_03-195fa9c.json
new file mode 100644
index 0000000000..32f32de569
--- /dev/null
+++ b/tests/reference/pass_print_list_tuple-print_list_tuple_03-195fa9c.json
@@ -0,0 +1,13 @@
+{
+    "basename": "pass_print_list_tuple-print_list_tuple_03-195fa9c",
+    "cmd": "lpython --pass=print_list_tuple --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/../integration_tests/print_list_tuple_03.py",
+    "infile_hash": "5131d7b6049e22c278ad41494969ff1f70c1dc811313032a9fcf58f3",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": "pass_print_list_tuple-print_list_tuple_03-195fa9c.stdout",
+    "stdout_hash": "8512e71bb04d8ac07add7394a33b8ce18ff6af22a3ac7bbe8198ad71",
+    "stderr": null,
+    "stderr_hash": null,
+    "returncode": 0
+}
\ No newline at end of file
diff --git a/tests/reference/pass_print_list_tuple-print_list_tuple_03-195fa9c.stdout b/tests/reference/pass_print_list_tuple-print_list_tuple_03-195fa9c.stdout
new file mode 100644
index 0000000000..0cd9ef80c2
--- /dev/null
+++ b/tests/reference/pass_print_list_tuple-print_list_tuple_03-195fa9c.stdout
@@ -0,0 +1,515 @@
+(TranslationUnit
+    (SymbolTable
+        1
+        {
+            __main__:
+                (Module
+                    (SymbolTable
+                        2
+                        {
+                            __main__global_stmts:
+                                (Function
+                                    (SymbolTable
+                                        4
+                                        {
+                                            
+                                        })
+                                    __main__global_stmts
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    [f]
+                                    []
+                                    [(SubroutineCall
+                                        2 f
+                                        ()
+                                        []
+                                        ()
+                                        .false.
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                ),
+                            f:
+                                (Function
+                                    (SymbolTable
+                                        3
+                                        {
+                                            __list_iterator:
+                                                (Variable
+                                                    3
+                                                    __list_iterator
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Integer 4)
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            x:
+                                                (Variable
+                                                    3
+                                                    x
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Dict
+                                                        (Integer 4)
+                                                        (Tuple
+                                                            [(Integer 4)
+                                                            (Integer 4)]
+                                                        )
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                ),
+                                            y:
+                                                (Variable
+                                                    3
+                                                    y
+                                                    []
+                                                    Local
+                                                    ()
+                                                    ()
+                                                    Default
+                                                    (Dict
+                                                        (Integer 4)
+                                                        (List
+                                                            (Integer 4)
+                                                        )
+                                                    )
+                                                    ()
+                                                    Source
+                                                    Public
+                                                    Required
+                                                    .false.
+                                                    .false.
+                                                    .false.
+                                                    ()
+                                                    .false.
+                                                    .false.
+                                                )
+                                        })
+                                    f
+                                    (FunctionType
+                                        []
+                                        ()
+                                        Source
+                                        Implementation
+                                        ()
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        .false.
+                                        []
+                                        .false.
+                                    )
+                                    []
+                                    []
+                                    [(Assignment
+                                        (Var 3 x)
+                                        (DictConstant
+                                            []
+                                            []
+                                            (Dict
+                                                (Integer 4)
+                                                (Tuple
+                                                    [(Integer 4)
+                                                    (Integer 4)]
+                                                )
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 x)
+                                        (DictConstant
+                                            [(IntegerConstant 1 (Integer 4) Decimal)
+                                            (IntegerConstant 2 (Integer 4) Decimal)]
+                                            [(TupleConstant
+                                                [(IntegerConstant 1 (Integer 4) Decimal)
+                                                (IntegerConstant 2 (Integer 4) Decimal)]
+                                                (Tuple
+                                                    [(Integer 4)
+                                                    (Integer 4)]
+                                                )
+                                            )
+                                            (TupleConstant
+                                                [(IntegerConstant 3 (Integer 4) Decimal)
+                                                (IntegerConstant 4 (Integer 4) Decimal)]
+                                                (Tuple
+                                                    [(Integer 4)
+                                                    (Integer 4)]
+                                                )
+                                            )]
+                                            (Dict
+                                                (Integer 4)
+                                                (Tuple
+                                                    [(Integer 4)
+                                                    (Integer 4)]
+                                                )
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 y)
+                                        (DictConstant
+                                            []
+                                            []
+                                            (Dict
+                                                (Integer 4)
+                                                (List
+                                                    (Integer 4)
+                                                )
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Assignment
+                                        (Var 3 y)
+                                        (DictConstant
+                                            [(IntegerConstant 1 (Integer 4) Decimal)
+                                            (IntegerConstant 2 (Integer 4) Decimal)]
+                                            [(ListConstant
+                                                [(IntegerConstant 1 (Integer 4) Decimal)
+                                                (IntegerConstant 2 (Integer 4) Decimal)]
+                                                (List
+                                                    (Integer 4)
+                                                )
+                                            )
+                                            (ListConstant
+                                                [(IntegerConstant 3 (Integer 4) Decimal)
+                                                (IntegerConstant 4 (Integer 4) Decimal)]
+                                                (List
+                                                    (Integer 4)
+                                                )
+                                            )]
+                                            (Dict
+                                                (Integer 4)
+                                                (List
+                                                    (Integer 4)
+                                                )
+                                            )
+                                        )
+                                        ()
+                                        .false.
+                                        .false.
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "("
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(TupleItem
+                                                (DictItem
+                                                    (Var 3 x)
+                                                    (IntegerConstant 1 (Integer 4) Decimal)
+                                                    ()
+                                                    (Tuple
+                                                        [(Integer 4)
+                                                        (Integer 4)]
+                                                    )
+                                                    ()
+                                                )
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                ()
+                                            )]
+                                            FormatFortran
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            ", "
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(TupleItem
+                                                (DictItem
+                                                    (Var 3 x)
+                                                    (IntegerConstant 1 (Integer 4) Decimal)
+                                                    ()
+                                                    (Tuple
+                                                        [(Integer 4)
+                                                        (Integer 4)]
+                                                    )
+                                                    ()
+                                                )
+                                                (IntegerConstant 1 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                ()
+                                            )]
+                                            FormatFortran
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            ")"
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "("
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(TupleItem
+                                                (DictItem
+                                                    (Var 3 x)
+                                                    (IntegerConstant 2 (Integer 4) Decimal)
+                                                    ()
+                                                    (Tuple
+                                                        [(Integer 4)
+                                                        (Integer 4)]
+                                                    )
+                                                    ()
+                                                )
+                                                (IntegerConstant 0 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                ()
+                                            )]
+                                            FormatFortran
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            ", "
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (Print
+                                        (StringFormat
+                                            ()
+                                            [(TupleItem
+                                                (DictItem
+                                                    (Var 3 x)
+                                                    (IntegerConstant 2 (Integer 4) Decimal)
+                                                    ()
+                                                    (Tuple
+                                                        [(Integer 4)
+                                                        (Integer 4)]
+                                                    )
+                                                    ()
+                                                )
+                                                (IntegerConstant 1 (Integer 4) Decimal)
+                                                (Integer 4)
+                                                ()
+                                            )]
+                                            FormatFortran
+                                            (Allocatable
+                                                (String 1 () DeferredLength DescriptorString)
+                                            )
+                                            ()
+                                        )
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            ")"
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "["
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )
+                                    (DoLoop
+                                        ()
+                                        ((Var 3 __list_iterator)
+                                        (IntegerConstant 0 (Integer 4) Decimal)
+                                        (IntegerBinOp
+                                            (ListLen
+                                                (DictItem
+                                                    (Var 3 y)
+                                                    (IntegerConstant 1 (Integer 4) Decimal)
+                                                    ()
+                                                    (List
+                                                        (Integer 4)
+                                                    )
+                                                    ()
+                                                )
+                                                (Integer 4)
+                                                ()
+                                            )
+                                            Sub
+                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                            (Integer 4)
+                                            ()
+                                        )
+                                        (IntegerConstant 1 (Integer 4) Decimal))
+                                        [(Print
+                                            (StringFormat
+                                                ()
+                                                [(ListItem
+                                                    (DictItem
+                                                        (Var 3 y)
+                                                        (IntegerConstant 1 (Integer 4) Decimal)
+                                                        ()
+                                                        (List
+                                                            (Integer 4)
+                                                        )
+                                                        ()
+                                                    )
+                                                    (Var 3 __list_iterator)
+                                                    (Integer 4)
+                                                    ()
+                                                )]
+                                                FormatFortran
+                                                (Allocatable
+                                                    (String 1 () DeferredLength DescriptorString)
+                                                )
+                                                ()
+                                            )
+                                        )
+                                        (If
+                                            ()
+                                            (IntegerCompare
+                                                (Var 3 __list_iterator)
+                                                Lt
+                                                (IntegerBinOp
+                                                    (ListLen
+                                                        (DictItem
+                                                            (Var 3 y)
+                                                            (IntegerConstant 1 (Integer 4) Decimal)
+                                                            ()
+                                                            (List
+                                                                (Integer 4)
+                                                            )
+                                                            ()
+                                                        )
+                                                        (Integer 4)
+                                                        ()
+                                                    )
+                                                    Sub
+                                                    (IntegerConstant 1 (Integer 4) Decimal)
+                                                    (Integer 4)
+                                                    ()
+                                                )
+                                                (Logical 4)
+                                                ()
+                                            )
+                                            [(Print
+                                                (StringConstant
+                                                    ", "
+                                                    (String 1 (IntegerConstant 2 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                                )
+                                            )]
+                                            []
+                                        )]
+                                        []
+                                    )
+                                    (Print
+                                        (StringConstant
+                                            "]"
+                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
+                                        )
+                                    )]
+                                    ()
+                                    Public
+                                    .false.
+                                    .false.
+                                    ()
+                                )
+                        })
+                    __main__
+                    ()
+                    []
+                    .false.
+                    .false.
+                    .false.
+                ),
+            main_program:
+                (Program
+                    (SymbolTable
+                        5
+                        {
+                            __main__global_stmts:
+                                (ExternalSymbol
+                                    5
+                                    __main__global_stmts
+                                    2 __main__global_stmts
+                                    __main__
+                                    []
+                                    __main__global_stmts
+                                    Public
+                                )
+                        })
+                    main_program
+                    [__main__]
+                    [(SubroutineCall
+                        5 __main__global_stmts
+                        2 __main__global_stmts
+                        []
+                        ()
+                        .false.
+                    )]
+                )
+        })
+    []
+)
diff --git a/tests/reference/python-assert1-192ca6c.json b/tests/reference/python-assert1-192ca6c.json
new file mode 100644
index 0000000000..1db5a55ee7
--- /dev/null
+++ b/tests/reference/python-assert1-192ca6c.json
@@ -0,0 +1,13 @@
+{
+    "basename": "python-assert1-192ca6c",
+    "cmd": "lpython --no-color --show-python {infile}",
+    "infile": "tests/assert1.py",
+    "infile_hash": "0ff84ea5ccd3d0815cbb66e1c3d3acd61dee7257c98aa1a27ceeef3b",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": "python-assert1-192ca6c.stdout",
+    "stdout_hash": "0de7de97bd936f6a66e73ba9789e50ed968b66edce04acfcc168c6db",
+    "stderr": null,
+    "stderr_hash": null,
+    "returncode": 0
+}
\ No newline at end of file
diff --git a/tests/reference/python-assert1-192ca6c.stdout b/tests/reference/python-assert1-192ca6c.stdout
new file mode 100644
index 0000000000..88a510476c
--- /dev/null
+++ b/tests/reference/python-assert1-192ca6c.stdout
@@ -0,0 +1,5 @@
+def test_assert():
+    a: i32
+    a = 5
+    assert (a) == (5), "a is not 5"
+    assert (a) != (10)
diff --git a/tests/reference/python-expr14-2e6ab03.json b/tests/reference/python-expr14-2e6ab03.json
new file mode 100644
index 0000000000..57dfc1ce5e
--- /dev/null
+++ b/tests/reference/python-expr14-2e6ab03.json
@@ -0,0 +1,13 @@
+{
+    "basename": "python-expr14-2e6ab03",
+    "cmd": "lpython --no-color --show-python {infile}",
+    "infile": "tests/expr14.py",
+    "infile_hash": "d18abc152939c944f6a1e493754cea8b72f0d03d360ab4c9e75ad697",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": "python-expr14-2e6ab03.stdout",
+    "stdout_hash": "52e647db794a391cb9ebd5978bb97de935a62e1b85d890232b1a878a",
+    "stderr": null,
+    "stderr_hash": null,
+    "returncode": 0
+}
\ No newline at end of file
diff --git a/tests/reference/python-expr14-2e6ab03.stdout b/tests/reference/python-expr14-2e6ab03.stdout
new file mode 100644
index 0000000000..fcb9a3f182
--- /dev/null
+++ b/tests/reference/python-expr14-2e6ab03.stdout
@@ -0,0 +1,12 @@
+def test_boolean_comparison():
+    b1: bool
+    b2: bool
+    b3: bool
+    b1 = True
+    b2 = True
+    b3 = False
+    b1 = (b1) > (b2)
+    b1 = (b1) == (b2)
+    b1 = (b2) != (b3)
+    b1 = (b2) >= (b3)
+    b1 = (b2) <= (b3)
diff --git a/tests/reference/python-expr17-3b84714.json b/tests/reference/python-expr17-3b84714.json
new file mode 100644
index 0000000000..5ad1fd4c8d
--- /dev/null
+++ b/tests/reference/python-expr17-3b84714.json
@@ -0,0 +1,13 @@
+{
+    "basename": "python-expr17-3b84714",
+    "cmd": "lpython --no-color --show-python {infile}",
+    "infile": "tests/expr17.py",
+    "infile_hash": "105d03de28e04eac6f02555286cf2b954caa81d7135618017aeefe79",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": "python-expr17-3b84714.stdout",
+    "stdout_hash": "9daa5ee66df347ea965190959be6eee3c070b52b38b0c9b52de04e2d",
+    "stderr": null,
+    "stderr_hash": null,
+    "returncode": 0
+}
\ No newline at end of file
diff --git a/tests/reference/python-expr17-3b84714.stdout b/tests/reference/python-expr17-3b84714.stdout
new file mode 100644
index 0000000000..d0f78d5ffe
--- /dev/null
+++ b/tests/reference/python-expr17-3b84714.stdout
@@ -0,0 +1,10 @@
+def if_check():
+    a: i32
+    a = 4
+    if (a) < (0):
+        print("negative value")
+    else:
+        if (a) > (0):
+            print("positive value")
+        else:
+            print("zero")
diff --git a/tests/reference/python-expr2-6b69018.json b/tests/reference/python-expr2-6b69018.json
new file mode 100644
index 0000000000..07c3053bc1
--- /dev/null
+++ b/tests/reference/python-expr2-6b69018.json
@@ -0,0 +1,13 @@
+{
+    "basename": "python-expr2-6b69018",
+    "cmd": "lpython --no-color --show-python {infile}",
+    "infile": "tests/expr2.py",
+    "infile_hash": "52d7d4d33553138f2cf55b9900047e5310c54d62e54b3ca1fa394024",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": "python-expr2-6b69018.stdout",
+    "stdout_hash": "b9e6fef7e82bbf96d66869ae6fd739c46c8d20e5bafabb48a6a15fce",
+    "stderr": null,
+    "stderr_hash": null,
+    "returncode": 0
+}
\ No newline at end of file
diff --git a/tests/reference/python-expr2-6b69018.stdout b/tests/reference/python-expr2-6b69018.stdout
new file mode 100644
index 0000000000..523311bbaa
--- /dev/null
+++ b/tests/reference/python-expr2-6b69018.stdout
@@ -0,0 +1,11 @@
+def test_boolOp():
+    a: bool
+    b: bool
+    a = False
+    b = True
+    a = a and b
+    b = a or (True)
+    a = a or b
+    a = a and b == b
+    a = a and b != b
+    a = b or b
diff --git a/tests/reference/python-expr4-161a0ec.json b/tests/reference/python-expr4-161a0ec.json
new file mode 100644
index 0000000000..abc691f0c0
--- /dev/null
+++ b/tests/reference/python-expr4-161a0ec.json
@@ -0,0 +1,13 @@
+{
+    "basename": "python-expr4-161a0ec",
+    "cmd": "lpython --no-color --show-python {infile}",
+    "infile": "tests/expr4.py",
+    "infile_hash": "5cba7a5d589f54fc31463e48903d5b46604fb64e3e64ba215339047c",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": "python-expr4-161a0ec.stdout",
+    "stdout_hash": "6dbfa328171f15601ab250ddecda5d36beb85a4922a60f583c932d4a",
+    "stderr": null,
+    "stderr_hash": null,
+    "returncode": 0
+}
\ No newline at end of file
diff --git a/tests/reference/python-expr4-161a0ec.stdout b/tests/reference/python-expr4-161a0ec.stdout
new file mode 100644
index 0000000000..81dfdff136
--- /dev/null
+++ b/tests/reference/python-expr4-161a0ec.stdout
@@ -0,0 +1,6 @@
+def test_del():
+    a: i32
+    b: i32
+    a = 4
+    b = 20
+    del a, b
\ No newline at end of file
diff --git a/tests/reference/python-expr6-1a1d4fb.json b/tests/reference/python-expr6-1a1d4fb.json
new file mode 100644
index 0000000000..4637905e1c
--- /dev/null
+++ b/tests/reference/python-expr6-1a1d4fb.json
@@ -0,0 +1,13 @@
+{
+    "basename": "python-expr6-1a1d4fb",
+    "cmd": "lpython --no-color --show-python {infile}",
+    "infile": "tests/expr6.py",
+    "infile_hash": "1f3b5a7d997851264e679d58353346835eb450c608f6da7d2f5e5cd2",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": "python-expr6-1a1d4fb.stdout",
+    "stdout_hash": "36557786797da33792a4a672d4f5e5b0a6ced2c51e674c5ad9426d62",
+    "stderr": null,
+    "stderr_hash": null,
+    "returncode": 0
+}
\ No newline at end of file
diff --git a/tests/reference/python-expr6-1a1d4fb.stdout b/tests/reference/python-expr6-1a1d4fb.stdout
new file mode 100644
index 0000000000..fe35320c4e
--- /dev/null
+++ b/tests/reference/python-expr6-1a1d4fb.stdout
@@ -0,0 +1,7 @@
+def test_ifexp():
+    a: i32
+    b: i32
+    c: bool
+    a = 2
+    b = 6 if (a) == (2) else 8
+    c = True if (b) > (5) else False
diff --git a/tests/reference/run_dbg-test_assert_01-2f34744.json b/tests/reference/run_dbg-test_assert_01-2f34744.json
index 127eb3e44f..f8ac5ccbe9 100644
--- a/tests/reference/run_dbg-test_assert_01-2f34744.json
+++ b/tests/reference/run_dbg-test_assert_01-2f34744.json
@@ -8,6 +8,6 @@
     "stdout": null,
     "stdout_hash": null,
     "stderr": "run_dbg-test_assert_01-2f34744.stderr",
-    "stderr_hash": "5ded88da4106fc9a3cfbaad6f82cc820a79a6ef8cc1661ecfcb37924",
+    "stderr_hash": "4811af471c73572b285e9ea01c8689abdd3cb32c717b3cd4876d2669",
     "returncode": 1
 }
\ No newline at end of file
diff --git a/tests/reference/run_dbg-test_assert_01-2f34744.stderr b/tests/reference/run_dbg-test_assert_01-2f34744.stderr
index c561678d44..a7dc14d623 100644
--- a/tests/reference/run_dbg-test_assert_01-2f34744.stderr
+++ b/tests/reference/run_dbg-test_assert_01-2f34744.stderr
@@ -1,3 +1,5 @@
+  File "tests/runtime_errors/test_assert_01.py", line 1
+    def test():
   File "tests/runtime_errors/test_assert_01.py", line 4
     test()
   File "tests/runtime_errors/test_assert_01.py", line 2
diff --git a/tests/reference/run_dbg-test_assert_02-c6de25a.json b/tests/reference/run_dbg-test_assert_02-c6de25a.json
deleted file mode 100644
index 25aa716a99..0000000000
--- a/tests/reference/run_dbg-test_assert_02-c6de25a.json
+++ /dev/null
@@ -1,13 +0,0 @@
-{
-    "basename": "run_dbg-test_assert_02-c6de25a",
-    "cmd": "lpython {infile} -g --debug-with-line-column --no-color",
-    "infile": "tests/runtime_errors/test_assert_02.py",
-    "infile_hash": "85f0e908c3e5d21da83216f95221f59ebd69b477f42718842c1d6c8c",
-    "outfile": null,
-    "outfile_hash": null,
-    "stdout": null,
-    "stdout_hash": null,
-    "stderr": "run_dbg-test_assert_02-c6de25a.stderr",
-    "stderr_hash": "ddba8a92bcfd5a30016735589da0dc56f2785e7636afcc0edeca4139",
-    "returncode": 1
-}
\ No newline at end of file
diff --git a/tests/reference/run_dbg-test_assert_02-c6de25a.stderr b/tests/reference/run_dbg-test_assert_02-c6de25a.stderr
deleted file mode 100644
index 4fe6972010..0000000000
--- a/tests/reference/run_dbg-test_assert_02-c6de25a.stderr
+++ /dev/null
@@ -1,5 +0,0 @@
-  File "tests/runtime_errors/test_assert_02.py", line 4
-    test()
-  File "tests/runtime_errors/test_assert_02.py", line 2
-    assert 1 != 1, "One is equal to one."
-AssertionError: One is equal to one.
diff --git a/tests/reference/run_dbg-test_assert_03-bd7b7dd.json b/tests/reference/run_dbg-test_assert_03-bd7b7dd.json
index c05b63780b..f771107475 100644
--- a/tests/reference/run_dbg-test_assert_03-bd7b7dd.json
+++ b/tests/reference/run_dbg-test_assert_03-bd7b7dd.json
@@ -8,6 +8,6 @@
     "stdout": null,
     "stdout_hash": null,
     "stderr": "run_dbg-test_assert_03-bd7b7dd.stderr",
-    "stderr_hash": "7f97899439260443b40867e81d7c481c2fc23ec84ee777e7b43984d8",
+    "stderr_hash": "cae7dd955478787917e9dbb0bc1f63631317b13da1d892c3ebab9097",
     "returncode": 1
 }
\ No newline at end of file
diff --git a/tests/reference/run_dbg-test_assert_03-bd7b7dd.stderr b/tests/reference/run_dbg-test_assert_03-bd7b7dd.stderr
index 8ee39fc2e8..65f2444ba9 100644
--- a/tests/reference/run_dbg-test_assert_03-bd7b7dd.stderr
+++ b/tests/reference/run_dbg-test_assert_03-bd7b7dd.stderr
@@ -1,3 +1,5 @@
+  File "tests/runtime_errors/test_assert_03.py", line 1
+    def f():
   File "tests/runtime_errors/test_assert_03.py", line 10
     main()
   File "tests/runtime_errors/test_assert_03.py", line 8
diff --git a/tests/reference/run_dbg-test_quit_01-30889cc.json b/tests/reference/run_dbg-test_quit_01-30889cc.json
index 4e50fcce5f..37ce5d232a 100644
--- a/tests/reference/run_dbg-test_quit_01-30889cc.json
+++ b/tests/reference/run_dbg-test_quit_01-30889cc.json
@@ -8,6 +8,6 @@
     "stdout": null,
     "stdout_hash": null,
     "stderr": "run_dbg-test_quit_01-30889cc.stderr",
-    "stderr_hash": "f5a660003a2da017d3ced437825a1e6f1c0c046d73cf68d183c92a40",
+    "stderr_hash": "56a8b2a9b2ee213cbfab4c18870ed93ddbfaa37e421f171155d06d4f",
     "returncode": 10
 }
\ No newline at end of file
diff --git a/tests/reference/run_dbg-test_quit_01-30889cc.stderr b/tests/reference/run_dbg-test_quit_01-30889cc.stderr
index c7e212253e..5fd4fe85c8 100644
--- a/tests/reference/run_dbg-test_quit_01-30889cc.stderr
+++ b/tests/reference/run_dbg-test_quit_01-30889cc.stderr
@@ -1,5 +1,7 @@
+  File "tests/runtime_errors/test_quit_01.py", line 1
+    def test():
   File "tests/runtime_errors/test_quit_01.py", line 4
     test()
   File "tests/runtime_errors/test_quit_01.py", line 2
     quit(10)
-STOP
+STOP 10
diff --git a/tests/reference/run_dbg-test_raise_01-dfd86ca.json b/tests/reference/run_dbg-test_raise_01-dfd86ca.json
index 199a810c97..2dbe004c7e 100644
--- a/tests/reference/run_dbg-test_raise_01-dfd86ca.json
+++ b/tests/reference/run_dbg-test_raise_01-dfd86ca.json
@@ -8,6 +8,6 @@
     "stdout": null,
     "stdout_hash": null,
     "stderr": "run_dbg-test_raise_01-dfd86ca.stderr",
-    "stderr_hash": "073aae20bbe7cf78e116825e3e825365b07230972ff7bcb3a5dddb93",
+    "stderr_hash": "76085f527077a81ba6457af8f982a497038168f555ab4027d0d6340e",
     "returncode": 1
 }
\ No newline at end of file
diff --git a/tests/reference/run_dbg-test_raise_01-dfd86ca.stderr b/tests/reference/run_dbg-test_raise_01-dfd86ca.stderr
index 9c5a4dafd0..42bc707825 100644
--- a/tests/reference/run_dbg-test_raise_01-dfd86ca.stderr
+++ b/tests/reference/run_dbg-test_raise_01-dfd86ca.stderr
@@ -1,3 +1,5 @@
+  File "tests/runtime_errors/test_raise_01.py", line 1
+    def test():
   File "tests/runtime_errors/test_raise_01.py", line 4
     test()
   File "tests/runtime_errors/test_raise_01.py", line 2
diff --git a/tests/reference/runtime-test_dict14-421fe53.json b/tests/reference/runtime-test_dict14-421fe53.json
new file mode 100644
index 0000000000..ae6a837f77
--- /dev/null
+++ b/tests/reference/runtime-test_dict14-421fe53.json
@@ -0,0 +1,13 @@
+{
+    "basename": "runtime-test_dict14-421fe53",
+    "cmd": "lpython {infile}",
+    "infile": "tests/errors/test_dict14.py",
+    "infile_hash": "c81e4a1e050c87d04f537b49fcfb0b479a5ce3ed7735f90d2c347dba",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "runtime-test_dict14-421fe53.stderr",
+    "stderr_hash": "cb46ef04db0862506d688ebe8830a50afaaead9b0d29b0c007dd149a",
+    "returncode": 1
+}
\ No newline at end of file
diff --git a/tests/reference/runtime-test_dict14-421fe53.stderr b/tests/reference/runtime-test_dict14-421fe53.stderr
new file mode 100644
index 0000000000..e8c90e4e1d
--- /dev/null
+++ b/tests/reference/runtime-test_dict14-421fe53.stderr
@@ -0,0 +1 @@
+KeyError: The dict does not contain the specified key
diff --git a/tests/reference/runtime-test_dict15-6f3af0d.json b/tests/reference/runtime-test_dict15-6f3af0d.json
new file mode 100644
index 0000000000..5bf5c80a4b
--- /dev/null
+++ b/tests/reference/runtime-test_dict15-6f3af0d.json
@@ -0,0 +1,13 @@
+{
+    "basename": "runtime-test_dict15-6f3af0d",
+    "cmd": "lpython {infile}",
+    "infile": "tests/errors/test_dict15.py",
+    "infile_hash": "6a0e507b9a9cf659cb433abbdc3435b4c63a6079eadcd7d2c765def1",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "runtime-test_dict15-6f3af0d.stderr",
+    "stderr_hash": "cb46ef04db0862506d688ebe8830a50afaaead9b0d29b0c007dd149a",
+    "returncode": 1
+}
\ No newline at end of file
diff --git a/tests/reference/runtime-test_dict15-6f3af0d.stderr b/tests/reference/runtime-test_dict15-6f3af0d.stderr
new file mode 100644
index 0000000000..e8c90e4e1d
--- /dev/null
+++ b/tests/reference/runtime-test_dict15-6f3af0d.stderr
@@ -0,0 +1 @@
+KeyError: The dict does not contain the specified key
diff --git a/tests/reference/runtime-test_list_01-3ee9b3e.json b/tests/reference/runtime-test_list_01-3ee9b3e.json
index 32c4c0e099..0c845eb4e6 100644
--- a/tests/reference/runtime-test_list_01-3ee9b3e.json
+++ b/tests/reference/runtime-test_list_01-3ee9b3e.json
@@ -2,7 +2,7 @@
     "basename": "runtime-test_list_01-3ee9b3e",
     "cmd": "lpython {infile}",
     "infile": "tests/runtime_errors/test_list_01.py",
-    "infile_hash": "7d62ba61085d24d42b3a726889aeebb226bf1fe1918004d909d50520",
+    "infile_hash": "a982aac98be709cc9304e20c7d79f4141f41fdfb0eba261d00beff2c",
     "outfile": null,
     "outfile_hash": null,
     "stdout": null,
diff --git a/tests/reference/runtime-test_list_02-5f7db5f.json b/tests/reference/runtime-test_list_02-5f7db5f.json
index 6a675b34f8..c4afb880c4 100644
--- a/tests/reference/runtime-test_list_02-5f7db5f.json
+++ b/tests/reference/runtime-test_list_02-5f7db5f.json
@@ -2,7 +2,7 @@
     "basename": "runtime-test_list_02-5f7db5f",
     "cmd": "lpython {infile}",
     "infile": "tests/runtime_errors/test_list_02.py",
-    "infile_hash": "f74ffd3eeb1f4a61b105d50f030fcd9e1095cc70d0a618763bbf367b",
+    "infile_hash": "004ac679732e715b87556ac0d6f0ea649612981999a20dad4e25acd0",
     "outfile": null,
     "outfile_hash": null,
     "stdout": null,
diff --git a/tests/reference/runtime-test_list_index-0483808.json b/tests/reference/runtime-test_list_index-0483808.json
new file mode 100644
index 0000000000..36ec2cbe9d
--- /dev/null
+++ b/tests/reference/runtime-test_list_index-0483808.json
@@ -0,0 +1,13 @@
+{
+    "basename": "runtime-test_list_index-0483808",
+    "cmd": "lpython {infile}",
+    "infile": "tests/errors/test_list_index.py",
+    "infile_hash": "cded5d4f016ab4642b0ad1e30239da53272d823fe7d01c999c2811a1",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "runtime-test_list_index-0483808.stderr",
+    "stderr_hash": "dd3d49b5f2f97ed8f1d27cd73ebca7a8740483660dd4ae702e2048b2",
+    "returncode": 1
+}
\ No newline at end of file
diff --git a/tests/reference/runtime-test_list_index-0483808.stderr b/tests/reference/runtime-test_list_index-0483808.stderr
new file mode 100644
index 0000000000..93fd195103
--- /dev/null
+++ b/tests/reference/runtime-test_list_index-0483808.stderr
@@ -0,0 +1 @@
+ValueError: The list does not contain the element: 0
diff --git a/tests/reference/runtime-test_list_index2-1249233.json b/tests/reference/runtime-test_list_index2-1249233.json
new file mode 100644
index 0000000000..f1e4344ce2
--- /dev/null
+++ b/tests/reference/runtime-test_list_index2-1249233.json
@@ -0,0 +1,13 @@
+{
+    "basename": "runtime-test_list_index2-1249233",
+    "cmd": "lpython {infile}",
+    "infile": "tests/errors/test_list_index2.py",
+    "infile_hash": "f7f556f1c048a88ee6eb9eae3ce3a337da17b3705b602085ff62ac4f",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "runtime-test_list_index2-1249233.stderr",
+    "stderr_hash": "fc647b30c89710c23d7efec0fe4390894c725680b5d8c4b4c939a5bf",
+    "returncode": 1
+}
\ No newline at end of file
diff --git a/tests/reference/runtime-test_list_index2-1249233.stderr b/tests/reference/runtime-test_list_index2-1249233.stderr
new file mode 100644
index 0000000000..68bd909af9
--- /dev/null
+++ b/tests/reference/runtime-test_list_index2-1249233.stderr
@@ -0,0 +1 @@
+ValueError: The list does not contain the element: 1
diff --git a/tests/reference/runtime-test_list_index3-647a94a.json b/tests/reference/runtime-test_list_index3-647a94a.json
new file mode 100644
index 0000000000..6a0d2c606b
--- /dev/null
+++ b/tests/reference/runtime-test_list_index3-647a94a.json
@@ -0,0 +1,13 @@
+{
+    "basename": "runtime-test_list_index3-647a94a",
+    "cmd": "lpython {infile}",
+    "infile": "tests/errors/test_list_index3.py",
+    "infile_hash": "2e560614ee9a755d3a001cee48f968f2ff90bea9f00ab22b441667b2",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "runtime-test_list_index3-647a94a.stderr",
+    "stderr_hash": "fc647b30c89710c23d7efec0fe4390894c725680b5d8c4b4c939a5bf",
+    "returncode": 1
+}
\ No newline at end of file
diff --git a/tests/reference/runtime-test_list_index3-647a94a.stderr b/tests/reference/runtime-test_list_index3-647a94a.stderr
new file mode 100644
index 0000000000..68bd909af9
--- /dev/null
+++ b/tests/reference/runtime-test_list_index3-647a94a.stderr
@@ -0,0 +1 @@
+ValueError: The list does not contain the element: 1
diff --git a/tests/reference/runtime-test_list_index4-c31dfdb.json b/tests/reference/runtime-test_list_index4-c31dfdb.json
new file mode 100644
index 0000000000..237d1a5f2e
--- /dev/null
+++ b/tests/reference/runtime-test_list_index4-c31dfdb.json
@@ -0,0 +1,13 @@
+{
+    "basename": "runtime-test_list_index4-c31dfdb",
+    "cmd": "lpython {infile}",
+    "infile": "tests/errors/test_list_index4.py",
+    "infile_hash": "4513031129335b8c83686936c12f6b24516c14a79ad5c3b9a9d98113",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "runtime-test_list_index4-c31dfdb.stderr",
+    "stderr_hash": "3e3eee1ba7f96c1edaeed1c7b93f54b397dbe3b08d20c9b720c291a5",
+    "returncode": 1
+}
\ No newline at end of file
diff --git a/tests/reference/runtime-test_list_index4-c31dfdb.stderr b/tests/reference/runtime-test_list_index4-c31dfdb.stderr
new file mode 100644
index 0000000000..6adc6bd250
--- /dev/null
+++ b/tests/reference/runtime-test_list_index4-c31dfdb.stderr
@@ -0,0 +1 @@
+ValueError: The list does not contain the element: 2
diff --git a/tests/reference/tokens-docstring1-1355fbb.json b/tests/reference/tokens-docstring1-1355fbb.json
index 8eb9972e83..ee767caca7 100644
--- a/tests/reference/tokens-docstring1-1355fbb.json
+++ b/tests/reference/tokens-docstring1-1355fbb.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "tokens-docstring1-1355fbb.stdout",
-    "stdout_hash": "1b85fc7f73cdf02de4658833853717555d29e098188ad737ab1a0ac1",
+    "stdout_hash": "9afa056946f77dcfa0a5aa89b3ff738274836892169e03c14ee14a8f",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/tokens-docstring1-1355fbb.stdout b/tests/reference/tokens-docstring1-1355fbb.stdout
index f75b9d8ed0..fe9060da80 100644
--- a/tests/reference/tokens-docstring1-1355fbb.stdout
+++ b/tests/reference/tokens-docstring1-1355fbb.stdout
@@ -5,9 +5,7 @@
 (TOKEN ":") 11:11
 (NEWLINE) 12:12
 (TOKEN "indent") 13:16
-(TOKEN "string" "A multi-line
-    docstring.
-    ") 17:54
+(TOKEN "string" "A multi-line\n    docstring.\n    ") 17:54
 (NEWLINE) 55:55
 (NEWLINE) 56:56
 (TOKEN "dedent") 56:56
@@ -18,10 +16,7 @@
 (TOKEN ":") 68:68
 (NEWLINE) 69:69
 (TOKEN "indent") 70:73
-(TOKEN "string" "
-    A multi-line
-    docstring.
-    ") 74:116
+(TOKEN "string" "\n    A multi-line\n    docstring.\n    ") 74:116
 (NEWLINE) 117:117
 (NEWLINE) 118:118
 (TOKEN "dedent") 118:118
@@ -36,9 +31,6 @@
 (NEWLINE) 167:167
 (NEWLINE) 168:168
 (TOKEN "dedent") 168:168
-(TOKEN "string" "
-A multi-line
-docstring.
-") 169:199
+(TOKEN "string" "\nA multi-line\ndocstring.\n") 169:199
 (NEWLINE) 200:200
 (EOF) 201:201
diff --git a/tests/reference/tokens-indent1-290e858.json b/tests/reference/tokens-indent1-290e858.json
index 6d3403142d..7374507118 100644
--- a/tests/reference/tokens-indent1-290e858.json
+++ b/tests/reference/tokens-indent1-290e858.json
@@ -2,11 +2,11 @@
     "basename": "tokens-indent1-290e858",
     "cmd": "lpython --no-color --show-tokens {infile} -o {outfile}",
     "infile": "tests/tokens/indent1.py",
-    "infile_hash": "c0eef37090fca7aa852c58b85802275f51f71fd8bdfe2c8e043f7fef",
+    "infile_hash": "e8d2e3a0872f5aea8db4b6631f2fcb0e562dda5b3f59ff247cb9aaa9",
     "outfile": null,
     "outfile_hash": null,
     "stdout": "tokens-indent1-290e858.stdout",
-    "stdout_hash": "8c7536776e4ef90939cf1e1262d667c479f170e6993cdf6c54abc593",
+    "stdout_hash": "9b71c23ca510cf5a4529540766fb16fc3c5b59bc7225efcfe25b3f0b",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/tokens-indent1-290e858.stdout b/tests/reference/tokens-indent1-290e858.stdout
index c71403deb4..98197c5ed5 100644
--- a/tests/reference/tokens-indent1-290e858.stdout
+++ b/tests/reference/tokens-indent1-290e858.stdout
@@ -1,73 +1,73 @@
 (KEYWORD "from") 0:3
-(TOKEN "identifier" ltypes) 5:10
-(KEYWORD "import") 12:17
-(TOKEN "identifier" i32) 25:27
-(NEWLINE) 28:28
+(TOKEN "identifier" lpython) 5:11
+(KEYWORD "import") 13:18
+(TOKEN "identifier" i32) 26:28
 (NEWLINE) 29:29
-(KEYWORD "def") 30:32
-(TOKEN "identifier" test) 34:37
-(TOKEN "(") 38:38
-(TOKEN ")") 39:39
-(TOKEN ":") 40:40
-(NEWLINE) 41:41
-(TOKEN "indent") 42:45
-(TOKEN "identifier" print) 46:50
-(TOKEN "(") 51:51
-(TOKEN ")") 52:52
-(NEWLINE) 53:53
-(KEYWORD "if") 58:59
-(TOKEN "integer" 1) 61:61
-(TOKEN ">") 63:63
-(TOKEN "integer" 0) 65:65
-(TOKEN ":") 66:66
-(NEWLINE) 67:67
-(TOKEN "indent") 68:75
-(TOKEN "identifier" print) 76:80
-(TOKEN "(") 81:81
-(TOKEN ")") 82:82
-(NEWLINE) 83:83
-(KEYWORD "if") 92:93
-(TOKEN "integer" 2) 95:95
-(TOKEN ">") 97:97
-(TOKEN "integer" 0) 99:99
-(TOKEN ":") 100:100
-(NEWLINE) 101:101
-(TOKEN "indent") 102:113
-(TOKEN "identifier" print) 114:118
-(TOKEN "(") 119:119
-(TOKEN ")") 120:120
-(NEWLINE) 121:121
-(TOKEN "dedent") 122:125
-(TOKEN "dedent") 125:125
-(KEYWORD "if") 126:127
-(TOKEN "integer" 3) 129:129
-(TOKEN ">") 131:131
-(TOKEN "integer" 0) 133:133
-(TOKEN ":") 134:134
-(NEWLINE) 135:135
-(TOKEN "indent") 136:143
-(TOKEN "identifier" print) 144:148
-(TOKEN "(") 149:149
-(TOKEN ")") 150:150
-(NEWLINE) 151:151
+(NEWLINE) 30:30
+(KEYWORD "def") 31:33
+(TOKEN "identifier" test) 35:38
+(TOKEN "(") 39:39
+(TOKEN ")") 40:40
+(TOKEN ":") 41:41
+(NEWLINE) 42:42
+(TOKEN "indent") 43:46
+(TOKEN "identifier" print) 47:51
+(TOKEN "(") 52:52
+(TOKEN ")") 53:53
+(NEWLINE) 54:54
+(KEYWORD "if") 59:60
+(TOKEN "integer" 1) 62:62
+(TOKEN ">") 64:64
+(TOKEN "integer" 0) 66:66
+(TOKEN ":") 67:67
+(NEWLINE) 68:68
+(TOKEN "indent") 69:76
+(TOKEN "identifier" print) 77:81
+(TOKEN "(") 82:82
+(TOKEN ")") 83:83
+(NEWLINE) 84:84
+(KEYWORD "if") 93:94
+(TOKEN "integer" 2) 96:96
+(TOKEN ">") 98:98
+(TOKEN "integer" 0) 100:100
+(TOKEN ":") 101:101
+(NEWLINE) 102:102
+(TOKEN "indent") 103:114
+(TOKEN "identifier" print) 115:119
+(TOKEN "(") 120:120
+(TOKEN ")") 121:121
+(NEWLINE) 122:122
+(TOKEN "dedent") 123:126
+(TOKEN "dedent") 126:126
+(KEYWORD "if") 127:128
+(TOKEN "integer" 3) 130:130
+(TOKEN ">") 132:132
+(TOKEN "integer" 0) 134:134
+(TOKEN ":") 135:135
+(NEWLINE) 136:136
+(TOKEN "indent") 137:144
+(TOKEN "identifier" print) 145:149
+(TOKEN "(") 150:150
+(TOKEN ")") 151:151
 (NEWLINE) 152:152
-(KEYWORD "if") 161:162
-(TOKEN "integer" 4) 164:164
-(TOKEN ">") 166:166
-(TOKEN "integer" 0) 168:168
-(TOKEN ":") 169:169
-(NEWLINE) 170:170
-(TOKEN "indent") 171:182
-(TOKEN "identifier" print) 183:187
-(TOKEN "(") 188:188
-(TOKEN ")") 189:189
-(NEWLINE) 190:190
+(NEWLINE) 153:153
+(KEYWORD "if") 162:163
+(TOKEN "integer" 4) 165:165
+(TOKEN ">") 167:167
+(TOKEN "integer" 0) 169:169
+(TOKEN ":") 170:170
+(NEWLINE) 171:171
+(TOKEN "indent") 172:183
+(TOKEN "identifier" print) 184:188
+(TOKEN "(") 189:189
+(TOKEN ")") 190:190
 (NEWLINE) 191:191
-(TOKEN "dedent") 191:191
-(TOKEN "dedent") 191:191
-(TOKEN "dedent") 191:191
-(TOKEN "identifier" test) 192:195
-(TOKEN "(") 196:196
-(TOKEN ")") 197:197
-(NEWLINE) 198:198
-(EOF) 199:199
+(NEWLINE) 192:192
+(TOKEN "dedent") 192:192
+(TOKEN "dedent") 192:192
+(TOKEN "dedent") 192:192
+(TOKEN "identifier" test) 193:196
+(TOKEN "(") 197:197
+(TOKEN ")") 198:198
+(NEWLINE) 199:199
+(EOF) 200:200
diff --git a/tests/reference/tokens-test_literal-e20c024.json b/tests/reference/tokens-test_literal-e20c024.json
new file mode 100644
index 0000000000..de80ac4c4e
--- /dev/null
+++ b/tests/reference/tokens-test_literal-e20c024.json
@@ -0,0 +1,13 @@
+{
+    "basename": "tokens-test_literal-e20c024",
+    "cmd": "lpython --no-color --show-tokens {infile} -o {outfile}",
+    "infile": "tests/errors/test_literal.py",
+    "infile_hash": "ac9e219faa40c6554983087e8ac198c323f2e5af284b8689f5608f76",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": null,
+    "stdout_hash": null,
+    "stderr": "tokens-test_literal-e20c024.stderr",
+    "stderr_hash": "58fe8b74550bd6f81761b173626f3d45eaae346665862f1b085eebe8",
+    "returncode": 1
+}
\ No newline at end of file
diff --git a/tests/reference/tokens-test_literal-e20c024.stderr b/tests/reference/tokens-test_literal-e20c024.stderr
new file mode 100644
index 0000000000..977e7c1fd1
--- /dev/null
+++ b/tests/reference/tokens-test_literal-e20c024.stderr
@@ -0,0 +1,5 @@
+tokenizer error: Leading zeros in decimal integer are not allowed
+ --> tests/errors/test_literal.py:2:14
+  |
+2 |     x: i32 = 0123
+  |              ^^^^ 
diff --git a/tests/reference/wat-bool1-234bcd1.json b/tests/reference/wat-bool1-234bcd1.json
index 8f09553bb6..4be1a3e7c1 100644
--- a/tests/reference/wat-bool1-234bcd1.json
+++ b/tests/reference/wat-bool1-234bcd1.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "wat-bool1-234bcd1.stdout",
-    "stdout_hash": "9509a512bd279e27e1c1a4573a344b98e984e93521cef089eb3bb334",
+    "stdout_hash": "1ac138f5c0fd3b21a75e6bf4e0024d5f0df2f0a6b195defd472677c2",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/wat-bool1-234bcd1.stdout b/tests/reference/wat-bool1-234bcd1.stdout
index 5819b7337f..b50b0ccd6a 100644
--- a/tests/reference/wat-bool1-234bcd1.stdout
+++ b/tests/reference/wat-bool1-234bcd1.stdout
@@ -1,22 +1,83 @@
 (module
     (type (;0;) (func (param i32) (result)))
     (type (;1;) (func (param i32 i32 i32 i32) (result i32)))
-    (type (;2;) (func (param i64) (result)))
-    (type (;3;) (func (param f64) (result)))
+    (type (;2;) (func (param) (result)))
+    (type (;3;) (func (param) (result)))
     (type (;4;) (func (param) (result)))
-    (type (;5;) (func (param) (result)))
-    (type (;6;) (func (param) (result)))
+    (type (;5;) (func (param i64) (result)))
     (import "wasi_snapshot_preview1" "proc_exit" (func (;0;) (type 0)))
     (import "wasi_snapshot_preview1" "fd_write" (func (;1;) (type 1)))
-    (global $0 i32 (i32.const 0))
-    (func $2 (type 2) (param i64) (result)
+    (global $0 (mut i32) (i32.const 0))
+    (global $1 (mut i32) (i32.const 0))
+    (global $2 (mut i64) (i64.const 0))
+    (global $3 (mut f32) (f32.const 0.000000))
+    (global $4 (mut f32) (f32.const 0.000000))
+    (global $5 (mut f64) (f64.const 0.000000))
+    (global $6 (mut f64) (f64.const 0.000000))
+    (func $2 (type 2) (param) (result)
+        (local)
+        call 3
+        return
+    )
+    (func $3 (type 3) (param) (result)
+        (local i32)
+        i32.const 1
+        i64.extend_i32_s
+        call 5
+        i32.const 1
+        i32.const 16
+        i32.const 1
+        i32.const 0
+        call 1
+        drop
+        i32.const 0
+        i64.extend_i32_s
+        call 5
+        i32.const 1
+        i32.const 16
+        i32.const 1
+        i32.const 0
+        call 1
+        drop
+        i32.const 1
+        local.set 0
+        local.get 0
+        i64.extend_i32_s
+        call 5
+        i32.const 1
+        i32.const 16
+        i32.const 1
+        i32.const 0
+        call 1
+        drop
+        i32.const 0
+        local.set 0
+        local.get 0
+        i64.extend_i32_s
+        call 5
+        i32.const 1
+        i32.const 16
+        i32.const 1
+        i32.const 0
+        call 1
+        drop
+        return
+    )
+    (func $4 (type 4) (param) (result)
+        (local)
+        call 2
+        i32.const 0
+        call 0
+        return
+    )
+    (func $5 (type 5) (param i64) (result)
         (local i64 i64 i64 i64)
         local.get 0
         i64.const 0
         i64.eq
         if
             i32.const 1
-            i32.const 52
+            i32.const 88
             i32.const 1
             i32.const 0
             call 1
@@ -98,7 +159,7 @@
                 i64.rem_s
                 i64.const 12
                 i64.mul
-                i64.const 52
+                i64.const 88
                 i64.add
                 local.set 0
                 i32.const 1
@@ -114,178 +175,44 @@
         end
         return
     )
-    (func $3 (type 3) (param f64) (result)
-        (local i64 i64 i64)
-        local.get 0
-        f64.const 0.000000
-        f64.lt
-        if
-            i32.const 1
-            i32.const 28
-            i32.const 1
-            i32.const 0
-            call 1
-            drop
-            local.get 0
-            f64.const -1.000000
-            f64.mul
-            local.set 0
-        else
-        end
-        local.get 0
-        i64.trunc_f64_s
-        call 2
-        i32.const 1
-        i32.const 40
-        i32.const 1
-        i32.const 0
-        call 1
-        drop
-        local.get 0
-        local.get 0
-        i64.trunc_f64_s
-        f64.convert_i64_s
-        f64.sub
-        f64.const 100000000.000000
-        f64.mul
-        i64.trunc_f64_s
-        local.set 2
-        local.get 2
-        local.set 3
-        i64.const 0
-        local.set 1
-        loop
-            local.get 2
-            i64.const 0
-            i64.gt_s
-            if
-                local.get 1
-                i64.const 1
-                i64.add
-                local.set 1
-                local.get 2
-                f64.convert_i64_s
-                i64.const 10
-                f64.convert_i64_s
-                f64.div
-                i64.trunc_f64_s
-                local.set 2
-                br 1
-            else
-            end
-        end
-        loop
-            local.get 1
-            i64.const 8
-            i64.lt_s
-            if
-                local.get 1
-                i64.const 1
-                i64.add
-                local.set 1
-                i32.const 1
-                i32.const 52
-                i32.const 1
-                i32.const 0
-                call 1
-                drop
-                br 1
-            else
-            end
-        end
-        local.get 3
-        call 2
-        return
-    )
-    (func $4 (type 4) (param) (result)
-        (local)
-        call 5
-        return
-    )
-    (func $5 (type 5) (param) (result)
-        (local i32)
-        i32.const 1
-        i64.extend_i32_s
-        call 2
-        i32.const 1
-        i32.const 16
-        i32.const 1
-        i32.const 0
-        call 1
-        drop
-        i32.const 0
-        i64.extend_i32_s
-        call 2
-        i32.const 1
-        i32.const 16
-        i32.const 1
-        i32.const 0
-        call 1
-        drop
-        i32.const 1
-        local.set 0
-        local.get 0
-        i64.extend_i32_s
-        call 2
-        i32.const 1
-        i32.const 16
-        i32.const 1
-        i32.const 0
-        call 1
-        drop
-        i32.const 0
-        local.set 0
-        local.get 0
-        i64.extend_i32_s
-        call 2
-        i32.const 1
-        i32.const 16
-        i32.const 1
-        i32.const 0
-        call 1
-        drop
-        return
-    )
-    (func $6 (type 6) (param) (result)
-        (local)
-        call 4
-        i32.const 0
-        call 0
-        return
-    )
-    (memory (;0;) 100 100)
+    (memory (;0;) 1000 1000)
     (export "memory" (memory 0))
-    (export "print_i64" (func 2))
-    (export "print_f64" (func 3))
-    (export "_lpython_main_program" (func 4))
-    (export "test_bool" (func 5))
-    (export "_start" (func 6))
+    (export "__main__global_stmts" (func 2))
+    (export "test_bool" (func 3))
+    (export "_start" (func 4))
+    (export "print_i64" (func 5))
     (data (;0;) (i32.const 4) "\0c\00\00\00\01\00\00\00")
     (data (;1;) (i32.const 12) "    ")
     (data (;2;) (i32.const 16) "\18\00\00\00\01\00\00\00")
-    (data (;3;) (i32.const 24) "\0a   ")
+    (data (;3;) (i32.const 24) "\n   ")
     (data (;4;) (i32.const 28) "\24\00\00\00\01\00\00\00")
     (data (;5;) (i32.const 36) "-   ")
     (data (;6;) (i32.const 40) "\30\00\00\00\01\00\00\00")
     (data (;7;) (i32.const 48) ".   ")
     (data (;8;) (i32.const 52) "\3c\00\00\00\01\00\00\00")
-    (data (;9;) (i32.const 60) "0   ")
+    (data (;9;) (i32.const 60) "(   ")
     (data (;10;) (i32.const 64) "\48\00\00\00\01\00\00\00")
-    (data (;11;) (i32.const 72) "1   ")
+    (data (;11;) (i32.const 72) ")   ")
     (data (;12;) (i32.const 76) "\54\00\00\00\01\00\00\00")
-    (data (;13;) (i32.const 84) "2   ")
+    (data (;13;) (i32.const 84) ",   ")
     (data (;14;) (i32.const 88) "\60\00\00\00\01\00\00\00")
-    (data (;15;) (i32.const 96) "3   ")
+    (data (;15;) (i32.const 96) "0   ")
     (data (;16;) (i32.const 100) "\6c\00\00\00\01\00\00\00")
-    (data (;17;) (i32.const 108) "4   ")
+    (data (;17;) (i32.const 108) "1   ")
     (data (;18;) (i32.const 112) "\78\00\00\00\01\00\00\00")
-    (data (;19;) (i32.const 120) "5   ")
+    (data (;19;) (i32.const 120) "2   ")
     (data (;20;) (i32.const 124) "\84\00\00\00\01\00\00\00")
-    (data (;21;) (i32.const 132) "6   ")
+    (data (;21;) (i32.const 132) "3   ")
     (data (;22;) (i32.const 136) "\90\00\00\00\01\00\00\00")
-    (data (;23;) (i32.const 144) "7   ")
+    (data (;23;) (i32.const 144) "4   ")
     (data (;24;) (i32.const 148) "\9c\00\00\00\01\00\00\00")
-    (data (;25;) (i32.const 156) "8   ")
+    (data (;25;) (i32.const 156) "5   ")
     (data (;26;) (i32.const 160) "\a8\00\00\00\01\00\00\00")
-    (data (;27;) (i32.const 168) "9   ")
+    (data (;27;) (i32.const 168) "6   ")
+    (data (;28;) (i32.const 172) "\b4\00\00\00\01\00\00\00")
+    (data (;29;) (i32.const 180) "7   ")
+    (data (;30;) (i32.const 184) "\c0\00\00\00\01\00\00\00")
+    (data (;31;) (i32.const 192) "8   ")
+    (data (;32;) (i32.const 196) "\cc\00\00\00\01\00\00\00")
+    (data (;33;) (i32.const 204) "9   ")
 )
diff --git a/tests/reference/wat-expr14-5e0cb96.json b/tests/reference/wat-expr14-5e0cb96.json
index f752110448..09741a198d 100644
--- a/tests/reference/wat-expr14-5e0cb96.json
+++ b/tests/reference/wat-expr14-5e0cb96.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "wat-expr14-5e0cb96.stdout",
-    "stdout_hash": "96f90f190be31d02b145de3fe293bc74b4a79a3a8aa4c8ebb236a4e9",
+    "stdout_hash": "f8ff7eb9eb4bc533fc4d36c58a0378df6dfbf135313962dbf379d69a",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/wat-expr14-5e0cb96.stdout b/tests/reference/wat-expr14-5e0cb96.stdout
index d9a929c963..60c9b0a760 100644
--- a/tests/reference/wat-expr14-5e0cb96.stdout
+++ b/tests/reference/wat-expr14-5e0cb96.stdout
@@ -1,269 +1,57 @@
 (module
     (type (;0;) (func (param i32) (result)))
     (type (;1;) (func (param i32 i32 i32 i32) (result i32)))
-    (type (;2;) (func (param i64) (result)))
-    (type (;3;) (func (param f64) (result)))
-    (type (;4;) (func (param) (result)))
-    (type (;5;) (func (param) (result)))
+    (type (;2;) (func (param) (result)))
     (import "wasi_snapshot_preview1" "proc_exit" (func (;0;) (type 0)))
     (import "wasi_snapshot_preview1" "fd_write" (func (;1;) (type 1)))
-    (global $0 i32 (i32.const 0))
-    (func $2 (type 2) (param i64) (result)
-        (local i64 i64 i64 i64)
-        local.get 0
-        i64.const 0
-        i64.eq
-        if
-            i32.const 1
-            i32.const 52
-            i32.const 1
-            i32.const 0
-            call 1
-            drop
-            return
-        else
-        end
-        local.get 0
-        i64.const 0
-        i64.lt_s
-        if
-            i32.const 1
-            i32.const 28
-            i32.const 1
-            i32.const 0
-            call 1
-            drop
-            local.get 0
-            i64.const -1
-            i64.mul
-            local.set 0
-        else
-        end
-        local.get 0
-        local.set 4
-        i64.const 0
-        local.set 1
-        loop
-            local.get 0
-            i64.const 0
-            i64.gt_s
-            if
-                local.get 1
-                i64.const 1
-                i64.add
-                local.set 1
-                local.get 0
-                i64.const 10
-                i64.div_s
-                local.set 0
-                br 1
-            else
-            end
-        end
-        loop
-            local.get 1
-            i64.const 0
-            i64.gt_s
-            if
-                local.get 1
-                i64.const 1
-                i64.sub
-                local.set 1
-                i64.const 1
-                local.set 2
-                i64.const 0
-                local.set 3
-                loop
-                    local.get 3
-                    local.get 1
-                    i64.lt_s
-                    if
-                        local.get 3
-                        i64.const 1
-                        i64.add
-                        local.set 3
-                        local.get 2
-                        i64.const 10
-                        i64.mul
-                        local.set 2
-                        br 1
-                    else
-                    end
-                end
-                local.get 4
-                local.get 2
-                i64.div_s
-                i64.const 10
-                i64.rem_s
-                i64.const 12
-                i64.mul
-                i64.const 52
-                i64.add
-                local.set 0
-                i32.const 1
-                local.get 0
-                i32.wrap_i64
-                i32.const 1
-                i32.const 0
-                call 1
-                drop
-                br 1
-            else
-            end
-        end
-        return
-    )
-    (func $3 (type 3) (param f64) (result)
-        (local i64 i64 i64)
-        local.get 0
-        f64.const 0.000000
-        f64.lt
-        if
-            i32.const 1
-            i32.const 28
-            i32.const 1
-            i32.const 0
-            call 1
-            drop
-            local.get 0
-            f64.const -1.000000
-            f64.mul
-            local.set 0
-        else
-        end
-        local.get 0
-        i64.trunc_f64_s
-        call 2
-        i32.const 1
-        i32.const 40
-        i32.const 1
-        i32.const 0
-        call 1
-        drop
-        local.get 0
-        local.get 0
-        i64.trunc_f64_s
-        f64.convert_i64_s
-        f64.sub
-        f64.const 100000000.000000
-        f64.mul
-        i64.trunc_f64_s
-        local.set 2
-        local.get 2
-        local.set 3
-        i64.const 0
-        local.set 1
-        loop
-            local.get 2
-            i64.const 0
-            i64.gt_s
-            if
-                local.get 1
-                i64.const 1
-                i64.add
-                local.set 1
-                local.get 2
-                f64.convert_i64_s
-                i64.const 10
-                f64.convert_i64_s
-                f64.div
-                i64.trunc_f64_s
-                local.set 2
-                br 1
-            else
-            end
-        end
-        loop
-            local.get 1
-            i64.const 8
-            i64.lt_s
-            if
-                local.get 1
-                i64.const 1
-                i64.add
-                local.set 1
-                i32.const 1
-                i32.const 52
-                i32.const 1
-                i32.const 0
-                call 1
-                drop
-                br 1
-            else
-            end
-        end
-        local.get 3
-        call 2
-        return
-    )
-    (func $4 (type 4) (param) (result)
-        (local i32 i32 i32)
-        i32.const 1
-        local.set 0
-        i32.const 1
-        local.set 1
-        i32.const 0
-        local.set 2
-        local.get 0
-        local.get 1
-        i32.gt_s
-        local.set 0
-        local.get 0
-        local.get 1
-        i32.eq
-        local.set 0
-        local.get 1
-        local.get 2
-        i32.ne
-        local.set 0
-        local.get 1
-        local.get 2
-        i32.ge_s
-        local.set 0
-        local.get 1
-        local.get 2
-        i32.le_s
-        local.set 0
-        return
-    )
-    (func $5 (type 5) (param) (result)
+    (global $0 (mut i32) (i32.const 0))
+    (global $1 (mut i32) (i32.const 0))
+    (global $2 (mut i64) (i64.const 0))
+    (global $3 (mut f32) (f32.const 0.000000))
+    (global $4 (mut f32) (f32.const 0.000000))
+    (global $5 (mut f64) (f64.const 0.000000))
+    (global $6 (mut f64) (f64.const 0.000000))
+    (func $2 (type 2) (param) (result)
         (local)
         i32.const 0
         call 0
         return
     )
-    (memory (;0;) 100 100)
+    (memory (;0;) 1000 1000)
     (export "memory" (memory 0))
-    (export "print_i64" (func 2))
-    (export "print_f64" (func 3))
-    (export "test_boolean_comparison" (func 4))
-    (export "_start" (func 5))
+    (export "_start" (func 2))
     (data (;0;) (i32.const 4) "\0c\00\00\00\01\00\00\00")
     (data (;1;) (i32.const 12) "    ")
     (data (;2;) (i32.const 16) "\18\00\00\00\01\00\00\00")
-    (data (;3;) (i32.const 24) "\0a   ")
+    (data (;3;) (i32.const 24) "\n   ")
     (data (;4;) (i32.const 28) "\24\00\00\00\01\00\00\00")
     (data (;5;) (i32.const 36) "-   ")
     (data (;6;) (i32.const 40) "\30\00\00\00\01\00\00\00")
     (data (;7;) (i32.const 48) ".   ")
     (data (;8;) (i32.const 52) "\3c\00\00\00\01\00\00\00")
-    (data (;9;) (i32.const 60) "0   ")
+    (data (;9;) (i32.const 60) "(   ")
     (data (;10;) (i32.const 64) "\48\00\00\00\01\00\00\00")
-    (data (;11;) (i32.const 72) "1   ")
+    (data (;11;) (i32.const 72) ")   ")
     (data (;12;) (i32.const 76) "\54\00\00\00\01\00\00\00")
-    (data (;13;) (i32.const 84) "2   ")
+    (data (;13;) (i32.const 84) ",   ")
     (data (;14;) (i32.const 88) "\60\00\00\00\01\00\00\00")
-    (data (;15;) (i32.const 96) "3   ")
+    (data (;15;) (i32.const 96) "0   ")
     (data (;16;) (i32.const 100) "\6c\00\00\00\01\00\00\00")
-    (data (;17;) (i32.const 108) "4   ")
+    (data (;17;) (i32.const 108) "1   ")
     (data (;18;) (i32.const 112) "\78\00\00\00\01\00\00\00")
-    (data (;19;) (i32.const 120) "5   ")
+    (data (;19;) (i32.const 120) "2   ")
     (data (;20;) (i32.const 124) "\84\00\00\00\01\00\00\00")
-    (data (;21;) (i32.const 132) "6   ")
+    (data (;21;) (i32.const 132) "3   ")
     (data (;22;) (i32.const 136) "\90\00\00\00\01\00\00\00")
-    (data (;23;) (i32.const 144) "7   ")
+    (data (;23;) (i32.const 144) "4   ")
     (data (;24;) (i32.const 148) "\9c\00\00\00\01\00\00\00")
-    (data (;25;) (i32.const 156) "8   ")
+    (data (;25;) (i32.const 156) "5   ")
     (data (;26;) (i32.const 160) "\a8\00\00\00\01\00\00\00")
-    (data (;27;) (i32.const 168) "9   ")
+    (data (;27;) (i32.const 168) "6   ")
+    (data (;28;) (i32.const 172) "\b4\00\00\00\01\00\00\00")
+    (data (;29;) (i32.const 180) "7   ")
+    (data (;30;) (i32.const 184) "\c0\00\00\00\01\00\00\00")
+    (data (;31;) (i32.const 192) "8   ")
+    (data (;32;) (i32.const 196) "\cc\00\00\00\01\00\00\00")
+    (data (;33;) (i32.const 204) "9   ")
 )
diff --git a/tests/reference/wat-expr2-8b17723.json b/tests/reference/wat-expr2-8b17723.json
index d4dedeb06d..ad73a311e7 100644
--- a/tests/reference/wat-expr2-8b17723.json
+++ b/tests/reference/wat-expr2-8b17723.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "wat-expr2-8b17723.stdout",
-    "stdout_hash": "a38ec604027092a7cd322473580201a022de5e7ea948c3b63a8ab798",
+    "stdout_hash": "f8ff7eb9eb4bc533fc4d36c58a0378df6dfbf135313962dbf379d69a",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/wat-expr2-8b17723.stdout b/tests/reference/wat-expr2-8b17723.stdout
index 76ef89ccdd..60c9b0a760 100644
--- a/tests/reference/wat-expr2-8b17723.stdout
+++ b/tests/reference/wat-expr2-8b17723.stdout
@@ -1,275 +1,57 @@
 (module
     (type (;0;) (func (param i32) (result)))
     (type (;1;) (func (param i32 i32 i32 i32) (result i32)))
-    (type (;2;) (func (param i64) (result)))
-    (type (;3;) (func (param f64) (result)))
-    (type (;4;) (func (param) (result)))
-    (type (;5;) (func (param) (result)))
+    (type (;2;) (func (param) (result)))
     (import "wasi_snapshot_preview1" "proc_exit" (func (;0;) (type 0)))
     (import "wasi_snapshot_preview1" "fd_write" (func (;1;) (type 1)))
-    (global $0 i32 (i32.const 0))
-    (func $2 (type 2) (param i64) (result)
-        (local i64 i64 i64 i64)
-        local.get 0
-        i64.const 0
-        i64.eq
-        if
-            i32.const 1
-            i32.const 52
-            i32.const 1
-            i32.const 0
-            call 1
-            drop
-            return
-        else
-        end
-        local.get 0
-        i64.const 0
-        i64.lt_s
-        if
-            i32.const 1
-            i32.const 28
-            i32.const 1
-            i32.const 0
-            call 1
-            drop
-            local.get 0
-            i64.const -1
-            i64.mul
-            local.set 0
-        else
-        end
-        local.get 0
-        local.set 4
-        i64.const 0
-        local.set 1
-        loop
-            local.get 0
-            i64.const 0
-            i64.gt_s
-            if
-                local.get 1
-                i64.const 1
-                i64.add
-                local.set 1
-                local.get 0
-                i64.const 10
-                i64.div_s
-                local.set 0
-                br 1
-            else
-            end
-        end
-        loop
-            local.get 1
-            i64.const 0
-            i64.gt_s
-            if
-                local.get 1
-                i64.const 1
-                i64.sub
-                local.set 1
-                i64.const 1
-                local.set 2
-                i64.const 0
-                local.set 3
-                loop
-                    local.get 3
-                    local.get 1
-                    i64.lt_s
-                    if
-                        local.get 3
-                        i64.const 1
-                        i64.add
-                        local.set 3
-                        local.get 2
-                        i64.const 10
-                        i64.mul
-                        local.set 2
-                        br 1
-                    else
-                    end
-                end
-                local.get 4
-                local.get 2
-                i64.div_s
-                i64.const 10
-                i64.rem_s
-                i64.const 12
-                i64.mul
-                i64.const 52
-                i64.add
-                local.set 0
-                i32.const 1
-                local.get 0
-                i32.wrap_i64
-                i32.const 1
-                i32.const 0
-                call 1
-                drop
-                br 1
-            else
-            end
-        end
-        return
-    )
-    (func $3 (type 3) (param f64) (result)
-        (local i64 i64 i64)
-        local.get 0
-        f64.const 0.000000
-        f64.lt
-        if
-            i32.const 1
-            i32.const 28
-            i32.const 1
-            i32.const 0
-            call 1
-            drop
-            local.get 0
-            f64.const -1.000000
-            f64.mul
-            local.set 0
-        else
-        end
-        local.get 0
-        i64.trunc_f64_s
-        call 2
-        i32.const 1
-        i32.const 40
-        i32.const 1
-        i32.const 0
-        call 1
-        drop
-        local.get 0
-        local.get 0
-        i64.trunc_f64_s
-        f64.convert_i64_s
-        f64.sub
-        f64.const 100000000.000000
-        f64.mul
-        i64.trunc_f64_s
-        local.set 2
-        local.get 2
-        local.set 3
-        i64.const 0
-        local.set 1
-        loop
-            local.get 2
-            i64.const 0
-            i64.gt_s
-            if
-                local.get 1
-                i64.const 1
-                i64.add
-                local.set 1
-                local.get 2
-                f64.convert_i64_s
-                i64.const 10
-                f64.convert_i64_s
-                f64.div
-                i64.trunc_f64_s
-                local.set 2
-                br 1
-            else
-            end
-        end
-        loop
-            local.get 1
-            i64.const 8
-            i64.lt_s
-            if
-                local.get 1
-                i64.const 1
-                i64.add
-                local.set 1
-                i32.const 1
-                i32.const 52
-                i32.const 1
-                i32.const 0
-                call 1
-                drop
-                br 1
-            else
-            end
-        end
-        local.get 3
-        call 2
-        return
-    )
-    (func $4 (type 4) (param) (result)
-        (local i32 i32)
-        i32.const 0
-        local.set 0
-        i32.const 1
-        local.set 1
-        local.get 0
-        local.get 1
-        i32.and
-        local.set 0
-        local.get 0
-        i32.const 1
-        i32.or
-        local.set 1
-        local.get 0
-        local.get 1
-        i32.or
-        local.set 0
-        local.get 0
-        local.get 1
-        local.get 1
-        i32.eq
-        i32.and
-        local.set 0
-        local.get 0
-        local.get 1
-        local.get 1
-        i32.ne
-        i32.and
-        local.set 0
-        local.get 1
-        local.get 1
-        i32.or
-        local.set 0
-        return
-    )
-    (func $5 (type 5) (param) (result)
+    (global $0 (mut i32) (i32.const 0))
+    (global $1 (mut i32) (i32.const 0))
+    (global $2 (mut i64) (i64.const 0))
+    (global $3 (mut f32) (f32.const 0.000000))
+    (global $4 (mut f32) (f32.const 0.000000))
+    (global $5 (mut f64) (f64.const 0.000000))
+    (global $6 (mut f64) (f64.const 0.000000))
+    (func $2 (type 2) (param) (result)
         (local)
         i32.const 0
         call 0
         return
     )
-    (memory (;0;) 100 100)
+    (memory (;0;) 1000 1000)
     (export "memory" (memory 0))
-    (export "print_i64" (func 2))
-    (export "print_f64" (func 3))
-    (export "test_boolOp" (func 4))
-    (export "_start" (func 5))
+    (export "_start" (func 2))
     (data (;0;) (i32.const 4) "\0c\00\00\00\01\00\00\00")
     (data (;1;) (i32.const 12) "    ")
     (data (;2;) (i32.const 16) "\18\00\00\00\01\00\00\00")
-    (data (;3;) (i32.const 24) "\0a   ")
+    (data (;3;) (i32.const 24) "\n   ")
     (data (;4;) (i32.const 28) "\24\00\00\00\01\00\00\00")
     (data (;5;) (i32.const 36) "-   ")
     (data (;6;) (i32.const 40) "\30\00\00\00\01\00\00\00")
     (data (;7;) (i32.const 48) ".   ")
     (data (;8;) (i32.const 52) "\3c\00\00\00\01\00\00\00")
-    (data (;9;) (i32.const 60) "0   ")
+    (data (;9;) (i32.const 60) "(   ")
     (data (;10;) (i32.const 64) "\48\00\00\00\01\00\00\00")
-    (data (;11;) (i32.const 72) "1   ")
+    (data (;11;) (i32.const 72) ")   ")
     (data (;12;) (i32.const 76) "\54\00\00\00\01\00\00\00")
-    (data (;13;) (i32.const 84) "2   ")
+    (data (;13;) (i32.const 84) ",   ")
     (data (;14;) (i32.const 88) "\60\00\00\00\01\00\00\00")
-    (data (;15;) (i32.const 96) "3   ")
+    (data (;15;) (i32.const 96) "0   ")
     (data (;16;) (i32.const 100) "\6c\00\00\00\01\00\00\00")
-    (data (;17;) (i32.const 108) "4   ")
+    (data (;17;) (i32.const 108) "1   ")
     (data (;18;) (i32.const 112) "\78\00\00\00\01\00\00\00")
-    (data (;19;) (i32.const 120) "5   ")
+    (data (;19;) (i32.const 120) "2   ")
     (data (;20;) (i32.const 124) "\84\00\00\00\01\00\00\00")
-    (data (;21;) (i32.const 132) "6   ")
+    (data (;21;) (i32.const 132) "3   ")
     (data (;22;) (i32.const 136) "\90\00\00\00\01\00\00\00")
-    (data (;23;) (i32.const 144) "7   ")
+    (data (;23;) (i32.const 144) "4   ")
     (data (;24;) (i32.const 148) "\9c\00\00\00\01\00\00\00")
-    (data (;25;) (i32.const 156) "8   ")
+    (data (;25;) (i32.const 156) "5   ")
     (data (;26;) (i32.const 160) "\a8\00\00\00\01\00\00\00")
-    (data (;27;) (i32.const 168) "9   ")
+    (data (;27;) (i32.const 168) "6   ")
+    (data (;28;) (i32.const 172) "\b4\00\00\00\01\00\00\00")
+    (data (;29;) (i32.const 180) "7   ")
+    (data (;30;) (i32.const 184) "\c0\00\00\00\01\00\00\00")
+    (data (;31;) (i32.const 192) "8   ")
+    (data (;32;) (i32.const 196) "\cc\00\00\00\01\00\00\00")
+    (data (;33;) (i32.const 204) "9   ")
 )
diff --git a/tests/reference/wat-expr9-f73afd1.json b/tests/reference/wat-expr9-f73afd1.json
deleted file mode 100644
index 6718a7b064..0000000000
--- a/tests/reference/wat-expr9-f73afd1.json
+++ /dev/null
@@ -1,13 +0,0 @@
-{
-    "basename": "wat-expr9-f73afd1",
-    "cmd": "lpython --no-color --show-wat {infile}",
-    "infile": "tests/expr9.py",
-    "infile_hash": "1f02a7486b298ae9e74a163875a76f8fa7cc25d7f50547133dbbdfab",
-    "outfile": null,
-    "outfile_hash": null,
-    "stdout": "wat-expr9-f73afd1.stdout",
-    "stdout_hash": "d1618163ab287b71613fd75147ae7362a7955ebc6e9f32810b21b824",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
-}
\ No newline at end of file
diff --git a/tests/reference/wat-expr9-f73afd1.stdout b/tests/reference/wat-expr9-f73afd1.stdout
deleted file mode 100644
index d6abccca65..0000000000
--- a/tests/reference/wat-expr9-f73afd1.stdout
+++ /dev/null
@@ -1,305 +0,0 @@
-(module
-    (type (;0;) (func (param i32) (result)))
-    (type (;1;) (func (param i32 i32 i32 i32) (result i32)))
-    (type (;2;) (func (param i64) (result)))
-    (type (;3;) (func (param f64) (result)))
-    (type (;4;) (func (param) (result)))
-    (type (;5;) (func (param) (result)))
-    (type (;6;) (func (param i32) (result i32)))
-    (type (;7;) (func (param i32) (result i32)))
-    (type (;8;) (func (param i32) (result i32)))
-    (type (;9;) (func (param i32) (result)))
-    (type (;10;) (func (param) (result)))
-    (import "wasi_snapshot_preview1" "proc_exit" (func (;0;) (type 0)))
-    (import "wasi_snapshot_preview1" "fd_write" (func (;1;) (type 1)))
-    (global $0 i32 (i32.const 0))
-    (func $2 (type 2) (param i64) (result)
-        (local i64 i64 i64 i64)
-        local.get 0
-        i64.const 0
-        i64.eq
-        if
-            i32.const 1
-            i32.const 52
-            i32.const 1
-            i32.const 0
-            call 1
-            drop
-            return
-        else
-        end
-        local.get 0
-        i64.const 0
-        i64.lt_s
-        if
-            i32.const 1
-            i32.const 28
-            i32.const 1
-            i32.const 0
-            call 1
-            drop
-            local.get 0
-            i64.const -1
-            i64.mul
-            local.set 0
-        else
-        end
-        local.get 0
-        local.set 4
-        i64.const 0
-        local.set 1
-        loop
-            local.get 0
-            i64.const 0
-            i64.gt_s
-            if
-                local.get 1
-                i64.const 1
-                i64.add
-                local.set 1
-                local.get 0
-                i64.const 10
-                i64.div_s
-                local.set 0
-                br 1
-            else
-            end
-        end
-        loop
-            local.get 1
-            i64.const 0
-            i64.gt_s
-            if
-                local.get 1
-                i64.const 1
-                i64.sub
-                local.set 1
-                i64.const 1
-                local.set 2
-                i64.const 0
-                local.set 3
-                loop
-                    local.get 3
-                    local.get 1
-                    i64.lt_s
-                    if
-                        local.get 3
-                        i64.const 1
-                        i64.add
-                        local.set 3
-                        local.get 2
-                        i64.const 10
-                        i64.mul
-                        local.set 2
-                        br 1
-                    else
-                    end
-                end
-                local.get 4
-                local.get 2
-                i64.div_s
-                i64.const 10
-                i64.rem_s
-                i64.const 12
-                i64.mul
-                i64.const 52
-                i64.add
-                local.set 0
-                i32.const 1
-                local.get 0
-                i32.wrap_i64
-                i32.const 1
-                i32.const 0
-                call 1
-                drop
-                br 1
-            else
-            end
-        end
-        return
-    )
-    (func $3 (type 3) (param f64) (result)
-        (local i64 i64 i64)
-        local.get 0
-        f64.const 0.000000
-        f64.lt
-        if
-            i32.const 1
-            i32.const 28
-            i32.const 1
-            i32.const 0
-            call 1
-            drop
-            local.get 0
-            f64.const -1.000000
-            f64.mul
-            local.set 0
-        else
-        end
-        local.get 0
-        i64.trunc_f64_s
-        call 2
-        i32.const 1
-        i32.const 40
-        i32.const 1
-        i32.const 0
-        call 1
-        drop
-        local.get 0
-        local.get 0
-        i64.trunc_f64_s
-        f64.convert_i64_s
-        f64.sub
-        f64.const 100000000.000000
-        f64.mul
-        i64.trunc_f64_s
-        local.set 2
-        local.get 2
-        local.set 3
-        i64.const 0
-        local.set 1
-        loop
-            local.get 2
-            i64.const 0
-            i64.gt_s
-            if
-                local.get 1
-                i64.const 1
-                i64.add
-                local.set 1
-                local.get 2
-                f64.convert_i64_s
-                i64.const 10
-                f64.convert_i64_s
-                f64.div
-                i64.trunc_f64_s
-                local.set 2
-                br 1
-            else
-            end
-        end
-        loop
-            local.get 1
-            i64.const 8
-            i64.lt_s
-            if
-                local.get 1
-                i64.const 1
-                i64.add
-                local.set 1
-                i32.const 1
-                i32.const 52
-                i32.const 1
-                i32.const 0
-                call 1
-                drop
-                br 1
-            else
-            end
-        end
-        local.get 3
-        call 2
-        return
-    )
-    (func $4 (type 4) (param) (result)
-        (local)
-        call 5
-        return
-    )
-    (func $5 (type 5) (param) (result)
-        (local i32 i32)
-        i32.const 4
-        call 6
-        local.set 0
-        i32.const 4
-        call 7
-        local.set 1
-        i32.const 4
-        call 8
-        local.set 0
-        i32.const 4
-        call 9
-        return
-    )
-    (func $6 (type 6) (param i32) (result i32)
-        (local i32 i32)
-        i32.const 5
-        local.set 2
-        local.get 2
-        local.set 1
-        local.get 1
-        return
-    )
-    (func $7 (type 7) (param i32) (result i32)
-        (local i32 i32)
-        i32.const 172
-        local.set 2
-        local.get 2
-        local.set 1
-        local.get 1
-        return
-    )
-    (func $8 (type 8) (param i32) (result i32)
-        (local i32)
-        i32.const 3
-        local.set 0
-        local.get 0
-        local.set 1
-        local.get 1
-        return
-    )
-    (func $9 (type 9) (param i32) (result)
-        (local)
-        i32.const 1
-        local.set 0
-        return
-    )
-    (func $10 (type 10) (param) (result)
-        (local)
-        call 4
-        i32.const 0
-        call 0
-        return
-    )
-    (memory (;0;) 100 100)
-    (export "memory" (memory 0))
-    (export "print_i64" (func 2))
-    (export "print_f64" (func 3))
-    (export "_lpython_main_program" (func 4))
-    (export "main0" (func 5))
-    (export "test_return_1" (func 6))
-    (export "test_return_2" (func 7))
-    (export "test_return_3" (func 8))
-    (export "test_return_4" (func 9))
-    (export "_start" (func 10))
-    (data (;0;) (i32.const 4) "\0c\00\00\00\01\00\00\00")
-    (data (;1;) (i32.const 12) "    ")
-    (data (;2;) (i32.const 16) "\18\00\00\00\01\00\00\00")
-    (data (;3;) (i32.const 24) "\0a   ")
-    (data (;4;) (i32.const 28) "\24\00\00\00\01\00\00\00")
-    (data (;5;) (i32.const 36) "-   ")
-    (data (;6;) (i32.const 40) "\30\00\00\00\01\00\00\00")
-    (data (;7;) (i32.const 48) ".   ")
-    (data (;8;) (i32.const 52) "\3c\00\00\00\01\00\00\00")
-    (data (;9;) (i32.const 60) "0   ")
-    (data (;10;) (i32.const 64) "\48\00\00\00\01\00\00\00")
-    (data (;11;) (i32.const 72) "1   ")
-    (data (;12;) (i32.const 76) "\54\00\00\00\01\00\00\00")
-    (data (;13;) (i32.const 84) "2   ")
-    (data (;14;) (i32.const 88) "\60\00\00\00\01\00\00\00")
-    (data (;15;) (i32.const 96) "3   ")
-    (data (;16;) (i32.const 100) "\6c\00\00\00\01\00\00\00")
-    (data (;17;) (i32.const 108) "4   ")
-    (data (;18;) (i32.const 112) "\78\00\00\00\01\00\00\00")
-    (data (;19;) (i32.const 120) "5   ")
-    (data (;20;) (i32.const 124) "\84\00\00\00\01\00\00\00")
-    (data (;21;) (i32.const 132) "6   ")
-    (data (;22;) (i32.const 136) "\90\00\00\00\01\00\00\00")
-    (data (;23;) (i32.const 144) "7   ")
-    (data (;24;) (i32.const 148) "\9c\00\00\00\01\00\00\00")
-    (data (;25;) (i32.const 156) "8   ")
-    (data (;26;) (i32.const 160) "\a8\00\00\00\01\00\00\00")
-    (data (;27;) (i32.const 168) "9   ")
-    (data (;28;) (i32.const 172) "\b4\00\00\00\04\00\00\00")
-    (data (;29;) (i32.const 180) "test")
-)
diff --git a/tests/reference/wat-loop1-e0046d4.json b/tests/reference/wat-loop1-e0046d4.json
deleted file mode 100644
index 7f40501269..0000000000
--- a/tests/reference/wat-loop1-e0046d4.json
+++ /dev/null
@@ -1,13 +0,0 @@
-{
-    "basename": "wat-loop1-e0046d4",
-    "cmd": "lpython --no-color --show-wat {infile}",
-    "infile": "tests/loop1.py",
-    "infile_hash": "0eee568be1d20a4c31b59c33ae2b47509fce3f6047fa1ffa592947e9",
-    "outfile": null,
-    "outfile_hash": null,
-    "stdout": "wat-loop1-e0046d4.stdout",
-    "stdout_hash": "07cd13d55836deabb991c7762567db212b10e869075d06a6b34476a2",
-    "stderr": null,
-    "stderr_hash": null,
-    "returncode": 0
-}
\ No newline at end of file
diff --git a/tests/reference/wat-loop1-e0046d4.stdout b/tests/reference/wat-loop1-e0046d4.stdout
deleted file mode 100644
index 99cbf50118..0000000000
--- a/tests/reference/wat-loop1-e0046d4.stdout
+++ /dev/null
@@ -1,377 +0,0 @@
-(module
-    (type (;0;) (func (param i32) (result)))
-    (type (;1;) (func (param i32 i32 i32 i32) (result i32)))
-    (type (;2;) (func (param i64) (result)))
-    (type (;3;) (func (param f64) (result)))
-    (type (;4;) (func (param) (result)))
-    (type (;5;) (func (param) (result)))
-    (type (;6;) (func (param i32) (result i32)))
-    (type (;7;) (func (param i32) (result i32)))
-    (type (;8;) (func (param i32) (result i64)))
-    (type (;9;) (func (param) (result)))
-    (import "wasi_snapshot_preview1" "proc_exit" (func (;0;) (type 0)))
-    (import "wasi_snapshot_preview1" "fd_write" (func (;1;) (type 1)))
-    (global $0 i32 (i32.const 0))
-    (func $2 (type 2) (param i64) (result)
-        (local i64 i64 i64 i64)
-        local.get 0
-        i64.const 0
-        i64.eq
-        if
-            i32.const 1
-            i32.const 52
-            i32.const 1
-            i32.const 0
-            call 1
-            drop
-            return
-        else
-        end
-        local.get 0
-        i64.const 0
-        i64.lt_s
-        if
-            i32.const 1
-            i32.const 28
-            i32.const 1
-            i32.const 0
-            call 1
-            drop
-            local.get 0
-            i64.const -1
-            i64.mul
-            local.set 0
-        else
-        end
-        local.get 0
-        local.set 4
-        i64.const 0
-        local.set 1
-        loop
-            local.get 0
-            i64.const 0
-            i64.gt_s
-            if
-                local.get 1
-                i64.const 1
-                i64.add
-                local.set 1
-                local.get 0
-                i64.const 10
-                i64.div_s
-                local.set 0
-                br 1
-            else
-            end
-        end
-        loop
-            local.get 1
-            i64.const 0
-            i64.gt_s
-            if
-                local.get 1
-                i64.const 1
-                i64.sub
-                local.set 1
-                i64.const 1
-                local.set 2
-                i64.const 0
-                local.set 3
-                loop
-                    local.get 3
-                    local.get 1
-                    i64.lt_s
-                    if
-                        local.get 3
-                        i64.const 1
-                        i64.add
-                        local.set 3
-                        local.get 2
-                        i64.const 10
-                        i64.mul
-                        local.set 2
-                        br 1
-                    else
-                    end
-                end
-                local.get 4
-                local.get 2
-                i64.div_s
-                i64.const 10
-                i64.rem_s
-                i64.const 12
-                i64.mul
-                i64.const 52
-                i64.add
-                local.set 0
-                i32.const 1
-                local.get 0
-                i32.wrap_i64
-                i32.const 1
-                i32.const 0
-                call 1
-                drop
-                br 1
-            else
-            end
-        end
-        return
-    )
-    (func $3 (type 3) (param f64) (result)
-        (local i64 i64 i64)
-        local.get 0
-        f64.const 0.000000
-        f64.lt
-        if
-            i32.const 1
-            i32.const 28
-            i32.const 1
-            i32.const 0
-            call 1
-            drop
-            local.get 0
-            f64.const -1.000000
-            f64.mul
-            local.set 0
-        else
-        end
-        local.get 0
-        i64.trunc_f64_s
-        call 2
-        i32.const 1
-        i32.const 40
-        i32.const 1
-        i32.const 0
-        call 1
-        drop
-        local.get 0
-        local.get 0
-        i64.trunc_f64_s
-        f64.convert_i64_s
-        f64.sub
-        f64.const 100000000.000000
-        f64.mul
-        i64.trunc_f64_s
-        local.set 2
-        local.get 2
-        local.set 3
-        i64.const 0
-        local.set 1
-        loop
-            local.get 2
-            i64.const 0
-            i64.gt_s
-            if
-                local.get 1
-                i64.const 1
-                i64.add
-                local.set 1
-                local.get 2
-                f64.convert_i64_s
-                i64.const 10
-                f64.convert_i64_s
-                f64.div
-                i64.trunc_f64_s
-                local.set 2
-                br 1
-            else
-            end
-        end
-        loop
-            local.get 1
-            i64.const 8
-            i64.lt_s
-            if
-                local.get 1
-                i64.const 1
-                i64.add
-                local.set 1
-                i32.const 1
-                i32.const 52
-                i32.const 1
-                i32.const 0
-                call 1
-                drop
-                br 1
-            else
-            end
-        end
-        local.get 3
-        call 2
-        return
-    )
-    (func $4 (type 4) (param) (result)
-        (local)
-        call 5
-        return
-    )
-    (func $5 (type 5) (param) (result)
-        (local i32 i64)
-        i32.const 4
-        call 6
-        local.set 0
-        i32.const 4
-        call 7
-        local.set 0
-        i32.const 5
-        call 8
-        local.set 1
-        return
-    )
-    (func $6 (type 6) (param i32) (result i32)
-        (local i32 i32)
-        local.get 0
-        i32.const 0
-        i32.lt_s
-        if
-            i32.const 0
-            local.set 1
-            local.get 1
-            return
-        else
-        end
-        i32.const 1
-        local.set 2
-        loop
-            local.get 0
-            i32.const 0
-            i32.gt_s
-            if
-                local.get 2
-                local.get 0
-                i32.mul
-                local.set 2
-                local.get 0
-                i32.const 1
-                i32.sub
-                local.set 0
-                br 1
-            else
-            end
-        end
-        local.get 2
-        local.set 1
-        local.get 1
-        return
-    )
-    (func $7 (type 7) (param i32) (result i32)
-        (local i32 i32 i32)
-        i32.const 1
-        local.set 3
-        i32.const 1
-        i32.const 1
-        i32.sub
-        local.set 2
-        loop
-            local.get 2
-            i32.const 1
-            i32.add
-            local.get 0
-            i32.const 1
-            i32.add
-            i32.const 1
-            i32.sub
-            i32.le_s
-            if
-                local.get 2
-                i32.const 1
-                i32.add
-                local.set 2
-                local.get 3
-                local.get 2
-                i32.mul
-                local.set 3
-                br 1
-            else
-            end
-        end
-        local.get 3
-        local.set 1
-        local.get 1
-        return
-    )
-    (func $8 (type 8) (param i32) (result i64)
-        (local i64 i64)
-        i64.const 0
-        local.set 2
-        local.get 0
-        i32.const 0
-        i32.lt_s
-        if
-            local.get 2
-            local.set 1
-            local.get 1
-            return
-        else
-        end
-        i64.const 1
-        local.set 2
-        loop
-            local.get 0
-            i32.const 0
-            i32.gt_s
-            if
-                local.get 2
-                local.get 0
-                i64.extend_i32_s
-                i64.mul
-                local.set 2
-                local.get 0
-                i32.const 1
-                i32.sub
-                local.set 0
-                br 1
-            else
-            end
-        end
-        local.get 2
-        local.set 1
-        local.get 1
-        return
-    )
-    (func $9 (type 9) (param) (result)
-        (local)
-        call 4
-        i32.const 0
-        call 0
-        return
-    )
-    (memory (;0;) 100 100)
-    (export "memory" (memory 0))
-    (export "print_i64" (func 2))
-    (export "print_f64" (func 3))
-    (export "_lpython_main_program" (func 4))
-    (export "main0" (func 5))
-    (export "test_factorial_1" (func 6))
-    (export "test_factorial_2" (func 7))
-    (export "test_factorial_3" (func 8))
-    (export "_start" (func 9))
-    (data (;0;) (i32.const 4) "\0c\00\00\00\01\00\00\00")
-    (data (;1;) (i32.const 12) "    ")
-    (data (;2;) (i32.const 16) "\18\00\00\00\01\00\00\00")
-    (data (;3;) (i32.const 24) "\0a   ")
-    (data (;4;) (i32.const 28) "\24\00\00\00\01\00\00\00")
-    (data (;5;) (i32.const 36) "-   ")
-    (data (;6;) (i32.const 40) "\30\00\00\00\01\00\00\00")
-    (data (;7;) (i32.const 48) ".   ")
-    (data (;8;) (i32.const 52) "\3c\00\00\00\01\00\00\00")
-    (data (;9;) (i32.const 60) "0   ")
-    (data (;10;) (i32.const 64) "\48\00\00\00\01\00\00\00")
-    (data (;11;) (i32.const 72) "1   ")
-    (data (;12;) (i32.const 76) "\54\00\00\00\01\00\00\00")
-    (data (;13;) (i32.const 84) "2   ")
-    (data (;14;) (i32.const 88) "\60\00\00\00\01\00\00\00")
-    (data (;15;) (i32.const 96) "3   ")
-    (data (;16;) (i32.const 100) "\6c\00\00\00\01\00\00\00")
-    (data (;17;) (i32.const 108) "4   ")
-    (data (;18;) (i32.const 112) "\78\00\00\00\01\00\00\00")
-    (data (;19;) (i32.const 120) "5   ")
-    (data (;20;) (i32.const 124) "\84\00\00\00\01\00\00\00")
-    (data (;21;) (i32.const 132) "6   ")
-    (data (;22;) (i32.const 136) "\90\00\00\00\01\00\00\00")
-    (data (;23;) (i32.const 144) "7   ")
-    (data (;24;) (i32.const 148) "\9c\00\00\00\01\00\00\00")
-    (data (;25;) (i32.const 156) "8   ")
-    (data (;26;) (i32.const 160) "\a8\00\00\00\01\00\00\00")
-    (data (;27;) (i32.const 168) "9   ")
-)
diff --git a/tests/reference/wat-print_str-385e953.json b/tests/reference/wat-print_str-385e953.json
index 7ba2987dbf..de1714455f 100644
--- a/tests/reference/wat-print_str-385e953.json
+++ b/tests/reference/wat-print_str-385e953.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "wat-print_str-385e953.stdout",
-    "stdout_hash": "5c741b7c4d2def2a49b189d20e307eba2c157d714d278fc3cc924d7f",
+    "stdout_hash": "8e9a0f7a017cdd451f10e9b8686d3a9ba00c1c4088fbd01cfa2df1cc",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0
diff --git a/tests/reference/wat-print_str-385e953.stdout b/tests/reference/wat-print_str-385e953.stdout
index b626d5d4d7..9db655a5ed 100644
--- a/tests/reference/wat-print_str-385e953.stdout
+++ b/tests/reference/wat-print_str-385e953.stdout
@@ -1,217 +1,33 @@
 (module
     (type (;0;) (func (param i32) (result)))
     (type (;1;) (func (param i32 i32 i32 i32) (result i32)))
-    (type (;2;) (func (param i64) (result)))
-    (type (;3;) (func (param f64) (result)))
+    (type (;2;) (func (param) (result)))
+    (type (;3;) (func (param) (result)))
     (type (;4;) (func (param) (result)))
     (type (;5;) (func (param) (result)))
-    (type (;6;) (func (param) (result)))
-    (type (;7;) (func (param) (result)))
     (import "wasi_snapshot_preview1" "proc_exit" (func (;0;) (type 0)))
     (import "wasi_snapshot_preview1" "fd_write" (func (;1;) (type 1)))
-    (global $0 i32 (i32.const 0))
-    (func $2 (type 2) (param i64) (result)
-        (local i64 i64 i64 i64)
-        local.get 0
-        i64.const 0
-        i64.eq
-        if
-            i32.const 1
-            i32.const 52
-            i32.const 1
-            i32.const 0
-            call 1
-            drop
-            return
-        else
-        end
-        local.get 0
-        i64.const 0
-        i64.lt_s
-        if
-            i32.const 1
-            i32.const 28
-            i32.const 1
-            i32.const 0
-            call 1
-            drop
-            local.get 0
-            i64.const -1
-            i64.mul
-            local.set 0
-        else
-        end
-        local.get 0
-        local.set 4
-        i64.const 0
-        local.set 1
-        loop
-            local.get 0
-            i64.const 0
-            i64.gt_s
-            if
-                local.get 1
-                i64.const 1
-                i64.add
-                local.set 1
-                local.get 0
-                i64.const 10
-                i64.div_s
-                local.set 0
-                br 1
-            else
-            end
-        end
-        loop
-            local.get 1
-            i64.const 0
-            i64.gt_s
-            if
-                local.get 1
-                i64.const 1
-                i64.sub
-                local.set 1
-                i64.const 1
-                local.set 2
-                i64.const 0
-                local.set 3
-                loop
-                    local.get 3
-                    local.get 1
-                    i64.lt_s
-                    if
-                        local.get 3
-                        i64.const 1
-                        i64.add
-                        local.set 3
-                        local.get 2
-                        i64.const 10
-                        i64.mul
-                        local.set 2
-                        br 1
-                    else
-                    end
-                end
-                local.get 4
-                local.get 2
-                i64.div_s
-                i64.const 10
-                i64.rem_s
-                i64.const 12
-                i64.mul
-                i64.const 52
-                i64.add
-                local.set 0
-                i32.const 1
-                local.get 0
-                i32.wrap_i64
-                i32.const 1
-                i32.const 0
-                call 1
-                drop
-                br 1
-            else
-            end
-        end
-        return
-    )
-    (func $3 (type 3) (param f64) (result)
-        (local i64 i64 i64)
-        local.get 0
-        f64.const 0.000000
-        f64.lt
-        if
-            i32.const 1
-            i32.const 28
-            i32.const 1
-            i32.const 0
-            call 1
-            drop
-            local.get 0
-            f64.const -1.000000
-            f64.mul
-            local.set 0
-        else
-        end
-        local.get 0
-        i64.trunc_f64_s
-        call 2
-        i32.const 1
-        i32.const 40
-        i32.const 1
-        i32.const 0
-        call 1
-        drop
-        local.get 0
-        local.get 0
-        i64.trunc_f64_s
-        f64.convert_i64_s
-        f64.sub
-        f64.const 100000000.000000
-        f64.mul
-        i64.trunc_f64_s
-        local.set 2
-        local.get 2
-        local.set 3
-        i64.const 0
-        local.set 1
-        loop
-            local.get 2
-            i64.const 0
-            i64.gt_s
-            if
-                local.get 1
-                i64.const 1
-                i64.add
-                local.set 1
-                local.get 2
-                f64.convert_i64_s
-                i64.const 10
-                f64.convert_i64_s
-                f64.div
-                i64.trunc_f64_s
-                local.set 2
-                br 1
-            else
-            end
-        end
-        loop
-            local.get 1
-            i64.const 8
-            i64.lt_s
-            if
-                local.get 1
-                i64.const 1
-                i64.add
-                local.set 1
-                i32.const 1
-                i32.const 52
-                i32.const 1
-                i32.const 0
-                call 1
-                drop
-                br 1
-            else
-            end
-        end
-        local.get 3
-        call 2
-        return
-    )
-    (func $4 (type 4) (param) (result)
+    (global $0 (mut i32) (i32.const 0))
+    (global $1 (mut i32) (i32.const 0))
+    (global $2 (mut i64) (i64.const 0))
+    (global $3 (mut f32) (f32.const 0.000000))
+    (global $4 (mut f32) (f32.const 0.000000))
+    (global $5 (mut f64) (f64.const 0.000000))
+    (global $6 (mut f64) (f64.const 0.000000))
+    (func $2 (type 2) (param) (result)
         (local)
-        call 5
+        call 3
         return
     )
-    (func $5 (type 5) (param) (result)
+    (func $3 (type 3) (param) (result)
         (local)
-        call 6
+        call 4
         return
     )
-    (func $6 (type 6) (param) (result)
+    (func $4 (type 4) (param) (result)
         (local)
         i32.const 1
-        i32.const 172
+        i32.const 208
         i32.const 1
         i32.const 0
         call 1
@@ -223,7 +39,7 @@
         call 1
         drop
         i32.const 1
-        i32.const 188
+        i32.const 224
         i32.const 1
         i32.const 0
         call 1
@@ -235,7 +51,7 @@
         call 1
         drop
         i32.const 1
-        i32.const 204
+        i32.const 240
         i32.const 1
         i32.const 0
         call 1
@@ -247,7 +63,7 @@
         call 1
         drop
         i32.const 1
-        i32.const 220
+        i32.const 256
         i32.const 1
         i32.const 0
         call 1
@@ -259,7 +75,7 @@
         call 1
         drop
         i32.const 1
-        i32.const 236
+        i32.const 272
         i32.const 1
         i32.const 0
         call 1
@@ -271,7 +87,7 @@
         call 1
         drop
         i32.const 1
-        i32.const 252
+        i32.const 288
         i32.const 1
         i32.const 0
         call 1
@@ -284,59 +100,63 @@
         drop
         return
     )
-    (func $7 (type 7) (param) (result)
+    (func $5 (type 5) (param) (result)
         (local)
-        call 4
+        call 2
         i32.const 0
         call 0
         return
     )
-    (memory (;0;) 100 100)
+    (memory (;0;) 1000 1000)
     (export "memory" (memory 0))
-    (export "print_i64" (func 2))
-    (export "print_f64" (func 3))
-    (export "_lpython_main_program" (func 4))
-    (export "main0" (func 5))
-    (export "printCompOperations" (func 6))
-    (export "_start" (func 7))
+    (export "__main__global_stmts" (func 2))
+    (export "main0" (func 3))
+    (export "printCompOperations" (func 4))
+    (export "_start" (func 5))
     (data (;0;) (i32.const 4) "\0c\00\00\00\01\00\00\00")
     (data (;1;) (i32.const 12) "    ")
     (data (;2;) (i32.const 16) "\18\00\00\00\01\00\00\00")
-    (data (;3;) (i32.const 24) "\0a   ")
+    (data (;3;) (i32.const 24) "\n   ")
     (data (;4;) (i32.const 28) "\24\00\00\00\01\00\00\00")
     (data (;5;) (i32.const 36) "-   ")
     (data (;6;) (i32.const 40) "\30\00\00\00\01\00\00\00")
     (data (;7;) (i32.const 48) ".   ")
     (data (;8;) (i32.const 52) "\3c\00\00\00\01\00\00\00")
-    (data (;9;) (i32.const 60) "0   ")
+    (data (;9;) (i32.const 60) "(   ")
     (data (;10;) (i32.const 64) "\48\00\00\00\01\00\00\00")
-    (data (;11;) (i32.const 72) "1   ")
+    (data (;11;) (i32.const 72) ")   ")
     (data (;12;) (i32.const 76) "\54\00\00\00\01\00\00\00")
-    (data (;13;) (i32.const 84) "2   ")
+    (data (;13;) (i32.const 84) ",   ")
     (data (;14;) (i32.const 88) "\60\00\00\00\01\00\00\00")
-    (data (;15;) (i32.const 96) "3   ")
+    (data (;15;) (i32.const 96) "0   ")
     (data (;16;) (i32.const 100) "\6c\00\00\00\01\00\00\00")
-    (data (;17;) (i32.const 108) "4   ")
+    (data (;17;) (i32.const 108) "1   ")
     (data (;18;) (i32.const 112) "\78\00\00\00\01\00\00\00")
-    (data (;19;) (i32.const 120) "5   ")
+    (data (;19;) (i32.const 120) "2   ")
     (data (;20;) (i32.const 124) "\84\00\00\00\01\00\00\00")
-    (data (;21;) (i32.const 132) "6   ")
+    (data (;21;) (i32.const 132) "3   ")
     (data (;22;) (i32.const 136) "\90\00\00\00\01\00\00\00")
-    (data (;23;) (i32.const 144) "7   ")
+    (data (;23;) (i32.const 144) "4   ")
     (data (;24;) (i32.const 148) "\9c\00\00\00\01\00\00\00")
-    (data (;25;) (i32.const 156) "8   ")
+    (data (;25;) (i32.const 156) "5   ")
     (data (;26;) (i32.const 160) "\a8\00\00\00\01\00\00\00")
-    (data (;27;) (i32.const 168) "9   ")
-    (data (;28;) (i32.const 172) "\b4\00\00\00\05\00\00\00")
-    (data (;29;) (i32.const 180) "x < y   ")
-    (data (;30;) (i32.const 188) "\c4\00\00\00\06\00\00\00")
-    (data (;31;) (i32.const 196) "x !< y  ")
-    (data (;32;) (i32.const 204) "\d4\00\00\00\05\00\00\00")
-    (data (;33;) (i32.const 212) "x > y   ")
-    (data (;34;) (i32.const 220) "\e4\00\00\00\06\00\00\00")
-    (data (;35;) (i32.const 228) "x !> y  ")
-    (data (;36;) (i32.const 236) "\f4\00\00\00\06\00\00\00")
-    (data (;37;) (i32.const 244) "x == y  ")
-    (data (;38;) (i32.const 252) "\04\01\00\00\06\00\00\00")
-    (data (;39;) (i32.const 260) "x != y  ")
+    (data (;27;) (i32.const 168) "6   ")
+    (data (;28;) (i32.const 172) "\b4\00\00\00\01\00\00\00")
+    (data (;29;) (i32.const 180) "7   ")
+    (data (;30;) (i32.const 184) "\c0\00\00\00\01\00\00\00")
+    (data (;31;) (i32.const 192) "8   ")
+    (data (;32;) (i32.const 196) "\cc\00\00\00\01\00\00\00")
+    (data (;33;) (i32.const 204) "9   ")
+    (data (;34;) (i32.const 208) "\d8\00\00\00\05\00\00\00")
+    (data (;35;) (i32.const 216) "x < y   ")
+    (data (;36;) (i32.const 224) "\e8\00\00\00\06\00\00\00")
+    (data (;37;) (i32.const 232) "x !< y  ")
+    (data (;38;) (i32.const 240) "\f8\00\00\00\05\00\00\00")
+    (data (;39;) (i32.const 248) "x > y   ")
+    (data (;40;) (i32.const 256) "\08\01\00\00\06\00\00\00")
+    (data (;41;) (i32.const 264) "x !> y  ")
+    (data (;42;) (i32.const 272) "\18\01\00\00\06\00\00\00")
+    (data (;43;) (i32.const 280) "x == y  ")
+    (data (;44;) (i32.const 288) "\28\01\00\00\06\00\00\00")
+    (data (;45;) (i32.const 296) "x != y  ")
 )
diff --git a/tests/runtime_errors/test_list_01.py b/tests/runtime_errors/test_list_01.py
index 8d42e50ed2..75584137f8 100644
--- a/tests/runtime_errors/test_list_01.py
+++ b/tests/runtime_errors/test_list_01.py
@@ -1,4 +1,4 @@
-from ltypes import i32
+from lpython import i32
 
 def test():
     x: list[i32] = [1, 2, 3]
diff --git a/tests/runtime_errors/test_list_02.py b/tests/runtime_errors/test_list_02.py
index 5c246ba8c7..baf07f90d9 100644
--- a/tests/runtime_errors/test_list_02.py
+++ b/tests/runtime_errors/test_list_02.py
@@ -1,5 +1,5 @@
 # Out of bound
-from ltypes import i32
+from lpython import i32
 
 def test_list():
     x: list[i32]
diff --git a/tests/runtime_errors/test_str_01.py b/tests/runtime_errors/test_str_01.py
new file mode 100644
index 0000000000..725451e237
--- /dev/null
+++ b/tests/runtime_errors/test_str_01.py
@@ -0,0 +1,11 @@
+from lpython import i32
+
+
+def test_issue_1536():
+    x: str
+    x = "ABC"
+    l: i32
+    l = -4
+    print(x[l])
+
+test_issue_1536()
diff --git a/tests/runtime_errors/test_str_02.py b/tests/runtime_errors/test_str_02.py
new file mode 100644
index 0000000000..52a18c2da9
--- /dev/null
+++ b/tests/runtime_errors/test_str_02.py
@@ -0,0 +1,6 @@
+def test_issue_1536():
+    x: str
+    x = "ABC"
+    print(x[-8])
+
+test_issue_1536()
diff --git a/tests/structs_01.py b/tests/structs_01.py
new file mode 100644
index 0000000000..3ac27e704c
--- /dev/null
+++ b/tests/structs_01.py
@@ -0,0 +1,11 @@
+from lpython import i32, dataclass
+
+@dataclass
+class S:
+    x: i32
+    y: i32
+
+def main0():
+    s: S = S(2)
+
+main0()
diff --git a/tests/structs_11.py b/tests/structs_11.py
new file mode 100644
index 0000000000..61473c9060
--- /dev/null
+++ b/tests/structs_11.py
@@ -0,0 +1,16 @@
+from lpython import dataclass, i32
+
+# test issue 2044
+
+@dataclass
+class Foo:
+    x : i32
+
+@dataclass
+class Bar:
+    foo : Foo = Foo()
+
+bar : Bar = Bar()
+
+print(bar.foo)
+print(bar)
diff --git a/tests/test_aggregate_constants.py b/tests/test_aggregate_constants.py
new file mode 100644
index 0000000000..c3cb5bfedb
--- /dev/null
+++ b/tests/test_aggregate_constants.py
@@ -0,0 +1,135 @@
+from lpython import i32, f64
+
+# Test codegen for global scope
+
+# List
+my_first_list: list[i32] = [1, 2, 3 , 4]
+print(my_first_list)
+
+my_second_list: list[str] = ["a", "b", "c", "d"]
+print(my_second_list)
+
+my_third_list: list[list[i32]] = [[1, 2], [3, 4], [5, 6]]
+print(my_third_list)
+
+my_fourth_list: list[list[f64]] = [[1.0, 2.2], [3.6, 4.9], [5.1, 6.3]]
+print(my_fourth_list)
+
+my_fifth_list: list[set[str]] = [{"a", "b"}, {"c", "d"}]
+print(my_fifth_list)
+
+my_sixth_list: list[tuple[i32, str]] = [(1, "a"), (2, "b")]
+print(my_sixth_list)
+
+# Tuple
+my_first_tuple: tuple[i32, str, f64] = (1, "hello", 2.4)
+print(my_first_tuple)
+
+my_second_tuple: tuple[tuple[i32, str], str] = ((1, "hello"), "world")
+print(my_second_tuple)
+
+my_third_tuple: tuple[list[str], str] = (["hello", "world"], "world")
+print(my_third_tuple)
+
+my_fourth_tuple: tuple[set[str], str] = ({"hello", "world"}, "world")
+print(my_fourth_tuple)
+
+# Set
+my_first_set: set[i32] = {1, 2, 3, 2, 4}
+print(my_first_set)
+
+my_second_set: set[f64] = {1.1, 2.5, 6.8}
+print(my_second_set)
+
+my_third_set: set[str] = {"a", "b", "a", "c"}
+print(my_third_set)
+
+my_fourth_set: set[tuple[i32, str]] = {(1, "a"), (2, "b"), (3, "c")}
+print(my_fourth_set)
+
+# Dictionary
+my_first_dict: dict[str, i32] = {"a": 1, "b": 2, "c": 3}
+print(my_first_dict)
+
+my_second_dict: dict[i32, f64] = {1: 1.33, 2: 2.33, 3: 3.33}
+print(my_second_dict)
+
+my_third_dict: dict[str, str] = {"a": "A", "b": "B", "c": "C"}
+print(my_third_dict)
+
+my_fourth_dict: dict[i32, tuple[f64, f64]] = {1: (1.2, 4.5), 2: (3.6, 9.2)}
+print(my_fourth_dict)
+
+my_fifth_dict: dict[str, list[i32]] = {"list1": [1, 2, 3], "list2": [4, 5, 6]}
+print(my_fifth_dict)
+
+my_sixth_dict: dict[str, set[i32]] = {"set1": {1, 2, 1}, "set2": {4, 1, 2}}
+print(my_sixth_dict)
+
+# Test codegen for local scope
+def fn():
+    # List
+    my_first_list: list[i32] = [1, 2, 3 , 4]
+    print(my_first_list)
+
+    my_second_list: list[str] = ["a", "b", "c", "d"]
+    print(my_second_list)
+
+    my_third_list: list[list[i32]] = [[1, 2], [3, 4], [5, 6]]
+    print(my_third_list)
+
+    my_fourth_list: list[list[f64]] = [[1.0, 2.2], [3.6, 4.9], [5.1, 6.3]]
+    print(my_fourth_list)
+
+    my_fifth_list: list[set[str]] = [{"a", "b"}, {"c", "d"}]
+    print(my_fifth_list)
+
+    my_sixth_list: list[tuple[i32, str]] = [(1, "a"), (2, "b")]
+    print(my_sixth_list)
+
+    # Tuple
+    my_first_tuple: tuple[i32, str, f64] = (1, "hello", 2.4)
+    print(my_first_tuple)
+
+    my_second_tuple: tuple[tuple[i32, str], str] = ((1, "hello"), "world")
+    print(my_second_tuple)
+
+    my_third_tuple: tuple[list[str], str] = (["hello", "world"], "world")
+    print(my_third_tuple)
+
+    my_fourth_tuple: tuple[set[str], str] = ({"hello", "world"}, "world")
+    print(my_fourth_tuple)
+
+    # Set
+    my_first_set: set[i32] = {1, 2, 3, 2, 4}
+    print(my_first_set)
+
+    my_second_set: set[f64] = {1.1, 2.5, 6.8}
+    print(my_second_set)
+
+    my_third_set: set[str] = {"a", "b", "a", "c"}
+    print(my_third_set)
+
+    my_fourth_set: set[tuple[i32, str]] = {(1, "a"), (2, "b"), (3, "c")}
+    print(my_fourth_set)
+
+    # Dictionary
+    my_first_dict: dict[str, i32] = {"a": 1, "b": 2, "c": 3}
+    print(my_first_dict)
+
+    my_second_dict: dict[i32, f64] = {1: 1.33, 2: 2.33, 3: 3.33}
+    print(my_second_dict)
+
+    my_third_dict: dict[str, str] = {"a": "A", "b": "B", "c": "C"}
+    print(my_third_dict)
+
+    my_fourth_dict: dict[i32, tuple[f64, f64]] = {1: (1.2, 4.5), 2: (3.6, 9.2)}
+    print(my_fourth_dict)
+
+    my_fifth_dict: dict[str, list[i32]] = {"list1": [1, 2, 3], "list2": [4, 5, 6]}
+    print(my_fifth_dict)
+
+    my_sixth_dict: dict[str, set[i32]] = {"set1": {1, 2, 1}, "set2": {4, 1, 2}}
+    print(my_sixth_dict)
+
+fn()
\ No newline at end of file
diff --git a/tests/test_end_sep_keywords.py b/tests/test_end_sep_keywords.py
new file mode 100644
index 0000000000..dde41f25e4
--- /dev/null
+++ b/tests/test_end_sep_keywords.py
@@ -0,0 +1,7 @@
+def testEndSepKeywords():
+    print("abc", "lmn", "pqr")
+    print("abc", "lmn", "pqr", sep = "+")
+    print("abc", "lmn", "pqr", end = "xyz\n")
+    print("abc", "lmn", "pqr", sep = "+", end = "xyz\n")
+
+testEndSepKeywords()
\ No newline at end of file
diff --git a/tests/test_list_methods.py b/tests/test_list_methods.py
new file mode 100644
index 0000000000..888f610cc1
--- /dev/null
+++ b/tests/test_list_methods.py
@@ -0,0 +1,79 @@
+from lpython import i32, f64
+
+# Global scope
+my_first_list: list[i32] = [1, 2, 3, 4, 5]
+print(my_first_list)
+
+my_first_list.append(4)
+my_first_list.remove(2)
+print(my_first_list.count(4))
+my_first_list.insert(0, 1)
+my_first_list.clear()
+
+my_second_list: list[f64] = [1.2, 4.3, 2.8]
+print(my_second_list)
+
+my_second_list.append(4.3)
+my_second_list.remove(2.8)
+print(my_second_list.count(4.3))
+my_second_list.insert(0, 3.3)
+my_second_list.clear()
+
+my_third_list: list[str] = ["hello", "world", "lpython"]
+print(my_third_list)
+
+my_third_list.append("hello")
+my_third_list.remove("world")
+print(my_third_list.count("hello"))
+my_third_list.insert(0, "hi")
+my_third_list.clear()
+
+my_fourth_list: list[tuple[f64, f64]] = [(1.2, 4.3), (2.8, 3.3)]
+print(my_fourth_list)
+
+my_fourth_list.append((1.6, 2.2))
+my_fourth_list.remove((1.2, 4.3))
+print(my_fourth_list.count((2.8, 3.3)))
+my_fourth_list.insert(0, (1.0, 0.0))
+my_fourth_list.clear()
+
+# Local scope
+def f():
+    my_first_list: list[i32] = [1, 2, 3, 4, 5]
+    print(my_first_list)
+
+    my_first_list.append(4)
+    my_first_list.remove(2)
+    print(my_first_list.count(4))
+    my_first_list.insert(0, 1)
+    my_first_list.clear()
+
+    my_second_list: list[f64] = [1.2, 4.3, 2.8]
+    print(my_second_list)
+
+    my_second_list.append(4.3)
+    my_second_list.remove(2.8)
+    print(my_second_list.count(4.3))
+    my_second_list.insert(0, 3.3)
+    my_second_list.clear()
+
+    my_third_list: list[str] = ["hello", "world", "lpython"]
+    print(my_third_list)
+
+    my_third_list.append("hello")
+    my_third_list.remove("world")
+    print(my_third_list.count("hello"))
+    my_third_list.insert(0, "hi")
+    my_third_list.clear()
+
+    my_fourth_list: list[tuple[f64, f64]] = [(1.2, 4.3), (2.8, 3.3)]
+    print(my_fourth_list)
+
+    my_fourth_list.append((1.6, 2.2))
+    my_fourth_list.remove((1.2, 4.3))
+    print(my_fourth_list.count((2.8, 3.3)))
+    my_fourth_list.insert(0, (1.0, 0.0))
+    my_fourth_list.clear()
+
+
+f()
diff --git a/tests/tests.toml b/tests/tests.toml
index 010263644f..d023d7befe 100644
--- a/tests/tests.toml
+++ b/tests/tests.toml
@@ -11,11 +11,11 @@
 
 # tests
 
-[[test]]
-filename = "doconcurrentloop_01.py"
-ast = true
-asr = true
-cpp = true
+# [[test]]
+# filename = "doconcurrentloop_01.py"
+# ast = true
+# asr = true
+# cpp = true
 
 [[test]]
 filename = "complex1.py"
@@ -31,10 +31,10 @@ filename = "constants1.py"
 ast = true
 asr = true
 
-[[test]]
-filename = "subscript1.py"
-ast = true
-asr = true
+# [[test]]
+# filename = "subscript1.py"
+# ast = true
+# asr = true
 
 [[test]]
 filename = "list1.py"
@@ -51,6 +51,14 @@ filename = "dictionary1.py"
 ast = true
 asr = true
 
+# [[test]]
+# filename = "test_aggregate_constants.py"
+# python = true
+
+# [[test]]
+# filename = "test_list_methods.py"
+# python = true
+
 [[test]]
 filename = "expr1.py"
 ast = true
@@ -62,27 +70,27 @@ ast = true
 asr = true
 cpp = true
 wat = true
-
-[[test]]
-filename = "errors/type_mismatch.py"
-asr = true
+python = true
 
 [[test]]
 filename = "expr4.py"
 ast = true
 asr = true
+python = true
 
-[[test]]
-filename = "expr5.py"
-ast = true
-asr = true
-cpp = true
+# [[test]]
+# filename = "expr5.py"
+# ast = true
+# asr = true
+# cpp = true
+# python = true
 
 [[test]]
 filename = "expr6.py"
 ast = true
 asr = true
 cpp = true
+python = true
 
 [[test]]
 filename = "expr7.py"
@@ -98,22 +106,23 @@ asr = true
 cpp = true
 #llvm = true
 
-[[test]]
-filename = "expr9.py"
-ast = true
-asr = true
-cpp = true
-wat = true
+# [[test]]
+# filename = "expr9.py"
+# ast = true
+# asr = true
+# cpp = true
+# wat = true
 
 [[test]]
 filename = "expr10.py"
 ast = true
 asr = true
 
-[[test]]
-filename = "expr11.py"
-ast = true
-asr = true
+# [[test]]
+# filename = "expr11.py"
+# ast = true
+# asr = true
+# python = true
 
 [[test]]
 filename = "expr12.py"
@@ -130,6 +139,7 @@ asr = true
 filename = "expr14.py"
 llvm = true
 wat = true
+python = true
 
 [[test]]
 filename = "expr15.py"
@@ -139,6 +149,10 @@ cpp = true
 filename = "expr16.py"
 asr = true
 
+[[test]]
+filename = "expr17.py"
+python = true
+
 [[test]]
 filename = "expr_01.py"
 ast = true
@@ -188,10 +202,10 @@ filename = "../integration_tests/expr_11.py"
 c = true
 cpp = true
 
-[[test]]
-filename = "../integration_tests/expr_12.py"
-asr = true
-c = true
+# [[test]]
+# filename = "../integration_tests/expr_12.py"
+# asr = true
+# c = true
 
 [[test]]
 filename = "../integration_tests/expr_14.py"
@@ -200,11 +214,17 @@ asr = true
 [[test]]
 filename = "../integration_tests/modules_02.py"
 asr = true
+asr_json = true
 
 [[test]]
 filename = "../integration_tests/test_import_02.py"
 c = true
 
+[[test]]
+filename = "../integration_tests/import_order_01.py"
+c = true
+disable_main = true
+
 [[test]]
 filename = "../integration_tests/vec_01.py"
 asr = true
@@ -216,31 +236,31 @@ asr = true
 llvm = true
 pass_with_llvm = true
 pass = "inline_function_calls"
+fast = true
 
 # to make sure static keyword is actually present in function declaration
 [[test]]
 filename = "../integration_tests/func_static_01.py"
 c = true
 
-[[test]]
-filename = "loop1.py"
-ast = true
-asr = true
-cpp = true
-c = true
-wat = true
+# [[test]]
+# filename = "loop1.py"
+# ast = true
+# asr = true
+# cpp = true
+# c = true
+# wat = true
 
 [[test]]
-filename = "loop2.py"
+filename = "loop3.py"
 ast = true
 asr = true
 cpp = true
-c = true
 
 [[test]]
-filename = "loop3.py"
-ast = true
+filename = "loop4.py"
 asr = true
+c = true
 cpp = true
 
 [[test]]
@@ -249,11 +269,13 @@ ast = true
 asr = true
 cpp = true
 llvm = true
+python = true
 
-[[test]]
-filename = "assign1.py"
-ast = true
-asr = true
+# [[test]]
+# filename = "assign1.py"
+# ast = true
+# asr = true
+# python = true
 
 [[test]]
 filename = "assign2.py"
@@ -279,10 +301,12 @@ filename = "c_interop1.py"
 asr = true
 c = true
 
-# integration_tests
+[[test]]
+filename = "test_end_sep_keywords.py"
+asr = true
 
 [[test]]
-filename = "ltypes1.py"
+filename = "lpython1.py"
 llvm = true
 
 [[test]]
@@ -290,31 +314,59 @@ filename = "print_str.py"
 wat = true
 
 [[test]]
-filename = "../integration_tests/test_builtin.py"
+filename = "intent_01.py"
 asr = true
 
+# integration_tests
+
 [[test]]
-filename = "../integration_tests/test_complex.py"
-asr = true
+filename = "../integration_tests/test_list_repeat2.py"
+cpp = true
 
 [[test]]
-filename = "../integration_tests/structs_01.py"
+filename = "../integration_tests/test_builtin.py"
 asr = true
 
 [[test]]
-filename = "../integration_tests/structs_02.py"
+filename = "../integration_tests/test_complex_01.py"
 asr = true
 
 [[test]]
-filename = "../integration_tests/structs_03.py"
+filename = "../integration_tests/test_complex_02.py"
 asr = true
 
 [[test]]
-filename = "../integration_tests/structs_04.py"
+filename = "../integration_tests/structs_01.py"
 asr = true
 
+# [[test]]
+# filename = "../integration_tests/structs_02.py"
+# asr = true
+#
+# [[test]]
+# filename = "../integration_tests/structs_03.py"
+# asr = true
+
+# [[test]]
+# filename = "../integration_tests/structs_04.py"
+# asr = true
+#
+# [[test]]
+# filename = "../integration_tests/structs_05.py"
+# asr = true
+#
+# [[test]]
+# filename = "../integration_tests/structs_16.py"
+# asr = true
+# pass = "class_constructor"
+# cumulative = true
+
+# [[test]]
+# filename = "errors/class01.py"
+# asr = true
+
 [[test]]
-filename = "../integration_tests/structs_05.py"
+filename = "../integration_tests/callback_01.py"
 asr = true
 
 [[test]]
@@ -330,9 +382,9 @@ asr = true
 filename = "../integration_tests/test_builtin_abs.py"
 asr = true
 
-[[test]]
-filename = "../integration_tests/test_builtin_str.py"
-asr = true
+# [[test]]
+# filename = "../integration_tests/test_builtin_str.py"
+# asr = true
 
 [[test]]
 filename = "../integration_tests/test_builtin_bool.py"
@@ -359,17 +411,17 @@ asr = true
 filename = "../integration_tests/test_builtin_round.py"
 asr = true
 
-[[test]]
-filename = "../integration_tests/test_builtin_bin.py"
-asr = true
+# [[test]]
+# filename = "../integration_tests/test_builtin_bin.py"
+# asr = true
 
-[[test]]
-filename = "../integration_tests/test_builtin_hex.py"
-asr = true
+# [[test]]
+# filename = "../integration_tests/test_builtin_hex.py"
+# asr = true
 
-[[test]]
-filename = "../integration_tests/test_builtin_oct.py"
-asr = true
+# [[test]]
+# filename = "../integration_tests/test_builtin_oct.py"
+# asr = true
 
 [[test]]
 filename = "../integration_tests/test_max_min.py"
@@ -380,7 +432,7 @@ filename = "../integration_tests/expr_05.py"
 asr = true
 
 [[test]]
-filename = "../integration_tests/test_integer_bitnot.py"
+filename = "../integration_tests/test_unary_op_03.py"
 asr = true
 llvm = true
 cpp = true
@@ -398,20 +450,37 @@ c = true
 filename = "../integration_tests/test_c_interop_01.py"
 asr = true
 
+# [[test]]
+# filename = "../integration_tests/print_01.py"
+# c = true
+# cpp = true
+
 [[test]]
-filename = "../integration_tests/print_01.py"
+filename = "../integration_tests/variable_decl_03.py"
 c = true
-cpp = true
 
 [[test]]
 filename = "../integration_tests/print_02.py"
 asr = true
-pass = "print_list"
+pass = "print_list_tuple"
+
+[[test]]
+filename = "../integration_tests/print_list_tuple_03.py"
+asr = true
+pass = "print_list_tuple"
 
 [[test]]
 filename = "../integration_tests/print_04.py"
 llvm = true
 
+# [[test]]
+# filename = "../integration_tests/test_list_item_mixed_print.py"
+# run = true
+
+# [[test]]
+# filename = "../integration_tests/test_intrinsic_function_mixed_print.py"
+# run = true
+
 [[test]]
 filename = "../integration_tests/generics_01.py"
 asr = true
@@ -424,22 +493,26 @@ asr = true
 filename = "../integration_tests/generics_array_01.py"
 asr = true
 
-[[test]]
-filename = "../integration_tests/generics_array_02.py"
-asr = true
+# [[test]]
+# filename = "../integration_tests/generics_array_02.py"
+# asr = true
 
-[[test]]
-filename = "../integration_tests/generics_array_03.py"
-asr = true
+# [[test]]
+# filename = "../integration_tests/generics_array_03.py"
+# asr = true
 
 [[test]]
 filename = "../integration_tests/generics_list_01.py"
 asr = true
 
 [[test]]
-filename = "cast.py"
+filename = "../integration_tests/global_syms_01.py"
 asr = true
 
+# [[test]]
+# filename = "cast.py"
+# asr = true
+
 # tests/tokens
 
 [[test]]
@@ -565,6 +638,10 @@ ast_new = true
 filename = "parser/string2.py"
 ast_new = true
 
+[[test]]
+filename = "parser/string3.py"
+ast_new = true
+
 [[test]]
 filename = "parser/global1.py"
 ast = true
@@ -594,14 +671,122 @@ ast_new = true
 filename = "parser/tuple1.py"
 ast_new = true
 
+[[test]]
+filename = "errors/lambda_01.py"
+asr = true
+
 [[test]]
 filename = "errors/test_bit_length.py"
 asr = true
 
+[[test]]
+filename = "errors/string_01.py"
+asr = true
+
+[[test]]
+filename = "errors/string_02.py"
+asr = true
+
 [[test]]
 filename = "errors/structs_01.py"
 asr = true
 
+[[test]]
+filename = "errors/arrays_01.py"
+asr = true
+
+[[test]]
+filename = "errors/arrays_02.py"
+asr = true
+
+# [[test]]
+# filename = "errors/arrays_03.py"
+# asr = true
+
+# [[test]]
+# filename = "errors/arrays_04.py"
+# asr = true
+
+# [[test]]
+# filename = "errors/arrays_05.py"
+# asr = true
+
+# [[test]]
+# filename = "errors/arrays_06.py"
+# asr = true
+
+# [[test]]
+# filename = "errors/arrays_07.py"
+# asr = true
+
+# [[test]]
+# filename = "errors/arrays_08.py"
+# asr = true
+
+[[test]]
+filename = "errors/arrays_09.py"
+asr = true
+
+[[test]]
+filename = "errors/arrays_10.py"
+asr = true
+
+# [[test]]
+# filename = "errors/arrays_11.py"
+# asr = true
+
+# [[test]]
+# filename = "errors/arrays_12.py"
+# asr = true
+
+# [[test]]
+# filename = "errors/arrays_13.py"
+# asr = true
+
+# [[test]]
+# filename = "errors/arrays_14.py"
+# asr = true
+
+[[test]]
+filename = "errors/structs_02.py"
+asr = true
+
+[[test]]
+filename = "errors/structs_03.py"
+asr = true
+
+[[test]]
+filename = "errors/structs_04.py"
+asr = true
+
+[[test]]
+filename = "structs_01.py"
+asr = true
+
+[[test]]
+filename = "errors/structs_06.py"
+asr = true
+
+[[test]]
+filename = "errors/structs_07.py"
+asr = true
+
+[[test]]
+filename = "errors/structs_08.py"
+asr = true
+
+[[test]]
+filename = "errors/structs_09.py"
+asr = true
+
+[[test]]
+filename = "errors/structs_10.py"
+asr = true
+
+# [[test]]
+# filename = "structs_11.py"
+# llvm = true
+
 [[test]]
 filename = "errors/const_01.py"
 asr = true
@@ -610,6 +795,14 @@ asr = true
 filename = "errors/const_02.py"
 asr = true
 
+[[test]]
+filename = "errors/test_compare_01.py"
+asr = true
+
+[[test]]
+filename = "errors/test_compare_02.py"
+asr = true
+
 [[test]]
 filename = "parser/type_comment1.py"
 ast_new = true
@@ -624,6 +817,10 @@ ast_new = true
 
 # tests/errors
 
+[[test]]
+filename = "errors/test_async.py"
+asr = true
+
 [[test]]
 filename = "errors/test_str_indexing.py"
 asr = true
@@ -644,6 +841,50 @@ asr = true
 filename = "errors/test_str_slicing3.py"
 asr = true
 
+[[test]]
+filename = "errors/test_str_slicing4.py"
+asr = true
+
+[[test]]
+filename = "errors/test_list_slicing.py"
+asr = true
+
+[[test]]
+filename = "errors/test_const_list_append.py"
+asr = true
+
+[[test]]
+filename = "errors/test_const_list_clear.py"
+asr = true
+
+[[test]]
+filename = "errors/test_const_list_insert.py"
+asr = true
+
+[[test]]
+filename = "errors/test_const_list_pop.py"
+asr = true
+
+[[test]]
+filename = "errors/test_const_list_reverse.py"
+asr = true
+
+[[test]]
+filename = "errors/test_const_list_remove.py"
+asr = true
+
+[[test]]
+filename = "errors/test_annassign_01.py"
+asr = true
+
+[[test]]
+filename = "errors/test_annassign_02.py"
+asr = true
+
+[[test]]
+filename = "errors/test_annassign_03.py"
+asr = true
+
 [[test]]
 filename = "errors/test_annassign_type_mismatch.py"
 asr = true
@@ -660,6 +901,26 @@ asr = true
 filename = "errors/test_list_concat.py"
 asr = true
 
+[[test]]
+filename = "errors/test_list_count.py"
+asr = true
+
+[[test]]
+filename = "errors/test_list_index.py"
+run = true
+
+[[test]]
+filename = "errors/test_list_index2.py"
+run = true
+
+[[test]]
+filename = "errors/test_list_index3.py"
+run = true
+
+[[test]]
+filename = "errors/test_list_index4.py"
+run = true
+
 [[test]]
 filename = "errors/test_list1.py"
 asr = true
@@ -688,6 +949,10 @@ asr = true
 filename = "errors/test_set3.py"
 asr = true
 
+[[test]]
+filename = "errors/test_set4.py"
+asr = true
+
 [[test]]
 filename = "errors/test_pow.py"
 asr = true
@@ -708,6 +973,10 @@ asr = true
 filename = "errors/test_pow4.py"
 asr = true
 
+[[test]]
+filename = "errors/test_operator_01.py"
+asr = true
+
 [[test]]
 filename = "errors/test_ord.py"
 asr = true
@@ -736,9 +1005,9 @@ asr = true
 filename = "errors/test_assign5.py"
 asr = true
 
-[[test]]
-filename = "errors/test_assign6.py"
-asr = true
+# [[test]]
+# filename = "errors/test_assign6.py"
+# asr = true
 
 [[test]]
 filename = "errors/test_assign7.py"
@@ -748,6 +1017,10 @@ asr = true
 filename = "errors/test_assign8.py"
 asr = true
 
+[[test]]
+filename = "errors/test_assign9.py"
+asr = true
+
 [[test]]
 filename = "errors/test_binop1.py"
 asr = true
@@ -764,6 +1037,54 @@ asr = true
 filename = "errors/test_dict1.py"
 asr = true
 
+[[test]]
+filename = "errors/test_dict_key1.py"
+asr = true
+
+[[test]]
+filename = "errors/test_dict_key2.py"
+asr = true
+
+[[test]]
+filename = "errors/test_dict_key3.py"
+asr = true
+
+[[test]]
+filename = "errors/test_dict_key4.py"
+asr = true
+
+[[test]]
+filename = "errors/test_dict_key5.py"
+asr = true
+
+[[test]]
+filename = "errors/test_dict_key6.py"
+asr = true
+
+[[test]]
+filename = "errors/test_set_object1.py"
+asr = true
+
+[[test]]
+filename = "errors/test_set_object2.py"
+asr = true
+
+[[test]]
+filename = "errors/test_set_object3.py"
+asr = true
+
+[[test]]
+filename = "errors/test_set_object4.py"
+asr = true
+
+[[test]]
+filename = "errors/test_set_object5.py"
+asr = true
+
+[[test]]
+filename = "errors/test_set_object6.py"
+asr = true
+
 [[test]]
 filename = "errors/test_dict8.py"
 asr = true
@@ -788,6 +1109,22 @@ asr = true
 filename = "errors/test_dict13.py"
 asr = true
 
+[[test]]
+filename = "errors/test_dict14.py"
+run = true
+
+[[test]]
+filename = "errors/test_dict15.py"
+run = true
+
+# [[test]]
+# filename = "errors/test_dict16.py"
+# run = true
+
+[[test]]
+filename = "errors/test_const_dict.py"
+asr = true
+
 [[test]]
 filename = "errors/test_zero_division.py"
 asr = true
@@ -872,6 +1209,14 @@ asr = true
 filename = "errors/test_unsupported_type.py"
 asr = true
 
+[[test]]
+filename = "errors/test_int_semantic_error.py"
+asr = true
+
+[[test]]
+filename = "errors/test_float_semantic_error.py"
+asr = true
+
 [[test]]
 filename = "errors/generics_error_01.py"
 asr = true
@@ -892,6 +1237,14 @@ asr = true
 filename = "errors/test_tuple1.py"
 asr = true
 
+[[test]]
+filename = "errors/test_tuple2.py"
+asr = true
+
+[[test]]
+filename = "errors/test_tuple3.py"
+asr = true
+
 [[test]]
 filename = "errors/test_for2.py"
 asr = true
@@ -904,6 +1257,14 @@ asr = true
 filename = "errors/test_import_02.py"
 asr = true
 
+[[test]]
+filename = "errors/type_mismatch.py"
+asr = true
+
+[[test]]
+filename = "errors/test_type_mismatch_01.py"
+asr = true
+
 # tests/tokens/errors
 
 [[test]]
@@ -934,6 +1295,10 @@ tokens = true
 filename = "tokens/errors/indent3.py"
 tokens = true
 
+[[test]]
+filename = "errors/test_literal.py"
+tokens = true
+
 [[test]]
 filename = "errors/kwargs_01_error.py"
 asr = true
@@ -963,7 +1328,11 @@ filename = "errors/loop_02.py"
 asr = true
 
 [[test]]
-filename = "errors/test_goto.py"
+filename = "errors/loop_03.py"
+asr = true
+
+[[test]]
+filename = "errors/test_logical_compare_01.py"
 asr = true
 
 [[test]]
@@ -974,6 +1343,18 @@ asr = true
 filename = "errors/bindc_02.py"
 asr = true
 
+[[test]]
+filename = "errors/bindc_03.py"
+asr = true
+
+[[test]]
+filename = "errors/bindc_04.py"
+asr = true
+
+[[test]]
+filename = "errors/bindc_10e.py"
+asr = true
+
 [[test]]
 filename = "errors/cptr_01.py"
 asr = true
@@ -982,6 +1363,58 @@ asr = true
 filename = "errors/func_01.py"
 asr = true
 
+[[test]]
+filename = "errors/func_02.py"
+asr = true
+
+[[test]]
+filename = "errors/func_03.py"
+asr = true
+
+[[test]]
+filename = "errors/func_04.py"
+asr = true
+
+[[test]]
+filename = "errors/func_05.py"
+asr = true
+
+[[test]]
+filename = "errors/func_06.py"
+asr = true
+
+[[test]]
+filename = "errors/func_07.py"
+asr = true
+
+[[test]]
+filename = "errors/func_08.py"
+asr = true
+
+[[test]]
+filename = "errors/unsigned_01.py"
+asr = true
+
+[[test]]
+filename = "errors/unsigned_02.py"
+asr = true
+
+[[test]]
+filename = "errors/unsigned_03.py"
+asr = true
+
+[[test]]
+filename = "errors/unsigned_04.py"
+asr = true
+
+[[test]]
+filename = "errors/prefix_string_01.py"
+ast = true
+
+[[test]]
+filename = "errors/prefix_string_02.py"
+ast = true
+
 # tests/runtime_errors
 [[test]]
 filename = "runtime_errors/test_list_01.py"
@@ -991,13 +1424,21 @@ run = true
 filename = "runtime_errors/test_list_02.py"
 run = true
 
+# [[test]]
+# filename = "runtime_errors/test_str_01.py"
+# run = true
+
+# [[test]]
+# filename = "runtime_errors/test_str_02.py"
+# run = true
+
 [[test]]
 filename = "runtime_errors/test_assert_01.py"
 run_with_dbg = true
 
-[[test]]
-filename = "runtime_errors/test_assert_02.py"
-run_with_dbg = true
+# [[test]]
+# filename = "runtime_errors/test_assert_02.py"
+# run_with_dbg = true
 
 [[test]]
 filename = "runtime_errors/test_assert_03.py"
@@ -1010,3 +1451,31 @@ run_with_dbg = true
 [[test]]
 filename = "runtime_errors/test_raise_01.py"
 run_with_dbg = true
+
+[[test]]
+filename = "errors/test_optional.py"
+asr = true
+
+[[test]]
+filename = "errors/def_func_01.py"
+asr = true
+
+[[test]]
+filename = "errors/def_func_02.py"
+asr = true
+
+[[test]]
+filename = "errors/def_func_03.py"
+asr = true
+
+[[test]]
+filename = "errors/def_func_04.py"
+asr = true
+
+[[test]]
+filename = "errors/def_func_05.py"
+asr = true
+
+[[test]]
+filename = "errors/def_func_06.py"
+asr = true
diff --git a/tests/tokens/indent1.py b/tests/tokens/indent1.py
index a984c21783..6074762198 100644
--- a/tests/tokens/indent1.py
+++ b/tests/tokens/indent1.py
@@ -1,4 +1,4 @@
-from ltypes import \
+from lpython import \
     i32
 
 def test():
diff --git a/tests/tuple1.py b/tests/tuple1.py
index dd43c364de..cd885e82d2 100644
--- a/tests/tuple1.py
+++ b/tests/tuple1.py
@@ -1,4 +1,4 @@
-from ltypes import i32, f32
+from lpython import i32, f32
 
 def test_Tuple():
     a1: tuple[i32, i32, i32]
diff --git a/tutorial/tutorial_1.md b/tutorial/tutorial_1.md
new file mode 100644
index 0000000000..e0cb43cc06
--- /dev/null
+++ b/tutorial/tutorial_1.md
@@ -0,0 +1,192 @@
+# LPython Tutorial: 1
+
+This is the first tutorial of LPython compiler.
+
+## Installation
+
+Please follow the steps mentioned in the
+[LPython's installation instructions](https://github.com/lcompilers/lpython#installation).
+
+After installation, verify it using:
+```
+% lpython --version
+LPython version: 0.20.0
+Platform: macOS ARM
+Default target: arm64-apple-darwin22.1.0
+```
+
+
+## Getting started with lpython
+
+Let's begin by compiling the very first code example using `lpython`.
+Copy the contents of `hello.py`.
+
+```
+% cat hello.py
+def main():
+    print("Hello LPython!")
+
+main()
+```
+
+Compile and run it using:
+
+```
+% lpython hello.py
+Hello LPython!
+```
+
+`lpython` is designed to work exactly in the same way as `python`. LPython
+is designed such that it is the **subset** of CPython and with the aim of
+whatever works in LPython should also work in CPython!
+
+Now, if we want to compile and run separately, we can do:
+
+```
+% lpython hello.py -o hello.out # just compile it!
+% ./hello.out # run the binary!
+Hello LPython!
+```
+
+### Variables
+
+LPython is a strictly typed python compiler, meaning, each variable must
+have a type just like C, or C++. Some of the basic supported types are
+
+| Types    | Description |
+| -------- | ------- |
+| i1, i8, i16, i32, i64  | Integer type supporting 1, 8, 16, 32, and 64 bits |
+| u8, u16, u32, u64 | Unsigned Integer type supporting 8, 16, 32, and 64 bits |
+| str | String type|
+| bool | Boolean type |
+| f32, f64    | Real type supporting 32 and 64 bits  |
+| c32, c64    | Real type supporting 32 and 64 bits |
+| CPtr | C Pointer type |
+| Const[T] | Constant type |
+| Callable| Callable type |
+| Allocatable | Allocatable type |
+| Pointer | Pointer type |
+| S | Symbolic type |
+
+Try the following variable example
+```
+% cat var1.py
+from lpython import i32, i64
+
+def variable_function_1():
+    x: i32 = 1
+    y: i32 = 2
+    print("x + y is", x + y)
+
+    x1: i64 = i64(10)
+    y1: i64 = i64(20)
+    print("x1 + y1 is", x1 + y1)
+
+variable_function_1()
+```
+
+Compile and run it
+
+```
+% lpython var1.py
+x + y is 3
+x1 + y1 is 30
+```
+
+Note that while instantiating `x1`, we have to **explicit casting** as
+default integer type in LPython is `i32`. Implicit casting is
+not supported to avoid any magic happening in your code and easy debugging.
+Look at the nice error thrown below if we haven't added explicit cast.
+
+```
+% cat var2.py
+from lpython import i32, i64
+
+def variable_function_error_1():
+    x1: i64 = 10
+    y1: i64 = 20
+    print("x1 + y1 is", x1 + y1)
+
+variable_function_error_1()
+```
+
+Compile and try to run it
+```
+% lpython var2.py
+semantic error: Type mismatch in annotation-assignment, the types must be compatible
+ --> var2.py:4:5
+  |
+4 |     x1: i64 = 10
+  |     ^^        ^^ type mismatch ('i64' and 'i32')
+
+
+Note: Please report unclear or confusing messages as bugs at
+https://github.com/lcompilers/lpython/issues.
+```
+
+Similarly, please note that the default type of float is `f64`.
+
+### Functions
+
+Functions in LPython are also strictly typed, meaning, each function
+argument should have a type. The function also needs to have a return
+type (if it returns a value).
+
+Consider the following example of how function looks
+```
+% cat func1.py
+from lpython import i32
+
+def function_void_example():
+    print("This function has no args and return type.")
+
+def function_with_args_and_ret(a: i32) -> i32:
+    # Function having i32 as return type
+    return a + 1
+
+def function_with_args(a: i32, b: str):
+    print("Hello", b)
+    c: i32 = function_with_args_and_ret(a)
+    print("You just got", c)
+
+function_void_example()
+function_with_args(2, "lpython")
+```
+
+Running this we get
+
+```
+% lpython func1.py
+This function has no args and return type.
+Hello lpython
+You just got 3
+```
+
+### Loops
+
+LPython provide loop in the same way as in python. The only extra
+condition is that the loop variable must be a typed and declared
+beforehand. Take a look at the `for` loop example to understand it better
+
+```
+% cat loop1.py
+from lpython import i32, i64
+
+def loop_for():
+    i: i32
+    res: i64 = i64(0)
+    for i in range(0, 10000):
+        res += i64(i)
+    print("for loop result:", res)
+
+def loop_while():
+    i: i32 = 1
+    res: i64 = i64(0)
+    while i < 10000:
+        res += i64(i)
+        i += 1
+    print("while loop result:", res)
+
+loop_for()
+loop_while()
+```